From d4aa3f514df7a9e6350320d16b385350f22cc0ea Mon Sep 17 00:00:00 2001 From: Alexis Montoison Date: Sun, 4 Oct 2026 22:58:55 -0600 Subject: [PATCH 1/8] feat(hipblas): add the generated Fortran binding module Add fortran/hipblas.F90, the hipblas module generated from the C headers by the rocm-fortran generator under RFC0019 (ROCm/TheRock#8122). It is committed next to the headers, is not edited by hand, and .gitattributes marks it linguist-generated. --- projects/hipblas/.gitattributes | 2 + .../hipblas/fortran/hip_datatypes_stub.F90 | 54 + projects/hipblas/fortran/hipblas.F90 | 109744 +++++++++++++++ 3 files changed, 109800 insertions(+) create mode 100644 projects/hipblas/.gitattributes create mode 100644 projects/hipblas/fortran/hip_datatypes_stub.F90 create mode 100644 projects/hipblas/fortran/hipblas.F90 diff --git a/projects/hipblas/.gitattributes b/projects/hipblas/.gitattributes new file mode 100644 index 000000000000..cd9812c58107 --- /dev/null +++ b/projects/hipblas/.gitattributes @@ -0,0 +1,2 @@ +# Generated by the rocm-fortran generator +/fortran/hipblas.F90 linguist-generated=true diff --git a/projects/hipblas/fortran/hip_datatypes_stub.F90 b/projects/hipblas/fortran/hip_datatypes_stub.F90 new file mode 100644 index 000000000000..b2e360b007e4 --- /dev/null +++ b/projects/hipblas/fortran/hip_datatypes_stub.F90 @@ -0,0 +1,54 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +! TEMPORARY: delete when ROCm/rocm-systems#11923 ships a HIP Fortran binding. +! HIP's hipDataType enumerators 0..15 (values from the HIP binding) for the +! clients' `use hip`. Compiled into hipblas_fortran_client only; never +! installed, so no second hip.mod reaches a prefix. + +module hip + implicit none + public + + enum, bind(c) + enumerator :: HIP_R_32F = 0 + enumerator :: HIP_R_64F = 1 + enumerator :: HIP_R_16F = 2 + enumerator :: HIP_R_8I = 3 + enumerator :: HIP_C_32F = 4 + enumerator :: HIP_C_64F = 5 + enumerator :: HIP_C_16F = 6 + enumerator :: HIP_C_8I = 7 + enumerator :: HIP_R_8U = 8 + enumerator :: HIP_C_8U = 9 + enumerator :: HIP_R_32I = 10 + enumerator :: HIP_C_32I = 11 + enumerator :: HIP_R_32U = 12 + enumerator :: HIP_C_32U = 13 + enumerator :: HIP_R_16BF = 14 + enumerator :: HIP_C_16BF = 15 + end enum + +end module hip diff --git a/projects/hipblas/fortran/hipblas.F90 b/projects/hipblas/fortran/hipblas.F90 new file mode 100644 index 000000000000..a8f41d3e1619 --- /dev/null +++ b/projects/hipblas/fortran/hipblas.F90 @@ -0,0 +1,109744 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +module hipblas + use, intrinsic :: iso_c_binding + implicit none + + ! hipblasStatus_t + enum, bind(c) + enumerator :: HIPBLAS_STATUS_SUCCESS = 0 + enumerator :: HIPBLAS_STATUS_NOT_INITIALIZED = 1 + enumerator :: HIPBLAS_STATUS_ALLOC_FAILED = 2 + enumerator :: HIPBLAS_STATUS_INVALID_VALUE = 3 + enumerator :: HIPBLAS_STATUS_MAPPING_ERROR = 4 + enumerator :: HIPBLAS_STATUS_EXECUTION_FAILED = 5 + enumerator :: HIPBLAS_STATUS_INTERNAL_ERROR = 6 + enumerator :: HIPBLAS_STATUS_NOT_SUPPORTED = 7 + enumerator :: HIPBLAS_STATUS_ARCH_MISMATCH = 8 + enumerator :: HIPBLAS_STATUS_HANDLE_IS_NULLPTR = 9 + enumerator :: HIPBLAS_STATUS_INVALID_ENUM = 10 + enumerator :: HIPBLAS_STATUS_UNKNOWN = 11 + end enum + + ! hipblasOperation_t + enum, bind(c) + enumerator :: HIPBLAS_OP_N = 111 + enumerator :: HIPBLAS_OP_T = 112 + enumerator :: HIPBLAS_OP_C = 113 + end enum + + ! hipblasComputeType_t + enum, bind(c) + enumerator :: HIPBLAS_COMPUTE_16F = 0 + enumerator :: HIPBLAS_COMPUTE_16F_PEDANTIC = 1 + enumerator :: HIPBLAS_COMPUTE_32F = 2 + enumerator :: HIPBLAS_COMPUTE_32F_PEDANTIC = 3 + enumerator :: HIPBLAS_COMPUTE_32F_FAST_16F = 4 + enumerator :: HIPBLAS_COMPUTE_32F_FAST_16BF = 5 + enumerator :: HIPBLAS_COMPUTE_32F_FAST_TF32 = 6 + enumerator :: HIPBLAS_COMPUTE_64F = 7 + enumerator :: HIPBLAS_COMPUTE_64F_PEDANTIC = 8 + enumerator :: HIPBLAS_COMPUTE_32I = 9 + enumerator :: HIPBLAS_COMPUTE_32I_PEDANTIC = 10 + enumerator :: HIPBLAS_COMPUTE_32F_FAST_8F_FNUZ = 100 + enumerator :: HIPBLAS_COMPUTE_32F_FAST_8BF_FNUZ = 101 + enumerator :: HIPBLAS_COMPUTE_32F_FAST_8F8BF_FNUZ = 102 + enumerator :: HIPBLAS_COMPUTE_32F_FAST_8BF8F_FNUZ = 103 + end enum + + ! hipblasPointerMode_t + enum, bind(c) + enumerator :: HIPBLAS_POINTER_MODE_HOST = 0 + enumerator :: HIPBLAS_POINTER_MODE_DEVICE = 1 + end enum + + ! hipblasFillMode_t + enum, bind(c) + enumerator :: HIPBLAS_FILL_MODE_UPPER = 121 + enumerator :: HIPBLAS_FILL_MODE_LOWER = 122 + enumerator :: HIPBLAS_FILL_MODE_FULL = 123 + end enum + + ! hipblasDiagType_t + enum, bind(c) + enumerator :: HIPBLAS_DIAG_NON_UNIT = 131 + enumerator :: HIPBLAS_DIAG_UNIT = 132 + end enum + + ! hipblasSideMode_t + enum, bind(c) + enumerator :: HIPBLAS_SIDE_LEFT = 141 + enumerator :: HIPBLAS_SIDE_RIGHT = 142 + enumerator :: HIPBLAS_SIDE_BOTH = 143 + end enum + + ! hipblasMath_t + enum, bind(c) + enumerator :: HIPBLAS_DEFAULT_MATH = 0 + enumerator :: HIPBLAS_XF32_XDL_MATH = 1 + enumerator :: HIPBLAS_PEDANTIC_MATH = 2 + enumerator :: HIPBLAS_TF32_TENSOR_OP_MATH = 3 + enumerator :: HIPBLAS_MATH_DISALLOW_REDUCED_PRECISION_REDUCTION = 4 + enumerator :: HIPBLAS_TENSOR_OP_MATH = 5 + end enum + + ! hipblasGemmAlgo_t + enum, bind(c) + enumerator :: HIPBLAS_GEMM_DEFAULT = 160 + end enum + + ! hipblasAtomicsMode_t + enum, bind(c) + enumerator :: HIPBLAS_ATOMICS_NOT_ALLOWED = 0 + enumerator :: HIPBLAS_ATOMICS_ALLOWED = 1 + end enum + + ! hipblasGemmFlags_t + enum, bind(c) + enumerator :: HIPBLAS_GEMM_FLAGS_NONE = 0 + enumerator :: HIPBLAS_GEMM_FLAGS_USE_CU_EFFICIENCY = 2 + enumerator :: HIPBLAS_GEMM_FLAGS_FP16_ALT_IMPL = 4 + enumerator :: HIPBLAS_GEMM_FLAGS_CHECK_SOLUTION_INDEX = 8 + enumerator :: HIPBLAS_GEMM_FLAGS_FP16_ALT_IMPL_RNZ = 16 + end enum + + ! hipblasLibraryProperty_t + enum, bind(c) + enumerator :: HIPBLAS_MAJOR_VERSION = 0 + enumerator :: HIPBLAS_MINOR_VERSION = 1 + enumerator :: HIPBLAS_PATCH_LEVEL = 2 + end enum + + integer(c_int), parameter :: hipblasVersionMajor = 3 + integer(c_int), parameter :: hipblaseVersionMinor = 8 + integer(c_int), parameter :: hipblasVersionMinor = 8 + integer(c_int), parameter :: hipblasVersionPatch = 0 + integer(c_int), parameter :: hipblasVersionK = 100 + + + interface hipblasCreate + function hipblasCreate_(handle) bind(c, name="hipblasCreate") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCreate_ + type(c_ptr) :: handle + end function + end interface + + interface hipblasDestroy + function hipblasDestroy_(handle) bind(c, name="hipblasDestroy") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDestroy_ + type(c_ptr),value :: handle + end function + end interface + + interface hipblasGetVersion + function hipblasGetVersion_(handle,version) bind(c, name="hipblasGetVersion") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasGetVersion_ + type(c_ptr),value :: handle + type(c_ptr),value :: version + end function + + module procedure hipblasGetVersion_typed + end interface + + interface hipblasGetProperty + function hipblasGetProperty_(myType,myValue) bind(c, name="hipblasGetProperty") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasGetProperty_ + integer(c_int),value :: myType + type(c_ptr),value :: myValue + end function + + module procedure hipblasGetProperty_typed + end interface + + interface hipblasSetStream + function hipblasSetStream_(handle,streamId) bind(c, name="hipblasSetStream") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSetStream_ + type(c_ptr),value :: handle + type(c_ptr),value :: streamId + end function + end interface + + interface hipblasGetStream + function hipblasGetStream_(handle,streamId) bind(c, name="hipblasGetStream") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasGetStream_ + type(c_ptr),value :: handle + type(c_ptr) :: streamId + end function + end interface + + interface hipblasSetPointerMode + function hipblasSetPointerMode_(handle,mode) bind(c, name="hipblasSetPointerMode") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSetPointerMode_ + type(c_ptr),value :: handle + integer(c_int),value :: mode + end function + end interface + + interface hipblasGetPointerMode + function hipblasGetPointerMode_(handle,mode) bind(c, name="hipblasGetPointerMode") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasGetPointerMode_ + type(c_ptr),value :: handle + type(c_ptr),value :: mode + end function + + module procedure hipblasGetPointerMode_typed + end interface + + interface hipblasSetMathMode + function hipblasSetMathMode_(handle,mode) bind(c, name="hipblasSetMathMode") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSetMathMode_ + type(c_ptr),value :: handle + integer(c_int),value :: mode + end function + end interface + + interface hipblasGetMathMode + function hipblasGetMathMode_(handle,mode) bind(c, name="hipblasGetMathMode") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasGetMathMode_ + type(c_ptr),value :: handle + type(c_ptr),value :: mode + end function + + module procedure hipblasGetMathMode_typed + end interface + + interface hipblasSetWorkspace + function hipblasSetWorkspace_(handle,workspace,workspaceSizeInBytes) & + bind(c, name="hipblasSetWorkspace") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSetWorkspace_ + type(c_ptr),value :: handle + type(c_ptr),value :: workspace + integer(c_size_t),value :: workspaceSizeInBytes + end function + end interface + + interface hipblasSetVector + function hipblasSetVector_(n,elemSize,x,incx,y,incy) bind(c, name="hipblasSetVector") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSetVector_ + integer(c_int),value :: n + integer(c_int),value :: elemSize + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + end function + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasSetVector_l_assumed_rank,& + hipblasSetVector_i4_assumed_rank,& + hipblasSetVector_i8_assumed_rank,& + hipblasSetVector_r4_assumed_rank,& + hipblasSetVector_r8_assumed_rank,& + hipblasSetVector_c4_assumed_rank,& + hipblasSetVector_c8_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSetVector_l_rank_0,& + hipblasSetVector_l_full_rank,& + hipblasSetVector_i4_rank_0,& + hipblasSetVector_i4_full_rank,& + hipblasSetVector_i8_rank_0,& + hipblasSetVector_i8_full_rank,& + hipblasSetVector_r4_rank_0,& + hipblasSetVector_r4_full_rank,& + hipblasSetVector_r8_rank_0,& + hipblasSetVector_r8_full_rank,& + hipblasSetVector_c4_rank_0,& + hipblasSetVector_c4_full_rank,& + hipblasSetVector_c8_rank_0,& + hipblasSetVector_c8_full_rank +#endif +#endif + end interface + + interface hipblasGetVector + function hipblasGetVector_(n,elemSize,x,incx,y,incy) bind(c, name="hipblasGetVector") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasGetVector_ + integer(c_int),value :: n + integer(c_int),value :: elemSize + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + end function + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasGetVector_l_assumed_rank,& + hipblasGetVector_i4_assumed_rank,& + hipblasGetVector_i8_assumed_rank,& + hipblasGetVector_r4_assumed_rank,& + hipblasGetVector_r8_assumed_rank,& + hipblasGetVector_c4_assumed_rank,& + hipblasGetVector_c8_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasGetVector_l_rank_0,& + hipblasGetVector_l_full_rank,& + hipblasGetVector_i4_rank_0,& + hipblasGetVector_i4_full_rank,& + hipblasGetVector_i8_rank_0,& + hipblasGetVector_i8_full_rank,& + hipblasGetVector_r4_rank_0,& + hipblasGetVector_r4_full_rank,& + hipblasGetVector_r8_rank_0,& + hipblasGetVector_r8_full_rank,& + hipblasGetVector_c4_rank_0,& + hipblasGetVector_c4_full_rank,& + hipblasGetVector_c8_rank_0,& + hipblasGetVector_c8_full_rank +#endif +#endif + end interface + + interface hipblasSetMatrix + function hipblasSetMatrix_(rows,cols,elemSize,AP,lda,BP,ldb) bind(c, name="hipblasSetMatrix") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSetMatrix_ + integer(c_int),value :: rows + integer(c_int),value :: cols + integer(c_int),value :: elemSize + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: BP + integer(c_int),value :: ldb + end function + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasSetMatrix_l_assumed_rank,& + hipblasSetMatrix_i4_assumed_rank,& + hipblasSetMatrix_i8_assumed_rank,& + hipblasSetMatrix_r4_assumed_rank,& + hipblasSetMatrix_r8_assumed_rank,& + hipblasSetMatrix_c4_assumed_rank,& + hipblasSetMatrix_c8_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSetMatrix_l_full_rank,& + hipblasSetMatrix_l_rank_0,& + hipblasSetMatrix_l_rank_1,& + hipblasSetMatrix_i4_full_rank,& + hipblasSetMatrix_i4_rank_0,& + hipblasSetMatrix_i4_rank_1,& + hipblasSetMatrix_i8_full_rank,& + hipblasSetMatrix_i8_rank_0,& + hipblasSetMatrix_i8_rank_1,& + hipblasSetMatrix_r4_full_rank,& + hipblasSetMatrix_r4_rank_0,& + hipblasSetMatrix_r4_rank_1,& + hipblasSetMatrix_r8_full_rank,& + hipblasSetMatrix_r8_rank_0,& + hipblasSetMatrix_r8_rank_1,& + hipblasSetMatrix_c4_full_rank,& + hipblasSetMatrix_c4_rank_0,& + hipblasSetMatrix_c4_rank_1,& + hipblasSetMatrix_c8_full_rank,& + hipblasSetMatrix_c8_rank_0,& + hipblasSetMatrix_c8_rank_1 +#endif +#endif + end interface + + interface hipblasGetMatrix + function hipblasGetMatrix_(rows,cols,elemSize,AP,lda,BP,ldb) bind(c, name="hipblasGetMatrix") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasGetMatrix_ + integer(c_int),value :: rows + integer(c_int),value :: cols + integer(c_int),value :: elemSize + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: BP + integer(c_int),value :: ldb + end function + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasGetMatrix_l_assumed_rank,& + hipblasGetMatrix_i4_assumed_rank,& + hipblasGetMatrix_i8_assumed_rank,& + hipblasGetMatrix_r4_assumed_rank,& + hipblasGetMatrix_r8_assumed_rank,& + hipblasGetMatrix_c4_assumed_rank,& + hipblasGetMatrix_c8_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasGetMatrix_l_full_rank,& + hipblasGetMatrix_l_rank_0,& + hipblasGetMatrix_l_rank_1,& + hipblasGetMatrix_i4_full_rank,& + hipblasGetMatrix_i4_rank_0,& + hipblasGetMatrix_i4_rank_1,& + hipblasGetMatrix_i8_full_rank,& + hipblasGetMatrix_i8_rank_0,& + hipblasGetMatrix_i8_rank_1,& + hipblasGetMatrix_r4_full_rank,& + hipblasGetMatrix_r4_rank_0,& + hipblasGetMatrix_r4_rank_1,& + hipblasGetMatrix_r8_full_rank,& + hipblasGetMatrix_r8_rank_0,& + hipblasGetMatrix_r8_rank_1,& + hipblasGetMatrix_c4_full_rank,& + hipblasGetMatrix_c4_rank_0,& + hipblasGetMatrix_c4_rank_1,& + hipblasGetMatrix_c8_full_rank,& + hipblasGetMatrix_c8_rank_0,& + hipblasGetMatrix_c8_rank_1 +#endif +#endif + end interface + + interface hipblasSetVectorAsync + function hipblasSetVectorAsync_(n,elemSize,x,incx,y,incy,stream) & + bind(c, name="hipblasSetVectorAsync") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSetVectorAsync_ + integer(c_int),value :: n + integer(c_int),value :: elemSize + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + type(c_ptr),value :: stream + end function + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasSetVectorAsync_l_assumed_rank,& + hipblasSetVectorAsync_i4_assumed_rank,& + hipblasSetVectorAsync_i8_assumed_rank,& + hipblasSetVectorAsync_r4_assumed_rank,& + hipblasSetVectorAsync_r8_assumed_rank,& + hipblasSetVectorAsync_c4_assumed_rank,& + hipblasSetVectorAsync_c8_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSetVectorAsync_l_rank_0,& + hipblasSetVectorAsync_l_full_rank,& + hipblasSetVectorAsync_i4_rank_0,& + hipblasSetVectorAsync_i4_full_rank,& + hipblasSetVectorAsync_i8_rank_0,& + hipblasSetVectorAsync_i8_full_rank,& + hipblasSetVectorAsync_r4_rank_0,& + hipblasSetVectorAsync_r4_full_rank,& + hipblasSetVectorAsync_r8_rank_0,& + hipblasSetVectorAsync_r8_full_rank,& + hipblasSetVectorAsync_c4_rank_0,& + hipblasSetVectorAsync_c4_full_rank,& + hipblasSetVectorAsync_c8_rank_0,& + hipblasSetVectorAsync_c8_full_rank +#endif +#endif + end interface + + interface hipblasGetVectorAsync + function hipblasGetVectorAsync_(n,elemSize,x,incx,y,incy,stream) & + bind(c, name="hipblasGetVectorAsync") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasGetVectorAsync_ + integer(c_int),value :: n + integer(c_int),value :: elemSize + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + type(c_ptr),value :: stream + end function + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasGetVectorAsync_l_assumed_rank,& + hipblasGetVectorAsync_i4_assumed_rank,& + hipblasGetVectorAsync_i8_assumed_rank,& + hipblasGetVectorAsync_r4_assumed_rank,& + hipblasGetVectorAsync_r8_assumed_rank,& + hipblasGetVectorAsync_c4_assumed_rank,& + hipblasGetVectorAsync_c8_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasGetVectorAsync_l_rank_0,& + hipblasGetVectorAsync_l_full_rank,& + hipblasGetVectorAsync_i4_rank_0,& + hipblasGetVectorAsync_i4_full_rank,& + hipblasGetVectorAsync_i8_rank_0,& + hipblasGetVectorAsync_i8_full_rank,& + hipblasGetVectorAsync_r4_rank_0,& + hipblasGetVectorAsync_r4_full_rank,& + hipblasGetVectorAsync_r8_rank_0,& + hipblasGetVectorAsync_r8_full_rank,& + hipblasGetVectorAsync_c4_rank_0,& + hipblasGetVectorAsync_c4_full_rank,& + hipblasGetVectorAsync_c8_rank_0,& + hipblasGetVectorAsync_c8_full_rank +#endif +#endif + end interface + + interface hipblasSetMatrixAsync + function hipblasSetMatrixAsync_(rows,cols,elemSize,AP,lda,BP,ldb,stream) & + bind(c, name="hipblasSetMatrixAsync") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSetMatrixAsync_ + integer(c_int),value :: rows + integer(c_int),value :: cols + integer(c_int),value :: elemSize + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: BP + integer(c_int),value :: ldb + type(c_ptr),value :: stream + end function + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasSetMatrixAsync_l_assumed_rank,& + hipblasSetMatrixAsync_i4_assumed_rank,& + hipblasSetMatrixAsync_i8_assumed_rank,& + hipblasSetMatrixAsync_r4_assumed_rank,& + hipblasSetMatrixAsync_r8_assumed_rank,& + hipblasSetMatrixAsync_c4_assumed_rank,& + hipblasSetMatrixAsync_c8_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSetMatrixAsync_l_full_rank,& + hipblasSetMatrixAsync_l_rank_0,& + hipblasSetMatrixAsync_l_rank_1,& + hipblasSetMatrixAsync_i4_full_rank,& + hipblasSetMatrixAsync_i4_rank_0,& + hipblasSetMatrixAsync_i4_rank_1,& + hipblasSetMatrixAsync_i8_full_rank,& + hipblasSetMatrixAsync_i8_rank_0,& + hipblasSetMatrixAsync_i8_rank_1,& + hipblasSetMatrixAsync_r4_full_rank,& + hipblasSetMatrixAsync_r4_rank_0,& + hipblasSetMatrixAsync_r4_rank_1,& + hipblasSetMatrixAsync_r8_full_rank,& + hipblasSetMatrixAsync_r8_rank_0,& + hipblasSetMatrixAsync_r8_rank_1,& + hipblasSetMatrixAsync_c4_full_rank,& + hipblasSetMatrixAsync_c4_rank_0,& + hipblasSetMatrixAsync_c4_rank_1,& + hipblasSetMatrixAsync_c8_full_rank,& + hipblasSetMatrixAsync_c8_rank_0,& + hipblasSetMatrixAsync_c8_rank_1 +#endif +#endif + end interface + + interface hipblasGetMatrixAsync + function hipblasGetMatrixAsync_(rows,cols,elemSize,AP,lda,BP,ldb,stream) & + bind(c, name="hipblasGetMatrixAsync") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasGetMatrixAsync_ + integer(c_int),value :: rows + integer(c_int),value :: cols + integer(c_int),value :: elemSize + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: BP + integer(c_int),value :: ldb + type(c_ptr),value :: stream + end function + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasGetMatrixAsync_l_assumed_rank,& + hipblasGetMatrixAsync_i4_assumed_rank,& + hipblasGetMatrixAsync_i8_assumed_rank,& + hipblasGetMatrixAsync_r4_assumed_rank,& + hipblasGetMatrixAsync_r8_assumed_rank,& + hipblasGetMatrixAsync_c4_assumed_rank,& + hipblasGetMatrixAsync_c8_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasGetMatrixAsync_l_full_rank,& + hipblasGetMatrixAsync_l_rank_0,& + hipblasGetMatrixAsync_l_rank_1,& + hipblasGetMatrixAsync_i4_full_rank,& + hipblasGetMatrixAsync_i4_rank_0,& + hipblasGetMatrixAsync_i4_rank_1,& + hipblasGetMatrixAsync_i8_full_rank,& + hipblasGetMatrixAsync_i8_rank_0,& + hipblasGetMatrixAsync_i8_rank_1,& + hipblasGetMatrixAsync_r4_full_rank,& + hipblasGetMatrixAsync_r4_rank_0,& + hipblasGetMatrixAsync_r4_rank_1,& + hipblasGetMatrixAsync_r8_full_rank,& + hipblasGetMatrixAsync_r8_rank_0,& + hipblasGetMatrixAsync_r8_rank_1,& + hipblasGetMatrixAsync_c4_full_rank,& + hipblasGetMatrixAsync_c4_rank_0,& + hipblasGetMatrixAsync_c4_rank_1,& + hipblasGetMatrixAsync_c8_full_rank,& + hipblasGetMatrixAsync_c8_rank_0,& + hipblasGetMatrixAsync_c8_rank_1 +#endif +#endif + end interface + + interface hipblasSetAtomicsMode + function hipblasSetAtomicsMode_(handle,atomics_mode) bind(c, name="hipblasSetAtomicsMode") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSetAtomicsMode_ + type(c_ptr),value :: handle + integer(c_int),value :: atomics_mode + end function + end interface + + interface hipblasGetAtomicsMode + function hipblasGetAtomicsMode_(handle,atomics_mode) bind(c, name="hipblasGetAtomicsMode") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasGetAtomicsMode_ + type(c_ptr),value :: handle + type(c_ptr),value :: atomics_mode + end function + + module procedure hipblasGetAtomicsMode_typed + end interface + + interface hipblasSetBatchAlphaStride + function hipblasSetBatchAlphaStride_(handle,alpha_stride) & + bind(c, name="hipblasSetBatchAlphaStride") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSetBatchAlphaStride_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: alpha_stride + end function + end interface + + interface hipblasGetBatchAlphaStride + function hipblasGetBatchAlphaStride_(handle,alpha_stride) & + bind(c, name="hipblasGetBatchAlphaStride") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasGetBatchAlphaStride_ + type(c_ptr),value :: handle + type(c_ptr),value :: alpha_stride + end function + + module procedure hipblasGetBatchAlphaStride_typed + end interface + + interface hipblasSetBatchBetaStride + function hipblasSetBatchBetaStride_(handle,beta_stride) & + bind(c, name="hipblasSetBatchBetaStride") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSetBatchBetaStride_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: beta_stride + end function + end interface + + interface hipblasGetBatchBetaStride + function hipblasGetBatchBetaStride_(handle,beta_stride) & + bind(c, name="hipblasGetBatchBetaStride") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasGetBatchBetaStride_ + type(c_ptr),value :: handle + type(c_ptr),value :: beta_stride + end function + + module procedure hipblasGetBatchBetaStride_typed + end interface + + interface hipblasIsamax + function hipblasIsamax_(handle,n,x,incx,myResult) bind(c, name="hipblasIsamax") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasIsamax_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: myResult + end function + + module procedure hipblasIsamax_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasIsamax_assumed_rank,& + hipblasIsamax_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasIsamax_rank_0,& + hipblasIsamax_rank_0_devptr,& + hipblasIsamax_rank_1,& + hipblasIsamax_rank_1_devptr +#endif +#endif + end interface + + interface hipblasIdamax + function hipblasIdamax_(handle,n,x,incx,myResult) bind(c, name="hipblasIdamax") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasIdamax_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: myResult + end function + + module procedure hipblasIdamax_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasIdamax_assumed_rank,& + hipblasIdamax_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasIdamax_rank_0,& + hipblasIdamax_rank_0_devptr,& + hipblasIdamax_rank_1,& + hipblasIdamax_rank_1_devptr +#endif +#endif + end interface + + interface hipblasIcamax + function hipblasIcamax_(handle,n,x,incx,myResult) bind(c, name="hipblasIcamax") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasIcamax_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: myResult + end function + + module procedure hipblasIcamax_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasIcamax_assumed_rank,& + hipblasIcamax_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasIcamax_rank_0,& + hipblasIcamax_rank_0_devptr,& + hipblasIcamax_rank_1,& + hipblasIcamax_rank_1_devptr +#endif +#endif + end interface + + interface hipblasIzamax + function hipblasIzamax_(handle,n,x,incx,myResult) bind(c, name="hipblasIzamax") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasIzamax_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: myResult + end function + + module procedure hipblasIzamax_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasIzamax_assumed_rank,& + hipblasIzamax_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasIzamax_rank_0,& + hipblasIzamax_rank_0_devptr,& + hipblasIzamax_rank_1,& + hipblasIzamax_rank_1_devptr +#endif +#endif + end interface + + interface hipblasIsamax_64 + function hipblasIsamax_64_(handle,n,x,incx,myResult) bind(c, name="hipblasIsamax_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasIsamax_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: myResult + end function + + module procedure hipblasIsamax_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasIsamax_64_assumed_rank,& + hipblasIsamax_64_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasIsamax_64_rank_0,& + hipblasIsamax_64_rank_0_devptr,& + hipblasIsamax_64_rank_1,& + hipblasIsamax_64_rank_1_devptr +#endif +#endif + end interface + + interface hipblasIdamax_64 + function hipblasIdamax_64_(handle,n,x,incx,myResult) bind(c, name="hipblasIdamax_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasIdamax_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: myResult + end function + + module procedure hipblasIdamax_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasIdamax_64_assumed_rank,& + hipblasIdamax_64_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasIdamax_64_rank_0,& + hipblasIdamax_64_rank_0_devptr,& + hipblasIdamax_64_rank_1,& + hipblasIdamax_64_rank_1_devptr +#endif +#endif + end interface + + interface hipblasIcamax_64 + function hipblasIcamax_64_(handle,n,x,incx,myResult) bind(c, name="hipblasIcamax_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasIcamax_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: myResult + end function + + module procedure hipblasIcamax_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasIcamax_64_assumed_rank,& + hipblasIcamax_64_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasIcamax_64_rank_0,& + hipblasIcamax_64_rank_0_devptr,& + hipblasIcamax_64_rank_1,& + hipblasIcamax_64_rank_1_devptr +#endif +#endif + end interface + + interface hipblasIzamax_64 + function hipblasIzamax_64_(handle,n,x,incx,myResult) bind(c, name="hipblasIzamax_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasIzamax_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: myResult + end function + + module procedure hipblasIzamax_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasIzamax_64_assumed_rank,& + hipblasIzamax_64_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasIzamax_64_rank_0,& + hipblasIzamax_64_rank_0_devptr,& + hipblasIzamax_64_rank_1,& + hipblasIzamax_64_rank_1_devptr +#endif +#endif + end interface + + interface hipblasIsamaxBatched + function hipblasIsamaxBatched_(handle,n,x,incx,batchCount,myResult) & + bind(c, name="hipblasIsamaxBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasIsamaxBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int),value :: batchCount + type(c_ptr),value :: myResult + end function + end interface + + interface hipblasIdamaxBatched + function hipblasIdamaxBatched_(handle,n,x,incx,batchCount,myResult) & + bind(c, name="hipblasIdamaxBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasIdamaxBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int),value :: batchCount + type(c_ptr),value :: myResult + end function + end interface + + interface hipblasIcamaxBatched + function hipblasIcamaxBatched_(handle,n,x,incx,batchCount,myResult) & + bind(c, name="hipblasIcamaxBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasIcamaxBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int),value :: batchCount + type(c_ptr),value :: myResult + end function + end interface + + interface hipblasIzamaxBatched + function hipblasIzamaxBatched_(handle,n,x,incx,batchCount,myResult) & + bind(c, name="hipblasIzamaxBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasIzamaxBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int),value :: batchCount + type(c_ptr),value :: myResult + end function + end interface + + interface hipblasIsamaxBatched_64 + function hipblasIsamaxBatched_64_(handle,n,x,incx,batchCount,myResult) & + bind(c, name="hipblasIsamaxBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasIsamaxBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: batchCount + type(c_ptr),value :: myResult + end function + end interface + + interface hipblasIdamaxBatched_64 + function hipblasIdamaxBatched_64_(handle,n,x,incx,batchCount,myResult) & + bind(c, name="hipblasIdamaxBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasIdamaxBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: batchCount + type(c_ptr),value :: myResult + end function + end interface + + interface hipblasIcamaxBatched_64 + function hipblasIcamaxBatched_64_(handle,n,x,incx,batchCount,myResult) & + bind(c, name="hipblasIcamaxBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasIcamaxBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: batchCount + type(c_ptr),value :: myResult + end function + end interface + + interface hipblasIzamaxBatched_64 + function hipblasIzamaxBatched_64_(handle,n,x,incx,batchCount,myResult) & + bind(c, name="hipblasIzamaxBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasIzamaxBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: batchCount + type(c_ptr),value :: myResult + end function + end interface + + interface hipblasIsamaxStridedBatched + function hipblasIsamaxStridedBatched_(handle,n,x,incx,stridex,batchCount,myResult) & + bind(c, name="hipblasIsamaxStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasIsamaxStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int),value :: batchCount + type(c_ptr),value :: myResult + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasIsamaxStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasIsamaxStridedBatched_rank_0,& + hipblasIsamaxStridedBatched_rank_1 +#endif +#endif + end interface + + interface hipblasIdamaxStridedBatched + function hipblasIdamaxStridedBatched_(handle,n,x,incx,stridex,batchCount,myResult) & + bind(c, name="hipblasIdamaxStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasIdamaxStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int),value :: batchCount + type(c_ptr),value :: myResult + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasIdamaxStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasIdamaxStridedBatched_rank_0,& + hipblasIdamaxStridedBatched_rank_1 +#endif +#endif + end interface + + interface hipblasIcamaxStridedBatched + function hipblasIcamaxStridedBatched_(handle,n,x,incx,stridex,batchCount,myResult) & + bind(c, name="hipblasIcamaxStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasIcamaxStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int),value :: batchCount + type(c_ptr),value :: myResult + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasIcamaxStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasIcamaxStridedBatched_rank_0,& + hipblasIcamaxStridedBatched_rank_1 +#endif +#endif + end interface + + interface hipblasIzamaxStridedBatched + function hipblasIzamaxStridedBatched_(handle,n,x,incx,stridex,batchCount,myResult) & + bind(c, name="hipblasIzamaxStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasIzamaxStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int),value :: batchCount + type(c_ptr),value :: myResult + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasIzamaxStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasIzamaxStridedBatched_rank_0,& + hipblasIzamaxStridedBatched_rank_1 +#endif +#endif + end interface + + interface hipblasIsamaxStridedBatched_64 + function hipblasIsamaxStridedBatched_64_(handle,n,x,incx,stridex,batchCount,myResult) & + bind(c, name="hipblasIsamaxStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasIsamaxStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int64_t),value :: batchCount + type(c_ptr),value :: myResult + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasIsamaxStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasIsamaxStridedBatched_64_rank_0,& + hipblasIsamaxStridedBatched_64_rank_1 +#endif +#endif + end interface + + interface hipblasIdamaxStridedBatched_64 + function hipblasIdamaxStridedBatched_64_(handle,n,x,incx,stridex,batchCount,myResult) & + bind(c, name="hipblasIdamaxStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasIdamaxStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int64_t),value :: batchCount + type(c_ptr),value :: myResult + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasIdamaxStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasIdamaxStridedBatched_64_rank_0,& + hipblasIdamaxStridedBatched_64_rank_1 +#endif +#endif + end interface + + interface hipblasIcamaxStridedBatched_64 + function hipblasIcamaxStridedBatched_64_(handle,n,x,incx,stridex,batchCount,myResult) & + bind(c, name="hipblasIcamaxStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasIcamaxStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int64_t),value :: batchCount + type(c_ptr),value :: myResult + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasIcamaxStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasIcamaxStridedBatched_64_rank_0,& + hipblasIcamaxStridedBatched_64_rank_1 +#endif +#endif + end interface + + interface hipblasIzamaxStridedBatched_64 + function hipblasIzamaxStridedBatched_64_(handle,n,x,incx,stridex,batchCount,myResult) & + bind(c, name="hipblasIzamaxStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasIzamaxStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int64_t),value :: batchCount + type(c_ptr),value :: myResult + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasIzamaxStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasIzamaxStridedBatched_64_rank_0,& + hipblasIzamaxStridedBatched_64_rank_1 +#endif +#endif + end interface + + interface hipblasIsamin + function hipblasIsamin_(handle,n,x,incx,myResult) bind(c, name="hipblasIsamin") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasIsamin_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: myResult + end function + + module procedure hipblasIsamin_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasIsamin_assumed_rank,& + hipblasIsamin_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasIsamin_rank_0,& + hipblasIsamin_rank_0_devptr,& + hipblasIsamin_rank_1,& + hipblasIsamin_rank_1_devptr +#endif +#endif + end interface + + interface hipblasIdamin + function hipblasIdamin_(handle,n,x,incx,myResult) bind(c, name="hipblasIdamin") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasIdamin_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: myResult + end function + + module procedure hipblasIdamin_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasIdamin_assumed_rank,& + hipblasIdamin_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasIdamin_rank_0,& + hipblasIdamin_rank_0_devptr,& + hipblasIdamin_rank_1,& + hipblasIdamin_rank_1_devptr +#endif +#endif + end interface + + interface hipblasIcamin + function hipblasIcamin_(handle,n,x,incx,myResult) bind(c, name="hipblasIcamin") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasIcamin_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: myResult + end function + + module procedure hipblasIcamin_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasIcamin_assumed_rank,& + hipblasIcamin_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasIcamin_rank_0,& + hipblasIcamin_rank_0_devptr,& + hipblasIcamin_rank_1,& + hipblasIcamin_rank_1_devptr +#endif +#endif + end interface + + interface hipblasIzamin + function hipblasIzamin_(handle,n,x,incx,myResult) bind(c, name="hipblasIzamin") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasIzamin_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: myResult + end function + + module procedure hipblasIzamin_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasIzamin_assumed_rank,& + hipblasIzamin_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasIzamin_rank_0,& + hipblasIzamin_rank_0_devptr,& + hipblasIzamin_rank_1,& + hipblasIzamin_rank_1_devptr +#endif +#endif + end interface + + interface hipblasIsamin_64 + function hipblasIsamin_64_(handle,n,x,incx,myResult) bind(c, name="hipblasIsamin_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasIsamin_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: myResult + end function + + module procedure hipblasIsamin_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasIsamin_64_assumed_rank,& + hipblasIsamin_64_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasIsamin_64_rank_0,& + hipblasIsamin_64_rank_0_devptr,& + hipblasIsamin_64_rank_1,& + hipblasIsamin_64_rank_1_devptr +#endif +#endif + end interface + + interface hipblasIdamin_64 + function hipblasIdamin_64_(handle,n,x,incx,myResult) bind(c, name="hipblasIdamin_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasIdamin_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: myResult + end function + + module procedure hipblasIdamin_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasIdamin_64_assumed_rank,& + hipblasIdamin_64_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasIdamin_64_rank_0,& + hipblasIdamin_64_rank_0_devptr,& + hipblasIdamin_64_rank_1,& + hipblasIdamin_64_rank_1_devptr +#endif +#endif + end interface + + interface hipblasIcamin_64 + function hipblasIcamin_64_(handle,n,x,incx,myResult) bind(c, name="hipblasIcamin_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasIcamin_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: myResult + end function + + module procedure hipblasIcamin_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasIcamin_64_assumed_rank,& + hipblasIcamin_64_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasIcamin_64_rank_0,& + hipblasIcamin_64_rank_0_devptr,& + hipblasIcamin_64_rank_1,& + hipblasIcamin_64_rank_1_devptr +#endif +#endif + end interface + + interface hipblasIzamin_64 + function hipblasIzamin_64_(handle,n,x,incx,myResult) bind(c, name="hipblasIzamin_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasIzamin_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: myResult + end function + + module procedure hipblasIzamin_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasIzamin_64_assumed_rank,& + hipblasIzamin_64_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasIzamin_64_rank_0,& + hipblasIzamin_64_rank_0_devptr,& + hipblasIzamin_64_rank_1,& + hipblasIzamin_64_rank_1_devptr +#endif +#endif + end interface + + interface hipblasIsaminBatched + function hipblasIsaminBatched_(handle,n,x,incx,batchCount,myResult) & + bind(c, name="hipblasIsaminBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasIsaminBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int),value :: batchCount + type(c_ptr),value :: myResult + end function + end interface + + interface hipblasIdaminBatched + function hipblasIdaminBatched_(handle,n,x,incx,batchCount,myResult) & + bind(c, name="hipblasIdaminBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasIdaminBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int),value :: batchCount + type(c_ptr),value :: myResult + end function + end interface + + interface hipblasIcaminBatched + function hipblasIcaminBatched_(handle,n,x,incx,batchCount,myResult) & + bind(c, name="hipblasIcaminBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasIcaminBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int),value :: batchCount + type(c_ptr),value :: myResult + end function + end interface + + interface hipblasIzaminBatched + function hipblasIzaminBatched_(handle,n,x,incx,batchCount,myResult) & + bind(c, name="hipblasIzaminBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasIzaminBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int),value :: batchCount + type(c_ptr),value :: myResult + end function + end interface + + interface hipblasIsaminBatched_64 + function hipblasIsaminBatched_64_(handle,n,x,incx,batchCount,myResult) & + bind(c, name="hipblasIsaminBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasIsaminBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: batchCount + type(c_ptr),value :: myResult + end function + end interface + + interface hipblasIdaminBatched_64 + function hipblasIdaminBatched_64_(handle,n,x,incx,batchCount,myResult) & + bind(c, name="hipblasIdaminBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasIdaminBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: batchCount + type(c_ptr),value :: myResult + end function + end interface + + interface hipblasIcaminBatched_64 + function hipblasIcaminBatched_64_(handle,n,x,incx,batchCount,myResult) & + bind(c, name="hipblasIcaminBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasIcaminBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: batchCount + type(c_ptr),value :: myResult + end function + end interface + + interface hipblasIzaminBatched_64 + function hipblasIzaminBatched_64_(handle,n,x,incx,batchCount,myResult) & + bind(c, name="hipblasIzaminBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasIzaminBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: batchCount + type(c_ptr),value :: myResult + end function + end interface + + interface hipblasIsaminStridedBatched + function hipblasIsaminStridedBatched_(handle,n,x,incx,stridex,batchCount,myResult) & + bind(c, name="hipblasIsaminStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasIsaminStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int),value :: batchCount + type(c_ptr),value :: myResult + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasIsaminStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasIsaminStridedBatched_rank_0,& + hipblasIsaminStridedBatched_rank_1 +#endif +#endif + end interface + + interface hipblasIdaminStridedBatched + function hipblasIdaminStridedBatched_(handle,n,x,incx,stridex,batchCount,myResult) & + bind(c, name="hipblasIdaminStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasIdaminStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int),value :: batchCount + type(c_ptr),value :: myResult + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasIdaminStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasIdaminStridedBatched_rank_0,& + hipblasIdaminStridedBatched_rank_1 +#endif +#endif + end interface + + interface hipblasIcaminStridedBatched + function hipblasIcaminStridedBatched_(handle,n,x,incx,stridex,batchCount,myResult) & + bind(c, name="hipblasIcaminStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasIcaminStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int),value :: batchCount + type(c_ptr),value :: myResult + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasIcaminStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasIcaminStridedBatched_rank_0,& + hipblasIcaminStridedBatched_rank_1 +#endif +#endif + end interface + + interface hipblasIzaminStridedBatched + function hipblasIzaminStridedBatched_(handle,n,x,incx,stridex,batchCount,myResult) & + bind(c, name="hipblasIzaminStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasIzaminStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int),value :: batchCount + type(c_ptr),value :: myResult + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasIzaminStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasIzaminStridedBatched_rank_0,& + hipblasIzaminStridedBatched_rank_1 +#endif +#endif + end interface + + interface hipblasIsaminStridedBatched_64 + function hipblasIsaminStridedBatched_64_(handle,n,x,incx,stridex,batchCount,myResult) & + bind(c, name="hipblasIsaminStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasIsaminStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int64_t),value :: batchCount + type(c_ptr),value :: myResult + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasIsaminStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasIsaminStridedBatched_64_rank_0,& + hipblasIsaminStridedBatched_64_rank_1 +#endif +#endif + end interface + + interface hipblasIdaminStridedBatched_64 + function hipblasIdaminStridedBatched_64_(handle,n,x,incx,stridex,batchCount,myResult) & + bind(c, name="hipblasIdaminStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasIdaminStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int64_t),value :: batchCount + type(c_ptr),value :: myResult + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasIdaminStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasIdaminStridedBatched_64_rank_0,& + hipblasIdaminStridedBatched_64_rank_1 +#endif +#endif + end interface + + interface hipblasIcaminStridedBatched_64 + function hipblasIcaminStridedBatched_64_(handle,n,x,incx,stridex,batchCount,myResult) & + bind(c, name="hipblasIcaminStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasIcaminStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int64_t),value :: batchCount + type(c_ptr),value :: myResult + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasIcaminStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasIcaminStridedBatched_64_rank_0,& + hipblasIcaminStridedBatched_64_rank_1 +#endif +#endif + end interface + + interface hipblasIzaminStridedBatched_64 + function hipblasIzaminStridedBatched_64_(handle,n,x,incx,stridex,batchCount,myResult) & + bind(c, name="hipblasIzaminStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasIzaminStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int64_t),value :: batchCount + type(c_ptr),value :: myResult + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasIzaminStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasIzaminStridedBatched_64_rank_0,& + hipblasIzaminStridedBatched_64_rank_1 +#endif +#endif + end interface + + interface hipblasSasum + function hipblasSasum_(handle,n,x,incx,myResult) bind(c, name="hipblasSasum") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSasum_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: myResult + end function + + module procedure hipblasSasum_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasSasum_assumed_rank,& + hipblasSasum_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSasum_rank_0,& + hipblasSasum_rank_0_devptr,& + hipblasSasum_rank_1,& + hipblasSasum_rank_1_devptr +#endif +#endif + end interface + + interface hipblasDasum + function hipblasDasum_(handle,n,x,incx,myResult) bind(c, name="hipblasDasum") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDasum_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: myResult + end function + + module procedure hipblasDasum_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasDasum_assumed_rank,& + hipblasDasum_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDasum_rank_0,& + hipblasDasum_rank_0_devptr,& + hipblasDasum_rank_1,& + hipblasDasum_rank_1_devptr +#endif +#endif + end interface + + interface hipblasScasum + function hipblasScasum_(handle,n,x,incx,myResult) bind(c, name="hipblasScasum") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasScasum_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: myResult + end function + + module procedure hipblasScasum_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasScasum_assumed_rank,& + hipblasScasum_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasScasum_rank_0,& + hipblasScasum_rank_0_devptr,& + hipblasScasum_rank_1,& + hipblasScasum_rank_1_devptr +#endif +#endif + end interface + + interface hipblasDzasum + function hipblasDzasum_(handle,n,x,incx,myResult) bind(c, name="hipblasDzasum") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDzasum_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: myResult + end function + + module procedure hipblasDzasum_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasDzasum_assumed_rank,& + hipblasDzasum_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDzasum_rank_0,& + hipblasDzasum_rank_0_devptr,& + hipblasDzasum_rank_1,& + hipblasDzasum_rank_1_devptr +#endif +#endif + end interface + + interface hipblasSasum_64 + function hipblasSasum_64_(handle,n,x,incx,myResult) bind(c, name="hipblasSasum_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSasum_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: myResult + end function + + module procedure hipblasSasum_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasSasum_64_assumed_rank,& + hipblasSasum_64_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSasum_64_rank_0,& + hipblasSasum_64_rank_0_devptr,& + hipblasSasum_64_rank_1,& + hipblasSasum_64_rank_1_devptr +#endif +#endif + end interface + + interface hipblasDasum_64 + function hipblasDasum_64_(handle,n,x,incx,myResult) bind(c, name="hipblasDasum_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDasum_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: myResult + end function + + module procedure hipblasDasum_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasDasum_64_assumed_rank,& + hipblasDasum_64_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDasum_64_rank_0,& + hipblasDasum_64_rank_0_devptr,& + hipblasDasum_64_rank_1,& + hipblasDasum_64_rank_1_devptr +#endif +#endif + end interface + + interface hipblasScasum_64 + function hipblasScasum_64_(handle,n,x,incx,myResult) bind(c, name="hipblasScasum_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasScasum_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: myResult + end function + + module procedure hipblasScasum_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasScasum_64_assumed_rank,& + hipblasScasum_64_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasScasum_64_rank_0,& + hipblasScasum_64_rank_0_devptr,& + hipblasScasum_64_rank_1,& + hipblasScasum_64_rank_1_devptr +#endif +#endif + end interface + + interface hipblasDzasum_64 + function hipblasDzasum_64_(handle,n,x,incx,myResult) bind(c, name="hipblasDzasum_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDzasum_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: myResult + end function + + module procedure hipblasDzasum_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasDzasum_64_assumed_rank,& + hipblasDzasum_64_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDzasum_64_rank_0,& + hipblasDzasum_64_rank_0_devptr,& + hipblasDzasum_64_rank_1,& + hipblasDzasum_64_rank_1_devptr +#endif +#endif + end interface + + interface hipblasSasumBatched + function hipblasSasumBatched_(handle,n,x,incx,batchCount,myResult) & + bind(c, name="hipblasSasumBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSasumBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int),value :: batchCount + type(c_ptr),value :: myResult + end function + end interface + + interface hipblasDasumBatched + function hipblasDasumBatched_(handle,n,x,incx,batchCount,myResult) & + bind(c, name="hipblasDasumBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDasumBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int),value :: batchCount + type(c_ptr),value :: myResult + end function + end interface + + interface hipblasScasumBatched + function hipblasScasumBatched_(handle,n,x,incx,batchCount,myResult) & + bind(c, name="hipblasScasumBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasScasumBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int),value :: batchCount + type(c_ptr),value :: myResult + end function + end interface + + interface hipblasDzasumBatched + function hipblasDzasumBatched_(handle,n,x,incx,batchCount,myResult) & + bind(c, name="hipblasDzasumBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDzasumBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int),value :: batchCount + type(c_ptr),value :: myResult + end function + end interface + + interface hipblasSasumBatched_64 + function hipblasSasumBatched_64_(handle,n,x,incx,batchCount,myResult) & + bind(c, name="hipblasSasumBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSasumBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: batchCount + type(c_ptr),value :: myResult + end function + end interface + + interface hipblasDasumBatched_64 + function hipblasDasumBatched_64_(handle,n,x,incx,batchCount,myResult) & + bind(c, name="hipblasDasumBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDasumBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: batchCount + type(c_ptr),value :: myResult + end function + end interface + + interface hipblasScasumBatched_64 + function hipblasScasumBatched_64_(handle,n,x,incx,batchCount,myResult) & + bind(c, name="hipblasScasumBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasScasumBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: batchCount + type(c_ptr),value :: myResult + end function + end interface + + interface hipblasDzasumBatched_64 + function hipblasDzasumBatched_64_(handle,n,x,incx,batchCount,myResult) & + bind(c, name="hipblasDzasumBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDzasumBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: batchCount + type(c_ptr),value :: myResult + end function + end interface + + interface hipblasSasumStridedBatched + function hipblasSasumStridedBatched_(handle,n,x,incx,stridex,batchCount,myResult) & + bind(c, name="hipblasSasumStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSasumStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int),value :: batchCount + type(c_ptr),value :: myResult + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSasumStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSasumStridedBatched_rank_0,& + hipblasSasumStridedBatched_rank_1 +#endif +#endif + end interface + + interface hipblasDasumStridedBatched + function hipblasDasumStridedBatched_(handle,n,x,incx,stridex,batchCount,myResult) & + bind(c, name="hipblasDasumStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDasumStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int),value :: batchCount + type(c_ptr),value :: myResult + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDasumStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDasumStridedBatched_rank_0,& + hipblasDasumStridedBatched_rank_1 +#endif +#endif + end interface + + interface hipblasScasumStridedBatched + function hipblasScasumStridedBatched_(handle,n,x,incx,stridex,batchCount,myResult) & + bind(c, name="hipblasScasumStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasScasumStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int),value :: batchCount + type(c_ptr),value :: myResult + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasScasumStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasScasumStridedBatched_rank_0,& + hipblasScasumStridedBatched_rank_1 +#endif +#endif + end interface + + interface hipblasDzasumStridedBatched + function hipblasDzasumStridedBatched_(handle,n,x,incx,stridex,batchCount,myResult) & + bind(c, name="hipblasDzasumStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDzasumStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int),value :: batchCount + type(c_ptr),value :: myResult + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDzasumStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDzasumStridedBatched_rank_0,& + hipblasDzasumStridedBatched_rank_1 +#endif +#endif + end interface + + interface hipblasSasumStridedBatched_64 + function hipblasSasumStridedBatched_64_(handle,n,x,incx,stridex,batchCount,myResult) & + bind(c, name="hipblasSasumStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSasumStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int64_t),value :: batchCount + type(c_ptr),value :: myResult + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSasumStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSasumStridedBatched_64_rank_0,& + hipblasSasumStridedBatched_64_rank_1 +#endif +#endif + end interface + + interface hipblasDasumStridedBatched_64 + function hipblasDasumStridedBatched_64_(handle,n,x,incx,stridex,batchCount,myResult) & + bind(c, name="hipblasDasumStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDasumStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int64_t),value :: batchCount + type(c_ptr),value :: myResult + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDasumStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDasumStridedBatched_64_rank_0,& + hipblasDasumStridedBatched_64_rank_1 +#endif +#endif + end interface + + interface hipblasScasumStridedBatched_64 + function hipblasScasumStridedBatched_64_(handle,n,x,incx,stridex,batchCount,myResult) & + bind(c, name="hipblasScasumStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasScasumStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int64_t),value :: batchCount + type(c_ptr),value :: myResult + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasScasumStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasScasumStridedBatched_64_rank_0,& + hipblasScasumStridedBatched_64_rank_1 +#endif +#endif + end interface + + interface hipblasDzasumStridedBatched_64 + function hipblasDzasumStridedBatched_64_(handle,n,x,incx,stridex,batchCount,myResult) & + bind(c, name="hipblasDzasumStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDzasumStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int64_t),value :: batchCount + type(c_ptr),value :: myResult + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDzasumStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDzasumStridedBatched_64_rank_0,& + hipblasDzasumStridedBatched_64_rank_1 +#endif +#endif + end interface + + interface hipblasHaxpy + function hipblasHaxpy_(handle,n,alpha,x,incx,y,incy) bind(c, name="hipblasHaxpy") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasHaxpy_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + end function + end interface + + interface hipblasSaxpy + function hipblasSaxpy_(handle,n,alpha,x,incx,y,incy) bind(c, name="hipblasSaxpy") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSaxpy_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + end function + + module procedure hipblasSaxpy_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSaxpy_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSaxpy_rank_0,& + hipblasSaxpy_rank_1 +#endif +#endif + end interface + + interface hipblasDaxpy + function hipblasDaxpy_(handle,n,alpha,x,incx,y,incy) bind(c, name="hipblasDaxpy") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDaxpy_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + end function + + module procedure hipblasDaxpy_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDaxpy_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDaxpy_rank_0,& + hipblasDaxpy_rank_1 +#endif +#endif + end interface + + interface hipblasCaxpy + function hipblasCaxpy_(handle,n,alpha,x,incx,y,incy) bind(c, name="hipblasCaxpy") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCaxpy_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + end function + + module procedure hipblasCaxpy_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCaxpy_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCaxpy_rank_0,& + hipblasCaxpy_rank_1 +#endif +#endif + end interface + + interface hipblasZaxpy + function hipblasZaxpy_(handle,n,alpha,x,incx,y,incy) bind(c, name="hipblasZaxpy") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZaxpy_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + end function + + module procedure hipblasZaxpy_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZaxpy_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZaxpy_rank_0,& + hipblasZaxpy_rank_1 +#endif +#endif + end interface + + interface hipblasHaxpy_64 + function hipblasHaxpy_64_(handle,n,alpha,x,incx,y,incy) bind(c, name="hipblasHaxpy_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasHaxpy_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + end function + end interface + + interface hipblasSaxpy_64 + function hipblasSaxpy_64_(handle,n,alpha,x,incx,y,incy) bind(c, name="hipblasSaxpy_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSaxpy_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + end function + + module procedure hipblasSaxpy_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSaxpy_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSaxpy_64_rank_0,& + hipblasSaxpy_64_rank_1 +#endif +#endif + end interface + + interface hipblasDaxpy_64 + function hipblasDaxpy_64_(handle,n,alpha,x,incx,y,incy) bind(c, name="hipblasDaxpy_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDaxpy_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + end function + + module procedure hipblasDaxpy_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDaxpy_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDaxpy_64_rank_0,& + hipblasDaxpy_64_rank_1 +#endif +#endif + end interface + + interface hipblasCaxpy_64 + function hipblasCaxpy_64_(handle,n,alpha,x,incx,y,incy) bind(c, name="hipblasCaxpy_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCaxpy_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + end function + + module procedure hipblasCaxpy_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCaxpy_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCaxpy_64_rank_0,& + hipblasCaxpy_64_rank_1 +#endif +#endif + end interface + + interface hipblasZaxpy_64 + function hipblasZaxpy_64_(handle,n,alpha,x,incx,y,incy) bind(c, name="hipblasZaxpy_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZaxpy_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + end function + + module procedure hipblasZaxpy_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZaxpy_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZaxpy_64_rank_0,& + hipblasZaxpy_64_rank_1 +#endif +#endif + end interface + + interface hipblasHaxpyBatched + function hipblasHaxpyBatched_(handle,n,alpha,x,incx,y,incy,batchCount) & + bind(c, name="hipblasHaxpyBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasHaxpyBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int),value :: batchCount + end function + end interface + + interface hipblasSaxpyBatched + function hipblasSaxpyBatched_(handle,n,alpha,x,incx,y,incy,batchCount) & + bind(c, name="hipblasSaxpyBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSaxpyBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int),value :: batchCount + end function + + module procedure hipblasSaxpyBatched_typed + end interface + + interface hipblasDaxpyBatched + function hipblasDaxpyBatched_(handle,n,alpha,x,incx,y,incy,batchCount) & + bind(c, name="hipblasDaxpyBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDaxpyBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int),value :: batchCount + end function + + module procedure hipblasDaxpyBatched_typed + end interface + + interface hipblasCaxpyBatched + function hipblasCaxpyBatched_(handle,n,alpha,x,incx,y,incy,batchCount) & + bind(c, name="hipblasCaxpyBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCaxpyBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int),value :: batchCount + end function + + module procedure hipblasCaxpyBatched_typed + end interface + + interface hipblasZaxpyBatched + function hipblasZaxpyBatched_(handle,n,alpha,x,incx,y,incy,batchCount) & + bind(c, name="hipblasZaxpyBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZaxpyBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int),value :: batchCount + end function + + module procedure hipblasZaxpyBatched_typed + end interface + + interface hipblasHaxpyBatched_64 + function hipblasHaxpyBatched_64_(handle,n,alpha,x,incx,y,incy,batchCount) & + bind(c, name="hipblasHaxpyBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasHaxpyBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: batchCount + end function + end interface + + interface hipblasSaxpyBatched_64 + function hipblasSaxpyBatched_64_(handle,n,alpha,x,incx,y,incy,batchCount) & + bind(c, name="hipblasSaxpyBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSaxpyBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasSaxpyBatched_64_typed + end interface + + interface hipblasDaxpyBatched_64 + function hipblasDaxpyBatched_64_(handle,n,alpha,x,incx,y,incy,batchCount) & + bind(c, name="hipblasDaxpyBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDaxpyBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasDaxpyBatched_64_typed + end interface + + interface hipblasCaxpyBatched_64 + function hipblasCaxpyBatched_64_(handle,n,alpha,x,incx,y,incy,batchCount) & + bind(c, name="hipblasCaxpyBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCaxpyBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasCaxpyBatched_64_typed + end interface + + interface hipblasZaxpyBatched_64 + function hipblasZaxpyBatched_64_(handle,n,alpha,x,incx,y,incy,batchCount) & + bind(c, name="hipblasZaxpyBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZaxpyBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasZaxpyBatched_64_typed + end interface + + interface hipblasHaxpyStridedBatched + function hipblasHaxpyStridedBatched_(handle,n,alpha,x,incx,stridex,y,incy,stridey,batchCount) & + bind(c, name="hipblasHaxpyStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasHaxpyStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int),value :: batchCount + end function + end interface + + interface hipblasSaxpyStridedBatched + function hipblasSaxpyStridedBatched_(handle,n,alpha,x,incx,stridex,y,incy,stridey,batchCount) & + bind(c, name="hipblasSaxpyStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSaxpyStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int),value :: batchCount + end function + + module procedure hipblasSaxpyStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSaxpyStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSaxpyStridedBatched_rank_0,& + hipblasSaxpyStridedBatched_rank_1 +#endif +#endif + end interface + + interface hipblasDaxpyStridedBatched + function hipblasDaxpyStridedBatched_(handle,n,alpha,x,incx,stridex,y,incy,stridey,batchCount) & + bind(c, name="hipblasDaxpyStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDaxpyStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int),value :: batchCount + end function + + module procedure hipblasDaxpyStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDaxpyStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDaxpyStridedBatched_rank_0,& + hipblasDaxpyStridedBatched_rank_1 +#endif +#endif + end interface + + interface hipblasCaxpyStridedBatched + function hipblasCaxpyStridedBatched_(handle,n,alpha,x,incx,stridex,y,incy,stridey,batchCount) & + bind(c, name="hipblasCaxpyStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCaxpyStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int),value :: batchCount + end function + + module procedure hipblasCaxpyStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCaxpyStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCaxpyStridedBatched_rank_0,& + hipblasCaxpyStridedBatched_rank_1 +#endif +#endif + end interface + + interface hipblasZaxpyStridedBatched + function hipblasZaxpyStridedBatched_(handle,n,alpha,x,incx,stridex,y,incy,stridey,batchCount) & + bind(c, name="hipblasZaxpyStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZaxpyStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int),value :: batchCount + end function + + module procedure hipblasZaxpyStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZaxpyStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZaxpyStridedBatched_rank_0,& + hipblasZaxpyStridedBatched_rank_1 +#endif +#endif + end interface + + interface hipblasHaxpyStridedBatched_64 + function hipblasHaxpyStridedBatched_64_(handle,n,alpha,x,incx,stridex,y,incy,stridey, & + batchCount) & + bind(c, name="hipblasHaxpyStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasHaxpyStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int64_t),value :: batchCount + end function + end interface + + interface hipblasSaxpyStridedBatched_64 + function hipblasSaxpyStridedBatched_64_(handle,n,alpha,x,incx,stridex,y,incy,stridey, & + batchCount) & + bind(c, name="hipblasSaxpyStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSaxpyStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasSaxpyStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSaxpyStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSaxpyStridedBatched_64_rank_0,& + hipblasSaxpyStridedBatched_64_rank_1 +#endif +#endif + end interface + + interface hipblasDaxpyStridedBatched_64 + function hipblasDaxpyStridedBatched_64_(handle,n,alpha,x,incx,stridex,y,incy,stridey, & + batchCount) & + bind(c, name="hipblasDaxpyStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDaxpyStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasDaxpyStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDaxpyStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDaxpyStridedBatched_64_rank_0,& + hipblasDaxpyStridedBatched_64_rank_1 +#endif +#endif + end interface + + interface hipblasCaxpyStridedBatched_64 + function hipblasCaxpyStridedBatched_64_(handle,n,alpha,x,incx,stridex,y,incy,stridey, & + batchCount) & + bind(c, name="hipblasCaxpyStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCaxpyStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasCaxpyStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCaxpyStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCaxpyStridedBatched_64_rank_0,& + hipblasCaxpyStridedBatched_64_rank_1 +#endif +#endif + end interface + + interface hipblasZaxpyStridedBatched_64 + function hipblasZaxpyStridedBatched_64_(handle,n,alpha,x,incx,stridex,y,incy,stridey, & + batchCount) & + bind(c, name="hipblasZaxpyStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZaxpyStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasZaxpyStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZaxpyStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZaxpyStridedBatched_64_rank_0,& + hipblasZaxpyStridedBatched_64_rank_1 +#endif +#endif + end interface + + interface hipblasScopy + function hipblasScopy_(handle,n,x,incx,y,incy) bind(c, name="hipblasScopy") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasScopy_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasScopy_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasScopy_rank_0,& + hipblasScopy_rank_1 +#endif +#endif + end interface + + interface hipblasDcopy + function hipblasDcopy_(handle,n,x,incx,y,incy) bind(c, name="hipblasDcopy") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDcopy_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDcopy_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDcopy_rank_0,& + hipblasDcopy_rank_1 +#endif +#endif + end interface + + interface hipblasCcopy + function hipblasCcopy_(handle,n,x,incx,y,incy) bind(c, name="hipblasCcopy") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCcopy_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCcopy_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCcopy_rank_0,& + hipblasCcopy_rank_1 +#endif +#endif + end interface + + interface hipblasZcopy + function hipblasZcopy_(handle,n,x,incx,y,incy) bind(c, name="hipblasZcopy") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZcopy_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZcopy_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZcopy_rank_0,& + hipblasZcopy_rank_1 +#endif +#endif + end interface + + interface hipblasScopy_64 + function hipblasScopy_64_(handle,n,x,incx,y,incy) bind(c, name="hipblasScopy_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasScopy_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasScopy_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasScopy_64_rank_0,& + hipblasScopy_64_rank_1 +#endif +#endif + end interface + + interface hipblasDcopy_64 + function hipblasDcopy_64_(handle,n,x,incx,y,incy) bind(c, name="hipblasDcopy_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDcopy_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDcopy_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDcopy_64_rank_0,& + hipblasDcopy_64_rank_1 +#endif +#endif + end interface + + interface hipblasCcopy_64 + function hipblasCcopy_64_(handle,n,x,incx,y,incy) bind(c, name="hipblasCcopy_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCcopy_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCcopy_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCcopy_64_rank_0,& + hipblasCcopy_64_rank_1 +#endif +#endif + end interface + + interface hipblasZcopy_64 + function hipblasZcopy_64_(handle,n,x,incx,y,incy) bind(c, name="hipblasZcopy_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZcopy_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZcopy_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZcopy_64_rank_0,& + hipblasZcopy_64_rank_1 +#endif +#endif + end interface + + interface hipblasScopyBatched + function hipblasScopyBatched_(handle,n,x,incx,y,incy,batchCount) & + bind(c, name="hipblasScopyBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasScopyBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int),value :: batchCount + end function + end interface + + interface hipblasDcopyBatched + function hipblasDcopyBatched_(handle,n,x,incx,y,incy,batchCount) & + bind(c, name="hipblasDcopyBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDcopyBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int),value :: batchCount + end function + end interface + + interface hipblasCcopyBatched + function hipblasCcopyBatched_(handle,n,x,incx,y,incy,batchCount) & + bind(c, name="hipblasCcopyBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCcopyBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int),value :: batchCount + end function + end interface + + interface hipblasZcopyBatched + function hipblasZcopyBatched_(handle,n,x,incx,y,incy,batchCount) & + bind(c, name="hipblasZcopyBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZcopyBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int),value :: batchCount + end function + end interface + + interface hipblasScopyBatched_64 + function hipblasScopyBatched_64_(handle,n,x,incx,y,incy,batchCount) & + bind(c, name="hipblasScopyBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasScopyBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: batchCount + end function + end interface + + interface hipblasDcopyBatched_64 + function hipblasDcopyBatched_64_(handle,n,x,incx,y,incy,batchCount) & + bind(c, name="hipblasDcopyBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDcopyBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: batchCount + end function + end interface + + interface hipblasCcopyBatched_64 + function hipblasCcopyBatched_64_(handle,n,x,incx,y,incy,batchCount) & + bind(c, name="hipblasCcopyBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCcopyBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: batchCount + end function + end interface + + interface hipblasZcopyBatched_64 + function hipblasZcopyBatched_64_(handle,n,x,incx,y,incy,batchCount) & + bind(c, name="hipblasZcopyBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZcopyBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: batchCount + end function + end interface + + interface hipblasScopyStridedBatched + function hipblasScopyStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,batchCount) & + bind(c, name="hipblasScopyStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasScopyStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasScopyStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasScopyStridedBatched_rank_0,& + hipblasScopyStridedBatched_rank_1 +#endif +#endif + end interface + + interface hipblasDcopyStridedBatched + function hipblasDcopyStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,batchCount) & + bind(c, name="hipblasDcopyStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDcopyStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDcopyStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDcopyStridedBatched_rank_0,& + hipblasDcopyStridedBatched_rank_1 +#endif +#endif + end interface + + interface hipblasCcopyStridedBatched + function hipblasCcopyStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,batchCount) & + bind(c, name="hipblasCcopyStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCcopyStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCcopyStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCcopyStridedBatched_rank_0,& + hipblasCcopyStridedBatched_rank_1 +#endif +#endif + end interface + + interface hipblasZcopyStridedBatched + function hipblasZcopyStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,batchCount) & + bind(c, name="hipblasZcopyStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZcopyStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZcopyStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZcopyStridedBatched_rank_0,& + hipblasZcopyStridedBatched_rank_1 +#endif +#endif + end interface + + interface hipblasScopyStridedBatched_64 + function hipblasScopyStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,batchCount) & + bind(c, name="hipblasScopyStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasScopyStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int64_t),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasScopyStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasScopyStridedBatched_64_rank_0,& + hipblasScopyStridedBatched_64_rank_1 +#endif +#endif + end interface + + interface hipblasDcopyStridedBatched_64 + function hipblasDcopyStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,batchCount) & + bind(c, name="hipblasDcopyStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDcopyStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int64_t),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDcopyStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDcopyStridedBatched_64_rank_0,& + hipblasDcopyStridedBatched_64_rank_1 +#endif +#endif + end interface + + interface hipblasCcopyStridedBatched_64 + function hipblasCcopyStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,batchCount) & + bind(c, name="hipblasCcopyStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCcopyStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int64_t),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCcopyStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCcopyStridedBatched_64_rank_0,& + hipblasCcopyStridedBatched_64_rank_1 +#endif +#endif + end interface + + interface hipblasZcopyStridedBatched_64 + function hipblasZcopyStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,batchCount) & + bind(c, name="hipblasZcopyStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZcopyStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int64_t),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZcopyStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZcopyStridedBatched_64_rank_0,& + hipblasZcopyStridedBatched_64_rank_1 +#endif +#endif + end interface + + interface hipblasHdot + function hipblasHdot_(handle,n,x,incx,y,incy,myResult) bind(c, name="hipblasHdot") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasHdot_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + type(c_ptr),value :: myResult + end function + end interface + + interface hipblasBfdot + function hipblasBfdot_(handle,n,x,incx,y,incy,myResult) bind(c, name="hipblasBfdot") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasBfdot_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + type(c_ptr),value :: myResult + end function + end interface + + interface hipblasSdot + function hipblasSdot_(handle,n,x,incx,y,incy,myResult) bind(c, name="hipblasSdot") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSdot_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + type(c_ptr),value :: myResult + end function + + module procedure hipblasSdot_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasSdot_assumed_rank,& + hipblasSdot_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSdot_rank_0,& + hipblasSdot_rank_0_devptr,& + hipblasSdot_rank_1,& + hipblasSdot_rank_1_devptr +#endif +#endif + end interface + + interface hipblasDdot + function hipblasDdot_(handle,n,x,incx,y,incy,myResult) bind(c, name="hipblasDdot") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDdot_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + type(c_ptr),value :: myResult + end function + + module procedure hipblasDdot_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasDdot_assumed_rank,& + hipblasDdot_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDdot_rank_0,& + hipblasDdot_rank_0_devptr,& + hipblasDdot_rank_1,& + hipblasDdot_rank_1_devptr +#endif +#endif + end interface + + interface hipblasCdotc + function hipblasCdotc_(handle,n,x,incx,y,incy,myResult) bind(c, name="hipblasCdotc") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCdotc_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + type(c_ptr),value :: myResult + end function + + module procedure hipblasCdotc_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasCdotc_assumed_rank,& + hipblasCdotc_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCdotc_rank_0,& + hipblasCdotc_rank_0_devptr,& + hipblasCdotc_rank_1,& + hipblasCdotc_rank_1_devptr +#endif +#endif + end interface + + interface hipblasCdotu + function hipblasCdotu_(handle,n,x,incx,y,incy,myResult) bind(c, name="hipblasCdotu") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCdotu_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + type(c_ptr),value :: myResult + end function + + module procedure hipblasCdotu_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasCdotu_assumed_rank,& + hipblasCdotu_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCdotu_rank_0,& + hipblasCdotu_rank_0_devptr,& + hipblasCdotu_rank_1,& + hipblasCdotu_rank_1_devptr +#endif +#endif + end interface + + interface hipblasZdotc + function hipblasZdotc_(handle,n,x,incx,y,incy,myResult) bind(c, name="hipblasZdotc") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZdotc_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + type(c_ptr),value :: myResult + end function + + module procedure hipblasZdotc_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasZdotc_assumed_rank,& + hipblasZdotc_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZdotc_rank_0,& + hipblasZdotc_rank_0_devptr,& + hipblasZdotc_rank_1,& + hipblasZdotc_rank_1_devptr +#endif +#endif + end interface + + interface hipblasZdotu + function hipblasZdotu_(handle,n,x,incx,y,incy,myResult) bind(c, name="hipblasZdotu") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZdotu_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + type(c_ptr),value :: myResult + end function + + module procedure hipblasZdotu_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasZdotu_assumed_rank,& + hipblasZdotu_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZdotu_rank_0,& + hipblasZdotu_rank_0_devptr,& + hipblasZdotu_rank_1,& + hipblasZdotu_rank_1_devptr +#endif +#endif + end interface + + interface hipblasHdot_64 + function hipblasHdot_64_(handle,n,x,incx,y,incy,myResult) bind(c, name="hipblasHdot_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasHdot_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + type(c_ptr),value :: myResult + end function + end interface + + interface hipblasBfdot_64 + function hipblasBfdot_64_(handle,n,x,incx,y,incy,myResult) bind(c, name="hipblasBfdot_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasBfdot_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + type(c_ptr),value :: myResult + end function + end interface + + interface hipblasSdot_64 + function hipblasSdot_64_(handle,n,x,incx,y,incy,myResult) bind(c, name="hipblasSdot_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSdot_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + type(c_ptr),value :: myResult + end function + + module procedure hipblasSdot_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasSdot_64_assumed_rank,& + hipblasSdot_64_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSdot_64_rank_0,& + hipblasSdot_64_rank_0_devptr,& + hipblasSdot_64_rank_1,& + hipblasSdot_64_rank_1_devptr +#endif +#endif + end interface + + interface hipblasDdot_64 + function hipblasDdot_64_(handle,n,x,incx,y,incy,myResult) bind(c, name="hipblasDdot_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDdot_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + type(c_ptr),value :: myResult + end function + + module procedure hipblasDdot_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasDdot_64_assumed_rank,& + hipblasDdot_64_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDdot_64_rank_0,& + hipblasDdot_64_rank_0_devptr,& + hipblasDdot_64_rank_1,& + hipblasDdot_64_rank_1_devptr +#endif +#endif + end interface + + interface hipblasCdotc_64 + function hipblasCdotc_64_(handle,n,x,incx,y,incy,myResult) bind(c, name="hipblasCdotc_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCdotc_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + type(c_ptr),value :: myResult + end function + + module procedure hipblasCdotc_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasCdotc_64_assumed_rank,& + hipblasCdotc_64_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCdotc_64_rank_0,& + hipblasCdotc_64_rank_0_devptr,& + hipblasCdotc_64_rank_1,& + hipblasCdotc_64_rank_1_devptr +#endif +#endif + end interface + + interface hipblasCdotu_64 + function hipblasCdotu_64_(handle,n,x,incx,y,incy,myResult) bind(c, name="hipblasCdotu_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCdotu_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + type(c_ptr),value :: myResult + end function + + module procedure hipblasCdotu_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasCdotu_64_assumed_rank,& + hipblasCdotu_64_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCdotu_64_rank_0,& + hipblasCdotu_64_rank_0_devptr,& + hipblasCdotu_64_rank_1,& + hipblasCdotu_64_rank_1_devptr +#endif +#endif + end interface + + interface hipblasZdotc_64 + function hipblasZdotc_64_(handle,n,x,incx,y,incy,myResult) bind(c, name="hipblasZdotc_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZdotc_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + type(c_ptr),value :: myResult + end function + + module procedure hipblasZdotc_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasZdotc_64_assumed_rank,& + hipblasZdotc_64_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZdotc_64_rank_0,& + hipblasZdotc_64_rank_0_devptr,& + hipblasZdotc_64_rank_1,& + hipblasZdotc_64_rank_1_devptr +#endif +#endif + end interface + + interface hipblasZdotu_64 + function hipblasZdotu_64_(handle,n,x,incx,y,incy,myResult) bind(c, name="hipblasZdotu_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZdotu_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + type(c_ptr),value :: myResult + end function + + module procedure hipblasZdotu_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasZdotu_64_assumed_rank,& + hipblasZdotu_64_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZdotu_64_rank_0,& + hipblasZdotu_64_rank_0_devptr,& + hipblasZdotu_64_rank_1,& + hipblasZdotu_64_rank_1_devptr +#endif +#endif + end interface + + interface hipblasHdotBatched + function hipblasHdotBatched_(handle,n,x,incx,y,incy,batchCount,myResult) & + bind(c, name="hipblasHdotBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasHdotBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int),value :: batchCount + type(c_ptr),value :: myResult + end function + end interface + + interface hipblasBfdotBatched + function hipblasBfdotBatched_(handle,n,x,incx,y,incy,batchCount,myResult) & + bind(c, name="hipblasBfdotBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasBfdotBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int),value :: batchCount + type(c_ptr),value :: myResult + end function + end interface + + interface hipblasSdotBatched + function hipblasSdotBatched_(handle,n,x,incx,y,incy,batchCount,myResult) & + bind(c, name="hipblasSdotBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSdotBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int),value :: batchCount + type(c_ptr),value :: myResult + end function + end interface + + interface hipblasDdotBatched + function hipblasDdotBatched_(handle,n,x,incx,y,incy,batchCount,myResult) & + bind(c, name="hipblasDdotBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDdotBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int),value :: batchCount + type(c_ptr),value :: myResult + end function + end interface + + interface hipblasCdotcBatched + function hipblasCdotcBatched_(handle,n,x,incx,y,incy,batchCount,myResult) & + bind(c, name="hipblasCdotcBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCdotcBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int),value :: batchCount + type(c_ptr),value :: myResult + end function + end interface + + interface hipblasCdotuBatched + function hipblasCdotuBatched_(handle,n,x,incx,y,incy,batchCount,myResult) & + bind(c, name="hipblasCdotuBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCdotuBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int),value :: batchCount + type(c_ptr),value :: myResult + end function + end interface + + interface hipblasZdotcBatched + function hipblasZdotcBatched_(handle,n,x,incx,y,incy,batchCount,myResult) & + bind(c, name="hipblasZdotcBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZdotcBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int),value :: batchCount + type(c_ptr),value :: myResult + end function + end interface + + interface hipblasZdotuBatched + function hipblasZdotuBatched_(handle,n,x,incx,y,incy,batchCount,myResult) & + bind(c, name="hipblasZdotuBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZdotuBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int),value :: batchCount + type(c_ptr),value :: myResult + end function + end interface + + interface hipblasHdotBatched_64 + function hipblasHdotBatched_64_(handle,n,x,incx,y,incy,batchCount,myResult) & + bind(c, name="hipblasHdotBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasHdotBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: batchCount + type(c_ptr),value :: myResult + end function + end interface + + interface hipblasBfdotBatched_64 + function hipblasBfdotBatched_64_(handle,n,x,incx,y,incy,batchCount,myResult) & + bind(c, name="hipblasBfdotBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasBfdotBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: batchCount + type(c_ptr),value :: myResult + end function + end interface + + interface hipblasSdotBatched_64 + function hipblasSdotBatched_64_(handle,n,x,incx,y,incy,batchCount,myResult) & + bind(c, name="hipblasSdotBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSdotBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: batchCount + type(c_ptr),value :: myResult + end function + end interface + + interface hipblasDdotBatched_64 + function hipblasDdotBatched_64_(handle,n,x,incx,y,incy,batchCount,myResult) & + bind(c, name="hipblasDdotBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDdotBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: batchCount + type(c_ptr),value :: myResult + end function + end interface + + interface hipblasCdotcBatched_64 + function hipblasCdotcBatched_64_(handle,n,x,incx,y,incy,batchCount,myResult) & + bind(c, name="hipblasCdotcBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCdotcBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: batchCount + type(c_ptr),value :: myResult + end function + end interface + + interface hipblasCdotuBatched_64 + function hipblasCdotuBatched_64_(handle,n,x,incx,y,incy,batchCount,myResult) & + bind(c, name="hipblasCdotuBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCdotuBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: batchCount + type(c_ptr),value :: myResult + end function + end interface + + interface hipblasZdotcBatched_64 + function hipblasZdotcBatched_64_(handle,n,x,incx,y,incy,batchCount,myResult) & + bind(c, name="hipblasZdotcBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZdotcBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: batchCount + type(c_ptr),value :: myResult + end function + end interface + + interface hipblasZdotuBatched_64 + function hipblasZdotuBatched_64_(handle,n,x,incx,y,incy,batchCount,myResult) & + bind(c, name="hipblasZdotuBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZdotuBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: batchCount + type(c_ptr),value :: myResult + end function + end interface + + interface hipblasHdotStridedBatched + function hipblasHdotStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,batchCount, & + myResult) & + bind(c, name="hipblasHdotStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasHdotStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int),value :: batchCount + type(c_ptr),value :: myResult + end function + end interface + + interface hipblasBfdotStridedBatched + function hipblasBfdotStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,batchCount, & + myResult) & + bind(c, name="hipblasBfdotStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasBfdotStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int),value :: batchCount + type(c_ptr),value :: myResult + end function + end interface + + interface hipblasSdotStridedBatched + function hipblasSdotStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,batchCount, & + myResult) & + bind(c, name="hipblasSdotStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSdotStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int),value :: batchCount + type(c_ptr),value :: myResult + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSdotStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSdotStridedBatched_rank_0,& + hipblasSdotStridedBatched_rank_1 +#endif +#endif + end interface + + interface hipblasDdotStridedBatched + function hipblasDdotStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,batchCount, & + myResult) & + bind(c, name="hipblasDdotStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDdotStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int),value :: batchCount + type(c_ptr),value :: myResult + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDdotStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDdotStridedBatched_rank_0,& + hipblasDdotStridedBatched_rank_1 +#endif +#endif + end interface + + interface hipblasCdotcStridedBatched + function hipblasCdotcStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,batchCount, & + myResult) & + bind(c, name="hipblasCdotcStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCdotcStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int),value :: batchCount + type(c_ptr),value :: myResult + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCdotcStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCdotcStridedBatched_rank_0,& + hipblasCdotcStridedBatched_rank_1 +#endif +#endif + end interface + + interface hipblasCdotuStridedBatched + function hipblasCdotuStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,batchCount, & + myResult) & + bind(c, name="hipblasCdotuStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCdotuStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int),value :: batchCount + type(c_ptr),value :: myResult + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCdotuStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCdotuStridedBatched_rank_0,& + hipblasCdotuStridedBatched_rank_1 +#endif +#endif + end interface + + interface hipblasZdotcStridedBatched + function hipblasZdotcStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,batchCount, & + myResult) & + bind(c, name="hipblasZdotcStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZdotcStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int),value :: batchCount + type(c_ptr),value :: myResult + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZdotcStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZdotcStridedBatched_rank_0,& + hipblasZdotcStridedBatched_rank_1 +#endif +#endif + end interface + + interface hipblasZdotuStridedBatched + function hipblasZdotuStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,batchCount, & + myResult) & + bind(c, name="hipblasZdotuStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZdotuStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int),value :: batchCount + type(c_ptr),value :: myResult + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZdotuStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZdotuStridedBatched_rank_0,& + hipblasZdotuStridedBatched_rank_1 +#endif +#endif + end interface + + interface hipblasHdotStridedBatched_64 + function hipblasHdotStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,batchCount, & + myResult) & + bind(c, name="hipblasHdotStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasHdotStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int64_t),value :: batchCount + type(c_ptr),value :: myResult + end function + end interface + + interface hipblasBfdotStridedBatched_64 + function hipblasBfdotStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,batchCount, & + myResult) & + bind(c, name="hipblasBfdotStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasBfdotStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int64_t),value :: batchCount + type(c_ptr),value :: myResult + end function + end interface + + interface hipblasSdotStridedBatched_64 + function hipblasSdotStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,batchCount, & + myResult) & + bind(c, name="hipblasSdotStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSdotStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int64_t),value :: batchCount + type(c_ptr),value :: myResult + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSdotStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSdotStridedBatched_64_rank_0,& + hipblasSdotStridedBatched_64_rank_1 +#endif +#endif + end interface + + interface hipblasDdotStridedBatched_64 + function hipblasDdotStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,batchCount, & + myResult) & + bind(c, name="hipblasDdotStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDdotStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int64_t),value :: batchCount + type(c_ptr),value :: myResult + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDdotStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDdotStridedBatched_64_rank_0,& + hipblasDdotStridedBatched_64_rank_1 +#endif +#endif + end interface + + interface hipblasCdotcStridedBatched_64 + function hipblasCdotcStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,batchCount, & + myResult) & + bind(c, name="hipblasCdotcStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCdotcStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int64_t),value :: batchCount + type(c_ptr),value :: myResult + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCdotcStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCdotcStridedBatched_64_rank_0,& + hipblasCdotcStridedBatched_64_rank_1 +#endif +#endif + end interface + + interface hipblasCdotuStridedBatched_64 + function hipblasCdotuStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,batchCount, & + myResult) & + bind(c, name="hipblasCdotuStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCdotuStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int64_t),value :: batchCount + type(c_ptr),value :: myResult + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCdotuStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCdotuStridedBatched_64_rank_0,& + hipblasCdotuStridedBatched_64_rank_1 +#endif +#endif + end interface + + interface hipblasZdotcStridedBatched_64 + function hipblasZdotcStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,batchCount, & + myResult) & + bind(c, name="hipblasZdotcStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZdotcStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int64_t),value :: batchCount + type(c_ptr),value :: myResult + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZdotcStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZdotcStridedBatched_64_rank_0,& + hipblasZdotcStridedBatched_64_rank_1 +#endif +#endif + end interface + + interface hipblasZdotuStridedBatched_64 + function hipblasZdotuStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,batchCount, & + myResult) & + bind(c, name="hipblasZdotuStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZdotuStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int64_t),value :: batchCount + type(c_ptr),value :: myResult + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZdotuStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZdotuStridedBatched_64_rank_0,& + hipblasZdotuStridedBatched_64_rank_1 +#endif +#endif + end interface + + interface hipblasSnrm2 + function hipblasSnrm2_(handle,n,x,incx,myResult) bind(c, name="hipblasSnrm2") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSnrm2_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: myResult + end function + + module procedure hipblasSnrm2_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasSnrm2_assumed_rank,& + hipblasSnrm2_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSnrm2_rank_0,& + hipblasSnrm2_rank_0_devptr,& + hipblasSnrm2_rank_1,& + hipblasSnrm2_rank_1_devptr +#endif +#endif + end interface + + interface hipblasDnrm2 + function hipblasDnrm2_(handle,n,x,incx,myResult) bind(c, name="hipblasDnrm2") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDnrm2_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: myResult + end function + + module procedure hipblasDnrm2_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasDnrm2_assumed_rank,& + hipblasDnrm2_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDnrm2_rank_0,& + hipblasDnrm2_rank_0_devptr,& + hipblasDnrm2_rank_1,& + hipblasDnrm2_rank_1_devptr +#endif +#endif + end interface + + interface hipblasScnrm2 + function hipblasScnrm2_(handle,n,x,incx,myResult) bind(c, name="hipblasScnrm2") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasScnrm2_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: myResult + end function + + module procedure hipblasScnrm2_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasScnrm2_assumed_rank,& + hipblasScnrm2_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasScnrm2_rank_0,& + hipblasScnrm2_rank_0_devptr,& + hipblasScnrm2_rank_1,& + hipblasScnrm2_rank_1_devptr +#endif +#endif + end interface + + interface hipblasDznrm2 + function hipblasDznrm2_(handle,n,x,incx,myResult) bind(c, name="hipblasDznrm2") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDznrm2_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: myResult + end function + + module procedure hipblasDznrm2_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasDznrm2_assumed_rank,& + hipblasDznrm2_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDznrm2_rank_0,& + hipblasDznrm2_rank_0_devptr,& + hipblasDznrm2_rank_1,& + hipblasDznrm2_rank_1_devptr +#endif +#endif + end interface + + interface hipblasSnrm2_64 + function hipblasSnrm2_64_(handle,n,x,incx,myResult) bind(c, name="hipblasSnrm2_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSnrm2_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: myResult + end function + + module procedure hipblasSnrm2_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasSnrm2_64_assumed_rank,& + hipblasSnrm2_64_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSnrm2_64_rank_0,& + hipblasSnrm2_64_rank_0_devptr,& + hipblasSnrm2_64_rank_1,& + hipblasSnrm2_64_rank_1_devptr +#endif +#endif + end interface + + interface hipblasDnrm2_64 + function hipblasDnrm2_64_(handle,n,x,incx,myResult) bind(c, name="hipblasDnrm2_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDnrm2_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: myResult + end function + + module procedure hipblasDnrm2_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasDnrm2_64_assumed_rank,& + hipblasDnrm2_64_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDnrm2_64_rank_0,& + hipblasDnrm2_64_rank_0_devptr,& + hipblasDnrm2_64_rank_1,& + hipblasDnrm2_64_rank_1_devptr +#endif +#endif + end interface + + interface hipblasScnrm2_64 + function hipblasScnrm2_64_(handle,n,x,incx,myResult) bind(c, name="hipblasScnrm2_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasScnrm2_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: myResult + end function + + module procedure hipblasScnrm2_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasScnrm2_64_assumed_rank,& + hipblasScnrm2_64_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasScnrm2_64_rank_0,& + hipblasScnrm2_64_rank_0_devptr,& + hipblasScnrm2_64_rank_1,& + hipblasScnrm2_64_rank_1_devptr +#endif +#endif + end interface + + interface hipblasDznrm2_64 + function hipblasDznrm2_64_(handle,n,x,incx,myResult) bind(c, name="hipblasDznrm2_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDznrm2_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: myResult + end function + + module procedure hipblasDznrm2_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasDznrm2_64_assumed_rank,& + hipblasDznrm2_64_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDznrm2_64_rank_0,& + hipblasDznrm2_64_rank_0_devptr,& + hipblasDznrm2_64_rank_1,& + hipblasDznrm2_64_rank_1_devptr +#endif +#endif + end interface + + interface hipblasSnrm2Batched + function hipblasSnrm2Batched_(handle,n,x,incx,batchCount,myResult) & + bind(c, name="hipblasSnrm2Batched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSnrm2Batched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int),value :: batchCount + type(c_ptr),value :: myResult + end function + end interface + + interface hipblasDnrm2Batched + function hipblasDnrm2Batched_(handle,n,x,incx,batchCount,myResult) & + bind(c, name="hipblasDnrm2Batched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDnrm2Batched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int),value :: batchCount + type(c_ptr),value :: myResult + end function + end interface + + interface hipblasScnrm2Batched + function hipblasScnrm2Batched_(handle,n,x,incx,batchCount,myResult) & + bind(c, name="hipblasScnrm2Batched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasScnrm2Batched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int),value :: batchCount + type(c_ptr),value :: myResult + end function + end interface + + interface hipblasDznrm2Batched + function hipblasDznrm2Batched_(handle,n,x,incx,batchCount,myResult) & + bind(c, name="hipblasDznrm2Batched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDznrm2Batched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int),value :: batchCount + type(c_ptr),value :: myResult + end function + end interface + + interface hipblasSnrm2Batched_64 + function hipblasSnrm2Batched_64_(handle,n,x,incx,batchCount,myResult) & + bind(c, name="hipblasSnrm2Batched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSnrm2Batched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: batchCount + type(c_ptr),value :: myResult + end function + end interface + + interface hipblasDnrm2Batched_64 + function hipblasDnrm2Batched_64_(handle,n,x,incx,batchCount,myResult) & + bind(c, name="hipblasDnrm2Batched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDnrm2Batched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: batchCount + type(c_ptr),value :: myResult + end function + end interface + + interface hipblasScnrm2Batched_64 + function hipblasScnrm2Batched_64_(handle,n,x,incx,batchCount,myResult) & + bind(c, name="hipblasScnrm2Batched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasScnrm2Batched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: batchCount + type(c_ptr),value :: myResult + end function + end interface + + interface hipblasDznrm2Batched_64 + function hipblasDznrm2Batched_64_(handle,n,x,incx,batchCount,myResult) & + bind(c, name="hipblasDznrm2Batched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDznrm2Batched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: batchCount + type(c_ptr),value :: myResult + end function + end interface + + interface hipblasSnrm2StridedBatched + function hipblasSnrm2StridedBatched_(handle,n,x,incx,stridex,batchCount,myResult) & + bind(c, name="hipblasSnrm2StridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSnrm2StridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int),value :: batchCount + type(c_ptr),value :: myResult + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSnrm2StridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSnrm2StridedBatched_rank_0,& + hipblasSnrm2StridedBatched_rank_1 +#endif +#endif + end interface + + interface hipblasDnrm2StridedBatched + function hipblasDnrm2StridedBatched_(handle,n,x,incx,stridex,batchCount,myResult) & + bind(c, name="hipblasDnrm2StridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDnrm2StridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int),value :: batchCount + type(c_ptr),value :: myResult + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDnrm2StridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDnrm2StridedBatched_rank_0,& + hipblasDnrm2StridedBatched_rank_1 +#endif +#endif + end interface + + interface hipblasScnrm2StridedBatched + function hipblasScnrm2StridedBatched_(handle,n,x,incx,stridex,batchCount,myResult) & + bind(c, name="hipblasScnrm2StridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasScnrm2StridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int),value :: batchCount + type(c_ptr),value :: myResult + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasScnrm2StridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasScnrm2StridedBatched_rank_0,& + hipblasScnrm2StridedBatched_rank_1 +#endif +#endif + end interface + + interface hipblasDznrm2StridedBatched + function hipblasDznrm2StridedBatched_(handle,n,x,incx,stridex,batchCount,myResult) & + bind(c, name="hipblasDznrm2StridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDznrm2StridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int),value :: batchCount + type(c_ptr),value :: myResult + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDznrm2StridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDznrm2StridedBatched_rank_0,& + hipblasDznrm2StridedBatched_rank_1 +#endif +#endif + end interface + + interface hipblasSnrm2StridedBatched_64 + function hipblasSnrm2StridedBatched_64_(handle,n,x,incx,stridex,batchCount,myResult) & + bind(c, name="hipblasSnrm2StridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSnrm2StridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int64_t),value :: batchCount + type(c_ptr),value :: myResult + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSnrm2StridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSnrm2StridedBatched_64_rank_0,& + hipblasSnrm2StridedBatched_64_rank_1 +#endif +#endif + end interface + + interface hipblasDnrm2StridedBatched_64 + function hipblasDnrm2StridedBatched_64_(handle,n,x,incx,stridex,batchCount,myResult) & + bind(c, name="hipblasDnrm2StridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDnrm2StridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int64_t),value :: batchCount + type(c_ptr),value :: myResult + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDnrm2StridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDnrm2StridedBatched_64_rank_0,& + hipblasDnrm2StridedBatched_64_rank_1 +#endif +#endif + end interface + + interface hipblasScnrm2StridedBatched_64 + function hipblasScnrm2StridedBatched_64_(handle,n,x,incx,stridex,batchCount,myResult) & + bind(c, name="hipblasScnrm2StridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasScnrm2StridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int64_t),value :: batchCount + type(c_ptr),value :: myResult + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasScnrm2StridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasScnrm2StridedBatched_64_rank_0,& + hipblasScnrm2StridedBatched_64_rank_1 +#endif +#endif + end interface + + interface hipblasDznrm2StridedBatched_64 + function hipblasDznrm2StridedBatched_64_(handle,n,x,incx,stridex,batchCount,myResult) & + bind(c, name="hipblasDznrm2StridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDznrm2StridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int64_t),value :: batchCount + type(c_ptr),value :: myResult + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDznrm2StridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDznrm2StridedBatched_64_rank_0,& + hipblasDznrm2StridedBatched_64_rank_1 +#endif +#endif + end interface + + interface hipblasSrot + function hipblasSrot_(handle,n,x,incx,y,incy,c,s) bind(c, name="hipblasSrot") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSrot_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + end function + + module procedure hipblasSrot_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasSrot_assumed_rank,& + hipblasSrot_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSrot_rank_0,& + hipblasSrot_rank_0_devptr,& + hipblasSrot_rank_1,& + hipblasSrot_rank_1_devptr +#endif +#endif + end interface + + interface hipblasDrot + function hipblasDrot_(handle,n,x,incx,y,incy,c,s) bind(c, name="hipblasDrot") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDrot_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + end function + + module procedure hipblasDrot_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasDrot_assumed_rank,& + hipblasDrot_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDrot_rank_0,& + hipblasDrot_rank_0_devptr,& + hipblasDrot_rank_1,& + hipblasDrot_rank_1_devptr +#endif +#endif + end interface + + interface hipblasCrot + function hipblasCrot_(handle,n,x,incx,y,incy,c,s) bind(c, name="hipblasCrot") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCrot_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + end function + + module procedure hipblasCrot_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasCrot_assumed_rank,& + hipblasCrot_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCrot_rank_0,& + hipblasCrot_rank_0_devptr,& + hipblasCrot_rank_1,& + hipblasCrot_rank_1_devptr +#endif +#endif + end interface + + interface hipblasCsrot + function hipblasCsrot_(handle,n,x,incx,y,incy,c,s) bind(c, name="hipblasCsrot") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCsrot_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + end function + + module procedure hipblasCsrot_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasCsrot_assumed_rank,& + hipblasCsrot_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCsrot_rank_0,& + hipblasCsrot_rank_0_devptr,& + hipblasCsrot_rank_1,& + hipblasCsrot_rank_1_devptr +#endif +#endif + end interface + + interface hipblasZrot + function hipblasZrot_(handle,n,x,incx,y,incy,c,s) bind(c, name="hipblasZrot") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZrot_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + end function + + module procedure hipblasZrot_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasZrot_assumed_rank,& + hipblasZrot_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZrot_rank_0,& + hipblasZrot_rank_0_devptr,& + hipblasZrot_rank_1,& + hipblasZrot_rank_1_devptr +#endif +#endif + end interface + + interface hipblasZdrot + function hipblasZdrot_(handle,n,x,incx,y,incy,c,s) bind(c, name="hipblasZdrot") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZdrot_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + end function + + module procedure hipblasZdrot_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasZdrot_assumed_rank,& + hipblasZdrot_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZdrot_rank_0,& + hipblasZdrot_rank_0_devptr,& + hipblasZdrot_rank_1,& + hipblasZdrot_rank_1_devptr +#endif +#endif + end interface + + interface hipblasSrot_64 + function hipblasSrot_64_(handle,n,x,incx,y,incy,c,s) bind(c, name="hipblasSrot_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSrot_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + end function + + module procedure hipblasSrot_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasSrot_64_assumed_rank,& + hipblasSrot_64_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSrot_64_rank_0,& + hipblasSrot_64_rank_0_devptr,& + hipblasSrot_64_rank_1,& + hipblasSrot_64_rank_1_devptr +#endif +#endif + end interface + + interface hipblasDrot_64 + function hipblasDrot_64_(handle,n,x,incx,y,incy,c,s) bind(c, name="hipblasDrot_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDrot_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + end function + + module procedure hipblasDrot_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasDrot_64_assumed_rank,& + hipblasDrot_64_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDrot_64_rank_0,& + hipblasDrot_64_rank_0_devptr,& + hipblasDrot_64_rank_1,& + hipblasDrot_64_rank_1_devptr +#endif +#endif + end interface + + interface hipblasCrot_64 + function hipblasCrot_64_(handle,n,x,incx,y,incy,c,s) bind(c, name="hipblasCrot_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCrot_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + end function + + module procedure hipblasCrot_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasCrot_64_assumed_rank,& + hipblasCrot_64_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCrot_64_rank_0,& + hipblasCrot_64_rank_0_devptr,& + hipblasCrot_64_rank_1,& + hipblasCrot_64_rank_1_devptr +#endif +#endif + end interface + + interface hipblasCsrot_64 + function hipblasCsrot_64_(handle,n,x,incx,y,incy,c,s) bind(c, name="hipblasCsrot_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCsrot_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + end function + + module procedure hipblasCsrot_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasCsrot_64_assumed_rank,& + hipblasCsrot_64_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCsrot_64_rank_0,& + hipblasCsrot_64_rank_0_devptr,& + hipblasCsrot_64_rank_1,& + hipblasCsrot_64_rank_1_devptr +#endif +#endif + end interface + + interface hipblasZrot_64 + function hipblasZrot_64_(handle,n,x,incx,y,incy,c,s) bind(c, name="hipblasZrot_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZrot_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + end function + + module procedure hipblasZrot_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasZrot_64_assumed_rank,& + hipblasZrot_64_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZrot_64_rank_0,& + hipblasZrot_64_rank_0_devptr,& + hipblasZrot_64_rank_1,& + hipblasZrot_64_rank_1_devptr +#endif +#endif + end interface + + interface hipblasZdrot_64 + function hipblasZdrot_64_(handle,n,x,incx,y,incy,c,s) bind(c, name="hipblasZdrot_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZdrot_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + end function + + module procedure hipblasZdrot_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasZdrot_64_assumed_rank,& + hipblasZdrot_64_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZdrot_64_rank_0,& + hipblasZdrot_64_rank_0_devptr,& + hipblasZdrot_64_rank_1,& + hipblasZdrot_64_rank_1_devptr +#endif +#endif + end interface + + interface hipblasSrotBatched + function hipblasSrotBatched_(handle,n,x,incx,y,incy,c,s,batchCount) & + bind(c, name="hipblasSrotBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSrotBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int),value :: batchCount + end function + end interface + + interface hipblasDrotBatched + function hipblasDrotBatched_(handle,n,x,incx,y,incy,c,s,batchCount) & + bind(c, name="hipblasDrotBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDrotBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int),value :: batchCount + end function + end interface + + interface hipblasCrotBatched + function hipblasCrotBatched_(handle,n,x,incx,y,incy,c,s,batchCount) & + bind(c, name="hipblasCrotBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCrotBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int),value :: batchCount + end function + end interface + + interface hipblasCsrotBatched + function hipblasCsrotBatched_(handle,n,x,incx,y,incy,c,s,batchCount) & + bind(c, name="hipblasCsrotBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCsrotBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int),value :: batchCount + end function + end interface + + interface hipblasZrotBatched + function hipblasZrotBatched_(handle,n,x,incx,y,incy,c,s,batchCount) & + bind(c, name="hipblasZrotBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZrotBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int),value :: batchCount + end function + end interface + + interface hipblasZdrotBatched + function hipblasZdrotBatched_(handle,n,x,incx,y,incy,c,s,batchCount) & + bind(c, name="hipblasZdrotBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZdrotBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int),value :: batchCount + end function + end interface + + interface hipblasSrotBatched_64 + function hipblasSrotBatched_64_(handle,n,x,incx,y,incy,c,s,batchCount) & + bind(c, name="hipblasSrotBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSrotBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int64_t),value :: batchCount + end function + end interface + + interface hipblasDrotBatched_64 + function hipblasDrotBatched_64_(handle,n,x,incx,y,incy,c,s,batchCount) & + bind(c, name="hipblasDrotBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDrotBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int64_t),value :: batchCount + end function + end interface + + interface hipblasCrotBatched_64 + function hipblasCrotBatched_64_(handle,n,x,incx,y,incy,c,s,batchCount) & + bind(c, name="hipblasCrotBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCrotBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int64_t),value :: batchCount + end function + end interface + + interface hipblasCsrotBatched_64 + function hipblasCsrotBatched_64_(handle,n,x,incx,y,incy,c,s,batchCount) & + bind(c, name="hipblasCsrotBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCsrotBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int64_t),value :: batchCount + end function + end interface + + interface hipblasZrotBatched_64 + function hipblasZrotBatched_64_(handle,n,x,incx,y,incy,c,s,batchCount) & + bind(c, name="hipblasZrotBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZrotBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int64_t),value :: batchCount + end function + end interface + + interface hipblasZdrotBatched_64 + function hipblasZdrotBatched_64_(handle,n,x,incx,y,incy,c,s,batchCount) & + bind(c, name="hipblasZdrotBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZdrotBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int64_t),value :: batchCount + end function + end interface + + interface hipblasSrotStridedBatched + function hipblasSrotStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,c,s,batchCount) & + bind(c, name="hipblasSrotStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSrotStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int64_t),value :: stridey + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSrotStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSrotStridedBatched_rank_0,& + hipblasSrotStridedBatched_rank_1 +#endif +#endif + end interface + + interface hipblasDrotStridedBatched + function hipblasDrotStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,c,s,batchCount) & + bind(c, name="hipblasDrotStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDrotStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int64_t),value :: stridey + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDrotStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDrotStridedBatched_rank_0,& + hipblasDrotStridedBatched_rank_1 +#endif +#endif + end interface + + interface hipblasCrotStridedBatched + function hipblasCrotStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,c,s,batchCount) & + bind(c, name="hipblasCrotStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCrotStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int64_t),value :: stridey + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCrotStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCrotStridedBatched_rank_0,& + hipblasCrotStridedBatched_rank_1 +#endif +#endif + end interface + + interface hipblasCsrotStridedBatched + function hipblasCsrotStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,c,s,batchCount) & + bind(c, name="hipblasCsrotStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCsrotStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int64_t),value :: stridey + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCsrotStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCsrotStridedBatched_rank_0,& + hipblasCsrotStridedBatched_rank_1 +#endif +#endif + end interface + + interface hipblasZrotStridedBatched + function hipblasZrotStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,c,s,batchCount) & + bind(c, name="hipblasZrotStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZrotStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int64_t),value :: stridey + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZrotStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZrotStridedBatched_rank_0,& + hipblasZrotStridedBatched_rank_1 +#endif +#endif + end interface + + interface hipblasZdrotStridedBatched + function hipblasZdrotStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,c,s,batchCount) & + bind(c, name="hipblasZdrotStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZdrotStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int64_t),value :: stridey + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZdrotStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZdrotStridedBatched_rank_0,& + hipblasZdrotStridedBatched_rank_1 +#endif +#endif + end interface + + interface hipblasSrotStridedBatched_64 + function hipblasSrotStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,c,s,batchCount) & + bind(c, name="hipblasSrotStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSrotStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: stridey + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int64_t),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSrotStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSrotStridedBatched_64_rank_0,& + hipblasSrotStridedBatched_64_rank_1 +#endif +#endif + end interface + + interface hipblasDrotStridedBatched_64 + function hipblasDrotStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,c,s,batchCount) & + bind(c, name="hipblasDrotStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDrotStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: stridey + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int64_t),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDrotStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDrotStridedBatched_64_rank_0,& + hipblasDrotStridedBatched_64_rank_1 +#endif +#endif + end interface + + interface hipblasCrotStridedBatched_64 + function hipblasCrotStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,c,s,batchCount) & + bind(c, name="hipblasCrotStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCrotStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: stridey + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int64_t),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCrotStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCrotStridedBatched_64_rank_0,& + hipblasCrotStridedBatched_64_rank_1 +#endif +#endif + end interface + + interface hipblasCsrotStridedBatched_64 + function hipblasCsrotStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,c,s,batchCount) & + bind(c, name="hipblasCsrotStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCsrotStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: stridey + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int64_t),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCsrotStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCsrotStridedBatched_64_rank_0,& + hipblasCsrotStridedBatched_64_rank_1 +#endif +#endif + end interface + + interface hipblasZrotStridedBatched_64 + function hipblasZrotStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,c,s,batchCount) & + bind(c, name="hipblasZrotStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZrotStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: stridey + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int64_t),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZrotStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZrotStridedBatched_64_rank_0,& + hipblasZrotStridedBatched_64_rank_1 +#endif +#endif + end interface + + interface hipblasZdrotStridedBatched_64 + function hipblasZdrotStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,c,s,batchCount) & + bind(c, name="hipblasZdrotStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZdrotStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: stridey + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int64_t),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZdrotStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZdrotStridedBatched_64_rank_0,& + hipblasZdrotStridedBatched_64_rank_1 +#endif +#endif + end interface + + interface hipblasSrotg + function hipblasSrotg_(handle,a,b,c,s) bind(c, name="hipblasSrotg") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSrotg_ + type(c_ptr),value :: handle + type(c_ptr),value :: a + type(c_ptr),value :: b + type(c_ptr),value :: c + type(c_ptr),value :: s + end function + + module procedure hipblasSrotg_typed + end interface + + interface hipblasDrotg + function hipblasDrotg_(handle,a,b,c,s) bind(c, name="hipblasDrotg") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDrotg_ + type(c_ptr),value :: handle + type(c_ptr),value :: a + type(c_ptr),value :: b + type(c_ptr),value :: c + type(c_ptr),value :: s + end function + + module procedure hipblasDrotg_typed + end interface + + interface hipblasCrotg + function hipblasCrotg_(handle,a,b,c,s) bind(c, name="hipblasCrotg") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCrotg_ + type(c_ptr),value :: handle + type(c_ptr),value :: a + type(c_ptr),value :: b + type(c_ptr),value :: c + type(c_ptr),value :: s + end function + + module procedure hipblasCrotg_typed + end interface + + interface hipblasZrotg + function hipblasZrotg_(handle,a,b,c,s) bind(c, name="hipblasZrotg") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZrotg_ + type(c_ptr),value :: handle + type(c_ptr),value :: a + type(c_ptr),value :: b + type(c_ptr),value :: c + type(c_ptr),value :: s + end function + + module procedure hipblasZrotg_typed + end interface + + interface hipblasSrotg_64 + function hipblasSrotg_64_(handle,a,b,c,s) bind(c, name="hipblasSrotg_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSrotg_64_ + type(c_ptr),value :: handle + type(c_ptr),value :: a + type(c_ptr),value :: b + type(c_ptr),value :: c + type(c_ptr),value :: s + end function + + module procedure hipblasSrotg_64_typed + end interface + + interface hipblasDrotg_64 + function hipblasDrotg_64_(handle,a,b,c,s) bind(c, name="hipblasDrotg_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDrotg_64_ + type(c_ptr),value :: handle + type(c_ptr),value :: a + type(c_ptr),value :: b + type(c_ptr),value :: c + type(c_ptr),value :: s + end function + + module procedure hipblasDrotg_64_typed + end interface + + interface hipblasCrotg_64 + function hipblasCrotg_64_(handle,a,b,c,s) bind(c, name="hipblasCrotg_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCrotg_64_ + type(c_ptr),value :: handle + type(c_ptr),value :: a + type(c_ptr),value :: b + type(c_ptr),value :: c + type(c_ptr),value :: s + end function + + module procedure hipblasCrotg_64_typed + end interface + + interface hipblasZrotg_64 + function hipblasZrotg_64_(handle,a,b,c,s) bind(c, name="hipblasZrotg_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZrotg_64_ + type(c_ptr),value :: handle + type(c_ptr),value :: a + type(c_ptr),value :: b + type(c_ptr),value :: c + type(c_ptr),value :: s + end function + + module procedure hipblasZrotg_64_typed + end interface + + interface hipblasSrotgBatched + function hipblasSrotgBatched_(handle,a,b,c,s,batchCount) bind(c, name="hipblasSrotgBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSrotgBatched_ + type(c_ptr),value :: handle + type(c_ptr),value :: a + type(c_ptr),value :: b + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int),value :: batchCount + end function + end interface + + interface hipblasDrotgBatched + function hipblasDrotgBatched_(handle,a,b,c,s,batchCount) bind(c, name="hipblasDrotgBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDrotgBatched_ + type(c_ptr),value :: handle + type(c_ptr),value :: a + type(c_ptr),value :: b + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int),value :: batchCount + end function + end interface + + interface hipblasCrotgBatched + function hipblasCrotgBatched_(handle,a,b,c,s,batchCount) bind(c, name="hipblasCrotgBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCrotgBatched_ + type(c_ptr),value :: handle + type(c_ptr),value :: a + type(c_ptr),value :: b + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int),value :: batchCount + end function + end interface + + interface hipblasZrotgBatched + function hipblasZrotgBatched_(handle,a,b,c,s,batchCount) bind(c, name="hipblasZrotgBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZrotgBatched_ + type(c_ptr),value :: handle + type(c_ptr),value :: a + type(c_ptr),value :: b + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int),value :: batchCount + end function + end interface + + interface hipblasSrotgBatched_64 + function hipblasSrotgBatched_64_(handle,a,b,c,s,batchCount) & + bind(c, name="hipblasSrotgBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSrotgBatched_64_ + type(c_ptr),value :: handle + type(c_ptr),value :: a + type(c_ptr),value :: b + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int64_t),value :: batchCount + end function + end interface + + interface hipblasDrotgBatched_64 + function hipblasDrotgBatched_64_(handle,a,b,c,s,batchCount) & + bind(c, name="hipblasDrotgBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDrotgBatched_64_ + type(c_ptr),value :: handle + type(c_ptr),value :: a + type(c_ptr),value :: b + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int64_t),value :: batchCount + end function + end interface + + interface hipblasCrotgBatched_64 + function hipblasCrotgBatched_64_(handle,a,b,c,s,batchCount) & + bind(c, name="hipblasCrotgBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCrotgBatched_64_ + type(c_ptr),value :: handle + type(c_ptr),value :: a + type(c_ptr),value :: b + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int64_t),value :: batchCount + end function + end interface + + interface hipblasZrotgBatched_64 + function hipblasZrotgBatched_64_(handle,a,b,c,s,batchCount) & + bind(c, name="hipblasZrotgBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZrotgBatched_64_ + type(c_ptr),value :: handle + type(c_ptr),value :: a + type(c_ptr),value :: b + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int64_t),value :: batchCount + end function + end interface + + interface hipblasSrotgStridedBatched + function hipblasSrotgStridedBatched_(handle,a,stridea,b,strideb,c,stridec,s,strides, & + batchCount) & + bind(c, name="hipblasSrotgStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSrotgStridedBatched_ + type(c_ptr),value :: handle + type(c_ptr),value :: a + integer(c_int64_t),value :: stridea + type(c_ptr),value :: b + integer(c_int64_t),value :: strideb + type(c_ptr),value :: c + integer(c_int64_t),value :: stridec + type(c_ptr),value :: s + integer(c_int64_t),value :: strides + integer(c_int),value :: batchCount + end function + end interface + + interface hipblasDrotgStridedBatched + function hipblasDrotgStridedBatched_(handle,a,stridea,b,strideb,c,stridec,s,strides, & + batchCount) & + bind(c, name="hipblasDrotgStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDrotgStridedBatched_ + type(c_ptr),value :: handle + type(c_ptr),value :: a + integer(c_int64_t),value :: stridea + type(c_ptr),value :: b + integer(c_int64_t),value :: strideb + type(c_ptr),value :: c + integer(c_int64_t),value :: stridec + type(c_ptr),value :: s + integer(c_int64_t),value :: strides + integer(c_int),value :: batchCount + end function + end interface + + interface hipblasCrotgStridedBatched + function hipblasCrotgStridedBatched_(handle,a,stridea,b,strideb,c,stridec,s,strides, & + batchCount) & + bind(c, name="hipblasCrotgStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCrotgStridedBatched_ + type(c_ptr),value :: handle + type(c_ptr),value :: a + integer(c_int64_t),value :: stridea + type(c_ptr),value :: b + integer(c_int64_t),value :: strideb + type(c_ptr),value :: c + integer(c_int64_t),value :: stridec + type(c_ptr),value :: s + integer(c_int64_t),value :: strides + integer(c_int),value :: batchCount + end function + end interface + + interface hipblasZrotgStridedBatched + function hipblasZrotgStridedBatched_(handle,a,stridea,b,strideb,c,stridec,s,strides, & + batchCount) & + bind(c, name="hipblasZrotgStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZrotgStridedBatched_ + type(c_ptr),value :: handle + type(c_ptr),value :: a + integer(c_int64_t),value :: stridea + type(c_ptr),value :: b + integer(c_int64_t),value :: strideb + type(c_ptr),value :: c + integer(c_int64_t),value :: stridec + type(c_ptr),value :: s + integer(c_int64_t),value :: strides + integer(c_int),value :: batchCount + end function + end interface + + interface hipblasSrotgStridedBatched_64 + function hipblasSrotgStridedBatched_64_(handle,a,stridea,b,strideb,c,stridec,s,strides, & + batchCount) & + bind(c, name="hipblasSrotgStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSrotgStridedBatched_64_ + type(c_ptr),value :: handle + type(c_ptr),value :: a + integer(c_int64_t),value :: stridea + type(c_ptr),value :: b + integer(c_int64_t),value :: strideb + type(c_ptr),value :: c + integer(c_int64_t),value :: stridec + type(c_ptr),value :: s + integer(c_int64_t),value :: strides + integer(c_int64_t),value :: batchCount + end function + end interface + + interface hipblasDrotgStridedBatched_64 + function hipblasDrotgStridedBatched_64_(handle,a,stridea,b,strideb,c,stridec,s,strides, & + batchCount) & + bind(c, name="hipblasDrotgStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDrotgStridedBatched_64_ + type(c_ptr),value :: handle + type(c_ptr),value :: a + integer(c_int64_t),value :: stridea + type(c_ptr),value :: b + integer(c_int64_t),value :: strideb + type(c_ptr),value :: c + integer(c_int64_t),value :: stridec + type(c_ptr),value :: s + integer(c_int64_t),value :: strides + integer(c_int64_t),value :: batchCount + end function + end interface + + interface hipblasCrotgStridedBatched_64 + function hipblasCrotgStridedBatched_64_(handle,a,stridea,b,strideb,c,stridec,s,strides, & + batchCount) & + bind(c, name="hipblasCrotgStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCrotgStridedBatched_64_ + type(c_ptr),value :: handle + type(c_ptr),value :: a + integer(c_int64_t),value :: stridea + type(c_ptr),value :: b + integer(c_int64_t),value :: strideb + type(c_ptr),value :: c + integer(c_int64_t),value :: stridec + type(c_ptr),value :: s + integer(c_int64_t),value :: strides + integer(c_int64_t),value :: batchCount + end function + end interface + + interface hipblasZrotgStridedBatched_64 + function hipblasZrotgStridedBatched_64_(handle,a,stridea,b,strideb,c,stridec,s,strides, & + batchCount) & + bind(c, name="hipblasZrotgStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZrotgStridedBatched_64_ + type(c_ptr),value :: handle + type(c_ptr),value :: a + integer(c_int64_t),value :: stridea + type(c_ptr),value :: b + integer(c_int64_t),value :: strideb + type(c_ptr),value :: c + integer(c_int64_t),value :: stridec + type(c_ptr),value :: s + integer(c_int64_t),value :: strides + integer(c_int64_t),value :: batchCount + end function + end interface + + interface hipblasSrotm + function hipblasSrotm_(handle,n,x,incx,y,incy,param) bind(c, name="hipblasSrotm") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSrotm_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + type(c_ptr),value :: param + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSrotm_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSrotm_rank_0,& + hipblasSrotm_rank_1 +#endif +#endif + end interface + + interface hipblasDrotm + function hipblasDrotm_(handle,n,x,incx,y,incy,param) bind(c, name="hipblasDrotm") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDrotm_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + type(c_ptr),value :: param + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDrotm_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDrotm_rank_0,& + hipblasDrotm_rank_1 +#endif +#endif + end interface + + interface hipblasSrotm_64 + function hipblasSrotm_64_(handle,n,x,incx,y,incy,param) bind(c, name="hipblasSrotm_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSrotm_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + type(c_ptr),value :: param + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSrotm_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSrotm_64_rank_0,& + hipblasSrotm_64_rank_1 +#endif +#endif + end interface + + interface hipblasDrotm_64 + function hipblasDrotm_64_(handle,n,x,incx,y,incy,param) bind(c, name="hipblasDrotm_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDrotm_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + type(c_ptr),value :: param + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDrotm_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDrotm_64_rank_0,& + hipblasDrotm_64_rank_1 +#endif +#endif + end interface + + interface hipblasSrotmBatched + function hipblasSrotmBatched_(handle,n,x,incx,y,incy,param,batchCount) & + bind(c, name="hipblasSrotmBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSrotmBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + type(c_ptr),value :: param + integer(c_int),value :: batchCount + end function + end interface + + interface hipblasDrotmBatched + function hipblasDrotmBatched_(handle,n,x,incx,y,incy,param,batchCount) & + bind(c, name="hipblasDrotmBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDrotmBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + type(c_ptr),value :: param + integer(c_int),value :: batchCount + end function + end interface + + interface hipblasSrotmBatched_64 + function hipblasSrotmBatched_64_(handle,n,x,incx,y,incy,param,batchCount) & + bind(c, name="hipblasSrotmBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSrotmBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + type(c_ptr),value :: param + integer(c_int64_t),value :: batchCount + end function + end interface + + interface hipblasDrotmBatched_64 + function hipblasDrotmBatched_64_(handle,n,x,incx,y,incy,param,batchCount) & + bind(c, name="hipblasDrotmBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDrotmBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + type(c_ptr),value :: param + integer(c_int64_t),value :: batchCount + end function + end interface + + interface hipblasSrotmStridedBatched + function hipblasSrotmStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,param,strideParam, & + batchCount) & + bind(c, name="hipblasSrotmStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSrotmStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int64_t),value :: stridey + type(c_ptr),value :: param + integer(c_int64_t),value :: strideParam + integer(c_int),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSrotmStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSrotmStridedBatched_rank_0,& + hipblasSrotmStridedBatched_rank_1 +#endif +#endif + end interface + + interface hipblasDrotmStridedBatched + function hipblasDrotmStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,param,strideParam, & + batchCount) & + bind(c, name="hipblasDrotmStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDrotmStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int64_t),value :: stridey + type(c_ptr),value :: param + integer(c_int64_t),value :: strideParam + integer(c_int),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDrotmStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDrotmStridedBatched_rank_0,& + hipblasDrotmStridedBatched_rank_1 +#endif +#endif + end interface + + interface hipblasSrotmStridedBatched_64 + function hipblasSrotmStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,param, & + strideParam,batchCount) & + bind(c, name="hipblasSrotmStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSrotmStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: stridey + type(c_ptr),value :: param + integer(c_int64_t),value :: strideParam + integer(c_int64_t),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSrotmStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSrotmStridedBatched_64_rank_0,& + hipblasSrotmStridedBatched_64_rank_1 +#endif +#endif + end interface + + interface hipblasDrotmStridedBatched_64 + function hipblasDrotmStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,param, & + strideParam,batchCount) & + bind(c, name="hipblasDrotmStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDrotmStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: stridey + type(c_ptr),value :: param + integer(c_int64_t),value :: strideParam + integer(c_int64_t),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDrotmStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDrotmStridedBatched_64_rank_0,& + hipblasDrotmStridedBatched_64_rank_1 +#endif +#endif + end interface + + interface hipblasSrotmg + function hipblasSrotmg_(handle,d1,d2,x1,y1,param) bind(c, name="hipblasSrotmg") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSrotmg_ + type(c_ptr),value :: handle + type(c_ptr),value :: d1 + type(c_ptr),value :: d2 + type(c_ptr),value :: x1 + type(c_ptr),value :: y1 + type(c_ptr),value :: param + end function + + module procedure hipblasSrotmg_typed + end interface + + interface hipblasDrotmg + function hipblasDrotmg_(handle,d1,d2,x1,y1,param) bind(c, name="hipblasDrotmg") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDrotmg_ + type(c_ptr),value :: handle + type(c_ptr),value :: d1 + type(c_ptr),value :: d2 + type(c_ptr),value :: x1 + type(c_ptr),value :: y1 + type(c_ptr),value :: param + end function + + module procedure hipblasDrotmg_typed + end interface + + interface hipblasSrotmg_64 + function hipblasSrotmg_64_(handle,d1,d2,x1,y1,param) bind(c, name="hipblasSrotmg_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSrotmg_64_ + type(c_ptr),value :: handle + type(c_ptr),value :: d1 + type(c_ptr),value :: d2 + type(c_ptr),value :: x1 + type(c_ptr),value :: y1 + type(c_ptr),value :: param + end function + + module procedure hipblasSrotmg_64_typed + end interface + + interface hipblasDrotmg_64 + function hipblasDrotmg_64_(handle,d1,d2,x1,y1,param) bind(c, name="hipblasDrotmg_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDrotmg_64_ + type(c_ptr),value :: handle + type(c_ptr),value :: d1 + type(c_ptr),value :: d2 + type(c_ptr),value :: x1 + type(c_ptr),value :: y1 + type(c_ptr),value :: param + end function + + module procedure hipblasDrotmg_64_typed + end interface + + interface hipblasSrotmgBatched + function hipblasSrotmgBatched_(handle,d1,d2,x1,y1,param,batchCount) & + bind(c, name="hipblasSrotmgBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSrotmgBatched_ + type(c_ptr),value :: handle + type(c_ptr),value :: d1 + type(c_ptr),value :: d2 + type(c_ptr),value :: x1 + type(c_ptr),value :: y1 + type(c_ptr),value :: param + integer(c_int),value :: batchCount + end function + end interface + + interface hipblasDrotmgBatched + function hipblasDrotmgBatched_(handle,d1,d2,x1,y1,param,batchCount) & + bind(c, name="hipblasDrotmgBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDrotmgBatched_ + type(c_ptr),value :: handle + type(c_ptr),value :: d1 + type(c_ptr),value :: d2 + type(c_ptr),value :: x1 + type(c_ptr),value :: y1 + type(c_ptr),value :: param + integer(c_int),value :: batchCount + end function + end interface + + interface hipblasSrotmgBatched_64 + function hipblasSrotmgBatched_64_(handle,d1,d2,x1,y1,param,batchCount) & + bind(c, name="hipblasSrotmgBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSrotmgBatched_64_ + type(c_ptr),value :: handle + type(c_ptr),value :: d1 + type(c_ptr),value :: d2 + type(c_ptr),value :: x1 + type(c_ptr),value :: y1 + type(c_ptr),value :: param + integer(c_int64_t),value :: batchCount + end function + end interface + + interface hipblasDrotmgBatched_64 + function hipblasDrotmgBatched_64_(handle,d1,d2,x1,y1,param,batchCount) & + bind(c, name="hipblasDrotmgBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDrotmgBatched_64_ + type(c_ptr),value :: handle + type(c_ptr),value :: d1 + type(c_ptr),value :: d2 + type(c_ptr),value :: x1 + type(c_ptr),value :: y1 + type(c_ptr),value :: param + integer(c_int64_t),value :: batchCount + end function + end interface + + interface hipblasSrotmgStridedBatched + function hipblasSrotmgStridedBatched_(handle,d1,strided1,d2,strided2,x1,stridex1,y1,stridey1, & + param,strideParam,batchCount) & + bind(c, name="hipblasSrotmgStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSrotmgStridedBatched_ + type(c_ptr),value :: handle + type(c_ptr),value :: d1 + integer(c_int64_t),value :: strided1 + type(c_ptr),value :: d2 + integer(c_int64_t),value :: strided2 + type(c_ptr),value :: x1 + integer(c_int64_t),value :: stridex1 + type(c_ptr),value :: y1 + integer(c_int64_t),value :: stridey1 + type(c_ptr),value :: param + integer(c_int64_t),value :: strideParam + integer(c_int),value :: batchCount + end function + end interface + + interface hipblasDrotmgStridedBatched + function hipblasDrotmgStridedBatched_(handle,d1,strided1,d2,strided2,x1,stridex1,y1,stridey1, & + param,strideParam,batchCount) & + bind(c, name="hipblasDrotmgStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDrotmgStridedBatched_ + type(c_ptr),value :: handle + type(c_ptr),value :: d1 + integer(c_int64_t),value :: strided1 + type(c_ptr),value :: d2 + integer(c_int64_t),value :: strided2 + type(c_ptr),value :: x1 + integer(c_int64_t),value :: stridex1 + type(c_ptr),value :: y1 + integer(c_int64_t),value :: stridey1 + type(c_ptr),value :: param + integer(c_int64_t),value :: strideParam + integer(c_int),value :: batchCount + end function + end interface + + interface hipblasSrotmgStridedBatched_64 + function hipblasSrotmgStridedBatched_64_(handle,d1,strided1,d2,strided2,x1,stridex1,y1, & + stridey1,param,strideParam,batchCount) & + bind(c, name="hipblasSrotmgStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSrotmgStridedBatched_64_ + type(c_ptr),value :: handle + type(c_ptr),value :: d1 + integer(c_int64_t),value :: strided1 + type(c_ptr),value :: d2 + integer(c_int64_t),value :: strided2 + type(c_ptr),value :: x1 + integer(c_int64_t),value :: stridex1 + type(c_ptr),value :: y1 + integer(c_int64_t),value :: stridey1 + type(c_ptr),value :: param + integer(c_int64_t),value :: strideParam + integer(c_int64_t),value :: batchCount + end function + end interface + + interface hipblasDrotmgStridedBatched_64 + function hipblasDrotmgStridedBatched_64_(handle,d1,strided1,d2,strided2,x1,stridex1,y1, & + stridey1,param,strideParam,batchCount) & + bind(c, name="hipblasDrotmgStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDrotmgStridedBatched_64_ + type(c_ptr),value :: handle + type(c_ptr),value :: d1 + integer(c_int64_t),value :: strided1 + type(c_ptr),value :: d2 + integer(c_int64_t),value :: strided2 + type(c_ptr),value :: x1 + integer(c_int64_t),value :: stridex1 + type(c_ptr),value :: y1 + integer(c_int64_t),value :: stridey1 + type(c_ptr),value :: param + integer(c_int64_t),value :: strideParam + integer(c_int64_t),value :: batchCount + end function + end interface + + interface hipblasSscal + function hipblasSscal_(handle,n,alpha,x,incx) bind(c, name="hipblasSscal") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSscal_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + end function + + module procedure hipblasSscal_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSscal_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSscal_rank_0,& + hipblasSscal_rank_1 +#endif +#endif + end interface + + interface hipblasDscal + function hipblasDscal_(handle,n,alpha,x,incx) bind(c, name="hipblasDscal") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDscal_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + end function + + module procedure hipblasDscal_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDscal_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDscal_rank_0,& + hipblasDscal_rank_1 +#endif +#endif + end interface + + interface hipblasCscal + function hipblasCscal_(handle,n,alpha,x,incx) bind(c, name="hipblasCscal") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCscal_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + end function + + module procedure hipblasCscal_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCscal_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCscal_rank_0,& + hipblasCscal_rank_1 +#endif +#endif + end interface + + interface hipblasCsscal + function hipblasCsscal_(handle,n,alpha,x,incx) bind(c, name="hipblasCsscal") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCsscal_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + end function + + module procedure hipblasCsscal_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCsscal_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCsscal_rank_0,& + hipblasCsscal_rank_1 +#endif +#endif + end interface + + interface hipblasZscal + function hipblasZscal_(handle,n,alpha,x,incx) bind(c, name="hipblasZscal") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZscal_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + end function + + module procedure hipblasZscal_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZscal_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZscal_rank_0,& + hipblasZscal_rank_1 +#endif +#endif + end interface + + interface hipblasZdscal + function hipblasZdscal_(handle,n,alpha,x,incx) bind(c, name="hipblasZdscal") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZdscal_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + end function + + module procedure hipblasZdscal_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZdscal_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZdscal_rank_0,& + hipblasZdscal_rank_1 +#endif +#endif + end interface + + interface hipblasSscal_64 + function hipblasSscal_64_(handle,n,alpha,x,incx) bind(c, name="hipblasSscal_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSscal_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + end function + + module procedure hipblasSscal_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSscal_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSscal_64_rank_0,& + hipblasSscal_64_rank_1 +#endif +#endif + end interface + + interface hipblasDscal_64 + function hipblasDscal_64_(handle,n,alpha,x,incx) bind(c, name="hipblasDscal_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDscal_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + end function + + module procedure hipblasDscal_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDscal_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDscal_64_rank_0,& + hipblasDscal_64_rank_1 +#endif +#endif + end interface + + interface hipblasCscal_64 + function hipblasCscal_64_(handle,n,alpha,x,incx) bind(c, name="hipblasCscal_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCscal_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + end function + + module procedure hipblasCscal_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCscal_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCscal_64_rank_0,& + hipblasCscal_64_rank_1 +#endif +#endif + end interface + + interface hipblasCsscal_64 + function hipblasCsscal_64_(handle,n,alpha,x,incx) bind(c, name="hipblasCsscal_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCsscal_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + end function + + module procedure hipblasCsscal_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCsscal_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCsscal_64_rank_0,& + hipblasCsscal_64_rank_1 +#endif +#endif + end interface + + interface hipblasZscal_64 + function hipblasZscal_64_(handle,n,alpha,x,incx) bind(c, name="hipblasZscal_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZscal_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + end function + + module procedure hipblasZscal_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZscal_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZscal_64_rank_0,& + hipblasZscal_64_rank_1 +#endif +#endif + end interface + + interface hipblasZdscal_64 + function hipblasZdscal_64_(handle,n,alpha,x,incx) bind(c, name="hipblasZdscal_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZdscal_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + end function + + module procedure hipblasZdscal_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZdscal_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZdscal_64_rank_0,& + hipblasZdscal_64_rank_1 +#endif +#endif + end interface + + interface hipblasSscalBatched + function hipblasSscalBatched_(handle,n,alpha,x,incx,batchCount) & + bind(c, name="hipblasSscalBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSscalBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int),value :: batchCount + end function + + module procedure hipblasSscalBatched_typed + end interface + + interface hipblasDscalBatched + function hipblasDscalBatched_(handle,n,alpha,x,incx,batchCount) & + bind(c, name="hipblasDscalBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDscalBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int),value :: batchCount + end function + + module procedure hipblasDscalBatched_typed + end interface + + interface hipblasCscalBatched + function hipblasCscalBatched_(handle,n,alpha,x,incx,batchCount) & + bind(c, name="hipblasCscalBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCscalBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int),value :: batchCount + end function + + module procedure hipblasCscalBatched_typed + end interface + + interface hipblasZscalBatched + function hipblasZscalBatched_(handle,n,alpha,x,incx,batchCount) & + bind(c, name="hipblasZscalBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZscalBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int),value :: batchCount + end function + + module procedure hipblasZscalBatched_typed + end interface + + interface hipblasCsscalBatched + function hipblasCsscalBatched_(handle,n,alpha,x,incx,batchCount) & + bind(c, name="hipblasCsscalBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCsscalBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int),value :: batchCount + end function + + module procedure hipblasCsscalBatched_typed + end interface + + interface hipblasZdscalBatched + function hipblasZdscalBatched_(handle,n,alpha,x,incx,batchCount) & + bind(c, name="hipblasZdscalBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZdscalBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int),value :: batchCount + end function + + module procedure hipblasZdscalBatched_typed + end interface + + interface hipblasSscalBatched_64 + function hipblasSscalBatched_64_(handle,n,alpha,x,incx,batchCount) & + bind(c, name="hipblasSscalBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSscalBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasSscalBatched_64_typed + end interface + + interface hipblasDscalBatched_64 + function hipblasDscalBatched_64_(handle,n,alpha,x,incx,batchCount) & + bind(c, name="hipblasDscalBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDscalBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasDscalBatched_64_typed + end interface + + interface hipblasCscalBatched_64 + function hipblasCscalBatched_64_(handle,n,alpha,x,incx,batchCount) & + bind(c, name="hipblasCscalBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCscalBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasCscalBatched_64_typed + end interface + + interface hipblasZscalBatched_64 + function hipblasZscalBatched_64_(handle,n,alpha,x,incx,batchCount) & + bind(c, name="hipblasZscalBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZscalBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasZscalBatched_64_typed + end interface + + interface hipblasCsscalBatched_64 + function hipblasCsscalBatched_64_(handle,n,alpha,x,incx,batchCount) & + bind(c, name="hipblasCsscalBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCsscalBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasCsscalBatched_64_typed + end interface + + interface hipblasZdscalBatched_64 + function hipblasZdscalBatched_64_(handle,n,alpha,x,incx,batchCount) & + bind(c, name="hipblasZdscalBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZdscalBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasZdscalBatched_64_typed + end interface + + interface hipblasSscalStridedBatched + function hipblasSscalStridedBatched_(handle,n,alpha,x,incx,stridex,batchCount) & + bind(c, name="hipblasSscalStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSscalStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int),value :: batchCount + end function + + module procedure hipblasSscalStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSscalStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSscalStridedBatched_rank_0,& + hipblasSscalStridedBatched_rank_1 +#endif +#endif + end interface + + interface hipblasDscalStridedBatched + function hipblasDscalStridedBatched_(handle,n,alpha,x,incx,stridex,batchCount) & + bind(c, name="hipblasDscalStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDscalStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int),value :: batchCount + end function + + module procedure hipblasDscalStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDscalStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDscalStridedBatched_rank_0,& + hipblasDscalStridedBatched_rank_1 +#endif +#endif + end interface + + interface hipblasCscalStridedBatched + function hipblasCscalStridedBatched_(handle,n,alpha,x,incx,stridex,batchCount) & + bind(c, name="hipblasCscalStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCscalStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int),value :: batchCount + end function + + module procedure hipblasCscalStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCscalStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCscalStridedBatched_rank_0,& + hipblasCscalStridedBatched_rank_1 +#endif +#endif + end interface + + interface hipblasZscalStridedBatched + function hipblasZscalStridedBatched_(handle,n,alpha,x,incx,stridex,batchCount) & + bind(c, name="hipblasZscalStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZscalStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int),value :: batchCount + end function + + module procedure hipblasZscalStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZscalStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZscalStridedBatched_rank_0,& + hipblasZscalStridedBatched_rank_1 +#endif +#endif + end interface + + interface hipblasCsscalStridedBatched + function hipblasCsscalStridedBatched_(handle,n,alpha,x,incx,stridex,batchCount) & + bind(c, name="hipblasCsscalStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCsscalStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int),value :: batchCount + end function + + module procedure hipblasCsscalStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCsscalStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCsscalStridedBatched_rank_0,& + hipblasCsscalStridedBatched_rank_1 +#endif +#endif + end interface + + interface hipblasZdscalStridedBatched + function hipblasZdscalStridedBatched_(handle,n,alpha,x,incx,stridex,batchCount) & + bind(c, name="hipblasZdscalStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZdscalStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int),value :: batchCount + end function + + module procedure hipblasZdscalStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZdscalStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZdscalStridedBatched_rank_0,& + hipblasZdscalStridedBatched_rank_1 +#endif +#endif + end interface + + interface hipblasSscalStridedBatched_64 + function hipblasSscalStridedBatched_64_(handle,n,alpha,x,incx,stridex,batchCount) & + bind(c, name="hipblasSscalStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSscalStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasSscalStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSscalStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSscalStridedBatched_64_rank_0,& + hipblasSscalStridedBatched_64_rank_1 +#endif +#endif + end interface + + interface hipblasDscalStridedBatched_64 + function hipblasDscalStridedBatched_64_(handle,n,alpha,x,incx,stridex,batchCount) & + bind(c, name="hipblasDscalStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDscalStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasDscalStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDscalStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDscalStridedBatched_64_rank_0,& + hipblasDscalStridedBatched_64_rank_1 +#endif +#endif + end interface + + interface hipblasCscalStridedBatched_64 + function hipblasCscalStridedBatched_64_(handle,n,alpha,x,incx,stridex,batchCount) & + bind(c, name="hipblasCscalStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCscalStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasCscalStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCscalStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCscalStridedBatched_64_rank_0,& + hipblasCscalStridedBatched_64_rank_1 +#endif +#endif + end interface + + interface hipblasZscalStridedBatched_64 + function hipblasZscalStridedBatched_64_(handle,n,alpha,x,incx,stridex,batchCount) & + bind(c, name="hipblasZscalStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZscalStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasZscalStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZscalStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZscalStridedBatched_64_rank_0,& + hipblasZscalStridedBatched_64_rank_1 +#endif +#endif + end interface + + interface hipblasCsscalStridedBatched_64 + function hipblasCsscalStridedBatched_64_(handle,n,alpha,x,incx,stridex,batchCount) & + bind(c, name="hipblasCsscalStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCsscalStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasCsscalStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCsscalStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCsscalStridedBatched_64_rank_0,& + hipblasCsscalStridedBatched_64_rank_1 +#endif +#endif + end interface + + interface hipblasZdscalStridedBatched_64 + function hipblasZdscalStridedBatched_64_(handle,n,alpha,x,incx,stridex,batchCount) & + bind(c, name="hipblasZdscalStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZdscalStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasZdscalStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZdscalStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZdscalStridedBatched_64_rank_0,& + hipblasZdscalStridedBatched_64_rank_1 +#endif +#endif + end interface + + interface hipblasSswap + function hipblasSswap_(handle,n,x,incx,y,incy) bind(c, name="hipblasSswap") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSswap_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSswap_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSswap_rank_0,& + hipblasSswap_rank_1 +#endif +#endif + end interface + + interface hipblasDswap + function hipblasDswap_(handle,n,x,incx,y,incy) bind(c, name="hipblasDswap") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDswap_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDswap_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDswap_rank_0,& + hipblasDswap_rank_1 +#endif +#endif + end interface + + interface hipblasCswap + function hipblasCswap_(handle,n,x,incx,y,incy) bind(c, name="hipblasCswap") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCswap_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCswap_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCswap_rank_0,& + hipblasCswap_rank_1 +#endif +#endif + end interface + + interface hipblasZswap + function hipblasZswap_(handle,n,x,incx,y,incy) bind(c, name="hipblasZswap") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZswap_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZswap_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZswap_rank_0,& + hipblasZswap_rank_1 +#endif +#endif + end interface + + interface hipblasSswap_64 + function hipblasSswap_64_(handle,n,x,incx,y,incy) bind(c, name="hipblasSswap_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSswap_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSswap_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSswap_64_rank_0,& + hipblasSswap_64_rank_1 +#endif +#endif + end interface + + interface hipblasDswap_64 + function hipblasDswap_64_(handle,n,x,incx,y,incy) bind(c, name="hipblasDswap_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDswap_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDswap_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDswap_64_rank_0,& + hipblasDswap_64_rank_1 +#endif +#endif + end interface + + interface hipblasCswap_64 + function hipblasCswap_64_(handle,n,x,incx,y,incy) bind(c, name="hipblasCswap_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCswap_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCswap_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCswap_64_rank_0,& + hipblasCswap_64_rank_1 +#endif +#endif + end interface + + interface hipblasZswap_64 + function hipblasZswap_64_(handle,n,x,incx,y,incy) bind(c, name="hipblasZswap_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZswap_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZswap_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZswap_64_rank_0,& + hipblasZswap_64_rank_1 +#endif +#endif + end interface + + interface hipblasSswapBatched + function hipblasSswapBatched_(handle,n,x,incx,y,incy,batchCount) & + bind(c, name="hipblasSswapBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSswapBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int),value :: batchCount + end function + end interface + + interface hipblasDswapBatched + function hipblasDswapBatched_(handle,n,x,incx,y,incy,batchCount) & + bind(c, name="hipblasDswapBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDswapBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int),value :: batchCount + end function + end interface + + interface hipblasCswapBatched + function hipblasCswapBatched_(handle,n,x,incx,y,incy,batchCount) & + bind(c, name="hipblasCswapBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCswapBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int),value :: batchCount + end function + end interface + + interface hipblasZswapBatched + function hipblasZswapBatched_(handle,n,x,incx,y,incy,batchCount) & + bind(c, name="hipblasZswapBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZswapBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int),value :: batchCount + end function + end interface + + interface hipblasSswapBatched_64 + function hipblasSswapBatched_64_(handle,n,x,incx,y,incy,batchCount) & + bind(c, name="hipblasSswapBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSswapBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: batchCount + end function + end interface + + interface hipblasDswapBatched_64 + function hipblasDswapBatched_64_(handle,n,x,incx,y,incy,batchCount) & + bind(c, name="hipblasDswapBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDswapBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: batchCount + end function + end interface + + interface hipblasCswapBatched_64 + function hipblasCswapBatched_64_(handle,n,x,incx,y,incy,batchCount) & + bind(c, name="hipblasCswapBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCswapBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: batchCount + end function + end interface + + interface hipblasZswapBatched_64 + function hipblasZswapBatched_64_(handle,n,x,incx,y,incy,batchCount) & + bind(c, name="hipblasZswapBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZswapBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: batchCount + end function + end interface + + interface hipblasSswapStridedBatched + function hipblasSswapStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,batchCount) & + bind(c, name="hipblasSswapStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSswapStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSswapStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSswapStridedBatched_rank_0,& + hipblasSswapStridedBatched_rank_1 +#endif +#endif + end interface + + interface hipblasDswapStridedBatched + function hipblasDswapStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,batchCount) & + bind(c, name="hipblasDswapStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDswapStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDswapStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDswapStridedBatched_rank_0,& + hipblasDswapStridedBatched_rank_1 +#endif +#endif + end interface + + interface hipblasCswapStridedBatched + function hipblasCswapStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,batchCount) & + bind(c, name="hipblasCswapStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCswapStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCswapStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCswapStridedBatched_rank_0,& + hipblasCswapStridedBatched_rank_1 +#endif +#endif + end interface + + interface hipblasZswapStridedBatched + function hipblasZswapStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,batchCount) & + bind(c, name="hipblasZswapStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZswapStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZswapStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZswapStridedBatched_rank_0,& + hipblasZswapStridedBatched_rank_1 +#endif +#endif + end interface + + interface hipblasSswapStridedBatched_64 + function hipblasSswapStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,batchCount) & + bind(c, name="hipblasSswapStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSswapStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int64_t),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSswapStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSswapStridedBatched_64_rank_0,& + hipblasSswapStridedBatched_64_rank_1 +#endif +#endif + end interface + + interface hipblasDswapStridedBatched_64 + function hipblasDswapStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,batchCount) & + bind(c, name="hipblasDswapStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDswapStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int64_t),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDswapStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDswapStridedBatched_64_rank_0,& + hipblasDswapStridedBatched_64_rank_1 +#endif +#endif + end interface + + interface hipblasCswapStridedBatched_64 + function hipblasCswapStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,batchCount) & + bind(c, name="hipblasCswapStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCswapStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int64_t),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCswapStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCswapStridedBatched_64_rank_0,& + hipblasCswapStridedBatched_64_rank_1 +#endif +#endif + end interface + + interface hipblasZswapStridedBatched_64 + function hipblasZswapStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,batchCount) & + bind(c, name="hipblasZswapStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZswapStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int64_t),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZswapStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZswapStridedBatched_64_rank_0,& + hipblasZswapStridedBatched_64_rank_1 +#endif +#endif + end interface + + interface hipblasSgbmv + function hipblasSgbmv_(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) & + bind(c, name="hipblasSgbmv") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSgbmv_ + type(c_ptr),value :: handle + integer(c_int),value :: trans + integer(c_int),value :: m + integer(c_int),value :: n + integer(c_int),value :: kl + integer(c_int),value :: ku + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int),value :: incy + end function + + module procedure hipblasSgbmv_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSgbmv_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSgbmv_rank_0,& + hipblasSgbmv_rank_1,& + hipblasSgbmv_full_rank +#endif +#endif + end interface + + interface hipblasDgbmv + function hipblasDgbmv_(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) & + bind(c, name="hipblasDgbmv") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDgbmv_ + type(c_ptr),value :: handle + integer(c_int),value :: trans + integer(c_int),value :: m + integer(c_int),value :: n + integer(c_int),value :: kl + integer(c_int),value :: ku + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int),value :: incy + end function + + module procedure hipblasDgbmv_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDgbmv_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDgbmv_rank_0,& + hipblasDgbmv_rank_1,& + hipblasDgbmv_full_rank +#endif +#endif + end interface + + interface hipblasCgbmv + function hipblasCgbmv_(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) & + bind(c, name="hipblasCgbmv") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCgbmv_ + type(c_ptr),value :: handle + integer(c_int),value :: trans + integer(c_int),value :: m + integer(c_int),value :: n + integer(c_int),value :: kl + integer(c_int),value :: ku + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int),value :: incy + end function + + module procedure hipblasCgbmv_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCgbmv_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCgbmv_rank_0,& + hipblasCgbmv_rank_1,& + hipblasCgbmv_full_rank +#endif +#endif + end interface + + interface hipblasZgbmv + function hipblasZgbmv_(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) & + bind(c, name="hipblasZgbmv") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZgbmv_ + type(c_ptr),value :: handle + integer(c_int),value :: trans + integer(c_int),value :: m + integer(c_int),value :: n + integer(c_int),value :: kl + integer(c_int),value :: ku + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int),value :: incy + end function + + module procedure hipblasZgbmv_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZgbmv_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZgbmv_rank_0,& + hipblasZgbmv_rank_1,& + hipblasZgbmv_full_rank +#endif +#endif + end interface + + interface hipblasSgbmv_64 + function hipblasSgbmv_64_(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) & + bind(c, name="hipblasSgbmv_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSgbmv_64_ + type(c_ptr),value :: handle + integer(c_int),value :: trans + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + integer(c_int64_t),value :: kl + integer(c_int64_t),value :: ku + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + end function + + module procedure hipblasSgbmv_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSgbmv_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSgbmv_64_rank_0,& + hipblasSgbmv_64_rank_1,& + hipblasSgbmv_64_full_rank +#endif +#endif + end interface + + interface hipblasDgbmv_64 + function hipblasDgbmv_64_(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) & + bind(c, name="hipblasDgbmv_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDgbmv_64_ + type(c_ptr),value :: handle + integer(c_int),value :: trans + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + integer(c_int64_t),value :: kl + integer(c_int64_t),value :: ku + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + end function + + module procedure hipblasDgbmv_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDgbmv_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDgbmv_64_rank_0,& + hipblasDgbmv_64_rank_1,& + hipblasDgbmv_64_full_rank +#endif +#endif + end interface + + interface hipblasCgbmv_64 + function hipblasCgbmv_64_(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) & + bind(c, name="hipblasCgbmv_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCgbmv_64_ + type(c_ptr),value :: handle + integer(c_int),value :: trans + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + integer(c_int64_t),value :: kl + integer(c_int64_t),value :: ku + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + end function + + module procedure hipblasCgbmv_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCgbmv_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCgbmv_64_rank_0,& + hipblasCgbmv_64_rank_1,& + hipblasCgbmv_64_full_rank +#endif +#endif + end interface + + interface hipblasZgbmv_64 + function hipblasZgbmv_64_(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) & + bind(c, name="hipblasZgbmv_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZgbmv_64_ + type(c_ptr),value :: handle + integer(c_int),value :: trans + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + integer(c_int64_t),value :: kl + integer(c_int64_t),value :: ku + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + end function + + module procedure hipblasZgbmv_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZgbmv_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZgbmv_64_rank_0,& + hipblasZgbmv_64_rank_1,& + hipblasZgbmv_64_full_rank +#endif +#endif + end interface + + interface hipblasSgbmvBatched + function hipblasSgbmvBatched_(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy, & + batchCount) & + bind(c, name="hipblasSgbmvBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSgbmvBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: trans + integer(c_int),value :: m + integer(c_int),value :: n + integer(c_int),value :: kl + integer(c_int),value :: ku + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int),value :: batchCount + end function + + module procedure hipblasSgbmvBatched_typed + end interface + + interface hipblasDgbmvBatched + function hipblasDgbmvBatched_(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy, & + batchCount) & + bind(c, name="hipblasDgbmvBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDgbmvBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: trans + integer(c_int),value :: m + integer(c_int),value :: n + integer(c_int),value :: kl + integer(c_int),value :: ku + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int),value :: batchCount + end function + + module procedure hipblasDgbmvBatched_typed + end interface + + interface hipblasCgbmvBatched + function hipblasCgbmvBatched_(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy, & + batchCount) & + bind(c, name="hipblasCgbmvBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCgbmvBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: trans + integer(c_int),value :: m + integer(c_int),value :: n + integer(c_int),value :: kl + integer(c_int),value :: ku + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int),value :: batchCount + end function + + module procedure hipblasCgbmvBatched_typed + end interface + + interface hipblasZgbmvBatched + function hipblasZgbmvBatched_(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy, & + batchCount) & + bind(c, name="hipblasZgbmvBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZgbmvBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: trans + integer(c_int),value :: m + integer(c_int),value :: n + integer(c_int),value :: kl + integer(c_int),value :: ku + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int),value :: batchCount + end function + + module procedure hipblasZgbmvBatched_typed + end interface + + interface hipblasSgbmvBatched_64 + function hipblasSgbmvBatched_64_(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy, & + batchCount) & + bind(c, name="hipblasSgbmvBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSgbmvBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: trans + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + integer(c_int64_t),value :: kl + integer(c_int64_t),value :: ku + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasSgbmvBatched_64_typed + end interface + + interface hipblasDgbmvBatched_64 + function hipblasDgbmvBatched_64_(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy, & + batchCount) & + bind(c, name="hipblasDgbmvBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDgbmvBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: trans + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + integer(c_int64_t),value :: kl + integer(c_int64_t),value :: ku + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasDgbmvBatched_64_typed + end interface + + interface hipblasCgbmvBatched_64 + function hipblasCgbmvBatched_64_(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy, & + batchCount) & + bind(c, name="hipblasCgbmvBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCgbmvBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: trans + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + integer(c_int64_t),value :: kl + integer(c_int64_t),value :: ku + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasCgbmvBatched_64_typed + end interface + + interface hipblasZgbmvBatched_64 + function hipblasZgbmvBatched_64_(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy, & + batchCount) & + bind(c, name="hipblasZgbmvBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZgbmvBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: trans + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + integer(c_int64_t),value :: kl + integer(c_int64_t),value :: ku + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasZgbmvBatched_64_typed + end interface + + interface hipblasSgbmvStridedBatched + function hipblasSgbmvStridedBatched_(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) & + bind(c, name="hipblasSgbmvStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSgbmvStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: trans + integer(c_int),value :: m + integer(c_int),value :: n + integer(c_int),value :: kl + integer(c_int),value :: ku + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int),value :: batchCount + end function + + module procedure hipblasSgbmvStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSgbmvStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSgbmvStridedBatched_rank_0,& + hipblasSgbmvStridedBatched_rank_1,& + hipblasSgbmvStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasDgbmvStridedBatched + function hipblasDgbmvStridedBatched_(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) & + bind(c, name="hipblasDgbmvStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDgbmvStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: trans + integer(c_int),value :: m + integer(c_int),value :: n + integer(c_int),value :: kl + integer(c_int),value :: ku + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int),value :: batchCount + end function + + module procedure hipblasDgbmvStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDgbmvStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDgbmvStridedBatched_rank_0,& + hipblasDgbmvStridedBatched_rank_1,& + hipblasDgbmvStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasCgbmvStridedBatched + function hipblasCgbmvStridedBatched_(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) & + bind(c, name="hipblasCgbmvStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCgbmvStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: trans + integer(c_int),value :: m + integer(c_int),value :: n + integer(c_int),value :: kl + integer(c_int),value :: ku + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int),value :: batchCount + end function + + module procedure hipblasCgbmvStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCgbmvStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCgbmvStridedBatched_rank_0,& + hipblasCgbmvStridedBatched_rank_1,& + hipblasCgbmvStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasZgbmvStridedBatched + function hipblasZgbmvStridedBatched_(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) & + bind(c, name="hipblasZgbmvStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZgbmvStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: trans + integer(c_int),value :: m + integer(c_int),value :: n + integer(c_int),value :: kl + integer(c_int),value :: ku + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int),value :: batchCount + end function + + module procedure hipblasZgbmvStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZgbmvStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZgbmvStridedBatched_rank_0,& + hipblasZgbmvStridedBatched_rank_1,& + hipblasZgbmvStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasSgbmvStridedBatched_64 + function hipblasSgbmvStridedBatched_64_(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) & + bind(c, name="hipblasSgbmvStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSgbmvStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: trans + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + integer(c_int64_t),value :: kl + integer(c_int64_t),value :: ku + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasSgbmvStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSgbmvStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSgbmvStridedBatched_64_rank_0,& + hipblasSgbmvStridedBatched_64_rank_1,& + hipblasSgbmvStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasDgbmvStridedBatched_64 + function hipblasDgbmvStridedBatched_64_(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) & + bind(c, name="hipblasDgbmvStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDgbmvStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: trans + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + integer(c_int64_t),value :: kl + integer(c_int64_t),value :: ku + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasDgbmvStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDgbmvStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDgbmvStridedBatched_64_rank_0,& + hipblasDgbmvStridedBatched_64_rank_1,& + hipblasDgbmvStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasCgbmvStridedBatched_64 + function hipblasCgbmvStridedBatched_64_(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) & + bind(c, name="hipblasCgbmvStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCgbmvStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: trans + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + integer(c_int64_t),value :: kl + integer(c_int64_t),value :: ku + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasCgbmvStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCgbmvStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCgbmvStridedBatched_64_rank_0,& + hipblasCgbmvStridedBatched_64_rank_1,& + hipblasCgbmvStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasZgbmvStridedBatched_64 + function hipblasZgbmvStridedBatched_64_(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) & + bind(c, name="hipblasZgbmvStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZgbmvStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: trans + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + integer(c_int64_t),value :: kl + integer(c_int64_t),value :: ku + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasZgbmvStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZgbmvStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZgbmvStridedBatched_64_rank_0,& + hipblasZgbmvStridedBatched_64_rank_1,& + hipblasZgbmvStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasSgemv + function hipblasSgemv_(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) & + bind(c, name="hipblasSgemv") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSgemv_ + type(c_ptr),value :: handle + integer(c_int),value :: trans + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int),value :: incy + end function + + module procedure hipblasSgemv_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSgemv_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSgemv_rank_0,& + hipblasSgemv_rank_1,& + hipblasSgemv_full_rank +#endif +#endif + end interface + + interface hipblasDgemv + function hipblasDgemv_(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) & + bind(c, name="hipblasDgemv") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDgemv_ + type(c_ptr),value :: handle + integer(c_int),value :: trans + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int),value :: incy + end function + + module procedure hipblasDgemv_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDgemv_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDgemv_rank_0,& + hipblasDgemv_rank_1,& + hipblasDgemv_full_rank +#endif +#endif + end interface + + interface hipblasCgemv + function hipblasCgemv_(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) & + bind(c, name="hipblasCgemv") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCgemv_ + type(c_ptr),value :: handle + integer(c_int),value :: trans + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int),value :: incy + end function + + module procedure hipblasCgemv_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCgemv_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCgemv_rank_0,& + hipblasCgemv_rank_1,& + hipblasCgemv_full_rank +#endif +#endif + end interface + + interface hipblasZgemv + function hipblasZgemv_(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) & + bind(c, name="hipblasZgemv") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZgemv_ + type(c_ptr),value :: handle + integer(c_int),value :: trans + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int),value :: incy + end function + + module procedure hipblasZgemv_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZgemv_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZgemv_rank_0,& + hipblasZgemv_rank_1,& + hipblasZgemv_full_rank +#endif +#endif + end interface + + interface hipblasSgemv_64 + function hipblasSgemv_64_(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) & + bind(c, name="hipblasSgemv_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSgemv_64_ + type(c_ptr),value :: handle + integer(c_int),value :: trans + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + end function + + module procedure hipblasSgemv_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSgemv_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSgemv_64_rank_0,& + hipblasSgemv_64_rank_1,& + hipblasSgemv_64_full_rank +#endif +#endif + end interface + + interface hipblasDgemv_64 + function hipblasDgemv_64_(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) & + bind(c, name="hipblasDgemv_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDgemv_64_ + type(c_ptr),value :: handle + integer(c_int),value :: trans + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + end function + + module procedure hipblasDgemv_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDgemv_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDgemv_64_rank_0,& + hipblasDgemv_64_rank_1,& + hipblasDgemv_64_full_rank +#endif +#endif + end interface + + interface hipblasCgemv_64 + function hipblasCgemv_64_(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) & + bind(c, name="hipblasCgemv_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCgemv_64_ + type(c_ptr),value :: handle + integer(c_int),value :: trans + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + end function + + module procedure hipblasCgemv_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCgemv_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCgemv_64_rank_0,& + hipblasCgemv_64_rank_1,& + hipblasCgemv_64_full_rank +#endif +#endif + end interface + + interface hipblasZgemv_64 + function hipblasZgemv_64_(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) & + bind(c, name="hipblasZgemv_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZgemv_64_ + type(c_ptr),value :: handle + integer(c_int),value :: trans + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + end function + + module procedure hipblasZgemv_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZgemv_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZgemv_64_rank_0,& + hipblasZgemv_64_rank_1,& + hipblasZgemv_64_full_rank +#endif +#endif + end interface + + interface hipblasSgemvBatched + function hipblasSgemvBatched_(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy,batchCount) & + bind(c, name="hipblasSgemvBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSgemvBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: trans + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int),value :: batchCount + end function + + module procedure hipblasSgemvBatched_typed + end interface + + interface hipblasDgemvBatched + function hipblasDgemvBatched_(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy,batchCount) & + bind(c, name="hipblasDgemvBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDgemvBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: trans + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int),value :: batchCount + end function + + module procedure hipblasDgemvBatched_typed + end interface + + interface hipblasCgemvBatched + function hipblasCgemvBatched_(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy,batchCount) & + bind(c, name="hipblasCgemvBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCgemvBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: trans + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int),value :: batchCount + end function + + module procedure hipblasCgemvBatched_typed + end interface + + interface hipblasZgemvBatched + function hipblasZgemvBatched_(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy,batchCount) & + bind(c, name="hipblasZgemvBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZgemvBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: trans + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int),value :: batchCount + end function + + module procedure hipblasZgemvBatched_typed + end interface + + interface hipblasSgemvBatched_64 + function hipblasSgemvBatched_64_(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy,batchCount) & + bind(c, name="hipblasSgemvBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSgemvBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: trans + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasSgemvBatched_64_typed + end interface + + interface hipblasDgemvBatched_64 + function hipblasDgemvBatched_64_(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy,batchCount) & + bind(c, name="hipblasDgemvBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDgemvBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: trans + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasDgemvBatched_64_typed + end interface + + interface hipblasCgemvBatched_64 + function hipblasCgemvBatched_64_(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy,batchCount) & + bind(c, name="hipblasCgemvBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCgemvBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: trans + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasCgemvBatched_64_typed + end interface + + interface hipblasZgemvBatched_64 + function hipblasZgemvBatched_64_(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy,batchCount) & + bind(c, name="hipblasZgemvBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZgemvBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: trans + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasZgemvBatched_64_typed + end interface + + interface hipblasSgemvStridedBatched + function hipblasSgemvStridedBatched_(handle,transA,m,n,alpha,AP,lda,strideA,x,incx,stridex, & + beta,y,incy,stridey,batchCount) & + bind(c, name="hipblasSgemvStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSgemvStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: transA + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int),value :: batchCount + end function + + module procedure hipblasSgemvStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSgemvStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSgemvStridedBatched_rank_0,& + hipblasSgemvStridedBatched_rank_1,& + hipblasSgemvStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasDgemvStridedBatched + function hipblasDgemvStridedBatched_(handle,transA,m,n,alpha,AP,lda,strideA,x,incx,stridex, & + beta,y,incy,stridey,batchCount) & + bind(c, name="hipblasDgemvStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDgemvStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: transA + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int),value :: batchCount + end function + + module procedure hipblasDgemvStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDgemvStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDgemvStridedBatched_rank_0,& + hipblasDgemvStridedBatched_rank_1,& + hipblasDgemvStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasCgemvStridedBatched + function hipblasCgemvStridedBatched_(handle,transA,m,n,alpha,AP,lda,strideA,x,incx,stridex, & + beta,y,incy,stridey,batchCount) & + bind(c, name="hipblasCgemvStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCgemvStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: transA + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int),value :: batchCount + end function + + module procedure hipblasCgemvStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCgemvStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCgemvStridedBatched_rank_0,& + hipblasCgemvStridedBatched_rank_1,& + hipblasCgemvStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasZgemvStridedBatched + function hipblasZgemvStridedBatched_(handle,transA,m,n,alpha,AP,lda,strideA,x,incx,stridex, & + beta,y,incy,stridey,batchCount) & + bind(c, name="hipblasZgemvStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZgemvStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: transA + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int),value :: batchCount + end function + + module procedure hipblasZgemvStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZgemvStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZgemvStridedBatched_rank_0,& + hipblasZgemvStridedBatched_rank_1,& + hipblasZgemvStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasSgemvStridedBatched_64 + function hipblasSgemvStridedBatched_64_(handle,transA,m,n,alpha,AP,lda,strideA,x,incx,stridex, & + beta,y,incy,stridey,batchCount) & + bind(c, name="hipblasSgemvStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSgemvStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: transA + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasSgemvStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSgemvStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSgemvStridedBatched_64_rank_0,& + hipblasSgemvStridedBatched_64_rank_1,& + hipblasSgemvStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasDgemvStridedBatched_64 + function hipblasDgemvStridedBatched_64_(handle,transA,m,n,alpha,AP,lda,strideA,x,incx,stridex, & + beta,y,incy,stridey,batchCount) & + bind(c, name="hipblasDgemvStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDgemvStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: transA + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasDgemvStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDgemvStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDgemvStridedBatched_64_rank_0,& + hipblasDgemvStridedBatched_64_rank_1,& + hipblasDgemvStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasCgemvStridedBatched_64 + function hipblasCgemvStridedBatched_64_(handle,transA,m,n,alpha,AP,lda,strideA,x,incx,stridex, & + beta,y,incy,stridey,batchCount) & + bind(c, name="hipblasCgemvStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCgemvStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: transA + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasCgemvStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCgemvStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCgemvStridedBatched_64_rank_0,& + hipblasCgemvStridedBatched_64_rank_1,& + hipblasCgemvStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasZgemvStridedBatched_64 + function hipblasZgemvStridedBatched_64_(handle,transA,m,n,alpha,AP,lda,strideA,x,incx,stridex, & + beta,y,incy,stridey,batchCount) & + bind(c, name="hipblasZgemvStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZgemvStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: transA + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasZgemvStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZgemvStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZgemvStridedBatched_64_rank_0,& + hipblasZgemvStridedBatched_64_rank_1,& + hipblasZgemvStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasSger + function hipblasSger_(handle,m,n,alpha,x,incx,y,incy,AP,lda) bind(c, name="hipblasSger") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSger_ + type(c_ptr),value :: handle + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + type(c_ptr),value :: AP + integer(c_int),value :: lda + end function + + module procedure hipblasSger_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSger_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSger_rank_0,& + hipblasSger_rank_1,& + hipblasSger_full_rank +#endif +#endif + end interface + + interface hipblasDger + function hipblasDger_(handle,m,n,alpha,x,incx,y,incy,AP,lda) bind(c, name="hipblasDger") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDger_ + type(c_ptr),value :: handle + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + type(c_ptr),value :: AP + integer(c_int),value :: lda + end function + + module procedure hipblasDger_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDger_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDger_rank_0,& + hipblasDger_rank_1,& + hipblasDger_full_rank +#endif +#endif + end interface + + interface hipblasCgeru + function hipblasCgeru_(handle,m,n,alpha,x,incx,y,incy,AP,lda) bind(c, name="hipblasCgeru") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCgeru_ + type(c_ptr),value :: handle + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + type(c_ptr),value :: AP + integer(c_int),value :: lda + end function + + module procedure hipblasCgeru_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCgeru_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCgeru_rank_0,& + hipblasCgeru_rank_1,& + hipblasCgeru_full_rank +#endif +#endif + end interface + + interface hipblasCgerc + function hipblasCgerc_(handle,m,n,alpha,x,incx,y,incy,AP,lda) bind(c, name="hipblasCgerc") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCgerc_ + type(c_ptr),value :: handle + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + type(c_ptr),value :: AP + integer(c_int),value :: lda + end function + + module procedure hipblasCgerc_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCgerc_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCgerc_rank_0,& + hipblasCgerc_rank_1,& + hipblasCgerc_full_rank +#endif +#endif + end interface + + interface hipblasZgeru + function hipblasZgeru_(handle,m,n,alpha,x,incx,y,incy,AP,lda) bind(c, name="hipblasZgeru") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZgeru_ + type(c_ptr),value :: handle + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + type(c_ptr),value :: AP + integer(c_int),value :: lda + end function + + module procedure hipblasZgeru_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZgeru_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZgeru_rank_0,& + hipblasZgeru_rank_1,& + hipblasZgeru_full_rank +#endif +#endif + end interface + + interface hipblasZgerc + function hipblasZgerc_(handle,m,n,alpha,x,incx,y,incy,AP,lda) bind(c, name="hipblasZgerc") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZgerc_ + type(c_ptr),value :: handle + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + type(c_ptr),value :: AP + integer(c_int),value :: lda + end function + + module procedure hipblasZgerc_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZgerc_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZgerc_rank_0,& + hipblasZgerc_rank_1,& + hipblasZgerc_full_rank +#endif +#endif + end interface + + interface hipblasSger_64 + function hipblasSger_64_(handle,m,n,alpha,x,incx,y,incy,AP,lda) bind(c, name="hipblasSger_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSger_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + end function + + module procedure hipblasSger_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSger_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSger_64_rank_0,& + hipblasSger_64_rank_1,& + hipblasSger_64_full_rank +#endif +#endif + end interface + + interface hipblasDger_64 + function hipblasDger_64_(handle,m,n,alpha,x,incx,y,incy,AP,lda) bind(c, name="hipblasDger_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDger_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + end function + + module procedure hipblasDger_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDger_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDger_64_rank_0,& + hipblasDger_64_rank_1,& + hipblasDger_64_full_rank +#endif +#endif + end interface + + interface hipblasCgeru_64 + function hipblasCgeru_64_(handle,m,n,alpha,x,incx,y,incy,AP,lda) bind(c, name="hipblasCgeru_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCgeru_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + end function + + module procedure hipblasCgeru_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCgeru_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCgeru_64_rank_0,& + hipblasCgeru_64_rank_1,& + hipblasCgeru_64_full_rank +#endif +#endif + end interface + + interface hipblasCgerc_64 + function hipblasCgerc_64_(handle,m,n,alpha,x,incx,y,incy,AP,lda) bind(c, name="hipblasCgerc_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCgerc_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + end function + + module procedure hipblasCgerc_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCgerc_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCgerc_64_rank_0,& + hipblasCgerc_64_rank_1,& + hipblasCgerc_64_full_rank +#endif +#endif + end interface + + interface hipblasZgeru_64 + function hipblasZgeru_64_(handle,m,n,alpha,x,incx,y,incy,AP,lda) bind(c, name="hipblasZgeru_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZgeru_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + end function + + module procedure hipblasZgeru_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZgeru_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZgeru_64_rank_0,& + hipblasZgeru_64_rank_1,& + hipblasZgeru_64_full_rank +#endif +#endif + end interface + + interface hipblasZgerc_64 + function hipblasZgerc_64_(handle,m,n,alpha,x,incx,y,incy,AP,lda) bind(c, name="hipblasZgerc_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZgerc_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + end function + + module procedure hipblasZgerc_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZgerc_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZgerc_64_rank_0,& + hipblasZgerc_64_rank_1,& + hipblasZgerc_64_full_rank +#endif +#endif + end interface + + interface hipblasSgerBatched + function hipblasSgerBatched_(handle,m,n,alpha,x,incx,y,incy,AP,lda,batchCount) & + bind(c, name="hipblasSgerBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSgerBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int),value :: batchCount + end function + + module procedure hipblasSgerBatched_typed + end interface + + interface hipblasDgerBatched + function hipblasDgerBatched_(handle,m,n,alpha,x,incx,y,incy,AP,lda,batchCount) & + bind(c, name="hipblasDgerBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDgerBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int),value :: batchCount + end function + + module procedure hipblasDgerBatched_typed + end interface + + interface hipblasCgeruBatched + function hipblasCgeruBatched_(handle,m,n,alpha,x,incx,y,incy,AP,lda,batchCount) & + bind(c, name="hipblasCgeruBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCgeruBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int),value :: batchCount + end function + + module procedure hipblasCgeruBatched_typed + end interface + + interface hipblasCgercBatched + function hipblasCgercBatched_(handle,m,n,alpha,x,incx,y,incy,AP,lda,batchCount) & + bind(c, name="hipblasCgercBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCgercBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int),value :: batchCount + end function + + module procedure hipblasCgercBatched_typed + end interface + + interface hipblasZgeruBatched + function hipblasZgeruBatched_(handle,m,n,alpha,x,incx,y,incy,AP,lda,batchCount) & + bind(c, name="hipblasZgeruBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZgeruBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int),value :: batchCount + end function + + module procedure hipblasZgeruBatched_typed + end interface + + interface hipblasZgercBatched + function hipblasZgercBatched_(handle,m,n,alpha,x,incx,y,incy,AP,lda,batchCount) & + bind(c, name="hipblasZgercBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZgercBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int),value :: batchCount + end function + + module procedure hipblasZgercBatched_typed + end interface + + interface hipblasSgerBatched_64 + function hipblasSgerBatched_64_(handle,m,n,alpha,x,incx,y,incy,AP,lda,batchCount) & + bind(c, name="hipblasSgerBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSgerBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasSgerBatched_64_typed + end interface + + interface hipblasDgerBatched_64 + function hipblasDgerBatched_64_(handle,m,n,alpha,x,incx,y,incy,AP,lda,batchCount) & + bind(c, name="hipblasDgerBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDgerBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasDgerBatched_64_typed + end interface + + interface hipblasCgeruBatched_64 + function hipblasCgeruBatched_64_(handle,m,n,alpha,x,incx,y,incy,AP,lda,batchCount) & + bind(c, name="hipblasCgeruBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCgeruBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasCgeruBatched_64_typed + end interface + + interface hipblasCgercBatched_64 + function hipblasCgercBatched_64_(handle,m,n,alpha,x,incx,y,incy,AP,lda,batchCount) & + bind(c, name="hipblasCgercBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCgercBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasCgercBatched_64_typed + end interface + + interface hipblasZgeruBatched_64 + function hipblasZgeruBatched_64_(handle,m,n,alpha,x,incx,y,incy,AP,lda,batchCount) & + bind(c, name="hipblasZgeruBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZgeruBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasZgeruBatched_64_typed + end interface + + interface hipblasZgercBatched_64 + function hipblasZgercBatched_64_(handle,m,n,alpha,x,incx,y,incy,AP,lda,batchCount) & + bind(c, name="hipblasZgercBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZgercBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasZgercBatched_64_typed + end interface + + interface hipblasSgerStridedBatched + function hipblasSgerStridedBatched_(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP,lda, & + strideA,batchCount) & + bind(c, name="hipblasSgerStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSgerStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int64_t),value :: stridey + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + integer(c_int),value :: batchCount + end function + + module procedure hipblasSgerStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSgerStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSgerStridedBatched_rank_0,& + hipblasSgerStridedBatched_rank_1,& + hipblasSgerStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasDgerStridedBatched + function hipblasDgerStridedBatched_(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP,lda, & + strideA,batchCount) & + bind(c, name="hipblasDgerStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDgerStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int64_t),value :: stridey + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + integer(c_int),value :: batchCount + end function + + module procedure hipblasDgerStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDgerStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDgerStridedBatched_rank_0,& + hipblasDgerStridedBatched_rank_1,& + hipblasDgerStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasCgeruStridedBatched + function hipblasCgeruStridedBatched_(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP,lda, & + strideA,batchCount) & + bind(c, name="hipblasCgeruStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCgeruStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int64_t),value :: stridey + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + integer(c_int),value :: batchCount + end function + + module procedure hipblasCgeruStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCgeruStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCgeruStridedBatched_rank_0,& + hipblasCgeruStridedBatched_rank_1,& + hipblasCgeruStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasCgercStridedBatched + function hipblasCgercStridedBatched_(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP,lda, & + strideA,batchCount) & + bind(c, name="hipblasCgercStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCgercStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int64_t),value :: stridey + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + integer(c_int),value :: batchCount + end function + + module procedure hipblasCgercStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCgercStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCgercStridedBatched_rank_0,& + hipblasCgercStridedBatched_rank_1,& + hipblasCgercStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasZgeruStridedBatched + function hipblasZgeruStridedBatched_(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP,lda, & + strideA,batchCount) & + bind(c, name="hipblasZgeruStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZgeruStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int64_t),value :: stridey + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + integer(c_int),value :: batchCount + end function + + module procedure hipblasZgeruStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZgeruStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZgeruStridedBatched_rank_0,& + hipblasZgeruStridedBatched_rank_1,& + hipblasZgeruStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasZgercStridedBatched + function hipblasZgercStridedBatched_(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP,lda, & + strideA,batchCount) & + bind(c, name="hipblasZgercStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZgercStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int64_t),value :: stridey + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + integer(c_int),value :: batchCount + end function + + module procedure hipblasZgercStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZgercStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZgercStridedBatched_rank_0,& + hipblasZgercStridedBatched_rank_1,& + hipblasZgercStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasSgerStridedBatched_64 + function hipblasSgerStridedBatched_64_(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP,lda, & + strideA,batchCount) & + bind(c, name="hipblasSgerStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSgerStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: stridey + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasSgerStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSgerStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSgerStridedBatched_64_rank_0,& + hipblasSgerStridedBatched_64_rank_1,& + hipblasSgerStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasDgerStridedBatched_64 + function hipblasDgerStridedBatched_64_(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP,lda, & + strideA,batchCount) & + bind(c, name="hipblasDgerStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDgerStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: stridey + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasDgerStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDgerStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDgerStridedBatched_64_rank_0,& + hipblasDgerStridedBatched_64_rank_1,& + hipblasDgerStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasCgeruStridedBatched_64 + function hipblasCgeruStridedBatched_64_(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP,lda, & + strideA,batchCount) & + bind(c, name="hipblasCgeruStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCgeruStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: stridey + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasCgeruStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCgeruStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCgeruStridedBatched_64_rank_0,& + hipblasCgeruStridedBatched_64_rank_1,& + hipblasCgeruStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasCgercStridedBatched_64 + function hipblasCgercStridedBatched_64_(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP,lda, & + strideA,batchCount) & + bind(c, name="hipblasCgercStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCgercStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: stridey + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasCgercStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCgercStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCgercStridedBatched_64_rank_0,& + hipblasCgercStridedBatched_64_rank_1,& + hipblasCgercStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasZgeruStridedBatched_64 + function hipblasZgeruStridedBatched_64_(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP,lda, & + strideA,batchCount) & + bind(c, name="hipblasZgeruStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZgeruStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: stridey + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasZgeruStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZgeruStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZgeruStridedBatched_64_rank_0,& + hipblasZgeruStridedBatched_64_rank_1,& + hipblasZgeruStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasZgercStridedBatched_64 + function hipblasZgercStridedBatched_64_(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP,lda, & + strideA,batchCount) & + bind(c, name="hipblasZgercStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZgercStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: stridey + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasZgercStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZgercStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZgercStridedBatched_64_rank_0,& + hipblasZgercStridedBatched_64_rank_1,& + hipblasZgercStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasChbmv + function hipblasChbmv_(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) & + bind(c, name="hipblasChbmv") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasChbmv_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int),value :: incy + end function + + module procedure hipblasChbmv_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasChbmv_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasChbmv_rank_0,& + hipblasChbmv_rank_1,& + hipblasChbmv_full_rank +#endif +#endif + end interface + + interface hipblasZhbmv + function hipblasZhbmv_(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) & + bind(c, name="hipblasZhbmv") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZhbmv_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int),value :: incy + end function + + module procedure hipblasZhbmv_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZhbmv_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZhbmv_rank_0,& + hipblasZhbmv_rank_1,& + hipblasZhbmv_full_rank +#endif +#endif + end interface + + interface hipblasChbmv_64 + function hipblasChbmv_64_(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) & + bind(c, name="hipblasChbmv_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasChbmv_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + end function + + module procedure hipblasChbmv_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasChbmv_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasChbmv_64_rank_0,& + hipblasChbmv_64_rank_1,& + hipblasChbmv_64_full_rank +#endif +#endif + end interface + + interface hipblasZhbmv_64 + function hipblasZhbmv_64_(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) & + bind(c, name="hipblasZhbmv_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZhbmv_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + end function + + module procedure hipblasZhbmv_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZhbmv_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZhbmv_64_rank_0,& + hipblasZhbmv_64_rank_1,& + hipblasZhbmv_64_full_rank +#endif +#endif + end interface + + interface hipblasChbmvBatched + function hipblasChbmvBatched_(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy,batchCount) & + bind(c, name="hipblasChbmvBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasChbmvBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int),value :: batchCount + end function + + module procedure hipblasChbmvBatched_typed + end interface + + interface hipblasZhbmvBatched + function hipblasZhbmvBatched_(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy,batchCount) & + bind(c, name="hipblasZhbmvBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZhbmvBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int),value :: batchCount + end function + + module procedure hipblasZhbmvBatched_typed + end interface + + interface hipblasChbmvBatched_64 + function hipblasChbmvBatched_64_(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy,batchCount) & + bind(c, name="hipblasChbmvBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasChbmvBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasChbmvBatched_64_typed + end interface + + interface hipblasZhbmvBatched_64 + function hipblasZhbmvBatched_64_(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy,batchCount) & + bind(c, name="hipblasZhbmvBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZhbmvBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasZhbmvBatched_64_typed + end interface + + interface hipblasChbmvStridedBatched + function hipblasChbmvStridedBatched_(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx,stridex,beta, & + y,incy,stridey,batchCount) & + bind(c, name="hipblasChbmvStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasChbmvStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int),value :: batchCount + end function + + module procedure hipblasChbmvStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasChbmvStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasChbmvStridedBatched_rank_0,& + hipblasChbmvStridedBatched_rank_1,& + hipblasChbmvStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasZhbmvStridedBatched + function hipblasZhbmvStridedBatched_(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx,stridex,beta, & + y,incy,stridey,batchCount) & + bind(c, name="hipblasZhbmvStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZhbmvStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int),value :: batchCount + end function + + module procedure hipblasZhbmvStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZhbmvStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZhbmvStridedBatched_rank_0,& + hipblasZhbmvStridedBatched_rank_1,& + hipblasZhbmvStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasChbmvStridedBatched_64 + function hipblasChbmvStridedBatched_64_(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx,stridex, & + beta,y,incy,stridey,batchCount) & + bind(c, name="hipblasChbmvStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasChbmvStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasChbmvStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasChbmvStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasChbmvStridedBatched_64_rank_0,& + hipblasChbmvStridedBatched_64_rank_1,& + hipblasChbmvStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasZhbmvStridedBatched_64 + function hipblasZhbmvStridedBatched_64_(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx,stridex, & + beta,y,incy,stridey,batchCount) & + bind(c, name="hipblasZhbmvStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZhbmvStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasZhbmvStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZhbmvStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZhbmvStridedBatched_64_rank_0,& + hipblasZhbmvStridedBatched_64_rank_1,& + hipblasZhbmvStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasChemv + function hipblasChemv_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) & + bind(c, name="hipblasChemv") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasChemv_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int),value :: incy + end function + + module procedure hipblasChemv_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasChemv_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasChemv_rank_0,& + hipblasChemv_rank_1,& + hipblasChemv_full_rank +#endif +#endif + end interface + + interface hipblasZhemv + function hipblasZhemv_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) & + bind(c, name="hipblasZhemv") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZhemv_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int),value :: incy + end function + + module procedure hipblasZhemv_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZhemv_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZhemv_rank_0,& + hipblasZhemv_rank_1,& + hipblasZhemv_full_rank +#endif +#endif + end interface + + interface hipblasChemv_64 + function hipblasChemv_64_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) & + bind(c, name="hipblasChemv_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasChemv_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + end function + + module procedure hipblasChemv_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasChemv_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasChemv_64_rank_0,& + hipblasChemv_64_rank_1,& + hipblasChemv_64_full_rank +#endif +#endif + end interface + + interface hipblasZhemv_64 + function hipblasZhemv_64_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) & + bind(c, name="hipblasZhemv_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZhemv_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + end function + + module procedure hipblasZhemv_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZhemv_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZhemv_64_rank_0,& + hipblasZhemv_64_rank_1,& + hipblasZhemv_64_full_rank +#endif +#endif + end interface + + interface hipblasChemvBatched + function hipblasChemvBatched_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy,batchCount) & + bind(c, name="hipblasChemvBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasChemvBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int),value :: batchCount + end function + + module procedure hipblasChemvBatched_typed + end interface + + interface hipblasZhemvBatched + function hipblasZhemvBatched_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy,batchCount) & + bind(c, name="hipblasZhemvBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZhemvBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int),value :: batchCount + end function + + module procedure hipblasZhemvBatched_typed + end interface + + interface hipblasChemvBatched_64 + function hipblasChemvBatched_64_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy,batchCount) & + bind(c, name="hipblasChemvBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasChemvBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasChemvBatched_64_typed + end interface + + interface hipblasZhemvBatched_64 + function hipblasZhemvBatched_64_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy,batchCount) & + bind(c, name="hipblasZhemvBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZhemvBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasZhemvBatched_64_typed + end interface + + interface hipblasChemvStridedBatched + function hipblasChemvStridedBatched_(handle,uplo,n,alpha,AP,lda,strideA,x,incx,stridex,beta,y, & + incy,stridey,batchCount) & + bind(c, name="hipblasChemvStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasChemvStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int),value :: batchCount + end function + + module procedure hipblasChemvStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasChemvStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasChemvStridedBatched_rank_0,& + hipblasChemvStridedBatched_rank_1,& + hipblasChemvStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasZhemvStridedBatched + function hipblasZhemvStridedBatched_(handle,uplo,n,alpha,AP,lda,strideA,x,incx,stridex,beta,y, & + incy,stridey,batchCount) & + bind(c, name="hipblasZhemvStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZhemvStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int),value :: batchCount + end function + + module procedure hipblasZhemvStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZhemvStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZhemvStridedBatched_rank_0,& + hipblasZhemvStridedBatched_rank_1,& + hipblasZhemvStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasChemvStridedBatched_64 + function hipblasChemvStridedBatched_64_(handle,uplo,n,alpha,AP,lda,strideA,x,incx,stridex, & + beta,y,incy,stridey,batchCount) & + bind(c, name="hipblasChemvStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasChemvStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasChemvStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasChemvStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasChemvStridedBatched_64_rank_0,& + hipblasChemvStridedBatched_64_rank_1,& + hipblasChemvStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasZhemvStridedBatched_64 + function hipblasZhemvStridedBatched_64_(handle,uplo,n,alpha,AP,lda,strideA,x,incx,stridex, & + beta,y,incy,stridey,batchCount) & + bind(c, name="hipblasZhemvStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZhemvStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasZhemvStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZhemvStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZhemvStridedBatched_64_rank_0,& + hipblasZhemvStridedBatched_64_rank_1,& + hipblasZhemvStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasCher + function hipblasCher_(handle,uplo,n,alpha,x,incx,AP,lda) bind(c, name="hipblasCher") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCher_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: AP + integer(c_int),value :: lda + end function + + module procedure hipblasCher_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCher_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCher_rank_0,& + hipblasCher_rank_1,& + hipblasCher_full_rank +#endif +#endif + end interface + + interface hipblasZher + function hipblasZher_(handle,uplo,n,alpha,x,incx,AP,lda) bind(c, name="hipblasZher") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZher_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: AP + integer(c_int),value :: lda + end function + + module procedure hipblasZher_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZher_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZher_rank_0,& + hipblasZher_rank_1,& + hipblasZher_full_rank +#endif +#endif + end interface + + interface hipblasCher_64 + function hipblasCher_64_(handle,uplo,n,alpha,x,incx,AP,lda) bind(c, name="hipblasCher_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCher_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + end function + + module procedure hipblasCher_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCher_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCher_64_rank_0,& + hipblasCher_64_rank_1,& + hipblasCher_64_full_rank +#endif +#endif + end interface + + interface hipblasZher_64 + function hipblasZher_64_(handle,uplo,n,alpha,x,incx,AP,lda) bind(c, name="hipblasZher_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZher_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + end function + + module procedure hipblasZher_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZher_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZher_64_rank_0,& + hipblasZher_64_rank_1,& + hipblasZher_64_full_rank +#endif +#endif + end interface + + interface hipblasCherBatched + function hipblasCherBatched_(handle,uplo,n,alpha,x,incx,AP,lda,batchCount) & + bind(c, name="hipblasCherBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCherBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int),value :: batchCount + end function + + module procedure hipblasCherBatched_typed + end interface + + interface hipblasZherBatched + function hipblasZherBatched_(handle,uplo,n,alpha,x,incx,AP,lda,batchCount) & + bind(c, name="hipblasZherBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZherBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int),value :: batchCount + end function + + module procedure hipblasZherBatched_typed + end interface + + interface hipblasCherBatched_64 + function hipblasCherBatched_64_(handle,uplo,n,alpha,x,incx,AP,lda,batchCount) & + bind(c, name="hipblasCherBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCherBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasCherBatched_64_typed + end interface + + interface hipblasZherBatched_64 + function hipblasZherBatched_64_(handle,uplo,n,alpha,x,incx,AP,lda,batchCount) & + bind(c, name="hipblasZherBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZherBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasZherBatched_64_typed + end interface + + interface hipblasCherStridedBatched + function hipblasCherStridedBatched_(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & + batchCount) & + bind(c, name="hipblasCherStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCherStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + integer(c_int),value :: batchCount + end function + + module procedure hipblasCherStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCherStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCherStridedBatched_rank_0,& + hipblasCherStridedBatched_rank_1,& + hipblasCherStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasZherStridedBatched + function hipblasZherStridedBatched_(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & + batchCount) & + bind(c, name="hipblasZherStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZherStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + integer(c_int),value :: batchCount + end function + + module procedure hipblasZherStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZherStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZherStridedBatched_rank_0,& + hipblasZherStridedBatched_rank_1,& + hipblasZherStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasCherStridedBatched_64 + function hipblasCherStridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & + batchCount) & + bind(c, name="hipblasCherStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCherStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasCherStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCherStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCherStridedBatched_64_rank_0,& + hipblasCherStridedBatched_64_rank_1,& + hipblasCherStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasZherStridedBatched_64 + function hipblasZherStridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & + batchCount) & + bind(c, name="hipblasZherStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZherStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasZherStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZherStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZherStridedBatched_64_rank_0,& + hipblasZherStridedBatched_64_rank_1,& + hipblasZherStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasCher2 + function hipblasCher2_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) bind(c, name="hipblasCher2") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCher2_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + type(c_ptr),value :: AP + integer(c_int),value :: lda + end function + + module procedure hipblasCher2_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCher2_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCher2_rank_0,& + hipblasCher2_rank_1,& + hipblasCher2_full_rank +#endif +#endif + end interface + + interface hipblasZher2 + function hipblasZher2_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) bind(c, name="hipblasZher2") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZher2_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + type(c_ptr),value :: AP + integer(c_int),value :: lda + end function + + module procedure hipblasZher2_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZher2_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZher2_rank_0,& + hipblasZher2_rank_1,& + hipblasZher2_full_rank +#endif +#endif + end interface + + interface hipblasCher2_64 + function hipblasCher2_64_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) & + bind(c, name="hipblasCher2_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCher2_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + end function + + module procedure hipblasCher2_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCher2_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCher2_64_rank_0,& + hipblasCher2_64_rank_1,& + hipblasCher2_64_full_rank +#endif +#endif + end interface + + interface hipblasZher2_64 + function hipblasZher2_64_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) & + bind(c, name="hipblasZher2_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZher2_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + end function + + module procedure hipblasZher2_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZher2_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZher2_64_rank_0,& + hipblasZher2_64_rank_1,& + hipblasZher2_64_full_rank +#endif +#endif + end interface + + interface hipblasCher2Batched + function hipblasCher2Batched_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda,batchCount) & + bind(c, name="hipblasCher2Batched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCher2Batched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int),value :: batchCount + end function + + module procedure hipblasCher2Batched_typed + end interface + + interface hipblasZher2Batched + function hipblasZher2Batched_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda,batchCount) & + bind(c, name="hipblasZher2Batched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZher2Batched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int),value :: batchCount + end function + + module procedure hipblasZher2Batched_typed + end interface + + interface hipblasCher2Batched_64 + function hipblasCher2Batched_64_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda,batchCount) & + bind(c, name="hipblasCher2Batched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCher2Batched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasCher2Batched_64_typed + end interface + + interface hipblasZher2Batched_64 + function hipblasZher2Batched_64_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda,batchCount) & + bind(c, name="hipblasZher2Batched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZher2Batched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasZher2Batched_64_typed + end interface + + interface hipblasCher2StridedBatched + function hipblasCher2StridedBatched_(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey,AP,lda, & + strideA,batchCount) & + bind(c, name="hipblasCher2StridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCher2StridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int64_t),value :: stridey + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + integer(c_int),value :: batchCount + end function + + module procedure hipblasCher2StridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCher2StridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCher2StridedBatched_rank_0,& + hipblasCher2StridedBatched_rank_1,& + hipblasCher2StridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasZher2StridedBatched + function hipblasZher2StridedBatched_(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey,AP,lda, & + strideA,batchCount) & + bind(c, name="hipblasZher2StridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZher2StridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int64_t),value :: stridey + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + integer(c_int),value :: batchCount + end function + + module procedure hipblasZher2StridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZher2StridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZher2StridedBatched_rank_0,& + hipblasZher2StridedBatched_rank_1,& + hipblasZher2StridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasCher2StridedBatched_64 + function hipblasCher2StridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey,AP, & + lda,strideA,batchCount) & + bind(c, name="hipblasCher2StridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCher2StridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: stridey + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasCher2StridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCher2StridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCher2StridedBatched_64_rank_0,& + hipblasCher2StridedBatched_64_rank_1,& + hipblasCher2StridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasZher2StridedBatched_64 + function hipblasZher2StridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey,AP, & + lda,strideA,batchCount) & + bind(c, name="hipblasZher2StridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZher2StridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: stridey + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasZher2StridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZher2StridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZher2StridedBatched_64_rank_0,& + hipblasZher2StridedBatched_64_rank_1,& + hipblasZher2StridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasChpmv + function hipblasChpmv_(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) bind(c, name="hipblasChpmv") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasChpmv_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int),value :: incy + end function + + module procedure hipblasChpmv_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasChpmv_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasChpmv_rank_0,& + hipblasChpmv_rank_1 +#endif +#endif + end interface + + interface hipblasZhpmv + function hipblasZhpmv_(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) bind(c, name="hipblasZhpmv") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZhpmv_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int),value :: incy + end function + + module procedure hipblasZhpmv_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZhpmv_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZhpmv_rank_0,& + hipblasZhpmv_rank_1 +#endif +#endif + end interface + + interface hipblasChpmv_64 + function hipblasChpmv_64_(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) & + bind(c, name="hipblasChpmv_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasChpmv_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + end function + + module procedure hipblasChpmv_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasChpmv_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasChpmv_64_rank_0,& + hipblasChpmv_64_rank_1 +#endif +#endif + end interface + + interface hipblasZhpmv_64 + function hipblasZhpmv_64_(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) & + bind(c, name="hipblasZhpmv_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZhpmv_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + end function + + module procedure hipblasZhpmv_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZhpmv_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZhpmv_64_rank_0,& + hipblasZhpmv_64_rank_1 +#endif +#endif + end interface + + interface hipblasChpmvBatched + function hipblasChpmvBatched_(handle,uplo,n,alpha,AP,x,incx,beta,y,incy,batchCount) & + bind(c, name="hipblasChpmvBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasChpmvBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int),value :: batchCount + end function + + module procedure hipblasChpmvBatched_typed + end interface + + interface hipblasZhpmvBatched + function hipblasZhpmvBatched_(handle,uplo,n,alpha,AP,x,incx,beta,y,incy,batchCount) & + bind(c, name="hipblasZhpmvBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZhpmvBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int),value :: batchCount + end function + + module procedure hipblasZhpmvBatched_typed + end interface + + interface hipblasChpmvBatched_64 + function hipblasChpmvBatched_64_(handle,uplo,n,alpha,AP,x,incx,beta,y,incy,batchCount) & + bind(c, name="hipblasChpmvBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasChpmvBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasChpmvBatched_64_typed + end interface + + interface hipblasZhpmvBatched_64 + function hipblasZhpmvBatched_64_(handle,uplo,n,alpha,AP,x,incx,beta,y,incy,batchCount) & + bind(c, name="hipblasZhpmvBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZhpmvBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasZhpmvBatched_64_typed + end interface + + interface hipblasChpmvStridedBatched + function hipblasChpmvStridedBatched_(handle,uplo,n,alpha,AP,strideA,x,incx,stridex,beta,y, & + incy,stridey,batchCount) & + bind(c, name="hipblasChpmvStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasChpmvStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int),value :: batchCount + end function + + module procedure hipblasChpmvStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasChpmvStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasChpmvStridedBatched_rank_0,& + hipblasChpmvStridedBatched_rank_1 +#endif +#endif + end interface + + interface hipblasZhpmvStridedBatched + function hipblasZhpmvStridedBatched_(handle,uplo,n,alpha,AP,strideA,x,incx,stridex,beta,y, & + incy,stridey,batchCount) & + bind(c, name="hipblasZhpmvStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZhpmvStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int),value :: batchCount + end function + + module procedure hipblasZhpmvStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZhpmvStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZhpmvStridedBatched_rank_0,& + hipblasZhpmvStridedBatched_rank_1 +#endif +#endif + end interface + + interface hipblasChpmvStridedBatched_64 + function hipblasChpmvStridedBatched_64_(handle,uplo,n,alpha,AP,strideA,x,incx,stridex,beta,y, & + incy,stridey,batchCount) & + bind(c, name="hipblasChpmvStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasChpmvStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasChpmvStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasChpmvStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasChpmvStridedBatched_64_rank_0,& + hipblasChpmvStridedBatched_64_rank_1 +#endif +#endif + end interface + + interface hipblasZhpmvStridedBatched_64 + function hipblasZhpmvStridedBatched_64_(handle,uplo,n,alpha,AP,strideA,x,incx,stridex,beta,y, & + incy,stridey,batchCount) & + bind(c, name="hipblasZhpmvStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZhpmvStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasZhpmvStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZhpmvStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZhpmvStridedBatched_64_rank_0,& + hipblasZhpmvStridedBatched_64_rank_1 +#endif +#endif + end interface + + interface hipblasChpr + function hipblasChpr_(handle,uplo,n,alpha,x,incx,AP) bind(c, name="hipblasChpr") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasChpr_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: AP + end function + + module procedure hipblasChpr_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasChpr_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasChpr_rank_0,& + hipblasChpr_rank_1 +#endif +#endif + end interface + + interface hipblasZhpr + function hipblasZhpr_(handle,uplo,n,alpha,x,incx,AP) bind(c, name="hipblasZhpr") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZhpr_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: AP + end function + + module procedure hipblasZhpr_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZhpr_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZhpr_rank_0,& + hipblasZhpr_rank_1 +#endif +#endif + end interface + + interface hipblasChpr_64 + function hipblasChpr_64_(handle,uplo,n,alpha,x,incx,AP) bind(c, name="hipblasChpr_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasChpr_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: AP + end function + + module procedure hipblasChpr_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasChpr_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasChpr_64_rank_0,& + hipblasChpr_64_rank_1 +#endif +#endif + end interface + + interface hipblasZhpr_64 + function hipblasZhpr_64_(handle,uplo,n,alpha,x,incx,AP) bind(c, name="hipblasZhpr_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZhpr_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: AP + end function + + module procedure hipblasZhpr_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZhpr_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZhpr_64_rank_0,& + hipblasZhpr_64_rank_1 +#endif +#endif + end interface + + interface hipblasChprBatched + function hipblasChprBatched_(handle,uplo,n,alpha,x,incx,AP,batchCount) & + bind(c, name="hipblasChprBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasChprBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: AP + integer(c_int),value :: batchCount + end function + + module procedure hipblasChprBatched_typed + end interface + + interface hipblasZhprBatched + function hipblasZhprBatched_(handle,uplo,n,alpha,x,incx,AP,batchCount) & + bind(c, name="hipblasZhprBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZhprBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: AP + integer(c_int),value :: batchCount + end function + + module procedure hipblasZhprBatched_typed + end interface + + interface hipblasChprBatched_64 + function hipblasChprBatched_64_(handle,uplo,n,alpha,x,incx,AP,batchCount) & + bind(c, name="hipblasChprBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasChprBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: AP + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasChprBatched_64_typed + end interface + + interface hipblasZhprBatched_64 + function hipblasZhprBatched_64_(handle,uplo,n,alpha,x,incx,AP,batchCount) & + bind(c, name="hipblasZhprBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZhprBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: AP + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasZhprBatched_64_typed + end interface + + interface hipblasChprStridedBatched + function hipblasChprStridedBatched_(handle,uplo,n,alpha,x,incx,stridex,AP,strideA,batchCount) & + bind(c, name="hipblasChprStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasChprStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: AP + integer(c_int64_t),value :: strideA + integer(c_int),value :: batchCount + end function + + module procedure hipblasChprStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasChprStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasChprStridedBatched_rank_0,& + hipblasChprStridedBatched_rank_1 +#endif +#endif + end interface + + interface hipblasZhprStridedBatched + function hipblasZhprStridedBatched_(handle,uplo,n,alpha,x,incx,stridex,AP,strideA,batchCount) & + bind(c, name="hipblasZhprStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZhprStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: AP + integer(c_int64_t),value :: strideA + integer(c_int),value :: batchCount + end function + + module procedure hipblasZhprStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZhprStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZhprStridedBatched_rank_0,& + hipblasZhprStridedBatched_rank_1 +#endif +#endif + end interface + + interface hipblasChprStridedBatched_64 + function hipblasChprStridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) & + bind(c, name="hipblasChprStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasChprStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: AP + integer(c_int64_t),value :: strideA + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasChprStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasChprStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasChprStridedBatched_64_rank_0,& + hipblasChprStridedBatched_64_rank_1 +#endif +#endif + end interface + + interface hipblasZhprStridedBatched_64 + function hipblasZhprStridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) & + bind(c, name="hipblasZhprStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZhprStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: AP + integer(c_int64_t),value :: strideA + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasZhprStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZhprStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZhprStridedBatched_64_rank_0,& + hipblasZhprStridedBatched_64_rank_1 +#endif +#endif + end interface + + interface hipblasChpr2 + function hipblasChpr2_(handle,uplo,n,alpha,x,incx,y,incy,AP) bind(c, name="hipblasChpr2") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasChpr2_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + type(c_ptr),value :: AP + end function + + module procedure hipblasChpr2_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasChpr2_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasChpr2_rank_0,& + hipblasChpr2_rank_1 +#endif +#endif + end interface + + interface hipblasZhpr2 + function hipblasZhpr2_(handle,uplo,n,alpha,x,incx,y,incy,AP) bind(c, name="hipblasZhpr2") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZhpr2_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + type(c_ptr),value :: AP + end function + + module procedure hipblasZhpr2_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZhpr2_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZhpr2_rank_0,& + hipblasZhpr2_rank_1 +#endif +#endif + end interface + + interface hipblasChpr2_64 + function hipblasChpr2_64_(handle,uplo,n,alpha,x,incx,y,incy,AP) bind(c, name="hipblasChpr2_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasChpr2_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + type(c_ptr),value :: AP + end function + + module procedure hipblasChpr2_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasChpr2_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasChpr2_64_rank_0,& + hipblasChpr2_64_rank_1 +#endif +#endif + end interface + + interface hipblasZhpr2_64 + function hipblasZhpr2_64_(handle,uplo,n,alpha,x,incx,y,incy,AP) bind(c, name="hipblasZhpr2_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZhpr2_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + type(c_ptr),value :: AP + end function + + module procedure hipblasZhpr2_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZhpr2_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZhpr2_64_rank_0,& + hipblasZhpr2_64_rank_1 +#endif +#endif + end interface + + interface hipblasChpr2Batched + function hipblasChpr2Batched_(handle,uplo,n,alpha,x,incx,y,incy,AP,batchCount) & + bind(c, name="hipblasChpr2Batched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasChpr2Batched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + type(c_ptr),value :: AP + integer(c_int),value :: batchCount + end function + + module procedure hipblasChpr2Batched_typed + end interface + + interface hipblasZhpr2Batched + function hipblasZhpr2Batched_(handle,uplo,n,alpha,x,incx,y,incy,AP,batchCount) & + bind(c, name="hipblasZhpr2Batched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZhpr2Batched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + type(c_ptr),value :: AP + integer(c_int),value :: batchCount + end function + + module procedure hipblasZhpr2Batched_typed + end interface + + interface hipblasChpr2Batched_64 + function hipblasChpr2Batched_64_(handle,uplo,n,alpha,x,incx,y,incy,AP,batchCount) & + bind(c, name="hipblasChpr2Batched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasChpr2Batched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + type(c_ptr),value :: AP + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasChpr2Batched_64_typed + end interface + + interface hipblasZhpr2Batched_64 + function hipblasZhpr2Batched_64_(handle,uplo,n,alpha,x,incx,y,incy,AP,batchCount) & + bind(c, name="hipblasZhpr2Batched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZhpr2Batched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + type(c_ptr),value :: AP + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasZhpr2Batched_64_typed + end interface + + interface hipblasChpr2StridedBatched + function hipblasChpr2StridedBatched_(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey,AP, & + strideA,batchCount) & + bind(c, name="hipblasChpr2StridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasChpr2StridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int64_t),value :: stridey + type(c_ptr),value :: AP + integer(c_int64_t),value :: strideA + integer(c_int),value :: batchCount + end function + + module procedure hipblasChpr2StridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasChpr2StridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasChpr2StridedBatched_rank_0,& + hipblasChpr2StridedBatched_rank_1 +#endif +#endif + end interface + + interface hipblasZhpr2StridedBatched + function hipblasZhpr2StridedBatched_(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey,AP, & + strideA,batchCount) & + bind(c, name="hipblasZhpr2StridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZhpr2StridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int64_t),value :: stridey + type(c_ptr),value :: AP + integer(c_int64_t),value :: strideA + integer(c_int),value :: batchCount + end function + + module procedure hipblasZhpr2StridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZhpr2StridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZhpr2StridedBatched_rank_0,& + hipblasZhpr2StridedBatched_rank_1 +#endif +#endif + end interface + + interface hipblasChpr2StridedBatched_64 + function hipblasChpr2StridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey,AP, & + strideA,batchCount) & + bind(c, name="hipblasChpr2StridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasChpr2StridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: stridey + type(c_ptr),value :: AP + integer(c_int64_t),value :: strideA + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasChpr2StridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasChpr2StridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasChpr2StridedBatched_64_rank_0,& + hipblasChpr2StridedBatched_64_rank_1 +#endif +#endif + end interface + + interface hipblasZhpr2StridedBatched_64 + function hipblasZhpr2StridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey,AP, & + strideA,batchCount) & + bind(c, name="hipblasZhpr2StridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZhpr2StridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: stridey + type(c_ptr),value :: AP + integer(c_int64_t),value :: strideA + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasZhpr2StridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZhpr2StridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZhpr2StridedBatched_64_rank_0,& + hipblasZhpr2StridedBatched_64_rank_1 +#endif +#endif + end interface + + interface hipblasSsbmv + function hipblasSsbmv_(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) & + bind(c, name="hipblasSsbmv") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSsbmv_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int),value :: incy + end function + + module procedure hipblasSsbmv_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSsbmv_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSsbmv_rank_0,& + hipblasSsbmv_rank_1,& + hipblasSsbmv_full_rank +#endif +#endif + end interface + + interface hipblasDsbmv + function hipblasDsbmv_(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) & + bind(c, name="hipblasDsbmv") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDsbmv_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int),value :: incy + end function + + module procedure hipblasDsbmv_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDsbmv_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDsbmv_rank_0,& + hipblasDsbmv_rank_1,& + hipblasDsbmv_full_rank +#endif +#endif + end interface + + interface hipblasSsbmv_64 + function hipblasSsbmv_64_(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) & + bind(c, name="hipblasSsbmv_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSsbmv_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + end function + + module procedure hipblasSsbmv_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSsbmv_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSsbmv_64_rank_0,& + hipblasSsbmv_64_rank_1,& + hipblasSsbmv_64_full_rank +#endif +#endif + end interface + + interface hipblasDsbmv_64 + function hipblasDsbmv_64_(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) & + bind(c, name="hipblasDsbmv_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDsbmv_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + end function + + module procedure hipblasDsbmv_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDsbmv_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDsbmv_64_rank_0,& + hipblasDsbmv_64_rank_1,& + hipblasDsbmv_64_full_rank +#endif +#endif + end interface + + interface hipblasSsbmvBatched + function hipblasSsbmvBatched_(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy,batchCount) & + bind(c, name="hipblasSsbmvBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSsbmvBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int),value :: batchCount + end function + + module procedure hipblasSsbmvBatched_typed + end interface + + interface hipblasDsbmvBatched + function hipblasDsbmvBatched_(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy,batchCount) & + bind(c, name="hipblasDsbmvBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDsbmvBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int),value :: batchCount + end function + + module procedure hipblasDsbmvBatched_typed + end interface + + interface hipblasSsbmvBatched_64 + function hipblasSsbmvBatched_64_(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy,batchCount) & + bind(c, name="hipblasSsbmvBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSsbmvBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasSsbmvBatched_64_typed + end interface + + interface hipblasDsbmvBatched_64 + function hipblasDsbmvBatched_64_(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy,batchCount) & + bind(c, name="hipblasDsbmvBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDsbmvBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasDsbmvBatched_64_typed + end interface + + interface hipblasSsbmvStridedBatched + function hipblasSsbmvStridedBatched_(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx,stridex,beta, & + y,incy,stridey,batchCount) & + bind(c, name="hipblasSsbmvStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSsbmvStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int),value :: batchCount + end function + + module procedure hipblasSsbmvStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSsbmvStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSsbmvStridedBatched_rank_0,& + hipblasSsbmvStridedBatched_rank_1,& + hipblasSsbmvStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasDsbmvStridedBatched + function hipblasDsbmvStridedBatched_(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx,stridex,beta, & + y,incy,stridey,batchCount) & + bind(c, name="hipblasDsbmvStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDsbmvStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int),value :: batchCount + end function + + module procedure hipblasDsbmvStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDsbmvStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDsbmvStridedBatched_rank_0,& + hipblasDsbmvStridedBatched_rank_1,& + hipblasDsbmvStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasSsbmvStridedBatched_64 + function hipblasSsbmvStridedBatched_64_(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx,stridex, & + beta,y,incy,stridey,batchCount) & + bind(c, name="hipblasSsbmvStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSsbmvStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasSsbmvStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSsbmvStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSsbmvStridedBatched_64_rank_0,& + hipblasSsbmvStridedBatched_64_rank_1,& + hipblasSsbmvStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasDsbmvStridedBatched_64 + function hipblasDsbmvStridedBatched_64_(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx,stridex, & + beta,y,incy,stridey,batchCount) & + bind(c, name="hipblasDsbmvStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDsbmvStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasDsbmvStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDsbmvStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDsbmvStridedBatched_64_rank_0,& + hipblasDsbmvStridedBatched_64_rank_1,& + hipblasDsbmvStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasSspmv + function hipblasSspmv_(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) bind(c, name="hipblasSspmv") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSspmv_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int),value :: incy + end function + + module procedure hipblasSspmv_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSspmv_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSspmv_rank_0,& + hipblasSspmv_rank_1 +#endif +#endif + end interface + + interface hipblasDspmv + function hipblasDspmv_(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) bind(c, name="hipblasDspmv") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDspmv_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int),value :: incy + end function + + module procedure hipblasDspmv_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDspmv_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDspmv_rank_0,& + hipblasDspmv_rank_1 +#endif +#endif + end interface + + interface hipblasSspmv_64 + function hipblasSspmv_64_(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) & + bind(c, name="hipblasSspmv_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSspmv_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + end function + + module procedure hipblasSspmv_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSspmv_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSspmv_64_rank_0,& + hipblasSspmv_64_rank_1 +#endif +#endif + end interface + + interface hipblasDspmv_64 + function hipblasDspmv_64_(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) & + bind(c, name="hipblasDspmv_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDspmv_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + end function + + module procedure hipblasDspmv_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDspmv_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDspmv_64_rank_0,& + hipblasDspmv_64_rank_1 +#endif +#endif + end interface + + interface hipblasSspmvBatched + function hipblasSspmvBatched_(handle,uplo,n,alpha,AP,x,incx,beta,y,incy,batchCount) & + bind(c, name="hipblasSspmvBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSspmvBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int),value :: batchCount + end function + + module procedure hipblasSspmvBatched_typed + end interface + + interface hipblasDspmvBatched + function hipblasDspmvBatched_(handle,uplo,n,alpha,AP,x,incx,beta,y,incy,batchCount) & + bind(c, name="hipblasDspmvBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDspmvBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int),value :: batchCount + end function + + module procedure hipblasDspmvBatched_typed + end interface + + interface hipblasSspmvBatched_64 + function hipblasSspmvBatched_64_(handle,uplo,n,alpha,AP,x,incx,beta,y,incy,batchCount) & + bind(c, name="hipblasSspmvBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSspmvBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasSspmvBatched_64_typed + end interface + + interface hipblasDspmvBatched_64 + function hipblasDspmvBatched_64_(handle,uplo,n,alpha,AP,x,incx,beta,y,incy,batchCount) & + bind(c, name="hipblasDspmvBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDspmvBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasDspmvBatched_64_typed + end interface + + interface hipblasSspmvStridedBatched + function hipblasSspmvStridedBatched_(handle,uplo,n,alpha,AP,strideA,x,incx,stridex,beta,y, & + incy,stridey,batchCount) & + bind(c, name="hipblasSspmvStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSspmvStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int),value :: batchCount + end function + + module procedure hipblasSspmvStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSspmvStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSspmvStridedBatched_rank_0,& + hipblasSspmvStridedBatched_rank_1 +#endif +#endif + end interface + + interface hipblasDspmvStridedBatched + function hipblasDspmvStridedBatched_(handle,uplo,n,alpha,AP,strideA,x,incx,stridex,beta,y, & + incy,stridey,batchCount) & + bind(c, name="hipblasDspmvStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDspmvStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int),value :: batchCount + end function + + module procedure hipblasDspmvStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDspmvStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDspmvStridedBatched_rank_0,& + hipblasDspmvStridedBatched_rank_1 +#endif +#endif + end interface + + interface hipblasSspmvStridedBatched_64 + function hipblasSspmvStridedBatched_64_(handle,uplo,n,alpha,AP,strideA,x,incx,stridex,beta,y, & + incy,stridey,batchCount) & + bind(c, name="hipblasSspmvStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSspmvStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasSspmvStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSspmvStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSspmvStridedBatched_64_rank_0,& + hipblasSspmvStridedBatched_64_rank_1 +#endif +#endif + end interface + + interface hipblasDspmvStridedBatched_64 + function hipblasDspmvStridedBatched_64_(handle,uplo,n,alpha,AP,strideA,x,incx,stridex,beta,y, & + incy,stridey,batchCount) & + bind(c, name="hipblasDspmvStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDspmvStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasDspmvStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDspmvStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDspmvStridedBatched_64_rank_0,& + hipblasDspmvStridedBatched_64_rank_1 +#endif +#endif + end interface + + interface hipblasSspr + function hipblasSspr_(handle,uplo,n,alpha,x,incx,AP) bind(c, name="hipblasSspr") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSspr_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: AP + end function + + module procedure hipblasSspr_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSspr_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSspr_rank_0,& + hipblasSspr_rank_1 +#endif +#endif + end interface + + interface hipblasDspr + function hipblasDspr_(handle,uplo,n,alpha,x,incx,AP) bind(c, name="hipblasDspr") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDspr_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: AP + end function + + module procedure hipblasDspr_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDspr_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDspr_rank_0,& + hipblasDspr_rank_1 +#endif +#endif + end interface + + interface hipblasCspr + function hipblasCspr_(handle,uplo,n,alpha,x,incx,AP) bind(c, name="hipblasCspr") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCspr_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: AP + end function + + module procedure hipblasCspr_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCspr_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCspr_rank_0,& + hipblasCspr_rank_1 +#endif +#endif + end interface + + interface hipblasZspr + function hipblasZspr_(handle,uplo,n,alpha,x,incx,AP) bind(c, name="hipblasZspr") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZspr_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: AP + end function + + module procedure hipblasZspr_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZspr_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZspr_rank_0,& + hipblasZspr_rank_1 +#endif +#endif + end interface + + interface hipblasSspr_64 + function hipblasSspr_64_(handle,uplo,n,alpha,x,incx,AP) bind(c, name="hipblasSspr_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSspr_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: AP + end function + + module procedure hipblasSspr_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSspr_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSspr_64_rank_0,& + hipblasSspr_64_rank_1 +#endif +#endif + end interface + + interface hipblasDspr_64 + function hipblasDspr_64_(handle,uplo,n,alpha,x,incx,AP) bind(c, name="hipblasDspr_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDspr_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: AP + end function + + module procedure hipblasDspr_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDspr_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDspr_64_rank_0,& + hipblasDspr_64_rank_1 +#endif +#endif + end interface + + interface hipblasCspr_64 + function hipblasCspr_64_(handle,uplo,n,alpha,x,incx,AP) bind(c, name="hipblasCspr_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCspr_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: AP + end function + + module procedure hipblasCspr_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCspr_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCspr_64_rank_0,& + hipblasCspr_64_rank_1 +#endif +#endif + end interface + + interface hipblasZspr_64 + function hipblasZspr_64_(handle,uplo,n,alpha,x,incx,AP) bind(c, name="hipblasZspr_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZspr_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: AP + end function + + module procedure hipblasZspr_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZspr_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZspr_64_rank_0,& + hipblasZspr_64_rank_1 +#endif +#endif + end interface + + interface hipblasSsprBatched + function hipblasSsprBatched_(handle,uplo,n,alpha,x,incx,AP,batchCount) & + bind(c, name="hipblasSsprBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSsprBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: AP + integer(c_int),value :: batchCount + end function + + module procedure hipblasSsprBatched_typed + end interface + + interface hipblasDsprBatched + function hipblasDsprBatched_(handle,uplo,n,alpha,x,incx,AP,batchCount) & + bind(c, name="hipblasDsprBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDsprBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: AP + integer(c_int),value :: batchCount + end function + + module procedure hipblasDsprBatched_typed + end interface + + interface hipblasCsprBatched + function hipblasCsprBatched_(handle,uplo,n,alpha,x,incx,AP,batchCount) & + bind(c, name="hipblasCsprBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCsprBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: AP + integer(c_int),value :: batchCount + end function + + module procedure hipblasCsprBatched_typed + end interface + + interface hipblasZsprBatched + function hipblasZsprBatched_(handle,uplo,n,alpha,x,incx,AP,batchCount) & + bind(c, name="hipblasZsprBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZsprBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: AP + integer(c_int),value :: batchCount + end function + + module procedure hipblasZsprBatched_typed + end interface + + interface hipblasSsprBatched_64 + function hipblasSsprBatched_64_(handle,uplo,n,alpha,x,incx,AP,batchCount) & + bind(c, name="hipblasSsprBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSsprBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: AP + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasSsprBatched_64_typed + end interface + + interface hipblasDsprBatched_64 + function hipblasDsprBatched_64_(handle,uplo,n,alpha,x,incx,AP,batchCount) & + bind(c, name="hipblasDsprBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDsprBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: AP + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasDsprBatched_64_typed + end interface + + interface hipblasCsprBatched_64 + function hipblasCsprBatched_64_(handle,uplo,n,alpha,x,incx,AP,batchCount) & + bind(c, name="hipblasCsprBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCsprBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: AP + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasCsprBatched_64_typed + end interface + + interface hipblasZsprBatched_64 + function hipblasZsprBatched_64_(handle,uplo,n,alpha,x,incx,AP,batchCount) & + bind(c, name="hipblasZsprBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZsprBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: AP + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasZsprBatched_64_typed + end interface + + interface hipblasSsprStridedBatched + function hipblasSsprStridedBatched_(handle,uplo,n,alpha,x,incx,stridex,AP,strideA,batchCount) & + bind(c, name="hipblasSsprStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSsprStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: AP + integer(c_int64_t),value :: strideA + integer(c_int),value :: batchCount + end function + + module procedure hipblasSsprStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSsprStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSsprStridedBatched_rank_0,& + hipblasSsprStridedBatched_rank_1 +#endif +#endif + end interface + + interface hipblasDsprStridedBatched + function hipblasDsprStridedBatched_(handle,uplo,n,alpha,x,incx,stridex,AP,strideA,batchCount) & + bind(c, name="hipblasDsprStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDsprStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: AP + integer(c_int64_t),value :: strideA + integer(c_int),value :: batchCount + end function + + module procedure hipblasDsprStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDsprStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDsprStridedBatched_rank_0,& + hipblasDsprStridedBatched_rank_1 +#endif +#endif + end interface + + interface hipblasCsprStridedBatched + function hipblasCsprStridedBatched_(handle,uplo,n,alpha,x,incx,stridex,AP,strideA,batchCount) & + bind(c, name="hipblasCsprStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCsprStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: AP + integer(c_int64_t),value :: strideA + integer(c_int),value :: batchCount + end function + + module procedure hipblasCsprStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCsprStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCsprStridedBatched_rank_0,& + hipblasCsprStridedBatched_rank_1 +#endif +#endif + end interface + + interface hipblasZsprStridedBatched + function hipblasZsprStridedBatched_(handle,uplo,n,alpha,x,incx,stridex,AP,strideA,batchCount) & + bind(c, name="hipblasZsprStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZsprStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: AP + integer(c_int64_t),value :: strideA + integer(c_int),value :: batchCount + end function + + module procedure hipblasZsprStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZsprStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZsprStridedBatched_rank_0,& + hipblasZsprStridedBatched_rank_1 +#endif +#endif + end interface + + interface hipblasSsprStridedBatched_64 + function hipblasSsprStridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) & + bind(c, name="hipblasSsprStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSsprStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: AP + integer(c_int64_t),value :: strideA + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasSsprStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSsprStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSsprStridedBatched_64_rank_0,& + hipblasSsprStridedBatched_64_rank_1 +#endif +#endif + end interface + + interface hipblasDsprStridedBatched_64 + function hipblasDsprStridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) & + bind(c, name="hipblasDsprStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDsprStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: AP + integer(c_int64_t),value :: strideA + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasDsprStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDsprStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDsprStridedBatched_64_rank_0,& + hipblasDsprStridedBatched_64_rank_1 +#endif +#endif + end interface + + interface hipblasCsprStridedBatched_64 + function hipblasCsprStridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) & + bind(c, name="hipblasCsprStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCsprStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: AP + integer(c_int64_t),value :: strideA + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasCsprStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCsprStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCsprStridedBatched_64_rank_0,& + hipblasCsprStridedBatched_64_rank_1 +#endif +#endif + end interface + + interface hipblasZsprStridedBatched_64 + function hipblasZsprStridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) & + bind(c, name="hipblasZsprStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZsprStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: AP + integer(c_int64_t),value :: strideA + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasZsprStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZsprStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZsprStridedBatched_64_rank_0,& + hipblasZsprStridedBatched_64_rank_1 +#endif +#endif + end interface + + interface hipblasSspr2 + function hipblasSspr2_(handle,uplo,n,alpha,x,incx,y,incy,AP) bind(c, name="hipblasSspr2") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSspr2_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + type(c_ptr),value :: AP + end function + + module procedure hipblasSspr2_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSspr2_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSspr2_rank_0,& + hipblasSspr2_rank_1 +#endif +#endif + end interface + + interface hipblasDspr2 + function hipblasDspr2_(handle,uplo,n,alpha,x,incx,y,incy,AP) bind(c, name="hipblasDspr2") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDspr2_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + type(c_ptr),value :: AP + end function + + module procedure hipblasDspr2_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDspr2_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDspr2_rank_0,& + hipblasDspr2_rank_1 +#endif +#endif + end interface + + interface hipblasSspr2_64 + function hipblasSspr2_64_(handle,uplo,n,alpha,x,incx,y,incy,AP) bind(c, name="hipblasSspr2_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSspr2_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + type(c_ptr),value :: AP + end function + + module procedure hipblasSspr2_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSspr2_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSspr2_64_rank_0,& + hipblasSspr2_64_rank_1 +#endif +#endif + end interface + + interface hipblasDspr2_64 + function hipblasDspr2_64_(handle,uplo,n,alpha,x,incx,y,incy,AP) bind(c, name="hipblasDspr2_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDspr2_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + type(c_ptr),value :: AP + end function + + module procedure hipblasDspr2_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDspr2_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDspr2_64_rank_0,& + hipblasDspr2_64_rank_1 +#endif +#endif + end interface + + interface hipblasSspr2Batched + function hipblasSspr2Batched_(handle,uplo,n,alpha,x,incx,y,incy,AP,batchCount) & + bind(c, name="hipblasSspr2Batched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSspr2Batched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + type(c_ptr),value :: AP + integer(c_int),value :: batchCount + end function + + module procedure hipblasSspr2Batched_typed + end interface + + interface hipblasDspr2Batched + function hipblasDspr2Batched_(handle,uplo,n,alpha,x,incx,y,incy,AP,batchCount) & + bind(c, name="hipblasDspr2Batched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDspr2Batched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + type(c_ptr),value :: AP + integer(c_int),value :: batchCount + end function + + module procedure hipblasDspr2Batched_typed + end interface + + interface hipblasSspr2Batched_64 + function hipblasSspr2Batched_64_(handle,uplo,n,alpha,x,incx,y,incy,AP,batchCount) & + bind(c, name="hipblasSspr2Batched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSspr2Batched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + type(c_ptr),value :: AP + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasSspr2Batched_64_typed + end interface + + interface hipblasDspr2Batched_64 + function hipblasDspr2Batched_64_(handle,uplo,n,alpha,x,incx,y,incy,AP,batchCount) & + bind(c, name="hipblasDspr2Batched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDspr2Batched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + type(c_ptr),value :: AP + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasDspr2Batched_64_typed + end interface + + interface hipblasSspr2StridedBatched + function hipblasSspr2StridedBatched_(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey,AP, & + strideA,batchCount) & + bind(c, name="hipblasSspr2StridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSspr2StridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int64_t),value :: stridey + type(c_ptr),value :: AP + integer(c_int64_t),value :: strideA + integer(c_int),value :: batchCount + end function + + module procedure hipblasSspr2StridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSspr2StridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSspr2StridedBatched_rank_0,& + hipblasSspr2StridedBatched_rank_1 +#endif +#endif + end interface + + interface hipblasDspr2StridedBatched + function hipblasDspr2StridedBatched_(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey,AP, & + strideA,batchCount) & + bind(c, name="hipblasDspr2StridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDspr2StridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int64_t),value :: stridey + type(c_ptr),value :: AP + integer(c_int64_t),value :: strideA + integer(c_int),value :: batchCount + end function + + module procedure hipblasDspr2StridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDspr2StridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDspr2StridedBatched_rank_0,& + hipblasDspr2StridedBatched_rank_1 +#endif +#endif + end interface + + interface hipblasSspr2StridedBatched_64 + function hipblasSspr2StridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey,AP, & + strideA,batchCount) & + bind(c, name="hipblasSspr2StridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSspr2StridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: stridey + type(c_ptr),value :: AP + integer(c_int64_t),value :: strideA + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasSspr2StridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSspr2StridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSspr2StridedBatched_64_rank_0,& + hipblasSspr2StridedBatched_64_rank_1 +#endif +#endif + end interface + + interface hipblasDspr2StridedBatched_64 + function hipblasDspr2StridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey,AP, & + strideA,batchCount) & + bind(c, name="hipblasDspr2StridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDspr2StridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: stridey + type(c_ptr),value :: AP + integer(c_int64_t),value :: strideA + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasDspr2StridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDspr2StridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDspr2StridedBatched_64_rank_0,& + hipblasDspr2StridedBatched_64_rank_1 +#endif +#endif + end interface + + interface hipblasSsymv + function hipblasSsymv_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) & + bind(c, name="hipblasSsymv") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSsymv_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int),value :: incy + end function + + module procedure hipblasSsymv_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSsymv_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSsymv_rank_0,& + hipblasSsymv_rank_1,& + hipblasSsymv_full_rank +#endif +#endif + end interface + + interface hipblasDsymv + function hipblasDsymv_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) & + bind(c, name="hipblasDsymv") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDsymv_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int),value :: incy + end function + + module procedure hipblasDsymv_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDsymv_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDsymv_rank_0,& + hipblasDsymv_rank_1,& + hipblasDsymv_full_rank +#endif +#endif + end interface + + interface hipblasCsymv + function hipblasCsymv_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) & + bind(c, name="hipblasCsymv") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCsymv_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int),value :: incy + end function + + module procedure hipblasCsymv_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCsymv_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCsymv_rank_0,& + hipblasCsymv_rank_1,& + hipblasCsymv_full_rank +#endif +#endif + end interface + + interface hipblasZsymv + function hipblasZsymv_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) & + bind(c, name="hipblasZsymv") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZsymv_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int),value :: incy + end function + + module procedure hipblasZsymv_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZsymv_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZsymv_rank_0,& + hipblasZsymv_rank_1,& + hipblasZsymv_full_rank +#endif +#endif + end interface + + interface hipblasSsymv_64 + function hipblasSsymv_64_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) & + bind(c, name="hipblasSsymv_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSsymv_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + end function + + module procedure hipblasSsymv_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSsymv_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSsymv_64_rank_0,& + hipblasSsymv_64_rank_1,& + hipblasSsymv_64_full_rank +#endif +#endif + end interface + + interface hipblasDsymv_64 + function hipblasDsymv_64_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) & + bind(c, name="hipblasDsymv_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDsymv_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + end function + + module procedure hipblasDsymv_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDsymv_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDsymv_64_rank_0,& + hipblasDsymv_64_rank_1,& + hipblasDsymv_64_full_rank +#endif +#endif + end interface + + interface hipblasCsymv_64 + function hipblasCsymv_64_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) & + bind(c, name="hipblasCsymv_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCsymv_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + end function + + module procedure hipblasCsymv_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCsymv_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCsymv_64_rank_0,& + hipblasCsymv_64_rank_1,& + hipblasCsymv_64_full_rank +#endif +#endif + end interface + + interface hipblasZsymv_64 + function hipblasZsymv_64_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) & + bind(c, name="hipblasZsymv_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZsymv_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + end function + + module procedure hipblasZsymv_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZsymv_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZsymv_64_rank_0,& + hipblasZsymv_64_rank_1,& + hipblasZsymv_64_full_rank +#endif +#endif + end interface + + interface hipblasSsymvBatched + function hipblasSsymvBatched_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy,batchCount) & + bind(c, name="hipblasSsymvBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSsymvBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int),value :: batchCount + end function + + module procedure hipblasSsymvBatched_typed + end interface + + interface hipblasDsymvBatched + function hipblasDsymvBatched_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy,batchCount) & + bind(c, name="hipblasDsymvBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDsymvBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int),value :: batchCount + end function + + module procedure hipblasDsymvBatched_typed + end interface + + interface hipblasCsymvBatched + function hipblasCsymvBatched_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy,batchCount) & + bind(c, name="hipblasCsymvBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCsymvBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int),value :: batchCount + end function + + module procedure hipblasCsymvBatched_typed + end interface + + interface hipblasZsymvBatched + function hipblasZsymvBatched_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy,batchCount) & + bind(c, name="hipblasZsymvBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZsymvBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int),value :: batchCount + end function + + module procedure hipblasZsymvBatched_typed + end interface + + interface hipblasSsymvBatched_64 + function hipblasSsymvBatched_64_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy,batchCount) & + bind(c, name="hipblasSsymvBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSsymvBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasSsymvBatched_64_typed + end interface + + interface hipblasDsymvBatched_64 + function hipblasDsymvBatched_64_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy,batchCount) & + bind(c, name="hipblasDsymvBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDsymvBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasDsymvBatched_64_typed + end interface + + interface hipblasCsymvBatched_64 + function hipblasCsymvBatched_64_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy,batchCount) & + bind(c, name="hipblasCsymvBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCsymvBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasCsymvBatched_64_typed + end interface + + interface hipblasZsymvBatched_64 + function hipblasZsymvBatched_64_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy,batchCount) & + bind(c, name="hipblasZsymvBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZsymvBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasZsymvBatched_64_typed + end interface + + interface hipblasSsymvStridedBatched + function hipblasSsymvStridedBatched_(handle,uplo,n,alpha,AP,lda,strideA,x,incx,stridex,beta,y, & + incy,stridey,batchCount) & + bind(c, name="hipblasSsymvStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSsymvStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int),value :: batchCount + end function + + module procedure hipblasSsymvStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSsymvStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSsymvStridedBatched_rank_0,& + hipblasSsymvStridedBatched_rank_1,& + hipblasSsymvStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasDsymvStridedBatched + function hipblasDsymvStridedBatched_(handle,uplo,n,alpha,AP,lda,strideA,x,incx,stridex,beta,y, & + incy,stridey,batchCount) & + bind(c, name="hipblasDsymvStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDsymvStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int),value :: batchCount + end function + + module procedure hipblasDsymvStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDsymvStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDsymvStridedBatched_rank_0,& + hipblasDsymvStridedBatched_rank_1,& + hipblasDsymvStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasCsymvStridedBatched + function hipblasCsymvStridedBatched_(handle,uplo,n,alpha,AP,lda,strideA,x,incx,stridex,beta,y, & + incy,stridey,batchCount) & + bind(c, name="hipblasCsymvStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCsymvStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int),value :: batchCount + end function + + module procedure hipblasCsymvStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCsymvStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCsymvStridedBatched_rank_0,& + hipblasCsymvStridedBatched_rank_1,& + hipblasCsymvStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasZsymvStridedBatched + function hipblasZsymvStridedBatched_(handle,uplo,n,alpha,AP,lda,strideA,x,incx,stridex,beta,y, & + incy,stridey,batchCount) & + bind(c, name="hipblasZsymvStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZsymvStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int),value :: batchCount + end function + + module procedure hipblasZsymvStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZsymvStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZsymvStridedBatched_rank_0,& + hipblasZsymvStridedBatched_rank_1,& + hipblasZsymvStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasSsymvStridedBatched_64 + function hipblasSsymvStridedBatched_64_(handle,uplo,n,alpha,AP,lda,strideA,x,incx,stridex, & + beta,y,incy,stridey,batchCount) & + bind(c, name="hipblasSsymvStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSsymvStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasSsymvStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSsymvStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSsymvStridedBatched_64_rank_0,& + hipblasSsymvStridedBatched_64_rank_1,& + hipblasSsymvStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasDsymvStridedBatched_64 + function hipblasDsymvStridedBatched_64_(handle,uplo,n,alpha,AP,lda,strideA,x,incx,stridex, & + beta,y,incy,stridey,batchCount) & + bind(c, name="hipblasDsymvStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDsymvStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasDsymvStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDsymvStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDsymvStridedBatched_64_rank_0,& + hipblasDsymvStridedBatched_64_rank_1,& + hipblasDsymvStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasCsymvStridedBatched_64 + function hipblasCsymvStridedBatched_64_(handle,uplo,n,alpha,AP,lda,strideA,x,incx,stridex, & + beta,y,incy,stridey,batchCount) & + bind(c, name="hipblasCsymvStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCsymvStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasCsymvStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCsymvStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCsymvStridedBatched_64_rank_0,& + hipblasCsymvStridedBatched_64_rank_1,& + hipblasCsymvStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasZsymvStridedBatched_64 + function hipblasZsymvStridedBatched_64_(handle,uplo,n,alpha,AP,lda,strideA,x,incx,stridex, & + beta,y,incy,stridey,batchCount) & + bind(c, name="hipblasZsymvStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZsymvStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: beta + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasZsymvStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZsymvStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZsymvStridedBatched_64_rank_0,& + hipblasZsymvStridedBatched_64_rank_1,& + hipblasZsymvStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasSsyr + function hipblasSsyr_(handle,uplo,n,alpha,x,incx,AP,lda) bind(c, name="hipblasSsyr") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSsyr_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: AP + integer(c_int),value :: lda + end function + + module procedure hipblasSsyr_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSsyr_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSsyr_rank_0,& + hipblasSsyr_rank_1,& + hipblasSsyr_full_rank +#endif +#endif + end interface + + interface hipblasDsyr + function hipblasDsyr_(handle,uplo,n,alpha,x,incx,AP,lda) bind(c, name="hipblasDsyr") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDsyr_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: AP + integer(c_int),value :: lda + end function + + module procedure hipblasDsyr_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDsyr_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDsyr_rank_0,& + hipblasDsyr_rank_1,& + hipblasDsyr_full_rank +#endif +#endif + end interface + + interface hipblasCsyr + function hipblasCsyr_(handle,uplo,n,alpha,x,incx,AP,lda) bind(c, name="hipblasCsyr") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCsyr_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: AP + integer(c_int),value :: lda + end function + + module procedure hipblasCsyr_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCsyr_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCsyr_rank_0,& + hipblasCsyr_rank_1,& + hipblasCsyr_full_rank +#endif +#endif + end interface + + interface hipblasZsyr + function hipblasZsyr_(handle,uplo,n,alpha,x,incx,AP,lda) bind(c, name="hipblasZsyr") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZsyr_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: AP + integer(c_int),value :: lda + end function + + module procedure hipblasZsyr_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZsyr_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZsyr_rank_0,& + hipblasZsyr_rank_1,& + hipblasZsyr_full_rank +#endif +#endif + end interface + + interface hipblasSsyr_64 + function hipblasSsyr_64_(handle,uplo,n,alpha,x,incx,AP,lda) bind(c, name="hipblasSsyr_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSsyr_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + end function + + module procedure hipblasSsyr_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSsyr_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSsyr_64_rank_0,& + hipblasSsyr_64_rank_1,& + hipblasSsyr_64_full_rank +#endif +#endif + end interface + + interface hipblasDsyr_64 + function hipblasDsyr_64_(handle,uplo,n,alpha,x,incx,AP,lda) bind(c, name="hipblasDsyr_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDsyr_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + end function + + module procedure hipblasDsyr_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDsyr_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDsyr_64_rank_0,& + hipblasDsyr_64_rank_1,& + hipblasDsyr_64_full_rank +#endif +#endif + end interface + + interface hipblasCsyr_64 + function hipblasCsyr_64_(handle,uplo,n,alpha,x,incx,AP,lda) bind(c, name="hipblasCsyr_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCsyr_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + end function + + module procedure hipblasCsyr_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCsyr_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCsyr_64_rank_0,& + hipblasCsyr_64_rank_1,& + hipblasCsyr_64_full_rank +#endif +#endif + end interface + + interface hipblasZsyr_64 + function hipblasZsyr_64_(handle,uplo,n,alpha,x,incx,AP,lda) bind(c, name="hipblasZsyr_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZsyr_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + end function + + module procedure hipblasZsyr_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZsyr_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZsyr_64_rank_0,& + hipblasZsyr_64_rank_1,& + hipblasZsyr_64_full_rank +#endif +#endif + end interface + + interface hipblasSsyrBatched + function hipblasSsyrBatched_(handle,uplo,n,alpha,x,incx,AP,lda,batchCount) & + bind(c, name="hipblasSsyrBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSsyrBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int),value :: batchCount + end function + + module procedure hipblasSsyrBatched_typed + end interface + + interface hipblasDsyrBatched + function hipblasDsyrBatched_(handle,uplo,n,alpha,x,incx,AP,lda,batchCount) & + bind(c, name="hipblasDsyrBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDsyrBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int),value :: batchCount + end function + + module procedure hipblasDsyrBatched_typed + end interface + + interface hipblasCsyrBatched + function hipblasCsyrBatched_(handle,uplo,n,alpha,x,incx,AP,lda,batchCount) & + bind(c, name="hipblasCsyrBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCsyrBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int),value :: batchCount + end function + + module procedure hipblasCsyrBatched_typed + end interface + + interface hipblasZsyrBatched + function hipblasZsyrBatched_(handle,uplo,n,alpha,x,incx,AP,lda,batchCount) & + bind(c, name="hipblasZsyrBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZsyrBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int),value :: batchCount + end function + + module procedure hipblasZsyrBatched_typed + end interface + + interface hipblasSsyrBatched_64 + function hipblasSsyrBatched_64_(handle,uplo,n,alpha,x,incx,AP,lda,batchCount) & + bind(c, name="hipblasSsyrBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSsyrBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasSsyrBatched_64_typed + end interface + + interface hipblasDsyrBatched_64 + function hipblasDsyrBatched_64_(handle,uplo,n,alpha,x,incx,AP,lda,batchCount) & + bind(c, name="hipblasDsyrBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDsyrBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasDsyrBatched_64_typed + end interface + + interface hipblasCsyrBatched_64 + function hipblasCsyrBatched_64_(handle,uplo,n,alpha,x,incx,AP,lda,batchCount) & + bind(c, name="hipblasCsyrBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCsyrBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasCsyrBatched_64_typed + end interface + + interface hipblasZsyrBatched_64 + function hipblasZsyrBatched_64_(handle,uplo,n,alpha,x,incx,AP,lda,batchCount) & + bind(c, name="hipblasZsyrBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZsyrBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasZsyrBatched_64_typed + end interface + + interface hipblasSsyrStridedBatched + function hipblasSsyrStridedBatched_(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & + batchCount) & + bind(c, name="hipblasSsyrStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSsyrStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + integer(c_int),value :: batchCount + end function + + module procedure hipblasSsyrStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSsyrStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSsyrStridedBatched_rank_0,& + hipblasSsyrStridedBatched_rank_1,& + hipblasSsyrStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasDsyrStridedBatched + function hipblasDsyrStridedBatched_(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & + batchCount) & + bind(c, name="hipblasDsyrStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDsyrStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + integer(c_int),value :: batchCount + end function + + module procedure hipblasDsyrStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDsyrStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDsyrStridedBatched_rank_0,& + hipblasDsyrStridedBatched_rank_1,& + hipblasDsyrStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasCsyrStridedBatched + function hipblasCsyrStridedBatched_(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & + batchCount) & + bind(c, name="hipblasCsyrStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCsyrStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + integer(c_int),value :: batchCount + end function + + module procedure hipblasCsyrStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCsyrStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCsyrStridedBatched_rank_0,& + hipblasCsyrStridedBatched_rank_1,& + hipblasCsyrStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasZsyrStridedBatched + function hipblasZsyrStridedBatched_(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & + batchCount) & + bind(c, name="hipblasZsyrStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZsyrStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + integer(c_int),value :: batchCount + end function + + module procedure hipblasZsyrStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZsyrStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZsyrStridedBatched_rank_0,& + hipblasZsyrStridedBatched_rank_1,& + hipblasZsyrStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasSsyrStridedBatched_64 + function hipblasSsyrStridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & + batchCount) & + bind(c, name="hipblasSsyrStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSsyrStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasSsyrStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSsyrStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSsyrStridedBatched_64_rank_0,& + hipblasSsyrStridedBatched_64_rank_1,& + hipblasSsyrStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasDsyrStridedBatched_64 + function hipblasDsyrStridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & + batchCount) & + bind(c, name="hipblasDsyrStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDsyrStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasDsyrStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDsyrStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDsyrStridedBatched_64_rank_0,& + hipblasDsyrStridedBatched_64_rank_1,& + hipblasDsyrStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasCsyrStridedBatched_64 + function hipblasCsyrStridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & + batchCount) & + bind(c, name="hipblasCsyrStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCsyrStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasCsyrStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCsyrStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCsyrStridedBatched_64_rank_0,& + hipblasCsyrStridedBatched_64_rank_1,& + hipblasCsyrStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasZsyrStridedBatched_64 + function hipblasZsyrStridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & + batchCount) & + bind(c, name="hipblasZsyrStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZsyrStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasZsyrStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZsyrStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZsyrStridedBatched_64_rank_0,& + hipblasZsyrStridedBatched_64_rank_1,& + hipblasZsyrStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasSsyr2 + function hipblasSsyr2_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) bind(c, name="hipblasSsyr2") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSsyr2_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + type(c_ptr),value :: AP + integer(c_int),value :: lda + end function + + module procedure hipblasSsyr2_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSsyr2_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSsyr2_rank_0,& + hipblasSsyr2_rank_1,& + hipblasSsyr2_full_rank +#endif +#endif + end interface + + interface hipblasDsyr2 + function hipblasDsyr2_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) bind(c, name="hipblasDsyr2") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDsyr2_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + type(c_ptr),value :: AP + integer(c_int),value :: lda + end function + + module procedure hipblasDsyr2_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDsyr2_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDsyr2_rank_0,& + hipblasDsyr2_rank_1,& + hipblasDsyr2_full_rank +#endif +#endif + end interface + + interface hipblasCsyr2 + function hipblasCsyr2_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) bind(c, name="hipblasCsyr2") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCsyr2_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + type(c_ptr),value :: AP + integer(c_int),value :: lda + end function + + module procedure hipblasCsyr2_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCsyr2_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCsyr2_rank_0,& + hipblasCsyr2_rank_1,& + hipblasCsyr2_full_rank +#endif +#endif + end interface + + interface hipblasZsyr2 + function hipblasZsyr2_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) bind(c, name="hipblasZsyr2") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZsyr2_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + type(c_ptr),value :: AP + integer(c_int),value :: lda + end function + + module procedure hipblasZsyr2_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZsyr2_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZsyr2_rank_0,& + hipblasZsyr2_rank_1,& + hipblasZsyr2_full_rank +#endif +#endif + end interface + + interface hipblasSsyr2_64 + function hipblasSsyr2_64_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) & + bind(c, name="hipblasSsyr2_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSsyr2_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + end function + + module procedure hipblasSsyr2_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSsyr2_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSsyr2_64_rank_0,& + hipblasSsyr2_64_rank_1,& + hipblasSsyr2_64_full_rank +#endif +#endif + end interface + + interface hipblasDsyr2_64 + function hipblasDsyr2_64_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) & + bind(c, name="hipblasDsyr2_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDsyr2_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + end function + + module procedure hipblasDsyr2_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDsyr2_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDsyr2_64_rank_0,& + hipblasDsyr2_64_rank_1,& + hipblasDsyr2_64_full_rank +#endif +#endif + end interface + + interface hipblasCsyr2_64 + function hipblasCsyr2_64_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) & + bind(c, name="hipblasCsyr2_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCsyr2_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + end function + + module procedure hipblasCsyr2_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCsyr2_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCsyr2_64_rank_0,& + hipblasCsyr2_64_rank_1,& + hipblasCsyr2_64_full_rank +#endif +#endif + end interface + + interface hipblasZsyr2_64 + function hipblasZsyr2_64_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) & + bind(c, name="hipblasZsyr2_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZsyr2_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + end function + + module procedure hipblasZsyr2_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZsyr2_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZsyr2_64_rank_0,& + hipblasZsyr2_64_rank_1,& + hipblasZsyr2_64_full_rank +#endif +#endif + end interface + + interface hipblasSsyr2Batched + function hipblasSsyr2Batched_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda,batchCount) & + bind(c, name="hipblasSsyr2Batched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSsyr2Batched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int),value :: batchCount + end function + + module procedure hipblasSsyr2Batched_typed + end interface + + interface hipblasDsyr2Batched + function hipblasDsyr2Batched_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda,batchCount) & + bind(c, name="hipblasDsyr2Batched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDsyr2Batched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int),value :: batchCount + end function + + module procedure hipblasDsyr2Batched_typed + end interface + + interface hipblasCsyr2Batched + function hipblasCsyr2Batched_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda,batchCount) & + bind(c, name="hipblasCsyr2Batched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCsyr2Batched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int),value :: batchCount + end function + + module procedure hipblasCsyr2Batched_typed + end interface + + interface hipblasZsyr2Batched + function hipblasZsyr2Batched_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda,batchCount) & + bind(c, name="hipblasZsyr2Batched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZsyr2Batched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: incy + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int),value :: batchCount + end function + + module procedure hipblasZsyr2Batched_typed + end interface + + interface hipblasSsyr2Batched_64 + function hipblasSsyr2Batched_64_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda,batchCount) & + bind(c, name="hipblasSsyr2Batched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSsyr2Batched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasSsyr2Batched_64_typed + end interface + + interface hipblasDsyr2Batched_64 + function hipblasDsyr2Batched_64_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda,batchCount) & + bind(c, name="hipblasDsyr2Batched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDsyr2Batched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasDsyr2Batched_64_typed + end interface + + interface hipblasCsyr2Batched_64 + function hipblasCsyr2Batched_64_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda,batchCount) & + bind(c, name="hipblasCsyr2Batched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCsyr2Batched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasCsyr2Batched_64_typed + end interface + + interface hipblasZsyr2Batched_64 + function hipblasZsyr2Batched_64_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda,batchCount) & + bind(c, name="hipblasZsyr2Batched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZsyr2Batched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasZsyr2Batched_64_typed + end interface + + interface hipblasSsyr2StridedBatched + function hipblasSsyr2StridedBatched_(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey,AP,lda, & + strideA,batchCount) & + bind(c, name="hipblasSsyr2StridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSsyr2StridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int64_t),value :: stridey + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + integer(c_int),value :: batchCount + end function + + module procedure hipblasSsyr2StridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSsyr2StridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSsyr2StridedBatched_rank_0,& + hipblasSsyr2StridedBatched_rank_1,& + hipblasSsyr2StridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasDsyr2StridedBatched + function hipblasDsyr2StridedBatched_(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey,AP,lda, & + strideA,batchCount) & + bind(c, name="hipblasDsyr2StridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDsyr2StridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int64_t),value :: stridey + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + integer(c_int),value :: batchCount + end function + + module procedure hipblasDsyr2StridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDsyr2StridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDsyr2StridedBatched_rank_0,& + hipblasDsyr2StridedBatched_rank_1,& + hipblasDsyr2StridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasCsyr2StridedBatched + function hipblasCsyr2StridedBatched_(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey,AP,lda, & + strideA,batchCount) & + bind(c, name="hipblasCsyr2StridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCsyr2StridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int64_t),value :: stridey + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + integer(c_int),value :: batchCount + end function + + module procedure hipblasCsyr2StridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCsyr2StridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCsyr2StridedBatched_rank_0,& + hipblasCsyr2StridedBatched_rank_1,& + hipblasCsyr2StridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasZsyr2StridedBatched + function hipblasZsyr2StridedBatched_(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey,AP,lda, & + strideA,batchCount) & + bind(c, name="hipblasZsyr2StridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZsyr2StridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int),value :: incy + integer(c_int64_t),value :: stridey + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + integer(c_int),value :: batchCount + end function + + module procedure hipblasZsyr2StridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZsyr2StridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZsyr2StridedBatched_rank_0,& + hipblasZsyr2StridedBatched_rank_1,& + hipblasZsyr2StridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasSsyr2StridedBatched_64 + function hipblasSsyr2StridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey,AP, & + lda,strideA,batchCount) & + bind(c, name="hipblasSsyr2StridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSsyr2StridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: stridey + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasSsyr2StridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSsyr2StridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSsyr2StridedBatched_64_rank_0,& + hipblasSsyr2StridedBatched_64_rank_1,& + hipblasSsyr2StridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasDsyr2StridedBatched_64 + function hipblasDsyr2StridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey,AP, & + lda,strideA,batchCount) & + bind(c, name="hipblasDsyr2StridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDsyr2StridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: stridey + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasDsyr2StridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDsyr2StridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDsyr2StridedBatched_64_rank_0,& + hipblasDsyr2StridedBatched_64_rank_1,& + hipblasDsyr2StridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasCsyr2StridedBatched_64 + function hipblasCsyr2StridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey,AP, & + lda,strideA,batchCount) & + bind(c, name="hipblasCsyr2StridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCsyr2StridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: stridey + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasCsyr2StridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCsyr2StridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCsyr2StridedBatched_64_rank_0,& + hipblasCsyr2StridedBatched_64_rank_1,& + hipblasCsyr2StridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasZsyr2StridedBatched_64 + function hipblasZsyr2StridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey,AP, & + lda,strideA,batchCount) & + bind(c, name="hipblasZsyr2StridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZsyr2StridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: stridey + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasZsyr2StridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZsyr2StridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZsyr2StridedBatched_64_rank_0,& + hipblasZsyr2StridedBatched_64_rank_1,& + hipblasZsyr2StridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasStbmv + function hipblasStbmv_(handle,uplo,transA,diag,n,k,AP,lda,x,incx) bind(c, name="hipblasStbmv") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasStbmv_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasStbmv_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasStbmv_rank_0,& + hipblasStbmv_rank_1,& + hipblasStbmv_full_rank +#endif +#endif + end interface + + interface hipblasDtbmv + function hipblasDtbmv_(handle,uplo,transA,diag,n,k,AP,lda,x,incx) bind(c, name="hipblasDtbmv") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDtbmv_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDtbmv_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDtbmv_rank_0,& + hipblasDtbmv_rank_1,& + hipblasDtbmv_full_rank +#endif +#endif + end interface + + interface hipblasCtbmv + function hipblasCtbmv_(handle,uplo,transA,diag,n,k,AP,lda,x,incx) bind(c, name="hipblasCtbmv") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCtbmv_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCtbmv_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCtbmv_rank_0,& + hipblasCtbmv_rank_1,& + hipblasCtbmv_full_rank +#endif +#endif + end interface + + interface hipblasZtbmv + function hipblasZtbmv_(handle,uplo,transA,diag,n,k,AP,lda,x,incx) bind(c, name="hipblasZtbmv") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZtbmv_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZtbmv_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZtbmv_rank_0,& + hipblasZtbmv_rank_1,& + hipblasZtbmv_full_rank +#endif +#endif + end interface + + interface hipblasStbmv_64 + function hipblasStbmv_64_(handle,uplo,transA,diag,n,k,AP,lda,x,incx) & + bind(c, name="hipblasStbmv_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasStbmv_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasStbmv_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasStbmv_64_rank_0,& + hipblasStbmv_64_rank_1,& + hipblasStbmv_64_full_rank +#endif +#endif + end interface + + interface hipblasDtbmv_64 + function hipblasDtbmv_64_(handle,uplo,transA,diag,n,k,AP,lda,x,incx) & + bind(c, name="hipblasDtbmv_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDtbmv_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDtbmv_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDtbmv_64_rank_0,& + hipblasDtbmv_64_rank_1,& + hipblasDtbmv_64_full_rank +#endif +#endif + end interface + + interface hipblasCtbmv_64 + function hipblasCtbmv_64_(handle,uplo,transA,diag,n,k,AP,lda,x,incx) & + bind(c, name="hipblasCtbmv_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCtbmv_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCtbmv_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCtbmv_64_rank_0,& + hipblasCtbmv_64_rank_1,& + hipblasCtbmv_64_full_rank +#endif +#endif + end interface + + interface hipblasZtbmv_64 + function hipblasZtbmv_64_(handle,uplo,transA,diag,n,k,AP,lda,x,incx) & + bind(c, name="hipblasZtbmv_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZtbmv_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZtbmv_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZtbmv_64_rank_0,& + hipblasZtbmv_64_rank_1,& + hipblasZtbmv_64_full_rank +#endif +#endif + end interface + + interface hipblasStbmvBatched + function hipblasStbmvBatched_(handle,uplo,transA,diag,n,k,AP,lda,x,incx,batchCount) & + bind(c, name="hipblasStbmvBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasStbmvBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int),value :: batchCount + end function + end interface + + interface hipblasDtbmvBatched + function hipblasDtbmvBatched_(handle,uplo,transA,diag,n,k,AP,lda,x,incx,batchCount) & + bind(c, name="hipblasDtbmvBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDtbmvBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int),value :: batchCount + end function + end interface + + interface hipblasCtbmvBatched + function hipblasCtbmvBatched_(handle,uplo,transA,diag,n,k,AP,lda,x,incx,batchCount) & + bind(c, name="hipblasCtbmvBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCtbmvBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int),value :: batchCount + end function + end interface + + interface hipblasZtbmvBatched + function hipblasZtbmvBatched_(handle,uplo,transA,diag,n,k,AP,lda,x,incx,batchCount) & + bind(c, name="hipblasZtbmvBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZtbmvBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int),value :: batchCount + end function + end interface + + interface hipblasStbmvBatched_64 + function hipblasStbmvBatched_64_(handle,uplo,transA,diag,n,k,AP,lda,x,incx,batchCount) & + bind(c, name="hipblasStbmvBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasStbmvBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: batchCount + end function + end interface + + interface hipblasDtbmvBatched_64 + function hipblasDtbmvBatched_64_(handle,uplo,transA,diag,n,k,AP,lda,x,incx,batchCount) & + bind(c, name="hipblasDtbmvBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDtbmvBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: batchCount + end function + end interface + + interface hipblasCtbmvBatched_64 + function hipblasCtbmvBatched_64_(handle,uplo,transA,diag,n,k,AP,lda,x,incx,batchCount) & + bind(c, name="hipblasCtbmvBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCtbmvBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: batchCount + end function + end interface + + interface hipblasZtbmvBatched_64 + function hipblasZtbmvBatched_64_(handle,uplo,transA,diag,n,k,AP,lda,x,incx,batchCount) & + bind(c, name="hipblasZtbmvBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZtbmvBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: batchCount + end function + end interface + + interface hipblasStbmvStridedBatched + function hipblasStbmvStridedBatched_(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & + stridex,batchCount) & + bind(c, name="hipblasStbmvStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasStbmvStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasStbmvStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasStbmvStridedBatched_rank_0,& + hipblasStbmvStridedBatched_rank_1,& + hipblasStbmvStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasDtbmvStridedBatched + function hipblasDtbmvStridedBatched_(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & + stridex,batchCount) & + bind(c, name="hipblasDtbmvStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDtbmvStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDtbmvStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDtbmvStridedBatched_rank_0,& + hipblasDtbmvStridedBatched_rank_1,& + hipblasDtbmvStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasCtbmvStridedBatched + function hipblasCtbmvStridedBatched_(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & + stridex,batchCount) & + bind(c, name="hipblasCtbmvStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCtbmvStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCtbmvStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCtbmvStridedBatched_rank_0,& + hipblasCtbmvStridedBatched_rank_1,& + hipblasCtbmvStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasZtbmvStridedBatched + function hipblasZtbmvStridedBatched_(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & + stridex,batchCount) & + bind(c, name="hipblasZtbmvStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZtbmvStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZtbmvStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZtbmvStridedBatched_rank_0,& + hipblasZtbmvStridedBatched_rank_1,& + hipblasZtbmvStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasStbmvStridedBatched_64 + function hipblasStbmvStridedBatched_64_(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & + stridex,batchCount) & + bind(c, name="hipblasStbmvStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasStbmvStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int64_t),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasStbmvStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasStbmvStridedBatched_64_rank_0,& + hipblasStbmvStridedBatched_64_rank_1,& + hipblasStbmvStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasDtbmvStridedBatched_64 + function hipblasDtbmvStridedBatched_64_(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & + stridex,batchCount) & + bind(c, name="hipblasDtbmvStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDtbmvStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int64_t),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDtbmvStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDtbmvStridedBatched_64_rank_0,& + hipblasDtbmvStridedBatched_64_rank_1,& + hipblasDtbmvStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasCtbmvStridedBatched_64 + function hipblasCtbmvStridedBatched_64_(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & + stridex,batchCount) & + bind(c, name="hipblasCtbmvStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCtbmvStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int64_t),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCtbmvStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCtbmvStridedBatched_64_rank_0,& + hipblasCtbmvStridedBatched_64_rank_1,& + hipblasCtbmvStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasZtbmvStridedBatched_64 + function hipblasZtbmvStridedBatched_64_(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & + stridex,batchCount) & + bind(c, name="hipblasZtbmvStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZtbmvStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int64_t),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZtbmvStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZtbmvStridedBatched_64_rank_0,& + hipblasZtbmvStridedBatched_64_rank_1,& + hipblasZtbmvStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasStbsv + function hipblasStbsv_(handle,uplo,transA,diag,n,k,AP,lda,x,incx) bind(c, name="hipblasStbsv") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasStbsv_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasStbsv_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasStbsv_rank_0,& + hipblasStbsv_rank_1,& + hipblasStbsv_full_rank +#endif +#endif + end interface + + interface hipblasDtbsv + function hipblasDtbsv_(handle,uplo,transA,diag,n,k,AP,lda,x,incx) bind(c, name="hipblasDtbsv") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDtbsv_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDtbsv_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDtbsv_rank_0,& + hipblasDtbsv_rank_1,& + hipblasDtbsv_full_rank +#endif +#endif + end interface + + interface hipblasCtbsv + function hipblasCtbsv_(handle,uplo,transA,diag,n,k,AP,lda,x,incx) bind(c, name="hipblasCtbsv") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCtbsv_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCtbsv_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCtbsv_rank_0,& + hipblasCtbsv_rank_1,& + hipblasCtbsv_full_rank +#endif +#endif + end interface + + interface hipblasZtbsv + function hipblasZtbsv_(handle,uplo,transA,diag,n,k,AP,lda,x,incx) bind(c, name="hipblasZtbsv") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZtbsv_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZtbsv_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZtbsv_rank_0,& + hipblasZtbsv_rank_1,& + hipblasZtbsv_full_rank +#endif +#endif + end interface + + interface hipblasStbsv_64 + function hipblasStbsv_64_(handle,uplo,transA,diag,n,k,AP,lda,x,incx) & + bind(c, name="hipblasStbsv_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasStbsv_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasStbsv_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasStbsv_64_rank_0,& + hipblasStbsv_64_rank_1,& + hipblasStbsv_64_full_rank +#endif +#endif + end interface + + interface hipblasDtbsv_64 + function hipblasDtbsv_64_(handle,uplo,transA,diag,n,k,AP,lda,x,incx) & + bind(c, name="hipblasDtbsv_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDtbsv_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDtbsv_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDtbsv_64_rank_0,& + hipblasDtbsv_64_rank_1,& + hipblasDtbsv_64_full_rank +#endif +#endif + end interface + + interface hipblasCtbsv_64 + function hipblasCtbsv_64_(handle,uplo,transA,diag,n,k,AP,lda,x,incx) & + bind(c, name="hipblasCtbsv_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCtbsv_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCtbsv_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCtbsv_64_rank_0,& + hipblasCtbsv_64_rank_1,& + hipblasCtbsv_64_full_rank +#endif +#endif + end interface + + interface hipblasZtbsv_64 + function hipblasZtbsv_64_(handle,uplo,transA,diag,n,k,AP,lda,x,incx) & + bind(c, name="hipblasZtbsv_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZtbsv_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZtbsv_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZtbsv_64_rank_0,& + hipblasZtbsv_64_rank_1,& + hipblasZtbsv_64_full_rank +#endif +#endif + end interface + + interface hipblasStbsvBatched + function hipblasStbsvBatched_(handle,uplo,transA,diag,n,k,AP,lda,x,incx,batchCount) & + bind(c, name="hipblasStbsvBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasStbsvBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int),value :: batchCount + end function + end interface + + interface hipblasDtbsvBatched + function hipblasDtbsvBatched_(handle,uplo,transA,diag,n,k,AP,lda,x,incx,batchCount) & + bind(c, name="hipblasDtbsvBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDtbsvBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int),value :: batchCount + end function + end interface + + interface hipblasCtbsvBatched + function hipblasCtbsvBatched_(handle,uplo,transA,diag,n,k,AP,lda,x,incx,batchCount) & + bind(c, name="hipblasCtbsvBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCtbsvBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int),value :: batchCount + end function + end interface + + interface hipblasZtbsvBatched + function hipblasZtbsvBatched_(handle,uplo,transA,diag,n,k,AP,lda,x,incx,batchCount) & + bind(c, name="hipblasZtbsvBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZtbsvBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int),value :: batchCount + end function + end interface + + interface hipblasStbsvBatched_64 + function hipblasStbsvBatched_64_(handle,uplo,transA,diag,n,k,AP,lda,x,incx,batchCount) & + bind(c, name="hipblasStbsvBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasStbsvBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: batchCount + end function + end interface + + interface hipblasDtbsvBatched_64 + function hipblasDtbsvBatched_64_(handle,uplo,transA,diag,n,k,AP,lda,x,incx,batchCount) & + bind(c, name="hipblasDtbsvBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDtbsvBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: batchCount + end function + end interface + + interface hipblasCtbsvBatched_64 + function hipblasCtbsvBatched_64_(handle,uplo,transA,diag,n,k,AP,lda,x,incx,batchCount) & + bind(c, name="hipblasCtbsvBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCtbsvBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: batchCount + end function + end interface + + interface hipblasZtbsvBatched_64 + function hipblasZtbsvBatched_64_(handle,uplo,transA,diag,n,k,AP,lda,x,incx,batchCount) & + bind(c, name="hipblasZtbsvBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZtbsvBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: batchCount + end function + end interface + + interface hipblasStbsvStridedBatched + function hipblasStbsvStridedBatched_(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & + stridex,batchCount) & + bind(c, name="hipblasStbsvStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasStbsvStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasStbsvStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasStbsvStridedBatched_rank_0,& + hipblasStbsvStridedBatched_rank_1,& + hipblasStbsvStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasDtbsvStridedBatched + function hipblasDtbsvStridedBatched_(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & + stridex,batchCount) & + bind(c, name="hipblasDtbsvStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDtbsvStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDtbsvStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDtbsvStridedBatched_rank_0,& + hipblasDtbsvStridedBatched_rank_1,& + hipblasDtbsvStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasCtbsvStridedBatched + function hipblasCtbsvStridedBatched_(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & + stridex,batchCount) & + bind(c, name="hipblasCtbsvStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCtbsvStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCtbsvStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCtbsvStridedBatched_rank_0,& + hipblasCtbsvStridedBatched_rank_1,& + hipblasCtbsvStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasZtbsvStridedBatched + function hipblasZtbsvStridedBatched_(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & + stridex,batchCount) & + bind(c, name="hipblasZtbsvStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZtbsvStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZtbsvStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZtbsvStridedBatched_rank_0,& + hipblasZtbsvStridedBatched_rank_1,& + hipblasZtbsvStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasStbsvStridedBatched_64 + function hipblasStbsvStridedBatched_64_(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & + stridex,batchCount) & + bind(c, name="hipblasStbsvStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasStbsvStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int64_t),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasStbsvStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasStbsvStridedBatched_64_rank_0,& + hipblasStbsvStridedBatched_64_rank_1,& + hipblasStbsvStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasDtbsvStridedBatched_64 + function hipblasDtbsvStridedBatched_64_(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & + stridex,batchCount) & + bind(c, name="hipblasDtbsvStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDtbsvStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int64_t),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDtbsvStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDtbsvStridedBatched_64_rank_0,& + hipblasDtbsvStridedBatched_64_rank_1,& + hipblasDtbsvStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasCtbsvStridedBatched_64 + function hipblasCtbsvStridedBatched_64_(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & + stridex,batchCount) & + bind(c, name="hipblasCtbsvStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCtbsvStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int64_t),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCtbsvStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCtbsvStridedBatched_64_rank_0,& + hipblasCtbsvStridedBatched_64_rank_1,& + hipblasCtbsvStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasZtbsvStridedBatched_64 + function hipblasZtbsvStridedBatched_64_(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & + stridex,batchCount) & + bind(c, name="hipblasZtbsvStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZtbsvStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int64_t),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZtbsvStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZtbsvStridedBatched_64_rank_0,& + hipblasZtbsvStridedBatched_64_rank_1,& + hipblasZtbsvStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasStpmv + function hipblasStpmv_(handle,uplo,transA,diag,n,AP,x,incx) bind(c, name="hipblasStpmv") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasStpmv_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: n + type(c_ptr),value :: AP + type(c_ptr),value :: x + integer(c_int),value :: incx + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasStpmv_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasStpmv_rank_0,& + hipblasStpmv_rank_1 +#endif +#endif + end interface + + interface hipblasDtpmv + function hipblasDtpmv_(handle,uplo,transA,diag,n,AP,x,incx) bind(c, name="hipblasDtpmv") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDtpmv_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: n + type(c_ptr),value :: AP + type(c_ptr),value :: x + integer(c_int),value :: incx + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDtpmv_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDtpmv_rank_0,& + hipblasDtpmv_rank_1 +#endif +#endif + end interface + + interface hipblasCtpmv + function hipblasCtpmv_(handle,uplo,transA,diag,n,AP,x,incx) bind(c, name="hipblasCtpmv") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCtpmv_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: n + type(c_ptr),value :: AP + type(c_ptr),value :: x + integer(c_int),value :: incx + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCtpmv_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCtpmv_rank_0,& + hipblasCtpmv_rank_1 +#endif +#endif + end interface + + interface hipblasZtpmv + function hipblasZtpmv_(handle,uplo,transA,diag,n,AP,x,incx) bind(c, name="hipblasZtpmv") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZtpmv_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: n + type(c_ptr),value :: AP + type(c_ptr),value :: x + integer(c_int),value :: incx + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZtpmv_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZtpmv_rank_0,& + hipblasZtpmv_rank_1 +#endif +#endif + end interface + + interface hipblasStpmv_64 + function hipblasStpmv_64_(handle,uplo,transA,diag,n,AP,x,incx) bind(c, name="hipblasStpmv_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasStpmv_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: n + type(c_ptr),value :: AP + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasStpmv_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasStpmv_64_rank_0,& + hipblasStpmv_64_rank_1 +#endif +#endif + end interface + + interface hipblasDtpmv_64 + function hipblasDtpmv_64_(handle,uplo,transA,diag,n,AP,x,incx) bind(c, name="hipblasDtpmv_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDtpmv_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: n + type(c_ptr),value :: AP + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDtpmv_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDtpmv_64_rank_0,& + hipblasDtpmv_64_rank_1 +#endif +#endif + end interface + + interface hipblasCtpmv_64 + function hipblasCtpmv_64_(handle,uplo,transA,diag,n,AP,x,incx) bind(c, name="hipblasCtpmv_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCtpmv_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: n + type(c_ptr),value :: AP + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCtpmv_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCtpmv_64_rank_0,& + hipblasCtpmv_64_rank_1 +#endif +#endif + end interface + + interface hipblasZtpmv_64 + function hipblasZtpmv_64_(handle,uplo,transA,diag,n,AP,x,incx) bind(c, name="hipblasZtpmv_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZtpmv_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: n + type(c_ptr),value :: AP + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZtpmv_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZtpmv_64_rank_0,& + hipblasZtpmv_64_rank_1 +#endif +#endif + end interface + + interface hipblasStpmvBatched + function hipblasStpmvBatched_(handle,uplo,transA,diag,n,AP,x,incx,batchCount) & + bind(c, name="hipblasStpmvBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasStpmvBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: n + type(c_ptr),value :: AP + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int),value :: batchCount + end function + end interface + + interface hipblasDtpmvBatched + function hipblasDtpmvBatched_(handle,uplo,transA,diag,n,AP,x,incx,batchCount) & + bind(c, name="hipblasDtpmvBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDtpmvBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: n + type(c_ptr),value :: AP + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int),value :: batchCount + end function + end interface + + interface hipblasCtpmvBatched + function hipblasCtpmvBatched_(handle,uplo,transA,diag,n,AP,x,incx,batchCount) & + bind(c, name="hipblasCtpmvBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCtpmvBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: n + type(c_ptr),value :: AP + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int),value :: batchCount + end function + end interface + + interface hipblasZtpmvBatched + function hipblasZtpmvBatched_(handle,uplo,transA,diag,n,AP,x,incx,batchCount) & + bind(c, name="hipblasZtpmvBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZtpmvBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: n + type(c_ptr),value :: AP + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int),value :: batchCount + end function + end interface + + interface hipblasStpmvBatched_64 + function hipblasStpmvBatched_64_(handle,uplo,transA,diag,n,AP,x,incx,batchCount) & + bind(c, name="hipblasStpmvBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasStpmvBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: n + type(c_ptr),value :: AP + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: batchCount + end function + end interface + + interface hipblasDtpmvBatched_64 + function hipblasDtpmvBatched_64_(handle,uplo,transA,diag,n,AP,x,incx,batchCount) & + bind(c, name="hipblasDtpmvBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDtpmvBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: n + type(c_ptr),value :: AP + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: batchCount + end function + end interface + + interface hipblasCtpmvBatched_64 + function hipblasCtpmvBatched_64_(handle,uplo,transA,diag,n,AP,x,incx,batchCount) & + bind(c, name="hipblasCtpmvBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCtpmvBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: n + type(c_ptr),value :: AP + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: batchCount + end function + end interface + + interface hipblasZtpmvBatched_64 + function hipblasZtpmvBatched_64_(handle,uplo,transA,diag,n,AP,x,incx,batchCount) & + bind(c, name="hipblasZtpmvBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZtpmvBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: n + type(c_ptr),value :: AP + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: batchCount + end function + end interface + + interface hipblasStpmvStridedBatched + function hipblasStpmvStridedBatched_(handle,uplo,transA,diag,n,AP,strideA,x,incx,stridex, & + batchCount) & + bind(c, name="hipblasStpmvStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasStpmvStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: n + type(c_ptr),value :: AP + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasStpmvStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasStpmvStridedBatched_rank_0,& + hipblasStpmvStridedBatched_rank_1 +#endif +#endif + end interface + + interface hipblasDtpmvStridedBatched + function hipblasDtpmvStridedBatched_(handle,uplo,transA,diag,n,AP,strideA,x,incx,stridex, & + batchCount) & + bind(c, name="hipblasDtpmvStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDtpmvStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: n + type(c_ptr),value :: AP + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDtpmvStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDtpmvStridedBatched_rank_0,& + hipblasDtpmvStridedBatched_rank_1 +#endif +#endif + end interface + + interface hipblasCtpmvStridedBatched + function hipblasCtpmvStridedBatched_(handle,uplo,transA,diag,n,AP,strideA,x,incx,stridex, & + batchCount) & + bind(c, name="hipblasCtpmvStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCtpmvStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: n + type(c_ptr),value :: AP + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCtpmvStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCtpmvStridedBatched_rank_0,& + hipblasCtpmvStridedBatched_rank_1 +#endif +#endif + end interface + + interface hipblasZtpmvStridedBatched + function hipblasZtpmvStridedBatched_(handle,uplo,transA,diag,n,AP,strideA,x,incx,stridex, & + batchCount) & + bind(c, name="hipblasZtpmvStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZtpmvStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: n + type(c_ptr),value :: AP + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZtpmvStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZtpmvStridedBatched_rank_0,& + hipblasZtpmvStridedBatched_rank_1 +#endif +#endif + end interface + + interface hipblasStpmvStridedBatched_64 + function hipblasStpmvStridedBatched_64_(handle,uplo,transA,diag,n,AP,strideA,x,incx,stridex, & + batchCount) & + bind(c, name="hipblasStpmvStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasStpmvStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: n + type(c_ptr),value :: AP + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int64_t),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasStpmvStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasStpmvStridedBatched_64_rank_0,& + hipblasStpmvStridedBatched_64_rank_1 +#endif +#endif + end interface + + interface hipblasDtpmvStridedBatched_64 + function hipblasDtpmvStridedBatched_64_(handle,uplo,transA,diag,n,AP,strideA,x,incx,stridex, & + batchCount) & + bind(c, name="hipblasDtpmvStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDtpmvStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: n + type(c_ptr),value :: AP + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int64_t),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDtpmvStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDtpmvStridedBatched_64_rank_0,& + hipblasDtpmvStridedBatched_64_rank_1 +#endif +#endif + end interface + + interface hipblasCtpmvStridedBatched_64 + function hipblasCtpmvStridedBatched_64_(handle,uplo,transA,diag,n,AP,strideA,x,incx,stridex, & + batchCount) & + bind(c, name="hipblasCtpmvStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCtpmvStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: n + type(c_ptr),value :: AP + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int64_t),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCtpmvStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCtpmvStridedBatched_64_rank_0,& + hipblasCtpmvStridedBatched_64_rank_1 +#endif +#endif + end interface + + interface hipblasZtpmvStridedBatched_64 + function hipblasZtpmvStridedBatched_64_(handle,uplo,transA,diag,n,AP,strideA,x,incx,stridex, & + batchCount) & + bind(c, name="hipblasZtpmvStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZtpmvStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: n + type(c_ptr),value :: AP + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int64_t),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZtpmvStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZtpmvStridedBatched_64_rank_0,& + hipblasZtpmvStridedBatched_64_rank_1 +#endif +#endif + end interface + + interface hipblasStpsv + function hipblasStpsv_(handle,uplo,transA,diag,n,AP,x,incx) bind(c, name="hipblasStpsv") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasStpsv_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: n + type(c_ptr),value :: AP + type(c_ptr),value :: x + integer(c_int),value :: incx + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasStpsv_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasStpsv_rank_0,& + hipblasStpsv_rank_1 +#endif +#endif + end interface + + interface hipblasDtpsv + function hipblasDtpsv_(handle,uplo,transA,diag,n,AP,x,incx) bind(c, name="hipblasDtpsv") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDtpsv_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: n + type(c_ptr),value :: AP + type(c_ptr),value :: x + integer(c_int),value :: incx + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDtpsv_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDtpsv_rank_0,& + hipblasDtpsv_rank_1 +#endif +#endif + end interface + + interface hipblasCtpsv + function hipblasCtpsv_(handle,uplo,transA,diag,n,AP,x,incx) bind(c, name="hipblasCtpsv") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCtpsv_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: n + type(c_ptr),value :: AP + type(c_ptr),value :: x + integer(c_int),value :: incx + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCtpsv_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCtpsv_rank_0,& + hipblasCtpsv_rank_1 +#endif +#endif + end interface + + interface hipblasZtpsv + function hipblasZtpsv_(handle,uplo,transA,diag,n,AP,x,incx) bind(c, name="hipblasZtpsv") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZtpsv_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: n + type(c_ptr),value :: AP + type(c_ptr),value :: x + integer(c_int),value :: incx + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZtpsv_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZtpsv_rank_0,& + hipblasZtpsv_rank_1 +#endif +#endif + end interface + + interface hipblasStpsv_64 + function hipblasStpsv_64_(handle,uplo,transA,diag,n,AP,x,incx) bind(c, name="hipblasStpsv_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasStpsv_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: n + type(c_ptr),value :: AP + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasStpsv_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasStpsv_64_rank_0,& + hipblasStpsv_64_rank_1 +#endif +#endif + end interface + + interface hipblasDtpsv_64 + function hipblasDtpsv_64_(handle,uplo,transA,diag,n,AP,x,incx) bind(c, name="hipblasDtpsv_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDtpsv_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: n + type(c_ptr),value :: AP + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDtpsv_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDtpsv_64_rank_0,& + hipblasDtpsv_64_rank_1 +#endif +#endif + end interface + + interface hipblasCtpsv_64 + function hipblasCtpsv_64_(handle,uplo,transA,diag,n,AP,x,incx) bind(c, name="hipblasCtpsv_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCtpsv_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: n + type(c_ptr),value :: AP + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCtpsv_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCtpsv_64_rank_0,& + hipblasCtpsv_64_rank_1 +#endif +#endif + end interface + + interface hipblasZtpsv_64 + function hipblasZtpsv_64_(handle,uplo,transA,diag,n,AP,x,incx) bind(c, name="hipblasZtpsv_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZtpsv_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: n + type(c_ptr),value :: AP + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZtpsv_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZtpsv_64_rank_0,& + hipblasZtpsv_64_rank_1 +#endif +#endif + end interface + + interface hipblasStpsvBatched + function hipblasStpsvBatched_(handle,uplo,transA,diag,n,AP,x,incx,batchCount) & + bind(c, name="hipblasStpsvBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasStpsvBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: n + type(c_ptr),value :: AP + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int),value :: batchCount + end function + end interface + + interface hipblasDtpsvBatched + function hipblasDtpsvBatched_(handle,uplo,transA,diag,n,AP,x,incx,batchCount) & + bind(c, name="hipblasDtpsvBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDtpsvBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: n + type(c_ptr),value :: AP + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int),value :: batchCount + end function + end interface + + interface hipblasCtpsvBatched + function hipblasCtpsvBatched_(handle,uplo,transA,diag,n,AP,x,incx,batchCount) & + bind(c, name="hipblasCtpsvBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCtpsvBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: n + type(c_ptr),value :: AP + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int),value :: batchCount + end function + end interface + + interface hipblasZtpsvBatched + function hipblasZtpsvBatched_(handle,uplo,transA,diag,n,AP,x,incx,batchCount) & + bind(c, name="hipblasZtpsvBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZtpsvBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: n + type(c_ptr),value :: AP + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int),value :: batchCount + end function + end interface + + interface hipblasStpsvBatched_64 + function hipblasStpsvBatched_64_(handle,uplo,transA,diag,n,AP,x,incx,batchCount) & + bind(c, name="hipblasStpsvBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasStpsvBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: n + type(c_ptr),value :: AP + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: batchCount + end function + end interface + + interface hipblasDtpsvBatched_64 + function hipblasDtpsvBatched_64_(handle,uplo,transA,diag,n,AP,x,incx,batchCount) & + bind(c, name="hipblasDtpsvBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDtpsvBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: n + type(c_ptr),value :: AP + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: batchCount + end function + end interface + + interface hipblasCtpsvBatched_64 + function hipblasCtpsvBatched_64_(handle,uplo,transA,diag,n,AP,x,incx,batchCount) & + bind(c, name="hipblasCtpsvBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCtpsvBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: n + type(c_ptr),value :: AP + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: batchCount + end function + end interface + + interface hipblasZtpsvBatched_64 + function hipblasZtpsvBatched_64_(handle,uplo,transA,diag,n,AP,x,incx,batchCount) & + bind(c, name="hipblasZtpsvBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZtpsvBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: n + type(c_ptr),value :: AP + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: batchCount + end function + end interface + + interface hipblasStpsvStridedBatched + function hipblasStpsvStridedBatched_(handle,uplo,transA,diag,n,AP,strideA,x,incx,stridex, & + batchCount) & + bind(c, name="hipblasStpsvStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasStpsvStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: n + type(c_ptr),value :: AP + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasStpsvStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasStpsvStridedBatched_rank_0,& + hipblasStpsvStridedBatched_rank_1 +#endif +#endif + end interface + + interface hipblasDtpsvStridedBatched + function hipblasDtpsvStridedBatched_(handle,uplo,transA,diag,n,AP,strideA,x,incx,stridex, & + batchCount) & + bind(c, name="hipblasDtpsvStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDtpsvStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: n + type(c_ptr),value :: AP + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDtpsvStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDtpsvStridedBatched_rank_0,& + hipblasDtpsvStridedBatched_rank_1 +#endif +#endif + end interface + + interface hipblasCtpsvStridedBatched + function hipblasCtpsvStridedBatched_(handle,uplo,transA,diag,n,AP,strideA,x,incx,stridex, & + batchCount) & + bind(c, name="hipblasCtpsvStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCtpsvStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: n + type(c_ptr),value :: AP + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCtpsvStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCtpsvStridedBatched_rank_0,& + hipblasCtpsvStridedBatched_rank_1 +#endif +#endif + end interface + + interface hipblasZtpsvStridedBatched + function hipblasZtpsvStridedBatched_(handle,uplo,transA,diag,n,AP,strideA,x,incx,stridex, & + batchCount) & + bind(c, name="hipblasZtpsvStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZtpsvStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: n + type(c_ptr),value :: AP + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZtpsvStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZtpsvStridedBatched_rank_0,& + hipblasZtpsvStridedBatched_rank_1 +#endif +#endif + end interface + + interface hipblasStpsvStridedBatched_64 + function hipblasStpsvStridedBatched_64_(handle,uplo,transA,diag,n,AP,strideA,x,incx,stridex, & + batchCount) & + bind(c, name="hipblasStpsvStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasStpsvStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: n + type(c_ptr),value :: AP + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int64_t),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasStpsvStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasStpsvStridedBatched_64_rank_0,& + hipblasStpsvStridedBatched_64_rank_1 +#endif +#endif + end interface + + interface hipblasDtpsvStridedBatched_64 + function hipblasDtpsvStridedBatched_64_(handle,uplo,transA,diag,n,AP,strideA,x,incx,stridex, & + batchCount) & + bind(c, name="hipblasDtpsvStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDtpsvStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: n + type(c_ptr),value :: AP + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int64_t),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDtpsvStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDtpsvStridedBatched_64_rank_0,& + hipblasDtpsvStridedBatched_64_rank_1 +#endif +#endif + end interface + + interface hipblasCtpsvStridedBatched_64 + function hipblasCtpsvStridedBatched_64_(handle,uplo,transA,diag,n,AP,strideA,x,incx,stridex, & + batchCount) & + bind(c, name="hipblasCtpsvStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCtpsvStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: n + type(c_ptr),value :: AP + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int64_t),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCtpsvStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCtpsvStridedBatched_64_rank_0,& + hipblasCtpsvStridedBatched_64_rank_1 +#endif +#endif + end interface + + interface hipblasZtpsvStridedBatched_64 + function hipblasZtpsvStridedBatched_64_(handle,uplo,transA,diag,n,AP,strideA,x,incx,stridex, & + batchCount) & + bind(c, name="hipblasZtpsvStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZtpsvStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: n + type(c_ptr),value :: AP + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int64_t),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZtpsvStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZtpsvStridedBatched_64_rank_0,& + hipblasZtpsvStridedBatched_64_rank_1 +#endif +#endif + end interface + + interface hipblasStrmv + function hipblasStrmv_(handle,uplo,transA,diag,n,AP,lda,x,incx) bind(c, name="hipblasStrmv") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasStrmv_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: n + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasStrmv_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasStrmv_rank_0,& + hipblasStrmv_rank_1,& + hipblasStrmv_full_rank +#endif +#endif + end interface + + interface hipblasDtrmv + function hipblasDtrmv_(handle,uplo,transA,diag,n,AP,lda,x,incx) bind(c, name="hipblasDtrmv") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDtrmv_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: n + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDtrmv_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDtrmv_rank_0,& + hipblasDtrmv_rank_1,& + hipblasDtrmv_full_rank +#endif +#endif + end interface + + interface hipblasCtrmv + function hipblasCtrmv_(handle,uplo,transA,diag,n,AP,lda,x,incx) bind(c, name="hipblasCtrmv") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCtrmv_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: n + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCtrmv_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCtrmv_rank_0,& + hipblasCtrmv_rank_1,& + hipblasCtrmv_full_rank +#endif +#endif + end interface + + interface hipblasZtrmv + function hipblasZtrmv_(handle,uplo,transA,diag,n,AP,lda,x,incx) bind(c, name="hipblasZtrmv") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZtrmv_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: n + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZtrmv_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZtrmv_rank_0,& + hipblasZtrmv_rank_1,& + hipblasZtrmv_full_rank +#endif +#endif + end interface + + interface hipblasStrmv_64 + function hipblasStrmv_64_(handle,uplo,transA,diag,n,AP,lda,x,incx) & + bind(c, name="hipblasStrmv_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasStrmv_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: n + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasStrmv_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasStrmv_64_rank_0,& + hipblasStrmv_64_rank_1,& + hipblasStrmv_64_full_rank +#endif +#endif + end interface + + interface hipblasDtrmv_64 + function hipblasDtrmv_64_(handle,uplo,transA,diag,n,AP,lda,x,incx) & + bind(c, name="hipblasDtrmv_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDtrmv_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: n + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDtrmv_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDtrmv_64_rank_0,& + hipblasDtrmv_64_rank_1,& + hipblasDtrmv_64_full_rank +#endif +#endif + end interface + + interface hipblasCtrmv_64 + function hipblasCtrmv_64_(handle,uplo,transA,diag,n,AP,lda,x,incx) & + bind(c, name="hipblasCtrmv_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCtrmv_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: n + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCtrmv_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCtrmv_64_rank_0,& + hipblasCtrmv_64_rank_1,& + hipblasCtrmv_64_full_rank +#endif +#endif + end interface + + interface hipblasZtrmv_64 + function hipblasZtrmv_64_(handle,uplo,transA,diag,n,AP,lda,x,incx) & + bind(c, name="hipblasZtrmv_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZtrmv_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: n + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZtrmv_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZtrmv_64_rank_0,& + hipblasZtrmv_64_rank_1,& + hipblasZtrmv_64_full_rank +#endif +#endif + end interface + + interface hipblasStrmvBatched + function hipblasStrmvBatched_(handle,uplo,transA,diag,n,AP,lda,x,incx,batchCount) & + bind(c, name="hipblasStrmvBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasStrmvBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: n + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int),value :: batchCount + end function + end interface + + interface hipblasDtrmvBatched + function hipblasDtrmvBatched_(handle,uplo,transA,diag,n,AP,lda,x,incx,batchCount) & + bind(c, name="hipblasDtrmvBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDtrmvBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: n + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int),value :: batchCount + end function + end interface + + interface hipblasCtrmvBatched + function hipblasCtrmvBatched_(handle,uplo,transA,diag,n,AP,lda,x,incx,batchCount) & + bind(c, name="hipblasCtrmvBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCtrmvBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: n + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int),value :: batchCount + end function + end interface + + interface hipblasZtrmvBatched + function hipblasZtrmvBatched_(handle,uplo,transA,diag,n,AP,lda,x,incx,batchCount) & + bind(c, name="hipblasZtrmvBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZtrmvBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: n + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int),value :: batchCount + end function + end interface + + interface hipblasStrmvBatched_64 + function hipblasStrmvBatched_64_(handle,uplo,transA,diag,n,AP,lda,x,incx,batchCount) & + bind(c, name="hipblasStrmvBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasStrmvBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: n + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: batchCount + end function + end interface + + interface hipblasDtrmvBatched_64 + function hipblasDtrmvBatched_64_(handle,uplo,transA,diag,n,AP,lda,x,incx,batchCount) & + bind(c, name="hipblasDtrmvBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDtrmvBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: n + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: batchCount + end function + end interface + + interface hipblasCtrmvBatched_64 + function hipblasCtrmvBatched_64_(handle,uplo,transA,diag,n,AP,lda,x,incx,batchCount) & + bind(c, name="hipblasCtrmvBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCtrmvBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: n + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: batchCount + end function + end interface + + interface hipblasZtrmvBatched_64 + function hipblasZtrmvBatched_64_(handle,uplo,transA,diag,n,AP,lda,x,incx,batchCount) & + bind(c, name="hipblasZtrmvBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZtrmvBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: n + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: batchCount + end function + end interface + + interface hipblasStrmvStridedBatched + function hipblasStrmvStridedBatched_(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx,stridex, & + batchCount) & + bind(c, name="hipblasStrmvStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasStrmvStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: n + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasStrmvStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasStrmvStridedBatched_rank_0,& + hipblasStrmvStridedBatched_rank_1,& + hipblasStrmvStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasDtrmvStridedBatched + function hipblasDtrmvStridedBatched_(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx,stridex, & + batchCount) & + bind(c, name="hipblasDtrmvStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDtrmvStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: n + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDtrmvStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDtrmvStridedBatched_rank_0,& + hipblasDtrmvStridedBatched_rank_1,& + hipblasDtrmvStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasCtrmvStridedBatched + function hipblasCtrmvStridedBatched_(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx,stridex, & + batchCount) & + bind(c, name="hipblasCtrmvStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCtrmvStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: n + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCtrmvStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCtrmvStridedBatched_rank_0,& + hipblasCtrmvStridedBatched_rank_1,& + hipblasCtrmvStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasZtrmvStridedBatched + function hipblasZtrmvStridedBatched_(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx,stridex, & + batchCount) & + bind(c, name="hipblasZtrmvStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZtrmvStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: n + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZtrmvStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZtrmvStridedBatched_rank_0,& + hipblasZtrmvStridedBatched_rank_1,& + hipblasZtrmvStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasStrmvStridedBatched_64 + function hipblasStrmvStridedBatched_64_(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) & + bind(c, name="hipblasStrmvStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasStrmvStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: n + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int64_t),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasStrmvStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasStrmvStridedBatched_64_rank_0,& + hipblasStrmvStridedBatched_64_rank_1,& + hipblasStrmvStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasDtrmvStridedBatched_64 + function hipblasDtrmvStridedBatched_64_(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) & + bind(c, name="hipblasDtrmvStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDtrmvStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: n + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int64_t),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDtrmvStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDtrmvStridedBatched_64_rank_0,& + hipblasDtrmvStridedBatched_64_rank_1,& + hipblasDtrmvStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasCtrmvStridedBatched_64 + function hipblasCtrmvStridedBatched_64_(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) & + bind(c, name="hipblasCtrmvStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCtrmvStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: n + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int64_t),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCtrmvStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCtrmvStridedBatched_64_rank_0,& + hipblasCtrmvStridedBatched_64_rank_1,& + hipblasCtrmvStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasZtrmvStridedBatched_64 + function hipblasZtrmvStridedBatched_64_(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) & + bind(c, name="hipblasZtrmvStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZtrmvStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: n + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int64_t),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZtrmvStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZtrmvStridedBatched_64_rank_0,& + hipblasZtrmvStridedBatched_64_rank_1,& + hipblasZtrmvStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasStrsv + function hipblasStrsv_(handle,uplo,transA,diag,n,AP,lda,x,incx) bind(c, name="hipblasStrsv") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasStrsv_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: n + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasStrsv_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasStrsv_rank_0,& + hipblasStrsv_rank_1,& + hipblasStrsv_full_rank +#endif +#endif + end interface + + interface hipblasDtrsv + function hipblasDtrsv_(handle,uplo,transA,diag,n,AP,lda,x,incx) bind(c, name="hipblasDtrsv") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDtrsv_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: n + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDtrsv_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDtrsv_rank_0,& + hipblasDtrsv_rank_1,& + hipblasDtrsv_full_rank +#endif +#endif + end interface + + interface hipblasCtrsv + function hipblasCtrsv_(handle,uplo,transA,diag,n,AP,lda,x,incx) bind(c, name="hipblasCtrsv") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCtrsv_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: n + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCtrsv_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCtrsv_rank_0,& + hipblasCtrsv_rank_1,& + hipblasCtrsv_full_rank +#endif +#endif + end interface + + interface hipblasZtrsv + function hipblasZtrsv_(handle,uplo,transA,diag,n,AP,lda,x,incx) bind(c, name="hipblasZtrsv") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZtrsv_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: n + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZtrsv_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZtrsv_rank_0,& + hipblasZtrsv_rank_1,& + hipblasZtrsv_full_rank +#endif +#endif + end interface + + interface hipblasStrsv_64 + function hipblasStrsv_64_(handle,uplo,transA,diag,n,AP,lda,x,incx) & + bind(c, name="hipblasStrsv_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasStrsv_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: n + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasStrsv_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasStrsv_64_rank_0,& + hipblasStrsv_64_rank_1,& + hipblasStrsv_64_full_rank +#endif +#endif + end interface + + interface hipblasDtrsv_64 + function hipblasDtrsv_64_(handle,uplo,transA,diag,n,AP,lda,x,incx) & + bind(c, name="hipblasDtrsv_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDtrsv_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: n + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDtrsv_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDtrsv_64_rank_0,& + hipblasDtrsv_64_rank_1,& + hipblasDtrsv_64_full_rank +#endif +#endif + end interface + + interface hipblasCtrsv_64 + function hipblasCtrsv_64_(handle,uplo,transA,diag,n,AP,lda,x,incx) & + bind(c, name="hipblasCtrsv_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCtrsv_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: n + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCtrsv_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCtrsv_64_rank_0,& + hipblasCtrsv_64_rank_1,& + hipblasCtrsv_64_full_rank +#endif +#endif + end interface + + interface hipblasZtrsv_64 + function hipblasZtrsv_64_(handle,uplo,transA,diag,n,AP,lda,x,incx) & + bind(c, name="hipblasZtrsv_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZtrsv_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: n + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZtrsv_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZtrsv_64_rank_0,& + hipblasZtrsv_64_rank_1,& + hipblasZtrsv_64_full_rank +#endif +#endif + end interface + + interface hipblasStrsvBatched + function hipblasStrsvBatched_(handle,uplo,transA,diag,n,AP,lda,x,incx,batchCount) & + bind(c, name="hipblasStrsvBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasStrsvBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: n + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int),value :: batchCount + end function + end interface + + interface hipblasDtrsvBatched + function hipblasDtrsvBatched_(handle,uplo,transA,diag,n,AP,lda,x,incx,batchCount) & + bind(c, name="hipblasDtrsvBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDtrsvBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: n + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int),value :: batchCount + end function + end interface + + interface hipblasCtrsvBatched + function hipblasCtrsvBatched_(handle,uplo,transA,diag,n,AP,lda,x,incx,batchCount) & + bind(c, name="hipblasCtrsvBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCtrsvBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: n + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int),value :: batchCount + end function + end interface + + interface hipblasZtrsvBatched + function hipblasZtrsvBatched_(handle,uplo,transA,diag,n,AP,lda,x,incx,batchCount) & + bind(c, name="hipblasZtrsvBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZtrsvBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: n + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int),value :: batchCount + end function + end interface + + interface hipblasStrsvBatched_64 + function hipblasStrsvBatched_64_(handle,uplo,transA,diag,n,AP,lda,x,incx,batchCount) & + bind(c, name="hipblasStrsvBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasStrsvBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: n + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: batchCount + end function + end interface + + interface hipblasDtrsvBatched_64 + function hipblasDtrsvBatched_64_(handle,uplo,transA,diag,n,AP,lda,x,incx,batchCount) & + bind(c, name="hipblasDtrsvBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDtrsvBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: n + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: batchCount + end function + end interface + + interface hipblasCtrsvBatched_64 + function hipblasCtrsvBatched_64_(handle,uplo,transA,diag,n,AP,lda,x,incx,batchCount) & + bind(c, name="hipblasCtrsvBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCtrsvBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: n + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: batchCount + end function + end interface + + interface hipblasZtrsvBatched_64 + function hipblasZtrsvBatched_64_(handle,uplo,transA,diag,n,AP,lda,x,incx,batchCount) & + bind(c, name="hipblasZtrsvBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZtrsvBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: n + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: batchCount + end function + end interface + + interface hipblasStrsvStridedBatched + function hipblasStrsvStridedBatched_(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx,stridex, & + batchCount) & + bind(c, name="hipblasStrsvStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasStrsvStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: n + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasStrsvStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasStrsvStridedBatched_rank_0,& + hipblasStrsvStridedBatched_rank_1,& + hipblasStrsvStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasDtrsvStridedBatched + function hipblasDtrsvStridedBatched_(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx,stridex, & + batchCount) & + bind(c, name="hipblasDtrsvStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDtrsvStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: n + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDtrsvStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDtrsvStridedBatched_rank_0,& + hipblasDtrsvStridedBatched_rank_1,& + hipblasDtrsvStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasCtrsvStridedBatched + function hipblasCtrsvStridedBatched_(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx,stridex, & + batchCount) & + bind(c, name="hipblasCtrsvStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCtrsvStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: n + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCtrsvStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCtrsvStridedBatched_rank_0,& + hipblasCtrsvStridedBatched_rank_1,& + hipblasCtrsvStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasZtrsvStridedBatched + function hipblasZtrsvStridedBatched_(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx,stridex, & + batchCount) & + bind(c, name="hipblasZtrsvStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZtrsvStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: n + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZtrsvStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZtrsvStridedBatched_rank_0,& + hipblasZtrsvStridedBatched_rank_1,& + hipblasZtrsvStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasStrsvStridedBatched_64 + function hipblasStrsvStridedBatched_64_(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) & + bind(c, name="hipblasStrsvStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasStrsvStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: n + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int64_t),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasStrsvStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasStrsvStridedBatched_64_rank_0,& + hipblasStrsvStridedBatched_64_rank_1,& + hipblasStrsvStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasDtrsvStridedBatched_64 + function hipblasDtrsvStridedBatched_64_(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) & + bind(c, name="hipblasDtrsvStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDtrsvStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: n + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int64_t),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDtrsvStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDtrsvStridedBatched_64_rank_0,& + hipblasDtrsvStridedBatched_64_rank_1,& + hipblasDtrsvStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasCtrsvStridedBatched_64 + function hipblasCtrsvStridedBatched_64_(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) & + bind(c, name="hipblasCtrsvStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCtrsvStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: n + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int64_t),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCtrsvStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCtrsvStridedBatched_64_rank_0,& + hipblasCtrsvStridedBatched_64_rank_1,& + hipblasCtrsvStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasZtrsvStridedBatched_64 + function hipblasZtrsvStridedBatched_64_(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) & + bind(c, name="hipblasZtrsvStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZtrsvStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: n + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int64_t),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZtrsvStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZtrsvStridedBatched_64_rank_0,& + hipblasZtrsvStridedBatched_64_rank_1,& + hipblasZtrsvStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasHgemm + function hipblasHgemm_(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & + bind(c, name="hipblasHgemm") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasHgemm_ + type(c_ptr),value :: handle + integer(c_int),value :: transA + integer(c_int),value :: transB + integer(c_int),value :: m + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: BP + integer(c_int),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + end function + end interface + + interface hipblasSgemm + function hipblasSgemm_(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & + bind(c, name="hipblasSgemm") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSgemm_ + type(c_ptr),value :: handle + integer(c_int),value :: transA + integer(c_int),value :: transB + integer(c_int),value :: m + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: BP + integer(c_int),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + end function + + module procedure hipblasSgemm_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSgemm_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSgemm_rank_0,& + hipblasSgemm_rank_1,& + hipblasSgemm_full_rank +#endif +#endif + end interface + + interface hipblasDgemm + function hipblasDgemm_(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & + bind(c, name="hipblasDgemm") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDgemm_ + type(c_ptr),value :: handle + integer(c_int),value :: transA + integer(c_int),value :: transB + integer(c_int),value :: m + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: BP + integer(c_int),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + end function + + module procedure hipblasDgemm_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDgemm_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDgemm_rank_0,& + hipblasDgemm_rank_1,& + hipblasDgemm_full_rank +#endif +#endif + end interface + + interface hipblasCgemm + function hipblasCgemm_(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & + bind(c, name="hipblasCgemm") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCgemm_ + type(c_ptr),value :: handle + integer(c_int),value :: transA + integer(c_int),value :: transB + integer(c_int),value :: m + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: BP + integer(c_int),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + end function + + module procedure hipblasCgemm_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCgemm_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCgemm_rank_0,& + hipblasCgemm_rank_1,& + hipblasCgemm_full_rank +#endif +#endif + end interface + + interface hipblasZgemm + function hipblasZgemm_(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & + bind(c, name="hipblasZgemm") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZgemm_ + type(c_ptr),value :: handle + integer(c_int),value :: transA + integer(c_int),value :: transB + integer(c_int),value :: m + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: BP + integer(c_int),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + end function + + module procedure hipblasZgemm_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZgemm_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZgemm_rank_0,& + hipblasZgemm_rank_1,& + hipblasZgemm_full_rank +#endif +#endif + end interface + + interface hipblasHgemm_64 + function hipblasHgemm_64_(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & + bind(c, name="hipblasHgemm_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasHgemm_64_ + type(c_ptr),value :: handle + integer(c_int),value :: transA + integer(c_int),value :: transB + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + end function + end interface + + interface hipblasSgemm_64 + function hipblasSgemm_64_(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & + bind(c, name="hipblasSgemm_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSgemm_64_ + type(c_ptr),value :: handle + integer(c_int),value :: transA + integer(c_int),value :: transB + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + end function + + module procedure hipblasSgemm_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSgemm_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSgemm_64_rank_0,& + hipblasSgemm_64_rank_1,& + hipblasSgemm_64_full_rank +#endif +#endif + end interface + + interface hipblasDgemm_64 + function hipblasDgemm_64_(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & + bind(c, name="hipblasDgemm_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDgemm_64_ + type(c_ptr),value :: handle + integer(c_int),value :: transA + integer(c_int),value :: transB + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + end function + + module procedure hipblasDgemm_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDgemm_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDgemm_64_rank_0,& + hipblasDgemm_64_rank_1,& + hipblasDgemm_64_full_rank +#endif +#endif + end interface + + interface hipblasCgemm_64 + function hipblasCgemm_64_(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & + bind(c, name="hipblasCgemm_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCgemm_64_ + type(c_ptr),value :: handle + integer(c_int),value :: transA + integer(c_int),value :: transB + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + end function + + module procedure hipblasCgemm_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCgemm_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCgemm_64_rank_0,& + hipblasCgemm_64_rank_1,& + hipblasCgemm_64_full_rank +#endif +#endif + end interface + + interface hipblasZgemm_64 + function hipblasZgemm_64_(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & + bind(c, name="hipblasZgemm_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZgemm_64_ + type(c_ptr),value :: handle + integer(c_int),value :: transA + integer(c_int),value :: transB + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + end function + + module procedure hipblasZgemm_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZgemm_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZgemm_64_rank_0,& + hipblasZgemm_64_rank_1,& + hipblasZgemm_64_full_rank +#endif +#endif + end interface + + interface hipblasHgemmBatched + function hipblasHgemmBatched_(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) & + bind(c, name="hipblasHgemmBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasHgemmBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: transA + integer(c_int),value :: transB + integer(c_int),value :: m + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: BP + integer(c_int),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + integer(c_int),value :: batchCount + end function + end interface + + interface hipblasSgemmBatched + function hipblasSgemmBatched_(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) & + bind(c, name="hipblasSgemmBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSgemmBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: transA + integer(c_int),value :: transB + integer(c_int),value :: m + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: BP + integer(c_int),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + integer(c_int),value :: batchCount + end function + + module procedure hipblasSgemmBatched_typed + end interface + + interface hipblasDgemmBatched + function hipblasDgemmBatched_(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) & + bind(c, name="hipblasDgemmBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDgemmBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: transA + integer(c_int),value :: transB + integer(c_int),value :: m + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: BP + integer(c_int),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + integer(c_int),value :: batchCount + end function + + module procedure hipblasDgemmBatched_typed + end interface + + interface hipblasCgemmBatched + function hipblasCgemmBatched_(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) & + bind(c, name="hipblasCgemmBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCgemmBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: transA + integer(c_int),value :: transB + integer(c_int),value :: m + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: BP + integer(c_int),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + integer(c_int),value :: batchCount + end function + + module procedure hipblasCgemmBatched_typed + end interface + + interface hipblasZgemmBatched + function hipblasZgemmBatched_(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) & + bind(c, name="hipblasZgemmBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZgemmBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: transA + integer(c_int),value :: transB + integer(c_int),value :: m + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: BP + integer(c_int),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + integer(c_int),value :: batchCount + end function + + module procedure hipblasZgemmBatched_typed + end interface + + interface hipblasHgemmBatched_64 + function hipblasHgemmBatched_64_(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) & + bind(c, name="hipblasHgemmBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasHgemmBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: transA + integer(c_int),value :: transB + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: batchCount + end function + end interface + + interface hipblasSgemmBatched_64 + function hipblasSgemmBatched_64_(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) & + bind(c, name="hipblasSgemmBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSgemmBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: transA + integer(c_int),value :: transB + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasSgemmBatched_64_typed + end interface + + interface hipblasDgemmBatched_64 + function hipblasDgemmBatched_64_(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) & + bind(c, name="hipblasDgemmBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDgemmBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: transA + integer(c_int),value :: transB + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasDgemmBatched_64_typed + end interface + + interface hipblasCgemmBatched_64 + function hipblasCgemmBatched_64_(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) & + bind(c, name="hipblasCgemmBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCgemmBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: transA + integer(c_int),value :: transB + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasCgemmBatched_64_typed + end interface + + interface hipblasZgemmBatched_64 + function hipblasZgemmBatched_64_(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) & + bind(c, name="hipblasZgemmBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZgemmBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: transA + integer(c_int),value :: transB + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasZgemmBatched_64_typed + end interface + + interface hipblasSgemmGroupedBatched + function hipblasSgemmGroupedBatched_(handle,transA_array,transB_array,m_array,n_array,k_array, & + alpha_array,Aarray,lda_array,Barray,ldb_array,beta_array,Carray,ldc_array,group_count, & + group_size) & + bind(c, name="hipblasSgemmGroupedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSgemmGroupedBatched_ + type(c_ptr),value :: handle + type(c_ptr),value :: transA_array + type(c_ptr),value :: transB_array + type(c_ptr),value :: m_array + type(c_ptr),value :: n_array + type(c_ptr),value :: k_array + type(c_ptr),value :: alpha_array + type(c_ptr),value :: Aarray + type(c_ptr),value :: lda_array + type(c_ptr),value :: Barray + type(c_ptr),value :: ldb_array + type(c_ptr),value :: beta_array + type(c_ptr),value :: Carray + type(c_ptr),value :: ldc_array + integer(c_int),value :: group_count + type(c_ptr),value :: group_size + end function + end interface + + interface hipblasDgemmGroupedBatched + function hipblasDgemmGroupedBatched_(handle,transA_array,transB_array,m_array,n_array,k_array, & + alpha_array,Aarray,lda_array,Barray,ldb_array,beta_array,Carray,ldc_array,group_count, & + group_size) & + bind(c, name="hipblasDgemmGroupedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDgemmGroupedBatched_ + type(c_ptr),value :: handle + type(c_ptr),value :: transA_array + type(c_ptr),value :: transB_array + type(c_ptr),value :: m_array + type(c_ptr),value :: n_array + type(c_ptr),value :: k_array + type(c_ptr),value :: alpha_array + type(c_ptr),value :: Aarray + type(c_ptr),value :: lda_array + type(c_ptr),value :: Barray + type(c_ptr),value :: ldb_array + type(c_ptr),value :: beta_array + type(c_ptr),value :: Carray + type(c_ptr),value :: ldc_array + integer(c_int),value :: group_count + type(c_ptr),value :: group_size + end function + end interface + + interface hipblasSgemmGroupedBatched_64 + function hipblasSgemmGroupedBatched_64_(handle,transA_array,transB_array,m_array,n_array, & + k_array,alpha_array,Aarray,lda_array,Barray,ldb_array,beta_array,Carray,ldc_array, & + group_count,group_size) & + bind(c, name="hipblasSgemmGroupedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSgemmGroupedBatched_64_ + type(c_ptr),value :: handle + type(c_ptr),value :: transA_array + type(c_ptr),value :: transB_array + type(c_ptr),value :: m_array + type(c_ptr),value :: n_array + type(c_ptr),value :: k_array + type(c_ptr),value :: alpha_array + type(c_ptr),value :: Aarray + type(c_ptr),value :: lda_array + type(c_ptr),value :: Barray + type(c_ptr),value :: ldb_array + type(c_ptr),value :: beta_array + type(c_ptr),value :: Carray + type(c_ptr),value :: ldc_array + integer(c_int64_t),value :: group_count + type(c_ptr),value :: group_size + end function + end interface + + interface hipblasDgemmGroupedBatched_64 + function hipblasDgemmGroupedBatched_64_(handle,transA_array,transB_array,m_array,n_array, & + k_array,alpha_array,Aarray,lda_array,Barray,ldb_array,beta_array,Carray,ldc_array, & + group_count,group_size) & + bind(c, name="hipblasDgemmGroupedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDgemmGroupedBatched_64_ + type(c_ptr),value :: handle + type(c_ptr),value :: transA_array + type(c_ptr),value :: transB_array + type(c_ptr),value :: m_array + type(c_ptr),value :: n_array + type(c_ptr),value :: k_array + type(c_ptr),value :: alpha_array + type(c_ptr),value :: Aarray + type(c_ptr),value :: lda_array + type(c_ptr),value :: Barray + type(c_ptr),value :: ldb_array + type(c_ptr),value :: beta_array + type(c_ptr),value :: Carray + type(c_ptr),value :: ldc_array + integer(c_int64_t),value :: group_count + type(c_ptr),value :: group_size + end function + end interface + + interface hipblasHgemmStridedBatched + function hipblasHgemmStridedBatched_(handle,transA,transB,m,n,k,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) & + bind(c, name="hipblasHgemmStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasHgemmStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: transA + integer(c_int),value :: transB + integer(c_int),value :: m + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: BP + integer(c_int),value :: ldb + integer(c_int64_t),value :: strideB + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int),value :: batchCount + end function + end interface + + interface hipblasSgemmStridedBatched + function hipblasSgemmStridedBatched_(handle,transA,transB,m,n,k,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) & + bind(c, name="hipblasSgemmStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSgemmStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: transA + integer(c_int),value :: transB + integer(c_int),value :: m + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: BP + integer(c_int),value :: ldb + integer(c_int64_t),value :: strideB + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int),value :: batchCount + end function + + module procedure hipblasSgemmStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSgemmStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSgemmStridedBatched_rank_0,& + hipblasSgemmStridedBatched_rank_1,& + hipblasSgemmStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasDgemmStridedBatched + function hipblasDgemmStridedBatched_(handle,transA,transB,m,n,k,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) & + bind(c, name="hipblasDgemmStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDgemmStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: transA + integer(c_int),value :: transB + integer(c_int),value :: m + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: BP + integer(c_int),value :: ldb + integer(c_int64_t),value :: strideB + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int),value :: batchCount + end function + + module procedure hipblasDgemmStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDgemmStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDgemmStridedBatched_rank_0,& + hipblasDgemmStridedBatched_rank_1,& + hipblasDgemmStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasCgemmStridedBatched + function hipblasCgemmStridedBatched_(handle,transA,transB,m,n,k,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) & + bind(c, name="hipblasCgemmStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCgemmStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: transA + integer(c_int),value :: transB + integer(c_int),value :: m + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: BP + integer(c_int),value :: ldb + integer(c_int64_t),value :: strideB + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int),value :: batchCount + end function + + module procedure hipblasCgemmStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCgemmStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCgemmStridedBatched_rank_0,& + hipblasCgemmStridedBatched_rank_1,& + hipblasCgemmStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasZgemmStridedBatched + function hipblasZgemmStridedBatched_(handle,transA,transB,m,n,k,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) & + bind(c, name="hipblasZgemmStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZgemmStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: transA + integer(c_int),value :: transB + integer(c_int),value :: m + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: BP + integer(c_int),value :: ldb + integer(c_int64_t),value :: strideB + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int),value :: batchCount + end function + + module procedure hipblasZgemmStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZgemmStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZgemmStridedBatched_rank_0,& + hipblasZgemmStridedBatched_rank_1,& + hipblasZgemmStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasHgemmStridedBatched_64 + function hipblasHgemmStridedBatched_64_(handle,transA,transB,m,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) & + bind(c, name="hipblasHgemmStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasHgemmStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: transA + integer(c_int),value :: transB + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + integer(c_int64_t),value :: strideB + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int64_t),value :: batchCount + end function + end interface + + interface hipblasSgemmStridedBatched_64 + function hipblasSgemmStridedBatched_64_(handle,transA,transB,m,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) & + bind(c, name="hipblasSgemmStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSgemmStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: transA + integer(c_int),value :: transB + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + integer(c_int64_t),value :: strideB + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasSgemmStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSgemmStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSgemmStridedBatched_64_rank_0,& + hipblasSgemmStridedBatched_64_rank_1,& + hipblasSgemmStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasDgemmStridedBatched_64 + function hipblasDgemmStridedBatched_64_(handle,transA,transB,m,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) & + bind(c, name="hipblasDgemmStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDgemmStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: transA + integer(c_int),value :: transB + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + integer(c_int64_t),value :: strideB + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasDgemmStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDgemmStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDgemmStridedBatched_64_rank_0,& + hipblasDgemmStridedBatched_64_rank_1,& + hipblasDgemmStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasCgemmStridedBatched_64 + function hipblasCgemmStridedBatched_64_(handle,transA,transB,m,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) & + bind(c, name="hipblasCgemmStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCgemmStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: transA + integer(c_int),value :: transB + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + integer(c_int64_t),value :: strideB + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasCgemmStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCgemmStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCgemmStridedBatched_64_rank_0,& + hipblasCgemmStridedBatched_64_rank_1,& + hipblasCgemmStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasZgemmStridedBatched_64 + function hipblasZgemmStridedBatched_64_(handle,transA,transB,m,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) & + bind(c, name="hipblasZgemmStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZgemmStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: transA + integer(c_int),value :: transB + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + integer(c_int64_t),value :: strideB + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasZgemmStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZgemmStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZgemmStridedBatched_64_rank_0,& + hipblasZgemmStridedBatched_64_rank_1,& + hipblasZgemmStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasCherk + function hipblasCherk_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) & + bind(c, name="hipblasCherk") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCherk_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + end function + + module procedure hipblasCherk_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCherk_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCherk_rank_0,& + hipblasCherk_rank_1,& + hipblasCherk_full_rank +#endif +#endif + end interface + + interface hipblasZherk + function hipblasZherk_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) & + bind(c, name="hipblasZherk") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZherk_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + end function + + module procedure hipblasZherk_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZherk_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZherk_rank_0,& + hipblasZherk_rank_1,& + hipblasZherk_full_rank +#endif +#endif + end interface + + interface hipblasCherk_64 + function hipblasCherk_64_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) & + bind(c, name="hipblasCherk_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCherk_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + end function + + module procedure hipblasCherk_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCherk_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCherk_64_rank_0,& + hipblasCherk_64_rank_1,& + hipblasCherk_64_full_rank +#endif +#endif + end interface + + interface hipblasZherk_64 + function hipblasZherk_64_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) & + bind(c, name="hipblasZherk_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZherk_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + end function + + module procedure hipblasZherk_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZherk_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZherk_64_rank_0,& + hipblasZherk_64_rank_1,& + hipblasZherk_64_full_rank +#endif +#endif + end interface + + interface hipblasCherkBatched + function hipblasCherkBatched_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc,batchCount) & + bind(c, name="hipblasCherkBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCherkBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + integer(c_int),value :: batchCount + end function + + module procedure hipblasCherkBatched_typed + end interface + + interface hipblasZherkBatched + function hipblasZherkBatched_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc,batchCount) & + bind(c, name="hipblasZherkBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZherkBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + integer(c_int),value :: batchCount + end function + + module procedure hipblasZherkBatched_typed + end interface + + interface hipblasCherkBatched_64 + function hipblasCherkBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc,batchCount) & + bind(c, name="hipblasCherkBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCherkBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasCherkBatched_64_typed + end interface + + interface hipblasZherkBatched_64 + function hipblasZherkBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc,batchCount) & + bind(c, name="hipblasZherkBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZherkBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasZherkBatched_64_typed + end interface + + interface hipblasCherkStridedBatched + function hipblasCherkStridedBatched_(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta,CP,ldc, & + strideC,batchCount) & + bind(c, name="hipblasCherkStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCherkStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int),value :: batchCount + end function + + module procedure hipblasCherkStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCherkStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCherkStridedBatched_rank_0,& + hipblasCherkStridedBatched_rank_1,& + hipblasCherkStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasZherkStridedBatched + function hipblasZherkStridedBatched_(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta,CP,ldc, & + strideC,batchCount) & + bind(c, name="hipblasZherkStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZherkStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int),value :: batchCount + end function + + module procedure hipblasZherkStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZherkStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZherkStridedBatched_rank_0,& + hipblasZherkStridedBatched_rank_1,& + hipblasZherkStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasCherkStridedBatched_64 + function hipblasCherkStridedBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta,CP, & + ldc,strideC,batchCount) & + bind(c, name="hipblasCherkStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCherkStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasCherkStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCherkStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCherkStridedBatched_64_rank_0,& + hipblasCherkStridedBatched_64_rank_1,& + hipblasCherkStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasZherkStridedBatched_64 + function hipblasZherkStridedBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta,CP, & + ldc,strideC,batchCount) & + bind(c, name="hipblasZherkStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZherkStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasZherkStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZherkStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZherkStridedBatched_64_rank_0,& + hipblasZherkStridedBatched_64_rank_1,& + hipblasZherkStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasCherkx + function hipblasCherkx_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & + bind(c, name="hipblasCherkx") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCherkx_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: BP + integer(c_int),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + end function + + module procedure hipblasCherkx_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCherkx_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCherkx_rank_0,& + hipblasCherkx_rank_1,& + hipblasCherkx_full_rank +#endif +#endif + end interface + + interface hipblasZherkx + function hipblasZherkx_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & + bind(c, name="hipblasZherkx") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZherkx_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: BP + integer(c_int),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + end function + + module procedure hipblasZherkx_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZherkx_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZherkx_rank_0,& + hipblasZherkx_rank_1,& + hipblasZherkx_full_rank +#endif +#endif + end interface + + interface hipblasCherkx_64 + function hipblasCherkx_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & + bind(c, name="hipblasCherkx_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCherkx_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + end function + + module procedure hipblasCherkx_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCherkx_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCherkx_64_rank_0,& + hipblasCherkx_64_rank_1,& + hipblasCherkx_64_full_rank +#endif +#endif + end interface + + interface hipblasZherkx_64 + function hipblasZherkx_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & + bind(c, name="hipblasZherkx_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZherkx_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + end function + + module procedure hipblasZherkx_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZherkx_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZherkx_64_rank_0,& + hipblasZherkx_64_rank_1,& + hipblasZherkx_64_full_rank +#endif +#endif + end interface + + interface hipblasCherkxBatched + function hipblasCherkxBatched_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) & + bind(c, name="hipblasCherkxBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCherkxBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: BP + integer(c_int),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + integer(c_int),value :: batchCount + end function + + module procedure hipblasCherkxBatched_typed + end interface + + interface hipblasZherkxBatched + function hipblasZherkxBatched_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) & + bind(c, name="hipblasZherkxBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZherkxBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: BP + integer(c_int),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + integer(c_int),value :: batchCount + end function + + module procedure hipblasZherkxBatched_typed + end interface + + interface hipblasCherkxBatched_64 + function hipblasCherkxBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) & + bind(c, name="hipblasCherkxBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCherkxBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasCherkxBatched_64_typed + end interface + + interface hipblasZherkxBatched_64 + function hipblasZherkxBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) & + bind(c, name="hipblasZherkxBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZherkxBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasZherkxBatched_64_typed + end interface + + interface hipblasCherkxStridedBatched + function hipblasCherkxStridedBatched_(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) & + bind(c, name="hipblasCherkxStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCherkxStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: BP + integer(c_int),value :: ldb + integer(c_int64_t),value :: strideB + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int),value :: batchCount + end function + + module procedure hipblasCherkxStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCherkxStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCherkxStridedBatched_rank_0,& + hipblasCherkxStridedBatched_rank_1,& + hipblasCherkxStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasZherkxStridedBatched + function hipblasZherkxStridedBatched_(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) & + bind(c, name="hipblasZherkxStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZherkxStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: BP + integer(c_int),value :: ldb + integer(c_int64_t),value :: strideB + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int),value :: batchCount + end function + + module procedure hipblasZherkxStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZherkxStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZherkxStridedBatched_rank_0,& + hipblasZherkxStridedBatched_rank_1,& + hipblasZherkxStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasCherkxStridedBatched_64 + function hipblasCherkxStridedBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) & + bind(c, name="hipblasCherkxStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCherkxStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + integer(c_int64_t),value :: strideB + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasCherkxStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCherkxStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCherkxStridedBatched_64_rank_0,& + hipblasCherkxStridedBatched_64_rank_1,& + hipblasCherkxStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasZherkxStridedBatched_64 + function hipblasZherkxStridedBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) & + bind(c, name="hipblasZherkxStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZherkxStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + integer(c_int64_t),value :: strideB + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasZherkxStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZherkxStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZherkxStridedBatched_64_rank_0,& + hipblasZherkxStridedBatched_64_rank_1,& + hipblasZherkxStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasCher2k + function hipblasCher2k_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & + bind(c, name="hipblasCher2k") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCher2k_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: BP + integer(c_int),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + end function + + module procedure hipblasCher2k_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCher2k_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCher2k_rank_0,& + hipblasCher2k_rank_1,& + hipblasCher2k_full_rank +#endif +#endif + end interface + + interface hipblasZher2k + function hipblasZher2k_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & + bind(c, name="hipblasZher2k") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZher2k_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: BP + integer(c_int),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + end function + + module procedure hipblasZher2k_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZher2k_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZher2k_rank_0,& + hipblasZher2k_rank_1,& + hipblasZher2k_full_rank +#endif +#endif + end interface + + interface hipblasCher2k_64 + function hipblasCher2k_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & + bind(c, name="hipblasCher2k_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCher2k_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + end function + + module procedure hipblasCher2k_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCher2k_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCher2k_64_rank_0,& + hipblasCher2k_64_rank_1,& + hipblasCher2k_64_full_rank +#endif +#endif + end interface + + interface hipblasZher2k_64 + function hipblasZher2k_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & + bind(c, name="hipblasZher2k_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZher2k_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + end function + + module procedure hipblasZher2k_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZher2k_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZher2k_64_rank_0,& + hipblasZher2k_64_rank_1,& + hipblasZher2k_64_full_rank +#endif +#endif + end interface + + interface hipblasCher2kBatched + function hipblasCher2kBatched_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) & + bind(c, name="hipblasCher2kBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCher2kBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: BP + integer(c_int),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + integer(c_int),value :: batchCount + end function + + module procedure hipblasCher2kBatched_typed + end interface + + interface hipblasZher2kBatched + function hipblasZher2kBatched_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) & + bind(c, name="hipblasZher2kBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZher2kBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: BP + integer(c_int),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + integer(c_int),value :: batchCount + end function + + module procedure hipblasZher2kBatched_typed + end interface + + interface hipblasCher2kBatched_64 + function hipblasCher2kBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) & + bind(c, name="hipblasCher2kBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCher2kBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasCher2kBatched_64_typed + end interface + + interface hipblasZher2kBatched_64 + function hipblasZher2kBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) & + bind(c, name="hipblasZher2kBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZher2kBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasZher2kBatched_64_typed + end interface + + interface hipblasCher2kStridedBatched + function hipblasCher2kStridedBatched_(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) & + bind(c, name="hipblasCher2kStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCher2kStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: BP + integer(c_int),value :: ldb + integer(c_int64_t),value :: strideB + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int),value :: batchCount + end function + + module procedure hipblasCher2kStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCher2kStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCher2kStridedBatched_rank_0,& + hipblasCher2kStridedBatched_rank_1,& + hipblasCher2kStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasZher2kStridedBatched + function hipblasZher2kStridedBatched_(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) & + bind(c, name="hipblasZher2kStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZher2kStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: BP + integer(c_int),value :: ldb + integer(c_int64_t),value :: strideB + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int),value :: batchCount + end function + + module procedure hipblasZher2kStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZher2kStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZher2kStridedBatched_rank_0,& + hipblasZher2kStridedBatched_rank_1,& + hipblasZher2kStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasCher2kStridedBatched_64 + function hipblasCher2kStridedBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) & + bind(c, name="hipblasCher2kStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCher2kStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + integer(c_int64_t),value :: strideB + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasCher2kStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCher2kStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCher2kStridedBatched_64_rank_0,& + hipblasCher2kStridedBatched_64_rank_1,& + hipblasCher2kStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasZher2kStridedBatched_64 + function hipblasZher2kStridedBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) & + bind(c, name="hipblasZher2kStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZher2kStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + integer(c_int64_t),value :: strideB + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasZher2kStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZher2kStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZher2kStridedBatched_64_rank_0,& + hipblasZher2kStridedBatched_64_rank_1,& + hipblasZher2kStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasSsymm + function hipblasSsymm_(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) & + bind(c, name="hipblasSsymm") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSsymm_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: BP + integer(c_int),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + end function + + module procedure hipblasSsymm_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSsymm_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSsymm_rank_0,& + hipblasSsymm_rank_1,& + hipblasSsymm_full_rank +#endif +#endif + end interface + + interface hipblasDsymm + function hipblasDsymm_(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) & + bind(c, name="hipblasDsymm") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDsymm_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: BP + integer(c_int),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + end function + + module procedure hipblasDsymm_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDsymm_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDsymm_rank_0,& + hipblasDsymm_rank_1,& + hipblasDsymm_full_rank +#endif +#endif + end interface + + interface hipblasCsymm + function hipblasCsymm_(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) & + bind(c, name="hipblasCsymm") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCsymm_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: BP + integer(c_int),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + end function + + module procedure hipblasCsymm_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCsymm_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCsymm_rank_0,& + hipblasCsymm_rank_1,& + hipblasCsymm_full_rank +#endif +#endif + end interface + + interface hipblasZsymm + function hipblasZsymm_(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) & + bind(c, name="hipblasZsymm") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZsymm_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: BP + integer(c_int),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + end function + + module procedure hipblasZsymm_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZsymm_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZsymm_rank_0,& + hipblasZsymm_rank_1,& + hipblasZsymm_full_rank +#endif +#endif + end interface + + interface hipblasSsymm_64 + function hipblasSsymm_64_(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) & + bind(c, name="hipblasSsymm_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSsymm_64_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + end function + + module procedure hipblasSsymm_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSsymm_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSsymm_64_rank_0,& + hipblasSsymm_64_rank_1,& + hipblasSsymm_64_full_rank +#endif +#endif + end interface + + interface hipblasDsymm_64 + function hipblasDsymm_64_(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) & + bind(c, name="hipblasDsymm_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDsymm_64_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + end function + + module procedure hipblasDsymm_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDsymm_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDsymm_64_rank_0,& + hipblasDsymm_64_rank_1,& + hipblasDsymm_64_full_rank +#endif +#endif + end interface + + interface hipblasCsymm_64 + function hipblasCsymm_64_(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) & + bind(c, name="hipblasCsymm_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCsymm_64_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + end function + + module procedure hipblasCsymm_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCsymm_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCsymm_64_rank_0,& + hipblasCsymm_64_rank_1,& + hipblasCsymm_64_full_rank +#endif +#endif + end interface + + interface hipblasZsymm_64 + function hipblasZsymm_64_(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) & + bind(c, name="hipblasZsymm_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZsymm_64_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + end function + + module procedure hipblasZsymm_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZsymm_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZsymm_64_rank_0,& + hipblasZsymm_64_rank_1,& + hipblasZsymm_64_full_rank +#endif +#endif + end interface + + interface hipblasSsymmBatched + function hipblasSsymmBatched_(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc,batchCount) & + bind(c, name="hipblasSsymmBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSsymmBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: BP + integer(c_int),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + integer(c_int),value :: batchCount + end function + + module procedure hipblasSsymmBatched_typed + end interface + + interface hipblasDsymmBatched + function hipblasDsymmBatched_(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc,batchCount) & + bind(c, name="hipblasDsymmBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDsymmBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: BP + integer(c_int),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + integer(c_int),value :: batchCount + end function + + module procedure hipblasDsymmBatched_typed + end interface + + interface hipblasCsymmBatched + function hipblasCsymmBatched_(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc,batchCount) & + bind(c, name="hipblasCsymmBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCsymmBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: BP + integer(c_int),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + integer(c_int),value :: batchCount + end function + + module procedure hipblasCsymmBatched_typed + end interface + + interface hipblasZsymmBatched + function hipblasZsymmBatched_(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc,batchCount) & + bind(c, name="hipblasZsymmBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZsymmBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: BP + integer(c_int),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + integer(c_int),value :: batchCount + end function + + module procedure hipblasZsymmBatched_typed + end interface + + interface hipblasSsymmBatched_64 + function hipblasSsymmBatched_64_(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) & + bind(c, name="hipblasSsymmBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSsymmBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasSsymmBatched_64_typed + end interface + + interface hipblasDsymmBatched_64 + function hipblasDsymmBatched_64_(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) & + bind(c, name="hipblasDsymmBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDsymmBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasDsymmBatched_64_typed + end interface + + interface hipblasCsymmBatched_64 + function hipblasCsymmBatched_64_(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) & + bind(c, name="hipblasCsymmBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCsymmBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasCsymmBatched_64_typed + end interface + + interface hipblasZsymmBatched_64 + function hipblasZsymmBatched_64_(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) & + bind(c, name="hipblasZsymmBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZsymmBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasZsymmBatched_64_typed + end interface + + interface hipblasSsymmStridedBatched + function hipblasSsymmStridedBatched_(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP,ldb,strideB, & + beta,CP,ldc,strideC,batchCount) & + bind(c, name="hipblasSsymmStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSsymmStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: BP + integer(c_int),value :: ldb + integer(c_int64_t),value :: strideB + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int),value :: batchCount + end function + + module procedure hipblasSsymmStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSsymmStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSsymmStridedBatched_rank_0,& + hipblasSsymmStridedBatched_rank_1,& + hipblasSsymmStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasDsymmStridedBatched + function hipblasDsymmStridedBatched_(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP,ldb,strideB, & + beta,CP,ldc,strideC,batchCount) & + bind(c, name="hipblasDsymmStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDsymmStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: BP + integer(c_int),value :: ldb + integer(c_int64_t),value :: strideB + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int),value :: batchCount + end function + + module procedure hipblasDsymmStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDsymmStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDsymmStridedBatched_rank_0,& + hipblasDsymmStridedBatched_rank_1,& + hipblasDsymmStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasCsymmStridedBatched + function hipblasCsymmStridedBatched_(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP,ldb,strideB, & + beta,CP,ldc,strideC,batchCount) & + bind(c, name="hipblasCsymmStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCsymmStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: BP + integer(c_int),value :: ldb + integer(c_int64_t),value :: strideB + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int),value :: batchCount + end function + + module procedure hipblasCsymmStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCsymmStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCsymmStridedBatched_rank_0,& + hipblasCsymmStridedBatched_rank_1,& + hipblasCsymmStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasZsymmStridedBatched + function hipblasZsymmStridedBatched_(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP,ldb,strideB, & + beta,CP,ldc,strideC,batchCount) & + bind(c, name="hipblasZsymmStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZsymmStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: BP + integer(c_int),value :: ldb + integer(c_int64_t),value :: strideB + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int),value :: batchCount + end function + + module procedure hipblasZsymmStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZsymmStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZsymmStridedBatched_rank_0,& + hipblasZsymmStridedBatched_rank_1,& + hipblasZsymmStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasSsymmStridedBatched_64 + function hipblasSsymmStridedBatched_64_(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) & + bind(c, name="hipblasSsymmStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSsymmStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + integer(c_int64_t),value :: strideB + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasSsymmStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSsymmStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSsymmStridedBatched_64_rank_0,& + hipblasSsymmStridedBatched_64_rank_1,& + hipblasSsymmStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasDsymmStridedBatched_64 + function hipblasDsymmStridedBatched_64_(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) & + bind(c, name="hipblasDsymmStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDsymmStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + integer(c_int64_t),value :: strideB + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasDsymmStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDsymmStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDsymmStridedBatched_64_rank_0,& + hipblasDsymmStridedBatched_64_rank_1,& + hipblasDsymmStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasCsymmStridedBatched_64 + function hipblasCsymmStridedBatched_64_(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) & + bind(c, name="hipblasCsymmStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCsymmStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + integer(c_int64_t),value :: strideB + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasCsymmStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCsymmStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCsymmStridedBatched_64_rank_0,& + hipblasCsymmStridedBatched_64_rank_1,& + hipblasCsymmStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasZsymmStridedBatched_64 + function hipblasZsymmStridedBatched_64_(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) & + bind(c, name="hipblasZsymmStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZsymmStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + integer(c_int64_t),value :: strideB + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasZsymmStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZsymmStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZsymmStridedBatched_64_rank_0,& + hipblasZsymmStridedBatched_64_rank_1,& + hipblasZsymmStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasSsyrk + function hipblasSsyrk_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) & + bind(c, name="hipblasSsyrk") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSsyrk_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + end function + + module procedure hipblasSsyrk_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSsyrk_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSsyrk_rank_0,& + hipblasSsyrk_rank_1,& + hipblasSsyrk_full_rank +#endif +#endif + end interface + + interface hipblasDsyrk + function hipblasDsyrk_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) & + bind(c, name="hipblasDsyrk") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDsyrk_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + end function + + module procedure hipblasDsyrk_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDsyrk_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDsyrk_rank_0,& + hipblasDsyrk_rank_1,& + hipblasDsyrk_full_rank +#endif +#endif + end interface + + interface hipblasCsyrk + function hipblasCsyrk_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) & + bind(c, name="hipblasCsyrk") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCsyrk_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + end function + + module procedure hipblasCsyrk_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCsyrk_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCsyrk_rank_0,& + hipblasCsyrk_rank_1,& + hipblasCsyrk_full_rank +#endif +#endif + end interface + + interface hipblasZsyrk + function hipblasZsyrk_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) & + bind(c, name="hipblasZsyrk") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZsyrk_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + end function + + module procedure hipblasZsyrk_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZsyrk_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZsyrk_rank_0,& + hipblasZsyrk_rank_1,& + hipblasZsyrk_full_rank +#endif +#endif + end interface + + interface hipblasSsyrk_64 + function hipblasSsyrk_64_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) & + bind(c, name="hipblasSsyrk_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSsyrk_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + end function + + module procedure hipblasSsyrk_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSsyrk_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSsyrk_64_rank_0,& + hipblasSsyrk_64_rank_1,& + hipblasSsyrk_64_full_rank +#endif +#endif + end interface + + interface hipblasDsyrk_64 + function hipblasDsyrk_64_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) & + bind(c, name="hipblasDsyrk_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDsyrk_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + end function + + module procedure hipblasDsyrk_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDsyrk_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDsyrk_64_rank_0,& + hipblasDsyrk_64_rank_1,& + hipblasDsyrk_64_full_rank +#endif +#endif + end interface + + interface hipblasCsyrk_64 + function hipblasCsyrk_64_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) & + bind(c, name="hipblasCsyrk_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCsyrk_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + end function + + module procedure hipblasCsyrk_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCsyrk_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCsyrk_64_rank_0,& + hipblasCsyrk_64_rank_1,& + hipblasCsyrk_64_full_rank +#endif +#endif + end interface + + interface hipblasZsyrk_64 + function hipblasZsyrk_64_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) & + bind(c, name="hipblasZsyrk_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZsyrk_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + end function + + module procedure hipblasZsyrk_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZsyrk_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZsyrk_64_rank_0,& + hipblasZsyrk_64_rank_1,& + hipblasZsyrk_64_full_rank +#endif +#endif + end interface + + interface hipblasSsyrkBatched + function hipblasSsyrkBatched_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc,batchCount) & + bind(c, name="hipblasSsyrkBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSsyrkBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + integer(c_int),value :: batchCount + end function + + module procedure hipblasSsyrkBatched_typed + end interface + + interface hipblasDsyrkBatched + function hipblasDsyrkBatched_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc,batchCount) & + bind(c, name="hipblasDsyrkBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDsyrkBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + integer(c_int),value :: batchCount + end function + + module procedure hipblasDsyrkBatched_typed + end interface + + interface hipblasCsyrkBatched + function hipblasCsyrkBatched_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc,batchCount) & + bind(c, name="hipblasCsyrkBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCsyrkBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + integer(c_int),value :: batchCount + end function + + module procedure hipblasCsyrkBatched_typed + end interface + + interface hipblasZsyrkBatched + function hipblasZsyrkBatched_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc,batchCount) & + bind(c, name="hipblasZsyrkBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZsyrkBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + integer(c_int),value :: batchCount + end function + + module procedure hipblasZsyrkBatched_typed + end interface + + interface hipblasSsyrkBatched_64 + function hipblasSsyrkBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc,batchCount) & + bind(c, name="hipblasSsyrkBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSsyrkBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasSsyrkBatched_64_typed + end interface + + interface hipblasDsyrkBatched_64 + function hipblasDsyrkBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc,batchCount) & + bind(c, name="hipblasDsyrkBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDsyrkBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasDsyrkBatched_64_typed + end interface + + interface hipblasCsyrkBatched_64 + function hipblasCsyrkBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc,batchCount) & + bind(c, name="hipblasCsyrkBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCsyrkBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasCsyrkBatched_64_typed + end interface + + interface hipblasZsyrkBatched_64 + function hipblasZsyrkBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc,batchCount) & + bind(c, name="hipblasZsyrkBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZsyrkBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasZsyrkBatched_64_typed + end interface + + interface hipblasSsyrkStridedBatched + function hipblasSsyrkStridedBatched_(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta,CP,ldc, & + strideC,batchCount) & + bind(c, name="hipblasSsyrkStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSsyrkStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int),value :: batchCount + end function + + module procedure hipblasSsyrkStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSsyrkStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSsyrkStridedBatched_rank_0,& + hipblasSsyrkStridedBatched_rank_1,& + hipblasSsyrkStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasDsyrkStridedBatched + function hipblasDsyrkStridedBatched_(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta,CP,ldc, & + strideC,batchCount) & + bind(c, name="hipblasDsyrkStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDsyrkStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int),value :: batchCount + end function + + module procedure hipblasDsyrkStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDsyrkStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDsyrkStridedBatched_rank_0,& + hipblasDsyrkStridedBatched_rank_1,& + hipblasDsyrkStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasCsyrkStridedBatched + function hipblasCsyrkStridedBatched_(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta,CP,ldc, & + strideC,batchCount) & + bind(c, name="hipblasCsyrkStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCsyrkStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int),value :: batchCount + end function + + module procedure hipblasCsyrkStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCsyrkStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCsyrkStridedBatched_rank_0,& + hipblasCsyrkStridedBatched_rank_1,& + hipblasCsyrkStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasZsyrkStridedBatched + function hipblasZsyrkStridedBatched_(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta,CP,ldc, & + strideC,batchCount) & + bind(c, name="hipblasZsyrkStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZsyrkStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int),value :: batchCount + end function + + module procedure hipblasZsyrkStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZsyrkStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZsyrkStridedBatched_rank_0,& + hipblasZsyrkStridedBatched_rank_1,& + hipblasZsyrkStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasSsyrkStridedBatched_64 + function hipblasSsyrkStridedBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta,CP, & + ldc,strideC,batchCount) & + bind(c, name="hipblasSsyrkStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSsyrkStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasSsyrkStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSsyrkStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSsyrkStridedBatched_64_rank_0,& + hipblasSsyrkStridedBatched_64_rank_1,& + hipblasSsyrkStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasDsyrkStridedBatched_64 + function hipblasDsyrkStridedBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta,CP, & + ldc,strideC,batchCount) & + bind(c, name="hipblasDsyrkStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDsyrkStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasDsyrkStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDsyrkStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDsyrkStridedBatched_64_rank_0,& + hipblasDsyrkStridedBatched_64_rank_1,& + hipblasDsyrkStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasCsyrkStridedBatched_64 + function hipblasCsyrkStridedBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta,CP, & + ldc,strideC,batchCount) & + bind(c, name="hipblasCsyrkStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCsyrkStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasCsyrkStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCsyrkStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCsyrkStridedBatched_64_rank_0,& + hipblasCsyrkStridedBatched_64_rank_1,& + hipblasCsyrkStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasZsyrkStridedBatched_64 + function hipblasZsyrkStridedBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta,CP, & + ldc,strideC,batchCount) & + bind(c, name="hipblasZsyrkStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZsyrkStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasZsyrkStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZsyrkStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZsyrkStridedBatched_64_rank_0,& + hipblasZsyrkStridedBatched_64_rank_1,& + hipblasZsyrkStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasSsyr2k + function hipblasSsyr2k_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & + bind(c, name="hipblasSsyr2k") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSsyr2k_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: BP + integer(c_int),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + end function + + module procedure hipblasSsyr2k_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSsyr2k_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSsyr2k_rank_0,& + hipblasSsyr2k_rank_1,& + hipblasSsyr2k_full_rank +#endif +#endif + end interface + + interface hipblasDsyr2k + function hipblasDsyr2k_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & + bind(c, name="hipblasDsyr2k") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDsyr2k_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: BP + integer(c_int),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + end function + + module procedure hipblasDsyr2k_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDsyr2k_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDsyr2k_rank_0,& + hipblasDsyr2k_rank_1,& + hipblasDsyr2k_full_rank +#endif +#endif + end interface + + interface hipblasCsyr2k + function hipblasCsyr2k_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & + bind(c, name="hipblasCsyr2k") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCsyr2k_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: BP + integer(c_int),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + end function + + module procedure hipblasCsyr2k_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCsyr2k_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCsyr2k_rank_0,& + hipblasCsyr2k_rank_1,& + hipblasCsyr2k_full_rank +#endif +#endif + end interface + + interface hipblasZsyr2k + function hipblasZsyr2k_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & + bind(c, name="hipblasZsyr2k") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZsyr2k_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: BP + integer(c_int),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + end function + + module procedure hipblasZsyr2k_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZsyr2k_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZsyr2k_rank_0,& + hipblasZsyr2k_rank_1,& + hipblasZsyr2k_full_rank +#endif +#endif + end interface + + interface hipblasSsyr2k_64 + function hipblasSsyr2k_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & + bind(c, name="hipblasSsyr2k_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSsyr2k_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + end function + + module procedure hipblasSsyr2k_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSsyr2k_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSsyr2k_64_rank_0,& + hipblasSsyr2k_64_rank_1,& + hipblasSsyr2k_64_full_rank +#endif +#endif + end interface + + interface hipblasDsyr2k_64 + function hipblasDsyr2k_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & + bind(c, name="hipblasDsyr2k_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDsyr2k_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + end function + + module procedure hipblasDsyr2k_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDsyr2k_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDsyr2k_64_rank_0,& + hipblasDsyr2k_64_rank_1,& + hipblasDsyr2k_64_full_rank +#endif +#endif + end interface + + interface hipblasCsyr2k_64 + function hipblasCsyr2k_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & + bind(c, name="hipblasCsyr2k_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCsyr2k_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + end function + + module procedure hipblasCsyr2k_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCsyr2k_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCsyr2k_64_rank_0,& + hipblasCsyr2k_64_rank_1,& + hipblasCsyr2k_64_full_rank +#endif +#endif + end interface + + interface hipblasZsyr2k_64 + function hipblasZsyr2k_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & + bind(c, name="hipblasZsyr2k_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZsyr2k_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + end function + + module procedure hipblasZsyr2k_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZsyr2k_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZsyr2k_64_rank_0,& + hipblasZsyr2k_64_rank_1,& + hipblasZsyr2k_64_full_rank +#endif +#endif + end interface + + interface hipblasSsyr2kBatched + function hipblasSsyr2kBatched_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) & + bind(c, name="hipblasSsyr2kBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSsyr2kBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: BP + integer(c_int),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + integer(c_int),value :: batchCount + end function + + module procedure hipblasSsyr2kBatched_typed + end interface + + interface hipblasDsyr2kBatched + function hipblasDsyr2kBatched_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) & + bind(c, name="hipblasDsyr2kBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDsyr2kBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: BP + integer(c_int),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + integer(c_int),value :: batchCount + end function + + module procedure hipblasDsyr2kBatched_typed + end interface + + interface hipblasCsyr2kBatched + function hipblasCsyr2kBatched_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) & + bind(c, name="hipblasCsyr2kBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCsyr2kBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: BP + integer(c_int),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + integer(c_int),value :: batchCount + end function + + module procedure hipblasCsyr2kBatched_typed + end interface + + interface hipblasZsyr2kBatched + function hipblasZsyr2kBatched_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) & + bind(c, name="hipblasZsyr2kBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZsyr2kBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: BP + integer(c_int),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + integer(c_int),value :: batchCount + end function + + module procedure hipblasZsyr2kBatched_typed + end interface + + interface hipblasSsyr2kBatched_64 + function hipblasSsyr2kBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) & + bind(c, name="hipblasSsyr2kBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSsyr2kBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasSsyr2kBatched_64_typed + end interface + + interface hipblasDsyr2kBatched_64 + function hipblasDsyr2kBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) & + bind(c, name="hipblasDsyr2kBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDsyr2kBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasDsyr2kBatched_64_typed + end interface + + interface hipblasCsyr2kBatched_64 + function hipblasCsyr2kBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) & + bind(c, name="hipblasCsyr2kBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCsyr2kBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasCsyr2kBatched_64_typed + end interface + + interface hipblasZsyr2kBatched_64 + function hipblasZsyr2kBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) & + bind(c, name="hipblasZsyr2kBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZsyr2kBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasZsyr2kBatched_64_typed + end interface + + interface hipblasSsyr2kStridedBatched + function hipblasSsyr2kStridedBatched_(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) & + bind(c, name="hipblasSsyr2kStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSsyr2kStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: BP + integer(c_int),value :: ldb + integer(c_int64_t),value :: strideB + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int),value :: batchCount + end function + + module procedure hipblasSsyr2kStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSsyr2kStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSsyr2kStridedBatched_rank_0,& + hipblasSsyr2kStridedBatched_rank_1,& + hipblasSsyr2kStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasDsyr2kStridedBatched + function hipblasDsyr2kStridedBatched_(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) & + bind(c, name="hipblasDsyr2kStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDsyr2kStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: BP + integer(c_int),value :: ldb + integer(c_int64_t),value :: strideB + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int),value :: batchCount + end function + + module procedure hipblasDsyr2kStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDsyr2kStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDsyr2kStridedBatched_rank_0,& + hipblasDsyr2kStridedBatched_rank_1,& + hipblasDsyr2kStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasCsyr2kStridedBatched + function hipblasCsyr2kStridedBatched_(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) & + bind(c, name="hipblasCsyr2kStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCsyr2kStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: BP + integer(c_int),value :: ldb + integer(c_int64_t),value :: strideB + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int),value :: batchCount + end function + + module procedure hipblasCsyr2kStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCsyr2kStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCsyr2kStridedBatched_rank_0,& + hipblasCsyr2kStridedBatched_rank_1,& + hipblasCsyr2kStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasZsyr2kStridedBatched + function hipblasZsyr2kStridedBatched_(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) & + bind(c, name="hipblasZsyr2kStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZsyr2kStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: BP + integer(c_int),value :: ldb + integer(c_int64_t),value :: strideB + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int),value :: batchCount + end function + + module procedure hipblasZsyr2kStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZsyr2kStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZsyr2kStridedBatched_rank_0,& + hipblasZsyr2kStridedBatched_rank_1,& + hipblasZsyr2kStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasSsyr2kStridedBatched_64 + function hipblasSsyr2kStridedBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) & + bind(c, name="hipblasSsyr2kStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSsyr2kStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + integer(c_int64_t),value :: strideB + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasSsyr2kStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSsyr2kStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSsyr2kStridedBatched_64_rank_0,& + hipblasSsyr2kStridedBatched_64_rank_1,& + hipblasSsyr2kStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasDsyr2kStridedBatched_64 + function hipblasDsyr2kStridedBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) & + bind(c, name="hipblasDsyr2kStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDsyr2kStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + integer(c_int64_t),value :: strideB + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasDsyr2kStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDsyr2kStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDsyr2kStridedBatched_64_rank_0,& + hipblasDsyr2kStridedBatched_64_rank_1,& + hipblasDsyr2kStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasCsyr2kStridedBatched_64 + function hipblasCsyr2kStridedBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) & + bind(c, name="hipblasCsyr2kStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCsyr2kStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + integer(c_int64_t),value :: strideB + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasCsyr2kStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCsyr2kStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCsyr2kStridedBatched_64_rank_0,& + hipblasCsyr2kStridedBatched_64_rank_1,& + hipblasCsyr2kStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasZsyr2kStridedBatched_64 + function hipblasZsyr2kStridedBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) & + bind(c, name="hipblasZsyr2kStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZsyr2kStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + integer(c_int64_t),value :: strideB + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasZsyr2kStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZsyr2kStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZsyr2kStridedBatched_64_rank_0,& + hipblasZsyr2kStridedBatched_64_rank_1,& + hipblasZsyr2kStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasSsyrkx + function hipblasSsyrkx_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & + bind(c, name="hipblasSsyrkx") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSsyrkx_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: BP + integer(c_int),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + end function + + module procedure hipblasSsyrkx_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSsyrkx_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSsyrkx_rank_0,& + hipblasSsyrkx_rank_1,& + hipblasSsyrkx_full_rank +#endif +#endif + end interface + + interface hipblasDsyrkx + function hipblasDsyrkx_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & + bind(c, name="hipblasDsyrkx") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDsyrkx_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: BP + integer(c_int),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + end function + + module procedure hipblasDsyrkx_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDsyrkx_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDsyrkx_rank_0,& + hipblasDsyrkx_rank_1,& + hipblasDsyrkx_full_rank +#endif +#endif + end interface + + interface hipblasCsyrkx + function hipblasCsyrkx_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & + bind(c, name="hipblasCsyrkx") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCsyrkx_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: BP + integer(c_int),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + end function + + module procedure hipblasCsyrkx_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCsyrkx_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCsyrkx_rank_0,& + hipblasCsyrkx_rank_1,& + hipblasCsyrkx_full_rank +#endif +#endif + end interface + + interface hipblasZsyrkx + function hipblasZsyrkx_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & + bind(c, name="hipblasZsyrkx") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZsyrkx_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: BP + integer(c_int),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + end function + + module procedure hipblasZsyrkx_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZsyrkx_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZsyrkx_rank_0,& + hipblasZsyrkx_rank_1,& + hipblasZsyrkx_full_rank +#endif +#endif + end interface + + interface hipblasSsyrkx_64 + function hipblasSsyrkx_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & + bind(c, name="hipblasSsyrkx_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSsyrkx_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + end function + + module procedure hipblasSsyrkx_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSsyrkx_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSsyrkx_64_rank_0,& + hipblasSsyrkx_64_rank_1,& + hipblasSsyrkx_64_full_rank +#endif +#endif + end interface + + interface hipblasDsyrkx_64 + function hipblasDsyrkx_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & + bind(c, name="hipblasDsyrkx_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDsyrkx_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + end function + + module procedure hipblasDsyrkx_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDsyrkx_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDsyrkx_64_rank_0,& + hipblasDsyrkx_64_rank_1,& + hipblasDsyrkx_64_full_rank +#endif +#endif + end interface + + interface hipblasCsyrkx_64 + function hipblasCsyrkx_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & + bind(c, name="hipblasCsyrkx_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCsyrkx_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + end function + + module procedure hipblasCsyrkx_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCsyrkx_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCsyrkx_64_rank_0,& + hipblasCsyrkx_64_rank_1,& + hipblasCsyrkx_64_full_rank +#endif +#endif + end interface + + interface hipblasZsyrkx_64 + function hipblasZsyrkx_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & + bind(c, name="hipblasZsyrkx_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZsyrkx_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + end function + + module procedure hipblasZsyrkx_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZsyrkx_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZsyrkx_64_rank_0,& + hipblasZsyrkx_64_rank_1,& + hipblasZsyrkx_64_full_rank +#endif +#endif + end interface + + interface hipblasSsyrkxBatched + function hipblasSsyrkxBatched_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) & + bind(c, name="hipblasSsyrkxBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSsyrkxBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: BP + integer(c_int),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + integer(c_int),value :: batchCount + end function + + module procedure hipblasSsyrkxBatched_typed + end interface + + interface hipblasDsyrkxBatched + function hipblasDsyrkxBatched_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) & + bind(c, name="hipblasDsyrkxBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDsyrkxBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: BP + integer(c_int),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + integer(c_int),value :: batchCount + end function + + module procedure hipblasDsyrkxBatched_typed + end interface + + interface hipblasCsyrkxBatched + function hipblasCsyrkxBatched_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) & + bind(c, name="hipblasCsyrkxBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCsyrkxBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: BP + integer(c_int),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + integer(c_int),value :: batchCount + end function + + module procedure hipblasCsyrkxBatched_typed + end interface + + interface hipblasZsyrkxBatched + function hipblasZsyrkxBatched_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) & + bind(c, name="hipblasZsyrkxBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZsyrkxBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: BP + integer(c_int),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + integer(c_int),value :: batchCount + end function + + module procedure hipblasZsyrkxBatched_typed + end interface + + interface hipblasSsyrkxBatched_64 + function hipblasSsyrkxBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) & + bind(c, name="hipblasSsyrkxBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSsyrkxBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasSsyrkxBatched_64_typed + end interface + + interface hipblasDsyrkxBatched_64 + function hipblasDsyrkxBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) & + bind(c, name="hipblasDsyrkxBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDsyrkxBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasDsyrkxBatched_64_typed + end interface + + interface hipblasCsyrkxBatched_64 + function hipblasCsyrkxBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) & + bind(c, name="hipblasCsyrkxBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCsyrkxBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasCsyrkxBatched_64_typed + end interface + + interface hipblasZsyrkxBatched_64 + function hipblasZsyrkxBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) & + bind(c, name="hipblasZsyrkxBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZsyrkxBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasZsyrkxBatched_64_typed + end interface + + interface hipblasSsyrkxStridedBatched + function hipblasSsyrkxStridedBatched_(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) & + bind(c, name="hipblasSsyrkxStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSsyrkxStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: BP + integer(c_int),value :: ldb + integer(c_int64_t),value :: strideB + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int),value :: batchCount + end function + + module procedure hipblasSsyrkxStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSsyrkxStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSsyrkxStridedBatched_rank_0,& + hipblasSsyrkxStridedBatched_rank_1,& + hipblasSsyrkxStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasDsyrkxStridedBatched + function hipblasDsyrkxStridedBatched_(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) & + bind(c, name="hipblasDsyrkxStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDsyrkxStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: BP + integer(c_int),value :: ldb + integer(c_int64_t),value :: strideB + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int),value :: batchCount + end function + + module procedure hipblasDsyrkxStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDsyrkxStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDsyrkxStridedBatched_rank_0,& + hipblasDsyrkxStridedBatched_rank_1,& + hipblasDsyrkxStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasCsyrkxStridedBatched + function hipblasCsyrkxStridedBatched_(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) & + bind(c, name="hipblasCsyrkxStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCsyrkxStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: BP + integer(c_int),value :: ldb + integer(c_int64_t),value :: strideB + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int),value :: batchCount + end function + + module procedure hipblasCsyrkxStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCsyrkxStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCsyrkxStridedBatched_rank_0,& + hipblasCsyrkxStridedBatched_rank_1,& + hipblasCsyrkxStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasZsyrkxStridedBatched + function hipblasZsyrkxStridedBatched_(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) & + bind(c, name="hipblasZsyrkxStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZsyrkxStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: BP + integer(c_int),value :: ldb + integer(c_int64_t),value :: strideB + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int),value :: batchCount + end function + + module procedure hipblasZsyrkxStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZsyrkxStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZsyrkxStridedBatched_rank_0,& + hipblasZsyrkxStridedBatched_rank_1,& + hipblasZsyrkxStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasSsyrkxStridedBatched_64 + function hipblasSsyrkxStridedBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) & + bind(c, name="hipblasSsyrkxStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSsyrkxStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + integer(c_int64_t),value :: strideB + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasSsyrkxStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSsyrkxStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSsyrkxStridedBatched_64_rank_0,& + hipblasSsyrkxStridedBatched_64_rank_1,& + hipblasSsyrkxStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasDsyrkxStridedBatched_64 + function hipblasDsyrkxStridedBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) & + bind(c, name="hipblasDsyrkxStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDsyrkxStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + integer(c_int64_t),value :: strideB + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasDsyrkxStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDsyrkxStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDsyrkxStridedBatched_64_rank_0,& + hipblasDsyrkxStridedBatched_64_rank_1,& + hipblasDsyrkxStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasCsyrkxStridedBatched_64 + function hipblasCsyrkxStridedBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) & + bind(c, name="hipblasCsyrkxStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCsyrkxStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + integer(c_int64_t),value :: strideB + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasCsyrkxStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCsyrkxStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCsyrkxStridedBatched_64_rank_0,& + hipblasCsyrkxStridedBatched_64_rank_1,& + hipblasCsyrkxStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasZsyrkxStridedBatched_64 + function hipblasZsyrkxStridedBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) & + bind(c, name="hipblasZsyrkxStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZsyrkxStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + integer(c_int64_t),value :: strideB + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasZsyrkxStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZsyrkxStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZsyrkxStridedBatched_64_rank_0,& + hipblasZsyrkxStridedBatched_64_rank_1,& + hipblasZsyrkxStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasSgeam + function hipblasSgeam_(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) & + bind(c, name="hipblasSgeam") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSgeam_ + type(c_ptr),value :: handle + integer(c_int),value :: transA + integer(c_int),value :: transB + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: beta + type(c_ptr),value :: BP + integer(c_int),value :: ldb + type(c_ptr),value :: CP + integer(c_int),value :: ldc + end function + + module procedure hipblasSgeam_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSgeam_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSgeam_rank_0,& + hipblasSgeam_rank_1,& + hipblasSgeam_full_rank +#endif +#endif + end interface + + interface hipblasDgeam + function hipblasDgeam_(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) & + bind(c, name="hipblasDgeam") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDgeam_ + type(c_ptr),value :: handle + integer(c_int),value :: transA + integer(c_int),value :: transB + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: beta + type(c_ptr),value :: BP + integer(c_int),value :: ldb + type(c_ptr),value :: CP + integer(c_int),value :: ldc + end function + + module procedure hipblasDgeam_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDgeam_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDgeam_rank_0,& + hipblasDgeam_rank_1,& + hipblasDgeam_full_rank +#endif +#endif + end interface + + interface hipblasCgeam + function hipblasCgeam_(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) & + bind(c, name="hipblasCgeam") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCgeam_ + type(c_ptr),value :: handle + integer(c_int),value :: transA + integer(c_int),value :: transB + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: beta + type(c_ptr),value :: BP + integer(c_int),value :: ldb + type(c_ptr),value :: CP + integer(c_int),value :: ldc + end function + + module procedure hipblasCgeam_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCgeam_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCgeam_rank_0,& + hipblasCgeam_rank_1,& + hipblasCgeam_full_rank +#endif +#endif + end interface + + interface hipblasZgeam + function hipblasZgeam_(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) & + bind(c, name="hipblasZgeam") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZgeam_ + type(c_ptr),value :: handle + integer(c_int),value :: transA + integer(c_int),value :: transB + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: beta + type(c_ptr),value :: BP + integer(c_int),value :: ldb + type(c_ptr),value :: CP + integer(c_int),value :: ldc + end function + + module procedure hipblasZgeam_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZgeam_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZgeam_rank_0,& + hipblasZgeam_rank_1,& + hipblasZgeam_full_rank +#endif +#endif + end interface + + interface hipblasSgeam_64 + function hipblasSgeam_64_(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) & + bind(c, name="hipblasSgeam_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSgeam_64_ + type(c_ptr),value :: handle + integer(c_int),value :: transA + integer(c_int),value :: transB + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: beta + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + end function + + module procedure hipblasSgeam_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSgeam_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSgeam_64_rank_0,& + hipblasSgeam_64_rank_1,& + hipblasSgeam_64_full_rank +#endif +#endif + end interface + + interface hipblasDgeam_64 + function hipblasDgeam_64_(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) & + bind(c, name="hipblasDgeam_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDgeam_64_ + type(c_ptr),value :: handle + integer(c_int),value :: transA + integer(c_int),value :: transB + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: beta + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + end function + + module procedure hipblasDgeam_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDgeam_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDgeam_64_rank_0,& + hipblasDgeam_64_rank_1,& + hipblasDgeam_64_full_rank +#endif +#endif + end interface + + interface hipblasCgeam_64 + function hipblasCgeam_64_(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) & + bind(c, name="hipblasCgeam_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCgeam_64_ + type(c_ptr),value :: handle + integer(c_int),value :: transA + integer(c_int),value :: transB + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: beta + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + end function + + module procedure hipblasCgeam_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCgeam_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCgeam_64_rank_0,& + hipblasCgeam_64_rank_1,& + hipblasCgeam_64_full_rank +#endif +#endif + end interface + + interface hipblasZgeam_64 + function hipblasZgeam_64_(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) & + bind(c, name="hipblasZgeam_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZgeam_64_ + type(c_ptr),value :: handle + integer(c_int),value :: transA + integer(c_int),value :: transB + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: beta + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + end function + + module procedure hipblasZgeam_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZgeam_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZgeam_64_rank_0,& + hipblasZgeam_64_rank_1,& + hipblasZgeam_64_full_rank +#endif +#endif + end interface + + interface hipblasSgeamBatched + function hipblasSgeamBatched_(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc, & + batchCount) & + bind(c, name="hipblasSgeamBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSgeamBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: transA + integer(c_int),value :: transB + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: beta + type(c_ptr),value :: BP + integer(c_int),value :: ldb + type(c_ptr),value :: CP + integer(c_int),value :: ldc + integer(c_int),value :: batchCount + end function + + module procedure hipblasSgeamBatched_typed + end interface + + interface hipblasDgeamBatched + function hipblasDgeamBatched_(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc, & + batchCount) & + bind(c, name="hipblasDgeamBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDgeamBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: transA + integer(c_int),value :: transB + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: beta + type(c_ptr),value :: BP + integer(c_int),value :: ldb + type(c_ptr),value :: CP + integer(c_int),value :: ldc + integer(c_int),value :: batchCount + end function + + module procedure hipblasDgeamBatched_typed + end interface + + interface hipblasCgeamBatched + function hipblasCgeamBatched_(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc, & + batchCount) & + bind(c, name="hipblasCgeamBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCgeamBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: transA + integer(c_int),value :: transB + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: beta + type(c_ptr),value :: BP + integer(c_int),value :: ldb + type(c_ptr),value :: CP + integer(c_int),value :: ldc + integer(c_int),value :: batchCount + end function + + module procedure hipblasCgeamBatched_typed + end interface + + interface hipblasZgeamBatched + function hipblasZgeamBatched_(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc, & + batchCount) & + bind(c, name="hipblasZgeamBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZgeamBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: transA + integer(c_int),value :: transB + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: beta + type(c_ptr),value :: BP + integer(c_int),value :: ldb + type(c_ptr),value :: CP + integer(c_int),value :: ldc + integer(c_int),value :: batchCount + end function + + module procedure hipblasZgeamBatched_typed + end interface + + interface hipblasSgeamBatched_64 + function hipblasSgeamBatched_64_(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc, & + batchCount) & + bind(c, name="hipblasSgeamBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSgeamBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: transA + integer(c_int),value :: transB + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: beta + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasSgeamBatched_64_typed + end interface + + interface hipblasDgeamBatched_64 + function hipblasDgeamBatched_64_(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc, & + batchCount) & + bind(c, name="hipblasDgeamBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDgeamBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: transA + integer(c_int),value :: transB + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: beta + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasDgeamBatched_64_typed + end interface + + interface hipblasCgeamBatched_64 + function hipblasCgeamBatched_64_(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc, & + batchCount) & + bind(c, name="hipblasCgeamBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCgeamBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: transA + integer(c_int),value :: transB + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: beta + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasCgeamBatched_64_typed + end interface + + interface hipblasZgeamBatched_64 + function hipblasZgeamBatched_64_(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc, & + batchCount) & + bind(c, name="hipblasZgeamBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZgeamBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: transA + integer(c_int),value :: transB + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: beta + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasZgeamBatched_64_typed + end interface + + interface hipblasSgeamStridedBatched + function hipblasSgeamStridedBatched_(handle,transA,transB,m,n,alpha,AP,lda,strideA,beta,BP, & + ldb,strideB,CP,ldc,strideC,batchCount) & + bind(c, name="hipblasSgeamStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSgeamStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: transA + integer(c_int),value :: transB + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: beta + type(c_ptr),value :: BP + integer(c_int),value :: ldb + integer(c_int64_t),value :: strideB + type(c_ptr),value :: CP + integer(c_int),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int),value :: batchCount + end function + + module procedure hipblasSgeamStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSgeamStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSgeamStridedBatched_rank_0,& + hipblasSgeamStridedBatched_rank_1,& + hipblasSgeamStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasDgeamStridedBatched + function hipblasDgeamStridedBatched_(handle,transA,transB,m,n,alpha,AP,lda,strideA,beta,BP, & + ldb,strideB,CP,ldc,strideC,batchCount) & + bind(c, name="hipblasDgeamStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDgeamStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: transA + integer(c_int),value :: transB + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: beta + type(c_ptr),value :: BP + integer(c_int),value :: ldb + integer(c_int64_t),value :: strideB + type(c_ptr),value :: CP + integer(c_int),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int),value :: batchCount + end function + + module procedure hipblasDgeamStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDgeamStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDgeamStridedBatched_rank_0,& + hipblasDgeamStridedBatched_rank_1,& + hipblasDgeamStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasCgeamStridedBatched + function hipblasCgeamStridedBatched_(handle,transA,transB,m,n,alpha,AP,lda,strideA,beta,BP, & + ldb,strideB,CP,ldc,strideC,batchCount) & + bind(c, name="hipblasCgeamStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCgeamStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: transA + integer(c_int),value :: transB + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: beta + type(c_ptr),value :: BP + integer(c_int),value :: ldb + integer(c_int64_t),value :: strideB + type(c_ptr),value :: CP + integer(c_int),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int),value :: batchCount + end function + + module procedure hipblasCgeamStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCgeamStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCgeamStridedBatched_rank_0,& + hipblasCgeamStridedBatched_rank_1,& + hipblasCgeamStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasZgeamStridedBatched + function hipblasZgeamStridedBatched_(handle,transA,transB,m,n,alpha,AP,lda,strideA,beta,BP, & + ldb,strideB,CP,ldc,strideC,batchCount) & + bind(c, name="hipblasZgeamStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZgeamStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: transA + integer(c_int),value :: transB + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: beta + type(c_ptr),value :: BP + integer(c_int),value :: ldb + integer(c_int64_t),value :: strideB + type(c_ptr),value :: CP + integer(c_int),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int),value :: batchCount + end function + + module procedure hipblasZgeamStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZgeamStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZgeamStridedBatched_rank_0,& + hipblasZgeamStridedBatched_rank_1,& + hipblasZgeamStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasSgeamStridedBatched_64 + function hipblasSgeamStridedBatched_64_(handle,transA,transB,m,n,alpha,AP,lda,strideA,beta,BP, & + ldb,strideB,CP,ldc,strideC,batchCount) & + bind(c, name="hipblasSgeamStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSgeamStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: transA + integer(c_int),value :: transB + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: beta + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + integer(c_int64_t),value :: strideB + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasSgeamStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSgeamStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSgeamStridedBatched_64_rank_0,& + hipblasSgeamStridedBatched_64_rank_1,& + hipblasSgeamStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasDgeamStridedBatched_64 + function hipblasDgeamStridedBatched_64_(handle,transA,transB,m,n,alpha,AP,lda,strideA,beta,BP, & + ldb,strideB,CP,ldc,strideC,batchCount) & + bind(c, name="hipblasDgeamStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDgeamStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: transA + integer(c_int),value :: transB + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: beta + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + integer(c_int64_t),value :: strideB + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasDgeamStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDgeamStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDgeamStridedBatched_64_rank_0,& + hipblasDgeamStridedBatched_64_rank_1,& + hipblasDgeamStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasCgeamStridedBatched_64 + function hipblasCgeamStridedBatched_64_(handle,transA,transB,m,n,alpha,AP,lda,strideA,beta,BP, & + ldb,strideB,CP,ldc,strideC,batchCount) & + bind(c, name="hipblasCgeamStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCgeamStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: transA + integer(c_int),value :: transB + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: beta + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + integer(c_int64_t),value :: strideB + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasCgeamStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCgeamStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCgeamStridedBatched_64_rank_0,& + hipblasCgeamStridedBatched_64_rank_1,& + hipblasCgeamStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasZgeamStridedBatched_64 + function hipblasZgeamStridedBatched_64_(handle,transA,transB,m,n,alpha,AP,lda,strideA,beta,BP, & + ldb,strideB,CP,ldc,strideC,batchCount) & + bind(c, name="hipblasZgeamStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZgeamStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: transA + integer(c_int),value :: transB + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: beta + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + integer(c_int64_t),value :: strideB + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasZgeamStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZgeamStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZgeamStridedBatched_64_rank_0,& + hipblasZgeamStridedBatched_64_rank_1,& + hipblasZgeamStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasChemm + function hipblasChemm_(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & + bind(c, name="hipblasChemm") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasChemm_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: BP + integer(c_int),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + end function + + module procedure hipblasChemm_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasChemm_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasChemm_rank_0,& + hipblasChemm_rank_1,& + hipblasChemm_full_rank +#endif +#endif + end interface + + interface hipblasZhemm + function hipblasZhemm_(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & + bind(c, name="hipblasZhemm") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZhemm_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: BP + integer(c_int),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + end function + + module procedure hipblasZhemm_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZhemm_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZhemm_rank_0,& + hipblasZhemm_rank_1,& + hipblasZhemm_full_rank +#endif +#endif + end interface + + interface hipblasChemm_64 + function hipblasChemm_64_(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & + bind(c, name="hipblasChemm_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasChemm_64_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + end function + + module procedure hipblasChemm_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasChemm_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasChemm_64_rank_0,& + hipblasChemm_64_rank_1,& + hipblasChemm_64_full_rank +#endif +#endif + end interface + + interface hipblasZhemm_64 + function hipblasZhemm_64_(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & + bind(c, name="hipblasZhemm_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZhemm_64_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + end function + + module procedure hipblasZhemm_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZhemm_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZhemm_64_rank_0,& + hipblasZhemm_64_rank_1,& + hipblasZhemm_64_full_rank +#endif +#endif + end interface + + interface hipblasChemmBatched + function hipblasChemmBatched_(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc,batchCount) & + bind(c, name="hipblasChemmBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasChemmBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: BP + integer(c_int),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + integer(c_int),value :: batchCount + end function + + module procedure hipblasChemmBatched_typed + end interface + + interface hipblasZhemmBatched + function hipblasZhemmBatched_(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc,batchCount) & + bind(c, name="hipblasZhemmBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZhemmBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: BP + integer(c_int),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + integer(c_int),value :: batchCount + end function + + module procedure hipblasZhemmBatched_typed + end interface + + interface hipblasChemmBatched_64 + function hipblasChemmBatched_64_(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) & + bind(c, name="hipblasChemmBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasChemmBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasChemmBatched_64_typed + end interface + + interface hipblasZhemmBatched_64 + function hipblasZhemmBatched_64_(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) & + bind(c, name="hipblasZhemmBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZhemmBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasZhemmBatched_64_typed + end interface + + interface hipblasChemmStridedBatched + function hipblasChemmStridedBatched_(handle,side,uplo,n,k,alpha,AP,lda,strideA,BP,ldb,strideB, & + beta,CP,ldc,strideC,batchCount) & + bind(c, name="hipblasChemmStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasChemmStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: BP + integer(c_int),value :: ldb + integer(c_int64_t),value :: strideB + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int),value :: batchCount + end function + + module procedure hipblasChemmStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasChemmStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasChemmStridedBatched_rank_0,& + hipblasChemmStridedBatched_rank_1,& + hipblasChemmStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasZhemmStridedBatched + function hipblasZhemmStridedBatched_(handle,side,uplo,n,k,alpha,AP,lda,strideA,BP,ldb,strideB, & + beta,CP,ldc,strideC,batchCount) & + bind(c, name="hipblasZhemmStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZhemmStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: BP + integer(c_int),value :: ldb + integer(c_int64_t),value :: strideB + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int),value :: batchCount + end function + + module procedure hipblasZhemmStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZhemmStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZhemmStridedBatched_rank_0,& + hipblasZhemmStridedBatched_rank_1,& + hipblasZhemmStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasChemmStridedBatched_64 + function hipblasChemmStridedBatched_64_(handle,side,uplo,n,k,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) & + bind(c, name="hipblasChemmStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasChemmStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + integer(c_int64_t),value :: strideB + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasChemmStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasChemmStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasChemmStridedBatched_64_rank_0,& + hipblasChemmStridedBatched_64_rank_1,& + hipblasChemmStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasZhemmStridedBatched_64 + function hipblasZhemmStridedBatched_64_(handle,side,uplo,n,k,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) & + bind(c, name="hipblasZhemmStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZhemmStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + integer(c_int64_t),value :: strideB + type(c_ptr),value :: beta + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasZhemmStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZhemmStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZhemmStridedBatched_64_rank_0,& + hipblasZhemmStridedBatched_64_rank_1,& + hipblasZhemmStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasStrmm + function hipblasStrmm_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) & + bind(c, name="hipblasStrmm") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasStrmm_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: A + integer(c_int),value :: lda + type(c_ptr),value :: B + integer(c_int),value :: ldb + type(c_ptr),value :: C + integer(c_int),value :: ldc + end function + + module procedure hipblasStrmm_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasStrmm_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasStrmm_rank_0,& + hipblasStrmm_rank_1,& + hipblasStrmm_full_rank +#endif +#endif + end interface + + interface hipblasDtrmm + function hipblasDtrmm_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) & + bind(c, name="hipblasDtrmm") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDtrmm_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: A + integer(c_int),value :: lda + type(c_ptr),value :: B + integer(c_int),value :: ldb + type(c_ptr),value :: C + integer(c_int),value :: ldc + end function + + module procedure hipblasDtrmm_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDtrmm_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDtrmm_rank_0,& + hipblasDtrmm_rank_1,& + hipblasDtrmm_full_rank +#endif +#endif + end interface + + interface hipblasCtrmm + function hipblasCtrmm_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) & + bind(c, name="hipblasCtrmm") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCtrmm_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: A + integer(c_int),value :: lda + type(c_ptr),value :: B + integer(c_int),value :: ldb + type(c_ptr),value :: C + integer(c_int),value :: ldc + end function + + module procedure hipblasCtrmm_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCtrmm_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCtrmm_rank_0,& + hipblasCtrmm_rank_1,& + hipblasCtrmm_full_rank +#endif +#endif + end interface + + interface hipblasZtrmm + function hipblasZtrmm_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) & + bind(c, name="hipblasZtrmm") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZtrmm_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: A + integer(c_int),value :: lda + type(c_ptr),value :: B + integer(c_int),value :: ldb + type(c_ptr),value :: C + integer(c_int),value :: ldc + end function + + module procedure hipblasZtrmm_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZtrmm_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZtrmm_rank_0,& + hipblasZtrmm_rank_1,& + hipblasZtrmm_full_rank +#endif +#endif + end interface + + interface hipblasStrmm_64 + function hipblasStrmm_64_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) & + bind(c, name="hipblasStrmm_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasStrmm_64_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: A + integer(c_int64_t),value :: lda + type(c_ptr),value :: B + integer(c_int64_t),value :: ldb + type(c_ptr),value :: C + integer(c_int64_t),value :: ldc + end function + + module procedure hipblasStrmm_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasStrmm_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasStrmm_64_rank_0,& + hipblasStrmm_64_rank_1,& + hipblasStrmm_64_full_rank +#endif +#endif + end interface + + interface hipblasDtrmm_64 + function hipblasDtrmm_64_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) & + bind(c, name="hipblasDtrmm_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDtrmm_64_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: A + integer(c_int64_t),value :: lda + type(c_ptr),value :: B + integer(c_int64_t),value :: ldb + type(c_ptr),value :: C + integer(c_int64_t),value :: ldc + end function + + module procedure hipblasDtrmm_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDtrmm_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDtrmm_64_rank_0,& + hipblasDtrmm_64_rank_1,& + hipblasDtrmm_64_full_rank +#endif +#endif + end interface + + interface hipblasCtrmm_64 + function hipblasCtrmm_64_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) & + bind(c, name="hipblasCtrmm_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCtrmm_64_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: A + integer(c_int64_t),value :: lda + type(c_ptr),value :: B + integer(c_int64_t),value :: ldb + type(c_ptr),value :: C + integer(c_int64_t),value :: ldc + end function + + module procedure hipblasCtrmm_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCtrmm_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCtrmm_64_rank_0,& + hipblasCtrmm_64_rank_1,& + hipblasCtrmm_64_full_rank +#endif +#endif + end interface + + interface hipblasZtrmm_64 + function hipblasZtrmm_64_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) & + bind(c, name="hipblasZtrmm_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZtrmm_64_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: A + integer(c_int64_t),value :: lda + type(c_ptr),value :: B + integer(c_int64_t),value :: ldb + type(c_ptr),value :: C + integer(c_int64_t),value :: ldc + end function + + module procedure hipblasZtrmm_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZtrmm_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZtrmm_64_rank_0,& + hipblasZtrmm_64_rank_1,& + hipblasZtrmm_64_full_rank +#endif +#endif + end interface + + interface hipblasStrmmBatched + function hipblasStrmmBatched_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc, & + batchCount) & + bind(c, name="hipblasStrmmBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasStrmmBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: A + integer(c_int),value :: lda + type(c_ptr),value :: B + integer(c_int),value :: ldb + type(c_ptr),value :: C + integer(c_int),value :: ldc + integer(c_int),value :: batchCount + end function + + module procedure hipblasStrmmBatched_typed + end interface + + interface hipblasDtrmmBatched + function hipblasDtrmmBatched_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc, & + batchCount) & + bind(c, name="hipblasDtrmmBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDtrmmBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: A + integer(c_int),value :: lda + type(c_ptr),value :: B + integer(c_int),value :: ldb + type(c_ptr),value :: C + integer(c_int),value :: ldc + integer(c_int),value :: batchCount + end function + + module procedure hipblasDtrmmBatched_typed + end interface + + interface hipblasCtrmmBatched + function hipblasCtrmmBatched_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc, & + batchCount) & + bind(c, name="hipblasCtrmmBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCtrmmBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: A + integer(c_int),value :: lda + type(c_ptr),value :: B + integer(c_int),value :: ldb + type(c_ptr),value :: C + integer(c_int),value :: ldc + integer(c_int),value :: batchCount + end function + + module procedure hipblasCtrmmBatched_typed + end interface + + interface hipblasZtrmmBatched + function hipblasZtrmmBatched_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc, & + batchCount) & + bind(c, name="hipblasZtrmmBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZtrmmBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: A + integer(c_int),value :: lda + type(c_ptr),value :: B + integer(c_int),value :: ldb + type(c_ptr),value :: C + integer(c_int),value :: ldc + integer(c_int),value :: batchCount + end function + + module procedure hipblasZtrmmBatched_typed + end interface + + interface hipblasStrmmBatched_64 + function hipblasStrmmBatched_64_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc, & + batchCount) & + bind(c, name="hipblasStrmmBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasStrmmBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: A + integer(c_int64_t),value :: lda + type(c_ptr),value :: B + integer(c_int64_t),value :: ldb + type(c_ptr),value :: C + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasStrmmBatched_64_typed + end interface + + interface hipblasDtrmmBatched_64 + function hipblasDtrmmBatched_64_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc, & + batchCount) & + bind(c, name="hipblasDtrmmBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDtrmmBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: A + integer(c_int64_t),value :: lda + type(c_ptr),value :: B + integer(c_int64_t),value :: ldb + type(c_ptr),value :: C + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasDtrmmBatched_64_typed + end interface + + interface hipblasCtrmmBatched_64 + function hipblasCtrmmBatched_64_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc, & + batchCount) & + bind(c, name="hipblasCtrmmBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCtrmmBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: A + integer(c_int64_t),value :: lda + type(c_ptr),value :: B + integer(c_int64_t),value :: ldb + type(c_ptr),value :: C + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasCtrmmBatched_64_typed + end interface + + interface hipblasZtrmmBatched_64 + function hipblasZtrmmBatched_64_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc, & + batchCount) & + bind(c, name="hipblasZtrmmBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZtrmmBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: A + integer(c_int64_t),value :: lda + type(c_ptr),value :: B + integer(c_int64_t),value :: ldb + type(c_ptr),value :: C + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasZtrmmBatched_64_typed + end interface + + interface hipblasStrmmStridedBatched + function hipblasStrmmStridedBatched_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,strideA,B, & + ldb,strideB,C,ldc,strideC,batchCount) & + bind(c, name="hipblasStrmmStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasStrmmStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: A + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: B + integer(c_int),value :: ldb + integer(c_int64_t),value :: strideB + type(c_ptr),value :: C + integer(c_int),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int),value :: batchCount + end function + + module procedure hipblasStrmmStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasStrmmStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasStrmmStridedBatched_rank_0,& + hipblasStrmmStridedBatched_rank_1,& + hipblasStrmmStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasDtrmmStridedBatched + function hipblasDtrmmStridedBatched_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,strideA,B, & + ldb,strideB,C,ldc,strideC,batchCount) & + bind(c, name="hipblasDtrmmStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDtrmmStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: A + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: B + integer(c_int),value :: ldb + integer(c_int64_t),value :: strideB + type(c_ptr),value :: C + integer(c_int),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int),value :: batchCount + end function + + module procedure hipblasDtrmmStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDtrmmStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDtrmmStridedBatched_rank_0,& + hipblasDtrmmStridedBatched_rank_1,& + hipblasDtrmmStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasCtrmmStridedBatched + function hipblasCtrmmStridedBatched_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,strideA,B, & + ldb,strideB,C,ldc,strideC,batchCount) & + bind(c, name="hipblasCtrmmStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCtrmmStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: A + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: B + integer(c_int),value :: ldb + integer(c_int64_t),value :: strideB + type(c_ptr),value :: C + integer(c_int),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int),value :: batchCount + end function + + module procedure hipblasCtrmmStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCtrmmStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCtrmmStridedBatched_rank_0,& + hipblasCtrmmStridedBatched_rank_1,& + hipblasCtrmmStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasZtrmmStridedBatched + function hipblasZtrmmStridedBatched_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,strideA,B, & + ldb,strideB,C,ldc,strideC,batchCount) & + bind(c, name="hipblasZtrmmStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZtrmmStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: A + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: B + integer(c_int),value :: ldb + integer(c_int64_t),value :: strideB + type(c_ptr),value :: C + integer(c_int),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int),value :: batchCount + end function + + module procedure hipblasZtrmmStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZtrmmStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZtrmmStridedBatched_rank_0,& + hipblasZtrmmStridedBatched_rank_1,& + hipblasZtrmmStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasStrmmStridedBatched_64 + function hipblasStrmmStridedBatched_64_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,strideA, & + B,ldb,strideB,C,ldc,strideC,batchCount) & + bind(c, name="hipblasStrmmStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasStrmmStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: A + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: B + integer(c_int64_t),value :: ldb + integer(c_int64_t),value :: strideB + type(c_ptr),value :: C + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasStrmmStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasStrmmStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasStrmmStridedBatched_64_rank_0,& + hipblasStrmmStridedBatched_64_rank_1,& + hipblasStrmmStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasDtrmmStridedBatched_64 + function hipblasDtrmmStridedBatched_64_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,strideA, & + B,ldb,strideB,C,ldc,strideC,batchCount) & + bind(c, name="hipblasDtrmmStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDtrmmStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: A + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: B + integer(c_int64_t),value :: ldb + integer(c_int64_t),value :: strideB + type(c_ptr),value :: C + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasDtrmmStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDtrmmStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDtrmmStridedBatched_64_rank_0,& + hipblasDtrmmStridedBatched_64_rank_1,& + hipblasDtrmmStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasCtrmmStridedBatched_64 + function hipblasCtrmmStridedBatched_64_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,strideA, & + B,ldb,strideB,C,ldc,strideC,batchCount) & + bind(c, name="hipblasCtrmmStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCtrmmStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: A + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: B + integer(c_int64_t),value :: ldb + integer(c_int64_t),value :: strideB + type(c_ptr),value :: C + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasCtrmmStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCtrmmStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCtrmmStridedBatched_64_rank_0,& + hipblasCtrmmStridedBatched_64_rank_1,& + hipblasCtrmmStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasZtrmmStridedBatched_64 + function hipblasZtrmmStridedBatched_64_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,strideA, & + B,ldb,strideB,C,ldc,strideC,batchCount) & + bind(c, name="hipblasZtrmmStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZtrmmStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: A + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: B + integer(c_int64_t),value :: ldb + integer(c_int64_t),value :: strideB + type(c_ptr),value :: C + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasZtrmmStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZtrmmStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZtrmmStridedBatched_64_rank_0,& + hipblasZtrmmStridedBatched_64_rank_1,& + hipblasZtrmmStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasStrsm + function hipblasStrsm_(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) & + bind(c, name="hipblasStrsm") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasStrsm_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: BP + integer(c_int),value :: ldb + end function + + module procedure hipblasStrsm_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasStrsm_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasStrsm_rank_0,& + hipblasStrsm_rank_1,& + hipblasStrsm_full_rank +#endif +#endif + end interface + + interface hipblasDtrsm + function hipblasDtrsm_(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) & + bind(c, name="hipblasDtrsm") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDtrsm_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: BP + integer(c_int),value :: ldb + end function + + module procedure hipblasDtrsm_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDtrsm_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDtrsm_rank_0,& + hipblasDtrsm_rank_1,& + hipblasDtrsm_full_rank +#endif +#endif + end interface + + interface hipblasCtrsm + function hipblasCtrsm_(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) & + bind(c, name="hipblasCtrsm") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCtrsm_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: BP + integer(c_int),value :: ldb + end function + + module procedure hipblasCtrsm_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCtrsm_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCtrsm_rank_0,& + hipblasCtrsm_rank_1,& + hipblasCtrsm_full_rank +#endif +#endif + end interface + + interface hipblasZtrsm + function hipblasZtrsm_(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) & + bind(c, name="hipblasZtrsm") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZtrsm_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: BP + integer(c_int),value :: ldb + end function + + module procedure hipblasZtrsm_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZtrsm_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZtrsm_rank_0,& + hipblasZtrsm_rank_1,& + hipblasZtrsm_full_rank +#endif +#endif + end interface + + interface hipblasStrsm_64 + function hipblasStrsm_64_(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) & + bind(c, name="hipblasStrsm_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasStrsm_64_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + end function + + module procedure hipblasStrsm_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasStrsm_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasStrsm_64_rank_0,& + hipblasStrsm_64_rank_1,& + hipblasStrsm_64_full_rank +#endif +#endif + end interface + + interface hipblasDtrsm_64 + function hipblasDtrsm_64_(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) & + bind(c, name="hipblasDtrsm_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDtrsm_64_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + end function + + module procedure hipblasDtrsm_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDtrsm_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDtrsm_64_rank_0,& + hipblasDtrsm_64_rank_1,& + hipblasDtrsm_64_full_rank +#endif +#endif + end interface + + interface hipblasCtrsm_64 + function hipblasCtrsm_64_(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) & + bind(c, name="hipblasCtrsm_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCtrsm_64_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + end function + + module procedure hipblasCtrsm_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCtrsm_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCtrsm_64_rank_0,& + hipblasCtrsm_64_rank_1,& + hipblasCtrsm_64_full_rank +#endif +#endif + end interface + + interface hipblasZtrsm_64 + function hipblasZtrsm_64_(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) & + bind(c, name="hipblasZtrsm_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZtrsm_64_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + end function + + module procedure hipblasZtrsm_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZtrsm_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZtrsm_64_rank_0,& + hipblasZtrsm_64_rank_1,& + hipblasZtrsm_64_full_rank +#endif +#endif + end interface + + interface hipblasStrsmBatched + function hipblasStrsmBatched_(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb,batchCount) & + bind(c, name="hipblasStrsmBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasStrsmBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: BP + integer(c_int),value :: ldb + integer(c_int),value :: batchCount + end function + + module procedure hipblasStrsmBatched_typed + end interface + + interface hipblasDtrsmBatched + function hipblasDtrsmBatched_(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb,batchCount) & + bind(c, name="hipblasDtrsmBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDtrsmBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: BP + integer(c_int),value :: ldb + integer(c_int),value :: batchCount + end function + + module procedure hipblasDtrsmBatched_typed + end interface + + interface hipblasCtrsmBatched + function hipblasCtrsmBatched_(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb,batchCount) & + bind(c, name="hipblasCtrsmBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCtrsmBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: BP + integer(c_int),value :: ldb + integer(c_int),value :: batchCount + end function + + module procedure hipblasCtrsmBatched_typed + end interface + + interface hipblasZtrsmBatched + function hipblasZtrsmBatched_(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb,batchCount) & + bind(c, name="hipblasZtrsmBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZtrsmBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: BP + integer(c_int),value :: ldb + integer(c_int),value :: batchCount + end function + + module procedure hipblasZtrsmBatched_typed + end interface + + interface hipblasStrsmBatched_64 + function hipblasStrsmBatched_64_(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb, & + batchCount) & + bind(c, name="hipblasStrsmBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasStrsmBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasStrsmBatched_64_typed + end interface + + interface hipblasDtrsmBatched_64 + function hipblasDtrsmBatched_64_(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb, & + batchCount) & + bind(c, name="hipblasDtrsmBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDtrsmBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasDtrsmBatched_64_typed + end interface + + interface hipblasCtrsmBatched_64 + function hipblasCtrsmBatched_64_(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb, & + batchCount) & + bind(c, name="hipblasCtrsmBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCtrsmBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasCtrsmBatched_64_typed + end interface + + interface hipblasZtrsmBatched_64 + function hipblasZtrsmBatched_64_(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb, & + batchCount) & + bind(c, name="hipblasZtrsmBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZtrsmBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasZtrsmBatched_64_typed + end interface + + interface hipblasStrsmStridedBatched + function hipblasStrsmStridedBatched_(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,strideA,BP, & + ldb,strideB,batchCount) & + bind(c, name="hipblasStrsmStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasStrsmStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: BP + integer(c_int),value :: ldb + integer(c_int64_t),value :: strideB + integer(c_int),value :: batchCount + end function + + module procedure hipblasStrsmStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasStrsmStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasStrsmStridedBatched_rank_0,& + hipblasStrsmStridedBatched_rank_1,& + hipblasStrsmStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasDtrsmStridedBatched + function hipblasDtrsmStridedBatched_(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,strideA,BP, & + ldb,strideB,batchCount) & + bind(c, name="hipblasDtrsmStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDtrsmStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: BP + integer(c_int),value :: ldb + integer(c_int64_t),value :: strideB + integer(c_int),value :: batchCount + end function + + module procedure hipblasDtrsmStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDtrsmStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDtrsmStridedBatched_rank_0,& + hipblasDtrsmStridedBatched_rank_1,& + hipblasDtrsmStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasCtrsmStridedBatched + function hipblasCtrsmStridedBatched_(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,strideA,BP, & + ldb,strideB,batchCount) & + bind(c, name="hipblasCtrsmStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCtrsmStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: BP + integer(c_int),value :: ldb + integer(c_int64_t),value :: strideB + integer(c_int),value :: batchCount + end function + + module procedure hipblasCtrsmStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCtrsmStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCtrsmStridedBatched_rank_0,& + hipblasCtrsmStridedBatched_rank_1,& + hipblasCtrsmStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasZtrsmStridedBatched + function hipblasZtrsmStridedBatched_(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,strideA,BP, & + ldb,strideB,batchCount) & + bind(c, name="hipblasZtrsmStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZtrsmStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: BP + integer(c_int),value :: ldb + integer(c_int64_t),value :: strideB + integer(c_int),value :: batchCount + end function + + module procedure hipblasZtrsmStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZtrsmStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZtrsmStridedBatched_rank_0,& + hipblasZtrsmStridedBatched_rank_1,& + hipblasZtrsmStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasStrsmStridedBatched_64 + function hipblasStrsmStridedBatched_64_(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,strideA, & + BP,ldb,strideB,batchCount) & + bind(c, name="hipblasStrsmStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasStrsmStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + integer(c_int64_t),value :: strideB + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasStrsmStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasStrsmStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasStrsmStridedBatched_64_rank_0,& + hipblasStrsmStridedBatched_64_rank_1,& + hipblasStrsmStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasDtrsmStridedBatched_64 + function hipblasDtrsmStridedBatched_64_(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,strideA, & + BP,ldb,strideB,batchCount) & + bind(c, name="hipblasDtrsmStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDtrsmStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + integer(c_int64_t),value :: strideB + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasDtrsmStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDtrsmStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDtrsmStridedBatched_64_rank_0,& + hipblasDtrsmStridedBatched_64_rank_1,& + hipblasDtrsmStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasCtrsmStridedBatched_64 + function hipblasCtrsmStridedBatched_64_(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,strideA, & + BP,ldb,strideB,batchCount) & + bind(c, name="hipblasCtrsmStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCtrsmStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + integer(c_int64_t),value :: strideB + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasCtrsmStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCtrsmStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCtrsmStridedBatched_64_rank_0,& + hipblasCtrsmStridedBatched_64_rank_1,& + hipblasCtrsmStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasZtrsmStridedBatched_64 + function hipblasZtrsmStridedBatched_64_(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,strideA, & + BP,ldb,strideB,batchCount) & + bind(c, name="hipblasZtrsmStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZtrsmStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: BP + integer(c_int64_t),value :: ldb + integer(c_int64_t),value :: strideB + integer(c_int64_t),value :: batchCount + end function + + module procedure hipblasZtrsmStridedBatched_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZtrsmStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZtrsmStridedBatched_64_rank_0,& + hipblasZtrsmStridedBatched_64_rank_1,& + hipblasZtrsmStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasStrtri + function hipblasStrtri_(handle,uplo,diag,n,AP,lda,invA,ldinvA) bind(c, name="hipblasStrtri") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasStrtri_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: diag + integer(c_int),value :: n + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: invA + integer(c_int),value :: ldinvA + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasStrtri_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasStrtri_rank_0,& + hipblasStrtri_rank_1,& + hipblasStrtri_full_rank +#endif +#endif + end interface + + interface hipblasDtrtri + function hipblasDtrtri_(handle,uplo,diag,n,AP,lda,invA,ldinvA) bind(c, name="hipblasDtrtri") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDtrtri_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: diag + integer(c_int),value :: n + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: invA + integer(c_int),value :: ldinvA + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDtrtri_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDtrtri_rank_0,& + hipblasDtrtri_rank_1,& + hipblasDtrtri_full_rank +#endif +#endif + end interface + + interface hipblasCtrtri + function hipblasCtrtri_(handle,uplo,diag,n,AP,lda,invA,ldinvA) bind(c, name="hipblasCtrtri") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCtrtri_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: diag + integer(c_int),value :: n + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: invA + integer(c_int),value :: ldinvA + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCtrtri_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCtrtri_rank_0,& + hipblasCtrtri_rank_1,& + hipblasCtrtri_full_rank +#endif +#endif + end interface + + interface hipblasZtrtri + function hipblasZtrtri_(handle,uplo,diag,n,AP,lda,invA,ldinvA) bind(c, name="hipblasZtrtri") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZtrtri_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: diag + integer(c_int),value :: n + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: invA + integer(c_int),value :: ldinvA + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZtrtri_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZtrtri_rank_0,& + hipblasZtrtri_rank_1,& + hipblasZtrtri_full_rank +#endif +#endif + end interface + + interface hipblasStrtriBatched + function hipblasStrtriBatched_(handle,uplo,diag,n,AP,lda,invA,ldinvA,batchCount) & + bind(c, name="hipblasStrtriBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasStrtriBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: diag + integer(c_int),value :: n + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: invA + integer(c_int),value :: ldinvA + integer(c_int),value :: batchCount + end function + end interface + + interface hipblasDtrtriBatched + function hipblasDtrtriBatched_(handle,uplo,diag,n,AP,lda,invA,ldinvA,batchCount) & + bind(c, name="hipblasDtrtriBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDtrtriBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: diag + integer(c_int),value :: n + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: invA + integer(c_int),value :: ldinvA + integer(c_int),value :: batchCount + end function + end interface + + interface hipblasCtrtriBatched + function hipblasCtrtriBatched_(handle,uplo,diag,n,AP,lda,invA,ldinvA,batchCount) & + bind(c, name="hipblasCtrtriBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCtrtriBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: diag + integer(c_int),value :: n + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: invA + integer(c_int),value :: ldinvA + integer(c_int),value :: batchCount + end function + end interface + + interface hipblasZtrtriBatched + function hipblasZtrtriBatched_(handle,uplo,diag,n,AP,lda,invA,ldinvA,batchCount) & + bind(c, name="hipblasZtrtriBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZtrtriBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: diag + integer(c_int),value :: n + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: invA + integer(c_int),value :: ldinvA + integer(c_int),value :: batchCount + end function + end interface + + interface hipblasStrtriStridedBatched + function hipblasStrtriStridedBatched_(handle,uplo,diag,n,AP,lda,strideA,invA,ldinvA, & + stride_invA,batchCount) & + bind(c, name="hipblasStrtriStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasStrtriStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: diag + integer(c_int),value :: n + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: invA + integer(c_int),value :: ldinvA + integer(c_int64_t),value :: stride_invA + integer(c_int),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasStrtriStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasStrtriStridedBatched_rank_0,& + hipblasStrtriStridedBatched_rank_1,& + hipblasStrtriStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasDtrtriStridedBatched + function hipblasDtrtriStridedBatched_(handle,uplo,diag,n,AP,lda,strideA,invA,ldinvA, & + stride_invA,batchCount) & + bind(c, name="hipblasDtrtriStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDtrtriStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: diag + integer(c_int),value :: n + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: invA + integer(c_int),value :: ldinvA + integer(c_int64_t),value :: stride_invA + integer(c_int),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDtrtriStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDtrtriStridedBatched_rank_0,& + hipblasDtrtriStridedBatched_rank_1,& + hipblasDtrtriStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasCtrtriStridedBatched + function hipblasCtrtriStridedBatched_(handle,uplo,diag,n,AP,lda,strideA,invA,ldinvA, & + stride_invA,batchCount) & + bind(c, name="hipblasCtrtriStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCtrtriStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: diag + integer(c_int),value :: n + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: invA + integer(c_int),value :: ldinvA + integer(c_int64_t),value :: stride_invA + integer(c_int),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCtrtriStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCtrtriStridedBatched_rank_0,& + hipblasCtrtriStridedBatched_rank_1,& + hipblasCtrtriStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasZtrtriStridedBatched + function hipblasZtrtriStridedBatched_(handle,uplo,diag,n,AP,lda,strideA,invA,ldinvA, & + stride_invA,batchCount) & + bind(c, name="hipblasZtrtriStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZtrtriStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: diag + integer(c_int),value :: n + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: invA + integer(c_int),value :: ldinvA + integer(c_int64_t),value :: stride_invA + integer(c_int),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZtrtriStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZtrtriStridedBatched_rank_0,& + hipblasZtrtriStridedBatched_rank_1,& + hipblasZtrtriStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasSdgmm + function hipblasSdgmm_(handle,side,m,n,AP,lda,x,incx,CP,ldc) bind(c, name="hipblasSdgmm") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSdgmm_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: CP + integer(c_int),value :: ldc + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSdgmm_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSdgmm_rank_0,& + hipblasSdgmm_rank_1,& + hipblasSdgmm_full_rank +#endif +#endif + end interface + + interface hipblasDdgmm + function hipblasDdgmm_(handle,side,m,n,AP,lda,x,incx,CP,ldc) bind(c, name="hipblasDdgmm") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDdgmm_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: CP + integer(c_int),value :: ldc + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDdgmm_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDdgmm_rank_0,& + hipblasDdgmm_rank_1,& + hipblasDdgmm_full_rank +#endif +#endif + end interface + + interface hipblasCdgmm + function hipblasCdgmm_(handle,side,m,n,AP,lda,x,incx,CP,ldc) bind(c, name="hipblasCdgmm") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCdgmm_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: CP + integer(c_int),value :: ldc + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCdgmm_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCdgmm_rank_0,& + hipblasCdgmm_rank_1,& + hipblasCdgmm_full_rank +#endif +#endif + end interface + + interface hipblasZdgmm + function hipblasZdgmm_(handle,side,m,n,AP,lda,x,incx,CP,ldc) bind(c, name="hipblasZdgmm") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZdgmm_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: CP + integer(c_int),value :: ldc + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZdgmm_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZdgmm_rank_0,& + hipblasZdgmm_rank_1,& + hipblasZdgmm_full_rank +#endif +#endif + end interface + + interface hipblasSdgmm_64 + function hipblasSdgmm_64_(handle,side,m,n,AP,lda,x,incx,CP,ldc) bind(c, name="hipblasSdgmm_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSdgmm_64_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSdgmm_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSdgmm_64_rank_0,& + hipblasSdgmm_64_rank_1,& + hipblasSdgmm_64_full_rank +#endif +#endif + end interface + + interface hipblasDdgmm_64 + function hipblasDdgmm_64_(handle,side,m,n,AP,lda,x,incx,CP,ldc) bind(c, name="hipblasDdgmm_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDdgmm_64_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDdgmm_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDdgmm_64_rank_0,& + hipblasDdgmm_64_rank_1,& + hipblasDdgmm_64_full_rank +#endif +#endif + end interface + + interface hipblasCdgmm_64 + function hipblasCdgmm_64_(handle,side,m,n,AP,lda,x,incx,CP,ldc) bind(c, name="hipblasCdgmm_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCdgmm_64_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCdgmm_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCdgmm_64_rank_0,& + hipblasCdgmm_64_rank_1,& + hipblasCdgmm_64_full_rank +#endif +#endif + end interface + + interface hipblasZdgmm_64 + function hipblasZdgmm_64_(handle,side,m,n,AP,lda,x,incx,CP,ldc) bind(c, name="hipblasZdgmm_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZdgmm_64_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZdgmm_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZdgmm_64_rank_0,& + hipblasZdgmm_64_rank_1,& + hipblasZdgmm_64_full_rank +#endif +#endif + end interface + + interface hipblasSdgmmBatched + function hipblasSdgmmBatched_(handle,side,m,n,AP,lda,x,incx,CP,ldc,batchCount) & + bind(c, name="hipblasSdgmmBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSdgmmBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: CP + integer(c_int),value :: ldc + integer(c_int),value :: batchCount + end function + end interface + + interface hipblasDdgmmBatched + function hipblasDdgmmBatched_(handle,side,m,n,AP,lda,x,incx,CP,ldc,batchCount) & + bind(c, name="hipblasDdgmmBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDdgmmBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: CP + integer(c_int),value :: ldc + integer(c_int),value :: batchCount + end function + end interface + + interface hipblasCdgmmBatched + function hipblasCdgmmBatched_(handle,side,m,n,AP,lda,x,incx,CP,ldc,batchCount) & + bind(c, name="hipblasCdgmmBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCdgmmBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: CP + integer(c_int),value :: ldc + integer(c_int),value :: batchCount + end function + end interface + + interface hipblasZdgmmBatched + function hipblasZdgmmBatched_(handle,side,m,n,AP,lda,x,incx,CP,ldc,batchCount) & + bind(c, name="hipblasZdgmmBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZdgmmBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: AP + integer(c_int),value :: lda + type(c_ptr),value :: x + integer(c_int),value :: incx + type(c_ptr),value :: CP + integer(c_int),value :: ldc + integer(c_int),value :: batchCount + end function + end interface + + interface hipblasSdgmmBatched_64 + function hipblasSdgmmBatched_64_(handle,side,m,n,AP,lda,x,incx,CP,ldc,batchCount) & + bind(c, name="hipblasSdgmmBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSdgmmBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: batchCount + end function + end interface + + interface hipblasDdgmmBatched_64 + function hipblasDdgmmBatched_64_(handle,side,m,n,AP,lda,x,incx,CP,ldc,batchCount) & + bind(c, name="hipblasDdgmmBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDdgmmBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: batchCount + end function + end interface + + interface hipblasCdgmmBatched_64 + function hipblasCdgmmBatched_64_(handle,side,m,n,AP,lda,x,incx,CP,ldc,batchCount) & + bind(c, name="hipblasCdgmmBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCdgmmBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: batchCount + end function + end interface + + interface hipblasZdgmmBatched_64 + function hipblasZdgmmBatched_64_(handle,side,m,n,AP,lda,x,incx,CP,ldc,batchCount) & + bind(c, name="hipblasZdgmmBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZdgmmBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: batchCount + end function + end interface + + interface hipblasSdgmmStridedBatched + function hipblasSdgmmStridedBatched_(handle,side,m,n,AP,lda,strideA,x,incx,stridex,CP,ldc, & + strideC,batchCount) & + bind(c, name="hipblasSdgmmStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSdgmmStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: CP + integer(c_int),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSdgmmStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSdgmmStridedBatched_rank_0,& + hipblasSdgmmStridedBatched_rank_1,& + hipblasSdgmmStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasDdgmmStridedBatched + function hipblasDdgmmStridedBatched_(handle,side,m,n,AP,lda,strideA,x,incx,stridex,CP,ldc, & + strideC,batchCount) & + bind(c, name="hipblasDdgmmStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDdgmmStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: CP + integer(c_int),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDdgmmStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDdgmmStridedBatched_rank_0,& + hipblasDdgmmStridedBatched_rank_1,& + hipblasDdgmmStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasCdgmmStridedBatched + function hipblasCdgmmStridedBatched_(handle,side,m,n,AP,lda,strideA,x,incx,stridex,CP,ldc, & + strideC,batchCount) & + bind(c, name="hipblasCdgmmStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCdgmmStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: CP + integer(c_int),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCdgmmStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCdgmmStridedBatched_rank_0,& + hipblasCdgmmStridedBatched_rank_1,& + hipblasCdgmmStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasZdgmmStridedBatched + function hipblasZdgmmStridedBatched_(handle,side,m,n,AP,lda,strideA,x,incx,stridex,CP,ldc, & + strideC,batchCount) & + bind(c, name="hipblasZdgmmStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZdgmmStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: AP + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: CP + integer(c_int),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZdgmmStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZdgmmStridedBatched_rank_0,& + hipblasZdgmmStridedBatched_rank_1,& + hipblasZdgmmStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasSdgmmStridedBatched_64 + function hipblasSdgmmStridedBatched_64_(handle,side,m,n,AP,lda,strideA,x,incx,stridex,CP,ldc, & + strideC,batchCount) & + bind(c, name="hipblasSdgmmStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSdgmmStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int64_t),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSdgmmStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSdgmmStridedBatched_64_rank_0,& + hipblasSdgmmStridedBatched_64_rank_1,& + hipblasSdgmmStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasDdgmmStridedBatched_64 + function hipblasDdgmmStridedBatched_64_(handle,side,m,n,AP,lda,strideA,x,incx,stridex,CP,ldc, & + strideC,batchCount) & + bind(c, name="hipblasDdgmmStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDdgmmStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int64_t),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDdgmmStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDdgmmStridedBatched_64_rank_0,& + hipblasDdgmmStridedBatched_64_rank_1,& + hipblasDdgmmStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasCdgmmStridedBatched_64 + function hipblasCdgmmStridedBatched_64_(handle,side,m,n,AP,lda,strideA,x,incx,stridex,CP,ldc, & + strideC,batchCount) & + bind(c, name="hipblasCdgmmStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCdgmmStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int64_t),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCdgmmStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCdgmmStridedBatched_64_rank_0,& + hipblasCdgmmStridedBatched_64_rank_1,& + hipblasCdgmmStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasZdgmmStridedBatched_64 + function hipblasZdgmmStridedBatched_64_(handle,side,m,n,AP,lda,strideA,x,incx,stridex,CP,ldc, & + strideC,batchCount) & + bind(c, name="hipblasZdgmmStridedBatched_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZdgmmStridedBatched_64_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + type(c_ptr),value :: AP + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: x + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: CP + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int64_t),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZdgmmStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZdgmmStridedBatched_64_rank_0,& + hipblasZdgmmStridedBatched_64_rank_1,& + hipblasZdgmmStridedBatched_64_full_rank +#endif +#endif + end interface + + interface hipblasSgetrf + function hipblasSgetrf_(handle,n,A,lda,ipiv,myInfo) bind(c, name="hipblasSgetrf") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSgetrf_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: A + integer(c_int),value :: lda + type(c_ptr),value :: ipiv + type(c_ptr),value :: myInfo + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSgetrf_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSgetrf_rank_0,& + hipblasSgetrf_rank_1,& + hipblasSgetrf_full_rank +#endif +#endif + end interface + + interface hipblasDgetrf + function hipblasDgetrf_(handle,n,A,lda,ipiv,myInfo) bind(c, name="hipblasDgetrf") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDgetrf_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: A + integer(c_int),value :: lda + type(c_ptr),value :: ipiv + type(c_ptr),value :: myInfo + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDgetrf_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDgetrf_rank_0,& + hipblasDgetrf_rank_1,& + hipblasDgetrf_full_rank +#endif +#endif + end interface + + interface hipblasCgetrf + function hipblasCgetrf_(handle,n,A,lda,ipiv,myInfo) bind(c, name="hipblasCgetrf") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCgetrf_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: A + integer(c_int),value :: lda + type(c_ptr),value :: ipiv + type(c_ptr),value :: myInfo + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCgetrf_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCgetrf_rank_0,& + hipblasCgetrf_rank_1,& + hipblasCgetrf_full_rank +#endif +#endif + end interface + + interface hipblasZgetrf + function hipblasZgetrf_(handle,n,A,lda,ipiv,myInfo) bind(c, name="hipblasZgetrf") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZgetrf_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: A + integer(c_int),value :: lda + type(c_ptr),value :: ipiv + type(c_ptr),value :: myInfo + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZgetrf_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZgetrf_rank_0,& + hipblasZgetrf_rank_1,& + hipblasZgetrf_full_rank +#endif +#endif + end interface + + interface hipblasSgetrfBatched + function hipblasSgetrfBatched_(handle,n,A,lda,ipiv,myInfo,batchCount) & + bind(c, name="hipblasSgetrfBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSgetrfBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: A + integer(c_int),value :: lda + type(c_ptr),value :: ipiv + type(c_ptr),value :: myInfo + integer(c_int),value :: batchCount + end function + end interface + + interface hipblasDgetrfBatched + function hipblasDgetrfBatched_(handle,n,A,lda,ipiv,myInfo,batchCount) & + bind(c, name="hipblasDgetrfBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDgetrfBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: A + integer(c_int),value :: lda + type(c_ptr),value :: ipiv + type(c_ptr),value :: myInfo + integer(c_int),value :: batchCount + end function + end interface + + interface hipblasCgetrfBatched + function hipblasCgetrfBatched_(handle,n,A,lda,ipiv,myInfo,batchCount) & + bind(c, name="hipblasCgetrfBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCgetrfBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: A + integer(c_int),value :: lda + type(c_ptr),value :: ipiv + type(c_ptr),value :: myInfo + integer(c_int),value :: batchCount + end function + end interface + + interface hipblasZgetrfBatched + function hipblasZgetrfBatched_(handle,n,A,lda,ipiv,myInfo,batchCount) & + bind(c, name="hipblasZgetrfBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZgetrfBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: A + integer(c_int),value :: lda + type(c_ptr),value :: ipiv + type(c_ptr),value :: myInfo + integer(c_int),value :: batchCount + end function + end interface + + interface hipblasSgetrfStridedBatched + function hipblasSgetrfStridedBatched_(handle,n,A,lda,strideA,ipiv,strideP,myInfo,batchCount) & + bind(c, name="hipblasSgetrfStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSgetrfStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: A + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: ipiv + integer(c_int64_t),value :: strideP + type(c_ptr),value :: myInfo + integer(c_int),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSgetrfStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSgetrfStridedBatched_rank_0,& + hipblasSgetrfStridedBatched_rank_1,& + hipblasSgetrfStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasDgetrfStridedBatched + function hipblasDgetrfStridedBatched_(handle,n,A,lda,strideA,ipiv,strideP,myInfo,batchCount) & + bind(c, name="hipblasDgetrfStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDgetrfStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: A + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: ipiv + integer(c_int64_t),value :: strideP + type(c_ptr),value :: myInfo + integer(c_int),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDgetrfStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDgetrfStridedBatched_rank_0,& + hipblasDgetrfStridedBatched_rank_1,& + hipblasDgetrfStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasCgetrfStridedBatched + function hipblasCgetrfStridedBatched_(handle,n,A,lda,strideA,ipiv,strideP,myInfo,batchCount) & + bind(c, name="hipblasCgetrfStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCgetrfStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: A + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: ipiv + integer(c_int64_t),value :: strideP + type(c_ptr),value :: myInfo + integer(c_int),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCgetrfStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCgetrfStridedBatched_rank_0,& + hipblasCgetrfStridedBatched_rank_1,& + hipblasCgetrfStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasZgetrfStridedBatched + function hipblasZgetrfStridedBatched_(handle,n,A,lda,strideA,ipiv,strideP,myInfo,batchCount) & + bind(c, name="hipblasZgetrfStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZgetrfStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: A + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: ipiv + integer(c_int64_t),value :: strideP + type(c_ptr),value :: myInfo + integer(c_int),value :: batchCount + end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZgetrfStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZgetrfStridedBatched_rank_0,& + hipblasZgetrfStridedBatched_rank_1,& + hipblasZgetrfStridedBatched_full_rank +#endif +#endif + end interface + + interface hipblasSgetrs + function hipblasSgetrs_(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) & + bind(c, name="hipblasSgetrs") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSgetrs_ + type(c_ptr),value :: handle + integer(c_int),value :: trans + integer(c_int),value :: n + integer(c_int),value :: nrhs + type(c_ptr),value :: A + integer(c_int),value :: lda + type(c_ptr),value :: ipiv + type(c_ptr),value :: B + integer(c_int),value :: ldb + type(c_ptr),value :: myInfo + end function + + module procedure hipblasSgetrs_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasSgetrs_assumed_rank,& + hipblasSgetrs_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSgetrs_rank_0,& + hipblasSgetrs_rank_0_devptr,& + hipblasSgetrs_rank_1,& + hipblasSgetrs_rank_1_devptr,& + hipblasSgetrs_full_rank,& + hipblasSgetrs_full_rank_devptr +#endif +#endif + end interface + + interface hipblasDgetrs + function hipblasDgetrs_(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) & + bind(c, name="hipblasDgetrs") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDgetrs_ + type(c_ptr),value :: handle + integer(c_int),value :: trans + integer(c_int),value :: n + integer(c_int),value :: nrhs + type(c_ptr),value :: A + integer(c_int),value :: lda + type(c_ptr),value :: ipiv + type(c_ptr),value :: B + integer(c_int),value :: ldb + type(c_ptr),value :: myInfo + end function + + module procedure hipblasDgetrs_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasDgetrs_assumed_rank,& + hipblasDgetrs_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDgetrs_rank_0,& + hipblasDgetrs_rank_0_devptr,& + hipblasDgetrs_rank_1,& + hipblasDgetrs_rank_1_devptr,& + hipblasDgetrs_full_rank,& + hipblasDgetrs_full_rank_devptr +#endif +#endif + end interface + + interface hipblasCgetrs + function hipblasCgetrs_(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) & + bind(c, name="hipblasCgetrs") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCgetrs_ + type(c_ptr),value :: handle + integer(c_int),value :: trans + integer(c_int),value :: n + integer(c_int),value :: nrhs + type(c_ptr),value :: A + integer(c_int),value :: lda + type(c_ptr),value :: ipiv + type(c_ptr),value :: B + integer(c_int),value :: ldb + type(c_ptr),value :: myInfo + end function + + module procedure hipblasCgetrs_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasCgetrs_assumed_rank,& + hipblasCgetrs_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCgetrs_rank_0,& + hipblasCgetrs_rank_0_devptr,& + hipblasCgetrs_rank_1,& + hipblasCgetrs_rank_1_devptr,& + hipblasCgetrs_full_rank,& + hipblasCgetrs_full_rank_devptr +#endif +#endif + end interface + + interface hipblasZgetrs + function hipblasZgetrs_(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) & + bind(c, name="hipblasZgetrs") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZgetrs_ + type(c_ptr),value :: handle + integer(c_int),value :: trans + integer(c_int),value :: n + integer(c_int),value :: nrhs + type(c_ptr),value :: A + integer(c_int),value :: lda + type(c_ptr),value :: ipiv + type(c_ptr),value :: B + integer(c_int),value :: ldb + type(c_ptr),value :: myInfo + end function + + module procedure hipblasZgetrs_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasZgetrs_assumed_rank,& + hipblasZgetrs_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZgetrs_rank_0,& + hipblasZgetrs_rank_0_devptr,& + hipblasZgetrs_rank_1,& + hipblasZgetrs_rank_1_devptr,& + hipblasZgetrs_full_rank,& + hipblasZgetrs_full_rank_devptr +#endif +#endif + end interface + + interface hipblasSgetrsBatched + function hipblasSgetrsBatched_(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo,batchCount) & + bind(c, name="hipblasSgetrsBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSgetrsBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: trans + integer(c_int),value :: n + integer(c_int),value :: nrhs + type(c_ptr),value :: A + integer(c_int),value :: lda + type(c_ptr),value :: ipiv + type(c_ptr),value :: B + integer(c_int),value :: ldb + type(c_ptr),value :: myInfo + integer(c_int),value :: batchCount + end function + + module procedure hipblasSgetrsBatched_typed + end interface + + interface hipblasDgetrsBatched + function hipblasDgetrsBatched_(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo,batchCount) & + bind(c, name="hipblasDgetrsBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDgetrsBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: trans + integer(c_int),value :: n + integer(c_int),value :: nrhs + type(c_ptr),value :: A + integer(c_int),value :: lda + type(c_ptr),value :: ipiv + type(c_ptr),value :: B + integer(c_int),value :: ldb + type(c_ptr),value :: myInfo + integer(c_int),value :: batchCount + end function + + module procedure hipblasDgetrsBatched_typed + end interface + + interface hipblasCgetrsBatched + function hipblasCgetrsBatched_(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo,batchCount) & + bind(c, name="hipblasCgetrsBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCgetrsBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: trans + integer(c_int),value :: n + integer(c_int),value :: nrhs + type(c_ptr),value :: A + integer(c_int),value :: lda + type(c_ptr),value :: ipiv + type(c_ptr),value :: B + integer(c_int),value :: ldb + type(c_ptr),value :: myInfo + integer(c_int),value :: batchCount + end function + + module procedure hipblasCgetrsBatched_typed + end interface + + interface hipblasZgetrsBatched + function hipblasZgetrsBatched_(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo,batchCount) & + bind(c, name="hipblasZgetrsBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZgetrsBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: trans + integer(c_int),value :: n + integer(c_int),value :: nrhs + type(c_ptr),value :: A + integer(c_int),value :: lda + type(c_ptr),value :: ipiv + type(c_ptr),value :: B + integer(c_int),value :: ldb + type(c_ptr),value :: myInfo + integer(c_int),value :: batchCount + end function + + module procedure hipblasZgetrsBatched_typed + end interface + + interface hipblasSgetrsStridedBatched + function hipblasSgetrsStridedBatched_(handle,trans,n,nrhs,A,lda,strideA,ipiv,strideP,B,ldb, & + strideB,myInfo,batchCount) & + bind(c, name="hipblasSgetrsStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSgetrsStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: trans + integer(c_int),value :: n + integer(c_int),value :: nrhs + type(c_ptr),value :: A + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: ipiv + integer(c_int64_t),value :: strideP + type(c_ptr),value :: B + integer(c_int),value :: ldb + integer(c_int64_t),value :: strideB + type(c_ptr),value :: myInfo + integer(c_int),value :: batchCount + end function + + module procedure hipblasSgetrsStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasSgetrsStridedBatched_assumed_rank,& + hipblasSgetrsStridedBatched_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSgetrsStridedBatched_rank_0,& + hipblasSgetrsStridedBatched_rank_0_devptr,& + hipblasSgetrsStridedBatched_rank_1,& + hipblasSgetrsStridedBatched_rank_1_devptr,& + hipblasSgetrsStridedBatched_full_rank,& + hipblasSgetrsStridedBatched_full_rank_devptr +#endif +#endif + end interface + + interface hipblasDgetrsStridedBatched + function hipblasDgetrsStridedBatched_(handle,trans,n,nrhs,A,lda,strideA,ipiv,strideP,B,ldb, & + strideB,myInfo,batchCount) & + bind(c, name="hipblasDgetrsStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDgetrsStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: trans + integer(c_int),value :: n + integer(c_int),value :: nrhs + type(c_ptr),value :: A + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: ipiv + integer(c_int64_t),value :: strideP + type(c_ptr),value :: B + integer(c_int),value :: ldb + integer(c_int64_t),value :: strideB + type(c_ptr),value :: myInfo + integer(c_int),value :: batchCount + end function + + module procedure hipblasDgetrsStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasDgetrsStridedBatched_assumed_rank,& + hipblasDgetrsStridedBatched_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDgetrsStridedBatched_rank_0,& + hipblasDgetrsStridedBatched_rank_0_devptr,& + hipblasDgetrsStridedBatched_rank_1,& + hipblasDgetrsStridedBatched_rank_1_devptr,& + hipblasDgetrsStridedBatched_full_rank,& + hipblasDgetrsStridedBatched_full_rank_devptr +#endif +#endif + end interface + + interface hipblasCgetrsStridedBatched + function hipblasCgetrsStridedBatched_(handle,trans,n,nrhs,A,lda,strideA,ipiv,strideP,B,ldb, & + strideB,myInfo,batchCount) & + bind(c, name="hipblasCgetrsStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCgetrsStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: trans + integer(c_int),value :: n + integer(c_int),value :: nrhs + type(c_ptr),value :: A + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: ipiv + integer(c_int64_t),value :: strideP + type(c_ptr),value :: B + integer(c_int),value :: ldb + integer(c_int64_t),value :: strideB + type(c_ptr),value :: myInfo + integer(c_int),value :: batchCount + end function + + module procedure hipblasCgetrsStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasCgetrsStridedBatched_assumed_rank,& + hipblasCgetrsStridedBatched_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCgetrsStridedBatched_rank_0,& + hipblasCgetrsStridedBatched_rank_0_devptr,& + hipblasCgetrsStridedBatched_rank_1,& + hipblasCgetrsStridedBatched_rank_1_devptr,& + hipblasCgetrsStridedBatched_full_rank,& + hipblasCgetrsStridedBatched_full_rank_devptr +#endif +#endif + end interface + + interface hipblasZgetrsStridedBatched + function hipblasZgetrsStridedBatched_(handle,trans,n,nrhs,A,lda,strideA,ipiv,strideP,B,ldb, & + strideB,myInfo,batchCount) & + bind(c, name="hipblasZgetrsStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZgetrsStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: trans + integer(c_int),value :: n + integer(c_int),value :: nrhs + type(c_ptr),value :: A + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: ipiv + integer(c_int64_t),value :: strideP + type(c_ptr),value :: B + integer(c_int),value :: ldb + integer(c_int64_t),value :: strideB + type(c_ptr),value :: myInfo + integer(c_int),value :: batchCount + end function + + module procedure hipblasZgetrsStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasZgetrsStridedBatched_assumed_rank,& + hipblasZgetrsStridedBatched_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZgetrsStridedBatched_rank_0,& + hipblasZgetrsStridedBatched_rank_0_devptr,& + hipblasZgetrsStridedBatched_rank_1,& + hipblasZgetrsStridedBatched_rank_1_devptr,& + hipblasZgetrsStridedBatched_full_rank,& + hipblasZgetrsStridedBatched_full_rank_devptr +#endif +#endif + end interface + + interface hipblasSgetriBatched + function hipblasSgetriBatched_(handle,n,A,lda,ipiv,C,ldc,myInfo,batchCount) & + bind(c, name="hipblasSgetriBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSgetriBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: A + integer(c_int),value :: lda + type(c_ptr),value :: ipiv + type(c_ptr),value :: C + integer(c_int),value :: ldc + type(c_ptr),value :: myInfo + integer(c_int),value :: batchCount + end function + end interface + + interface hipblasDgetriBatched + function hipblasDgetriBatched_(handle,n,A,lda,ipiv,C,ldc,myInfo,batchCount) & + bind(c, name="hipblasDgetriBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDgetriBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: A + integer(c_int),value :: lda + type(c_ptr),value :: ipiv + type(c_ptr),value :: C + integer(c_int),value :: ldc + type(c_ptr),value :: myInfo + integer(c_int),value :: batchCount + end function + end interface + + interface hipblasCgetriBatched + function hipblasCgetriBatched_(handle,n,A,lda,ipiv,C,ldc,myInfo,batchCount) & + bind(c, name="hipblasCgetriBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCgetriBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: A + integer(c_int),value :: lda + type(c_ptr),value :: ipiv + type(c_ptr),value :: C + integer(c_int),value :: ldc + type(c_ptr),value :: myInfo + integer(c_int),value :: batchCount + end function + end interface + + interface hipblasZgetriBatched + function hipblasZgetriBatched_(handle,n,A,lda,ipiv,C,ldc,myInfo,batchCount) & + bind(c, name="hipblasZgetriBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZgetriBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: A + integer(c_int),value :: lda + type(c_ptr),value :: ipiv + type(c_ptr),value :: C + integer(c_int),value :: ldc + type(c_ptr),value :: myInfo + integer(c_int),value :: batchCount + end function + end interface + + interface hipblasSgels + function hipblasSgels_(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo) & + bind(c, name="hipblasSgels") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSgels_ + type(c_ptr),value :: handle + integer(c_int),value :: trans + integer(c_int),value :: m + integer(c_int),value :: n + integer(c_int),value :: nrhs + type(c_ptr),value :: A + integer(c_int),value :: lda + type(c_ptr),value :: B + integer(c_int),value :: ldb + type(c_ptr),value :: myInfo + type(c_ptr),value :: deviceInfo + end function + + module procedure hipblasSgels_typed + end interface + + interface hipblasDgels + function hipblasDgels_(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo) & + bind(c, name="hipblasDgels") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDgels_ + type(c_ptr),value :: handle + integer(c_int),value :: trans + integer(c_int),value :: m + integer(c_int),value :: n + integer(c_int),value :: nrhs + type(c_ptr),value :: A + integer(c_int),value :: lda + type(c_ptr),value :: B + integer(c_int),value :: ldb + type(c_ptr),value :: myInfo + type(c_ptr),value :: deviceInfo + end function + + module procedure hipblasDgels_typed + end interface + + interface hipblasCgels + function hipblasCgels_(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo) & + bind(c, name="hipblasCgels") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCgels_ + type(c_ptr),value :: handle + integer(c_int),value :: trans + integer(c_int),value :: m + integer(c_int),value :: n + integer(c_int),value :: nrhs + type(c_ptr),value :: A + integer(c_int),value :: lda + type(c_ptr),value :: B + integer(c_int),value :: ldb + type(c_ptr),value :: myInfo + type(c_ptr),value :: deviceInfo + end function + + module procedure hipblasCgels_typed + end interface + + interface hipblasZgels + function hipblasZgels_(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo) & + bind(c, name="hipblasZgels") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZgels_ + type(c_ptr),value :: handle + integer(c_int),value :: trans + integer(c_int),value :: m + integer(c_int),value :: n + integer(c_int),value :: nrhs + type(c_ptr),value :: A + integer(c_int),value :: lda + type(c_ptr),value :: B + integer(c_int),value :: ldb + type(c_ptr),value :: myInfo + type(c_ptr),value :: deviceInfo + end function + + module procedure hipblasZgels_typed + end interface + + interface hipblasSgelsBatched + function hipblasSgelsBatched_(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo,batchCount) & + bind(c, name="hipblasSgelsBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSgelsBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: trans + integer(c_int),value :: m + integer(c_int),value :: n + integer(c_int),value :: nrhs + type(c_ptr),value :: A + integer(c_int),value :: lda + type(c_ptr),value :: B + integer(c_int),value :: ldb + type(c_ptr),value :: myInfo + type(c_ptr),value :: deviceInfo + integer(c_int),value :: batchCount + end function + + module procedure hipblasSgelsBatched_typed + end interface + + interface hipblasDgelsBatched + function hipblasDgelsBatched_(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo,batchCount) & + bind(c, name="hipblasDgelsBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDgelsBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: trans + integer(c_int),value :: m + integer(c_int),value :: n + integer(c_int),value :: nrhs + type(c_ptr),value :: A + integer(c_int),value :: lda + type(c_ptr),value :: B + integer(c_int),value :: ldb + type(c_ptr),value :: myInfo + type(c_ptr),value :: deviceInfo + integer(c_int),value :: batchCount + end function + + module procedure hipblasDgelsBatched_typed + end interface + + interface hipblasCgelsBatched + function hipblasCgelsBatched_(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo,batchCount) & + bind(c, name="hipblasCgelsBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCgelsBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: trans + integer(c_int),value :: m + integer(c_int),value :: n + integer(c_int),value :: nrhs + type(c_ptr),value :: A + integer(c_int),value :: lda + type(c_ptr),value :: B + integer(c_int),value :: ldb + type(c_ptr),value :: myInfo + type(c_ptr),value :: deviceInfo + integer(c_int),value :: batchCount + end function + + module procedure hipblasCgelsBatched_typed + end interface + + interface hipblasZgelsBatched + function hipblasZgelsBatched_(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo,batchCount) & + bind(c, name="hipblasZgelsBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZgelsBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: trans + integer(c_int),value :: m + integer(c_int),value :: n + integer(c_int),value :: nrhs + type(c_ptr),value :: A + integer(c_int),value :: lda + type(c_ptr),value :: B + integer(c_int),value :: ldb + type(c_ptr),value :: myInfo + type(c_ptr),value :: deviceInfo + integer(c_int),value :: batchCount + end function + + module procedure hipblasZgelsBatched_typed + end interface + + interface hipblasSgelsStridedBatched + function hipblasSgelsStridedBatched_(handle,trans,m,n,nrhs,A,lda,strideA,B,ldb,strideB,myInfo, & + deviceInfo,batchCount) & + bind(c, name="hipblasSgelsStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSgelsStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: trans + integer(c_int),value :: m + integer(c_int),value :: n + integer(c_int),value :: nrhs + type(c_ptr),value :: A + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: B + integer(c_int),value :: ldb + integer(c_int64_t),value :: strideB + type(c_ptr),value :: myInfo + type(c_ptr),value :: deviceInfo + integer(c_int),value :: batchCount + end function + + module procedure hipblasSgelsStridedBatched_typed + end interface + + interface hipblasDgelsStridedBatched + function hipblasDgelsStridedBatched_(handle,trans,m,n,nrhs,A,lda,strideA,B,ldb,strideB,myInfo, & + deviceInfo,batchCount) & + bind(c, name="hipblasDgelsStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDgelsStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: trans + integer(c_int),value :: m + integer(c_int),value :: n + integer(c_int),value :: nrhs + type(c_ptr),value :: A + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: B + integer(c_int),value :: ldb + integer(c_int64_t),value :: strideB + type(c_ptr),value :: myInfo + type(c_ptr),value :: deviceInfo + integer(c_int),value :: batchCount + end function + + module procedure hipblasDgelsStridedBatched_typed + end interface + + interface hipblasCgelsStridedBatched + function hipblasCgelsStridedBatched_(handle,trans,m,n,nrhs,A,lda,strideA,B,ldb,strideB,myInfo, & + deviceInfo,batchCount) & + bind(c, name="hipblasCgelsStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCgelsStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: trans + integer(c_int),value :: m + integer(c_int),value :: n + integer(c_int),value :: nrhs + type(c_ptr),value :: A + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: B + integer(c_int),value :: ldb + integer(c_int64_t),value :: strideB + type(c_ptr),value :: myInfo + type(c_ptr),value :: deviceInfo + integer(c_int),value :: batchCount + end function + + module procedure hipblasCgelsStridedBatched_typed + end interface + + interface hipblasZgelsStridedBatched + function hipblasZgelsStridedBatched_(handle,trans,m,n,nrhs,A,lda,strideA,B,ldb,strideB,myInfo, & + deviceInfo,batchCount) & + bind(c, name="hipblasZgelsStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZgelsStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: trans + integer(c_int),value :: m + integer(c_int),value :: n + integer(c_int),value :: nrhs + type(c_ptr),value :: A + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: B + integer(c_int),value :: ldb + integer(c_int64_t),value :: strideB + type(c_ptr),value :: myInfo + type(c_ptr),value :: deviceInfo + integer(c_int),value :: batchCount + end function + + module procedure hipblasZgelsStridedBatched_typed + end interface + + interface hipblasSgeqrf + function hipblasSgeqrf_(handle,m,n,A,lda,ipiv,myInfo) bind(c, name="hipblasSgeqrf") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSgeqrf_ + type(c_ptr),value :: handle + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: A + integer(c_int),value :: lda + type(c_ptr),value :: ipiv + type(c_ptr),value :: myInfo + end function + + module procedure hipblasSgeqrf_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasSgeqrf_assumed_rank,& + hipblasSgeqrf_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSgeqrf_rank_0,& + hipblasSgeqrf_rank_0_devptr,& + hipblasSgeqrf_rank_1,& + hipblasSgeqrf_rank_1_devptr,& + hipblasSgeqrf_full_rank,& + hipblasSgeqrf_full_rank_devptr +#endif +#endif + end interface + + interface hipblasDgeqrf + function hipblasDgeqrf_(handle,m,n,A,lda,ipiv,myInfo) bind(c, name="hipblasDgeqrf") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDgeqrf_ + type(c_ptr),value :: handle + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: A + integer(c_int),value :: lda + type(c_ptr),value :: ipiv + type(c_ptr),value :: myInfo + end function + + module procedure hipblasDgeqrf_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasDgeqrf_assumed_rank,& + hipblasDgeqrf_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDgeqrf_rank_0,& + hipblasDgeqrf_rank_0_devptr,& + hipblasDgeqrf_rank_1,& + hipblasDgeqrf_rank_1_devptr,& + hipblasDgeqrf_full_rank,& + hipblasDgeqrf_full_rank_devptr +#endif +#endif + end interface + + interface hipblasCgeqrf + function hipblasCgeqrf_(handle,m,n,A,lda,ipiv,myInfo) bind(c, name="hipblasCgeqrf") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCgeqrf_ + type(c_ptr),value :: handle + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: A + integer(c_int),value :: lda + type(c_ptr),value :: ipiv + type(c_ptr),value :: myInfo + end function + + module procedure hipblasCgeqrf_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasCgeqrf_assumed_rank,& + hipblasCgeqrf_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCgeqrf_rank_0,& + hipblasCgeqrf_rank_0_devptr,& + hipblasCgeqrf_rank_1,& + hipblasCgeqrf_rank_1_devptr,& + hipblasCgeqrf_full_rank,& + hipblasCgeqrf_full_rank_devptr +#endif +#endif + end interface + + interface hipblasZgeqrf + function hipblasZgeqrf_(handle,m,n,A,lda,ipiv,myInfo) bind(c, name="hipblasZgeqrf") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZgeqrf_ + type(c_ptr),value :: handle + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: A + integer(c_int),value :: lda + type(c_ptr),value :: ipiv + type(c_ptr),value :: myInfo + end function + + module procedure hipblasZgeqrf_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasZgeqrf_assumed_rank,& + hipblasZgeqrf_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZgeqrf_rank_0,& + hipblasZgeqrf_rank_0_devptr,& + hipblasZgeqrf_rank_1,& + hipblasZgeqrf_rank_1_devptr,& + hipblasZgeqrf_full_rank,& + hipblasZgeqrf_full_rank_devptr +#endif +#endif + end interface + + interface hipblasSgeqrfBatched + function hipblasSgeqrfBatched_(handle,m,n,A,lda,ipiv,myInfo,batchCount) & + bind(c, name="hipblasSgeqrfBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSgeqrfBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: A + integer(c_int),value :: lda + type(c_ptr),value :: ipiv + type(c_ptr),value :: myInfo + integer(c_int),value :: batchCount + end function + + module procedure hipblasSgeqrfBatched_typed + end interface + + interface hipblasDgeqrfBatched + function hipblasDgeqrfBatched_(handle,m,n,A,lda,ipiv,myInfo,batchCount) & + bind(c, name="hipblasDgeqrfBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDgeqrfBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: A + integer(c_int),value :: lda + type(c_ptr),value :: ipiv + type(c_ptr),value :: myInfo + integer(c_int),value :: batchCount + end function + + module procedure hipblasDgeqrfBatched_typed + end interface + + interface hipblasCgeqrfBatched + function hipblasCgeqrfBatched_(handle,m,n,A,lda,ipiv,myInfo,batchCount) & + bind(c, name="hipblasCgeqrfBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCgeqrfBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: A + integer(c_int),value :: lda + type(c_ptr),value :: ipiv + type(c_ptr),value :: myInfo + integer(c_int),value :: batchCount + end function + + module procedure hipblasCgeqrfBatched_typed + end interface + + interface hipblasZgeqrfBatched + function hipblasZgeqrfBatched_(handle,m,n,A,lda,ipiv,myInfo,batchCount) & + bind(c, name="hipblasZgeqrfBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZgeqrfBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: A + integer(c_int),value :: lda + type(c_ptr),value :: ipiv + type(c_ptr),value :: myInfo + integer(c_int),value :: batchCount + end function + + module procedure hipblasZgeqrfBatched_typed + end interface + + interface hipblasSgeqrfStridedBatched + function hipblasSgeqrfStridedBatched_(handle,m,n,A,lda,strideA,ipiv,strideP,myInfo,batchCount) & + bind(c, name="hipblasSgeqrfStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSgeqrfStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: A + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: ipiv + integer(c_int64_t),value :: strideP + type(c_ptr),value :: myInfo + integer(c_int),value :: batchCount + end function + + module procedure hipblasSgeqrfStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasSgeqrfStridedBatched_assumed_rank,& + hipblasSgeqrfStridedBatched_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSgeqrfStridedBatched_rank_0,& + hipblasSgeqrfStridedBatched_rank_0_devptr,& + hipblasSgeqrfStridedBatched_rank_1,& + hipblasSgeqrfStridedBatched_rank_1_devptr,& + hipblasSgeqrfStridedBatched_full_rank,& + hipblasSgeqrfStridedBatched_full_rank_devptr +#endif +#endif + end interface + + interface hipblasDgeqrfStridedBatched + function hipblasDgeqrfStridedBatched_(handle,m,n,A,lda,strideA,ipiv,strideP,myInfo,batchCount) & + bind(c, name="hipblasDgeqrfStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDgeqrfStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: A + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: ipiv + integer(c_int64_t),value :: strideP + type(c_ptr),value :: myInfo + integer(c_int),value :: batchCount + end function + + module procedure hipblasDgeqrfStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasDgeqrfStridedBatched_assumed_rank,& + hipblasDgeqrfStridedBatched_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDgeqrfStridedBatched_rank_0,& + hipblasDgeqrfStridedBatched_rank_0_devptr,& + hipblasDgeqrfStridedBatched_rank_1,& + hipblasDgeqrfStridedBatched_rank_1_devptr,& + hipblasDgeqrfStridedBatched_full_rank,& + hipblasDgeqrfStridedBatched_full_rank_devptr +#endif +#endif + end interface + + interface hipblasCgeqrfStridedBatched + function hipblasCgeqrfStridedBatched_(handle,m,n,A,lda,strideA,ipiv,strideP,myInfo,batchCount) & + bind(c, name="hipblasCgeqrfStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasCgeqrfStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: A + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: ipiv + integer(c_int64_t),value :: strideP + type(c_ptr),value :: myInfo + integer(c_int),value :: batchCount + end function + + module procedure hipblasCgeqrfStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasCgeqrfStridedBatched_assumed_rank,& + hipblasCgeqrfStridedBatched_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCgeqrfStridedBatched_rank_0,& + hipblasCgeqrfStridedBatched_rank_0_devptr,& + hipblasCgeqrfStridedBatched_rank_1,& + hipblasCgeqrfStridedBatched_rank_1_devptr,& + hipblasCgeqrfStridedBatched_full_rank,& + hipblasCgeqrfStridedBatched_full_rank_devptr +#endif +#endif + end interface + + interface hipblasZgeqrfStridedBatched + function hipblasZgeqrfStridedBatched_(handle,m,n,A,lda,strideA,ipiv,strideP,myInfo,batchCount) & + bind(c, name="hipblasZgeqrfStridedBatched") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasZgeqrfStridedBatched_ + type(c_ptr),value :: handle + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: A + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: ipiv + integer(c_int64_t),value :: strideP + type(c_ptr),value :: myInfo + integer(c_int),value :: batchCount + end function + + module procedure hipblasZgeqrfStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasZgeqrfStridedBatched_assumed_rank,& + hipblasZgeqrfStridedBatched_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZgeqrfStridedBatched_rank_0,& + hipblasZgeqrfStridedBatched_rank_0_devptr,& + hipblasZgeqrfStridedBatched_rank_1,& + hipblasZgeqrfStridedBatched_rank_1_devptr,& + hipblasZgeqrfStridedBatched_full_rank,& + hipblasZgeqrfStridedBatched_full_rank_devptr +#endif +#endif + end interface + + interface hipblasGemmEx + function hipblasGemmEx_(handle,transA,transB,m,n,k,alpha,A,aType,lda,B,bType,ldb,beta,C,cType, & + ldc,computeType,algo) & + bind(c, name="hipblasGemmEx") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasGemmEx_ + type(c_ptr),value :: handle + integer(c_int),value :: transA + integer(c_int),value :: transB + integer(c_int),value :: m + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: A + integer(c_int),value :: aType + integer(c_int),value :: lda + type(c_ptr),value :: B + integer(c_int),value :: bType + integer(c_int),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: C + integer(c_int),value :: cType + integer(c_int),value :: ldc + integer(c_int),value :: computeType + integer(c_int),value :: algo + end function + end interface + + interface hipblasGemmExWithFlags + function hipblasGemmExWithFlags_(handle,transA,transB,m,n,k,alpha,A,aType,lda,B,bType,ldb, & + beta,C,cType,ldc,computeType,algo,flags) & + bind(c, name="hipblasGemmExWithFlags") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasGemmExWithFlags_ + type(c_ptr),value :: handle + integer(c_int),value :: transA + integer(c_int),value :: transB + integer(c_int),value :: m + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: A + integer(c_int),value :: aType + integer(c_int),value :: lda + type(c_ptr),value :: B + integer(c_int),value :: bType + integer(c_int),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: C + integer(c_int),value :: cType + integer(c_int),value :: ldc + integer(c_int),value :: computeType + integer(c_int),value :: algo + integer(c_int),value :: flags + end function + end interface + + interface hipblasGemmEx_64 + function hipblasGemmEx_64_(handle,transA,transB,m,n,k,alpha,A,aType,lda,B,bType,ldb,beta,C, & + cType,ldc,computeType,algo) & + bind(c, name="hipblasGemmEx_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasGemmEx_64_ + type(c_ptr),value :: handle + integer(c_int),value :: transA + integer(c_int),value :: transB + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: A + integer(c_int),value :: aType + integer(c_int64_t),value :: lda + type(c_ptr),value :: B + integer(c_int),value :: bType + integer(c_int64_t),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: C + integer(c_int),value :: cType + integer(c_int64_t),value :: ldc + integer(c_int),value :: computeType + integer(c_int),value :: algo + end function + end interface + + interface hipblasGemmExWithFlags_64 + function hipblasGemmExWithFlags_64_(handle,transA,transB,m,n,k,alpha,A,aType,lda,B,bType,ldb, & + beta,C,cType,ldc,computeType,algo,flags) & + bind(c, name="hipblasGemmExWithFlags_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasGemmExWithFlags_64_ + type(c_ptr),value :: handle + integer(c_int),value :: transA + integer(c_int),value :: transB + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: A + integer(c_int),value :: aType + integer(c_int64_t),value :: lda + type(c_ptr),value :: B + integer(c_int),value :: bType + integer(c_int64_t),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: C + integer(c_int),value :: cType + integer(c_int64_t),value :: ldc + integer(c_int),value :: computeType + integer(c_int),value :: algo + integer(c_int),value :: flags + end function + end interface + + interface hipblasGemmBatchedEx + function hipblasGemmBatchedEx_(handle,transA,transB,m,n,k,alpha,A,aType,lda,B,bType,ldb,beta, & + C,cType,ldc,batchCount,computeType,algo) & + bind(c, name="hipblasGemmBatchedEx") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasGemmBatchedEx_ + type(c_ptr),value :: handle + integer(c_int),value :: transA + integer(c_int),value :: transB + integer(c_int),value :: m + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: A + integer(c_int),value :: aType + integer(c_int),value :: lda + type(c_ptr),value :: B + integer(c_int),value :: bType + integer(c_int),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: C + integer(c_int),value :: cType + integer(c_int),value :: ldc + integer(c_int),value :: batchCount + integer(c_int),value :: computeType + integer(c_int),value :: algo + end function + end interface + + interface hipblasGemmBatchedExWithFlags + function hipblasGemmBatchedExWithFlags_(handle,transA,transB,m,n,k,alpha,A,aType,lda,B,bType, & + ldb,beta,C,cType,ldc,batchCount,computeType,algo,flags) & + bind(c, name="hipblasGemmBatchedExWithFlags") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasGemmBatchedExWithFlags_ + type(c_ptr),value :: handle + integer(c_int),value :: transA + integer(c_int),value :: transB + integer(c_int),value :: m + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: A + integer(c_int),value :: aType + integer(c_int),value :: lda + type(c_ptr),value :: B + integer(c_int),value :: bType + integer(c_int),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: C + integer(c_int),value :: cType + integer(c_int),value :: ldc + integer(c_int),value :: batchCount + integer(c_int),value :: computeType + integer(c_int),value :: algo + integer(c_int),value :: flags + end function + end interface + + interface hipblasGemmBatchedEx_64 + function hipblasGemmBatchedEx_64_(handle,transA,transB,m,n,k,alpha,A,aType,lda,B,bType,ldb, & + beta,C,cType,ldc,batchCount,computeType,algo) & + bind(c, name="hipblasGemmBatchedEx_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasGemmBatchedEx_64_ + type(c_ptr),value :: handle + integer(c_int),value :: transA + integer(c_int),value :: transB + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: A + integer(c_int),value :: aType + integer(c_int64_t),value :: lda + type(c_ptr),value :: B + integer(c_int),value :: bType + integer(c_int64_t),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: C + integer(c_int),value :: cType + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: batchCount + integer(c_int),value :: computeType + integer(c_int),value :: algo + end function + end interface + + interface hipblasGemmBatchedExWithFlags_64 + function hipblasGemmBatchedExWithFlags_64_(handle,transA,transB,m,n,k,alpha,A,aType,lda,B, & + bType,ldb,beta,C,cType,ldc,batchCount,computeType,algo,flags) & + bind(c, name="hipblasGemmBatchedExWithFlags_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasGemmBatchedExWithFlags_64_ + type(c_ptr),value :: handle + integer(c_int),value :: transA + integer(c_int),value :: transB + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: A + integer(c_int),value :: aType + integer(c_int64_t),value :: lda + type(c_ptr),value :: B + integer(c_int),value :: bType + integer(c_int64_t),value :: ldb + type(c_ptr),value :: beta + type(c_ptr),value :: C + integer(c_int),value :: cType + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: batchCount + integer(c_int),value :: computeType + integer(c_int),value :: algo + integer(c_int),value :: flags + end function + end interface + + interface hipblasGemmGroupedBatchedEx + function hipblasGemmGroupedBatchedEx_(handle,transA_array,transB_array,m_array,n_array, & + k_array,alpha_array,Aarray,aType,lda_array,Barray,bType,ldb_array,beta_array,Carray,cType, & + ldc_array,Darray,dType,ldd_array,group_count,group_size,computeType,algo) & + bind(c, name="hipblasGemmGroupedBatchedEx") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasGemmGroupedBatchedEx_ + type(c_ptr),value :: handle + type(c_ptr),value :: transA_array + type(c_ptr),value :: transB_array + type(c_ptr),value :: m_array + type(c_ptr),value :: n_array + type(c_ptr),value :: k_array + type(c_ptr),value :: alpha_array + type(c_ptr),value :: Aarray + integer(c_int),value :: aType + type(c_ptr),value :: lda_array + type(c_ptr),value :: Barray + integer(c_int),value :: bType + type(c_ptr),value :: ldb_array + type(c_ptr),value :: beta_array + type(c_ptr),value :: Carray + integer(c_int),value :: cType + type(c_ptr),value :: ldc_array + type(c_ptr),value :: Darray + integer(c_int),value :: dType + type(c_ptr),value :: ldd_array + integer(c_int),value :: group_count + type(c_ptr),value :: group_size + integer(c_int),value :: computeType + integer(c_int),value :: algo + end function + end interface + + interface hipblasGemmGroupedBatchedExWithFlags + function hipblasGemmGroupedBatchedExWithFlags_(handle,transA_array,transB_array,m_array, & + n_array,k_array,alpha_array,Aarray,aType,lda_array,Barray,bType,ldb_array,beta_array, & + Carray,cType,ldc_array,Darray,dType,ldd_array,group_count,group_size,computeType,algo, & + flags) & + bind(c, name="hipblasGemmGroupedBatchedExWithFlags") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasGemmGroupedBatchedExWithFlags_ + type(c_ptr),value :: handle + type(c_ptr),value :: transA_array + type(c_ptr),value :: transB_array + type(c_ptr),value :: m_array + type(c_ptr),value :: n_array + type(c_ptr),value :: k_array + type(c_ptr),value :: alpha_array + type(c_ptr),value :: Aarray + integer(c_int),value :: aType + type(c_ptr),value :: lda_array + type(c_ptr),value :: Barray + integer(c_int),value :: bType + type(c_ptr),value :: ldb_array + type(c_ptr),value :: beta_array + type(c_ptr),value :: Carray + integer(c_int),value :: cType + type(c_ptr),value :: ldc_array + type(c_ptr),value :: Darray + integer(c_int),value :: dType + type(c_ptr),value :: ldd_array + integer(c_int),value :: group_count + type(c_ptr),value :: group_size + integer(c_int),value :: computeType + integer(c_int),value :: algo + integer(c_int),value :: flags + end function + end interface + + interface hipblasGemmGroupedBatchedEx_64 + function hipblasGemmGroupedBatchedEx_64_(handle,transA_array,transB_array,m_array,n_array, & + k_array,alpha_array,Aarray,aType,lda_array,Barray,bType,ldb_array,beta_array,Carray,cType, & + ldc_array,Darray,dType,ldd_array,group_count,group_size,computeType,algo) & + bind(c, name="hipblasGemmGroupedBatchedEx_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasGemmGroupedBatchedEx_64_ + type(c_ptr),value :: handle + type(c_ptr),value :: transA_array + type(c_ptr),value :: transB_array + type(c_ptr),value :: m_array + type(c_ptr),value :: n_array + type(c_ptr),value :: k_array + type(c_ptr),value :: alpha_array + type(c_ptr),value :: Aarray + integer(c_int),value :: aType + type(c_ptr),value :: lda_array + type(c_ptr),value :: Barray + integer(c_int),value :: bType + type(c_ptr),value :: ldb_array + type(c_ptr),value :: beta_array + type(c_ptr),value :: Carray + integer(c_int),value :: cType + type(c_ptr),value :: ldc_array + type(c_ptr),value :: Darray + integer(c_int),value :: dType + type(c_ptr),value :: ldd_array + integer(c_int64_t),value :: group_count + type(c_ptr),value :: group_size + integer(c_int),value :: computeType + integer(c_int),value :: algo + end function + end interface + + interface hipblasGemmGroupedBatchedExWithFlags_64 + function hipblasGemmGroupedBatchedExWithFlags_64_(handle,transA_array,transB_array,m_array, & + n_array,k_array,alpha_array,Aarray,aType,lda_array,Barray,bType,ldb_array,beta_array, & + Carray,cType,ldc_array,Darray,dType,ldd_array,group_count,group_size,computeType,algo, & + flags) & + bind(c, name="hipblasGemmGroupedBatchedExWithFlags_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasGemmGroupedBatchedExWithFlags_64_ + type(c_ptr),value :: handle + type(c_ptr),value :: transA_array + type(c_ptr),value :: transB_array + type(c_ptr),value :: m_array + type(c_ptr),value :: n_array + type(c_ptr),value :: k_array + type(c_ptr),value :: alpha_array + type(c_ptr),value :: Aarray + integer(c_int),value :: aType + type(c_ptr),value :: lda_array + type(c_ptr),value :: Barray + integer(c_int),value :: bType + type(c_ptr),value :: ldb_array + type(c_ptr),value :: beta_array + type(c_ptr),value :: Carray + integer(c_int),value :: cType + type(c_ptr),value :: ldc_array + type(c_ptr),value :: Darray + integer(c_int),value :: dType + type(c_ptr),value :: ldd_array + integer(c_int64_t),value :: group_count + type(c_ptr),value :: group_size + integer(c_int),value :: computeType + integer(c_int),value :: algo + integer(c_int),value :: flags + end function + end interface + + interface hipblasGemmStridedBatchedEx + function hipblasGemmStridedBatchedEx_(handle,transA,transB,m,n,k,alpha,A,aType,lda,strideA,B, & + bType,ldb,strideB,beta,C,cType,ldc,strideC,batchCount,computeType,algo) & + bind(c, name="hipblasGemmStridedBatchedEx") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasGemmStridedBatchedEx_ + type(c_ptr),value :: handle + integer(c_int),value :: transA + integer(c_int),value :: transB + integer(c_int),value :: m + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: A + integer(c_int),value :: aType + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: B + integer(c_int),value :: bType + integer(c_int),value :: ldb + integer(c_int64_t),value :: strideB + type(c_ptr),value :: beta + type(c_ptr),value :: C + integer(c_int),value :: cType + integer(c_int),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int),value :: batchCount + integer(c_int),value :: computeType + integer(c_int),value :: algo + end function + end interface + + interface hipblasGemmStridedBatchedExWithFlags + function hipblasGemmStridedBatchedExWithFlags_(handle,transA,transB,m,n,k,alpha,A,aType,lda, & + strideA,B,bType,ldb,strideB,beta,C,cType,ldc,strideC,batchCount,computeType,algo,flags) & + bind(c, name="hipblasGemmStridedBatchedExWithFlags") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasGemmStridedBatchedExWithFlags_ + type(c_ptr),value :: handle + integer(c_int),value :: transA + integer(c_int),value :: transB + integer(c_int),value :: m + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: A + integer(c_int),value :: aType + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: B + integer(c_int),value :: bType + integer(c_int),value :: ldb + integer(c_int64_t),value :: strideB + type(c_ptr),value :: beta + type(c_ptr),value :: C + integer(c_int),value :: cType + integer(c_int),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int),value :: batchCount + integer(c_int),value :: computeType + integer(c_int),value :: algo + integer(c_int),value :: flags + end function + end interface + + interface hipblasGemmStridedBatchedEx_64 + function hipblasGemmStridedBatchedEx_64_(handle,transA,transB,m,n,k,alpha,A,aType,lda,strideA, & + B,bType,ldb,strideB,beta,C,cType,ldc,strideC,batchCount,computeType,algo) & + bind(c, name="hipblasGemmStridedBatchedEx_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasGemmStridedBatchedEx_64_ + type(c_ptr),value :: handle + integer(c_int),value :: transA + integer(c_int),value :: transB + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: A + integer(c_int),value :: aType + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: B + integer(c_int),value :: bType + integer(c_int64_t),value :: ldb + integer(c_int64_t),value :: strideB + type(c_ptr),value :: beta + type(c_ptr),value :: C + integer(c_int),value :: cType + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int64_t),value :: batchCount + integer(c_int),value :: computeType + integer(c_int),value :: algo + end function + end interface + + interface hipblasGemmStridedBatchedExWithFlags_64 + function hipblasGemmStridedBatchedExWithFlags_64_(handle,transA,transB,m,n,k,alpha,A,aType, & + lda,strideA,B,bType,ldb,strideB,beta,C,cType,ldc,strideC,batchCount,computeType,algo, & + flags) & + bind(c, name="hipblasGemmStridedBatchedExWithFlags_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasGemmStridedBatchedExWithFlags_64_ + type(c_ptr),value :: handle + integer(c_int),value :: transA + integer(c_int),value :: transB + integer(c_int64_t),value :: m + integer(c_int64_t),value :: n + integer(c_int64_t),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: A + integer(c_int),value :: aType + integer(c_int64_t),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: B + integer(c_int),value :: bType + integer(c_int64_t),value :: ldb + integer(c_int64_t),value :: strideB + type(c_ptr),value :: beta + type(c_ptr),value :: C + integer(c_int),value :: cType + integer(c_int64_t),value :: ldc + integer(c_int64_t),value :: strideC + integer(c_int64_t),value :: batchCount + integer(c_int),value :: computeType + integer(c_int),value :: algo + integer(c_int),value :: flags + end function + end interface + + interface hipblasSyrkEx + function hipblasSyrkEx_(handle,uplo,transA,n,k,alpha,A,aType,lda,beta,C,cType,ldc,computeType) & + bind(c, name="hipblasSyrkEx") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasSyrkEx_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: A + integer(c_int),value :: aType + integer(c_int),value :: lda + type(c_ptr),value :: beta + type(c_ptr),value :: C + integer(c_int),value :: cType + integer(c_int),value :: ldc + integer(c_int),value :: computeType + end function + end interface + + interface hipblasTrsmEx + function hipblasTrsmEx_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,invA,invAsize, & + computeType) & + bind(c, name="hipblasTrsmEx") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasTrsmEx_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: A + integer(c_int),value :: lda + type(c_ptr),value :: B + integer(c_int),value :: ldb + type(c_ptr),value :: invA + integer(c_int),value :: invAsize + integer(c_int),value :: computeType + end function + end interface + + interface hipblasHerkEx + function hipblasHerkEx_(handle,uplo,transA,n,k,alpha,A,aType,lda,beta,C,cType,ldc,computeType) & + bind(c, name="hipblasHerkEx") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasHerkEx_ + type(c_ptr),value :: handle + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: n + integer(c_int),value :: k + type(c_ptr),value :: alpha + type(c_ptr),value :: A + integer(c_int),value :: aType + integer(c_int),value :: lda + type(c_ptr),value :: beta + type(c_ptr),value :: C + integer(c_int),value :: cType + integer(c_int),value :: ldc + integer(c_int),value :: computeType + end function + end interface + + interface hipblasTrsmBatchedEx + function hipblasTrsmBatchedEx_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,batchCount, & + invA,invAsize,computeType) & + bind(c, name="hipblasTrsmBatchedEx") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasTrsmBatchedEx_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: A + integer(c_int),value :: lda + type(c_ptr),value :: B + integer(c_int),value :: ldb + integer(c_int),value :: batchCount + type(c_ptr),value :: invA + integer(c_int),value :: invAsize + integer(c_int),value :: computeType + end function + end interface + + interface hipblasTrsmStridedBatchedEx + function hipblasTrsmStridedBatchedEx_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,strideA,B, & + ldb,strideB,batchCount,invA,invAsize,strideInvA,computeType) & + bind(c, name="hipblasTrsmStridedBatchedEx") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasTrsmStridedBatchedEx_ + type(c_ptr),value :: handle + integer(c_int),value :: side + integer(c_int),value :: uplo + integer(c_int),value :: transA + integer(c_int),value :: diag + integer(c_int),value :: m + integer(c_int),value :: n + type(c_ptr),value :: alpha + type(c_ptr),value :: A + integer(c_int),value :: lda + integer(c_int64_t),value :: strideA + type(c_ptr),value :: B + integer(c_int),value :: ldb + integer(c_int64_t),value :: strideB + integer(c_int),value :: batchCount + type(c_ptr),value :: invA + integer(c_int),value :: invAsize + integer(c_int64_t),value :: strideInvA + integer(c_int),value :: computeType + end function + end interface + + interface hipblasAxpyEx + function hipblasAxpyEx_(handle,n,alpha,alphaType,x,xType,incx,y,yType,incy,executionType) & + bind(c, name="hipblasAxpyEx") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasAxpyEx_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: alpha + integer(c_int),value :: alphaType + type(c_ptr),value :: x + integer(c_int),value :: xType + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: yType + integer(c_int),value :: incy + integer(c_int),value :: executionType + end function + end interface + + interface hipblasAxpyEx_64 + function hipblasAxpyEx_64_(handle,n,alpha,alphaType,x,xType,incx,y,yType,incy,executionType) & + bind(c, name="hipblasAxpyEx_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasAxpyEx_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + integer(c_int),value :: alphaType + type(c_ptr),value :: x + integer(c_int),value :: xType + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: yType + integer(c_int64_t),value :: incy + integer(c_int),value :: executionType + end function + end interface + + interface hipblasAxpyBatchedEx + function hipblasAxpyBatchedEx_(handle,n,alpha,alphaType,x,xType,incx,y,yType,incy,batchCount, & + executionType) & + bind(c, name="hipblasAxpyBatchedEx") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasAxpyBatchedEx_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: alpha + integer(c_int),value :: alphaType + type(c_ptr),value :: x + integer(c_int),value :: xType + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: yType + integer(c_int),value :: incy + integer(c_int),value :: batchCount + integer(c_int),value :: executionType + end function + end interface + + interface hipblasAxpyBatchedEx_64 + function hipblasAxpyBatchedEx_64_(handle,n,alpha,alphaType,x,xType,incx,y,yType,incy, & + batchCount,executionType) & + bind(c, name="hipblasAxpyBatchedEx_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasAxpyBatchedEx_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + integer(c_int),value :: alphaType + type(c_ptr),value :: x + integer(c_int),value :: xType + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: yType + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: batchCount + integer(c_int),value :: executionType + end function + end interface + + interface hipblasAxpyStridedBatchedEx + function hipblasAxpyStridedBatchedEx_(handle,n,alpha,alphaType,x,xType,incx,stridex,y,yType, & + incy,stridey,batchCount,executionType) & + bind(c, name="hipblasAxpyStridedBatchedEx") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasAxpyStridedBatchedEx_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: alpha + integer(c_int),value :: alphaType + type(c_ptr),value :: x + integer(c_int),value :: xType + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int),value :: yType + integer(c_int),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int),value :: batchCount + integer(c_int),value :: executionType + end function + end interface + + interface hipblasAxpyStridedBatchedEx_64 + function hipblasAxpyStridedBatchedEx_64_(handle,n,alpha,alphaType,x,xType,incx,stridex,y, & + yType,incy,stridey,batchCount,executionType) & + bind(c, name="hipblasAxpyStridedBatchedEx_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasAxpyStridedBatchedEx_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + integer(c_int),value :: alphaType + type(c_ptr),value :: x + integer(c_int),value :: xType + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int),value :: yType + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int64_t),value :: batchCount + integer(c_int),value :: executionType + end function + end interface + + interface hipblasDotEx + function hipblasDotEx_(handle,n,x,xType,incx,y,yType,incy,myResult,resultType,executionType) & + bind(c, name="hipblasDotEx") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDotEx_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: xType + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: yType + integer(c_int),value :: incy + type(c_ptr),value :: myResult + integer(c_int),value :: resultType + integer(c_int),value :: executionType + end function + end interface + + interface hipblasDotcEx + function hipblasDotcEx_(handle,n,x,xType,incx,y,yType,incy,myResult,resultType,executionType) & + bind(c, name="hipblasDotcEx") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDotcEx_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: xType + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: yType + integer(c_int),value :: incy + type(c_ptr),value :: myResult + integer(c_int),value :: resultType + integer(c_int),value :: executionType + end function + end interface + + interface hipblasDotEx_64 + function hipblasDotEx_64_(handle,n,x,xType,incx,y,yType,incy,myResult,resultType, & + executionType) & + bind(c, name="hipblasDotEx_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDotEx_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int),value :: xType + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: yType + integer(c_int64_t),value :: incy + type(c_ptr),value :: myResult + integer(c_int),value :: resultType + integer(c_int),value :: executionType + end function + end interface + + interface hipblasDotcEx_64 + function hipblasDotcEx_64_(handle,n,x,xType,incx,y,yType,incy,myResult,resultType, & + executionType) & + bind(c, name="hipblasDotcEx_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDotcEx_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int),value :: xType + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: yType + integer(c_int64_t),value :: incy + type(c_ptr),value :: myResult + integer(c_int),value :: resultType + integer(c_int),value :: executionType + end function + end interface + + interface hipblasDotBatchedEx + function hipblasDotBatchedEx_(handle,n,x,xType,incx,y,yType,incy,batchCount,myResult, & + resultType,executionType) & + bind(c, name="hipblasDotBatchedEx") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDotBatchedEx_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: xType + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: yType + integer(c_int),value :: incy + integer(c_int),value :: batchCount + type(c_ptr),value :: myResult + integer(c_int),value :: resultType + integer(c_int),value :: executionType + end function + end interface + + interface hipblasDotcBatchedEx + function hipblasDotcBatchedEx_(handle,n,x,xType,incx,y,yType,incy,batchCount,myResult, & + resultType,executionType) & + bind(c, name="hipblasDotcBatchedEx") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDotcBatchedEx_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: xType + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: yType + integer(c_int),value :: incy + integer(c_int),value :: batchCount + type(c_ptr),value :: myResult + integer(c_int),value :: resultType + integer(c_int),value :: executionType + end function + end interface + + interface hipblasDotBatchedEx_64 + function hipblasDotBatchedEx_64_(handle,n,x,xType,incx,y,yType,incy,batchCount,myResult, & + resultType,executionType) & + bind(c, name="hipblasDotBatchedEx_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDotBatchedEx_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int),value :: xType + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: yType + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: batchCount + type(c_ptr),value :: myResult + integer(c_int),value :: resultType + integer(c_int),value :: executionType + end function + end interface + + interface hipblasDotcBatchedEx_64 + function hipblasDotcBatchedEx_64_(handle,n,x,xType,incx,y,yType,incy,batchCount,myResult, & + resultType,executionType) & + bind(c, name="hipblasDotcBatchedEx_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDotcBatchedEx_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int),value :: xType + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: yType + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: batchCount + type(c_ptr),value :: myResult + integer(c_int),value :: resultType + integer(c_int),value :: executionType + end function + end interface + + interface hipblasDotStridedBatchedEx + function hipblasDotStridedBatchedEx_(handle,n,x,xType,incx,stridex,y,yType,incy,stridey, & + batchCount,myResult,resultType,executionType) & + bind(c, name="hipblasDotStridedBatchedEx") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDotStridedBatchedEx_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: xType + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int),value :: yType + integer(c_int),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int),value :: batchCount + type(c_ptr),value :: myResult + integer(c_int),value :: resultType + integer(c_int),value :: executionType + end function + end interface + + interface hipblasDotcStridedBatchedEx + function hipblasDotcStridedBatchedEx_(handle,n,x,xType,incx,stridex,y,yType,incy,stridey, & + batchCount,myResult,resultType,executionType) & + bind(c, name="hipblasDotcStridedBatchedEx") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDotcStridedBatchedEx_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: xType + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int),value :: yType + integer(c_int),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int),value :: batchCount + type(c_ptr),value :: myResult + integer(c_int),value :: resultType + integer(c_int),value :: executionType + end function + end interface + + interface hipblasDotStridedBatchedEx_64 + function hipblasDotStridedBatchedEx_64_(handle,n,x,xType,incx,stridex,y,yType,incy,stridey, & + batchCount,myResult,resultType,executionType) & + bind(c, name="hipblasDotStridedBatchedEx_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDotStridedBatchedEx_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int),value :: xType + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int),value :: yType + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int64_t),value :: batchCount + type(c_ptr),value :: myResult + integer(c_int),value :: resultType + integer(c_int),value :: executionType + end function + end interface + + interface hipblasDotcStridedBatchedEx_64 + function hipblasDotcStridedBatchedEx_64_(handle,n,x,xType,incx,stridex,y,yType,incy,stridey, & + batchCount,myResult,resultType,executionType) & + bind(c, name="hipblasDotcStridedBatchedEx_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasDotcStridedBatchedEx_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int),value :: xType + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int),value :: yType + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: stridey + integer(c_int64_t),value :: batchCount + type(c_ptr),value :: myResult + integer(c_int),value :: resultType + integer(c_int),value :: executionType + end function + end interface + + interface hipblasNrm2Ex + function hipblasNrm2Ex_(handle,n,x,xType,incx,myResult,resultType,executionType) & + bind(c, name="hipblasNrm2Ex") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasNrm2Ex_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: xType + integer(c_int),value :: incx + type(c_ptr),value :: myResult + integer(c_int),value :: resultType + integer(c_int),value :: executionType + end function + end interface + + interface hipblasNrm2Ex_64 + function hipblasNrm2Ex_64_(handle,n,x,xType,incx,myResult,resultType,executionType) & + bind(c, name="hipblasNrm2Ex_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasNrm2Ex_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int),value :: xType + integer(c_int64_t),value :: incx + type(c_ptr),value :: myResult + integer(c_int),value :: resultType + integer(c_int),value :: executionType + end function + end interface + + interface hipblasNrm2BatchedEx + function hipblasNrm2BatchedEx_(handle,n,x,xType,incx,batchCount,myResult,resultType, & + executionType) & + bind(c, name="hipblasNrm2BatchedEx") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasNrm2BatchedEx_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: xType + integer(c_int),value :: incx + integer(c_int),value :: batchCount + type(c_ptr),value :: myResult + integer(c_int),value :: resultType + integer(c_int),value :: executionType + end function + end interface + + interface hipblasNrm2BatchedEx_64 + function hipblasNrm2BatchedEx_64_(handle,n,x,xType,incx,batchCount,myResult,resultType, & + executionType) & + bind(c, name="hipblasNrm2BatchedEx_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasNrm2BatchedEx_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int),value :: xType + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: batchCount + type(c_ptr),value :: myResult + integer(c_int),value :: resultType + integer(c_int),value :: executionType + end function + end interface + + interface hipblasNrm2StridedBatchedEx + function hipblasNrm2StridedBatchedEx_(handle,n,x,xType,incx,stridex,batchCount,myResult, & + resultType,executionType) & + bind(c, name="hipblasNrm2StridedBatchedEx") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasNrm2StridedBatchedEx_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: xType + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int),value :: batchCount + type(c_ptr),value :: myResult + integer(c_int),value :: resultType + integer(c_int),value :: executionType + end function + end interface + + interface hipblasNrm2StridedBatchedEx_64 + function hipblasNrm2StridedBatchedEx_64_(handle,n,x,xType,incx,stridex,batchCount,myResult, & + resultType,executionType) & + bind(c, name="hipblasNrm2StridedBatchedEx_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasNrm2StridedBatchedEx_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int),value :: xType + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int64_t),value :: batchCount + type(c_ptr),value :: myResult + integer(c_int),value :: resultType + integer(c_int),value :: executionType + end function + end interface + + interface hipblasRotEx + function hipblasRotEx_(handle,n,x,xType,incx,y,yType,incy,c,s,csType,executionType) & + bind(c, name="hipblasRotEx") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasRotEx_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: xType + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: yType + integer(c_int),value :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int),value :: csType + integer(c_int),value :: executionType + end function + end interface + + interface hipblasRotEx_64 + function hipblasRotEx_64_(handle,n,x,xType,incx,y,yType,incy,c,s,csType,executionType) & + bind(c, name="hipblasRotEx_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasRotEx_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int),value :: xType + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: yType + integer(c_int64_t),value :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int),value :: csType + integer(c_int),value :: executionType + end function + end interface + + interface hipblasRotBatchedEx + function hipblasRotBatchedEx_(handle,n,x,xType,incx,y,yType,incy,c,s,csType,batchCount, & + executionType) & + bind(c, name="hipblasRotBatchedEx") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasRotBatchedEx_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: xType + integer(c_int),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: yType + integer(c_int),value :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int),value :: csType + integer(c_int),value :: batchCount + integer(c_int),value :: executionType + end function + end interface + + interface hipblasRotBatchedEx_64 + function hipblasRotBatchedEx_64_(handle,n,x,xType,incx,y,yType,incy,c,s,csType,batchCount, & + executionType) & + bind(c, name="hipblasRotBatchedEx_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasRotBatchedEx_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int),value :: xType + integer(c_int64_t),value :: incx + type(c_ptr),value :: y + integer(c_int),value :: yType + integer(c_int64_t),value :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int),value :: csType + integer(c_int64_t),value :: batchCount + integer(c_int),value :: executionType + end function + end interface + + interface hipblasRotStridedBatchedEx + function hipblasRotStridedBatchedEx_(handle,n,x,xType,incx,stridex,y,yType,incy,stridey,c,s, & + csType,batchCount,executionType) & + bind(c, name="hipblasRotStridedBatchedEx") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasRotStridedBatchedEx_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: x + integer(c_int),value :: xType + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int),value :: yType + integer(c_int),value :: incy + integer(c_int64_t),value :: stridey + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int),value :: csType + integer(c_int),value :: batchCount + integer(c_int),value :: executionType + end function + end interface + + interface hipblasRotStridedBatchedEx_64 + function hipblasRotStridedBatchedEx_64_(handle,n,x,xType,incx,stridex,y,yType,incy,stridey,c, & + s,csType,batchCount,executionType) & + bind(c, name="hipblasRotStridedBatchedEx_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasRotStridedBatchedEx_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: x + integer(c_int),value :: xType + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + type(c_ptr),value :: y + integer(c_int),value :: yType + integer(c_int64_t),value :: incy + integer(c_int64_t),value :: stridey + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int),value :: csType + integer(c_int64_t),value :: batchCount + integer(c_int),value :: executionType + end function + end interface + + interface hipblasScalEx + function hipblasScalEx_(handle,n,alpha,alphaType,x,xType,incx,executionType) & + bind(c, name="hipblasScalEx") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasScalEx_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: alpha + integer(c_int),value :: alphaType + type(c_ptr),value :: x + integer(c_int),value :: xType + integer(c_int),value :: incx + integer(c_int),value :: executionType + end function + end interface + + interface hipblasScalEx_64 + function hipblasScalEx_64_(handle,n,alpha,alphaType,x,xType,incx,executionType) & + bind(c, name="hipblasScalEx_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasScalEx_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + integer(c_int),value :: alphaType + type(c_ptr),value :: x + integer(c_int),value :: xType + integer(c_int64_t),value :: incx + integer(c_int),value :: executionType + end function + end interface + + interface hipblasScalBatchedEx + function hipblasScalBatchedEx_(handle,n,alpha,alphaType,x,xType,incx,batchCount,executionType) & + bind(c, name="hipblasScalBatchedEx") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasScalBatchedEx_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: alpha + integer(c_int),value :: alphaType + type(c_ptr),value :: x + integer(c_int),value :: xType + integer(c_int),value :: incx + integer(c_int),value :: batchCount + integer(c_int),value :: executionType + end function + end interface + + interface hipblasScalBatchedEx_64 + function hipblasScalBatchedEx_64_(handle,n,alpha,alphaType,x,xType,incx,batchCount, & + executionType) & + bind(c, name="hipblasScalBatchedEx_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasScalBatchedEx_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + integer(c_int),value :: alphaType + type(c_ptr),value :: x + integer(c_int),value :: xType + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: batchCount + integer(c_int),value :: executionType + end function + end interface + + interface hipblasScalStridedBatchedEx + function hipblasScalStridedBatchedEx_(handle,n,alpha,alphaType,x,xType,incx,stridex, & + batchCount,executionType) & + bind(c, name="hipblasScalStridedBatchedEx") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasScalStridedBatchedEx_ + type(c_ptr),value :: handle + integer(c_int),value :: n + type(c_ptr),value :: alpha + integer(c_int),value :: alphaType + type(c_ptr),value :: x + integer(c_int),value :: xType + integer(c_int),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int),value :: batchCount + integer(c_int),value :: executionType + end function + end interface + + interface hipblasScalStridedBatchedEx_64 + function hipblasScalStridedBatchedEx_64_(handle,n,alpha,alphaType,x,xType,incx,stridex, & + batchCount,executionType) & + bind(c, name="hipblasScalStridedBatchedEx_64") + use iso_c_binding + import + implicit none + integer(c_int) :: hipblasScalStridedBatchedEx_64_ + type(c_ptr),value :: handle + integer(c_int64_t),value :: n + type(c_ptr),value :: alpha + integer(c_int),value :: alphaType + type(c_ptr),value :: x + integer(c_int),value :: xType + integer(c_int64_t),value :: incx + integer(c_int64_t),value :: stridex + integer(c_int64_t),value :: batchCount + integer(c_int),value :: executionType + end function + end interface + + interface hipblasStatusToString + function hipblasStatusToString_(status) bind(c, name="hipblasStatusToString") + use iso_c_binding + import + implicit none + type(c_ptr) :: hipblasStatusToString_ + integer(c_int),value :: status + end function + end interface + + + contains + + subroutine hipblasCheck(status) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: status + character(len=:), allocatable :: name + if (status /= HIPBLAS_STATUS_SUCCESS) then + select case (status) + case (HIPBLAS_STATUS_NOT_INITIALIZED) + name = "HIPBLAS_STATUS_NOT_INITIALIZED" + case (HIPBLAS_STATUS_ALLOC_FAILED) + name = "HIPBLAS_STATUS_ALLOC_FAILED" + case (HIPBLAS_STATUS_INVALID_VALUE) + name = "HIPBLAS_STATUS_INVALID_VALUE" + case (HIPBLAS_STATUS_MAPPING_ERROR) + name = "HIPBLAS_STATUS_MAPPING_ERROR" + case (HIPBLAS_STATUS_EXECUTION_FAILED) + name = "HIPBLAS_STATUS_EXECUTION_FAILED" + case (HIPBLAS_STATUS_INTERNAL_ERROR) + name = "HIPBLAS_STATUS_INTERNAL_ERROR" + case (HIPBLAS_STATUS_NOT_SUPPORTED) + name = "HIPBLAS_STATUS_NOT_SUPPORTED" + case (HIPBLAS_STATUS_ARCH_MISMATCH) + name = "HIPBLAS_STATUS_ARCH_MISMATCH" + case (HIPBLAS_STATUS_HANDLE_IS_NULLPTR) + name = "HIPBLAS_STATUS_HANDLE_IS_NULLPTR" + case (HIPBLAS_STATUS_INVALID_ENUM) + name = "HIPBLAS_STATUS_INVALID_ENUM" + case (HIPBLAS_STATUS_UNKNOWN) + name = "HIPBLAS_STATUS_UNKNOWN" + case default + name = "unknown status" + end select + write (*, "(a,i0,a)") "HIPBLAS ERROR: " // name // " (code ", status, ")" + stop 1 + end if + end subroutine hipblasCheck + function hipblasGetVersion_typed(handle,version) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGetVersion_typed + type(c_ptr), value :: handle + integer(c_int),target :: version + ! + hipblasGetVersion_typed = hipblasGetVersion_(handle,c_loc(version)) + end function + + function hipblasGetProperty_typed(myType,myValue) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGetProperty_typed + integer(kind(HIPBLAS_MAJOR_VERSION)) :: myType + integer(c_int),target :: myValue + ! + hipblasGetProperty_typed = hipblasGetProperty_(myType,c_loc(myValue)) + end function + + function hipblasGetPointerMode_typed(handle,mode) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGetPointerMode_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_POINTER_MODE_HOST)),target :: mode + ! + hipblasGetPointerMode_typed = hipblasGetPointerMode_(handle,c_loc(mode)) + end function + + function hipblasGetMathMode_typed(handle,mode) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGetMathMode_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_DEFAULT_MATH)),target :: mode + ! + hipblasGetMathMode_typed = hipblasGetMathMode_(handle,c_loc(mode)) + end function + + function hipblasGetAtomicsMode_typed(handle,atomics_mode) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGetAtomicsMode_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_ATOMICS_NOT_ALLOWED)),target :: atomics_mode + ! + hipblasGetAtomicsMode_typed = hipblasGetAtomicsMode_(handle,c_loc(atomics_mode)) + end function + + function hipblasGetBatchAlphaStride_typed(handle,alpha_stride) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGetBatchAlphaStride_typed + type(c_ptr), value :: handle + integer(c_int64_t),target :: alpha_stride + ! + hipblasGetBatchAlphaStride_typed = hipblasGetBatchAlphaStride_(handle,c_loc(alpha_stride)) + end function + + function hipblasGetBatchBetaStride_typed(handle,beta_stride) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGetBatchBetaStride_typed + type(c_ptr), value :: handle + integer(c_int64_t),target :: beta_stride + ! + hipblasGetBatchBetaStride_typed = hipblasGetBatchBetaStride_(handle,c_loc(beta_stride)) + end function + + function hipblasIsamax_typed(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamax_typed + type(c_ptr), value :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int),target :: myResult + ! + hipblasIsamax_typed = hipblasIsamax_(handle,n,x,incx,c_loc(myResult)) + end function + + function hipblasIdamax_typed(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamax_typed + type(c_ptr), value :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int),target :: myResult + ! + hipblasIdamax_typed = hipblasIdamax_(handle,n,x,incx,c_loc(myResult)) + end function + + function hipblasIcamax_typed(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamax_typed + type(c_ptr), value :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int),target :: myResult + ! + hipblasIcamax_typed = hipblasIcamax_(handle,n,x,incx,c_loc(myResult)) + end function + + function hipblasIzamax_typed(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamax_typed + type(c_ptr), value :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int),target :: myResult + ! + hipblasIzamax_typed = hipblasIzamax_(handle,n,x,incx,c_loc(myResult)) + end function + + function hipblasIsamax_64_typed(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamax_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t),target :: myResult + ! + hipblasIsamax_64_typed = hipblasIsamax_64_(handle,n,x,incx,c_loc(myResult)) + end function + + function hipblasIdamax_64_typed(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamax_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t),target :: myResult + ! + hipblasIdamax_64_typed = hipblasIdamax_64_(handle,n,x,incx,c_loc(myResult)) + end function + + function hipblasIcamax_64_typed(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamax_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t),target :: myResult + ! + hipblasIcamax_64_typed = hipblasIcamax_64_(handle,n,x,incx,c_loc(myResult)) + end function + + function hipblasIzamax_64_typed(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamax_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t),target :: myResult + ! + hipblasIzamax_64_typed = hipblasIzamax_64_(handle,n,x,incx,c_loc(myResult)) + end function + + function hipblasIsamin_typed(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamin_typed + type(c_ptr), value :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int),target :: myResult + ! + hipblasIsamin_typed = hipblasIsamin_(handle,n,x,incx,c_loc(myResult)) + end function + + function hipblasIdamin_typed(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamin_typed + type(c_ptr), value :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int),target :: myResult + ! + hipblasIdamin_typed = hipblasIdamin_(handle,n,x,incx,c_loc(myResult)) + end function + + function hipblasIcamin_typed(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamin_typed + type(c_ptr), value :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int),target :: myResult + ! + hipblasIcamin_typed = hipblasIcamin_(handle,n,x,incx,c_loc(myResult)) + end function + + function hipblasIzamin_typed(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamin_typed + type(c_ptr), value :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int),target :: myResult + ! + hipblasIzamin_typed = hipblasIzamin_(handle,n,x,incx,c_loc(myResult)) + end function + + function hipblasIsamin_64_typed(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamin_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t),target :: myResult + ! + hipblasIsamin_64_typed = hipblasIsamin_64_(handle,n,x,incx,c_loc(myResult)) + end function + + function hipblasIdamin_64_typed(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamin_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t),target :: myResult + ! + hipblasIdamin_64_typed = hipblasIdamin_64_(handle,n,x,incx,c_loc(myResult)) + end function + + function hipblasIcamin_64_typed(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamin_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t),target :: myResult + ! + hipblasIcamin_64_typed = hipblasIcamin_64_(handle,n,x,incx,c_loc(myResult)) + end function + + function hipblasIzamin_64_typed(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamin_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t),target :: myResult + ! + hipblasIzamin_64_typed = hipblasIzamin_64_(handle,n,x,incx,c_loc(myResult)) + end function + + function hipblasSasum_typed(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasum_typed + type(c_ptr), value :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + real(c_float),target :: myResult + ! + hipblasSasum_typed = hipblasSasum_(handle,n,x,incx,c_loc(myResult)) + end function + + function hipblasDasum_typed(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasum_typed + type(c_ptr), value :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + real(c_double),target :: myResult + ! + hipblasDasum_typed = hipblasDasum_(handle,n,x,incx,c_loc(myResult)) + end function + + function hipblasScasum_typed(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasum_typed + type(c_ptr), value :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + real(c_float),target :: myResult + ! + hipblasScasum_typed = hipblasScasum_(handle,n,x,incx,c_loc(myResult)) + end function + + function hipblasDzasum_typed(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasum_typed + type(c_ptr), value :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + real(c_double),target :: myResult + ! + hipblasDzasum_typed = hipblasDzasum_(handle,n,x,incx,c_loc(myResult)) + end function + + function hipblasSasum_64_typed(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasum_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + real(c_float),target :: myResult + ! + hipblasSasum_64_typed = hipblasSasum_64_(handle,n,x,incx,c_loc(myResult)) + end function + + function hipblasDasum_64_typed(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasum_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + real(c_double),target :: myResult + ! + hipblasDasum_64_typed = hipblasDasum_64_(handle,n,x,incx,c_loc(myResult)) + end function + + function hipblasScasum_64_typed(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasum_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + real(c_float),target :: myResult + ! + hipblasScasum_64_typed = hipblasScasum_64_(handle,n,x,incx,c_loc(myResult)) + end function + + function hipblasDzasum_64_typed(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasum_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + real(c_double),target :: myResult + ! + hipblasDzasum_64_typed = hipblasDzasum_64_(handle,n,x,incx,c_loc(myResult)) + end function + + function hipblasSaxpy_typed(handle,n,alpha,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpy_typed + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: y + integer(c_int) :: incy + ! + hipblasSaxpy_typed = hipblasSaxpy_(handle,n,c_loc(alpha),x,incx,y,incy) + end function + + function hipblasDaxpy_typed(handle,n,alpha,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpy_typed + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: y + integer(c_int) :: incy + ! + hipblasDaxpy_typed = hipblasDaxpy_(handle,n,c_loc(alpha),x,incx,y,incy) + end function + + function hipblasCaxpy_typed(handle,n,alpha,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpy_typed + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: y + integer(c_int) :: incy + ! + hipblasCaxpy_typed = hipblasCaxpy_(handle,n,c_loc(alpha),x,incx,y,incy) + end function + + function hipblasZaxpy_typed(handle,n,alpha,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpy_typed + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: y + integer(c_int) :: incy + ! + hipblasZaxpy_typed = hipblasZaxpy_(handle,n,c_loc(alpha),x,incx,y,incy) + end function + + function hipblasSaxpy_64_typed(handle,n,alpha,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpy_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: y + integer(c_int64_t) :: incy + ! + hipblasSaxpy_64_typed = hipblasSaxpy_64_(handle,n,c_loc(alpha),x,incx,y,incy) + end function + + function hipblasDaxpy_64_typed(handle,n,alpha,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpy_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: y + integer(c_int64_t) :: incy + ! + hipblasDaxpy_64_typed = hipblasDaxpy_64_(handle,n,c_loc(alpha),x,incx,y,incy) + end function + + function hipblasCaxpy_64_typed(handle,n,alpha,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpy_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: y + integer(c_int64_t) :: incy + ! + hipblasCaxpy_64_typed = hipblasCaxpy_64_(handle,n,c_loc(alpha),x,incx,y,incy) + end function + + function hipblasZaxpy_64_typed(handle,n,alpha,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpy_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: y + integer(c_int64_t) :: incy + ! + hipblasZaxpy_64_typed = hipblasZaxpy_64_(handle,n,c_loc(alpha),x,incx,y,incy) + end function + + function hipblasSaxpyBatched_typed(handle,n,alpha,x,incx,y,incy,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpyBatched_typed + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target :: alpha + type(c_ptr), value :: x + integer(c_int) :: incx + type(c_ptr), value :: y + integer(c_int) :: incy + integer(c_int) :: batchCount + ! + hipblasSaxpyBatched_typed = hipblasSaxpyBatched_(handle,n,c_loc(alpha),x,incx,y,incy, & + batchCount) + end function + + function hipblasDaxpyBatched_typed(handle,n,alpha,x,incx,y,incy,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpyBatched_typed + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target :: alpha + type(c_ptr), value :: x + integer(c_int) :: incx + type(c_ptr), value :: y + integer(c_int) :: incy + integer(c_int) :: batchCount + ! + hipblasDaxpyBatched_typed = hipblasDaxpyBatched_(handle,n,c_loc(alpha),x,incx,y,incy, & + batchCount) + end function + + function hipblasCaxpyBatched_typed(handle,n,alpha,x,incx,y,incy,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpyBatched_typed + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target :: alpha + type(c_ptr), value :: x + integer(c_int) :: incx + type(c_ptr), value :: y + integer(c_int) :: incy + integer(c_int) :: batchCount + ! + hipblasCaxpyBatched_typed = hipblasCaxpyBatched_(handle,n,c_loc(alpha),x,incx,y,incy, & + batchCount) + end function + + function hipblasZaxpyBatched_typed(handle,n,alpha,x,incx,y,incy,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpyBatched_typed + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target :: alpha + type(c_ptr), value :: x + integer(c_int) :: incx + type(c_ptr), value :: y + integer(c_int) :: incy + integer(c_int) :: batchCount + ! + hipblasZaxpyBatched_typed = hipblasZaxpyBatched_(handle,n,c_loc(alpha),x,incx,y,incy, & + batchCount) + end function + + function hipblasSaxpyBatched_64_typed(handle,n,alpha,x,incx,y,incy,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpyBatched_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target :: alpha + type(c_ptr), value :: x + integer(c_int64_t) :: incx + type(c_ptr), value :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: batchCount + ! + hipblasSaxpyBatched_64_typed = hipblasSaxpyBatched_64_(handle,n,c_loc(alpha),x,incx,y,incy, & + batchCount) + end function + + function hipblasDaxpyBatched_64_typed(handle,n,alpha,x,incx,y,incy,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpyBatched_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target :: alpha + type(c_ptr), value :: x + integer(c_int64_t) :: incx + type(c_ptr), value :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: batchCount + ! + hipblasDaxpyBatched_64_typed = hipblasDaxpyBatched_64_(handle,n,c_loc(alpha),x,incx,y,incy, & + batchCount) + end function + + function hipblasCaxpyBatched_64_typed(handle,n,alpha,x,incx,y,incy,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpyBatched_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + type(c_ptr), value :: x + integer(c_int64_t) :: incx + type(c_ptr), value :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: batchCount + ! + hipblasCaxpyBatched_64_typed = hipblasCaxpyBatched_64_(handle,n,c_loc(alpha),x,incx,y,incy, & + batchCount) + end function + + function hipblasZaxpyBatched_64_typed(handle,n,alpha,x,incx,y,incy,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpyBatched_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + type(c_ptr), value :: x + integer(c_int64_t) :: incx + type(c_ptr), value :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: batchCount + ! + hipblasZaxpyBatched_64_typed = hipblasZaxpyBatched_64_(handle,n,c_loc(alpha),x,incx,y,incy, & + batchCount) + end function + + function hipblasSaxpyStridedBatched_typed(handle,n,alpha,x,incx,stridex,y,incy,stridey, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpyStridedBatched_typed + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasSaxpyStridedBatched_typed = hipblasSaxpyStridedBatched_(handle,n,c_loc(alpha),x,incx, & + stridex,y,incy,stridey,batchCount) + end function + + function hipblasDaxpyStridedBatched_typed(handle,n,alpha,x,incx,stridex,y,incy,stridey, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpyStridedBatched_typed + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasDaxpyStridedBatched_typed = hipblasDaxpyStridedBatched_(handle,n,c_loc(alpha),x,incx, & + stridex,y,incy,stridey,batchCount) + end function + + function hipblasCaxpyStridedBatched_typed(handle,n,alpha,x,incx,stridex,y,incy,stridey, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpyStridedBatched_typed + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasCaxpyStridedBatched_typed = hipblasCaxpyStridedBatched_(handle,n,c_loc(alpha),x,incx, & + stridex,y,incy,stridey,batchCount) + end function + + function hipblasZaxpyStridedBatched_typed(handle,n,alpha,x,incx,stridex,y,incy,stridey, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpyStridedBatched_typed + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZaxpyStridedBatched_typed = hipblasZaxpyStridedBatched_(handle,n,c_loc(alpha),x,incx, & + stridex,y,incy,stridey,batchCount) + end function + + function hipblasSaxpyStridedBatched_64_typed(handle,n,alpha,x,incx,stridex,y,incy,stridey, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpyStridedBatched_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasSaxpyStridedBatched_64_typed = hipblasSaxpyStridedBatched_64_(handle,n,c_loc(alpha), & + x,incx,stridex,y,incy,stridey,batchCount) + end function + + function hipblasDaxpyStridedBatched_64_typed(handle,n,alpha,x,incx,stridex,y,incy,stridey, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpyStridedBatched_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasDaxpyStridedBatched_64_typed = hipblasDaxpyStridedBatched_64_(handle,n,c_loc(alpha), & + x,incx,stridex,y,incy,stridey,batchCount) + end function + + function hipblasCaxpyStridedBatched_64_typed(handle,n,alpha,x,incx,stridex,y,incy,stridey, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpyStridedBatched_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasCaxpyStridedBatched_64_typed = hipblasCaxpyStridedBatched_64_(handle,n,c_loc(alpha), & + x,incx,stridex,y,incy,stridey,batchCount) + end function + + function hipblasZaxpyStridedBatched_64_typed(handle,n,alpha,x,incx,stridex,y,incy,stridey, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpyStridedBatched_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZaxpyStridedBatched_64_typed = hipblasZaxpyStridedBatched_64_(handle,n,c_loc(alpha), & + x,incx,stridex,y,incy,stridey,batchCount) + end function + + function hipblasSdot_typed(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdot_typed + type(c_ptr), value :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: y + integer(c_int) :: incy + real(c_float),target :: myResult + ! + hipblasSdot_typed = hipblasSdot_(handle,n,x,incx,y,incy,c_loc(myResult)) + end function + + function hipblasDdot_typed(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdot_typed + type(c_ptr), value :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: y + integer(c_int) :: incy + real(c_double),target :: myResult + ! + hipblasDdot_typed = hipblasDdot_(handle,n,x,incx,y,incy,c_loc(myResult)) + end function + + function hipblasCdotc_typed(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotc_typed + type(c_ptr), value :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: y + integer(c_int) :: incy + complex(c_float_complex),target :: myResult + ! + hipblasCdotc_typed = hipblasCdotc_(handle,n,x,incx,y,incy,c_loc(myResult)) + end function + + function hipblasCdotu_typed(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotu_typed + type(c_ptr), value :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: y + integer(c_int) :: incy + complex(c_float_complex),target :: myResult + ! + hipblasCdotu_typed = hipblasCdotu_(handle,n,x,incx,y,incy,c_loc(myResult)) + end function + + function hipblasZdotc_typed(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotc_typed + type(c_ptr), value :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: y + integer(c_int) :: incy + complex(c_double_complex),target :: myResult + ! + hipblasZdotc_typed = hipblasZdotc_(handle,n,x,incx,y,incy,c_loc(myResult)) + end function + + function hipblasZdotu_typed(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotu_typed + type(c_ptr), value :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: y + integer(c_int) :: incy + complex(c_double_complex),target :: myResult + ! + hipblasZdotu_typed = hipblasZdotu_(handle,n,x,incx,y,incy,c_loc(myResult)) + end function + + function hipblasSdot_64_typed(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdot_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: y + integer(c_int64_t) :: incy + real(c_float),target :: myResult + ! + hipblasSdot_64_typed = hipblasSdot_64_(handle,n,x,incx,y,incy,c_loc(myResult)) + end function + + function hipblasDdot_64_typed(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdot_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: y + integer(c_int64_t) :: incy + real(c_double),target :: myResult + ! + hipblasDdot_64_typed = hipblasDdot_64_(handle,n,x,incx,y,incy,c_loc(myResult)) + end function + + function hipblasCdotc_64_typed(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotc_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: y + integer(c_int64_t) :: incy + complex(c_float_complex),target :: myResult + ! + hipblasCdotc_64_typed = hipblasCdotc_64_(handle,n,x,incx,y,incy,c_loc(myResult)) + end function + + function hipblasCdotu_64_typed(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotu_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: y + integer(c_int64_t) :: incy + complex(c_float_complex),target :: myResult + ! + hipblasCdotu_64_typed = hipblasCdotu_64_(handle,n,x,incx,y,incy,c_loc(myResult)) + end function + + function hipblasZdotc_64_typed(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotc_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: y + integer(c_int64_t) :: incy + complex(c_double_complex),target :: myResult + ! + hipblasZdotc_64_typed = hipblasZdotc_64_(handle,n,x,incx,y,incy,c_loc(myResult)) + end function + + function hipblasZdotu_64_typed(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotu_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: y + integer(c_int64_t) :: incy + complex(c_double_complex),target :: myResult + ! + hipblasZdotu_64_typed = hipblasZdotu_64_(handle,n,x,incx,y,incy,c_loc(myResult)) + end function + + function hipblasSnrm2_typed(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2_typed + type(c_ptr), value :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + real(c_float),target :: myResult + ! + hipblasSnrm2_typed = hipblasSnrm2_(handle,n,x,incx,c_loc(myResult)) + end function + + function hipblasDnrm2_typed(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2_typed + type(c_ptr), value :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + real(c_double),target :: myResult + ! + hipblasDnrm2_typed = hipblasDnrm2_(handle,n,x,incx,c_loc(myResult)) + end function + + function hipblasScnrm2_typed(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2_typed + type(c_ptr), value :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + real(c_float),target :: myResult + ! + hipblasScnrm2_typed = hipblasScnrm2_(handle,n,x,incx,c_loc(myResult)) + end function + + function hipblasDznrm2_typed(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2_typed + type(c_ptr), value :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + real(c_double),target :: myResult + ! + hipblasDznrm2_typed = hipblasDznrm2_(handle,n,x,incx,c_loc(myResult)) + end function + + function hipblasSnrm2_64_typed(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + real(c_float),target :: myResult + ! + hipblasSnrm2_64_typed = hipblasSnrm2_64_(handle,n,x,incx,c_loc(myResult)) + end function + + function hipblasDnrm2_64_typed(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + real(c_double),target :: myResult + ! + hipblasDnrm2_64_typed = hipblasDnrm2_64_(handle,n,x,incx,c_loc(myResult)) + end function + + function hipblasScnrm2_64_typed(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + real(c_float),target :: myResult + ! + hipblasScnrm2_64_typed = hipblasScnrm2_64_(handle,n,x,incx,c_loc(myResult)) + end function + + function hipblasDznrm2_64_typed(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + real(c_double),target :: myResult + ! + hipblasDznrm2_64_typed = hipblasDznrm2_64_(handle,n,x,incx,c_loc(myResult)) + end function + + function hipblasSrot_typed(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrot_typed + type(c_ptr), value :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: y + integer(c_int) :: incy + real(c_float),target :: c + real(c_float),target :: s + ! + hipblasSrot_typed = hipblasSrot_(handle,n,x,incx,y,incy,c_loc(c),c_loc(s)) + end function + + function hipblasDrot_typed(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrot_typed + type(c_ptr), value :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: y + integer(c_int) :: incy + real(c_double),target :: c + real(c_double),target :: s + ! + hipblasDrot_typed = hipblasDrot_(handle,n,x,incx,y,incy,c_loc(c),c_loc(s)) + end function + + function hipblasCrot_typed(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrot_typed + type(c_ptr), value :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: y + integer(c_int) :: incy + real(c_float),target :: c + complex(c_float_complex),target :: s + ! + hipblasCrot_typed = hipblasCrot_(handle,n,x,incx,y,incy,c_loc(c),c_loc(s)) + end function + + function hipblasCsrot_typed(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrot_typed + type(c_ptr), value :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: y + integer(c_int) :: incy + real(c_float),target :: c + real(c_float),target :: s + ! + hipblasCsrot_typed = hipblasCsrot_(handle,n,x,incx,y,incy,c_loc(c),c_loc(s)) + end function + + function hipblasZrot_typed(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrot_typed + type(c_ptr), value :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: y + integer(c_int) :: incy + real(c_double),target :: c + complex(c_double_complex),target :: s + ! + hipblasZrot_typed = hipblasZrot_(handle,n,x,incx,y,incy,c_loc(c),c_loc(s)) + end function + + function hipblasZdrot_typed(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrot_typed + type(c_ptr), value :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: y + integer(c_int) :: incy + real(c_double),target :: c + real(c_double),target :: s + ! + hipblasZdrot_typed = hipblasZdrot_(handle,n,x,incx,y,incy,c_loc(c),c_loc(s)) + end function + + function hipblasSrot_64_typed(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrot_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: y + integer(c_int64_t) :: incy + real(c_float),target :: c + real(c_float),target :: s + ! + hipblasSrot_64_typed = hipblasSrot_64_(handle,n,x,incx,y,incy,c_loc(c),c_loc(s)) + end function + + function hipblasDrot_64_typed(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrot_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: y + integer(c_int64_t) :: incy + real(c_double),target :: c + real(c_double),target :: s + ! + hipblasDrot_64_typed = hipblasDrot_64_(handle,n,x,incx,y,incy,c_loc(c),c_loc(s)) + end function + + function hipblasCrot_64_typed(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrot_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: y + integer(c_int64_t) :: incy + real(c_float),target :: c + complex(c_float_complex),target :: s + ! + hipblasCrot_64_typed = hipblasCrot_64_(handle,n,x,incx,y,incy,c_loc(c),c_loc(s)) + end function + + function hipblasCsrot_64_typed(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrot_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: y + integer(c_int64_t) :: incy + real(c_float),target :: c + real(c_float),target :: s + ! + hipblasCsrot_64_typed = hipblasCsrot_64_(handle,n,x,incx,y,incy,c_loc(c),c_loc(s)) + end function + + function hipblasZrot_64_typed(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrot_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: y + integer(c_int64_t) :: incy + real(c_double),target :: c + complex(c_double_complex),target :: s + ! + hipblasZrot_64_typed = hipblasZrot_64_(handle,n,x,incx,y,incy,c_loc(c),c_loc(s)) + end function + + function hipblasZdrot_64_typed(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrot_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: y + integer(c_int64_t) :: incy + real(c_double),target :: c + real(c_double),target :: s + ! + hipblasZdrot_64_typed = hipblasZdrot_64_(handle,n,x,incx,y,incy,c_loc(c),c_loc(s)) + end function + + function hipblasSrotg_typed(handle,a,b,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotg_typed + type(c_ptr), value :: handle + real(c_float),target :: a + real(c_float),target :: b + real(c_float),target :: c + real(c_float),target :: s + ! + hipblasSrotg_typed = hipblasSrotg_(handle,c_loc(a),c_loc(b),c_loc(c),c_loc(s)) + end function + + function hipblasDrotg_typed(handle,a,b,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotg_typed + type(c_ptr), value :: handle + real(c_double),target :: a + real(c_double),target :: b + real(c_double),target :: c + real(c_double),target :: s + ! + hipblasDrotg_typed = hipblasDrotg_(handle,c_loc(a),c_loc(b),c_loc(c),c_loc(s)) + end function + + function hipblasCrotg_typed(handle,a,b,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotg_typed + type(c_ptr), value :: handle + complex(c_float_complex),target :: a + complex(c_float_complex),target :: b + real(c_float),target :: c + complex(c_float_complex),target :: s + ! + hipblasCrotg_typed = hipblasCrotg_(handle,c_loc(a),c_loc(b),c_loc(c),c_loc(s)) + end function + + function hipblasZrotg_typed(handle,a,b,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotg_typed + type(c_ptr), value :: handle + complex(c_double_complex),target :: a + complex(c_double_complex),target :: b + real(c_double),target :: c + complex(c_double_complex),target :: s + ! + hipblasZrotg_typed = hipblasZrotg_(handle,c_loc(a),c_loc(b),c_loc(c),c_loc(s)) + end function + + function hipblasSrotg_64_typed(handle,a,b,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotg_64_typed + type(c_ptr), value :: handle + real(c_float),target :: a + real(c_float),target :: b + real(c_float),target :: c + real(c_float),target :: s + ! + hipblasSrotg_64_typed = hipblasSrotg_64_(handle,c_loc(a),c_loc(b),c_loc(c),c_loc(s)) + end function + + function hipblasDrotg_64_typed(handle,a,b,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotg_64_typed + type(c_ptr), value :: handle + real(c_double),target :: a + real(c_double),target :: b + real(c_double),target :: c + real(c_double),target :: s + ! + hipblasDrotg_64_typed = hipblasDrotg_64_(handle,c_loc(a),c_loc(b),c_loc(c),c_loc(s)) + end function + + function hipblasCrotg_64_typed(handle,a,b,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotg_64_typed + type(c_ptr), value :: handle + complex(c_float_complex),target :: a + complex(c_float_complex),target :: b + real(c_float),target :: c + complex(c_float_complex),target :: s + ! + hipblasCrotg_64_typed = hipblasCrotg_64_(handle,c_loc(a),c_loc(b),c_loc(c),c_loc(s)) + end function + + function hipblasZrotg_64_typed(handle,a,b,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotg_64_typed + type(c_ptr), value :: handle + complex(c_double_complex),target :: a + complex(c_double_complex),target :: b + real(c_double),target :: c + complex(c_double_complex),target :: s + ! + hipblasZrotg_64_typed = hipblasZrotg_64_(handle,c_loc(a),c_loc(b),c_loc(c),c_loc(s)) + end function + + function hipblasSrotmg_typed(handle,d1,d2,x1,y1,param) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmg_typed + type(c_ptr), value :: handle + real(c_float),target :: d1 + real(c_float),target :: d2 + real(c_float),target :: x1 + real(c_float),target :: y1 + type(c_ptr) :: param + ! + hipblasSrotmg_typed = hipblasSrotmg_(handle,c_loc(d1),c_loc(d2),c_loc(x1),c_loc(y1),param) + end function + + function hipblasDrotmg_typed(handle,d1,d2,x1,y1,param) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmg_typed + type(c_ptr), value :: handle + real(c_double),target :: d1 + real(c_double),target :: d2 + real(c_double),target :: x1 + real(c_double),target :: y1 + type(c_ptr) :: param + ! + hipblasDrotmg_typed = hipblasDrotmg_(handle,c_loc(d1),c_loc(d2),c_loc(x1),c_loc(y1),param) + end function + + function hipblasSrotmg_64_typed(handle,d1,d2,x1,y1,param) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmg_64_typed + type(c_ptr), value :: handle + real(c_float),target :: d1 + real(c_float),target :: d2 + real(c_float),target :: x1 + real(c_float),target :: y1 + type(c_ptr) :: param + ! + hipblasSrotmg_64_typed = hipblasSrotmg_64_(handle,c_loc(d1),c_loc(d2),c_loc(x1),c_loc(y1), & + param) + end function + + function hipblasDrotmg_64_typed(handle,d1,d2,x1,y1,param) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmg_64_typed + type(c_ptr), value :: handle + real(c_double),target :: d1 + real(c_double),target :: d2 + real(c_double),target :: x1 + real(c_double),target :: y1 + type(c_ptr) :: param + ! + hipblasDrotmg_64_typed = hipblasDrotmg_64_(handle,c_loc(d1),c_loc(d2),c_loc(x1),c_loc(y1), & + param) + end function + + function hipblasSscal_typed(handle,n,alpha,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscal_typed + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + ! + hipblasSscal_typed = hipblasSscal_(handle,n,c_loc(alpha),x,incx) + end function + + function hipblasDscal_typed(handle,n,alpha,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscal_typed + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + ! + hipblasDscal_typed = hipblasDscal_(handle,n,c_loc(alpha),x,incx) + end function + + function hipblasCscal_typed(handle,n,alpha,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscal_typed + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + ! + hipblasCscal_typed = hipblasCscal_(handle,n,c_loc(alpha),x,incx) + end function + + function hipblasCsscal_typed(handle,n,alpha,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscal_typed + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + ! + hipblasCsscal_typed = hipblasCsscal_(handle,n,c_loc(alpha),x,incx) + end function + + function hipblasZscal_typed(handle,n,alpha,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscal_typed + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + ! + hipblasZscal_typed = hipblasZscal_(handle,n,c_loc(alpha),x,incx) + end function + + function hipblasZdscal_typed(handle,n,alpha,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscal_typed + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + ! + hipblasZdscal_typed = hipblasZdscal_(handle,n,c_loc(alpha),x,incx) + end function + + function hipblasSscal_64_typed(handle,n,alpha,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscal_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + ! + hipblasSscal_64_typed = hipblasSscal_64_(handle,n,c_loc(alpha),x,incx) + end function + + function hipblasDscal_64_typed(handle,n,alpha,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscal_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + ! + hipblasDscal_64_typed = hipblasDscal_64_(handle,n,c_loc(alpha),x,incx) + end function + + function hipblasCscal_64_typed(handle,n,alpha,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscal_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + ! + hipblasCscal_64_typed = hipblasCscal_64_(handle,n,c_loc(alpha),x,incx) + end function + + function hipblasCsscal_64_typed(handle,n,alpha,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscal_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + ! + hipblasCsscal_64_typed = hipblasCsscal_64_(handle,n,c_loc(alpha),x,incx) + end function + + function hipblasZscal_64_typed(handle,n,alpha,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscal_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + ! + hipblasZscal_64_typed = hipblasZscal_64_(handle,n,c_loc(alpha),x,incx) + end function + + function hipblasZdscal_64_typed(handle,n,alpha,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscal_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + ! + hipblasZdscal_64_typed = hipblasZdscal_64_(handle,n,c_loc(alpha),x,incx) + end function + + function hipblasSscalBatched_typed(handle,n,alpha,x,incx,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscalBatched_typed + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target :: alpha + type(c_ptr), value :: x + integer(c_int) :: incx + integer(c_int) :: batchCount + ! + hipblasSscalBatched_typed = hipblasSscalBatched_(handle,n,c_loc(alpha),x,incx,batchCount) + end function + + function hipblasDscalBatched_typed(handle,n,alpha,x,incx,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscalBatched_typed + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target :: alpha + type(c_ptr), value :: x + integer(c_int) :: incx + integer(c_int) :: batchCount + ! + hipblasDscalBatched_typed = hipblasDscalBatched_(handle,n,c_loc(alpha),x,incx,batchCount) + end function + + function hipblasCscalBatched_typed(handle,n,alpha,x,incx,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscalBatched_typed + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target :: alpha + type(c_ptr), value :: x + integer(c_int) :: incx + integer(c_int) :: batchCount + ! + hipblasCscalBatched_typed = hipblasCscalBatched_(handle,n,c_loc(alpha),x,incx,batchCount) + end function + + function hipblasZscalBatched_typed(handle,n,alpha,x,incx,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscalBatched_typed + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target :: alpha + type(c_ptr), value :: x + integer(c_int) :: incx + integer(c_int) :: batchCount + ! + hipblasZscalBatched_typed = hipblasZscalBatched_(handle,n,c_loc(alpha),x,incx,batchCount) + end function + + function hipblasCsscalBatched_typed(handle,n,alpha,x,incx,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscalBatched_typed + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target :: alpha + type(c_ptr), value :: x + integer(c_int) :: incx + integer(c_int) :: batchCount + ! + hipblasCsscalBatched_typed = hipblasCsscalBatched_(handle,n,c_loc(alpha),x,incx,batchCount) + end function + + function hipblasZdscalBatched_typed(handle,n,alpha,x,incx,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscalBatched_typed + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target :: alpha + type(c_ptr), value :: x + integer(c_int) :: incx + integer(c_int) :: batchCount + ! + hipblasZdscalBatched_typed = hipblasZdscalBatched_(handle,n,c_loc(alpha),x,incx,batchCount) + end function + + function hipblasSscalBatched_64_typed(handle,n,alpha,x,incx,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscalBatched_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target :: alpha + type(c_ptr), value :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: batchCount + ! + hipblasSscalBatched_64_typed = hipblasSscalBatched_64_(handle,n,c_loc(alpha),x,incx, & + batchCount) + end function + + function hipblasDscalBatched_64_typed(handle,n,alpha,x,incx,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscalBatched_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target :: alpha + type(c_ptr), value :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: batchCount + ! + hipblasDscalBatched_64_typed = hipblasDscalBatched_64_(handle,n,c_loc(alpha),x,incx, & + batchCount) + end function + + function hipblasCscalBatched_64_typed(handle,n,alpha,x,incx,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscalBatched_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + type(c_ptr), value :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: batchCount + ! + hipblasCscalBatched_64_typed = hipblasCscalBatched_64_(handle,n,c_loc(alpha),x,incx, & + batchCount) + end function + + function hipblasZscalBatched_64_typed(handle,n,alpha,x,incx,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscalBatched_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + type(c_ptr), value :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: batchCount + ! + hipblasZscalBatched_64_typed = hipblasZscalBatched_64_(handle,n,c_loc(alpha),x,incx, & + batchCount) + end function + + function hipblasCsscalBatched_64_typed(handle,n,alpha,x,incx,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscalBatched_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target :: alpha + type(c_ptr), value :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: batchCount + ! + hipblasCsscalBatched_64_typed = hipblasCsscalBatched_64_(handle,n,c_loc(alpha),x,incx, & + batchCount) + end function + + function hipblasZdscalBatched_64_typed(handle,n,alpha,x,incx,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscalBatched_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target :: alpha + type(c_ptr), value :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: batchCount + ! + hipblasZdscalBatched_64_typed = hipblasZdscalBatched_64_(handle,n,c_loc(alpha),x,incx, & + batchCount) + end function + + function hipblasSscalStridedBatched_typed(handle,n,alpha,x,incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscalStridedBatched_typed + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasSscalStridedBatched_typed = hipblasSscalStridedBatched_(handle,n,c_loc(alpha),x,incx, & + stridex,batchCount) + end function + + function hipblasDscalStridedBatched_typed(handle,n,alpha,x,incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscalStridedBatched_typed + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasDscalStridedBatched_typed = hipblasDscalStridedBatched_(handle,n,c_loc(alpha),x,incx, & + stridex,batchCount) + end function + + function hipblasCscalStridedBatched_typed(handle,n,alpha,x,incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscalStridedBatched_typed + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasCscalStridedBatched_typed = hipblasCscalStridedBatched_(handle,n,c_loc(alpha),x,incx, & + stridex,batchCount) + end function + + function hipblasZscalStridedBatched_typed(handle,n,alpha,x,incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscalStridedBatched_typed + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasZscalStridedBatched_typed = hipblasZscalStridedBatched_(handle,n,c_loc(alpha),x,incx, & + stridex,batchCount) + end function + + function hipblasCsscalStridedBatched_typed(handle,n,alpha,x,incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscalStridedBatched_typed + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasCsscalStridedBatched_typed = hipblasCsscalStridedBatched_(handle,n,c_loc(alpha),x, & + incx,stridex,batchCount) + end function + + function hipblasZdscalStridedBatched_typed(handle,n,alpha,x,incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscalStridedBatched_typed + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasZdscalStridedBatched_typed = hipblasZdscalStridedBatched_(handle,n,c_loc(alpha),x, & + incx,stridex,batchCount) + end function + + function hipblasSscalStridedBatched_64_typed(handle,n,alpha,x,incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscalStridedBatched_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasSscalStridedBatched_64_typed = hipblasSscalStridedBatched_64_(handle,n,c_loc(alpha), & + x,incx,stridex,batchCount) + end function + + function hipblasDscalStridedBatched_64_typed(handle,n,alpha,x,incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscalStridedBatched_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasDscalStridedBatched_64_typed = hipblasDscalStridedBatched_64_(handle,n,c_loc(alpha), & + x,incx,stridex,batchCount) + end function + + function hipblasCscalStridedBatched_64_typed(handle,n,alpha,x,incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscalStridedBatched_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasCscalStridedBatched_64_typed = hipblasCscalStridedBatched_64_(handle,n,c_loc(alpha), & + x,incx,stridex,batchCount) + end function + + function hipblasZscalStridedBatched_64_typed(handle,n,alpha,x,incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscalStridedBatched_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasZscalStridedBatched_64_typed = hipblasZscalStridedBatched_64_(handle,n,c_loc(alpha), & + x,incx,stridex,batchCount) + end function + + function hipblasCsscalStridedBatched_64_typed(handle,n,alpha,x,incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscalStridedBatched_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasCsscalStridedBatched_64_typed = hipblasCsscalStridedBatched_64_(handle,n, & + c_loc(alpha),x,incx,stridex,batchCount) + end function + + function hipblasZdscalStridedBatched_64_typed(handle,n,alpha,x,incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscalStridedBatched_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasZdscalStridedBatched_64_typed = hipblasZdscalStridedBatched_64_(handle,n, & + c_loc(alpha),x,incx,stridex,batchCount) + end function + + function hipblasSgbmv_typed(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmv_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku + real(c_float),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + type(c_ptr) :: x + integer(c_int) :: incx + real(c_float),target :: beta + type(c_ptr) :: y + integer(c_int) :: incy + ! + hipblasSgbmv_typed = hipblasSgbmv_(handle,trans,m,n,kl,ku,c_loc(alpha),AP,lda,x,incx, & + c_loc(beta),y,incy) + end function + + function hipblasDgbmv_typed(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmv_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku + real(c_double),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + type(c_ptr) :: x + integer(c_int) :: incx + real(c_double),target :: beta + type(c_ptr) :: y + integer(c_int) :: incy + ! + hipblasDgbmv_typed = hipblasDgbmv_(handle,trans,m,n,kl,ku,c_loc(alpha),AP,lda,x,incx, & + c_loc(beta),y,incy) + end function + + function hipblasCgbmv_typed(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmv_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku + complex(c_float_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + type(c_ptr) :: x + integer(c_int) :: incx + complex(c_float_complex),target :: beta + type(c_ptr) :: y + integer(c_int) :: incy + ! + hipblasCgbmv_typed = hipblasCgbmv_(handle,trans,m,n,kl,ku,c_loc(alpha),AP,lda,x,incx, & + c_loc(beta),y,incy) + end function + + function hipblasZgbmv_typed(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmv_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku + complex(c_double_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + type(c_ptr) :: x + integer(c_int) :: incx + complex(c_double_complex),target :: beta + type(c_ptr) :: y + integer(c_int) :: incy + ! + hipblasZgbmv_typed = hipblasZgbmv_(handle,trans,m,n,kl,ku,c_loc(alpha),AP,lda,x,incx, & + c_loc(beta),y,incy) + end function + + function hipblasSgbmv_64_typed(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmv_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + real(c_float),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + type(c_ptr) :: x + integer(c_int64_t) :: incx + real(c_float),target :: beta + type(c_ptr) :: y + integer(c_int64_t) :: incy + ! + hipblasSgbmv_64_typed = hipblasSgbmv_64_(handle,trans,m,n,kl,ku,c_loc(alpha),AP,lda,x,incx, & + c_loc(beta),y,incy) + end function + + function hipblasDgbmv_64_typed(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmv_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + real(c_double),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + type(c_ptr) :: x + integer(c_int64_t) :: incx + real(c_double),target :: beta + type(c_ptr) :: y + integer(c_int64_t) :: incy + ! + hipblasDgbmv_64_typed = hipblasDgbmv_64_(handle,trans,m,n,kl,ku,c_loc(alpha),AP,lda,x,incx, & + c_loc(beta),y,incy) + end function + + function hipblasCgbmv_64_typed(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmv_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + complex(c_float_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + type(c_ptr) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: beta + type(c_ptr) :: y + integer(c_int64_t) :: incy + ! + hipblasCgbmv_64_typed = hipblasCgbmv_64_(handle,trans,m,n,kl,ku,c_loc(alpha),AP,lda,x,incx, & + c_loc(beta),y,incy) + end function + + function hipblasZgbmv_64_typed(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmv_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + complex(c_double_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + type(c_ptr) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: beta + type(c_ptr) :: y + integer(c_int64_t) :: incy + ! + hipblasZgbmv_64_typed = hipblasZgbmv_64_(handle,trans,m,n,kl,ku,c_loc(alpha),AP,lda,x,incx, & + c_loc(beta),y,incy) + end function + + function hipblasSgbmvBatched_typed(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmvBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku + real(c_float),target :: alpha + type(c_ptr), value :: AP + integer(c_int) :: lda + type(c_ptr), value :: x + integer(c_int) :: incx + real(c_float),target :: beta + type(c_ptr), value :: y + integer(c_int) :: incy + integer(c_int) :: batchCount + ! + hipblasSgbmvBatched_typed = hipblasSgbmvBatched_(handle,trans,m,n,kl,ku,c_loc(alpha),AP,lda, & + x,incx,c_loc(beta),y,incy,batchCount) + end function + + function hipblasDgbmvBatched_typed(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmvBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku + real(c_double),target :: alpha + type(c_ptr), value :: AP + integer(c_int) :: lda + type(c_ptr), value :: x + integer(c_int) :: incx + real(c_double),target :: beta + type(c_ptr), value :: y + integer(c_int) :: incy + integer(c_int) :: batchCount + ! + hipblasDgbmvBatched_typed = hipblasDgbmvBatched_(handle,trans,m,n,kl,ku,c_loc(alpha),AP,lda, & + x,incx,c_loc(beta),y,incy,batchCount) + end function + + function hipblasCgbmvBatched_typed(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmvBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku + complex(c_float_complex),target :: alpha + type(c_ptr), value :: AP + integer(c_int) :: lda + type(c_ptr), value :: x + integer(c_int) :: incx + complex(c_float_complex),target :: beta + type(c_ptr), value :: y + integer(c_int) :: incy + integer(c_int) :: batchCount + ! + hipblasCgbmvBatched_typed = hipblasCgbmvBatched_(handle,trans,m,n,kl,ku,c_loc(alpha),AP,lda, & + x,incx,c_loc(beta),y,incy,batchCount) + end function + + function hipblasZgbmvBatched_typed(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmvBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku + complex(c_double_complex),target :: alpha + type(c_ptr), value :: AP + integer(c_int) :: lda + type(c_ptr), value :: x + integer(c_int) :: incx + complex(c_double_complex),target :: beta + type(c_ptr), value :: y + integer(c_int) :: incy + integer(c_int) :: batchCount + ! + hipblasZgbmvBatched_typed = hipblasZgbmvBatched_(handle,trans,m,n,kl,ku,c_loc(alpha),AP,lda, & + x,incx,c_loc(beta),y,incy,batchCount) + end function + + function hipblasSgbmvBatched_64_typed(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmvBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + real(c_float),target :: alpha + type(c_ptr), value :: AP + integer(c_int64_t) :: lda + type(c_ptr), value :: x + integer(c_int64_t) :: incx + real(c_float),target :: beta + type(c_ptr), value :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: batchCount + ! + hipblasSgbmvBatched_64_typed = hipblasSgbmvBatched_64_(handle,trans,m,n,kl,ku,c_loc(alpha), & + AP,lda,x,incx,c_loc(beta),y,incy,batchCount) + end function + + function hipblasDgbmvBatched_64_typed(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmvBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + real(c_double),target :: alpha + type(c_ptr), value :: AP + integer(c_int64_t) :: lda + type(c_ptr), value :: x + integer(c_int64_t) :: incx + real(c_double),target :: beta + type(c_ptr), value :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: batchCount + ! + hipblasDgbmvBatched_64_typed = hipblasDgbmvBatched_64_(handle,trans,m,n,kl,ku,c_loc(alpha), & + AP,lda,x,incx,c_loc(beta),y,incy,batchCount) + end function + + function hipblasCgbmvBatched_64_typed(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmvBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + complex(c_float_complex),target :: alpha + type(c_ptr), value :: AP + integer(c_int64_t) :: lda + type(c_ptr), value :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: beta + type(c_ptr), value :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: batchCount + ! + hipblasCgbmvBatched_64_typed = hipblasCgbmvBatched_64_(handle,trans,m,n,kl,ku,c_loc(alpha), & + AP,lda,x,incx,c_loc(beta),y,incy,batchCount) + end function + + function hipblasZgbmvBatched_64_typed(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmvBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + complex(c_double_complex),target :: alpha + type(c_ptr), value :: AP + integer(c_int64_t) :: lda + type(c_ptr), value :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: beta + type(c_ptr), value :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: batchCount + ! + hipblasZgbmvBatched_64_typed = hipblasZgbmvBatched_64_(handle,trans,m,n,kl,ku,c_loc(alpha), & + AP,lda,x,incx,c_loc(beta),y,incy,batchCount) + end function + + function hipblasSgbmvStridedBatched_typed(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmvStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku + real(c_float),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + type(c_ptr) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasSgbmvStridedBatched_typed = hipblasSgbmvStridedBatched_(handle,trans,m,n,kl,ku, & + c_loc(alpha),AP,lda,strideA,x,incx,stridex,c_loc(beta),y,incy,stridey,batchCount) + end function + + function hipblasDgbmvStridedBatched_typed(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmvStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku + real(c_double),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + type(c_ptr) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasDgbmvStridedBatched_typed = hipblasDgbmvStridedBatched_(handle,trans,m,n,kl,ku, & + c_loc(alpha),AP,lda,strideA,x,incx,stridex,c_loc(beta),y,incy,stridey,batchCount) + end function + + function hipblasCgbmvStridedBatched_typed(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmvStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku + complex(c_float_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + type(c_ptr) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasCgbmvStridedBatched_typed = hipblasCgbmvStridedBatched_(handle,trans,m,n,kl,ku, & + c_loc(alpha),AP,lda,strideA,x,incx,stridex,c_loc(beta),y,incy,stridey,batchCount) + end function + + function hipblasZgbmvStridedBatched_typed(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmvStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku + complex(c_double_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + type(c_ptr) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZgbmvStridedBatched_typed = hipblasZgbmvStridedBatched_(handle,trans,m,n,kl,ku, & + c_loc(alpha),AP,lda,strideA,x,incx,stridex,c_loc(beta),y,incy,stridey,batchCount) + end function + + function hipblasSgbmvStridedBatched_64_typed(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmvStridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + real(c_float),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + type(c_ptr) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasSgbmvStridedBatched_64_typed = hipblasSgbmvStridedBatched_64_(handle,trans,m,n,kl,ku, & + c_loc(alpha),AP,lda,strideA,x,incx,stridex,c_loc(beta),y,incy,stridey,batchCount) + end function + + function hipblasDgbmvStridedBatched_64_typed(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmvStridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + real(c_double),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + type(c_ptr) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasDgbmvStridedBatched_64_typed = hipblasDgbmvStridedBatched_64_(handle,trans,m,n,kl,ku, & + c_loc(alpha),AP,lda,strideA,x,incx,stridex,c_loc(beta),y,incy,stridey,batchCount) + end function + + function hipblasCgbmvStridedBatched_64_typed(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmvStridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + complex(c_float_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + type(c_ptr) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasCgbmvStridedBatched_64_typed = hipblasCgbmvStridedBatched_64_(handle,trans,m,n,kl,ku, & + c_loc(alpha),AP,lda,strideA,x,incx,stridex,c_loc(beta),y,incy,stridey,batchCount) + end function + + function hipblasZgbmvStridedBatched_64_typed(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmvStridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + complex(c_double_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + type(c_ptr) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZgbmvStridedBatched_64_typed = hipblasZgbmvStridedBatched_64_(handle,trans,m,n,kl,ku, & + c_loc(alpha),AP,lda,strideA,x,incx,stridex,c_loc(beta),y,incy,stridey,batchCount) + end function + + function hipblasSgemv_typed(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemv_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + type(c_ptr) :: x + integer(c_int) :: incx + real(c_float),target :: beta + type(c_ptr) :: y + integer(c_int) :: incy + ! + hipblasSgemv_typed = hipblasSgemv_(handle,trans,m,n,c_loc(alpha),AP,lda,x,incx,c_loc(beta), & + y,incy) + end function + + function hipblasDgemv_typed(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemv_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + type(c_ptr) :: x + integer(c_int) :: incx + real(c_double),target :: beta + type(c_ptr) :: y + integer(c_int) :: incy + ! + hipblasDgemv_typed = hipblasDgemv_(handle,trans,m,n,c_loc(alpha),AP,lda,x,incx,c_loc(beta), & + y,incy) + end function + + function hipblasCgemv_typed(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemv_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + type(c_ptr) :: x + integer(c_int) :: incx + complex(c_float_complex),target :: beta + type(c_ptr) :: y + integer(c_int) :: incy + ! + hipblasCgemv_typed = hipblasCgemv_(handle,trans,m,n,c_loc(alpha),AP,lda,x,incx,c_loc(beta), & + y,incy) + end function + + function hipblasZgemv_typed(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemv_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + type(c_ptr) :: x + integer(c_int) :: incx + complex(c_double_complex),target :: beta + type(c_ptr) :: y + integer(c_int) :: incy + ! + hipblasZgemv_typed = hipblasZgemv_(handle,trans,m,n,c_loc(alpha),AP,lda,x,incx,c_loc(beta), & + y,incy) + end function + + function hipblasSgemv_64_typed(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemv_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + type(c_ptr) :: x + integer(c_int64_t) :: incx + real(c_float),target :: beta + type(c_ptr) :: y + integer(c_int64_t) :: incy + ! + hipblasSgemv_64_typed = hipblasSgemv_64_(handle,trans,m,n,c_loc(alpha),AP,lda,x,incx, & + c_loc(beta),y,incy) + end function + + function hipblasDgemv_64_typed(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemv_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + type(c_ptr) :: x + integer(c_int64_t) :: incx + real(c_double),target :: beta + type(c_ptr) :: y + integer(c_int64_t) :: incy + ! + hipblasDgemv_64_typed = hipblasDgemv_64_(handle,trans,m,n,c_loc(alpha),AP,lda,x,incx, & + c_loc(beta),y,incy) + end function + + function hipblasCgemv_64_typed(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemv_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + type(c_ptr) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: beta + type(c_ptr) :: y + integer(c_int64_t) :: incy + ! + hipblasCgemv_64_typed = hipblasCgemv_64_(handle,trans,m,n,c_loc(alpha),AP,lda,x,incx, & + c_loc(beta),y,incy) + end function + + function hipblasZgemv_64_typed(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemv_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + type(c_ptr) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: beta + type(c_ptr) :: y + integer(c_int64_t) :: incy + ! + hipblasZgemv_64_typed = hipblasZgemv_64_(handle,trans,m,n,c_loc(alpha),AP,lda,x,incx, & + c_loc(beta),y,incy) + end function + + function hipblasSgemvBatched_typed(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemvBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + type(c_ptr), value :: AP + integer(c_int) :: lda + type(c_ptr), value :: x + integer(c_int) :: incx + real(c_float),target :: beta + type(c_ptr), value :: y + integer(c_int) :: incy + integer(c_int) :: batchCount + ! + hipblasSgemvBatched_typed = hipblasSgemvBatched_(handle,trans,m,n,c_loc(alpha),AP,lda,x, & + incx,c_loc(beta),y,incy,batchCount) + end function + + function hipblasDgemvBatched_typed(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemvBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + type(c_ptr), value :: AP + integer(c_int) :: lda + type(c_ptr), value :: x + integer(c_int) :: incx + real(c_double),target :: beta + type(c_ptr), value :: y + integer(c_int) :: incy + integer(c_int) :: batchCount + ! + hipblasDgemvBatched_typed = hipblasDgemvBatched_(handle,trans,m,n,c_loc(alpha),AP,lda,x, & + incx,c_loc(beta),y,incy,batchCount) + end function + + function hipblasCgemvBatched_typed(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemvBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + type(c_ptr), value :: AP + integer(c_int) :: lda + type(c_ptr), value :: x + integer(c_int) :: incx + complex(c_float_complex),target :: beta + type(c_ptr), value :: y + integer(c_int) :: incy + integer(c_int) :: batchCount + ! + hipblasCgemvBatched_typed = hipblasCgemvBatched_(handle,trans,m,n,c_loc(alpha),AP,lda,x, & + incx,c_loc(beta),y,incy,batchCount) + end function + + function hipblasZgemvBatched_typed(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemvBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + type(c_ptr), value :: AP + integer(c_int) :: lda + type(c_ptr), value :: x + integer(c_int) :: incx + complex(c_double_complex),target :: beta + type(c_ptr), value :: y + integer(c_int) :: incy + integer(c_int) :: batchCount + ! + hipblasZgemvBatched_typed = hipblasZgemvBatched_(handle,trans,m,n,c_loc(alpha),AP,lda,x, & + incx,c_loc(beta),y,incy,batchCount) + end function + + function hipblasSgemvBatched_64_typed(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemvBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + type(c_ptr), value :: AP + integer(c_int64_t) :: lda + type(c_ptr), value :: x + integer(c_int64_t) :: incx + real(c_float),target :: beta + type(c_ptr), value :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: batchCount + ! + hipblasSgemvBatched_64_typed = hipblasSgemvBatched_64_(handle,trans,m,n,c_loc(alpha),AP,lda, & + x,incx,c_loc(beta),y,incy,batchCount) + end function + + function hipblasDgemvBatched_64_typed(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemvBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + type(c_ptr), value :: AP + integer(c_int64_t) :: lda + type(c_ptr), value :: x + integer(c_int64_t) :: incx + real(c_double),target :: beta + type(c_ptr), value :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: batchCount + ! + hipblasDgemvBatched_64_typed = hipblasDgemvBatched_64_(handle,trans,m,n,c_loc(alpha),AP,lda, & + x,incx,c_loc(beta),y,incy,batchCount) + end function + + function hipblasCgemvBatched_64_typed(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemvBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + type(c_ptr), value :: AP + integer(c_int64_t) :: lda + type(c_ptr), value :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: beta + type(c_ptr), value :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: batchCount + ! + hipblasCgemvBatched_64_typed = hipblasCgemvBatched_64_(handle,trans,m,n,c_loc(alpha),AP,lda, & + x,incx,c_loc(beta),y,incy,batchCount) + end function + + function hipblasZgemvBatched_64_typed(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemvBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + type(c_ptr), value :: AP + integer(c_int64_t) :: lda + type(c_ptr), value :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: beta + type(c_ptr), value :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: batchCount + ! + hipblasZgemvBatched_64_typed = hipblasZgemvBatched_64_(handle,trans,m,n,c_loc(alpha),AP,lda, & + x,incx,c_loc(beta),y,incy,batchCount) + end function + + function hipblasSgemvStridedBatched_typed(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemvStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + type(c_ptr) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasSgemvStridedBatched_typed = hipblasSgemvStridedBatched_(handle,transA,m,n, & + c_loc(alpha),AP,lda,strideA,x,incx,stridex,c_loc(beta),y,incy,stridey,batchCount) + end function + + function hipblasDgemvStridedBatched_typed(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemvStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + type(c_ptr) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasDgemvStridedBatched_typed = hipblasDgemvStridedBatched_(handle,transA,m,n, & + c_loc(alpha),AP,lda,strideA,x,incx,stridex,c_loc(beta),y,incy,stridey,batchCount) + end function + + function hipblasCgemvStridedBatched_typed(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemvStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + type(c_ptr) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasCgemvStridedBatched_typed = hipblasCgemvStridedBatched_(handle,transA,m,n, & + c_loc(alpha),AP,lda,strideA,x,incx,stridex,c_loc(beta),y,incy,stridey,batchCount) + end function + + function hipblasZgemvStridedBatched_typed(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemvStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + type(c_ptr) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZgemvStridedBatched_typed = hipblasZgemvStridedBatched_(handle,transA,m,n, & + c_loc(alpha),AP,lda,strideA,x,incx,stridex,c_loc(beta),y,incy,stridey,batchCount) + end function + + function hipblasSgemvStridedBatched_64_typed(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemvStridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + type(c_ptr) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasSgemvStridedBatched_64_typed = hipblasSgemvStridedBatched_64_(handle,transA,m,n, & + c_loc(alpha),AP,lda,strideA,x,incx,stridex,c_loc(beta),y,incy,stridey,batchCount) + end function + + function hipblasDgemvStridedBatched_64_typed(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemvStridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + type(c_ptr) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasDgemvStridedBatched_64_typed = hipblasDgemvStridedBatched_64_(handle,transA,m,n, & + c_loc(alpha),AP,lda,strideA,x,incx,stridex,c_loc(beta),y,incy,stridey,batchCount) + end function + + function hipblasCgemvStridedBatched_64_typed(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemvStridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + type(c_ptr) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasCgemvStridedBatched_64_typed = hipblasCgemvStridedBatched_64_(handle,transA,m,n, & + c_loc(alpha),AP,lda,strideA,x,incx,stridex,c_loc(beta),y,incy,stridey,batchCount) + end function + + function hipblasZgemvStridedBatched_64_typed(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemvStridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + type(c_ptr) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZgemvStridedBatched_64_typed = hipblasZgemvStridedBatched_64_(handle,transA,m,n, & + c_loc(alpha),AP,lda,strideA,x,incx,stridex,c_loc(beta),y,incy,stridey,batchCount) + end function + + function hipblasSger_typed(handle,m,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSger_typed + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: y + integer(c_int) :: incy + type(c_ptr) :: AP + integer(c_int) :: lda + ! + hipblasSger_typed = hipblasSger_(handle,m,n,c_loc(alpha),x,incx,y,incy,AP,lda) + end function + + function hipblasDger_typed(handle,m,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDger_typed + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: y + integer(c_int) :: incy + type(c_ptr) :: AP + integer(c_int) :: lda + ! + hipblasDger_typed = hipblasDger_(handle,m,n,c_loc(alpha),x,incx,y,incy,AP,lda) + end function + + function hipblasCgeru_typed(handle,m,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeru_typed + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: y + integer(c_int) :: incy + type(c_ptr) :: AP + integer(c_int) :: lda + ! + hipblasCgeru_typed = hipblasCgeru_(handle,m,n,c_loc(alpha),x,incx,y,incy,AP,lda) + end function + + function hipblasCgerc_typed(handle,m,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgerc_typed + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: y + integer(c_int) :: incy + type(c_ptr) :: AP + integer(c_int) :: lda + ! + hipblasCgerc_typed = hipblasCgerc_(handle,m,n,c_loc(alpha),x,incx,y,incy,AP,lda) + end function + + function hipblasZgeru_typed(handle,m,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeru_typed + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: y + integer(c_int) :: incy + type(c_ptr) :: AP + integer(c_int) :: lda + ! + hipblasZgeru_typed = hipblasZgeru_(handle,m,n,c_loc(alpha),x,incx,y,incy,AP,lda) + end function + + function hipblasZgerc_typed(handle,m,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgerc_typed + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: y + integer(c_int) :: incy + type(c_ptr) :: AP + integer(c_int) :: lda + ! + hipblasZgerc_typed = hipblasZgerc_(handle,m,n,c_loc(alpha),x,incx,y,incy,AP,lda) + end function + + function hipblasSger_64_typed(handle,m,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSger_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: y + integer(c_int64_t) :: incy + type(c_ptr) :: AP + integer(c_int64_t) :: lda + ! + hipblasSger_64_typed = hipblasSger_64_(handle,m,n,c_loc(alpha),x,incx,y,incy,AP,lda) + end function + + function hipblasDger_64_typed(handle,m,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDger_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: y + integer(c_int64_t) :: incy + type(c_ptr) :: AP + integer(c_int64_t) :: lda + ! + hipblasDger_64_typed = hipblasDger_64_(handle,m,n,c_loc(alpha),x,incx,y,incy,AP,lda) + end function + + function hipblasCgeru_64_typed(handle,m,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeru_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: y + integer(c_int64_t) :: incy + type(c_ptr) :: AP + integer(c_int64_t) :: lda + ! + hipblasCgeru_64_typed = hipblasCgeru_64_(handle,m,n,c_loc(alpha),x,incx,y,incy,AP,lda) + end function + + function hipblasCgerc_64_typed(handle,m,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgerc_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: y + integer(c_int64_t) :: incy + type(c_ptr) :: AP + integer(c_int64_t) :: lda + ! + hipblasCgerc_64_typed = hipblasCgerc_64_(handle,m,n,c_loc(alpha),x,incx,y,incy,AP,lda) + end function + + function hipblasZgeru_64_typed(handle,m,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeru_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: y + integer(c_int64_t) :: incy + type(c_ptr) :: AP + integer(c_int64_t) :: lda + ! + hipblasZgeru_64_typed = hipblasZgeru_64_(handle,m,n,c_loc(alpha),x,incx,y,incy,AP,lda) + end function + + function hipblasZgerc_64_typed(handle,m,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgerc_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: y + integer(c_int64_t) :: incy + type(c_ptr) :: AP + integer(c_int64_t) :: lda + ! + hipblasZgerc_64_typed = hipblasZgerc_64_(handle,m,n,c_loc(alpha),x,incx,y,incy,AP,lda) + end function + + function hipblasSgerBatched_typed(handle,m,n,alpha,x,incx,y,incy,AP,lda,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgerBatched_typed + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + type(c_ptr), value :: x + integer(c_int) :: incx + type(c_ptr), value :: y + integer(c_int) :: incy + type(c_ptr), value :: AP + integer(c_int) :: lda + integer(c_int) :: batchCount + ! + hipblasSgerBatched_typed = hipblasSgerBatched_(handle,m,n,c_loc(alpha),x,incx,y,incy,AP,lda, & + batchCount) + end function + + function hipblasDgerBatched_typed(handle,m,n,alpha,x,incx,y,incy,AP,lda,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgerBatched_typed + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + type(c_ptr), value :: x + integer(c_int) :: incx + type(c_ptr), value :: y + integer(c_int) :: incy + type(c_ptr), value :: AP + integer(c_int) :: lda + integer(c_int) :: batchCount + ! + hipblasDgerBatched_typed = hipblasDgerBatched_(handle,m,n,c_loc(alpha),x,incx,y,incy,AP,lda, & + batchCount) + end function + + function hipblasCgeruBatched_typed(handle,m,n,alpha,x,incx,y,incy,AP,lda,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeruBatched_typed + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + type(c_ptr), value :: x + integer(c_int) :: incx + type(c_ptr), value :: y + integer(c_int) :: incy + type(c_ptr), value :: AP + integer(c_int) :: lda + integer(c_int) :: batchCount + ! + hipblasCgeruBatched_typed = hipblasCgeruBatched_(handle,m,n,c_loc(alpha),x,incx,y,incy,AP, & + lda,batchCount) + end function + + function hipblasCgercBatched_typed(handle,m,n,alpha,x,incx,y,incy,AP,lda,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgercBatched_typed + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + type(c_ptr), value :: x + integer(c_int) :: incx + type(c_ptr), value :: y + integer(c_int) :: incy + type(c_ptr), value :: AP + integer(c_int) :: lda + integer(c_int) :: batchCount + ! + hipblasCgercBatched_typed = hipblasCgercBatched_(handle,m,n,c_loc(alpha),x,incx,y,incy,AP, & + lda,batchCount) + end function + + function hipblasZgeruBatched_typed(handle,m,n,alpha,x,incx,y,incy,AP,lda,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeruBatched_typed + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + type(c_ptr), value :: x + integer(c_int) :: incx + type(c_ptr), value :: y + integer(c_int) :: incy + type(c_ptr), value :: AP + integer(c_int) :: lda + integer(c_int) :: batchCount + ! + hipblasZgeruBatched_typed = hipblasZgeruBatched_(handle,m,n,c_loc(alpha),x,incx,y,incy,AP, & + lda,batchCount) + end function + + function hipblasZgercBatched_typed(handle,m,n,alpha,x,incx,y,incy,AP,lda,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgercBatched_typed + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + type(c_ptr), value :: x + integer(c_int) :: incx + type(c_ptr), value :: y + integer(c_int) :: incy + type(c_ptr), value :: AP + integer(c_int) :: lda + integer(c_int) :: batchCount + ! + hipblasZgercBatched_typed = hipblasZgercBatched_(handle,m,n,c_loc(alpha),x,incx,y,incy,AP, & + lda,batchCount) + end function + + function hipblasSgerBatched_64_typed(handle,m,n,alpha,x,incx,y,incy,AP,lda,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgerBatched_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + type(c_ptr), value :: x + integer(c_int64_t) :: incx + type(c_ptr), value :: y + integer(c_int64_t) :: incy + type(c_ptr), value :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: batchCount + ! + hipblasSgerBatched_64_typed = hipblasSgerBatched_64_(handle,m,n,c_loc(alpha),x,incx,y,incy, & + AP,lda,batchCount) + end function + + function hipblasDgerBatched_64_typed(handle,m,n,alpha,x,incx,y,incy,AP,lda,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgerBatched_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + type(c_ptr), value :: x + integer(c_int64_t) :: incx + type(c_ptr), value :: y + integer(c_int64_t) :: incy + type(c_ptr), value :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: batchCount + ! + hipblasDgerBatched_64_typed = hipblasDgerBatched_64_(handle,m,n,c_loc(alpha),x,incx,y,incy, & + AP,lda,batchCount) + end function + + function hipblasCgeruBatched_64_typed(handle,m,n,alpha,x,incx,y,incy,AP,lda,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeruBatched_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + type(c_ptr), value :: x + integer(c_int64_t) :: incx + type(c_ptr), value :: y + integer(c_int64_t) :: incy + type(c_ptr), value :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: batchCount + ! + hipblasCgeruBatched_64_typed = hipblasCgeruBatched_64_(handle,m,n,c_loc(alpha),x,incx,y, & + incy,AP,lda,batchCount) + end function + + function hipblasCgercBatched_64_typed(handle,m,n,alpha,x,incx,y,incy,AP,lda,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgercBatched_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + type(c_ptr), value :: x + integer(c_int64_t) :: incx + type(c_ptr), value :: y + integer(c_int64_t) :: incy + type(c_ptr), value :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: batchCount + ! + hipblasCgercBatched_64_typed = hipblasCgercBatched_64_(handle,m,n,c_loc(alpha),x,incx,y, & + incy,AP,lda,batchCount) + end function + + function hipblasZgeruBatched_64_typed(handle,m,n,alpha,x,incx,y,incy,AP,lda,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeruBatched_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + type(c_ptr), value :: x + integer(c_int64_t) :: incx + type(c_ptr), value :: y + integer(c_int64_t) :: incy + type(c_ptr), value :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: batchCount + ! + hipblasZgeruBatched_64_typed = hipblasZgeruBatched_64_(handle,m,n,c_loc(alpha),x,incx,y, & + incy,AP,lda,batchCount) + end function + + function hipblasZgercBatched_64_typed(handle,m,n,alpha,x,incx,y,incy,AP,lda,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgercBatched_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + type(c_ptr), value :: x + integer(c_int64_t) :: incx + type(c_ptr), value :: y + integer(c_int64_t) :: incy + type(c_ptr), value :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: batchCount + ! + hipblasZgercBatched_64_typed = hipblasZgercBatched_64_(handle,m,n,c_loc(alpha),x,incx,y, & + incy,AP,lda,batchCount) + end function + + function hipblasSgerStridedBatched_typed(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP, & + lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgerStridedBatched_typed + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasSgerStridedBatched_typed = hipblasSgerStridedBatched_(handle,m,n,c_loc(alpha),x,incx, & + stridex,y,incy,stridey,AP,lda,strideA,batchCount) + end function + + function hipblasDgerStridedBatched_typed(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP, & + lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgerStridedBatched_typed + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasDgerStridedBatched_typed = hipblasDgerStridedBatched_(handle,m,n,c_loc(alpha),x,incx, & + stridex,y,incy,stridey,AP,lda,strideA,batchCount) + end function + + function hipblasCgeruStridedBatched_typed(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP, & + lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeruStridedBatched_typed + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCgeruStridedBatched_typed = hipblasCgeruStridedBatched_(handle,m,n,c_loc(alpha),x, & + incx,stridex,y,incy,stridey,AP,lda,strideA,batchCount) + end function + + function hipblasCgercStridedBatched_typed(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP, & + lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgercStridedBatched_typed + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCgercStridedBatched_typed = hipblasCgercStridedBatched_(handle,m,n,c_loc(alpha),x, & + incx,stridex,y,incy,stridey,AP,lda,strideA,batchCount) + end function + + function hipblasZgeruStridedBatched_typed(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP, & + lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeruStridedBatched_typed + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZgeruStridedBatched_typed = hipblasZgeruStridedBatched_(handle,m,n,c_loc(alpha),x, & + incx,stridex,y,incy,stridey,AP,lda,strideA,batchCount) + end function + + function hipblasZgercStridedBatched_typed(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP, & + lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgercStridedBatched_typed + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZgercStridedBatched_typed = hipblasZgercStridedBatched_(handle,m,n,c_loc(alpha),x, & + incx,stridex,y,incy,stridey,AP,lda,strideA,batchCount) + end function + + function hipblasSgerStridedBatched_64_typed(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP, & + lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgerStridedBatched_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasSgerStridedBatched_64_typed = hipblasSgerStridedBatched_64_(handle,m,n,c_loc(alpha), & + x,incx,stridex,y,incy,stridey,AP,lda,strideA,batchCount) + end function + + function hipblasDgerStridedBatched_64_typed(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP, & + lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgerStridedBatched_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasDgerStridedBatched_64_typed = hipblasDgerStridedBatched_64_(handle,m,n,c_loc(alpha), & + x,incx,stridex,y,incy,stridey,AP,lda,strideA,batchCount) + end function + + function hipblasCgeruStridedBatched_64_typed(handle,m,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeruStridedBatched_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCgeruStridedBatched_64_typed = hipblasCgeruStridedBatched_64_(handle,m,n, & + c_loc(alpha),x,incx,stridex,y,incy,stridey,AP,lda,strideA,batchCount) + end function + + function hipblasCgercStridedBatched_64_typed(handle,m,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgercStridedBatched_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCgercStridedBatched_64_typed = hipblasCgercStridedBatched_64_(handle,m,n, & + c_loc(alpha),x,incx,stridex,y,incy,stridey,AP,lda,strideA,batchCount) + end function + + function hipblasZgeruStridedBatched_64_typed(handle,m,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeruStridedBatched_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZgeruStridedBatched_64_typed = hipblasZgeruStridedBatched_64_(handle,m,n, & + c_loc(alpha),x,incx,stridex,y,incy,stridey,AP,lda,strideA,batchCount) + end function + + function hipblasZgercStridedBatched_64_typed(handle,m,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgercStridedBatched_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZgercStridedBatched_64_typed = hipblasZgercStridedBatched_64_(handle,m,n, & + c_loc(alpha),x,incx,stridex,y,incy,stridey,AP,lda,strideA,batchCount) + end function + + function hipblasChbmv_typed(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmv_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + type(c_ptr) :: x + integer(c_int) :: incx + complex(c_float_complex),target :: beta + type(c_ptr) :: y + integer(c_int) :: incy + ! + hipblasChbmv_typed = hipblasChbmv_(handle,uplo,n,k,c_loc(alpha),AP,lda,x,incx,c_loc(beta),y, & + incy) + end function + + function hipblasZhbmv_typed(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmv_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + type(c_ptr) :: x + integer(c_int) :: incx + complex(c_double_complex),target :: beta + type(c_ptr) :: y + integer(c_int) :: incy + ! + hipblasZhbmv_typed = hipblasZhbmv_(handle,uplo,n,k,c_loc(alpha),AP,lda,x,incx,c_loc(beta),y, & + incy) + end function + + function hipblasChbmv_64_typed(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmv_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + type(c_ptr) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: beta + type(c_ptr) :: y + integer(c_int64_t) :: incy + ! + hipblasChbmv_64_typed = hipblasChbmv_64_(handle,uplo,n,k,c_loc(alpha),AP,lda,x,incx, & + c_loc(beta),y,incy) + end function + + function hipblasZhbmv_64_typed(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmv_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + type(c_ptr) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: beta + type(c_ptr) :: y + integer(c_int64_t) :: incy + ! + hipblasZhbmv_64_typed = hipblasZhbmv_64_(handle,uplo,n,k,c_loc(alpha),AP,lda,x,incx, & + c_loc(beta),y,incy) + end function + + function hipblasChbmvBatched_typed(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmvBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + type(c_ptr), value :: AP + integer(c_int) :: lda + type(c_ptr), value :: x + integer(c_int) :: incx + complex(c_float_complex),target :: beta + type(c_ptr), value :: y + integer(c_int) :: incy + integer(c_int) :: batchCount + ! + hipblasChbmvBatched_typed = hipblasChbmvBatched_(handle,uplo,n,k,c_loc(alpha),AP,lda,x,incx, & + c_loc(beta),y,incy,batchCount) + end function + + function hipblasZhbmvBatched_typed(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmvBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + type(c_ptr), value :: AP + integer(c_int) :: lda + type(c_ptr), value :: x + integer(c_int) :: incx + complex(c_double_complex),target :: beta + type(c_ptr), value :: y + integer(c_int) :: incy + integer(c_int) :: batchCount + ! + hipblasZhbmvBatched_typed = hipblasZhbmvBatched_(handle,uplo,n,k,c_loc(alpha),AP,lda,x,incx, & + c_loc(beta),y,incy,batchCount) + end function + + function hipblasChbmvBatched_64_typed(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmvBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + type(c_ptr), value :: AP + integer(c_int64_t) :: lda + type(c_ptr), value :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: beta + type(c_ptr), value :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: batchCount + ! + hipblasChbmvBatched_64_typed = hipblasChbmvBatched_64_(handle,uplo,n,k,c_loc(alpha),AP,lda, & + x,incx,c_loc(beta),y,incy,batchCount) + end function + + function hipblasZhbmvBatched_64_typed(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmvBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + type(c_ptr), value :: AP + integer(c_int64_t) :: lda + type(c_ptr), value :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: beta + type(c_ptr), value :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: batchCount + ! + hipblasZhbmvBatched_64_typed = hipblasZhbmvBatched_64_(handle,uplo,n,k,c_loc(alpha),AP,lda, & + x,incx,c_loc(beta),y,incy,batchCount) + end function + + function hipblasChbmvStridedBatched_typed(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx,stridex, & + beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmvStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + type(c_ptr) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasChbmvStridedBatched_typed = hipblasChbmvStridedBatched_(handle,uplo,n,k,c_loc(alpha), & + AP,lda,strideA,x,incx,stridex,c_loc(beta),y,incy,stridey,batchCount) + end function + + function hipblasZhbmvStridedBatched_typed(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx,stridex, & + beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmvStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + type(c_ptr) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZhbmvStridedBatched_typed = hipblasZhbmvStridedBatched_(handle,uplo,n,k,c_loc(alpha), & + AP,lda,strideA,x,incx,stridex,c_loc(beta),y,incy,stridey,batchCount) + end function + + function hipblasChbmvStridedBatched_64_typed(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmvStridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + type(c_ptr) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasChbmvStridedBatched_64_typed = hipblasChbmvStridedBatched_64_(handle,uplo,n,k, & + c_loc(alpha),AP,lda,strideA,x,incx,stridex,c_loc(beta),y,incy,stridey,batchCount) + end function + + function hipblasZhbmvStridedBatched_64_typed(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmvStridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + type(c_ptr) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZhbmvStridedBatched_64_typed = hipblasZhbmvStridedBatched_64_(handle,uplo,n,k, & + c_loc(alpha),AP,lda,strideA,x,incx,stridex,c_loc(beta),y,incy,stridey,batchCount) + end function + + function hipblasChemv_typed(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemv_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + type(c_ptr) :: x + integer(c_int) :: incx + complex(c_float_complex),target :: beta + type(c_ptr) :: y + integer(c_int) :: incy + ! + hipblasChemv_typed = hipblasChemv_(handle,uplo,n,c_loc(alpha),AP,lda,x,incx,c_loc(beta),y, & + incy) + end function + + function hipblasZhemv_typed(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemv_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + type(c_ptr) :: x + integer(c_int) :: incx + complex(c_double_complex),target :: beta + type(c_ptr) :: y + integer(c_int) :: incy + ! + hipblasZhemv_typed = hipblasZhemv_(handle,uplo,n,c_loc(alpha),AP,lda,x,incx,c_loc(beta),y, & + incy) + end function + + function hipblasChemv_64_typed(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemv_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + type(c_ptr) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: beta + type(c_ptr) :: y + integer(c_int64_t) :: incy + ! + hipblasChemv_64_typed = hipblasChemv_64_(handle,uplo,n,c_loc(alpha),AP,lda,x,incx, & + c_loc(beta),y,incy) + end function + + function hipblasZhemv_64_typed(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemv_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + type(c_ptr) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: beta + type(c_ptr) :: y + integer(c_int64_t) :: incy + ! + hipblasZhemv_64_typed = hipblasZhemv_64_(handle,uplo,n,c_loc(alpha),AP,lda,x,incx, & + c_loc(beta),y,incy) + end function + + function hipblasChemvBatched_typed(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemvBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + type(c_ptr), value :: AP + integer(c_int) :: lda + type(c_ptr), value :: x + integer(c_int) :: incx + complex(c_float_complex),target :: beta + type(c_ptr), value :: y + integer(c_int) :: incy + integer(c_int) :: batchCount + ! + hipblasChemvBatched_typed = hipblasChemvBatched_(handle,uplo,n,c_loc(alpha),AP,lda,x,incx, & + c_loc(beta),y,incy,batchCount) + end function + + function hipblasZhemvBatched_typed(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemvBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + type(c_ptr), value :: AP + integer(c_int) :: lda + type(c_ptr), value :: x + integer(c_int) :: incx + complex(c_double_complex),target :: beta + type(c_ptr), value :: y + integer(c_int) :: incy + integer(c_int) :: batchCount + ! + hipblasZhemvBatched_typed = hipblasZhemvBatched_(handle,uplo,n,c_loc(alpha),AP,lda,x,incx, & + c_loc(beta),y,incy,batchCount) + end function + + function hipblasChemvBatched_64_typed(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemvBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + type(c_ptr), value :: AP + integer(c_int64_t) :: lda + type(c_ptr), value :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: beta + type(c_ptr), value :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: batchCount + ! + hipblasChemvBatched_64_typed = hipblasChemvBatched_64_(handle,uplo,n,c_loc(alpha),AP,lda,x, & + incx,c_loc(beta),y,incy,batchCount) + end function + + function hipblasZhemvBatched_64_typed(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemvBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + type(c_ptr), value :: AP + integer(c_int64_t) :: lda + type(c_ptr), value :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: beta + type(c_ptr), value :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: batchCount + ! + hipblasZhemvBatched_64_typed = hipblasZhemvBatched_64_(handle,uplo,n,c_loc(alpha),AP,lda,x, & + incx,c_loc(beta),y,incy,batchCount) + end function + + function hipblasChemvStridedBatched_typed(handle,uplo,n,alpha,AP,lda,strideA,x,incx,stridex, & + beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemvStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + type(c_ptr) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasChemvStridedBatched_typed = hipblasChemvStridedBatched_(handle,uplo,n,c_loc(alpha), & + AP,lda,strideA,x,incx,stridex,c_loc(beta),y,incy,stridey,batchCount) + end function + + function hipblasZhemvStridedBatched_typed(handle,uplo,n,alpha,AP,lda,strideA,x,incx,stridex, & + beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemvStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + type(c_ptr) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZhemvStridedBatched_typed = hipblasZhemvStridedBatched_(handle,uplo,n,c_loc(alpha), & + AP,lda,strideA,x,incx,stridex,c_loc(beta),y,incy,stridey,batchCount) + end function + + function hipblasChemvStridedBatched_64_typed(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemvStridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + type(c_ptr) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasChemvStridedBatched_64_typed = hipblasChemvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),AP,lda,strideA,x,incx,stridex,c_loc(beta),y,incy,stridey,batchCount) + end function + + function hipblasZhemvStridedBatched_64_typed(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemvStridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + type(c_ptr) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZhemvStridedBatched_64_typed = hipblasZhemvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),AP,lda,strideA,x,incx,stridex,c_loc(beta),y,incy,stridey,batchCount) + end function + + function hipblasCher_typed(handle,uplo,n,alpha,x,incx,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: AP + integer(c_int) :: lda + ! + hipblasCher_typed = hipblasCher_(handle,uplo,n,c_loc(alpha),x,incx,AP,lda) + end function + + function hipblasZher_typed(handle,uplo,n,alpha,x,incx,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: AP + integer(c_int) :: lda + ! + hipblasZher_typed = hipblasZher_(handle,uplo,n,c_loc(alpha),x,incx,AP,lda) + end function + + function hipblasCher_64_typed(handle,uplo,n,alpha,x,incx,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: AP + integer(c_int64_t) :: lda + ! + hipblasCher_64_typed = hipblasCher_64_(handle,uplo,n,c_loc(alpha),x,incx,AP,lda) + end function + + function hipblasZher_64_typed(handle,uplo,n,alpha,x,incx,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: AP + integer(c_int64_t) :: lda + ! + hipblasZher_64_typed = hipblasZher_64_(handle,uplo,n,c_loc(alpha),x,incx,AP,lda) + end function + + function hipblasCherBatched_typed(handle,uplo,n,alpha,x,incx,AP,lda,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + type(c_ptr), value :: x + integer(c_int) :: incx + type(c_ptr), value :: AP + integer(c_int) :: lda + integer(c_int) :: batchCount + ! + hipblasCherBatched_typed = hipblasCherBatched_(handle,uplo,n,c_loc(alpha),x,incx,AP,lda, & + batchCount) + end function + + function hipblasZherBatched_typed(handle,uplo,n,alpha,x,incx,AP,lda,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + type(c_ptr), value :: x + integer(c_int) :: incx + type(c_ptr), value :: AP + integer(c_int) :: lda + integer(c_int) :: batchCount + ! + hipblasZherBatched_typed = hipblasZherBatched_(handle,uplo,n,c_loc(alpha),x,incx,AP,lda, & + batchCount) + end function + + function hipblasCherBatched_64_typed(handle,uplo,n,alpha,x,incx,AP,lda,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + type(c_ptr), value :: x + integer(c_int64_t) :: incx + type(c_ptr), value :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: batchCount + ! + hipblasCherBatched_64_typed = hipblasCherBatched_64_(handle,uplo,n,c_loc(alpha),x,incx,AP, & + lda,batchCount) + end function + + function hipblasZherBatched_64_typed(handle,uplo,n,alpha,x,incx,AP,lda,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + type(c_ptr), value :: x + integer(c_int64_t) :: incx + type(c_ptr), value :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: batchCount + ! + hipblasZherBatched_64_typed = hipblasZherBatched_64_(handle,uplo,n,c_loc(alpha),x,incx,AP, & + lda,batchCount) + end function + + function hipblasCherStridedBatched_typed(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCherStridedBatched_typed = hipblasCherStridedBatched_(handle,uplo,n,c_loc(alpha),x, & + incx,stridex,AP,lda,strideA,batchCount) + end function + + function hipblasZherStridedBatched_typed(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZherStridedBatched_typed = hipblasZherStridedBatched_(handle,uplo,n,c_loc(alpha),x, & + incx,stridex,AP,lda,strideA,batchCount) + end function + + function hipblasCherStridedBatched_64_typed(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherStridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCherStridedBatched_64_typed = hipblasCherStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),x,incx,stridex,AP,lda,strideA,batchCount) + end function + + function hipblasZherStridedBatched_64_typed(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherStridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZherStridedBatched_64_typed = hipblasZherStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),x,incx,stridex,AP,lda,strideA,batchCount) + end function + + function hipblasCher2_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: y + integer(c_int) :: incy + type(c_ptr) :: AP + integer(c_int) :: lda + ! + hipblasCher2_typed = hipblasCher2_(handle,uplo,n,c_loc(alpha),x,incx,y,incy,AP,lda) + end function + + function hipblasZher2_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: y + integer(c_int) :: incy + type(c_ptr) :: AP + integer(c_int) :: lda + ! + hipblasZher2_typed = hipblasZher2_(handle,uplo,n,c_loc(alpha),x,incx,y,incy,AP,lda) + end function + + function hipblasCher2_64_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: y + integer(c_int64_t) :: incy + type(c_ptr) :: AP + integer(c_int64_t) :: lda + ! + hipblasCher2_64_typed = hipblasCher2_64_(handle,uplo,n,c_loc(alpha),x,incx,y,incy,AP,lda) + end function + + function hipblasZher2_64_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: y + integer(c_int64_t) :: incy + type(c_ptr) :: AP + integer(c_int64_t) :: lda + ! + hipblasZher2_64_typed = hipblasZher2_64_(handle,uplo,n,c_loc(alpha),x,incx,y,incy,AP,lda) + end function + + function hipblasCher2Batched_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,lda,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2Batched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + type(c_ptr), value :: x + integer(c_int) :: incx + type(c_ptr), value :: y + integer(c_int) :: incy + type(c_ptr), value :: AP + integer(c_int) :: lda + integer(c_int) :: batchCount + ! + hipblasCher2Batched_typed = hipblasCher2Batched_(handle,uplo,n,c_loc(alpha),x,incx,y,incy, & + AP,lda,batchCount) + end function + + function hipblasZher2Batched_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,lda,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2Batched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + type(c_ptr), value :: x + integer(c_int) :: incx + type(c_ptr), value :: y + integer(c_int) :: incy + type(c_ptr), value :: AP + integer(c_int) :: lda + integer(c_int) :: batchCount + ! + hipblasZher2Batched_typed = hipblasZher2Batched_(handle,uplo,n,c_loc(alpha),x,incx,y,incy, & + AP,lda,batchCount) + end function + + function hipblasCher2Batched_64_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,lda,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2Batched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + type(c_ptr), value :: x + integer(c_int64_t) :: incx + type(c_ptr), value :: y + integer(c_int64_t) :: incy + type(c_ptr), value :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: batchCount + ! + hipblasCher2Batched_64_typed = hipblasCher2Batched_64_(handle,uplo,n,c_loc(alpha),x,incx,y, & + incy,AP,lda,batchCount) + end function + + function hipblasZher2Batched_64_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,lda,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2Batched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + type(c_ptr), value :: x + integer(c_int64_t) :: incx + type(c_ptr), value :: y + integer(c_int64_t) :: incy + type(c_ptr), value :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: batchCount + ! + hipblasZher2Batched_64_typed = hipblasZher2Batched_64_(handle,uplo,n,c_loc(alpha),x,incx,y, & + incy,AP,lda,batchCount) + end function + + function hipblasCher2StridedBatched_typed(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2StridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCher2StridedBatched_typed = hipblasCher2StridedBatched_(handle,uplo,n,c_loc(alpha),x, & + incx,stridex,y,incy,stridey,AP,lda,strideA,batchCount) + end function + + function hipblasZher2StridedBatched_typed(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2StridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZher2StridedBatched_typed = hipblasZher2StridedBatched_(handle,uplo,n,c_loc(alpha),x, & + incx,stridex,y,incy,stridey,AP,lda,strideA,batchCount) + end function + + function hipblasCher2StridedBatched_64_typed(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2StridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCher2StridedBatched_64_typed = hipblasCher2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),x,incx,stridex,y,incy,stridey,AP,lda,strideA,batchCount) + end function + + function hipblasZher2StridedBatched_64_typed(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2StridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZher2StridedBatched_64_typed = hipblasZher2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),x,incx,stridex,y,incy,stridey,AP,lda,strideA,batchCount) + end function + + function hipblasChpmv_typed(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmv_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + type(c_ptr) :: AP + type(c_ptr) :: x + integer(c_int) :: incx + complex(c_float_complex),target :: beta + type(c_ptr) :: y + integer(c_int) :: incy + ! + hipblasChpmv_typed = hipblasChpmv_(handle,uplo,n,c_loc(alpha),AP,x,incx,c_loc(beta),y,incy) + end function + + function hipblasZhpmv_typed(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmv_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + type(c_ptr) :: AP + type(c_ptr) :: x + integer(c_int) :: incx + complex(c_double_complex),target :: beta + type(c_ptr) :: y + integer(c_int) :: incy + ! + hipblasZhpmv_typed = hipblasZhpmv_(handle,uplo,n,c_loc(alpha),AP,x,incx,c_loc(beta),y,incy) + end function + + function hipblasChpmv_64_typed(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmv_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + type(c_ptr) :: AP + type(c_ptr) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: beta + type(c_ptr) :: y + integer(c_int64_t) :: incy + ! + hipblasChpmv_64_typed = hipblasChpmv_64_(handle,uplo,n,c_loc(alpha),AP,x,incx,c_loc(beta),y, & + incy) + end function + + function hipblasZhpmv_64_typed(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmv_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + type(c_ptr) :: AP + type(c_ptr) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: beta + type(c_ptr) :: y + integer(c_int64_t) :: incy + ! + hipblasZhpmv_64_typed = hipblasZhpmv_64_(handle,uplo,n,c_loc(alpha),AP,x,incx,c_loc(beta),y, & + incy) + end function + + function hipblasChpmvBatched_typed(handle,uplo,n,alpha,AP,x,incx,beta,y,incy,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmvBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + type(c_ptr), value :: AP + type(c_ptr), value :: x + integer(c_int) :: incx + complex(c_float_complex),target :: beta + type(c_ptr), value :: y + integer(c_int) :: incy + integer(c_int) :: batchCount + ! + hipblasChpmvBatched_typed = hipblasChpmvBatched_(handle,uplo,n,c_loc(alpha),AP,x,incx, & + c_loc(beta),y,incy,batchCount) + end function + + function hipblasZhpmvBatched_typed(handle,uplo,n,alpha,AP,x,incx,beta,y,incy,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmvBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + type(c_ptr), value :: AP + type(c_ptr), value :: x + integer(c_int) :: incx + complex(c_double_complex),target :: beta + type(c_ptr), value :: y + integer(c_int) :: incy + integer(c_int) :: batchCount + ! + hipblasZhpmvBatched_typed = hipblasZhpmvBatched_(handle,uplo,n,c_loc(alpha),AP,x,incx, & + c_loc(beta),y,incy,batchCount) + end function + + function hipblasChpmvBatched_64_typed(handle,uplo,n,alpha,AP,x,incx,beta,y,incy,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmvBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + type(c_ptr), value :: AP + type(c_ptr), value :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: beta + type(c_ptr), value :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: batchCount + ! + hipblasChpmvBatched_64_typed = hipblasChpmvBatched_64_(handle,uplo,n,c_loc(alpha),AP,x,incx, & + c_loc(beta),y,incy,batchCount) + end function + + function hipblasZhpmvBatched_64_typed(handle,uplo,n,alpha,AP,x,incx,beta,y,incy,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmvBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + type(c_ptr), value :: AP + type(c_ptr), value :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: beta + type(c_ptr), value :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: batchCount + ! + hipblasZhpmvBatched_64_typed = hipblasZhpmvBatched_64_(handle,uplo,n,c_loc(alpha),AP,x,incx, & + c_loc(beta),y,incy,batchCount) + end function + + function hipblasChpmvStridedBatched_typed(handle,uplo,n,alpha,AP,strideA,x,incx,stridex,beta, & + y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmvStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: strideA + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + type(c_ptr) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasChpmvStridedBatched_typed = hipblasChpmvStridedBatched_(handle,uplo,n,c_loc(alpha), & + AP,strideA,x,incx,stridex,c_loc(beta),y,incy,stridey,batchCount) + end function + + function hipblasZhpmvStridedBatched_typed(handle,uplo,n,alpha,AP,strideA,x,incx,stridex,beta, & + y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmvStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: strideA + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + type(c_ptr) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZhpmvStridedBatched_typed = hipblasZhpmvStridedBatched_(handle,uplo,n,c_loc(alpha), & + AP,strideA,x,incx,stridex,c_loc(beta),y,incy,stridey,batchCount) + end function + + function hipblasChpmvStridedBatched_64_typed(handle,uplo,n,alpha,AP,strideA,x,incx,stridex, & + beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmvStridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: strideA + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + type(c_ptr) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasChpmvStridedBatched_64_typed = hipblasChpmvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),AP,strideA,x,incx,stridex,c_loc(beta),y,incy,stridey,batchCount) + end function + + function hipblasZhpmvStridedBatched_64_typed(handle,uplo,n,alpha,AP,strideA,x,incx,stridex, & + beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmvStridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: strideA + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + type(c_ptr) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZhpmvStridedBatched_64_typed = hipblasZhpmvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),AP,strideA,x,incx,stridex,c_loc(beta),y,incy,stridey,batchCount) + end function + + function hipblasChpr_typed(handle,uplo,n,alpha,x,incx,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: AP + ! + hipblasChpr_typed = hipblasChpr_(handle,uplo,n,c_loc(alpha),x,incx,AP) + end function + + function hipblasZhpr_typed(handle,uplo,n,alpha,x,incx,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: AP + ! + hipblasZhpr_typed = hipblasZhpr_(handle,uplo,n,c_loc(alpha),x,incx,AP) + end function + + function hipblasChpr_64_typed(handle,uplo,n,alpha,x,incx,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: AP + ! + hipblasChpr_64_typed = hipblasChpr_64_(handle,uplo,n,c_loc(alpha),x,incx,AP) + end function + + function hipblasZhpr_64_typed(handle,uplo,n,alpha,x,incx,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: AP + ! + hipblasZhpr_64_typed = hipblasZhpr_64_(handle,uplo,n,c_loc(alpha),x,incx,AP) + end function + + function hipblasChprBatched_typed(handle,uplo,n,alpha,x,incx,AP,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChprBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + type(c_ptr), value :: x + integer(c_int) :: incx + type(c_ptr), value :: AP + integer(c_int) :: batchCount + ! + hipblasChprBatched_typed = hipblasChprBatched_(handle,uplo,n,c_loc(alpha),x,incx,AP, & + batchCount) + end function + + function hipblasZhprBatched_typed(handle,uplo,n,alpha,x,incx,AP,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhprBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + type(c_ptr), value :: x + integer(c_int) :: incx + type(c_ptr), value :: AP + integer(c_int) :: batchCount + ! + hipblasZhprBatched_typed = hipblasZhprBatched_(handle,uplo,n,c_loc(alpha),x,incx,AP, & + batchCount) + end function + + function hipblasChprBatched_64_typed(handle,uplo,n,alpha,x,incx,AP,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChprBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + type(c_ptr), value :: x + integer(c_int64_t) :: incx + type(c_ptr), value :: AP + integer(c_int64_t) :: batchCount + ! + hipblasChprBatched_64_typed = hipblasChprBatched_64_(handle,uplo,n,c_loc(alpha),x,incx,AP, & + batchCount) + end function + + function hipblasZhprBatched_64_typed(handle,uplo,n,alpha,x,incx,AP,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhprBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + type(c_ptr), value :: x + integer(c_int64_t) :: incx + type(c_ptr), value :: AP + integer(c_int64_t) :: batchCount + ! + hipblasZhprBatched_64_typed = hipblasZhprBatched_64_(handle,uplo,n,c_loc(alpha),x,incx,AP, & + batchCount) + end function + + function hipblasChprStridedBatched_typed(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChprStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasChprStridedBatched_typed = hipblasChprStridedBatched_(handle,uplo,n,c_loc(alpha),x, & + incx,stridex,AP,strideA,batchCount) + end function + + function hipblasZhprStridedBatched_typed(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhprStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZhprStridedBatched_typed = hipblasZhprStridedBatched_(handle,uplo,n,c_loc(alpha),x, & + incx,stridex,AP,strideA,batchCount) + end function + + function hipblasChprStridedBatched_64_typed(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChprStridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasChprStridedBatched_64_typed = hipblasChprStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),x,incx,stridex,AP,strideA,batchCount) + end function + + function hipblasZhprStridedBatched_64_typed(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhprStridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZhprStridedBatched_64_typed = hipblasZhprStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),x,incx,stridex,AP,strideA,batchCount) + end function + + function hipblasChpr2_typed(handle,uplo,n,alpha,x,incx,y,incy,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: y + integer(c_int) :: incy + type(c_ptr) :: AP + ! + hipblasChpr2_typed = hipblasChpr2_(handle,uplo,n,c_loc(alpha),x,incx,y,incy,AP) + end function + + function hipblasZhpr2_typed(handle,uplo,n,alpha,x,incx,y,incy,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: y + integer(c_int) :: incy + type(c_ptr) :: AP + ! + hipblasZhpr2_typed = hipblasZhpr2_(handle,uplo,n,c_loc(alpha),x,incx,y,incy,AP) + end function + + function hipblasChpr2_64_typed(handle,uplo,n,alpha,x,incx,y,incy,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: y + integer(c_int64_t) :: incy + type(c_ptr) :: AP + ! + hipblasChpr2_64_typed = hipblasChpr2_64_(handle,uplo,n,c_loc(alpha),x,incx,y,incy,AP) + end function + + function hipblasZhpr2_64_typed(handle,uplo,n,alpha,x,incx,y,incy,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: y + integer(c_int64_t) :: incy + type(c_ptr) :: AP + ! + hipblasZhpr2_64_typed = hipblasZhpr2_64_(handle,uplo,n,c_loc(alpha),x,incx,y,incy,AP) + end function + + function hipblasChpr2Batched_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2Batched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + type(c_ptr), value :: x + integer(c_int) :: incx + type(c_ptr), value :: y + integer(c_int) :: incy + type(c_ptr), value :: AP + integer(c_int) :: batchCount + ! + hipblasChpr2Batched_typed = hipblasChpr2Batched_(handle,uplo,n,c_loc(alpha),x,incx,y,incy, & + AP,batchCount) + end function + + function hipblasZhpr2Batched_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2Batched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + type(c_ptr), value :: x + integer(c_int) :: incx + type(c_ptr), value :: y + integer(c_int) :: incy + type(c_ptr), value :: AP + integer(c_int) :: batchCount + ! + hipblasZhpr2Batched_typed = hipblasZhpr2Batched_(handle,uplo,n,c_loc(alpha),x,incx,y,incy, & + AP,batchCount) + end function + + function hipblasChpr2Batched_64_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2Batched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + type(c_ptr), value :: x + integer(c_int64_t) :: incx + type(c_ptr), value :: y + integer(c_int64_t) :: incy + type(c_ptr), value :: AP + integer(c_int64_t) :: batchCount + ! + hipblasChpr2Batched_64_typed = hipblasChpr2Batched_64_(handle,uplo,n,c_loc(alpha),x,incx,y, & + incy,AP,batchCount) + end function + + function hipblasZhpr2Batched_64_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2Batched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + type(c_ptr), value :: x + integer(c_int64_t) :: incx + type(c_ptr), value :: y + integer(c_int64_t) :: incy + type(c_ptr), value :: AP + integer(c_int64_t) :: batchCount + ! + hipblasZhpr2Batched_64_typed = hipblasZhpr2Batched_64_(handle,uplo,n,c_loc(alpha),x,incx,y, & + incy,AP,batchCount) + end function + + function hipblasChpr2StridedBatched_typed(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2StridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasChpr2StridedBatched_typed = hipblasChpr2StridedBatched_(handle,uplo,n,c_loc(alpha),x, & + incx,stridex,y,incy,stridey,AP,strideA,batchCount) + end function + + function hipblasZhpr2StridedBatched_typed(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2StridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZhpr2StridedBatched_typed = hipblasZhpr2StridedBatched_(handle,uplo,n,c_loc(alpha),x, & + incx,stridex,y,incy,stridey,AP,strideA,batchCount) + end function + + function hipblasChpr2StridedBatched_64_typed(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2StridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasChpr2StridedBatched_64_typed = hipblasChpr2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),x,incx,stridex,y,incy,stridey,AP,strideA,batchCount) + end function + + function hipblasZhpr2StridedBatched_64_typed(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2StridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZhpr2StridedBatched_64_typed = hipblasZhpr2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),x,incx,stridex,y,incy,stridey,AP,strideA,batchCount) + end function + + function hipblasSsbmv_typed(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmv_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + type(c_ptr) :: x + integer(c_int) :: incx + real(c_float),target :: beta + type(c_ptr) :: y + integer(c_int) :: incy + ! + hipblasSsbmv_typed = hipblasSsbmv_(handle,uplo,n,k,c_loc(alpha),AP,lda,x,incx,c_loc(beta),y, & + incy) + end function + + function hipblasDsbmv_typed(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmv_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + type(c_ptr) :: x + integer(c_int) :: incx + real(c_double),target :: beta + type(c_ptr) :: y + integer(c_int) :: incy + ! + hipblasDsbmv_typed = hipblasDsbmv_(handle,uplo,n,k,c_loc(alpha),AP,lda,x,incx,c_loc(beta),y, & + incy) + end function + + function hipblasSsbmv_64_typed(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmv_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + type(c_ptr) :: x + integer(c_int64_t) :: incx + real(c_float),target :: beta + type(c_ptr) :: y + integer(c_int64_t) :: incy + ! + hipblasSsbmv_64_typed = hipblasSsbmv_64_(handle,uplo,n,k,c_loc(alpha),AP,lda,x,incx, & + c_loc(beta),y,incy) + end function + + function hipblasDsbmv_64_typed(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmv_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + type(c_ptr) :: x + integer(c_int64_t) :: incx + real(c_double),target :: beta + type(c_ptr) :: y + integer(c_int64_t) :: incy + ! + hipblasDsbmv_64_typed = hipblasDsbmv_64_(handle,uplo,n,k,c_loc(alpha),AP,lda,x,incx, & + c_loc(beta),y,incy) + end function + + function hipblasSsbmvBatched_typed(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmvBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + type(c_ptr), value :: AP + integer(c_int) :: lda + type(c_ptr), value :: x + integer(c_int) :: incx + real(c_float),target :: beta + type(c_ptr), value :: y + integer(c_int) :: incy + integer(c_int) :: batchCount + ! + hipblasSsbmvBatched_typed = hipblasSsbmvBatched_(handle,uplo,n,k,c_loc(alpha),AP,lda,x,incx, & + c_loc(beta),y,incy,batchCount) + end function + + function hipblasDsbmvBatched_typed(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmvBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + type(c_ptr), value :: AP + integer(c_int) :: lda + type(c_ptr), value :: x + integer(c_int) :: incx + real(c_double),target :: beta + type(c_ptr), value :: y + integer(c_int) :: incy + integer(c_int) :: batchCount + ! + hipblasDsbmvBatched_typed = hipblasDsbmvBatched_(handle,uplo,n,k,c_loc(alpha),AP,lda,x,incx, & + c_loc(beta),y,incy,batchCount) + end function + + function hipblasSsbmvBatched_64_typed(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmvBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + type(c_ptr), value :: AP + integer(c_int64_t) :: lda + type(c_ptr), value :: x + integer(c_int64_t) :: incx + real(c_float),target :: beta + type(c_ptr), value :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: batchCount + ! + hipblasSsbmvBatched_64_typed = hipblasSsbmvBatched_64_(handle,uplo,n,k,c_loc(alpha),AP,lda, & + x,incx,c_loc(beta),y,incy,batchCount) + end function + + function hipblasDsbmvBatched_64_typed(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmvBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + type(c_ptr), value :: AP + integer(c_int64_t) :: lda + type(c_ptr), value :: x + integer(c_int64_t) :: incx + real(c_double),target :: beta + type(c_ptr), value :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: batchCount + ! + hipblasDsbmvBatched_64_typed = hipblasDsbmvBatched_64_(handle,uplo,n,k,c_loc(alpha),AP,lda, & + x,incx,c_loc(beta),y,incy,batchCount) + end function + + function hipblasSsbmvStridedBatched_typed(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx,stridex, & + beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmvStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + type(c_ptr) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasSsbmvStridedBatched_typed = hipblasSsbmvStridedBatched_(handle,uplo,n,k,c_loc(alpha), & + AP,lda,strideA,x,incx,stridex,c_loc(beta),y,incy,stridey,batchCount) + end function + + function hipblasDsbmvStridedBatched_typed(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx,stridex, & + beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmvStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + type(c_ptr) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasDsbmvStridedBatched_typed = hipblasDsbmvStridedBatched_(handle,uplo,n,k,c_loc(alpha), & + AP,lda,strideA,x,incx,stridex,c_loc(beta),y,incy,stridey,batchCount) + end function + + function hipblasSsbmvStridedBatched_64_typed(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmvStridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + type(c_ptr) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasSsbmvStridedBatched_64_typed = hipblasSsbmvStridedBatched_64_(handle,uplo,n,k, & + c_loc(alpha),AP,lda,strideA,x,incx,stridex,c_loc(beta),y,incy,stridey,batchCount) + end function + + function hipblasDsbmvStridedBatched_64_typed(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmvStridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + type(c_ptr) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasDsbmvStridedBatched_64_typed = hipblasDsbmvStridedBatched_64_(handle,uplo,n,k, & + c_loc(alpha),AP,lda,strideA,x,incx,stridex,c_loc(beta),y,incy,stridey,batchCount) + end function + + function hipblasSspmv_typed(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmv_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + type(c_ptr) :: AP + type(c_ptr) :: x + integer(c_int) :: incx + real(c_float),target :: beta + type(c_ptr) :: y + integer(c_int) :: incy + ! + hipblasSspmv_typed = hipblasSspmv_(handle,uplo,n,c_loc(alpha),AP,x,incx,c_loc(beta),y,incy) + end function + + function hipblasDspmv_typed(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmv_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + type(c_ptr) :: AP + type(c_ptr) :: x + integer(c_int) :: incx + real(c_double),target :: beta + type(c_ptr) :: y + integer(c_int) :: incy + ! + hipblasDspmv_typed = hipblasDspmv_(handle,uplo,n,c_loc(alpha),AP,x,incx,c_loc(beta),y,incy) + end function + + function hipblasSspmv_64_typed(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmv_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + type(c_ptr) :: AP + type(c_ptr) :: x + integer(c_int64_t) :: incx + real(c_float),target :: beta + type(c_ptr) :: y + integer(c_int64_t) :: incy + ! + hipblasSspmv_64_typed = hipblasSspmv_64_(handle,uplo,n,c_loc(alpha),AP,x,incx,c_loc(beta),y, & + incy) + end function + + function hipblasDspmv_64_typed(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmv_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + type(c_ptr) :: AP + type(c_ptr) :: x + integer(c_int64_t) :: incx + real(c_double),target :: beta + type(c_ptr) :: y + integer(c_int64_t) :: incy + ! + hipblasDspmv_64_typed = hipblasDspmv_64_(handle,uplo,n,c_loc(alpha),AP,x,incx,c_loc(beta),y, & + incy) + end function + + function hipblasSspmvBatched_typed(handle,uplo,n,alpha,AP,x,incx,beta,y,incy,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmvBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + type(c_ptr), value :: AP + type(c_ptr), value :: x + integer(c_int) :: incx + real(c_float),target :: beta + type(c_ptr), value :: y + integer(c_int) :: incy + integer(c_int) :: batchCount + ! + hipblasSspmvBatched_typed = hipblasSspmvBatched_(handle,uplo,n,c_loc(alpha),AP,x,incx, & + c_loc(beta),y,incy,batchCount) + end function + + function hipblasDspmvBatched_typed(handle,uplo,n,alpha,AP,x,incx,beta,y,incy,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmvBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + type(c_ptr), value :: AP + type(c_ptr), value :: x + integer(c_int) :: incx + real(c_double),target :: beta + type(c_ptr), value :: y + integer(c_int) :: incy + integer(c_int) :: batchCount + ! + hipblasDspmvBatched_typed = hipblasDspmvBatched_(handle,uplo,n,c_loc(alpha),AP,x,incx, & + c_loc(beta),y,incy,batchCount) + end function + + function hipblasSspmvBatched_64_typed(handle,uplo,n,alpha,AP,x,incx,beta,y,incy,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmvBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + type(c_ptr), value :: AP + type(c_ptr), value :: x + integer(c_int64_t) :: incx + real(c_float),target :: beta + type(c_ptr), value :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: batchCount + ! + hipblasSspmvBatched_64_typed = hipblasSspmvBatched_64_(handle,uplo,n,c_loc(alpha),AP,x,incx, & + c_loc(beta),y,incy,batchCount) + end function + + function hipblasDspmvBatched_64_typed(handle,uplo,n,alpha,AP,x,incx,beta,y,incy,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmvBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + type(c_ptr), value :: AP + type(c_ptr), value :: x + integer(c_int64_t) :: incx + real(c_double),target :: beta + type(c_ptr), value :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: batchCount + ! + hipblasDspmvBatched_64_typed = hipblasDspmvBatched_64_(handle,uplo,n,c_loc(alpha),AP,x,incx, & + c_loc(beta),y,incy,batchCount) + end function + + function hipblasSspmvStridedBatched_typed(handle,uplo,n,alpha,AP,strideA,x,incx,stridex,beta, & + y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmvStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: strideA + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + type(c_ptr) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasSspmvStridedBatched_typed = hipblasSspmvStridedBatched_(handle,uplo,n,c_loc(alpha), & + AP,strideA,x,incx,stridex,c_loc(beta),y,incy,stridey,batchCount) + end function + + function hipblasDspmvStridedBatched_typed(handle,uplo,n,alpha,AP,strideA,x,incx,stridex,beta, & + y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmvStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: strideA + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + type(c_ptr) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasDspmvStridedBatched_typed = hipblasDspmvStridedBatched_(handle,uplo,n,c_loc(alpha), & + AP,strideA,x,incx,stridex,c_loc(beta),y,incy,stridey,batchCount) + end function + + function hipblasSspmvStridedBatched_64_typed(handle,uplo,n,alpha,AP,strideA,x,incx,stridex, & + beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmvStridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: strideA + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + type(c_ptr) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasSspmvStridedBatched_64_typed = hipblasSspmvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),AP,strideA,x,incx,stridex,c_loc(beta),y,incy,stridey,batchCount) + end function + + function hipblasDspmvStridedBatched_64_typed(handle,uplo,n,alpha,AP,strideA,x,incx,stridex, & + beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmvStridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: strideA + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + type(c_ptr) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasDspmvStridedBatched_64_typed = hipblasDspmvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),AP,strideA,x,incx,stridex,c_loc(beta),y,incy,stridey,batchCount) + end function + + function hipblasSspr_typed(handle,uplo,n,alpha,x,incx,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: AP + ! + hipblasSspr_typed = hipblasSspr_(handle,uplo,n,c_loc(alpha),x,incx,AP) + end function + + function hipblasDspr_typed(handle,uplo,n,alpha,x,incx,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: AP + ! + hipblasDspr_typed = hipblasDspr_(handle,uplo,n,c_loc(alpha),x,incx,AP) + end function + + function hipblasCspr_typed(handle,uplo,n,alpha,x,incx,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCspr_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: AP + ! + hipblasCspr_typed = hipblasCspr_(handle,uplo,n,c_loc(alpha),x,incx,AP) + end function + + function hipblasZspr_typed(handle,uplo,n,alpha,x,incx,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZspr_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: AP + ! + hipblasZspr_typed = hipblasZspr_(handle,uplo,n,c_loc(alpha),x,incx,AP) + end function + + function hipblasSspr_64_typed(handle,uplo,n,alpha,x,incx,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: AP + ! + hipblasSspr_64_typed = hipblasSspr_64_(handle,uplo,n,c_loc(alpha),x,incx,AP) + end function + + function hipblasDspr_64_typed(handle,uplo,n,alpha,x,incx,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: AP + ! + hipblasDspr_64_typed = hipblasDspr_64_(handle,uplo,n,c_loc(alpha),x,incx,AP) + end function + + function hipblasCspr_64_typed(handle,uplo,n,alpha,x,incx,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCspr_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: AP + ! + hipblasCspr_64_typed = hipblasCspr_64_(handle,uplo,n,c_loc(alpha),x,incx,AP) + end function + + function hipblasZspr_64_typed(handle,uplo,n,alpha,x,incx,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZspr_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: AP + ! + hipblasZspr_64_typed = hipblasZspr_64_(handle,uplo,n,c_loc(alpha),x,incx,AP) + end function + + function hipblasSsprBatched_typed(handle,uplo,n,alpha,x,incx,AP,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsprBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + type(c_ptr), value :: x + integer(c_int) :: incx + type(c_ptr), value :: AP + integer(c_int) :: batchCount + ! + hipblasSsprBatched_typed = hipblasSsprBatched_(handle,uplo,n,c_loc(alpha),x,incx,AP, & + batchCount) + end function + + function hipblasDsprBatched_typed(handle,uplo,n,alpha,x,incx,AP,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsprBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + type(c_ptr), value :: x + integer(c_int) :: incx + type(c_ptr), value :: AP + integer(c_int) :: batchCount + ! + hipblasDsprBatched_typed = hipblasDsprBatched_(handle,uplo,n,c_loc(alpha),x,incx,AP, & + batchCount) + end function + + function hipblasCsprBatched_typed(handle,uplo,n,alpha,x,incx,AP,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsprBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + type(c_ptr), value :: x + integer(c_int) :: incx + type(c_ptr), value :: AP + integer(c_int) :: batchCount + ! + hipblasCsprBatched_typed = hipblasCsprBatched_(handle,uplo,n,c_loc(alpha),x,incx,AP, & + batchCount) + end function + + function hipblasZsprBatched_typed(handle,uplo,n,alpha,x,incx,AP,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsprBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + type(c_ptr), value :: x + integer(c_int) :: incx + type(c_ptr), value :: AP + integer(c_int) :: batchCount + ! + hipblasZsprBatched_typed = hipblasZsprBatched_(handle,uplo,n,c_loc(alpha),x,incx,AP, & + batchCount) + end function + + function hipblasSsprBatched_64_typed(handle,uplo,n,alpha,x,incx,AP,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsprBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + type(c_ptr), value :: x + integer(c_int64_t) :: incx + type(c_ptr), value :: AP + integer(c_int64_t) :: batchCount + ! + hipblasSsprBatched_64_typed = hipblasSsprBatched_64_(handle,uplo,n,c_loc(alpha),x,incx,AP, & + batchCount) + end function + + function hipblasDsprBatched_64_typed(handle,uplo,n,alpha,x,incx,AP,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsprBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + type(c_ptr), value :: x + integer(c_int64_t) :: incx + type(c_ptr), value :: AP + integer(c_int64_t) :: batchCount + ! + hipblasDsprBatched_64_typed = hipblasDsprBatched_64_(handle,uplo,n,c_loc(alpha),x,incx,AP, & + batchCount) + end function + + function hipblasCsprBatched_64_typed(handle,uplo,n,alpha,x,incx,AP,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsprBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + type(c_ptr), value :: x + integer(c_int64_t) :: incx + type(c_ptr), value :: AP + integer(c_int64_t) :: batchCount + ! + hipblasCsprBatched_64_typed = hipblasCsprBatched_64_(handle,uplo,n,c_loc(alpha),x,incx,AP, & + batchCount) + end function + + function hipblasZsprBatched_64_typed(handle,uplo,n,alpha,x,incx,AP,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsprBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + type(c_ptr), value :: x + integer(c_int64_t) :: incx + type(c_ptr), value :: AP + integer(c_int64_t) :: batchCount + ! + hipblasZsprBatched_64_typed = hipblasZsprBatched_64_(handle,uplo,n,c_loc(alpha),x,incx,AP, & + batchCount) + end function + + function hipblasSsprStridedBatched_typed(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsprStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasSsprStridedBatched_typed = hipblasSsprStridedBatched_(handle,uplo,n,c_loc(alpha),x, & + incx,stridex,AP,strideA,batchCount) + end function + + function hipblasDsprStridedBatched_typed(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsprStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasDsprStridedBatched_typed = hipblasDsprStridedBatched_(handle,uplo,n,c_loc(alpha),x, & + incx,stridex,AP,strideA,batchCount) + end function + + function hipblasCsprStridedBatched_typed(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsprStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCsprStridedBatched_typed = hipblasCsprStridedBatched_(handle,uplo,n,c_loc(alpha),x, & + incx,stridex,AP,strideA,batchCount) + end function + + function hipblasZsprStridedBatched_typed(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsprStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZsprStridedBatched_typed = hipblasZsprStridedBatched_(handle,uplo,n,c_loc(alpha),x, & + incx,stridex,AP,strideA,batchCount) + end function + + function hipblasSsprStridedBatched_64_typed(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsprStridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasSsprStridedBatched_64_typed = hipblasSsprStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),x,incx,stridex,AP,strideA,batchCount) + end function + + function hipblasDsprStridedBatched_64_typed(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsprStridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasDsprStridedBatched_64_typed = hipblasDsprStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),x,incx,stridex,AP,strideA,batchCount) + end function + + function hipblasCsprStridedBatched_64_typed(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsprStridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCsprStridedBatched_64_typed = hipblasCsprStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),x,incx,stridex,AP,strideA,batchCount) + end function + + function hipblasZsprStridedBatched_64_typed(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsprStridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZsprStridedBatched_64_typed = hipblasZsprStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),x,incx,stridex,AP,strideA,batchCount) + end function + + function hipblasSspr2_typed(handle,uplo,n,alpha,x,incx,y,incy,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: y + integer(c_int) :: incy + type(c_ptr) :: AP + ! + hipblasSspr2_typed = hipblasSspr2_(handle,uplo,n,c_loc(alpha),x,incx,y,incy,AP) + end function + + function hipblasDspr2_typed(handle,uplo,n,alpha,x,incx,y,incy,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: y + integer(c_int) :: incy + type(c_ptr) :: AP + ! + hipblasDspr2_typed = hipblasDspr2_(handle,uplo,n,c_loc(alpha),x,incx,y,incy,AP) + end function + + function hipblasSspr2_64_typed(handle,uplo,n,alpha,x,incx,y,incy,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: y + integer(c_int64_t) :: incy + type(c_ptr) :: AP + ! + hipblasSspr2_64_typed = hipblasSspr2_64_(handle,uplo,n,c_loc(alpha),x,incx,y,incy,AP) + end function + + function hipblasDspr2_64_typed(handle,uplo,n,alpha,x,incx,y,incy,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: y + integer(c_int64_t) :: incy + type(c_ptr) :: AP + ! + hipblasDspr2_64_typed = hipblasDspr2_64_(handle,uplo,n,c_loc(alpha),x,incx,y,incy,AP) + end function + + function hipblasSspr2Batched_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2Batched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + type(c_ptr), value :: x + integer(c_int) :: incx + type(c_ptr), value :: y + integer(c_int) :: incy + type(c_ptr), value :: AP + integer(c_int) :: batchCount + ! + hipblasSspr2Batched_typed = hipblasSspr2Batched_(handle,uplo,n,c_loc(alpha),x,incx,y,incy, & + AP,batchCount) + end function + + function hipblasDspr2Batched_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2Batched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + type(c_ptr), value :: x + integer(c_int) :: incx + type(c_ptr), value :: y + integer(c_int) :: incy + type(c_ptr), value :: AP + integer(c_int) :: batchCount + ! + hipblasDspr2Batched_typed = hipblasDspr2Batched_(handle,uplo,n,c_loc(alpha),x,incx,y,incy, & + AP,batchCount) + end function + + function hipblasSspr2Batched_64_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2Batched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + type(c_ptr), value :: x + integer(c_int64_t) :: incx + type(c_ptr), value :: y + integer(c_int64_t) :: incy + type(c_ptr), value :: AP + integer(c_int64_t) :: batchCount + ! + hipblasSspr2Batched_64_typed = hipblasSspr2Batched_64_(handle,uplo,n,c_loc(alpha),x,incx,y, & + incy,AP,batchCount) + end function + + function hipblasDspr2Batched_64_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2Batched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + type(c_ptr), value :: x + integer(c_int64_t) :: incx + type(c_ptr), value :: y + integer(c_int64_t) :: incy + type(c_ptr), value :: AP + integer(c_int64_t) :: batchCount + ! + hipblasDspr2Batched_64_typed = hipblasDspr2Batched_64_(handle,uplo,n,c_loc(alpha),x,incx,y, & + incy,AP,batchCount) + end function + + function hipblasSspr2StridedBatched_typed(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2StridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasSspr2StridedBatched_typed = hipblasSspr2StridedBatched_(handle,uplo,n,c_loc(alpha),x, & + incx,stridex,y,incy,stridey,AP,strideA,batchCount) + end function + + function hipblasDspr2StridedBatched_typed(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2StridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasDspr2StridedBatched_typed = hipblasDspr2StridedBatched_(handle,uplo,n,c_loc(alpha),x, & + incx,stridex,y,incy,stridey,AP,strideA,batchCount) + end function + + function hipblasSspr2StridedBatched_64_typed(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2StridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasSspr2StridedBatched_64_typed = hipblasSspr2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),x,incx,stridex,y,incy,stridey,AP,strideA,batchCount) + end function + + function hipblasDspr2StridedBatched_64_typed(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2StridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasDspr2StridedBatched_64_typed = hipblasDspr2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),x,incx,stridex,y,incy,stridey,AP,strideA,batchCount) + end function + + function hipblasSsymv_typed(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymv_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + type(c_ptr) :: x + integer(c_int) :: incx + real(c_float),target :: beta + type(c_ptr) :: y + integer(c_int) :: incy + ! + hipblasSsymv_typed = hipblasSsymv_(handle,uplo,n,c_loc(alpha),AP,lda,x,incx,c_loc(beta),y, & + incy) + end function + + function hipblasDsymv_typed(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymv_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + type(c_ptr) :: x + integer(c_int) :: incx + real(c_double),target :: beta + type(c_ptr) :: y + integer(c_int) :: incy + ! + hipblasDsymv_typed = hipblasDsymv_(handle,uplo,n,c_loc(alpha),AP,lda,x,incx,c_loc(beta),y, & + incy) + end function + + function hipblasCsymv_typed(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymv_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + type(c_ptr) :: x + integer(c_int) :: incx + complex(c_float_complex),target :: beta + type(c_ptr) :: y + integer(c_int) :: incy + ! + hipblasCsymv_typed = hipblasCsymv_(handle,uplo,n,c_loc(alpha),AP,lda,x,incx,c_loc(beta),y, & + incy) + end function + + function hipblasZsymv_typed(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymv_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + type(c_ptr) :: x + integer(c_int) :: incx + complex(c_double_complex),target :: beta + type(c_ptr) :: y + integer(c_int) :: incy + ! + hipblasZsymv_typed = hipblasZsymv_(handle,uplo,n,c_loc(alpha),AP,lda,x,incx,c_loc(beta),y, & + incy) + end function + + function hipblasSsymv_64_typed(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymv_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + type(c_ptr) :: x + integer(c_int64_t) :: incx + real(c_float),target :: beta + type(c_ptr) :: y + integer(c_int64_t) :: incy + ! + hipblasSsymv_64_typed = hipblasSsymv_64_(handle,uplo,n,c_loc(alpha),AP,lda,x,incx, & + c_loc(beta),y,incy) + end function + + function hipblasDsymv_64_typed(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymv_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + type(c_ptr) :: x + integer(c_int64_t) :: incx + real(c_double),target :: beta + type(c_ptr) :: y + integer(c_int64_t) :: incy + ! + hipblasDsymv_64_typed = hipblasDsymv_64_(handle,uplo,n,c_loc(alpha),AP,lda,x,incx, & + c_loc(beta),y,incy) + end function + + function hipblasCsymv_64_typed(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymv_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + type(c_ptr) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: beta + type(c_ptr) :: y + integer(c_int64_t) :: incy + ! + hipblasCsymv_64_typed = hipblasCsymv_64_(handle,uplo,n,c_loc(alpha),AP,lda,x,incx, & + c_loc(beta),y,incy) + end function + + function hipblasZsymv_64_typed(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymv_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + type(c_ptr) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: beta + type(c_ptr) :: y + integer(c_int64_t) :: incy + ! + hipblasZsymv_64_typed = hipblasZsymv_64_(handle,uplo,n,c_loc(alpha),AP,lda,x,incx, & + c_loc(beta),y,incy) + end function + + function hipblasSsymvBatched_typed(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymvBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + type(c_ptr), value :: AP + integer(c_int) :: lda + type(c_ptr), value :: x + integer(c_int) :: incx + real(c_float),target :: beta + type(c_ptr), value :: y + integer(c_int) :: incy + integer(c_int) :: batchCount + ! + hipblasSsymvBatched_typed = hipblasSsymvBatched_(handle,uplo,n,c_loc(alpha),AP,lda,x,incx, & + c_loc(beta),y,incy,batchCount) + end function + + function hipblasDsymvBatched_typed(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymvBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + type(c_ptr), value :: AP + integer(c_int) :: lda + type(c_ptr), value :: x + integer(c_int) :: incx + real(c_double),target :: beta + type(c_ptr), value :: y + integer(c_int) :: incy + integer(c_int) :: batchCount + ! + hipblasDsymvBatched_typed = hipblasDsymvBatched_(handle,uplo,n,c_loc(alpha),AP,lda,x,incx, & + c_loc(beta),y,incy,batchCount) + end function + + function hipblasCsymvBatched_typed(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymvBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + type(c_ptr), value :: AP + integer(c_int) :: lda + type(c_ptr), value :: x + integer(c_int) :: incx + complex(c_float_complex),target :: beta + type(c_ptr), value :: y + integer(c_int) :: incy + integer(c_int) :: batchCount + ! + hipblasCsymvBatched_typed = hipblasCsymvBatched_(handle,uplo,n,c_loc(alpha),AP,lda,x,incx, & + c_loc(beta),y,incy,batchCount) + end function + + function hipblasZsymvBatched_typed(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymvBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + type(c_ptr), value :: AP + integer(c_int) :: lda + type(c_ptr), value :: x + integer(c_int) :: incx + complex(c_double_complex),target :: beta + type(c_ptr), value :: y + integer(c_int) :: incy + integer(c_int) :: batchCount + ! + hipblasZsymvBatched_typed = hipblasZsymvBatched_(handle,uplo,n,c_loc(alpha),AP,lda,x,incx, & + c_loc(beta),y,incy,batchCount) + end function + + function hipblasSsymvBatched_64_typed(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymvBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + type(c_ptr), value :: AP + integer(c_int64_t) :: lda + type(c_ptr), value :: x + integer(c_int64_t) :: incx + real(c_float),target :: beta + type(c_ptr), value :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: batchCount + ! + hipblasSsymvBatched_64_typed = hipblasSsymvBatched_64_(handle,uplo,n,c_loc(alpha),AP,lda,x, & + incx,c_loc(beta),y,incy,batchCount) + end function + + function hipblasDsymvBatched_64_typed(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymvBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + type(c_ptr), value :: AP + integer(c_int64_t) :: lda + type(c_ptr), value :: x + integer(c_int64_t) :: incx + real(c_double),target :: beta + type(c_ptr), value :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: batchCount + ! + hipblasDsymvBatched_64_typed = hipblasDsymvBatched_64_(handle,uplo,n,c_loc(alpha),AP,lda,x, & + incx,c_loc(beta),y,incy,batchCount) + end function + + function hipblasCsymvBatched_64_typed(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymvBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + type(c_ptr), value :: AP + integer(c_int64_t) :: lda + type(c_ptr), value :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: beta + type(c_ptr), value :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: batchCount + ! + hipblasCsymvBatched_64_typed = hipblasCsymvBatched_64_(handle,uplo,n,c_loc(alpha),AP,lda,x, & + incx,c_loc(beta),y,incy,batchCount) + end function + + function hipblasZsymvBatched_64_typed(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymvBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + type(c_ptr), value :: AP + integer(c_int64_t) :: lda + type(c_ptr), value :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: beta + type(c_ptr), value :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: batchCount + ! + hipblasZsymvBatched_64_typed = hipblasZsymvBatched_64_(handle,uplo,n,c_loc(alpha),AP,lda,x, & + incx,c_loc(beta),y,incy,batchCount) + end function + + function hipblasSsymvStridedBatched_typed(handle,uplo,n,alpha,AP,lda,strideA,x,incx,stridex, & + beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymvStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + type(c_ptr) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasSsymvStridedBatched_typed = hipblasSsymvStridedBatched_(handle,uplo,n,c_loc(alpha), & + AP,lda,strideA,x,incx,stridex,c_loc(beta),y,incy,stridey,batchCount) + end function + + function hipblasDsymvStridedBatched_typed(handle,uplo,n,alpha,AP,lda,strideA,x,incx,stridex, & + beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymvStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + type(c_ptr) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasDsymvStridedBatched_typed = hipblasDsymvStridedBatched_(handle,uplo,n,c_loc(alpha), & + AP,lda,strideA,x,incx,stridex,c_loc(beta),y,incy,stridey,batchCount) + end function + + function hipblasCsymvStridedBatched_typed(handle,uplo,n,alpha,AP,lda,strideA,x,incx,stridex, & + beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymvStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + type(c_ptr) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasCsymvStridedBatched_typed = hipblasCsymvStridedBatched_(handle,uplo,n,c_loc(alpha), & + AP,lda,strideA,x,incx,stridex,c_loc(beta),y,incy,stridey,batchCount) + end function + + function hipblasZsymvStridedBatched_typed(handle,uplo,n,alpha,AP,lda,strideA,x,incx,stridex, & + beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymvStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + type(c_ptr) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZsymvStridedBatched_typed = hipblasZsymvStridedBatched_(handle,uplo,n,c_loc(alpha), & + AP,lda,strideA,x,incx,stridex,c_loc(beta),y,incy,stridey,batchCount) + end function + + function hipblasSsymvStridedBatched_64_typed(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymvStridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + type(c_ptr) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasSsymvStridedBatched_64_typed = hipblasSsymvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),AP,lda,strideA,x,incx,stridex,c_loc(beta),y,incy,stridey,batchCount) + end function + + function hipblasDsymvStridedBatched_64_typed(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymvStridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + type(c_ptr) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasDsymvStridedBatched_64_typed = hipblasDsymvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),AP,lda,strideA,x,incx,stridex,c_loc(beta),y,incy,stridey,batchCount) + end function + + function hipblasCsymvStridedBatched_64_typed(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymvStridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + type(c_ptr) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasCsymvStridedBatched_64_typed = hipblasCsymvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),AP,lda,strideA,x,incx,stridex,c_loc(beta),y,incy,stridey,batchCount) + end function + + function hipblasZsymvStridedBatched_64_typed(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymvStridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + type(c_ptr) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZsymvStridedBatched_64_typed = hipblasZsymvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),AP,lda,strideA,x,incx,stridex,c_loc(beta),y,incy,stridey,batchCount) + end function + + function hipblasSsyr_typed(handle,uplo,n,alpha,x,incx,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: AP + integer(c_int) :: lda + ! + hipblasSsyr_typed = hipblasSsyr_(handle,uplo,n,c_loc(alpha),x,incx,AP,lda) + end function + + function hipblasDsyr_typed(handle,uplo,n,alpha,x,incx,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: AP + integer(c_int) :: lda + ! + hipblasDsyr_typed = hipblasDsyr_(handle,uplo,n,c_loc(alpha),x,incx,AP,lda) + end function + + function hipblasCsyr_typed(handle,uplo,n,alpha,x,incx,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: AP + integer(c_int) :: lda + ! + hipblasCsyr_typed = hipblasCsyr_(handle,uplo,n,c_loc(alpha),x,incx,AP,lda) + end function + + function hipblasZsyr_typed(handle,uplo,n,alpha,x,incx,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: AP + integer(c_int) :: lda + ! + hipblasZsyr_typed = hipblasZsyr_(handle,uplo,n,c_loc(alpha),x,incx,AP,lda) + end function + + function hipblasSsyr_64_typed(handle,uplo,n,alpha,x,incx,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: AP + integer(c_int64_t) :: lda + ! + hipblasSsyr_64_typed = hipblasSsyr_64_(handle,uplo,n,c_loc(alpha),x,incx,AP,lda) + end function + + function hipblasDsyr_64_typed(handle,uplo,n,alpha,x,incx,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: AP + integer(c_int64_t) :: lda + ! + hipblasDsyr_64_typed = hipblasDsyr_64_(handle,uplo,n,c_loc(alpha),x,incx,AP,lda) + end function + + function hipblasCsyr_64_typed(handle,uplo,n,alpha,x,incx,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: AP + integer(c_int64_t) :: lda + ! + hipblasCsyr_64_typed = hipblasCsyr_64_(handle,uplo,n,c_loc(alpha),x,incx,AP,lda) + end function + + function hipblasZsyr_64_typed(handle,uplo,n,alpha,x,incx,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: AP + integer(c_int64_t) :: lda + ! + hipblasZsyr_64_typed = hipblasZsyr_64_(handle,uplo,n,c_loc(alpha),x,incx,AP,lda) + end function + + function hipblasSsyrBatched_typed(handle,uplo,n,alpha,x,incx,AP,lda,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + type(c_ptr), value :: x + integer(c_int) :: incx + type(c_ptr), value :: AP + integer(c_int) :: lda + integer(c_int) :: batchCount + ! + hipblasSsyrBatched_typed = hipblasSsyrBatched_(handle,uplo,n,c_loc(alpha),x,incx,AP,lda, & + batchCount) + end function + + function hipblasDsyrBatched_typed(handle,uplo,n,alpha,x,incx,AP,lda,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + type(c_ptr), value :: x + integer(c_int) :: incx + type(c_ptr), value :: AP + integer(c_int) :: lda + integer(c_int) :: batchCount + ! + hipblasDsyrBatched_typed = hipblasDsyrBatched_(handle,uplo,n,c_loc(alpha),x,incx,AP,lda, & + batchCount) + end function + + function hipblasCsyrBatched_typed(handle,uplo,n,alpha,x,incx,AP,lda,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + type(c_ptr), value :: x + integer(c_int) :: incx + type(c_ptr), value :: AP + integer(c_int) :: lda + integer(c_int) :: batchCount + ! + hipblasCsyrBatched_typed = hipblasCsyrBatched_(handle,uplo,n,c_loc(alpha),x,incx,AP,lda, & + batchCount) + end function + + function hipblasZsyrBatched_typed(handle,uplo,n,alpha,x,incx,AP,lda,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + type(c_ptr), value :: x + integer(c_int) :: incx + type(c_ptr), value :: AP + integer(c_int) :: lda + integer(c_int) :: batchCount + ! + hipblasZsyrBatched_typed = hipblasZsyrBatched_(handle,uplo,n,c_loc(alpha),x,incx,AP,lda, & + batchCount) + end function + + function hipblasSsyrBatched_64_typed(handle,uplo,n,alpha,x,incx,AP,lda,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + type(c_ptr), value :: x + integer(c_int64_t) :: incx + type(c_ptr), value :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: batchCount + ! + hipblasSsyrBatched_64_typed = hipblasSsyrBatched_64_(handle,uplo,n,c_loc(alpha),x,incx,AP, & + lda,batchCount) + end function + + function hipblasDsyrBatched_64_typed(handle,uplo,n,alpha,x,incx,AP,lda,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + type(c_ptr), value :: x + integer(c_int64_t) :: incx + type(c_ptr), value :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: batchCount + ! + hipblasDsyrBatched_64_typed = hipblasDsyrBatched_64_(handle,uplo,n,c_loc(alpha),x,incx,AP, & + lda,batchCount) + end function + + function hipblasCsyrBatched_64_typed(handle,uplo,n,alpha,x,incx,AP,lda,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + type(c_ptr), value :: x + integer(c_int64_t) :: incx + type(c_ptr), value :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: batchCount + ! + hipblasCsyrBatched_64_typed = hipblasCsyrBatched_64_(handle,uplo,n,c_loc(alpha),x,incx,AP, & + lda,batchCount) + end function + + function hipblasZsyrBatched_64_typed(handle,uplo,n,alpha,x,incx,AP,lda,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + type(c_ptr), value :: x + integer(c_int64_t) :: incx + type(c_ptr), value :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: batchCount + ! + hipblasZsyrBatched_64_typed = hipblasZsyrBatched_64_(handle,uplo,n,c_loc(alpha),x,incx,AP, & + lda,batchCount) + end function + + function hipblasSsyrStridedBatched_typed(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasSsyrStridedBatched_typed = hipblasSsyrStridedBatched_(handle,uplo,n,c_loc(alpha),x, & + incx,stridex,AP,lda,strideA,batchCount) + end function + + function hipblasDsyrStridedBatched_typed(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasDsyrStridedBatched_typed = hipblasDsyrStridedBatched_(handle,uplo,n,c_loc(alpha),x, & + incx,stridex,AP,lda,strideA,batchCount) + end function + + function hipblasCsyrStridedBatched_typed(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCsyrStridedBatched_typed = hipblasCsyrStridedBatched_(handle,uplo,n,c_loc(alpha),x, & + incx,stridex,AP,lda,strideA,batchCount) + end function + + function hipblasZsyrStridedBatched_typed(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZsyrStridedBatched_typed = hipblasZsyrStridedBatched_(handle,uplo,n,c_loc(alpha),x, & + incx,stridex,AP,lda,strideA,batchCount) + end function + + function hipblasSsyrStridedBatched_64_typed(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrStridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasSsyrStridedBatched_64_typed = hipblasSsyrStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),x,incx,stridex,AP,lda,strideA,batchCount) + end function + + function hipblasDsyrStridedBatched_64_typed(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrStridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasDsyrStridedBatched_64_typed = hipblasDsyrStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),x,incx,stridex,AP,lda,strideA,batchCount) + end function + + function hipblasCsyrStridedBatched_64_typed(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrStridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCsyrStridedBatched_64_typed = hipblasCsyrStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),x,incx,stridex,AP,lda,strideA,batchCount) + end function + + function hipblasZsyrStridedBatched_64_typed(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrStridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZsyrStridedBatched_64_typed = hipblasZsyrStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),x,incx,stridex,AP,lda,strideA,batchCount) + end function + + function hipblasSsyr2_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: y + integer(c_int) :: incy + type(c_ptr) :: AP + integer(c_int) :: lda + ! + hipblasSsyr2_typed = hipblasSsyr2_(handle,uplo,n,c_loc(alpha),x,incx,y,incy,AP,lda) + end function + + function hipblasDsyr2_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: y + integer(c_int) :: incy + type(c_ptr) :: AP + integer(c_int) :: lda + ! + hipblasDsyr2_typed = hipblasDsyr2_(handle,uplo,n,c_loc(alpha),x,incx,y,incy,AP,lda) + end function + + function hipblasCsyr2_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: y + integer(c_int) :: incy + type(c_ptr) :: AP + integer(c_int) :: lda + ! + hipblasCsyr2_typed = hipblasCsyr2_(handle,uplo,n,c_loc(alpha),x,incx,y,incy,AP,lda) + end function + + function hipblasZsyr2_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: y + integer(c_int) :: incy + type(c_ptr) :: AP + integer(c_int) :: lda + ! + hipblasZsyr2_typed = hipblasZsyr2_(handle,uplo,n,c_loc(alpha),x,incx,y,incy,AP,lda) + end function + + function hipblasSsyr2_64_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: y + integer(c_int64_t) :: incy + type(c_ptr) :: AP + integer(c_int64_t) :: lda + ! + hipblasSsyr2_64_typed = hipblasSsyr2_64_(handle,uplo,n,c_loc(alpha),x,incx,y,incy,AP,lda) + end function + + function hipblasDsyr2_64_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: y + integer(c_int64_t) :: incy + type(c_ptr) :: AP + integer(c_int64_t) :: lda + ! + hipblasDsyr2_64_typed = hipblasDsyr2_64_(handle,uplo,n,c_loc(alpha),x,incx,y,incy,AP,lda) + end function + + function hipblasCsyr2_64_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: y + integer(c_int64_t) :: incy + type(c_ptr) :: AP + integer(c_int64_t) :: lda + ! + hipblasCsyr2_64_typed = hipblasCsyr2_64_(handle,uplo,n,c_loc(alpha),x,incx,y,incy,AP,lda) + end function + + function hipblasZsyr2_64_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: y + integer(c_int64_t) :: incy + type(c_ptr) :: AP + integer(c_int64_t) :: lda + ! + hipblasZsyr2_64_typed = hipblasZsyr2_64_(handle,uplo,n,c_loc(alpha),x,incx,y,incy,AP,lda) + end function + + function hipblasSsyr2Batched_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,lda,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2Batched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + type(c_ptr), value :: x + integer(c_int) :: incx + type(c_ptr), value :: y + integer(c_int) :: incy + type(c_ptr), value :: AP + integer(c_int) :: lda + integer(c_int) :: batchCount + ! + hipblasSsyr2Batched_typed = hipblasSsyr2Batched_(handle,uplo,n,c_loc(alpha),x,incx,y,incy, & + AP,lda,batchCount) + end function + + function hipblasDsyr2Batched_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,lda,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2Batched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + type(c_ptr), value :: x + integer(c_int) :: incx + type(c_ptr), value :: y + integer(c_int) :: incy + type(c_ptr), value :: AP + integer(c_int) :: lda + integer(c_int) :: batchCount + ! + hipblasDsyr2Batched_typed = hipblasDsyr2Batched_(handle,uplo,n,c_loc(alpha),x,incx,y,incy, & + AP,lda,batchCount) + end function + + function hipblasCsyr2Batched_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,lda,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2Batched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + type(c_ptr), value :: x + integer(c_int) :: incx + type(c_ptr), value :: y + integer(c_int) :: incy + type(c_ptr), value :: AP + integer(c_int) :: lda + integer(c_int) :: batchCount + ! + hipblasCsyr2Batched_typed = hipblasCsyr2Batched_(handle,uplo,n,c_loc(alpha),x,incx,y,incy, & + AP,lda,batchCount) + end function + + function hipblasZsyr2Batched_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,lda,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2Batched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + type(c_ptr), value :: x + integer(c_int) :: incx + type(c_ptr), value :: y + integer(c_int) :: incy + type(c_ptr), value :: AP + integer(c_int) :: lda + integer(c_int) :: batchCount + ! + hipblasZsyr2Batched_typed = hipblasZsyr2Batched_(handle,uplo,n,c_loc(alpha),x,incx,y,incy, & + AP,lda,batchCount) + end function + + function hipblasSsyr2Batched_64_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,lda,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2Batched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + type(c_ptr), value :: x + integer(c_int64_t) :: incx + type(c_ptr), value :: y + integer(c_int64_t) :: incy + type(c_ptr), value :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: batchCount + ! + hipblasSsyr2Batched_64_typed = hipblasSsyr2Batched_64_(handle,uplo,n,c_loc(alpha),x,incx,y, & + incy,AP,lda,batchCount) + end function + + function hipblasDsyr2Batched_64_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,lda,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2Batched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + type(c_ptr), value :: x + integer(c_int64_t) :: incx + type(c_ptr), value :: y + integer(c_int64_t) :: incy + type(c_ptr), value :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: batchCount + ! + hipblasDsyr2Batched_64_typed = hipblasDsyr2Batched_64_(handle,uplo,n,c_loc(alpha),x,incx,y, & + incy,AP,lda,batchCount) + end function + + function hipblasCsyr2Batched_64_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,lda,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2Batched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + type(c_ptr), value :: x + integer(c_int64_t) :: incx + type(c_ptr), value :: y + integer(c_int64_t) :: incy + type(c_ptr), value :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: batchCount + ! + hipblasCsyr2Batched_64_typed = hipblasCsyr2Batched_64_(handle,uplo,n,c_loc(alpha),x,incx,y, & + incy,AP,lda,batchCount) + end function + + function hipblasZsyr2Batched_64_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,lda,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2Batched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + type(c_ptr), value :: x + integer(c_int64_t) :: incx + type(c_ptr), value :: y + integer(c_int64_t) :: incy + type(c_ptr), value :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: batchCount + ! + hipblasZsyr2Batched_64_typed = hipblasZsyr2Batched_64_(handle,uplo,n,c_loc(alpha),x,incx,y, & + incy,AP,lda,batchCount) + end function + + function hipblasSsyr2StridedBatched_typed(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2StridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasSsyr2StridedBatched_typed = hipblasSsyr2StridedBatched_(handle,uplo,n,c_loc(alpha),x, & + incx,stridex,y,incy,stridey,AP,lda,strideA,batchCount) + end function + + function hipblasDsyr2StridedBatched_typed(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2StridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasDsyr2StridedBatched_typed = hipblasDsyr2StridedBatched_(handle,uplo,n,c_loc(alpha),x, & + incx,stridex,y,incy,stridey,AP,lda,strideA,batchCount) + end function + + function hipblasCsyr2StridedBatched_typed(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2StridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCsyr2StridedBatched_typed = hipblasCsyr2StridedBatched_(handle,uplo,n,c_loc(alpha),x, & + incx,stridex,y,incy,stridey,AP,lda,strideA,batchCount) + end function + + function hipblasZsyr2StridedBatched_typed(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2StridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZsyr2StridedBatched_typed = hipblasZsyr2StridedBatched_(handle,uplo,n,c_loc(alpha),x, & + incx,stridex,y,incy,stridey,AP,lda,strideA,batchCount) + end function + + function hipblasSsyr2StridedBatched_64_typed(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2StridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasSsyr2StridedBatched_64_typed = hipblasSsyr2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),x,incx,stridex,y,incy,stridey,AP,lda,strideA,batchCount) + end function + + function hipblasDsyr2StridedBatched_64_typed(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2StridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasDsyr2StridedBatched_64_typed = hipblasDsyr2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),x,incx,stridex,y,incy,stridey,AP,lda,strideA,batchCount) + end function + + function hipblasCsyr2StridedBatched_64_typed(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2StridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCsyr2StridedBatched_64_typed = hipblasCsyr2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),x,incx,stridex,y,incy,stridey,AP,lda,strideA,batchCount) + end function + + function hipblasZsyr2StridedBatched_64_typed(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2StridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZsyr2StridedBatched_64_typed = hipblasZsyr2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),x,incx,stridex,y,incy,stridey,AP,lda,strideA,batchCount) + end function + + function hipblasSgemm_typed(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemm_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + type(c_ptr) :: BP + integer(c_int) :: ldb + real(c_float),target :: beta + type(c_ptr) :: CP + integer(c_int) :: ldc + ! + hipblasSgemm_typed = hipblasSgemm_(handle,transA,transB,m,n,k,c_loc(alpha),AP,lda,BP,ldb, & + c_loc(beta),CP,ldc) + end function + + function hipblasDgemm_typed(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemm_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + type(c_ptr) :: BP + integer(c_int) :: ldb + real(c_double),target :: beta + type(c_ptr) :: CP + integer(c_int) :: ldc + ! + hipblasDgemm_typed = hipblasDgemm_(handle,transA,transB,m,n,k,c_loc(alpha),AP,lda,BP,ldb, & + c_loc(beta),CP,ldc) + end function + + function hipblasCgemm_typed(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemm_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + type(c_ptr) :: BP + integer(c_int) :: ldb + complex(c_float_complex),target :: beta + type(c_ptr) :: CP + integer(c_int) :: ldc + ! + hipblasCgemm_typed = hipblasCgemm_(handle,transA,transB,m,n,k,c_loc(alpha),AP,lda,BP,ldb, & + c_loc(beta),CP,ldc) + end function + + function hipblasZgemm_typed(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemm_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + type(c_ptr) :: BP + integer(c_int) :: ldb + complex(c_double_complex),target :: beta + type(c_ptr) :: CP + integer(c_int) :: ldc + ! + hipblasZgemm_typed = hipblasZgemm_(handle,transA,transB,m,n,k,c_loc(alpha),AP,lda,BP,ldb, & + c_loc(beta),CP,ldc) + end function + + function hipblasSgemm_64_typed(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemm_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + type(c_ptr) :: BP + integer(c_int64_t) :: ldb + real(c_float),target :: beta + type(c_ptr) :: CP + integer(c_int64_t) :: ldc + ! + hipblasSgemm_64_typed = hipblasSgemm_64_(handle,transA,transB,m,n,k,c_loc(alpha),AP,lda,BP, & + ldb,c_loc(beta),CP,ldc) + end function + + function hipblasDgemm_64_typed(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemm_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + type(c_ptr) :: BP + integer(c_int64_t) :: ldb + real(c_double),target :: beta + type(c_ptr) :: CP + integer(c_int64_t) :: ldc + ! + hipblasDgemm_64_typed = hipblasDgemm_64_(handle,transA,transB,m,n,k,c_loc(alpha),AP,lda,BP, & + ldb,c_loc(beta),CP,ldc) + end function + + function hipblasCgemm_64_typed(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemm_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + type(c_ptr) :: BP + integer(c_int64_t) :: ldb + complex(c_float_complex),target :: beta + type(c_ptr) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCgemm_64_typed = hipblasCgemm_64_(handle,transA,transB,m,n,k,c_loc(alpha),AP,lda,BP, & + ldb,c_loc(beta),CP,ldc) + end function + + function hipblasZgemm_64_typed(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemm_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + type(c_ptr) :: BP + integer(c_int64_t) :: ldb + complex(c_double_complex),target :: beta + type(c_ptr) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZgemm_64_typed = hipblasZgemm_64_(handle,transA,transB,m,n,k,c_loc(alpha),AP,lda,BP, & + ldb,c_loc(beta),CP,ldc) + end function + + function hipblasSgemmBatched_typed(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + type(c_ptr), value :: AP + integer(c_int) :: lda + type(c_ptr), value :: BP + integer(c_int) :: ldb + real(c_float),target :: beta + type(c_ptr), value :: CP + integer(c_int) :: ldc + integer(c_int) :: batchCount + ! + hipblasSgemmBatched_typed = hipblasSgemmBatched_(handle,transA,transB,m,n,k,c_loc(alpha),AP, & + lda,BP,ldb,c_loc(beta),CP,ldc,batchCount) + end function + + function hipblasDgemmBatched_typed(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + type(c_ptr), value :: AP + integer(c_int) :: lda + type(c_ptr), value :: BP + integer(c_int) :: ldb + real(c_double),target :: beta + type(c_ptr), value :: CP + integer(c_int) :: ldc + integer(c_int) :: batchCount + ! + hipblasDgemmBatched_typed = hipblasDgemmBatched_(handle,transA,transB,m,n,k,c_loc(alpha),AP, & + lda,BP,ldb,c_loc(beta),CP,ldc,batchCount) + end function + + function hipblasCgemmBatched_typed(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemmBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + type(c_ptr), value :: AP + integer(c_int) :: lda + type(c_ptr), value :: BP + integer(c_int) :: ldb + complex(c_float_complex),target :: beta + type(c_ptr), value :: CP + integer(c_int) :: ldc + integer(c_int) :: batchCount + ! + hipblasCgemmBatched_typed = hipblasCgemmBatched_(handle,transA,transB,m,n,k,c_loc(alpha),AP, & + lda,BP,ldb,c_loc(beta),CP,ldc,batchCount) + end function + + function hipblasZgemmBatched_typed(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemmBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + type(c_ptr), value :: AP + integer(c_int) :: lda + type(c_ptr), value :: BP + integer(c_int) :: ldb + complex(c_double_complex),target :: beta + type(c_ptr), value :: CP + integer(c_int) :: ldc + integer(c_int) :: batchCount + ! + hipblasZgemmBatched_typed = hipblasZgemmBatched_(handle,transA,transB,m,n,k,c_loc(alpha),AP, & + lda,BP,ldb,c_loc(beta),CP,ldc,batchCount) + end function + + function hipblasSgemmBatched_64_typed(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP, & + ldc,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + type(c_ptr), value :: AP + integer(c_int64_t) :: lda + type(c_ptr), value :: BP + integer(c_int64_t) :: ldb + real(c_float),target :: beta + type(c_ptr), value :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: batchCount + ! + hipblasSgemmBatched_64_typed = hipblasSgemmBatched_64_(handle,transA,transB,m,n,k, & + c_loc(alpha),AP,lda,BP,ldb,c_loc(beta),CP,ldc,batchCount) + end function + + function hipblasDgemmBatched_64_typed(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP, & + ldc,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + type(c_ptr), value :: AP + integer(c_int64_t) :: lda + type(c_ptr), value :: BP + integer(c_int64_t) :: ldb + real(c_double),target :: beta + type(c_ptr), value :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: batchCount + ! + hipblasDgemmBatched_64_typed = hipblasDgemmBatched_64_(handle,transA,transB,m,n,k, & + c_loc(alpha),AP,lda,BP,ldb,c_loc(beta),CP,ldc,batchCount) + end function + + function hipblasCgemmBatched_64_typed(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP, & + ldc,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemmBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + type(c_ptr), value :: AP + integer(c_int64_t) :: lda + type(c_ptr), value :: BP + integer(c_int64_t) :: ldb + complex(c_float_complex),target :: beta + type(c_ptr), value :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: batchCount + ! + hipblasCgemmBatched_64_typed = hipblasCgemmBatched_64_(handle,transA,transB,m,n,k, & + c_loc(alpha),AP,lda,BP,ldb,c_loc(beta),CP,ldc,batchCount) + end function + + function hipblasZgemmBatched_64_typed(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP, & + ldc,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemmBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + type(c_ptr), value :: AP + integer(c_int64_t) :: lda + type(c_ptr), value :: BP + integer(c_int64_t) :: ldb + complex(c_double_complex),target :: beta + type(c_ptr), value :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: batchCount + ! + hipblasZgemmBatched_64_typed = hipblasZgemmBatched_64_(handle,transA,transB,m,n,k, & + c_loc(alpha),AP,lda,BP,ldb,c_loc(beta),CP,ldc,batchCount) + end function + + function hipblasSgemmStridedBatched_typed(handle,transA,transB,m,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + type(c_ptr) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasSgemmStridedBatched_typed = hipblasSgemmStridedBatched_(handle,transA,transB,m,n,k, & + c_loc(alpha),AP,lda,strideA,BP,ldb,strideB,c_loc(beta),CP,ldc,strideC,batchCount) + end function + + function hipblasDgemmStridedBatched_typed(handle,transA,transB,m,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + type(c_ptr) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasDgemmStridedBatched_typed = hipblasDgemmStridedBatched_(handle,transA,transB,m,n,k, & + c_loc(alpha),AP,lda,strideA,BP,ldb,strideB,c_loc(beta),CP,ldc,strideC,batchCount) + end function + + function hipblasCgemmStridedBatched_typed(handle,transA,transB,m,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemmStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + type(c_ptr) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCgemmStridedBatched_typed = hipblasCgemmStridedBatched_(handle,transA,transB,m,n,k, & + c_loc(alpha),AP,lda,strideA,BP,ldb,strideB,c_loc(beta),CP,ldc,strideC,batchCount) + end function + + function hipblasZgemmStridedBatched_typed(handle,transA,transB,m,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemmStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + type(c_ptr) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZgemmStridedBatched_typed = hipblasZgemmStridedBatched_(handle,transA,transB,m,n,k, & + c_loc(alpha),AP,lda,strideA,BP,ldb,strideB,c_loc(beta),CP,ldc,strideC,batchCount) + end function + + function hipblasSgemmStridedBatched_64_typed(handle,transA,transB,m,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmStridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + type(c_ptr) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasSgemmStridedBatched_64_typed = hipblasSgemmStridedBatched_64_(handle,transA,transB,m, & + n,k,c_loc(alpha),AP,lda,strideA,BP,ldb,strideB,c_loc(beta),CP,ldc,strideC,batchCount) + end function + + function hipblasDgemmStridedBatched_64_typed(handle,transA,transB,m,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmStridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + type(c_ptr) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasDgemmStridedBatched_64_typed = hipblasDgemmStridedBatched_64_(handle,transA,transB,m, & + n,k,c_loc(alpha),AP,lda,strideA,BP,ldb,strideB,c_loc(beta),CP,ldc,strideC,batchCount) + end function + + function hipblasCgemmStridedBatched_64_typed(handle,transA,transB,m,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemmStridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + type(c_ptr) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCgemmStridedBatched_64_typed = hipblasCgemmStridedBatched_64_(handle,transA,transB,m, & + n,k,c_loc(alpha),AP,lda,strideA,BP,ldb,strideB,c_loc(beta),CP,ldc,strideC,batchCount) + end function + + function hipblasZgemmStridedBatched_64_typed(handle,transA,transB,m,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemmStridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + type(c_ptr) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZgemmStridedBatched_64_typed = hipblasZgemmStridedBatched_64_(handle,transA,transB,m, & + n,k,c_loc(alpha),AP,lda,strideA,BP,ldb,strideB,c_loc(beta),CP,ldc,strideC,batchCount) + end function + + function hipblasCherk_typed(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherk_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + real(c_float),target :: beta + type(c_ptr) :: CP + integer(c_int) :: ldc + ! + hipblasCherk_typed = hipblasCherk_(handle,uplo,transA,n,k,c_loc(alpha),AP,lda,c_loc(beta), & + CP,ldc) + end function + + function hipblasZherk_typed(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherk_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + real(c_double),target :: beta + type(c_ptr) :: CP + integer(c_int) :: ldc + ! + hipblasZherk_typed = hipblasZherk_(handle,uplo,transA,n,k,c_loc(alpha),AP,lda,c_loc(beta), & + CP,ldc) + end function + + function hipblasCherk_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherk_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + real(c_float),target :: beta + type(c_ptr) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCherk_64_typed = hipblasCherk_64_(handle,uplo,transA,n,k,c_loc(alpha),AP,lda, & + c_loc(beta),CP,ldc) + end function + + function hipblasZherk_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherk_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + real(c_double),target :: beta + type(c_ptr) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZherk_64_typed = hipblasZherk_64_(handle,uplo,transA,n,k,c_loc(alpha),AP,lda, & + c_loc(beta),CP,ldc) + end function + + function hipblasCherkBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + type(c_ptr), value :: AP + integer(c_int) :: lda + real(c_float),target :: beta + type(c_ptr), value :: CP + integer(c_int) :: ldc + integer(c_int) :: batchCount + ! + hipblasCherkBatched_typed = hipblasCherkBatched_(handle,uplo,transA,n,k,c_loc(alpha),AP,lda, & + c_loc(beta),CP,ldc,batchCount) + end function + + function hipblasZherkBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + type(c_ptr), value :: AP + integer(c_int) :: lda + real(c_double),target :: beta + type(c_ptr), value :: CP + integer(c_int) :: ldc + integer(c_int) :: batchCount + ! + hipblasZherkBatched_typed = hipblasZherkBatched_(handle,uplo,transA,n,k,c_loc(alpha),AP,lda, & + c_loc(beta),CP,ldc,batchCount) + end function + + function hipblasCherkBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + type(c_ptr), value :: AP + integer(c_int64_t) :: lda + real(c_float),target :: beta + type(c_ptr), value :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: batchCount + ! + hipblasCherkBatched_64_typed = hipblasCherkBatched_64_(handle,uplo,transA,n,k,c_loc(alpha), & + AP,lda,c_loc(beta),CP,ldc,batchCount) + end function + + function hipblasZherkBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + type(c_ptr), value :: AP + integer(c_int64_t) :: lda + real(c_double),target :: beta + type(c_ptr), value :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: batchCount + ! + hipblasZherkBatched_64_typed = hipblasZherkBatched_64_(handle,uplo,transA,n,k,c_loc(alpha), & + AP,lda,c_loc(beta),CP,ldc,batchCount) + end function + + function hipblasCherkStridedBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta,CP, & + ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: beta + type(c_ptr) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCherkStridedBatched_typed = hipblasCherkStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),AP,lda,strideA,c_loc(beta),CP,ldc,strideC,batchCount) + end function + + function hipblasZherkStridedBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta,CP, & + ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: beta + type(c_ptr) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZherkStridedBatched_typed = hipblasZherkStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),AP,lda,strideA,c_loc(beta),CP,ldc,strideC,batchCount) + end function + + function hipblasCherkStridedBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta, & + CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkStridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: beta + type(c_ptr) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCherkStridedBatched_64_typed = hipblasCherkStridedBatched_64_(handle,uplo,transA,n,k, & + c_loc(alpha),AP,lda,strideA,c_loc(beta),CP,ldc,strideC,batchCount) + end function + + function hipblasZherkStridedBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta, & + CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkStridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: beta + type(c_ptr) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZherkStridedBatched_64_typed = hipblasZherkStridedBatched_64_(handle,uplo,transA,n,k, & + c_loc(alpha),AP,lda,strideA,c_loc(beta),CP,ldc,strideC,batchCount) + end function + + function hipblasCherkx_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkx_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + type(c_ptr) :: BP + integer(c_int) :: ldb + real(c_float),target :: beta + type(c_ptr) :: CP + integer(c_int) :: ldc + ! + hipblasCherkx_typed = hipblasCherkx_(handle,uplo,transA,n,k,c_loc(alpha),AP,lda,BP,ldb, & + c_loc(beta),CP,ldc) + end function + + function hipblasZherkx_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkx_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + type(c_ptr) :: BP + integer(c_int) :: ldb + real(c_double),target :: beta + type(c_ptr) :: CP + integer(c_int) :: ldc + ! + hipblasZherkx_typed = hipblasZherkx_(handle,uplo,transA,n,k,c_loc(alpha),AP,lda,BP,ldb, & + c_loc(beta),CP,ldc) + end function + + function hipblasCherkx_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkx_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + type(c_ptr) :: BP + integer(c_int64_t) :: ldb + real(c_float),target :: beta + type(c_ptr) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCherkx_64_typed = hipblasCherkx_64_(handle,uplo,transA,n,k,c_loc(alpha),AP,lda,BP, & + ldb,c_loc(beta),CP,ldc) + end function + + function hipblasZherkx_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkx_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + type(c_ptr) :: BP + integer(c_int64_t) :: ldb + real(c_double),target :: beta + type(c_ptr) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZherkx_64_typed = hipblasZherkx_64_(handle,uplo,transA,n,k,c_loc(alpha),AP,lda,BP, & + ldb,c_loc(beta),CP,ldc) + end function + + function hipblasCherkxBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkxBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + type(c_ptr), value :: AP + integer(c_int) :: lda + type(c_ptr), value :: BP + integer(c_int) :: ldb + real(c_float),target :: beta + type(c_ptr), value :: CP + integer(c_int) :: ldc + integer(c_int) :: batchCount + ! + hipblasCherkxBatched_typed = hipblasCherkxBatched_(handle,uplo,transA,n,k,c_loc(alpha),AP, & + lda,BP,ldb,c_loc(beta),CP,ldc,batchCount) + end function + + function hipblasZherkxBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkxBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + type(c_ptr), value :: AP + integer(c_int) :: lda + type(c_ptr), value :: BP + integer(c_int) :: ldb + real(c_double),target :: beta + type(c_ptr), value :: CP + integer(c_int) :: ldc + integer(c_int) :: batchCount + ! + hipblasZherkxBatched_typed = hipblasZherkxBatched_(handle,uplo,transA,n,k,c_loc(alpha),AP, & + lda,BP,ldb,c_loc(beta),CP,ldc,batchCount) + end function + + function hipblasCherkxBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkxBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + type(c_ptr), value :: AP + integer(c_int64_t) :: lda + type(c_ptr), value :: BP + integer(c_int64_t) :: ldb + real(c_float),target :: beta + type(c_ptr), value :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: batchCount + ! + hipblasCherkxBatched_64_typed = hipblasCherkxBatched_64_(handle,uplo,transA,n,k, & + c_loc(alpha),AP,lda,BP,ldb,c_loc(beta),CP,ldc,batchCount) + end function + + function hipblasZherkxBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkxBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + type(c_ptr), value :: AP + integer(c_int64_t) :: lda + type(c_ptr), value :: BP + integer(c_int64_t) :: ldb + real(c_double),target :: beta + type(c_ptr), value :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: batchCount + ! + hipblasZherkxBatched_64_typed = hipblasZherkxBatched_64_(handle,uplo,transA,n,k, & + c_loc(alpha),AP,lda,BP,ldb,c_loc(beta),CP,ldc,batchCount) + end function + + function hipblasCherkxStridedBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkxStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + type(c_ptr) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCherkxStridedBatched_typed = hipblasCherkxStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),AP,lda,strideA,BP,ldb,strideB,c_loc(beta),CP,ldc,strideC,batchCount) + end function + + function hipblasZherkxStridedBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkxStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + type(c_ptr) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZherkxStridedBatched_typed = hipblasZherkxStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),AP,lda,strideA,BP,ldb,strideB,c_loc(beta),CP,ldc,strideC,batchCount) + end function + + function hipblasCherkxStridedBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkxStridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + type(c_ptr) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCherkxStridedBatched_64_typed = hipblasCherkxStridedBatched_64_(handle,uplo,transA,n, & + k,c_loc(alpha),AP,lda,strideA,BP,ldb,strideB,c_loc(beta),CP,ldc,strideC,batchCount) + end function + + function hipblasZherkxStridedBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkxStridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + type(c_ptr) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZherkxStridedBatched_64_typed = hipblasZherkxStridedBatched_64_(handle,uplo,transA,n, & + k,c_loc(alpha),AP,lda,strideA,BP,ldb,strideB,c_loc(beta),CP,ldc,strideC,batchCount) + end function + + function hipblasCher2k_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2k_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + type(c_ptr) :: BP + integer(c_int) :: ldb + real(c_float),target :: beta + type(c_ptr) :: CP + integer(c_int) :: ldc + ! + hipblasCher2k_typed = hipblasCher2k_(handle,uplo,transA,n,k,c_loc(alpha),AP,lda,BP,ldb, & + c_loc(beta),CP,ldc) + end function + + function hipblasZher2k_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2k_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + type(c_ptr) :: BP + integer(c_int) :: ldb + real(c_double),target :: beta + type(c_ptr) :: CP + integer(c_int) :: ldc + ! + hipblasZher2k_typed = hipblasZher2k_(handle,uplo,transA,n,k,c_loc(alpha),AP,lda,BP,ldb, & + c_loc(beta),CP,ldc) + end function + + function hipblasCher2k_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2k_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + type(c_ptr) :: BP + integer(c_int64_t) :: ldb + real(c_float),target :: beta + type(c_ptr) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCher2k_64_typed = hipblasCher2k_64_(handle,uplo,transA,n,k,c_loc(alpha),AP,lda,BP, & + ldb,c_loc(beta),CP,ldc) + end function + + function hipblasZher2k_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2k_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + type(c_ptr) :: BP + integer(c_int64_t) :: ldb + real(c_double),target :: beta + type(c_ptr) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZher2k_64_typed = hipblasZher2k_64_(handle,uplo,transA,n,k,c_loc(alpha),AP,lda,BP, & + ldb,c_loc(beta),CP,ldc) + end function + + function hipblasCher2kBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2kBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + type(c_ptr), value :: AP + integer(c_int) :: lda + type(c_ptr), value :: BP + integer(c_int) :: ldb + real(c_float),target :: beta + type(c_ptr), value :: CP + integer(c_int) :: ldc + integer(c_int) :: batchCount + ! + hipblasCher2kBatched_typed = hipblasCher2kBatched_(handle,uplo,transA,n,k,c_loc(alpha),AP, & + lda,BP,ldb,c_loc(beta),CP,ldc,batchCount) + end function + + function hipblasZher2kBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2kBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + type(c_ptr), value :: AP + integer(c_int) :: lda + type(c_ptr), value :: BP + integer(c_int) :: ldb + real(c_double),target :: beta + type(c_ptr), value :: CP + integer(c_int) :: ldc + integer(c_int) :: batchCount + ! + hipblasZher2kBatched_typed = hipblasZher2kBatched_(handle,uplo,transA,n,k,c_loc(alpha),AP, & + lda,BP,ldb,c_loc(beta),CP,ldc,batchCount) + end function + + function hipblasCher2kBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2kBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + type(c_ptr), value :: AP + integer(c_int64_t) :: lda + type(c_ptr), value :: BP + integer(c_int64_t) :: ldb + real(c_float),target :: beta + type(c_ptr), value :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: batchCount + ! + hipblasCher2kBatched_64_typed = hipblasCher2kBatched_64_(handle,uplo,transA,n,k, & + c_loc(alpha),AP,lda,BP,ldb,c_loc(beta),CP,ldc,batchCount) + end function + + function hipblasZher2kBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2kBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + type(c_ptr), value :: AP + integer(c_int64_t) :: lda + type(c_ptr), value :: BP + integer(c_int64_t) :: ldb + real(c_double),target :: beta + type(c_ptr), value :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: batchCount + ! + hipblasZher2kBatched_64_typed = hipblasZher2kBatched_64_(handle,uplo,transA,n,k, & + c_loc(alpha),AP,lda,BP,ldb,c_loc(beta),CP,ldc,batchCount) + end function + + function hipblasCher2kStridedBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2kStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + type(c_ptr) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCher2kStridedBatched_typed = hipblasCher2kStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),AP,lda,strideA,BP,ldb,strideB,c_loc(beta),CP,ldc,strideC,batchCount) + end function + + function hipblasZher2kStridedBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2kStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + type(c_ptr) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZher2kStridedBatched_typed = hipblasZher2kStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),AP,lda,strideA,BP,ldb,strideB,c_loc(beta),CP,ldc,strideC,batchCount) + end function + + function hipblasCher2kStridedBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2kStridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + type(c_ptr) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCher2kStridedBatched_64_typed = hipblasCher2kStridedBatched_64_(handle,uplo,transA,n, & + k,c_loc(alpha),AP,lda,strideA,BP,ldb,strideB,c_loc(beta),CP,ldc,strideC,batchCount) + end function + + function hipblasZher2kStridedBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2kStridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + type(c_ptr) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZher2kStridedBatched_64_typed = hipblasZher2kStridedBatched_64_(handle,uplo,transA,n, & + k,c_loc(alpha),AP,lda,strideA,BP,ldb,strideB,c_loc(beta),CP,ldc,strideC,batchCount) + end function + + function hipblasSsymm_typed(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymm_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + type(c_ptr) :: BP + integer(c_int) :: ldb + real(c_float),target :: beta + type(c_ptr) :: CP + integer(c_int) :: ldc + ! + hipblasSsymm_typed = hipblasSsymm_(handle,side,uplo,m,n,c_loc(alpha),AP,lda,BP,ldb, & + c_loc(beta),CP,ldc) + end function + + function hipblasDsymm_typed(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymm_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + type(c_ptr) :: BP + integer(c_int) :: ldb + real(c_double),target :: beta + type(c_ptr) :: CP + integer(c_int) :: ldc + ! + hipblasDsymm_typed = hipblasDsymm_(handle,side,uplo,m,n,c_loc(alpha),AP,lda,BP,ldb, & + c_loc(beta),CP,ldc) + end function + + function hipblasCsymm_typed(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymm_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + type(c_ptr) :: BP + integer(c_int) :: ldb + complex(c_float_complex),target :: beta + type(c_ptr) :: CP + integer(c_int) :: ldc + ! + hipblasCsymm_typed = hipblasCsymm_(handle,side,uplo,m,n,c_loc(alpha),AP,lda,BP,ldb, & + c_loc(beta),CP,ldc) + end function + + function hipblasZsymm_typed(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymm_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + type(c_ptr) :: BP + integer(c_int) :: ldb + complex(c_double_complex),target :: beta + type(c_ptr) :: CP + integer(c_int) :: ldc + ! + hipblasZsymm_typed = hipblasZsymm_(handle,side,uplo,m,n,c_loc(alpha),AP,lda,BP,ldb, & + c_loc(beta),CP,ldc) + end function + + function hipblasSsymm_64_typed(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymm_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + type(c_ptr) :: BP + integer(c_int64_t) :: ldb + real(c_float),target :: beta + type(c_ptr) :: CP + integer(c_int64_t) :: ldc + ! + hipblasSsymm_64_typed = hipblasSsymm_64_(handle,side,uplo,m,n,c_loc(alpha),AP,lda,BP,ldb, & + c_loc(beta),CP,ldc) + end function + + function hipblasDsymm_64_typed(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymm_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + type(c_ptr) :: BP + integer(c_int64_t) :: ldb + real(c_double),target :: beta + type(c_ptr) :: CP + integer(c_int64_t) :: ldc + ! + hipblasDsymm_64_typed = hipblasDsymm_64_(handle,side,uplo,m,n,c_loc(alpha),AP,lda,BP,ldb, & + c_loc(beta),CP,ldc) + end function + + function hipblasCsymm_64_typed(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymm_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + type(c_ptr) :: BP + integer(c_int64_t) :: ldb + complex(c_float_complex),target :: beta + type(c_ptr) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCsymm_64_typed = hipblasCsymm_64_(handle,side,uplo,m,n,c_loc(alpha),AP,lda,BP,ldb, & + c_loc(beta),CP,ldc) + end function + + function hipblasZsymm_64_typed(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymm_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + type(c_ptr) :: BP + integer(c_int64_t) :: ldb + complex(c_double_complex),target :: beta + type(c_ptr) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZsymm_64_typed = hipblasZsymm_64_(handle,side,uplo,m,n,c_loc(alpha),AP,lda,BP,ldb, & + c_loc(beta),CP,ldc) + end function + + function hipblasSsymmBatched_typed(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymmBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + type(c_ptr), value :: AP + integer(c_int) :: lda + type(c_ptr), value :: BP + integer(c_int) :: ldb + real(c_float),target :: beta + type(c_ptr), value :: CP + integer(c_int) :: ldc + integer(c_int) :: batchCount + ! + hipblasSsymmBatched_typed = hipblasSsymmBatched_(handle,side,uplo,m,n,c_loc(alpha),AP,lda, & + BP,ldb,c_loc(beta),CP,ldc,batchCount) + end function + + function hipblasDsymmBatched_typed(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymmBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + type(c_ptr), value :: AP + integer(c_int) :: lda + type(c_ptr), value :: BP + integer(c_int) :: ldb + real(c_double),target :: beta + type(c_ptr), value :: CP + integer(c_int) :: ldc + integer(c_int) :: batchCount + ! + hipblasDsymmBatched_typed = hipblasDsymmBatched_(handle,side,uplo,m,n,c_loc(alpha),AP,lda, & + BP,ldb,c_loc(beta),CP,ldc,batchCount) + end function + + function hipblasCsymmBatched_typed(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymmBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + type(c_ptr), value :: AP + integer(c_int) :: lda + type(c_ptr), value :: BP + integer(c_int) :: ldb + complex(c_float_complex),target :: beta + type(c_ptr), value :: CP + integer(c_int) :: ldc + integer(c_int) :: batchCount + ! + hipblasCsymmBatched_typed = hipblasCsymmBatched_(handle,side,uplo,m,n,c_loc(alpha),AP,lda, & + BP,ldb,c_loc(beta),CP,ldc,batchCount) + end function + + function hipblasZsymmBatched_typed(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymmBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + type(c_ptr), value :: AP + integer(c_int) :: lda + type(c_ptr), value :: BP + integer(c_int) :: ldb + complex(c_double_complex),target :: beta + type(c_ptr), value :: CP + integer(c_int) :: ldc + integer(c_int) :: batchCount + ! + hipblasZsymmBatched_typed = hipblasZsymmBatched_(handle,side,uplo,m,n,c_loc(alpha),AP,lda, & + BP,ldb,c_loc(beta),CP,ldc,batchCount) + end function + + function hipblasSsymmBatched_64_typed(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymmBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + type(c_ptr), value :: AP + integer(c_int64_t) :: lda + type(c_ptr), value :: BP + integer(c_int64_t) :: ldb + real(c_float),target :: beta + type(c_ptr), value :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: batchCount + ! + hipblasSsymmBatched_64_typed = hipblasSsymmBatched_64_(handle,side,uplo,m,n,c_loc(alpha),AP, & + lda,BP,ldb,c_loc(beta),CP,ldc,batchCount) + end function + + function hipblasDsymmBatched_64_typed(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymmBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + type(c_ptr), value :: AP + integer(c_int64_t) :: lda + type(c_ptr), value :: BP + integer(c_int64_t) :: ldb + real(c_double),target :: beta + type(c_ptr), value :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: batchCount + ! + hipblasDsymmBatched_64_typed = hipblasDsymmBatched_64_(handle,side,uplo,m,n,c_loc(alpha),AP, & + lda,BP,ldb,c_loc(beta),CP,ldc,batchCount) + end function + + function hipblasCsymmBatched_64_typed(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymmBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + type(c_ptr), value :: AP + integer(c_int64_t) :: lda + type(c_ptr), value :: BP + integer(c_int64_t) :: ldb + complex(c_float_complex),target :: beta + type(c_ptr), value :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: batchCount + ! + hipblasCsymmBatched_64_typed = hipblasCsymmBatched_64_(handle,side,uplo,m,n,c_loc(alpha),AP, & + lda,BP,ldb,c_loc(beta),CP,ldc,batchCount) + end function + + function hipblasZsymmBatched_64_typed(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymmBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + type(c_ptr), value :: AP + integer(c_int64_t) :: lda + type(c_ptr), value :: BP + integer(c_int64_t) :: ldb + complex(c_double_complex),target :: beta + type(c_ptr), value :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: batchCount + ! + hipblasZsymmBatched_64_typed = hipblasZsymmBatched_64_(handle,side,uplo,m,n,c_loc(alpha),AP, & + lda,BP,ldb,c_loc(beta),CP,ldc,batchCount) + end function + + function hipblasSsymmStridedBatched_typed(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymmStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + type(c_ptr) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasSsymmStridedBatched_typed = hipblasSsymmStridedBatched_(handle,side,uplo,m,n, & + c_loc(alpha),AP,lda,strideA,BP,ldb,strideB,c_loc(beta),CP,ldc,strideC,batchCount) + end function + + function hipblasDsymmStridedBatched_typed(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymmStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + type(c_ptr) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasDsymmStridedBatched_typed = hipblasDsymmStridedBatched_(handle,side,uplo,m,n, & + c_loc(alpha),AP,lda,strideA,BP,ldb,strideB,c_loc(beta),CP,ldc,strideC,batchCount) + end function + + function hipblasCsymmStridedBatched_typed(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymmStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + type(c_ptr) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCsymmStridedBatched_typed = hipblasCsymmStridedBatched_(handle,side,uplo,m,n, & + c_loc(alpha),AP,lda,strideA,BP,ldb,strideB,c_loc(beta),CP,ldc,strideC,batchCount) + end function + + function hipblasZsymmStridedBatched_typed(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymmStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + type(c_ptr) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZsymmStridedBatched_typed = hipblasZsymmStridedBatched_(handle,side,uplo,m,n, & + c_loc(alpha),AP,lda,strideA,BP,ldb,strideB,c_loc(beta),CP,ldc,strideC,batchCount) + end function + + function hipblasSsymmStridedBatched_64_typed(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymmStridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + type(c_ptr) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasSsymmStridedBatched_64_typed = hipblasSsymmStridedBatched_64_(handle,side,uplo,m,n, & + c_loc(alpha),AP,lda,strideA,BP,ldb,strideB,c_loc(beta),CP,ldc,strideC,batchCount) + end function + + function hipblasDsymmStridedBatched_64_typed(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymmStridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + type(c_ptr) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasDsymmStridedBatched_64_typed = hipblasDsymmStridedBatched_64_(handle,side,uplo,m,n, & + c_loc(alpha),AP,lda,strideA,BP,ldb,strideB,c_loc(beta),CP,ldc,strideC,batchCount) + end function + + function hipblasCsymmStridedBatched_64_typed(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymmStridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + type(c_ptr) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCsymmStridedBatched_64_typed = hipblasCsymmStridedBatched_64_(handle,side,uplo,m,n, & + c_loc(alpha),AP,lda,strideA,BP,ldb,strideB,c_loc(beta),CP,ldc,strideC,batchCount) + end function + + function hipblasZsymmStridedBatched_64_typed(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymmStridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + type(c_ptr) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZsymmStridedBatched_64_typed = hipblasZsymmStridedBatched_64_(handle,side,uplo,m,n, & + c_loc(alpha),AP,lda,strideA,BP,ldb,strideB,c_loc(beta),CP,ldc,strideC,batchCount) + end function + + function hipblasSsyrk_typed(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrk_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + real(c_float),target :: beta + type(c_ptr) :: CP + integer(c_int) :: ldc + ! + hipblasSsyrk_typed = hipblasSsyrk_(handle,uplo,transA,n,k,c_loc(alpha),AP,lda,c_loc(beta), & + CP,ldc) + end function + + function hipblasDsyrk_typed(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrk_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + real(c_double),target :: beta + type(c_ptr) :: CP + integer(c_int) :: ldc + ! + hipblasDsyrk_typed = hipblasDsyrk_(handle,uplo,transA,n,k,c_loc(alpha),AP,lda,c_loc(beta), & + CP,ldc) + end function + + function hipblasCsyrk_typed(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrk_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + complex(c_float_complex),target :: beta + type(c_ptr) :: CP + integer(c_int) :: ldc + ! + hipblasCsyrk_typed = hipblasCsyrk_(handle,uplo,transA,n,k,c_loc(alpha),AP,lda,c_loc(beta), & + CP,ldc) + end function + + function hipblasZsyrk_typed(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrk_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + complex(c_double_complex),target :: beta + type(c_ptr) :: CP + integer(c_int) :: ldc + ! + hipblasZsyrk_typed = hipblasZsyrk_(handle,uplo,transA,n,k,c_loc(alpha),AP,lda,c_loc(beta), & + CP,ldc) + end function + + function hipblasSsyrk_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrk_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + real(c_float),target :: beta + type(c_ptr) :: CP + integer(c_int64_t) :: ldc + ! + hipblasSsyrk_64_typed = hipblasSsyrk_64_(handle,uplo,transA,n,k,c_loc(alpha),AP,lda, & + c_loc(beta),CP,ldc) + end function + + function hipblasDsyrk_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrk_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + real(c_double),target :: beta + type(c_ptr) :: CP + integer(c_int64_t) :: ldc + ! + hipblasDsyrk_64_typed = hipblasDsyrk_64_(handle,uplo,transA,n,k,c_loc(alpha),AP,lda, & + c_loc(beta),CP,ldc) + end function + + function hipblasCsyrk_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrk_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target :: beta + type(c_ptr) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCsyrk_64_typed = hipblasCsyrk_64_(handle,uplo,transA,n,k,c_loc(alpha),AP,lda, & + c_loc(beta),CP,ldc) + end function + + function hipblasZsyrk_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrk_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target :: beta + type(c_ptr) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZsyrk_64_typed = hipblasZsyrk_64_(handle,uplo,transA,n,k,c_loc(alpha),AP,lda, & + c_loc(beta),CP,ldc) + end function + + function hipblasSsyrkBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + type(c_ptr), value :: AP + integer(c_int) :: lda + real(c_float),target :: beta + type(c_ptr), value :: CP + integer(c_int) :: ldc + integer(c_int) :: batchCount + ! + hipblasSsyrkBatched_typed = hipblasSsyrkBatched_(handle,uplo,transA,n,k,c_loc(alpha),AP,lda, & + c_loc(beta),CP,ldc,batchCount) + end function + + function hipblasDsyrkBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + type(c_ptr), value :: AP + integer(c_int) :: lda + real(c_double),target :: beta + type(c_ptr), value :: CP + integer(c_int) :: ldc + integer(c_int) :: batchCount + ! + hipblasDsyrkBatched_typed = hipblasDsyrkBatched_(handle,uplo,transA,n,k,c_loc(alpha),AP,lda, & + c_loc(beta),CP,ldc,batchCount) + end function + + function hipblasCsyrkBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + type(c_ptr), value :: AP + integer(c_int) :: lda + complex(c_float_complex),target :: beta + type(c_ptr), value :: CP + integer(c_int) :: ldc + integer(c_int) :: batchCount + ! + hipblasCsyrkBatched_typed = hipblasCsyrkBatched_(handle,uplo,transA,n,k,c_loc(alpha),AP,lda, & + c_loc(beta),CP,ldc,batchCount) + end function + + function hipblasZsyrkBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + type(c_ptr), value :: AP + integer(c_int) :: lda + complex(c_double_complex),target :: beta + type(c_ptr), value :: CP + integer(c_int) :: ldc + integer(c_int) :: batchCount + ! + hipblasZsyrkBatched_typed = hipblasZsyrkBatched_(handle,uplo,transA,n,k,c_loc(alpha),AP,lda, & + c_loc(beta),CP,ldc,batchCount) + end function + + function hipblasSsyrkBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + type(c_ptr), value :: AP + integer(c_int64_t) :: lda + real(c_float),target :: beta + type(c_ptr), value :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: batchCount + ! + hipblasSsyrkBatched_64_typed = hipblasSsyrkBatched_64_(handle,uplo,transA,n,k,c_loc(alpha), & + AP,lda,c_loc(beta),CP,ldc,batchCount) + end function + + function hipblasDsyrkBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + type(c_ptr), value :: AP + integer(c_int64_t) :: lda + real(c_double),target :: beta + type(c_ptr), value :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: batchCount + ! + hipblasDsyrkBatched_64_typed = hipblasDsyrkBatched_64_(handle,uplo,transA,n,k,c_loc(alpha), & + AP,lda,c_loc(beta),CP,ldc,batchCount) + end function + + function hipblasCsyrkBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + type(c_ptr), value :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target :: beta + type(c_ptr), value :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: batchCount + ! + hipblasCsyrkBatched_64_typed = hipblasCsyrkBatched_64_(handle,uplo,transA,n,k,c_loc(alpha), & + AP,lda,c_loc(beta),CP,ldc,batchCount) + end function + + function hipblasZsyrkBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + type(c_ptr), value :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target :: beta + type(c_ptr), value :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: batchCount + ! + hipblasZsyrkBatched_64_typed = hipblasZsyrkBatched_64_(handle,uplo,transA,n,k,c_loc(alpha), & + AP,lda,c_loc(beta),CP,ldc,batchCount) + end function + + function hipblasSsyrkStridedBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta,CP, & + ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: beta + type(c_ptr) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasSsyrkStridedBatched_typed = hipblasSsyrkStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),AP,lda,strideA,c_loc(beta),CP,ldc,strideC,batchCount) + end function + + function hipblasDsyrkStridedBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta,CP, & + ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: beta + type(c_ptr) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasDsyrkStridedBatched_typed = hipblasDsyrkStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),AP,lda,strideA,c_loc(beta),CP,ldc,strideC,batchCount) + end function + + function hipblasCsyrkStridedBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta,CP, & + ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: beta + type(c_ptr) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCsyrkStridedBatched_typed = hipblasCsyrkStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),AP,lda,strideA,c_loc(beta),CP,ldc,strideC,batchCount) + end function + + function hipblasZsyrkStridedBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta,CP, & + ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: beta + type(c_ptr) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZsyrkStridedBatched_typed = hipblasZsyrkStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),AP,lda,strideA,c_loc(beta),CP,ldc,strideC,batchCount) + end function + + function hipblasSsyrkStridedBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta, & + CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkStridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: beta + type(c_ptr) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasSsyrkStridedBatched_64_typed = hipblasSsyrkStridedBatched_64_(handle,uplo,transA,n,k, & + c_loc(alpha),AP,lda,strideA,c_loc(beta),CP,ldc,strideC,batchCount) + end function + + function hipblasDsyrkStridedBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta, & + CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkStridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: beta + type(c_ptr) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasDsyrkStridedBatched_64_typed = hipblasDsyrkStridedBatched_64_(handle,uplo,transA,n,k, & + c_loc(alpha),AP,lda,strideA,c_loc(beta),CP,ldc,strideC,batchCount) + end function + + function hipblasCsyrkStridedBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta, & + CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkStridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: beta + type(c_ptr) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCsyrkStridedBatched_64_typed = hipblasCsyrkStridedBatched_64_(handle,uplo,transA,n,k, & + c_loc(alpha),AP,lda,strideA,c_loc(beta),CP,ldc,strideC,batchCount) + end function + + function hipblasZsyrkStridedBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta, & + CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkStridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: beta + type(c_ptr) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZsyrkStridedBatched_64_typed = hipblasZsyrkStridedBatched_64_(handle,uplo,transA,n,k, & + c_loc(alpha),AP,lda,strideA,c_loc(beta),CP,ldc,strideC,batchCount) + end function + + function hipblasSsyr2k_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2k_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + type(c_ptr) :: BP + integer(c_int) :: ldb + real(c_float),target :: beta + type(c_ptr) :: CP + integer(c_int) :: ldc + ! + hipblasSsyr2k_typed = hipblasSsyr2k_(handle,uplo,transA,n,k,c_loc(alpha),AP,lda,BP,ldb, & + c_loc(beta),CP,ldc) + end function + + function hipblasDsyr2k_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2k_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + type(c_ptr) :: BP + integer(c_int) :: ldb + real(c_double),target :: beta + type(c_ptr) :: CP + integer(c_int) :: ldc + ! + hipblasDsyr2k_typed = hipblasDsyr2k_(handle,uplo,transA,n,k,c_loc(alpha),AP,lda,BP,ldb, & + c_loc(beta),CP,ldc) + end function + + function hipblasCsyr2k_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2k_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + type(c_ptr) :: BP + integer(c_int) :: ldb + complex(c_float_complex),target :: beta + type(c_ptr) :: CP + integer(c_int) :: ldc + ! + hipblasCsyr2k_typed = hipblasCsyr2k_(handle,uplo,transA,n,k,c_loc(alpha),AP,lda,BP,ldb, & + c_loc(beta),CP,ldc) + end function + + function hipblasZsyr2k_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2k_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + type(c_ptr) :: BP + integer(c_int) :: ldb + complex(c_double_complex),target :: beta + type(c_ptr) :: CP + integer(c_int) :: ldc + ! + hipblasZsyr2k_typed = hipblasZsyr2k_(handle,uplo,transA,n,k,c_loc(alpha),AP,lda,BP,ldb, & + c_loc(beta),CP,ldc) + end function + + function hipblasSsyr2k_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2k_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + type(c_ptr) :: BP + integer(c_int64_t) :: ldb + real(c_float),target :: beta + type(c_ptr) :: CP + integer(c_int64_t) :: ldc + ! + hipblasSsyr2k_64_typed = hipblasSsyr2k_64_(handle,uplo,transA,n,k,c_loc(alpha),AP,lda,BP, & + ldb,c_loc(beta),CP,ldc) + end function + + function hipblasDsyr2k_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2k_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + type(c_ptr) :: BP + integer(c_int64_t) :: ldb + real(c_double),target :: beta + type(c_ptr) :: CP + integer(c_int64_t) :: ldc + ! + hipblasDsyr2k_64_typed = hipblasDsyr2k_64_(handle,uplo,transA,n,k,c_loc(alpha),AP,lda,BP, & + ldb,c_loc(beta),CP,ldc) + end function + + function hipblasCsyr2k_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2k_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + type(c_ptr) :: BP + integer(c_int64_t) :: ldb + complex(c_float_complex),target :: beta + type(c_ptr) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCsyr2k_64_typed = hipblasCsyr2k_64_(handle,uplo,transA,n,k,c_loc(alpha),AP,lda,BP, & + ldb,c_loc(beta),CP,ldc) + end function + + function hipblasZsyr2k_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2k_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + type(c_ptr) :: BP + integer(c_int64_t) :: ldb + complex(c_double_complex),target :: beta + type(c_ptr) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZsyr2k_64_typed = hipblasZsyr2k_64_(handle,uplo,transA,n,k,c_loc(alpha),AP,lda,BP, & + ldb,c_loc(beta),CP,ldc) + end function + + function hipblasSsyr2kBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2kBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + type(c_ptr), value :: AP + integer(c_int) :: lda + type(c_ptr), value :: BP + integer(c_int) :: ldb + real(c_float),target :: beta + type(c_ptr), value :: CP + integer(c_int) :: ldc + integer(c_int) :: batchCount + ! + hipblasSsyr2kBatched_typed = hipblasSsyr2kBatched_(handle,uplo,transA,n,k,c_loc(alpha),AP, & + lda,BP,ldb,c_loc(beta),CP,ldc,batchCount) + end function + + function hipblasDsyr2kBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2kBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + type(c_ptr), value :: AP + integer(c_int) :: lda + type(c_ptr), value :: BP + integer(c_int) :: ldb + real(c_double),target :: beta + type(c_ptr), value :: CP + integer(c_int) :: ldc + integer(c_int) :: batchCount + ! + hipblasDsyr2kBatched_typed = hipblasDsyr2kBatched_(handle,uplo,transA,n,k,c_loc(alpha),AP, & + lda,BP,ldb,c_loc(beta),CP,ldc,batchCount) + end function + + function hipblasCsyr2kBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2kBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + type(c_ptr), value :: AP + integer(c_int) :: lda + type(c_ptr), value :: BP + integer(c_int) :: ldb + complex(c_float_complex),target :: beta + type(c_ptr), value :: CP + integer(c_int) :: ldc + integer(c_int) :: batchCount + ! + hipblasCsyr2kBatched_typed = hipblasCsyr2kBatched_(handle,uplo,transA,n,k,c_loc(alpha),AP, & + lda,BP,ldb,c_loc(beta),CP,ldc,batchCount) + end function + + function hipblasZsyr2kBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2kBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + type(c_ptr), value :: AP + integer(c_int) :: lda + type(c_ptr), value :: BP + integer(c_int) :: ldb + complex(c_double_complex),target :: beta + type(c_ptr), value :: CP + integer(c_int) :: ldc + integer(c_int) :: batchCount + ! + hipblasZsyr2kBatched_typed = hipblasZsyr2kBatched_(handle,uplo,transA,n,k,c_loc(alpha),AP, & + lda,BP,ldb,c_loc(beta),CP,ldc,batchCount) + end function + + function hipblasSsyr2kBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2kBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + type(c_ptr), value :: AP + integer(c_int64_t) :: lda + type(c_ptr), value :: BP + integer(c_int64_t) :: ldb + real(c_float),target :: beta + type(c_ptr), value :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: batchCount + ! + hipblasSsyr2kBatched_64_typed = hipblasSsyr2kBatched_64_(handle,uplo,transA,n,k, & + c_loc(alpha),AP,lda,BP,ldb,c_loc(beta),CP,ldc,batchCount) + end function + + function hipblasDsyr2kBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2kBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + type(c_ptr), value :: AP + integer(c_int64_t) :: lda + type(c_ptr), value :: BP + integer(c_int64_t) :: ldb + real(c_double),target :: beta + type(c_ptr), value :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: batchCount + ! + hipblasDsyr2kBatched_64_typed = hipblasDsyr2kBatched_64_(handle,uplo,transA,n,k, & + c_loc(alpha),AP,lda,BP,ldb,c_loc(beta),CP,ldc,batchCount) + end function + + function hipblasCsyr2kBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2kBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + type(c_ptr), value :: AP + integer(c_int64_t) :: lda + type(c_ptr), value :: BP + integer(c_int64_t) :: ldb + complex(c_float_complex),target :: beta + type(c_ptr), value :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: batchCount + ! + hipblasCsyr2kBatched_64_typed = hipblasCsyr2kBatched_64_(handle,uplo,transA,n,k, & + c_loc(alpha),AP,lda,BP,ldb,c_loc(beta),CP,ldc,batchCount) + end function + + function hipblasZsyr2kBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2kBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + type(c_ptr), value :: AP + integer(c_int64_t) :: lda + type(c_ptr), value :: BP + integer(c_int64_t) :: ldb + complex(c_double_complex),target :: beta + type(c_ptr), value :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: batchCount + ! + hipblasZsyr2kBatched_64_typed = hipblasZsyr2kBatched_64_(handle,uplo,transA,n,k, & + c_loc(alpha),AP,lda,BP,ldb,c_loc(beta),CP,ldc,batchCount) + end function + + function hipblasSsyr2kStridedBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2kStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + type(c_ptr) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasSsyr2kStridedBatched_typed = hipblasSsyr2kStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),AP,lda,strideA,BP,ldb,strideB,c_loc(beta),CP,ldc,strideC,batchCount) + end function + + function hipblasDsyr2kStridedBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2kStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + type(c_ptr) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasDsyr2kStridedBatched_typed = hipblasDsyr2kStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),AP,lda,strideA,BP,ldb,strideB,c_loc(beta),CP,ldc,strideC,batchCount) + end function + + function hipblasCsyr2kStridedBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2kStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + type(c_ptr) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCsyr2kStridedBatched_typed = hipblasCsyr2kStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),AP,lda,strideA,BP,ldb,strideB,c_loc(beta),CP,ldc,strideC,batchCount) + end function + + function hipblasZsyr2kStridedBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2kStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + type(c_ptr) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZsyr2kStridedBatched_typed = hipblasZsyr2kStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),AP,lda,strideA,BP,ldb,strideB,c_loc(beta),CP,ldc,strideC,batchCount) + end function + + function hipblasSsyr2kStridedBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2kStridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + type(c_ptr) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasSsyr2kStridedBatched_64_typed = hipblasSsyr2kStridedBatched_64_(handle,uplo,transA,n, & + k,c_loc(alpha),AP,lda,strideA,BP,ldb,strideB,c_loc(beta),CP,ldc,strideC,batchCount) + end function + + function hipblasDsyr2kStridedBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2kStridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + type(c_ptr) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasDsyr2kStridedBatched_64_typed = hipblasDsyr2kStridedBatched_64_(handle,uplo,transA,n, & + k,c_loc(alpha),AP,lda,strideA,BP,ldb,strideB,c_loc(beta),CP,ldc,strideC,batchCount) + end function + + function hipblasCsyr2kStridedBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2kStridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + type(c_ptr) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCsyr2kStridedBatched_64_typed = hipblasCsyr2kStridedBatched_64_(handle,uplo,transA,n, & + k,c_loc(alpha),AP,lda,strideA,BP,ldb,strideB,c_loc(beta),CP,ldc,strideC,batchCount) + end function + + function hipblasZsyr2kStridedBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2kStridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + type(c_ptr) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZsyr2kStridedBatched_64_typed = hipblasZsyr2kStridedBatched_64_(handle,uplo,transA,n, & + k,c_loc(alpha),AP,lda,strideA,BP,ldb,strideB,c_loc(beta),CP,ldc,strideC,batchCount) + end function + + function hipblasSsyrkx_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkx_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + type(c_ptr) :: BP + integer(c_int) :: ldb + real(c_float),target :: beta + type(c_ptr) :: CP + integer(c_int) :: ldc + ! + hipblasSsyrkx_typed = hipblasSsyrkx_(handle,uplo,transA,n,k,c_loc(alpha),AP,lda,BP,ldb, & + c_loc(beta),CP,ldc) + end function + + function hipblasDsyrkx_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkx_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + type(c_ptr) :: BP + integer(c_int) :: ldb + real(c_double),target :: beta + type(c_ptr) :: CP + integer(c_int) :: ldc + ! + hipblasDsyrkx_typed = hipblasDsyrkx_(handle,uplo,transA,n,k,c_loc(alpha),AP,lda,BP,ldb, & + c_loc(beta),CP,ldc) + end function + + function hipblasCsyrkx_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkx_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + type(c_ptr) :: BP + integer(c_int) :: ldb + complex(c_float_complex),target :: beta + type(c_ptr) :: CP + integer(c_int) :: ldc + ! + hipblasCsyrkx_typed = hipblasCsyrkx_(handle,uplo,transA,n,k,c_loc(alpha),AP,lda,BP,ldb, & + c_loc(beta),CP,ldc) + end function + + function hipblasZsyrkx_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkx_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + type(c_ptr) :: BP + integer(c_int) :: ldb + complex(c_double_complex),target :: beta + type(c_ptr) :: CP + integer(c_int) :: ldc + ! + hipblasZsyrkx_typed = hipblasZsyrkx_(handle,uplo,transA,n,k,c_loc(alpha),AP,lda,BP,ldb, & + c_loc(beta),CP,ldc) + end function + + function hipblasSsyrkx_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkx_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + type(c_ptr) :: BP + integer(c_int64_t) :: ldb + real(c_float),target :: beta + type(c_ptr) :: CP + integer(c_int64_t) :: ldc + ! + hipblasSsyrkx_64_typed = hipblasSsyrkx_64_(handle,uplo,transA,n,k,c_loc(alpha),AP,lda,BP, & + ldb,c_loc(beta),CP,ldc) + end function + + function hipblasDsyrkx_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkx_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + type(c_ptr) :: BP + integer(c_int64_t) :: ldb + real(c_double),target :: beta + type(c_ptr) :: CP + integer(c_int64_t) :: ldc + ! + hipblasDsyrkx_64_typed = hipblasDsyrkx_64_(handle,uplo,transA,n,k,c_loc(alpha),AP,lda,BP, & + ldb,c_loc(beta),CP,ldc) + end function + + function hipblasCsyrkx_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkx_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + type(c_ptr) :: BP + integer(c_int64_t) :: ldb + complex(c_float_complex),target :: beta + type(c_ptr) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCsyrkx_64_typed = hipblasCsyrkx_64_(handle,uplo,transA,n,k,c_loc(alpha),AP,lda,BP, & + ldb,c_loc(beta),CP,ldc) + end function + + function hipblasZsyrkx_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkx_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + type(c_ptr) :: BP + integer(c_int64_t) :: ldb + complex(c_double_complex),target :: beta + type(c_ptr) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZsyrkx_64_typed = hipblasZsyrkx_64_(handle,uplo,transA,n,k,c_loc(alpha),AP,lda,BP, & + ldb,c_loc(beta),CP,ldc) + end function + + function hipblasSsyrkxBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkxBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + type(c_ptr), value :: AP + integer(c_int) :: lda + type(c_ptr), value :: BP + integer(c_int) :: ldb + real(c_float),target :: beta + type(c_ptr), value :: CP + integer(c_int) :: ldc + integer(c_int) :: batchCount + ! + hipblasSsyrkxBatched_typed = hipblasSsyrkxBatched_(handle,uplo,transA,n,k,c_loc(alpha),AP, & + lda,BP,ldb,c_loc(beta),CP,ldc,batchCount) + end function + + function hipblasDsyrkxBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkxBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + type(c_ptr), value :: AP + integer(c_int) :: lda + type(c_ptr), value :: BP + integer(c_int) :: ldb + real(c_double),target :: beta + type(c_ptr), value :: CP + integer(c_int) :: ldc + integer(c_int) :: batchCount + ! + hipblasDsyrkxBatched_typed = hipblasDsyrkxBatched_(handle,uplo,transA,n,k,c_loc(alpha),AP, & + lda,BP,ldb,c_loc(beta),CP,ldc,batchCount) + end function + + function hipblasCsyrkxBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkxBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + type(c_ptr), value :: AP + integer(c_int) :: lda + type(c_ptr), value :: BP + integer(c_int) :: ldb + complex(c_float_complex),target :: beta + type(c_ptr), value :: CP + integer(c_int) :: ldc + integer(c_int) :: batchCount + ! + hipblasCsyrkxBatched_typed = hipblasCsyrkxBatched_(handle,uplo,transA,n,k,c_loc(alpha),AP, & + lda,BP,ldb,c_loc(beta),CP,ldc,batchCount) + end function + + function hipblasZsyrkxBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkxBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + type(c_ptr), value :: AP + integer(c_int) :: lda + type(c_ptr), value :: BP + integer(c_int) :: ldb + complex(c_double_complex),target :: beta + type(c_ptr), value :: CP + integer(c_int) :: ldc + integer(c_int) :: batchCount + ! + hipblasZsyrkxBatched_typed = hipblasZsyrkxBatched_(handle,uplo,transA,n,k,c_loc(alpha),AP, & + lda,BP,ldb,c_loc(beta),CP,ldc,batchCount) + end function + + function hipblasSsyrkxBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkxBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + type(c_ptr), value :: AP + integer(c_int64_t) :: lda + type(c_ptr), value :: BP + integer(c_int64_t) :: ldb + real(c_float),target :: beta + type(c_ptr), value :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: batchCount + ! + hipblasSsyrkxBatched_64_typed = hipblasSsyrkxBatched_64_(handle,uplo,transA,n,k, & + c_loc(alpha),AP,lda,BP,ldb,c_loc(beta),CP,ldc,batchCount) + end function + + function hipblasDsyrkxBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkxBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + type(c_ptr), value :: AP + integer(c_int64_t) :: lda + type(c_ptr), value :: BP + integer(c_int64_t) :: ldb + real(c_double),target :: beta + type(c_ptr), value :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: batchCount + ! + hipblasDsyrkxBatched_64_typed = hipblasDsyrkxBatched_64_(handle,uplo,transA,n,k, & + c_loc(alpha),AP,lda,BP,ldb,c_loc(beta),CP,ldc,batchCount) + end function + + function hipblasCsyrkxBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkxBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + type(c_ptr), value :: AP + integer(c_int64_t) :: lda + type(c_ptr), value :: BP + integer(c_int64_t) :: ldb + complex(c_float_complex),target :: beta + type(c_ptr), value :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: batchCount + ! + hipblasCsyrkxBatched_64_typed = hipblasCsyrkxBatched_64_(handle,uplo,transA,n,k, & + c_loc(alpha),AP,lda,BP,ldb,c_loc(beta),CP,ldc,batchCount) + end function + + function hipblasZsyrkxBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkxBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + type(c_ptr), value :: AP + integer(c_int64_t) :: lda + type(c_ptr), value :: BP + integer(c_int64_t) :: ldb + complex(c_double_complex),target :: beta + type(c_ptr), value :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: batchCount + ! + hipblasZsyrkxBatched_64_typed = hipblasZsyrkxBatched_64_(handle,uplo,transA,n,k, & + c_loc(alpha),AP,lda,BP,ldb,c_loc(beta),CP,ldc,batchCount) + end function + + function hipblasSsyrkxStridedBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkxStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + type(c_ptr) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasSsyrkxStridedBatched_typed = hipblasSsyrkxStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),AP,lda,strideA,BP,ldb,strideB,c_loc(beta),CP,ldc,strideC,batchCount) + end function + + function hipblasDsyrkxStridedBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkxStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + type(c_ptr) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasDsyrkxStridedBatched_typed = hipblasDsyrkxStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),AP,lda,strideA,BP,ldb,strideB,c_loc(beta),CP,ldc,strideC,batchCount) + end function + + function hipblasCsyrkxStridedBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkxStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + type(c_ptr) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCsyrkxStridedBatched_typed = hipblasCsyrkxStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),AP,lda,strideA,BP,ldb,strideB,c_loc(beta),CP,ldc,strideC,batchCount) + end function + + function hipblasZsyrkxStridedBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkxStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + type(c_ptr) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZsyrkxStridedBatched_typed = hipblasZsyrkxStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),AP,lda,strideA,BP,ldb,strideB,c_loc(beta),CP,ldc,strideC,batchCount) + end function + + function hipblasSsyrkxStridedBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkxStridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + type(c_ptr) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasSsyrkxStridedBatched_64_typed = hipblasSsyrkxStridedBatched_64_(handle,uplo,transA,n, & + k,c_loc(alpha),AP,lda,strideA,BP,ldb,strideB,c_loc(beta),CP,ldc,strideC,batchCount) + end function + + function hipblasDsyrkxStridedBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkxStridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + type(c_ptr) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasDsyrkxStridedBatched_64_typed = hipblasDsyrkxStridedBatched_64_(handle,uplo,transA,n, & + k,c_loc(alpha),AP,lda,strideA,BP,ldb,strideB,c_loc(beta),CP,ldc,strideC,batchCount) + end function + + function hipblasCsyrkxStridedBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkxStridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + type(c_ptr) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCsyrkxStridedBatched_64_typed = hipblasCsyrkxStridedBatched_64_(handle,uplo,transA,n, & + k,c_loc(alpha),AP,lda,strideA,BP,ldb,strideB,c_loc(beta),CP,ldc,strideC,batchCount) + end function + + function hipblasZsyrkxStridedBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkxStridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + type(c_ptr) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZsyrkxStridedBatched_64_typed = hipblasZsyrkxStridedBatched_64_(handle,uplo,transA,n, & + k,c_loc(alpha),AP,lda,strideA,BP,ldb,strideB,c_loc(beta),CP,ldc,strideC,batchCount) + end function + + function hipblasSgeam_typed(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeam_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + real(c_float),target :: beta + type(c_ptr) :: BP + integer(c_int) :: ldb + type(c_ptr) :: CP + integer(c_int) :: ldc + ! + hipblasSgeam_typed = hipblasSgeam_(handle,transA,transB,m,n,c_loc(alpha),AP,lda,c_loc(beta), & + BP,ldb,CP,ldc) + end function + + function hipblasDgeam_typed(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeam_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + real(c_double),target :: beta + type(c_ptr) :: BP + integer(c_int) :: ldb + type(c_ptr) :: CP + integer(c_int) :: ldc + ! + hipblasDgeam_typed = hipblasDgeam_(handle,transA,transB,m,n,c_loc(alpha),AP,lda,c_loc(beta), & + BP,ldb,CP,ldc) + end function + + function hipblasCgeam_typed(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeam_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + complex(c_float_complex),target :: beta + type(c_ptr) :: BP + integer(c_int) :: ldb + type(c_ptr) :: CP + integer(c_int) :: ldc + ! + hipblasCgeam_typed = hipblasCgeam_(handle,transA,transB,m,n,c_loc(alpha),AP,lda,c_loc(beta), & + BP,ldb,CP,ldc) + end function + + function hipblasZgeam_typed(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeam_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + complex(c_double_complex),target :: beta + type(c_ptr) :: BP + integer(c_int) :: ldb + type(c_ptr) :: CP + integer(c_int) :: ldc + ! + hipblasZgeam_typed = hipblasZgeam_(handle,transA,transB,m,n,c_loc(alpha),AP,lda,c_loc(beta), & + BP,ldb,CP,ldc) + end function + + function hipblasSgeam_64_typed(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeam_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + real(c_float),target :: beta + type(c_ptr) :: BP + integer(c_int64_t) :: ldb + type(c_ptr) :: CP + integer(c_int64_t) :: ldc + ! + hipblasSgeam_64_typed = hipblasSgeam_64_(handle,transA,transB,m,n,c_loc(alpha),AP,lda, & + c_loc(beta),BP,ldb,CP,ldc) + end function + + function hipblasDgeam_64_typed(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeam_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + real(c_double),target :: beta + type(c_ptr) :: BP + integer(c_int64_t) :: ldb + type(c_ptr) :: CP + integer(c_int64_t) :: ldc + ! + hipblasDgeam_64_typed = hipblasDgeam_64_(handle,transA,transB,m,n,c_loc(alpha),AP,lda, & + c_loc(beta),BP,ldb,CP,ldc) + end function + + function hipblasCgeam_64_typed(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeam_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target :: beta + type(c_ptr) :: BP + integer(c_int64_t) :: ldb + type(c_ptr) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCgeam_64_typed = hipblasCgeam_64_(handle,transA,transB,m,n,c_loc(alpha),AP,lda, & + c_loc(beta),BP,ldb,CP,ldc) + end function + + function hipblasZgeam_64_typed(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeam_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target :: beta + type(c_ptr) :: BP + integer(c_int64_t) :: ldb + type(c_ptr) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZgeam_64_typed = hipblasZgeam_64_(handle,transA,transB,m,n,c_loc(alpha),AP,lda, & + c_loc(beta),BP,ldb,CP,ldc) + end function + + function hipblasSgeamBatched_typed(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeamBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + type(c_ptr), value :: AP + integer(c_int) :: lda + real(c_float),target :: beta + type(c_ptr), value :: BP + integer(c_int) :: ldb + type(c_ptr), value :: CP + integer(c_int) :: ldc + integer(c_int) :: batchCount + ! + hipblasSgeamBatched_typed = hipblasSgeamBatched_(handle,transA,transB,m,n,c_loc(alpha),AP, & + lda,c_loc(beta),BP,ldb,CP,ldc,batchCount) + end function + + function hipblasDgeamBatched_typed(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeamBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + type(c_ptr), value :: AP + integer(c_int) :: lda + real(c_double),target :: beta + type(c_ptr), value :: BP + integer(c_int) :: ldb + type(c_ptr), value :: CP + integer(c_int) :: ldc + integer(c_int) :: batchCount + ! + hipblasDgeamBatched_typed = hipblasDgeamBatched_(handle,transA,transB,m,n,c_loc(alpha),AP, & + lda,c_loc(beta),BP,ldb,CP,ldc,batchCount) + end function + + function hipblasCgeamBatched_typed(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeamBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + type(c_ptr), value :: AP + integer(c_int) :: lda + complex(c_float_complex),target :: beta + type(c_ptr), value :: BP + integer(c_int) :: ldb + type(c_ptr), value :: CP + integer(c_int) :: ldc + integer(c_int) :: batchCount + ! + hipblasCgeamBatched_typed = hipblasCgeamBatched_(handle,transA,transB,m,n,c_loc(alpha),AP, & + lda,c_loc(beta),BP,ldb,CP,ldc,batchCount) + end function + + function hipblasZgeamBatched_typed(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeamBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + type(c_ptr), value :: AP + integer(c_int) :: lda + complex(c_double_complex),target :: beta + type(c_ptr), value :: BP + integer(c_int) :: ldb + type(c_ptr), value :: CP + integer(c_int) :: ldc + integer(c_int) :: batchCount + ! + hipblasZgeamBatched_typed = hipblasZgeamBatched_(handle,transA,transB,m,n,c_loc(alpha),AP, & + lda,c_loc(beta),BP,ldb,CP,ldc,batchCount) + end function + + function hipblasSgeamBatched_64_typed(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP, & + ldc,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeamBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + type(c_ptr), value :: AP + integer(c_int64_t) :: lda + real(c_float),target :: beta + type(c_ptr), value :: BP + integer(c_int64_t) :: ldb + type(c_ptr), value :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: batchCount + ! + hipblasSgeamBatched_64_typed = hipblasSgeamBatched_64_(handle,transA,transB,m,n, & + c_loc(alpha),AP,lda,c_loc(beta),BP,ldb,CP,ldc,batchCount) + end function + + function hipblasDgeamBatched_64_typed(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP, & + ldc,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeamBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + type(c_ptr), value :: AP + integer(c_int64_t) :: lda + real(c_double),target :: beta + type(c_ptr), value :: BP + integer(c_int64_t) :: ldb + type(c_ptr), value :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: batchCount + ! + hipblasDgeamBatched_64_typed = hipblasDgeamBatched_64_(handle,transA,transB,m,n, & + c_loc(alpha),AP,lda,c_loc(beta),BP,ldb,CP,ldc,batchCount) + end function + + function hipblasCgeamBatched_64_typed(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP, & + ldc,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeamBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + type(c_ptr), value :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target :: beta + type(c_ptr), value :: BP + integer(c_int64_t) :: ldb + type(c_ptr), value :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: batchCount + ! + hipblasCgeamBatched_64_typed = hipblasCgeamBatched_64_(handle,transA,transB,m,n, & + c_loc(alpha),AP,lda,c_loc(beta),BP,ldb,CP,ldc,batchCount) + end function + + function hipblasZgeamBatched_64_typed(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP, & + ldc,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeamBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + type(c_ptr), value :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target :: beta + type(c_ptr), value :: BP + integer(c_int64_t) :: ldb + type(c_ptr), value :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: batchCount + ! + hipblasZgeamBatched_64_typed = hipblasZgeamBatched_64_(handle,transA,transB,m,n, & + c_loc(alpha),AP,lda,c_loc(beta),BP,ldb,CP,ldc,batchCount) + end function + + function hipblasSgeamStridedBatched_typed(handle,transA,transB,m,n,alpha,AP,lda,strideA,beta, & + BP,ldb,strideB,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeamStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: beta + type(c_ptr) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasSgeamStridedBatched_typed = hipblasSgeamStridedBatched_(handle,transA,transB,m,n, & + c_loc(alpha),AP,lda,strideA,c_loc(beta),BP,ldb,strideB,CP,ldc,strideC,batchCount) + end function + + function hipblasDgeamStridedBatched_typed(handle,transA,transB,m,n,alpha,AP,lda,strideA,beta, & + BP,ldb,strideB,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeamStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: beta + type(c_ptr) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasDgeamStridedBatched_typed = hipblasDgeamStridedBatched_(handle,transA,transB,m,n, & + c_loc(alpha),AP,lda,strideA,c_loc(beta),BP,ldb,strideB,CP,ldc,strideC,batchCount) + end function + + function hipblasCgeamStridedBatched_typed(handle,transA,transB,m,n,alpha,AP,lda,strideA,beta, & + BP,ldb,strideB,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeamStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: beta + type(c_ptr) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCgeamStridedBatched_typed = hipblasCgeamStridedBatched_(handle,transA,transB,m,n, & + c_loc(alpha),AP,lda,strideA,c_loc(beta),BP,ldb,strideB,CP,ldc,strideC,batchCount) + end function + + function hipblasZgeamStridedBatched_typed(handle,transA,transB,m,n,alpha,AP,lda,strideA,beta, & + BP,ldb,strideB,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeamStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: beta + type(c_ptr) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZgeamStridedBatched_typed = hipblasZgeamStridedBatched_(handle,transA,transB,m,n, & + c_loc(alpha),AP,lda,strideA,c_loc(beta),BP,ldb,strideB,CP,ldc,strideC,batchCount) + end function + + function hipblasSgeamStridedBatched_64_typed(handle,transA,transB,m,n,alpha,AP,lda,strideA, & + beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeamStridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: beta + type(c_ptr) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasSgeamStridedBatched_64_typed = hipblasSgeamStridedBatched_64_(handle,transA,transB,m, & + n,c_loc(alpha),AP,lda,strideA,c_loc(beta),BP,ldb,strideB,CP,ldc,strideC,batchCount) + end function + + function hipblasDgeamStridedBatched_64_typed(handle,transA,transB,m,n,alpha,AP,lda,strideA, & + beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeamStridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: beta + type(c_ptr) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasDgeamStridedBatched_64_typed = hipblasDgeamStridedBatched_64_(handle,transA,transB,m, & + n,c_loc(alpha),AP,lda,strideA,c_loc(beta),BP,ldb,strideB,CP,ldc,strideC,batchCount) + end function + + function hipblasCgeamStridedBatched_64_typed(handle,transA,transB,m,n,alpha,AP,lda,strideA, & + beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeamStridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: beta + type(c_ptr) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCgeamStridedBatched_64_typed = hipblasCgeamStridedBatched_64_(handle,transA,transB,m, & + n,c_loc(alpha),AP,lda,strideA,c_loc(beta),BP,ldb,strideB,CP,ldc,strideC,batchCount) + end function + + function hipblasZgeamStridedBatched_64_typed(handle,transA,transB,m,n,alpha,AP,lda,strideA, & + beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeamStridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: beta + type(c_ptr) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZgeamStridedBatched_64_typed = hipblasZgeamStridedBatched_64_(handle,transA,transB,m, & + n,c_loc(alpha),AP,lda,strideA,c_loc(beta),BP,ldb,strideB,CP,ldc,strideC,batchCount) + end function + + function hipblasChemm_typed(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemm_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + type(c_ptr) :: BP + integer(c_int) :: ldb + complex(c_float_complex),target :: beta + type(c_ptr) :: CP + integer(c_int) :: ldc + ! + hipblasChemm_typed = hipblasChemm_(handle,side,uplo,n,k,c_loc(alpha),AP,lda,BP,ldb, & + c_loc(beta),CP,ldc) + end function + + function hipblasZhemm_typed(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemm_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + type(c_ptr) :: BP + integer(c_int) :: ldb + complex(c_double_complex),target :: beta + type(c_ptr) :: CP + integer(c_int) :: ldc + ! + hipblasZhemm_typed = hipblasZhemm_(handle,side,uplo,n,k,c_loc(alpha),AP,lda,BP,ldb, & + c_loc(beta),CP,ldc) + end function + + function hipblasChemm_64_typed(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemm_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + type(c_ptr) :: BP + integer(c_int64_t) :: ldb + complex(c_float_complex),target :: beta + type(c_ptr) :: CP + integer(c_int64_t) :: ldc + ! + hipblasChemm_64_typed = hipblasChemm_64_(handle,side,uplo,n,k,c_loc(alpha),AP,lda,BP,ldb, & + c_loc(beta),CP,ldc) + end function + + function hipblasZhemm_64_typed(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemm_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + type(c_ptr) :: BP + integer(c_int64_t) :: ldb + complex(c_double_complex),target :: beta + type(c_ptr) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZhemm_64_typed = hipblasZhemm_64_(handle,side,uplo,n,k,c_loc(alpha),AP,lda,BP,ldb, & + c_loc(beta),CP,ldc) + end function + + function hipblasChemmBatched_typed(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemmBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + type(c_ptr), value :: AP + integer(c_int) :: lda + type(c_ptr), value :: BP + integer(c_int) :: ldb + complex(c_float_complex),target :: beta + type(c_ptr), value :: CP + integer(c_int) :: ldc + integer(c_int) :: batchCount + ! + hipblasChemmBatched_typed = hipblasChemmBatched_(handle,side,uplo,n,k,c_loc(alpha),AP,lda, & + BP,ldb,c_loc(beta),CP,ldc,batchCount) + end function + + function hipblasZhemmBatched_typed(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemmBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + type(c_ptr), value :: AP + integer(c_int) :: lda + type(c_ptr), value :: BP + integer(c_int) :: ldb + complex(c_double_complex),target :: beta + type(c_ptr), value :: CP + integer(c_int) :: ldc + integer(c_int) :: batchCount + ! + hipblasZhemmBatched_typed = hipblasZhemmBatched_(handle,side,uplo,n,k,c_loc(alpha),AP,lda, & + BP,ldb,c_loc(beta),CP,ldc,batchCount) + end function + + function hipblasChemmBatched_64_typed(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemmBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + type(c_ptr), value :: AP + integer(c_int64_t) :: lda + type(c_ptr), value :: BP + integer(c_int64_t) :: ldb + complex(c_float_complex),target :: beta + type(c_ptr), value :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: batchCount + ! + hipblasChemmBatched_64_typed = hipblasChemmBatched_64_(handle,side,uplo,n,k,c_loc(alpha),AP, & + lda,BP,ldb,c_loc(beta),CP,ldc,batchCount) + end function + + function hipblasZhemmBatched_64_typed(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemmBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + type(c_ptr), value :: AP + integer(c_int64_t) :: lda + type(c_ptr), value :: BP + integer(c_int64_t) :: ldb + complex(c_double_complex),target :: beta + type(c_ptr), value :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: batchCount + ! + hipblasZhemmBatched_64_typed = hipblasZhemmBatched_64_(handle,side,uplo,n,k,c_loc(alpha),AP, & + lda,BP,ldb,c_loc(beta),CP,ldc,batchCount) + end function + + function hipblasChemmStridedBatched_typed(handle,side,uplo,n,k,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemmStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + type(c_ptr) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasChemmStridedBatched_typed = hipblasChemmStridedBatched_(handle,side,uplo,n,k, & + c_loc(alpha),AP,lda,strideA,BP,ldb,strideB,c_loc(beta),CP,ldc,strideC,batchCount) + end function + + function hipblasZhemmStridedBatched_typed(handle,side,uplo,n,k,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemmStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + type(c_ptr) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZhemmStridedBatched_typed = hipblasZhemmStridedBatched_(handle,side,uplo,n,k, & + c_loc(alpha),AP,lda,strideA,BP,ldb,strideB,c_loc(beta),CP,ldc,strideC,batchCount) + end function + + function hipblasChemmStridedBatched_64_typed(handle,side,uplo,n,k,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemmStridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + type(c_ptr) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasChemmStridedBatched_64_typed = hipblasChemmStridedBatched_64_(handle,side,uplo,n,k, & + c_loc(alpha),AP,lda,strideA,BP,ldb,strideB,c_loc(beta),CP,ldc,strideC,batchCount) + end function + + function hipblasZhemmStridedBatched_64_typed(handle,side,uplo,n,k,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemmStridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + type(c_ptr) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZhemmStridedBatched_64_typed = hipblasZhemmStridedBatched_64_(handle,side,uplo,n,k, & + c_loc(alpha),AP,lda,strideA,BP,ldb,strideB,c_loc(beta),CP,ldc,strideC,batchCount) + end function + + function hipblasStrmm_typed(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmm_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + type(c_ptr) :: A + integer(c_int) :: lda + type(c_ptr) :: B + integer(c_int) :: ldb + type(c_ptr) :: C + integer(c_int) :: ldc + ! + hipblasStrmm_typed = hipblasStrmm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha),A,lda,B, & + ldb,C,ldc) + end function + + function hipblasDtrmm_typed(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmm_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + type(c_ptr) :: A + integer(c_int) :: lda + type(c_ptr) :: B + integer(c_int) :: ldb + type(c_ptr) :: C + integer(c_int) :: ldc + ! + hipblasDtrmm_typed = hipblasDtrmm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha),A,lda,B, & + ldb,C,ldc) + end function + + function hipblasCtrmm_typed(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmm_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + type(c_ptr) :: A + integer(c_int) :: lda + type(c_ptr) :: B + integer(c_int) :: ldb + type(c_ptr) :: C + integer(c_int) :: ldc + ! + hipblasCtrmm_typed = hipblasCtrmm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha),A,lda,B, & + ldb,C,ldc) + end function + + function hipblasZtrmm_typed(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmm_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + type(c_ptr) :: A + integer(c_int) :: lda + type(c_ptr) :: B + integer(c_int) :: ldb + type(c_ptr) :: C + integer(c_int) :: ldc + ! + hipblasZtrmm_typed = hipblasZtrmm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha),A,lda,B, & + ldb,C,ldc) + end function + + function hipblasStrmm_64_typed(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmm_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + type(c_ptr) :: A + integer(c_int64_t) :: lda + type(c_ptr) :: B + integer(c_int64_t) :: ldb + type(c_ptr) :: C + integer(c_int64_t) :: ldc + ! + hipblasStrmm_64_typed = hipblasStrmm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha),A, & + lda,B,ldb,C,ldc) + end function + + function hipblasDtrmm_64_typed(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmm_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + type(c_ptr) :: A + integer(c_int64_t) :: lda + type(c_ptr) :: B + integer(c_int64_t) :: ldb + type(c_ptr) :: C + integer(c_int64_t) :: ldc + ! + hipblasDtrmm_64_typed = hipblasDtrmm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha),A, & + lda,B,ldb,C,ldc) + end function + + function hipblasCtrmm_64_typed(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmm_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + type(c_ptr) :: A + integer(c_int64_t) :: lda + type(c_ptr) :: B + integer(c_int64_t) :: ldb + type(c_ptr) :: C + integer(c_int64_t) :: ldc + ! + hipblasCtrmm_64_typed = hipblasCtrmm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha),A, & + lda,B,ldb,C,ldc) + end function + + function hipblasZtrmm_64_typed(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmm_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + type(c_ptr) :: A + integer(c_int64_t) :: lda + type(c_ptr) :: B + integer(c_int64_t) :: ldb + type(c_ptr) :: C + integer(c_int64_t) :: ldc + ! + hipblasZtrmm_64_typed = hipblasZtrmm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha),A, & + lda,B,ldb,C,ldc) + end function + + function hipblasStrmmBatched_typed(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmmBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + type(c_ptr), value :: A + integer(c_int) :: lda + type(c_ptr), value :: B + integer(c_int) :: ldb + type(c_ptr), value :: C + integer(c_int) :: ldc + integer(c_int) :: batchCount + ! + hipblasStrmmBatched_typed = hipblasStrmmBatched_(handle,side,uplo,transA,diag,m,n, & + c_loc(alpha),A,lda,B,ldb,C,ldc,batchCount) + end function + + function hipblasDtrmmBatched_typed(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmmBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + type(c_ptr), value :: A + integer(c_int) :: lda + type(c_ptr), value :: B + integer(c_int) :: ldb + type(c_ptr), value :: C + integer(c_int) :: ldc + integer(c_int) :: batchCount + ! + hipblasDtrmmBatched_typed = hipblasDtrmmBatched_(handle,side,uplo,transA,diag,m,n, & + c_loc(alpha),A,lda,B,ldb,C,ldc,batchCount) + end function + + function hipblasCtrmmBatched_typed(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmmBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + type(c_ptr), value :: A + integer(c_int) :: lda + type(c_ptr), value :: B + integer(c_int) :: ldb + type(c_ptr), value :: C + integer(c_int) :: ldc + integer(c_int) :: batchCount + ! + hipblasCtrmmBatched_typed = hipblasCtrmmBatched_(handle,side,uplo,transA,diag,m,n, & + c_loc(alpha),A,lda,B,ldb,C,ldc,batchCount) + end function + + function hipblasZtrmmBatched_typed(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmmBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + type(c_ptr), value :: A + integer(c_int) :: lda + type(c_ptr), value :: B + integer(c_int) :: ldb + type(c_ptr), value :: C + integer(c_int) :: ldc + integer(c_int) :: batchCount + ! + hipblasZtrmmBatched_typed = hipblasZtrmmBatched_(handle,side,uplo,transA,diag,m,n, & + c_loc(alpha),A,lda,B,ldb,C,ldc,batchCount) + end function + + function hipblasStrmmBatched_64_typed(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C, & + ldc,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmmBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + type(c_ptr), value :: A + integer(c_int64_t) :: lda + type(c_ptr), value :: B + integer(c_int64_t) :: ldb + type(c_ptr), value :: C + integer(c_int64_t) :: ldc + integer(c_int64_t) :: batchCount + ! + hipblasStrmmBatched_64_typed = hipblasStrmmBatched_64_(handle,side,uplo,transA,diag,m,n, & + c_loc(alpha),A,lda,B,ldb,C,ldc,batchCount) + end function + + function hipblasDtrmmBatched_64_typed(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C, & + ldc,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmmBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + type(c_ptr), value :: A + integer(c_int64_t) :: lda + type(c_ptr), value :: B + integer(c_int64_t) :: ldb + type(c_ptr), value :: C + integer(c_int64_t) :: ldc + integer(c_int64_t) :: batchCount + ! + hipblasDtrmmBatched_64_typed = hipblasDtrmmBatched_64_(handle,side,uplo,transA,diag,m,n, & + c_loc(alpha),A,lda,B,ldb,C,ldc,batchCount) + end function + + function hipblasCtrmmBatched_64_typed(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C, & + ldc,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmmBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + type(c_ptr), value :: A + integer(c_int64_t) :: lda + type(c_ptr), value :: B + integer(c_int64_t) :: ldb + type(c_ptr), value :: C + integer(c_int64_t) :: ldc + integer(c_int64_t) :: batchCount + ! + hipblasCtrmmBatched_64_typed = hipblasCtrmmBatched_64_(handle,side,uplo,transA,diag,m,n, & + c_loc(alpha),A,lda,B,ldb,C,ldc,batchCount) + end function + + function hipblasZtrmmBatched_64_typed(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C, & + ldc,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmmBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + type(c_ptr), value :: A + integer(c_int64_t) :: lda + type(c_ptr), value :: B + integer(c_int64_t) :: ldb + type(c_ptr), value :: C + integer(c_int64_t) :: ldc + integer(c_int64_t) :: batchCount + ! + hipblasZtrmmBatched_64_typed = hipblasZtrmmBatched_64_(handle,side,uplo,transA,diag,m,n, & + c_loc(alpha),A,lda,B,ldb,C,ldc,batchCount) + end function + + function hipblasStrmmStridedBatched_typed(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & + strideA,B,ldb,strideB,C,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmmStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + type(c_ptr) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr) :: C + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasStrmmStridedBatched_typed = hipblasStrmmStridedBatched_(handle,side,uplo,transA,diag, & + m,n,c_loc(alpha),A,lda,strideA,B,ldb,strideB,C,ldc,strideC,batchCount) + end function + + function hipblasDtrmmStridedBatched_typed(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & + strideA,B,ldb,strideB,C,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmmStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + type(c_ptr) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr) :: C + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasDtrmmStridedBatched_typed = hipblasDtrmmStridedBatched_(handle,side,uplo,transA,diag, & + m,n,c_loc(alpha),A,lda,strideA,B,ldb,strideB,C,ldc,strideC,batchCount) + end function + + function hipblasCtrmmStridedBatched_typed(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & + strideA,B,ldb,strideB,C,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmmStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + type(c_ptr) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr) :: C + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCtrmmStridedBatched_typed = hipblasCtrmmStridedBatched_(handle,side,uplo,transA,diag, & + m,n,c_loc(alpha),A,lda,strideA,B,ldb,strideB,C,ldc,strideC,batchCount) + end function + + function hipblasZtrmmStridedBatched_typed(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & + strideA,B,ldb,strideB,C,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmmStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + type(c_ptr) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr) :: C + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZtrmmStridedBatched_typed = hipblasZtrmmStridedBatched_(handle,side,uplo,transA,diag, & + m,n,c_loc(alpha),A,lda,strideA,B,ldb,strideB,C,ldc,strideC,batchCount) + end function + + function hipblasStrmmStridedBatched_64_typed(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & + strideA,B,ldb,strideB,C,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmmStridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + type(c_ptr) :: A + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: B + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr) :: C + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasStrmmStridedBatched_64_typed = hipblasStrmmStridedBatched_64_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),A,lda,strideA,B,ldb,strideB,C,ldc,strideC,batchCount) + end function + + function hipblasDtrmmStridedBatched_64_typed(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & + strideA,B,ldb,strideB,C,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmmStridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + type(c_ptr) :: A + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: B + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr) :: C + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasDtrmmStridedBatched_64_typed = hipblasDtrmmStridedBatched_64_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),A,lda,strideA,B,ldb,strideB,C,ldc,strideC,batchCount) + end function + + function hipblasCtrmmStridedBatched_64_typed(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & + strideA,B,ldb,strideB,C,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmmStridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + type(c_ptr) :: A + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: B + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr) :: C + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCtrmmStridedBatched_64_typed = hipblasCtrmmStridedBatched_64_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),A,lda,strideA,B,ldb,strideB,C,ldc,strideC,batchCount) + end function + + function hipblasZtrmmStridedBatched_64_typed(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & + strideA,B,ldb,strideB,C,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmmStridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + type(c_ptr) :: A + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: B + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr) :: C + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZtrmmStridedBatched_64_typed = hipblasZtrmmStridedBatched_64_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),A,lda,strideA,B,ldb,strideB,C,ldc,strideC,batchCount) + end function + + function hipblasStrsm_typed(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsm_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + type(c_ptr) :: BP + integer(c_int) :: ldb + ! + hipblasStrsm_typed = hipblasStrsm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha),AP,lda,BP, & + ldb) + end function + + function hipblasDtrsm_typed(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsm_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + type(c_ptr) :: BP + integer(c_int) :: ldb + ! + hipblasDtrsm_typed = hipblasDtrsm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha),AP,lda,BP, & + ldb) + end function + + function hipblasCtrsm_typed(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsm_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + type(c_ptr) :: BP + integer(c_int) :: ldb + ! + hipblasCtrsm_typed = hipblasCtrsm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha),AP,lda,BP, & + ldb) + end function + + function hipblasZtrsm_typed(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsm_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + type(c_ptr) :: BP + integer(c_int) :: ldb + ! + hipblasZtrsm_typed = hipblasZtrsm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha),AP,lda,BP, & + ldb) + end function + + function hipblasStrsm_64_typed(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsm_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + type(c_ptr) :: BP + integer(c_int64_t) :: ldb + ! + hipblasStrsm_64_typed = hipblasStrsm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha),AP, & + lda,BP,ldb) + end function + + function hipblasDtrsm_64_typed(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsm_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + type(c_ptr) :: BP + integer(c_int64_t) :: ldb + ! + hipblasDtrsm_64_typed = hipblasDtrsm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha),AP, & + lda,BP,ldb) + end function + + function hipblasCtrsm_64_typed(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsm_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + type(c_ptr) :: BP + integer(c_int64_t) :: ldb + ! + hipblasCtrsm_64_typed = hipblasCtrsm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha),AP, & + lda,BP,ldb) + end function + + function hipblasZtrsm_64_typed(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsm_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + type(c_ptr) :: BP + integer(c_int64_t) :: ldb + ! + hipblasZtrsm_64_typed = hipblasZtrsm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha),AP, & + lda,BP,ldb) + end function + + function hipblasStrsmBatched_typed(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsmBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + type(c_ptr), value :: AP + integer(c_int) :: lda + type(c_ptr), value :: BP + integer(c_int) :: ldb + integer(c_int) :: batchCount + ! + hipblasStrsmBatched_typed = hipblasStrsmBatched_(handle,side,uplo,transA,diag,m,n, & + c_loc(alpha),AP,lda,BP,ldb,batchCount) + end function + + function hipblasDtrsmBatched_typed(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsmBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + type(c_ptr), value :: AP + integer(c_int) :: lda + type(c_ptr), value :: BP + integer(c_int) :: ldb + integer(c_int) :: batchCount + ! + hipblasDtrsmBatched_typed = hipblasDtrsmBatched_(handle,side,uplo,transA,diag,m,n, & + c_loc(alpha),AP,lda,BP,ldb,batchCount) + end function + + function hipblasCtrsmBatched_typed(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsmBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + type(c_ptr), value :: AP + integer(c_int) :: lda + type(c_ptr), value :: BP + integer(c_int) :: ldb + integer(c_int) :: batchCount + ! + hipblasCtrsmBatched_typed = hipblasCtrsmBatched_(handle,side,uplo,transA,diag,m,n, & + c_loc(alpha),AP,lda,BP,ldb,batchCount) + end function + + function hipblasZtrsmBatched_typed(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsmBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + type(c_ptr), value :: AP + integer(c_int) :: lda + type(c_ptr), value :: BP + integer(c_int) :: ldb + integer(c_int) :: batchCount + ! + hipblasZtrsmBatched_typed = hipblasZtrsmBatched_(handle,side,uplo,transA,diag,m,n, & + c_loc(alpha),AP,lda,BP,ldb,batchCount) + end function + + function hipblasStrsmBatched_64_typed(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsmBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + type(c_ptr), value :: AP + integer(c_int64_t) :: lda + type(c_ptr), value :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: batchCount + ! + hipblasStrsmBatched_64_typed = hipblasStrsmBatched_64_(handle,side,uplo,transA,diag,m,n, & + c_loc(alpha),AP,lda,BP,ldb,batchCount) + end function + + function hipblasDtrsmBatched_64_typed(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsmBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + type(c_ptr), value :: AP + integer(c_int64_t) :: lda + type(c_ptr), value :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: batchCount + ! + hipblasDtrsmBatched_64_typed = hipblasDtrsmBatched_64_(handle,side,uplo,transA,diag,m,n, & + c_loc(alpha),AP,lda,BP,ldb,batchCount) + end function + + function hipblasCtrsmBatched_64_typed(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsmBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + type(c_ptr), value :: AP + integer(c_int64_t) :: lda + type(c_ptr), value :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: batchCount + ! + hipblasCtrsmBatched_64_typed = hipblasCtrsmBatched_64_(handle,side,uplo,transA,diag,m,n, & + c_loc(alpha),AP,lda,BP,ldb,batchCount) + end function + + function hipblasZtrsmBatched_64_typed(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsmBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + type(c_ptr), value :: AP + integer(c_int64_t) :: lda + type(c_ptr), value :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: batchCount + ! + hipblasZtrsmBatched_64_typed = hipblasZtrsmBatched_64_(handle,side,uplo,transA,diag,m,n, & + c_loc(alpha),AP,lda,BP,ldb,batchCount) + end function + + function hipblasStrsmStridedBatched_typed(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsmStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int) :: batchCount + ! + hipblasStrsmStridedBatched_typed = hipblasStrsmStridedBatched_(handle,side,uplo,transA,diag, & + m,n,c_loc(alpha),AP,lda,strideA,BP,ldb,strideB,batchCount) + end function + + function hipblasDtrsmStridedBatched_typed(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsmStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int) :: batchCount + ! + hipblasDtrsmStridedBatched_typed = hipblasDtrsmStridedBatched_(handle,side,uplo,transA,diag, & + m,n,c_loc(alpha),AP,lda,strideA,BP,ldb,strideB,batchCount) + end function + + function hipblasCtrsmStridedBatched_typed(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsmStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int) :: batchCount + ! + hipblasCtrsmStridedBatched_typed = hipblasCtrsmStridedBatched_(handle,side,uplo,transA,diag, & + m,n,c_loc(alpha),AP,lda,strideA,BP,ldb,strideB,batchCount) + end function + + function hipblasZtrsmStridedBatched_typed(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsmStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int) :: batchCount + ! + hipblasZtrsmStridedBatched_typed = hipblasZtrsmStridedBatched_(handle,side,uplo,transA,diag, & + m,n,c_loc(alpha),AP,lda,strideA,BP,ldb,strideB,batchCount) + end function + + function hipblasStrsmStridedBatched_64_typed(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsmStridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + integer(c_int64_t) :: batchCount + ! + hipblasStrsmStridedBatched_64_typed = hipblasStrsmStridedBatched_64_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),AP,lda,strideA,BP,ldb,strideB,batchCount) + end function + + function hipblasDtrsmStridedBatched_64_typed(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsmStridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + integer(c_int64_t) :: batchCount + ! + hipblasDtrsmStridedBatched_64_typed = hipblasDtrsmStridedBatched_64_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),AP,lda,strideA,BP,ldb,strideB,batchCount) + end function + + function hipblasCtrsmStridedBatched_64_typed(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsmStridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + integer(c_int64_t) :: batchCount + ! + hipblasCtrsmStridedBatched_64_typed = hipblasCtrsmStridedBatched_64_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),AP,lda,strideA,BP,ldb,strideB,batchCount) + end function + + function hipblasZtrsmStridedBatched_64_typed(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsmStridedBatched_64_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + type(c_ptr) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + integer(c_int64_t) :: batchCount + ! + hipblasZtrsmStridedBatched_64_typed = hipblasZtrsmStridedBatched_64_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),AP,lda,strideA,BP,ldb,strideB,batchCount) + end function + + function hipblasSgetrs_typed(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrs_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + type(c_ptr) :: A + integer(c_int) :: lda + type(c_ptr) :: ipiv + type(c_ptr) :: B + integer(c_int) :: ldb + integer(c_int),target :: myInfo + ! + hipblasSgetrs_typed = hipblasSgetrs_(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,c_loc(myInfo)) + end function + + function hipblasDgetrs_typed(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrs_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + type(c_ptr) :: A + integer(c_int) :: lda + type(c_ptr) :: ipiv + type(c_ptr) :: B + integer(c_int) :: ldb + integer(c_int),target :: myInfo + ! + hipblasDgetrs_typed = hipblasDgetrs_(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,c_loc(myInfo)) + end function + + function hipblasCgetrs_typed(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrs_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + type(c_ptr) :: A + integer(c_int) :: lda + type(c_ptr) :: ipiv + type(c_ptr) :: B + integer(c_int) :: ldb + integer(c_int),target :: myInfo + ! + hipblasCgetrs_typed = hipblasCgetrs_(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,c_loc(myInfo)) + end function + + function hipblasZgetrs_typed(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrs_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + type(c_ptr) :: A + integer(c_int) :: lda + type(c_ptr) :: ipiv + type(c_ptr) :: B + integer(c_int) :: ldb + integer(c_int),target :: myInfo + ! + hipblasZgetrs_typed = hipblasZgetrs_(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,c_loc(myInfo)) + end function + + function hipblasSgetrsBatched_typed(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrsBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + type(c_ptr), value :: A + integer(c_int) :: lda + type(c_ptr) :: ipiv + type(c_ptr), value :: B + integer(c_int) :: ldb + integer(c_int),target :: myInfo + integer(c_int) :: batchCount + ! + hipblasSgetrsBatched_typed = hipblasSgetrsBatched_(handle,trans,n,nrhs,A,lda,ipiv,B,ldb, & + c_loc(myInfo),batchCount) + end function + + function hipblasDgetrsBatched_typed(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrsBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + type(c_ptr), value :: A + integer(c_int) :: lda + type(c_ptr) :: ipiv + type(c_ptr), value :: B + integer(c_int) :: ldb + integer(c_int),target :: myInfo + integer(c_int) :: batchCount + ! + hipblasDgetrsBatched_typed = hipblasDgetrsBatched_(handle,trans,n,nrhs,A,lda,ipiv,B,ldb, & + c_loc(myInfo),batchCount) + end function + + function hipblasCgetrsBatched_typed(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrsBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + type(c_ptr), value :: A + integer(c_int) :: lda + type(c_ptr) :: ipiv + type(c_ptr), value :: B + integer(c_int) :: ldb + integer(c_int),target :: myInfo + integer(c_int) :: batchCount + ! + hipblasCgetrsBatched_typed = hipblasCgetrsBatched_(handle,trans,n,nrhs,A,lda,ipiv,B,ldb, & + c_loc(myInfo),batchCount) + end function + + function hipblasZgetrsBatched_typed(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrsBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + type(c_ptr), value :: A + integer(c_int) :: lda + type(c_ptr) :: ipiv + type(c_ptr), value :: B + integer(c_int) :: ldb + integer(c_int),target :: myInfo + integer(c_int) :: batchCount + ! + hipblasZgetrsBatched_typed = hipblasZgetrsBatched_(handle,trans,n,nrhs,A,lda,ipiv,B,ldb, & + c_loc(myInfo),batchCount) + end function + + function hipblasSgetrsStridedBatched_typed(handle,trans,n,nrhs,A,lda,strideA,ipiv,strideP,B, & + ldb,strideB,myInfo,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrsStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + type(c_ptr) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int),target :: myInfo + integer(c_int) :: batchCount + ! + hipblasSgetrsStridedBatched_typed = hipblasSgetrsStridedBatched_(handle,trans,n,nrhs,A,lda, & + strideA,ipiv,strideP,B,ldb,strideB,c_loc(myInfo),batchCount) + end function + + function hipblasDgetrsStridedBatched_typed(handle,trans,n,nrhs,A,lda,strideA,ipiv,strideP,B, & + ldb,strideB,myInfo,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrsStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + type(c_ptr) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int),target :: myInfo + integer(c_int) :: batchCount + ! + hipblasDgetrsStridedBatched_typed = hipblasDgetrsStridedBatched_(handle,trans,n,nrhs,A,lda, & + strideA,ipiv,strideP,B,ldb,strideB,c_loc(myInfo),batchCount) + end function + + function hipblasCgetrsStridedBatched_typed(handle,trans,n,nrhs,A,lda,strideA,ipiv,strideP,B, & + ldb,strideB,myInfo,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrsStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + type(c_ptr) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int),target :: myInfo + integer(c_int) :: batchCount + ! + hipblasCgetrsStridedBatched_typed = hipblasCgetrsStridedBatched_(handle,trans,n,nrhs,A,lda, & + strideA,ipiv,strideP,B,ldb,strideB,c_loc(myInfo),batchCount) + end function + + function hipblasZgetrsStridedBatched_typed(handle,trans,n,nrhs,A,lda,strideA,ipiv,strideP,B, & + ldb,strideB,myInfo,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrsStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + type(c_ptr) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int),target :: myInfo + integer(c_int) :: batchCount + ! + hipblasZgetrsStridedBatched_typed = hipblasZgetrsStridedBatched_(handle,trans,n,nrhs,A,lda, & + strideA,ipiv,strideP,B,ldb,strideB,c_loc(myInfo),batchCount) + end function + + function hipblasSgels_typed(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgels_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: nrhs + type(c_ptr) :: A + integer(c_int) :: lda + type(c_ptr) :: B + integer(c_int) :: ldb + integer(c_int),target :: myInfo + type(c_ptr) :: deviceInfo + ! + hipblasSgels_typed = hipblasSgels_(handle,trans,m,n,nrhs,A,lda,B,ldb,c_loc(myInfo),deviceInfo) + end function + + function hipblasDgels_typed(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgels_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: nrhs + type(c_ptr) :: A + integer(c_int) :: lda + type(c_ptr) :: B + integer(c_int) :: ldb + integer(c_int),target :: myInfo + type(c_ptr) :: deviceInfo + ! + hipblasDgels_typed = hipblasDgels_(handle,trans,m,n,nrhs,A,lda,B,ldb,c_loc(myInfo),deviceInfo) + end function + + function hipblasCgels_typed(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgels_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: nrhs + type(c_ptr) :: A + integer(c_int) :: lda + type(c_ptr) :: B + integer(c_int) :: ldb + integer(c_int),target :: myInfo + type(c_ptr) :: deviceInfo + ! + hipblasCgels_typed = hipblasCgels_(handle,trans,m,n,nrhs,A,lda,B,ldb,c_loc(myInfo),deviceInfo) + end function + + function hipblasZgels_typed(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgels_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: nrhs + type(c_ptr) :: A + integer(c_int) :: lda + type(c_ptr) :: B + integer(c_int) :: ldb + integer(c_int),target :: myInfo + type(c_ptr) :: deviceInfo + ! + hipblasZgels_typed = hipblasZgels_(handle,trans,m,n,nrhs,A,lda,B,ldb,c_loc(myInfo),deviceInfo) + end function + + function hipblasSgelsBatched_typed(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgelsBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: nrhs + type(c_ptr), value :: A + integer(c_int) :: lda + type(c_ptr), value :: B + integer(c_int) :: ldb + integer(c_int),target :: myInfo + type(c_ptr) :: deviceInfo + integer(c_int) :: batchCount + ! + hipblasSgelsBatched_typed = hipblasSgelsBatched_(handle,trans,m,n,nrhs,A,lda,B,ldb, & + c_loc(myInfo),deviceInfo,batchCount) + end function + + function hipblasDgelsBatched_typed(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgelsBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: nrhs + type(c_ptr), value :: A + integer(c_int) :: lda + type(c_ptr), value :: B + integer(c_int) :: ldb + integer(c_int),target :: myInfo + type(c_ptr) :: deviceInfo + integer(c_int) :: batchCount + ! + hipblasDgelsBatched_typed = hipblasDgelsBatched_(handle,trans,m,n,nrhs,A,lda,B,ldb, & + c_loc(myInfo),deviceInfo,batchCount) + end function + + function hipblasCgelsBatched_typed(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgelsBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: nrhs + type(c_ptr), value :: A + integer(c_int) :: lda + type(c_ptr), value :: B + integer(c_int) :: ldb + integer(c_int),target :: myInfo + type(c_ptr) :: deviceInfo + integer(c_int) :: batchCount + ! + hipblasCgelsBatched_typed = hipblasCgelsBatched_(handle,trans,m,n,nrhs,A,lda,B,ldb, & + c_loc(myInfo),deviceInfo,batchCount) + end function + + function hipblasZgelsBatched_typed(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgelsBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: nrhs + type(c_ptr), value :: A + integer(c_int) :: lda + type(c_ptr), value :: B + integer(c_int) :: ldb + integer(c_int),target :: myInfo + type(c_ptr) :: deviceInfo + integer(c_int) :: batchCount + ! + hipblasZgelsBatched_typed = hipblasZgelsBatched_(handle,trans,m,n,nrhs,A,lda,B,ldb, & + c_loc(myInfo),deviceInfo,batchCount) + end function + + function hipblasSgelsStridedBatched_typed(handle,trans,m,n,nrhs,A,lda,strideA,B,ldb,strideB, & + myInfo,deviceInfo,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgelsStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: nrhs + type(c_ptr) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int),target :: myInfo + type(c_ptr) :: deviceInfo + integer(c_int) :: batchCount + ! + hipblasSgelsStridedBatched_typed = hipblasSgelsStridedBatched_(handle,trans,m,n,nrhs,A,lda, & + strideA,B,ldb,strideB,c_loc(myInfo),deviceInfo,batchCount) + end function + + function hipblasDgelsStridedBatched_typed(handle,trans,m,n,nrhs,A,lda,strideA,B,ldb,strideB, & + myInfo,deviceInfo,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgelsStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: nrhs + type(c_ptr) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int),target :: myInfo + type(c_ptr) :: deviceInfo + integer(c_int) :: batchCount + ! + hipblasDgelsStridedBatched_typed = hipblasDgelsStridedBatched_(handle,trans,m,n,nrhs,A,lda, & + strideA,B,ldb,strideB,c_loc(myInfo),deviceInfo,batchCount) + end function + + function hipblasCgelsStridedBatched_typed(handle,trans,m,n,nrhs,A,lda,strideA,B,ldb,strideB, & + myInfo,deviceInfo,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgelsStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: nrhs + type(c_ptr) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int),target :: myInfo + type(c_ptr) :: deviceInfo + integer(c_int) :: batchCount + ! + hipblasCgelsStridedBatched_typed = hipblasCgelsStridedBatched_(handle,trans,m,n,nrhs,A,lda, & + strideA,B,ldb,strideB,c_loc(myInfo),deviceInfo,batchCount) + end function + + function hipblasZgelsStridedBatched_typed(handle,trans,m,n,nrhs,A,lda,strideA,B,ldb,strideB, & + myInfo,deviceInfo,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgelsStridedBatched_typed + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: nrhs + type(c_ptr) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int),target :: myInfo + type(c_ptr) :: deviceInfo + integer(c_int) :: batchCount + ! + hipblasZgelsStridedBatched_typed = hipblasZgelsStridedBatched_(handle,trans,m,n,nrhs,A,lda, & + strideA,B,ldb,strideB,c_loc(myInfo),deviceInfo,batchCount) + end function + + function hipblasSgeqrf_typed(handle,m,n,A,lda,ipiv,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeqrf_typed + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr) :: A + integer(c_int) :: lda + type(c_ptr) :: ipiv + integer(c_int),target :: myInfo + ! + hipblasSgeqrf_typed = hipblasSgeqrf_(handle,m,n,A,lda,ipiv,c_loc(myInfo)) + end function + + function hipblasDgeqrf_typed(handle,m,n,A,lda,ipiv,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeqrf_typed + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr) :: A + integer(c_int) :: lda + type(c_ptr) :: ipiv + integer(c_int),target :: myInfo + ! + hipblasDgeqrf_typed = hipblasDgeqrf_(handle,m,n,A,lda,ipiv,c_loc(myInfo)) + end function + + function hipblasCgeqrf_typed(handle,m,n,A,lda,ipiv,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeqrf_typed + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr) :: A + integer(c_int) :: lda + type(c_ptr) :: ipiv + integer(c_int),target :: myInfo + ! + hipblasCgeqrf_typed = hipblasCgeqrf_(handle,m,n,A,lda,ipiv,c_loc(myInfo)) + end function + + function hipblasZgeqrf_typed(handle,m,n,A,lda,ipiv,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeqrf_typed + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr) :: A + integer(c_int) :: lda + type(c_ptr) :: ipiv + integer(c_int),target :: myInfo + ! + hipblasZgeqrf_typed = hipblasZgeqrf_(handle,m,n,A,lda,ipiv,c_loc(myInfo)) + end function + + function hipblasSgeqrfBatched_typed(handle,m,n,A,lda,ipiv,myInfo,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeqrfBatched_typed + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr), value :: A + integer(c_int) :: lda + type(c_ptr), value :: ipiv + integer(c_int),target :: myInfo + integer(c_int) :: batchCount + ! + hipblasSgeqrfBatched_typed = hipblasSgeqrfBatched_(handle,m,n,A,lda,ipiv,c_loc(myInfo), & + batchCount) + end function + + function hipblasDgeqrfBatched_typed(handle,m,n,A,lda,ipiv,myInfo,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeqrfBatched_typed + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr), value :: A + integer(c_int) :: lda + type(c_ptr), value :: ipiv + integer(c_int),target :: myInfo + integer(c_int) :: batchCount + ! + hipblasDgeqrfBatched_typed = hipblasDgeqrfBatched_(handle,m,n,A,lda,ipiv,c_loc(myInfo), & + batchCount) + end function + + function hipblasCgeqrfBatched_typed(handle,m,n,A,lda,ipiv,myInfo,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeqrfBatched_typed + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr), value :: A + integer(c_int) :: lda + type(c_ptr), value :: ipiv + integer(c_int),target :: myInfo + integer(c_int) :: batchCount + ! + hipblasCgeqrfBatched_typed = hipblasCgeqrfBatched_(handle,m,n,A,lda,ipiv,c_loc(myInfo), & + batchCount) + end function + + function hipblasZgeqrfBatched_typed(handle,m,n,A,lda,ipiv,myInfo,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeqrfBatched_typed + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr), value :: A + integer(c_int) :: lda + type(c_ptr), value :: ipiv + integer(c_int),target :: myInfo + integer(c_int) :: batchCount + ! + hipblasZgeqrfBatched_typed = hipblasZgeqrfBatched_(handle,m,n,A,lda,ipiv,c_loc(myInfo), & + batchCount) + end function + + function hipblasSgeqrfStridedBatched_typed(handle,m,n,A,lda,strideA,ipiv,strideP,myInfo, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeqrfStridedBatched_typed + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: ipiv + integer(c_int64_t) :: strideP + integer(c_int),target :: myInfo + integer(c_int) :: batchCount + ! + hipblasSgeqrfStridedBatched_typed = hipblasSgeqrfStridedBatched_(handle,m,n,A,lda,strideA, & + ipiv,strideP,c_loc(myInfo),batchCount) + end function + + function hipblasDgeqrfStridedBatched_typed(handle,m,n,A,lda,strideA,ipiv,strideP,myInfo, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeqrfStridedBatched_typed + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: ipiv + integer(c_int64_t) :: strideP + integer(c_int),target :: myInfo + integer(c_int) :: batchCount + ! + hipblasDgeqrfStridedBatched_typed = hipblasDgeqrfStridedBatched_(handle,m,n,A,lda,strideA, & + ipiv,strideP,c_loc(myInfo),batchCount) + end function + + function hipblasCgeqrfStridedBatched_typed(handle,m,n,A,lda,strideA,ipiv,strideP,myInfo, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeqrfStridedBatched_typed + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: ipiv + integer(c_int64_t) :: strideP + integer(c_int),target :: myInfo + integer(c_int) :: batchCount + ! + hipblasCgeqrfStridedBatched_typed = hipblasCgeqrfStridedBatched_(handle,m,n,A,lda,strideA, & + ipiv,strideP,c_loc(myInfo),batchCount) + end function + + function hipblasZgeqrfStridedBatched_typed(handle,m,n,A,lda,strideA,ipiv,strideP,myInfo, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeqrfStridedBatched_typed + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: ipiv + integer(c_int64_t) :: strideP + integer(c_int),target :: myInfo + integer(c_int) :: batchCount + ! + hipblasZgeqrfStridedBatched_typed = hipblasZgeqrfStridedBatched_(handle,m,n,A,lda,strideA, & + ipiv,strideP,c_loc(myInfo),batchCount) + end function + + +#if defined(USE_ASSUMED_SHAPE) || defined(USE_ASSUMED_RANK) + +#ifdef USE_ASSUMED_RANK + function hipblasIsamax_assumed_rank(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamax_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int),target :: myResult + ! + hipblasIsamax_assumed_rank = hipblasIsamax_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasIsamax_assumed_rank_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamax_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + hipblasIsamax_assumed_rank_devptr = hipblasIsamax_(handle,n,c_loc(x),incx,myResult) + end function + +#else + function hipblasIsamax_rank_0(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamax_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target :: x + integer(c_int) :: incx + integer(c_int),target :: myResult + ! + hipblasIsamax_rank_0 = hipblasIsamax_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasIsamax_rank_0_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamax_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + hipblasIsamax_rank_0_devptr = hipblasIsamax_(handle,n,c_loc(x),incx,myResult) + end function + + function hipblasIsamax_rank_1(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamax_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int),target :: myResult + ! + hipblasIsamax_rank_1 = hipblasIsamax_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasIsamax_rank_1_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamax_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + hipblasIsamax_rank_1_devptr = hipblasIsamax_(handle,n,c_loc(x),incx,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasIdamax_assumed_rank(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamax_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int),target :: myResult + ! + hipblasIdamax_assumed_rank = hipblasIdamax_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasIdamax_assumed_rank_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamax_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + hipblasIdamax_assumed_rank_devptr = hipblasIdamax_(handle,n,c_loc(x),incx,myResult) + end function + +#else + function hipblasIdamax_rank_0(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamax_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target :: x + integer(c_int) :: incx + integer(c_int),target :: myResult + ! + hipblasIdamax_rank_0 = hipblasIdamax_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasIdamax_rank_0_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamax_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + hipblasIdamax_rank_0_devptr = hipblasIdamax_(handle,n,c_loc(x),incx,myResult) + end function + + function hipblasIdamax_rank_1(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamax_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int),target :: myResult + ! + hipblasIdamax_rank_1 = hipblasIdamax_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasIdamax_rank_1_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamax_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + hipblasIdamax_rank_1_devptr = hipblasIdamax_(handle,n,c_loc(x),incx,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasIcamax_assumed_rank(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamax_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int),target :: myResult + ! + hipblasIcamax_assumed_rank = hipblasIcamax_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasIcamax_assumed_rank_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamax_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + hipblasIcamax_assumed_rank_devptr = hipblasIcamax_(handle,n,c_loc(x),incx,myResult) + end function + +#else + function hipblasIcamax_rank_0(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamax_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int),target :: myResult + ! + hipblasIcamax_rank_0 = hipblasIcamax_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasIcamax_rank_0_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamax_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + hipblasIcamax_rank_0_devptr = hipblasIcamax_(handle,n,c_loc(x),incx,myResult) + end function + + function hipblasIcamax_rank_1(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamax_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int),target :: myResult + ! + hipblasIcamax_rank_1 = hipblasIcamax_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasIcamax_rank_1_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamax_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + hipblasIcamax_rank_1_devptr = hipblasIcamax_(handle,n,c_loc(x),incx,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasIzamax_assumed_rank(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamax_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int),target :: myResult + ! + hipblasIzamax_assumed_rank = hipblasIzamax_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasIzamax_assumed_rank_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamax_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + hipblasIzamax_assumed_rank_devptr = hipblasIzamax_(handle,n,c_loc(x),incx,myResult) + end function + +#else + function hipblasIzamax_rank_0(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamax_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int),target :: myResult + ! + hipblasIzamax_rank_0 = hipblasIzamax_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasIzamax_rank_0_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamax_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + hipblasIzamax_rank_0_devptr = hipblasIzamax_(handle,n,c_loc(x),incx,myResult) + end function + + function hipblasIzamax_rank_1(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamax_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int),target :: myResult + ! + hipblasIzamax_rank_1 = hipblasIzamax_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasIzamax_rank_1_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamax_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + hipblasIzamax_rank_1_devptr = hipblasIzamax_(handle,n,c_loc(x),incx,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasIsamax_64_assumed_rank(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamax_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t),target :: myResult + ! + hipblasIsamax_64_assumed_rank = hipblasIsamax_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasIsamax_64_assumed_rank_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamax_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: myResult + ! + hipblasIsamax_64_assumed_rank_devptr = hipblasIsamax_64_(handle,n,c_loc(x),incx,myResult) + end function + +#else + function hipblasIsamax_64_rank_0(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamax_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t),target :: myResult + ! + hipblasIsamax_64_rank_0 = hipblasIsamax_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasIsamax_64_rank_0_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamax_64_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: myResult + ! + hipblasIsamax_64_rank_0_devptr = hipblasIsamax_64_(handle,n,c_loc(x),incx,myResult) + end function + + function hipblasIsamax_64_rank_1(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamax_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t),target :: myResult + ! + hipblasIsamax_64_rank_1 = hipblasIsamax_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasIsamax_64_rank_1_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamax_64_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: myResult + ! + hipblasIsamax_64_rank_1_devptr = hipblasIsamax_64_(handle,n,c_loc(x),incx,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasIdamax_64_assumed_rank(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamax_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t),target :: myResult + ! + hipblasIdamax_64_assumed_rank = hipblasIdamax_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasIdamax_64_assumed_rank_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamax_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: myResult + ! + hipblasIdamax_64_assumed_rank_devptr = hipblasIdamax_64_(handle,n,c_loc(x),incx,myResult) + end function + +#else + function hipblasIdamax_64_rank_0(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamax_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t),target :: myResult + ! + hipblasIdamax_64_rank_0 = hipblasIdamax_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasIdamax_64_rank_0_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamax_64_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: myResult + ! + hipblasIdamax_64_rank_0_devptr = hipblasIdamax_64_(handle,n,c_loc(x),incx,myResult) + end function + + function hipblasIdamax_64_rank_1(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamax_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t),target :: myResult + ! + hipblasIdamax_64_rank_1 = hipblasIdamax_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasIdamax_64_rank_1_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamax_64_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: myResult + ! + hipblasIdamax_64_rank_1_devptr = hipblasIdamax_64_(handle,n,c_loc(x),incx,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasIcamax_64_assumed_rank(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamax_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t),target :: myResult + ! + hipblasIcamax_64_assumed_rank = hipblasIcamax_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasIcamax_64_assumed_rank_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamax_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: myResult + ! + hipblasIcamax_64_assumed_rank_devptr = hipblasIcamax_64_(handle,n,c_loc(x),incx,myResult) + end function + +#else + function hipblasIcamax_64_rank_0(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamax_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t),target :: myResult + ! + hipblasIcamax_64_rank_0 = hipblasIcamax_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasIcamax_64_rank_0_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamax_64_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: myResult + ! + hipblasIcamax_64_rank_0_devptr = hipblasIcamax_64_(handle,n,c_loc(x),incx,myResult) + end function + + function hipblasIcamax_64_rank_1(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamax_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t),target :: myResult + ! + hipblasIcamax_64_rank_1 = hipblasIcamax_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasIcamax_64_rank_1_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamax_64_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: myResult + ! + hipblasIcamax_64_rank_1_devptr = hipblasIcamax_64_(handle,n,c_loc(x),incx,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasIzamax_64_assumed_rank(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamax_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t),target :: myResult + ! + hipblasIzamax_64_assumed_rank = hipblasIzamax_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasIzamax_64_assumed_rank_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamax_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: myResult + ! + hipblasIzamax_64_assumed_rank_devptr = hipblasIzamax_64_(handle,n,c_loc(x),incx,myResult) + end function + +#else + function hipblasIzamax_64_rank_0(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamax_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t),target :: myResult + ! + hipblasIzamax_64_rank_0 = hipblasIzamax_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasIzamax_64_rank_0_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamax_64_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: myResult + ! + hipblasIzamax_64_rank_0_devptr = hipblasIzamax_64_(handle,n,c_loc(x),incx,myResult) + end function + + function hipblasIzamax_64_rank_1(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamax_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t),target :: myResult + ! + hipblasIzamax_64_rank_1 = hipblasIzamax_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasIzamax_64_rank_1_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamax_64_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: myResult + ! + hipblasIzamax_64_rank_1_devptr = hipblasIzamax_64_(handle,n,c_loc(x),incx,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasIsamaxStridedBatched_assumed_rank(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamaxStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + type(c_ptr) :: myResult + ! + hipblasIsamaxStridedBatched_assumed_rank = hipblasIsamaxStridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) + end function + +#else + function hipblasIsamaxStridedBatched_rank_0(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamaxStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + type(c_ptr) :: myResult + ! + hipblasIsamaxStridedBatched_rank_0 = hipblasIsamaxStridedBatched_(handle,n,c_loc(x),incx, & + stridex,batchCount,myResult) + end function + + function hipblasIsamaxStridedBatched_rank_1(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamaxStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + type(c_ptr) :: myResult + ! + hipblasIsamaxStridedBatched_rank_1 = hipblasIsamaxStridedBatched_(handle,n,c_loc(x),incx, & + stridex,batchCount,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasIdamaxStridedBatched_assumed_rank(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamaxStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + type(c_ptr) :: myResult + ! + hipblasIdamaxStridedBatched_assumed_rank = hipblasIdamaxStridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) + end function + +#else + function hipblasIdamaxStridedBatched_rank_0(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamaxStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + type(c_ptr) :: myResult + ! + hipblasIdamaxStridedBatched_rank_0 = hipblasIdamaxStridedBatched_(handle,n,c_loc(x),incx, & + stridex,batchCount,myResult) + end function + + function hipblasIdamaxStridedBatched_rank_1(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamaxStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + type(c_ptr) :: myResult + ! + hipblasIdamaxStridedBatched_rank_1 = hipblasIdamaxStridedBatched_(handle,n,c_loc(x),incx, & + stridex,batchCount,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasIcamaxStridedBatched_assumed_rank(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamaxStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + type(c_ptr) :: myResult + ! + hipblasIcamaxStridedBatched_assumed_rank = hipblasIcamaxStridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) + end function + +#else + function hipblasIcamaxStridedBatched_rank_0(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamaxStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + type(c_ptr) :: myResult + ! + hipblasIcamaxStridedBatched_rank_0 = hipblasIcamaxStridedBatched_(handle,n,c_loc(x),incx, & + stridex,batchCount,myResult) + end function + + function hipblasIcamaxStridedBatched_rank_1(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamaxStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + type(c_ptr) :: myResult + ! + hipblasIcamaxStridedBatched_rank_1 = hipblasIcamaxStridedBatched_(handle,n,c_loc(x),incx, & + stridex,batchCount,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasIzamaxStridedBatched_assumed_rank(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamaxStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + type(c_ptr) :: myResult + ! + hipblasIzamaxStridedBatched_assumed_rank = hipblasIzamaxStridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) + end function + +#else + function hipblasIzamaxStridedBatched_rank_0(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamaxStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + type(c_ptr) :: myResult + ! + hipblasIzamaxStridedBatched_rank_0 = hipblasIzamaxStridedBatched_(handle,n,c_loc(x),incx, & + stridex,batchCount,myResult) + end function + + function hipblasIzamaxStridedBatched_rank_1(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamaxStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + type(c_ptr) :: myResult + ! + hipblasIzamaxStridedBatched_rank_1 = hipblasIzamaxStridedBatched_(handle,n,c_loc(x),incx, & + stridex,batchCount,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasIsamaxStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,batchCount, & + myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamaxStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + type(c_ptr) :: myResult + ! + hipblasIsamaxStridedBatched_64_assumed_rank = hipblasIsamaxStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) + end function + +#else + function hipblasIsamaxStridedBatched_64_rank_0(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamaxStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + type(c_ptr) :: myResult + ! + hipblasIsamaxStridedBatched_64_rank_0 = hipblasIsamaxStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) + end function + + function hipblasIsamaxStridedBatched_64_rank_1(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamaxStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + type(c_ptr) :: myResult + ! + hipblasIsamaxStridedBatched_64_rank_1 = hipblasIsamaxStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasIdamaxStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,batchCount, & + myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamaxStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + type(c_ptr) :: myResult + ! + hipblasIdamaxStridedBatched_64_assumed_rank = hipblasIdamaxStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) + end function + +#else + function hipblasIdamaxStridedBatched_64_rank_0(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamaxStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + type(c_ptr) :: myResult + ! + hipblasIdamaxStridedBatched_64_rank_0 = hipblasIdamaxStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) + end function + + function hipblasIdamaxStridedBatched_64_rank_1(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamaxStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + type(c_ptr) :: myResult + ! + hipblasIdamaxStridedBatched_64_rank_1 = hipblasIdamaxStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasIcamaxStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,batchCount, & + myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamaxStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + type(c_ptr) :: myResult + ! + hipblasIcamaxStridedBatched_64_assumed_rank = hipblasIcamaxStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) + end function + +#else + function hipblasIcamaxStridedBatched_64_rank_0(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamaxStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + type(c_ptr) :: myResult + ! + hipblasIcamaxStridedBatched_64_rank_0 = hipblasIcamaxStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) + end function + + function hipblasIcamaxStridedBatched_64_rank_1(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamaxStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + type(c_ptr) :: myResult + ! + hipblasIcamaxStridedBatched_64_rank_1 = hipblasIcamaxStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasIzamaxStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,batchCount, & + myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamaxStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + type(c_ptr) :: myResult + ! + hipblasIzamaxStridedBatched_64_assumed_rank = hipblasIzamaxStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) + end function + +#else + function hipblasIzamaxStridedBatched_64_rank_0(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamaxStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + type(c_ptr) :: myResult + ! + hipblasIzamaxStridedBatched_64_rank_0 = hipblasIzamaxStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) + end function + + function hipblasIzamaxStridedBatched_64_rank_1(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamaxStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + type(c_ptr) :: myResult + ! + hipblasIzamaxStridedBatched_64_rank_1 = hipblasIzamaxStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasIsamin_assumed_rank(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamin_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int),target :: myResult + ! + hipblasIsamin_assumed_rank = hipblasIsamin_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasIsamin_assumed_rank_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamin_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + hipblasIsamin_assumed_rank_devptr = hipblasIsamin_(handle,n,c_loc(x),incx,myResult) + end function + +#else + function hipblasIsamin_rank_0(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamin_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target :: x + integer(c_int) :: incx + integer(c_int),target :: myResult + ! + hipblasIsamin_rank_0 = hipblasIsamin_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasIsamin_rank_0_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamin_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + hipblasIsamin_rank_0_devptr = hipblasIsamin_(handle,n,c_loc(x),incx,myResult) + end function + + function hipblasIsamin_rank_1(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamin_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int),target :: myResult + ! + hipblasIsamin_rank_1 = hipblasIsamin_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasIsamin_rank_1_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamin_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + hipblasIsamin_rank_1_devptr = hipblasIsamin_(handle,n,c_loc(x),incx,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasIdamin_assumed_rank(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamin_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int),target :: myResult + ! + hipblasIdamin_assumed_rank = hipblasIdamin_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasIdamin_assumed_rank_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamin_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + hipblasIdamin_assumed_rank_devptr = hipblasIdamin_(handle,n,c_loc(x),incx,myResult) + end function + +#else + function hipblasIdamin_rank_0(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamin_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target :: x + integer(c_int) :: incx + integer(c_int),target :: myResult + ! + hipblasIdamin_rank_0 = hipblasIdamin_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasIdamin_rank_0_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamin_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + hipblasIdamin_rank_0_devptr = hipblasIdamin_(handle,n,c_loc(x),incx,myResult) + end function + + function hipblasIdamin_rank_1(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamin_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int),target :: myResult + ! + hipblasIdamin_rank_1 = hipblasIdamin_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasIdamin_rank_1_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamin_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + hipblasIdamin_rank_1_devptr = hipblasIdamin_(handle,n,c_loc(x),incx,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasIcamin_assumed_rank(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamin_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int),target :: myResult + ! + hipblasIcamin_assumed_rank = hipblasIcamin_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasIcamin_assumed_rank_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamin_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + hipblasIcamin_assumed_rank_devptr = hipblasIcamin_(handle,n,c_loc(x),incx,myResult) + end function + +#else + function hipblasIcamin_rank_0(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamin_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int),target :: myResult + ! + hipblasIcamin_rank_0 = hipblasIcamin_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasIcamin_rank_0_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamin_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + hipblasIcamin_rank_0_devptr = hipblasIcamin_(handle,n,c_loc(x),incx,myResult) + end function + + function hipblasIcamin_rank_1(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamin_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int),target :: myResult + ! + hipblasIcamin_rank_1 = hipblasIcamin_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasIcamin_rank_1_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamin_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + hipblasIcamin_rank_1_devptr = hipblasIcamin_(handle,n,c_loc(x),incx,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasIzamin_assumed_rank(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamin_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int),target :: myResult + ! + hipblasIzamin_assumed_rank = hipblasIzamin_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasIzamin_assumed_rank_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamin_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + hipblasIzamin_assumed_rank_devptr = hipblasIzamin_(handle,n,c_loc(x),incx,myResult) + end function + +#else + function hipblasIzamin_rank_0(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamin_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int),target :: myResult + ! + hipblasIzamin_rank_0 = hipblasIzamin_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasIzamin_rank_0_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamin_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + hipblasIzamin_rank_0_devptr = hipblasIzamin_(handle,n,c_loc(x),incx,myResult) + end function + + function hipblasIzamin_rank_1(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamin_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int),target :: myResult + ! + hipblasIzamin_rank_1 = hipblasIzamin_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasIzamin_rank_1_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamin_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + hipblasIzamin_rank_1_devptr = hipblasIzamin_(handle,n,c_loc(x),incx,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasIsamin_64_assumed_rank(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamin_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t),target :: myResult + ! + hipblasIsamin_64_assumed_rank = hipblasIsamin_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasIsamin_64_assumed_rank_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamin_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: myResult + ! + hipblasIsamin_64_assumed_rank_devptr = hipblasIsamin_64_(handle,n,c_loc(x),incx,myResult) + end function + +#else + function hipblasIsamin_64_rank_0(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamin_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t),target :: myResult + ! + hipblasIsamin_64_rank_0 = hipblasIsamin_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasIsamin_64_rank_0_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamin_64_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: myResult + ! + hipblasIsamin_64_rank_0_devptr = hipblasIsamin_64_(handle,n,c_loc(x),incx,myResult) + end function + + function hipblasIsamin_64_rank_1(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamin_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t),target :: myResult + ! + hipblasIsamin_64_rank_1 = hipblasIsamin_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasIsamin_64_rank_1_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamin_64_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: myResult + ! + hipblasIsamin_64_rank_1_devptr = hipblasIsamin_64_(handle,n,c_loc(x),incx,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasIdamin_64_assumed_rank(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamin_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t),target :: myResult + ! + hipblasIdamin_64_assumed_rank = hipblasIdamin_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasIdamin_64_assumed_rank_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamin_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: myResult + ! + hipblasIdamin_64_assumed_rank_devptr = hipblasIdamin_64_(handle,n,c_loc(x),incx,myResult) + end function + +#else + function hipblasIdamin_64_rank_0(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamin_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t),target :: myResult + ! + hipblasIdamin_64_rank_0 = hipblasIdamin_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasIdamin_64_rank_0_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamin_64_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: myResult + ! + hipblasIdamin_64_rank_0_devptr = hipblasIdamin_64_(handle,n,c_loc(x),incx,myResult) + end function + + function hipblasIdamin_64_rank_1(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamin_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t),target :: myResult + ! + hipblasIdamin_64_rank_1 = hipblasIdamin_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasIdamin_64_rank_1_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamin_64_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: myResult + ! + hipblasIdamin_64_rank_1_devptr = hipblasIdamin_64_(handle,n,c_loc(x),incx,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasIcamin_64_assumed_rank(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamin_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t),target :: myResult + ! + hipblasIcamin_64_assumed_rank = hipblasIcamin_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasIcamin_64_assumed_rank_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamin_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: myResult + ! + hipblasIcamin_64_assumed_rank_devptr = hipblasIcamin_64_(handle,n,c_loc(x),incx,myResult) + end function + +#else + function hipblasIcamin_64_rank_0(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamin_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t),target :: myResult + ! + hipblasIcamin_64_rank_0 = hipblasIcamin_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasIcamin_64_rank_0_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamin_64_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: myResult + ! + hipblasIcamin_64_rank_0_devptr = hipblasIcamin_64_(handle,n,c_loc(x),incx,myResult) + end function + + function hipblasIcamin_64_rank_1(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamin_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t),target :: myResult + ! + hipblasIcamin_64_rank_1 = hipblasIcamin_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasIcamin_64_rank_1_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamin_64_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: myResult + ! + hipblasIcamin_64_rank_1_devptr = hipblasIcamin_64_(handle,n,c_loc(x),incx,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasIzamin_64_assumed_rank(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamin_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t),target :: myResult + ! + hipblasIzamin_64_assumed_rank = hipblasIzamin_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasIzamin_64_assumed_rank_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamin_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: myResult + ! + hipblasIzamin_64_assumed_rank_devptr = hipblasIzamin_64_(handle,n,c_loc(x),incx,myResult) + end function + +#else + function hipblasIzamin_64_rank_0(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamin_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t),target :: myResult + ! + hipblasIzamin_64_rank_0 = hipblasIzamin_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasIzamin_64_rank_0_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamin_64_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: myResult + ! + hipblasIzamin_64_rank_0_devptr = hipblasIzamin_64_(handle,n,c_loc(x),incx,myResult) + end function + + function hipblasIzamin_64_rank_1(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamin_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t),target :: myResult + ! + hipblasIzamin_64_rank_1 = hipblasIzamin_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasIzamin_64_rank_1_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamin_64_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: myResult + ! + hipblasIzamin_64_rank_1_devptr = hipblasIzamin_64_(handle,n,c_loc(x),incx,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasIsaminStridedBatched_assumed_rank(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsaminStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + type(c_ptr) :: myResult + ! + hipblasIsaminStridedBatched_assumed_rank = hipblasIsaminStridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) + end function + +#else + function hipblasIsaminStridedBatched_rank_0(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsaminStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + type(c_ptr) :: myResult + ! + hipblasIsaminStridedBatched_rank_0 = hipblasIsaminStridedBatched_(handle,n,c_loc(x),incx, & + stridex,batchCount,myResult) + end function + + function hipblasIsaminStridedBatched_rank_1(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsaminStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + type(c_ptr) :: myResult + ! + hipblasIsaminStridedBatched_rank_1 = hipblasIsaminStridedBatched_(handle,n,c_loc(x),incx, & + stridex,batchCount,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasIdaminStridedBatched_assumed_rank(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdaminStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + type(c_ptr) :: myResult + ! + hipblasIdaminStridedBatched_assumed_rank = hipblasIdaminStridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) + end function + +#else + function hipblasIdaminStridedBatched_rank_0(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdaminStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + type(c_ptr) :: myResult + ! + hipblasIdaminStridedBatched_rank_0 = hipblasIdaminStridedBatched_(handle,n,c_loc(x),incx, & + stridex,batchCount,myResult) + end function + + function hipblasIdaminStridedBatched_rank_1(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdaminStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + type(c_ptr) :: myResult + ! + hipblasIdaminStridedBatched_rank_1 = hipblasIdaminStridedBatched_(handle,n,c_loc(x),incx, & + stridex,batchCount,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasIcaminStridedBatched_assumed_rank(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcaminStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + type(c_ptr) :: myResult + ! + hipblasIcaminStridedBatched_assumed_rank = hipblasIcaminStridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) + end function + +#else + function hipblasIcaminStridedBatched_rank_0(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcaminStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + type(c_ptr) :: myResult + ! + hipblasIcaminStridedBatched_rank_0 = hipblasIcaminStridedBatched_(handle,n,c_loc(x),incx, & + stridex,batchCount,myResult) + end function + + function hipblasIcaminStridedBatched_rank_1(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcaminStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + type(c_ptr) :: myResult + ! + hipblasIcaminStridedBatched_rank_1 = hipblasIcaminStridedBatched_(handle,n,c_loc(x),incx, & + stridex,batchCount,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasIzaminStridedBatched_assumed_rank(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzaminStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + type(c_ptr) :: myResult + ! + hipblasIzaminStridedBatched_assumed_rank = hipblasIzaminStridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) + end function + +#else + function hipblasIzaminStridedBatched_rank_0(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzaminStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + type(c_ptr) :: myResult + ! + hipblasIzaminStridedBatched_rank_0 = hipblasIzaminStridedBatched_(handle,n,c_loc(x),incx, & + stridex,batchCount,myResult) + end function + + function hipblasIzaminStridedBatched_rank_1(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzaminStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + type(c_ptr) :: myResult + ! + hipblasIzaminStridedBatched_rank_1 = hipblasIzaminStridedBatched_(handle,n,c_loc(x),incx, & + stridex,batchCount,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasIsaminStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,batchCount, & + myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsaminStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + type(c_ptr) :: myResult + ! + hipblasIsaminStridedBatched_64_assumed_rank = hipblasIsaminStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) + end function + +#else + function hipblasIsaminStridedBatched_64_rank_0(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsaminStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + type(c_ptr) :: myResult + ! + hipblasIsaminStridedBatched_64_rank_0 = hipblasIsaminStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) + end function + + function hipblasIsaminStridedBatched_64_rank_1(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsaminStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + type(c_ptr) :: myResult + ! + hipblasIsaminStridedBatched_64_rank_1 = hipblasIsaminStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasIdaminStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,batchCount, & + myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdaminStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + type(c_ptr) :: myResult + ! + hipblasIdaminStridedBatched_64_assumed_rank = hipblasIdaminStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) + end function + +#else + function hipblasIdaminStridedBatched_64_rank_0(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdaminStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + type(c_ptr) :: myResult + ! + hipblasIdaminStridedBatched_64_rank_0 = hipblasIdaminStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) + end function + + function hipblasIdaminStridedBatched_64_rank_1(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdaminStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + type(c_ptr) :: myResult + ! + hipblasIdaminStridedBatched_64_rank_1 = hipblasIdaminStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasIcaminStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,batchCount, & + myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcaminStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + type(c_ptr) :: myResult + ! + hipblasIcaminStridedBatched_64_assumed_rank = hipblasIcaminStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) + end function + +#else + function hipblasIcaminStridedBatched_64_rank_0(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcaminStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + type(c_ptr) :: myResult + ! + hipblasIcaminStridedBatched_64_rank_0 = hipblasIcaminStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) + end function + + function hipblasIcaminStridedBatched_64_rank_1(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcaminStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + type(c_ptr) :: myResult + ! + hipblasIcaminStridedBatched_64_rank_1 = hipblasIcaminStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasIzaminStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,batchCount, & + myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzaminStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + type(c_ptr) :: myResult + ! + hipblasIzaminStridedBatched_64_assumed_rank = hipblasIzaminStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) + end function + +#else + function hipblasIzaminStridedBatched_64_rank_0(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzaminStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + type(c_ptr) :: myResult + ! + hipblasIzaminStridedBatched_64_rank_0 = hipblasIzaminStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) + end function + + function hipblasIzaminStridedBatched_64_rank_1(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzaminStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + type(c_ptr) :: myResult + ! + hipblasIzaminStridedBatched_64_rank_1 = hipblasIzaminStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSasum_assumed_rank(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasum_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + real(c_float),target :: myResult + ! + hipblasSasum_assumed_rank = hipblasSasum_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasSasum_assumed_rank_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasum_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + hipblasSasum_assumed_rank_devptr = hipblasSasum_(handle,n,c_loc(x),incx,myResult) + end function + +#else + function hipblasSasum_rank_0(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasum_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target :: x + integer(c_int) :: incx + real(c_float),target :: myResult + ! + hipblasSasum_rank_0 = hipblasSasum_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasSasum_rank_0_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasum_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + hipblasSasum_rank_0_devptr = hipblasSasum_(handle,n,c_loc(x),incx,myResult) + end function + + function hipblasSasum_rank_1(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasum_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + real(c_float),target :: myResult + ! + hipblasSasum_rank_1 = hipblasSasum_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasSasum_rank_1_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasum_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + hipblasSasum_rank_1_devptr = hipblasSasum_(handle,n,c_loc(x),incx,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDasum_assumed_rank(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasum_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + real(c_double),target :: myResult + ! + hipblasDasum_assumed_rank = hipblasDasum_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasDasum_assumed_rank_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasum_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + hipblasDasum_assumed_rank_devptr = hipblasDasum_(handle,n,c_loc(x),incx,myResult) + end function + +#else + function hipblasDasum_rank_0(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasum_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target :: x + integer(c_int) :: incx + real(c_double),target :: myResult + ! + hipblasDasum_rank_0 = hipblasDasum_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasDasum_rank_0_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasum_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + hipblasDasum_rank_0_devptr = hipblasDasum_(handle,n,c_loc(x),incx,myResult) + end function + + function hipblasDasum_rank_1(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasum_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + real(c_double),target :: myResult + ! + hipblasDasum_rank_1 = hipblasDasum_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasDasum_rank_1_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasum_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + hipblasDasum_rank_1_devptr = hipblasDasum_(handle,n,c_loc(x),incx,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasScasum_assumed_rank(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasum_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + real(c_float),target :: myResult + ! + hipblasScasum_assumed_rank = hipblasScasum_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasScasum_assumed_rank_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasum_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + hipblasScasum_assumed_rank_devptr = hipblasScasum_(handle,n,c_loc(x),incx,myResult) + end function + +#else + function hipblasScasum_rank_0(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasum_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target :: x + integer(c_int) :: incx + real(c_float),target :: myResult + ! + hipblasScasum_rank_0 = hipblasScasum_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasScasum_rank_0_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasum_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + hipblasScasum_rank_0_devptr = hipblasScasum_(handle,n,c_loc(x),incx,myResult) + end function + + function hipblasScasum_rank_1(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasum_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + real(c_float),target :: myResult + ! + hipblasScasum_rank_1 = hipblasScasum_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasScasum_rank_1_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasum_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + hipblasScasum_rank_1_devptr = hipblasScasum_(handle,n,c_loc(x),incx,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDzasum_assumed_rank(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasum_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + real(c_double),target :: myResult + ! + hipblasDzasum_assumed_rank = hipblasDzasum_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasDzasum_assumed_rank_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasum_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + hipblasDzasum_assumed_rank_devptr = hipblasDzasum_(handle,n,c_loc(x),incx,myResult) + end function + +#else + function hipblasDzasum_rank_0(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasum_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target :: x + integer(c_int) :: incx + real(c_double),target :: myResult + ! + hipblasDzasum_rank_0 = hipblasDzasum_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasDzasum_rank_0_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasum_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + hipblasDzasum_rank_0_devptr = hipblasDzasum_(handle,n,c_loc(x),incx,myResult) + end function + + function hipblasDzasum_rank_1(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasum_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + real(c_double),target :: myResult + ! + hipblasDzasum_rank_1 = hipblasDzasum_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasDzasum_rank_1_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasum_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + hipblasDzasum_rank_1_devptr = hipblasDzasum_(handle,n,c_loc(x),incx,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSasum_64_assumed_rank(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasum_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_float),target :: myResult + ! + hipblasSasum_64_assumed_rank = hipblasSasum_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasSasum_64_assumed_rank_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasum_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: myResult + ! + hipblasSasum_64_assumed_rank_devptr = hipblasSasum_64_(handle,n,c_loc(x),incx,myResult) + end function + +#else + function hipblasSasum_64_rank_0(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasum_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target :: x + integer(c_int64_t) :: incx + real(c_float),target :: myResult + ! + hipblasSasum_64_rank_0 = hipblasSasum_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasSasum_64_rank_0_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasum_64_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: myResult + ! + hipblasSasum_64_rank_0_devptr = hipblasSasum_64_(handle,n,c_loc(x),incx,myResult) + end function + + function hipblasSasum_64_rank_1(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasum_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_float),target :: myResult + ! + hipblasSasum_64_rank_1 = hipblasSasum_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasSasum_64_rank_1_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasum_64_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: myResult + ! + hipblasSasum_64_rank_1_devptr = hipblasSasum_64_(handle,n,c_loc(x),incx,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDasum_64_assumed_rank(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasum_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_double),target :: myResult + ! + hipblasDasum_64_assumed_rank = hipblasDasum_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasDasum_64_assumed_rank_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasum_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: myResult + ! + hipblasDasum_64_assumed_rank_devptr = hipblasDasum_64_(handle,n,c_loc(x),incx,myResult) + end function + +#else + function hipblasDasum_64_rank_0(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasum_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target :: x + integer(c_int64_t) :: incx + real(c_double),target :: myResult + ! + hipblasDasum_64_rank_0 = hipblasDasum_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasDasum_64_rank_0_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasum_64_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: myResult + ! + hipblasDasum_64_rank_0_devptr = hipblasDasum_64_(handle,n,c_loc(x),incx,myResult) + end function + + function hipblasDasum_64_rank_1(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasum_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_double),target :: myResult + ! + hipblasDasum_64_rank_1 = hipblasDasum_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasDasum_64_rank_1_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasum_64_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: myResult + ! + hipblasDasum_64_rank_1_devptr = hipblasDasum_64_(handle,n,c_loc(x),incx,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasScasum_64_assumed_rank(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasum_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_float),target :: myResult + ! + hipblasScasum_64_assumed_rank = hipblasScasum_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasScasum_64_assumed_rank_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasum_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: myResult + ! + hipblasScasum_64_assumed_rank_devptr = hipblasScasum_64_(handle,n,c_loc(x),incx,myResult) + end function + +#else + function hipblasScasum_64_rank_0(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasum_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + real(c_float),target :: myResult + ! + hipblasScasum_64_rank_0 = hipblasScasum_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasScasum_64_rank_0_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasum_64_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: myResult + ! + hipblasScasum_64_rank_0_devptr = hipblasScasum_64_(handle,n,c_loc(x),incx,myResult) + end function + + function hipblasScasum_64_rank_1(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasum_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_float),target :: myResult + ! + hipblasScasum_64_rank_1 = hipblasScasum_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasScasum_64_rank_1_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasum_64_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: myResult + ! + hipblasScasum_64_rank_1_devptr = hipblasScasum_64_(handle,n,c_loc(x),incx,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDzasum_64_assumed_rank(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasum_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_double),target :: myResult + ! + hipblasDzasum_64_assumed_rank = hipblasDzasum_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasDzasum_64_assumed_rank_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasum_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: myResult + ! + hipblasDzasum_64_assumed_rank_devptr = hipblasDzasum_64_(handle,n,c_loc(x),incx,myResult) + end function + +#else + function hipblasDzasum_64_rank_0(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasum_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + real(c_double),target :: myResult + ! + hipblasDzasum_64_rank_0 = hipblasDzasum_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasDzasum_64_rank_0_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasum_64_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: myResult + ! + hipblasDzasum_64_rank_0_devptr = hipblasDzasum_64_(handle,n,c_loc(x),incx,myResult) + end function + + function hipblasDzasum_64_rank_1(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasum_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_double),target :: myResult + ! + hipblasDzasum_64_rank_1 = hipblasDzasum_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasDzasum_64_rank_1_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasum_64_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: myResult + ! + hipblasDzasum_64_rank_1_devptr = hipblasDzasum_64_(handle,n,c_loc(x),incx,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSasumStridedBatched_assumed_rank(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasumStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + type(c_ptr) :: myResult + ! + hipblasSasumStridedBatched_assumed_rank = hipblasSasumStridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) + end function + +#else + function hipblasSasumStridedBatched_rank_0(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasumStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + type(c_ptr) :: myResult + ! + hipblasSasumStridedBatched_rank_0 = hipblasSasumStridedBatched_(handle,n,c_loc(x),incx, & + stridex,batchCount,myResult) + end function + + function hipblasSasumStridedBatched_rank_1(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasumStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + type(c_ptr) :: myResult + ! + hipblasSasumStridedBatched_rank_1 = hipblasSasumStridedBatched_(handle,n,c_loc(x),incx, & + stridex,batchCount,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDasumStridedBatched_assumed_rank(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasumStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + type(c_ptr) :: myResult + ! + hipblasDasumStridedBatched_assumed_rank = hipblasDasumStridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) + end function + +#else + function hipblasDasumStridedBatched_rank_0(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasumStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + type(c_ptr) :: myResult + ! + hipblasDasumStridedBatched_rank_0 = hipblasDasumStridedBatched_(handle,n,c_loc(x),incx, & + stridex,batchCount,myResult) + end function + + function hipblasDasumStridedBatched_rank_1(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasumStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + type(c_ptr) :: myResult + ! + hipblasDasumStridedBatched_rank_1 = hipblasDasumStridedBatched_(handle,n,c_loc(x),incx, & + stridex,batchCount,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasScasumStridedBatched_assumed_rank(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasumStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + type(c_ptr) :: myResult + ! + hipblasScasumStridedBatched_assumed_rank = hipblasScasumStridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) + end function + +#else + function hipblasScasumStridedBatched_rank_0(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasumStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + type(c_ptr) :: myResult + ! + hipblasScasumStridedBatched_rank_0 = hipblasScasumStridedBatched_(handle,n,c_loc(x),incx, & + stridex,batchCount,myResult) + end function + + function hipblasScasumStridedBatched_rank_1(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasumStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + type(c_ptr) :: myResult + ! + hipblasScasumStridedBatched_rank_1 = hipblasScasumStridedBatched_(handle,n,c_loc(x),incx, & + stridex,batchCount,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDzasumStridedBatched_assumed_rank(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasumStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + type(c_ptr) :: myResult + ! + hipblasDzasumStridedBatched_assumed_rank = hipblasDzasumStridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) + end function + +#else + function hipblasDzasumStridedBatched_rank_0(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasumStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + type(c_ptr) :: myResult + ! + hipblasDzasumStridedBatched_rank_0 = hipblasDzasumStridedBatched_(handle,n,c_loc(x),incx, & + stridex,batchCount,myResult) + end function + + function hipblasDzasumStridedBatched_rank_1(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasumStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + type(c_ptr) :: myResult + ! + hipblasDzasumStridedBatched_rank_1 = hipblasDzasumStridedBatched_(handle,n,c_loc(x),incx, & + stridex,batchCount,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSasumStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasumStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + type(c_ptr) :: myResult + ! + hipblasSasumStridedBatched_64_assumed_rank = hipblasSasumStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) + end function + +#else + function hipblasSasumStridedBatched_64_rank_0(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasumStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + type(c_ptr) :: myResult + ! + hipblasSasumStridedBatched_64_rank_0 = hipblasSasumStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) + end function + + function hipblasSasumStridedBatched_64_rank_1(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasumStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + type(c_ptr) :: myResult + ! + hipblasSasumStridedBatched_64_rank_1 = hipblasSasumStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDasumStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasumStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + type(c_ptr) :: myResult + ! + hipblasDasumStridedBatched_64_assumed_rank = hipblasDasumStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) + end function + +#else + function hipblasDasumStridedBatched_64_rank_0(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasumStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + type(c_ptr) :: myResult + ! + hipblasDasumStridedBatched_64_rank_0 = hipblasDasumStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) + end function + + function hipblasDasumStridedBatched_64_rank_1(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasumStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + type(c_ptr) :: myResult + ! + hipblasDasumStridedBatched_64_rank_1 = hipblasDasumStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasScasumStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,batchCount, & + myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasumStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + type(c_ptr) :: myResult + ! + hipblasScasumStridedBatched_64_assumed_rank = hipblasScasumStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) + end function + +#else + function hipblasScasumStridedBatched_64_rank_0(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasumStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + type(c_ptr) :: myResult + ! + hipblasScasumStridedBatched_64_rank_0 = hipblasScasumStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) + end function + + function hipblasScasumStridedBatched_64_rank_1(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasumStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + type(c_ptr) :: myResult + ! + hipblasScasumStridedBatched_64_rank_1 = hipblasScasumStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDzasumStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,batchCount, & + myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasumStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + type(c_ptr) :: myResult + ! + hipblasDzasumStridedBatched_64_assumed_rank = hipblasDzasumStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) + end function + +#else + function hipblasDzasumStridedBatched_64_rank_0(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasumStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + type(c_ptr) :: myResult + ! + hipblasDzasumStridedBatched_64_rank_0 = hipblasDzasumStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) + end function + + function hipblasDzasumStridedBatched_64_rank_1(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasumStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + type(c_ptr) :: myResult + ! + hipblasDzasumStridedBatched_64_rank_1 = hipblasDzasumStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSaxpy_assumed_rank(handle,n,alpha,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpy_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + real(c_float),target,dimension(..) :: y + integer(c_int) :: incy + ! + hipblasSaxpy_assumed_rank = hipblasSaxpy_(handle,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy) + end function + +#else + function hipblasSaxpy_rank_0(handle,n,alpha,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpy_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target :: x + integer(c_int) :: incx + real(c_float),target :: y + integer(c_int) :: incy + ! + hipblasSaxpy_rank_0 = hipblasSaxpy_(handle,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy) + end function + + function hipblasSaxpy_rank_1(handle,n,alpha,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpy_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasSaxpy_rank_1 = hipblasSaxpy_(handle,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDaxpy_assumed_rank(handle,n,alpha,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpy_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + real(c_double),target,dimension(..) :: y + integer(c_int) :: incy + ! + hipblasDaxpy_assumed_rank = hipblasDaxpy_(handle,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy) + end function + +#else + function hipblasDaxpy_rank_0(handle,n,alpha,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpy_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target :: x + integer(c_int) :: incx + real(c_double),target :: y + integer(c_int) :: incy + ! + hipblasDaxpy_rank_0 = hipblasDaxpy_(handle,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy) + end function + + function hipblasDaxpy_rank_1(handle,n,alpha,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpy_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasDaxpy_rank_1 = hipblasDaxpy_(handle,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCaxpy_assumed_rank(handle,n,alpha,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpy_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + ! + hipblasCaxpy_assumed_rank = hipblasCaxpy_(handle,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy) + end function + +#else + function hipblasCaxpy_rank_0(handle,n,alpha,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpy_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: x + integer(c_int) :: incx + complex(c_float_complex),target :: y + integer(c_int) :: incy + ! + hipblasCaxpy_rank_0 = hipblasCaxpy_(handle,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy) + end function + + function hipblasCaxpy_rank_1(handle,n,alpha,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpy_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasCaxpy_rank_1 = hipblasCaxpy_(handle,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZaxpy_assumed_rank(handle,n,alpha,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpy_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + ! + hipblasZaxpy_assumed_rank = hipblasZaxpy_(handle,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy) + end function + +#else + function hipblasZaxpy_rank_0(handle,n,alpha,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpy_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: x + integer(c_int) :: incx + complex(c_double_complex),target :: y + integer(c_int) :: incy + ! + hipblasZaxpy_rank_0 = hipblasZaxpy_(handle,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy) + end function + + function hipblasZaxpy_rank_1(handle,n,alpha,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpy_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasZaxpy_rank_1 = hipblasZaxpy_(handle,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSaxpy_64_assumed_rank(handle,n,alpha,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpy_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy + ! + hipblasSaxpy_64_assumed_rank = hipblasSaxpy_64_(handle,n,c_loc(alpha),c_loc(x),incx, & + c_loc(y),incy) + end function + +#else + function hipblasSaxpy_64_rank_0(handle,n,alpha,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpy_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target :: x + integer(c_int64_t) :: incx + real(c_float),target :: y + integer(c_int64_t) :: incy + ! + hipblasSaxpy_64_rank_0 = hipblasSaxpy_64_(handle,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy) + end function + + function hipblasSaxpy_64_rank_1(handle,n,alpha,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpy_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasSaxpy_64_rank_1 = hipblasSaxpy_64_(handle,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDaxpy_64_assumed_rank(handle,n,alpha,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpy_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: incy + ! + hipblasDaxpy_64_assumed_rank = hipblasDaxpy_64_(handle,n,c_loc(alpha),c_loc(x),incx, & + c_loc(y),incy) + end function + +#else + function hipblasDaxpy_64_rank_0(handle,n,alpha,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpy_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target :: x + integer(c_int64_t) :: incx + real(c_double),target :: y + integer(c_int64_t) :: incy + ! + hipblasDaxpy_64_rank_0 = hipblasDaxpy_64_(handle,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy) + end function + + function hipblasDaxpy_64_rank_1(handle,n,alpha,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpy_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasDaxpy_64_rank_1 = hipblasDaxpy_64_(handle,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCaxpy_64_assumed_rank(handle,n,alpha,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpy_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + ! + hipblasCaxpy_64_assumed_rank = hipblasCaxpy_64_(handle,n,c_loc(alpha),c_loc(x),incx, & + c_loc(y),incy) + end function + +#else + function hipblasCaxpy_64_rank_0(handle,n,alpha,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpy_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + ! + hipblasCaxpy_64_rank_0 = hipblasCaxpy_64_(handle,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy) + end function + + function hipblasCaxpy_64_rank_1(handle,n,alpha,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpy_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasCaxpy_64_rank_1 = hipblasCaxpy_64_(handle,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZaxpy_64_assumed_rank(handle,n,alpha,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpy_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + ! + hipblasZaxpy_64_assumed_rank = hipblasZaxpy_64_(handle,n,c_loc(alpha),c_loc(x),incx, & + c_loc(y),incy) + end function + +#else + function hipblasZaxpy_64_rank_0(handle,n,alpha,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpy_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + ! + hipblasZaxpy_64_rank_0 = hipblasZaxpy_64_(handle,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy) + end function + + function hipblasZaxpy_64_rank_1(handle,n,alpha,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpy_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasZaxpy_64_rank_1 = hipblasZaxpy_64_(handle,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSaxpyStridedBatched_assumed_rank(handle,n,alpha,x,incx,stridex,y,incy,stridey, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpyStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasSaxpyStridedBatched_assumed_rank = hipblasSaxpyStridedBatched_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + +#else + function hipblasSaxpyStridedBatched_rank_0(handle,n,alpha,x,incx,stridex,y,incy,stridey, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpyStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasSaxpyStridedBatched_rank_0 = hipblasSaxpyStridedBatched_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasSaxpyStridedBatched_rank_1(handle,n,alpha,x,incx,stridex,y,incy,stridey, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpyStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasSaxpyStridedBatched_rank_1 = hipblasSaxpyStridedBatched_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDaxpyStridedBatched_assumed_rank(handle,n,alpha,x,incx,stridex,y,incy,stridey, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpyStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasDaxpyStridedBatched_assumed_rank = hipblasDaxpyStridedBatched_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + +#else + function hipblasDaxpyStridedBatched_rank_0(handle,n,alpha,x,incx,stridex,y,incy,stridey, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpyStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasDaxpyStridedBatched_rank_0 = hipblasDaxpyStridedBatched_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasDaxpyStridedBatched_rank_1(handle,n,alpha,x,incx,stridex,y,incy,stridey, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpyStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasDaxpyStridedBatched_rank_1 = hipblasDaxpyStridedBatched_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCaxpyStridedBatched_assumed_rank(handle,n,alpha,x,incx,stridex,y,incy,stridey, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpyStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasCaxpyStridedBatched_assumed_rank = hipblasCaxpyStridedBatched_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + +#else + function hipblasCaxpyStridedBatched_rank_0(handle,n,alpha,x,incx,stridex,y,incy,stridey, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpyStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasCaxpyStridedBatched_rank_0 = hipblasCaxpyStridedBatched_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasCaxpyStridedBatched_rank_1(handle,n,alpha,x,incx,stridex,y,incy,stridey, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpyStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasCaxpyStridedBatched_rank_1 = hipblasCaxpyStridedBatched_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZaxpyStridedBatched_assumed_rank(handle,n,alpha,x,incx,stridex,y,incy,stridey, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpyStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZaxpyStridedBatched_assumed_rank = hipblasZaxpyStridedBatched_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + +#else + function hipblasZaxpyStridedBatched_rank_0(handle,n,alpha,x,incx,stridex,y,incy,stridey, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpyStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZaxpyStridedBatched_rank_0 = hipblasZaxpyStridedBatched_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasZaxpyStridedBatched_rank_1(handle,n,alpha,x,incx,stridex,y,incy,stridey, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpyStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZaxpyStridedBatched_rank_1 = hipblasZaxpyStridedBatched_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSaxpyStridedBatched_64_assumed_rank(handle,n,alpha,x,incx,stridex,y,incy, & + stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpyStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasSaxpyStridedBatched_64_assumed_rank = hipblasSaxpyStridedBatched_64_(handle,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + +#else + function hipblasSaxpyStridedBatched_64_rank_0(handle,n,alpha,x,incx,stridex,y,incy,stridey, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpyStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasSaxpyStridedBatched_64_rank_0 = hipblasSaxpyStridedBatched_64_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasSaxpyStridedBatched_64_rank_1(handle,n,alpha,x,incx,stridex,y,incy,stridey, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpyStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasSaxpyStridedBatched_64_rank_1 = hipblasSaxpyStridedBatched_64_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDaxpyStridedBatched_64_assumed_rank(handle,n,alpha,x,incx,stridex,y,incy, & + stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpyStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasDaxpyStridedBatched_64_assumed_rank = hipblasDaxpyStridedBatched_64_(handle,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + +#else + function hipblasDaxpyStridedBatched_64_rank_0(handle,n,alpha,x,incx,stridex,y,incy,stridey, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpyStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasDaxpyStridedBatched_64_rank_0 = hipblasDaxpyStridedBatched_64_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasDaxpyStridedBatched_64_rank_1(handle,n,alpha,x,incx,stridex,y,incy,stridey, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpyStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasDaxpyStridedBatched_64_rank_1 = hipblasDaxpyStridedBatched_64_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCaxpyStridedBatched_64_assumed_rank(handle,n,alpha,x,incx,stridex,y,incy, & + stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpyStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasCaxpyStridedBatched_64_assumed_rank = hipblasCaxpyStridedBatched_64_(handle,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + +#else + function hipblasCaxpyStridedBatched_64_rank_0(handle,n,alpha,x,incx,stridex,y,incy,stridey, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpyStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasCaxpyStridedBatched_64_rank_0 = hipblasCaxpyStridedBatched_64_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasCaxpyStridedBatched_64_rank_1(handle,n,alpha,x,incx,stridex,y,incy,stridey, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpyStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasCaxpyStridedBatched_64_rank_1 = hipblasCaxpyStridedBatched_64_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZaxpyStridedBatched_64_assumed_rank(handle,n,alpha,x,incx,stridex,y,incy, & + stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpyStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZaxpyStridedBatched_64_assumed_rank = hipblasZaxpyStridedBatched_64_(handle,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + +#else + function hipblasZaxpyStridedBatched_64_rank_0(handle,n,alpha,x,incx,stridex,y,incy,stridey, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpyStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZaxpyStridedBatched_64_rank_0 = hipblasZaxpyStridedBatched_64_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasZaxpyStridedBatched_64_rank_1(handle,n,alpha,x,incx,stridex,y,incy,stridey, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpyStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZaxpyStridedBatched_64_rank_1 = hipblasZaxpyStridedBatched_64_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasScopy_assumed_rank(handle,n,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScopy_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + real(c_float),target,dimension(..) :: y + integer(c_int) :: incy + ! + hipblasScopy_assumed_rank = hipblasScopy_(handle,n,c_loc(x),incx,c_loc(y),incy) + end function + +#else + function hipblasScopy_rank_0(handle,n,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScopy_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target :: x + integer(c_int) :: incx + real(c_float),target :: y + integer(c_int) :: incy + ! + hipblasScopy_rank_0 = hipblasScopy_(handle,n,c_loc(x),incx,c_loc(y),incy) + end function + + function hipblasScopy_rank_1(handle,n,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScopy_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasScopy_rank_1 = hipblasScopy_(handle,n,c_loc(x),incx,c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDcopy_assumed_rank(handle,n,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDcopy_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + real(c_double),target,dimension(..) :: y + integer(c_int) :: incy + ! + hipblasDcopy_assumed_rank = hipblasDcopy_(handle,n,c_loc(x),incx,c_loc(y),incy) + end function + +#else + function hipblasDcopy_rank_0(handle,n,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDcopy_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target :: x + integer(c_int) :: incx + real(c_double),target :: y + integer(c_int) :: incy + ! + hipblasDcopy_rank_0 = hipblasDcopy_(handle,n,c_loc(x),incx,c_loc(y),incy) + end function + + function hipblasDcopy_rank_1(handle,n,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDcopy_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasDcopy_rank_1 = hipblasDcopy_(handle,n,c_loc(x),incx,c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCcopy_assumed_rank(handle,n,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCcopy_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + ! + hipblasCcopy_assumed_rank = hipblasCcopy_(handle,n,c_loc(x),incx,c_loc(y),incy) + end function + +#else + function hipblasCcopy_rank_0(handle,n,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCcopy_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target :: x + integer(c_int) :: incx + complex(c_float_complex),target :: y + integer(c_int) :: incy + ! + hipblasCcopy_rank_0 = hipblasCcopy_(handle,n,c_loc(x),incx,c_loc(y),incy) + end function + + function hipblasCcopy_rank_1(handle,n,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCcopy_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasCcopy_rank_1 = hipblasCcopy_(handle,n,c_loc(x),incx,c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZcopy_assumed_rank(handle,n,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZcopy_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + ! + hipblasZcopy_assumed_rank = hipblasZcopy_(handle,n,c_loc(x),incx,c_loc(y),incy) + end function + +#else + function hipblasZcopy_rank_0(handle,n,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZcopy_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target :: x + integer(c_int) :: incx + complex(c_double_complex),target :: y + integer(c_int) :: incy + ! + hipblasZcopy_rank_0 = hipblasZcopy_(handle,n,c_loc(x),incx,c_loc(y),incy) + end function + + function hipblasZcopy_rank_1(handle,n,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZcopy_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasZcopy_rank_1 = hipblasZcopy_(handle,n,c_loc(x),incx,c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasScopy_64_assumed_rank(handle,n,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScopy_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy + ! + hipblasScopy_64_assumed_rank = hipblasScopy_64_(handle,n,c_loc(x),incx,c_loc(y),incy) + end function + +#else + function hipblasScopy_64_rank_0(handle,n,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScopy_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target :: x + integer(c_int64_t) :: incx + real(c_float),target :: y + integer(c_int64_t) :: incy + ! + hipblasScopy_64_rank_0 = hipblasScopy_64_(handle,n,c_loc(x),incx,c_loc(y),incy) + end function + + function hipblasScopy_64_rank_1(handle,n,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScopy_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasScopy_64_rank_1 = hipblasScopy_64_(handle,n,c_loc(x),incx,c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDcopy_64_assumed_rank(handle,n,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDcopy_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: incy + ! + hipblasDcopy_64_assumed_rank = hipblasDcopy_64_(handle,n,c_loc(x),incx,c_loc(y),incy) + end function + +#else + function hipblasDcopy_64_rank_0(handle,n,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDcopy_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target :: x + integer(c_int64_t) :: incx + real(c_double),target :: y + integer(c_int64_t) :: incy + ! + hipblasDcopy_64_rank_0 = hipblasDcopy_64_(handle,n,c_loc(x),incx,c_loc(y),incy) + end function + + function hipblasDcopy_64_rank_1(handle,n,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDcopy_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasDcopy_64_rank_1 = hipblasDcopy_64_(handle,n,c_loc(x),incx,c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCcopy_64_assumed_rank(handle,n,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCcopy_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + ! + hipblasCcopy_64_assumed_rank = hipblasCcopy_64_(handle,n,c_loc(x),incx,c_loc(y),incy) + end function + +#else + function hipblasCcopy_64_rank_0(handle,n,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCcopy_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + ! + hipblasCcopy_64_rank_0 = hipblasCcopy_64_(handle,n,c_loc(x),incx,c_loc(y),incy) + end function + + function hipblasCcopy_64_rank_1(handle,n,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCcopy_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasCcopy_64_rank_1 = hipblasCcopy_64_(handle,n,c_loc(x),incx,c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZcopy_64_assumed_rank(handle,n,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZcopy_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + ! + hipblasZcopy_64_assumed_rank = hipblasZcopy_64_(handle,n,c_loc(x),incx,c_loc(y),incy) + end function + +#else + function hipblasZcopy_64_rank_0(handle,n,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZcopy_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + ! + hipblasZcopy_64_rank_0 = hipblasZcopy_64_(handle,n,c_loc(x),incx,c_loc(y),incy) + end function + + function hipblasZcopy_64_rank_1(handle,n,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZcopy_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasZcopy_64_rank_1 = hipblasZcopy_64_(handle,n,c_loc(x),incx,c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasScopyStridedBatched_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScopyStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasScopyStridedBatched_assumed_rank = hipblasScopyStridedBatched_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + +#else + function hipblasScopyStridedBatched_rank_0(handle,n,x,incx,stridex,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScopyStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasScopyStridedBatched_rank_0 = hipblasScopyStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasScopyStridedBatched_rank_1(handle,n,x,incx,stridex,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScopyStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasScopyStridedBatched_rank_1 = hipblasScopyStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDcopyStridedBatched_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDcopyStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasDcopyStridedBatched_assumed_rank = hipblasDcopyStridedBatched_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + +#else + function hipblasDcopyStridedBatched_rank_0(handle,n,x,incx,stridex,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDcopyStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasDcopyStridedBatched_rank_0 = hipblasDcopyStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasDcopyStridedBatched_rank_1(handle,n,x,incx,stridex,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDcopyStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasDcopyStridedBatched_rank_1 = hipblasDcopyStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCcopyStridedBatched_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCcopyStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasCcopyStridedBatched_assumed_rank = hipblasCcopyStridedBatched_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + +#else + function hipblasCcopyStridedBatched_rank_0(handle,n,x,incx,stridex,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCcopyStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasCcopyStridedBatched_rank_0 = hipblasCcopyStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasCcopyStridedBatched_rank_1(handle,n,x,incx,stridex,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCcopyStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasCcopyStridedBatched_rank_1 = hipblasCcopyStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZcopyStridedBatched_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZcopyStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZcopyStridedBatched_assumed_rank = hipblasZcopyStridedBatched_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + +#else + function hipblasZcopyStridedBatched_rank_0(handle,n,x,incx,stridex,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZcopyStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZcopyStridedBatched_rank_0 = hipblasZcopyStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasZcopyStridedBatched_rank_1(handle,n,x,incx,stridex,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZcopyStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZcopyStridedBatched_rank_1 = hipblasZcopyStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasScopyStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScopyStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasScopyStridedBatched_64_assumed_rank = hipblasScopyStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + +#else + function hipblasScopyStridedBatched_64_rank_0(handle,n,x,incx,stridex,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScopyStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasScopyStridedBatched_64_rank_0 = hipblasScopyStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasScopyStridedBatched_64_rank_1(handle,n,x,incx,stridex,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScopyStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasScopyStridedBatched_64_rank_1 = hipblasScopyStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDcopyStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDcopyStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasDcopyStridedBatched_64_assumed_rank = hipblasDcopyStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + +#else + function hipblasDcopyStridedBatched_64_rank_0(handle,n,x,incx,stridex,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDcopyStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasDcopyStridedBatched_64_rank_0 = hipblasDcopyStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasDcopyStridedBatched_64_rank_1(handle,n,x,incx,stridex,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDcopyStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasDcopyStridedBatched_64_rank_1 = hipblasDcopyStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCcopyStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCcopyStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasCcopyStridedBatched_64_assumed_rank = hipblasCcopyStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + +#else + function hipblasCcopyStridedBatched_64_rank_0(handle,n,x,incx,stridex,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCcopyStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasCcopyStridedBatched_64_rank_0 = hipblasCcopyStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasCcopyStridedBatched_64_rank_1(handle,n,x,incx,stridex,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCcopyStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasCcopyStridedBatched_64_rank_1 = hipblasCcopyStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZcopyStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZcopyStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZcopyStridedBatched_64_assumed_rank = hipblasZcopyStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + +#else + function hipblasZcopyStridedBatched_64_rank_0(handle,n,x,incx,stridex,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZcopyStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZcopyStridedBatched_64_rank_0 = hipblasZcopyStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasZcopyStridedBatched_64_rank_1(handle,n,x,incx,stridex,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZcopyStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZcopyStridedBatched_64_rank_1 = hipblasZcopyStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSdot_assumed_rank(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdot_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + real(c_float),target,dimension(..) :: y + integer(c_int) :: incy + real(c_float),target :: myResult + ! + hipblasSdot_assumed_rank = hipblasSdot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) + end function + + function hipblasSdot_assumed_rank_devptr(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdot_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + real(c_float),target,dimension(..) :: y + integer(c_int) :: incy + type(c_ptr),value :: myResult + ! + hipblasSdot_assumed_rank_devptr = hipblasSdot_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) + end function + +#else + function hipblasSdot_rank_0(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdot_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target :: x + integer(c_int) :: incx + real(c_float),target :: y + integer(c_int) :: incy + real(c_float),target :: myResult + ! + hipblasSdot_rank_0 = hipblasSdot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) + end function + + function hipblasSdot_rank_0_devptr(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdot_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target :: x + integer(c_int) :: incx + real(c_float),target :: y + integer(c_int) :: incy + type(c_ptr),value :: myResult + ! + hipblasSdot_rank_0_devptr = hipblasSdot_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) + end function + + function hipblasSdot_rank_1(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdot_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + real(c_float),target :: myResult + ! + hipblasSdot_rank_1 = hipblasSdot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) + end function + + function hipblasSdot_rank_1_devptr(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdot_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + type(c_ptr),value :: myResult + ! + hipblasSdot_rank_1_devptr = hipblasSdot_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDdot_assumed_rank(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdot_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + real(c_double),target,dimension(..) :: y + integer(c_int) :: incy + real(c_double),target :: myResult + ! + hipblasDdot_assumed_rank = hipblasDdot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) + end function + + function hipblasDdot_assumed_rank_devptr(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdot_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + real(c_double),target,dimension(..) :: y + integer(c_int) :: incy + type(c_ptr),value :: myResult + ! + hipblasDdot_assumed_rank_devptr = hipblasDdot_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) + end function + +#else + function hipblasDdot_rank_0(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdot_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target :: x + integer(c_int) :: incx + real(c_double),target :: y + integer(c_int) :: incy + real(c_double),target :: myResult + ! + hipblasDdot_rank_0 = hipblasDdot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) + end function + + function hipblasDdot_rank_0_devptr(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdot_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target :: x + integer(c_int) :: incx + real(c_double),target :: y + integer(c_int) :: incy + type(c_ptr),value :: myResult + ! + hipblasDdot_rank_0_devptr = hipblasDdot_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) + end function + + function hipblasDdot_rank_1(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdot_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + real(c_double),target :: myResult + ! + hipblasDdot_rank_1 = hipblasDdot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) + end function + + function hipblasDdot_rank_1_devptr(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdot_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + type(c_ptr),value :: myResult + ! + hipblasDdot_rank_1_devptr = hipblasDdot_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCdotc_assumed_rank(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotc_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + complex(c_float_complex),target :: myResult + ! + hipblasCdotc_assumed_rank = hipblasCdotc_(handle,n,c_loc(x),incx,c_loc(y),incy, & + c_loc(myResult)) + end function + + function hipblasCdotc_assumed_rank_devptr(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotc_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + type(c_ptr),value :: myResult + ! + hipblasCdotc_assumed_rank_devptr = hipblasCdotc_(handle,n,c_loc(x),incx,c_loc(y),incy, & + myResult) + end function + +#else + function hipblasCdotc_rank_0(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotc_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target :: x + integer(c_int) :: incx + complex(c_float_complex),target :: y + integer(c_int) :: incy + complex(c_float_complex),target :: myResult + ! + hipblasCdotc_rank_0 = hipblasCdotc_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) + end function + + function hipblasCdotc_rank_0_devptr(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotc_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target :: x + integer(c_int) :: incx + complex(c_float_complex),target :: y + integer(c_int) :: incy + type(c_ptr),value :: myResult + ! + hipblasCdotc_rank_0_devptr = hipblasCdotc_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) + end function + + function hipblasCdotc_rank_1(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotc_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + complex(c_float_complex),target :: myResult + ! + hipblasCdotc_rank_1 = hipblasCdotc_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) + end function + + function hipblasCdotc_rank_1_devptr(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotc_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + type(c_ptr),value :: myResult + ! + hipblasCdotc_rank_1_devptr = hipblasCdotc_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCdotu_assumed_rank(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotu_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + complex(c_float_complex),target :: myResult + ! + hipblasCdotu_assumed_rank = hipblasCdotu_(handle,n,c_loc(x),incx,c_loc(y),incy, & + c_loc(myResult)) + end function + + function hipblasCdotu_assumed_rank_devptr(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotu_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + type(c_ptr),value :: myResult + ! + hipblasCdotu_assumed_rank_devptr = hipblasCdotu_(handle,n,c_loc(x),incx,c_loc(y),incy, & + myResult) + end function + +#else + function hipblasCdotu_rank_0(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotu_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target :: x + integer(c_int) :: incx + complex(c_float_complex),target :: y + integer(c_int) :: incy + complex(c_float_complex),target :: myResult + ! + hipblasCdotu_rank_0 = hipblasCdotu_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) + end function + + function hipblasCdotu_rank_0_devptr(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotu_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target :: x + integer(c_int) :: incx + complex(c_float_complex),target :: y + integer(c_int) :: incy + type(c_ptr),value :: myResult + ! + hipblasCdotu_rank_0_devptr = hipblasCdotu_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) + end function + + function hipblasCdotu_rank_1(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotu_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + complex(c_float_complex),target :: myResult + ! + hipblasCdotu_rank_1 = hipblasCdotu_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) + end function + + function hipblasCdotu_rank_1_devptr(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotu_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + type(c_ptr),value :: myResult + ! + hipblasCdotu_rank_1_devptr = hipblasCdotu_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZdotc_assumed_rank(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotc_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + complex(c_double_complex),target :: myResult + ! + hipblasZdotc_assumed_rank = hipblasZdotc_(handle,n,c_loc(x),incx,c_loc(y),incy, & + c_loc(myResult)) + end function + + function hipblasZdotc_assumed_rank_devptr(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotc_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + type(c_ptr),value :: myResult + ! + hipblasZdotc_assumed_rank_devptr = hipblasZdotc_(handle,n,c_loc(x),incx,c_loc(y),incy, & + myResult) + end function + +#else + function hipblasZdotc_rank_0(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotc_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target :: x + integer(c_int) :: incx + complex(c_double_complex),target :: y + integer(c_int) :: incy + complex(c_double_complex),target :: myResult + ! + hipblasZdotc_rank_0 = hipblasZdotc_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) + end function + + function hipblasZdotc_rank_0_devptr(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotc_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target :: x + integer(c_int) :: incx + complex(c_double_complex),target :: y + integer(c_int) :: incy + type(c_ptr),value :: myResult + ! + hipblasZdotc_rank_0_devptr = hipblasZdotc_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) + end function + + function hipblasZdotc_rank_1(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotc_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + complex(c_double_complex),target :: myResult + ! + hipblasZdotc_rank_1 = hipblasZdotc_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) + end function + + function hipblasZdotc_rank_1_devptr(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotc_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + type(c_ptr),value :: myResult + ! + hipblasZdotc_rank_1_devptr = hipblasZdotc_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZdotu_assumed_rank(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotu_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + complex(c_double_complex),target :: myResult + ! + hipblasZdotu_assumed_rank = hipblasZdotu_(handle,n,c_loc(x),incx,c_loc(y),incy, & + c_loc(myResult)) + end function + + function hipblasZdotu_assumed_rank_devptr(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotu_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + type(c_ptr),value :: myResult + ! + hipblasZdotu_assumed_rank_devptr = hipblasZdotu_(handle,n,c_loc(x),incx,c_loc(y),incy, & + myResult) + end function + +#else + function hipblasZdotu_rank_0(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotu_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target :: x + integer(c_int) :: incx + complex(c_double_complex),target :: y + integer(c_int) :: incy + complex(c_double_complex),target :: myResult + ! + hipblasZdotu_rank_0 = hipblasZdotu_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) + end function + + function hipblasZdotu_rank_0_devptr(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotu_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target :: x + integer(c_int) :: incx + complex(c_double_complex),target :: y + integer(c_int) :: incy + type(c_ptr),value :: myResult + ! + hipblasZdotu_rank_0_devptr = hipblasZdotu_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) + end function + + function hipblasZdotu_rank_1(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotu_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + complex(c_double_complex),target :: myResult + ! + hipblasZdotu_rank_1 = hipblasZdotu_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) + end function + + function hipblasZdotu_rank_1_devptr(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotu_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + type(c_ptr),value :: myResult + ! + hipblasZdotu_rank_1_devptr = hipblasZdotu_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSdot_64_assumed_rank(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdot_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy + real(c_float),target :: myResult + ! + hipblasSdot_64_assumed_rank = hipblasSdot_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + c_loc(myResult)) + end function + + function hipblasSdot_64_assumed_rank_devptr(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdot_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy + type(c_ptr),value :: myResult + ! + hipblasSdot_64_assumed_rank_devptr = hipblasSdot_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + myResult) + end function + +#else + function hipblasSdot_64_rank_0(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdot_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target :: x + integer(c_int64_t) :: incx + real(c_float),target :: y + integer(c_int64_t) :: incy + real(c_float),target :: myResult + ! + hipblasSdot_64_rank_0 = hipblasSdot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) + end function + + function hipblasSdot_64_rank_0_devptr(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdot_64_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target :: x + integer(c_int64_t) :: incx + real(c_float),target :: y + integer(c_int64_t) :: incy + type(c_ptr),value :: myResult + ! + hipblasSdot_64_rank_0_devptr = hipblasSdot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) + end function + + function hipblasSdot_64_rank_1(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdot_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + real(c_float),target :: myResult + ! + hipblasSdot_64_rank_1 = hipblasSdot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) + end function + + function hipblasSdot_64_rank_1_devptr(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdot_64_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + type(c_ptr),value :: myResult + ! + hipblasSdot_64_rank_1_devptr = hipblasSdot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDdot_64_assumed_rank(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdot_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: incy + real(c_double),target :: myResult + ! + hipblasDdot_64_assumed_rank = hipblasDdot_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + c_loc(myResult)) + end function + + function hipblasDdot_64_assumed_rank_devptr(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdot_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: incy + type(c_ptr),value :: myResult + ! + hipblasDdot_64_assumed_rank_devptr = hipblasDdot_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + myResult) + end function + +#else + function hipblasDdot_64_rank_0(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdot_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target :: x + integer(c_int64_t) :: incx + real(c_double),target :: y + integer(c_int64_t) :: incy + real(c_double),target :: myResult + ! + hipblasDdot_64_rank_0 = hipblasDdot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) + end function + + function hipblasDdot_64_rank_0_devptr(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdot_64_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target :: x + integer(c_int64_t) :: incx + real(c_double),target :: y + integer(c_int64_t) :: incy + type(c_ptr),value :: myResult + ! + hipblasDdot_64_rank_0_devptr = hipblasDdot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) + end function + + function hipblasDdot_64_rank_1(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdot_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + real(c_double),target :: myResult + ! + hipblasDdot_64_rank_1 = hipblasDdot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) + end function + + function hipblasDdot_64_rank_1_devptr(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdot_64_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + type(c_ptr),value :: myResult + ! + hipblasDdot_64_rank_1_devptr = hipblasDdot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCdotc_64_assumed_rank(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotc_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + complex(c_float_complex),target :: myResult + ! + hipblasCdotc_64_assumed_rank = hipblasCdotc_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + c_loc(myResult)) + end function + + function hipblasCdotc_64_assumed_rank_devptr(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotc_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + type(c_ptr),value :: myResult + ! + hipblasCdotc_64_assumed_rank_devptr = hipblasCdotc_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + myResult) + end function + +#else + function hipblasCdotc_64_rank_0(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotc_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + complex(c_float_complex),target :: myResult + ! + hipblasCdotc_64_rank_0 = hipblasCdotc_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + c_loc(myResult)) + end function + + function hipblasCdotc_64_rank_0_devptr(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotc_64_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + type(c_ptr),value :: myResult + ! + hipblasCdotc_64_rank_0_devptr = hipblasCdotc_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + myResult) + end function + + function hipblasCdotc_64_rank_1(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotc_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + complex(c_float_complex),target :: myResult + ! + hipblasCdotc_64_rank_1 = hipblasCdotc_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + c_loc(myResult)) + end function + + function hipblasCdotc_64_rank_1_devptr(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotc_64_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + type(c_ptr),value :: myResult + ! + hipblasCdotc_64_rank_1_devptr = hipblasCdotc_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCdotu_64_assumed_rank(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotu_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + complex(c_float_complex),target :: myResult + ! + hipblasCdotu_64_assumed_rank = hipblasCdotu_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + c_loc(myResult)) + end function + + function hipblasCdotu_64_assumed_rank_devptr(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotu_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + type(c_ptr),value :: myResult + ! + hipblasCdotu_64_assumed_rank_devptr = hipblasCdotu_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + myResult) + end function + +#else + function hipblasCdotu_64_rank_0(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotu_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + complex(c_float_complex),target :: myResult + ! + hipblasCdotu_64_rank_0 = hipblasCdotu_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + c_loc(myResult)) + end function + + function hipblasCdotu_64_rank_0_devptr(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotu_64_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + type(c_ptr),value :: myResult + ! + hipblasCdotu_64_rank_0_devptr = hipblasCdotu_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + myResult) + end function + + function hipblasCdotu_64_rank_1(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotu_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + complex(c_float_complex),target :: myResult + ! + hipblasCdotu_64_rank_1 = hipblasCdotu_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + c_loc(myResult)) + end function + + function hipblasCdotu_64_rank_1_devptr(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotu_64_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + type(c_ptr),value :: myResult + ! + hipblasCdotu_64_rank_1_devptr = hipblasCdotu_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZdotc_64_assumed_rank(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotc_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + complex(c_double_complex),target :: myResult + ! + hipblasZdotc_64_assumed_rank = hipblasZdotc_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + c_loc(myResult)) + end function + + function hipblasZdotc_64_assumed_rank_devptr(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotc_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + type(c_ptr),value :: myResult + ! + hipblasZdotc_64_assumed_rank_devptr = hipblasZdotc_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + myResult) + end function + +#else + function hipblasZdotc_64_rank_0(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotc_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + complex(c_double_complex),target :: myResult + ! + hipblasZdotc_64_rank_0 = hipblasZdotc_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + c_loc(myResult)) + end function + + function hipblasZdotc_64_rank_0_devptr(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotc_64_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + type(c_ptr),value :: myResult + ! + hipblasZdotc_64_rank_0_devptr = hipblasZdotc_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + myResult) + end function + + function hipblasZdotc_64_rank_1(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotc_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + complex(c_double_complex),target :: myResult + ! + hipblasZdotc_64_rank_1 = hipblasZdotc_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + c_loc(myResult)) + end function + + function hipblasZdotc_64_rank_1_devptr(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotc_64_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + type(c_ptr),value :: myResult + ! + hipblasZdotc_64_rank_1_devptr = hipblasZdotc_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZdotu_64_assumed_rank(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotu_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + complex(c_double_complex),target :: myResult + ! + hipblasZdotu_64_assumed_rank = hipblasZdotu_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + c_loc(myResult)) + end function + + function hipblasZdotu_64_assumed_rank_devptr(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotu_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + type(c_ptr),value :: myResult + ! + hipblasZdotu_64_assumed_rank_devptr = hipblasZdotu_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + myResult) + end function + +#else + function hipblasZdotu_64_rank_0(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotu_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + complex(c_double_complex),target :: myResult + ! + hipblasZdotu_64_rank_0 = hipblasZdotu_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + c_loc(myResult)) + end function + + function hipblasZdotu_64_rank_0_devptr(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotu_64_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + type(c_ptr),value :: myResult + ! + hipblasZdotu_64_rank_0_devptr = hipblasZdotu_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + myResult) + end function + + function hipblasZdotu_64_rank_1(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotu_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + complex(c_double_complex),target :: myResult + ! + hipblasZdotu_64_rank_1 = hipblasZdotu_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + c_loc(myResult)) + end function + + function hipblasZdotu_64_rank_1_devptr(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotu_64_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + type(c_ptr),value :: myResult + ! + hipblasZdotu_64_rank_1_devptr = hipblasZdotu_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSdotStridedBatched_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdotStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + type(c_ptr) :: myResult + ! + hipblasSdotStridedBatched_assumed_rank = hipblasSdotStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount,myResult) + end function + +#else + function hipblasSdotStridedBatched_rank_0(handle,n,x,incx,stridex,y,incy,stridey,batchCount, & + myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdotStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + type(c_ptr) :: myResult + ! + hipblasSdotStridedBatched_rank_0 = hipblasSdotStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount,myResult) + end function + + function hipblasSdotStridedBatched_rank_1(handle,n,x,incx,stridex,y,incy,stridey,batchCount, & + myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdotStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + type(c_ptr) :: myResult + ! + hipblasSdotStridedBatched_rank_1 = hipblasSdotStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDdotStridedBatched_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdotStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + type(c_ptr) :: myResult + ! + hipblasDdotStridedBatched_assumed_rank = hipblasDdotStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount,myResult) + end function + +#else + function hipblasDdotStridedBatched_rank_0(handle,n,x,incx,stridex,y,incy,stridey,batchCount, & + myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdotStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + type(c_ptr) :: myResult + ! + hipblasDdotStridedBatched_rank_0 = hipblasDdotStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount,myResult) + end function + + function hipblasDdotStridedBatched_rank_1(handle,n,x,incx,stridex,y,incy,stridey,batchCount, & + myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdotStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + type(c_ptr) :: myResult + ! + hipblasDdotStridedBatched_rank_1 = hipblasDdotStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCdotcStridedBatched_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotcStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + type(c_ptr) :: myResult + ! + hipblasCdotcStridedBatched_assumed_rank = hipblasCdotcStridedBatched_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) + end function + +#else + function hipblasCdotcStridedBatched_rank_0(handle,n,x,incx,stridex,y,incy,stridey,batchCount, & + myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotcStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + type(c_ptr) :: myResult + ! + hipblasCdotcStridedBatched_rank_0 = hipblasCdotcStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount,myResult) + end function + + function hipblasCdotcStridedBatched_rank_1(handle,n,x,incx,stridex,y,incy,stridey,batchCount, & + myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotcStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + type(c_ptr) :: myResult + ! + hipblasCdotcStridedBatched_rank_1 = hipblasCdotcStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCdotuStridedBatched_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotuStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + type(c_ptr) :: myResult + ! + hipblasCdotuStridedBatched_assumed_rank = hipblasCdotuStridedBatched_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) + end function + +#else + function hipblasCdotuStridedBatched_rank_0(handle,n,x,incx,stridex,y,incy,stridey,batchCount, & + myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotuStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + type(c_ptr) :: myResult + ! + hipblasCdotuStridedBatched_rank_0 = hipblasCdotuStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount,myResult) + end function + + function hipblasCdotuStridedBatched_rank_1(handle,n,x,incx,stridex,y,incy,stridey,batchCount, & + myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotuStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + type(c_ptr) :: myResult + ! + hipblasCdotuStridedBatched_rank_1 = hipblasCdotuStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZdotcStridedBatched_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotcStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + type(c_ptr) :: myResult + ! + hipblasZdotcStridedBatched_assumed_rank = hipblasZdotcStridedBatched_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) + end function + +#else + function hipblasZdotcStridedBatched_rank_0(handle,n,x,incx,stridex,y,incy,stridey,batchCount, & + myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotcStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + type(c_ptr) :: myResult + ! + hipblasZdotcStridedBatched_rank_0 = hipblasZdotcStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount,myResult) + end function + + function hipblasZdotcStridedBatched_rank_1(handle,n,x,incx,stridex,y,incy,stridey,batchCount, & + myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotcStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + type(c_ptr) :: myResult + ! + hipblasZdotcStridedBatched_rank_1 = hipblasZdotcStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZdotuStridedBatched_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotuStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + type(c_ptr) :: myResult + ! + hipblasZdotuStridedBatched_assumed_rank = hipblasZdotuStridedBatched_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) + end function + +#else + function hipblasZdotuStridedBatched_rank_0(handle,n,x,incx,stridex,y,incy,stridey,batchCount, & + myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotuStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + type(c_ptr) :: myResult + ! + hipblasZdotuStridedBatched_rank_0 = hipblasZdotuStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount,myResult) + end function + + function hipblasZdotuStridedBatched_rank_1(handle,n,x,incx,stridex,y,incy,stridey,batchCount, & + myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotuStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + type(c_ptr) :: myResult + ! + hipblasZdotuStridedBatched_rank_1 = hipblasZdotuStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSdotStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdotStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + type(c_ptr) :: myResult + ! + hipblasSdotStridedBatched_64_assumed_rank = hipblasSdotStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) + end function + +#else + function hipblasSdotStridedBatched_64_rank_0(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdotStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + type(c_ptr) :: myResult + ! + hipblasSdotStridedBatched_64_rank_0 = hipblasSdotStridedBatched_64_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount,myResult) + end function + + function hipblasSdotStridedBatched_64_rank_1(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdotStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + type(c_ptr) :: myResult + ! + hipblasSdotStridedBatched_64_rank_1 = hipblasSdotStridedBatched_64_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDdotStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdotStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + type(c_ptr) :: myResult + ! + hipblasDdotStridedBatched_64_assumed_rank = hipblasDdotStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) + end function + +#else + function hipblasDdotStridedBatched_64_rank_0(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdotStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + type(c_ptr) :: myResult + ! + hipblasDdotStridedBatched_64_rank_0 = hipblasDdotStridedBatched_64_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount,myResult) + end function + + function hipblasDdotStridedBatched_64_rank_1(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdotStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + type(c_ptr) :: myResult + ! + hipblasDdotStridedBatched_64_rank_1 = hipblasDdotStridedBatched_64_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCdotcStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotcStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + type(c_ptr) :: myResult + ! + hipblasCdotcStridedBatched_64_assumed_rank = hipblasCdotcStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) + end function + +#else + function hipblasCdotcStridedBatched_64_rank_0(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotcStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + type(c_ptr) :: myResult + ! + hipblasCdotcStridedBatched_64_rank_0 = hipblasCdotcStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) + end function + + function hipblasCdotcStridedBatched_64_rank_1(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotcStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + type(c_ptr) :: myResult + ! + hipblasCdotcStridedBatched_64_rank_1 = hipblasCdotcStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCdotuStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotuStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + type(c_ptr) :: myResult + ! + hipblasCdotuStridedBatched_64_assumed_rank = hipblasCdotuStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) + end function + +#else + function hipblasCdotuStridedBatched_64_rank_0(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotuStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + type(c_ptr) :: myResult + ! + hipblasCdotuStridedBatched_64_rank_0 = hipblasCdotuStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) + end function + + function hipblasCdotuStridedBatched_64_rank_1(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotuStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + type(c_ptr) :: myResult + ! + hipblasCdotuStridedBatched_64_rank_1 = hipblasCdotuStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZdotcStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotcStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + type(c_ptr) :: myResult + ! + hipblasZdotcStridedBatched_64_assumed_rank = hipblasZdotcStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) + end function + +#else + function hipblasZdotcStridedBatched_64_rank_0(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotcStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + type(c_ptr) :: myResult + ! + hipblasZdotcStridedBatched_64_rank_0 = hipblasZdotcStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) + end function + + function hipblasZdotcStridedBatched_64_rank_1(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotcStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + type(c_ptr) :: myResult + ! + hipblasZdotcStridedBatched_64_rank_1 = hipblasZdotcStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZdotuStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotuStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + type(c_ptr) :: myResult + ! + hipblasZdotuStridedBatched_64_assumed_rank = hipblasZdotuStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) + end function + +#else + function hipblasZdotuStridedBatched_64_rank_0(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotuStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + type(c_ptr) :: myResult + ! + hipblasZdotuStridedBatched_64_rank_0 = hipblasZdotuStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) + end function + + function hipblasZdotuStridedBatched_64_rank_1(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotuStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + type(c_ptr) :: myResult + ! + hipblasZdotuStridedBatched_64_rank_1 = hipblasZdotuStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSnrm2_assumed_rank(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + real(c_float),target :: myResult + ! + hipblasSnrm2_assumed_rank = hipblasSnrm2_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasSnrm2_assumed_rank_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + hipblasSnrm2_assumed_rank_devptr = hipblasSnrm2_(handle,n,c_loc(x),incx,myResult) + end function + +#else + function hipblasSnrm2_rank_0(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target :: x + integer(c_int) :: incx + real(c_float),target :: myResult + ! + hipblasSnrm2_rank_0 = hipblasSnrm2_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasSnrm2_rank_0_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + hipblasSnrm2_rank_0_devptr = hipblasSnrm2_(handle,n,c_loc(x),incx,myResult) + end function + + function hipblasSnrm2_rank_1(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + real(c_float),target :: myResult + ! + hipblasSnrm2_rank_1 = hipblasSnrm2_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasSnrm2_rank_1_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + hipblasSnrm2_rank_1_devptr = hipblasSnrm2_(handle,n,c_loc(x),incx,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDnrm2_assumed_rank(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + real(c_double),target :: myResult + ! + hipblasDnrm2_assumed_rank = hipblasDnrm2_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasDnrm2_assumed_rank_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + hipblasDnrm2_assumed_rank_devptr = hipblasDnrm2_(handle,n,c_loc(x),incx,myResult) + end function + +#else + function hipblasDnrm2_rank_0(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target :: x + integer(c_int) :: incx + real(c_double),target :: myResult + ! + hipblasDnrm2_rank_0 = hipblasDnrm2_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasDnrm2_rank_0_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + hipblasDnrm2_rank_0_devptr = hipblasDnrm2_(handle,n,c_loc(x),incx,myResult) + end function + + function hipblasDnrm2_rank_1(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + real(c_double),target :: myResult + ! + hipblasDnrm2_rank_1 = hipblasDnrm2_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasDnrm2_rank_1_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + hipblasDnrm2_rank_1_devptr = hipblasDnrm2_(handle,n,c_loc(x),incx,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasScnrm2_assumed_rank(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + real(c_float),target :: myResult + ! + hipblasScnrm2_assumed_rank = hipblasScnrm2_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasScnrm2_assumed_rank_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + hipblasScnrm2_assumed_rank_devptr = hipblasScnrm2_(handle,n,c_loc(x),incx,myResult) + end function + +#else + function hipblasScnrm2_rank_0(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target :: x + integer(c_int) :: incx + real(c_float),target :: myResult + ! + hipblasScnrm2_rank_0 = hipblasScnrm2_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasScnrm2_rank_0_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + hipblasScnrm2_rank_0_devptr = hipblasScnrm2_(handle,n,c_loc(x),incx,myResult) + end function + + function hipblasScnrm2_rank_1(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + real(c_float),target :: myResult + ! + hipblasScnrm2_rank_1 = hipblasScnrm2_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasScnrm2_rank_1_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + hipblasScnrm2_rank_1_devptr = hipblasScnrm2_(handle,n,c_loc(x),incx,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDznrm2_assumed_rank(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + real(c_double),target :: myResult + ! + hipblasDznrm2_assumed_rank = hipblasDznrm2_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasDznrm2_assumed_rank_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + hipblasDznrm2_assumed_rank_devptr = hipblasDznrm2_(handle,n,c_loc(x),incx,myResult) + end function + +#else + function hipblasDznrm2_rank_0(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target :: x + integer(c_int) :: incx + real(c_double),target :: myResult + ! + hipblasDznrm2_rank_0 = hipblasDznrm2_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasDznrm2_rank_0_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + hipblasDznrm2_rank_0_devptr = hipblasDznrm2_(handle,n,c_loc(x),incx,myResult) + end function + + function hipblasDznrm2_rank_1(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + real(c_double),target :: myResult + ! + hipblasDznrm2_rank_1 = hipblasDznrm2_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasDznrm2_rank_1_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + hipblasDznrm2_rank_1_devptr = hipblasDznrm2_(handle,n,c_loc(x),incx,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSnrm2_64_assumed_rank(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_float),target :: myResult + ! + hipblasSnrm2_64_assumed_rank = hipblasSnrm2_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasSnrm2_64_assumed_rank_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: myResult + ! + hipblasSnrm2_64_assumed_rank_devptr = hipblasSnrm2_64_(handle,n,c_loc(x),incx,myResult) + end function + +#else + function hipblasSnrm2_64_rank_0(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target :: x + integer(c_int64_t) :: incx + real(c_float),target :: myResult + ! + hipblasSnrm2_64_rank_0 = hipblasSnrm2_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasSnrm2_64_rank_0_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2_64_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: myResult + ! + hipblasSnrm2_64_rank_0_devptr = hipblasSnrm2_64_(handle,n,c_loc(x),incx,myResult) + end function + + function hipblasSnrm2_64_rank_1(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_float),target :: myResult + ! + hipblasSnrm2_64_rank_1 = hipblasSnrm2_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasSnrm2_64_rank_1_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2_64_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: myResult + ! + hipblasSnrm2_64_rank_1_devptr = hipblasSnrm2_64_(handle,n,c_loc(x),incx,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDnrm2_64_assumed_rank(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_double),target :: myResult + ! + hipblasDnrm2_64_assumed_rank = hipblasDnrm2_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasDnrm2_64_assumed_rank_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: myResult + ! + hipblasDnrm2_64_assumed_rank_devptr = hipblasDnrm2_64_(handle,n,c_loc(x),incx,myResult) + end function + +#else + function hipblasDnrm2_64_rank_0(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target :: x + integer(c_int64_t) :: incx + real(c_double),target :: myResult + ! + hipblasDnrm2_64_rank_0 = hipblasDnrm2_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasDnrm2_64_rank_0_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2_64_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: myResult + ! + hipblasDnrm2_64_rank_0_devptr = hipblasDnrm2_64_(handle,n,c_loc(x),incx,myResult) + end function + + function hipblasDnrm2_64_rank_1(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_double),target :: myResult + ! + hipblasDnrm2_64_rank_1 = hipblasDnrm2_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasDnrm2_64_rank_1_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2_64_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: myResult + ! + hipblasDnrm2_64_rank_1_devptr = hipblasDnrm2_64_(handle,n,c_loc(x),incx,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasScnrm2_64_assumed_rank(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_float),target :: myResult + ! + hipblasScnrm2_64_assumed_rank = hipblasScnrm2_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasScnrm2_64_assumed_rank_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: myResult + ! + hipblasScnrm2_64_assumed_rank_devptr = hipblasScnrm2_64_(handle,n,c_loc(x),incx,myResult) + end function + +#else + function hipblasScnrm2_64_rank_0(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + real(c_float),target :: myResult + ! + hipblasScnrm2_64_rank_0 = hipblasScnrm2_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasScnrm2_64_rank_0_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2_64_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: myResult + ! + hipblasScnrm2_64_rank_0_devptr = hipblasScnrm2_64_(handle,n,c_loc(x),incx,myResult) + end function + + function hipblasScnrm2_64_rank_1(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_float),target :: myResult + ! + hipblasScnrm2_64_rank_1 = hipblasScnrm2_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasScnrm2_64_rank_1_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2_64_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: myResult + ! + hipblasScnrm2_64_rank_1_devptr = hipblasScnrm2_64_(handle,n,c_loc(x),incx,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDznrm2_64_assumed_rank(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_double),target :: myResult + ! + hipblasDznrm2_64_assumed_rank = hipblasDznrm2_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasDznrm2_64_assumed_rank_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: myResult + ! + hipblasDznrm2_64_assumed_rank_devptr = hipblasDznrm2_64_(handle,n,c_loc(x),incx,myResult) + end function + +#else + function hipblasDznrm2_64_rank_0(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + real(c_double),target :: myResult + ! + hipblasDznrm2_64_rank_0 = hipblasDznrm2_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasDznrm2_64_rank_0_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2_64_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: myResult + ! + hipblasDznrm2_64_rank_0_devptr = hipblasDznrm2_64_(handle,n,c_loc(x),incx,myResult) + end function + + function hipblasDznrm2_64_rank_1(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_double),target :: myResult + ! + hipblasDznrm2_64_rank_1 = hipblasDznrm2_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasDznrm2_64_rank_1_devptr(handle,n,x,incx,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2_64_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: myResult + ! + hipblasDznrm2_64_rank_1_devptr = hipblasDznrm2_64_(handle,n,c_loc(x),incx,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSnrm2StridedBatched_assumed_rank(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2StridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + type(c_ptr) :: myResult + ! + hipblasSnrm2StridedBatched_assumed_rank = hipblasSnrm2StridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) + end function + +#else + function hipblasSnrm2StridedBatched_rank_0(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2StridedBatched_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + type(c_ptr) :: myResult + ! + hipblasSnrm2StridedBatched_rank_0 = hipblasSnrm2StridedBatched_(handle,n,c_loc(x),incx, & + stridex,batchCount,myResult) + end function + + function hipblasSnrm2StridedBatched_rank_1(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2StridedBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + type(c_ptr) :: myResult + ! + hipblasSnrm2StridedBatched_rank_1 = hipblasSnrm2StridedBatched_(handle,n,c_loc(x),incx, & + stridex,batchCount,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDnrm2StridedBatched_assumed_rank(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2StridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + type(c_ptr) :: myResult + ! + hipblasDnrm2StridedBatched_assumed_rank = hipblasDnrm2StridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) + end function + +#else + function hipblasDnrm2StridedBatched_rank_0(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2StridedBatched_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + type(c_ptr) :: myResult + ! + hipblasDnrm2StridedBatched_rank_0 = hipblasDnrm2StridedBatched_(handle,n,c_loc(x),incx, & + stridex,batchCount,myResult) + end function + + function hipblasDnrm2StridedBatched_rank_1(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2StridedBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + type(c_ptr) :: myResult + ! + hipblasDnrm2StridedBatched_rank_1 = hipblasDnrm2StridedBatched_(handle,n,c_loc(x),incx, & + stridex,batchCount,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasScnrm2StridedBatched_assumed_rank(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2StridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + type(c_ptr) :: myResult + ! + hipblasScnrm2StridedBatched_assumed_rank = hipblasScnrm2StridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) + end function + +#else + function hipblasScnrm2StridedBatched_rank_0(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2StridedBatched_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + type(c_ptr) :: myResult + ! + hipblasScnrm2StridedBatched_rank_0 = hipblasScnrm2StridedBatched_(handle,n,c_loc(x),incx, & + stridex,batchCount,myResult) + end function + + function hipblasScnrm2StridedBatched_rank_1(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2StridedBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + type(c_ptr) :: myResult + ! + hipblasScnrm2StridedBatched_rank_1 = hipblasScnrm2StridedBatched_(handle,n,c_loc(x),incx, & + stridex,batchCount,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDznrm2StridedBatched_assumed_rank(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2StridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + type(c_ptr) :: myResult + ! + hipblasDznrm2StridedBatched_assumed_rank = hipblasDznrm2StridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) + end function + +#else + function hipblasDznrm2StridedBatched_rank_0(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2StridedBatched_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + type(c_ptr) :: myResult + ! + hipblasDznrm2StridedBatched_rank_0 = hipblasDznrm2StridedBatched_(handle,n,c_loc(x),incx, & + stridex,batchCount,myResult) + end function + + function hipblasDznrm2StridedBatched_rank_1(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2StridedBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + type(c_ptr) :: myResult + ! + hipblasDznrm2StridedBatched_rank_1 = hipblasDznrm2StridedBatched_(handle,n,c_loc(x),incx, & + stridex,batchCount,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSnrm2StridedBatched_64_assumed_rank(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2StridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + type(c_ptr) :: myResult + ! + hipblasSnrm2StridedBatched_64_assumed_rank = hipblasSnrm2StridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) + end function + +#else + function hipblasSnrm2StridedBatched_64_rank_0(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2StridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + type(c_ptr) :: myResult + ! + hipblasSnrm2StridedBatched_64_rank_0 = hipblasSnrm2StridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) + end function + + function hipblasSnrm2StridedBatched_64_rank_1(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2StridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + type(c_ptr) :: myResult + ! + hipblasSnrm2StridedBatched_64_rank_1 = hipblasSnrm2StridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDnrm2StridedBatched_64_assumed_rank(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2StridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + type(c_ptr) :: myResult + ! + hipblasDnrm2StridedBatched_64_assumed_rank = hipblasDnrm2StridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) + end function + +#else + function hipblasDnrm2StridedBatched_64_rank_0(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2StridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + type(c_ptr) :: myResult + ! + hipblasDnrm2StridedBatched_64_rank_0 = hipblasDnrm2StridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) + end function + + function hipblasDnrm2StridedBatched_64_rank_1(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2StridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + type(c_ptr) :: myResult + ! + hipblasDnrm2StridedBatched_64_rank_1 = hipblasDnrm2StridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasScnrm2StridedBatched_64_assumed_rank(handle,n,x,incx,stridex,batchCount, & + myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2StridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + type(c_ptr) :: myResult + ! + hipblasScnrm2StridedBatched_64_assumed_rank = hipblasScnrm2StridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) + end function + +#else + function hipblasScnrm2StridedBatched_64_rank_0(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2StridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + type(c_ptr) :: myResult + ! + hipblasScnrm2StridedBatched_64_rank_0 = hipblasScnrm2StridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) + end function + + function hipblasScnrm2StridedBatched_64_rank_1(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2StridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + type(c_ptr) :: myResult + ! + hipblasScnrm2StridedBatched_64_rank_1 = hipblasScnrm2StridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDznrm2StridedBatched_64_assumed_rank(handle,n,x,incx,stridex,batchCount, & + myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2StridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + type(c_ptr) :: myResult + ! + hipblasDznrm2StridedBatched_64_assumed_rank = hipblasDznrm2StridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) + end function + +#else + function hipblasDznrm2StridedBatched_64_rank_0(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2StridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + type(c_ptr) :: myResult + ! + hipblasDznrm2StridedBatched_64_rank_0 = hipblasDznrm2StridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) + end function + + function hipblasDznrm2StridedBatched_64_rank_1(handle,n,x,incx,stridex,batchCount,myResult) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2StridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + type(c_ptr) :: myResult + ! + hipblasDznrm2StridedBatched_64_rank_1 = hipblasDznrm2StridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSrot_assumed_rank(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrot_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + real(c_float),target,dimension(..) :: y + integer(c_int) :: incy + real(c_float),target :: c + real(c_float),target :: s + ! + hipblasSrot_assumed_rank = hipblasSrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c), & + c_loc(s)) + end function + + function hipblasSrot_assumed_rank_devptr(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrot_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + real(c_float),target,dimension(..) :: y + integer(c_int) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + hipblasSrot_assumed_rank_devptr = hipblasSrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + end function + +#else + function hipblasSrot_rank_0(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrot_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target :: x + integer(c_int) :: incx + real(c_float),target :: y + integer(c_int) :: incy + real(c_float),target :: c + real(c_float),target :: s + ! + hipblasSrot_rank_0 = hipblasSrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c),c_loc(s)) + end function + + function hipblasSrot_rank_0_devptr(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrot_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target :: x + integer(c_int) :: incx + real(c_float),target :: y + integer(c_int) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + hipblasSrot_rank_0_devptr = hipblasSrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + end function + + function hipblasSrot_rank_1(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrot_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + real(c_float),target :: c + real(c_float),target :: s + ! + hipblasSrot_rank_1 = hipblasSrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c),c_loc(s)) + end function + + function hipblasSrot_rank_1_devptr(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrot_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + hipblasSrot_rank_1_devptr = hipblasSrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDrot_assumed_rank(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrot_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + real(c_double),target,dimension(..) :: y + integer(c_int) :: incy + real(c_double),target :: c + real(c_double),target :: s + ! + hipblasDrot_assumed_rank = hipblasDrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c), & + c_loc(s)) + end function + + function hipblasDrot_assumed_rank_devptr(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrot_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + real(c_double),target,dimension(..) :: y + integer(c_int) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + hipblasDrot_assumed_rank_devptr = hipblasDrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + end function + +#else + function hipblasDrot_rank_0(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrot_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target :: x + integer(c_int) :: incx + real(c_double),target :: y + integer(c_int) :: incy + real(c_double),target :: c + real(c_double),target :: s + ! + hipblasDrot_rank_0 = hipblasDrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c),c_loc(s)) + end function + + function hipblasDrot_rank_0_devptr(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrot_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target :: x + integer(c_int) :: incx + real(c_double),target :: y + integer(c_int) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + hipblasDrot_rank_0_devptr = hipblasDrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + end function + + function hipblasDrot_rank_1(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrot_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + real(c_double),target :: c + real(c_double),target :: s + ! + hipblasDrot_rank_1 = hipblasDrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c),c_loc(s)) + end function + + function hipblasDrot_rank_1_devptr(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrot_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + hipblasDrot_rank_1_devptr = hipblasDrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCrot_assumed_rank(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrot_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + real(c_float),target :: c + complex(c_float_complex),target :: s + ! + hipblasCrot_assumed_rank = hipblasCrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c), & + c_loc(s)) + end function + + function hipblasCrot_assumed_rank_devptr(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrot_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + hipblasCrot_assumed_rank_devptr = hipblasCrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + end function + +#else + function hipblasCrot_rank_0(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrot_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target :: x + integer(c_int) :: incx + complex(c_float_complex),target :: y + integer(c_int) :: incy + real(c_float),target :: c + complex(c_float_complex),target :: s + ! + hipblasCrot_rank_0 = hipblasCrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c),c_loc(s)) + end function + + function hipblasCrot_rank_0_devptr(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrot_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target :: x + integer(c_int) :: incx + complex(c_float_complex),target :: y + integer(c_int) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + hipblasCrot_rank_0_devptr = hipblasCrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + end function + + function hipblasCrot_rank_1(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrot_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + real(c_float),target :: c + complex(c_float_complex),target :: s + ! + hipblasCrot_rank_1 = hipblasCrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c),c_loc(s)) + end function + + function hipblasCrot_rank_1_devptr(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrot_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + hipblasCrot_rank_1_devptr = hipblasCrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCsrot_assumed_rank(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrot_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + real(c_float),target :: c + real(c_float),target :: s + ! + hipblasCsrot_assumed_rank = hipblasCsrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c), & + c_loc(s)) + end function + + function hipblasCsrot_assumed_rank_devptr(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrot_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + hipblasCsrot_assumed_rank_devptr = hipblasCsrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + end function + +#else + function hipblasCsrot_rank_0(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrot_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target :: x + integer(c_int) :: incx + complex(c_float_complex),target :: y + integer(c_int) :: incy + real(c_float),target :: c + real(c_float),target :: s + ! + hipblasCsrot_rank_0 = hipblasCsrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c),c_loc(s)) + end function + + function hipblasCsrot_rank_0_devptr(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrot_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target :: x + integer(c_int) :: incx + complex(c_float_complex),target :: y + integer(c_int) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + hipblasCsrot_rank_0_devptr = hipblasCsrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + end function + + function hipblasCsrot_rank_1(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrot_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + real(c_float),target :: c + real(c_float),target :: s + ! + hipblasCsrot_rank_1 = hipblasCsrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c),c_loc(s)) + end function + + function hipblasCsrot_rank_1_devptr(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrot_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + hipblasCsrot_rank_1_devptr = hipblasCsrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZrot_assumed_rank(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrot_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + real(c_double),target :: c + complex(c_double_complex),target :: s + ! + hipblasZrot_assumed_rank = hipblasZrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c), & + c_loc(s)) + end function + + function hipblasZrot_assumed_rank_devptr(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrot_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + hipblasZrot_assumed_rank_devptr = hipblasZrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + end function + +#else + function hipblasZrot_rank_0(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrot_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target :: x + integer(c_int) :: incx + complex(c_double_complex),target :: y + integer(c_int) :: incy + real(c_double),target :: c + complex(c_double_complex),target :: s + ! + hipblasZrot_rank_0 = hipblasZrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c),c_loc(s)) + end function + + function hipblasZrot_rank_0_devptr(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrot_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target :: x + integer(c_int) :: incx + complex(c_double_complex),target :: y + integer(c_int) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + hipblasZrot_rank_0_devptr = hipblasZrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + end function + + function hipblasZrot_rank_1(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrot_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + real(c_double),target :: c + complex(c_double_complex),target :: s + ! + hipblasZrot_rank_1 = hipblasZrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c),c_loc(s)) + end function + + function hipblasZrot_rank_1_devptr(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrot_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + hipblasZrot_rank_1_devptr = hipblasZrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZdrot_assumed_rank(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrot_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + real(c_double),target :: c + real(c_double),target :: s + ! + hipblasZdrot_assumed_rank = hipblasZdrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c), & + c_loc(s)) + end function + + function hipblasZdrot_assumed_rank_devptr(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrot_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + hipblasZdrot_assumed_rank_devptr = hipblasZdrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + end function + +#else + function hipblasZdrot_rank_0(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrot_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target :: x + integer(c_int) :: incx + complex(c_double_complex),target :: y + integer(c_int) :: incy + real(c_double),target :: c + real(c_double),target :: s + ! + hipblasZdrot_rank_0 = hipblasZdrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c),c_loc(s)) + end function + + function hipblasZdrot_rank_0_devptr(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrot_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target :: x + integer(c_int) :: incx + complex(c_double_complex),target :: y + integer(c_int) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + hipblasZdrot_rank_0_devptr = hipblasZdrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + end function + + function hipblasZdrot_rank_1(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrot_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + real(c_double),target :: c + real(c_double),target :: s + ! + hipblasZdrot_rank_1 = hipblasZdrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c),c_loc(s)) + end function + + function hipblasZdrot_rank_1_devptr(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrot_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + hipblasZdrot_rank_1_devptr = hipblasZdrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSrot_64_assumed_rank(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrot_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy + real(c_float),target :: c + real(c_float),target :: s + ! + hipblasSrot_64_assumed_rank = hipblasSrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c), & + c_loc(s)) + end function + + function hipblasSrot_64_assumed_rank_devptr(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrot_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + hipblasSrot_64_assumed_rank_devptr = hipblasSrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + end function + +#else + function hipblasSrot_64_rank_0(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrot_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target :: x + integer(c_int64_t) :: incx + real(c_float),target :: y + integer(c_int64_t) :: incy + real(c_float),target :: c + real(c_float),target :: s + ! + hipblasSrot_64_rank_0 = hipblasSrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c), & + c_loc(s)) + end function + + function hipblasSrot_64_rank_0_devptr(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrot_64_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target :: x + integer(c_int64_t) :: incx + real(c_float),target :: y + integer(c_int64_t) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + hipblasSrot_64_rank_0_devptr = hipblasSrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + end function + + function hipblasSrot_64_rank_1(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrot_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + real(c_float),target :: c + real(c_float),target :: s + ! + hipblasSrot_64_rank_1 = hipblasSrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c), & + c_loc(s)) + end function + + function hipblasSrot_64_rank_1_devptr(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrot_64_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + hipblasSrot_64_rank_1_devptr = hipblasSrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDrot_64_assumed_rank(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrot_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: incy + real(c_double),target :: c + real(c_double),target :: s + ! + hipblasDrot_64_assumed_rank = hipblasDrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c), & + c_loc(s)) + end function + + function hipblasDrot_64_assumed_rank_devptr(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrot_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + hipblasDrot_64_assumed_rank_devptr = hipblasDrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + end function + +#else + function hipblasDrot_64_rank_0(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrot_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target :: x + integer(c_int64_t) :: incx + real(c_double),target :: y + integer(c_int64_t) :: incy + real(c_double),target :: c + real(c_double),target :: s + ! + hipblasDrot_64_rank_0 = hipblasDrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c), & + c_loc(s)) + end function + + function hipblasDrot_64_rank_0_devptr(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrot_64_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target :: x + integer(c_int64_t) :: incx + real(c_double),target :: y + integer(c_int64_t) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + hipblasDrot_64_rank_0_devptr = hipblasDrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + end function + + function hipblasDrot_64_rank_1(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrot_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + real(c_double),target :: c + real(c_double),target :: s + ! + hipblasDrot_64_rank_1 = hipblasDrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c), & + c_loc(s)) + end function + + function hipblasDrot_64_rank_1_devptr(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrot_64_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + hipblasDrot_64_rank_1_devptr = hipblasDrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCrot_64_assumed_rank(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrot_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + real(c_float),target :: c + complex(c_float_complex),target :: s + ! + hipblasCrot_64_assumed_rank = hipblasCrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c), & + c_loc(s)) + end function + + function hipblasCrot_64_assumed_rank_devptr(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrot_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + hipblasCrot_64_assumed_rank_devptr = hipblasCrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + end function + +#else + function hipblasCrot_64_rank_0(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrot_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + real(c_float),target :: c + complex(c_float_complex),target :: s + ! + hipblasCrot_64_rank_0 = hipblasCrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c), & + c_loc(s)) + end function + + function hipblasCrot_64_rank_0_devptr(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrot_64_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + hipblasCrot_64_rank_0_devptr = hipblasCrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + end function + + function hipblasCrot_64_rank_1(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrot_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + real(c_float),target :: c + complex(c_float_complex),target :: s + ! + hipblasCrot_64_rank_1 = hipblasCrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c), & + c_loc(s)) + end function + + function hipblasCrot_64_rank_1_devptr(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrot_64_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + hipblasCrot_64_rank_1_devptr = hipblasCrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCsrot_64_assumed_rank(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrot_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + real(c_float),target :: c + real(c_float),target :: s + ! + hipblasCsrot_64_assumed_rank = hipblasCsrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + c_loc(c),c_loc(s)) + end function + + function hipblasCsrot_64_assumed_rank_devptr(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrot_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + hipblasCsrot_64_assumed_rank_devptr = hipblasCsrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + c,s) + end function + +#else + function hipblasCsrot_64_rank_0(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrot_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + real(c_float),target :: c + real(c_float),target :: s + ! + hipblasCsrot_64_rank_0 = hipblasCsrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c), & + c_loc(s)) + end function + + function hipblasCsrot_64_rank_0_devptr(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrot_64_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + hipblasCsrot_64_rank_0_devptr = hipblasCsrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + end function + + function hipblasCsrot_64_rank_1(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrot_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + real(c_float),target :: c + real(c_float),target :: s + ! + hipblasCsrot_64_rank_1 = hipblasCsrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c), & + c_loc(s)) + end function + + function hipblasCsrot_64_rank_1_devptr(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrot_64_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + hipblasCsrot_64_rank_1_devptr = hipblasCsrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZrot_64_assumed_rank(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrot_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + real(c_double),target :: c + complex(c_double_complex),target :: s + ! + hipblasZrot_64_assumed_rank = hipblasZrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c), & + c_loc(s)) + end function + + function hipblasZrot_64_assumed_rank_devptr(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrot_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + hipblasZrot_64_assumed_rank_devptr = hipblasZrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + end function + +#else + function hipblasZrot_64_rank_0(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrot_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + real(c_double),target :: c + complex(c_double_complex),target :: s + ! + hipblasZrot_64_rank_0 = hipblasZrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c), & + c_loc(s)) + end function + + function hipblasZrot_64_rank_0_devptr(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrot_64_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + hipblasZrot_64_rank_0_devptr = hipblasZrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + end function + + function hipblasZrot_64_rank_1(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrot_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + real(c_double),target :: c + complex(c_double_complex),target :: s + ! + hipblasZrot_64_rank_1 = hipblasZrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c), & + c_loc(s)) + end function + + function hipblasZrot_64_rank_1_devptr(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrot_64_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + hipblasZrot_64_rank_1_devptr = hipblasZrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZdrot_64_assumed_rank(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrot_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + real(c_double),target :: c + real(c_double),target :: s + ! + hipblasZdrot_64_assumed_rank = hipblasZdrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + c_loc(c),c_loc(s)) + end function + + function hipblasZdrot_64_assumed_rank_devptr(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrot_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + hipblasZdrot_64_assumed_rank_devptr = hipblasZdrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + c,s) + end function + +#else + function hipblasZdrot_64_rank_0(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrot_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + real(c_double),target :: c + real(c_double),target :: s + ! + hipblasZdrot_64_rank_0 = hipblasZdrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c), & + c_loc(s)) + end function + + function hipblasZdrot_64_rank_0_devptr(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrot_64_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + hipblasZdrot_64_rank_0_devptr = hipblasZdrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + end function + + function hipblasZdrot_64_rank_1(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrot_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + real(c_double),target :: c + real(c_double),target :: s + ! + hipblasZdrot_64_rank_1 = hipblasZdrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c), & + c_loc(s)) + end function + + function hipblasZdrot_64_rank_1_devptr(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrot_64_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + hipblasZdrot_64_rank_1_devptr = hipblasZdrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSrotStridedBatched_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: c + type(c_ptr) :: s + integer(c_int) :: batchCount + ! + hipblasSrotStridedBatched_assumed_rank = hipblasSrotStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,c,s,batchCount) + end function + +#else + function hipblasSrotStridedBatched_rank_0(handle,n,x,incx,stridex,y,incy,stridey,c,s,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: c + type(c_ptr) :: s + integer(c_int) :: batchCount + ! + hipblasSrotStridedBatched_rank_0 = hipblasSrotStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,c,s,batchCount) + end function + + function hipblasSrotStridedBatched_rank_1(handle,n,x,incx,stridex,y,incy,stridey,c,s,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: c + type(c_ptr) :: s + integer(c_int) :: batchCount + ! + hipblasSrotStridedBatched_rank_1 = hipblasSrotStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,c,s,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDrotStridedBatched_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: c + type(c_ptr) :: s + integer(c_int) :: batchCount + ! + hipblasDrotStridedBatched_assumed_rank = hipblasDrotStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,c,s,batchCount) + end function + +#else + function hipblasDrotStridedBatched_rank_0(handle,n,x,incx,stridex,y,incy,stridey,c,s,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: c + type(c_ptr) :: s + integer(c_int) :: batchCount + ! + hipblasDrotStridedBatched_rank_0 = hipblasDrotStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,c,s,batchCount) + end function + + function hipblasDrotStridedBatched_rank_1(handle,n,x,incx,stridex,y,incy,stridey,c,s,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: c + type(c_ptr) :: s + integer(c_int) :: batchCount + ! + hipblasDrotStridedBatched_rank_1 = hipblasDrotStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,c,s,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCrotStridedBatched_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: c + type(c_ptr) :: s + integer(c_int) :: batchCount + ! + hipblasCrotStridedBatched_assumed_rank = hipblasCrotStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,c,s,batchCount) + end function + +#else + function hipblasCrotStridedBatched_rank_0(handle,n,x,incx,stridex,y,incy,stridey,c,s,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: c + type(c_ptr) :: s + integer(c_int) :: batchCount + ! + hipblasCrotStridedBatched_rank_0 = hipblasCrotStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,c,s,batchCount) + end function + + function hipblasCrotStridedBatched_rank_1(handle,n,x,incx,stridex,y,incy,stridey,c,s,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: c + type(c_ptr) :: s + integer(c_int) :: batchCount + ! + hipblasCrotStridedBatched_rank_1 = hipblasCrotStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,c,s,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCsrotStridedBatched_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrotStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: c + type(c_ptr) :: s + integer(c_int) :: batchCount + ! + hipblasCsrotStridedBatched_assumed_rank = hipblasCsrotStridedBatched_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,c,s,batchCount) + end function + +#else + function hipblasCsrotStridedBatched_rank_0(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrotStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: c + type(c_ptr) :: s + integer(c_int) :: batchCount + ! + hipblasCsrotStridedBatched_rank_0 = hipblasCsrotStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,c,s,batchCount) + end function + + function hipblasCsrotStridedBatched_rank_1(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrotStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: c + type(c_ptr) :: s + integer(c_int) :: batchCount + ! + hipblasCsrotStridedBatched_rank_1 = hipblasCsrotStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,c,s,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZrotStridedBatched_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: c + type(c_ptr) :: s + integer(c_int) :: batchCount + ! + hipblasZrotStridedBatched_assumed_rank = hipblasZrotStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,c,s,batchCount) + end function + +#else + function hipblasZrotStridedBatched_rank_0(handle,n,x,incx,stridex,y,incy,stridey,c,s,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: c + type(c_ptr) :: s + integer(c_int) :: batchCount + ! + hipblasZrotStridedBatched_rank_0 = hipblasZrotStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,c,s,batchCount) + end function + + function hipblasZrotStridedBatched_rank_1(handle,n,x,incx,stridex,y,incy,stridey,c,s,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: c + type(c_ptr) :: s + integer(c_int) :: batchCount + ! + hipblasZrotStridedBatched_rank_1 = hipblasZrotStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,c,s,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZdrotStridedBatched_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrotStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: c + type(c_ptr) :: s + integer(c_int) :: batchCount + ! + hipblasZdrotStridedBatched_assumed_rank = hipblasZdrotStridedBatched_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,c,s,batchCount) + end function + +#else + function hipblasZdrotStridedBatched_rank_0(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrotStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: c + type(c_ptr) :: s + integer(c_int) :: batchCount + ! + hipblasZdrotStridedBatched_rank_0 = hipblasZdrotStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,c,s,batchCount) + end function + + function hipblasZdrotStridedBatched_rank_1(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrotStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: c + type(c_ptr) :: s + integer(c_int) :: batchCount + ! + hipblasZdrotStridedBatched_rank_1 = hipblasZdrotStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,c,s,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSrotStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: c + type(c_ptr) :: s + integer(c_int64_t) :: batchCount + ! + hipblasSrotStridedBatched_64_assumed_rank = hipblasSrotStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,c,s,batchCount) + end function + +#else + function hipblasSrotStridedBatched_64_rank_0(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: c + type(c_ptr) :: s + integer(c_int64_t) :: batchCount + ! + hipblasSrotStridedBatched_64_rank_0 = hipblasSrotStridedBatched_64_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,c,s,batchCount) + end function + + function hipblasSrotStridedBatched_64_rank_1(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: c + type(c_ptr) :: s + integer(c_int64_t) :: batchCount + ! + hipblasSrotStridedBatched_64_rank_1 = hipblasSrotStridedBatched_64_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,c,s,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDrotStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: c + type(c_ptr) :: s + integer(c_int64_t) :: batchCount + ! + hipblasDrotStridedBatched_64_assumed_rank = hipblasDrotStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,c,s,batchCount) + end function + +#else + function hipblasDrotStridedBatched_64_rank_0(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: c + type(c_ptr) :: s + integer(c_int64_t) :: batchCount + ! + hipblasDrotStridedBatched_64_rank_0 = hipblasDrotStridedBatched_64_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,c,s,batchCount) + end function + + function hipblasDrotStridedBatched_64_rank_1(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: c + type(c_ptr) :: s + integer(c_int64_t) :: batchCount + ! + hipblasDrotStridedBatched_64_rank_1 = hipblasDrotStridedBatched_64_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,c,s,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCrotStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: c + type(c_ptr) :: s + integer(c_int64_t) :: batchCount + ! + hipblasCrotStridedBatched_64_assumed_rank = hipblasCrotStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,c,s,batchCount) + end function + +#else + function hipblasCrotStridedBatched_64_rank_0(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: c + type(c_ptr) :: s + integer(c_int64_t) :: batchCount + ! + hipblasCrotStridedBatched_64_rank_0 = hipblasCrotStridedBatched_64_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,c,s,batchCount) + end function + + function hipblasCrotStridedBatched_64_rank_1(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: c + type(c_ptr) :: s + integer(c_int64_t) :: batchCount + ! + hipblasCrotStridedBatched_64_rank_1 = hipblasCrotStridedBatched_64_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,c,s,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCsrotStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey,c, & + s,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrotStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: c + type(c_ptr) :: s + integer(c_int64_t) :: batchCount + ! + hipblasCsrotStridedBatched_64_assumed_rank = hipblasCsrotStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c,s,batchCount) + end function + +#else + function hipblasCsrotStridedBatched_64_rank_0(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrotStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: c + type(c_ptr) :: s + integer(c_int64_t) :: batchCount + ! + hipblasCsrotStridedBatched_64_rank_0 = hipblasCsrotStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,c,s,batchCount) + end function + + function hipblasCsrotStridedBatched_64_rank_1(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrotStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: c + type(c_ptr) :: s + integer(c_int64_t) :: batchCount + ! + hipblasCsrotStridedBatched_64_rank_1 = hipblasCsrotStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,c,s,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZrotStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: c + type(c_ptr) :: s + integer(c_int64_t) :: batchCount + ! + hipblasZrotStridedBatched_64_assumed_rank = hipblasZrotStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,c,s,batchCount) + end function + +#else + function hipblasZrotStridedBatched_64_rank_0(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: c + type(c_ptr) :: s + integer(c_int64_t) :: batchCount + ! + hipblasZrotStridedBatched_64_rank_0 = hipblasZrotStridedBatched_64_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,c,s,batchCount) + end function + + function hipblasZrotStridedBatched_64_rank_1(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: c + type(c_ptr) :: s + integer(c_int64_t) :: batchCount + ! + hipblasZrotStridedBatched_64_rank_1 = hipblasZrotStridedBatched_64_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,c,s,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZdrotStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey,c, & + s,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrotStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: c + type(c_ptr) :: s + integer(c_int64_t) :: batchCount + ! + hipblasZdrotStridedBatched_64_assumed_rank = hipblasZdrotStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c,s,batchCount) + end function + +#else + function hipblasZdrotStridedBatched_64_rank_0(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrotStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: c + type(c_ptr) :: s + integer(c_int64_t) :: batchCount + ! + hipblasZdrotStridedBatched_64_rank_0 = hipblasZdrotStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,c,s,batchCount) + end function + + function hipblasZdrotStridedBatched_64_rank_1(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrotStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: c + type(c_ptr) :: s + integer(c_int64_t) :: batchCount + ! + hipblasZdrotStridedBatched_64_rank_1 = hipblasZdrotStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,c,s,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSrotm_assumed_rank(handle,n,x,incx,y,incy,param) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotm_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + real(c_float),target,dimension(..) :: y + integer(c_int) :: incy + type(c_ptr) :: param + ! + hipblasSrotm_assumed_rank = hipblasSrotm_(handle,n,c_loc(x),incx,c_loc(y),incy,param) + end function + +#else + function hipblasSrotm_rank_0(handle,n,x,incx,y,incy,param) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotm_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target :: x + integer(c_int) :: incx + real(c_float),target :: y + integer(c_int) :: incy + type(c_ptr) :: param + ! + hipblasSrotm_rank_0 = hipblasSrotm_(handle,n,c_loc(x),incx,c_loc(y),incy,param) + end function + + function hipblasSrotm_rank_1(handle,n,x,incx,y,incy,param) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotm_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + type(c_ptr) :: param + ! + hipblasSrotm_rank_1 = hipblasSrotm_(handle,n,c_loc(x),incx,c_loc(y),incy,param) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDrotm_assumed_rank(handle,n,x,incx,y,incy,param) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotm_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + real(c_double),target,dimension(..) :: y + integer(c_int) :: incy + type(c_ptr) :: param + ! + hipblasDrotm_assumed_rank = hipblasDrotm_(handle,n,c_loc(x),incx,c_loc(y),incy,param) + end function + +#else + function hipblasDrotm_rank_0(handle,n,x,incx,y,incy,param) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotm_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target :: x + integer(c_int) :: incx + real(c_double),target :: y + integer(c_int) :: incy + type(c_ptr) :: param + ! + hipblasDrotm_rank_0 = hipblasDrotm_(handle,n,c_loc(x),incx,c_loc(y),incy,param) + end function + + function hipblasDrotm_rank_1(handle,n,x,incx,y,incy,param) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotm_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + type(c_ptr) :: param + ! + hipblasDrotm_rank_1 = hipblasDrotm_(handle,n,c_loc(x),incx,c_loc(y),incy,param) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSrotm_64_assumed_rank(handle,n,x,incx,y,incy,param) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotm_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy + type(c_ptr) :: param + ! + hipblasSrotm_64_assumed_rank = hipblasSrotm_64_(handle,n,c_loc(x),incx,c_loc(y),incy,param) + end function + +#else + function hipblasSrotm_64_rank_0(handle,n,x,incx,y,incy,param) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotm_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target :: x + integer(c_int64_t) :: incx + real(c_float),target :: y + integer(c_int64_t) :: incy + type(c_ptr) :: param + ! + hipblasSrotm_64_rank_0 = hipblasSrotm_64_(handle,n,c_loc(x),incx,c_loc(y),incy,param) + end function + + function hipblasSrotm_64_rank_1(handle,n,x,incx,y,incy,param) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotm_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + type(c_ptr) :: param + ! + hipblasSrotm_64_rank_1 = hipblasSrotm_64_(handle,n,c_loc(x),incx,c_loc(y),incy,param) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDrotm_64_assumed_rank(handle,n,x,incx,y,incy,param) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotm_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: incy + type(c_ptr) :: param + ! + hipblasDrotm_64_assumed_rank = hipblasDrotm_64_(handle,n,c_loc(x),incx,c_loc(y),incy,param) + end function + +#else + function hipblasDrotm_64_rank_0(handle,n,x,incx,y,incy,param) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotm_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target :: x + integer(c_int64_t) :: incx + real(c_double),target :: y + integer(c_int64_t) :: incy + type(c_ptr) :: param + ! + hipblasDrotm_64_rank_0 = hipblasDrotm_64_(handle,n,c_loc(x),incx,c_loc(y),incy,param) + end function + + function hipblasDrotm_64_rank_1(handle,n,x,incx,y,incy,param) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotm_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + type(c_ptr) :: param + ! + hipblasDrotm_64_rank_1 = hipblasDrotm_64_(handle,n,c_loc(x),incx,c_loc(y),incy,param) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSrotmStridedBatched_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey,param, & + strideParam,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: param + integer(c_int64_t) :: strideParam + integer(c_int) :: batchCount + ! + hipblasSrotmStridedBatched_assumed_rank = hipblasSrotmStridedBatched_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,param,strideParam,batchCount) + end function + +#else + function hipblasSrotmStridedBatched_rank_0(handle,n,x,incx,stridex,y,incy,stridey,param, & + strideParam,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: param + integer(c_int64_t) :: strideParam + integer(c_int) :: batchCount + ! + hipblasSrotmStridedBatched_rank_0 = hipblasSrotmStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,param,strideParam,batchCount) + end function + + function hipblasSrotmStridedBatched_rank_1(handle,n,x,incx,stridex,y,incy,stridey,param, & + strideParam,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: param + integer(c_int64_t) :: strideParam + integer(c_int) :: batchCount + ! + hipblasSrotmStridedBatched_rank_1 = hipblasSrotmStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,param,strideParam,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDrotmStridedBatched_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey,param, & + strideParam,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: param + integer(c_int64_t) :: strideParam + integer(c_int) :: batchCount + ! + hipblasDrotmStridedBatched_assumed_rank = hipblasDrotmStridedBatched_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,param,strideParam,batchCount) + end function + +#else + function hipblasDrotmStridedBatched_rank_0(handle,n,x,incx,stridex,y,incy,stridey,param, & + strideParam,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: param + integer(c_int64_t) :: strideParam + integer(c_int) :: batchCount + ! + hipblasDrotmStridedBatched_rank_0 = hipblasDrotmStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,param,strideParam,batchCount) + end function + + function hipblasDrotmStridedBatched_rank_1(handle,n,x,incx,stridex,y,incy,stridey,param, & + strideParam,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: param + integer(c_int64_t) :: strideParam + integer(c_int) :: batchCount + ! + hipblasDrotmStridedBatched_rank_1 = hipblasDrotmStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,param,strideParam,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSrotmStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & + param,strideParam,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: param + integer(c_int64_t) :: strideParam + integer(c_int64_t) :: batchCount + ! + hipblasSrotmStridedBatched_64_assumed_rank = hipblasSrotmStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,param,strideParam,batchCount) + end function + +#else + function hipblasSrotmStridedBatched_64_rank_0(handle,n,x,incx,stridex,y,incy,stridey,param, & + strideParam,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: param + integer(c_int64_t) :: strideParam + integer(c_int64_t) :: batchCount + ! + hipblasSrotmStridedBatched_64_rank_0 = hipblasSrotmStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,param,strideParam,batchCount) + end function + + function hipblasSrotmStridedBatched_64_rank_1(handle,n,x,incx,stridex,y,incy,stridey,param, & + strideParam,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: param + integer(c_int64_t) :: strideParam + integer(c_int64_t) :: batchCount + ! + hipblasSrotmStridedBatched_64_rank_1 = hipblasSrotmStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,param,strideParam,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDrotmStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & + param,strideParam,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: param + integer(c_int64_t) :: strideParam + integer(c_int64_t) :: batchCount + ! + hipblasDrotmStridedBatched_64_assumed_rank = hipblasDrotmStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,param,strideParam,batchCount) + end function + +#else + function hipblasDrotmStridedBatched_64_rank_0(handle,n,x,incx,stridex,y,incy,stridey,param, & + strideParam,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: param + integer(c_int64_t) :: strideParam + integer(c_int64_t) :: batchCount + ! + hipblasDrotmStridedBatched_64_rank_0 = hipblasDrotmStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,param,strideParam,batchCount) + end function + + function hipblasDrotmStridedBatched_64_rank_1(handle,n,x,incx,stridex,y,incy,stridey,param, & + strideParam,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + type(c_ptr) :: param + integer(c_int64_t) :: strideParam + integer(c_int64_t) :: batchCount + ! + hipblasDrotmStridedBatched_64_rank_1 = hipblasDrotmStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,param,strideParam,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSscal_assumed_rank(handle,n,alpha,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscal_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + ! + hipblasSscal_assumed_rank = hipblasSscal_(handle,n,c_loc(alpha),c_loc(x),incx) + end function + +#else + function hipblasSscal_rank_0(handle,n,alpha,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscal_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target :: x + integer(c_int) :: incx + ! + hipblasSscal_rank_0 = hipblasSscal_(handle,n,c_loc(alpha),c_loc(x),incx) + end function + + function hipblasSscal_rank_1(handle,n,alpha,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscal_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasSscal_rank_1 = hipblasSscal_(handle,n,c_loc(alpha),c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDscal_assumed_rank(handle,n,alpha,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscal_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + ! + hipblasDscal_assumed_rank = hipblasDscal_(handle,n,c_loc(alpha),c_loc(x),incx) + end function + +#else + function hipblasDscal_rank_0(handle,n,alpha,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscal_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target :: x + integer(c_int) :: incx + ! + hipblasDscal_rank_0 = hipblasDscal_(handle,n,c_loc(alpha),c_loc(x),incx) + end function + + function hipblasDscal_rank_1(handle,n,alpha,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscal_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasDscal_rank_1 = hipblasDscal_(handle,n,c_loc(alpha),c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCscal_assumed_rank(handle,n,alpha,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscal_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + ! + hipblasCscal_assumed_rank = hipblasCscal_(handle,n,c_loc(alpha),c_loc(x),incx) + end function + +#else + function hipblasCscal_rank_0(handle,n,alpha,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscal_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: x + integer(c_int) :: incx + ! + hipblasCscal_rank_0 = hipblasCscal_(handle,n,c_loc(alpha),c_loc(x),incx) + end function + + function hipblasCscal_rank_1(handle,n,alpha,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscal_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasCscal_rank_1 = hipblasCscal_(handle,n,c_loc(alpha),c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCsscal_assumed_rank(handle,n,alpha,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscal_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + ! + hipblasCsscal_assumed_rank = hipblasCsscal_(handle,n,c_loc(alpha),c_loc(x),incx) + end function + +#else + function hipblasCsscal_rank_0(handle,n,alpha,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscal_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target :: alpha + complex(c_float_complex),target :: x + integer(c_int) :: incx + ! + hipblasCsscal_rank_0 = hipblasCsscal_(handle,n,c_loc(alpha),c_loc(x),incx) + end function + + function hipblasCsscal_rank_1(handle,n,alpha,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscal_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasCsscal_rank_1 = hipblasCsscal_(handle,n,c_loc(alpha),c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZscal_assumed_rank(handle,n,alpha,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscal_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + ! + hipblasZscal_assumed_rank = hipblasZscal_(handle,n,c_loc(alpha),c_loc(x),incx) + end function + +#else + function hipblasZscal_rank_0(handle,n,alpha,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscal_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: x + integer(c_int) :: incx + ! + hipblasZscal_rank_0 = hipblasZscal_(handle,n,c_loc(alpha),c_loc(x),incx) + end function + + function hipblasZscal_rank_1(handle,n,alpha,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscal_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasZscal_rank_1 = hipblasZscal_(handle,n,c_loc(alpha),c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZdscal_assumed_rank(handle,n,alpha,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscal_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + ! + hipblasZdscal_assumed_rank = hipblasZdscal_(handle,n,c_loc(alpha),c_loc(x),incx) + end function + +#else + function hipblasZdscal_rank_0(handle,n,alpha,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscal_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target :: alpha + complex(c_double_complex),target :: x + integer(c_int) :: incx + ! + hipblasZdscal_rank_0 = hipblasZdscal_(handle,n,c_loc(alpha),c_loc(x),incx) + end function + + function hipblasZdscal_rank_1(handle,n,alpha,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscal_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasZdscal_rank_1 = hipblasZdscal_(handle,n,c_loc(alpha),c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSscal_64_assumed_rank(handle,n,alpha,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscal_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + ! + hipblasSscal_64_assumed_rank = hipblasSscal_64_(handle,n,c_loc(alpha),c_loc(x),incx) + end function + +#else + function hipblasSscal_64_rank_0(handle,n,alpha,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscal_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target :: x + integer(c_int64_t) :: incx + ! + hipblasSscal_64_rank_0 = hipblasSscal_64_(handle,n,c_loc(alpha),c_loc(x),incx) + end function + + function hipblasSscal_64_rank_1(handle,n,alpha,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscal_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasSscal_64_rank_1 = hipblasSscal_64_(handle,n,c_loc(alpha),c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDscal_64_assumed_rank(handle,n,alpha,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscal_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + ! + hipblasDscal_64_assumed_rank = hipblasDscal_64_(handle,n,c_loc(alpha),c_loc(x),incx) + end function + +#else + function hipblasDscal_64_rank_0(handle,n,alpha,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscal_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target :: x + integer(c_int64_t) :: incx + ! + hipblasDscal_64_rank_0 = hipblasDscal_64_(handle,n,c_loc(alpha),c_loc(x),incx) + end function + + function hipblasDscal_64_rank_1(handle,n,alpha,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscal_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasDscal_64_rank_1 = hipblasDscal_64_(handle,n,c_loc(alpha),c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCscal_64_assumed_rank(handle,n,alpha,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscal_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + ! + hipblasCscal_64_assumed_rank = hipblasCscal_64_(handle,n,c_loc(alpha),c_loc(x),incx) + end function + +#else + function hipblasCscal_64_rank_0(handle,n,alpha,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscal_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + ! + hipblasCscal_64_rank_0 = hipblasCscal_64_(handle,n,c_loc(alpha),c_loc(x),incx) + end function + + function hipblasCscal_64_rank_1(handle,n,alpha,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscal_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasCscal_64_rank_1 = hipblasCscal_64_(handle,n,c_loc(alpha),c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCsscal_64_assumed_rank(handle,n,alpha,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscal_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + ! + hipblasCsscal_64_assumed_rank = hipblasCsscal_64_(handle,n,c_loc(alpha),c_loc(x),incx) + end function + +#else + function hipblasCsscal_64_rank_0(handle,n,alpha,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscal_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target :: alpha + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + ! + hipblasCsscal_64_rank_0 = hipblasCsscal_64_(handle,n,c_loc(alpha),c_loc(x),incx) + end function + + function hipblasCsscal_64_rank_1(handle,n,alpha,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscal_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasCsscal_64_rank_1 = hipblasCsscal_64_(handle,n,c_loc(alpha),c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZscal_64_assumed_rank(handle,n,alpha,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscal_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + ! + hipblasZscal_64_assumed_rank = hipblasZscal_64_(handle,n,c_loc(alpha),c_loc(x),incx) + end function + +#else + function hipblasZscal_64_rank_0(handle,n,alpha,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscal_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + ! + hipblasZscal_64_rank_0 = hipblasZscal_64_(handle,n,c_loc(alpha),c_loc(x),incx) + end function + + function hipblasZscal_64_rank_1(handle,n,alpha,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscal_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasZscal_64_rank_1 = hipblasZscal_64_(handle,n,c_loc(alpha),c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZdscal_64_assumed_rank(handle,n,alpha,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscal_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + ! + hipblasZdscal_64_assumed_rank = hipblasZdscal_64_(handle,n,c_loc(alpha),c_loc(x),incx) + end function + +#else + function hipblasZdscal_64_rank_0(handle,n,alpha,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscal_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target :: alpha + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + ! + hipblasZdscal_64_rank_0 = hipblasZdscal_64_(handle,n,c_loc(alpha),c_loc(x),incx) + end function + + function hipblasZdscal_64_rank_1(handle,n,alpha,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscal_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasZdscal_64_rank_1 = hipblasZdscal_64_(handle,n,c_loc(alpha),c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSscalStridedBatched_assumed_rank(handle,n,alpha,x,incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscalStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasSscalStridedBatched_assumed_rank = hipblasSscalStridedBatched_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasSscalStridedBatched_rank_0(handle,n,alpha,x,incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscalStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasSscalStridedBatched_rank_0 = hipblasSscalStridedBatched_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,batchCount) + end function + + function hipblasSscalStridedBatched_rank_1(handle,n,alpha,x,incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscalStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasSscalStridedBatched_rank_1 = hipblasSscalStridedBatched_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDscalStridedBatched_assumed_rank(handle,n,alpha,x,incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscalStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasDscalStridedBatched_assumed_rank = hipblasDscalStridedBatched_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasDscalStridedBatched_rank_0(handle,n,alpha,x,incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscalStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasDscalStridedBatched_rank_0 = hipblasDscalStridedBatched_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,batchCount) + end function + + function hipblasDscalStridedBatched_rank_1(handle,n,alpha,x,incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscalStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasDscalStridedBatched_rank_1 = hipblasDscalStridedBatched_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCscalStridedBatched_assumed_rank(handle,n,alpha,x,incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscalStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasCscalStridedBatched_assumed_rank = hipblasCscalStridedBatched_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasCscalStridedBatched_rank_0(handle,n,alpha,x,incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscalStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasCscalStridedBatched_rank_0 = hipblasCscalStridedBatched_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,batchCount) + end function + + function hipblasCscalStridedBatched_rank_1(handle,n,alpha,x,incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscalStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasCscalStridedBatched_rank_1 = hipblasCscalStridedBatched_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZscalStridedBatched_assumed_rank(handle,n,alpha,x,incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscalStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasZscalStridedBatched_assumed_rank = hipblasZscalStridedBatched_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasZscalStridedBatched_rank_0(handle,n,alpha,x,incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscalStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasZscalStridedBatched_rank_0 = hipblasZscalStridedBatched_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,batchCount) + end function + + function hipblasZscalStridedBatched_rank_1(handle,n,alpha,x,incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscalStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasZscalStridedBatched_rank_1 = hipblasZscalStridedBatched_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCsscalStridedBatched_assumed_rank(handle,n,alpha,x,incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscalStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasCsscalStridedBatched_assumed_rank = hipblasCsscalStridedBatched_(handle,n, & + c_loc(alpha),c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasCsscalStridedBatched_rank_0(handle,n,alpha,x,incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscalStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target :: alpha + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasCsscalStridedBatched_rank_0 = hipblasCsscalStridedBatched_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,batchCount) + end function + + function hipblasCsscalStridedBatched_rank_1(handle,n,alpha,x,incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscalStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasCsscalStridedBatched_rank_1 = hipblasCsscalStridedBatched_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZdscalStridedBatched_assumed_rank(handle,n,alpha,x,incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscalStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasZdscalStridedBatched_assumed_rank = hipblasZdscalStridedBatched_(handle,n, & + c_loc(alpha),c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasZdscalStridedBatched_rank_0(handle,n,alpha,x,incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscalStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target :: alpha + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasZdscalStridedBatched_rank_0 = hipblasZdscalStridedBatched_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,batchCount) + end function + + function hipblasZdscalStridedBatched_rank_1(handle,n,alpha,x,incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscalStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasZdscalStridedBatched_rank_1 = hipblasZdscalStridedBatched_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSscalStridedBatched_64_assumed_rank(handle,n,alpha,x,incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscalStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasSscalStridedBatched_64_assumed_rank = hipblasSscalStridedBatched_64_(handle,n, & + c_loc(alpha),c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasSscalStridedBatched_64_rank_0(handle,n,alpha,x,incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscalStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasSscalStridedBatched_64_rank_0 = hipblasSscalStridedBatched_64_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,batchCount) + end function + + function hipblasSscalStridedBatched_64_rank_1(handle,n,alpha,x,incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscalStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasSscalStridedBatched_64_rank_1 = hipblasSscalStridedBatched_64_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDscalStridedBatched_64_assumed_rank(handle,n,alpha,x,incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscalStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasDscalStridedBatched_64_assumed_rank = hipblasDscalStridedBatched_64_(handle,n, & + c_loc(alpha),c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasDscalStridedBatched_64_rank_0(handle,n,alpha,x,incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscalStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasDscalStridedBatched_64_rank_0 = hipblasDscalStridedBatched_64_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,batchCount) + end function + + function hipblasDscalStridedBatched_64_rank_1(handle,n,alpha,x,incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscalStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasDscalStridedBatched_64_rank_1 = hipblasDscalStridedBatched_64_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCscalStridedBatched_64_assumed_rank(handle,n,alpha,x,incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscalStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasCscalStridedBatched_64_assumed_rank = hipblasCscalStridedBatched_64_(handle,n, & + c_loc(alpha),c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasCscalStridedBatched_64_rank_0(handle,n,alpha,x,incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscalStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasCscalStridedBatched_64_rank_0 = hipblasCscalStridedBatched_64_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,batchCount) + end function + + function hipblasCscalStridedBatched_64_rank_1(handle,n,alpha,x,incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscalStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasCscalStridedBatched_64_rank_1 = hipblasCscalStridedBatched_64_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZscalStridedBatched_64_assumed_rank(handle,n,alpha,x,incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscalStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasZscalStridedBatched_64_assumed_rank = hipblasZscalStridedBatched_64_(handle,n, & + c_loc(alpha),c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasZscalStridedBatched_64_rank_0(handle,n,alpha,x,incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscalStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasZscalStridedBatched_64_rank_0 = hipblasZscalStridedBatched_64_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,batchCount) + end function + + function hipblasZscalStridedBatched_64_rank_1(handle,n,alpha,x,incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscalStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasZscalStridedBatched_64_rank_1 = hipblasZscalStridedBatched_64_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCsscalStridedBatched_64_assumed_rank(handle,n,alpha,x,incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscalStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasCsscalStridedBatched_64_assumed_rank = hipblasCsscalStridedBatched_64_(handle,n, & + c_loc(alpha),c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasCsscalStridedBatched_64_rank_0(handle,n,alpha,x,incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscalStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target :: alpha + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasCsscalStridedBatched_64_rank_0 = hipblasCsscalStridedBatched_64_(handle,n, & + c_loc(alpha),c_loc(x),incx,stridex,batchCount) + end function + + function hipblasCsscalStridedBatched_64_rank_1(handle,n,alpha,x,incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscalStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasCsscalStridedBatched_64_rank_1 = hipblasCsscalStridedBatched_64_(handle,n, & + c_loc(alpha),c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZdscalStridedBatched_64_assumed_rank(handle,n,alpha,x,incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscalStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasZdscalStridedBatched_64_assumed_rank = hipblasZdscalStridedBatched_64_(handle,n, & + c_loc(alpha),c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasZdscalStridedBatched_64_rank_0(handle,n,alpha,x,incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscalStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target :: alpha + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasZdscalStridedBatched_64_rank_0 = hipblasZdscalStridedBatched_64_(handle,n, & + c_loc(alpha),c_loc(x),incx,stridex,batchCount) + end function + + function hipblasZdscalStridedBatched_64_rank_1(handle,n,alpha,x,incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscalStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasZdscalStridedBatched_64_rank_1 = hipblasZdscalStridedBatched_64_(handle,n, & + c_loc(alpha),c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSswap_assumed_rank(handle,n,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSswap_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + real(c_float),target,dimension(..) :: y + integer(c_int) :: incy + ! + hipblasSswap_assumed_rank = hipblasSswap_(handle,n,c_loc(x),incx,c_loc(y),incy) + end function + +#else + function hipblasSswap_rank_0(handle,n,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSswap_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target :: x + integer(c_int) :: incx + real(c_float),target :: y + integer(c_int) :: incy + ! + hipblasSswap_rank_0 = hipblasSswap_(handle,n,c_loc(x),incx,c_loc(y),incy) + end function + + function hipblasSswap_rank_1(handle,n,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSswap_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasSswap_rank_1 = hipblasSswap_(handle,n,c_loc(x),incx,c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDswap_assumed_rank(handle,n,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDswap_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + real(c_double),target,dimension(..) :: y + integer(c_int) :: incy + ! + hipblasDswap_assumed_rank = hipblasDswap_(handle,n,c_loc(x),incx,c_loc(y),incy) + end function + +#else + function hipblasDswap_rank_0(handle,n,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDswap_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target :: x + integer(c_int) :: incx + real(c_double),target :: y + integer(c_int) :: incy + ! + hipblasDswap_rank_0 = hipblasDswap_(handle,n,c_loc(x),incx,c_loc(y),incy) + end function + + function hipblasDswap_rank_1(handle,n,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDswap_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasDswap_rank_1 = hipblasDswap_(handle,n,c_loc(x),incx,c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCswap_assumed_rank(handle,n,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCswap_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + ! + hipblasCswap_assumed_rank = hipblasCswap_(handle,n,c_loc(x),incx,c_loc(y),incy) + end function + +#else + function hipblasCswap_rank_0(handle,n,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCswap_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target :: x + integer(c_int) :: incx + complex(c_float_complex),target :: y + integer(c_int) :: incy + ! + hipblasCswap_rank_0 = hipblasCswap_(handle,n,c_loc(x),incx,c_loc(y),incy) + end function + + function hipblasCswap_rank_1(handle,n,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCswap_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasCswap_rank_1 = hipblasCswap_(handle,n,c_loc(x),incx,c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZswap_assumed_rank(handle,n,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZswap_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + ! + hipblasZswap_assumed_rank = hipblasZswap_(handle,n,c_loc(x),incx,c_loc(y),incy) + end function + +#else + function hipblasZswap_rank_0(handle,n,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZswap_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target :: x + integer(c_int) :: incx + complex(c_double_complex),target :: y + integer(c_int) :: incy + ! + hipblasZswap_rank_0 = hipblasZswap_(handle,n,c_loc(x),incx,c_loc(y),incy) + end function + + function hipblasZswap_rank_1(handle,n,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZswap_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasZswap_rank_1 = hipblasZswap_(handle,n,c_loc(x),incx,c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSswap_64_assumed_rank(handle,n,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSswap_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy + ! + hipblasSswap_64_assumed_rank = hipblasSswap_64_(handle,n,c_loc(x),incx,c_loc(y),incy) + end function + +#else + function hipblasSswap_64_rank_0(handle,n,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSswap_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target :: x + integer(c_int64_t) :: incx + real(c_float),target :: y + integer(c_int64_t) :: incy + ! + hipblasSswap_64_rank_0 = hipblasSswap_64_(handle,n,c_loc(x),incx,c_loc(y),incy) + end function + + function hipblasSswap_64_rank_1(handle,n,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSswap_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasSswap_64_rank_1 = hipblasSswap_64_(handle,n,c_loc(x),incx,c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDswap_64_assumed_rank(handle,n,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDswap_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: incy + ! + hipblasDswap_64_assumed_rank = hipblasDswap_64_(handle,n,c_loc(x),incx,c_loc(y),incy) + end function + +#else + function hipblasDswap_64_rank_0(handle,n,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDswap_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target :: x + integer(c_int64_t) :: incx + real(c_double),target :: y + integer(c_int64_t) :: incy + ! + hipblasDswap_64_rank_0 = hipblasDswap_64_(handle,n,c_loc(x),incx,c_loc(y),incy) + end function + + function hipblasDswap_64_rank_1(handle,n,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDswap_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasDswap_64_rank_1 = hipblasDswap_64_(handle,n,c_loc(x),incx,c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCswap_64_assumed_rank(handle,n,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCswap_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + ! + hipblasCswap_64_assumed_rank = hipblasCswap_64_(handle,n,c_loc(x),incx,c_loc(y),incy) + end function + +#else + function hipblasCswap_64_rank_0(handle,n,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCswap_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + ! + hipblasCswap_64_rank_0 = hipblasCswap_64_(handle,n,c_loc(x),incx,c_loc(y),incy) + end function + + function hipblasCswap_64_rank_1(handle,n,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCswap_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasCswap_64_rank_1 = hipblasCswap_64_(handle,n,c_loc(x),incx,c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZswap_64_assumed_rank(handle,n,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZswap_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + ! + hipblasZswap_64_assumed_rank = hipblasZswap_64_(handle,n,c_loc(x),incx,c_loc(y),incy) + end function + +#else + function hipblasZswap_64_rank_0(handle,n,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZswap_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + ! + hipblasZswap_64_rank_0 = hipblasZswap_64_(handle,n,c_loc(x),incx,c_loc(y),incy) + end function + + function hipblasZswap_64_rank_1(handle,n,x,incx,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZswap_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasZswap_64_rank_1 = hipblasZswap_64_(handle,n,c_loc(x),incx,c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSswapStridedBatched_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSswapStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasSswapStridedBatched_assumed_rank = hipblasSswapStridedBatched_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + +#else + function hipblasSswapStridedBatched_rank_0(handle,n,x,incx,stridex,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSswapStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasSswapStridedBatched_rank_0 = hipblasSswapStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasSswapStridedBatched_rank_1(handle,n,x,incx,stridex,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSswapStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasSswapStridedBatched_rank_1 = hipblasSswapStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDswapStridedBatched_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDswapStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasDswapStridedBatched_assumed_rank = hipblasDswapStridedBatched_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + +#else + function hipblasDswapStridedBatched_rank_0(handle,n,x,incx,stridex,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDswapStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasDswapStridedBatched_rank_0 = hipblasDswapStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasDswapStridedBatched_rank_1(handle,n,x,incx,stridex,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDswapStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasDswapStridedBatched_rank_1 = hipblasDswapStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCswapStridedBatched_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCswapStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasCswapStridedBatched_assumed_rank = hipblasCswapStridedBatched_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + +#else + function hipblasCswapStridedBatched_rank_0(handle,n,x,incx,stridex,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCswapStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasCswapStridedBatched_rank_0 = hipblasCswapStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasCswapStridedBatched_rank_1(handle,n,x,incx,stridex,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCswapStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasCswapStridedBatched_rank_1 = hipblasCswapStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZswapStridedBatched_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZswapStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZswapStridedBatched_assumed_rank = hipblasZswapStridedBatched_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + +#else + function hipblasZswapStridedBatched_rank_0(handle,n,x,incx,stridex,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZswapStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZswapStridedBatched_rank_0 = hipblasZswapStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasZswapStridedBatched_rank_1(handle,n,x,incx,stridex,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZswapStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZswapStridedBatched_rank_1 = hipblasZswapStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSswapStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSswapStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasSswapStridedBatched_64_assumed_rank = hipblasSswapStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + +#else + function hipblasSswapStridedBatched_64_rank_0(handle,n,x,incx,stridex,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSswapStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasSswapStridedBatched_64_rank_0 = hipblasSswapStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasSswapStridedBatched_64_rank_1(handle,n,x,incx,stridex,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSswapStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasSswapStridedBatched_64_rank_1 = hipblasSswapStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDswapStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDswapStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasDswapStridedBatched_64_assumed_rank = hipblasDswapStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + +#else + function hipblasDswapStridedBatched_64_rank_0(handle,n,x,incx,stridex,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDswapStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasDswapStridedBatched_64_rank_0 = hipblasDswapStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasDswapStridedBatched_64_rank_1(handle,n,x,incx,stridex,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDswapStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasDswapStridedBatched_64_rank_1 = hipblasDswapStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCswapStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCswapStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasCswapStridedBatched_64_assumed_rank = hipblasCswapStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + +#else + function hipblasCswapStridedBatched_64_rank_0(handle,n,x,incx,stridex,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCswapStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasCswapStridedBatched_64_rank_0 = hipblasCswapStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasCswapStridedBatched_64_rank_1(handle,n,x,incx,stridex,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCswapStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasCswapStridedBatched_64_rank_1 = hipblasCswapStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZswapStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZswapStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZswapStridedBatched_64_assumed_rank = hipblasZswapStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + +#else + function hipblasZswapStridedBatched_64_rank_0(handle,n,x,incx,stridex,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZswapStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZswapStridedBatched_64_rank_0 = hipblasZswapStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasZswapStridedBatched_64_rank_1(handle,n,x,incx,stridex,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZswapStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZswapStridedBatched_64_rank_1 = hipblasZswapStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSgbmv_assumed_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + real(c_float),target :: beta + real(c_float),target,dimension(..) :: y + integer(c_int) :: incy + ! + hipblasSgbmv_assumed_rank = hipblasSgbmv_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + +#else + function hipblasSgbmv_rank_0(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int) :: lda + real(c_float),target :: x + integer(c_int) :: incx + real(c_float),target :: beta + real(c_float),target :: y + integer(c_int) :: incy + ! + hipblasSgbmv_rank_0 = hipblasSgbmv_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasSgbmv_rank_1(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + real(c_float),target :: beta + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasSgbmv_rank_1 = hipblasSgbmv_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasSgbmv_full_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmv_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + real(c_float),target :: beta + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasSgbmv_full_rank = hipblasSgbmv_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDgbmv_assumed_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + real(c_double),target :: beta + real(c_double),target,dimension(..) :: y + integer(c_int) :: incy + ! + hipblasDgbmv_assumed_rank = hipblasDgbmv_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + +#else + function hipblasDgbmv_rank_0(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int) :: lda + real(c_double),target :: x + integer(c_int) :: incx + real(c_double),target :: beta + real(c_double),target :: y + integer(c_int) :: incy + ! + hipblasDgbmv_rank_0 = hipblasDgbmv_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasDgbmv_rank_1(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + real(c_double),target :: beta + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasDgbmv_rank_1 = hipblasDgbmv_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasDgbmv_full_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmv_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + real(c_double),target :: beta + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasDgbmv_full_rank = hipblasDgbmv_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCgbmv_assumed_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + ! + hipblasCgbmv_assumed_rank = hipblasCgbmv_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + +#else + function hipblasCgbmv_rank_0(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + complex(c_float_complex),target :: x + integer(c_int) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: y + integer(c_int) :: incy + ! + hipblasCgbmv_rank_0 = hipblasCgbmv_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasCgbmv_rank_1(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasCgbmv_rank_1 = hipblasCgbmv_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasCgbmv_full_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmv_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasCgbmv_full_rank = hipblasCgbmv_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZgbmv_assumed_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + ! + hipblasZgbmv_assumed_rank = hipblasZgbmv_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + +#else + function hipblasZgbmv_rank_0(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int) :: lda + complex(c_double_complex),target :: x + integer(c_int) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: y + integer(c_int) :: incy + ! + hipblasZgbmv_rank_0 = hipblasZgbmv_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasZgbmv_rank_1(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasZgbmv_rank_1 = hipblasZgbmv_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasZgbmv_full_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmv_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasZgbmv_full_rank = hipblasZgbmv_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSgbmv_64_assumed_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_float),target :: beta + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy + ! + hipblasSgbmv_64_assumed_rank = hipblasSgbmv_64_(handle,trans,m,n,kl,ku,c_loc(alpha), & + c_loc(AP),lda,c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + +#else + function hipblasSgbmv_64_rank_0(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int64_t) :: lda + real(c_float),target :: x + integer(c_int64_t) :: incx + real(c_float),target :: beta + real(c_float),target :: y + integer(c_int64_t) :: incy + ! + hipblasSgbmv_64_rank_0 = hipblasSgbmv_64_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasSgbmv_64_rank_1(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_float),target :: beta + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasSgbmv_64_rank_1 = hipblasSgbmv_64_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasSgbmv_64_full_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmv_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_float),target :: beta + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasSgbmv_64_full_rank = hipblasSgbmv_64_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP), & + lda,c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDgbmv_64_assumed_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_double),target :: beta + real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: incy + ! + hipblasDgbmv_64_assumed_rank = hipblasDgbmv_64_(handle,trans,m,n,kl,ku,c_loc(alpha), & + c_loc(AP),lda,c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + +#else + function hipblasDgbmv_64_rank_0(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int64_t) :: lda + real(c_double),target :: x + integer(c_int64_t) :: incx + real(c_double),target :: beta + real(c_double),target :: y + integer(c_int64_t) :: incy + ! + hipblasDgbmv_64_rank_0 = hipblasDgbmv_64_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasDgbmv_64_rank_1(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_double),target :: beta + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasDgbmv_64_rank_1 = hipblasDgbmv_64_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasDgbmv_64_full_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmv_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_double),target :: beta + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasDgbmv_64_full_rank = hipblasDgbmv_64_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP), & + lda,c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCgbmv_64_assumed_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + ! + hipblasCgbmv_64_assumed_rank = hipblasCgbmv_64_(handle,trans,m,n,kl,ku,c_loc(alpha), & + c_loc(AP),lda,c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + +#else + function hipblasCgbmv_64_rank_0(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + ! + hipblasCgbmv_64_rank_0 = hipblasCgbmv_64_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasCgbmv_64_rank_1(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasCgbmv_64_rank_1 = hipblasCgbmv_64_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasCgbmv_64_full_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmv_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasCgbmv_64_full_rank = hipblasCgbmv_64_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP), & + lda,c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZgbmv_64_assumed_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + ! + hipblasZgbmv_64_assumed_rank = hipblasZgbmv_64_(handle,trans,m,n,kl,ku,c_loc(alpha), & + c_loc(AP),lda,c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + +#else + function hipblasZgbmv_64_rank_0(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + ! + hipblasZgbmv_64_rank_0 = hipblasZgbmv_64_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasZgbmv_64_rank_1(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasZgbmv_64_rank_1 = hipblasZgbmv_64_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasZgbmv_64_full_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmv_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasZgbmv_64_full_rank = hipblasZgbmv_64_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP), & + lda,c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSgbmvStridedBatched_assumed_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA, & + x,incx,stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasSgbmvStridedBatched_assumed_rank = hipblasSgbmvStridedBatched_(handle,trans,m,n,kl, & + ku,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + +#else + function hipblasSgbmvStridedBatched_rank_0(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasSgbmvStridedBatched_rank_0 = hipblasSgbmvStridedBatched_(handle,trans,m,n,kl,ku, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasSgbmvStridedBatched_rank_1(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasSgbmvStridedBatched_rank_1 = hipblasSgbmvStridedBatched_(handle,trans,m,n,kl,ku, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasSgbmvStridedBatched_full_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmvStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasSgbmvStridedBatched_full_rank = hipblasSgbmvStridedBatched_(handle,trans,m,n,kl,ku, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDgbmvStridedBatched_assumed_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA, & + x,incx,stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasDgbmvStridedBatched_assumed_rank = hipblasDgbmvStridedBatched_(handle,trans,m,n,kl, & + ku,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + +#else + function hipblasDgbmvStridedBatched_rank_0(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasDgbmvStridedBatched_rank_0 = hipblasDgbmvStridedBatched_(handle,trans,m,n,kl,ku, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasDgbmvStridedBatched_rank_1(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasDgbmvStridedBatched_rank_1 = hipblasDgbmvStridedBatched_(handle,trans,m,n,kl,ku, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasDgbmvStridedBatched_full_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmvStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasDgbmvStridedBatched_full_rank = hipblasDgbmvStridedBatched_(handle,trans,m,n,kl,ku, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCgbmvStridedBatched_assumed_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA, & + x,incx,stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasCgbmvStridedBatched_assumed_rank = hipblasCgbmvStridedBatched_(handle,trans,m,n,kl, & + ku,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + +#else + function hipblasCgbmvStridedBatched_rank_0(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasCgbmvStridedBatched_rank_0 = hipblasCgbmvStridedBatched_(handle,trans,m,n,kl,ku, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasCgbmvStridedBatched_rank_1(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasCgbmvStridedBatched_rank_1 = hipblasCgbmvStridedBatched_(handle,trans,m,n,kl,ku, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasCgbmvStridedBatched_full_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmvStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasCgbmvStridedBatched_full_rank = hipblasCgbmvStridedBatched_(handle,trans,m,n,kl,ku, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZgbmvStridedBatched_assumed_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA, & + x,incx,stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZgbmvStridedBatched_assumed_rank = hipblasZgbmvStridedBatched_(handle,trans,m,n,kl, & + ku,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + +#else + function hipblasZgbmvStridedBatched_rank_0(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZgbmvStridedBatched_rank_0 = hipblasZgbmvStridedBatched_(handle,trans,m,n,kl,ku, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasZgbmvStridedBatched_rank_1(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZgbmvStridedBatched_rank_1 = hipblasZgbmvStridedBatched_(handle,trans,m,n,kl,ku, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasZgbmvStridedBatched_full_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmvStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZgbmvStridedBatched_full_rank = hipblasZgbmvStridedBatched_(handle,trans,m,n,kl,ku, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSgbmvStridedBatched_64_assumed_rank(handle,trans,m,n,kl,ku,alpha,AP,lda, & + strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasSgbmvStridedBatched_64_assumed_rank = hipblasSgbmvStridedBatched_64_(handle,trans,m, & + n,kl,ku,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y), & + incy,stridey,batchCount) + end function + +#else + function hipblasSgbmvStridedBatched_64_rank_0(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasSgbmvStridedBatched_64_rank_0 = hipblasSgbmvStridedBatched_64_(handle,trans,m,n,kl, & + ku,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasSgbmvStridedBatched_64_rank_1(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasSgbmvStridedBatched_64_rank_1 = hipblasSgbmvStridedBatched_64_(handle,trans,m,n,kl, & + ku,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasSgbmvStridedBatched_64_full_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA, & + x,incx,stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmvStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasSgbmvStridedBatched_64_full_rank = hipblasSgbmvStridedBatched_64_(handle,trans,m,n, & + kl,ku,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDgbmvStridedBatched_64_assumed_rank(handle,trans,m,n,kl,ku,alpha,AP,lda, & + strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasDgbmvStridedBatched_64_assumed_rank = hipblasDgbmvStridedBatched_64_(handle,trans,m, & + n,kl,ku,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y), & + incy,stridey,batchCount) + end function + +#else + function hipblasDgbmvStridedBatched_64_rank_0(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasDgbmvStridedBatched_64_rank_0 = hipblasDgbmvStridedBatched_64_(handle,trans,m,n,kl, & + ku,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasDgbmvStridedBatched_64_rank_1(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasDgbmvStridedBatched_64_rank_1 = hipblasDgbmvStridedBatched_64_(handle,trans,m,n,kl, & + ku,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasDgbmvStridedBatched_64_full_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA, & + x,incx,stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmvStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasDgbmvStridedBatched_64_full_rank = hipblasDgbmvStridedBatched_64_(handle,trans,m,n, & + kl,ku,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCgbmvStridedBatched_64_assumed_rank(handle,trans,m,n,kl,ku,alpha,AP,lda, & + strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasCgbmvStridedBatched_64_assumed_rank = hipblasCgbmvStridedBatched_64_(handle,trans,m, & + n,kl,ku,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y), & + incy,stridey,batchCount) + end function + +#else + function hipblasCgbmvStridedBatched_64_rank_0(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasCgbmvStridedBatched_64_rank_0 = hipblasCgbmvStridedBatched_64_(handle,trans,m,n,kl, & + ku,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasCgbmvStridedBatched_64_rank_1(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasCgbmvStridedBatched_64_rank_1 = hipblasCgbmvStridedBatched_64_(handle,trans,m,n,kl, & + ku,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasCgbmvStridedBatched_64_full_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA, & + x,incx,stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmvStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasCgbmvStridedBatched_64_full_rank = hipblasCgbmvStridedBatched_64_(handle,trans,m,n, & + kl,ku,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZgbmvStridedBatched_64_assumed_rank(handle,trans,m,n,kl,ku,alpha,AP,lda, & + strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZgbmvStridedBatched_64_assumed_rank = hipblasZgbmvStridedBatched_64_(handle,trans,m, & + n,kl,ku,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y), & + incy,stridey,batchCount) + end function + +#else + function hipblasZgbmvStridedBatched_64_rank_0(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZgbmvStridedBatched_64_rank_0 = hipblasZgbmvStridedBatched_64_(handle,trans,m,n,kl, & + ku,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasZgbmvStridedBatched_64_rank_1(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZgbmvStridedBatched_64_rank_1 = hipblasZgbmvStridedBatched_64_(handle,trans,m,n,kl, & + ku,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasZgbmvStridedBatched_64_full_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA, & + x,incx,stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmvStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZgbmvStridedBatched_64_full_rank = hipblasZgbmvStridedBatched_64_(handle,trans,m,n, & + kl,ku,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSgemv_assumed_rank(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + real(c_float),target :: beta + real(c_float),target,dimension(..) :: y + integer(c_int) :: incy + ! + hipblasSgemv_assumed_rank = hipblasSgemv_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + +#else + function hipblasSgemv_rank_0(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int) :: lda + real(c_float),target :: x + integer(c_int) :: incx + real(c_float),target :: beta + real(c_float),target :: y + integer(c_int) :: incy + ! + hipblasSgemv_rank_0 = hipblasSgemv_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasSgemv_rank_1(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + real(c_float),target :: beta + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasSgemv_rank_1 = hipblasSgemv_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasSgemv_full_rank(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemv_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + real(c_float),target :: beta + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasSgemv_full_rank = hipblasSgemv_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDgemv_assumed_rank(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + real(c_double),target :: beta + real(c_double),target,dimension(..) :: y + integer(c_int) :: incy + ! + hipblasDgemv_assumed_rank = hipblasDgemv_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + +#else + function hipblasDgemv_rank_0(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int) :: lda + real(c_double),target :: x + integer(c_int) :: incx + real(c_double),target :: beta + real(c_double),target :: y + integer(c_int) :: incy + ! + hipblasDgemv_rank_0 = hipblasDgemv_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasDgemv_rank_1(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + real(c_double),target :: beta + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasDgemv_rank_1 = hipblasDgemv_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasDgemv_full_rank(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemv_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + real(c_double),target :: beta + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasDgemv_full_rank = hipblasDgemv_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCgemv_assumed_rank(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + ! + hipblasCgemv_assumed_rank = hipblasCgemv_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + +#else + function hipblasCgemv_rank_0(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + complex(c_float_complex),target :: x + integer(c_int) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: y + integer(c_int) :: incy + ! + hipblasCgemv_rank_0 = hipblasCgemv_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasCgemv_rank_1(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasCgemv_rank_1 = hipblasCgemv_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasCgemv_full_rank(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemv_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasCgemv_full_rank = hipblasCgemv_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZgemv_assumed_rank(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + ! + hipblasZgemv_assumed_rank = hipblasZgemv_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + +#else + function hipblasZgemv_rank_0(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int) :: lda + complex(c_double_complex),target :: x + integer(c_int) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: y + integer(c_int) :: incy + ! + hipblasZgemv_rank_0 = hipblasZgemv_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasZgemv_rank_1(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasZgemv_rank_1 = hipblasZgemv_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasZgemv_full_rank(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemv_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasZgemv_full_rank = hipblasZgemv_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSgemv_64_assumed_rank(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_float),target :: beta + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy + ! + hipblasSgemv_64_assumed_rank = hipblasSgemv_64_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + +#else + function hipblasSgemv_64_rank_0(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int64_t) :: lda + real(c_float),target :: x + integer(c_int64_t) :: incx + real(c_float),target :: beta + real(c_float),target :: y + integer(c_int64_t) :: incy + ! + hipblasSgemv_64_rank_0 = hipblasSgemv_64_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasSgemv_64_rank_1(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_float),target :: beta + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasSgemv_64_rank_1 = hipblasSgemv_64_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasSgemv_64_full_rank(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemv_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_float),target :: beta + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasSgemv_64_full_rank = hipblasSgemv_64_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDgemv_64_assumed_rank(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_double),target :: beta + real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: incy + ! + hipblasDgemv_64_assumed_rank = hipblasDgemv_64_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + +#else + function hipblasDgemv_64_rank_0(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int64_t) :: lda + real(c_double),target :: x + integer(c_int64_t) :: incx + real(c_double),target :: beta + real(c_double),target :: y + integer(c_int64_t) :: incy + ! + hipblasDgemv_64_rank_0 = hipblasDgemv_64_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasDgemv_64_rank_1(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_double),target :: beta + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasDgemv_64_rank_1 = hipblasDgemv_64_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasDgemv_64_full_rank(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemv_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_double),target :: beta + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasDgemv_64_full_rank = hipblasDgemv_64_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCgemv_64_assumed_rank(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + ! + hipblasCgemv_64_assumed_rank = hipblasCgemv_64_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + +#else + function hipblasCgemv_64_rank_0(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + ! + hipblasCgemv_64_rank_0 = hipblasCgemv_64_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasCgemv_64_rank_1(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasCgemv_64_rank_1 = hipblasCgemv_64_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasCgemv_64_full_rank(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemv_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasCgemv_64_full_rank = hipblasCgemv_64_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZgemv_64_assumed_rank(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + ! + hipblasZgemv_64_assumed_rank = hipblasZgemv_64_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + +#else + function hipblasZgemv_64_rank_0(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + ! + hipblasZgemv_64_rank_0 = hipblasZgemv_64_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasZgemv_64_rank_1(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasZgemv_64_rank_1 = hipblasZgemv_64_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasZgemv_64_full_rank(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemv_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasZgemv_64_full_rank = hipblasZgemv_64_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSgemvStridedBatched_assumed_rank(handle,transA,m,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasSgemvStridedBatched_assumed_rank = hipblasSgemvStridedBatched_(handle,transA,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + +#else + function hipblasSgemvStridedBatched_rank_0(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasSgemvStridedBatched_rank_0 = hipblasSgemvStridedBatched_(handle,transA,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasSgemvStridedBatched_rank_1(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasSgemvStridedBatched_rank_1 = hipblasSgemvStridedBatched_(handle,transA,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasSgemvStridedBatched_full_rank(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemvStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasSgemvStridedBatched_full_rank = hipblasSgemvStridedBatched_(handle,transA,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDgemvStridedBatched_assumed_rank(handle,transA,m,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasDgemvStridedBatched_assumed_rank = hipblasDgemvStridedBatched_(handle,transA,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + +#else + function hipblasDgemvStridedBatched_rank_0(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasDgemvStridedBatched_rank_0 = hipblasDgemvStridedBatched_(handle,transA,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasDgemvStridedBatched_rank_1(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasDgemvStridedBatched_rank_1 = hipblasDgemvStridedBatched_(handle,transA,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasDgemvStridedBatched_full_rank(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemvStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasDgemvStridedBatched_full_rank = hipblasDgemvStridedBatched_(handle,transA,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCgemvStridedBatched_assumed_rank(handle,transA,m,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasCgemvStridedBatched_assumed_rank = hipblasCgemvStridedBatched_(handle,transA,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + +#else + function hipblasCgemvStridedBatched_rank_0(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasCgemvStridedBatched_rank_0 = hipblasCgemvStridedBatched_(handle,transA,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasCgemvStridedBatched_rank_1(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasCgemvStridedBatched_rank_1 = hipblasCgemvStridedBatched_(handle,transA,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasCgemvStridedBatched_full_rank(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemvStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasCgemvStridedBatched_full_rank = hipblasCgemvStridedBatched_(handle,transA,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZgemvStridedBatched_assumed_rank(handle,transA,m,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZgemvStridedBatched_assumed_rank = hipblasZgemvStridedBatched_(handle,transA,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + +#else + function hipblasZgemvStridedBatched_rank_0(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZgemvStridedBatched_rank_0 = hipblasZgemvStridedBatched_(handle,transA,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasZgemvStridedBatched_rank_1(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZgemvStridedBatched_rank_1 = hipblasZgemvStridedBatched_(handle,transA,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasZgemvStridedBatched_full_rank(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemvStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZgemvStridedBatched_full_rank = hipblasZgemvStridedBatched_(handle,transA,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSgemvStridedBatched_64_assumed_rank(handle,transA,m,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasSgemvStridedBatched_64_assumed_rank = hipblasSgemvStridedBatched_64_(handle,transA,m, & + n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + +#else + function hipblasSgemvStridedBatched_64_rank_0(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasSgemvStridedBatched_64_rank_0 = hipblasSgemvStridedBatched_64_(handle,transA,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasSgemvStridedBatched_64_rank_1(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasSgemvStridedBatched_64_rank_1 = hipblasSgemvStridedBatched_64_(handle,transA,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasSgemvStridedBatched_64_full_rank(handle,transA,m,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemvStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasSgemvStridedBatched_64_full_rank = hipblasSgemvStridedBatched_64_(handle,transA,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDgemvStridedBatched_64_assumed_rank(handle,transA,m,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasDgemvStridedBatched_64_assumed_rank = hipblasDgemvStridedBatched_64_(handle,transA,m, & + n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + +#else + function hipblasDgemvStridedBatched_64_rank_0(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasDgemvStridedBatched_64_rank_0 = hipblasDgemvStridedBatched_64_(handle,transA,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasDgemvStridedBatched_64_rank_1(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasDgemvStridedBatched_64_rank_1 = hipblasDgemvStridedBatched_64_(handle,transA,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasDgemvStridedBatched_64_full_rank(handle,transA,m,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemvStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasDgemvStridedBatched_64_full_rank = hipblasDgemvStridedBatched_64_(handle,transA,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCgemvStridedBatched_64_assumed_rank(handle,transA,m,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasCgemvStridedBatched_64_assumed_rank = hipblasCgemvStridedBatched_64_(handle,transA,m, & + n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + +#else + function hipblasCgemvStridedBatched_64_rank_0(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasCgemvStridedBatched_64_rank_0 = hipblasCgemvStridedBatched_64_(handle,transA,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasCgemvStridedBatched_64_rank_1(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasCgemvStridedBatched_64_rank_1 = hipblasCgemvStridedBatched_64_(handle,transA,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasCgemvStridedBatched_64_full_rank(handle,transA,m,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemvStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasCgemvStridedBatched_64_full_rank = hipblasCgemvStridedBatched_64_(handle,transA,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZgemvStridedBatched_64_assumed_rank(handle,transA,m,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZgemvStridedBatched_64_assumed_rank = hipblasZgemvStridedBatched_64_(handle,transA,m, & + n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + +#else + function hipblasZgemvStridedBatched_64_rank_0(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZgemvStridedBatched_64_rank_0 = hipblasZgemvStridedBatched_64_(handle,transA,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasZgemvStridedBatched_64_rank_1(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZgemvStridedBatched_64_rank_1 = hipblasZgemvStridedBatched_64_(handle,transA,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasZgemvStridedBatched_64_full_rank(handle,transA,m,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemvStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZgemvStridedBatched_64_full_rank = hipblasZgemvStridedBatched_64_(handle,transA,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSger_assumed_rank(handle,m,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSger_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + real(c_float),target,dimension(..) :: y + integer(c_int) :: incy + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + ! + hipblasSger_assumed_rank = hipblasSger_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) + end function + +#else + function hipblasSger_rank_0(handle,m,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSger_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target :: x + integer(c_int) :: incx + real(c_float),target :: y + integer(c_int) :: incy + real(c_float),target :: AP + integer(c_int) :: lda + ! + hipblasSger_rank_0 = hipblasSger_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) + end function + + function hipblasSger_rank_1(handle,m,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSger_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + ! + hipblasSger_rank_1 = hipblasSger_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) + end function + + function hipblasSger_full_rank(handle,m,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSger_full_rank + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + ! + hipblasSger_full_rank = hipblasSger_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDger_assumed_rank(handle,m,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDger_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + real(c_double),target,dimension(..) :: y + integer(c_int) :: incy + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + ! + hipblasDger_assumed_rank = hipblasDger_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) + end function + +#else + function hipblasDger_rank_0(handle,m,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDger_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target :: x + integer(c_int) :: incx + real(c_double),target :: y + integer(c_int) :: incy + real(c_double),target :: AP + integer(c_int) :: lda + ! + hipblasDger_rank_0 = hipblasDger_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) + end function + + function hipblasDger_rank_1(handle,m,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDger_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + ! + hipblasDger_rank_1 = hipblasDger_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) + end function + + function hipblasDger_full_rank(handle,m,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDger_full_rank + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + ! + hipblasDger_full_rank = hipblasDger_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCgeru_assumed_rank(handle,m,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeru_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + ! + hipblasCgeru_assumed_rank = hipblasCgeru_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + +#else + function hipblasCgeru_rank_0(handle,m,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeru_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: x + integer(c_int) :: incx + complex(c_float_complex),target :: y + integer(c_int) :: incy + complex(c_float_complex),target :: AP + integer(c_int) :: lda + ! + hipblasCgeru_rank_0 = hipblasCgeru_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) + end function + + function hipblasCgeru_rank_1(handle,m,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeru_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + ! + hipblasCgeru_rank_1 = hipblasCgeru_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) + end function + + function hipblasCgeru_full_rank(handle,m,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeru_full_rank + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + ! + hipblasCgeru_full_rank = hipblasCgeru_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCgerc_assumed_rank(handle,m,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgerc_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + ! + hipblasCgerc_assumed_rank = hipblasCgerc_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + +#else + function hipblasCgerc_rank_0(handle,m,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgerc_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: x + integer(c_int) :: incx + complex(c_float_complex),target :: y + integer(c_int) :: incy + complex(c_float_complex),target :: AP + integer(c_int) :: lda + ! + hipblasCgerc_rank_0 = hipblasCgerc_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) + end function + + function hipblasCgerc_rank_1(handle,m,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgerc_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + ! + hipblasCgerc_rank_1 = hipblasCgerc_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) + end function + + function hipblasCgerc_full_rank(handle,m,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgerc_full_rank + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + ! + hipblasCgerc_full_rank = hipblasCgerc_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZgeru_assumed_rank(handle,m,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeru_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + ! + hipblasZgeru_assumed_rank = hipblasZgeru_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + +#else + function hipblasZgeru_rank_0(handle,m,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeru_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: x + integer(c_int) :: incx + complex(c_double_complex),target :: y + integer(c_int) :: incy + complex(c_double_complex),target :: AP + integer(c_int) :: lda + ! + hipblasZgeru_rank_0 = hipblasZgeru_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) + end function + + function hipblasZgeru_rank_1(handle,m,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeru_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + ! + hipblasZgeru_rank_1 = hipblasZgeru_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) + end function + + function hipblasZgeru_full_rank(handle,m,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeru_full_rank + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + ! + hipblasZgeru_full_rank = hipblasZgeru_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZgerc_assumed_rank(handle,m,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgerc_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + ! + hipblasZgerc_assumed_rank = hipblasZgerc_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + +#else + function hipblasZgerc_rank_0(handle,m,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgerc_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: x + integer(c_int) :: incx + complex(c_double_complex),target :: y + integer(c_int) :: incy + complex(c_double_complex),target :: AP + integer(c_int) :: lda + ! + hipblasZgerc_rank_0 = hipblasZgerc_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) + end function + + function hipblasZgerc_rank_1(handle,m,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgerc_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + ! + hipblasZgerc_rank_1 = hipblasZgerc_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) + end function + + function hipblasZgerc_full_rank(handle,m,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgerc_full_rank + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + ! + hipblasZgerc_full_rank = hipblasZgerc_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSger_64_assumed_rank(handle,m,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSger_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + ! + hipblasSger_64_assumed_rank = hipblasSger_64_(handle,m,n,c_loc(alpha),c_loc(x),incx, & + c_loc(y),incy,c_loc(AP),lda) + end function + +#else + function hipblasSger_64_rank_0(handle,m,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSger_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target :: x + integer(c_int64_t) :: incx + real(c_float),target :: y + integer(c_int64_t) :: incy + real(c_float),target :: AP + integer(c_int64_t) :: lda + ! + hipblasSger_64_rank_0 = hipblasSger_64_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) + end function + + function hipblasSger_64_rank_1(handle,m,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSger_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + ! + hipblasSger_64_rank_1 = hipblasSger_64_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) + end function + + function hipblasSger_64_full_rank(handle,m,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSger_64_full_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + ! + hipblasSger_64_full_rank = hipblasSger_64_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDger_64_assumed_rank(handle,m,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDger_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: incy + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + ! + hipblasDger_64_assumed_rank = hipblasDger_64_(handle,m,n,c_loc(alpha),c_loc(x),incx, & + c_loc(y),incy,c_loc(AP),lda) + end function + +#else + function hipblasDger_64_rank_0(handle,m,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDger_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target :: x + integer(c_int64_t) :: incx + real(c_double),target :: y + integer(c_int64_t) :: incy + real(c_double),target :: AP + integer(c_int64_t) :: lda + ! + hipblasDger_64_rank_0 = hipblasDger_64_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) + end function + + function hipblasDger_64_rank_1(handle,m,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDger_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + ! + hipblasDger_64_rank_1 = hipblasDger_64_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) + end function + + function hipblasDger_64_full_rank(handle,m,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDger_64_full_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + ! + hipblasDger_64_full_rank = hipblasDger_64_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCgeru_64_assumed_rank(handle,m,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeru_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + ! + hipblasCgeru_64_assumed_rank = hipblasCgeru_64_(handle,m,n,c_loc(alpha),c_loc(x),incx, & + c_loc(y),incy,c_loc(AP),lda) + end function + +#else + function hipblasCgeru_64_rank_0(handle,m,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeru_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + ! + hipblasCgeru_64_rank_0 = hipblasCgeru_64_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + + function hipblasCgeru_64_rank_1(handle,m,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeru_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + ! + hipblasCgeru_64_rank_1 = hipblasCgeru_64_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + + function hipblasCgeru_64_full_rank(handle,m,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeru_64_full_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + ! + hipblasCgeru_64_full_rank = hipblasCgeru_64_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCgerc_64_assumed_rank(handle,m,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgerc_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + ! + hipblasCgerc_64_assumed_rank = hipblasCgerc_64_(handle,m,n,c_loc(alpha),c_loc(x),incx, & + c_loc(y),incy,c_loc(AP),lda) + end function + +#else + function hipblasCgerc_64_rank_0(handle,m,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgerc_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + ! + hipblasCgerc_64_rank_0 = hipblasCgerc_64_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + + function hipblasCgerc_64_rank_1(handle,m,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgerc_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + ! + hipblasCgerc_64_rank_1 = hipblasCgerc_64_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + + function hipblasCgerc_64_full_rank(handle,m,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgerc_64_full_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + ! + hipblasCgerc_64_full_rank = hipblasCgerc_64_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZgeru_64_assumed_rank(handle,m,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeru_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + ! + hipblasZgeru_64_assumed_rank = hipblasZgeru_64_(handle,m,n,c_loc(alpha),c_loc(x),incx, & + c_loc(y),incy,c_loc(AP),lda) + end function + +#else + function hipblasZgeru_64_rank_0(handle,m,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeru_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + ! + hipblasZgeru_64_rank_0 = hipblasZgeru_64_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + + function hipblasZgeru_64_rank_1(handle,m,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeru_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + ! + hipblasZgeru_64_rank_1 = hipblasZgeru_64_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + + function hipblasZgeru_64_full_rank(handle,m,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeru_64_full_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + ! + hipblasZgeru_64_full_rank = hipblasZgeru_64_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZgerc_64_assumed_rank(handle,m,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgerc_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + ! + hipblasZgerc_64_assumed_rank = hipblasZgerc_64_(handle,m,n,c_loc(alpha),c_loc(x),incx, & + c_loc(y),incy,c_loc(AP),lda) + end function + +#else + function hipblasZgerc_64_rank_0(handle,m,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgerc_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + ! + hipblasZgerc_64_rank_0 = hipblasZgerc_64_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + + function hipblasZgerc_64_rank_1(handle,m,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgerc_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + ! + hipblasZgerc_64_rank_1 = hipblasZgerc_64_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + + function hipblasZgerc_64_full_rank(handle,m,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgerc_64_full_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + ! + hipblasZgerc_64_full_rank = hipblasZgerc_64_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSgerStridedBatched_assumed_rank(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgerStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasSgerStridedBatched_assumed_rank = hipblasSgerStridedBatched_(handle,m,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#else + function hipblasSgerStridedBatched_rank_0(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP, & + lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgerStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_float),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasSgerStridedBatched_rank_0 = hipblasSgerStridedBatched_(handle,m,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasSgerStridedBatched_rank_1(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP, & + lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgerStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasSgerStridedBatched_rank_1 = hipblasSgerStridedBatched_(handle,m,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasSgerStridedBatched_full_rank(handle,m,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgerStridedBatched_full_rank + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasSgerStridedBatched_full_rank = hipblasSgerStridedBatched_(handle,m,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDgerStridedBatched_assumed_rank(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgerStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasDgerStridedBatched_assumed_rank = hipblasDgerStridedBatched_(handle,m,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#else + function hipblasDgerStridedBatched_rank_0(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP, & + lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgerStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_double),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasDgerStridedBatched_rank_0 = hipblasDgerStridedBatched_(handle,m,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasDgerStridedBatched_rank_1(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP, & + lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgerStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasDgerStridedBatched_rank_1 = hipblasDgerStridedBatched_(handle,m,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasDgerStridedBatched_full_rank(handle,m,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgerStridedBatched_full_rank + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasDgerStridedBatched_full_rank = hipblasDgerStridedBatched_(handle,m,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCgeruStridedBatched_assumed_rank(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeruStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCgeruStridedBatched_assumed_rank = hipblasCgeruStridedBatched_(handle,m,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#else + function hipblasCgeruStridedBatched_rank_0(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP, & + lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeruStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCgeruStridedBatched_rank_0 = hipblasCgeruStridedBatched_(handle,m,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCgeruStridedBatched_rank_1(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP, & + lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeruStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCgeruStridedBatched_rank_1 = hipblasCgeruStridedBatched_(handle,m,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCgeruStridedBatched_full_rank(handle,m,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeruStridedBatched_full_rank + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCgeruStridedBatched_full_rank = hipblasCgeruStridedBatched_(handle,m,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCgercStridedBatched_assumed_rank(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgercStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCgercStridedBatched_assumed_rank = hipblasCgercStridedBatched_(handle,m,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#else + function hipblasCgercStridedBatched_rank_0(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP, & + lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgercStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCgercStridedBatched_rank_0 = hipblasCgercStridedBatched_(handle,m,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCgercStridedBatched_rank_1(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP, & + lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgercStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCgercStridedBatched_rank_1 = hipblasCgercStridedBatched_(handle,m,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCgercStridedBatched_full_rank(handle,m,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgercStridedBatched_full_rank + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCgercStridedBatched_full_rank = hipblasCgercStridedBatched_(handle,m,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZgeruStridedBatched_assumed_rank(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeruStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZgeruStridedBatched_assumed_rank = hipblasZgeruStridedBatched_(handle,m,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#else + function hipblasZgeruStridedBatched_rank_0(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP, & + lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeruStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZgeruStridedBatched_rank_0 = hipblasZgeruStridedBatched_(handle,m,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZgeruStridedBatched_rank_1(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP, & + lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeruStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZgeruStridedBatched_rank_1 = hipblasZgeruStridedBatched_(handle,m,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZgeruStridedBatched_full_rank(handle,m,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeruStridedBatched_full_rank + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZgeruStridedBatched_full_rank = hipblasZgeruStridedBatched_(handle,m,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZgercStridedBatched_assumed_rank(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgercStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZgercStridedBatched_assumed_rank = hipblasZgercStridedBatched_(handle,m,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#else + function hipblasZgercStridedBatched_rank_0(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP, & + lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgercStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZgercStridedBatched_rank_0 = hipblasZgercStridedBatched_(handle,m,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZgercStridedBatched_rank_1(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP, & + lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgercStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZgercStridedBatched_rank_1 = hipblasZgercStridedBatched_(handle,m,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZgercStridedBatched_full_rank(handle,m,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgercStridedBatched_full_rank + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZgercStridedBatched_full_rank = hipblasZgercStridedBatched_(handle,m,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSgerStridedBatched_64_assumed_rank(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgerStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasSgerStridedBatched_64_assumed_rank = hipblasSgerStridedBatched_64_(handle,m,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#else + function hipblasSgerStridedBatched_64_rank_0(handle,m,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgerStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_float),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasSgerStridedBatched_64_rank_0 = hipblasSgerStridedBatched_64_(handle,m,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasSgerStridedBatched_64_rank_1(handle,m,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgerStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasSgerStridedBatched_64_rank_1 = hipblasSgerStridedBatched_64_(handle,m,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasSgerStridedBatched_64_full_rank(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgerStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasSgerStridedBatched_64_full_rank = hipblasSgerStridedBatched_64_(handle,m,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDgerStridedBatched_64_assumed_rank(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgerStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasDgerStridedBatched_64_assumed_rank = hipblasDgerStridedBatched_64_(handle,m,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#else + function hipblasDgerStridedBatched_64_rank_0(handle,m,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgerStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_double),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasDgerStridedBatched_64_rank_0 = hipblasDgerStridedBatched_64_(handle,m,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasDgerStridedBatched_64_rank_1(handle,m,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgerStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasDgerStridedBatched_64_rank_1 = hipblasDgerStridedBatched_64_(handle,m,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasDgerStridedBatched_64_full_rank(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgerStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasDgerStridedBatched_64_full_rank = hipblasDgerStridedBatched_64_(handle,m,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCgeruStridedBatched_64_assumed_rank(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeruStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCgeruStridedBatched_64_assumed_rank = hipblasCgeruStridedBatched_64_(handle,m,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#else + function hipblasCgeruStridedBatched_64_rank_0(handle,m,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeruStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCgeruStridedBatched_64_rank_0 = hipblasCgeruStridedBatched_64_(handle,m,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCgeruStridedBatched_64_rank_1(handle,m,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeruStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCgeruStridedBatched_64_rank_1 = hipblasCgeruStridedBatched_64_(handle,m,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCgeruStridedBatched_64_full_rank(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeruStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCgeruStridedBatched_64_full_rank = hipblasCgeruStridedBatched_64_(handle,m,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCgercStridedBatched_64_assumed_rank(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgercStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCgercStridedBatched_64_assumed_rank = hipblasCgercStridedBatched_64_(handle,m,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#else + function hipblasCgercStridedBatched_64_rank_0(handle,m,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgercStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCgercStridedBatched_64_rank_0 = hipblasCgercStridedBatched_64_(handle,m,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCgercStridedBatched_64_rank_1(handle,m,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgercStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCgercStridedBatched_64_rank_1 = hipblasCgercStridedBatched_64_(handle,m,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCgercStridedBatched_64_full_rank(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgercStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCgercStridedBatched_64_full_rank = hipblasCgercStridedBatched_64_(handle,m,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZgeruStridedBatched_64_assumed_rank(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeruStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZgeruStridedBatched_64_assumed_rank = hipblasZgeruStridedBatched_64_(handle,m,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#else + function hipblasZgeruStridedBatched_64_rank_0(handle,m,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeruStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZgeruStridedBatched_64_rank_0 = hipblasZgeruStridedBatched_64_(handle,m,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZgeruStridedBatched_64_rank_1(handle,m,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeruStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZgeruStridedBatched_64_rank_1 = hipblasZgeruStridedBatched_64_(handle,m,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZgeruStridedBatched_64_full_rank(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeruStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZgeruStridedBatched_64_full_rank = hipblasZgeruStridedBatched_64_(handle,m,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZgercStridedBatched_64_assumed_rank(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgercStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZgercStridedBatched_64_assumed_rank = hipblasZgercStridedBatched_64_(handle,m,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#else + function hipblasZgercStridedBatched_64_rank_0(handle,m,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgercStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZgercStridedBatched_64_rank_0 = hipblasZgercStridedBatched_64_(handle,m,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZgercStridedBatched_64_rank_1(handle,m,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgercStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZgercStridedBatched_64_rank_1 = hipblasZgercStridedBatched_64_(handle,m,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZgercStridedBatched_64_full_rank(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgercStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZgercStridedBatched_64_full_rank = hipblasZgercStridedBatched_64_(handle,m,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasChbmv_assumed_rank(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + ! + hipblasChbmv_assumed_rank = hipblasChbmv_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + +#else + function hipblasChbmv_rank_0(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + complex(c_float_complex),target :: x + integer(c_int) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: y + integer(c_int) :: incy + ! + hipblasChbmv_rank_0 = hipblasChbmv_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasChbmv_rank_1(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasChbmv_rank_1 = hipblasChbmv_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasChbmv_full_rank(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmv_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasChbmv_full_rank = hipblasChbmv_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZhbmv_assumed_rank(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + ! + hipblasZhbmv_assumed_rank = hipblasZhbmv_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + +#else + function hipblasZhbmv_rank_0(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int) :: lda + complex(c_double_complex),target :: x + integer(c_int) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: y + integer(c_int) :: incy + ! + hipblasZhbmv_rank_0 = hipblasZhbmv_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasZhbmv_rank_1(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasZhbmv_rank_1 = hipblasZhbmv_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasZhbmv_full_rank(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmv_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasZhbmv_full_rank = hipblasZhbmv_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasChbmv_64_assumed_rank(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + ! + hipblasChbmv_64_assumed_rank = hipblasChbmv_64_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + +#else + function hipblasChbmv_64_rank_0(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + ! + hipblasChbmv_64_rank_0 = hipblasChbmv_64_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasChbmv_64_rank_1(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasChbmv_64_rank_1 = hipblasChbmv_64_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasChbmv_64_full_rank(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmv_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasChbmv_64_full_rank = hipblasChbmv_64_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZhbmv_64_assumed_rank(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + ! + hipblasZhbmv_64_assumed_rank = hipblasZhbmv_64_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + +#else + function hipblasZhbmv_64_rank_0(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + ! + hipblasZhbmv_64_rank_0 = hipblasZhbmv_64_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasZhbmv_64_rank_1(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasZhbmv_64_rank_1 = hipblasZhbmv_64_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasZhbmv_64_full_rank(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmv_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasZhbmv_64_full_rank = hipblasZhbmv_64_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasChbmvStridedBatched_assumed_rank(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasChbmvStridedBatched_assumed_rank = hipblasChbmvStridedBatched_(handle,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + +#else + function hipblasChbmvStridedBatched_rank_0(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasChbmvStridedBatched_rank_0 = hipblasChbmvStridedBatched_(handle,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasChbmvStridedBatched_rank_1(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasChbmvStridedBatched_rank_1 = hipblasChbmvStridedBatched_(handle,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasChbmvStridedBatched_full_rank(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmvStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasChbmvStridedBatched_full_rank = hipblasChbmvStridedBatched_(handle,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZhbmvStridedBatched_assumed_rank(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZhbmvStridedBatched_assumed_rank = hipblasZhbmvStridedBatched_(handle,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + +#else + function hipblasZhbmvStridedBatched_rank_0(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZhbmvStridedBatched_rank_0 = hipblasZhbmvStridedBatched_(handle,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasZhbmvStridedBatched_rank_1(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZhbmvStridedBatched_rank_1 = hipblasZhbmvStridedBatched_(handle,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasZhbmvStridedBatched_full_rank(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmvStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZhbmvStridedBatched_full_rank = hipblasZhbmvStridedBatched_(handle,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasChbmvStridedBatched_64_assumed_rank(handle,uplo,n,k,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasChbmvStridedBatched_64_assumed_rank = hipblasChbmvStridedBatched_64_(handle,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + +#else + function hipblasChbmvStridedBatched_64_rank_0(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasChbmvStridedBatched_64_rank_0 = hipblasChbmvStridedBatched_64_(handle,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasChbmvStridedBatched_64_rank_1(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasChbmvStridedBatched_64_rank_1 = hipblasChbmvStridedBatched_64_(handle,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasChbmvStridedBatched_64_full_rank(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmvStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasChbmvStridedBatched_64_full_rank = hipblasChbmvStridedBatched_64_(handle,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZhbmvStridedBatched_64_assumed_rank(handle,uplo,n,k,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZhbmvStridedBatched_64_assumed_rank = hipblasZhbmvStridedBatched_64_(handle,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + +#else + function hipblasZhbmvStridedBatched_64_rank_0(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZhbmvStridedBatched_64_rank_0 = hipblasZhbmvStridedBatched_64_(handle,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasZhbmvStridedBatched_64_rank_1(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZhbmvStridedBatched_64_rank_1 = hipblasZhbmvStridedBatched_64_(handle,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasZhbmvStridedBatched_64_full_rank(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmvStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZhbmvStridedBatched_64_full_rank = hipblasZhbmvStridedBatched_64_(handle,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasChemv_assumed_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + ! + hipblasChemv_assumed_rank = hipblasChemv_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + +#else + function hipblasChemv_rank_0(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + complex(c_float_complex),target :: x + integer(c_int) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: y + integer(c_int) :: incy + ! + hipblasChemv_rank_0 = hipblasChemv_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x),incx, & + c_loc(beta),c_loc(y),incy) + end function + + function hipblasChemv_rank_1(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasChemv_rank_1 = hipblasChemv_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x),incx, & + c_loc(beta),c_loc(y),incy) + end function + + function hipblasChemv_full_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemv_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasChemv_full_rank = hipblasChemv_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZhemv_assumed_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + ! + hipblasZhemv_assumed_rank = hipblasZhemv_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + +#else + function hipblasZhemv_rank_0(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int) :: lda + complex(c_double_complex),target :: x + integer(c_int) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: y + integer(c_int) :: incy + ! + hipblasZhemv_rank_0 = hipblasZhemv_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x),incx, & + c_loc(beta),c_loc(y),incy) + end function + + function hipblasZhemv_rank_1(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasZhemv_rank_1 = hipblasZhemv_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x),incx, & + c_loc(beta),c_loc(y),incy) + end function + + function hipblasZhemv_full_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemv_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasZhemv_full_rank = hipblasZhemv_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasChemv_64_assumed_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + ! + hipblasChemv_64_assumed_rank = hipblasChemv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + +#else + function hipblasChemv_64_rank_0(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + ! + hipblasChemv_64_rank_0 = hipblasChemv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasChemv_64_rank_1(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasChemv_64_rank_1 = hipblasChemv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasChemv_64_full_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemv_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasChemv_64_full_rank = hipblasChemv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZhemv_64_assumed_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + ! + hipblasZhemv_64_assumed_rank = hipblasZhemv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + +#else + function hipblasZhemv_64_rank_0(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + ! + hipblasZhemv_64_rank_0 = hipblasZhemv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasZhemv_64_rank_1(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasZhemv_64_rank_1 = hipblasZhemv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasZhemv_64_full_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemv_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasZhemv_64_full_rank = hipblasZhemv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasChemvStridedBatched_assumed_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasChemvStridedBatched_assumed_rank = hipblasChemvStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + +#else + function hipblasChemvStridedBatched_rank_0(handle,uplo,n,alpha,AP,lda,strideA,x,incx,stridex, & + beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasChemvStridedBatched_rank_0 = hipblasChemvStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey,batchCount) + end function + + function hipblasChemvStridedBatched_rank_1(handle,uplo,n,alpha,AP,lda,strideA,x,incx,stridex, & + beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasChemvStridedBatched_rank_1 = hipblasChemvStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey,batchCount) + end function + + function hipblasChemvStridedBatched_full_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemvStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasChemvStridedBatched_full_rank = hipblasChemvStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZhemvStridedBatched_assumed_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZhemvStridedBatched_assumed_rank = hipblasZhemvStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + +#else + function hipblasZhemvStridedBatched_rank_0(handle,uplo,n,alpha,AP,lda,strideA,x,incx,stridex, & + beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZhemvStridedBatched_rank_0 = hipblasZhemvStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey,batchCount) + end function + + function hipblasZhemvStridedBatched_rank_1(handle,uplo,n,alpha,AP,lda,strideA,x,incx,stridex, & + beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZhemvStridedBatched_rank_1 = hipblasZhemvStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey,batchCount) + end function + + function hipblasZhemvStridedBatched_full_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemvStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZhemvStridedBatched_full_rank = hipblasZhemvStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasChemvStridedBatched_64_assumed_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasChemvStridedBatched_64_assumed_rank = hipblasChemvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + +#else + function hipblasChemvStridedBatched_64_rank_0(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasChemvStridedBatched_64_rank_0 = hipblasChemvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasChemvStridedBatched_64_rank_1(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasChemvStridedBatched_64_rank_1 = hipblasChemvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasChemvStridedBatched_64_full_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemvStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasChemvStridedBatched_64_full_rank = hipblasChemvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZhemvStridedBatched_64_assumed_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZhemvStridedBatched_64_assumed_rank = hipblasZhemvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + +#else + function hipblasZhemvStridedBatched_64_rank_0(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZhemvStridedBatched_64_rank_0 = hipblasZhemvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasZhemvStridedBatched_64_rank_1(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZhemvStridedBatched_64_rank_1 = hipblasZhemvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasZhemvStridedBatched_64_full_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemvStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZhemvStridedBatched_64_full_rank = hipblasZhemvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCher_assumed_rank(handle,uplo,n,alpha,x,incx,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + ! + hipblasCher_assumed_rank = hipblasCher_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP), & + lda) + end function + +#else + function hipblasCher_rank_0(handle,uplo,n,alpha,x,incx,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + complex(c_float_complex),target :: x + integer(c_int) :: incx + complex(c_float_complex),target :: AP + integer(c_int) :: lda + ! + hipblasCher_rank_0 = hipblasCher_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP),lda) + end function + + function hipblasCher_rank_1(handle,uplo,n,alpha,x,incx,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + ! + hipblasCher_rank_1 = hipblasCher_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP),lda) + end function + + function hipblasCher_full_rank(handle,uplo,n,alpha,x,incx,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + ! + hipblasCher_full_rank = hipblasCher_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP),lda) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZher_assumed_rank(handle,uplo,n,alpha,x,incx,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + ! + hipblasZher_assumed_rank = hipblasZher_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP), & + lda) + end function + +#else + function hipblasZher_rank_0(handle,uplo,n,alpha,x,incx,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + complex(c_double_complex),target :: x + integer(c_int) :: incx + complex(c_double_complex),target :: AP + integer(c_int) :: lda + ! + hipblasZher_rank_0 = hipblasZher_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP),lda) + end function + + function hipblasZher_rank_1(handle,uplo,n,alpha,x,incx,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + ! + hipblasZher_rank_1 = hipblasZher_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP),lda) + end function + + function hipblasZher_full_rank(handle,uplo,n,alpha,x,incx,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + ! + hipblasZher_full_rank = hipblasZher_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP),lda) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCher_64_assumed_rank(handle,uplo,n,alpha,x,incx,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + ! + hipblasCher_64_assumed_rank = hipblasCher_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & + c_loc(AP),lda) + end function + +#else + function hipblasCher_64_rank_0(handle,uplo,n,alpha,x,incx,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + ! + hipblasCher_64_rank_0 = hipblasCher_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP), & + lda) + end function + + function hipblasCher_64_rank_1(handle,uplo,n,alpha,x,incx,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + ! + hipblasCher_64_rank_1 = hipblasCher_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP), & + lda) + end function + + function hipblasCher_64_full_rank(handle,uplo,n,alpha,x,incx,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + ! + hipblasCher_64_full_rank = hipblasCher_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & + c_loc(AP),lda) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZher_64_assumed_rank(handle,uplo,n,alpha,x,incx,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + ! + hipblasZher_64_assumed_rank = hipblasZher_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & + c_loc(AP),lda) + end function + +#else + function hipblasZher_64_rank_0(handle,uplo,n,alpha,x,incx,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + ! + hipblasZher_64_rank_0 = hipblasZher_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP), & + lda) + end function + + function hipblasZher_64_rank_1(handle,uplo,n,alpha,x,incx,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + ! + hipblasZher_64_rank_1 = hipblasZher_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP), & + lda) + end function + + function hipblasZher_64_full_rank(handle,uplo,n,alpha,x,incx,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + ! + hipblasZher_64_full_rank = hipblasZher_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & + c_loc(AP),lda) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCherStridedBatched_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCherStridedBatched_assumed_rank = hipblasCherStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + +#else + function hipblasCherStridedBatched_rank_0(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCherStridedBatched_rank_0 = hipblasCherStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCherStridedBatched_rank_1(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCherStridedBatched_rank_1 = hipblasCherStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCherStridedBatched_full_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCherStridedBatched_full_rank = hipblasCherStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZherStridedBatched_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZherStridedBatched_assumed_rank = hipblasZherStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + +#else + function hipblasZherStridedBatched_rank_0(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZherStridedBatched_rank_0 = hipblasZherStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZherStridedBatched_rank_1(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZherStridedBatched_rank_1 = hipblasZherStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZherStridedBatched_full_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZherStridedBatched_full_rank = hipblasZherStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCherStridedBatched_64_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCherStridedBatched_64_assumed_rank = hipblasCherStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + +#else + function hipblasCherStridedBatched_64_rank_0(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCherStridedBatched_64_rank_0 = hipblasCherStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCherStridedBatched_64_rank_1(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCherStridedBatched_64_rank_1 = hipblasCherStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCherStridedBatched_64_full_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCherStridedBatched_64_full_rank = hipblasCherStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZherStridedBatched_64_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZherStridedBatched_64_assumed_rank = hipblasZherStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + +#else + function hipblasZherStridedBatched_64_rank_0(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZherStridedBatched_64_rank_0 = hipblasZherStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZherStridedBatched_64_rank_1(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZherStridedBatched_64_rank_1 = hipblasZherStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZherStridedBatched_64_full_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZherStridedBatched_64_full_rank = hipblasZherStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCher2_assumed_rank(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + ! + hipblasCher2_assumed_rank = hipblasCher2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + +#else + function hipblasCher2_rank_0(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: x + integer(c_int) :: incx + complex(c_float_complex),target :: y + integer(c_int) :: incy + complex(c_float_complex),target :: AP + integer(c_int) :: lda + ! + hipblasCher2_rank_0 = hipblasCher2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) + end function + + function hipblasCher2_rank_1(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + ! + hipblasCher2_rank_1 = hipblasCher2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) + end function + + function hipblasCher2_full_rank(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + ! + hipblasCher2_full_rank = hipblasCher2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZher2_assumed_rank(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + ! + hipblasZher2_assumed_rank = hipblasZher2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + +#else + function hipblasZher2_rank_0(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: x + integer(c_int) :: incx + complex(c_double_complex),target :: y + integer(c_int) :: incy + complex(c_double_complex),target :: AP + integer(c_int) :: lda + ! + hipblasZher2_rank_0 = hipblasZher2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) + end function + + function hipblasZher2_rank_1(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + ! + hipblasZher2_rank_1 = hipblasZher2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) + end function + + function hipblasZher2_full_rank(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + ! + hipblasZher2_full_rank = hipblasZher2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCher2_64_assumed_rank(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + ! + hipblasCher2_64_assumed_rank = hipblasCher2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & + c_loc(y),incy,c_loc(AP),lda) + end function + +#else + function hipblasCher2_64_rank_0(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + ! + hipblasCher2_64_rank_0 = hipblasCher2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + + function hipblasCher2_64_rank_1(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + ! + hipblasCher2_64_rank_1 = hipblasCher2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + + function hipblasCher2_64_full_rank(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + ! + hipblasCher2_64_full_rank = hipblasCher2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & + c_loc(y),incy,c_loc(AP),lda) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZher2_64_assumed_rank(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + ! + hipblasZher2_64_assumed_rank = hipblasZher2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & + c_loc(y),incy,c_loc(AP),lda) + end function + +#else + function hipblasZher2_64_rank_0(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + ! + hipblasZher2_64_rank_0 = hipblasZher2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + + function hipblasZher2_64_rank_1(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + ! + hipblasZher2_64_rank_1 = hipblasZher2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + + function hipblasZher2_64_full_rank(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + ! + hipblasZher2_64_full_rank = hipblasZher2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & + c_loc(y),incy,c_loc(AP),lda) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCher2StridedBatched_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2StridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCher2StridedBatched_assumed_rank = hipblasCher2StridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#else + function hipblasCher2StridedBatched_rank_0(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2StridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCher2StridedBatched_rank_0 = hipblasCher2StridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCher2StridedBatched_rank_1(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2StridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCher2StridedBatched_rank_1 = hipblasCher2StridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCher2StridedBatched_full_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2StridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCher2StridedBatched_full_rank = hipblasCher2StridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZher2StridedBatched_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2StridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZher2StridedBatched_assumed_rank = hipblasZher2StridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#else + function hipblasZher2StridedBatched_rank_0(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2StridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZher2StridedBatched_rank_0 = hipblasZher2StridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZher2StridedBatched_rank_1(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2StridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZher2StridedBatched_rank_1 = hipblasZher2StridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZher2StridedBatched_full_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2StridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZher2StridedBatched_full_rank = hipblasZher2StridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCher2StridedBatched_64_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2StridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCher2StridedBatched_64_assumed_rank = hipblasCher2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#else + function hipblasCher2StridedBatched_64_rank_0(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2StridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCher2StridedBatched_64_rank_0 = hipblasCher2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCher2StridedBatched_64_rank_1(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2StridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCher2StridedBatched_64_rank_1 = hipblasCher2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCher2StridedBatched_64_full_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2StridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCher2StridedBatched_64_full_rank = hipblasCher2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZher2StridedBatched_64_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2StridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZher2StridedBatched_64_assumed_rank = hipblasZher2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#else + function hipblasZher2StridedBatched_64_rank_0(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2StridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZher2StridedBatched_64_rank_0 = hipblasZher2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZher2StridedBatched_64_rank_1(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2StridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZher2StridedBatched_64_rank_1 = hipblasZher2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZher2StridedBatched_64_full_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2StridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZher2StridedBatched_64_full_rank = hipblasZher2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasChpmv_assumed_rank(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + ! + hipblasChpmv_assumed_rank = hipblasChpmv_(handle,uplo,n,c_loc(alpha),c_loc(AP),c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + +#else + function hipblasChpmv_rank_0(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + complex(c_float_complex),target :: x + integer(c_int) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: y + integer(c_int) :: incy + ! + hipblasChpmv_rank_0 = hipblasChpmv_(handle,uplo,n,c_loc(alpha),c_loc(AP),c_loc(x),incx, & + c_loc(beta),c_loc(y),incy) + end function + + function hipblasChpmv_rank_1(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasChpmv_rank_1 = hipblasChpmv_(handle,uplo,n,c_loc(alpha),c_loc(AP),c_loc(x),incx, & + c_loc(beta),c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZhpmv_assumed_rank(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + ! + hipblasZhpmv_assumed_rank = hipblasZhpmv_(handle,uplo,n,c_loc(alpha),c_loc(AP),c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + +#else + function hipblasZhpmv_rank_0(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + complex(c_double_complex),target :: x + integer(c_int) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: y + integer(c_int) :: incy + ! + hipblasZhpmv_rank_0 = hipblasZhpmv_(handle,uplo,n,c_loc(alpha),c_loc(AP),c_loc(x),incx, & + c_loc(beta),c_loc(y),incy) + end function + + function hipblasZhpmv_rank_1(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasZhpmv_rank_1 = hipblasZhpmv_(handle,uplo,n,c_loc(alpha),c_loc(AP),c_loc(x),incx, & + c_loc(beta),c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasChpmv_64_assumed_rank(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + ! + hipblasChpmv_64_assumed_rank = hipblasChpmv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP), & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + +#else + function hipblasChpmv_64_rank_0(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + ! + hipblasChpmv_64_rank_0 = hipblasChpmv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasChpmv_64_rank_1(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasChpmv_64_rank_1 = hipblasChpmv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZhpmv_64_assumed_rank(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + ! + hipblasZhpmv_64_assumed_rank = hipblasZhpmv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP), & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + +#else + function hipblasZhpmv_64_rank_0(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + ! + hipblasZhpmv_64_rank_0 = hipblasZhpmv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasZhpmv_64_rank_1(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasZhpmv_64_rank_1 = hipblasZhpmv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasChpmvStridedBatched_assumed_rank(handle,uplo,n,alpha,AP,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasChpmvStridedBatched_assumed_rank = hipblasChpmvStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey, & + batchCount) + end function + +#else + function hipblasChpmvStridedBatched_rank_0(handle,uplo,n,alpha,AP,strideA,x,incx,stridex,beta, & + y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasChpmvStridedBatched_rank_0 = hipblasChpmvStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey,batchCount) + end function + + function hipblasChpmvStridedBatched_rank_1(handle,uplo,n,alpha,AP,strideA,x,incx,stridex,beta, & + y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasChpmvStridedBatched_rank_1 = hipblasChpmvStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZhpmvStridedBatched_assumed_rank(handle,uplo,n,alpha,AP,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZhpmvStridedBatched_assumed_rank = hipblasZhpmvStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey, & + batchCount) + end function + +#else + function hipblasZhpmvStridedBatched_rank_0(handle,uplo,n,alpha,AP,strideA,x,incx,stridex,beta, & + y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZhpmvStridedBatched_rank_0 = hipblasZhpmvStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey,batchCount) + end function + + function hipblasZhpmvStridedBatched_rank_1(handle,uplo,n,alpha,AP,strideA,x,incx,stridex,beta, & + y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZhpmvStridedBatched_rank_1 = hipblasZhpmvStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasChpmvStridedBatched_64_assumed_rank(handle,uplo,n,alpha,AP,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasChpmvStridedBatched_64_assumed_rank = hipblasChpmvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey, & + batchCount) + end function + +#else + function hipblasChpmvStridedBatched_64_rank_0(handle,uplo,n,alpha,AP,strideA,x,incx,stridex, & + beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasChpmvStridedBatched_64_rank_0 = hipblasChpmvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey, & + batchCount) + end function + + function hipblasChpmvStridedBatched_64_rank_1(handle,uplo,n,alpha,AP,strideA,x,incx,stridex, & + beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasChpmvStridedBatched_64_rank_1 = hipblasChpmvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey, & + batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZhpmvStridedBatched_64_assumed_rank(handle,uplo,n,alpha,AP,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZhpmvStridedBatched_64_assumed_rank = hipblasZhpmvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey, & + batchCount) + end function + +#else + function hipblasZhpmvStridedBatched_64_rank_0(handle,uplo,n,alpha,AP,strideA,x,incx,stridex, & + beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZhpmvStridedBatched_64_rank_0 = hipblasZhpmvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey, & + batchCount) + end function + + function hipblasZhpmvStridedBatched_64_rank_1(handle,uplo,n,alpha,AP,strideA,x,incx,stridex, & + beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZhpmvStridedBatched_64_rank_1 = hipblasZhpmvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey, & + batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasChpr_assumed_rank(handle,uplo,n,alpha,x,incx,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(..) :: AP + ! + hipblasChpr_assumed_rank = hipblasChpr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + end function + +#else + function hipblasChpr_rank_0(handle,uplo,n,alpha,x,incx,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + complex(c_float_complex),target :: x + integer(c_int) :: incx + complex(c_float_complex),target :: AP + ! + hipblasChpr_rank_0 = hipblasChpr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + end function + + function hipblasChpr_rank_1(handle,uplo,n,alpha,x,incx,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(:) :: AP + ! + hipblasChpr_rank_1 = hipblasChpr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZhpr_assumed_rank(handle,uplo,n,alpha,x,incx,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(..) :: AP + ! + hipblasZhpr_assumed_rank = hipblasZhpr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + end function + +#else + function hipblasZhpr_rank_0(handle,uplo,n,alpha,x,incx,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + complex(c_double_complex),target :: x + integer(c_int) :: incx + complex(c_double_complex),target :: AP + ! + hipblasZhpr_rank_0 = hipblasZhpr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + end function + + function hipblasZhpr_rank_1(handle,uplo,n,alpha,x,incx,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(:) :: AP + ! + hipblasZhpr_rank_1 = hipblasZhpr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasChpr_64_assumed_rank(handle,uplo,n,alpha,x,incx,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(..) :: AP + ! + hipblasChpr_64_assumed_rank = hipblasChpr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & + c_loc(AP)) + end function + +#else + function hipblasChpr_64_rank_0(handle,uplo,n,alpha,x,incx,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: AP + ! + hipblasChpr_64_rank_0 = hipblasChpr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + end function + + function hipblasChpr_64_rank_1(handle,uplo,n,alpha,x,incx,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(:) :: AP + ! + hipblasChpr_64_rank_1 = hipblasChpr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZhpr_64_assumed_rank(handle,uplo,n,alpha,x,incx,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(..) :: AP + ! + hipblasZhpr_64_assumed_rank = hipblasZhpr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & + c_loc(AP)) + end function + +#else + function hipblasZhpr_64_rank_0(handle,uplo,n,alpha,x,incx,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: AP + ! + hipblasZhpr_64_rank_0 = hipblasZhpr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + end function + + function hipblasZhpr_64_rank_1(handle,uplo,n,alpha,x,incx,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(:) :: AP + ! + hipblasZhpr_64_rank_1 = hipblasZhpr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasChprStridedBatched_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChprStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasChprStridedBatched_assumed_rank = hipblasChprStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + +#else + function hipblasChprStridedBatched_rank_0(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChprStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasChprStridedBatched_rank_0 = hipblasChprStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasChprStridedBatched_rank_1(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChprStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasChprStridedBatched_rank_1 = hipblasChprStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZhprStridedBatched_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhprStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZhprStridedBatched_assumed_rank = hipblasZhprStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + +#else + function hipblasZhprStridedBatched_rank_0(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhprStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZhprStridedBatched_rank_0 = hipblasZhprStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasZhprStridedBatched_rank_1(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhprStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZhprStridedBatched_rank_1 = hipblasZhprStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasChprStridedBatched_64_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,AP, & + strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChprStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasChprStridedBatched_64_assumed_rank = hipblasChprStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + +#else + function hipblasChprStridedBatched_64_rank_0(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChprStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasChprStridedBatched_64_rank_0 = hipblasChprStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasChprStridedBatched_64_rank_1(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChprStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasChprStridedBatched_64_rank_1 = hipblasChprStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZhprStridedBatched_64_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,AP, & + strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhprStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZhprStridedBatched_64_assumed_rank = hipblasZhprStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + +#else + function hipblasZhprStridedBatched_64_rank_0(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhprStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZhprStridedBatched_64_rank_0 = hipblasZhprStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasZhprStridedBatched_64_rank_1(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhprStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZhprStridedBatched_64_rank_1 = hipblasZhprStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasChpr2_assumed_rank(handle,uplo,n,alpha,x,incx,y,incy,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + complex(c_float_complex),target,dimension(..) :: AP + ! + hipblasChpr2_assumed_rank = hipblasChpr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP)) + end function + +#else + function hipblasChpr2_rank_0(handle,uplo,n,alpha,x,incx,y,incy,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: x + integer(c_int) :: incx + complex(c_float_complex),target :: y + integer(c_int) :: incy + complex(c_float_complex),target :: AP + ! + hipblasChpr2_rank_0 = hipblasChpr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP)) + end function + + function hipblasChpr2_rank_1(handle,uplo,n,alpha,x,incx,y,incy,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + complex(c_float_complex),target,dimension(:) :: AP + ! + hipblasChpr2_rank_1 = hipblasChpr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP)) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZhpr2_assumed_rank(handle,uplo,n,alpha,x,incx,y,incy,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + complex(c_double_complex),target,dimension(..) :: AP + ! + hipblasZhpr2_assumed_rank = hipblasZhpr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP)) + end function + +#else + function hipblasZhpr2_rank_0(handle,uplo,n,alpha,x,incx,y,incy,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: x + integer(c_int) :: incx + complex(c_double_complex),target :: y + integer(c_int) :: incy + complex(c_double_complex),target :: AP + ! + hipblasZhpr2_rank_0 = hipblasZhpr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP)) + end function + + function hipblasZhpr2_rank_1(handle,uplo,n,alpha,x,incx,y,incy,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + complex(c_double_complex),target,dimension(:) :: AP + ! + hipblasZhpr2_rank_1 = hipblasZhpr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP)) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasChpr2_64_assumed_rank(handle,uplo,n,alpha,x,incx,y,incy,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + complex(c_float_complex),target,dimension(..) :: AP + ! + hipblasChpr2_64_assumed_rank = hipblasChpr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & + c_loc(y),incy,c_loc(AP)) + end function + +#else + function hipblasChpr2_64_rank_0(handle,uplo,n,alpha,x,incx,y,incy,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + complex(c_float_complex),target :: AP + ! + hipblasChpr2_64_rank_0 = hipblasChpr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP)) + end function + + function hipblasChpr2_64_rank_1(handle,uplo,n,alpha,x,incx,y,incy,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + complex(c_float_complex),target,dimension(:) :: AP + ! + hipblasChpr2_64_rank_1 = hipblasChpr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP)) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZhpr2_64_assumed_rank(handle,uplo,n,alpha,x,incx,y,incy,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + complex(c_double_complex),target,dimension(..) :: AP + ! + hipblasZhpr2_64_assumed_rank = hipblasZhpr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & + c_loc(y),incy,c_loc(AP)) + end function + +#else + function hipblasZhpr2_64_rank_0(handle,uplo,n,alpha,x,incx,y,incy,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + complex(c_double_complex),target :: AP + ! + hipblasZhpr2_64_rank_0 = hipblasZhpr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP)) + end function + + function hipblasZhpr2_64_rank_1(handle,uplo,n,alpha,x,incx,y,incy,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + complex(c_double_complex),target,dimension(:) :: AP + ! + hipblasZhpr2_64_rank_1 = hipblasZhpr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP)) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasChpr2StridedBatched_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2StridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasChpr2StridedBatched_assumed_rank = hipblasChpr2StridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + +#else + function hipblasChpr2StridedBatched_rank_0(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2StridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasChpr2StridedBatched_rank_0 = hipblasChpr2StridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + + function hipblasChpr2StridedBatched_rank_1(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2StridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasChpr2StridedBatched_rank_1 = hipblasChpr2StridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZhpr2StridedBatched_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2StridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZhpr2StridedBatched_assumed_rank = hipblasZhpr2StridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + +#else + function hipblasZhpr2StridedBatched_rank_0(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2StridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZhpr2StridedBatched_rank_0 = hipblasZhpr2StridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + + function hipblasZhpr2StridedBatched_rank_1(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2StridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZhpr2StridedBatched_rank_1 = hipblasZhpr2StridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasChpr2StridedBatched_64_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2StridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasChpr2StridedBatched_64_assumed_rank = hipblasChpr2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + +#else + function hipblasChpr2StridedBatched_64_rank_0(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2StridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasChpr2StridedBatched_64_rank_0 = hipblasChpr2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + + function hipblasChpr2StridedBatched_64_rank_1(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2StridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasChpr2StridedBatched_64_rank_1 = hipblasChpr2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZhpr2StridedBatched_64_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2StridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZhpr2StridedBatched_64_assumed_rank = hipblasZhpr2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + +#else + function hipblasZhpr2StridedBatched_64_rank_0(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2StridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZhpr2StridedBatched_64_rank_0 = hipblasZhpr2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + + function hipblasZhpr2StridedBatched_64_rank_1(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2StridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZhpr2StridedBatched_64_rank_1 = hipblasZhpr2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSsbmv_assumed_rank(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + real(c_float),target :: beta + real(c_float),target,dimension(..) :: y + integer(c_int) :: incy + ! + hipblasSsbmv_assumed_rank = hipblasSsbmv_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + +#else + function hipblasSsbmv_rank_0(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int) :: lda + real(c_float),target :: x + integer(c_int) :: incx + real(c_float),target :: beta + real(c_float),target :: y + integer(c_int) :: incy + ! + hipblasSsbmv_rank_0 = hipblasSsbmv_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasSsbmv_rank_1(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + real(c_float),target :: beta + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasSsbmv_rank_1 = hipblasSsbmv_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasSsbmv_full_rank(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmv_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + real(c_float),target :: beta + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasSsbmv_full_rank = hipblasSsbmv_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDsbmv_assumed_rank(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + real(c_double),target :: beta + real(c_double),target,dimension(..) :: y + integer(c_int) :: incy + ! + hipblasDsbmv_assumed_rank = hipblasDsbmv_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + +#else + function hipblasDsbmv_rank_0(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int) :: lda + real(c_double),target :: x + integer(c_int) :: incx + real(c_double),target :: beta + real(c_double),target :: y + integer(c_int) :: incy + ! + hipblasDsbmv_rank_0 = hipblasDsbmv_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasDsbmv_rank_1(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + real(c_double),target :: beta + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasDsbmv_rank_1 = hipblasDsbmv_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasDsbmv_full_rank(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmv_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + real(c_double),target :: beta + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasDsbmv_full_rank = hipblasDsbmv_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSsbmv_64_assumed_rank(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_float),target :: beta + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy + ! + hipblasSsbmv_64_assumed_rank = hipblasSsbmv_64_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + +#else + function hipblasSsbmv_64_rank_0(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int64_t) :: lda + real(c_float),target :: x + integer(c_int64_t) :: incx + real(c_float),target :: beta + real(c_float),target :: y + integer(c_int64_t) :: incy + ! + hipblasSsbmv_64_rank_0 = hipblasSsbmv_64_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasSsbmv_64_rank_1(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_float),target :: beta + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasSsbmv_64_rank_1 = hipblasSsbmv_64_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasSsbmv_64_full_rank(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmv_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_float),target :: beta + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasSsbmv_64_full_rank = hipblasSsbmv_64_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDsbmv_64_assumed_rank(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_double),target :: beta + real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: incy + ! + hipblasDsbmv_64_assumed_rank = hipblasDsbmv_64_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + +#else + function hipblasDsbmv_64_rank_0(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int64_t) :: lda + real(c_double),target :: x + integer(c_int64_t) :: incx + real(c_double),target :: beta + real(c_double),target :: y + integer(c_int64_t) :: incy + ! + hipblasDsbmv_64_rank_0 = hipblasDsbmv_64_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasDsbmv_64_rank_1(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_double),target :: beta + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasDsbmv_64_rank_1 = hipblasDsbmv_64_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasDsbmv_64_full_rank(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmv_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_double),target :: beta + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasDsbmv_64_full_rank = hipblasDsbmv_64_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSsbmvStridedBatched_assumed_rank(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasSsbmvStridedBatched_assumed_rank = hipblasSsbmvStridedBatched_(handle,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + +#else + function hipblasSsbmvStridedBatched_rank_0(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasSsbmvStridedBatched_rank_0 = hipblasSsbmvStridedBatched_(handle,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasSsbmvStridedBatched_rank_1(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasSsbmvStridedBatched_rank_1 = hipblasSsbmvStridedBatched_(handle,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasSsbmvStridedBatched_full_rank(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmvStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasSsbmvStridedBatched_full_rank = hipblasSsbmvStridedBatched_(handle,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDsbmvStridedBatched_assumed_rank(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasDsbmvStridedBatched_assumed_rank = hipblasDsbmvStridedBatched_(handle,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + +#else + function hipblasDsbmvStridedBatched_rank_0(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasDsbmvStridedBatched_rank_0 = hipblasDsbmvStridedBatched_(handle,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasDsbmvStridedBatched_rank_1(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasDsbmvStridedBatched_rank_1 = hipblasDsbmvStridedBatched_(handle,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasDsbmvStridedBatched_full_rank(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmvStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasDsbmvStridedBatched_full_rank = hipblasDsbmvStridedBatched_(handle,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSsbmvStridedBatched_64_assumed_rank(handle,uplo,n,k,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasSsbmvStridedBatched_64_assumed_rank = hipblasSsbmvStridedBatched_64_(handle,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + +#else + function hipblasSsbmvStridedBatched_64_rank_0(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasSsbmvStridedBatched_64_rank_0 = hipblasSsbmvStridedBatched_64_(handle,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasSsbmvStridedBatched_64_rank_1(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasSsbmvStridedBatched_64_rank_1 = hipblasSsbmvStridedBatched_64_(handle,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasSsbmvStridedBatched_64_full_rank(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmvStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasSsbmvStridedBatched_64_full_rank = hipblasSsbmvStridedBatched_64_(handle,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDsbmvStridedBatched_64_assumed_rank(handle,uplo,n,k,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasDsbmvStridedBatched_64_assumed_rank = hipblasDsbmvStridedBatched_64_(handle,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + +#else + function hipblasDsbmvStridedBatched_64_rank_0(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasDsbmvStridedBatched_64_rank_0 = hipblasDsbmvStridedBatched_64_(handle,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasDsbmvStridedBatched_64_rank_1(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasDsbmvStridedBatched_64_rank_1 = hipblasDsbmvStridedBatched_64_(handle,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasDsbmvStridedBatched_64_full_rank(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmvStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasDsbmvStridedBatched_64_full_rank = hipblasDsbmvStridedBatched_64_(handle,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSspmv_assumed_rank(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + real(c_float),target :: beta + real(c_float),target,dimension(..) :: y + integer(c_int) :: incy + ! + hipblasSspmv_assumed_rank = hipblasSspmv_(handle,uplo,n,c_loc(alpha),c_loc(AP),c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + +#else + function hipblasSspmv_rank_0(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target :: AP + real(c_float),target :: x + integer(c_int) :: incx + real(c_float),target :: beta + real(c_float),target :: y + integer(c_int) :: incy + ! + hipblasSspmv_rank_0 = hipblasSspmv_(handle,uplo,n,c_loc(alpha),c_loc(AP),c_loc(x),incx, & + c_loc(beta),c_loc(y),incy) + end function + + function hipblasSspmv_rank_1(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + real(c_float),target :: beta + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasSspmv_rank_1 = hipblasSspmv_(handle,uplo,n,c_loc(alpha),c_loc(AP),c_loc(x),incx, & + c_loc(beta),c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDspmv_assumed_rank(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + real(c_double),target :: beta + real(c_double),target,dimension(..) :: y + integer(c_int) :: incy + ! + hipblasDspmv_assumed_rank = hipblasDspmv_(handle,uplo,n,c_loc(alpha),c_loc(AP),c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + +#else + function hipblasDspmv_rank_0(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target :: AP + real(c_double),target :: x + integer(c_int) :: incx + real(c_double),target :: beta + real(c_double),target :: y + integer(c_int) :: incy + ! + hipblasDspmv_rank_0 = hipblasDspmv_(handle,uplo,n,c_loc(alpha),c_loc(AP),c_loc(x),incx, & + c_loc(beta),c_loc(y),incy) + end function + + function hipblasDspmv_rank_1(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + real(c_double),target :: beta + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasDspmv_rank_1 = hipblasDspmv_(handle,uplo,n,c_loc(alpha),c_loc(AP),c_loc(x),incx, & + c_loc(beta),c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSspmv_64_assumed_rank(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_float),target :: beta + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy + ! + hipblasSspmv_64_assumed_rank = hipblasSspmv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP), & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + +#else + function hipblasSspmv_64_rank_0(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target :: AP + real(c_float),target :: x + integer(c_int64_t) :: incx + real(c_float),target :: beta + real(c_float),target :: y + integer(c_int64_t) :: incy + ! + hipblasSspmv_64_rank_0 = hipblasSspmv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasSspmv_64_rank_1(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_float),target :: beta + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasSspmv_64_rank_1 = hipblasSspmv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDspmv_64_assumed_rank(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_double),target :: beta + real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: incy + ! + hipblasDspmv_64_assumed_rank = hipblasDspmv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP), & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + +#else + function hipblasDspmv_64_rank_0(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target :: AP + real(c_double),target :: x + integer(c_int64_t) :: incx + real(c_double),target :: beta + real(c_double),target :: y + integer(c_int64_t) :: incy + ! + hipblasDspmv_64_rank_0 = hipblasDspmv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasDspmv_64_rank_1(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_double),target :: beta + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasDspmv_64_rank_1 = hipblasDspmv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSspmvStridedBatched_assumed_rank(handle,uplo,n,alpha,AP,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasSspmvStridedBatched_assumed_rank = hipblasSspmvStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey, & + batchCount) + end function + +#else + function hipblasSspmvStridedBatched_rank_0(handle,uplo,n,alpha,AP,strideA,x,incx,stridex,beta, & + y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int64_t) :: strideA + real(c_float),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasSspmvStridedBatched_rank_0 = hipblasSspmvStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey,batchCount) + end function + + function hipblasSspmvStridedBatched_rank_1(handle,uplo,n,alpha,AP,strideA,x,incx,stridex,beta, & + y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasSspmvStridedBatched_rank_1 = hipblasSspmvStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDspmvStridedBatched_assumed_rank(handle,uplo,n,alpha,AP,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasDspmvStridedBatched_assumed_rank = hipblasDspmvStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey, & + batchCount) + end function + +#else + function hipblasDspmvStridedBatched_rank_0(handle,uplo,n,alpha,AP,strideA,x,incx,stridex,beta, & + y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int64_t) :: strideA + real(c_double),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasDspmvStridedBatched_rank_0 = hipblasDspmvStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey,batchCount) + end function + + function hipblasDspmvStridedBatched_rank_1(handle,uplo,n,alpha,AP,strideA,x,incx,stridex,beta, & + y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasDspmvStridedBatched_rank_1 = hipblasDspmvStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSspmvStridedBatched_64_assumed_rank(handle,uplo,n,alpha,AP,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasSspmvStridedBatched_64_assumed_rank = hipblasSspmvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey, & + batchCount) + end function + +#else + function hipblasSspmvStridedBatched_64_rank_0(handle,uplo,n,alpha,AP,strideA,x,incx,stridex, & + beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int64_t) :: strideA + real(c_float),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasSspmvStridedBatched_64_rank_0 = hipblasSspmvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey, & + batchCount) + end function + + function hipblasSspmvStridedBatched_64_rank_1(handle,uplo,n,alpha,AP,strideA,x,incx,stridex, & + beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasSspmvStridedBatched_64_rank_1 = hipblasSspmvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey, & + batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDspmvStridedBatched_64_assumed_rank(handle,uplo,n,alpha,AP,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasDspmvStridedBatched_64_assumed_rank = hipblasDspmvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey, & + batchCount) + end function + +#else + function hipblasDspmvStridedBatched_64_rank_0(handle,uplo,n,alpha,AP,strideA,x,incx,stridex, & + beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int64_t) :: strideA + real(c_double),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasDspmvStridedBatched_64_rank_0 = hipblasDspmvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey, & + batchCount) + end function + + function hipblasDspmvStridedBatched_64_rank_1(handle,uplo,n,alpha,AP,strideA,x,incx,stridex, & + beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasDspmvStridedBatched_64_rank_1 = hipblasDspmvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey, & + batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSspr_assumed_rank(handle,uplo,n,alpha,x,incx,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + real(c_float),target,dimension(..) :: AP + ! + hipblasSspr_assumed_rank = hipblasSspr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + end function + +#else + function hipblasSspr_rank_0(handle,uplo,n,alpha,x,incx,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target :: x + integer(c_int) :: incx + real(c_float),target :: AP + ! + hipblasSspr_rank_0 = hipblasSspr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + end function + + function hipblasSspr_rank_1(handle,uplo,n,alpha,x,incx,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + real(c_float),target,dimension(:) :: AP + ! + hipblasSspr_rank_1 = hipblasSspr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDspr_assumed_rank(handle,uplo,n,alpha,x,incx,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + real(c_double),target,dimension(..) :: AP + ! + hipblasDspr_assumed_rank = hipblasDspr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + end function + +#else + function hipblasDspr_rank_0(handle,uplo,n,alpha,x,incx,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target :: x + integer(c_int) :: incx + real(c_double),target :: AP + ! + hipblasDspr_rank_0 = hipblasDspr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + end function + + function hipblasDspr_rank_1(handle,uplo,n,alpha,x,incx,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + real(c_double),target,dimension(:) :: AP + ! + hipblasDspr_rank_1 = hipblasDspr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCspr_assumed_rank(handle,uplo,n,alpha,x,incx,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCspr_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(..) :: AP + ! + hipblasCspr_assumed_rank = hipblasCspr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + end function + +#else + function hipblasCspr_rank_0(handle,uplo,n,alpha,x,incx,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCspr_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: x + integer(c_int) :: incx + complex(c_float_complex),target :: AP + ! + hipblasCspr_rank_0 = hipblasCspr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + end function + + function hipblasCspr_rank_1(handle,uplo,n,alpha,x,incx,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCspr_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(:) :: AP + ! + hipblasCspr_rank_1 = hipblasCspr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZspr_assumed_rank(handle,uplo,n,alpha,x,incx,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZspr_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(..) :: AP + ! + hipblasZspr_assumed_rank = hipblasZspr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + end function + +#else + function hipblasZspr_rank_0(handle,uplo,n,alpha,x,incx,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZspr_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: x + integer(c_int) :: incx + complex(c_double_complex),target :: AP + ! + hipblasZspr_rank_0 = hipblasZspr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + end function + + function hipblasZspr_rank_1(handle,uplo,n,alpha,x,incx,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZspr_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(:) :: AP + ! + hipblasZspr_rank_1 = hipblasZspr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSspr_64_assumed_rank(handle,uplo,n,alpha,x,incx,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_float),target,dimension(..) :: AP + ! + hipblasSspr_64_assumed_rank = hipblasSspr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & + c_loc(AP)) + end function + +#else + function hipblasSspr_64_rank_0(handle,uplo,n,alpha,x,incx,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target :: x + integer(c_int64_t) :: incx + real(c_float),target :: AP + ! + hipblasSspr_64_rank_0 = hipblasSspr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + end function + + function hipblasSspr_64_rank_1(handle,uplo,n,alpha,x,incx,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_float),target,dimension(:) :: AP + ! + hipblasSspr_64_rank_1 = hipblasSspr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDspr_64_assumed_rank(handle,uplo,n,alpha,x,incx,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_double),target,dimension(..) :: AP + ! + hipblasDspr_64_assumed_rank = hipblasDspr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & + c_loc(AP)) + end function + +#else + function hipblasDspr_64_rank_0(handle,uplo,n,alpha,x,incx,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target :: x + integer(c_int64_t) :: incx + real(c_double),target :: AP + ! + hipblasDspr_64_rank_0 = hipblasDspr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + end function + + function hipblasDspr_64_rank_1(handle,uplo,n,alpha,x,incx,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_double),target,dimension(:) :: AP + ! + hipblasDspr_64_rank_1 = hipblasDspr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCspr_64_assumed_rank(handle,uplo,n,alpha,x,incx,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCspr_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(..) :: AP + ! + hipblasCspr_64_assumed_rank = hipblasCspr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & + c_loc(AP)) + end function + +#else + function hipblasCspr_64_rank_0(handle,uplo,n,alpha,x,incx,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCspr_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: AP + ! + hipblasCspr_64_rank_0 = hipblasCspr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + end function + + function hipblasCspr_64_rank_1(handle,uplo,n,alpha,x,incx,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCspr_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(:) :: AP + ! + hipblasCspr_64_rank_1 = hipblasCspr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZspr_64_assumed_rank(handle,uplo,n,alpha,x,incx,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZspr_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(..) :: AP + ! + hipblasZspr_64_assumed_rank = hipblasZspr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & + c_loc(AP)) + end function + +#else + function hipblasZspr_64_rank_0(handle,uplo,n,alpha,x,incx,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZspr_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: AP + ! + hipblasZspr_64_rank_0 = hipblasZspr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + end function + + function hipblasZspr_64_rank_1(handle,uplo,n,alpha,x,incx,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZspr_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(:) :: AP + ! + hipblasZspr_64_rank_1 = hipblasZspr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSsprStridedBatched_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsprStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasSsprStridedBatched_assumed_rank = hipblasSsprStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + +#else + function hipblasSsprStridedBatched_rank_0(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsprStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasSsprStridedBatched_rank_0 = hipblasSsprStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasSsprStridedBatched_rank_1(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsprStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasSsprStridedBatched_rank_1 = hipblasSsprStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDsprStridedBatched_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsprStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasDsprStridedBatched_assumed_rank = hipblasDsprStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + +#else + function hipblasDsprStridedBatched_rank_0(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsprStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasDsprStridedBatched_rank_0 = hipblasDsprStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasDsprStridedBatched_rank_1(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsprStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasDsprStridedBatched_rank_1 = hipblasDsprStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCsprStridedBatched_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsprStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCsprStridedBatched_assumed_rank = hipblasCsprStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + +#else + function hipblasCsprStridedBatched_rank_0(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsprStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCsprStridedBatched_rank_0 = hipblasCsprStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasCsprStridedBatched_rank_1(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsprStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCsprStridedBatched_rank_1 = hipblasCsprStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZsprStridedBatched_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsprStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZsprStridedBatched_assumed_rank = hipblasZsprStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + +#else + function hipblasZsprStridedBatched_rank_0(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsprStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZsprStridedBatched_rank_0 = hipblasZsprStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasZsprStridedBatched_rank_1(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsprStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZsprStridedBatched_rank_1 = hipblasZsprStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSsprStridedBatched_64_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,AP, & + strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsprStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasSsprStridedBatched_64_assumed_rank = hipblasSsprStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + +#else + function hipblasSsprStridedBatched_64_rank_0(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsprStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasSsprStridedBatched_64_rank_0 = hipblasSsprStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasSsprStridedBatched_64_rank_1(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsprStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasSsprStridedBatched_64_rank_1 = hipblasSsprStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDsprStridedBatched_64_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,AP, & + strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsprStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasDsprStridedBatched_64_assumed_rank = hipblasDsprStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + +#else + function hipblasDsprStridedBatched_64_rank_0(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsprStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasDsprStridedBatched_64_rank_0 = hipblasDsprStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasDsprStridedBatched_64_rank_1(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsprStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasDsprStridedBatched_64_rank_1 = hipblasDsprStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCsprStridedBatched_64_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,AP, & + strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsprStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCsprStridedBatched_64_assumed_rank = hipblasCsprStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + +#else + function hipblasCsprStridedBatched_64_rank_0(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsprStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCsprStridedBatched_64_rank_0 = hipblasCsprStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasCsprStridedBatched_64_rank_1(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsprStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCsprStridedBatched_64_rank_1 = hipblasCsprStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZsprStridedBatched_64_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,AP, & + strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsprStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZsprStridedBatched_64_assumed_rank = hipblasZsprStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + +#else + function hipblasZsprStridedBatched_64_rank_0(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsprStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZsprStridedBatched_64_rank_0 = hipblasZsprStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasZsprStridedBatched_64_rank_1(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsprStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZsprStridedBatched_64_rank_1 = hipblasZsprStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSspr2_assumed_rank(handle,uplo,n,alpha,x,incx,y,incy,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + real(c_float),target,dimension(..) :: y + integer(c_int) :: incy + real(c_float),target,dimension(..) :: AP + ! + hipblasSspr2_assumed_rank = hipblasSspr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP)) + end function + +#else + function hipblasSspr2_rank_0(handle,uplo,n,alpha,x,incx,y,incy,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target :: x + integer(c_int) :: incx + real(c_float),target :: y + integer(c_int) :: incy + real(c_float),target :: AP + ! + hipblasSspr2_rank_0 = hipblasSspr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP)) + end function + + function hipblasSspr2_rank_1(handle,uplo,n,alpha,x,incx,y,incy,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + real(c_float),target,dimension(:) :: AP + ! + hipblasSspr2_rank_1 = hipblasSspr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP)) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDspr2_assumed_rank(handle,uplo,n,alpha,x,incx,y,incy,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + real(c_double),target,dimension(..) :: y + integer(c_int) :: incy + real(c_double),target,dimension(..) :: AP + ! + hipblasDspr2_assumed_rank = hipblasDspr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP)) + end function + +#else + function hipblasDspr2_rank_0(handle,uplo,n,alpha,x,incx,y,incy,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target :: x + integer(c_int) :: incx + real(c_double),target :: y + integer(c_int) :: incy + real(c_double),target :: AP + ! + hipblasDspr2_rank_0 = hipblasDspr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP)) + end function + + function hipblasDspr2_rank_1(handle,uplo,n,alpha,x,incx,y,incy,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + real(c_double),target,dimension(:) :: AP + ! + hipblasDspr2_rank_1 = hipblasDspr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP)) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSspr2_64_assumed_rank(handle,uplo,n,alpha,x,incx,y,incy,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy + real(c_float),target,dimension(..) :: AP + ! + hipblasSspr2_64_assumed_rank = hipblasSspr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & + c_loc(y),incy,c_loc(AP)) + end function + +#else + function hipblasSspr2_64_rank_0(handle,uplo,n,alpha,x,incx,y,incy,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target :: x + integer(c_int64_t) :: incx + real(c_float),target :: y + integer(c_int64_t) :: incy + real(c_float),target :: AP + ! + hipblasSspr2_64_rank_0 = hipblasSspr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP)) + end function + + function hipblasSspr2_64_rank_1(handle,uplo,n,alpha,x,incx,y,incy,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + real(c_float),target,dimension(:) :: AP + ! + hipblasSspr2_64_rank_1 = hipblasSspr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP)) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDspr2_64_assumed_rank(handle,uplo,n,alpha,x,incx,y,incy,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: incy + real(c_double),target,dimension(..) :: AP + ! + hipblasDspr2_64_assumed_rank = hipblasDspr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & + c_loc(y),incy,c_loc(AP)) + end function + +#else + function hipblasDspr2_64_rank_0(handle,uplo,n,alpha,x,incx,y,incy,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target :: x + integer(c_int64_t) :: incx + real(c_double),target :: y + integer(c_int64_t) :: incy + real(c_double),target :: AP + ! + hipblasDspr2_64_rank_0 = hipblasDspr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP)) + end function + + function hipblasDspr2_64_rank_1(handle,uplo,n,alpha,x,incx,y,incy,AP) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + real(c_double),target,dimension(:) :: AP + ! + hipblasDspr2_64_rank_1 = hipblasDspr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP)) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSspr2StridedBatched_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2StridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasSspr2StridedBatched_assumed_rank = hipblasSspr2StridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + +#else + function hipblasSspr2StridedBatched_rank_0(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2StridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_float),target :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasSspr2StridedBatched_rank_0 = hipblasSspr2StridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + + function hipblasSspr2StridedBatched_rank_1(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2StridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasSspr2StridedBatched_rank_1 = hipblasSspr2StridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDspr2StridedBatched_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2StridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasDspr2StridedBatched_assumed_rank = hipblasDspr2StridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + +#else + function hipblasDspr2StridedBatched_rank_0(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2StridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_double),target :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasDspr2StridedBatched_rank_0 = hipblasDspr2StridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + + function hipblasDspr2StridedBatched_rank_1(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2StridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasDspr2StridedBatched_rank_1 = hipblasDspr2StridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSspr2StridedBatched_64_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2StridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasSspr2StridedBatched_64_assumed_rank = hipblasSspr2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + +#else + function hipblasSspr2StridedBatched_64_rank_0(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2StridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_float),target :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasSspr2StridedBatched_64_rank_0 = hipblasSspr2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + + function hipblasSspr2StridedBatched_64_rank_1(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2StridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasSspr2StridedBatched_64_rank_1 = hipblasSspr2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDspr2StridedBatched_64_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2StridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasDspr2StridedBatched_64_assumed_rank = hipblasDspr2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + +#else + function hipblasDspr2StridedBatched_64_rank_0(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2StridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_double),target :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasDspr2StridedBatched_64_rank_0 = hipblasDspr2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + + function hipblasDspr2StridedBatched_64_rank_1(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2StridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasDspr2StridedBatched_64_rank_1 = hipblasDspr2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSsymv_assumed_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + real(c_float),target :: beta + real(c_float),target,dimension(..) :: y + integer(c_int) :: incy + ! + hipblasSsymv_assumed_rank = hipblasSsymv_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + +#else + function hipblasSsymv_rank_0(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int) :: lda + real(c_float),target :: x + integer(c_int) :: incx + real(c_float),target :: beta + real(c_float),target :: y + integer(c_int) :: incy + ! + hipblasSsymv_rank_0 = hipblasSsymv_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x),incx, & + c_loc(beta),c_loc(y),incy) + end function + + function hipblasSsymv_rank_1(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + real(c_float),target :: beta + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasSsymv_rank_1 = hipblasSsymv_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x),incx, & + c_loc(beta),c_loc(y),incy) + end function + + function hipblasSsymv_full_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymv_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + real(c_float),target :: beta + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasSsymv_full_rank = hipblasSsymv_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDsymv_assumed_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + real(c_double),target :: beta + real(c_double),target,dimension(..) :: y + integer(c_int) :: incy + ! + hipblasDsymv_assumed_rank = hipblasDsymv_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + +#else + function hipblasDsymv_rank_0(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int) :: lda + real(c_double),target :: x + integer(c_int) :: incx + real(c_double),target :: beta + real(c_double),target :: y + integer(c_int) :: incy + ! + hipblasDsymv_rank_0 = hipblasDsymv_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x),incx, & + c_loc(beta),c_loc(y),incy) + end function + + function hipblasDsymv_rank_1(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + real(c_double),target :: beta + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasDsymv_rank_1 = hipblasDsymv_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x),incx, & + c_loc(beta),c_loc(y),incy) + end function + + function hipblasDsymv_full_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymv_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + real(c_double),target :: beta + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasDsymv_full_rank = hipblasDsymv_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCsymv_assumed_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + ! + hipblasCsymv_assumed_rank = hipblasCsymv_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + +#else + function hipblasCsymv_rank_0(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + complex(c_float_complex),target :: x + integer(c_int) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: y + integer(c_int) :: incy + ! + hipblasCsymv_rank_0 = hipblasCsymv_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x),incx, & + c_loc(beta),c_loc(y),incy) + end function + + function hipblasCsymv_rank_1(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasCsymv_rank_1 = hipblasCsymv_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x),incx, & + c_loc(beta),c_loc(y),incy) + end function + + function hipblasCsymv_full_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymv_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasCsymv_full_rank = hipblasCsymv_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZsymv_assumed_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + ! + hipblasZsymv_assumed_rank = hipblasZsymv_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + +#else + function hipblasZsymv_rank_0(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int) :: lda + complex(c_double_complex),target :: x + integer(c_int) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: y + integer(c_int) :: incy + ! + hipblasZsymv_rank_0 = hipblasZsymv_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x),incx, & + c_loc(beta),c_loc(y),incy) + end function + + function hipblasZsymv_rank_1(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasZsymv_rank_1 = hipblasZsymv_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x),incx, & + c_loc(beta),c_loc(y),incy) + end function + + function hipblasZsymv_full_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymv_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasZsymv_full_rank = hipblasZsymv_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSsymv_64_assumed_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_float),target :: beta + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy + ! + hipblasSsymv_64_assumed_rank = hipblasSsymv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + +#else + function hipblasSsymv_64_rank_0(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int64_t) :: lda + real(c_float),target :: x + integer(c_int64_t) :: incx + real(c_float),target :: beta + real(c_float),target :: y + integer(c_int64_t) :: incy + ! + hipblasSsymv_64_rank_0 = hipblasSsymv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasSsymv_64_rank_1(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_float),target :: beta + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasSsymv_64_rank_1 = hipblasSsymv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasSsymv_64_full_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymv_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_float),target :: beta + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasSsymv_64_full_rank = hipblasSsymv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDsymv_64_assumed_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_double),target :: beta + real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: incy + ! + hipblasDsymv_64_assumed_rank = hipblasDsymv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + +#else + function hipblasDsymv_64_rank_0(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int64_t) :: lda + real(c_double),target :: x + integer(c_int64_t) :: incx + real(c_double),target :: beta + real(c_double),target :: y + integer(c_int64_t) :: incy + ! + hipblasDsymv_64_rank_0 = hipblasDsymv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasDsymv_64_rank_1(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_double),target :: beta + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasDsymv_64_rank_1 = hipblasDsymv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasDsymv_64_full_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymv_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_double),target :: beta + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasDsymv_64_full_rank = hipblasDsymv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCsymv_64_assumed_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + ! + hipblasCsymv_64_assumed_rank = hipblasCsymv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + +#else + function hipblasCsymv_64_rank_0(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + ! + hipblasCsymv_64_rank_0 = hipblasCsymv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasCsymv_64_rank_1(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasCsymv_64_rank_1 = hipblasCsymv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasCsymv_64_full_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymv_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasCsymv_64_full_rank = hipblasCsymv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZsymv_64_assumed_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + ! + hipblasZsymv_64_assumed_rank = hipblasZsymv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + +#else + function hipblasZsymv_64_rank_0(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + ! + hipblasZsymv_64_rank_0 = hipblasZsymv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasZsymv_64_rank_1(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasZsymv_64_rank_1 = hipblasZsymv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasZsymv_64_full_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymv_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasZsymv_64_full_rank = hipblasZsymv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSsymvStridedBatched_assumed_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasSsymvStridedBatched_assumed_rank = hipblasSsymvStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + +#else + function hipblasSsymvStridedBatched_rank_0(handle,uplo,n,alpha,AP,lda,strideA,x,incx,stridex, & + beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasSsymvStridedBatched_rank_0 = hipblasSsymvStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey,batchCount) + end function + + function hipblasSsymvStridedBatched_rank_1(handle,uplo,n,alpha,AP,lda,strideA,x,incx,stridex, & + beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasSsymvStridedBatched_rank_1 = hipblasSsymvStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey,batchCount) + end function + + function hipblasSsymvStridedBatched_full_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymvStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasSsymvStridedBatched_full_rank = hipblasSsymvStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDsymvStridedBatched_assumed_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasDsymvStridedBatched_assumed_rank = hipblasDsymvStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + +#else + function hipblasDsymvStridedBatched_rank_0(handle,uplo,n,alpha,AP,lda,strideA,x,incx,stridex, & + beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasDsymvStridedBatched_rank_0 = hipblasDsymvStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey,batchCount) + end function + + function hipblasDsymvStridedBatched_rank_1(handle,uplo,n,alpha,AP,lda,strideA,x,incx,stridex, & + beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasDsymvStridedBatched_rank_1 = hipblasDsymvStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey,batchCount) + end function + + function hipblasDsymvStridedBatched_full_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymvStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasDsymvStridedBatched_full_rank = hipblasDsymvStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCsymvStridedBatched_assumed_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasCsymvStridedBatched_assumed_rank = hipblasCsymvStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + +#else + function hipblasCsymvStridedBatched_rank_0(handle,uplo,n,alpha,AP,lda,strideA,x,incx,stridex, & + beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasCsymvStridedBatched_rank_0 = hipblasCsymvStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey,batchCount) + end function + + function hipblasCsymvStridedBatched_rank_1(handle,uplo,n,alpha,AP,lda,strideA,x,incx,stridex, & + beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasCsymvStridedBatched_rank_1 = hipblasCsymvStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey,batchCount) + end function + + function hipblasCsymvStridedBatched_full_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymvStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasCsymvStridedBatched_full_rank = hipblasCsymvStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZsymvStridedBatched_assumed_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZsymvStridedBatched_assumed_rank = hipblasZsymvStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + +#else + function hipblasZsymvStridedBatched_rank_0(handle,uplo,n,alpha,AP,lda,strideA,x,incx,stridex, & + beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZsymvStridedBatched_rank_0 = hipblasZsymvStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey,batchCount) + end function + + function hipblasZsymvStridedBatched_rank_1(handle,uplo,n,alpha,AP,lda,strideA,x,incx,stridex, & + beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZsymvStridedBatched_rank_1 = hipblasZsymvStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey,batchCount) + end function + + function hipblasZsymvStridedBatched_full_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymvStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZsymvStridedBatched_full_rank = hipblasZsymvStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSsymvStridedBatched_64_assumed_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasSsymvStridedBatched_64_assumed_rank = hipblasSsymvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + +#else + function hipblasSsymvStridedBatched_64_rank_0(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasSsymvStridedBatched_64_rank_0 = hipblasSsymvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasSsymvStridedBatched_64_rank_1(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasSsymvStridedBatched_64_rank_1 = hipblasSsymvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasSsymvStridedBatched_64_full_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymvStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasSsymvStridedBatched_64_full_rank = hipblasSsymvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDsymvStridedBatched_64_assumed_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasDsymvStridedBatched_64_assumed_rank = hipblasDsymvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + +#else + function hipblasDsymvStridedBatched_64_rank_0(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasDsymvStridedBatched_64_rank_0 = hipblasDsymvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasDsymvStridedBatched_64_rank_1(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasDsymvStridedBatched_64_rank_1 = hipblasDsymvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasDsymvStridedBatched_64_full_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymvStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasDsymvStridedBatched_64_full_rank = hipblasDsymvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCsymvStridedBatched_64_assumed_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasCsymvStridedBatched_64_assumed_rank = hipblasCsymvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + +#else + function hipblasCsymvStridedBatched_64_rank_0(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasCsymvStridedBatched_64_rank_0 = hipblasCsymvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasCsymvStridedBatched_64_rank_1(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasCsymvStridedBatched_64_rank_1 = hipblasCsymvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasCsymvStridedBatched_64_full_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymvStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasCsymvStridedBatched_64_full_rank = hipblasCsymvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZsymvStridedBatched_64_assumed_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZsymvStridedBatched_64_assumed_rank = hipblasZsymvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + +#else + function hipblasZsymvStridedBatched_64_rank_0(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZsymvStridedBatched_64_rank_0 = hipblasZsymvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasZsymvStridedBatched_64_rank_1(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZsymvStridedBatched_64_rank_1 = hipblasZsymvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasZsymvStridedBatched_64_full_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymvStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZsymvStridedBatched_64_full_rank = hipblasZsymvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSsyr_assumed_rank(handle,uplo,n,alpha,x,incx,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + ! + hipblasSsyr_assumed_rank = hipblasSsyr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP), & + lda) + end function + +#else + function hipblasSsyr_rank_0(handle,uplo,n,alpha,x,incx,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target :: x + integer(c_int) :: incx + real(c_float),target :: AP + integer(c_int) :: lda + ! + hipblasSsyr_rank_0 = hipblasSsyr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP),lda) + end function + + function hipblasSsyr_rank_1(handle,uplo,n,alpha,x,incx,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + ! + hipblasSsyr_rank_1 = hipblasSsyr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP),lda) + end function + + function hipblasSsyr_full_rank(handle,uplo,n,alpha,x,incx,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + ! + hipblasSsyr_full_rank = hipblasSsyr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP),lda) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDsyr_assumed_rank(handle,uplo,n,alpha,x,incx,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + ! + hipblasDsyr_assumed_rank = hipblasDsyr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP), & + lda) + end function + +#else + function hipblasDsyr_rank_0(handle,uplo,n,alpha,x,incx,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target :: x + integer(c_int) :: incx + real(c_double),target :: AP + integer(c_int) :: lda + ! + hipblasDsyr_rank_0 = hipblasDsyr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP),lda) + end function + + function hipblasDsyr_rank_1(handle,uplo,n,alpha,x,incx,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + ! + hipblasDsyr_rank_1 = hipblasDsyr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP),lda) + end function + + function hipblasDsyr_full_rank(handle,uplo,n,alpha,x,incx,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + ! + hipblasDsyr_full_rank = hipblasDsyr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP),lda) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCsyr_assumed_rank(handle,uplo,n,alpha,x,incx,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + ! + hipblasCsyr_assumed_rank = hipblasCsyr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP), & + lda) + end function + +#else + function hipblasCsyr_rank_0(handle,uplo,n,alpha,x,incx,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: x + integer(c_int) :: incx + complex(c_float_complex),target :: AP + integer(c_int) :: lda + ! + hipblasCsyr_rank_0 = hipblasCsyr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP),lda) + end function + + function hipblasCsyr_rank_1(handle,uplo,n,alpha,x,incx,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + ! + hipblasCsyr_rank_1 = hipblasCsyr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP),lda) + end function + + function hipblasCsyr_full_rank(handle,uplo,n,alpha,x,incx,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + ! + hipblasCsyr_full_rank = hipblasCsyr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP),lda) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZsyr_assumed_rank(handle,uplo,n,alpha,x,incx,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + ! + hipblasZsyr_assumed_rank = hipblasZsyr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP), & + lda) + end function + +#else + function hipblasZsyr_rank_0(handle,uplo,n,alpha,x,incx,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: x + integer(c_int) :: incx + complex(c_double_complex),target :: AP + integer(c_int) :: lda + ! + hipblasZsyr_rank_0 = hipblasZsyr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP),lda) + end function + + function hipblasZsyr_rank_1(handle,uplo,n,alpha,x,incx,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + ! + hipblasZsyr_rank_1 = hipblasZsyr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP),lda) + end function + + function hipblasZsyr_full_rank(handle,uplo,n,alpha,x,incx,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + ! + hipblasZsyr_full_rank = hipblasZsyr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP),lda) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSsyr_64_assumed_rank(handle,uplo,n,alpha,x,incx,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + ! + hipblasSsyr_64_assumed_rank = hipblasSsyr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & + c_loc(AP),lda) + end function + +#else + function hipblasSsyr_64_rank_0(handle,uplo,n,alpha,x,incx,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target :: x + integer(c_int64_t) :: incx + real(c_float),target :: AP + integer(c_int64_t) :: lda + ! + hipblasSsyr_64_rank_0 = hipblasSsyr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP), & + lda) + end function + + function hipblasSsyr_64_rank_1(handle,uplo,n,alpha,x,incx,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + ! + hipblasSsyr_64_rank_1 = hipblasSsyr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP), & + lda) + end function + + function hipblasSsyr_64_full_rank(handle,uplo,n,alpha,x,incx,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + ! + hipblasSsyr_64_full_rank = hipblasSsyr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & + c_loc(AP),lda) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDsyr_64_assumed_rank(handle,uplo,n,alpha,x,incx,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + ! + hipblasDsyr_64_assumed_rank = hipblasDsyr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & + c_loc(AP),lda) + end function + +#else + function hipblasDsyr_64_rank_0(handle,uplo,n,alpha,x,incx,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target :: x + integer(c_int64_t) :: incx + real(c_double),target :: AP + integer(c_int64_t) :: lda + ! + hipblasDsyr_64_rank_0 = hipblasDsyr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP), & + lda) + end function + + function hipblasDsyr_64_rank_1(handle,uplo,n,alpha,x,incx,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + ! + hipblasDsyr_64_rank_1 = hipblasDsyr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP), & + lda) + end function + + function hipblasDsyr_64_full_rank(handle,uplo,n,alpha,x,incx,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + ! + hipblasDsyr_64_full_rank = hipblasDsyr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & + c_loc(AP),lda) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCsyr_64_assumed_rank(handle,uplo,n,alpha,x,incx,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + ! + hipblasCsyr_64_assumed_rank = hipblasCsyr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & + c_loc(AP),lda) + end function + +#else + function hipblasCsyr_64_rank_0(handle,uplo,n,alpha,x,incx,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + ! + hipblasCsyr_64_rank_0 = hipblasCsyr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP), & + lda) + end function + + function hipblasCsyr_64_rank_1(handle,uplo,n,alpha,x,incx,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + ! + hipblasCsyr_64_rank_1 = hipblasCsyr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP), & + lda) + end function + + function hipblasCsyr_64_full_rank(handle,uplo,n,alpha,x,incx,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + ! + hipblasCsyr_64_full_rank = hipblasCsyr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & + c_loc(AP),lda) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZsyr_64_assumed_rank(handle,uplo,n,alpha,x,incx,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + ! + hipblasZsyr_64_assumed_rank = hipblasZsyr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & + c_loc(AP),lda) + end function + +#else + function hipblasZsyr_64_rank_0(handle,uplo,n,alpha,x,incx,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + ! + hipblasZsyr_64_rank_0 = hipblasZsyr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP), & + lda) + end function + + function hipblasZsyr_64_rank_1(handle,uplo,n,alpha,x,incx,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + ! + hipblasZsyr_64_rank_1 = hipblasZsyr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP), & + lda) + end function + + function hipblasZsyr_64_full_rank(handle,uplo,n,alpha,x,incx,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + ! + hipblasZsyr_64_full_rank = hipblasZsyr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & + c_loc(AP),lda) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSsyrStridedBatched_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasSsyrStridedBatched_assumed_rank = hipblasSsyrStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + +#else + function hipblasSsyrStridedBatched_rank_0(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasSsyrStridedBatched_rank_0 = hipblasSsyrStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasSsyrStridedBatched_rank_1(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasSsyrStridedBatched_rank_1 = hipblasSsyrStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasSsyrStridedBatched_full_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasSsyrStridedBatched_full_rank = hipblasSsyrStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDsyrStridedBatched_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasDsyrStridedBatched_assumed_rank = hipblasDsyrStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + +#else + function hipblasDsyrStridedBatched_rank_0(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasDsyrStridedBatched_rank_0 = hipblasDsyrStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasDsyrStridedBatched_rank_1(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasDsyrStridedBatched_rank_1 = hipblasDsyrStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasDsyrStridedBatched_full_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasDsyrStridedBatched_full_rank = hipblasDsyrStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCsyrStridedBatched_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCsyrStridedBatched_assumed_rank = hipblasCsyrStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + +#else + function hipblasCsyrStridedBatched_rank_0(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCsyrStridedBatched_rank_0 = hipblasCsyrStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCsyrStridedBatched_rank_1(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCsyrStridedBatched_rank_1 = hipblasCsyrStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCsyrStridedBatched_full_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCsyrStridedBatched_full_rank = hipblasCsyrStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZsyrStridedBatched_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZsyrStridedBatched_assumed_rank = hipblasZsyrStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + +#else + function hipblasZsyrStridedBatched_rank_0(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZsyrStridedBatched_rank_0 = hipblasZsyrStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZsyrStridedBatched_rank_1(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZsyrStridedBatched_rank_1 = hipblasZsyrStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZsyrStridedBatched_full_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZsyrStridedBatched_full_rank = hipblasZsyrStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSsyrStridedBatched_64_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasSsyrStridedBatched_64_assumed_rank = hipblasSsyrStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + +#else + function hipblasSsyrStridedBatched_64_rank_0(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasSsyrStridedBatched_64_rank_0 = hipblasSsyrStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasSsyrStridedBatched_64_rank_1(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasSsyrStridedBatched_64_rank_1 = hipblasSsyrStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasSsyrStridedBatched_64_full_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasSsyrStridedBatched_64_full_rank = hipblasSsyrStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDsyrStridedBatched_64_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasDsyrStridedBatched_64_assumed_rank = hipblasDsyrStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + +#else + function hipblasDsyrStridedBatched_64_rank_0(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasDsyrStridedBatched_64_rank_0 = hipblasDsyrStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasDsyrStridedBatched_64_rank_1(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasDsyrStridedBatched_64_rank_1 = hipblasDsyrStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasDsyrStridedBatched_64_full_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasDsyrStridedBatched_64_full_rank = hipblasDsyrStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCsyrStridedBatched_64_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCsyrStridedBatched_64_assumed_rank = hipblasCsyrStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + +#else + function hipblasCsyrStridedBatched_64_rank_0(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCsyrStridedBatched_64_rank_0 = hipblasCsyrStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCsyrStridedBatched_64_rank_1(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCsyrStridedBatched_64_rank_1 = hipblasCsyrStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCsyrStridedBatched_64_full_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCsyrStridedBatched_64_full_rank = hipblasCsyrStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZsyrStridedBatched_64_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZsyrStridedBatched_64_assumed_rank = hipblasZsyrStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + +#else + function hipblasZsyrStridedBatched_64_rank_0(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZsyrStridedBatched_64_rank_0 = hipblasZsyrStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZsyrStridedBatched_64_rank_1(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZsyrStridedBatched_64_rank_1 = hipblasZsyrStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZsyrStridedBatched_64_full_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZsyrStridedBatched_64_full_rank = hipblasZsyrStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSsyr2_assumed_rank(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + real(c_float),target,dimension(..) :: y + integer(c_int) :: incy + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + ! + hipblasSsyr2_assumed_rank = hipblasSsyr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + +#else + function hipblasSsyr2_rank_0(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target :: x + integer(c_int) :: incx + real(c_float),target :: y + integer(c_int) :: incy + real(c_float),target :: AP + integer(c_int) :: lda + ! + hipblasSsyr2_rank_0 = hipblasSsyr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) + end function + + function hipblasSsyr2_rank_1(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + ! + hipblasSsyr2_rank_1 = hipblasSsyr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) + end function + + function hipblasSsyr2_full_rank(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + ! + hipblasSsyr2_full_rank = hipblasSsyr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDsyr2_assumed_rank(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + real(c_double),target,dimension(..) :: y + integer(c_int) :: incy + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + ! + hipblasDsyr2_assumed_rank = hipblasDsyr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + +#else + function hipblasDsyr2_rank_0(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target :: x + integer(c_int) :: incx + real(c_double),target :: y + integer(c_int) :: incy + real(c_double),target :: AP + integer(c_int) :: lda + ! + hipblasDsyr2_rank_0 = hipblasDsyr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) + end function + + function hipblasDsyr2_rank_1(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + ! + hipblasDsyr2_rank_1 = hipblasDsyr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) + end function + + function hipblasDsyr2_full_rank(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + ! + hipblasDsyr2_full_rank = hipblasDsyr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCsyr2_assumed_rank(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + ! + hipblasCsyr2_assumed_rank = hipblasCsyr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + +#else + function hipblasCsyr2_rank_0(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: x + integer(c_int) :: incx + complex(c_float_complex),target :: y + integer(c_int) :: incy + complex(c_float_complex),target :: AP + integer(c_int) :: lda + ! + hipblasCsyr2_rank_0 = hipblasCsyr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) + end function + + function hipblasCsyr2_rank_1(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + ! + hipblasCsyr2_rank_1 = hipblasCsyr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) + end function + + function hipblasCsyr2_full_rank(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + ! + hipblasCsyr2_full_rank = hipblasCsyr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZsyr2_assumed_rank(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + ! + hipblasZsyr2_assumed_rank = hipblasZsyr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + +#else + function hipblasZsyr2_rank_0(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: x + integer(c_int) :: incx + complex(c_double_complex),target :: y + integer(c_int) :: incy + complex(c_double_complex),target :: AP + integer(c_int) :: lda + ! + hipblasZsyr2_rank_0 = hipblasZsyr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) + end function + + function hipblasZsyr2_rank_1(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + ! + hipblasZsyr2_rank_1 = hipblasZsyr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) + end function + + function hipblasZsyr2_full_rank(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + ! + hipblasZsyr2_full_rank = hipblasZsyr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSsyr2_64_assumed_rank(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + ! + hipblasSsyr2_64_assumed_rank = hipblasSsyr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & + c_loc(y),incy,c_loc(AP),lda) + end function + +#else + function hipblasSsyr2_64_rank_0(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target :: x + integer(c_int64_t) :: incx + real(c_float),target :: y + integer(c_int64_t) :: incy + real(c_float),target :: AP + integer(c_int64_t) :: lda + ! + hipblasSsyr2_64_rank_0 = hipblasSsyr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + + function hipblasSsyr2_64_rank_1(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + ! + hipblasSsyr2_64_rank_1 = hipblasSsyr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + + function hipblasSsyr2_64_full_rank(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + ! + hipblasSsyr2_64_full_rank = hipblasSsyr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & + c_loc(y),incy,c_loc(AP),lda) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDsyr2_64_assumed_rank(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: incy + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + ! + hipblasDsyr2_64_assumed_rank = hipblasDsyr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & + c_loc(y),incy,c_loc(AP),lda) + end function + +#else + function hipblasDsyr2_64_rank_0(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target :: x + integer(c_int64_t) :: incx + real(c_double),target :: y + integer(c_int64_t) :: incy + real(c_double),target :: AP + integer(c_int64_t) :: lda + ! + hipblasDsyr2_64_rank_0 = hipblasDsyr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + + function hipblasDsyr2_64_rank_1(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + ! + hipblasDsyr2_64_rank_1 = hipblasDsyr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + + function hipblasDsyr2_64_full_rank(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + ! + hipblasDsyr2_64_full_rank = hipblasDsyr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & + c_loc(y),incy,c_loc(AP),lda) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCsyr2_64_assumed_rank(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + ! + hipblasCsyr2_64_assumed_rank = hipblasCsyr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & + c_loc(y),incy,c_loc(AP),lda) + end function + +#else + function hipblasCsyr2_64_rank_0(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + ! + hipblasCsyr2_64_rank_0 = hipblasCsyr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + + function hipblasCsyr2_64_rank_1(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + ! + hipblasCsyr2_64_rank_1 = hipblasCsyr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + + function hipblasCsyr2_64_full_rank(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + ! + hipblasCsyr2_64_full_rank = hipblasCsyr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & + c_loc(y),incy,c_loc(AP),lda) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZsyr2_64_assumed_rank(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + ! + hipblasZsyr2_64_assumed_rank = hipblasZsyr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & + c_loc(y),incy,c_loc(AP),lda) + end function + +#else + function hipblasZsyr2_64_rank_0(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + ! + hipblasZsyr2_64_rank_0 = hipblasZsyr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + + function hipblasZsyr2_64_rank_1(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + ! + hipblasZsyr2_64_rank_1 = hipblasZsyr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + + function hipblasZsyr2_64_full_rank(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + ! + hipblasZsyr2_64_full_rank = hipblasZsyr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & + c_loc(y),incy,c_loc(AP),lda) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSsyr2StridedBatched_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2StridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasSsyr2StridedBatched_assumed_rank = hipblasSsyr2StridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#else + function hipblasSsyr2StridedBatched_rank_0(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2StridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_float),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasSsyr2StridedBatched_rank_0 = hipblasSsyr2StridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasSsyr2StridedBatched_rank_1(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2StridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasSsyr2StridedBatched_rank_1 = hipblasSsyr2StridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasSsyr2StridedBatched_full_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2StridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasSsyr2StridedBatched_full_rank = hipblasSsyr2StridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDsyr2StridedBatched_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2StridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasDsyr2StridedBatched_assumed_rank = hipblasDsyr2StridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#else + function hipblasDsyr2StridedBatched_rank_0(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2StridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_double),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasDsyr2StridedBatched_rank_0 = hipblasDsyr2StridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasDsyr2StridedBatched_rank_1(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2StridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasDsyr2StridedBatched_rank_1 = hipblasDsyr2StridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasDsyr2StridedBatched_full_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2StridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasDsyr2StridedBatched_full_rank = hipblasDsyr2StridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCsyr2StridedBatched_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2StridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCsyr2StridedBatched_assumed_rank = hipblasCsyr2StridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#else + function hipblasCsyr2StridedBatched_rank_0(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2StridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCsyr2StridedBatched_rank_0 = hipblasCsyr2StridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCsyr2StridedBatched_rank_1(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2StridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCsyr2StridedBatched_rank_1 = hipblasCsyr2StridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCsyr2StridedBatched_full_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2StridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCsyr2StridedBatched_full_rank = hipblasCsyr2StridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZsyr2StridedBatched_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2StridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZsyr2StridedBatched_assumed_rank = hipblasZsyr2StridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#else + function hipblasZsyr2StridedBatched_rank_0(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2StridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZsyr2StridedBatched_rank_0 = hipblasZsyr2StridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZsyr2StridedBatched_rank_1(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2StridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZsyr2StridedBatched_rank_1 = hipblasZsyr2StridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZsyr2StridedBatched_full_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2StridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZsyr2StridedBatched_full_rank = hipblasZsyr2StridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSsyr2StridedBatched_64_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2StridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasSsyr2StridedBatched_64_assumed_rank = hipblasSsyr2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#else + function hipblasSsyr2StridedBatched_64_rank_0(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2StridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_float),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasSsyr2StridedBatched_64_rank_0 = hipblasSsyr2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasSsyr2StridedBatched_64_rank_1(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2StridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasSsyr2StridedBatched_64_rank_1 = hipblasSsyr2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasSsyr2StridedBatched_64_full_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2StridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasSsyr2StridedBatched_64_full_rank = hipblasSsyr2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDsyr2StridedBatched_64_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2StridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasDsyr2StridedBatched_64_assumed_rank = hipblasDsyr2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#else + function hipblasDsyr2StridedBatched_64_rank_0(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2StridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_double),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasDsyr2StridedBatched_64_rank_0 = hipblasDsyr2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasDsyr2StridedBatched_64_rank_1(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2StridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasDsyr2StridedBatched_64_rank_1 = hipblasDsyr2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasDsyr2StridedBatched_64_full_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2StridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasDsyr2StridedBatched_64_full_rank = hipblasDsyr2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCsyr2StridedBatched_64_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2StridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCsyr2StridedBatched_64_assumed_rank = hipblasCsyr2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#else + function hipblasCsyr2StridedBatched_64_rank_0(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2StridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCsyr2StridedBatched_64_rank_0 = hipblasCsyr2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCsyr2StridedBatched_64_rank_1(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2StridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCsyr2StridedBatched_64_rank_1 = hipblasCsyr2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCsyr2StridedBatched_64_full_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2StridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCsyr2StridedBatched_64_full_rank = hipblasCsyr2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZsyr2StridedBatched_64_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2StridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZsyr2StridedBatched_64_assumed_rank = hipblasZsyr2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#else + function hipblasZsyr2StridedBatched_64_rank_0(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2StridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZsyr2StridedBatched_64_rank_0 = hipblasZsyr2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZsyr2StridedBatched_64_rank_1(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2StridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZsyr2StridedBatched_64_rank_1 = hipblasZsyr2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZsyr2StridedBatched_64_full_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2StridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZsyr2StridedBatched_64_full_rank = hipblasZsyr2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasStbmv_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbmv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + ! + hipblasStbmv_assumed_rank = hipblasStbmv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#else + function hipblasStbmv_rank_0(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbmv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: AP + integer(c_int) :: lda + real(c_float),target :: x + integer(c_int) :: incx + ! + hipblasStbmv_rank_0 = hipblasStbmv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda,c_loc(x),incx) + end function + + function hipblasStbmv_rank_1(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbmv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasStbmv_rank_1 = hipblasStbmv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda,c_loc(x),incx) + end function + + function hipblasStbmv_full_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbmv_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasStbmv_full_rank = hipblasStbmv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda,c_loc(x), & + incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDtbmv_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbmv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + ! + hipblasDtbmv_assumed_rank = hipblasDtbmv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#else + function hipblasDtbmv_rank_0(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbmv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: AP + integer(c_int) :: lda + real(c_double),target :: x + integer(c_int) :: incx + ! + hipblasDtbmv_rank_0 = hipblasDtbmv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda,c_loc(x),incx) + end function + + function hipblasDtbmv_rank_1(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbmv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasDtbmv_rank_1 = hipblasDtbmv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda,c_loc(x),incx) + end function + + function hipblasDtbmv_full_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbmv_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasDtbmv_full_rank = hipblasDtbmv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda,c_loc(x), & + incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCtbmv_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbmv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + ! + hipblasCtbmv_assumed_rank = hipblasCtbmv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#else + function hipblasCtbmv_rank_0(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbmv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: AP + integer(c_int) :: lda + complex(c_float_complex),target :: x + integer(c_int) :: incx + ! + hipblasCtbmv_rank_0 = hipblasCtbmv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda,c_loc(x),incx) + end function + + function hipblasCtbmv_rank_1(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbmv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasCtbmv_rank_1 = hipblasCtbmv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda,c_loc(x),incx) + end function + + function hipblasCtbmv_full_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbmv_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasCtbmv_full_rank = hipblasCtbmv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda,c_loc(x), & + incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZtbmv_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbmv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + ! + hipblasZtbmv_assumed_rank = hipblasZtbmv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#else + function hipblasZtbmv_rank_0(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbmv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: AP + integer(c_int) :: lda + complex(c_double_complex),target :: x + integer(c_int) :: incx + ! + hipblasZtbmv_rank_0 = hipblasZtbmv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda,c_loc(x),incx) + end function + + function hipblasZtbmv_rank_1(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbmv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasZtbmv_rank_1 = hipblasZtbmv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda,c_loc(x),incx) + end function + + function hipblasZtbmv_full_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbmv_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasZtbmv_full_rank = hipblasZtbmv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda,c_loc(x), & + incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasStbmv_64_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbmv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + ! + hipblasStbmv_64_assumed_rank = hipblasStbmv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#else + function hipblasStbmv_64_rank_0(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbmv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: AP + integer(c_int64_t) :: lda + real(c_float),target :: x + integer(c_int64_t) :: incx + ! + hipblasStbmv_64_rank_0 = hipblasStbmv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + + function hipblasStbmv_64_rank_1(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbmv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasStbmv_64_rank_1 = hipblasStbmv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + + function hipblasStbmv_64_full_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbmv_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasStbmv_64_full_rank = hipblasStbmv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDtbmv_64_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbmv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + ! + hipblasDtbmv_64_assumed_rank = hipblasDtbmv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#else + function hipblasDtbmv_64_rank_0(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbmv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: AP + integer(c_int64_t) :: lda + real(c_double),target :: x + integer(c_int64_t) :: incx + ! + hipblasDtbmv_64_rank_0 = hipblasDtbmv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + + function hipblasDtbmv_64_rank_1(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbmv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasDtbmv_64_rank_1 = hipblasDtbmv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + + function hipblasDtbmv_64_full_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbmv_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasDtbmv_64_full_rank = hipblasDtbmv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCtbmv_64_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbmv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + ! + hipblasCtbmv_64_assumed_rank = hipblasCtbmv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#else + function hipblasCtbmv_64_rank_0(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbmv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + ! + hipblasCtbmv_64_rank_0 = hipblasCtbmv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + + function hipblasCtbmv_64_rank_1(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbmv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasCtbmv_64_rank_1 = hipblasCtbmv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + + function hipblasCtbmv_64_full_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbmv_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasCtbmv_64_full_rank = hipblasCtbmv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZtbmv_64_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbmv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + ! + hipblasZtbmv_64_assumed_rank = hipblasZtbmv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#else + function hipblasZtbmv_64_rank_0(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbmv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + ! + hipblasZtbmv_64_rank_0 = hipblasZtbmv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + + function hipblasZtbmv_64_rank_1(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbmv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasZtbmv_64_rank_1 = hipblasZtbmv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + + function hipblasZtbmv_64_full_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbmv_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasZtbmv_64_full_rank = hipblasZtbmv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasStbmvStridedBatched_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbmvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasStbmvStridedBatched_assumed_rank = hipblasStbmvStridedBatched_(handle,uplo,transA, & + diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasStbmvStridedBatched_rank_0(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbmvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasStbmvStridedBatched_rank_0 = hipblasStbmvStridedBatched_(handle,uplo,transA,diag,n,k, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasStbmvStridedBatched_rank_1(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbmvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasStbmvStridedBatched_rank_1 = hipblasStbmvStridedBatched_(handle,uplo,transA,diag,n,k, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasStbmvStridedBatched_full_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbmvStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasStbmvStridedBatched_full_rank = hipblasStbmvStridedBatched_(handle,uplo,transA,diag, & + n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDtbmvStridedBatched_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbmvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasDtbmvStridedBatched_assumed_rank = hipblasDtbmvStridedBatched_(handle,uplo,transA, & + diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasDtbmvStridedBatched_rank_0(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbmvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasDtbmvStridedBatched_rank_0 = hipblasDtbmvStridedBatched_(handle,uplo,transA,diag,n,k, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasDtbmvStridedBatched_rank_1(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbmvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasDtbmvStridedBatched_rank_1 = hipblasDtbmvStridedBatched_(handle,uplo,transA,diag,n,k, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasDtbmvStridedBatched_full_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbmvStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasDtbmvStridedBatched_full_rank = hipblasDtbmvStridedBatched_(handle,uplo,transA,diag, & + n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCtbmvStridedBatched_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbmvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasCtbmvStridedBatched_assumed_rank = hipblasCtbmvStridedBatched_(handle,uplo,transA, & + diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasCtbmvStridedBatched_rank_0(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbmvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasCtbmvStridedBatched_rank_0 = hipblasCtbmvStridedBatched_(handle,uplo,transA,diag,n,k, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasCtbmvStridedBatched_rank_1(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbmvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasCtbmvStridedBatched_rank_1 = hipblasCtbmvStridedBatched_(handle,uplo,transA,diag,n,k, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasCtbmvStridedBatched_full_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbmvStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasCtbmvStridedBatched_full_rank = hipblasCtbmvStridedBatched_(handle,uplo,transA,diag, & + n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZtbmvStridedBatched_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbmvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasZtbmvStridedBatched_assumed_rank = hipblasZtbmvStridedBatched_(handle,uplo,transA, & + diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasZtbmvStridedBatched_rank_0(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbmvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasZtbmvStridedBatched_rank_0 = hipblasZtbmvStridedBatched_(handle,uplo,transA,diag,n,k, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasZtbmvStridedBatched_rank_1(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbmvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasZtbmvStridedBatched_rank_1 = hipblasZtbmvStridedBatched_(handle,uplo,transA,diag,n,k, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasZtbmvStridedBatched_full_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbmvStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasZtbmvStridedBatched_full_rank = hipblasZtbmvStridedBatched_(handle,uplo,transA,diag, & + n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasStbmvStridedBatched_64_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda, & + strideA,x,incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbmvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasStbmvStridedBatched_64_assumed_rank = hipblasStbmvStridedBatched_64_(handle,uplo, & + transA,diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasStbmvStridedBatched_64_rank_0(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbmvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasStbmvStridedBatched_64_rank_0 = hipblasStbmvStridedBatched_64_(handle,uplo,transA, & + diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasStbmvStridedBatched_64_rank_1(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbmvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasStbmvStridedBatched_64_rank_1 = hipblasStbmvStridedBatched_64_(handle,uplo,transA, & + diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasStbmvStridedBatched_64_full_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbmvStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasStbmvStridedBatched_64_full_rank = hipblasStbmvStridedBatched_64_(handle,uplo,transA, & + diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDtbmvStridedBatched_64_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda, & + strideA,x,incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbmvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasDtbmvStridedBatched_64_assumed_rank = hipblasDtbmvStridedBatched_64_(handle,uplo, & + transA,diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasDtbmvStridedBatched_64_rank_0(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbmvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasDtbmvStridedBatched_64_rank_0 = hipblasDtbmvStridedBatched_64_(handle,uplo,transA, & + diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasDtbmvStridedBatched_64_rank_1(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbmvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasDtbmvStridedBatched_64_rank_1 = hipblasDtbmvStridedBatched_64_(handle,uplo,transA, & + diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasDtbmvStridedBatched_64_full_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbmvStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasDtbmvStridedBatched_64_full_rank = hipblasDtbmvStridedBatched_64_(handle,uplo,transA, & + diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCtbmvStridedBatched_64_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda, & + strideA,x,incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbmvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasCtbmvStridedBatched_64_assumed_rank = hipblasCtbmvStridedBatched_64_(handle,uplo, & + transA,diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasCtbmvStridedBatched_64_rank_0(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbmvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasCtbmvStridedBatched_64_rank_0 = hipblasCtbmvStridedBatched_64_(handle,uplo,transA, & + diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasCtbmvStridedBatched_64_rank_1(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbmvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasCtbmvStridedBatched_64_rank_1 = hipblasCtbmvStridedBatched_64_(handle,uplo,transA, & + diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasCtbmvStridedBatched_64_full_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbmvStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasCtbmvStridedBatched_64_full_rank = hipblasCtbmvStridedBatched_64_(handle,uplo,transA, & + diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZtbmvStridedBatched_64_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda, & + strideA,x,incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbmvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasZtbmvStridedBatched_64_assumed_rank = hipblasZtbmvStridedBatched_64_(handle,uplo, & + transA,diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasZtbmvStridedBatched_64_rank_0(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbmvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasZtbmvStridedBatched_64_rank_0 = hipblasZtbmvStridedBatched_64_(handle,uplo,transA, & + diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasZtbmvStridedBatched_64_rank_1(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbmvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasZtbmvStridedBatched_64_rank_1 = hipblasZtbmvStridedBatched_64_(handle,uplo,transA, & + diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasZtbmvStridedBatched_64_full_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbmvStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasZtbmvStridedBatched_64_full_rank = hipblasZtbmvStridedBatched_64_(handle,uplo,transA, & + diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasStbsv_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbsv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + ! + hipblasStbsv_assumed_rank = hipblasStbsv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#else + function hipblasStbsv_rank_0(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbsv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: AP + integer(c_int) :: lda + real(c_float),target :: x + integer(c_int) :: incx + ! + hipblasStbsv_rank_0 = hipblasStbsv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda,c_loc(x),incx) + end function + + function hipblasStbsv_rank_1(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbsv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasStbsv_rank_1 = hipblasStbsv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda,c_loc(x),incx) + end function + + function hipblasStbsv_full_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbsv_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasStbsv_full_rank = hipblasStbsv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda,c_loc(x), & + incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDtbsv_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbsv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + ! + hipblasDtbsv_assumed_rank = hipblasDtbsv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#else + function hipblasDtbsv_rank_0(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbsv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: AP + integer(c_int) :: lda + real(c_double),target :: x + integer(c_int) :: incx + ! + hipblasDtbsv_rank_0 = hipblasDtbsv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda,c_loc(x),incx) + end function + + function hipblasDtbsv_rank_1(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbsv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasDtbsv_rank_1 = hipblasDtbsv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda,c_loc(x),incx) + end function + + function hipblasDtbsv_full_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbsv_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasDtbsv_full_rank = hipblasDtbsv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda,c_loc(x), & + incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCtbsv_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbsv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + ! + hipblasCtbsv_assumed_rank = hipblasCtbsv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#else + function hipblasCtbsv_rank_0(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbsv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: AP + integer(c_int) :: lda + complex(c_float_complex),target :: x + integer(c_int) :: incx + ! + hipblasCtbsv_rank_0 = hipblasCtbsv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda,c_loc(x),incx) + end function + + function hipblasCtbsv_rank_1(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbsv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasCtbsv_rank_1 = hipblasCtbsv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda,c_loc(x),incx) + end function + + function hipblasCtbsv_full_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbsv_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasCtbsv_full_rank = hipblasCtbsv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda,c_loc(x), & + incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZtbsv_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbsv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + ! + hipblasZtbsv_assumed_rank = hipblasZtbsv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#else + function hipblasZtbsv_rank_0(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbsv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: AP + integer(c_int) :: lda + complex(c_double_complex),target :: x + integer(c_int) :: incx + ! + hipblasZtbsv_rank_0 = hipblasZtbsv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda,c_loc(x),incx) + end function + + function hipblasZtbsv_rank_1(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbsv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasZtbsv_rank_1 = hipblasZtbsv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda,c_loc(x),incx) + end function + + function hipblasZtbsv_full_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbsv_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasZtbsv_full_rank = hipblasZtbsv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda,c_loc(x), & + incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasStbsv_64_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbsv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + ! + hipblasStbsv_64_assumed_rank = hipblasStbsv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#else + function hipblasStbsv_64_rank_0(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbsv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: AP + integer(c_int64_t) :: lda + real(c_float),target :: x + integer(c_int64_t) :: incx + ! + hipblasStbsv_64_rank_0 = hipblasStbsv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + + function hipblasStbsv_64_rank_1(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbsv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasStbsv_64_rank_1 = hipblasStbsv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + + function hipblasStbsv_64_full_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbsv_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasStbsv_64_full_rank = hipblasStbsv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDtbsv_64_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbsv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + ! + hipblasDtbsv_64_assumed_rank = hipblasDtbsv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#else + function hipblasDtbsv_64_rank_0(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbsv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: AP + integer(c_int64_t) :: lda + real(c_double),target :: x + integer(c_int64_t) :: incx + ! + hipblasDtbsv_64_rank_0 = hipblasDtbsv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + + function hipblasDtbsv_64_rank_1(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbsv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasDtbsv_64_rank_1 = hipblasDtbsv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + + function hipblasDtbsv_64_full_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbsv_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasDtbsv_64_full_rank = hipblasDtbsv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCtbsv_64_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbsv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + ! + hipblasCtbsv_64_assumed_rank = hipblasCtbsv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#else + function hipblasCtbsv_64_rank_0(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbsv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + ! + hipblasCtbsv_64_rank_0 = hipblasCtbsv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + + function hipblasCtbsv_64_rank_1(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbsv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasCtbsv_64_rank_1 = hipblasCtbsv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + + function hipblasCtbsv_64_full_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbsv_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasCtbsv_64_full_rank = hipblasCtbsv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZtbsv_64_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbsv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + ! + hipblasZtbsv_64_assumed_rank = hipblasZtbsv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#else + function hipblasZtbsv_64_rank_0(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbsv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + ! + hipblasZtbsv_64_rank_0 = hipblasZtbsv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + + function hipblasZtbsv_64_rank_1(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbsv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasZtbsv_64_rank_1 = hipblasZtbsv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + + function hipblasZtbsv_64_full_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbsv_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasZtbsv_64_full_rank = hipblasZtbsv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasStbsvStridedBatched_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbsvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasStbsvStridedBatched_assumed_rank = hipblasStbsvStridedBatched_(handle,uplo,transA, & + diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasStbsvStridedBatched_rank_0(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbsvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasStbsvStridedBatched_rank_0 = hipblasStbsvStridedBatched_(handle,uplo,transA,diag,n,k, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasStbsvStridedBatched_rank_1(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbsvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasStbsvStridedBatched_rank_1 = hipblasStbsvStridedBatched_(handle,uplo,transA,diag,n,k, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasStbsvStridedBatched_full_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbsvStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasStbsvStridedBatched_full_rank = hipblasStbsvStridedBatched_(handle,uplo,transA,diag, & + n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDtbsvStridedBatched_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbsvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasDtbsvStridedBatched_assumed_rank = hipblasDtbsvStridedBatched_(handle,uplo,transA, & + diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasDtbsvStridedBatched_rank_0(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbsvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasDtbsvStridedBatched_rank_0 = hipblasDtbsvStridedBatched_(handle,uplo,transA,diag,n,k, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasDtbsvStridedBatched_rank_1(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbsvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasDtbsvStridedBatched_rank_1 = hipblasDtbsvStridedBatched_(handle,uplo,transA,diag,n,k, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasDtbsvStridedBatched_full_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbsvStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasDtbsvStridedBatched_full_rank = hipblasDtbsvStridedBatched_(handle,uplo,transA,diag, & + n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCtbsvStridedBatched_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbsvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasCtbsvStridedBatched_assumed_rank = hipblasCtbsvStridedBatched_(handle,uplo,transA, & + diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasCtbsvStridedBatched_rank_0(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbsvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasCtbsvStridedBatched_rank_0 = hipblasCtbsvStridedBatched_(handle,uplo,transA,diag,n,k, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasCtbsvStridedBatched_rank_1(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbsvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasCtbsvStridedBatched_rank_1 = hipblasCtbsvStridedBatched_(handle,uplo,transA,diag,n,k, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasCtbsvStridedBatched_full_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbsvStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasCtbsvStridedBatched_full_rank = hipblasCtbsvStridedBatched_(handle,uplo,transA,diag, & + n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZtbsvStridedBatched_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbsvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasZtbsvStridedBatched_assumed_rank = hipblasZtbsvStridedBatched_(handle,uplo,transA, & + diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasZtbsvStridedBatched_rank_0(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbsvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasZtbsvStridedBatched_rank_0 = hipblasZtbsvStridedBatched_(handle,uplo,transA,diag,n,k, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasZtbsvStridedBatched_rank_1(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbsvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasZtbsvStridedBatched_rank_1 = hipblasZtbsvStridedBatched_(handle,uplo,transA,diag,n,k, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasZtbsvStridedBatched_full_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbsvStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasZtbsvStridedBatched_full_rank = hipblasZtbsvStridedBatched_(handle,uplo,transA,diag, & + n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasStbsvStridedBatched_64_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda, & + strideA,x,incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbsvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasStbsvStridedBatched_64_assumed_rank = hipblasStbsvStridedBatched_64_(handle,uplo, & + transA,diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasStbsvStridedBatched_64_rank_0(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbsvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasStbsvStridedBatched_64_rank_0 = hipblasStbsvStridedBatched_64_(handle,uplo,transA, & + diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasStbsvStridedBatched_64_rank_1(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbsvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasStbsvStridedBatched_64_rank_1 = hipblasStbsvStridedBatched_64_(handle,uplo,transA, & + diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasStbsvStridedBatched_64_full_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbsvStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasStbsvStridedBatched_64_full_rank = hipblasStbsvStridedBatched_64_(handle,uplo,transA, & + diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDtbsvStridedBatched_64_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda, & + strideA,x,incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbsvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasDtbsvStridedBatched_64_assumed_rank = hipblasDtbsvStridedBatched_64_(handle,uplo, & + transA,diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasDtbsvStridedBatched_64_rank_0(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbsvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasDtbsvStridedBatched_64_rank_0 = hipblasDtbsvStridedBatched_64_(handle,uplo,transA, & + diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasDtbsvStridedBatched_64_rank_1(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbsvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasDtbsvStridedBatched_64_rank_1 = hipblasDtbsvStridedBatched_64_(handle,uplo,transA, & + diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasDtbsvStridedBatched_64_full_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbsvStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasDtbsvStridedBatched_64_full_rank = hipblasDtbsvStridedBatched_64_(handle,uplo,transA, & + diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCtbsvStridedBatched_64_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda, & + strideA,x,incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbsvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasCtbsvStridedBatched_64_assumed_rank = hipblasCtbsvStridedBatched_64_(handle,uplo, & + transA,diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasCtbsvStridedBatched_64_rank_0(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbsvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasCtbsvStridedBatched_64_rank_0 = hipblasCtbsvStridedBatched_64_(handle,uplo,transA, & + diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasCtbsvStridedBatched_64_rank_1(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbsvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasCtbsvStridedBatched_64_rank_1 = hipblasCtbsvStridedBatched_64_(handle,uplo,transA, & + diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasCtbsvStridedBatched_64_full_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbsvStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasCtbsvStridedBatched_64_full_rank = hipblasCtbsvStridedBatched_64_(handle,uplo,transA, & + diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZtbsvStridedBatched_64_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda, & + strideA,x,incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbsvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasZtbsvStridedBatched_64_assumed_rank = hipblasZtbsvStridedBatched_64_(handle,uplo, & + transA,diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasZtbsvStridedBatched_64_rank_0(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbsvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasZtbsvStridedBatched_64_rank_0 = hipblasZtbsvStridedBatched_64_(handle,uplo,transA, & + diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasZtbsvStridedBatched_64_rank_1(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbsvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasZtbsvStridedBatched_64_rank_1 = hipblasZtbsvStridedBatched_64_(handle,uplo,transA, & + diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasZtbsvStridedBatched_64_full_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbsvStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasZtbsvStridedBatched_64_full_rank = hipblasZtbsvStridedBatched_64_(handle,uplo,transA, & + diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasStpmv_assumed_rank(handle,uplo,transA,diag,n,AP,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpmv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_float),target,dimension(..) :: AP + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + ! + hipblasStpmv_assumed_rank = hipblasStpmv_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + +#else + function hipblasStpmv_rank_0(handle,uplo,transA,diag,n,AP,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpmv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_float),target :: AP + real(c_float),target :: x + integer(c_int) :: incx + ! + hipblasStpmv_rank_0 = hipblasStpmv_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + + function hipblasStpmv_rank_1(handle,uplo,transA,diag,n,AP,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpmv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_float),target,dimension(:) :: AP + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasStpmv_rank_1 = hipblasStpmv_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDtpmv_assumed_rank(handle,uplo,transA,diag,n,AP,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpmv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_double),target,dimension(..) :: AP + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + ! + hipblasDtpmv_assumed_rank = hipblasDtpmv_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + +#else + function hipblasDtpmv_rank_0(handle,uplo,transA,diag,n,AP,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpmv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_double),target :: AP + real(c_double),target :: x + integer(c_int) :: incx + ! + hipblasDtpmv_rank_0 = hipblasDtpmv_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + + function hipblasDtpmv_rank_1(handle,uplo,transA,diag,n,AP,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpmv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_double),target,dimension(:) :: AP + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasDtpmv_rank_1 = hipblasDtpmv_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCtpmv_assumed_rank(handle,uplo,transA,diag,n,AP,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpmv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_float_complex),target,dimension(..) :: AP + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + ! + hipblasCtpmv_assumed_rank = hipblasCtpmv_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + +#else + function hipblasCtpmv_rank_0(handle,uplo,transA,diag,n,AP,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpmv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_float_complex),target :: AP + complex(c_float_complex),target :: x + integer(c_int) :: incx + ! + hipblasCtpmv_rank_0 = hipblasCtpmv_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + + function hipblasCtpmv_rank_1(handle,uplo,transA,diag,n,AP,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpmv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: AP + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasCtpmv_rank_1 = hipblasCtpmv_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZtpmv_assumed_rank(handle,uplo,transA,diag,n,AP,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpmv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_double_complex),target,dimension(..) :: AP + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + ! + hipblasZtpmv_assumed_rank = hipblasZtpmv_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + +#else + function hipblasZtpmv_rank_0(handle,uplo,transA,diag,n,AP,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpmv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_double_complex),target :: AP + complex(c_double_complex),target :: x + integer(c_int) :: incx + ! + hipblasZtpmv_rank_0 = hipblasZtpmv_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + + function hipblasZtpmv_rank_1(handle,uplo,transA,diag,n,AP,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpmv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: AP + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasZtpmv_rank_1 = hipblasZtpmv_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasStpmv_64_assumed_rank(handle,uplo,transA,diag,n,AP,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpmv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_float),target,dimension(..) :: AP + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + ! + hipblasStpmv_64_assumed_rank = hipblasStpmv_64_(handle,uplo,transA,diag,n,c_loc(AP), & + c_loc(x),incx) + end function + +#else + function hipblasStpmv_64_rank_0(handle,uplo,transA,diag,n,AP,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpmv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_float),target :: AP + real(c_float),target :: x + integer(c_int64_t) :: incx + ! + hipblasStpmv_64_rank_0 = hipblasStpmv_64_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + + function hipblasStpmv_64_rank_1(handle,uplo,transA,diag,n,AP,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpmv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_float),target,dimension(:) :: AP + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasStpmv_64_rank_1 = hipblasStpmv_64_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDtpmv_64_assumed_rank(handle,uplo,transA,diag,n,AP,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpmv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_double),target,dimension(..) :: AP + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + ! + hipblasDtpmv_64_assumed_rank = hipblasDtpmv_64_(handle,uplo,transA,diag,n,c_loc(AP), & + c_loc(x),incx) + end function + +#else + function hipblasDtpmv_64_rank_0(handle,uplo,transA,diag,n,AP,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpmv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_double),target :: AP + real(c_double),target :: x + integer(c_int64_t) :: incx + ! + hipblasDtpmv_64_rank_0 = hipblasDtpmv_64_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + + function hipblasDtpmv_64_rank_1(handle,uplo,transA,diag,n,AP,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpmv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_double),target,dimension(:) :: AP + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasDtpmv_64_rank_1 = hipblasDtpmv_64_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCtpmv_64_assumed_rank(handle,uplo,transA,diag,n,AP,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpmv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(..) :: AP + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + ! + hipblasCtpmv_64_assumed_rank = hipblasCtpmv_64_(handle,uplo,transA,diag,n,c_loc(AP), & + c_loc(x),incx) + end function + +#else + function hipblasCtpmv_64_rank_0(handle,uplo,transA,diag,n,AP,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpmv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_float_complex),target :: AP + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + ! + hipblasCtpmv_64_rank_0 = hipblasCtpmv_64_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + + function hipblasCtpmv_64_rank_1(handle,uplo,transA,diag,n,AP,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpmv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:) :: AP + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasCtpmv_64_rank_1 = hipblasCtpmv_64_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZtpmv_64_assumed_rank(handle,uplo,transA,diag,n,AP,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpmv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(..) :: AP + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + ! + hipblasZtpmv_64_assumed_rank = hipblasZtpmv_64_(handle,uplo,transA,diag,n,c_loc(AP), & + c_loc(x),incx) + end function + +#else + function hipblasZtpmv_64_rank_0(handle,uplo,transA,diag,n,AP,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpmv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_double_complex),target :: AP + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + ! + hipblasZtpmv_64_rank_0 = hipblasZtpmv_64_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + + function hipblasZtpmv_64_rank_1(handle,uplo,transA,diag,n,AP,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpmv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:) :: AP + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasZtpmv_64_rank_1 = hipblasZtpmv_64_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasStpmvStridedBatched_assumed_rank(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpmvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasStpmvStridedBatched_assumed_rank = hipblasStpmvStridedBatched_(handle,uplo,transA, & + diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasStpmvStridedBatched_rank_0(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpmvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_float),target :: AP + integer(c_int64_t) :: strideA + real(c_float),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasStpmvStridedBatched_rank_0 = hipblasStpmvStridedBatched_(handle,uplo,transA,diag,n, & + c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasStpmvStridedBatched_rank_1(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpmvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasStpmvStridedBatched_rank_1 = hipblasStpmvStridedBatched_(handle,uplo,transA,diag,n, & + c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDtpmvStridedBatched_assumed_rank(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpmvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasDtpmvStridedBatched_assumed_rank = hipblasDtpmvStridedBatched_(handle,uplo,transA, & + diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasDtpmvStridedBatched_rank_0(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpmvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_double),target :: AP + integer(c_int64_t) :: strideA + real(c_double),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasDtpmvStridedBatched_rank_0 = hipblasDtpmvStridedBatched_(handle,uplo,transA,diag,n, & + c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasDtpmvStridedBatched_rank_1(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpmvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasDtpmvStridedBatched_rank_1 = hipblasDtpmvStridedBatched_(handle,uplo,transA,diag,n, & + c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCtpmvStridedBatched_assumed_rank(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpmvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasCtpmvStridedBatched_assumed_rank = hipblasCtpmvStridedBatched_(handle,uplo,transA, & + diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasCtpmvStridedBatched_rank_0(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpmvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_float_complex),target :: AP + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasCtpmvStridedBatched_rank_0 = hipblasCtpmvStridedBatched_(handle,uplo,transA,diag,n, & + c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasCtpmvStridedBatched_rank_1(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpmvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasCtpmvStridedBatched_rank_1 = hipblasCtpmvStridedBatched_(handle,uplo,transA,diag,n, & + c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZtpmvStridedBatched_assumed_rank(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpmvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasZtpmvStridedBatched_assumed_rank = hipblasZtpmvStridedBatched_(handle,uplo,transA, & + diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasZtpmvStridedBatched_rank_0(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpmvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_double_complex),target :: AP + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasZtpmvStridedBatched_rank_0 = hipblasZtpmvStridedBatched_(handle,uplo,transA,diag,n, & + c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasZtpmvStridedBatched_rank_1(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpmvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasZtpmvStridedBatched_rank_1 = hipblasZtpmvStridedBatched_(handle,uplo,transA,diag,n, & + c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasStpmvStridedBatched_64_assumed_rank(handle,uplo,transA,diag,n,AP,strideA,x, & + incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpmvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasStpmvStridedBatched_64_assumed_rank = hipblasStpmvStridedBatched_64_(handle,uplo, & + transA,diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasStpmvStridedBatched_64_rank_0(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpmvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_float),target :: AP + integer(c_int64_t) :: strideA + real(c_float),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasStpmvStridedBatched_64_rank_0 = hipblasStpmvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasStpmvStridedBatched_64_rank_1(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpmvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasStpmvStridedBatched_64_rank_1 = hipblasStpmvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDtpmvStridedBatched_64_assumed_rank(handle,uplo,transA,diag,n,AP,strideA,x, & + incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpmvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasDtpmvStridedBatched_64_assumed_rank = hipblasDtpmvStridedBatched_64_(handle,uplo, & + transA,diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasDtpmvStridedBatched_64_rank_0(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpmvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_double),target :: AP + integer(c_int64_t) :: strideA + real(c_double),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasDtpmvStridedBatched_64_rank_0 = hipblasDtpmvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasDtpmvStridedBatched_64_rank_1(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpmvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasDtpmvStridedBatched_64_rank_1 = hipblasDtpmvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCtpmvStridedBatched_64_assumed_rank(handle,uplo,transA,diag,n,AP,strideA,x, & + incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpmvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasCtpmvStridedBatched_64_assumed_rank = hipblasCtpmvStridedBatched_64_(handle,uplo, & + transA,diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasCtpmvStridedBatched_64_rank_0(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpmvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_float_complex),target :: AP + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasCtpmvStridedBatched_64_rank_0 = hipblasCtpmvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasCtpmvStridedBatched_64_rank_1(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpmvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasCtpmvStridedBatched_64_rank_1 = hipblasCtpmvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZtpmvStridedBatched_64_assumed_rank(handle,uplo,transA,diag,n,AP,strideA,x, & + incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpmvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasZtpmvStridedBatched_64_assumed_rank = hipblasZtpmvStridedBatched_64_(handle,uplo, & + transA,diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasZtpmvStridedBatched_64_rank_0(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpmvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_double_complex),target :: AP + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasZtpmvStridedBatched_64_rank_0 = hipblasZtpmvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasZtpmvStridedBatched_64_rank_1(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpmvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasZtpmvStridedBatched_64_rank_1 = hipblasZtpmvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasStpsv_assumed_rank(handle,uplo,transA,diag,n,AP,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpsv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_float),target,dimension(..) :: AP + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + ! + hipblasStpsv_assumed_rank = hipblasStpsv_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + +#else + function hipblasStpsv_rank_0(handle,uplo,transA,diag,n,AP,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpsv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_float),target :: AP + real(c_float),target :: x + integer(c_int) :: incx + ! + hipblasStpsv_rank_0 = hipblasStpsv_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + + function hipblasStpsv_rank_1(handle,uplo,transA,diag,n,AP,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpsv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_float),target,dimension(:) :: AP + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasStpsv_rank_1 = hipblasStpsv_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDtpsv_assumed_rank(handle,uplo,transA,diag,n,AP,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpsv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_double),target,dimension(..) :: AP + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + ! + hipblasDtpsv_assumed_rank = hipblasDtpsv_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + +#else + function hipblasDtpsv_rank_0(handle,uplo,transA,diag,n,AP,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpsv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_double),target :: AP + real(c_double),target :: x + integer(c_int) :: incx + ! + hipblasDtpsv_rank_0 = hipblasDtpsv_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + + function hipblasDtpsv_rank_1(handle,uplo,transA,diag,n,AP,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpsv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_double),target,dimension(:) :: AP + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasDtpsv_rank_1 = hipblasDtpsv_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCtpsv_assumed_rank(handle,uplo,transA,diag,n,AP,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpsv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_float_complex),target,dimension(..) :: AP + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + ! + hipblasCtpsv_assumed_rank = hipblasCtpsv_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + +#else + function hipblasCtpsv_rank_0(handle,uplo,transA,diag,n,AP,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpsv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_float_complex),target :: AP + complex(c_float_complex),target :: x + integer(c_int) :: incx + ! + hipblasCtpsv_rank_0 = hipblasCtpsv_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + + function hipblasCtpsv_rank_1(handle,uplo,transA,diag,n,AP,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpsv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: AP + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasCtpsv_rank_1 = hipblasCtpsv_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZtpsv_assumed_rank(handle,uplo,transA,diag,n,AP,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpsv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_double_complex),target,dimension(..) :: AP + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + ! + hipblasZtpsv_assumed_rank = hipblasZtpsv_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + +#else + function hipblasZtpsv_rank_0(handle,uplo,transA,diag,n,AP,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpsv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_double_complex),target :: AP + complex(c_double_complex),target :: x + integer(c_int) :: incx + ! + hipblasZtpsv_rank_0 = hipblasZtpsv_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + + function hipblasZtpsv_rank_1(handle,uplo,transA,diag,n,AP,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpsv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: AP + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasZtpsv_rank_1 = hipblasZtpsv_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasStpsv_64_assumed_rank(handle,uplo,transA,diag,n,AP,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpsv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_float),target,dimension(..) :: AP + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + ! + hipblasStpsv_64_assumed_rank = hipblasStpsv_64_(handle,uplo,transA,diag,n,c_loc(AP), & + c_loc(x),incx) + end function + +#else + function hipblasStpsv_64_rank_0(handle,uplo,transA,diag,n,AP,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpsv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_float),target :: AP + real(c_float),target :: x + integer(c_int64_t) :: incx + ! + hipblasStpsv_64_rank_0 = hipblasStpsv_64_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + + function hipblasStpsv_64_rank_1(handle,uplo,transA,diag,n,AP,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpsv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_float),target,dimension(:) :: AP + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasStpsv_64_rank_1 = hipblasStpsv_64_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDtpsv_64_assumed_rank(handle,uplo,transA,diag,n,AP,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpsv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_double),target,dimension(..) :: AP + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + ! + hipblasDtpsv_64_assumed_rank = hipblasDtpsv_64_(handle,uplo,transA,diag,n,c_loc(AP), & + c_loc(x),incx) + end function + +#else + function hipblasDtpsv_64_rank_0(handle,uplo,transA,diag,n,AP,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpsv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_double),target :: AP + real(c_double),target :: x + integer(c_int64_t) :: incx + ! + hipblasDtpsv_64_rank_0 = hipblasDtpsv_64_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + + function hipblasDtpsv_64_rank_1(handle,uplo,transA,diag,n,AP,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpsv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_double),target,dimension(:) :: AP + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasDtpsv_64_rank_1 = hipblasDtpsv_64_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCtpsv_64_assumed_rank(handle,uplo,transA,diag,n,AP,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpsv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(..) :: AP + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + ! + hipblasCtpsv_64_assumed_rank = hipblasCtpsv_64_(handle,uplo,transA,diag,n,c_loc(AP), & + c_loc(x),incx) + end function + +#else + function hipblasCtpsv_64_rank_0(handle,uplo,transA,diag,n,AP,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpsv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_float_complex),target :: AP + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + ! + hipblasCtpsv_64_rank_0 = hipblasCtpsv_64_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + + function hipblasCtpsv_64_rank_1(handle,uplo,transA,diag,n,AP,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpsv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:) :: AP + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasCtpsv_64_rank_1 = hipblasCtpsv_64_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZtpsv_64_assumed_rank(handle,uplo,transA,diag,n,AP,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpsv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(..) :: AP + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + ! + hipblasZtpsv_64_assumed_rank = hipblasZtpsv_64_(handle,uplo,transA,diag,n,c_loc(AP), & + c_loc(x),incx) + end function + +#else + function hipblasZtpsv_64_rank_0(handle,uplo,transA,diag,n,AP,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpsv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_double_complex),target :: AP + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + ! + hipblasZtpsv_64_rank_0 = hipblasZtpsv_64_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + + function hipblasZtpsv_64_rank_1(handle,uplo,transA,diag,n,AP,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpsv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:) :: AP + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasZtpsv_64_rank_1 = hipblasZtpsv_64_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasStpsvStridedBatched_assumed_rank(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpsvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasStpsvStridedBatched_assumed_rank = hipblasStpsvStridedBatched_(handle,uplo,transA, & + diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasStpsvStridedBatched_rank_0(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpsvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_float),target :: AP + integer(c_int64_t) :: strideA + real(c_float),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasStpsvStridedBatched_rank_0 = hipblasStpsvStridedBatched_(handle,uplo,transA,diag,n, & + c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasStpsvStridedBatched_rank_1(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpsvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasStpsvStridedBatched_rank_1 = hipblasStpsvStridedBatched_(handle,uplo,transA,diag,n, & + c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDtpsvStridedBatched_assumed_rank(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpsvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasDtpsvStridedBatched_assumed_rank = hipblasDtpsvStridedBatched_(handle,uplo,transA, & + diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasDtpsvStridedBatched_rank_0(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpsvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_double),target :: AP + integer(c_int64_t) :: strideA + real(c_double),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasDtpsvStridedBatched_rank_0 = hipblasDtpsvStridedBatched_(handle,uplo,transA,diag,n, & + c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasDtpsvStridedBatched_rank_1(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpsvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasDtpsvStridedBatched_rank_1 = hipblasDtpsvStridedBatched_(handle,uplo,transA,diag,n, & + c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCtpsvStridedBatched_assumed_rank(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpsvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasCtpsvStridedBatched_assumed_rank = hipblasCtpsvStridedBatched_(handle,uplo,transA, & + diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasCtpsvStridedBatched_rank_0(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpsvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_float_complex),target :: AP + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasCtpsvStridedBatched_rank_0 = hipblasCtpsvStridedBatched_(handle,uplo,transA,diag,n, & + c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasCtpsvStridedBatched_rank_1(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpsvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasCtpsvStridedBatched_rank_1 = hipblasCtpsvStridedBatched_(handle,uplo,transA,diag,n, & + c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZtpsvStridedBatched_assumed_rank(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpsvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasZtpsvStridedBatched_assumed_rank = hipblasZtpsvStridedBatched_(handle,uplo,transA, & + diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasZtpsvStridedBatched_rank_0(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpsvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_double_complex),target :: AP + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasZtpsvStridedBatched_rank_0 = hipblasZtpsvStridedBatched_(handle,uplo,transA,diag,n, & + c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasZtpsvStridedBatched_rank_1(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpsvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasZtpsvStridedBatched_rank_1 = hipblasZtpsvStridedBatched_(handle,uplo,transA,diag,n, & + c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasStpsvStridedBatched_64_assumed_rank(handle,uplo,transA,diag,n,AP,strideA,x, & + incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpsvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasStpsvStridedBatched_64_assumed_rank = hipblasStpsvStridedBatched_64_(handle,uplo, & + transA,diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasStpsvStridedBatched_64_rank_0(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpsvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_float),target :: AP + integer(c_int64_t) :: strideA + real(c_float),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasStpsvStridedBatched_64_rank_0 = hipblasStpsvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasStpsvStridedBatched_64_rank_1(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpsvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasStpsvStridedBatched_64_rank_1 = hipblasStpsvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDtpsvStridedBatched_64_assumed_rank(handle,uplo,transA,diag,n,AP,strideA,x, & + incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpsvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasDtpsvStridedBatched_64_assumed_rank = hipblasDtpsvStridedBatched_64_(handle,uplo, & + transA,diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasDtpsvStridedBatched_64_rank_0(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpsvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_double),target :: AP + integer(c_int64_t) :: strideA + real(c_double),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasDtpsvStridedBatched_64_rank_0 = hipblasDtpsvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasDtpsvStridedBatched_64_rank_1(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpsvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasDtpsvStridedBatched_64_rank_1 = hipblasDtpsvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCtpsvStridedBatched_64_assumed_rank(handle,uplo,transA,diag,n,AP,strideA,x, & + incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpsvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasCtpsvStridedBatched_64_assumed_rank = hipblasCtpsvStridedBatched_64_(handle,uplo, & + transA,diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasCtpsvStridedBatched_64_rank_0(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpsvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_float_complex),target :: AP + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasCtpsvStridedBatched_64_rank_0 = hipblasCtpsvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasCtpsvStridedBatched_64_rank_1(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpsvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasCtpsvStridedBatched_64_rank_1 = hipblasCtpsvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZtpsvStridedBatched_64_assumed_rank(handle,uplo,transA,diag,n,AP,strideA,x, & + incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpsvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasZtpsvStridedBatched_64_assumed_rank = hipblasZtpsvStridedBatched_64_(handle,uplo, & + transA,diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasZtpsvStridedBatched_64_rank_0(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpsvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_double_complex),target :: AP + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasZtpsvStridedBatched_64_rank_0 = hipblasZtpsvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasZtpsvStridedBatched_64_rank_1(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpsvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasZtpsvStridedBatched_64_rank_1 = hipblasZtpsvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasStrmv_assumed_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + ! + hipblasStrmv_assumed_rank = hipblasStrmv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x), & + incx) + end function + +#else + function hipblasStrmv_rank_0(handle,uplo,transA,diag,n,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_float),target :: AP + integer(c_int) :: lda + real(c_float),target :: x + integer(c_int) :: incx + ! + hipblasStrmv_rank_0 = hipblasStrmv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x),incx) + end function + + function hipblasStrmv_rank_1(handle,uplo,transA,diag,n,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasStrmv_rank_1 = hipblasStrmv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x),incx) + end function + + function hipblasStrmv_full_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmv_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasStrmv_full_rank = hipblasStrmv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDtrmv_assumed_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + ! + hipblasDtrmv_assumed_rank = hipblasDtrmv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x), & + incx) + end function + +#else + function hipblasDtrmv_rank_0(handle,uplo,transA,diag,n,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_double),target :: AP + integer(c_int) :: lda + real(c_double),target :: x + integer(c_int) :: incx + ! + hipblasDtrmv_rank_0 = hipblasDtrmv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x),incx) + end function + + function hipblasDtrmv_rank_1(handle,uplo,transA,diag,n,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasDtrmv_rank_1 = hipblasDtrmv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x),incx) + end function + + function hipblasDtrmv_full_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmv_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasDtrmv_full_rank = hipblasDtrmv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCtrmv_assumed_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + ! + hipblasCtrmv_assumed_rank = hipblasCtrmv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x), & + incx) + end function + +#else + function hipblasCtrmv_rank_0(handle,uplo,transA,diag,n,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_float_complex),target :: AP + integer(c_int) :: lda + complex(c_float_complex),target :: x + integer(c_int) :: incx + ! + hipblasCtrmv_rank_0 = hipblasCtrmv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x),incx) + end function + + function hipblasCtrmv_rank_1(handle,uplo,transA,diag,n,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasCtrmv_rank_1 = hipblasCtrmv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x),incx) + end function + + function hipblasCtrmv_full_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmv_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasCtrmv_full_rank = hipblasCtrmv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZtrmv_assumed_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + ! + hipblasZtrmv_assumed_rank = hipblasZtrmv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x), & + incx) + end function + +#else + function hipblasZtrmv_rank_0(handle,uplo,transA,diag,n,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_double_complex),target :: AP + integer(c_int) :: lda + complex(c_double_complex),target :: x + integer(c_int) :: incx + ! + hipblasZtrmv_rank_0 = hipblasZtrmv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x),incx) + end function + + function hipblasZtrmv_rank_1(handle,uplo,transA,diag,n,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasZtrmv_rank_1 = hipblasZtrmv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x),incx) + end function + + function hipblasZtrmv_full_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmv_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasZtrmv_full_rank = hipblasZtrmv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasStrmv_64_assumed_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + ! + hipblasStrmv_64_assumed_rank = hipblasStrmv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#else + function hipblasStrmv_64_rank_0(handle,uplo,transA,diag,n,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_float),target :: AP + integer(c_int64_t) :: lda + real(c_float),target :: x + integer(c_int64_t) :: incx + ! + hipblasStrmv_64_rank_0 = hipblasStrmv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x), & + incx) + end function + + function hipblasStrmv_64_rank_1(handle,uplo,transA,diag,n,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasStrmv_64_rank_1 = hipblasStrmv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x), & + incx) + end function + + function hipblasStrmv_64_full_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmv_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasStrmv_64_full_rank = hipblasStrmv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDtrmv_64_assumed_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + ! + hipblasDtrmv_64_assumed_rank = hipblasDtrmv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#else + function hipblasDtrmv_64_rank_0(handle,uplo,transA,diag,n,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_double),target :: AP + integer(c_int64_t) :: lda + real(c_double),target :: x + integer(c_int64_t) :: incx + ! + hipblasDtrmv_64_rank_0 = hipblasDtrmv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x), & + incx) + end function + + function hipblasDtrmv_64_rank_1(handle,uplo,transA,diag,n,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasDtrmv_64_rank_1 = hipblasDtrmv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x), & + incx) + end function + + function hipblasDtrmv_64_full_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmv_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasDtrmv_64_full_rank = hipblasDtrmv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCtrmv_64_assumed_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + ! + hipblasCtrmv_64_assumed_rank = hipblasCtrmv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#else + function hipblasCtrmv_64_rank_0(handle,uplo,transA,diag,n,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + ! + hipblasCtrmv_64_rank_0 = hipblasCtrmv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x), & + incx) + end function + + function hipblasCtrmv_64_rank_1(handle,uplo,transA,diag,n,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasCtrmv_64_rank_1 = hipblasCtrmv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x), & + incx) + end function + + function hipblasCtrmv_64_full_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmv_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasCtrmv_64_full_rank = hipblasCtrmv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZtrmv_64_assumed_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + ! + hipblasZtrmv_64_assumed_rank = hipblasZtrmv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#else + function hipblasZtrmv_64_rank_0(handle,uplo,transA,diag,n,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + ! + hipblasZtrmv_64_rank_0 = hipblasZtrmv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x), & + incx) + end function + + function hipblasZtrmv_64_rank_1(handle,uplo,transA,diag,n,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasZtrmv_64_rank_1 = hipblasZtrmv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x), & + incx) + end function + + function hipblasZtrmv_64_full_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmv_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasZtrmv_64_full_rank = hipblasZtrmv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasStrmvStridedBatched_assumed_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x, & + incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasStrmvStridedBatched_assumed_rank = hipblasStrmvStridedBatched_(handle,uplo,transA, & + diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasStrmvStridedBatched_rank_0(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_float),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasStrmvStridedBatched_rank_0 = hipblasStrmvStridedBatched_(handle,uplo,transA,diag,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasStrmvStridedBatched_rank_1(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasStrmvStridedBatched_rank_1 = hipblasStrmvStridedBatched_(handle,uplo,transA,diag,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasStrmvStridedBatched_full_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmvStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasStrmvStridedBatched_full_rank = hipblasStrmvStridedBatched_(handle,uplo,transA,diag, & + n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDtrmvStridedBatched_assumed_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x, & + incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasDtrmvStridedBatched_assumed_rank = hipblasDtrmvStridedBatched_(handle,uplo,transA, & + diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasDtrmvStridedBatched_rank_0(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_double),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasDtrmvStridedBatched_rank_0 = hipblasDtrmvStridedBatched_(handle,uplo,transA,diag,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasDtrmvStridedBatched_rank_1(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasDtrmvStridedBatched_rank_1 = hipblasDtrmvStridedBatched_(handle,uplo,transA,diag,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasDtrmvStridedBatched_full_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmvStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasDtrmvStridedBatched_full_rank = hipblasDtrmvStridedBatched_(handle,uplo,transA,diag, & + n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCtrmvStridedBatched_assumed_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x, & + incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasCtrmvStridedBatched_assumed_rank = hipblasCtrmvStridedBatched_(handle,uplo,transA, & + diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasCtrmvStridedBatched_rank_0(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_float_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasCtrmvStridedBatched_rank_0 = hipblasCtrmvStridedBatched_(handle,uplo,transA,diag,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasCtrmvStridedBatched_rank_1(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasCtrmvStridedBatched_rank_1 = hipblasCtrmvStridedBatched_(handle,uplo,transA,diag,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasCtrmvStridedBatched_full_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmvStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasCtrmvStridedBatched_full_rank = hipblasCtrmvStridedBatched_(handle,uplo,transA,diag, & + n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZtrmvStridedBatched_assumed_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x, & + incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasZtrmvStridedBatched_assumed_rank = hipblasZtrmvStridedBatched_(handle,uplo,transA, & + diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasZtrmvStridedBatched_rank_0(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_double_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasZtrmvStridedBatched_rank_0 = hipblasZtrmvStridedBatched_(handle,uplo,transA,diag,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasZtrmvStridedBatched_rank_1(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasZtrmvStridedBatched_rank_1 = hipblasZtrmvStridedBatched_(handle,uplo,transA,diag,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasZtrmvStridedBatched_full_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmvStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasZtrmvStridedBatched_full_rank = hipblasZtrmvStridedBatched_(handle,uplo,transA,diag, & + n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasStrmvStridedBatched_64_assumed_rank(handle,uplo,transA,diag,n,AP,lda,strideA, & + x,incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasStrmvStridedBatched_64_assumed_rank = hipblasStrmvStridedBatched_64_(handle,uplo, & + transA,diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasStrmvStridedBatched_64_rank_0(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_float),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasStrmvStridedBatched_64_rank_0 = hipblasStrmvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasStrmvStridedBatched_64_rank_1(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasStrmvStridedBatched_64_rank_1 = hipblasStrmvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasStrmvStridedBatched_64_full_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x, & + incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmvStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasStrmvStridedBatched_64_full_rank = hipblasStrmvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDtrmvStridedBatched_64_assumed_rank(handle,uplo,transA,diag,n,AP,lda,strideA, & + x,incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasDtrmvStridedBatched_64_assumed_rank = hipblasDtrmvStridedBatched_64_(handle,uplo, & + transA,diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasDtrmvStridedBatched_64_rank_0(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_double),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasDtrmvStridedBatched_64_rank_0 = hipblasDtrmvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasDtrmvStridedBatched_64_rank_1(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasDtrmvStridedBatched_64_rank_1 = hipblasDtrmvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasDtrmvStridedBatched_64_full_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x, & + incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmvStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasDtrmvStridedBatched_64_full_rank = hipblasDtrmvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCtrmvStridedBatched_64_assumed_rank(handle,uplo,transA,diag,n,AP,lda,strideA, & + x,incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasCtrmvStridedBatched_64_assumed_rank = hipblasCtrmvStridedBatched_64_(handle,uplo, & + transA,diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasCtrmvStridedBatched_64_rank_0(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasCtrmvStridedBatched_64_rank_0 = hipblasCtrmvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasCtrmvStridedBatched_64_rank_1(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasCtrmvStridedBatched_64_rank_1 = hipblasCtrmvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasCtrmvStridedBatched_64_full_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x, & + incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmvStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasCtrmvStridedBatched_64_full_rank = hipblasCtrmvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZtrmvStridedBatched_64_assumed_rank(handle,uplo,transA,diag,n,AP,lda,strideA, & + x,incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasZtrmvStridedBatched_64_assumed_rank = hipblasZtrmvStridedBatched_64_(handle,uplo, & + transA,diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasZtrmvStridedBatched_64_rank_0(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasZtrmvStridedBatched_64_rank_0 = hipblasZtrmvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasZtrmvStridedBatched_64_rank_1(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasZtrmvStridedBatched_64_rank_1 = hipblasZtrmvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasZtrmvStridedBatched_64_full_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x, & + incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmvStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasZtrmvStridedBatched_64_full_rank = hipblasZtrmvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasStrsv_assumed_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + ! + hipblasStrsv_assumed_rank = hipblasStrsv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x), & + incx) + end function + +#else + function hipblasStrsv_rank_0(handle,uplo,transA,diag,n,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_float),target :: AP + integer(c_int) :: lda + real(c_float),target :: x + integer(c_int) :: incx + ! + hipblasStrsv_rank_0 = hipblasStrsv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x),incx) + end function + + function hipblasStrsv_rank_1(handle,uplo,transA,diag,n,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasStrsv_rank_1 = hipblasStrsv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x),incx) + end function + + function hipblasStrsv_full_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsv_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasStrsv_full_rank = hipblasStrsv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDtrsv_assumed_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + ! + hipblasDtrsv_assumed_rank = hipblasDtrsv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x), & + incx) + end function + +#else + function hipblasDtrsv_rank_0(handle,uplo,transA,diag,n,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_double),target :: AP + integer(c_int) :: lda + real(c_double),target :: x + integer(c_int) :: incx + ! + hipblasDtrsv_rank_0 = hipblasDtrsv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x),incx) + end function + + function hipblasDtrsv_rank_1(handle,uplo,transA,diag,n,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasDtrsv_rank_1 = hipblasDtrsv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x),incx) + end function + + function hipblasDtrsv_full_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsv_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasDtrsv_full_rank = hipblasDtrsv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCtrsv_assumed_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + ! + hipblasCtrsv_assumed_rank = hipblasCtrsv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x), & + incx) + end function + +#else + function hipblasCtrsv_rank_0(handle,uplo,transA,diag,n,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_float_complex),target :: AP + integer(c_int) :: lda + complex(c_float_complex),target :: x + integer(c_int) :: incx + ! + hipblasCtrsv_rank_0 = hipblasCtrsv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x),incx) + end function + + function hipblasCtrsv_rank_1(handle,uplo,transA,diag,n,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasCtrsv_rank_1 = hipblasCtrsv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x),incx) + end function + + function hipblasCtrsv_full_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsv_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasCtrsv_full_rank = hipblasCtrsv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZtrsv_assumed_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + ! + hipblasZtrsv_assumed_rank = hipblasZtrsv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x), & + incx) + end function + +#else + function hipblasZtrsv_rank_0(handle,uplo,transA,diag,n,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_double_complex),target :: AP + integer(c_int) :: lda + complex(c_double_complex),target :: x + integer(c_int) :: incx + ! + hipblasZtrsv_rank_0 = hipblasZtrsv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x),incx) + end function + + function hipblasZtrsv_rank_1(handle,uplo,transA,diag,n,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasZtrsv_rank_1 = hipblasZtrsv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x),incx) + end function + + function hipblasZtrsv_full_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsv_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasZtrsv_full_rank = hipblasZtrsv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasStrsv_64_assumed_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + ! + hipblasStrsv_64_assumed_rank = hipblasStrsv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#else + function hipblasStrsv_64_rank_0(handle,uplo,transA,diag,n,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_float),target :: AP + integer(c_int64_t) :: lda + real(c_float),target :: x + integer(c_int64_t) :: incx + ! + hipblasStrsv_64_rank_0 = hipblasStrsv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x), & + incx) + end function + + function hipblasStrsv_64_rank_1(handle,uplo,transA,diag,n,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasStrsv_64_rank_1 = hipblasStrsv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x), & + incx) + end function + + function hipblasStrsv_64_full_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsv_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasStrsv_64_full_rank = hipblasStrsv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDtrsv_64_assumed_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + ! + hipblasDtrsv_64_assumed_rank = hipblasDtrsv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#else + function hipblasDtrsv_64_rank_0(handle,uplo,transA,diag,n,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_double),target :: AP + integer(c_int64_t) :: lda + real(c_double),target :: x + integer(c_int64_t) :: incx + ! + hipblasDtrsv_64_rank_0 = hipblasDtrsv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x), & + incx) + end function + + function hipblasDtrsv_64_rank_1(handle,uplo,transA,diag,n,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasDtrsv_64_rank_1 = hipblasDtrsv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x), & + incx) + end function + + function hipblasDtrsv_64_full_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsv_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasDtrsv_64_full_rank = hipblasDtrsv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCtrsv_64_assumed_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + ! + hipblasCtrsv_64_assumed_rank = hipblasCtrsv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#else + function hipblasCtrsv_64_rank_0(handle,uplo,transA,diag,n,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + ! + hipblasCtrsv_64_rank_0 = hipblasCtrsv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x), & + incx) + end function + + function hipblasCtrsv_64_rank_1(handle,uplo,transA,diag,n,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasCtrsv_64_rank_1 = hipblasCtrsv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x), & + incx) + end function + + function hipblasCtrsv_64_full_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsv_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasCtrsv_64_full_rank = hipblasCtrsv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZtrsv_64_assumed_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + ! + hipblasZtrsv_64_assumed_rank = hipblasZtrsv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#else + function hipblasZtrsv_64_rank_0(handle,uplo,transA,diag,n,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + ! + hipblasZtrsv_64_rank_0 = hipblasZtrsv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x), & + incx) + end function + + function hipblasZtrsv_64_rank_1(handle,uplo,transA,diag,n,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasZtrsv_64_rank_1 = hipblasZtrsv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x), & + incx) + end function + + function hipblasZtrsv_64_full_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsv_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasZtrsv_64_full_rank = hipblasZtrsv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasStrsvStridedBatched_assumed_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x, & + incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasStrsvStridedBatched_assumed_rank = hipblasStrsvStridedBatched_(handle,uplo,transA, & + diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasStrsvStridedBatched_rank_0(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_float),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasStrsvStridedBatched_rank_0 = hipblasStrsvStridedBatched_(handle,uplo,transA,diag,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasStrsvStridedBatched_rank_1(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasStrsvStridedBatched_rank_1 = hipblasStrsvStridedBatched_(handle,uplo,transA,diag,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasStrsvStridedBatched_full_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsvStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasStrsvStridedBatched_full_rank = hipblasStrsvStridedBatched_(handle,uplo,transA,diag, & + n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDtrsvStridedBatched_assumed_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x, & + incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasDtrsvStridedBatched_assumed_rank = hipblasDtrsvStridedBatched_(handle,uplo,transA, & + diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasDtrsvStridedBatched_rank_0(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_double),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasDtrsvStridedBatched_rank_0 = hipblasDtrsvStridedBatched_(handle,uplo,transA,diag,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasDtrsvStridedBatched_rank_1(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasDtrsvStridedBatched_rank_1 = hipblasDtrsvStridedBatched_(handle,uplo,transA,diag,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasDtrsvStridedBatched_full_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsvStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasDtrsvStridedBatched_full_rank = hipblasDtrsvStridedBatched_(handle,uplo,transA,diag, & + n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCtrsvStridedBatched_assumed_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x, & + incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasCtrsvStridedBatched_assumed_rank = hipblasCtrsvStridedBatched_(handle,uplo,transA, & + diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasCtrsvStridedBatched_rank_0(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_float_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasCtrsvStridedBatched_rank_0 = hipblasCtrsvStridedBatched_(handle,uplo,transA,diag,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasCtrsvStridedBatched_rank_1(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasCtrsvStridedBatched_rank_1 = hipblasCtrsvStridedBatched_(handle,uplo,transA,diag,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasCtrsvStridedBatched_full_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsvStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasCtrsvStridedBatched_full_rank = hipblasCtrsvStridedBatched_(handle,uplo,transA,diag, & + n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZtrsvStridedBatched_assumed_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x, & + incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasZtrsvStridedBatched_assumed_rank = hipblasZtrsvStridedBatched_(handle,uplo,transA, & + diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasZtrsvStridedBatched_rank_0(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_double_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasZtrsvStridedBatched_rank_0 = hipblasZtrsvStridedBatched_(handle,uplo,transA,diag,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasZtrsvStridedBatched_rank_1(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasZtrsvStridedBatched_rank_1 = hipblasZtrsvStridedBatched_(handle,uplo,transA,diag,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasZtrsvStridedBatched_full_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsvStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasZtrsvStridedBatched_full_rank = hipblasZtrsvStridedBatched_(handle,uplo,transA,diag, & + n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasStrsvStridedBatched_64_assumed_rank(handle,uplo,transA,diag,n,AP,lda,strideA, & + x,incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasStrsvStridedBatched_64_assumed_rank = hipblasStrsvStridedBatched_64_(handle,uplo, & + transA,diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasStrsvStridedBatched_64_rank_0(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_float),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasStrsvStridedBatched_64_rank_0 = hipblasStrsvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasStrsvStridedBatched_64_rank_1(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasStrsvStridedBatched_64_rank_1 = hipblasStrsvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasStrsvStridedBatched_64_full_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x, & + incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsvStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasStrsvStridedBatched_64_full_rank = hipblasStrsvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDtrsvStridedBatched_64_assumed_rank(handle,uplo,transA,diag,n,AP,lda,strideA, & + x,incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasDtrsvStridedBatched_64_assumed_rank = hipblasDtrsvStridedBatched_64_(handle,uplo, & + transA,diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasDtrsvStridedBatched_64_rank_0(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_double),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasDtrsvStridedBatched_64_rank_0 = hipblasDtrsvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasDtrsvStridedBatched_64_rank_1(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasDtrsvStridedBatched_64_rank_1 = hipblasDtrsvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasDtrsvStridedBatched_64_full_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x, & + incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsvStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasDtrsvStridedBatched_64_full_rank = hipblasDtrsvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCtrsvStridedBatched_64_assumed_rank(handle,uplo,transA,diag,n,AP,lda,strideA, & + x,incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasCtrsvStridedBatched_64_assumed_rank = hipblasCtrsvStridedBatched_64_(handle,uplo, & + transA,diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasCtrsvStridedBatched_64_rank_0(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasCtrsvStridedBatched_64_rank_0 = hipblasCtrsvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasCtrsvStridedBatched_64_rank_1(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasCtrsvStridedBatched_64_rank_1 = hipblasCtrsvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasCtrsvStridedBatched_64_full_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x, & + incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsvStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasCtrsvStridedBatched_64_full_rank = hipblasCtrsvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZtrsvStridedBatched_64_assumed_rank(handle,uplo,transA,diag,n,AP,lda,strideA, & + x,incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasZtrsvStridedBatched_64_assumed_rank = hipblasZtrsvStridedBatched_64_(handle,uplo, & + transA,diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasZtrsvStridedBatched_64_rank_0(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasZtrsvStridedBatched_64_rank_0 = hipblasZtrsvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasZtrsvStridedBatched_64_rank_1(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasZtrsvStridedBatched_64_rank_1 = hipblasZtrsvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasZtrsvStridedBatched_64_full_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x, & + incx,stridex,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsvStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasZtrsvStridedBatched_64_full_rank = hipblasZtrsvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSgemm_assumed_rank(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemm_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(..) :: BP + integer(c_int) :: ldb + real(c_float),target :: beta + real(c_float),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasSgemm_assumed_rank = hipblasSgemm_(handle,transA,transB,m,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#else + function hipblasSgemm_rank_0(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemm_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int) :: lda + real(c_float),target :: BP + integer(c_int) :: ldb + real(c_float),target :: beta + real(c_float),target :: CP + integer(c_int) :: ldc + ! + hipblasSgemm_rank_0 = hipblasSgemm_(handle,transA,transB,m,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasSgemm_rank_1(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemm_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(:) :: BP + integer(c_int) :: ldb + real(c_float),target :: beta + real(c_float),target,dimension(:) :: CP + integer(c_int) :: ldc + ! + hipblasSgemm_rank_1 = hipblasSgemm_(handle,transA,transB,m,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasSgemm_full_rank(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemm_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(:,:) :: BP + integer(c_int) :: ldb + real(c_float),target :: beta + real(c_float),target,dimension(:,:) :: CP + integer(c_int) :: ldc + ! + hipblasSgemm_full_rank = hipblasSgemm_(handle,transA,transB,m,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDgemm_assumed_rank(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemm_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(..) :: BP + integer(c_int) :: ldb + real(c_double),target :: beta + real(c_double),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasDgemm_assumed_rank = hipblasDgemm_(handle,transA,transB,m,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#else + function hipblasDgemm_rank_0(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemm_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int) :: lda + real(c_double),target :: BP + integer(c_int) :: ldb + real(c_double),target :: beta + real(c_double),target :: CP + integer(c_int) :: ldc + ! + hipblasDgemm_rank_0 = hipblasDgemm_(handle,transA,transB,m,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasDgemm_rank_1(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemm_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(:) :: BP + integer(c_int) :: ldb + real(c_double),target :: beta + real(c_double),target,dimension(:) :: CP + integer(c_int) :: ldc + ! + hipblasDgemm_rank_1 = hipblasDgemm_(handle,transA,transB,m,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasDgemm_full_rank(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemm_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(:,:) :: BP + integer(c_int) :: ldb + real(c_double),target :: beta + real(c_double),target,dimension(:,:) :: CP + integer(c_int) :: ldc + ! + hipblasDgemm_full_rank = hipblasDgemm_(handle,transA,transB,m,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCgemm_assumed_rank(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemm_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasCgemm_assumed_rank = hipblasCgemm_(handle,transA,transB,m,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#else + function hipblasCgemm_rank_0(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemm_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + complex(c_float_complex),target :: BP + integer(c_int) :: ldb + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: CP + integer(c_int) :: ldc + ! + hipblasCgemm_rank_0 = hipblasCgemm_(handle,transA,transB,m,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCgemm_rank_1(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemm_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + ! + hipblasCgemm_rank_1 = hipblasCgemm_(handle,transA,transB,m,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCgemm_full_rank(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemm_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + ! + hipblasCgemm_full_rank = hipblasCgemm_(handle,transA,transB,m,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZgemm_assumed_rank(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemm_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasZgemm_assumed_rank = hipblasZgemm_(handle,transA,transB,m,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#else + function hipblasZgemm_rank_0(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemm_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int) :: lda + complex(c_double_complex),target :: BP + integer(c_int) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: CP + integer(c_int) :: ldc + ! + hipblasZgemm_rank_0 = hipblasZgemm_(handle,transA,transB,m,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZgemm_rank_1(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemm_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + ! + hipblasZgemm_rank_1 = hipblasZgemm_(handle,transA,transB,m,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZgemm_full_rank(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemm_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + ! + hipblasZgemm_full_rank = hipblasZgemm_(handle,transA,transB,m,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSgemm_64_assumed_rank(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP, & + ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemm_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + real(c_float),target :: beta + real(c_float),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasSgemm_64_assumed_rank = hipblasSgemm_64_(handle,transA,transB,m,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#else + function hipblasSgemm_64_rank_0(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemm_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int64_t) :: lda + real(c_float),target :: BP + integer(c_int64_t) :: ldb + real(c_float),target :: beta + real(c_float),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasSgemm_64_rank_0 = hipblasSgemm_64_(handle,transA,transB,m,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasSgemm_64_rank_1(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemm_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + real(c_float),target :: beta + real(c_float),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasSgemm_64_rank_1 = hipblasSgemm_64_(handle,transA,transB,m,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasSgemm_64_full_rank(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemm_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + real(c_float),target :: beta + real(c_float),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasSgemm_64_full_rank = hipblasSgemm_64_(handle,transA,transB,m,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDgemm_64_assumed_rank(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP, & + ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemm_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + real(c_double),target :: beta + real(c_double),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasDgemm_64_assumed_rank = hipblasDgemm_64_(handle,transA,transB,m,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#else + function hipblasDgemm_64_rank_0(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemm_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int64_t) :: lda + real(c_double),target :: BP + integer(c_int64_t) :: ldb + real(c_double),target :: beta + real(c_double),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasDgemm_64_rank_0 = hipblasDgemm_64_(handle,transA,transB,m,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasDgemm_64_rank_1(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemm_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + real(c_double),target :: beta + real(c_double),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasDgemm_64_rank_1 = hipblasDgemm_64_(handle,transA,transB,m,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasDgemm_64_full_rank(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemm_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + real(c_double),target :: beta + real(c_double),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasDgemm_64_full_rank = hipblasDgemm_64_(handle,transA,transB,m,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCgemm_64_assumed_rank(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP, & + ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemm_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCgemm_64_assumed_rank = hipblasCgemm_64_(handle,transA,transB,m,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#else + function hipblasCgemm_64_rank_0(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemm_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target :: BP + integer(c_int64_t) :: ldb + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasCgemm_64_rank_0 = hipblasCgemm_64_(handle,transA,transB,m,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCgemm_64_rank_1(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemm_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCgemm_64_rank_1 = hipblasCgemm_64_(handle,transA,transB,m,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCgemm_64_full_rank(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemm_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCgemm_64_full_rank = hipblasCgemm_64_(handle,transA,transB,m,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZgemm_64_assumed_rank(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP, & + ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemm_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZgemm_64_assumed_rank = hipblasZgemm_64_(handle,transA,transB,m,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#else + function hipblasZgemm_64_rank_0(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemm_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target :: BP + integer(c_int64_t) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasZgemm_64_rank_0 = hipblasZgemm_64_(handle,transA,transB,m,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZgemm_64_rank_1(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemm_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZgemm_64_rank_1 = hipblasZgemm_64_(handle,transA,transB,m,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZgemm_64_full_rank(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemm_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZgemm_64_full_rank = hipblasZgemm_64_(handle,transA,transB,m,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSgemmStridedBatched_assumed_rank(handle,transA,transB,m,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + real(c_float),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasSgemmStridedBatched_assumed_rank = hipblasSgemmStridedBatched_(handle,transA,transB, & + m,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + +#else + function hipblasSgemmStridedBatched_rank_0(handle,transA,transB,m,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + real(c_float),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasSgemmStridedBatched_rank_0 = hipblasSgemmStridedBatched_(handle,transA,transB,m,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasSgemmStridedBatched_rank_1(handle,transA,transB,m,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + real(c_float),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasSgemmStridedBatched_rank_1 = hipblasSgemmStridedBatched_(handle,transA,transB,m,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasSgemmStridedBatched_full_rank(handle,transA,transB,m,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + real(c_float),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasSgemmStridedBatched_full_rank = hipblasSgemmStridedBatched_(handle,transA,transB,m,n, & + k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDgemmStridedBatched_assumed_rank(handle,transA,transB,m,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + real(c_double),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasDgemmStridedBatched_assumed_rank = hipblasDgemmStridedBatched_(handle,transA,transB, & + m,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + +#else + function hipblasDgemmStridedBatched_rank_0(handle,transA,transB,m,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + real(c_double),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasDgemmStridedBatched_rank_0 = hipblasDgemmStridedBatched_(handle,transA,transB,m,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasDgemmStridedBatched_rank_1(handle,transA,transB,m,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + real(c_double),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasDgemmStridedBatched_rank_1 = hipblasDgemmStridedBatched_(handle,transA,transB,m,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasDgemmStridedBatched_full_rank(handle,transA,transB,m,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + real(c_double),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasDgemmStridedBatched_full_rank = hipblasDgemmStridedBatched_(handle,transA,transB,m,n, & + k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCgemmStridedBatched_assumed_rank(handle,transA,transB,m,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemmStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCgemmStridedBatched_assumed_rank = hipblasCgemmStridedBatched_(handle,transA,transB, & + m,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + +#else + function hipblasCgemmStridedBatched_rank_0(handle,transA,transB,m,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemmStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCgemmStridedBatched_rank_0 = hipblasCgemmStridedBatched_(handle,transA,transB,m,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasCgemmStridedBatched_rank_1(handle,transA,transB,m,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemmStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCgemmStridedBatched_rank_1 = hipblasCgemmStridedBatched_(handle,transA,transB,m,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasCgemmStridedBatched_full_rank(handle,transA,transB,m,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemmStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCgemmStridedBatched_full_rank = hipblasCgemmStridedBatched_(handle,transA,transB,m,n, & + k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZgemmStridedBatched_assumed_rank(handle,transA,transB,m,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemmStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZgemmStridedBatched_assumed_rank = hipblasZgemmStridedBatched_(handle,transA,transB, & + m,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + +#else + function hipblasZgemmStridedBatched_rank_0(handle,transA,transB,m,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemmStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZgemmStridedBatched_rank_0 = hipblasZgemmStridedBatched_(handle,transA,transB,m,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasZgemmStridedBatched_rank_1(handle,transA,transB,m,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemmStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZgemmStridedBatched_rank_1 = hipblasZgemmStridedBatched_(handle,transA,transB,m,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasZgemmStridedBatched_full_rank(handle,transA,transB,m,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemmStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZgemmStridedBatched_full_rank = hipblasZgemmStridedBatched_(handle,transA,transB,m,n, & + k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSgemmStridedBatched_64_assumed_rank(handle,transA,transB,m,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + real(c_float),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasSgemmStridedBatched_64_assumed_rank = hipblasSgemmStridedBatched_64_(handle,transA, & + transB,m,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta), & + c_loc(CP),ldc,strideC,batchCount) + end function + +#else + function hipblasSgemmStridedBatched_64_rank_0(handle,transA,transB,m,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + real(c_float),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasSgemmStridedBatched_64_rank_0 = hipblasSgemmStridedBatched_64_(handle,transA,transB, & + m,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasSgemmStridedBatched_64_rank_1(handle,transA,transB,m,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + real(c_float),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasSgemmStridedBatched_64_rank_1 = hipblasSgemmStridedBatched_64_(handle,transA,transB, & + m,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasSgemmStridedBatched_64_full_rank(handle,transA,transB,m,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + real(c_float),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasSgemmStridedBatched_64_full_rank = hipblasSgemmStridedBatched_64_(handle,transA, & + transB,m,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta), & + c_loc(CP),ldc,strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDgemmStridedBatched_64_assumed_rank(handle,transA,transB,m,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + real(c_double),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasDgemmStridedBatched_64_assumed_rank = hipblasDgemmStridedBatched_64_(handle,transA, & + transB,m,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta), & + c_loc(CP),ldc,strideC,batchCount) + end function + +#else + function hipblasDgemmStridedBatched_64_rank_0(handle,transA,transB,m,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + real(c_double),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasDgemmStridedBatched_64_rank_0 = hipblasDgemmStridedBatched_64_(handle,transA,transB, & + m,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasDgemmStridedBatched_64_rank_1(handle,transA,transB,m,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + real(c_double),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasDgemmStridedBatched_64_rank_1 = hipblasDgemmStridedBatched_64_(handle,transA,transB, & + m,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasDgemmStridedBatched_64_full_rank(handle,transA,transB,m,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + real(c_double),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasDgemmStridedBatched_64_full_rank = hipblasDgemmStridedBatched_64_(handle,transA, & + transB,m,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta), & + c_loc(CP),ldc,strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCgemmStridedBatched_64_assumed_rank(handle,transA,transB,m,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemmStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCgemmStridedBatched_64_assumed_rank = hipblasCgemmStridedBatched_64_(handle,transA, & + transB,m,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta), & + c_loc(CP),ldc,strideC,batchCount) + end function + +#else + function hipblasCgemmStridedBatched_64_rank_0(handle,transA,transB,m,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemmStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCgemmStridedBatched_64_rank_0 = hipblasCgemmStridedBatched_64_(handle,transA,transB, & + m,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasCgemmStridedBatched_64_rank_1(handle,transA,transB,m,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemmStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCgemmStridedBatched_64_rank_1 = hipblasCgemmStridedBatched_64_(handle,transA,transB, & + m,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasCgemmStridedBatched_64_full_rank(handle,transA,transB,m,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemmStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCgemmStridedBatched_64_full_rank = hipblasCgemmStridedBatched_64_(handle,transA, & + transB,m,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta), & + c_loc(CP),ldc,strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZgemmStridedBatched_64_assumed_rank(handle,transA,transB,m,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemmStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZgemmStridedBatched_64_assumed_rank = hipblasZgemmStridedBatched_64_(handle,transA, & + transB,m,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta), & + c_loc(CP),ldc,strideC,batchCount) + end function + +#else + function hipblasZgemmStridedBatched_64_rank_0(handle,transA,transB,m,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemmStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZgemmStridedBatched_64_rank_0 = hipblasZgemmStridedBatched_64_(handle,transA,transB, & + m,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasZgemmStridedBatched_64_rank_1(handle,transA,transB,m,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemmStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZgemmStridedBatched_64_rank_1 = hipblasZgemmStridedBatched_64_(handle,transA,transB, & + m,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasZgemmStridedBatched_64_full_rank(handle,transA,transB,m,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemmStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZgemmStridedBatched_64_full_rank = hipblasZgemmStridedBatched_64_(handle,transA, & + transB,m,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta), & + c_loc(CP),ldc,strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCherk_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherk_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_float),target :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasCherk_assumed_rank = hipblasCherk_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(CP),ldc) + end function + +#else + function hipblasCherk_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherk_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + real(c_float),target :: beta + complex(c_float_complex),target :: CP + integer(c_int) :: ldc + ! + hipblasCherk_rank_0 = hipblasCherk_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCherk_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherk_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_float),target :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + ! + hipblasCherk_rank_1 = hipblasCherk_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCherk_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherk_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_float),target :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + ! + hipblasCherk_full_rank = hipblasCherk_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZherk_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherk_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_double),target :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasZherk_assumed_rank = hipblasZherk_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(CP),ldc) + end function + +#else + function hipblasZherk_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherk_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int) :: lda + real(c_double),target :: beta + complex(c_double_complex),target :: CP + integer(c_int) :: ldc + ! + hipblasZherk_rank_0 = hipblasZherk_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZherk_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherk_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_double),target :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + ! + hipblasZherk_rank_1 = hipblasZherk_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZherk_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherk_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_double),target :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + ! + hipblasZherk_full_rank = hipblasZherk_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCherk_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherk_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_float),target :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCherk_64_assumed_rank = hipblasCherk_64_(handle,uplo,transA,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(beta),c_loc(CP),ldc) + end function + +#else + function hipblasCherk_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherk_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + real(c_float),target :: beta + complex(c_float_complex),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasCherk_64_rank_0 = hipblasCherk_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCherk_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherk_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + real(c_float),target :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCherk_64_rank_1 = hipblasCherk_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCherk_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherk_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + real(c_float),target :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCherk_64_full_rank = hipblasCherk_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(beta),c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZherk_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherk_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_double),target :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZherk_64_assumed_rank = hipblasZherk_64_(handle,uplo,transA,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(beta),c_loc(CP),ldc) + end function + +#else + function hipblasZherk_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherk_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + real(c_double),target :: beta + complex(c_double_complex),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasZherk_64_rank_0 = hipblasZherk_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZherk_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherk_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + real(c_double),target :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZherk_64_rank_1 = hipblasZherk_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZherk_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherk_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + real(c_double),target :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZherk_64_full_rank = hipblasZherk_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(beta),c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCherkStridedBatched_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCherkStridedBatched_assumed_rank = hipblasCherkStridedBatched_(handle,uplo,transA,n, & + k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + +#else + function hipblasCherkStridedBatched_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta, & + CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: beta + complex(c_float_complex),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCherkStridedBatched_rank_0 = hipblasCherkStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasCherkStridedBatched_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta, & + CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCherkStridedBatched_rank_1 = hipblasCherkStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasCherkStridedBatched_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCherkStridedBatched_full_rank = hipblasCherkStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZherkStridedBatched_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZherkStridedBatched_assumed_rank = hipblasZherkStridedBatched_(handle,uplo,transA,n, & + k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + +#else + function hipblasZherkStridedBatched_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta, & + CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: beta + complex(c_double_complex),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZherkStridedBatched_rank_0 = hipblasZherkStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasZherkStridedBatched_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta, & + CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZherkStridedBatched_rank_1 = hipblasZherkStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasZherkStridedBatched_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZherkStridedBatched_full_rank = hipblasZherkStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCherkStridedBatched_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCherkStridedBatched_64_assumed_rank = hipblasCherkStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + +#else + function hipblasCherkStridedBatched_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: beta + complex(c_float_complex),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCherkStridedBatched_64_rank_0 = hipblasCherkStridedBatched_64_(handle,uplo,transA,n, & + k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasCherkStridedBatched_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCherkStridedBatched_64_rank_1 = hipblasCherkStridedBatched_64_(handle,uplo,transA,n, & + k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasCherkStridedBatched_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCherkStridedBatched_64_full_rank = hipblasCherkStridedBatched_64_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZherkStridedBatched_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZherkStridedBatched_64_assumed_rank = hipblasZherkStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + +#else + function hipblasZherkStridedBatched_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: beta + complex(c_double_complex),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZherkStridedBatched_64_rank_0 = hipblasZherkStridedBatched_64_(handle,uplo,transA,n, & + k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasZherkStridedBatched_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZherkStridedBatched_64_rank_1 = hipblasZherkStridedBatched_64_(handle,uplo,transA,n, & + k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasZherkStridedBatched_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZherkStridedBatched_64_full_rank = hipblasZherkStridedBatched_64_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCherkx_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkx_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + real(c_float),target :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasCherkx_assumed_rank = hipblasCherkx_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#else + function hipblasCherkx_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkx_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + complex(c_float_complex),target :: BP + integer(c_int) :: ldb + real(c_float),target :: beta + complex(c_float_complex),target :: CP + integer(c_int) :: ldc + ! + hipblasCherkx_rank_0 = hipblasCherkx_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCherkx_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkx_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + real(c_float),target :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + ! + hipblasCherkx_rank_1 = hipblasCherkx_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCherkx_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkx_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + real(c_float),target :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + ! + hipblasCherkx_full_rank = hipblasCherkx_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZherkx_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkx_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + real(c_double),target :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasZherkx_assumed_rank = hipblasZherkx_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#else + function hipblasZherkx_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkx_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int) :: lda + complex(c_double_complex),target :: BP + integer(c_int) :: ldb + real(c_double),target :: beta + complex(c_double_complex),target :: CP + integer(c_int) :: ldc + ! + hipblasZherkx_rank_0 = hipblasZherkx_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZherkx_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkx_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + real(c_double),target :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + ! + hipblasZherkx_rank_1 = hipblasZherkx_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZherkx_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkx_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + real(c_double),target :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + ! + hipblasZherkx_full_rank = hipblasZherkx_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCherkx_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkx_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + real(c_float),target :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCherkx_64_assumed_rank = hipblasCherkx_64_(handle,uplo,transA,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#else + function hipblasCherkx_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkx_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target :: BP + integer(c_int64_t) :: ldb + real(c_float),target :: beta + complex(c_float_complex),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasCherkx_64_rank_0 = hipblasCherkx_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCherkx_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkx_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + real(c_float),target :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCherkx_64_rank_1 = hipblasCherkx_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCherkx_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkx_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + real(c_float),target :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCherkx_64_full_rank = hipblasCherkx_64_(handle,uplo,transA,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZherkx_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkx_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + real(c_double),target :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZherkx_64_assumed_rank = hipblasZherkx_64_(handle,uplo,transA,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#else + function hipblasZherkx_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkx_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target :: BP + integer(c_int64_t) :: ldb + real(c_double),target :: beta + complex(c_double_complex),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasZherkx_64_rank_0 = hipblasZherkx_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZherkx_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkx_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + real(c_double),target :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZherkx_64_rank_1 = hipblasZherkx_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZherkx_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkx_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + real(c_double),target :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZherkx_64_full_rank = hipblasZherkx_64_(handle,uplo,transA,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCherkxStridedBatched_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkxStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCherkxStridedBatched_assumed_rank = hipblasCherkxStridedBatched_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + +#else + function hipblasCherkxStridedBatched_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkxStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + complex(c_float_complex),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCherkxStridedBatched_rank_0 = hipblasCherkxStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasCherkxStridedBatched_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkxStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCherkxStridedBatched_rank_1 = hipblasCherkxStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasCherkxStridedBatched_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkxStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCherkxStridedBatched_full_rank = hipblasCherkxStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZherkxStridedBatched_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkxStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZherkxStridedBatched_assumed_rank = hipblasZherkxStridedBatched_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + +#else + function hipblasZherkxStridedBatched_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkxStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + complex(c_double_complex),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZherkxStridedBatched_rank_0 = hipblasZherkxStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasZherkxStridedBatched_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkxStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZherkxStridedBatched_rank_1 = hipblasZherkxStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasZherkxStridedBatched_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkxStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZherkxStridedBatched_full_rank = hipblasZherkxStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCherkxStridedBatched_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkxStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCherkxStridedBatched_64_assumed_rank = hipblasCherkxStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) + end function + +#else + function hipblasCherkxStridedBatched_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkxStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + complex(c_float_complex),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCherkxStridedBatched_64_rank_0 = hipblasCherkxStridedBatched_64_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasCherkxStridedBatched_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkxStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCherkxStridedBatched_64_rank_1 = hipblasCherkxStridedBatched_64_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasCherkxStridedBatched_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkxStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCherkxStridedBatched_64_full_rank = hipblasCherkxStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZherkxStridedBatched_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkxStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZherkxStridedBatched_64_assumed_rank = hipblasZherkxStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) + end function + +#else + function hipblasZherkxStridedBatched_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkxStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + complex(c_double_complex),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZherkxStridedBatched_64_rank_0 = hipblasZherkxStridedBatched_64_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasZherkxStridedBatched_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkxStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZherkxStridedBatched_64_rank_1 = hipblasZherkxStridedBatched_64_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasZherkxStridedBatched_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkxStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZherkxStridedBatched_64_full_rank = hipblasZherkxStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCher2k_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2k_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + real(c_float),target :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasCher2k_assumed_rank = hipblasCher2k_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#else + function hipblasCher2k_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2k_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + complex(c_float_complex),target :: BP + integer(c_int) :: ldb + real(c_float),target :: beta + complex(c_float_complex),target :: CP + integer(c_int) :: ldc + ! + hipblasCher2k_rank_0 = hipblasCher2k_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCher2k_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2k_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + real(c_float),target :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + ! + hipblasCher2k_rank_1 = hipblasCher2k_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCher2k_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2k_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + real(c_float),target :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + ! + hipblasCher2k_full_rank = hipblasCher2k_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZher2k_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2k_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + real(c_double),target :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasZher2k_assumed_rank = hipblasZher2k_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#else + function hipblasZher2k_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2k_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int) :: lda + complex(c_double_complex),target :: BP + integer(c_int) :: ldb + real(c_double),target :: beta + complex(c_double_complex),target :: CP + integer(c_int) :: ldc + ! + hipblasZher2k_rank_0 = hipblasZher2k_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZher2k_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2k_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + real(c_double),target :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + ! + hipblasZher2k_rank_1 = hipblasZher2k_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZher2k_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2k_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + real(c_double),target :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + ! + hipblasZher2k_full_rank = hipblasZher2k_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCher2k_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2k_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + real(c_float),target :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCher2k_64_assumed_rank = hipblasCher2k_64_(handle,uplo,transA,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#else + function hipblasCher2k_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2k_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target :: BP + integer(c_int64_t) :: ldb + real(c_float),target :: beta + complex(c_float_complex),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasCher2k_64_rank_0 = hipblasCher2k_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCher2k_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2k_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + real(c_float),target :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCher2k_64_rank_1 = hipblasCher2k_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCher2k_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2k_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + real(c_float),target :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCher2k_64_full_rank = hipblasCher2k_64_(handle,uplo,transA,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZher2k_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2k_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + real(c_double),target :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZher2k_64_assumed_rank = hipblasZher2k_64_(handle,uplo,transA,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#else + function hipblasZher2k_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2k_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target :: BP + integer(c_int64_t) :: ldb + real(c_double),target :: beta + complex(c_double_complex),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasZher2k_64_rank_0 = hipblasZher2k_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZher2k_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2k_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + real(c_double),target :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZher2k_64_rank_1 = hipblasZher2k_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZher2k_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2k_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + real(c_double),target :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZher2k_64_full_rank = hipblasZher2k_64_(handle,uplo,transA,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCher2kStridedBatched_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2kStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCher2kStridedBatched_assumed_rank = hipblasCher2kStridedBatched_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + +#else + function hipblasCher2kStridedBatched_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2kStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + complex(c_float_complex),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCher2kStridedBatched_rank_0 = hipblasCher2kStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasCher2kStridedBatched_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2kStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCher2kStridedBatched_rank_1 = hipblasCher2kStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasCher2kStridedBatched_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2kStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCher2kStridedBatched_full_rank = hipblasCher2kStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZher2kStridedBatched_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2kStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZher2kStridedBatched_assumed_rank = hipblasZher2kStridedBatched_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + +#else + function hipblasZher2kStridedBatched_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2kStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + complex(c_double_complex),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZher2kStridedBatched_rank_0 = hipblasZher2kStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasZher2kStridedBatched_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2kStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZher2kStridedBatched_rank_1 = hipblasZher2kStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasZher2kStridedBatched_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2kStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZher2kStridedBatched_full_rank = hipblasZher2kStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCher2kStridedBatched_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2kStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCher2kStridedBatched_64_assumed_rank = hipblasCher2kStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) + end function + +#else + function hipblasCher2kStridedBatched_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2kStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + complex(c_float_complex),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCher2kStridedBatched_64_rank_0 = hipblasCher2kStridedBatched_64_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasCher2kStridedBatched_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2kStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCher2kStridedBatched_64_rank_1 = hipblasCher2kStridedBatched_64_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasCher2kStridedBatched_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2kStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCher2kStridedBatched_64_full_rank = hipblasCher2kStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZher2kStridedBatched_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2kStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZher2kStridedBatched_64_assumed_rank = hipblasZher2kStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) + end function + +#else + function hipblasZher2kStridedBatched_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2kStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + complex(c_double_complex),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZher2kStridedBatched_64_rank_0 = hipblasZher2kStridedBatched_64_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasZher2kStridedBatched_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2kStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZher2kStridedBatched_64_rank_1 = hipblasZher2kStridedBatched_64_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasZher2kStridedBatched_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2kStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZher2kStridedBatched_64_full_rank = hipblasZher2kStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSsymm_assumed_rank(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymm_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(..) :: BP + integer(c_int) :: ldb + real(c_float),target :: beta + real(c_float),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasSsymm_assumed_rank = hipblasSsymm_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#else + function hipblasSsymm_rank_0(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymm_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int) :: lda + real(c_float),target :: BP + integer(c_int) :: ldb + real(c_float),target :: beta + real(c_float),target :: CP + integer(c_int) :: ldc + ! + hipblasSsymm_rank_0 = hipblasSsymm_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasSsymm_rank_1(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymm_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(:) :: BP + integer(c_int) :: ldb + real(c_float),target :: beta + real(c_float),target,dimension(:) :: CP + integer(c_int) :: ldc + ! + hipblasSsymm_rank_1 = hipblasSsymm_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasSsymm_full_rank(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymm_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(:,:) :: BP + integer(c_int) :: ldb + real(c_float),target :: beta + real(c_float),target,dimension(:,:) :: CP + integer(c_int) :: ldc + ! + hipblasSsymm_full_rank = hipblasSsymm_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDsymm_assumed_rank(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymm_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(..) :: BP + integer(c_int) :: ldb + real(c_double),target :: beta + real(c_double),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasDsymm_assumed_rank = hipblasDsymm_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#else + function hipblasDsymm_rank_0(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymm_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int) :: lda + real(c_double),target :: BP + integer(c_int) :: ldb + real(c_double),target :: beta + real(c_double),target :: CP + integer(c_int) :: ldc + ! + hipblasDsymm_rank_0 = hipblasDsymm_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasDsymm_rank_1(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymm_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(:) :: BP + integer(c_int) :: ldb + real(c_double),target :: beta + real(c_double),target,dimension(:) :: CP + integer(c_int) :: ldc + ! + hipblasDsymm_rank_1 = hipblasDsymm_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasDsymm_full_rank(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymm_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(:,:) :: BP + integer(c_int) :: ldb + real(c_double),target :: beta + real(c_double),target,dimension(:,:) :: CP + integer(c_int) :: ldc + ! + hipblasDsymm_full_rank = hipblasDsymm_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCsymm_assumed_rank(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymm_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasCsymm_assumed_rank = hipblasCsymm_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#else + function hipblasCsymm_rank_0(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymm_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + complex(c_float_complex),target :: BP + integer(c_int) :: ldb + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: CP + integer(c_int) :: ldc + ! + hipblasCsymm_rank_0 = hipblasCsymm_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCsymm_rank_1(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymm_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + ! + hipblasCsymm_rank_1 = hipblasCsymm_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCsymm_full_rank(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymm_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + ! + hipblasCsymm_full_rank = hipblasCsymm_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZsymm_assumed_rank(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymm_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasZsymm_assumed_rank = hipblasZsymm_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#else + function hipblasZsymm_rank_0(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymm_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int) :: lda + complex(c_double_complex),target :: BP + integer(c_int) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: CP + integer(c_int) :: ldc + ! + hipblasZsymm_rank_0 = hipblasZsymm_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZsymm_rank_1(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymm_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + ! + hipblasZsymm_rank_1 = hipblasZsymm_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZsymm_full_rank(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymm_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + ! + hipblasZsymm_full_rank = hipblasZsymm_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSsymm_64_assumed_rank(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymm_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + real(c_float),target :: beta + real(c_float),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasSsymm_64_assumed_rank = hipblasSsymm_64_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#else + function hipblasSsymm_64_rank_0(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymm_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int64_t) :: lda + real(c_float),target :: BP + integer(c_int64_t) :: ldb + real(c_float),target :: beta + real(c_float),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasSsymm_64_rank_0 = hipblasSsymm_64_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasSsymm_64_rank_1(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymm_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + real(c_float),target :: beta + real(c_float),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasSsymm_64_rank_1 = hipblasSsymm_64_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasSsymm_64_full_rank(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymm_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + real(c_float),target :: beta + real(c_float),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasSsymm_64_full_rank = hipblasSsymm_64_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDsymm_64_assumed_rank(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymm_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + real(c_double),target :: beta + real(c_double),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasDsymm_64_assumed_rank = hipblasDsymm_64_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#else + function hipblasDsymm_64_rank_0(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymm_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int64_t) :: lda + real(c_double),target :: BP + integer(c_int64_t) :: ldb + real(c_double),target :: beta + real(c_double),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasDsymm_64_rank_0 = hipblasDsymm_64_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasDsymm_64_rank_1(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymm_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + real(c_double),target :: beta + real(c_double),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasDsymm_64_rank_1 = hipblasDsymm_64_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasDsymm_64_full_rank(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymm_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + real(c_double),target :: beta + real(c_double),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasDsymm_64_full_rank = hipblasDsymm_64_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCsymm_64_assumed_rank(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymm_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCsymm_64_assumed_rank = hipblasCsymm_64_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#else + function hipblasCsymm_64_rank_0(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymm_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target :: BP + integer(c_int64_t) :: ldb + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasCsymm_64_rank_0 = hipblasCsymm_64_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCsymm_64_rank_1(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymm_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCsymm_64_rank_1 = hipblasCsymm_64_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCsymm_64_full_rank(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymm_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCsymm_64_full_rank = hipblasCsymm_64_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZsymm_64_assumed_rank(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymm_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZsymm_64_assumed_rank = hipblasZsymm_64_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#else + function hipblasZsymm_64_rank_0(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymm_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target :: BP + integer(c_int64_t) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasZsymm_64_rank_0 = hipblasZsymm_64_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZsymm_64_rank_1(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymm_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZsymm_64_rank_1 = hipblasZsymm_64_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZsymm_64_full_rank(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymm_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZsymm_64_full_rank = hipblasZsymm_64_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSsymmStridedBatched_assumed_rank(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymmStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + real(c_float),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasSsymmStridedBatched_assumed_rank = hipblasSsymmStridedBatched_(handle,side,uplo,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + +#else + function hipblasSsymmStridedBatched_rank_0(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymmStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + real(c_float),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasSsymmStridedBatched_rank_0 = hipblasSsymmStridedBatched_(handle,side,uplo,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasSsymmStridedBatched_rank_1(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymmStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + real(c_float),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasSsymmStridedBatched_rank_1 = hipblasSsymmStridedBatched_(handle,side,uplo,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasSsymmStridedBatched_full_rank(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymmStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + real(c_float),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasSsymmStridedBatched_full_rank = hipblasSsymmStridedBatched_(handle,side,uplo,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDsymmStridedBatched_assumed_rank(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymmStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + real(c_double),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasDsymmStridedBatched_assumed_rank = hipblasDsymmStridedBatched_(handle,side,uplo,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + +#else + function hipblasDsymmStridedBatched_rank_0(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymmStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + real(c_double),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasDsymmStridedBatched_rank_0 = hipblasDsymmStridedBatched_(handle,side,uplo,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasDsymmStridedBatched_rank_1(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymmStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + real(c_double),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasDsymmStridedBatched_rank_1 = hipblasDsymmStridedBatched_(handle,side,uplo,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasDsymmStridedBatched_full_rank(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymmStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + real(c_double),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasDsymmStridedBatched_full_rank = hipblasDsymmStridedBatched_(handle,side,uplo,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCsymmStridedBatched_assumed_rank(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymmStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCsymmStridedBatched_assumed_rank = hipblasCsymmStridedBatched_(handle,side,uplo,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + +#else + function hipblasCsymmStridedBatched_rank_0(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymmStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCsymmStridedBatched_rank_0 = hipblasCsymmStridedBatched_(handle,side,uplo,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasCsymmStridedBatched_rank_1(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymmStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCsymmStridedBatched_rank_1 = hipblasCsymmStridedBatched_(handle,side,uplo,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasCsymmStridedBatched_full_rank(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymmStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCsymmStridedBatched_full_rank = hipblasCsymmStridedBatched_(handle,side,uplo,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZsymmStridedBatched_assumed_rank(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymmStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZsymmStridedBatched_assumed_rank = hipblasZsymmStridedBatched_(handle,side,uplo,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + +#else + function hipblasZsymmStridedBatched_rank_0(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymmStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZsymmStridedBatched_rank_0 = hipblasZsymmStridedBatched_(handle,side,uplo,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasZsymmStridedBatched_rank_1(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymmStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZsymmStridedBatched_rank_1 = hipblasZsymmStridedBatched_(handle,side,uplo,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasZsymmStridedBatched_full_rank(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymmStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZsymmStridedBatched_full_rank = hipblasZsymmStridedBatched_(handle,side,uplo,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSsymmStridedBatched_64_assumed_rank(handle,side,uplo,m,n,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymmStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + real(c_float),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasSsymmStridedBatched_64_assumed_rank = hipblasSsymmStridedBatched_64_(handle,side, & + uplo,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) + end function + +#else + function hipblasSsymmStridedBatched_64_rank_0(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymmStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + real(c_float),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasSsymmStridedBatched_64_rank_0 = hipblasSsymmStridedBatched_64_(handle,side,uplo,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasSsymmStridedBatched_64_rank_1(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymmStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + real(c_float),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasSsymmStridedBatched_64_rank_1 = hipblasSsymmStridedBatched_64_(handle,side,uplo,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasSsymmStridedBatched_64_full_rank(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymmStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + real(c_float),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasSsymmStridedBatched_64_full_rank = hipblasSsymmStridedBatched_64_(handle,side,uplo,m, & + n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDsymmStridedBatched_64_assumed_rank(handle,side,uplo,m,n,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymmStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + real(c_double),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasDsymmStridedBatched_64_assumed_rank = hipblasDsymmStridedBatched_64_(handle,side, & + uplo,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) + end function + +#else + function hipblasDsymmStridedBatched_64_rank_0(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymmStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + real(c_double),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasDsymmStridedBatched_64_rank_0 = hipblasDsymmStridedBatched_64_(handle,side,uplo,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasDsymmStridedBatched_64_rank_1(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymmStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + real(c_double),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasDsymmStridedBatched_64_rank_1 = hipblasDsymmStridedBatched_64_(handle,side,uplo,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasDsymmStridedBatched_64_full_rank(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymmStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + real(c_double),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasDsymmStridedBatched_64_full_rank = hipblasDsymmStridedBatched_64_(handle,side,uplo,m, & + n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCsymmStridedBatched_64_assumed_rank(handle,side,uplo,m,n,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymmStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCsymmStridedBatched_64_assumed_rank = hipblasCsymmStridedBatched_64_(handle,side, & + uplo,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) + end function + +#else + function hipblasCsymmStridedBatched_64_rank_0(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymmStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCsymmStridedBatched_64_rank_0 = hipblasCsymmStridedBatched_64_(handle,side,uplo,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasCsymmStridedBatched_64_rank_1(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymmStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCsymmStridedBatched_64_rank_1 = hipblasCsymmStridedBatched_64_(handle,side,uplo,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasCsymmStridedBatched_64_full_rank(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymmStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCsymmStridedBatched_64_full_rank = hipblasCsymmStridedBatched_64_(handle,side,uplo,m, & + n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZsymmStridedBatched_64_assumed_rank(handle,side,uplo,m,n,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymmStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZsymmStridedBatched_64_assumed_rank = hipblasZsymmStridedBatched_64_(handle,side, & + uplo,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) + end function + +#else + function hipblasZsymmStridedBatched_64_rank_0(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymmStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZsymmStridedBatched_64_rank_0 = hipblasZsymmStridedBatched_64_(handle,side,uplo,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasZsymmStridedBatched_64_rank_1(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymmStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZsymmStridedBatched_64_rank_1 = hipblasZsymmStridedBatched_64_(handle,side,uplo,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasZsymmStridedBatched_64_full_rank(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymmStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZsymmStridedBatched_64_full_rank = hipblasZsymmStridedBatched_64_(handle,side,uplo,m, & + n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSsyrk_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrk_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_float),target :: beta + real(c_float),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasSsyrk_assumed_rank = hipblasSsyrk_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(CP),ldc) + end function + +#else + function hipblasSsyrk_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrk_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int) :: lda + real(c_float),target :: beta + real(c_float),target :: CP + integer(c_int) :: ldc + ! + hipblasSsyrk_rank_0 = hipblasSsyrk_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasSsyrk_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrk_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_float),target :: beta + real(c_float),target,dimension(:) :: CP + integer(c_int) :: ldc + ! + hipblasSsyrk_rank_1 = hipblasSsyrk_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasSsyrk_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrk_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_float),target :: beta + real(c_float),target,dimension(:,:) :: CP + integer(c_int) :: ldc + ! + hipblasSsyrk_full_rank = hipblasSsyrk_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDsyrk_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrk_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_double),target :: beta + real(c_double),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasDsyrk_assumed_rank = hipblasDsyrk_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(CP),ldc) + end function + +#else + function hipblasDsyrk_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrk_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int) :: lda + real(c_double),target :: beta + real(c_double),target :: CP + integer(c_int) :: ldc + ! + hipblasDsyrk_rank_0 = hipblasDsyrk_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasDsyrk_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrk_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_double),target :: beta + real(c_double),target,dimension(:) :: CP + integer(c_int) :: ldc + ! + hipblasDsyrk_rank_1 = hipblasDsyrk_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasDsyrk_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrk_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_double),target :: beta + real(c_double),target,dimension(:,:) :: CP + integer(c_int) :: ldc + ! + hipblasDsyrk_full_rank = hipblasDsyrk_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCsyrk_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrk_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasCsyrk_assumed_rank = hipblasCsyrk_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(CP),ldc) + end function + +#else + function hipblasCsyrk_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrk_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: CP + integer(c_int) :: ldc + ! + hipblasCsyrk_rank_0 = hipblasCsyrk_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCsyrk_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrk_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + ! + hipblasCsyrk_rank_1 = hipblasCsyrk_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCsyrk_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrk_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + ! + hipblasCsyrk_full_rank = hipblasCsyrk_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZsyrk_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrk_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasZsyrk_assumed_rank = hipblasZsyrk_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(CP),ldc) + end function + +#else + function hipblasZsyrk_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrk_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int) :: lda + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: CP + integer(c_int) :: ldc + ! + hipblasZsyrk_rank_0 = hipblasZsyrk_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZsyrk_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrk_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + ! + hipblasZsyrk_rank_1 = hipblasZsyrk_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZsyrk_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrk_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + ! + hipblasZsyrk_full_rank = hipblasZsyrk_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSsyrk_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrk_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_float),target :: beta + real(c_float),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasSsyrk_64_assumed_rank = hipblasSsyrk_64_(handle,uplo,transA,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(beta),c_loc(CP),ldc) + end function + +#else + function hipblasSsyrk_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrk_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int64_t) :: lda + real(c_float),target :: beta + real(c_float),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasSsyrk_64_rank_0 = hipblasSsyrk_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasSsyrk_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrk_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + real(c_float),target :: beta + real(c_float),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasSsyrk_64_rank_1 = hipblasSsyrk_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasSsyrk_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrk_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + real(c_float),target :: beta + real(c_float),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasSsyrk_64_full_rank = hipblasSsyrk_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(beta),c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDsyrk_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrk_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_double),target :: beta + real(c_double),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasDsyrk_64_assumed_rank = hipblasDsyrk_64_(handle,uplo,transA,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(beta),c_loc(CP),ldc) + end function + +#else + function hipblasDsyrk_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrk_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int64_t) :: lda + real(c_double),target :: beta + real(c_double),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasDsyrk_64_rank_0 = hipblasDsyrk_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasDsyrk_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrk_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + real(c_double),target :: beta + real(c_double),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasDsyrk_64_rank_1 = hipblasDsyrk_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasDsyrk_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrk_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + real(c_double),target :: beta + real(c_double),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasDsyrk_64_full_rank = hipblasDsyrk_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(beta),c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCsyrk_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrk_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCsyrk_64_assumed_rank = hipblasCsyrk_64_(handle,uplo,transA,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(beta),c_loc(CP),ldc) + end function + +#else + function hipblasCsyrk_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrk_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasCsyrk_64_rank_0 = hipblasCsyrk_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCsyrk_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrk_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCsyrk_64_rank_1 = hipblasCsyrk_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCsyrk_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrk_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCsyrk_64_full_rank = hipblasCsyrk_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(beta),c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZsyrk_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrk_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZsyrk_64_assumed_rank = hipblasZsyrk_64_(handle,uplo,transA,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(beta),c_loc(CP),ldc) + end function + +#else + function hipblasZsyrk_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrk_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasZsyrk_64_rank_0 = hipblasZsyrk_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZsyrk_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrk_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZsyrk_64_rank_1 = hipblasZsyrk_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZsyrk_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrk_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZsyrk_64_full_rank = hipblasZsyrk_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(beta),c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSsyrkStridedBatched_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: beta + real(c_float),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasSsyrkStridedBatched_assumed_rank = hipblasSsyrkStridedBatched_(handle,uplo,transA,n, & + k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + +#else + function hipblasSsyrkStridedBatched_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta, & + CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: beta + real(c_float),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasSsyrkStridedBatched_rank_0 = hipblasSsyrkStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasSsyrkStridedBatched_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta, & + CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: beta + real(c_float),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasSsyrkStridedBatched_rank_1 = hipblasSsyrkStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasSsyrkStridedBatched_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: beta + real(c_float),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasSsyrkStridedBatched_full_rank = hipblasSsyrkStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDsyrkStridedBatched_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: beta + real(c_double),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasDsyrkStridedBatched_assumed_rank = hipblasDsyrkStridedBatched_(handle,uplo,transA,n, & + k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + +#else + function hipblasDsyrkStridedBatched_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta, & + CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: beta + real(c_double),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasDsyrkStridedBatched_rank_0 = hipblasDsyrkStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasDsyrkStridedBatched_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta, & + CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: beta + real(c_double),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasDsyrkStridedBatched_rank_1 = hipblasDsyrkStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasDsyrkStridedBatched_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: beta + real(c_double),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasDsyrkStridedBatched_full_rank = hipblasDsyrkStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCsyrkStridedBatched_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCsyrkStridedBatched_assumed_rank = hipblasCsyrkStridedBatched_(handle,uplo,transA,n, & + k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + +#else + function hipblasCsyrkStridedBatched_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta, & + CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCsyrkStridedBatched_rank_0 = hipblasCsyrkStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasCsyrkStridedBatched_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta, & + CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCsyrkStridedBatched_rank_1 = hipblasCsyrkStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasCsyrkStridedBatched_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCsyrkStridedBatched_full_rank = hipblasCsyrkStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZsyrkStridedBatched_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZsyrkStridedBatched_assumed_rank = hipblasZsyrkStridedBatched_(handle,uplo,transA,n, & + k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + +#else + function hipblasZsyrkStridedBatched_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta, & + CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZsyrkStridedBatched_rank_0 = hipblasZsyrkStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasZsyrkStridedBatched_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta, & + CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZsyrkStridedBatched_rank_1 = hipblasZsyrkStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasZsyrkStridedBatched_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZsyrkStridedBatched_full_rank = hipblasZsyrkStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSsyrkStridedBatched_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: beta + real(c_float),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasSsyrkStridedBatched_64_assumed_rank = hipblasSsyrkStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + +#else + function hipblasSsyrkStridedBatched_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: beta + real(c_float),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasSsyrkStridedBatched_64_rank_0 = hipblasSsyrkStridedBatched_64_(handle,uplo,transA,n, & + k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasSsyrkStridedBatched_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: beta + real(c_float),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasSsyrkStridedBatched_64_rank_1 = hipblasSsyrkStridedBatched_64_(handle,uplo,transA,n, & + k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasSsyrkStridedBatched_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: beta + real(c_float),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasSsyrkStridedBatched_64_full_rank = hipblasSsyrkStridedBatched_64_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDsyrkStridedBatched_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: beta + real(c_double),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasDsyrkStridedBatched_64_assumed_rank = hipblasDsyrkStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + +#else + function hipblasDsyrkStridedBatched_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: beta + real(c_double),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasDsyrkStridedBatched_64_rank_0 = hipblasDsyrkStridedBatched_64_(handle,uplo,transA,n, & + k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasDsyrkStridedBatched_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: beta + real(c_double),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasDsyrkStridedBatched_64_rank_1 = hipblasDsyrkStridedBatched_64_(handle,uplo,transA,n, & + k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasDsyrkStridedBatched_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: beta + real(c_double),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasDsyrkStridedBatched_64_full_rank = hipblasDsyrkStridedBatched_64_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCsyrkStridedBatched_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCsyrkStridedBatched_64_assumed_rank = hipblasCsyrkStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + +#else + function hipblasCsyrkStridedBatched_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCsyrkStridedBatched_64_rank_0 = hipblasCsyrkStridedBatched_64_(handle,uplo,transA,n, & + k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasCsyrkStridedBatched_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCsyrkStridedBatched_64_rank_1 = hipblasCsyrkStridedBatched_64_(handle,uplo,transA,n, & + k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasCsyrkStridedBatched_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCsyrkStridedBatched_64_full_rank = hipblasCsyrkStridedBatched_64_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZsyrkStridedBatched_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZsyrkStridedBatched_64_assumed_rank = hipblasZsyrkStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + +#else + function hipblasZsyrkStridedBatched_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZsyrkStridedBatched_64_rank_0 = hipblasZsyrkStridedBatched_64_(handle,uplo,transA,n, & + k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasZsyrkStridedBatched_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZsyrkStridedBatched_64_rank_1 = hipblasZsyrkStridedBatched_64_(handle,uplo,transA,n, & + k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasZsyrkStridedBatched_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZsyrkStridedBatched_64_full_rank = hipblasZsyrkStridedBatched_64_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSsyr2k_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2k_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(..) :: BP + integer(c_int) :: ldb + real(c_float),target :: beta + real(c_float),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasSsyr2k_assumed_rank = hipblasSsyr2k_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#else + function hipblasSsyr2k_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2k_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int) :: lda + real(c_float),target :: BP + integer(c_int) :: ldb + real(c_float),target :: beta + real(c_float),target :: CP + integer(c_int) :: ldc + ! + hipblasSsyr2k_rank_0 = hipblasSsyr2k_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasSsyr2k_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2k_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(:) :: BP + integer(c_int) :: ldb + real(c_float),target :: beta + real(c_float),target,dimension(:) :: CP + integer(c_int) :: ldc + ! + hipblasSsyr2k_rank_1 = hipblasSsyr2k_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasSsyr2k_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2k_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(:,:) :: BP + integer(c_int) :: ldb + real(c_float),target :: beta + real(c_float),target,dimension(:,:) :: CP + integer(c_int) :: ldc + ! + hipblasSsyr2k_full_rank = hipblasSsyr2k_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDsyr2k_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2k_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(..) :: BP + integer(c_int) :: ldb + real(c_double),target :: beta + real(c_double),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasDsyr2k_assumed_rank = hipblasDsyr2k_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#else + function hipblasDsyr2k_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2k_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int) :: lda + real(c_double),target :: BP + integer(c_int) :: ldb + real(c_double),target :: beta + real(c_double),target :: CP + integer(c_int) :: ldc + ! + hipblasDsyr2k_rank_0 = hipblasDsyr2k_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasDsyr2k_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2k_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(:) :: BP + integer(c_int) :: ldb + real(c_double),target :: beta + real(c_double),target,dimension(:) :: CP + integer(c_int) :: ldc + ! + hipblasDsyr2k_rank_1 = hipblasDsyr2k_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasDsyr2k_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2k_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(:,:) :: BP + integer(c_int) :: ldb + real(c_double),target :: beta + real(c_double),target,dimension(:,:) :: CP + integer(c_int) :: ldc + ! + hipblasDsyr2k_full_rank = hipblasDsyr2k_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCsyr2k_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2k_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasCsyr2k_assumed_rank = hipblasCsyr2k_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#else + function hipblasCsyr2k_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2k_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + complex(c_float_complex),target :: BP + integer(c_int) :: ldb + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: CP + integer(c_int) :: ldc + ! + hipblasCsyr2k_rank_0 = hipblasCsyr2k_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCsyr2k_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2k_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + ! + hipblasCsyr2k_rank_1 = hipblasCsyr2k_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCsyr2k_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2k_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + ! + hipblasCsyr2k_full_rank = hipblasCsyr2k_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZsyr2k_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2k_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasZsyr2k_assumed_rank = hipblasZsyr2k_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#else + function hipblasZsyr2k_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2k_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int) :: lda + complex(c_double_complex),target :: BP + integer(c_int) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: CP + integer(c_int) :: ldc + ! + hipblasZsyr2k_rank_0 = hipblasZsyr2k_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZsyr2k_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2k_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + ! + hipblasZsyr2k_rank_1 = hipblasZsyr2k_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZsyr2k_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2k_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + ! + hipblasZsyr2k_full_rank = hipblasZsyr2k_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSsyr2k_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2k_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + real(c_float),target :: beta + real(c_float),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasSsyr2k_64_assumed_rank = hipblasSsyr2k_64_(handle,uplo,transA,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#else + function hipblasSsyr2k_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2k_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int64_t) :: lda + real(c_float),target :: BP + integer(c_int64_t) :: ldb + real(c_float),target :: beta + real(c_float),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasSsyr2k_64_rank_0 = hipblasSsyr2k_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasSsyr2k_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2k_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + real(c_float),target :: beta + real(c_float),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasSsyr2k_64_rank_1 = hipblasSsyr2k_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasSsyr2k_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2k_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + real(c_float),target :: beta + real(c_float),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasSsyr2k_64_full_rank = hipblasSsyr2k_64_(handle,uplo,transA,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDsyr2k_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2k_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + real(c_double),target :: beta + real(c_double),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasDsyr2k_64_assumed_rank = hipblasDsyr2k_64_(handle,uplo,transA,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#else + function hipblasDsyr2k_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2k_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int64_t) :: lda + real(c_double),target :: BP + integer(c_int64_t) :: ldb + real(c_double),target :: beta + real(c_double),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasDsyr2k_64_rank_0 = hipblasDsyr2k_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasDsyr2k_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2k_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + real(c_double),target :: beta + real(c_double),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasDsyr2k_64_rank_1 = hipblasDsyr2k_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasDsyr2k_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2k_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + real(c_double),target :: beta + real(c_double),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasDsyr2k_64_full_rank = hipblasDsyr2k_64_(handle,uplo,transA,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCsyr2k_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2k_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCsyr2k_64_assumed_rank = hipblasCsyr2k_64_(handle,uplo,transA,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#else + function hipblasCsyr2k_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2k_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target :: BP + integer(c_int64_t) :: ldb + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasCsyr2k_64_rank_0 = hipblasCsyr2k_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCsyr2k_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2k_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCsyr2k_64_rank_1 = hipblasCsyr2k_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCsyr2k_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2k_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCsyr2k_64_full_rank = hipblasCsyr2k_64_(handle,uplo,transA,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZsyr2k_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2k_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZsyr2k_64_assumed_rank = hipblasZsyr2k_64_(handle,uplo,transA,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#else + function hipblasZsyr2k_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2k_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target :: BP + integer(c_int64_t) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasZsyr2k_64_rank_0 = hipblasZsyr2k_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZsyr2k_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2k_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZsyr2k_64_rank_1 = hipblasZsyr2k_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZsyr2k_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2k_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZsyr2k_64_full_rank = hipblasZsyr2k_64_(handle,uplo,transA,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSsyr2kStridedBatched_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2kStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + real(c_float),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasSsyr2kStridedBatched_assumed_rank = hipblasSsyr2kStridedBatched_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + +#else + function hipblasSsyr2kStridedBatched_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2kStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + real(c_float),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasSsyr2kStridedBatched_rank_0 = hipblasSsyr2kStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasSsyr2kStridedBatched_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2kStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + real(c_float),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasSsyr2kStridedBatched_rank_1 = hipblasSsyr2kStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasSsyr2kStridedBatched_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2kStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + real(c_float),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasSsyr2kStridedBatched_full_rank = hipblasSsyr2kStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDsyr2kStridedBatched_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2kStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + real(c_double),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasDsyr2kStridedBatched_assumed_rank = hipblasDsyr2kStridedBatched_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + +#else + function hipblasDsyr2kStridedBatched_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2kStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + real(c_double),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasDsyr2kStridedBatched_rank_0 = hipblasDsyr2kStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasDsyr2kStridedBatched_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2kStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + real(c_double),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasDsyr2kStridedBatched_rank_1 = hipblasDsyr2kStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasDsyr2kStridedBatched_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2kStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + real(c_double),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasDsyr2kStridedBatched_full_rank = hipblasDsyr2kStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCsyr2kStridedBatched_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2kStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCsyr2kStridedBatched_assumed_rank = hipblasCsyr2kStridedBatched_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + +#else + function hipblasCsyr2kStridedBatched_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2kStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCsyr2kStridedBatched_rank_0 = hipblasCsyr2kStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasCsyr2kStridedBatched_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2kStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCsyr2kStridedBatched_rank_1 = hipblasCsyr2kStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasCsyr2kStridedBatched_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2kStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCsyr2kStridedBatched_full_rank = hipblasCsyr2kStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZsyr2kStridedBatched_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2kStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZsyr2kStridedBatched_assumed_rank = hipblasZsyr2kStridedBatched_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + +#else + function hipblasZsyr2kStridedBatched_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2kStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZsyr2kStridedBatched_rank_0 = hipblasZsyr2kStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasZsyr2kStridedBatched_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2kStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZsyr2kStridedBatched_rank_1 = hipblasZsyr2kStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasZsyr2kStridedBatched_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2kStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZsyr2kStridedBatched_full_rank = hipblasZsyr2kStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSsyr2kStridedBatched_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2kStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + real(c_float),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasSsyr2kStridedBatched_64_assumed_rank = hipblasSsyr2kStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) + end function + +#else + function hipblasSsyr2kStridedBatched_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2kStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + real(c_float),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasSsyr2kStridedBatched_64_rank_0 = hipblasSsyr2kStridedBatched_64_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasSsyr2kStridedBatched_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2kStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + real(c_float),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasSsyr2kStridedBatched_64_rank_1 = hipblasSsyr2kStridedBatched_64_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasSsyr2kStridedBatched_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2kStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + real(c_float),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasSsyr2kStridedBatched_64_full_rank = hipblasSsyr2kStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDsyr2kStridedBatched_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2kStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + real(c_double),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasDsyr2kStridedBatched_64_assumed_rank = hipblasDsyr2kStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) + end function + +#else + function hipblasDsyr2kStridedBatched_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2kStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + real(c_double),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasDsyr2kStridedBatched_64_rank_0 = hipblasDsyr2kStridedBatched_64_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasDsyr2kStridedBatched_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2kStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + real(c_double),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasDsyr2kStridedBatched_64_rank_1 = hipblasDsyr2kStridedBatched_64_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasDsyr2kStridedBatched_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2kStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + real(c_double),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasDsyr2kStridedBatched_64_full_rank = hipblasDsyr2kStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCsyr2kStridedBatched_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2kStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCsyr2kStridedBatched_64_assumed_rank = hipblasCsyr2kStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) + end function + +#else + function hipblasCsyr2kStridedBatched_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2kStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCsyr2kStridedBatched_64_rank_0 = hipblasCsyr2kStridedBatched_64_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasCsyr2kStridedBatched_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2kStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCsyr2kStridedBatched_64_rank_1 = hipblasCsyr2kStridedBatched_64_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasCsyr2kStridedBatched_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2kStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCsyr2kStridedBatched_64_full_rank = hipblasCsyr2kStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZsyr2kStridedBatched_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2kStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZsyr2kStridedBatched_64_assumed_rank = hipblasZsyr2kStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) + end function + +#else + function hipblasZsyr2kStridedBatched_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2kStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZsyr2kStridedBatched_64_rank_0 = hipblasZsyr2kStridedBatched_64_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasZsyr2kStridedBatched_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2kStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZsyr2kStridedBatched_64_rank_1 = hipblasZsyr2kStridedBatched_64_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasZsyr2kStridedBatched_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2kStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZsyr2kStridedBatched_64_full_rank = hipblasZsyr2kStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSsyrkx_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkx_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(..) :: BP + integer(c_int) :: ldb + real(c_float),target :: beta + real(c_float),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasSsyrkx_assumed_rank = hipblasSsyrkx_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#else + function hipblasSsyrkx_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkx_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int) :: lda + real(c_float),target :: BP + integer(c_int) :: ldb + real(c_float),target :: beta + real(c_float),target :: CP + integer(c_int) :: ldc + ! + hipblasSsyrkx_rank_0 = hipblasSsyrkx_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasSsyrkx_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkx_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(:) :: BP + integer(c_int) :: ldb + real(c_float),target :: beta + real(c_float),target,dimension(:) :: CP + integer(c_int) :: ldc + ! + hipblasSsyrkx_rank_1 = hipblasSsyrkx_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasSsyrkx_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkx_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(:,:) :: BP + integer(c_int) :: ldb + real(c_float),target :: beta + real(c_float),target,dimension(:,:) :: CP + integer(c_int) :: ldc + ! + hipblasSsyrkx_full_rank = hipblasSsyrkx_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDsyrkx_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkx_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(..) :: BP + integer(c_int) :: ldb + real(c_double),target :: beta + real(c_double),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasDsyrkx_assumed_rank = hipblasDsyrkx_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#else + function hipblasDsyrkx_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkx_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int) :: lda + real(c_double),target :: BP + integer(c_int) :: ldb + real(c_double),target :: beta + real(c_double),target :: CP + integer(c_int) :: ldc + ! + hipblasDsyrkx_rank_0 = hipblasDsyrkx_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasDsyrkx_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkx_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(:) :: BP + integer(c_int) :: ldb + real(c_double),target :: beta + real(c_double),target,dimension(:) :: CP + integer(c_int) :: ldc + ! + hipblasDsyrkx_rank_1 = hipblasDsyrkx_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasDsyrkx_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkx_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(:,:) :: BP + integer(c_int) :: ldb + real(c_double),target :: beta + real(c_double),target,dimension(:,:) :: CP + integer(c_int) :: ldc + ! + hipblasDsyrkx_full_rank = hipblasDsyrkx_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCsyrkx_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkx_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasCsyrkx_assumed_rank = hipblasCsyrkx_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#else + function hipblasCsyrkx_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkx_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + complex(c_float_complex),target :: BP + integer(c_int) :: ldb + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: CP + integer(c_int) :: ldc + ! + hipblasCsyrkx_rank_0 = hipblasCsyrkx_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCsyrkx_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkx_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + ! + hipblasCsyrkx_rank_1 = hipblasCsyrkx_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCsyrkx_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkx_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + ! + hipblasCsyrkx_full_rank = hipblasCsyrkx_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZsyrkx_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkx_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasZsyrkx_assumed_rank = hipblasZsyrkx_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#else + function hipblasZsyrkx_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkx_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int) :: lda + complex(c_double_complex),target :: BP + integer(c_int) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: CP + integer(c_int) :: ldc + ! + hipblasZsyrkx_rank_0 = hipblasZsyrkx_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZsyrkx_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkx_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + ! + hipblasZsyrkx_rank_1 = hipblasZsyrkx_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZsyrkx_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkx_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + ! + hipblasZsyrkx_full_rank = hipblasZsyrkx_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSsyrkx_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkx_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + real(c_float),target :: beta + real(c_float),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasSsyrkx_64_assumed_rank = hipblasSsyrkx_64_(handle,uplo,transA,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#else + function hipblasSsyrkx_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkx_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int64_t) :: lda + real(c_float),target :: BP + integer(c_int64_t) :: ldb + real(c_float),target :: beta + real(c_float),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasSsyrkx_64_rank_0 = hipblasSsyrkx_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasSsyrkx_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkx_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + real(c_float),target :: beta + real(c_float),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasSsyrkx_64_rank_1 = hipblasSsyrkx_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasSsyrkx_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkx_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + real(c_float),target :: beta + real(c_float),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasSsyrkx_64_full_rank = hipblasSsyrkx_64_(handle,uplo,transA,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDsyrkx_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkx_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + real(c_double),target :: beta + real(c_double),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasDsyrkx_64_assumed_rank = hipblasDsyrkx_64_(handle,uplo,transA,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#else + function hipblasDsyrkx_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkx_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int64_t) :: lda + real(c_double),target :: BP + integer(c_int64_t) :: ldb + real(c_double),target :: beta + real(c_double),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasDsyrkx_64_rank_0 = hipblasDsyrkx_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasDsyrkx_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkx_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + real(c_double),target :: beta + real(c_double),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasDsyrkx_64_rank_1 = hipblasDsyrkx_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasDsyrkx_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkx_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + real(c_double),target :: beta + real(c_double),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasDsyrkx_64_full_rank = hipblasDsyrkx_64_(handle,uplo,transA,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCsyrkx_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkx_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCsyrkx_64_assumed_rank = hipblasCsyrkx_64_(handle,uplo,transA,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#else + function hipblasCsyrkx_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkx_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target :: BP + integer(c_int64_t) :: ldb + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasCsyrkx_64_rank_0 = hipblasCsyrkx_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCsyrkx_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkx_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCsyrkx_64_rank_1 = hipblasCsyrkx_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCsyrkx_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkx_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCsyrkx_64_full_rank = hipblasCsyrkx_64_(handle,uplo,transA,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZsyrkx_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkx_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZsyrkx_64_assumed_rank = hipblasZsyrkx_64_(handle,uplo,transA,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#else + function hipblasZsyrkx_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkx_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target :: BP + integer(c_int64_t) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasZsyrkx_64_rank_0 = hipblasZsyrkx_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZsyrkx_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkx_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZsyrkx_64_rank_1 = hipblasZsyrkx_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZsyrkx_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkx_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZsyrkx_64_full_rank = hipblasZsyrkx_64_(handle,uplo,transA,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSsyrkxStridedBatched_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkxStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + real(c_float),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasSsyrkxStridedBatched_assumed_rank = hipblasSsyrkxStridedBatched_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + +#else + function hipblasSsyrkxStridedBatched_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkxStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + real(c_float),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasSsyrkxStridedBatched_rank_0 = hipblasSsyrkxStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasSsyrkxStridedBatched_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkxStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + real(c_float),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasSsyrkxStridedBatched_rank_1 = hipblasSsyrkxStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasSsyrkxStridedBatched_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkxStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + real(c_float),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasSsyrkxStridedBatched_full_rank = hipblasSsyrkxStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDsyrkxStridedBatched_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkxStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + real(c_double),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasDsyrkxStridedBatched_assumed_rank = hipblasDsyrkxStridedBatched_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + +#else + function hipblasDsyrkxStridedBatched_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkxStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + real(c_double),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasDsyrkxStridedBatched_rank_0 = hipblasDsyrkxStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasDsyrkxStridedBatched_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkxStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + real(c_double),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasDsyrkxStridedBatched_rank_1 = hipblasDsyrkxStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasDsyrkxStridedBatched_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkxStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + real(c_double),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasDsyrkxStridedBatched_full_rank = hipblasDsyrkxStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCsyrkxStridedBatched_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkxStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCsyrkxStridedBatched_assumed_rank = hipblasCsyrkxStridedBatched_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + +#else + function hipblasCsyrkxStridedBatched_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkxStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCsyrkxStridedBatched_rank_0 = hipblasCsyrkxStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasCsyrkxStridedBatched_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkxStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCsyrkxStridedBatched_rank_1 = hipblasCsyrkxStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasCsyrkxStridedBatched_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkxStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCsyrkxStridedBatched_full_rank = hipblasCsyrkxStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZsyrkxStridedBatched_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkxStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZsyrkxStridedBatched_assumed_rank = hipblasZsyrkxStridedBatched_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + +#else + function hipblasZsyrkxStridedBatched_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkxStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZsyrkxStridedBatched_rank_0 = hipblasZsyrkxStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasZsyrkxStridedBatched_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkxStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZsyrkxStridedBatched_rank_1 = hipblasZsyrkxStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasZsyrkxStridedBatched_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkxStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZsyrkxStridedBatched_full_rank = hipblasZsyrkxStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSsyrkxStridedBatched_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkxStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + real(c_float),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasSsyrkxStridedBatched_64_assumed_rank = hipblasSsyrkxStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) + end function + +#else + function hipblasSsyrkxStridedBatched_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkxStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + real(c_float),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasSsyrkxStridedBatched_64_rank_0 = hipblasSsyrkxStridedBatched_64_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasSsyrkxStridedBatched_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkxStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + real(c_float),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasSsyrkxStridedBatched_64_rank_1 = hipblasSsyrkxStridedBatched_64_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasSsyrkxStridedBatched_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkxStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + real(c_float),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasSsyrkxStridedBatched_64_full_rank = hipblasSsyrkxStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDsyrkxStridedBatched_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkxStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + real(c_double),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasDsyrkxStridedBatched_64_assumed_rank = hipblasDsyrkxStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) + end function + +#else + function hipblasDsyrkxStridedBatched_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkxStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + real(c_double),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasDsyrkxStridedBatched_64_rank_0 = hipblasDsyrkxStridedBatched_64_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasDsyrkxStridedBatched_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkxStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + real(c_double),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasDsyrkxStridedBatched_64_rank_1 = hipblasDsyrkxStridedBatched_64_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasDsyrkxStridedBatched_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkxStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + real(c_double),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasDsyrkxStridedBatched_64_full_rank = hipblasDsyrkxStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCsyrkxStridedBatched_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkxStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCsyrkxStridedBatched_64_assumed_rank = hipblasCsyrkxStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) + end function + +#else + function hipblasCsyrkxStridedBatched_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkxStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCsyrkxStridedBatched_64_rank_0 = hipblasCsyrkxStridedBatched_64_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasCsyrkxStridedBatched_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkxStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCsyrkxStridedBatched_64_rank_1 = hipblasCsyrkxStridedBatched_64_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasCsyrkxStridedBatched_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkxStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCsyrkxStridedBatched_64_full_rank = hipblasCsyrkxStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZsyrkxStridedBatched_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkxStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZsyrkxStridedBatched_64_assumed_rank = hipblasZsyrkxStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) + end function + +#else + function hipblasZsyrkxStridedBatched_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkxStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZsyrkxStridedBatched_64_rank_0 = hipblasZsyrkxStridedBatched_64_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasZsyrkxStridedBatched_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkxStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZsyrkxStridedBatched_64_rank_1 = hipblasZsyrkxStridedBatched_64_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasZsyrkxStridedBatched_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkxStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZsyrkxStridedBatched_64_full_rank = hipblasZsyrkxStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSgeam_assumed_rank(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeam_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_float),target :: beta + real(c_float),target,dimension(..) :: BP + integer(c_int) :: ldb + real(c_float),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasSgeam_assumed_rank = hipblasSgeam_(handle,transA,transB,m,n,c_loc(alpha),c_loc(AP), & + lda,c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) + end function + +#else + function hipblasSgeam_rank_0(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeam_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int) :: lda + real(c_float),target :: beta + real(c_float),target :: BP + integer(c_int) :: ldb + real(c_float),target :: CP + integer(c_int) :: ldc + ! + hipblasSgeam_rank_0 = hipblasSgeam_(handle,transA,transB,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) + end function + + function hipblasSgeam_rank_1(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeam_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_float),target :: beta + real(c_float),target,dimension(:) :: BP + integer(c_int) :: ldb + real(c_float),target,dimension(:) :: CP + integer(c_int) :: ldc + ! + hipblasSgeam_rank_1 = hipblasSgeam_(handle,transA,transB,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) + end function + + function hipblasSgeam_full_rank(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeam_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_float),target :: beta + real(c_float),target,dimension(:,:) :: BP + integer(c_int) :: ldb + real(c_float),target,dimension(:,:) :: CP + integer(c_int) :: ldc + ! + hipblasSgeam_full_rank = hipblasSgeam_(handle,transA,transB,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDgeam_assumed_rank(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeam_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_double),target :: beta + real(c_double),target,dimension(..) :: BP + integer(c_int) :: ldb + real(c_double),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasDgeam_assumed_rank = hipblasDgeam_(handle,transA,transB,m,n,c_loc(alpha),c_loc(AP), & + lda,c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) + end function + +#else + function hipblasDgeam_rank_0(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeam_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int) :: lda + real(c_double),target :: beta + real(c_double),target :: BP + integer(c_int) :: ldb + real(c_double),target :: CP + integer(c_int) :: ldc + ! + hipblasDgeam_rank_0 = hipblasDgeam_(handle,transA,transB,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) + end function + + function hipblasDgeam_rank_1(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeam_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_double),target :: beta + real(c_double),target,dimension(:) :: BP + integer(c_int) :: ldb + real(c_double),target,dimension(:) :: CP + integer(c_int) :: ldc + ! + hipblasDgeam_rank_1 = hipblasDgeam_(handle,transA,transB,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) + end function + + function hipblasDgeam_full_rank(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeam_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_double),target :: beta + real(c_double),target,dimension(:,:) :: BP + integer(c_int) :: ldb + real(c_double),target,dimension(:,:) :: CP + integer(c_int) :: ldc + ! + hipblasDgeam_full_rank = hipblasDgeam_(handle,transA,transB,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCgeam_assumed_rank(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeam_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasCgeam_assumed_rank = hipblasCgeam_(handle,transA,transB,m,n,c_loc(alpha),c_loc(AP), & + lda,c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) + end function + +#else + function hipblasCgeam_rank_0(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeam_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: BP + integer(c_int) :: ldb + complex(c_float_complex),target :: CP + integer(c_int) :: ldc + ! + hipblasCgeam_rank_0 = hipblasCgeam_(handle,transA,transB,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) + end function + + function hipblasCgeam_rank_1(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeam_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + ! + hipblasCgeam_rank_1 = hipblasCgeam_(handle,transA,transB,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) + end function + + function hipblasCgeam_full_rank(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeam_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + ! + hipblasCgeam_full_rank = hipblasCgeam_(handle,transA,transB,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZgeam_assumed_rank(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeam_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasZgeam_assumed_rank = hipblasZgeam_(handle,transA,transB,m,n,c_loc(alpha),c_loc(AP), & + lda,c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) + end function + +#else + function hipblasZgeam_rank_0(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeam_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int) :: lda + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: BP + integer(c_int) :: ldb + complex(c_double_complex),target :: CP + integer(c_int) :: ldc + ! + hipblasZgeam_rank_0 = hipblasZgeam_(handle,transA,transB,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) + end function + + function hipblasZgeam_rank_1(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeam_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + ! + hipblasZgeam_rank_1 = hipblasZgeam_(handle,transA,transB,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) + end function + + function hipblasZgeam_full_rank(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeam_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + ! + hipblasZgeam_full_rank = hipblasZgeam_(handle,transA,transB,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSgeam_64_assumed_rank(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeam_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_float),target :: beta + real(c_float),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + real(c_float),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasSgeam_64_assumed_rank = hipblasSgeam_64_(handle,transA,transB,m,n,c_loc(alpha), & + c_loc(AP),lda,c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) + end function + +#else + function hipblasSgeam_64_rank_0(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeam_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int64_t) :: lda + real(c_float),target :: beta + real(c_float),target :: BP + integer(c_int64_t) :: ldb + real(c_float),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasSgeam_64_rank_0 = hipblasSgeam_64_(handle,transA,transB,m,n,c_loc(alpha),c_loc(AP), & + lda,c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) + end function + + function hipblasSgeam_64_rank_1(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeam_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + real(c_float),target :: beta + real(c_float),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + real(c_float),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasSgeam_64_rank_1 = hipblasSgeam_64_(handle,transA,transB,m,n,c_loc(alpha),c_loc(AP), & + lda,c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) + end function + + function hipblasSgeam_64_full_rank(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeam_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + real(c_float),target :: beta + real(c_float),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + real(c_float),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasSgeam_64_full_rank = hipblasSgeam_64_(handle,transA,transB,m,n,c_loc(alpha), & + c_loc(AP),lda,c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDgeam_64_assumed_rank(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeam_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_double),target :: beta + real(c_double),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + real(c_double),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasDgeam_64_assumed_rank = hipblasDgeam_64_(handle,transA,transB,m,n,c_loc(alpha), & + c_loc(AP),lda,c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) + end function + +#else + function hipblasDgeam_64_rank_0(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeam_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int64_t) :: lda + real(c_double),target :: beta + real(c_double),target :: BP + integer(c_int64_t) :: ldb + real(c_double),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasDgeam_64_rank_0 = hipblasDgeam_64_(handle,transA,transB,m,n,c_loc(alpha),c_loc(AP), & + lda,c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) + end function + + function hipblasDgeam_64_rank_1(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeam_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + real(c_double),target :: beta + real(c_double),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + real(c_double),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasDgeam_64_rank_1 = hipblasDgeam_64_(handle,transA,transB,m,n,c_loc(alpha),c_loc(AP), & + lda,c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) + end function + + function hipblasDgeam_64_full_rank(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeam_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + real(c_double),target :: beta + real(c_double),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + real(c_double),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasDgeam_64_full_rank = hipblasDgeam_64_(handle,transA,transB,m,n,c_loc(alpha), & + c_loc(AP),lda,c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCgeam_64_assumed_rank(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeam_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCgeam_64_assumed_rank = hipblasCgeam_64_(handle,transA,transB,m,n,c_loc(alpha), & + c_loc(AP),lda,c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) + end function + +#else + function hipblasCgeam_64_rank_0(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeam_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: BP + integer(c_int64_t) :: ldb + complex(c_float_complex),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasCgeam_64_rank_0 = hipblasCgeam_64_(handle,transA,transB,m,n,c_loc(alpha),c_loc(AP), & + lda,c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) + end function + + function hipblasCgeam_64_rank_1(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeam_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCgeam_64_rank_1 = hipblasCgeam_64_(handle,transA,transB,m,n,c_loc(alpha),c_loc(AP), & + lda,c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) + end function + + function hipblasCgeam_64_full_rank(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeam_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCgeam_64_full_rank = hipblasCgeam_64_(handle,transA,transB,m,n,c_loc(alpha), & + c_loc(AP),lda,c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZgeam_64_assumed_rank(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeam_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZgeam_64_assumed_rank = hipblasZgeam_64_(handle,transA,transB,m,n,c_loc(alpha), & + c_loc(AP),lda,c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) + end function + +#else + function hipblasZgeam_64_rank_0(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeam_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: BP + integer(c_int64_t) :: ldb + complex(c_double_complex),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasZgeam_64_rank_0 = hipblasZgeam_64_(handle,transA,transB,m,n,c_loc(alpha),c_loc(AP), & + lda,c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) + end function + + function hipblasZgeam_64_rank_1(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeam_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZgeam_64_rank_1 = hipblasZgeam_64_(handle,transA,transB,m,n,c_loc(alpha),c_loc(AP), & + lda,c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) + end function + + function hipblasZgeam_64_full_rank(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeam_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZgeam_64_full_rank = hipblasZgeam_64_(handle,transA,transB,m,n,c_loc(alpha), & + c_loc(AP),lda,c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSgeamStridedBatched_assumed_rank(handle,transA,transB,m,n,alpha,AP,lda, & + strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeamStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: beta + real(c_float),target,dimension(..) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasSgeamStridedBatched_assumed_rank = hipblasSgeamStridedBatched_(handle,transA,transB, & + m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & + strideC,batchCount) + end function + +#else + function hipblasSgeamStridedBatched_rank_0(handle,transA,transB,m,n,alpha,AP,lda,strideA,beta, & + BP,ldb,strideB,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeamStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: beta + real(c_float),target :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasSgeamStridedBatched_rank_0 = hipblasSgeamStridedBatched_(handle,transA,transB,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasSgeamStridedBatched_rank_1(handle,transA,transB,m,n,alpha,AP,lda,strideA,beta, & + BP,ldb,strideB,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeamStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: beta + real(c_float),target,dimension(:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasSgeamStridedBatched_rank_1 = hipblasSgeamStridedBatched_(handle,transA,transB,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasSgeamStridedBatched_full_rank(handle,transA,transB,m,n,alpha,AP,lda,strideA, & + beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeamStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: beta + real(c_float),target,dimension(:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasSgeamStridedBatched_full_rank = hipblasSgeamStridedBatched_(handle,transA,transB,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & + strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDgeamStridedBatched_assumed_rank(handle,transA,transB,m,n,alpha,AP,lda, & + strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeamStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: beta + real(c_double),target,dimension(..) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasDgeamStridedBatched_assumed_rank = hipblasDgeamStridedBatched_(handle,transA,transB, & + m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & + strideC,batchCount) + end function + +#else + function hipblasDgeamStridedBatched_rank_0(handle,transA,transB,m,n,alpha,AP,lda,strideA,beta, & + BP,ldb,strideB,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeamStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: beta + real(c_double),target :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasDgeamStridedBatched_rank_0 = hipblasDgeamStridedBatched_(handle,transA,transB,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasDgeamStridedBatched_rank_1(handle,transA,transB,m,n,alpha,AP,lda,strideA,beta, & + BP,ldb,strideB,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeamStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: beta + real(c_double),target,dimension(:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasDgeamStridedBatched_rank_1 = hipblasDgeamStridedBatched_(handle,transA,transB,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasDgeamStridedBatched_full_rank(handle,transA,transB,m,n,alpha,AP,lda,strideA, & + beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeamStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: beta + real(c_double),target,dimension(:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasDgeamStridedBatched_full_rank = hipblasDgeamStridedBatched_(handle,transA,transB,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & + strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCgeamStridedBatched_assumed_rank(handle,transA,transB,m,n,alpha,AP,lda, & + strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeamStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCgeamStridedBatched_assumed_rank = hipblasCgeamStridedBatched_(handle,transA,transB, & + m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & + strideC,batchCount) + end function + +#else + function hipblasCgeamStridedBatched_rank_0(handle,transA,transB,m,n,alpha,AP,lda,strideA,beta, & + BP,ldb,strideB,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeamStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCgeamStridedBatched_rank_0 = hipblasCgeamStridedBatched_(handle,transA,transB,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasCgeamStridedBatched_rank_1(handle,transA,transB,m,n,alpha,AP,lda,strideA,beta, & + BP,ldb,strideB,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeamStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCgeamStridedBatched_rank_1 = hipblasCgeamStridedBatched_(handle,transA,transB,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasCgeamStridedBatched_full_rank(handle,transA,transB,m,n,alpha,AP,lda,strideA, & + beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeamStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCgeamStridedBatched_full_rank = hipblasCgeamStridedBatched_(handle,transA,transB,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & + strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZgeamStridedBatched_assumed_rank(handle,transA,transB,m,n,alpha,AP,lda, & + strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeamStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZgeamStridedBatched_assumed_rank = hipblasZgeamStridedBatched_(handle,transA,transB, & + m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & + strideC,batchCount) + end function + +#else + function hipblasZgeamStridedBatched_rank_0(handle,transA,transB,m,n,alpha,AP,lda,strideA,beta, & + BP,ldb,strideB,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeamStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZgeamStridedBatched_rank_0 = hipblasZgeamStridedBatched_(handle,transA,transB,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasZgeamStridedBatched_rank_1(handle,transA,transB,m,n,alpha,AP,lda,strideA,beta, & + BP,ldb,strideB,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeamStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZgeamStridedBatched_rank_1 = hipblasZgeamStridedBatched_(handle,transA,transB,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasZgeamStridedBatched_full_rank(handle,transA,transB,m,n,alpha,AP,lda,strideA, & + beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeamStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZgeamStridedBatched_full_rank = hipblasZgeamStridedBatched_(handle,transA,transB,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & + strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSgeamStridedBatched_64_assumed_rank(handle,transA,transB,m,n,alpha,AP,lda, & + strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeamStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: beta + real(c_float),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasSgeamStridedBatched_64_assumed_rank = hipblasSgeamStridedBatched_64_(handle,transA, & + transB,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP), & + ldc,strideC,batchCount) + end function + +#else + function hipblasSgeamStridedBatched_64_rank_0(handle,transA,transB,m,n,alpha,AP,lda,strideA, & + beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeamStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: beta + real(c_float),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasSgeamStridedBatched_64_rank_0 = hipblasSgeamStridedBatched_64_(handle,transA,transB, & + m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasSgeamStridedBatched_64_rank_1(handle,transA,transB,m,n,alpha,AP,lda,strideA, & + beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeamStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: beta + real(c_float),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasSgeamStridedBatched_64_rank_1 = hipblasSgeamStridedBatched_64_(handle,transA,transB, & + m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasSgeamStridedBatched_64_full_rank(handle,transA,transB,m,n,alpha,AP,lda, & + strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeamStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: beta + real(c_float),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasSgeamStridedBatched_64_full_rank = hipblasSgeamStridedBatched_64_(handle,transA, & + transB,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP), & + ldc,strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDgeamStridedBatched_64_assumed_rank(handle,transA,transB,m,n,alpha,AP,lda, & + strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeamStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: beta + real(c_double),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasDgeamStridedBatched_64_assumed_rank = hipblasDgeamStridedBatched_64_(handle,transA, & + transB,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP), & + ldc,strideC,batchCount) + end function + +#else + function hipblasDgeamStridedBatched_64_rank_0(handle,transA,transB,m,n,alpha,AP,lda,strideA, & + beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeamStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: beta + real(c_double),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasDgeamStridedBatched_64_rank_0 = hipblasDgeamStridedBatched_64_(handle,transA,transB, & + m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasDgeamStridedBatched_64_rank_1(handle,transA,transB,m,n,alpha,AP,lda,strideA, & + beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeamStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: beta + real(c_double),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasDgeamStridedBatched_64_rank_1 = hipblasDgeamStridedBatched_64_(handle,transA,transB, & + m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasDgeamStridedBatched_64_full_rank(handle,transA,transB,m,n,alpha,AP,lda, & + strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeamStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: beta + real(c_double),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasDgeamStridedBatched_64_full_rank = hipblasDgeamStridedBatched_64_(handle,transA, & + transB,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP), & + ldc,strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCgeamStridedBatched_64_assumed_rank(handle,transA,transB,m,n,alpha,AP,lda, & + strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeamStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCgeamStridedBatched_64_assumed_rank = hipblasCgeamStridedBatched_64_(handle,transA, & + transB,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP), & + ldc,strideC,batchCount) + end function + +#else + function hipblasCgeamStridedBatched_64_rank_0(handle,transA,transB,m,n,alpha,AP,lda,strideA, & + beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeamStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCgeamStridedBatched_64_rank_0 = hipblasCgeamStridedBatched_64_(handle,transA,transB, & + m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasCgeamStridedBatched_64_rank_1(handle,transA,transB,m,n,alpha,AP,lda,strideA, & + beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeamStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCgeamStridedBatched_64_rank_1 = hipblasCgeamStridedBatched_64_(handle,transA,transB, & + m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasCgeamStridedBatched_64_full_rank(handle,transA,transB,m,n,alpha,AP,lda, & + strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeamStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCgeamStridedBatched_64_full_rank = hipblasCgeamStridedBatched_64_(handle,transA, & + transB,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP), & + ldc,strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZgeamStridedBatched_64_assumed_rank(handle,transA,transB,m,n,alpha,AP,lda, & + strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeamStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZgeamStridedBatched_64_assumed_rank = hipblasZgeamStridedBatched_64_(handle,transA, & + transB,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP), & + ldc,strideC,batchCount) + end function + +#else + function hipblasZgeamStridedBatched_64_rank_0(handle,transA,transB,m,n,alpha,AP,lda,strideA, & + beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeamStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZgeamStridedBatched_64_rank_0 = hipblasZgeamStridedBatched_64_(handle,transA,transB, & + m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasZgeamStridedBatched_64_rank_1(handle,transA,transB,m,n,alpha,AP,lda,strideA, & + beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeamStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZgeamStridedBatched_64_rank_1 = hipblasZgeamStridedBatched_64_(handle,transA,transB, & + m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasZgeamStridedBatched_64_full_rank(handle,transA,transB,m,n,alpha,AP,lda, & + strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeamStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZgeamStridedBatched_64_full_rank = hipblasZgeamStridedBatched_64_(handle,transA, & + transB,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP), & + ldc,strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasChemm_assumed_rank(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemm_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasChemm_assumed_rank = hipblasChemm_(handle,side,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#else + function hipblasChemm_rank_0(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemm_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + complex(c_float_complex),target :: BP + integer(c_int) :: ldb + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: CP + integer(c_int) :: ldc + ! + hipblasChemm_rank_0 = hipblasChemm_(handle,side,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasChemm_rank_1(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemm_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + ! + hipblasChemm_rank_1 = hipblasChemm_(handle,side,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasChemm_full_rank(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemm_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + ! + hipblasChemm_full_rank = hipblasChemm_(handle,side,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZhemm_assumed_rank(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemm_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasZhemm_assumed_rank = hipblasZhemm_(handle,side,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#else + function hipblasZhemm_rank_0(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemm_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int) :: lda + complex(c_double_complex),target :: BP + integer(c_int) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: CP + integer(c_int) :: ldc + ! + hipblasZhemm_rank_0 = hipblasZhemm_(handle,side,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZhemm_rank_1(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemm_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + ! + hipblasZhemm_rank_1 = hipblasZhemm_(handle,side,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZhemm_full_rank(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemm_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + ! + hipblasZhemm_full_rank = hipblasZhemm_(handle,side,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasChemm_64_assumed_rank(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemm_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasChemm_64_assumed_rank = hipblasChemm_64_(handle,side,uplo,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#else + function hipblasChemm_64_rank_0(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemm_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target :: BP + integer(c_int64_t) :: ldb + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasChemm_64_rank_0 = hipblasChemm_64_(handle,side,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasChemm_64_rank_1(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemm_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasChemm_64_rank_1 = hipblasChemm_64_(handle,side,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasChemm_64_full_rank(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemm_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasChemm_64_full_rank = hipblasChemm_64_(handle,side,uplo,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZhemm_64_assumed_rank(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemm_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZhemm_64_assumed_rank = hipblasZhemm_64_(handle,side,uplo,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#else + function hipblasZhemm_64_rank_0(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemm_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target :: BP + integer(c_int64_t) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasZhemm_64_rank_0 = hipblasZhemm_64_(handle,side,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZhemm_64_rank_1(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemm_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZhemm_64_rank_1 = hipblasZhemm_64_(handle,side,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZhemm_64_full_rank(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemm_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZhemm_64_full_rank = hipblasZhemm_64_(handle,side,uplo,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasChemmStridedBatched_assumed_rank(handle,side,uplo,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemmStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasChemmStridedBatched_assumed_rank = hipblasChemmStridedBatched_(handle,side,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + +#else + function hipblasChemmStridedBatched_rank_0(handle,side,uplo,n,k,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemmStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasChemmStridedBatched_rank_0 = hipblasChemmStridedBatched_(handle,side,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasChemmStridedBatched_rank_1(handle,side,uplo,n,k,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemmStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasChemmStridedBatched_rank_1 = hipblasChemmStridedBatched_(handle,side,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasChemmStridedBatched_full_rank(handle,side,uplo,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemmStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasChemmStridedBatched_full_rank = hipblasChemmStridedBatched_(handle,side,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZhemmStridedBatched_assumed_rank(handle,side,uplo,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemmStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZhemmStridedBatched_assumed_rank = hipblasZhemmStridedBatched_(handle,side,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + +#else + function hipblasZhemmStridedBatched_rank_0(handle,side,uplo,n,k,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemmStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZhemmStridedBatched_rank_0 = hipblasZhemmStridedBatched_(handle,side,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasZhemmStridedBatched_rank_1(handle,side,uplo,n,k,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemmStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZhemmStridedBatched_rank_1 = hipblasZhemmStridedBatched_(handle,side,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasZhemmStridedBatched_full_rank(handle,side,uplo,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemmStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZhemmStridedBatched_full_rank = hipblasZhemmStridedBatched_(handle,side,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasChemmStridedBatched_64_assumed_rank(handle,side,uplo,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemmStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasChemmStridedBatched_64_assumed_rank = hipblasChemmStridedBatched_64_(handle,side, & + uplo,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) + end function + +#else + function hipblasChemmStridedBatched_64_rank_0(handle,side,uplo,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemmStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasChemmStridedBatched_64_rank_0 = hipblasChemmStridedBatched_64_(handle,side,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasChemmStridedBatched_64_rank_1(handle,side,uplo,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemmStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasChemmStridedBatched_64_rank_1 = hipblasChemmStridedBatched_64_(handle,side,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasChemmStridedBatched_64_full_rank(handle,side,uplo,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemmStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasChemmStridedBatched_64_full_rank = hipblasChemmStridedBatched_64_(handle,side,uplo,n, & + k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZhemmStridedBatched_64_assumed_rank(handle,side,uplo,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemmStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZhemmStridedBatched_64_assumed_rank = hipblasZhemmStridedBatched_64_(handle,side, & + uplo,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) + end function + +#else + function hipblasZhemmStridedBatched_64_rank_0(handle,side,uplo,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemmStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZhemmStridedBatched_64_rank_0 = hipblasZhemmStridedBatched_64_(handle,side,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasZhemmStridedBatched_64_rank_1(handle,side,uplo,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemmStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZhemmStridedBatched_64_rank_1 = hipblasZhemmStridedBatched_64_(handle,side,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasZhemmStridedBatched_64_full_rank(handle,side,uplo,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemmStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZhemmStridedBatched_64_full_rank = hipblasZhemmStridedBatched_64_(handle,side,uplo,n, & + k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasStrmm_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmm_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: A + integer(c_int) :: lda + real(c_float),target,dimension(..) :: B + integer(c_int) :: ldb + real(c_float),target,dimension(..) :: C + integer(c_int) :: ldc + ! + hipblasStrmm_assumed_rank = hipblasStrmm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) + end function + +#else + function hipblasStrmm_rank_0(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmm_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target :: A + integer(c_int) :: lda + real(c_float),target :: B + integer(c_int) :: ldb + real(c_float),target :: C + integer(c_int) :: ldc + ! + hipblasStrmm_rank_0 = hipblasStrmm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha),c_loc(A), & + lda,c_loc(B),ldb,c_loc(C),ldc) + end function + + function hipblasStrmm_rank_1(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmm_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: A + integer(c_int) :: lda + real(c_float),target,dimension(:) :: B + integer(c_int) :: ldb + real(c_float),target,dimension(:) :: C + integer(c_int) :: ldc + ! + hipblasStrmm_rank_1 = hipblasStrmm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha),c_loc(A), & + lda,c_loc(B),ldb,c_loc(C),ldc) + end function + + function hipblasStrmm_full_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmm_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: A + integer(c_int) :: lda + real(c_float),target,dimension(:,:) :: B + integer(c_int) :: ldb + real(c_float),target,dimension(:,:) :: C + integer(c_int) :: ldc + ! + hipblasStrmm_full_rank = hipblasStrmm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDtrmm_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmm_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: A + integer(c_int) :: lda + real(c_double),target,dimension(..) :: B + integer(c_int) :: ldb + real(c_double),target,dimension(..) :: C + integer(c_int) :: ldc + ! + hipblasDtrmm_assumed_rank = hipblasDtrmm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) + end function + +#else + function hipblasDtrmm_rank_0(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmm_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target :: A + integer(c_int) :: lda + real(c_double),target :: B + integer(c_int) :: ldb + real(c_double),target :: C + integer(c_int) :: ldc + ! + hipblasDtrmm_rank_0 = hipblasDtrmm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha),c_loc(A), & + lda,c_loc(B),ldb,c_loc(C),ldc) + end function + + function hipblasDtrmm_rank_1(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmm_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: A + integer(c_int) :: lda + real(c_double),target,dimension(:) :: B + integer(c_int) :: ldb + real(c_double),target,dimension(:) :: C + integer(c_int) :: ldc + ! + hipblasDtrmm_rank_1 = hipblasDtrmm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha),c_loc(A), & + lda,c_loc(B),ldb,c_loc(C),ldc) + end function + + function hipblasDtrmm_full_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmm_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: A + integer(c_int) :: lda + real(c_double),target,dimension(:,:) :: B + integer(c_int) :: ldb + real(c_double),target,dimension(:,:) :: C + integer(c_int) :: ldc + ! + hipblasDtrmm_full_rank = hipblasDtrmm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCtrmm_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmm_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: A + integer(c_int) :: lda + complex(c_float_complex),target,dimension(..) :: B + integer(c_int) :: ldb + complex(c_float_complex),target,dimension(..) :: C + integer(c_int) :: ldc + ! + hipblasCtrmm_assumed_rank = hipblasCtrmm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) + end function + +#else + function hipblasCtrmm_rank_0(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmm_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: A + integer(c_int) :: lda + complex(c_float_complex),target :: B + integer(c_int) :: ldb + complex(c_float_complex),target :: C + integer(c_int) :: ldc + ! + hipblasCtrmm_rank_0 = hipblasCtrmm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha),c_loc(A), & + lda,c_loc(B),ldb,c_loc(C),ldc) + end function + + function hipblasCtrmm_rank_1(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmm_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: A + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:) :: B + integer(c_int) :: ldb + complex(c_float_complex),target,dimension(:) :: C + integer(c_int) :: ldc + ! + hipblasCtrmm_rank_1 = hipblasCtrmm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha),c_loc(A), & + lda,c_loc(B),ldb,c_loc(C),ldc) + end function + + function hipblasCtrmm_full_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmm_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: A + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:,:) :: B + integer(c_int) :: ldb + complex(c_float_complex),target,dimension(:,:) :: C + integer(c_int) :: ldc + ! + hipblasCtrmm_full_rank = hipblasCtrmm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZtrmm_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmm_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: A + integer(c_int) :: lda + complex(c_double_complex),target,dimension(..) :: B + integer(c_int) :: ldb + complex(c_double_complex),target,dimension(..) :: C + integer(c_int) :: ldc + ! + hipblasZtrmm_assumed_rank = hipblasZtrmm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) + end function + +#else + function hipblasZtrmm_rank_0(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmm_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: A + integer(c_int) :: lda + complex(c_double_complex),target :: B + integer(c_int) :: ldb + complex(c_double_complex),target :: C + integer(c_int) :: ldc + ! + hipblasZtrmm_rank_0 = hipblasZtrmm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha),c_loc(A), & + lda,c_loc(B),ldb,c_loc(C),ldc) + end function + + function hipblasZtrmm_rank_1(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmm_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: A + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:) :: B + integer(c_int) :: ldb + complex(c_double_complex),target,dimension(:) :: C + integer(c_int) :: ldc + ! + hipblasZtrmm_rank_1 = hipblasZtrmm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha),c_loc(A), & + lda,c_loc(B),ldb,c_loc(C),ldc) + end function + + function hipblasZtrmm_full_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmm_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: A + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:,:) :: B + integer(c_int) :: ldb + complex(c_double_complex),target,dimension(:,:) :: C + integer(c_int) :: ldc + ! + hipblasZtrmm_full_rank = hipblasZtrmm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasStrmm_64_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmm_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: A + integer(c_int64_t) :: lda + real(c_float),target,dimension(..) :: B + integer(c_int64_t) :: ldb + real(c_float),target,dimension(..) :: C + integer(c_int64_t) :: ldc + ! + hipblasStrmm_64_assumed_rank = hipblasStrmm_64_(handle,side,uplo,transA,diag,m,n, & + c_loc(alpha),c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) + end function + +#else + function hipblasStrmm_64_rank_0(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmm_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target :: A + integer(c_int64_t) :: lda + real(c_float),target :: B + integer(c_int64_t) :: ldb + real(c_float),target :: C + integer(c_int64_t) :: ldc + ! + hipblasStrmm_64_rank_0 = hipblasStrmm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) + end function + + function hipblasStrmm_64_rank_1(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmm_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: A + integer(c_int64_t) :: lda + real(c_float),target,dimension(:) :: B + integer(c_int64_t) :: ldb + real(c_float),target,dimension(:) :: C + integer(c_int64_t) :: ldc + ! + hipblasStrmm_64_rank_1 = hipblasStrmm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) + end function + + function hipblasStrmm_64_full_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmm_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: A + integer(c_int64_t) :: lda + real(c_float),target,dimension(:,:) :: B + integer(c_int64_t) :: ldb + real(c_float),target,dimension(:,:) :: C + integer(c_int64_t) :: ldc + ! + hipblasStrmm_64_full_rank = hipblasStrmm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDtrmm_64_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmm_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: A + integer(c_int64_t) :: lda + real(c_double),target,dimension(..) :: B + integer(c_int64_t) :: ldb + real(c_double),target,dimension(..) :: C + integer(c_int64_t) :: ldc + ! + hipblasDtrmm_64_assumed_rank = hipblasDtrmm_64_(handle,side,uplo,transA,diag,m,n, & + c_loc(alpha),c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) + end function + +#else + function hipblasDtrmm_64_rank_0(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmm_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target :: A + integer(c_int64_t) :: lda + real(c_double),target :: B + integer(c_int64_t) :: ldb + real(c_double),target :: C + integer(c_int64_t) :: ldc + ! + hipblasDtrmm_64_rank_0 = hipblasDtrmm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) + end function + + function hipblasDtrmm_64_rank_1(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmm_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: A + integer(c_int64_t) :: lda + real(c_double),target,dimension(:) :: B + integer(c_int64_t) :: ldb + real(c_double),target,dimension(:) :: C + integer(c_int64_t) :: ldc + ! + hipblasDtrmm_64_rank_1 = hipblasDtrmm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) + end function + + function hipblasDtrmm_64_full_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmm_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: A + integer(c_int64_t) :: lda + real(c_double),target,dimension(:,:) :: B + integer(c_int64_t) :: ldb + real(c_double),target,dimension(:,:) :: C + integer(c_int64_t) :: ldc + ! + hipblasDtrmm_64_full_rank = hipblasDtrmm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCtrmm_64_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmm_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: A + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(..) :: B + integer(c_int64_t) :: ldb + complex(c_float_complex),target,dimension(..) :: C + integer(c_int64_t) :: ldc + ! + hipblasCtrmm_64_assumed_rank = hipblasCtrmm_64_(handle,side,uplo,transA,diag,m,n, & + c_loc(alpha),c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) + end function + +#else + function hipblasCtrmm_64_rank_0(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmm_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: A + integer(c_int64_t) :: lda + complex(c_float_complex),target :: B + integer(c_int64_t) :: ldb + complex(c_float_complex),target :: C + integer(c_int64_t) :: ldc + ! + hipblasCtrmm_64_rank_0 = hipblasCtrmm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) + end function + + function hipblasCtrmm_64_rank_1(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmm_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: A + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:) :: B + integer(c_int64_t) :: ldb + complex(c_float_complex),target,dimension(:) :: C + integer(c_int64_t) :: ldc + ! + hipblasCtrmm_64_rank_1 = hipblasCtrmm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) + end function + + function hipblasCtrmm_64_full_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmm_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: A + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:,:) :: B + integer(c_int64_t) :: ldb + complex(c_float_complex),target,dimension(:,:) :: C + integer(c_int64_t) :: ldc + ! + hipblasCtrmm_64_full_rank = hipblasCtrmm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZtrmm_64_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmm_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: A + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(..) :: B + integer(c_int64_t) :: ldb + complex(c_double_complex),target,dimension(..) :: C + integer(c_int64_t) :: ldc + ! + hipblasZtrmm_64_assumed_rank = hipblasZtrmm_64_(handle,side,uplo,transA,diag,m,n, & + c_loc(alpha),c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) + end function + +#else + function hipblasZtrmm_64_rank_0(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmm_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: A + integer(c_int64_t) :: lda + complex(c_double_complex),target :: B + integer(c_int64_t) :: ldb + complex(c_double_complex),target :: C + integer(c_int64_t) :: ldc + ! + hipblasZtrmm_64_rank_0 = hipblasZtrmm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) + end function + + function hipblasZtrmm_64_rank_1(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmm_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: A + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:) :: B + integer(c_int64_t) :: ldb + complex(c_double_complex),target,dimension(:) :: C + integer(c_int64_t) :: ldc + ! + hipblasZtrmm_64_rank_1 = hipblasZtrmm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) + end function + + function hipblasZtrmm_64_full_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmm_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: A + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:,:) :: B + integer(c_int64_t) :: ldb + complex(c_double_complex),target,dimension(:,:) :: C + integer(c_int64_t) :: ldc + ! + hipblasZtrmm_64_full_rank = hipblasZtrmm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasStrmmStridedBatched_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & + strideA,B,ldb,strideB,C,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmmStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target,dimension(..) :: C + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasStrmmStridedBatched_assumed_rank = hipblasStrmmStridedBatched_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & + strideC,batchCount) + end function + +#else + function hipblasStrmmStridedBatched_rank_0(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & + strideA,B,ldb,strideB,C,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmmStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: C + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasStrmmStridedBatched_rank_0 = hipblasStrmmStridedBatched_(handle,side,uplo,transA, & + diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc,strideC, & + batchCount) + end function + + function hipblasStrmmStridedBatched_rank_1(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & + strideA,B,ldb,strideB,C,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmmStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target,dimension(:) :: C + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasStrmmStridedBatched_rank_1 = hipblasStrmmStridedBatched_(handle,side,uplo,transA, & + diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc,strideC, & + batchCount) + end function + + function hipblasStrmmStridedBatched_full_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & + strideA,B,ldb,strideB,C,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmmStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:,:) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target,dimension(:,:) :: C + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasStrmmStridedBatched_full_rank = hipblasStrmmStridedBatched_(handle,side,uplo,transA, & + diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc,strideC, & + batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDtrmmStridedBatched_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & + strideA,B,ldb,strideB,C,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmmStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target,dimension(..) :: C + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasDtrmmStridedBatched_assumed_rank = hipblasDtrmmStridedBatched_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & + strideC,batchCount) + end function + +#else + function hipblasDtrmmStridedBatched_rank_0(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & + strideA,B,ldb,strideB,C,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmmStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: C + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasDtrmmStridedBatched_rank_0 = hipblasDtrmmStridedBatched_(handle,side,uplo,transA, & + diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc,strideC, & + batchCount) + end function + + function hipblasDtrmmStridedBatched_rank_1(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & + strideA,B,ldb,strideB,C,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmmStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target,dimension(:) :: C + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasDtrmmStridedBatched_rank_1 = hipblasDtrmmStridedBatched_(handle,side,uplo,transA, & + diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc,strideC, & + batchCount) + end function + + function hipblasDtrmmStridedBatched_full_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & + strideA,B,ldb,strideB,C,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmmStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target,dimension(:,:) :: C + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasDtrmmStridedBatched_full_rank = hipblasDtrmmStridedBatched_(handle,side,uplo,transA, & + diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc,strideC, & + batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCtrmmStridedBatched_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & + strideA,B,ldb,strideB,C,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmmStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target,dimension(..) :: C + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCtrmmStridedBatched_assumed_rank = hipblasCtrmmStridedBatched_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & + strideC,batchCount) + end function + +#else + function hipblasCtrmmStridedBatched_rank_0(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & + strideA,B,ldb,strideB,C,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmmStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: C + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCtrmmStridedBatched_rank_0 = hipblasCtrmmStridedBatched_(handle,side,uplo,transA, & + diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc,strideC, & + batchCount) + end function + + function hipblasCtrmmStridedBatched_rank_1(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & + strideA,B,ldb,strideB,C,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmmStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target,dimension(:) :: C + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCtrmmStridedBatched_rank_1 = hipblasCtrmmStridedBatched_(handle,side,uplo,transA, & + diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc,strideC, & + batchCount) + end function + + function hipblasCtrmmStridedBatched_full_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & + strideA,B,ldb,strideB,C,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmmStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target,dimension(:,:) :: C + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCtrmmStridedBatched_full_rank = hipblasCtrmmStridedBatched_(handle,side,uplo,transA, & + diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc,strideC, & + batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZtrmmStridedBatched_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & + strideA,B,ldb,strideB,C,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmmStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target,dimension(..) :: C + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZtrmmStridedBatched_assumed_rank = hipblasZtrmmStridedBatched_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & + strideC,batchCount) + end function + +#else + function hipblasZtrmmStridedBatched_rank_0(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & + strideA,B,ldb,strideB,C,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmmStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: C + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZtrmmStridedBatched_rank_0 = hipblasZtrmmStridedBatched_(handle,side,uplo,transA, & + diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc,strideC, & + batchCount) + end function + + function hipblasZtrmmStridedBatched_rank_1(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & + strideA,B,ldb,strideB,C,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmmStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target,dimension(:) :: C + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZtrmmStridedBatched_rank_1 = hipblasZtrmmStridedBatched_(handle,side,uplo,transA, & + diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc,strideC, & + batchCount) + end function + + function hipblasZtrmmStridedBatched_full_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & + strideA,B,ldb,strideB,C,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmmStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target,dimension(:,:) :: C + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZtrmmStridedBatched_full_rank = hipblasZtrmmStridedBatched_(handle,side,uplo,transA, & + diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc,strideC, & + batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasStrmmStridedBatched_64_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,A, & + lda,strideA,B,ldb,strideB,C,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmmStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: A + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: B + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target,dimension(..) :: C + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasStrmmStridedBatched_64_assumed_rank = hipblasStrmmStridedBatched_64_(handle,side, & + uplo,transA,diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & + strideC,batchCount) + end function + +#else + function hipblasStrmmStridedBatched_64_rank_0(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & + strideA,B,ldb,strideB,C,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmmStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target :: A + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: B + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: C + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasStrmmStridedBatched_64_rank_0 = hipblasStrmmStridedBatched_64_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & + strideC,batchCount) + end function + + function hipblasStrmmStridedBatched_64_rank_1(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & + strideA,B,ldb,strideB,C,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmmStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: A + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: B + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target,dimension(:) :: C + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasStrmmStridedBatched_64_rank_1 = hipblasStrmmStridedBatched_64_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & + strideC,batchCount) + end function + + function hipblasStrmmStridedBatched_64_full_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & + strideA,B,ldb,strideB,C,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmmStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: A + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:,:) :: B + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target,dimension(:,:) :: C + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasStrmmStridedBatched_64_full_rank = hipblasStrmmStridedBatched_64_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & + strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDtrmmStridedBatched_64_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,A, & + lda,strideA,B,ldb,strideB,C,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmmStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: A + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: B + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target,dimension(..) :: C + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasDtrmmStridedBatched_64_assumed_rank = hipblasDtrmmStridedBatched_64_(handle,side, & + uplo,transA,diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & + strideC,batchCount) + end function + +#else + function hipblasDtrmmStridedBatched_64_rank_0(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & + strideA,B,ldb,strideB,C,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmmStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target :: A + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: B + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: C + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasDtrmmStridedBatched_64_rank_0 = hipblasDtrmmStridedBatched_64_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & + strideC,batchCount) + end function + + function hipblasDtrmmStridedBatched_64_rank_1(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & + strideA,B,ldb,strideB,C,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmmStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: A + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: B + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target,dimension(:) :: C + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasDtrmmStridedBatched_64_rank_1 = hipblasDtrmmStridedBatched_64_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & + strideC,batchCount) + end function + + function hipblasDtrmmStridedBatched_64_full_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & + strideA,B,ldb,strideB,C,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmmStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: A + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:) :: B + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target,dimension(:,:) :: C + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasDtrmmStridedBatched_64_full_rank = hipblasDtrmmStridedBatched_64_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & + strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCtrmmStridedBatched_64_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,A, & + lda,strideA,B,ldb,strideB,C,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmmStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: A + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: B + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target,dimension(..) :: C + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCtrmmStridedBatched_64_assumed_rank = hipblasCtrmmStridedBatched_64_(handle,side, & + uplo,transA,diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & + strideC,batchCount) + end function + +#else + function hipblasCtrmmStridedBatched_64_rank_0(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & + strideA,B,ldb,strideB,C,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmmStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: A + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: B + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: C + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCtrmmStridedBatched_64_rank_0 = hipblasCtrmmStridedBatched_64_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & + strideC,batchCount) + end function + + function hipblasCtrmmStridedBatched_64_rank_1(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & + strideA,B,ldb,strideB,C,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmmStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: A + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: B + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target,dimension(:) :: C + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCtrmmStridedBatched_64_rank_1 = hipblasCtrmmStridedBatched_64_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & + strideC,batchCount) + end function + + function hipblasCtrmmStridedBatched_64_full_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & + strideA,B,ldb,strideB,C,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmmStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: A + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: B + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target,dimension(:,:) :: C + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCtrmmStridedBatched_64_full_rank = hipblasCtrmmStridedBatched_64_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & + strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZtrmmStridedBatched_64_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,A, & + lda,strideA,B,ldb,strideB,C,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmmStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: A + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: B + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target,dimension(..) :: C + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZtrmmStridedBatched_64_assumed_rank = hipblasZtrmmStridedBatched_64_(handle,side, & + uplo,transA,diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & + strideC,batchCount) + end function + +#else + function hipblasZtrmmStridedBatched_64_rank_0(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & + strideA,B,ldb,strideB,C,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmmStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: A + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: B + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: C + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZtrmmStridedBatched_64_rank_0 = hipblasZtrmmStridedBatched_64_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & + strideC,batchCount) + end function + + function hipblasZtrmmStridedBatched_64_rank_1(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & + strideA,B,ldb,strideB,C,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmmStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: A + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: B + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target,dimension(:) :: C + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZtrmmStridedBatched_64_rank_1 = hipblasZtrmmStridedBatched_64_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & + strideC,batchCount) + end function + + function hipblasZtrmmStridedBatched_64_full_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & + strideA,B,ldb,strideB,C,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmmStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: A + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: B + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target,dimension(:,:) :: C + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZtrmmStridedBatched_64_full_rank = hipblasZtrmmStridedBatched_64_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & + strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasStrsm_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsm_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(..) :: BP + integer(c_int) :: ldb + ! + hipblasStrsm_assumed_rank = hipblasStrsm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb) + end function + +#else + function hipblasStrsm_rank_0(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsm_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int) :: lda + real(c_float),target :: BP + integer(c_int) :: ldb + ! + hipblasStrsm_rank_0 = hipblasStrsm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb) + end function + + function hipblasStrsm_rank_1(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsm_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(:) :: BP + integer(c_int) :: ldb + ! + hipblasStrsm_rank_1 = hipblasStrsm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb) + end function + + function hipblasStrsm_full_rank(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsm_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(:,:) :: BP + integer(c_int) :: ldb + ! + hipblasStrsm_full_rank = hipblasStrsm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDtrsm_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsm_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(..) :: BP + integer(c_int) :: ldb + ! + hipblasDtrsm_assumed_rank = hipblasDtrsm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb) + end function + +#else + function hipblasDtrsm_rank_0(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsm_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int) :: lda + real(c_double),target :: BP + integer(c_int) :: ldb + ! + hipblasDtrsm_rank_0 = hipblasDtrsm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb) + end function + + function hipblasDtrsm_rank_1(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsm_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(:) :: BP + integer(c_int) :: ldb + ! + hipblasDtrsm_rank_1 = hipblasDtrsm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb) + end function + + function hipblasDtrsm_full_rank(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsm_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(:,:) :: BP + integer(c_int) :: ldb + ! + hipblasDtrsm_full_rank = hipblasDtrsm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCtrsm_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsm_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + ! + hipblasCtrsm_assumed_rank = hipblasCtrsm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb) + end function + +#else + function hipblasCtrsm_rank_0(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsm_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + complex(c_float_complex),target :: BP + integer(c_int) :: ldb + ! + hipblasCtrsm_rank_0 = hipblasCtrsm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb) + end function + + function hipblasCtrsm_rank_1(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsm_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + ! + hipblasCtrsm_rank_1 = hipblasCtrsm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb) + end function + + function hipblasCtrsm_full_rank(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsm_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + ! + hipblasCtrsm_full_rank = hipblasCtrsm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZtrsm_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsm_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + ! + hipblasZtrsm_assumed_rank = hipblasZtrsm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb) + end function + +#else + function hipblasZtrsm_rank_0(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsm_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int) :: lda + complex(c_double_complex),target :: BP + integer(c_int) :: ldb + ! + hipblasZtrsm_rank_0 = hipblasZtrsm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb) + end function + + function hipblasZtrsm_rank_1(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsm_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + ! + hipblasZtrsm_rank_1 = hipblasZtrsm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb) + end function + + function hipblasZtrsm_full_rank(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsm_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + ! + hipblasZtrsm_full_rank = hipblasZtrsm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasStrsm_64_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsm_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + ! + hipblasStrsm_64_assumed_rank = hipblasStrsm_64_(handle,side,uplo,transA,diag,m,n, & + c_loc(alpha),c_loc(AP),lda,c_loc(BP),ldb) + end function + +#else + function hipblasStrsm_64_rank_0(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsm_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int64_t) :: lda + real(c_float),target :: BP + integer(c_int64_t) :: ldb + ! + hipblasStrsm_64_rank_0 = hipblasStrsm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb) + end function + + function hipblasStrsm_64_rank_1(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsm_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + ! + hipblasStrsm_64_rank_1 = hipblasStrsm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb) + end function + + function hipblasStrsm_64_full_rank(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsm_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + ! + hipblasStrsm_64_full_rank = hipblasStrsm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDtrsm_64_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsm_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + ! + hipblasDtrsm_64_assumed_rank = hipblasDtrsm_64_(handle,side,uplo,transA,diag,m,n, & + c_loc(alpha),c_loc(AP),lda,c_loc(BP),ldb) + end function + +#else + function hipblasDtrsm_64_rank_0(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsm_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int64_t) :: lda + real(c_double),target :: BP + integer(c_int64_t) :: ldb + ! + hipblasDtrsm_64_rank_0 = hipblasDtrsm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb) + end function + + function hipblasDtrsm_64_rank_1(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsm_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + ! + hipblasDtrsm_64_rank_1 = hipblasDtrsm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb) + end function + + function hipblasDtrsm_64_full_rank(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsm_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + ! + hipblasDtrsm_64_full_rank = hipblasDtrsm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCtrsm_64_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsm_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + ! + hipblasCtrsm_64_assumed_rank = hipblasCtrsm_64_(handle,side,uplo,transA,diag,m,n, & + c_loc(alpha),c_loc(AP),lda,c_loc(BP),ldb) + end function + +#else + function hipblasCtrsm_64_rank_0(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsm_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target :: BP + integer(c_int64_t) :: ldb + ! + hipblasCtrsm_64_rank_0 = hipblasCtrsm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb) + end function + + function hipblasCtrsm_64_rank_1(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsm_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + ! + hipblasCtrsm_64_rank_1 = hipblasCtrsm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb) + end function + + function hipblasCtrsm_64_full_rank(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsm_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + ! + hipblasCtrsm_64_full_rank = hipblasCtrsm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZtrsm_64_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsm_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + ! + hipblasZtrsm_64_assumed_rank = hipblasZtrsm_64_(handle,side,uplo,transA,diag,m,n, & + c_loc(alpha),c_loc(AP),lda,c_loc(BP),ldb) + end function + +#else + function hipblasZtrsm_64_rank_0(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsm_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target :: BP + integer(c_int64_t) :: ldb + ! + hipblasZtrsm_64_rank_0 = hipblasZtrsm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb) + end function + + function hipblasZtrsm_64_rank_1(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsm_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + ! + hipblasZtrsm_64_rank_1 = hipblasZtrsm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb) + end function + + function hipblasZtrsm_64_full_rank(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsm_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + ! + hipblasZtrsm_64_full_rank = hipblasZtrsm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasStrsmStridedBatched_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,AP, & + lda,strideA,BP,ldb,strideB,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsmStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int) :: batchCount + ! + hipblasStrsmStridedBatched_assumed_rank = hipblasStrsmStridedBatched_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) + end function + +#else + function hipblasStrsmStridedBatched_rank_0(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsmStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int) :: batchCount + ! + hipblasStrsmStridedBatched_rank_0 = hipblasStrsmStridedBatched_(handle,side,uplo,transA, & + diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) + end function + + function hipblasStrsmStridedBatched_rank_1(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsmStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int) :: batchCount + ! + hipblasStrsmStridedBatched_rank_1 = hipblasStrsmStridedBatched_(handle,side,uplo,transA, & + diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) + end function + + function hipblasStrsmStridedBatched_full_rank(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsmStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int) :: batchCount + ! + hipblasStrsmStridedBatched_full_rank = hipblasStrsmStridedBatched_(handle,side,uplo,transA, & + diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDtrsmStridedBatched_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,AP, & + lda,strideA,BP,ldb,strideB,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsmStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int) :: batchCount + ! + hipblasDtrsmStridedBatched_assumed_rank = hipblasDtrsmStridedBatched_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) + end function + +#else + function hipblasDtrsmStridedBatched_rank_0(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsmStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int) :: batchCount + ! + hipblasDtrsmStridedBatched_rank_0 = hipblasDtrsmStridedBatched_(handle,side,uplo,transA, & + diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) + end function + + function hipblasDtrsmStridedBatched_rank_1(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsmStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int) :: batchCount + ! + hipblasDtrsmStridedBatched_rank_1 = hipblasDtrsmStridedBatched_(handle,side,uplo,transA, & + diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) + end function + + function hipblasDtrsmStridedBatched_full_rank(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsmStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int) :: batchCount + ! + hipblasDtrsmStridedBatched_full_rank = hipblasDtrsmStridedBatched_(handle,side,uplo,transA, & + diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCtrsmStridedBatched_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,AP, & + lda,strideA,BP,ldb,strideB,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsmStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int) :: batchCount + ! + hipblasCtrsmStridedBatched_assumed_rank = hipblasCtrsmStridedBatched_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) + end function + +#else + function hipblasCtrsmStridedBatched_rank_0(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsmStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int) :: batchCount + ! + hipblasCtrsmStridedBatched_rank_0 = hipblasCtrsmStridedBatched_(handle,side,uplo,transA, & + diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) + end function + + function hipblasCtrsmStridedBatched_rank_1(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsmStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int) :: batchCount + ! + hipblasCtrsmStridedBatched_rank_1 = hipblasCtrsmStridedBatched_(handle,side,uplo,transA, & + diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) + end function + + function hipblasCtrsmStridedBatched_full_rank(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsmStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int) :: batchCount + ! + hipblasCtrsmStridedBatched_full_rank = hipblasCtrsmStridedBatched_(handle,side,uplo,transA, & + diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZtrsmStridedBatched_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,AP, & + lda,strideA,BP,ldb,strideB,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsmStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int) :: batchCount + ! + hipblasZtrsmStridedBatched_assumed_rank = hipblasZtrsmStridedBatched_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) + end function + +#else + function hipblasZtrsmStridedBatched_rank_0(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsmStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int) :: batchCount + ! + hipblasZtrsmStridedBatched_rank_0 = hipblasZtrsmStridedBatched_(handle,side,uplo,transA, & + diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) + end function + + function hipblasZtrsmStridedBatched_rank_1(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsmStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int) :: batchCount + ! + hipblasZtrsmStridedBatched_rank_1 = hipblasZtrsmStridedBatched_(handle,side,uplo,transA, & + diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) + end function + + function hipblasZtrsmStridedBatched_full_rank(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsmStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int) :: batchCount + ! + hipblasZtrsmStridedBatched_full_rank = hipblasZtrsmStridedBatched_(handle,side,uplo,transA, & + diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasStrsmStridedBatched_64_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,AP, & + lda,strideA,BP,ldb,strideB,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsmStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + integer(c_int64_t) :: batchCount + ! + hipblasStrsmStridedBatched_64_assumed_rank = hipblasStrsmStridedBatched_64_(handle,side, & + uplo,transA,diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) + end function + +#else + function hipblasStrsmStridedBatched_64_rank_0(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsmStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + integer(c_int64_t) :: batchCount + ! + hipblasStrsmStridedBatched_64_rank_0 = hipblasStrsmStridedBatched_64_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) + end function + + function hipblasStrsmStridedBatched_64_rank_1(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsmStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + integer(c_int64_t) :: batchCount + ! + hipblasStrsmStridedBatched_64_rank_1 = hipblasStrsmStridedBatched_64_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) + end function + + function hipblasStrsmStridedBatched_64_full_rank(handle,side,uplo,transA,diag,m,n,alpha,AP, & + lda,strideA,BP,ldb,strideB,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsmStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + integer(c_int64_t) :: batchCount + ! + hipblasStrsmStridedBatched_64_full_rank = hipblasStrsmStridedBatched_64_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDtrsmStridedBatched_64_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,AP, & + lda,strideA,BP,ldb,strideB,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsmStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + integer(c_int64_t) :: batchCount + ! + hipblasDtrsmStridedBatched_64_assumed_rank = hipblasDtrsmStridedBatched_64_(handle,side, & + uplo,transA,diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) + end function + +#else + function hipblasDtrsmStridedBatched_64_rank_0(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsmStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + integer(c_int64_t) :: batchCount + ! + hipblasDtrsmStridedBatched_64_rank_0 = hipblasDtrsmStridedBatched_64_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) + end function + + function hipblasDtrsmStridedBatched_64_rank_1(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsmStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + integer(c_int64_t) :: batchCount + ! + hipblasDtrsmStridedBatched_64_rank_1 = hipblasDtrsmStridedBatched_64_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) + end function + + function hipblasDtrsmStridedBatched_64_full_rank(handle,side,uplo,transA,diag,m,n,alpha,AP, & + lda,strideA,BP,ldb,strideB,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsmStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + integer(c_int64_t) :: batchCount + ! + hipblasDtrsmStridedBatched_64_full_rank = hipblasDtrsmStridedBatched_64_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCtrsmStridedBatched_64_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,AP, & + lda,strideA,BP,ldb,strideB,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsmStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + integer(c_int64_t) :: batchCount + ! + hipblasCtrsmStridedBatched_64_assumed_rank = hipblasCtrsmStridedBatched_64_(handle,side, & + uplo,transA,diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) + end function + +#else + function hipblasCtrsmStridedBatched_64_rank_0(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsmStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + integer(c_int64_t) :: batchCount + ! + hipblasCtrsmStridedBatched_64_rank_0 = hipblasCtrsmStridedBatched_64_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) + end function + + function hipblasCtrsmStridedBatched_64_rank_1(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsmStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + integer(c_int64_t) :: batchCount + ! + hipblasCtrsmStridedBatched_64_rank_1 = hipblasCtrsmStridedBatched_64_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) + end function + + function hipblasCtrsmStridedBatched_64_full_rank(handle,side,uplo,transA,diag,m,n,alpha,AP, & + lda,strideA,BP,ldb,strideB,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsmStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + integer(c_int64_t) :: batchCount + ! + hipblasCtrsmStridedBatched_64_full_rank = hipblasCtrsmStridedBatched_64_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZtrsmStridedBatched_64_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,AP, & + lda,strideA,BP,ldb,strideB,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsmStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + integer(c_int64_t) :: batchCount + ! + hipblasZtrsmStridedBatched_64_assumed_rank = hipblasZtrsmStridedBatched_64_(handle,side, & + uplo,transA,diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) + end function + +#else + function hipblasZtrsmStridedBatched_64_rank_0(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsmStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + integer(c_int64_t) :: batchCount + ! + hipblasZtrsmStridedBatched_64_rank_0 = hipblasZtrsmStridedBatched_64_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) + end function + + function hipblasZtrsmStridedBatched_64_rank_1(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsmStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + integer(c_int64_t) :: batchCount + ! + hipblasZtrsmStridedBatched_64_rank_1 = hipblasZtrsmStridedBatched_64_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) + end function + + function hipblasZtrsmStridedBatched_64_full_rank(handle,side,uplo,transA,diag,m,n,alpha,AP, & + lda,strideA,BP,ldb,strideB,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsmStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + integer(c_int64_t) :: batchCount + ! + hipblasZtrsmStridedBatched_64_full_rank = hipblasZtrsmStridedBatched_64_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasStrtri_assumed_rank(handle,uplo,diag,n,AP,lda,invA,ldinvA) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrtri_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(..) :: invA + integer(c_int) :: ldinvA + ! + hipblasStrtri_assumed_rank = hipblasStrtri_(handle,uplo,diag,n,c_loc(AP),lda,c_loc(invA), & + ldinvA) + end function + +#else + function hipblasStrtri_rank_0(handle,uplo,diag,n,AP,lda,invA,ldinvA) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrtri_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_float),target :: AP + integer(c_int) :: lda + real(c_float),target :: invA + integer(c_int) :: ldinvA + ! + hipblasStrtri_rank_0 = hipblasStrtri_(handle,uplo,diag,n,c_loc(AP),lda,c_loc(invA),ldinvA) + end function + + function hipblasStrtri_rank_1(handle,uplo,diag,n,AP,lda,invA,ldinvA) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrtri_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(:) :: invA + integer(c_int) :: ldinvA + ! + hipblasStrtri_rank_1 = hipblasStrtri_(handle,uplo,diag,n,c_loc(AP),lda,c_loc(invA),ldinvA) + end function + + function hipblasStrtri_full_rank(handle,uplo,diag,n,AP,lda,invA,ldinvA) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrtri_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(:,:) :: invA + integer(c_int) :: ldinvA + ! + hipblasStrtri_full_rank = hipblasStrtri_(handle,uplo,diag,n,c_loc(AP),lda,c_loc(invA),ldinvA) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDtrtri_assumed_rank(handle,uplo,diag,n,AP,lda,invA,ldinvA) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrtri_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(..) :: invA + integer(c_int) :: ldinvA + ! + hipblasDtrtri_assumed_rank = hipblasDtrtri_(handle,uplo,diag,n,c_loc(AP),lda,c_loc(invA), & + ldinvA) + end function + +#else + function hipblasDtrtri_rank_0(handle,uplo,diag,n,AP,lda,invA,ldinvA) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrtri_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_double),target :: AP + integer(c_int) :: lda + real(c_double),target :: invA + integer(c_int) :: ldinvA + ! + hipblasDtrtri_rank_0 = hipblasDtrtri_(handle,uplo,diag,n,c_loc(AP),lda,c_loc(invA),ldinvA) + end function + + function hipblasDtrtri_rank_1(handle,uplo,diag,n,AP,lda,invA,ldinvA) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrtri_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(:) :: invA + integer(c_int) :: ldinvA + ! + hipblasDtrtri_rank_1 = hipblasDtrtri_(handle,uplo,diag,n,c_loc(AP),lda,c_loc(invA),ldinvA) + end function + + function hipblasDtrtri_full_rank(handle,uplo,diag,n,AP,lda,invA,ldinvA) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrtri_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(:,:) :: invA + integer(c_int) :: ldinvA + ! + hipblasDtrtri_full_rank = hipblasDtrtri_(handle,uplo,diag,n,c_loc(AP),lda,c_loc(invA),ldinvA) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCtrtri_assumed_rank(handle,uplo,diag,n,AP,lda,invA,ldinvA) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrtri_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(..) :: invA + integer(c_int) :: ldinvA + ! + hipblasCtrtri_assumed_rank = hipblasCtrtri_(handle,uplo,diag,n,c_loc(AP),lda,c_loc(invA), & + ldinvA) + end function + +#else + function hipblasCtrtri_rank_0(handle,uplo,diag,n,AP,lda,invA,ldinvA) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrtri_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_float_complex),target :: AP + integer(c_int) :: lda + complex(c_float_complex),target :: invA + integer(c_int) :: ldinvA + ! + hipblasCtrtri_rank_0 = hipblasCtrtri_(handle,uplo,diag,n,c_loc(AP),lda,c_loc(invA),ldinvA) + end function + + function hipblasCtrtri_rank_1(handle,uplo,diag,n,AP,lda,invA,ldinvA) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrtri_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:) :: invA + integer(c_int) :: ldinvA + ! + hipblasCtrtri_rank_1 = hipblasCtrtri_(handle,uplo,diag,n,c_loc(AP),lda,c_loc(invA),ldinvA) + end function + + function hipblasCtrtri_full_rank(handle,uplo,diag,n,AP,lda,invA,ldinvA) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrtri_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:,:) :: invA + integer(c_int) :: ldinvA + ! + hipblasCtrtri_full_rank = hipblasCtrtri_(handle,uplo,diag,n,c_loc(AP),lda,c_loc(invA),ldinvA) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZtrtri_assumed_rank(handle,uplo,diag,n,AP,lda,invA,ldinvA) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrtri_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(..) :: invA + integer(c_int) :: ldinvA + ! + hipblasZtrtri_assumed_rank = hipblasZtrtri_(handle,uplo,diag,n,c_loc(AP),lda,c_loc(invA), & + ldinvA) + end function + +#else + function hipblasZtrtri_rank_0(handle,uplo,diag,n,AP,lda,invA,ldinvA) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrtri_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_double_complex),target :: AP + integer(c_int) :: lda + complex(c_double_complex),target :: invA + integer(c_int) :: ldinvA + ! + hipblasZtrtri_rank_0 = hipblasZtrtri_(handle,uplo,diag,n,c_loc(AP),lda,c_loc(invA),ldinvA) + end function + + function hipblasZtrtri_rank_1(handle,uplo,diag,n,AP,lda,invA,ldinvA) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrtri_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:) :: invA + integer(c_int) :: ldinvA + ! + hipblasZtrtri_rank_1 = hipblasZtrtri_(handle,uplo,diag,n,c_loc(AP),lda,c_loc(invA),ldinvA) + end function + + function hipblasZtrtri_full_rank(handle,uplo,diag,n,AP,lda,invA,ldinvA) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrtri_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:,:) :: invA + integer(c_int) :: ldinvA + ! + hipblasZtrtri_full_rank = hipblasZtrtri_(handle,uplo,diag,n,c_loc(AP),lda,c_loc(invA),ldinvA) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasStrtriStridedBatched_assumed_rank(handle,uplo,diag,n,AP,lda,strideA,invA, & + ldinvA,stride_invA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrtriStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: invA + integer(c_int) :: ldinvA + integer(c_int64_t) :: stride_invA + integer(c_int) :: batchCount + ! + hipblasStrtriStridedBatched_assumed_rank = hipblasStrtriStridedBatched_(handle,uplo,diag,n, & + c_loc(AP),lda,strideA,c_loc(invA),ldinvA,stride_invA,batchCount) + end function + +#else + function hipblasStrtriStridedBatched_rank_0(handle,uplo,diag,n,AP,lda,strideA,invA,ldinvA, & + stride_invA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrtriStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_float),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: invA + integer(c_int) :: ldinvA + integer(c_int64_t) :: stride_invA + integer(c_int) :: batchCount + ! + hipblasStrtriStridedBatched_rank_0 = hipblasStrtriStridedBatched_(handle,uplo,diag,n, & + c_loc(AP),lda,strideA,c_loc(invA),ldinvA,stride_invA,batchCount) + end function + + function hipblasStrtriStridedBatched_rank_1(handle,uplo,diag,n,AP,lda,strideA,invA,ldinvA, & + stride_invA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrtriStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: invA + integer(c_int) :: ldinvA + integer(c_int64_t) :: stride_invA + integer(c_int) :: batchCount + ! + hipblasStrtriStridedBatched_rank_1 = hipblasStrtriStridedBatched_(handle,uplo,diag,n, & + c_loc(AP),lda,strideA,c_loc(invA),ldinvA,stride_invA,batchCount) + end function + + function hipblasStrtriStridedBatched_full_rank(handle,uplo,diag,n,AP,lda,strideA,invA,ldinvA, & + stride_invA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrtriStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:,:) :: invA + integer(c_int) :: ldinvA + integer(c_int64_t) :: stride_invA + integer(c_int) :: batchCount + ! + hipblasStrtriStridedBatched_full_rank = hipblasStrtriStridedBatched_(handle,uplo,diag,n, & + c_loc(AP),lda,strideA,c_loc(invA),ldinvA,stride_invA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDtrtriStridedBatched_assumed_rank(handle,uplo,diag,n,AP,lda,strideA,invA, & + ldinvA,stride_invA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrtriStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: invA + integer(c_int) :: ldinvA + integer(c_int64_t) :: stride_invA + integer(c_int) :: batchCount + ! + hipblasDtrtriStridedBatched_assumed_rank = hipblasDtrtriStridedBatched_(handle,uplo,diag,n, & + c_loc(AP),lda,strideA,c_loc(invA),ldinvA,stride_invA,batchCount) + end function + +#else + function hipblasDtrtriStridedBatched_rank_0(handle,uplo,diag,n,AP,lda,strideA,invA,ldinvA, & + stride_invA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrtriStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_double),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: invA + integer(c_int) :: ldinvA + integer(c_int64_t) :: stride_invA + integer(c_int) :: batchCount + ! + hipblasDtrtriStridedBatched_rank_0 = hipblasDtrtriStridedBatched_(handle,uplo,diag,n, & + c_loc(AP),lda,strideA,c_loc(invA),ldinvA,stride_invA,batchCount) + end function + + function hipblasDtrtriStridedBatched_rank_1(handle,uplo,diag,n,AP,lda,strideA,invA,ldinvA, & + stride_invA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrtriStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: invA + integer(c_int) :: ldinvA + integer(c_int64_t) :: stride_invA + integer(c_int) :: batchCount + ! + hipblasDtrtriStridedBatched_rank_1 = hipblasDtrtriStridedBatched_(handle,uplo,diag,n, & + c_loc(AP),lda,strideA,c_loc(invA),ldinvA,stride_invA,batchCount) + end function + + function hipblasDtrtriStridedBatched_full_rank(handle,uplo,diag,n,AP,lda,strideA,invA,ldinvA, & + stride_invA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrtriStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:) :: invA + integer(c_int) :: ldinvA + integer(c_int64_t) :: stride_invA + integer(c_int) :: batchCount + ! + hipblasDtrtriStridedBatched_full_rank = hipblasDtrtriStridedBatched_(handle,uplo,diag,n, & + c_loc(AP),lda,strideA,c_loc(invA),ldinvA,stride_invA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCtrtriStridedBatched_assumed_rank(handle,uplo,diag,n,AP,lda,strideA,invA, & + ldinvA,stride_invA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrtriStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: invA + integer(c_int) :: ldinvA + integer(c_int64_t) :: stride_invA + integer(c_int) :: batchCount + ! + hipblasCtrtriStridedBatched_assumed_rank = hipblasCtrtriStridedBatched_(handle,uplo,diag,n, & + c_loc(AP),lda,strideA,c_loc(invA),ldinvA,stride_invA,batchCount) + end function + +#else + function hipblasCtrtriStridedBatched_rank_0(handle,uplo,diag,n,AP,lda,strideA,invA,ldinvA, & + stride_invA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrtriStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_float_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: invA + integer(c_int) :: ldinvA + integer(c_int64_t) :: stride_invA + integer(c_int) :: batchCount + ! + hipblasCtrtriStridedBatched_rank_0 = hipblasCtrtriStridedBatched_(handle,uplo,diag,n, & + c_loc(AP),lda,strideA,c_loc(invA),ldinvA,stride_invA,batchCount) + end function + + function hipblasCtrtriStridedBatched_rank_1(handle,uplo,diag,n,AP,lda,strideA,invA,ldinvA, & + stride_invA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrtriStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: invA + integer(c_int) :: ldinvA + integer(c_int64_t) :: stride_invA + integer(c_int) :: batchCount + ! + hipblasCtrtriStridedBatched_rank_1 = hipblasCtrtriStridedBatched_(handle,uplo,diag,n, & + c_loc(AP),lda,strideA,c_loc(invA),ldinvA,stride_invA,batchCount) + end function + + function hipblasCtrtriStridedBatched_full_rank(handle,uplo,diag,n,AP,lda,strideA,invA,ldinvA, & + stride_invA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrtriStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: invA + integer(c_int) :: ldinvA + integer(c_int64_t) :: stride_invA + integer(c_int) :: batchCount + ! + hipblasCtrtriStridedBatched_full_rank = hipblasCtrtriStridedBatched_(handle,uplo,diag,n, & + c_loc(AP),lda,strideA,c_loc(invA),ldinvA,stride_invA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZtrtriStridedBatched_assumed_rank(handle,uplo,diag,n,AP,lda,strideA,invA, & + ldinvA,stride_invA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrtriStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: invA + integer(c_int) :: ldinvA + integer(c_int64_t) :: stride_invA + integer(c_int) :: batchCount + ! + hipblasZtrtriStridedBatched_assumed_rank = hipblasZtrtriStridedBatched_(handle,uplo,diag,n, & + c_loc(AP),lda,strideA,c_loc(invA),ldinvA,stride_invA,batchCount) + end function + +#else + function hipblasZtrtriStridedBatched_rank_0(handle,uplo,diag,n,AP,lda,strideA,invA,ldinvA, & + stride_invA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrtriStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_double_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: invA + integer(c_int) :: ldinvA + integer(c_int64_t) :: stride_invA + integer(c_int) :: batchCount + ! + hipblasZtrtriStridedBatched_rank_0 = hipblasZtrtriStridedBatched_(handle,uplo,diag,n, & + c_loc(AP),lda,strideA,c_loc(invA),ldinvA,stride_invA,batchCount) + end function + + function hipblasZtrtriStridedBatched_rank_1(handle,uplo,diag,n,AP,lda,strideA,invA,ldinvA, & + stride_invA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrtriStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: invA + integer(c_int) :: ldinvA + integer(c_int64_t) :: stride_invA + integer(c_int) :: batchCount + ! + hipblasZtrtriStridedBatched_rank_1 = hipblasZtrtriStridedBatched_(handle,uplo,diag,n, & + c_loc(AP),lda,strideA,c_loc(invA),ldinvA,stride_invA,batchCount) + end function + + function hipblasZtrtriStridedBatched_full_rank(handle,uplo,diag,n,AP,lda,strideA,invA,ldinvA, & + stride_invA,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrtriStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: invA + integer(c_int) :: ldinvA + integer(c_int64_t) :: stride_invA + integer(c_int) :: batchCount + ! + hipblasZtrtriStridedBatched_full_rank = hipblasZtrtriStridedBatched_(handle,uplo,diag,n, & + c_loc(AP),lda,strideA,c_loc(invA),ldinvA,stride_invA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSdgmm_assumed_rank(handle,side,m,n,AP,lda,x,incx,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdgmm_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + real(c_float),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasSdgmm_assumed_rank = hipblasSdgmm_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx, & + c_loc(CP),ldc) + end function + +#else + function hipblasSdgmm_rank_0(handle,side,m,n,AP,lda,x,incx,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdgmm_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: AP + integer(c_int) :: lda + real(c_float),target :: x + integer(c_int) :: incx + real(c_float),target :: CP + integer(c_int) :: ldc + ! + hipblasSdgmm_rank_0 = hipblasSdgmm_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx,c_loc(CP),ldc) + end function + + function hipblasSdgmm_rank_1(handle,side,m,n,AP,lda,x,incx,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdgmm_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + real(c_float),target,dimension(:) :: CP + integer(c_int) :: ldc + ! + hipblasSdgmm_rank_1 = hipblasSdgmm_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx,c_loc(CP),ldc) + end function + + function hipblasSdgmm_full_rank(handle,side,m,n,AP,lda,x,incx,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdgmm_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + real(c_float),target,dimension(:,:) :: CP + integer(c_int) :: ldc + ! + hipblasSdgmm_full_rank = hipblasSdgmm_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx, & + c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDdgmm_assumed_rank(handle,side,m,n,AP,lda,x,incx,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdgmm_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + real(c_double),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasDdgmm_assumed_rank = hipblasDdgmm_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx, & + c_loc(CP),ldc) + end function + +#else + function hipblasDdgmm_rank_0(handle,side,m,n,AP,lda,x,incx,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdgmm_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: AP + integer(c_int) :: lda + real(c_double),target :: x + integer(c_int) :: incx + real(c_double),target :: CP + integer(c_int) :: ldc + ! + hipblasDdgmm_rank_0 = hipblasDdgmm_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx,c_loc(CP),ldc) + end function + + function hipblasDdgmm_rank_1(handle,side,m,n,AP,lda,x,incx,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdgmm_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + real(c_double),target,dimension(:) :: CP + integer(c_int) :: ldc + ! + hipblasDdgmm_rank_1 = hipblasDdgmm_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx,c_loc(CP),ldc) + end function + + function hipblasDdgmm_full_rank(handle,side,m,n,AP,lda,x,incx,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdgmm_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + real(c_double),target,dimension(:,:) :: CP + integer(c_int) :: ldc + ! + hipblasDdgmm_full_rank = hipblasDdgmm_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx, & + c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCdgmm_assumed_rank(handle,side,m,n,AP,lda,x,incx,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdgmm_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasCdgmm_assumed_rank = hipblasCdgmm_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx, & + c_loc(CP),ldc) + end function + +#else + function hipblasCdgmm_rank_0(handle,side,m,n,AP,lda,x,incx,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdgmm_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: AP + integer(c_int) :: lda + complex(c_float_complex),target :: x + integer(c_int) :: incx + complex(c_float_complex),target :: CP + integer(c_int) :: ldc + ! + hipblasCdgmm_rank_0 = hipblasCdgmm_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx,c_loc(CP),ldc) + end function + + function hipblasCdgmm_rank_1(handle,side,m,n,AP,lda,x,incx,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdgmm_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + ! + hipblasCdgmm_rank_1 = hipblasCdgmm_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx,c_loc(CP),ldc) + end function + + function hipblasCdgmm_full_rank(handle,side,m,n,AP,lda,x,incx,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdgmm_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + ! + hipblasCdgmm_full_rank = hipblasCdgmm_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx, & + c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZdgmm_assumed_rank(handle,side,m,n,AP,lda,x,incx,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdgmm_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasZdgmm_assumed_rank = hipblasZdgmm_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx, & + c_loc(CP),ldc) + end function + +#else + function hipblasZdgmm_rank_0(handle,side,m,n,AP,lda,x,incx,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdgmm_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: AP + integer(c_int) :: lda + complex(c_double_complex),target :: x + integer(c_int) :: incx + complex(c_double_complex),target :: CP + integer(c_int) :: ldc + ! + hipblasZdgmm_rank_0 = hipblasZdgmm_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx,c_loc(CP),ldc) + end function + + function hipblasZdgmm_rank_1(handle,side,m,n,AP,lda,x,incx,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdgmm_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + ! + hipblasZdgmm_rank_1 = hipblasZdgmm_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx,c_loc(CP),ldc) + end function + + function hipblasZdgmm_full_rank(handle,side,m,n,AP,lda,x,incx,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdgmm_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + ! + hipblasZdgmm_full_rank = hipblasZdgmm_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx, & + c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSdgmm_64_assumed_rank(handle,side,m,n,AP,lda,x,incx,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdgmm_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_float),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasSdgmm_64_assumed_rank = hipblasSdgmm_64_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx, & + c_loc(CP),ldc) + end function + +#else + function hipblasSdgmm_64_rank_0(handle,side,m,n,AP,lda,x,incx,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdgmm_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: AP + integer(c_int64_t) :: lda + real(c_float),target :: x + integer(c_int64_t) :: incx + real(c_float),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasSdgmm_64_rank_0 = hipblasSdgmm_64_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx, & + c_loc(CP),ldc) + end function + + function hipblasSdgmm_64_rank_1(handle,side,m,n,AP,lda,x,incx,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdgmm_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_float),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasSdgmm_64_rank_1 = hipblasSdgmm_64_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx, & + c_loc(CP),ldc) + end function + + function hipblasSdgmm_64_full_rank(handle,side,m,n,AP,lda,x,incx,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdgmm_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_float),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasSdgmm_64_full_rank = hipblasSdgmm_64_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx, & + c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDdgmm_64_assumed_rank(handle,side,m,n,AP,lda,x,incx,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdgmm_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_double),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasDdgmm_64_assumed_rank = hipblasDdgmm_64_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx, & + c_loc(CP),ldc) + end function + +#else + function hipblasDdgmm_64_rank_0(handle,side,m,n,AP,lda,x,incx,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdgmm_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: AP + integer(c_int64_t) :: lda + real(c_double),target :: x + integer(c_int64_t) :: incx + real(c_double),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasDdgmm_64_rank_0 = hipblasDdgmm_64_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx, & + c_loc(CP),ldc) + end function + + function hipblasDdgmm_64_rank_1(handle,side,m,n,AP,lda,x,incx,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdgmm_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_double),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasDdgmm_64_rank_1 = hipblasDdgmm_64_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx, & + c_loc(CP),ldc) + end function + + function hipblasDdgmm_64_full_rank(handle,side,m,n,AP,lda,x,incx,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdgmm_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_double),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasDdgmm_64_full_rank = hipblasDdgmm_64_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx, & + c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCdgmm_64_assumed_rank(handle,side,m,n,AP,lda,x,incx,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdgmm_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCdgmm_64_assumed_rank = hipblasCdgmm_64_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx, & + c_loc(CP),ldc) + end function + +#else + function hipblasCdgmm_64_rank_0(handle,side,m,n,AP,lda,x,incx,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdgmm_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasCdgmm_64_rank_0 = hipblasCdgmm_64_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx, & + c_loc(CP),ldc) + end function + + function hipblasCdgmm_64_rank_1(handle,side,m,n,AP,lda,x,incx,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdgmm_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCdgmm_64_rank_1 = hipblasCdgmm_64_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx, & + c_loc(CP),ldc) + end function + + function hipblasCdgmm_64_full_rank(handle,side,m,n,AP,lda,x,incx,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdgmm_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCdgmm_64_full_rank = hipblasCdgmm_64_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx, & + c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZdgmm_64_assumed_rank(handle,side,m,n,AP,lda,x,incx,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdgmm_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZdgmm_64_assumed_rank = hipblasZdgmm_64_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx, & + c_loc(CP),ldc) + end function + +#else + function hipblasZdgmm_64_rank_0(handle,side,m,n,AP,lda,x,incx,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdgmm_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasZdgmm_64_rank_0 = hipblasZdgmm_64_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx, & + c_loc(CP),ldc) + end function + + function hipblasZdgmm_64_rank_1(handle,side,m,n,AP,lda,x,incx,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdgmm_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZdgmm_64_rank_1 = hipblasZdgmm_64_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx, & + c_loc(CP),ldc) + end function + + function hipblasZdgmm_64_full_rank(handle,side,m,n,AP,lda,x,incx,CP,ldc) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdgmm_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZdgmm_64_full_rank = hipblasZdgmm_64_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx, & + c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSdgmmStridedBatched_assumed_rank(handle,side,m,n,AP,lda,strideA,x,incx, & + stridex,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdgmmStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasSdgmmStridedBatched_assumed_rank = hipblasSdgmmStridedBatched_(handle,side,m,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) + end function + +#else + function hipblasSdgmmStridedBatched_rank_0(handle,side,m,n,AP,lda,strideA,x,incx,stridex,CP, & + ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdgmmStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasSdgmmStridedBatched_rank_0 = hipblasSdgmmStridedBatched_(handle,side,m,n,c_loc(AP), & + lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasSdgmmStridedBatched_rank_1(handle,side,m,n,AP,lda,strideA,x,incx,stridex,CP, & + ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdgmmStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasSdgmmStridedBatched_rank_1 = hipblasSdgmmStridedBatched_(handle,side,m,n,c_loc(AP), & + lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasSdgmmStridedBatched_full_rank(handle,side,m,n,AP,lda,strideA,x,incx,stridex, & + CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdgmmStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasSdgmmStridedBatched_full_rank = hipblasSdgmmStridedBatched_(handle,side,m,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDdgmmStridedBatched_assumed_rank(handle,side,m,n,AP,lda,strideA,x,incx, & + stridex,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdgmmStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasDdgmmStridedBatched_assumed_rank = hipblasDdgmmStridedBatched_(handle,side,m,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) + end function + +#else + function hipblasDdgmmStridedBatched_rank_0(handle,side,m,n,AP,lda,strideA,x,incx,stridex,CP, & + ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdgmmStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasDdgmmStridedBatched_rank_0 = hipblasDdgmmStridedBatched_(handle,side,m,n,c_loc(AP), & + lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasDdgmmStridedBatched_rank_1(handle,side,m,n,AP,lda,strideA,x,incx,stridex,CP, & + ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdgmmStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasDdgmmStridedBatched_rank_1 = hipblasDdgmmStridedBatched_(handle,side,m,n,c_loc(AP), & + lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasDdgmmStridedBatched_full_rank(handle,side,m,n,AP,lda,strideA,x,incx,stridex, & + CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdgmmStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasDdgmmStridedBatched_full_rank = hipblasDdgmmStridedBatched_(handle,side,m,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCdgmmStridedBatched_assumed_rank(handle,side,m,n,AP,lda,strideA,x,incx, & + stridex,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdgmmStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCdgmmStridedBatched_assumed_rank = hipblasCdgmmStridedBatched_(handle,side,m,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) + end function + +#else + function hipblasCdgmmStridedBatched_rank_0(handle,side,m,n,AP,lda,strideA,x,incx,stridex,CP, & + ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdgmmStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCdgmmStridedBatched_rank_0 = hipblasCdgmmStridedBatched_(handle,side,m,n,c_loc(AP), & + lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasCdgmmStridedBatched_rank_1(handle,side,m,n,AP,lda,strideA,x,incx,stridex,CP, & + ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdgmmStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCdgmmStridedBatched_rank_1 = hipblasCdgmmStridedBatched_(handle,side,m,n,c_loc(AP), & + lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasCdgmmStridedBatched_full_rank(handle,side,m,n,AP,lda,strideA,x,incx,stridex, & + CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdgmmStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCdgmmStridedBatched_full_rank = hipblasCdgmmStridedBatched_(handle,side,m,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZdgmmStridedBatched_assumed_rank(handle,side,m,n,AP,lda,strideA,x,incx, & + stridex,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdgmmStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZdgmmStridedBatched_assumed_rank = hipblasZdgmmStridedBatched_(handle,side,m,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) + end function + +#else + function hipblasZdgmmStridedBatched_rank_0(handle,side,m,n,AP,lda,strideA,x,incx,stridex,CP, & + ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdgmmStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZdgmmStridedBatched_rank_0 = hipblasZdgmmStridedBatched_(handle,side,m,n,c_loc(AP), & + lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasZdgmmStridedBatched_rank_1(handle,side,m,n,AP,lda,strideA,x,incx,stridex,CP, & + ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdgmmStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZdgmmStridedBatched_rank_1 = hipblasZdgmmStridedBatched_(handle,side,m,n,c_loc(AP), & + lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasZdgmmStridedBatched_full_rank(handle,side,m,n,AP,lda,strideA,x,incx,stridex, & + CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdgmmStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZdgmmStridedBatched_full_rank = hipblasZdgmmStridedBatched_(handle,side,m,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSdgmmStridedBatched_64_assumed_rank(handle,side,m,n,AP,lda,strideA,x,incx, & + stridex,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdgmmStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasSdgmmStridedBatched_64_assumed_rank = hipblasSdgmmStridedBatched_64_(handle,side,m,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) + end function + +#else + function hipblasSdgmmStridedBatched_64_rank_0(handle,side,m,n,AP,lda,strideA,x,incx,stridex, & + CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdgmmStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasSdgmmStridedBatched_64_rank_0 = hipblasSdgmmStridedBatched_64_(handle,side,m,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasSdgmmStridedBatched_64_rank_1(handle,side,m,n,AP,lda,strideA,x,incx,stridex, & + CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdgmmStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasSdgmmStridedBatched_64_rank_1 = hipblasSdgmmStridedBatched_64_(handle,side,m,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasSdgmmStridedBatched_64_full_rank(handle,side,m,n,AP,lda,strideA,x,incx, & + stridex,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdgmmStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasSdgmmStridedBatched_64_full_rank = hipblasSdgmmStridedBatched_64_(handle,side,m,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDdgmmStridedBatched_64_assumed_rank(handle,side,m,n,AP,lda,strideA,x,incx, & + stridex,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdgmmStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasDdgmmStridedBatched_64_assumed_rank = hipblasDdgmmStridedBatched_64_(handle,side,m,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) + end function + +#else + function hipblasDdgmmStridedBatched_64_rank_0(handle,side,m,n,AP,lda,strideA,x,incx,stridex, & + CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdgmmStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasDdgmmStridedBatched_64_rank_0 = hipblasDdgmmStridedBatched_64_(handle,side,m,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasDdgmmStridedBatched_64_rank_1(handle,side,m,n,AP,lda,strideA,x,incx,stridex, & + CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdgmmStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasDdgmmStridedBatched_64_rank_1 = hipblasDdgmmStridedBatched_64_(handle,side,m,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasDdgmmStridedBatched_64_full_rank(handle,side,m,n,AP,lda,strideA,x,incx, & + stridex,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdgmmStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasDdgmmStridedBatched_64_full_rank = hipblasDdgmmStridedBatched_64_(handle,side,m,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCdgmmStridedBatched_64_assumed_rank(handle,side,m,n,AP,lda,strideA,x,incx, & + stridex,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdgmmStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCdgmmStridedBatched_64_assumed_rank = hipblasCdgmmStridedBatched_64_(handle,side,m,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) + end function + +#else + function hipblasCdgmmStridedBatched_64_rank_0(handle,side,m,n,AP,lda,strideA,x,incx,stridex, & + CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdgmmStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCdgmmStridedBatched_64_rank_0 = hipblasCdgmmStridedBatched_64_(handle,side,m,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasCdgmmStridedBatched_64_rank_1(handle,side,m,n,AP,lda,strideA,x,incx,stridex, & + CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdgmmStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCdgmmStridedBatched_64_rank_1 = hipblasCdgmmStridedBatched_64_(handle,side,m,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasCdgmmStridedBatched_64_full_rank(handle,side,m,n,AP,lda,strideA,x,incx, & + stridex,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdgmmStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCdgmmStridedBatched_64_full_rank = hipblasCdgmmStridedBatched_64_(handle,side,m,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZdgmmStridedBatched_64_assumed_rank(handle,side,m,n,AP,lda,strideA,x,incx, & + stridex,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdgmmStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZdgmmStridedBatched_64_assumed_rank = hipblasZdgmmStridedBatched_64_(handle,side,m,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) + end function + +#else + function hipblasZdgmmStridedBatched_64_rank_0(handle,side,m,n,AP,lda,strideA,x,incx,stridex, & + CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdgmmStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZdgmmStridedBatched_64_rank_0 = hipblasZdgmmStridedBatched_64_(handle,side,m,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasZdgmmStridedBatched_64_rank_1(handle,side,m,n,AP,lda,strideA,x,incx,stridex, & + CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdgmmStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZdgmmStridedBatched_64_rank_1 = hipblasZdgmmStridedBatched_64_(handle,side,m,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasZdgmmStridedBatched_64_full_rank(handle,side,m,n,AP,lda,strideA,x,incx, & + stridex,CP,ldc,strideC,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdgmmStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZdgmmStridedBatched_64_full_rank = hipblasZdgmmStridedBatched_64_(handle,side,m,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSgetrf_assumed_rank(handle,n,A,lda,ipiv,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrf_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target,dimension(..) :: A + integer(c_int) :: lda + integer(c_int),target,dimension(..) :: ipiv + type(c_ptr) :: myInfo + ! + hipblasSgetrf_assumed_rank = hipblasSgetrf_(handle,n,c_loc(A),lda,c_loc(ipiv),myInfo) + end function + +#else + function hipblasSgetrf_rank_0(handle,n,A,lda,ipiv,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrf_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target :: A + integer(c_int) :: lda + integer(c_int),target :: ipiv + type(c_ptr) :: myInfo + ! + hipblasSgetrf_rank_0 = hipblasSgetrf_(handle,n,c_loc(A),lda,c_loc(ipiv),myInfo) + end function + + function hipblasSgetrf_rank_1(handle,n,A,lda,ipiv,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrf_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target,dimension(:) :: A + integer(c_int) :: lda + integer(c_int),target,dimension(:) :: ipiv + type(c_ptr) :: myInfo + ! + hipblasSgetrf_rank_1 = hipblasSgetrf_(handle,n,c_loc(A),lda,c_loc(ipiv),myInfo) + end function + + function hipblasSgetrf_full_rank(handle,n,A,lda,ipiv,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrf_full_rank + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target,dimension(:,:) :: A + integer(c_int) :: lda + integer(c_int),target,dimension(:) :: ipiv + type(c_ptr) :: myInfo + ! + hipblasSgetrf_full_rank = hipblasSgetrf_(handle,n,c_loc(A),lda,c_loc(ipiv),myInfo) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDgetrf_assumed_rank(handle,n,A,lda,ipiv,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrf_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target,dimension(..) :: A + integer(c_int) :: lda + integer(c_int),target,dimension(..) :: ipiv + type(c_ptr) :: myInfo + ! + hipblasDgetrf_assumed_rank = hipblasDgetrf_(handle,n,c_loc(A),lda,c_loc(ipiv),myInfo) + end function + +#else + function hipblasDgetrf_rank_0(handle,n,A,lda,ipiv,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrf_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target :: A + integer(c_int) :: lda + integer(c_int),target :: ipiv + type(c_ptr) :: myInfo + ! + hipblasDgetrf_rank_0 = hipblasDgetrf_(handle,n,c_loc(A),lda,c_loc(ipiv),myInfo) + end function + + function hipblasDgetrf_rank_1(handle,n,A,lda,ipiv,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrf_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target,dimension(:) :: A + integer(c_int) :: lda + integer(c_int),target,dimension(:) :: ipiv + type(c_ptr) :: myInfo + ! + hipblasDgetrf_rank_1 = hipblasDgetrf_(handle,n,c_loc(A),lda,c_loc(ipiv),myInfo) + end function + + function hipblasDgetrf_full_rank(handle,n,A,lda,ipiv,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrf_full_rank + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target,dimension(:,:) :: A + integer(c_int) :: lda + integer(c_int),target,dimension(:) :: ipiv + type(c_ptr) :: myInfo + ! + hipblasDgetrf_full_rank = hipblasDgetrf_(handle,n,c_loc(A),lda,c_loc(ipiv),myInfo) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCgetrf_assumed_rank(handle,n,A,lda,ipiv,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrf_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(..) :: A + integer(c_int) :: lda + integer(c_int),target,dimension(..) :: ipiv + type(c_ptr) :: myInfo + ! + hipblasCgetrf_assumed_rank = hipblasCgetrf_(handle,n,c_loc(A),lda,c_loc(ipiv),myInfo) + end function + +#else + function hipblasCgetrf_rank_0(handle,n,A,lda,ipiv,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrf_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target :: A + integer(c_int) :: lda + integer(c_int),target :: ipiv + type(c_ptr) :: myInfo + ! + hipblasCgetrf_rank_0 = hipblasCgetrf_(handle,n,c_loc(A),lda,c_loc(ipiv),myInfo) + end function + + function hipblasCgetrf_rank_1(handle,n,A,lda,ipiv,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrf_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: A + integer(c_int) :: lda + integer(c_int),target,dimension(:) :: ipiv + type(c_ptr) :: myInfo + ! + hipblasCgetrf_rank_1 = hipblasCgetrf_(handle,n,c_loc(A),lda,c_loc(ipiv),myInfo) + end function + + function hipblasCgetrf_full_rank(handle,n,A,lda,ipiv,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrf_full_rank + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(:,:) :: A + integer(c_int) :: lda + integer(c_int),target,dimension(:) :: ipiv + type(c_ptr) :: myInfo + ! + hipblasCgetrf_full_rank = hipblasCgetrf_(handle,n,c_loc(A),lda,c_loc(ipiv),myInfo) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZgetrf_assumed_rank(handle,n,A,lda,ipiv,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrf_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(..) :: A + integer(c_int) :: lda + integer(c_int),target,dimension(..) :: ipiv + type(c_ptr) :: myInfo + ! + hipblasZgetrf_assumed_rank = hipblasZgetrf_(handle,n,c_loc(A),lda,c_loc(ipiv),myInfo) + end function + +#else + function hipblasZgetrf_rank_0(handle,n,A,lda,ipiv,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrf_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target :: A + integer(c_int) :: lda + integer(c_int),target :: ipiv + type(c_ptr) :: myInfo + ! + hipblasZgetrf_rank_0 = hipblasZgetrf_(handle,n,c_loc(A),lda,c_loc(ipiv),myInfo) + end function + + function hipblasZgetrf_rank_1(handle,n,A,lda,ipiv,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrf_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: A + integer(c_int) :: lda + integer(c_int),target,dimension(:) :: ipiv + type(c_ptr) :: myInfo + ! + hipblasZgetrf_rank_1 = hipblasZgetrf_(handle,n,c_loc(A),lda,c_loc(ipiv),myInfo) + end function + + function hipblasZgetrf_full_rank(handle,n,A,lda,ipiv,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrf_full_rank + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(:,:) :: A + integer(c_int) :: lda + integer(c_int),target,dimension(:) :: ipiv + type(c_ptr) :: myInfo + ! + hipblasZgetrf_full_rank = hipblasZgetrf_(handle,n,c_loc(A),lda,c_loc(ipiv),myInfo) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSgetrfStridedBatched_assumed_rank(handle,n,A,lda,strideA,ipiv,strideP,myInfo, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrfStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target,dimension(..) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target,dimension(..) :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr) :: myInfo + integer(c_int) :: batchCount + ! + hipblasSgetrfStridedBatched_assumed_rank = hipblasSgetrfStridedBatched_(handle,n,c_loc(A), & + lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) + end function + +#else + function hipblasSgetrfStridedBatched_rank_0(handle,n,A,lda,strideA,ipiv,strideP,myInfo, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrfStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr) :: myInfo + integer(c_int) :: batchCount + ! + hipblasSgetrfStridedBatched_rank_0 = hipblasSgetrfStridedBatched_(handle,n,c_loc(A),lda, & + strideA,c_loc(ipiv),strideP,myInfo,batchCount) + end function + + function hipblasSgetrfStridedBatched_rank_1(handle,n,A,lda,strideA,ipiv,strideP,myInfo, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrfStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target,dimension(:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target,dimension(:) :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr) :: myInfo + integer(c_int) :: batchCount + ! + hipblasSgetrfStridedBatched_rank_1 = hipblasSgetrfStridedBatched_(handle,n,c_loc(A),lda, & + strideA,c_loc(ipiv),strideP,myInfo,batchCount) + end function + + function hipblasSgetrfStridedBatched_full_rank(handle,n,A,lda,strideA,ipiv,strideP,myInfo, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrfStridedBatched_full_rank + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target,dimension(:,:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target,dimension(:) :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr) :: myInfo + integer(c_int) :: batchCount + ! + hipblasSgetrfStridedBatched_full_rank = hipblasSgetrfStridedBatched_(handle,n,c_loc(A),lda, & + strideA,c_loc(ipiv),strideP,myInfo,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDgetrfStridedBatched_assumed_rank(handle,n,A,lda,strideA,ipiv,strideP,myInfo, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrfStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target,dimension(..) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target,dimension(..) :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr) :: myInfo + integer(c_int) :: batchCount + ! + hipblasDgetrfStridedBatched_assumed_rank = hipblasDgetrfStridedBatched_(handle,n,c_loc(A), & + lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) + end function + +#else + function hipblasDgetrfStridedBatched_rank_0(handle,n,A,lda,strideA,ipiv,strideP,myInfo, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrfStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr) :: myInfo + integer(c_int) :: batchCount + ! + hipblasDgetrfStridedBatched_rank_0 = hipblasDgetrfStridedBatched_(handle,n,c_loc(A),lda, & + strideA,c_loc(ipiv),strideP,myInfo,batchCount) + end function + + function hipblasDgetrfStridedBatched_rank_1(handle,n,A,lda,strideA,ipiv,strideP,myInfo, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrfStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target,dimension(:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target,dimension(:) :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr) :: myInfo + integer(c_int) :: batchCount + ! + hipblasDgetrfStridedBatched_rank_1 = hipblasDgetrfStridedBatched_(handle,n,c_loc(A),lda, & + strideA,c_loc(ipiv),strideP,myInfo,batchCount) + end function + + function hipblasDgetrfStridedBatched_full_rank(handle,n,A,lda,strideA,ipiv,strideP,myInfo, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrfStridedBatched_full_rank + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target,dimension(:,:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target,dimension(:) :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr) :: myInfo + integer(c_int) :: batchCount + ! + hipblasDgetrfStridedBatched_full_rank = hipblasDgetrfStridedBatched_(handle,n,c_loc(A),lda, & + strideA,c_loc(ipiv),strideP,myInfo,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCgetrfStridedBatched_assumed_rank(handle,n,A,lda,strideA,ipiv,strideP,myInfo, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrfStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(..) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target,dimension(..) :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr) :: myInfo + integer(c_int) :: batchCount + ! + hipblasCgetrfStridedBatched_assumed_rank = hipblasCgetrfStridedBatched_(handle,n,c_loc(A), & + lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) + end function + +#else + function hipblasCgetrfStridedBatched_rank_0(handle,n,A,lda,strideA,ipiv,strideP,myInfo, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrfStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr) :: myInfo + integer(c_int) :: batchCount + ! + hipblasCgetrfStridedBatched_rank_0 = hipblasCgetrfStridedBatched_(handle,n,c_loc(A),lda, & + strideA,c_loc(ipiv),strideP,myInfo,batchCount) + end function + + function hipblasCgetrfStridedBatched_rank_1(handle,n,A,lda,strideA,ipiv,strideP,myInfo, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrfStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target,dimension(:) :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr) :: myInfo + integer(c_int) :: batchCount + ! + hipblasCgetrfStridedBatched_rank_1 = hipblasCgetrfStridedBatched_(handle,n,c_loc(A),lda, & + strideA,c_loc(ipiv),strideP,myInfo,batchCount) + end function + + function hipblasCgetrfStridedBatched_full_rank(handle,n,A,lda,strideA,ipiv,strideP,myInfo, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrfStridedBatched_full_rank + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(:,:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target,dimension(:) :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr) :: myInfo + integer(c_int) :: batchCount + ! + hipblasCgetrfStridedBatched_full_rank = hipblasCgetrfStridedBatched_(handle,n,c_loc(A),lda, & + strideA,c_loc(ipiv),strideP,myInfo,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZgetrfStridedBatched_assumed_rank(handle,n,A,lda,strideA,ipiv,strideP,myInfo, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrfStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(..) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target,dimension(..) :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr) :: myInfo + integer(c_int) :: batchCount + ! + hipblasZgetrfStridedBatched_assumed_rank = hipblasZgetrfStridedBatched_(handle,n,c_loc(A), & + lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) + end function + +#else + function hipblasZgetrfStridedBatched_rank_0(handle,n,A,lda,strideA,ipiv,strideP,myInfo, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrfStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr) :: myInfo + integer(c_int) :: batchCount + ! + hipblasZgetrfStridedBatched_rank_0 = hipblasZgetrfStridedBatched_(handle,n,c_loc(A),lda, & + strideA,c_loc(ipiv),strideP,myInfo,batchCount) + end function + + function hipblasZgetrfStridedBatched_rank_1(handle,n,A,lda,strideA,ipiv,strideP,myInfo, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrfStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target,dimension(:) :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr) :: myInfo + integer(c_int) :: batchCount + ! + hipblasZgetrfStridedBatched_rank_1 = hipblasZgetrfStridedBatched_(handle,n,c_loc(A),lda, & + strideA,c_loc(ipiv),strideP,myInfo,batchCount) + end function + + function hipblasZgetrfStridedBatched_full_rank(handle,n,A,lda,strideA,ipiv,strideP,myInfo, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrfStridedBatched_full_rank + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(:,:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target,dimension(:) :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr) :: myInfo + integer(c_int) :: batchCount + ! + hipblasZgetrfStridedBatched_full_rank = hipblasZgetrfStridedBatched_(handle,n,c_loc(A),lda, & + strideA,c_loc(ipiv),strideP,myInfo,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSgetrs_assumed_rank(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrs_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + real(c_float),target,dimension(..) :: A + integer(c_int) :: lda + integer(c_int),target,dimension(..) :: ipiv + real(c_float),target,dimension(..) :: B + integer(c_int) :: ldb + integer(c_int),target :: myInfo + ! + hipblasSgetrs_assumed_rank = hipblasSgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv), & + c_loc(B),ldb,c_loc(myInfo)) + end function + + function hipblasSgetrs_assumed_rank_devptr(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrs_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + real(c_float),target,dimension(..) :: A + integer(c_int) :: lda + integer(c_int),target,dimension(..) :: ipiv + real(c_float),target,dimension(..) :: B + integer(c_int) :: ldb + type(c_ptr),value :: myInfo + ! + hipblasSgetrs_assumed_rank_devptr = hipblasSgetrs_(handle,trans,n,nrhs,c_loc(A),lda, & + c_loc(ipiv),c_loc(B),ldb,myInfo) + end function + +#else + function hipblasSgetrs_rank_0(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrs_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + real(c_float),target :: A + integer(c_int) :: lda + integer(c_int),target :: ipiv + real(c_float),target :: B + integer(c_int) :: ldb + integer(c_int),target :: myInfo + ! + hipblasSgetrs_rank_0 = hipblasSgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv),c_loc(B), & + ldb,c_loc(myInfo)) + end function + + function hipblasSgetrs_rank_0_devptr(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrs_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + real(c_float),target :: A + integer(c_int) :: lda + integer(c_int),target :: ipiv + real(c_float),target :: B + integer(c_int) :: ldb + type(c_ptr),value :: myInfo + ! + hipblasSgetrs_rank_0_devptr = hipblasSgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv), & + c_loc(B),ldb,myInfo) + end function + + function hipblasSgetrs_rank_1(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrs_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + real(c_float),target,dimension(:) :: A + integer(c_int) :: lda + integer(c_int),target,dimension(:) :: ipiv + real(c_float),target,dimension(:) :: B + integer(c_int) :: ldb + integer(c_int),target :: myInfo + ! + hipblasSgetrs_rank_1 = hipblasSgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv),c_loc(B), & + ldb,c_loc(myInfo)) + end function + + function hipblasSgetrs_rank_1_devptr(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrs_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + real(c_float),target,dimension(:) :: A + integer(c_int) :: lda + integer(c_int),target,dimension(:) :: ipiv + real(c_float),target,dimension(:) :: B + integer(c_int) :: ldb + type(c_ptr),value :: myInfo + ! + hipblasSgetrs_rank_1_devptr = hipblasSgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv), & + c_loc(B),ldb,myInfo) + end function + + function hipblasSgetrs_full_rank(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrs_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + real(c_float),target,dimension(:,:) :: A + integer(c_int) :: lda + integer(c_int),target,dimension(:) :: ipiv + real(c_float),target,dimension(:,:) :: B + integer(c_int) :: ldb + integer(c_int),target :: myInfo + ! + hipblasSgetrs_full_rank = hipblasSgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv), & + c_loc(B),ldb,c_loc(myInfo)) + end function + + function hipblasSgetrs_full_rank_devptr(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrs_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + real(c_float),target,dimension(:,:) :: A + integer(c_int) :: lda + integer(c_int),target,dimension(:) :: ipiv + real(c_float),target,dimension(:,:) :: B + integer(c_int) :: ldb + type(c_ptr),value :: myInfo + ! + hipblasSgetrs_full_rank_devptr = hipblasSgetrs_(handle,trans,n,nrhs,c_loc(A),lda, & + c_loc(ipiv),c_loc(B),ldb,myInfo) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDgetrs_assumed_rank(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrs_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + real(c_double),target,dimension(..) :: A + integer(c_int) :: lda + integer(c_int),target,dimension(..) :: ipiv + real(c_double),target,dimension(..) :: B + integer(c_int) :: ldb + integer(c_int),target :: myInfo + ! + hipblasDgetrs_assumed_rank = hipblasDgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv), & + c_loc(B),ldb,c_loc(myInfo)) + end function + + function hipblasDgetrs_assumed_rank_devptr(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrs_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + real(c_double),target,dimension(..) :: A + integer(c_int) :: lda + integer(c_int),target,dimension(..) :: ipiv + real(c_double),target,dimension(..) :: B + integer(c_int) :: ldb + type(c_ptr),value :: myInfo + ! + hipblasDgetrs_assumed_rank_devptr = hipblasDgetrs_(handle,trans,n,nrhs,c_loc(A),lda, & + c_loc(ipiv),c_loc(B),ldb,myInfo) + end function + +#else + function hipblasDgetrs_rank_0(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrs_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + real(c_double),target :: A + integer(c_int) :: lda + integer(c_int),target :: ipiv + real(c_double),target :: B + integer(c_int) :: ldb + integer(c_int),target :: myInfo + ! + hipblasDgetrs_rank_0 = hipblasDgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv),c_loc(B), & + ldb,c_loc(myInfo)) + end function + + function hipblasDgetrs_rank_0_devptr(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrs_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + real(c_double),target :: A + integer(c_int) :: lda + integer(c_int),target :: ipiv + real(c_double),target :: B + integer(c_int) :: ldb + type(c_ptr),value :: myInfo + ! + hipblasDgetrs_rank_0_devptr = hipblasDgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv), & + c_loc(B),ldb,myInfo) + end function + + function hipblasDgetrs_rank_1(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrs_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + real(c_double),target,dimension(:) :: A + integer(c_int) :: lda + integer(c_int),target,dimension(:) :: ipiv + real(c_double),target,dimension(:) :: B + integer(c_int) :: ldb + integer(c_int),target :: myInfo + ! + hipblasDgetrs_rank_1 = hipblasDgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv),c_loc(B), & + ldb,c_loc(myInfo)) + end function + + function hipblasDgetrs_rank_1_devptr(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrs_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + real(c_double),target,dimension(:) :: A + integer(c_int) :: lda + integer(c_int),target,dimension(:) :: ipiv + real(c_double),target,dimension(:) :: B + integer(c_int) :: ldb + type(c_ptr),value :: myInfo + ! + hipblasDgetrs_rank_1_devptr = hipblasDgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv), & + c_loc(B),ldb,myInfo) + end function + + function hipblasDgetrs_full_rank(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrs_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + real(c_double),target,dimension(:,:) :: A + integer(c_int) :: lda + integer(c_int),target,dimension(:) :: ipiv + real(c_double),target,dimension(:,:) :: B + integer(c_int) :: ldb + integer(c_int),target :: myInfo + ! + hipblasDgetrs_full_rank = hipblasDgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv), & + c_loc(B),ldb,c_loc(myInfo)) + end function + + function hipblasDgetrs_full_rank_devptr(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrs_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + real(c_double),target,dimension(:,:) :: A + integer(c_int) :: lda + integer(c_int),target,dimension(:) :: ipiv + real(c_double),target,dimension(:,:) :: B + integer(c_int) :: ldb + type(c_ptr),value :: myInfo + ! + hipblasDgetrs_full_rank_devptr = hipblasDgetrs_(handle,trans,n,nrhs,c_loc(A),lda, & + c_loc(ipiv),c_loc(B),ldb,myInfo) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCgetrs_assumed_rank(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrs_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + complex(c_float_complex),target,dimension(..) :: A + integer(c_int) :: lda + integer(c_int),target,dimension(..) :: ipiv + complex(c_float_complex),target,dimension(..) :: B + integer(c_int) :: ldb + integer(c_int),target :: myInfo + ! + hipblasCgetrs_assumed_rank = hipblasCgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv), & + c_loc(B),ldb,c_loc(myInfo)) + end function + + function hipblasCgetrs_assumed_rank_devptr(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrs_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + complex(c_float_complex),target,dimension(..) :: A + integer(c_int) :: lda + integer(c_int),target,dimension(..) :: ipiv + complex(c_float_complex),target,dimension(..) :: B + integer(c_int) :: ldb + type(c_ptr),value :: myInfo + ! + hipblasCgetrs_assumed_rank_devptr = hipblasCgetrs_(handle,trans,n,nrhs,c_loc(A),lda, & + c_loc(ipiv),c_loc(B),ldb,myInfo) + end function + +#else + function hipblasCgetrs_rank_0(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrs_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + complex(c_float_complex),target :: A + integer(c_int) :: lda + integer(c_int),target :: ipiv + complex(c_float_complex),target :: B + integer(c_int) :: ldb + integer(c_int),target :: myInfo + ! + hipblasCgetrs_rank_0 = hipblasCgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv),c_loc(B), & + ldb,c_loc(myInfo)) + end function + + function hipblasCgetrs_rank_0_devptr(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrs_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + complex(c_float_complex),target :: A + integer(c_int) :: lda + integer(c_int),target :: ipiv + complex(c_float_complex),target :: B + integer(c_int) :: ldb + type(c_ptr),value :: myInfo + ! + hipblasCgetrs_rank_0_devptr = hipblasCgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv), & + c_loc(B),ldb,myInfo) + end function + + function hipblasCgetrs_rank_1(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrs_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + complex(c_float_complex),target,dimension(:) :: A + integer(c_int) :: lda + integer(c_int),target,dimension(:) :: ipiv + complex(c_float_complex),target,dimension(:) :: B + integer(c_int) :: ldb + integer(c_int),target :: myInfo + ! + hipblasCgetrs_rank_1 = hipblasCgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv),c_loc(B), & + ldb,c_loc(myInfo)) + end function + + function hipblasCgetrs_rank_1_devptr(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrs_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + complex(c_float_complex),target,dimension(:) :: A + integer(c_int) :: lda + integer(c_int),target,dimension(:) :: ipiv + complex(c_float_complex),target,dimension(:) :: B + integer(c_int) :: ldb + type(c_ptr),value :: myInfo + ! + hipblasCgetrs_rank_1_devptr = hipblasCgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv), & + c_loc(B),ldb,myInfo) + end function + + function hipblasCgetrs_full_rank(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrs_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + complex(c_float_complex),target,dimension(:,:) :: A + integer(c_int) :: lda + integer(c_int),target,dimension(:) :: ipiv + complex(c_float_complex),target,dimension(:,:) :: B + integer(c_int) :: ldb + integer(c_int),target :: myInfo + ! + hipblasCgetrs_full_rank = hipblasCgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv), & + c_loc(B),ldb,c_loc(myInfo)) + end function + + function hipblasCgetrs_full_rank_devptr(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrs_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + complex(c_float_complex),target,dimension(:,:) :: A + integer(c_int) :: lda + integer(c_int),target,dimension(:) :: ipiv + complex(c_float_complex),target,dimension(:,:) :: B + integer(c_int) :: ldb + type(c_ptr),value :: myInfo + ! + hipblasCgetrs_full_rank_devptr = hipblasCgetrs_(handle,trans,n,nrhs,c_loc(A),lda, & + c_loc(ipiv),c_loc(B),ldb,myInfo) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZgetrs_assumed_rank(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrs_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + complex(c_double_complex),target,dimension(..) :: A + integer(c_int) :: lda + integer(c_int),target,dimension(..) :: ipiv + complex(c_double_complex),target,dimension(..) :: B + integer(c_int) :: ldb + integer(c_int),target :: myInfo + ! + hipblasZgetrs_assumed_rank = hipblasZgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv), & + c_loc(B),ldb,c_loc(myInfo)) + end function + + function hipblasZgetrs_assumed_rank_devptr(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrs_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + complex(c_double_complex),target,dimension(..) :: A + integer(c_int) :: lda + integer(c_int),target,dimension(..) :: ipiv + complex(c_double_complex),target,dimension(..) :: B + integer(c_int) :: ldb + type(c_ptr),value :: myInfo + ! + hipblasZgetrs_assumed_rank_devptr = hipblasZgetrs_(handle,trans,n,nrhs,c_loc(A),lda, & + c_loc(ipiv),c_loc(B),ldb,myInfo) + end function + +#else + function hipblasZgetrs_rank_0(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrs_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + complex(c_double_complex),target :: A + integer(c_int) :: lda + integer(c_int),target :: ipiv + complex(c_double_complex),target :: B + integer(c_int) :: ldb + integer(c_int),target :: myInfo + ! + hipblasZgetrs_rank_0 = hipblasZgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv),c_loc(B), & + ldb,c_loc(myInfo)) + end function + + function hipblasZgetrs_rank_0_devptr(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrs_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + complex(c_double_complex),target :: A + integer(c_int) :: lda + integer(c_int),target :: ipiv + complex(c_double_complex),target :: B + integer(c_int) :: ldb + type(c_ptr),value :: myInfo + ! + hipblasZgetrs_rank_0_devptr = hipblasZgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv), & + c_loc(B),ldb,myInfo) + end function + + function hipblasZgetrs_rank_1(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrs_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + complex(c_double_complex),target,dimension(:) :: A + integer(c_int) :: lda + integer(c_int),target,dimension(:) :: ipiv + complex(c_double_complex),target,dimension(:) :: B + integer(c_int) :: ldb + integer(c_int),target :: myInfo + ! + hipblasZgetrs_rank_1 = hipblasZgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv),c_loc(B), & + ldb,c_loc(myInfo)) + end function + + function hipblasZgetrs_rank_1_devptr(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrs_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + complex(c_double_complex),target,dimension(:) :: A + integer(c_int) :: lda + integer(c_int),target,dimension(:) :: ipiv + complex(c_double_complex),target,dimension(:) :: B + integer(c_int) :: ldb + type(c_ptr),value :: myInfo + ! + hipblasZgetrs_rank_1_devptr = hipblasZgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv), & + c_loc(B),ldb,myInfo) + end function + + function hipblasZgetrs_full_rank(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrs_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + complex(c_double_complex),target,dimension(:,:) :: A + integer(c_int) :: lda + integer(c_int),target,dimension(:) :: ipiv + complex(c_double_complex),target,dimension(:,:) :: B + integer(c_int) :: ldb + integer(c_int),target :: myInfo + ! + hipblasZgetrs_full_rank = hipblasZgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv), & + c_loc(B),ldb,c_loc(myInfo)) + end function + + function hipblasZgetrs_full_rank_devptr(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrs_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + complex(c_double_complex),target,dimension(:,:) :: A + integer(c_int) :: lda + integer(c_int),target,dimension(:) :: ipiv + complex(c_double_complex),target,dimension(:,:) :: B + integer(c_int) :: ldb + type(c_ptr),value :: myInfo + ! + hipblasZgetrs_full_rank_devptr = hipblasZgetrs_(handle,trans,n,nrhs,c_loc(A),lda, & + c_loc(ipiv),c_loc(B),ldb,myInfo) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSgetrsStridedBatched_assumed_rank(handle,trans,n,nrhs,A,lda,strideA,ipiv, & + strideP,B,ldb,strideB,myInfo,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrsStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + real(c_float),target,dimension(..) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target,dimension(..) :: ipiv + integer(c_int64_t) :: strideP + real(c_float),target,dimension(..) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int),target :: myInfo + integer(c_int) :: batchCount + ! + hipblasSgetrsStridedBatched_assumed_rank = hipblasSgetrsStridedBatched_(handle,trans,n,nrhs, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,c_loc(myInfo),batchCount) + end function + + function hipblasSgetrsStridedBatched_assumed_rank_devptr(handle,trans,n,nrhs,A,lda,strideA, & + ipiv,strideP,B,ldb,strideB,myInfo,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrsStridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + real(c_float),target,dimension(..) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target,dimension(..) :: ipiv + integer(c_int64_t) :: strideP + real(c_float),target,dimension(..) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount + ! + hipblasSgetrsStridedBatched_assumed_rank_devptr = hipblasSgetrsStridedBatched_(handle,trans, & + n,nrhs,c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,myInfo,batchCount) + end function + +#else + function hipblasSgetrsStridedBatched_rank_0(handle,trans,n,nrhs,A,lda,strideA,ipiv,strideP,B, & + ldb,strideB,myInfo,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrsStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + real(c_float),target :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target :: ipiv + integer(c_int64_t) :: strideP + real(c_float),target :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int),target :: myInfo + integer(c_int) :: batchCount + ! + hipblasSgetrsStridedBatched_rank_0 = hipblasSgetrsStridedBatched_(handle,trans,n,nrhs, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,c_loc(myInfo),batchCount) + end function + + function hipblasSgetrsStridedBatched_rank_0_devptr(handle,trans,n,nrhs,A,lda,strideA,ipiv, & + strideP,B,ldb,strideB,myInfo,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrsStridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + real(c_float),target :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target :: ipiv + integer(c_int64_t) :: strideP + real(c_float),target :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount + ! + hipblasSgetrsStridedBatched_rank_0_devptr = hipblasSgetrsStridedBatched_(handle,trans,n, & + nrhs,c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,myInfo,batchCount) + end function + + function hipblasSgetrsStridedBatched_rank_1(handle,trans,n,nrhs,A,lda,strideA,ipiv,strideP,B, & + ldb,strideB,myInfo,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrsStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + real(c_float),target,dimension(:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target,dimension(:) :: ipiv + integer(c_int64_t) :: strideP + real(c_float),target,dimension(:) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int),target :: myInfo + integer(c_int) :: batchCount + ! + hipblasSgetrsStridedBatched_rank_1 = hipblasSgetrsStridedBatched_(handle,trans,n,nrhs, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,c_loc(myInfo),batchCount) + end function + + function hipblasSgetrsStridedBatched_rank_1_devptr(handle,trans,n,nrhs,A,lda,strideA,ipiv, & + strideP,B,ldb,strideB,myInfo,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrsStridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + real(c_float),target,dimension(:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target,dimension(:) :: ipiv + integer(c_int64_t) :: strideP + real(c_float),target,dimension(:) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount + ! + hipblasSgetrsStridedBatched_rank_1_devptr = hipblasSgetrsStridedBatched_(handle,trans,n, & + nrhs,c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,myInfo,batchCount) + end function + + function hipblasSgetrsStridedBatched_full_rank(handle,trans,n,nrhs,A,lda,strideA,ipiv,strideP, & + B,ldb,strideB,myInfo,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrsStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + real(c_float),target,dimension(:,:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target,dimension(:) :: ipiv + integer(c_int64_t) :: strideP + real(c_float),target,dimension(:,:) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int),target :: myInfo + integer(c_int) :: batchCount + ! + hipblasSgetrsStridedBatched_full_rank = hipblasSgetrsStridedBatched_(handle,trans,n,nrhs, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,c_loc(myInfo),batchCount) + end function + + function hipblasSgetrsStridedBatched_full_rank_devptr(handle,trans,n,nrhs,A,lda,strideA,ipiv, & + strideP,B,ldb,strideB,myInfo,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrsStridedBatched_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + real(c_float),target,dimension(:,:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target,dimension(:) :: ipiv + integer(c_int64_t) :: strideP + real(c_float),target,dimension(:,:) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount + ! + hipblasSgetrsStridedBatched_full_rank_devptr = hipblasSgetrsStridedBatched_(handle,trans,n, & + nrhs,c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,myInfo,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDgetrsStridedBatched_assumed_rank(handle,trans,n,nrhs,A,lda,strideA,ipiv, & + strideP,B,ldb,strideB,myInfo,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrsStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + real(c_double),target,dimension(..) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target,dimension(..) :: ipiv + integer(c_int64_t) :: strideP + real(c_double),target,dimension(..) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int),target :: myInfo + integer(c_int) :: batchCount + ! + hipblasDgetrsStridedBatched_assumed_rank = hipblasDgetrsStridedBatched_(handle,trans,n,nrhs, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,c_loc(myInfo),batchCount) + end function + + function hipblasDgetrsStridedBatched_assumed_rank_devptr(handle,trans,n,nrhs,A,lda,strideA, & + ipiv,strideP,B,ldb,strideB,myInfo,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrsStridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + real(c_double),target,dimension(..) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target,dimension(..) :: ipiv + integer(c_int64_t) :: strideP + real(c_double),target,dimension(..) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount + ! + hipblasDgetrsStridedBatched_assumed_rank_devptr = hipblasDgetrsStridedBatched_(handle,trans, & + n,nrhs,c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,myInfo,batchCount) + end function + +#else + function hipblasDgetrsStridedBatched_rank_0(handle,trans,n,nrhs,A,lda,strideA,ipiv,strideP,B, & + ldb,strideB,myInfo,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrsStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + real(c_double),target :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target :: ipiv + integer(c_int64_t) :: strideP + real(c_double),target :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int),target :: myInfo + integer(c_int) :: batchCount + ! + hipblasDgetrsStridedBatched_rank_0 = hipblasDgetrsStridedBatched_(handle,trans,n,nrhs, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,c_loc(myInfo),batchCount) + end function + + function hipblasDgetrsStridedBatched_rank_0_devptr(handle,trans,n,nrhs,A,lda,strideA,ipiv, & + strideP,B,ldb,strideB,myInfo,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrsStridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + real(c_double),target :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target :: ipiv + integer(c_int64_t) :: strideP + real(c_double),target :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount + ! + hipblasDgetrsStridedBatched_rank_0_devptr = hipblasDgetrsStridedBatched_(handle,trans,n, & + nrhs,c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,myInfo,batchCount) + end function + + function hipblasDgetrsStridedBatched_rank_1(handle,trans,n,nrhs,A,lda,strideA,ipiv,strideP,B, & + ldb,strideB,myInfo,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrsStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + real(c_double),target,dimension(:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target,dimension(:) :: ipiv + integer(c_int64_t) :: strideP + real(c_double),target,dimension(:) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int),target :: myInfo + integer(c_int) :: batchCount + ! + hipblasDgetrsStridedBatched_rank_1 = hipblasDgetrsStridedBatched_(handle,trans,n,nrhs, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,c_loc(myInfo),batchCount) + end function + + function hipblasDgetrsStridedBatched_rank_1_devptr(handle,trans,n,nrhs,A,lda,strideA,ipiv, & + strideP,B,ldb,strideB,myInfo,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrsStridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + real(c_double),target,dimension(:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target,dimension(:) :: ipiv + integer(c_int64_t) :: strideP + real(c_double),target,dimension(:) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount + ! + hipblasDgetrsStridedBatched_rank_1_devptr = hipblasDgetrsStridedBatched_(handle,trans,n, & + nrhs,c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,myInfo,batchCount) + end function + + function hipblasDgetrsStridedBatched_full_rank(handle,trans,n,nrhs,A,lda,strideA,ipiv,strideP, & + B,ldb,strideB,myInfo,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrsStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + real(c_double),target,dimension(:,:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target,dimension(:) :: ipiv + integer(c_int64_t) :: strideP + real(c_double),target,dimension(:,:) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int),target :: myInfo + integer(c_int) :: batchCount + ! + hipblasDgetrsStridedBatched_full_rank = hipblasDgetrsStridedBatched_(handle,trans,n,nrhs, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,c_loc(myInfo),batchCount) + end function + + function hipblasDgetrsStridedBatched_full_rank_devptr(handle,trans,n,nrhs,A,lda,strideA,ipiv, & + strideP,B,ldb,strideB,myInfo,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrsStridedBatched_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + real(c_double),target,dimension(:,:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target,dimension(:) :: ipiv + integer(c_int64_t) :: strideP + real(c_double),target,dimension(:,:) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount + ! + hipblasDgetrsStridedBatched_full_rank_devptr = hipblasDgetrsStridedBatched_(handle,trans,n, & + nrhs,c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,myInfo,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCgetrsStridedBatched_assumed_rank(handle,trans,n,nrhs,A,lda,strideA,ipiv, & + strideP,B,ldb,strideB,myInfo,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrsStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + complex(c_float_complex),target,dimension(..) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target,dimension(..) :: ipiv + integer(c_int64_t) :: strideP + complex(c_float_complex),target,dimension(..) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int),target :: myInfo + integer(c_int) :: batchCount + ! + hipblasCgetrsStridedBatched_assumed_rank = hipblasCgetrsStridedBatched_(handle,trans,n,nrhs, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,c_loc(myInfo),batchCount) + end function + + function hipblasCgetrsStridedBatched_assumed_rank_devptr(handle,trans,n,nrhs,A,lda,strideA, & + ipiv,strideP,B,ldb,strideB,myInfo,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrsStridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + complex(c_float_complex),target,dimension(..) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target,dimension(..) :: ipiv + integer(c_int64_t) :: strideP + complex(c_float_complex),target,dimension(..) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount + ! + hipblasCgetrsStridedBatched_assumed_rank_devptr = hipblasCgetrsStridedBatched_(handle,trans, & + n,nrhs,c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,myInfo,batchCount) + end function + +#else + function hipblasCgetrsStridedBatched_rank_0(handle,trans,n,nrhs,A,lda,strideA,ipiv,strideP,B, & + ldb,strideB,myInfo,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrsStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + complex(c_float_complex),target :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target :: ipiv + integer(c_int64_t) :: strideP + complex(c_float_complex),target :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int),target :: myInfo + integer(c_int) :: batchCount + ! + hipblasCgetrsStridedBatched_rank_0 = hipblasCgetrsStridedBatched_(handle,trans,n,nrhs, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,c_loc(myInfo),batchCount) + end function + + function hipblasCgetrsStridedBatched_rank_0_devptr(handle,trans,n,nrhs,A,lda,strideA,ipiv, & + strideP,B,ldb,strideB,myInfo,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrsStridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + complex(c_float_complex),target :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target :: ipiv + integer(c_int64_t) :: strideP + complex(c_float_complex),target :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount + ! + hipblasCgetrsStridedBatched_rank_0_devptr = hipblasCgetrsStridedBatched_(handle,trans,n, & + nrhs,c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,myInfo,batchCount) + end function + + function hipblasCgetrsStridedBatched_rank_1(handle,trans,n,nrhs,A,lda,strideA,ipiv,strideP,B, & + ldb,strideB,myInfo,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrsStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + complex(c_float_complex),target,dimension(:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target,dimension(:) :: ipiv + integer(c_int64_t) :: strideP + complex(c_float_complex),target,dimension(:) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int),target :: myInfo + integer(c_int) :: batchCount + ! + hipblasCgetrsStridedBatched_rank_1 = hipblasCgetrsStridedBatched_(handle,trans,n,nrhs, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,c_loc(myInfo),batchCount) + end function + + function hipblasCgetrsStridedBatched_rank_1_devptr(handle,trans,n,nrhs,A,lda,strideA,ipiv, & + strideP,B,ldb,strideB,myInfo,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrsStridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + complex(c_float_complex),target,dimension(:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target,dimension(:) :: ipiv + integer(c_int64_t) :: strideP + complex(c_float_complex),target,dimension(:) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount + ! + hipblasCgetrsStridedBatched_rank_1_devptr = hipblasCgetrsStridedBatched_(handle,trans,n, & + nrhs,c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,myInfo,batchCount) + end function + + function hipblasCgetrsStridedBatched_full_rank(handle,trans,n,nrhs,A,lda,strideA,ipiv,strideP, & + B,ldb,strideB,myInfo,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrsStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + complex(c_float_complex),target,dimension(:,:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target,dimension(:) :: ipiv + integer(c_int64_t) :: strideP + complex(c_float_complex),target,dimension(:,:) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int),target :: myInfo + integer(c_int) :: batchCount + ! + hipblasCgetrsStridedBatched_full_rank = hipblasCgetrsStridedBatched_(handle,trans,n,nrhs, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,c_loc(myInfo),batchCount) + end function + + function hipblasCgetrsStridedBatched_full_rank_devptr(handle,trans,n,nrhs,A,lda,strideA,ipiv, & + strideP,B,ldb,strideB,myInfo,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrsStridedBatched_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + complex(c_float_complex),target,dimension(:,:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target,dimension(:) :: ipiv + integer(c_int64_t) :: strideP + complex(c_float_complex),target,dimension(:,:) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount + ! + hipblasCgetrsStridedBatched_full_rank_devptr = hipblasCgetrsStridedBatched_(handle,trans,n, & + nrhs,c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,myInfo,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZgetrsStridedBatched_assumed_rank(handle,trans,n,nrhs,A,lda,strideA,ipiv, & + strideP,B,ldb,strideB,myInfo,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrsStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + complex(c_double_complex),target,dimension(..) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target,dimension(..) :: ipiv + integer(c_int64_t) :: strideP + complex(c_double_complex),target,dimension(..) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int),target :: myInfo + integer(c_int) :: batchCount + ! + hipblasZgetrsStridedBatched_assumed_rank = hipblasZgetrsStridedBatched_(handle,trans,n,nrhs, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,c_loc(myInfo),batchCount) + end function + + function hipblasZgetrsStridedBatched_assumed_rank_devptr(handle,trans,n,nrhs,A,lda,strideA, & + ipiv,strideP,B,ldb,strideB,myInfo,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrsStridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + complex(c_double_complex),target,dimension(..) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target,dimension(..) :: ipiv + integer(c_int64_t) :: strideP + complex(c_double_complex),target,dimension(..) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount + ! + hipblasZgetrsStridedBatched_assumed_rank_devptr = hipblasZgetrsStridedBatched_(handle,trans, & + n,nrhs,c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,myInfo,batchCount) + end function + +#else + function hipblasZgetrsStridedBatched_rank_0(handle,trans,n,nrhs,A,lda,strideA,ipiv,strideP,B, & + ldb,strideB,myInfo,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrsStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + complex(c_double_complex),target :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target :: ipiv + integer(c_int64_t) :: strideP + complex(c_double_complex),target :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int),target :: myInfo + integer(c_int) :: batchCount + ! + hipblasZgetrsStridedBatched_rank_0 = hipblasZgetrsStridedBatched_(handle,trans,n,nrhs, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,c_loc(myInfo),batchCount) + end function + + function hipblasZgetrsStridedBatched_rank_0_devptr(handle,trans,n,nrhs,A,lda,strideA,ipiv, & + strideP,B,ldb,strideB,myInfo,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrsStridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + complex(c_double_complex),target :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target :: ipiv + integer(c_int64_t) :: strideP + complex(c_double_complex),target :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount + ! + hipblasZgetrsStridedBatched_rank_0_devptr = hipblasZgetrsStridedBatched_(handle,trans,n, & + nrhs,c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,myInfo,batchCount) + end function + + function hipblasZgetrsStridedBatched_rank_1(handle,trans,n,nrhs,A,lda,strideA,ipiv,strideP,B, & + ldb,strideB,myInfo,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrsStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + complex(c_double_complex),target,dimension(:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target,dimension(:) :: ipiv + integer(c_int64_t) :: strideP + complex(c_double_complex),target,dimension(:) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int),target :: myInfo + integer(c_int) :: batchCount + ! + hipblasZgetrsStridedBatched_rank_1 = hipblasZgetrsStridedBatched_(handle,trans,n,nrhs, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,c_loc(myInfo),batchCount) + end function + + function hipblasZgetrsStridedBatched_rank_1_devptr(handle,trans,n,nrhs,A,lda,strideA,ipiv, & + strideP,B,ldb,strideB,myInfo,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrsStridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + complex(c_double_complex),target,dimension(:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target,dimension(:) :: ipiv + integer(c_int64_t) :: strideP + complex(c_double_complex),target,dimension(:) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount + ! + hipblasZgetrsStridedBatched_rank_1_devptr = hipblasZgetrsStridedBatched_(handle,trans,n, & + nrhs,c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,myInfo,batchCount) + end function + + function hipblasZgetrsStridedBatched_full_rank(handle,trans,n,nrhs,A,lda,strideA,ipiv,strideP, & + B,ldb,strideB,myInfo,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrsStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + complex(c_double_complex),target,dimension(:,:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target,dimension(:) :: ipiv + integer(c_int64_t) :: strideP + complex(c_double_complex),target,dimension(:,:) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int),target :: myInfo + integer(c_int) :: batchCount + ! + hipblasZgetrsStridedBatched_full_rank = hipblasZgetrsStridedBatched_(handle,trans,n,nrhs, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,c_loc(myInfo),batchCount) + end function + + function hipblasZgetrsStridedBatched_full_rank_devptr(handle,trans,n,nrhs,A,lda,strideA,ipiv, & + strideP,B,ldb,strideB,myInfo,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrsStridedBatched_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + complex(c_double_complex),target,dimension(:,:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target,dimension(:) :: ipiv + integer(c_int64_t) :: strideP + complex(c_double_complex),target,dimension(:,:) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount + ! + hipblasZgetrsStridedBatched_full_rank_devptr = hipblasZgetrsStridedBatched_(handle,trans,n, & + nrhs,c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,myInfo,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSgeqrf_assumed_rank(handle,m,n,A,lda,ipiv,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeqrf_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target,dimension(..) :: A + integer(c_int) :: lda + real(c_float),target,dimension(..) :: ipiv + integer(c_int),target :: myInfo + ! + hipblasSgeqrf_assumed_rank = hipblasSgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),c_loc(myInfo)) + end function + + function hipblasSgeqrf_assumed_rank_devptr(handle,m,n,A,lda,ipiv,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeqrf_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target,dimension(..) :: A + integer(c_int) :: lda + real(c_float),target,dimension(..) :: ipiv + type(c_ptr),value :: myInfo + ! + hipblasSgeqrf_assumed_rank_devptr = hipblasSgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),myInfo) + end function + +#else + function hipblasSgeqrf_rank_0(handle,m,n,A,lda,ipiv,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeqrf_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: A + integer(c_int) :: lda + real(c_float),target :: ipiv + integer(c_int),target :: myInfo + ! + hipblasSgeqrf_rank_0 = hipblasSgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),c_loc(myInfo)) + end function + + function hipblasSgeqrf_rank_0_devptr(handle,m,n,A,lda,ipiv,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeqrf_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: A + integer(c_int) :: lda + real(c_float),target :: ipiv + type(c_ptr),value :: myInfo + ! + hipblasSgeqrf_rank_0_devptr = hipblasSgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),myInfo) + end function + + function hipblasSgeqrf_rank_1(handle,m,n,A,lda,ipiv,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeqrf_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target,dimension(:) :: A + integer(c_int) :: lda + real(c_float),target,dimension(:) :: ipiv + integer(c_int),target :: myInfo + ! + hipblasSgeqrf_rank_1 = hipblasSgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),c_loc(myInfo)) + end function + + function hipblasSgeqrf_rank_1_devptr(handle,m,n,A,lda,ipiv,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeqrf_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target,dimension(:) :: A + integer(c_int) :: lda + real(c_float),target,dimension(:) :: ipiv + type(c_ptr),value :: myInfo + ! + hipblasSgeqrf_rank_1_devptr = hipblasSgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),myInfo) + end function + + function hipblasSgeqrf_full_rank(handle,m,n,A,lda,ipiv,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeqrf_full_rank + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target,dimension(:,:) :: A + integer(c_int) :: lda + real(c_float),target,dimension(:) :: ipiv + integer(c_int),target :: myInfo + ! + hipblasSgeqrf_full_rank = hipblasSgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),c_loc(myInfo)) + end function + + function hipblasSgeqrf_full_rank_devptr(handle,m,n,A,lda,ipiv,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeqrf_full_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target,dimension(:,:) :: A + integer(c_int) :: lda + real(c_float),target,dimension(:) :: ipiv + type(c_ptr),value :: myInfo + ! + hipblasSgeqrf_full_rank_devptr = hipblasSgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),myInfo) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDgeqrf_assumed_rank(handle,m,n,A,lda,ipiv,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeqrf_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target,dimension(..) :: A + integer(c_int) :: lda + real(c_double),target,dimension(..) :: ipiv + integer(c_int),target :: myInfo + ! + hipblasDgeqrf_assumed_rank = hipblasDgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),c_loc(myInfo)) + end function + + function hipblasDgeqrf_assumed_rank_devptr(handle,m,n,A,lda,ipiv,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeqrf_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target,dimension(..) :: A + integer(c_int) :: lda + real(c_double),target,dimension(..) :: ipiv + type(c_ptr),value :: myInfo + ! + hipblasDgeqrf_assumed_rank_devptr = hipblasDgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),myInfo) + end function + +#else + function hipblasDgeqrf_rank_0(handle,m,n,A,lda,ipiv,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeqrf_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: A + integer(c_int) :: lda + real(c_double),target :: ipiv + integer(c_int),target :: myInfo + ! + hipblasDgeqrf_rank_0 = hipblasDgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),c_loc(myInfo)) + end function + + function hipblasDgeqrf_rank_0_devptr(handle,m,n,A,lda,ipiv,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeqrf_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: A + integer(c_int) :: lda + real(c_double),target :: ipiv + type(c_ptr),value :: myInfo + ! + hipblasDgeqrf_rank_0_devptr = hipblasDgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),myInfo) + end function + + function hipblasDgeqrf_rank_1(handle,m,n,A,lda,ipiv,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeqrf_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target,dimension(:) :: A + integer(c_int) :: lda + real(c_double),target,dimension(:) :: ipiv + integer(c_int),target :: myInfo + ! + hipblasDgeqrf_rank_1 = hipblasDgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),c_loc(myInfo)) + end function + + function hipblasDgeqrf_rank_1_devptr(handle,m,n,A,lda,ipiv,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeqrf_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target,dimension(:) :: A + integer(c_int) :: lda + real(c_double),target,dimension(:) :: ipiv + type(c_ptr),value :: myInfo + ! + hipblasDgeqrf_rank_1_devptr = hipblasDgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),myInfo) + end function + + function hipblasDgeqrf_full_rank(handle,m,n,A,lda,ipiv,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeqrf_full_rank + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target,dimension(:,:) :: A + integer(c_int) :: lda + real(c_double),target,dimension(:) :: ipiv + integer(c_int),target :: myInfo + ! + hipblasDgeqrf_full_rank = hipblasDgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),c_loc(myInfo)) + end function + + function hipblasDgeqrf_full_rank_devptr(handle,m,n,A,lda,ipiv,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeqrf_full_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target,dimension(:,:) :: A + integer(c_int) :: lda + real(c_double),target,dimension(:) :: ipiv + type(c_ptr),value :: myInfo + ! + hipblasDgeqrf_full_rank_devptr = hipblasDgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),myInfo) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCgeqrf_assumed_rank(handle,m,n,A,lda,ipiv,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeqrf_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target,dimension(..) :: A + integer(c_int) :: lda + complex(c_float_complex),target,dimension(..) :: ipiv + integer(c_int),target :: myInfo + ! + hipblasCgeqrf_assumed_rank = hipblasCgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),c_loc(myInfo)) + end function + + function hipblasCgeqrf_assumed_rank_devptr(handle,m,n,A,lda,ipiv,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeqrf_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target,dimension(..) :: A + integer(c_int) :: lda + complex(c_float_complex),target,dimension(..) :: ipiv + type(c_ptr),value :: myInfo + ! + hipblasCgeqrf_assumed_rank_devptr = hipblasCgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),myInfo) + end function + +#else + function hipblasCgeqrf_rank_0(handle,m,n,A,lda,ipiv,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeqrf_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: A + integer(c_int) :: lda + complex(c_float_complex),target :: ipiv + integer(c_int),target :: myInfo + ! + hipblasCgeqrf_rank_0 = hipblasCgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),c_loc(myInfo)) + end function + + function hipblasCgeqrf_rank_0_devptr(handle,m,n,A,lda,ipiv,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeqrf_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: A + integer(c_int) :: lda + complex(c_float_complex),target :: ipiv + type(c_ptr),value :: myInfo + ! + hipblasCgeqrf_rank_0_devptr = hipblasCgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),myInfo) + end function + + function hipblasCgeqrf_rank_1(handle,m,n,A,lda,ipiv,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeqrf_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: A + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:) :: ipiv + integer(c_int),target :: myInfo + ! + hipblasCgeqrf_rank_1 = hipblasCgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),c_loc(myInfo)) + end function + + function hipblasCgeqrf_rank_1_devptr(handle,m,n,A,lda,ipiv,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeqrf_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: A + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:) :: ipiv + type(c_ptr),value :: myInfo + ! + hipblasCgeqrf_rank_1_devptr = hipblasCgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),myInfo) + end function + + function hipblasCgeqrf_full_rank(handle,m,n,A,lda,ipiv,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeqrf_full_rank + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target,dimension(:,:) :: A + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:) :: ipiv + integer(c_int),target :: myInfo + ! + hipblasCgeqrf_full_rank = hipblasCgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),c_loc(myInfo)) + end function + + function hipblasCgeqrf_full_rank_devptr(handle,m,n,A,lda,ipiv,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeqrf_full_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target,dimension(:,:) :: A + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:) :: ipiv + type(c_ptr),value :: myInfo + ! + hipblasCgeqrf_full_rank_devptr = hipblasCgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),myInfo) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZgeqrf_assumed_rank(handle,m,n,A,lda,ipiv,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeqrf_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target,dimension(..) :: A + integer(c_int) :: lda + complex(c_double_complex),target,dimension(..) :: ipiv + integer(c_int),target :: myInfo + ! + hipblasZgeqrf_assumed_rank = hipblasZgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),c_loc(myInfo)) + end function + + function hipblasZgeqrf_assumed_rank_devptr(handle,m,n,A,lda,ipiv,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeqrf_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target,dimension(..) :: A + integer(c_int) :: lda + complex(c_double_complex),target,dimension(..) :: ipiv + type(c_ptr),value :: myInfo + ! + hipblasZgeqrf_assumed_rank_devptr = hipblasZgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),myInfo) + end function + +#else + function hipblasZgeqrf_rank_0(handle,m,n,A,lda,ipiv,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeqrf_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: A + integer(c_int) :: lda + complex(c_double_complex),target :: ipiv + integer(c_int),target :: myInfo + ! + hipblasZgeqrf_rank_0 = hipblasZgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),c_loc(myInfo)) + end function + + function hipblasZgeqrf_rank_0_devptr(handle,m,n,A,lda,ipiv,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeqrf_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: A + integer(c_int) :: lda + complex(c_double_complex),target :: ipiv + type(c_ptr),value :: myInfo + ! + hipblasZgeqrf_rank_0_devptr = hipblasZgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),myInfo) + end function + + function hipblasZgeqrf_rank_1(handle,m,n,A,lda,ipiv,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeqrf_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: A + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:) :: ipiv + integer(c_int),target :: myInfo + ! + hipblasZgeqrf_rank_1 = hipblasZgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),c_loc(myInfo)) + end function + + function hipblasZgeqrf_rank_1_devptr(handle,m,n,A,lda,ipiv,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeqrf_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: A + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:) :: ipiv + type(c_ptr),value :: myInfo + ! + hipblasZgeqrf_rank_1_devptr = hipblasZgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),myInfo) + end function + + function hipblasZgeqrf_full_rank(handle,m,n,A,lda,ipiv,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeqrf_full_rank + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target,dimension(:,:) :: A + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:) :: ipiv + integer(c_int),target :: myInfo + ! + hipblasZgeqrf_full_rank = hipblasZgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),c_loc(myInfo)) + end function + + function hipblasZgeqrf_full_rank_devptr(handle,m,n,A,lda,ipiv,myInfo) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeqrf_full_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target,dimension(:,:) :: A + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:) :: ipiv + type(c_ptr),value :: myInfo + ! + hipblasZgeqrf_full_rank_devptr = hipblasZgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),myInfo) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSgeqrfStridedBatched_assumed_rank(handle,m,n,A,lda,strideA,ipiv,strideP, & + myInfo,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeqrfStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target,dimension(..) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: ipiv + integer(c_int64_t) :: strideP + integer(c_int),target :: myInfo + integer(c_int) :: batchCount + ! + hipblasSgeqrfStridedBatched_assumed_rank = hipblasSgeqrfStridedBatched_(handle,m,n,c_loc(A), & + lda,strideA,c_loc(ipiv),strideP,c_loc(myInfo),batchCount) + end function + + function hipblasSgeqrfStridedBatched_assumed_rank_devptr(handle,m,n,A,lda,strideA,ipiv, & + strideP,myInfo,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeqrfStridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target,dimension(..) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount + ! + hipblasSgeqrfStridedBatched_assumed_rank_devptr = hipblasSgeqrfStridedBatched_(handle,m,n, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) + end function + +#else + function hipblasSgeqrfStridedBatched_rank_0(handle,m,n,A,lda,strideA,ipiv,strideP,myInfo, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeqrfStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: ipiv + integer(c_int64_t) :: strideP + integer(c_int),target :: myInfo + integer(c_int) :: batchCount + ! + hipblasSgeqrfStridedBatched_rank_0 = hipblasSgeqrfStridedBatched_(handle,m,n,c_loc(A),lda, & + strideA,c_loc(ipiv),strideP,c_loc(myInfo),batchCount) + end function + + function hipblasSgeqrfStridedBatched_rank_0_devptr(handle,m,n,A,lda,strideA,ipiv,strideP, & + myInfo,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeqrfStridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount + ! + hipblasSgeqrfStridedBatched_rank_0_devptr = hipblasSgeqrfStridedBatched_(handle,m,n, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) + end function + + function hipblasSgeqrfStridedBatched_rank_1(handle,m,n,A,lda,strideA,ipiv,strideP,myInfo, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeqrfStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target,dimension(:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: ipiv + integer(c_int64_t) :: strideP + integer(c_int),target :: myInfo + integer(c_int) :: batchCount + ! + hipblasSgeqrfStridedBatched_rank_1 = hipblasSgeqrfStridedBatched_(handle,m,n,c_loc(A),lda, & + strideA,c_loc(ipiv),strideP,c_loc(myInfo),batchCount) + end function + + function hipblasSgeqrfStridedBatched_rank_1_devptr(handle,m,n,A,lda,strideA,ipiv,strideP, & + myInfo,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeqrfStridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target,dimension(:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount + ! + hipblasSgeqrfStridedBatched_rank_1_devptr = hipblasSgeqrfStridedBatched_(handle,m,n, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) + end function + + function hipblasSgeqrfStridedBatched_full_rank(handle,m,n,A,lda,strideA,ipiv,strideP,myInfo, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeqrfStridedBatched_full_rank + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target,dimension(:,:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: ipiv + integer(c_int64_t) :: strideP + integer(c_int),target :: myInfo + integer(c_int) :: batchCount + ! + hipblasSgeqrfStridedBatched_full_rank = hipblasSgeqrfStridedBatched_(handle,m,n,c_loc(A), & + lda,strideA,c_loc(ipiv),strideP,c_loc(myInfo),batchCount) + end function + + function hipblasSgeqrfStridedBatched_full_rank_devptr(handle,m,n,A,lda,strideA,ipiv,strideP, & + myInfo,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeqrfStridedBatched_full_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target,dimension(:,:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount + ! + hipblasSgeqrfStridedBatched_full_rank_devptr = hipblasSgeqrfStridedBatched_(handle,m,n, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDgeqrfStridedBatched_assumed_rank(handle,m,n,A,lda,strideA,ipiv,strideP, & + myInfo,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeqrfStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target,dimension(..) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: ipiv + integer(c_int64_t) :: strideP + integer(c_int),target :: myInfo + integer(c_int) :: batchCount + ! + hipblasDgeqrfStridedBatched_assumed_rank = hipblasDgeqrfStridedBatched_(handle,m,n,c_loc(A), & + lda,strideA,c_loc(ipiv),strideP,c_loc(myInfo),batchCount) + end function + + function hipblasDgeqrfStridedBatched_assumed_rank_devptr(handle,m,n,A,lda,strideA,ipiv, & + strideP,myInfo,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeqrfStridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target,dimension(..) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount + ! + hipblasDgeqrfStridedBatched_assumed_rank_devptr = hipblasDgeqrfStridedBatched_(handle,m,n, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) + end function + +#else + function hipblasDgeqrfStridedBatched_rank_0(handle,m,n,A,lda,strideA,ipiv,strideP,myInfo, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeqrfStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: ipiv + integer(c_int64_t) :: strideP + integer(c_int),target :: myInfo + integer(c_int) :: batchCount + ! + hipblasDgeqrfStridedBatched_rank_0 = hipblasDgeqrfStridedBatched_(handle,m,n,c_loc(A),lda, & + strideA,c_loc(ipiv),strideP,c_loc(myInfo),batchCount) + end function + + function hipblasDgeqrfStridedBatched_rank_0_devptr(handle,m,n,A,lda,strideA,ipiv,strideP, & + myInfo,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeqrfStridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount + ! + hipblasDgeqrfStridedBatched_rank_0_devptr = hipblasDgeqrfStridedBatched_(handle,m,n, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) + end function + + function hipblasDgeqrfStridedBatched_rank_1(handle,m,n,A,lda,strideA,ipiv,strideP,myInfo, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeqrfStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target,dimension(:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: ipiv + integer(c_int64_t) :: strideP + integer(c_int),target :: myInfo + integer(c_int) :: batchCount + ! + hipblasDgeqrfStridedBatched_rank_1 = hipblasDgeqrfStridedBatched_(handle,m,n,c_loc(A),lda, & + strideA,c_loc(ipiv),strideP,c_loc(myInfo),batchCount) + end function + + function hipblasDgeqrfStridedBatched_rank_1_devptr(handle,m,n,A,lda,strideA,ipiv,strideP, & + myInfo,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeqrfStridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target,dimension(:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount + ! + hipblasDgeqrfStridedBatched_rank_1_devptr = hipblasDgeqrfStridedBatched_(handle,m,n, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) + end function + + function hipblasDgeqrfStridedBatched_full_rank(handle,m,n,A,lda,strideA,ipiv,strideP,myInfo, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeqrfStridedBatched_full_rank + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target,dimension(:,:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: ipiv + integer(c_int64_t) :: strideP + integer(c_int),target :: myInfo + integer(c_int) :: batchCount + ! + hipblasDgeqrfStridedBatched_full_rank = hipblasDgeqrfStridedBatched_(handle,m,n,c_loc(A), & + lda,strideA,c_loc(ipiv),strideP,c_loc(myInfo),batchCount) + end function + + function hipblasDgeqrfStridedBatched_full_rank_devptr(handle,m,n,A,lda,strideA,ipiv,strideP, & + myInfo,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeqrfStridedBatched_full_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target,dimension(:,:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount + ! + hipblasDgeqrfStridedBatched_full_rank_devptr = hipblasDgeqrfStridedBatched_(handle,m,n, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCgeqrfStridedBatched_assumed_rank(handle,m,n,A,lda,strideA,ipiv,strideP, & + myInfo,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeqrfStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target,dimension(..) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: ipiv + integer(c_int64_t) :: strideP + integer(c_int),target :: myInfo + integer(c_int) :: batchCount + ! + hipblasCgeqrfStridedBatched_assumed_rank = hipblasCgeqrfStridedBatched_(handle,m,n,c_loc(A), & + lda,strideA,c_loc(ipiv),strideP,c_loc(myInfo),batchCount) + end function + + function hipblasCgeqrfStridedBatched_assumed_rank_devptr(handle,m,n,A,lda,strideA,ipiv, & + strideP,myInfo,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeqrfStridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target,dimension(..) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount + ! + hipblasCgeqrfStridedBatched_assumed_rank_devptr = hipblasCgeqrfStridedBatched_(handle,m,n, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) + end function + +#else + function hipblasCgeqrfStridedBatched_rank_0(handle,m,n,A,lda,strideA,ipiv,strideP,myInfo, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeqrfStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: ipiv + integer(c_int64_t) :: strideP + integer(c_int),target :: myInfo + integer(c_int) :: batchCount + ! + hipblasCgeqrfStridedBatched_rank_0 = hipblasCgeqrfStridedBatched_(handle,m,n,c_loc(A),lda, & + strideA,c_loc(ipiv),strideP,c_loc(myInfo),batchCount) + end function + + function hipblasCgeqrfStridedBatched_rank_0_devptr(handle,m,n,A,lda,strideA,ipiv,strideP, & + myInfo,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeqrfStridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount + ! + hipblasCgeqrfStridedBatched_rank_0_devptr = hipblasCgeqrfStridedBatched_(handle,m,n, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) + end function + + function hipblasCgeqrfStridedBatched_rank_1(handle,m,n,A,lda,strideA,ipiv,strideP,myInfo, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeqrfStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: ipiv + integer(c_int64_t) :: strideP + integer(c_int),target :: myInfo + integer(c_int) :: batchCount + ! + hipblasCgeqrfStridedBatched_rank_1 = hipblasCgeqrfStridedBatched_(handle,m,n,c_loc(A),lda, & + strideA,c_loc(ipiv),strideP,c_loc(myInfo),batchCount) + end function + + function hipblasCgeqrfStridedBatched_rank_1_devptr(handle,m,n,A,lda,strideA,ipiv,strideP, & + myInfo,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeqrfStridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount + ! + hipblasCgeqrfStridedBatched_rank_1_devptr = hipblasCgeqrfStridedBatched_(handle,m,n, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) + end function + + function hipblasCgeqrfStridedBatched_full_rank(handle,m,n,A,lda,strideA,ipiv,strideP,myInfo, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeqrfStridedBatched_full_rank + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target,dimension(:,:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: ipiv + integer(c_int64_t) :: strideP + integer(c_int),target :: myInfo + integer(c_int) :: batchCount + ! + hipblasCgeqrfStridedBatched_full_rank = hipblasCgeqrfStridedBatched_(handle,m,n,c_loc(A), & + lda,strideA,c_loc(ipiv),strideP,c_loc(myInfo),batchCount) + end function + + function hipblasCgeqrfStridedBatched_full_rank_devptr(handle,m,n,A,lda,strideA,ipiv,strideP, & + myInfo,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeqrfStridedBatched_full_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target,dimension(:,:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount + ! + hipblasCgeqrfStridedBatched_full_rank_devptr = hipblasCgeqrfStridedBatched_(handle,m,n, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZgeqrfStridedBatched_assumed_rank(handle,m,n,A,lda,strideA,ipiv,strideP, & + myInfo,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeqrfStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target,dimension(..) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: ipiv + integer(c_int64_t) :: strideP + integer(c_int),target :: myInfo + integer(c_int) :: batchCount + ! + hipblasZgeqrfStridedBatched_assumed_rank = hipblasZgeqrfStridedBatched_(handle,m,n,c_loc(A), & + lda,strideA,c_loc(ipiv),strideP,c_loc(myInfo),batchCount) + end function + + function hipblasZgeqrfStridedBatched_assumed_rank_devptr(handle,m,n,A,lda,strideA,ipiv, & + strideP,myInfo,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeqrfStridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target,dimension(..) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount + ! + hipblasZgeqrfStridedBatched_assumed_rank_devptr = hipblasZgeqrfStridedBatched_(handle,m,n, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) + end function + +#else + function hipblasZgeqrfStridedBatched_rank_0(handle,m,n,A,lda,strideA,ipiv,strideP,myInfo, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeqrfStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: ipiv + integer(c_int64_t) :: strideP + integer(c_int),target :: myInfo + integer(c_int) :: batchCount + ! + hipblasZgeqrfStridedBatched_rank_0 = hipblasZgeqrfStridedBatched_(handle,m,n,c_loc(A),lda, & + strideA,c_loc(ipiv),strideP,c_loc(myInfo),batchCount) + end function + + function hipblasZgeqrfStridedBatched_rank_0_devptr(handle,m,n,A,lda,strideA,ipiv,strideP, & + myInfo,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeqrfStridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount + ! + hipblasZgeqrfStridedBatched_rank_0_devptr = hipblasZgeqrfStridedBatched_(handle,m,n, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) + end function + + function hipblasZgeqrfStridedBatched_rank_1(handle,m,n,A,lda,strideA,ipiv,strideP,myInfo, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeqrfStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: ipiv + integer(c_int64_t) :: strideP + integer(c_int),target :: myInfo + integer(c_int) :: batchCount + ! + hipblasZgeqrfStridedBatched_rank_1 = hipblasZgeqrfStridedBatched_(handle,m,n,c_loc(A),lda, & + strideA,c_loc(ipiv),strideP,c_loc(myInfo),batchCount) + end function + + function hipblasZgeqrfStridedBatched_rank_1_devptr(handle,m,n,A,lda,strideA,ipiv,strideP, & + myInfo,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeqrfStridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount + ! + hipblasZgeqrfStridedBatched_rank_1_devptr = hipblasZgeqrfStridedBatched_(handle,m,n, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) + end function + + function hipblasZgeqrfStridedBatched_full_rank(handle,m,n,A,lda,strideA,ipiv,strideP,myInfo, & + batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeqrfStridedBatched_full_rank + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target,dimension(:,:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: ipiv + integer(c_int64_t) :: strideP + integer(c_int),target :: myInfo + integer(c_int) :: batchCount + ! + hipblasZgeqrfStridedBatched_full_rank = hipblasZgeqrfStridedBatched_(handle,m,n,c_loc(A), & + lda,strideA,c_loc(ipiv),strideP,c_loc(myInfo),batchCount) + end function + + function hipblasZgeqrfStridedBatched_full_rank_devptr(handle,m,n,A,lda,strideA,ipiv,strideP, & + myInfo,batchCount) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeqrfStridedBatched_full_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target,dimension(:,:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount + ! + hipblasZgeqrfStridedBatched_full_rank_devptr = hipblasZgeqrfStridedBatched_(handle,m,n, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSetVector_l_assumed_rank(n,x,incx,y,incy) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + logical(c_bool),target,dimension(..) :: x + integer(c_int),value :: incx + logical(c_bool),target,dimension(..) :: y + integer(c_int),value :: incy + ! + ret = hipblasSetVector_(n,1,c_loc(x),incx,c_loc(y),incy) + end function + + function hipblasSetVector_i4_assumed_rank(n,x,incx,y,incy) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + integer(c_int),target,dimension(..) :: x + integer(c_int),value :: incx + integer(c_int),target,dimension(..) :: y + integer(c_int),value :: incy + ! + ret = hipblasSetVector_(n,4,c_loc(x),incx,c_loc(y),incy) + end function + + function hipblasSetVector_i8_assumed_rank(n,x,incx,y,incy) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + integer(c_int64_t),target,dimension(..) :: x + integer(c_int),value :: incx + integer(c_int64_t),target,dimension(..) :: y + integer(c_int),value :: incy + ! + ret = hipblasSetVector_(n,8,c_loc(x),incx,c_loc(y),incy) + end function + + function hipblasSetVector_r4_assumed_rank(n,x,incx,y,incy) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + real(c_float),target,dimension(..) :: x + integer(c_int),value :: incx + real(c_float),target,dimension(..) :: y + integer(c_int),value :: incy + ! + ret = hipblasSetVector_(n,4,c_loc(x),incx,c_loc(y),incy) + end function + + function hipblasSetVector_r8_assumed_rank(n,x,incx,y,incy) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + real(c_double),target,dimension(..) :: x + integer(c_int),value :: incx + real(c_double),target,dimension(..) :: y + integer(c_int),value :: incy + ! + ret = hipblasSetVector_(n,8,c_loc(x),incx,c_loc(y),incy) + end function + + function hipblasSetVector_c4_assumed_rank(n,x,incx,y,incy) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int),value :: incx + complex(c_float_complex),target,dimension(..) :: y + integer(c_int),value :: incy + ! + ret = hipblasSetVector_(n,2*4,c_loc(x),incx,c_loc(y),incy) + end function + + function hipblasSetVector_c8_assumed_rank(n,x,incx,y,incy) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int),value :: incx + complex(c_double_complex),target,dimension(..) :: y + integer(c_int),value :: incy + ! + ret = hipblasSetVector_(n,2*8,c_loc(x),incx,c_loc(y),incy) + end function + + function hipblasGetVector_l_assumed_rank(n,x,incx,y,incy) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + logical(c_bool),target,dimension(..) :: x + integer(c_int),value :: incx + logical(c_bool),target,dimension(..) :: y + integer(c_int),value :: incy + ! + ret = hipblasGetVector_(n,1,c_loc(x),incx,c_loc(y),incy) + end function + + function hipblasGetVector_i4_assumed_rank(n,x,incx,y,incy) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + integer(c_int),target,dimension(..) :: x + integer(c_int),value :: incx + integer(c_int),target,dimension(..) :: y + integer(c_int),value :: incy + ! + ret = hipblasGetVector_(n,4,c_loc(x),incx,c_loc(y),incy) + end function + + function hipblasGetVector_i8_assumed_rank(n,x,incx,y,incy) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + integer(c_int64_t),target,dimension(..) :: x + integer(c_int),value :: incx + integer(c_int64_t),target,dimension(..) :: y + integer(c_int),value :: incy + ! + ret = hipblasGetVector_(n,8,c_loc(x),incx,c_loc(y),incy) + end function + + function hipblasGetVector_r4_assumed_rank(n,x,incx,y,incy) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + real(c_float),target,dimension(..) :: x + integer(c_int),value :: incx + real(c_float),target,dimension(..) :: y + integer(c_int),value :: incy + ! + ret = hipblasGetVector_(n,4,c_loc(x),incx,c_loc(y),incy) + end function + + function hipblasGetVector_r8_assumed_rank(n,x,incx,y,incy) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + real(c_double),target,dimension(..) :: x + integer(c_int),value :: incx + real(c_double),target,dimension(..) :: y + integer(c_int),value :: incy + ! + ret = hipblasGetVector_(n,8,c_loc(x),incx,c_loc(y),incy) + end function + + function hipblasGetVector_c4_assumed_rank(n,x,incx,y,incy) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int),value :: incx + complex(c_float_complex),target,dimension(..) :: y + integer(c_int),value :: incy + ! + ret = hipblasGetVector_(n,2*4,c_loc(x),incx,c_loc(y),incy) + end function + + function hipblasGetVector_c8_assumed_rank(n,x,incx,y,incy) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int),value :: incx + complex(c_double_complex),target,dimension(..) :: y + integer(c_int),value :: incy + ! + ret = hipblasGetVector_(n,2*8,c_loc(x),incx,c_loc(y),incy) + end function + + function hipblasSetMatrix_l_assumed_rank(rows,cols,A,lda,B,ldb) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + logical(c_bool),target,dimension(..) :: A + integer(c_int),value :: lda + logical(c_bool),target,dimension(..) :: B + integer(c_int),value :: ldb + ! + ret = hipblasSetMatrix_(rows,cols,1,c_loc(A),lda,c_loc(B),ldb) + end function + + function hipblasSetMatrix_i4_assumed_rank(rows,cols,A,lda,B,ldb) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + integer(c_int),target,dimension(..) :: A + integer(c_int),value :: lda + integer(c_int),target,dimension(..) :: B + integer(c_int),value :: ldb + ! + ret = hipblasSetMatrix_(rows,cols,4,c_loc(A),lda,c_loc(B),ldb) + end function + + function hipblasSetMatrix_i8_assumed_rank(rows,cols,A,lda,B,ldb) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + integer(c_int64_t),target,dimension(..) :: A + integer(c_int),value :: lda + integer(c_int64_t),target,dimension(..) :: B + integer(c_int),value :: ldb + ! + ret = hipblasSetMatrix_(rows,cols,8,c_loc(A),lda,c_loc(B),ldb) + end function + + function hipblasSetMatrix_r4_assumed_rank(rows,cols,A,lda,B,ldb) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + real(c_float),target,dimension(..) :: A + integer(c_int),value :: lda + real(c_float),target,dimension(..) :: B + integer(c_int),value :: ldb + ! + ret = hipblasSetMatrix_(rows,cols,4,c_loc(A),lda,c_loc(B),ldb) + end function + + function hipblasSetMatrix_r8_assumed_rank(rows,cols,A,lda,B,ldb) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + real(c_double),target,dimension(..) :: A + integer(c_int),value :: lda + real(c_double),target,dimension(..) :: B + integer(c_int),value :: ldb + ! + ret = hipblasSetMatrix_(rows,cols,8,c_loc(A),lda,c_loc(B),ldb) + end function + + function hipblasSetMatrix_c4_assumed_rank(rows,cols,A,lda,B,ldb) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + complex(c_float_complex),target,dimension(..) :: A + integer(c_int),value :: lda + complex(c_float_complex),target,dimension(..) :: B + integer(c_int),value :: ldb + ! + ret = hipblasSetMatrix_(rows,cols,2*4,c_loc(A),lda,c_loc(B),ldb) + end function + + function hipblasSetMatrix_c8_assumed_rank(rows,cols,A,lda,B,ldb) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + complex(c_double_complex),target,dimension(..) :: A + integer(c_int),value :: lda + complex(c_double_complex),target,dimension(..) :: B + integer(c_int),value :: ldb + ! + ret = hipblasSetMatrix_(rows,cols,2*8,c_loc(A),lda,c_loc(B),ldb) + end function + + function hipblasGetMatrix_l_assumed_rank(rows,cols,A,lda,B,ldb) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + logical(c_bool),target,dimension(..) :: A + integer(c_int),value :: lda + logical(c_bool),target,dimension(..) :: B + integer(c_int),value :: ldb + ! + ret = hipblasGetMatrix_(rows,cols,1,c_loc(A),lda,c_loc(B),ldb) + end function + + function hipblasGetMatrix_i4_assumed_rank(rows,cols,A,lda,B,ldb) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + integer(c_int),target,dimension(..) :: A + integer(c_int),value :: lda + integer(c_int),target,dimension(..) :: B + integer(c_int),value :: ldb + ! + ret = hipblasGetMatrix_(rows,cols,4,c_loc(A),lda,c_loc(B),ldb) + end function + + function hipblasGetMatrix_i8_assumed_rank(rows,cols,A,lda,B,ldb) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + integer(c_int64_t),target,dimension(..) :: A + integer(c_int),value :: lda + integer(c_int64_t),target,dimension(..) :: B + integer(c_int),value :: ldb + ! + ret = hipblasGetMatrix_(rows,cols,8,c_loc(A),lda,c_loc(B),ldb) + end function + + function hipblasGetMatrix_r4_assumed_rank(rows,cols,A,lda,B,ldb) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + real(c_float),target,dimension(..) :: A + integer(c_int),value :: lda + real(c_float),target,dimension(..) :: B + integer(c_int),value :: ldb + ! + ret = hipblasGetMatrix_(rows,cols,4,c_loc(A),lda,c_loc(B),ldb) + end function + + function hipblasGetMatrix_r8_assumed_rank(rows,cols,A,lda,B,ldb) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + real(c_double),target,dimension(..) :: A + integer(c_int),value :: lda + real(c_double),target,dimension(..) :: B + integer(c_int),value :: ldb + ! + ret = hipblasGetMatrix_(rows,cols,8,c_loc(A),lda,c_loc(B),ldb) + end function + + function hipblasGetMatrix_c4_assumed_rank(rows,cols,A,lda,B,ldb) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + complex(c_float_complex),target,dimension(..) :: A + integer(c_int),value :: lda + complex(c_float_complex),target,dimension(..) :: B + integer(c_int),value :: ldb + ! + ret = hipblasGetMatrix_(rows,cols,2*4,c_loc(A),lda,c_loc(B),ldb) + end function + + function hipblasGetMatrix_c8_assumed_rank(rows,cols,A,lda,B,ldb) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + complex(c_double_complex),target,dimension(..) :: A + integer(c_int),value :: lda + complex(c_double_complex),target,dimension(..) :: B + integer(c_int),value :: ldb + ! + ret = hipblasGetMatrix_(rows,cols,2*8,c_loc(A),lda,c_loc(B),ldb) + end function + + function hipblasSetVectorAsync_l_assumed_rank(n,x,incx,y,incy,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + logical(c_bool),target,dimension(..) :: x + integer(c_int),value :: incx + logical(c_bool),target,dimension(..) :: y + integer(c_int),value :: incy + type(c_ptr),value :: stream + ! + ret = hipblasSetVectorAsync_(n,1,c_loc(x),incx,c_loc(y),incy,stream) + end function + + function hipblasSetVectorAsync_i4_assumed_rank(n,x,incx,y,incy,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + integer(c_int),target,dimension(..) :: x + integer(c_int),value :: incx + integer(c_int),target,dimension(..) :: y + integer(c_int),value :: incy + type(c_ptr),value :: stream + ! + ret = hipblasSetVectorAsync_(n,4,c_loc(x),incx,c_loc(y),incy,stream) + end function + + function hipblasSetVectorAsync_i8_assumed_rank(n,x,incx,y,incy,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + integer(c_int64_t),target,dimension(..) :: x + integer(c_int),value :: incx + integer(c_int64_t),target,dimension(..) :: y + integer(c_int),value :: incy + type(c_ptr),value :: stream + ! + ret = hipblasSetVectorAsync_(n,8,c_loc(x),incx,c_loc(y),incy,stream) + end function + + function hipblasSetVectorAsync_r4_assumed_rank(n,x,incx,y,incy,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + real(c_float),target,dimension(..) :: x + integer(c_int),value :: incx + real(c_float),target,dimension(..) :: y + integer(c_int),value :: incy + type(c_ptr),value :: stream + ! + ret = hipblasSetVectorAsync_(n,4,c_loc(x),incx,c_loc(y),incy,stream) + end function + + function hipblasSetVectorAsync_r8_assumed_rank(n,x,incx,y,incy,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + real(c_double),target,dimension(..) :: x + integer(c_int),value :: incx + real(c_double),target,dimension(..) :: y + integer(c_int),value :: incy + type(c_ptr),value :: stream + ! + ret = hipblasSetVectorAsync_(n,8,c_loc(x),incx,c_loc(y),incy,stream) + end function + + function hipblasSetVectorAsync_c4_assumed_rank(n,x,incx,y,incy,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int),value :: incx + complex(c_float_complex),target,dimension(..) :: y + integer(c_int),value :: incy + type(c_ptr),value :: stream + ! + ret = hipblasSetVectorAsync_(n,2*4,c_loc(x),incx,c_loc(y),incy,stream) + end function + + function hipblasSetVectorAsync_c8_assumed_rank(n,x,incx,y,incy,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int),value :: incx + complex(c_double_complex),target,dimension(..) :: y + integer(c_int),value :: incy + type(c_ptr),value :: stream + ! + ret = hipblasSetVectorAsync_(n,2*8,c_loc(x),incx,c_loc(y),incy,stream) + end function + + function hipblasGetVectorAsync_l_assumed_rank(n,x,incx,y,incy,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + logical(c_bool),target,dimension(..) :: x + integer(c_int),value :: incx + logical(c_bool),target,dimension(..) :: y + integer(c_int),value :: incy + type(c_ptr),value :: stream + ! + ret = hipblasGetVectorAsync_(n,1,c_loc(x),incx,c_loc(y),incy,stream) + end function + + function hipblasGetVectorAsync_i4_assumed_rank(n,x,incx,y,incy,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + integer(c_int),target,dimension(..) :: x + integer(c_int),value :: incx + integer(c_int),target,dimension(..) :: y + integer(c_int),value :: incy + type(c_ptr),value :: stream + ! + ret = hipblasGetVectorAsync_(n,4,c_loc(x),incx,c_loc(y),incy,stream) + end function + + function hipblasGetVectorAsync_i8_assumed_rank(n,x,incx,y,incy,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + integer(c_int64_t),target,dimension(..) :: x + integer(c_int),value :: incx + integer(c_int64_t),target,dimension(..) :: y + integer(c_int),value :: incy + type(c_ptr),value :: stream + ! + ret = hipblasGetVectorAsync_(n,8,c_loc(x),incx,c_loc(y),incy,stream) + end function + + function hipblasGetVectorAsync_r4_assumed_rank(n,x,incx,y,incy,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + real(c_float),target,dimension(..) :: x + integer(c_int),value :: incx + real(c_float),target,dimension(..) :: y + integer(c_int),value :: incy + type(c_ptr),value :: stream + ! + ret = hipblasGetVectorAsync_(n,4,c_loc(x),incx,c_loc(y),incy,stream) + end function + + function hipblasGetVectorAsync_r8_assumed_rank(n,x,incx,y,incy,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + real(c_double),target,dimension(..) :: x + integer(c_int),value :: incx + real(c_double),target,dimension(..) :: y + integer(c_int),value :: incy + type(c_ptr),value :: stream + ! + ret = hipblasGetVectorAsync_(n,8,c_loc(x),incx,c_loc(y),incy,stream) + end function + + function hipblasGetVectorAsync_c4_assumed_rank(n,x,incx,y,incy,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int),value :: incx + complex(c_float_complex),target,dimension(..) :: y + integer(c_int),value :: incy + type(c_ptr),value :: stream + ! + ret = hipblasGetVectorAsync_(n,2*4,c_loc(x),incx,c_loc(y),incy,stream) + end function + + function hipblasGetVectorAsync_c8_assumed_rank(n,x,incx,y,incy,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int),value :: incx + complex(c_double_complex),target,dimension(..) :: y + integer(c_int),value :: incy + type(c_ptr),value :: stream + ! + ret = hipblasGetVectorAsync_(n,2*8,c_loc(x),incx,c_loc(y),incy,stream) + end function + + function hipblasSetMatrixAsync_l_assumed_rank(rows,cols,A,lda,B,ldb,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + logical(c_bool),target,dimension(..) :: A + integer(c_int),value :: lda + logical(c_bool),target,dimension(..) :: B + integer(c_int),value :: ldb + type(c_ptr),value :: stream + ! + ret = hipblasSetMatrixAsync_(rows,cols,1,c_loc(A),lda,c_loc(B),ldb,stream) + end function + + function hipblasSetMatrixAsync_i4_assumed_rank(rows,cols,A,lda,B,ldb,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + integer(c_int),target,dimension(..) :: A + integer(c_int),value :: lda + integer(c_int),target,dimension(..) :: B + integer(c_int),value :: ldb + type(c_ptr),value :: stream + ! + ret = hipblasSetMatrixAsync_(rows,cols,4,c_loc(A),lda,c_loc(B),ldb,stream) + end function + + function hipblasSetMatrixAsync_i8_assumed_rank(rows,cols,A,lda,B,ldb,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + integer(c_int64_t),target,dimension(..) :: A + integer(c_int),value :: lda + integer(c_int64_t),target,dimension(..) :: B + integer(c_int),value :: ldb + type(c_ptr),value :: stream + ! + ret = hipblasSetMatrixAsync_(rows,cols,8,c_loc(A),lda,c_loc(B),ldb,stream) + end function + + function hipblasSetMatrixAsync_r4_assumed_rank(rows,cols,A,lda,B,ldb,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + real(c_float),target,dimension(..) :: A + integer(c_int),value :: lda + real(c_float),target,dimension(..) :: B + integer(c_int),value :: ldb + type(c_ptr),value :: stream + ! + ret = hipblasSetMatrixAsync_(rows,cols,4,c_loc(A),lda,c_loc(B),ldb,stream) + end function + + function hipblasSetMatrixAsync_r8_assumed_rank(rows,cols,A,lda,B,ldb,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + real(c_double),target,dimension(..) :: A + integer(c_int),value :: lda + real(c_double),target,dimension(..) :: B + integer(c_int),value :: ldb + type(c_ptr),value :: stream + ! + ret = hipblasSetMatrixAsync_(rows,cols,8,c_loc(A),lda,c_loc(B),ldb,stream) + end function + + function hipblasSetMatrixAsync_c4_assumed_rank(rows,cols,A,lda,B,ldb,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + complex(c_float_complex),target,dimension(..) :: A + integer(c_int),value :: lda + complex(c_float_complex),target,dimension(..) :: B + integer(c_int),value :: ldb + type(c_ptr),value :: stream + ! + ret = hipblasSetMatrixAsync_(rows,cols,2*4,c_loc(A),lda,c_loc(B),ldb,stream) + end function + + function hipblasSetMatrixAsync_c8_assumed_rank(rows,cols,A,lda,B,ldb,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + complex(c_double_complex),target,dimension(..) :: A + integer(c_int),value :: lda + complex(c_double_complex),target,dimension(..) :: B + integer(c_int),value :: ldb + type(c_ptr),value :: stream + ! + ret = hipblasSetMatrixAsync_(rows,cols,2*8,c_loc(A),lda,c_loc(B),ldb,stream) + end function + + function hipblasGetMatrixAsync_l_assumed_rank(rows,cols,A,lda,B,ldb,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + logical(c_bool),target,dimension(..) :: A + integer(c_int),value :: lda + logical(c_bool),target,dimension(..) :: B + integer(c_int),value :: ldb + type(c_ptr),value :: stream + ! + ret = hipblasGetMatrixAsync_(rows,cols,1,c_loc(A),lda,c_loc(B),ldb,stream) + end function + + function hipblasGetMatrixAsync_i4_assumed_rank(rows,cols,A,lda,B,ldb,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + integer(c_int),target,dimension(..) :: A + integer(c_int),value :: lda + integer(c_int),target,dimension(..) :: B + integer(c_int),value :: ldb + type(c_ptr),value :: stream + ! + ret = hipblasGetMatrixAsync_(rows,cols,4,c_loc(A),lda,c_loc(B),ldb,stream) + end function + + function hipblasGetMatrixAsync_i8_assumed_rank(rows,cols,A,lda,B,ldb,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + integer(c_int64_t),target,dimension(..) :: A + integer(c_int),value :: lda + integer(c_int64_t),target,dimension(..) :: B + integer(c_int),value :: ldb + type(c_ptr),value :: stream + ! + ret = hipblasGetMatrixAsync_(rows,cols,8,c_loc(A),lda,c_loc(B),ldb,stream) + end function + + function hipblasGetMatrixAsync_r4_assumed_rank(rows,cols,A,lda,B,ldb,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + real(c_float),target,dimension(..) :: A + integer(c_int),value :: lda + real(c_float),target,dimension(..) :: B + integer(c_int),value :: ldb + type(c_ptr),value :: stream + ! + ret = hipblasGetMatrixAsync_(rows,cols,4,c_loc(A),lda,c_loc(B),ldb,stream) + end function + + function hipblasGetMatrixAsync_r8_assumed_rank(rows,cols,A,lda,B,ldb,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + real(c_double),target,dimension(..) :: A + integer(c_int),value :: lda + real(c_double),target,dimension(..) :: B + integer(c_int),value :: ldb + type(c_ptr),value :: stream + ! + ret = hipblasGetMatrixAsync_(rows,cols,8,c_loc(A),lda,c_loc(B),ldb,stream) + end function + + function hipblasGetMatrixAsync_c4_assumed_rank(rows,cols,A,lda,B,ldb,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + complex(c_float_complex),target,dimension(..) :: A + integer(c_int),value :: lda + complex(c_float_complex),target,dimension(..) :: B + integer(c_int),value :: ldb + type(c_ptr),value :: stream + ! + ret = hipblasGetMatrixAsync_(rows,cols,2*4,c_loc(A),lda,c_loc(B),ldb,stream) + end function + + function hipblasGetMatrixAsync_c8_assumed_rank(rows,cols,A,lda,B,ldb,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + complex(c_double_complex),target,dimension(..) :: A + integer(c_int),value :: lda + complex(c_double_complex),target,dimension(..) :: B + integer(c_int),value :: ldb + type(c_ptr),value :: stream + ! + ret = hipblasGetMatrixAsync_(rows,cols,2*8,c_loc(A),lda,c_loc(B),ldb,stream) + end function + +#else + function hipblasSetVector_l_rank_0(n,x,incx,y,incy) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + logical(c_bool),target :: x + integer(c_int),value :: incx + logical(c_bool),target :: y + integer(c_int),value :: incy + ! + ret = hipblasSetVector_(n,1,c_loc(x),incx,c_loc(y),incy) + end function + + function hipblasSetVector_l_full_rank(n,x,incx,y,incy) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + logical(c_bool),target,dimension(:) :: x + integer(c_int),value :: incx + logical(c_bool),target,dimension(:) :: y + integer(c_int),value :: incy + ! + ret = hipblasSetVector_(n,1,c_loc(x),incx,c_loc(y),incy) + end function + + function hipblasSetVector_i4_rank_0(n,x,incx,y,incy) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + integer(c_int),target :: x + integer(c_int),value :: incx + integer(c_int),target :: y + integer(c_int),value :: incy + ! + ret = hipblasSetVector_(n,4,c_loc(x),incx,c_loc(y),incy) + end function + + function hipblasSetVector_i4_full_rank(n,x,incx,y,incy) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + integer(c_int),target,dimension(:) :: x + integer(c_int),value :: incx + integer(c_int),target,dimension(:) :: y + integer(c_int),value :: incy + ! + ret = hipblasSetVector_(n,4,c_loc(x),incx,c_loc(y),incy) + end function + + function hipblasSetVector_i8_rank_0(n,x,incx,y,incy) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + integer(c_int64_t),target :: x + integer(c_int),value :: incx + integer(c_int64_t),target :: y + integer(c_int),value :: incy + ! + ret = hipblasSetVector_(n,8,c_loc(x),incx,c_loc(y),incy) + end function + + function hipblasSetVector_i8_full_rank(n,x,incx,y,incy) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + integer(c_int64_t),target,dimension(:) :: x + integer(c_int),value :: incx + integer(c_int64_t),target,dimension(:) :: y + integer(c_int),value :: incy + ! + ret = hipblasSetVector_(n,8,c_loc(x),incx,c_loc(y),incy) + end function + + function hipblasSetVector_r4_rank_0(n,x,incx,y,incy) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + real(c_float),target :: x + integer(c_int),value :: incx + real(c_float),target :: y + integer(c_int),value :: incy + ! + ret = hipblasSetVector_(n,4,c_loc(x),incx,c_loc(y),incy) + end function + + function hipblasSetVector_r4_full_rank(n,x,incx,y,incy) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + real(c_float),target,dimension(:) :: x + integer(c_int),value :: incx + real(c_float),target,dimension(:) :: y + integer(c_int),value :: incy + ! + ret = hipblasSetVector_(n,4,c_loc(x),incx,c_loc(y),incy) + end function + + function hipblasSetVector_r8_rank_0(n,x,incx,y,incy) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + real(c_double),target :: x + integer(c_int),value :: incx + real(c_double),target :: y + integer(c_int),value :: incy + ! + ret = hipblasSetVector_(n,8,c_loc(x),incx,c_loc(y),incy) + end function + + function hipblasSetVector_r8_full_rank(n,x,incx,y,incy) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + real(c_double),target,dimension(:) :: x + integer(c_int),value :: incx + real(c_double),target,dimension(:) :: y + integer(c_int),value :: incy + ! + ret = hipblasSetVector_(n,8,c_loc(x),incx,c_loc(y),incy) + end function + + function hipblasSetVector_c4_rank_0(n,x,incx,y,incy) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + complex(c_float_complex),target :: x + integer(c_int),value :: incx + complex(c_float_complex),target :: y + integer(c_int),value :: incy + ! + ret = hipblasSetVector_(n,2*4,c_loc(x),incx,c_loc(y),incy) + end function + + function hipblasSetVector_c4_full_rank(n,x,incx,y,incy) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int),value :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int),value :: incy + ! + ret = hipblasSetVector_(n,2*4,c_loc(x),incx,c_loc(y),incy) + end function + + function hipblasSetVector_c8_rank_0(n,x,incx,y,incy) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + complex(c_double_complex),target :: x + integer(c_int),value :: incx + complex(c_double_complex),target :: y + integer(c_int),value :: incy + ! + ret = hipblasSetVector_(n,2*8,c_loc(x),incx,c_loc(y),incy) + end function + + function hipblasSetVector_c8_full_rank(n,x,incx,y,incy) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int),value :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int),value :: incy + ! + ret = hipblasSetVector_(n,2*8,c_loc(x),incx,c_loc(y),incy) + end function + + function hipblasGetVector_l_rank_0(n,x,incx,y,incy) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + logical(c_bool),target :: x + integer(c_int),value :: incx + logical(c_bool),target :: y + integer(c_int),value :: incy + ! + ret = hipblasGetVector_(n,1,c_loc(x),incx,c_loc(y),incy) + end function + + function hipblasGetVector_l_full_rank(n,x,incx,y,incy) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + logical(c_bool),target,dimension(:) :: x + integer(c_int),value :: incx + logical(c_bool),target,dimension(:) :: y + integer(c_int),value :: incy + ! + ret = hipblasGetVector_(n,1,c_loc(x),incx,c_loc(y),incy) + end function + + function hipblasGetVector_i4_rank_0(n,x,incx,y,incy) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + integer(c_int),target :: x + integer(c_int),value :: incx + integer(c_int),target :: y + integer(c_int),value :: incy + ! + ret = hipblasGetVector_(n,4,c_loc(x),incx,c_loc(y),incy) + end function + + function hipblasGetVector_i4_full_rank(n,x,incx,y,incy) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + integer(c_int),target,dimension(:) :: x + integer(c_int),value :: incx + integer(c_int),target,dimension(:) :: y + integer(c_int),value :: incy + ! + ret = hipblasGetVector_(n,4,c_loc(x),incx,c_loc(y),incy) + end function + + function hipblasGetVector_i8_rank_0(n,x,incx,y,incy) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + integer(c_int64_t),target :: x + integer(c_int),value :: incx + integer(c_int64_t),target :: y + integer(c_int),value :: incy + ! + ret = hipblasGetVector_(n,8,c_loc(x),incx,c_loc(y),incy) + end function + + function hipblasGetVector_i8_full_rank(n,x,incx,y,incy) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + integer(c_int64_t),target,dimension(:) :: x + integer(c_int),value :: incx + integer(c_int64_t),target,dimension(:) :: y + integer(c_int),value :: incy + ! + ret = hipblasGetVector_(n,8,c_loc(x),incx,c_loc(y),incy) + end function + + function hipblasGetVector_r4_rank_0(n,x,incx,y,incy) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + real(c_float),target :: x + integer(c_int),value :: incx + real(c_float),target :: y + integer(c_int),value :: incy + ! + ret = hipblasGetVector_(n,4,c_loc(x),incx,c_loc(y),incy) + end function + + function hipblasGetVector_r4_full_rank(n,x,incx,y,incy) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + real(c_float),target,dimension(:) :: x + integer(c_int),value :: incx + real(c_float),target,dimension(:) :: y + integer(c_int),value :: incy + ! + ret = hipblasGetVector_(n,4,c_loc(x),incx,c_loc(y),incy) + end function + + function hipblasGetVector_r8_rank_0(n,x,incx,y,incy) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + real(c_double),target :: x + integer(c_int),value :: incx + real(c_double),target :: y + integer(c_int),value :: incy + ! + ret = hipblasGetVector_(n,8,c_loc(x),incx,c_loc(y),incy) + end function + + function hipblasGetVector_r8_full_rank(n,x,incx,y,incy) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + real(c_double),target,dimension(:) :: x + integer(c_int),value :: incx + real(c_double),target,dimension(:) :: y + integer(c_int),value :: incy + ! + ret = hipblasGetVector_(n,8,c_loc(x),incx,c_loc(y),incy) + end function + + function hipblasGetVector_c4_rank_0(n,x,incx,y,incy) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + complex(c_float_complex),target :: x + integer(c_int),value :: incx + complex(c_float_complex),target :: y + integer(c_int),value :: incy + ! + ret = hipblasGetVector_(n,2*4,c_loc(x),incx,c_loc(y),incy) + end function + + function hipblasGetVector_c4_full_rank(n,x,incx,y,incy) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int),value :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int),value :: incy + ! + ret = hipblasGetVector_(n,2*4,c_loc(x),incx,c_loc(y),incy) + end function + + function hipblasGetVector_c8_rank_0(n,x,incx,y,incy) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + complex(c_double_complex),target :: x + integer(c_int),value :: incx + complex(c_double_complex),target :: y + integer(c_int),value :: incy + ! + ret = hipblasGetVector_(n,2*8,c_loc(x),incx,c_loc(y),incy) + end function + + function hipblasGetVector_c8_full_rank(n,x,incx,y,incy) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int),value :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int),value :: incy + ! + ret = hipblasGetVector_(n,2*8,c_loc(x),incx,c_loc(y),incy) + end function + + function hipblasSetMatrix_l_full_rank(rows,cols,A,B) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + logical(c_bool),target,dimension(:,:) :: A + logical(c_bool),target,dimension(:,:) :: B + ! + ret = hipblasSetMatrix_(rows,cols,1,c_loc(A),size(A,1),c_loc(B),size(B,1)) + end function + + function hipblasSetMatrix_l_rank_0(rows,cols,A,lda,B,ldb) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + logical(c_bool),target :: A + integer(c_int),value :: lda + logical(c_bool),target :: B + integer(c_int),value :: ldb + ! + ret = hipblasSetMatrix_(rows,cols,1,c_loc(A),lda,c_loc(B),ldb) + end function + + function hipblasSetMatrix_l_rank_1(rows,cols,A,lda,B,ldb) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + logical(c_bool),target,dimension(:) :: A + integer(c_int),value :: lda + logical(c_bool),target,dimension(:) :: B + integer(c_int),value :: ldb + ! + ret = hipblasSetMatrix_(rows,cols,1,c_loc(A),lda,c_loc(B),ldb) + end function + + function hipblasSetMatrix_i4_full_rank(rows,cols,A,B) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + integer(c_int),target,dimension(:,:) :: A + integer(c_int),target,dimension(:,:) :: B + ! + ret = hipblasSetMatrix_(rows,cols,4,c_loc(A),size(A,1),c_loc(B),size(B,1)) + end function + + function hipblasSetMatrix_i4_rank_0(rows,cols,A,lda,B,ldb) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + integer(c_int),target :: A + integer(c_int),value :: lda + integer(c_int),target :: B + integer(c_int),value :: ldb + ! + ret = hipblasSetMatrix_(rows,cols,4,c_loc(A),lda,c_loc(B),ldb) + end function + + function hipblasSetMatrix_i4_rank_1(rows,cols,A,lda,B,ldb) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + integer(c_int),target,dimension(:) :: A + integer(c_int),value :: lda + integer(c_int),target,dimension(:) :: B + integer(c_int),value :: ldb + ! + ret = hipblasSetMatrix_(rows,cols,4,c_loc(A),lda,c_loc(B),ldb) + end function + + function hipblasSetMatrix_i8_full_rank(rows,cols,A,B) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + integer(c_int64_t),target,dimension(:,:) :: A + integer(c_int64_t),target,dimension(:,:) :: B + ! + ret = hipblasSetMatrix_(rows,cols,8,c_loc(A),size(A,1),c_loc(B),size(B,1)) + end function + + function hipblasSetMatrix_i8_rank_0(rows,cols,A,lda,B,ldb) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + integer(c_int64_t),target :: A + integer(c_int),value :: lda + integer(c_int64_t),target :: B + integer(c_int),value :: ldb + ! + ret = hipblasSetMatrix_(rows,cols,8,c_loc(A),lda,c_loc(B),ldb) + end function + + function hipblasSetMatrix_i8_rank_1(rows,cols,A,lda,B,ldb) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + integer(c_int64_t),target,dimension(:) :: A + integer(c_int),value :: lda + integer(c_int64_t),target,dimension(:) :: B + integer(c_int),value :: ldb + ! + ret = hipblasSetMatrix_(rows,cols,8,c_loc(A),lda,c_loc(B),ldb) + end function + + function hipblasSetMatrix_r4_full_rank(rows,cols,A,B) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + real(c_float),target,dimension(:,:) :: A + real(c_float),target,dimension(:,:) :: B + ! + ret = hipblasSetMatrix_(rows,cols,4,c_loc(A),size(A,1),c_loc(B),size(B,1)) + end function + + function hipblasSetMatrix_r4_rank_0(rows,cols,A,lda,B,ldb) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + real(c_float),target :: A + integer(c_int),value :: lda + real(c_float),target :: B + integer(c_int),value :: ldb + ! + ret = hipblasSetMatrix_(rows,cols,4,c_loc(A),lda,c_loc(B),ldb) + end function + + function hipblasSetMatrix_r4_rank_1(rows,cols,A,lda,B,ldb) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + real(c_float),target,dimension(:) :: A + integer(c_int),value :: lda + real(c_float),target,dimension(:) :: B + integer(c_int),value :: ldb + ! + ret = hipblasSetMatrix_(rows,cols,4,c_loc(A),lda,c_loc(B),ldb) + end function + + function hipblasSetMatrix_r8_full_rank(rows,cols,A,B) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + real(c_double),target,dimension(:,:) :: A + real(c_double),target,dimension(:,:) :: B + ! + ret = hipblasSetMatrix_(rows,cols,8,c_loc(A),size(A,1),c_loc(B),size(B,1)) + end function + + function hipblasSetMatrix_r8_rank_0(rows,cols,A,lda,B,ldb) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + real(c_double),target :: A + integer(c_int),value :: lda + real(c_double),target :: B + integer(c_int),value :: ldb + ! + ret = hipblasSetMatrix_(rows,cols,8,c_loc(A),lda,c_loc(B),ldb) + end function + + function hipblasSetMatrix_r8_rank_1(rows,cols,A,lda,B,ldb) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + real(c_double),target,dimension(:) :: A + integer(c_int),value :: lda + real(c_double),target,dimension(:) :: B + integer(c_int),value :: ldb + ! + ret = hipblasSetMatrix_(rows,cols,8,c_loc(A),lda,c_loc(B),ldb) + end function + + function hipblasSetMatrix_c4_full_rank(rows,cols,A,B) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + complex(c_float_complex),target,dimension(:,:) :: A + complex(c_float_complex),target,dimension(:,:) :: B + ! + ret = hipblasSetMatrix_(rows,cols,2*4,c_loc(A),size(A,1),c_loc(B),size(B,1)) + end function + + function hipblasSetMatrix_c4_rank_0(rows,cols,A,lda,B,ldb) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + complex(c_float_complex),target :: A + integer(c_int),value :: lda + complex(c_float_complex),target :: B + integer(c_int),value :: ldb + ! + ret = hipblasSetMatrix_(rows,cols,2*4,c_loc(A),lda,c_loc(B),ldb) + end function + + function hipblasSetMatrix_c4_rank_1(rows,cols,A,lda,B,ldb) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + complex(c_float_complex),target,dimension(:) :: A + integer(c_int),value :: lda + complex(c_float_complex),target,dimension(:) :: B + integer(c_int),value :: ldb + ! + ret = hipblasSetMatrix_(rows,cols,2*4,c_loc(A),lda,c_loc(B),ldb) + end function + + function hipblasSetMatrix_c8_full_rank(rows,cols,A,B) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + complex(c_double_complex),target,dimension(:,:) :: A + complex(c_double_complex),target,dimension(:,:) :: B + ! + ret = hipblasSetMatrix_(rows,cols,2*8,c_loc(A),size(A,1),c_loc(B),size(B,1)) + end function + + function hipblasSetMatrix_c8_rank_0(rows,cols,A,lda,B,ldb) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + complex(c_double_complex),target :: A + integer(c_int),value :: lda + complex(c_double_complex),target :: B + integer(c_int),value :: ldb + ! + ret = hipblasSetMatrix_(rows,cols,2*8,c_loc(A),lda,c_loc(B),ldb) + end function + + function hipblasSetMatrix_c8_rank_1(rows,cols,A,lda,B,ldb) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + complex(c_double_complex),target,dimension(:) :: A + integer(c_int),value :: lda + complex(c_double_complex),target,dimension(:) :: B + integer(c_int),value :: ldb + ! + ret = hipblasSetMatrix_(rows,cols,2*8,c_loc(A),lda,c_loc(B),ldb) + end function + + function hipblasGetMatrix_l_full_rank(rows,cols,A,B) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + logical(c_bool),target,dimension(:,:) :: A + logical(c_bool),target,dimension(:,:) :: B + ! + ret = hipblasGetMatrix_(rows,cols,1,c_loc(A),size(A,1),c_loc(B),size(B,1)) + end function + + function hipblasGetMatrix_l_rank_0(rows,cols,A,lda,B,ldb) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + logical(c_bool),target :: A + integer(c_int),value :: lda + logical(c_bool),target :: B + integer(c_int),value :: ldb + ! + ret = hipblasGetMatrix_(rows,cols,1,c_loc(A),lda,c_loc(B),ldb) + end function + + function hipblasGetMatrix_l_rank_1(rows,cols,A,lda,B,ldb) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + logical(c_bool),target,dimension(:) :: A + integer(c_int),value :: lda + logical(c_bool),target,dimension(:) :: B + integer(c_int),value :: ldb + ! + ret = hipblasGetMatrix_(rows,cols,1,c_loc(A),lda,c_loc(B),ldb) + end function + + function hipblasGetMatrix_i4_full_rank(rows,cols,A,B) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + integer(c_int),target,dimension(:,:) :: A + integer(c_int),target,dimension(:,:) :: B + ! + ret = hipblasGetMatrix_(rows,cols,4,c_loc(A),size(A,1),c_loc(B),size(B,1)) + end function + + function hipblasGetMatrix_i4_rank_0(rows,cols,A,lda,B,ldb) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + integer(c_int),target :: A + integer(c_int),value :: lda + integer(c_int),target :: B + integer(c_int),value :: ldb + ! + ret = hipblasGetMatrix_(rows,cols,4,c_loc(A),lda,c_loc(B),ldb) + end function + + function hipblasGetMatrix_i4_rank_1(rows,cols,A,lda,B,ldb) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + integer(c_int),target,dimension(:) :: A + integer(c_int),value :: lda + integer(c_int),target,dimension(:) :: B + integer(c_int),value :: ldb + ! + ret = hipblasGetMatrix_(rows,cols,4,c_loc(A),lda,c_loc(B),ldb) + end function + + function hipblasGetMatrix_i8_full_rank(rows,cols,A,B) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + integer(c_int64_t),target,dimension(:,:) :: A + integer(c_int64_t),target,dimension(:,:) :: B + ! + ret = hipblasGetMatrix_(rows,cols,8,c_loc(A),size(A,1),c_loc(B),size(B,1)) + end function + + function hipblasGetMatrix_i8_rank_0(rows,cols,A,lda,B,ldb) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + integer(c_int64_t),target :: A + integer(c_int),value :: lda + integer(c_int64_t),target :: B + integer(c_int),value :: ldb + ! + ret = hipblasGetMatrix_(rows,cols,8,c_loc(A),lda,c_loc(B),ldb) + end function + + function hipblasGetMatrix_i8_rank_1(rows,cols,A,lda,B,ldb) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + integer(c_int64_t),target,dimension(:) :: A + integer(c_int),value :: lda + integer(c_int64_t),target,dimension(:) :: B + integer(c_int),value :: ldb + ! + ret = hipblasGetMatrix_(rows,cols,8,c_loc(A),lda,c_loc(B),ldb) + end function + + function hipblasGetMatrix_r4_full_rank(rows,cols,A,B) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + real(c_float),target,dimension(:,:) :: A + real(c_float),target,dimension(:,:) :: B + ! + ret = hipblasGetMatrix_(rows,cols,4,c_loc(A),size(A,1),c_loc(B),size(B,1)) + end function + + function hipblasGetMatrix_r4_rank_0(rows,cols,A,lda,B,ldb) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + real(c_float),target :: A + integer(c_int),value :: lda + real(c_float),target :: B + integer(c_int),value :: ldb + ! + ret = hipblasGetMatrix_(rows,cols,4,c_loc(A),lda,c_loc(B),ldb) + end function + + function hipblasGetMatrix_r4_rank_1(rows,cols,A,lda,B,ldb) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + real(c_float),target,dimension(:) :: A + integer(c_int),value :: lda + real(c_float),target,dimension(:) :: B + integer(c_int),value :: ldb + ! + ret = hipblasGetMatrix_(rows,cols,4,c_loc(A),lda,c_loc(B),ldb) + end function + + function hipblasGetMatrix_r8_full_rank(rows,cols,A,B) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + real(c_double),target,dimension(:,:) :: A + real(c_double),target,dimension(:,:) :: B + ! + ret = hipblasGetMatrix_(rows,cols,8,c_loc(A),size(A,1),c_loc(B),size(B,1)) + end function + + function hipblasGetMatrix_r8_rank_0(rows,cols,A,lda,B,ldb) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + real(c_double),target :: A + integer(c_int),value :: lda + real(c_double),target :: B + integer(c_int),value :: ldb + ! + ret = hipblasGetMatrix_(rows,cols,8,c_loc(A),lda,c_loc(B),ldb) + end function + + function hipblasGetMatrix_r8_rank_1(rows,cols,A,lda,B,ldb) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + real(c_double),target,dimension(:) :: A + integer(c_int),value :: lda + real(c_double),target,dimension(:) :: B + integer(c_int),value :: ldb + ! + ret = hipblasGetMatrix_(rows,cols,8,c_loc(A),lda,c_loc(B),ldb) + end function + + function hipblasGetMatrix_c4_full_rank(rows,cols,A,B) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + complex(c_float_complex),target,dimension(:,:) :: A + complex(c_float_complex),target,dimension(:,:) :: B + ! + ret = hipblasGetMatrix_(rows,cols,2*4,c_loc(A),size(A,1),c_loc(B),size(B,1)) + end function + + function hipblasGetMatrix_c4_rank_0(rows,cols,A,lda,B,ldb) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + complex(c_float_complex),target :: A + integer(c_int),value :: lda + complex(c_float_complex),target :: B + integer(c_int),value :: ldb + ! + ret = hipblasGetMatrix_(rows,cols,2*4,c_loc(A),lda,c_loc(B),ldb) + end function + + function hipblasGetMatrix_c4_rank_1(rows,cols,A,lda,B,ldb) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + complex(c_float_complex),target,dimension(:) :: A + integer(c_int),value :: lda + complex(c_float_complex),target,dimension(:) :: B + integer(c_int),value :: ldb + ! + ret = hipblasGetMatrix_(rows,cols,2*4,c_loc(A),lda,c_loc(B),ldb) + end function + + function hipblasGetMatrix_c8_full_rank(rows,cols,A,B) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + complex(c_double_complex),target,dimension(:,:) :: A + complex(c_double_complex),target,dimension(:,:) :: B + ! + ret = hipblasGetMatrix_(rows,cols,2*8,c_loc(A),size(A,1),c_loc(B),size(B,1)) + end function + + function hipblasGetMatrix_c8_rank_0(rows,cols,A,lda,B,ldb) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + complex(c_double_complex),target :: A + integer(c_int),value :: lda + complex(c_double_complex),target :: B + integer(c_int),value :: ldb + ! + ret = hipblasGetMatrix_(rows,cols,2*8,c_loc(A),lda,c_loc(B),ldb) + end function + + function hipblasGetMatrix_c8_rank_1(rows,cols,A,lda,B,ldb) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + complex(c_double_complex),target,dimension(:) :: A + integer(c_int),value :: lda + complex(c_double_complex),target,dimension(:) :: B + integer(c_int),value :: ldb + ! + ret = hipblasGetMatrix_(rows,cols,2*8,c_loc(A),lda,c_loc(B),ldb) + end function + + function hipblasSetVectorAsync_l_rank_0(n,x,incx,y,incy,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + logical(c_bool),target :: x + integer(c_int),value :: incx + logical(c_bool),target :: y + integer(c_int),value :: incy + type(c_ptr),value :: stream + ! + ret = hipblasSetVectorAsync_(n,1,c_loc(x),incx,c_loc(y),incy,stream) + end function + + function hipblasSetVectorAsync_l_full_rank(n,x,incx,y,incy,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + logical(c_bool),target,dimension(:) :: x + integer(c_int),value :: incx + logical(c_bool),target,dimension(:) :: y + integer(c_int),value :: incy + type(c_ptr),value :: stream + ! + ret = hipblasSetVectorAsync_(n,1,c_loc(x),incx,c_loc(y),incy,stream) + end function + + function hipblasSetVectorAsync_i4_rank_0(n,x,incx,y,incy,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + integer(c_int),target :: x + integer(c_int),value :: incx + integer(c_int),target :: y + integer(c_int),value :: incy + type(c_ptr),value :: stream + ! + ret = hipblasSetVectorAsync_(n,4,c_loc(x),incx,c_loc(y),incy,stream) + end function + + function hipblasSetVectorAsync_i4_full_rank(n,x,incx,y,incy,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + integer(c_int),target,dimension(:) :: x + integer(c_int),value :: incx + integer(c_int),target,dimension(:) :: y + integer(c_int),value :: incy + type(c_ptr),value :: stream + ! + ret = hipblasSetVectorAsync_(n,4,c_loc(x),incx,c_loc(y),incy,stream) + end function + + function hipblasSetVectorAsync_i8_rank_0(n,x,incx,y,incy,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + integer(c_int64_t),target :: x + integer(c_int),value :: incx + integer(c_int64_t),target :: y + integer(c_int),value :: incy + type(c_ptr),value :: stream + ! + ret = hipblasSetVectorAsync_(n,8,c_loc(x),incx,c_loc(y),incy,stream) + end function + + function hipblasSetVectorAsync_i8_full_rank(n,x,incx,y,incy,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + integer(c_int64_t),target,dimension(:) :: x + integer(c_int),value :: incx + integer(c_int64_t),target,dimension(:) :: y + integer(c_int),value :: incy + type(c_ptr),value :: stream + ! + ret = hipblasSetVectorAsync_(n,8,c_loc(x),incx,c_loc(y),incy,stream) + end function + + function hipblasSetVectorAsync_r4_rank_0(n,x,incx,y,incy,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + real(c_float),target :: x + integer(c_int),value :: incx + real(c_float),target :: y + integer(c_int),value :: incy + type(c_ptr),value :: stream + ! + ret = hipblasSetVectorAsync_(n,4,c_loc(x),incx,c_loc(y),incy,stream) + end function + + function hipblasSetVectorAsync_r4_full_rank(n,x,incx,y,incy,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + real(c_float),target,dimension(:) :: x + integer(c_int),value :: incx + real(c_float),target,dimension(:) :: y + integer(c_int),value :: incy + type(c_ptr),value :: stream + ! + ret = hipblasSetVectorAsync_(n,4,c_loc(x),incx,c_loc(y),incy,stream) + end function + + function hipblasSetVectorAsync_r8_rank_0(n,x,incx,y,incy,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + real(c_double),target :: x + integer(c_int),value :: incx + real(c_double),target :: y + integer(c_int),value :: incy + type(c_ptr),value :: stream + ! + ret = hipblasSetVectorAsync_(n,8,c_loc(x),incx,c_loc(y),incy,stream) + end function + + function hipblasSetVectorAsync_r8_full_rank(n,x,incx,y,incy,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + real(c_double),target,dimension(:) :: x + integer(c_int),value :: incx + real(c_double),target,dimension(:) :: y + integer(c_int),value :: incy + type(c_ptr),value :: stream + ! + ret = hipblasSetVectorAsync_(n,8,c_loc(x),incx,c_loc(y),incy,stream) + end function + + function hipblasSetVectorAsync_c4_rank_0(n,x,incx,y,incy,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + complex(c_float_complex),target :: x + integer(c_int),value :: incx + complex(c_float_complex),target :: y + integer(c_int),value :: incy + type(c_ptr),value :: stream + ! + ret = hipblasSetVectorAsync_(n,2*4,c_loc(x),incx,c_loc(y),incy,stream) + end function + + function hipblasSetVectorAsync_c4_full_rank(n,x,incx,y,incy,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int),value :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int),value :: incy + type(c_ptr),value :: stream + ! + ret = hipblasSetVectorAsync_(n,2*4,c_loc(x),incx,c_loc(y),incy,stream) + end function + + function hipblasSetVectorAsync_c8_rank_0(n,x,incx,y,incy,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + complex(c_double_complex),target :: x + integer(c_int),value :: incx + complex(c_double_complex),target :: y + integer(c_int),value :: incy + type(c_ptr),value :: stream + ! + ret = hipblasSetVectorAsync_(n,2*8,c_loc(x),incx,c_loc(y),incy,stream) + end function + + function hipblasSetVectorAsync_c8_full_rank(n,x,incx,y,incy,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int),value :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int),value :: incy + type(c_ptr),value :: stream + ! + ret = hipblasSetVectorAsync_(n,2*8,c_loc(x),incx,c_loc(y),incy,stream) + end function + + function hipblasGetVectorAsync_l_rank_0(n,x,incx,y,incy,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + logical(c_bool),target :: x + integer(c_int),value :: incx + logical(c_bool),target :: y + integer(c_int),value :: incy + type(c_ptr),value :: stream + ! + ret = hipblasGetVectorAsync_(n,1,c_loc(x),incx,c_loc(y),incy,stream) + end function + + function hipblasGetVectorAsync_l_full_rank(n,x,incx,y,incy,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + logical(c_bool),target,dimension(:) :: x + integer(c_int),value :: incx + logical(c_bool),target,dimension(:) :: y + integer(c_int),value :: incy + type(c_ptr),value :: stream + ! + ret = hipblasGetVectorAsync_(n,1,c_loc(x),incx,c_loc(y),incy,stream) + end function + + function hipblasGetVectorAsync_i4_rank_0(n,x,incx,y,incy,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + integer(c_int),target :: x + integer(c_int),value :: incx + integer(c_int),target :: y + integer(c_int),value :: incy + type(c_ptr),value :: stream + ! + ret = hipblasGetVectorAsync_(n,4,c_loc(x),incx,c_loc(y),incy,stream) + end function + + function hipblasGetVectorAsync_i4_full_rank(n,x,incx,y,incy,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + integer(c_int),target,dimension(:) :: x + integer(c_int),value :: incx + integer(c_int),target,dimension(:) :: y + integer(c_int),value :: incy + type(c_ptr),value :: stream + ! + ret = hipblasGetVectorAsync_(n,4,c_loc(x),incx,c_loc(y),incy,stream) + end function + + function hipblasGetVectorAsync_i8_rank_0(n,x,incx,y,incy,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + integer(c_int64_t),target :: x + integer(c_int),value :: incx + integer(c_int64_t),target :: y + integer(c_int),value :: incy + type(c_ptr),value :: stream + ! + ret = hipblasGetVectorAsync_(n,8,c_loc(x),incx,c_loc(y),incy,stream) + end function + + function hipblasGetVectorAsync_i8_full_rank(n,x,incx,y,incy,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + integer(c_int64_t),target,dimension(:) :: x + integer(c_int),value :: incx + integer(c_int64_t),target,dimension(:) :: y + integer(c_int),value :: incy + type(c_ptr),value :: stream + ! + ret = hipblasGetVectorAsync_(n,8,c_loc(x),incx,c_loc(y),incy,stream) + end function + + function hipblasGetVectorAsync_r4_rank_0(n,x,incx,y,incy,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + real(c_float),target :: x + integer(c_int),value :: incx + real(c_float),target :: y + integer(c_int),value :: incy + type(c_ptr),value :: stream + ! + ret = hipblasGetVectorAsync_(n,4,c_loc(x),incx,c_loc(y),incy,stream) + end function + + function hipblasGetVectorAsync_r4_full_rank(n,x,incx,y,incy,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + real(c_float),target,dimension(:) :: x + integer(c_int),value :: incx + real(c_float),target,dimension(:) :: y + integer(c_int),value :: incy + type(c_ptr),value :: stream + ! + ret = hipblasGetVectorAsync_(n,4,c_loc(x),incx,c_loc(y),incy,stream) + end function + + function hipblasGetVectorAsync_r8_rank_0(n,x,incx,y,incy,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + real(c_double),target :: x + integer(c_int),value :: incx + real(c_double),target :: y + integer(c_int),value :: incy + type(c_ptr),value :: stream + ! + ret = hipblasGetVectorAsync_(n,8,c_loc(x),incx,c_loc(y),incy,stream) + end function + + function hipblasGetVectorAsync_r8_full_rank(n,x,incx,y,incy,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + real(c_double),target,dimension(:) :: x + integer(c_int),value :: incx + real(c_double),target,dimension(:) :: y + integer(c_int),value :: incy + type(c_ptr),value :: stream + ! + ret = hipblasGetVectorAsync_(n,8,c_loc(x),incx,c_loc(y),incy,stream) + end function + + function hipblasGetVectorAsync_c4_rank_0(n,x,incx,y,incy,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + complex(c_float_complex),target :: x + integer(c_int),value :: incx + complex(c_float_complex),target :: y + integer(c_int),value :: incy + type(c_ptr),value :: stream + ! + ret = hipblasGetVectorAsync_(n,2*4,c_loc(x),incx,c_loc(y),incy,stream) + end function + + function hipblasGetVectorAsync_c4_full_rank(n,x,incx,y,incy,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int),value :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int),value :: incy + type(c_ptr),value :: stream + ! + ret = hipblasGetVectorAsync_(n,2*4,c_loc(x),incx,c_loc(y),incy,stream) + end function + + function hipblasGetVectorAsync_c8_rank_0(n,x,incx,y,incy,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + complex(c_double_complex),target :: x + integer(c_int),value :: incx + complex(c_double_complex),target :: y + integer(c_int),value :: incy + type(c_ptr),value :: stream + ! + ret = hipblasGetVectorAsync_(n,2*8,c_loc(x),incx,c_loc(y),incy,stream) + end function + + function hipblasGetVectorAsync_c8_full_rank(n,x,incx,y,incy,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int),value :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int),value :: incy + type(c_ptr),value :: stream + ! + ret = hipblasGetVectorAsync_(n,2*8,c_loc(x),incx,c_loc(y),incy,stream) + end function + + function hipblasSetMatrixAsync_l_full_rank(rows,cols,A,B,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + logical(c_bool),target,dimension(:,:) :: A + logical(c_bool),target,dimension(:,:) :: B + type(c_ptr),value :: stream + ! + ret = hipblasSetMatrixAsync_(rows,cols,1,c_loc(A),size(A,1),c_loc(B),size(B,1),stream) + end function + + function hipblasSetMatrixAsync_l_rank_0(rows,cols,A,lda,B,ldb,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + logical(c_bool),target :: A + integer(c_int),value :: lda + logical(c_bool),target :: B + integer(c_int),value :: ldb + type(c_ptr),value :: stream + ! + ret = hipblasSetMatrixAsync_(rows,cols,1,c_loc(A),lda,c_loc(B),ldb,stream) + end function + + function hipblasSetMatrixAsync_l_rank_1(rows,cols,A,lda,B,ldb,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + logical(c_bool),target,dimension(:) :: A + integer(c_int),value :: lda + logical(c_bool),target,dimension(:) :: B + integer(c_int),value :: ldb + type(c_ptr),value :: stream + ! + ret = hipblasSetMatrixAsync_(rows,cols,1,c_loc(A),lda,c_loc(B),ldb,stream) + end function + + function hipblasSetMatrixAsync_i4_full_rank(rows,cols,A,B,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + integer(c_int),target,dimension(:,:) :: A + integer(c_int),target,dimension(:,:) :: B + type(c_ptr),value :: stream + ! + ret = hipblasSetMatrixAsync_(rows,cols,4,c_loc(A),size(A,1),c_loc(B),size(B,1),stream) + end function + + function hipblasSetMatrixAsync_i4_rank_0(rows,cols,A,lda,B,ldb,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + integer(c_int),target :: A + integer(c_int),value :: lda + integer(c_int),target :: B + integer(c_int),value :: ldb + type(c_ptr),value :: stream + ! + ret = hipblasSetMatrixAsync_(rows,cols,4,c_loc(A),lda,c_loc(B),ldb,stream) + end function + + function hipblasSetMatrixAsync_i4_rank_1(rows,cols,A,lda,B,ldb,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + integer(c_int),target,dimension(:) :: A + integer(c_int),value :: lda + integer(c_int),target,dimension(:) :: B + integer(c_int),value :: ldb + type(c_ptr),value :: stream + ! + ret = hipblasSetMatrixAsync_(rows,cols,4,c_loc(A),lda,c_loc(B),ldb,stream) + end function + + function hipblasSetMatrixAsync_i8_full_rank(rows,cols,A,B,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + integer(c_int64_t),target,dimension(:,:) :: A + integer(c_int64_t),target,dimension(:,:) :: B + type(c_ptr),value :: stream + ! + ret = hipblasSetMatrixAsync_(rows,cols,8,c_loc(A),size(A,1),c_loc(B),size(B,1),stream) + end function + + function hipblasSetMatrixAsync_i8_rank_0(rows,cols,A,lda,B,ldb,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + integer(c_int64_t),target :: A + integer(c_int),value :: lda + integer(c_int64_t),target :: B + integer(c_int),value :: ldb + type(c_ptr),value :: stream + ! + ret = hipblasSetMatrixAsync_(rows,cols,8,c_loc(A),lda,c_loc(B),ldb,stream) + end function + + function hipblasSetMatrixAsync_i8_rank_1(rows,cols,A,lda,B,ldb,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + integer(c_int64_t),target,dimension(:) :: A + integer(c_int),value :: lda + integer(c_int64_t),target,dimension(:) :: B + integer(c_int),value :: ldb + type(c_ptr),value :: stream + ! + ret = hipblasSetMatrixAsync_(rows,cols,8,c_loc(A),lda,c_loc(B),ldb,stream) + end function + + function hipblasSetMatrixAsync_r4_full_rank(rows,cols,A,B,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + real(c_float),target,dimension(:,:) :: A + real(c_float),target,dimension(:,:) :: B + type(c_ptr),value :: stream + ! + ret = hipblasSetMatrixAsync_(rows,cols,4,c_loc(A),size(A,1),c_loc(B),size(B,1),stream) + end function + + function hipblasSetMatrixAsync_r4_rank_0(rows,cols,A,lda,B,ldb,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + real(c_float),target :: A + integer(c_int),value :: lda + real(c_float),target :: B + integer(c_int),value :: ldb + type(c_ptr),value :: stream + ! + ret = hipblasSetMatrixAsync_(rows,cols,4,c_loc(A),lda,c_loc(B),ldb,stream) + end function + + function hipblasSetMatrixAsync_r4_rank_1(rows,cols,A,lda,B,ldb,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + real(c_float),target,dimension(:) :: A + integer(c_int),value :: lda + real(c_float),target,dimension(:) :: B + integer(c_int),value :: ldb + type(c_ptr),value :: stream + ! + ret = hipblasSetMatrixAsync_(rows,cols,4,c_loc(A),lda,c_loc(B),ldb,stream) + end function + + function hipblasSetMatrixAsync_r8_full_rank(rows,cols,A,B,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + real(c_double),target,dimension(:,:) :: A + real(c_double),target,dimension(:,:) :: B + type(c_ptr),value :: stream + ! + ret = hipblasSetMatrixAsync_(rows,cols,8,c_loc(A),size(A,1),c_loc(B),size(B,1),stream) + end function + + function hipblasSetMatrixAsync_r8_rank_0(rows,cols,A,lda,B,ldb,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + real(c_double),target :: A + integer(c_int),value :: lda + real(c_double),target :: B + integer(c_int),value :: ldb + type(c_ptr),value :: stream + ! + ret = hipblasSetMatrixAsync_(rows,cols,8,c_loc(A),lda,c_loc(B),ldb,stream) + end function + + function hipblasSetMatrixAsync_r8_rank_1(rows,cols,A,lda,B,ldb,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + real(c_double),target,dimension(:) :: A + integer(c_int),value :: lda + real(c_double),target,dimension(:) :: B + integer(c_int),value :: ldb + type(c_ptr),value :: stream + ! + ret = hipblasSetMatrixAsync_(rows,cols,8,c_loc(A),lda,c_loc(B),ldb,stream) + end function + + function hipblasSetMatrixAsync_c4_full_rank(rows,cols,A,B,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + complex(c_float_complex),target,dimension(:,:) :: A + complex(c_float_complex),target,dimension(:,:) :: B + type(c_ptr),value :: stream + ! + ret = hipblasSetMatrixAsync_(rows,cols,2*4,c_loc(A),size(A,1),c_loc(B),size(B,1),stream) + end function + + function hipblasSetMatrixAsync_c4_rank_0(rows,cols,A,lda,B,ldb,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + complex(c_float_complex),target :: A + integer(c_int),value :: lda + complex(c_float_complex),target :: B + integer(c_int),value :: ldb + type(c_ptr),value :: stream + ! + ret = hipblasSetMatrixAsync_(rows,cols,2*4,c_loc(A),lda,c_loc(B),ldb,stream) + end function + + function hipblasSetMatrixAsync_c4_rank_1(rows,cols,A,lda,B,ldb,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + complex(c_float_complex),target,dimension(:) :: A + integer(c_int),value :: lda + complex(c_float_complex),target,dimension(:) :: B + integer(c_int),value :: ldb + type(c_ptr),value :: stream + ! + ret = hipblasSetMatrixAsync_(rows,cols,2*4,c_loc(A),lda,c_loc(B),ldb,stream) + end function + + function hipblasSetMatrixAsync_c8_full_rank(rows,cols,A,B,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + complex(c_double_complex),target,dimension(:,:) :: A + complex(c_double_complex),target,dimension(:,:) :: B + type(c_ptr),value :: stream + ! + ret = hipblasSetMatrixAsync_(rows,cols,2*8,c_loc(A),size(A,1),c_loc(B),size(B,1),stream) + end function + + function hipblasSetMatrixAsync_c8_rank_0(rows,cols,A,lda,B,ldb,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + complex(c_double_complex),target :: A + integer(c_int),value :: lda + complex(c_double_complex),target :: B + integer(c_int),value :: ldb + type(c_ptr),value :: stream + ! + ret = hipblasSetMatrixAsync_(rows,cols,2*8,c_loc(A),lda,c_loc(B),ldb,stream) + end function + + function hipblasSetMatrixAsync_c8_rank_1(rows,cols,A,lda,B,ldb,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + complex(c_double_complex),target,dimension(:) :: A + integer(c_int),value :: lda + complex(c_double_complex),target,dimension(:) :: B + integer(c_int),value :: ldb + type(c_ptr),value :: stream + ! + ret = hipblasSetMatrixAsync_(rows,cols,2*8,c_loc(A),lda,c_loc(B),ldb,stream) + end function + + function hipblasGetMatrixAsync_l_full_rank(rows,cols,A,B,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + logical(c_bool),target,dimension(:,:) :: A + logical(c_bool),target,dimension(:,:) :: B + type(c_ptr),value :: stream + ! + ret = hipblasGetMatrixAsync_(rows,cols,1,c_loc(A),size(A,1),c_loc(B),size(B,1),stream) + end function + + function hipblasGetMatrixAsync_l_rank_0(rows,cols,A,lda,B,ldb,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + logical(c_bool),target :: A + integer(c_int),value :: lda + logical(c_bool),target :: B + integer(c_int),value :: ldb + type(c_ptr),value :: stream + ! + ret = hipblasGetMatrixAsync_(rows,cols,1,c_loc(A),lda,c_loc(B),ldb,stream) + end function + + function hipblasGetMatrixAsync_l_rank_1(rows,cols,A,lda,B,ldb,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + logical(c_bool),target,dimension(:) :: A + integer(c_int),value :: lda + logical(c_bool),target,dimension(:) :: B + integer(c_int),value :: ldb + type(c_ptr),value :: stream + ! + ret = hipblasGetMatrixAsync_(rows,cols,1,c_loc(A),lda,c_loc(B),ldb,stream) + end function + + function hipblasGetMatrixAsync_i4_full_rank(rows,cols,A,B,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + integer(c_int),target,dimension(:,:) :: A + integer(c_int),target,dimension(:,:) :: B + type(c_ptr),value :: stream + ! + ret = hipblasGetMatrixAsync_(rows,cols,4,c_loc(A),size(A,1),c_loc(B),size(B,1),stream) + end function + + function hipblasGetMatrixAsync_i4_rank_0(rows,cols,A,lda,B,ldb,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + integer(c_int),target :: A + integer(c_int),value :: lda + integer(c_int),target :: B + integer(c_int),value :: ldb + type(c_ptr),value :: stream + ! + ret = hipblasGetMatrixAsync_(rows,cols,4,c_loc(A),lda,c_loc(B),ldb,stream) + end function + + function hipblasGetMatrixAsync_i4_rank_1(rows,cols,A,lda,B,ldb,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + integer(c_int),target,dimension(:) :: A + integer(c_int),value :: lda + integer(c_int),target,dimension(:) :: B + integer(c_int),value :: ldb + type(c_ptr),value :: stream + ! + ret = hipblasGetMatrixAsync_(rows,cols,4,c_loc(A),lda,c_loc(B),ldb,stream) + end function + + function hipblasGetMatrixAsync_i8_full_rank(rows,cols,A,B,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + integer(c_int64_t),target,dimension(:,:) :: A + integer(c_int64_t),target,dimension(:,:) :: B + type(c_ptr),value :: stream + ! + ret = hipblasGetMatrixAsync_(rows,cols,8,c_loc(A),size(A,1),c_loc(B),size(B,1),stream) + end function + + function hipblasGetMatrixAsync_i8_rank_0(rows,cols,A,lda,B,ldb,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + integer(c_int64_t),target :: A + integer(c_int),value :: lda + integer(c_int64_t),target :: B + integer(c_int),value :: ldb + type(c_ptr),value :: stream + ! + ret = hipblasGetMatrixAsync_(rows,cols,8,c_loc(A),lda,c_loc(B),ldb,stream) + end function + + function hipblasGetMatrixAsync_i8_rank_1(rows,cols,A,lda,B,ldb,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + integer(c_int64_t),target,dimension(:) :: A + integer(c_int),value :: lda + integer(c_int64_t),target,dimension(:) :: B + integer(c_int),value :: ldb + type(c_ptr),value :: stream + ! + ret = hipblasGetMatrixAsync_(rows,cols,8,c_loc(A),lda,c_loc(B),ldb,stream) + end function + + function hipblasGetMatrixAsync_r4_full_rank(rows,cols,A,B,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + real(c_float),target,dimension(:,:) :: A + real(c_float),target,dimension(:,:) :: B + type(c_ptr),value :: stream + ! + ret = hipblasGetMatrixAsync_(rows,cols,4,c_loc(A),size(A,1),c_loc(B),size(B,1),stream) + end function + + function hipblasGetMatrixAsync_r4_rank_0(rows,cols,A,lda,B,ldb,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + real(c_float),target :: A + integer(c_int),value :: lda + real(c_float),target :: B + integer(c_int),value :: ldb + type(c_ptr),value :: stream + ! + ret = hipblasGetMatrixAsync_(rows,cols,4,c_loc(A),lda,c_loc(B),ldb,stream) + end function + + function hipblasGetMatrixAsync_r4_rank_1(rows,cols,A,lda,B,ldb,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + real(c_float),target,dimension(:) :: A + integer(c_int),value :: lda + real(c_float),target,dimension(:) :: B + integer(c_int),value :: ldb + type(c_ptr),value :: stream + ! + ret = hipblasGetMatrixAsync_(rows,cols,4,c_loc(A),lda,c_loc(B),ldb,stream) + end function + + function hipblasGetMatrixAsync_r8_full_rank(rows,cols,A,B,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + real(c_double),target,dimension(:,:) :: A + real(c_double),target,dimension(:,:) :: B + type(c_ptr),value :: stream + ! + ret = hipblasGetMatrixAsync_(rows,cols,8,c_loc(A),size(A,1),c_loc(B),size(B,1),stream) + end function + + function hipblasGetMatrixAsync_r8_rank_0(rows,cols,A,lda,B,ldb,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + real(c_double),target :: A + integer(c_int),value :: lda + real(c_double),target :: B + integer(c_int),value :: ldb + type(c_ptr),value :: stream + ! + ret = hipblasGetMatrixAsync_(rows,cols,8,c_loc(A),lda,c_loc(B),ldb,stream) + end function + + function hipblasGetMatrixAsync_r8_rank_1(rows,cols,A,lda,B,ldb,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + real(c_double),target,dimension(:) :: A + integer(c_int),value :: lda + real(c_double),target,dimension(:) :: B + integer(c_int),value :: ldb + type(c_ptr),value :: stream + ! + ret = hipblasGetMatrixAsync_(rows,cols,8,c_loc(A),lda,c_loc(B),ldb,stream) + end function + + function hipblasGetMatrixAsync_c4_full_rank(rows,cols,A,B,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + complex(c_float_complex),target,dimension(:,:) :: A + complex(c_float_complex),target,dimension(:,:) :: B + type(c_ptr),value :: stream + ! + ret = hipblasGetMatrixAsync_(rows,cols,2*4,c_loc(A),size(A,1),c_loc(B),size(B,1),stream) + end function + + function hipblasGetMatrixAsync_c4_rank_0(rows,cols,A,lda,B,ldb,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + complex(c_float_complex),target :: A + integer(c_int),value :: lda + complex(c_float_complex),target :: B + integer(c_int),value :: ldb + type(c_ptr),value :: stream + ! + ret = hipblasGetMatrixAsync_(rows,cols,2*4,c_loc(A),lda,c_loc(B),ldb,stream) + end function + + function hipblasGetMatrixAsync_c4_rank_1(rows,cols,A,lda,B,ldb,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + complex(c_float_complex),target,dimension(:) :: A + integer(c_int),value :: lda + complex(c_float_complex),target,dimension(:) :: B + integer(c_int),value :: ldb + type(c_ptr),value :: stream + ! + ret = hipblasGetMatrixAsync_(rows,cols,2*4,c_loc(A),lda,c_loc(B),ldb,stream) + end function + + function hipblasGetMatrixAsync_c8_full_rank(rows,cols,A,B,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + complex(c_double_complex),target,dimension(:,:) :: A + complex(c_double_complex),target,dimension(:,:) :: B + type(c_ptr),value :: stream + ! + ret = hipblasGetMatrixAsync_(rows,cols,2*8,c_loc(A),size(A,1),c_loc(B),size(B,1),stream) + end function + + function hipblasGetMatrixAsync_c8_rank_0(rows,cols,A,lda,B,ldb,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + complex(c_double_complex),target :: A + integer(c_int),value :: lda + complex(c_double_complex),target :: B + integer(c_int),value :: ldb + type(c_ptr),value :: stream + ! + ret = hipblasGetMatrixAsync_(rows,cols,2*8,c_loc(A),lda,c_loc(B),ldb,stream) + end function + + function hipblasGetMatrixAsync_c8_rank_1(rows,cols,A,lda,B,ldb,stream) result(ret) + use iso_c_binding + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret + integer(c_int),value :: rows + integer(c_int),value :: cols + complex(c_double_complex),target,dimension(:) :: A + integer(c_int),value :: lda + complex(c_double_complex),target,dimension(:) :: B + integer(c_int),value :: ldb + type(c_ptr),value :: stream + ! + ret = hipblasGetMatrixAsync_(rows,cols,2*8,c_loc(A),lda,c_loc(B),ldb,stream) + end function + +#endif +#endif +end module hipblas From 0940a13e9c271f89d6b10df2f2dd861f7de8d288 Mon Sep 17 00:00:00 2001 From: Alexis Montoison Date: Sun, 4 Oct 2026 22:58:56 -0600 Subject: [PATCH 2/8] feat(hipblas): replace the hand-written Fortran binding with a generated one Build fortran/hipblas.F90 as roc::hipblas_fortran from fortran/, a CMake project of its own that the root adds. BUILD_FORTRAN_BINDINGS (default ${UNIX}, OFF on the CUDA backend) and FORTRAN_ARRAY_INTERFACES (default assumed-shape) control it; the existing BUILD_FORTRAN_CLIENTS is forced OFF when no binding is built. HIPBLAS_BUILD_FORTRAN_* override both per library. The .mod and the archive install per compiler under /fortran/ and /fortran/, beside a hipblas-fortran config package. Remove library/src/hipblas_module.f90. Its hipblas_enums module is folded into hipblas, so use hipblas_enums becomes use hipblas, and hipblasCreate and the getters take their output by reference. The clients shims and samples use the generated module; a client-only hip_datatypes_stub.F90 stands in for the HIP binding until ROCm/rocm-systems#11923 lands. There is no fortran/test suite. Refs: ROCm/TheRock#8122 (RFC0019) --- .github/CODEOWNERS | 1 + projects/hipblas/CHANGELOG.md | 33 + projects/hipblas/CMakeLists.txt | 27 +- projects/hipblas/clients/CMakeLists.txt | 34 +- .../hipblas/clients/benchmarks/CMakeLists.txt | 3 +- .../clients/include/hipblas_fortran_blas.f90 | 1220 +- .../include/hipblas_fortran_blas_64.f90 | 1138 +- .../include/hipblas_fortran_solver.f90 | 160 +- .../hipblas/clients/samples/CMakeLists.txt | 13 +- .../samples/example_gemm_ex_fortran.F90 | 7 +- .../clients/samples/example_sscal_fortran.F90 | 4 +- projects/hipblas/fortran/CMakeLists.txt | 320 + .../fortran/cmake/toolchains/amdflang.cmake | 34 + .../fortran/cmake/toolchains/cray.cmake | 34 + .../fortran/cmake/toolchains/gnu.cmake | 34 + .../cmake/toolchains/intel-classic.cmake | 34 + .../fortran/cmake/toolchains/intel.cmake | 34 + .../fortran/cmake/toolchains/nvhpc.cmake | 34 + .../fortran/hipblas-fortran-config.cmake.in | 155 + projects/hipblas/library/src/CMakeLists.txt | 4 - .../hipblas/library/src/hipblas_module.f90 | 26261 ---------------- projects/hipblas/toolchain-linux.cmake | 18 +- 22 files changed, 2081 insertions(+), 27521 deletions(-) create mode 100644 projects/hipblas/fortran/CMakeLists.txt create mode 100644 projects/hipblas/fortran/cmake/toolchains/amdflang.cmake create mode 100644 projects/hipblas/fortran/cmake/toolchains/cray.cmake create mode 100644 projects/hipblas/fortran/cmake/toolchains/gnu.cmake create mode 100644 projects/hipblas/fortran/cmake/toolchains/intel-classic.cmake create mode 100644 projects/hipblas/fortran/cmake/toolchains/intel.cmake create mode 100644 projects/hipblas/fortran/cmake/toolchains/nvhpc.cmake create mode 100644 projects/hipblas/fortran/hipblas-fortran-config.cmake.in delete mode 100644 projects/hipblas/library/src/hipblas_module.f90 diff --git a/.github/CODEOWNERS b/.github/CODEOWNERS index 3df545d74867..b234f0f834ae 100644 --- a/.github/CODEOWNERS +++ b/.github/CODEOWNERS @@ -157,6 +157,7 @@ /projects/hipblas/**/.readthedocs.yaml @ROCm/hipblas-reviewers @ROCm/hipblas-docs-reviewers /projects/hipblas/docs/ @ROCm/hipblas-reviewers @ROCm/hipblas-docs-reviewers /projects/hipblas/library/include/ @ROCm/hipblas-reviewers @ROCm/hipblas-docs-reviewers +/projects/hipblas/fortran/ @ROCm/rocm-fortran-maintainers @ROCm/hipblas-reviewers /projects/hipblas-common/**/*.md @ROCm/hipblas-common-reviewers @ROCm/hipblas-common-docs-reviewers /projects/hipblas-common/**/*.rst @ROCm/hipblas-common-reviewers @ROCm/hipblas-common-docs-reviewers diff --git a/projects/hipblas/CHANGELOG.md b/projects/hipblas/CHANGELOG.md index 3f32a4d1bbc7..4fefe0f2db09 100644 --- a/projects/hipblas/CHANGELOG.md +++ b/projects/hipblas/CHANGELOG.md @@ -8,11 +8,44 @@ Documentation for hipBLAS is available at ### Added * gfx1170 and gfx1171 support to clients. +* Generated Fortran bindings, as a single `hipblas` module: `use hipblas`, link + `roc::hipblas_fortran`. Controlled by `BUILD_FORTRAN_BINDINGS` (ON on Linux, OFF on Windows + and on the CUDA backend), `BUILD_FORTRAN_CLIENTS` and `FORTRAN_ARRAY_INTERFACES` + (`assumed-shape` by default; `none` or `assumed-rank`). Found with + `find_package(hipblas-fortran)`; the archive and `.mod` files install per compiler under + `/fortran/` and `/fortran/`. + The archive has one section per procedure: link with `-Wl,--gc-sections` to keep only the wrappers + you call. ### Changed * The minimum required CMake version is now 3.17, for the library and the clients. `FindCUDAToolkit`, used by the CUDA backend, was added in that release. * `hipblasSetWorkspace` chooses whether the rocBLAS backend may grow its device workspace. A non-null workspace with a nonzero size is a fixed limit and is never resized, which caps device memory for the handle. A later call that needs more, such as `trsmBatched` or `trsmStridedBatched` with a large `batchCount`, returns `HIPBLAS_STATUS_ALLOC_FAILED` even when free device memory remains. Passing `nullptr` or a size of 0 returns the handle to rocBLAS-managed memory, which starts from a default size and grows as needed. `HIPBLAS_WORKSPACE_CONFIG=:0:0` selects that same managed mode for callers that configure the workspace through the environment, such as PyTorch. With the rocBLAS backend, set `ROCBLAS_VERBOSE_ERROR=1` to print the required and available sizes when a fixed workspace is too small for `trsm`. +* `hipblas_enums` is merged into `hipblas`: the generated binding defines only `hipblas`, with + the enum constants folded in. `use hipblas` is unchanged; `use hipblas_enums` becomes + `use hipblas`. +* The `hipDataType` enumerators (`HIP_R_32F` and the rest) are no longer re-exported: they + belong to HIP, not to hipBLAS. Code that names them when calling `hipblasGemmEx` and the + other `_ex` routines must now get them from HIP. +* The binding ships as a compiled archive and `.mod` set, not a `.f90` to compile yourself: + link `roc::hipblas_fortran` instead of adding the source to your build. +* Output arguments are now typed variables passed by reference, as in the C API, instead of + `type(c_ptr), value`: `hipblasCreate` and `hipblasGetStream` (`type(c_ptr)`), + `hipblasGetPointerMode` and `hipblasGetAtomicsMode` (the enum kind) and + `hipblasGetBatchAlphaStride` and `hipblasGetBatchBetaStride` (`integer(c_int64_t)`). Pass the + variable itself: code passing `c_loc(x)` must pass `x`. The newly bound `hipblasGetMathMode` + (the enum kind), `hipblasGetProperty` and `hipblasGetVersion` (`integer(c_int)`) follow the + same convention. +* On the CUDA backend the Fortran gtests, benchmark and samples are no longer built by default, + since the bindings are OFF there: pass `-DBUILD_FORTRAN_BINDINGS=ON` to keep them. +* The default Fortran compiler is now ROCm's `amdflang` when the Fortran bindings are built and the + test and benchmark clients are not. It stays `gfortran` when those clients are built, since they + link the host LAPACK; the client packages depend on `libgfortran` only when `gfortran` built them. + +### Removed + +* The hand-written `library/src/hipblas_module.f90`, no longer installed into + `include/hipblas`. ## hipBLAS 3.7.0 diff --git a/projects/hipblas/CMakeLists.txt b/projects/hipblas/CMakeLists.txt index 4551520106ad..c48462713ec7 100644 --- a/projects/hipblas/CMakeLists.txt +++ b/projects/hipblas/CMakeLists.txt @@ -42,6 +42,19 @@ if( NOT DEFINED CMAKE_CONFIGURATION_TYPES AND NOT DEFINED CMAKE_BUILD_TYPE ) set( CMAKE_BUILD_TYPE Release CACHE STRING "Choose the type of build, options are: None Debug Release RelWithDebInfo MinSizeRel." ) endif() +# Decided before project(): the first enable_language(Fortran) fixes the compiler +# for the whole tree. The test/benchmark clients link the host LAPACK, a gfortran +# build needing its runtime, so keep gfortran for them; fortran/ prefers amdflang +# otherwise. Only if gfortran exists: a preset name would skip fortran/'s probe. +if(NOT DEFINED CMAKE_Fortran_COMPILER AND NOT DEFINED ENV{FC} + AND (BUILD_CLIENTS_TESTS OR BUILD_CLIENTS_BENCHMARKS)) + find_program(_hipblas_gfortran NAMES gfortran) + if(_hipblas_gfortran) + set(CMAKE_Fortran_COMPILER "${_hipblas_gfortran}") + endif() + unset(_hipblas_gfortran CACHE) +endif() + project( hipblas LANGUAGES CXX ) find_package(Python3 3.9 COMPONENTS Interpreter REQUIRED) @@ -105,8 +118,16 @@ if(NOT SKIP_LIBRARY) add_subdirectory(library) endif() +# Outside the SKIP_LIBRARY guard: the bindings link libhipblas, they do not build it. +add_subdirectory(fortran) + include( clients/cmake/build-options.cmake ) +# Seen by clients/, where the Fortran clients are built. +if(DEFINED HIPBLAS_BUILD_FORTRAN_CLIENTS) + set(BUILD_FORTRAN_CLIENTS ${HIPBLAS_BUILD_FORTRAN_CLIENTS}) +endif() + # Build clients of the library if( BUILD_CLIENTS_SAMPLES OR BUILD_CLIENTS_TESTS OR BUILD_CLIENTS_BENCHMARKS ) if(NOT CLIENTS_OS) @@ -116,7 +137,8 @@ if( BUILD_CLIENTS_SAMPLES OR BUILD_CLIENTS_TESTS OR BUILD_CLIENTS_BENCHMARKS ) endif() message(STATUS "OS: ${CLIENTS_OS} ${CLIENTS_OS_VERSION}") - if(BUILD_FORTRAN_CLIENTS) + # libgfortran only for gfortran-built clients; amdflang's runtime ships with ROCm. + if(BUILD_FORTRAN_CLIENTS AND HIPBLAS_FORTRAN_COMPILER_ID STREQUAL "GNU") set(GFORTRAN_RPM "libgfortran4") set(GFORTRAN_DEB "libgfortran4") if(CLIENTS_OS STREQUAL "centos" OR CLIENTS_OS STREQUAL "rhel" OR CLIENTS_OS STREQUAL "almalinux") @@ -151,7 +173,8 @@ if( BUILD_CLIENTS_SAMPLES OR BUILD_CLIENTS_TESTS OR BUILD_CLIENTS_BENCHMARKS ) DEPENDS COMPONENT clients-common) endif() - if(BUILD_FORTRAN_CLIENTS) + # Same condition as above, which leaves GFORTRAN_RPM/GFORTRAN_DEB unset otherwise. + if(BUILD_FORTRAN_CLIENTS AND HIPBLAS_FORTRAN_COMPILER_ID STREQUAL "GNU") if(BUILD_CLIENTS_TESTS) rocm_package_add_rpm_dependencies(COMPONENT tests DEPENDS "${GFORTRAN_RPM}") rocm_package_add_deb_dependencies(COMPONENT tests DEPENDS "${GFORTRAN_DEB}") diff --git a/projects/hipblas/clients/CMakeLists.txt b/projects/hipblas/clients/CMakeLists.txt index 6520443a37ac..01a277ba01a1 100644 --- a/projects/hipblas/clients/CMakeLists.txt +++ b/projects/hipblas/clients/CMakeLists.txt @@ -149,6 +149,16 @@ if( NOT DEFINED CMAKE_CONFIGURATION_TYPES AND NOT DEFINED CMAKE_BUILD_TYPE ) set( CMAKE_BUILD_TYPE Release CACHE STRING "Choose the type of build, options are: None Debug Release RelWithDebInfo MinSizeRel." ) endif() +# hipblas_fortran comes from ../fortran. Checked before project(), which would +# otherwise try to enable Fortran on a host with no Fortran compiler. +if ( BUILD_FORTRAN_CLIENTS AND NOT TARGET hipblas_fortran ) + message(STATUS + "hipBLAS: the Fortran bindings were not built, so the Fortran clients are " + "skipped. They come from projects/hipblas/fortran, which needs " + "BUILD_FORTRAN_BINDINGS on and a Fortran compiler.") + set( BUILD_FORTRAN_CLIENTS OFF ) +endif() + # This project may compile dependencies for clients if ( BUILD_FORTRAN_CLIENTS ) if ( NOT DEFINED CMAKE_Fortran_COMPILER AND NOT DEFINED ENV{FC} ) @@ -173,26 +183,24 @@ if( BUILD_FORTRAN_CLIENTS ) set(hipblas_f90_source_clients_solver include/hipblas_fortran_module.f90 ) - - set (hipblas_f90_source - ../library/src/hipblas_module.f90 - ) endif() if( BUILD_CLIENTS_TESTS OR BUILD_CLIENTS_BENCHMARKS OR BUILD_CLIENTS_SAMPLES ) - # Create hipBLAS Fortran module if( BUILD_FORTRAN_CLIENTS ) # Set Fortran module output directory set(CMAKE_Fortran_MODULE_DIRECTORY ${PROJECT_BINARY_DIR}/include/hipblas) - add_library(hipblas_fortran OBJECT ${hipblas_f90_source}) - endif() - if( BUILD_FORTRAN_CLIENTS ) - if( BUILD_WITH_SOLVER ) - add_library(hipblas_fortran_client STATIC ${hipblas_f90_source_clients_solver} $) - else() - add_library(hipblas_fortran_client STATIC ${hipblas_f90_source_clients_no_solver} $) - endif() + # TEMPORARY until ROCm/rocm-systems#11923: the stub supplies module hip's + # hipDataType enumerators for the shims. Build-only, never installed. To + # remove, drop it here and link hip::hip_fortran; the `use hip` lines stay. + set(hipblas_hip_stub ${CMAKE_CURRENT_SOURCE_DIR}/../fortran/hip_datatypes_stub.F90) + + if( BUILD_WITH_SOLVER ) + add_library(hipblas_fortran_client STATIC ${hipblas_f90_source_clients_solver} ${hipblas_hip_stub}) + else() + add_library(hipblas_fortran_client STATIC ${hipblas_f90_source_clients_no_solver} ${hipblas_hip_stub}) + endif() + target_link_libraries(hipblas_fortran_client PUBLIC roc::hipblas_fortran) endif() if(SKIP_LIBRARY) diff --git a/projects/hipblas/clients/benchmarks/CMakeLists.txt b/projects/hipblas/clients/benchmarks/CMakeLists.txt index d8e00cc081b6..2a4cb0bf266d 100644 --- a/projects/hipblas/clients/benchmarks/CMakeLists.txt +++ b/projects/hipblas/clients/benchmarks/CMakeLists.txt @@ -41,7 +41,8 @@ set( hipblas_benchmark_common ) if(BUILD_FORTRAN_CLIENTS) - add_executable( hipblas-bench ${hipblas_bench_source} ${hipblas_benchmark_common} $) + add_executable( hipblas-bench ${hipblas_bench_source} ${hipblas_benchmark_common} ) + target_link_libraries( hipblas-bench PRIVATE hipblas_fortran_client ) else() add_executable( hipblas-bench ${hipblas_bench_source} ${hipblas_benchmark_common} ) endif() diff --git a/projects/hipblas/clients/include/hipblas_fortran_blas.f90 b/projects/hipblas/clients/include/hipblas_fortran_blas.f90 index 84e719c182de..4f68ab1ba9a2 100644 --- a/projects/hipblas/clients/include/hipblas_fortran_blas.f90 +++ b/projects/hipblas/clients/include/hipblas_fortran_blas.f90 @@ -27,7 +27,7 @@ function hipblasSetVectorFortran(n, elemSize, x, incx, y, incy) & bind(c, name='hipblasSetVectorFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSetVectorFortran integer(c_int), value :: n @@ -43,7 +43,7 @@ end function hipblasSetVectorFortran function hipblasGetVectorFortran(n, elemSize, x, incx, y, incy) & bind(c, name='hipblasGetVectorFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGetVectorFortran integer(c_int), value :: n @@ -59,7 +59,7 @@ end function hipblasGetVectorFortran function hipblasSetMatrixFortran(rows, cols, elemSize, A, lda, B, ldb) & bind(c, name='hipblasSetMatrixFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSetMatrixFortran integer(c_int), value :: rows @@ -76,7 +76,7 @@ end function hipblasSetMatrixFortran function hipblasGetMatrixFortran(rows, cols, elemSize, A, lda, B, ldb) & bind(c, name='hipblasGetMatrixFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGetMatrixFortran integer(c_int), value :: rows @@ -93,7 +93,7 @@ end function hipblasGetMatrixFortran function hipblasSetVectorAsyncFortran(n, elemSize, x, incx, y, incy, stream) & bind(c, name='hipblasSetVectorAsyncFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSetVectorAsyncFortran integer(c_int), value :: n @@ -110,7 +110,7 @@ end function hipblasSetVectorAsyncFortran function hipblasGetVectorAsyncFortran(n, elemSize, x, incx, y, incy, stream) & bind(c, name='hipblasGetVectorAsyncFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGetVectorAsyncFortran integer(c_int), value :: n @@ -127,7 +127,7 @@ end function hipblasGetVectorAsyncFortran function hipblasSetMatrixAsyncFortran(rows, cols, elemSize, A, lda, B, ldb, stream) & bind(c, name='hipblasSetMatrixAsyncFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSetMatrixAsyncFortran integer(c_int), value :: rows @@ -145,7 +145,7 @@ end function hipblasSetMatrixAsyncFortran function hipblasGetMatrixAsyncFortran(rows, cols, elemSize, A, lda, B, ldb, stream) & bind(c, name='hipblasGetMatrixAsyncFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGetMatrixAsyncFortran integer(c_int), value :: rows @@ -163,7 +163,7 @@ end function hipblasGetMatrixAsyncFortran function hipblasSetAtomicsModeFortran(handle, atomics_mode) & bind(c, name='hipblasSetAtomicsModeFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSetAtomicsModeFortran type(c_ptr), value :: handle @@ -175,11 +175,11 @@ end function hipblasSetAtomicsModeFortran function hipblasGetAtomicsModeFortran(handle, atomics_mode) & bind(c, name='hipblasGetAtomicsModeFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGetAtomicsModeFortran type(c_ptr), value :: handle - type(c_ptr), value :: atomics_mode + integer(kind(HIPBLAS_ATOMICS_ALLOWED)) :: atomics_mode hipblasGetAtomicsModeFortran = & hipblasGetAtomicsMode(handle, atomics_mode) end function hipblasGetAtomicsModeFortran @@ -187,7 +187,7 @@ end function hipblasGetAtomicsModeFortran function hipblasSetBatchAlphaStrideFortran(handle, alpha_stride) & bind(c, name='hipblasSetBatchAlphaStrideFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSetBatchAlphaStrideFortran type(c_ptr), value :: handle @@ -199,11 +199,11 @@ end function hipblasSetBatchAlphaStrideFortran function hipblasGetBatchAlphaStrideFortran(handle, alpha_stride) & bind(c, name='hipblasGetBatchAlphaStrideFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGetBatchAlphaStrideFortran type(c_ptr), value :: handle - type(c_ptr), value :: alpha_stride + integer(c_int64_t) :: alpha_stride hipblasGetBatchAlphaStrideFortran = & hipblasGetBatchAlphaStride(handle, alpha_stride) end function hipblasGetBatchAlphaStrideFortran @@ -211,7 +211,7 @@ end function hipblasGetBatchAlphaStrideFortran function hipblasSetBatchBetaStrideFortran(handle, beta_stride) & bind(c, name='hipblasSetBatchBetaStrideFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSetBatchBetaStrideFortran type(c_ptr), value :: handle @@ -223,11 +223,11 @@ end function hipblasSetBatchBetaStrideFortran function hipblasGetBatchBetaStrideFortran(handle, beta_stride) & bind(c, name='hipblasGetBatchBetaStrideFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGetBatchBetaStrideFortran type(c_ptr), value :: handle - type(c_ptr), value :: beta_stride + integer(c_int64_t) :: beta_stride hipblasGetBatchBetaStrideFortran = & hipblasGetBatchBetaStride(handle, beta_stride) end function hipblasGetBatchBetaStrideFortran @@ -240,7 +240,7 @@ end function hipblasGetBatchBetaStrideFortran function hipblasSscalFortran(handle, n, alpha, x, incx) & bind(c, name='hipblasSscalFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscalFortran type(c_ptr), value :: handle @@ -256,7 +256,7 @@ end function hipblasSscalFortran function hipblasDscalFortran(handle, n, alpha, x, incx) & bind(c, name='hipblasDscalFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscalFortran type(c_ptr), value :: handle @@ -272,7 +272,7 @@ end function hipblasDscalFortran function hipblasCscalFortran(handle, n, alpha, x, incx) & bind(c, name='hipblasCscalFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscalFortran type(c_ptr), value :: handle @@ -288,7 +288,7 @@ end function hipblasCscalFortran function hipblasZscalFortran(handle, n, alpha, x, incx) & bind(c, name='hipblasZscalFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscalFortran type(c_ptr), value :: handle @@ -304,7 +304,7 @@ end function hipblasZscalFortran function hipblasCsscalFortran(handle, n, alpha, x, incx) & bind(c, name='hipblasCsscalFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscalFortran type(c_ptr), value :: handle @@ -320,7 +320,7 @@ end function hipblasCsscalFortran function hipblasZdscalFortran(handle, n, alpha, x, incx) & bind(c, name='hipblasZdscalFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscalFortran type(c_ptr), value :: handle @@ -337,7 +337,7 @@ end function hipblasZdscalFortran function hipblasSscalBatchedFortran(handle, n, alpha, x, incx, batch_count) & bind(c, name='hipblasSscalBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscalBatchedFortran type(c_ptr), value :: handle @@ -354,7 +354,7 @@ end function hipblasSscalBatchedFortran function hipblasDscalBatchedFortran(handle, n, alpha, x, incx, batch_count) & bind(c, name='hipblasDscalBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscalBatchedFortran type(c_ptr), value :: handle @@ -371,7 +371,7 @@ end function hipblasDscalBatchedFortran function hipblasCscalBatchedFortran(handle, n, alpha, x, incx, batch_count) & bind(c, name='hipblasCscalBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscalBatchedFortran type(c_ptr), value :: handle @@ -388,7 +388,7 @@ end function hipblasCscalBatchedFortran function hipblasZscalBatchedFortran(handle, n, alpha, x, incx, batch_count) & bind(c, name='hipblasZscalBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscalBatchedFortran type(c_ptr), value :: handle @@ -405,7 +405,7 @@ end function hipblasZscalBatchedFortran function hipblasCsscalBatchedFortran(handle, n, alpha, x, incx, batch_count) & bind(c, name='hipblasCsscalBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscalBatchedFortran type(c_ptr), value :: handle @@ -422,7 +422,7 @@ end function hipblasCsscalBatchedFortran function hipblasZdscalBatchedFortran(handle, n, alpha, x, incx, batch_count) & bind(c, name='hipblasZdscalBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscalBatchedFortran type(c_ptr), value :: handle @@ -440,7 +440,7 @@ end function hipblasZdscalBatchedFortran function hipblasSscalStridedBatchedFortran(handle, n, alpha, x, incx, stride_x, batch_count) & bind(c, name='hipblasSscalStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscalStridedBatchedFortran type(c_ptr), value :: handle @@ -458,7 +458,7 @@ end function hipblasSscalStridedBatchedFortran function hipblasDscalStridedBatchedFortran(handle, n, alpha, x, incx, stride_x, batch_count) & bind(c, name='hipblasDscalStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscalStridedBatchedFortran type(c_ptr), value :: handle @@ -476,7 +476,7 @@ end function hipblasDscalStridedBatchedFortran function hipblasCscalStridedBatchedFortran(handle, n, alpha, x, incx, stride_x, batch_count) & bind(c, name='hipblasCscalStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscalStridedBatchedFortran type(c_ptr), value :: handle @@ -494,7 +494,7 @@ end function hipblasCscalStridedBatchedFortran function hipblasZscalStridedBatchedFortran(handle, n, alpha, x, incx, stride_x, batch_count) & bind(c, name='hipblasZscalStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscalStridedBatchedFortran type(c_ptr), value :: handle @@ -512,7 +512,7 @@ end function hipblasZscalStridedBatchedFortran function hipblasCsscalStridedBatchedFortran(handle, n, alpha, x, incx, stride_x, batch_count) & bind(c, name='hipblasCsscalStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscalStridedBatchedFortran type(c_ptr), value :: handle @@ -530,7 +530,7 @@ end function hipblasCsscalStridedBatchedFortran function hipblasZdscalStridedBatchedFortran(handle, n, alpha, x, incx, stride_x, batch_count) & bind(c, name='hipblasZdscalStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscalStridedBatchedFortran type(c_ptr), value :: handle @@ -549,7 +549,7 @@ end function hipblasZdscalStridedBatchedFortran function hipblasScopyFortran(handle, n, x, incx, y, incy) & bind(c, name='hipblasScopyFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScopyFortran type(c_ptr), value :: handle @@ -566,7 +566,7 @@ end function hipblasScopyFortran function hipblasDcopyFortran(handle, n, x, incx, y, incy) & bind(c, name='hipblasDcopyFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDcopyFortran type(c_ptr), value :: handle @@ -583,7 +583,7 @@ end function hipblasDcopyFortran function hipblasCcopyFortran(handle, n, x, incx, y, incy) & bind(c, name='hipblasCcopyFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCcopyFortran type(c_ptr), value :: handle @@ -600,7 +600,7 @@ end function hipblasCcopyFortran function hipblasZcopyFortran(handle, n, x, incx, y, incy) & bind(c, name='hipblasZcopyFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZcopyFortran type(c_ptr), value :: handle @@ -618,7 +618,7 @@ end function hipblasZcopyFortran function hipblasScopyBatchedFortran(handle, n, x, incx, y, incy, batch_count) & bind(c, name='hipblasScopyBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScopyBatchedFortran type(c_ptr), value :: handle @@ -636,7 +636,7 @@ end function hipblasScopyBatchedFortran function hipblasDcopyBatchedFortran(handle, n, x, incx, y, incy, batch_count) & bind(c, name='hipblasDcopyBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDcopyBatchedFortran type(c_ptr), value :: handle @@ -654,7 +654,7 @@ end function hipblasDcopyBatchedFortran function hipblasCcopyBatchedFortran(handle, n, x, incx, y, incy, batch_count) & bind(c, name='hipblasCcopyBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCcopyBatchedFortran type(c_ptr), value :: handle @@ -672,7 +672,7 @@ end function hipblasCcopyBatchedFortran function hipblasZcopyBatchedFortran(handle, n, x, incx, y, incy, batch_count) & bind(c, name='hipblasZcopyBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZcopyBatchedFortran type(c_ptr), value :: handle @@ -691,7 +691,7 @@ end function hipblasZcopyBatchedFortran function hipblasScopyStridedBatchedFortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='hipblasScopyStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScopyStridedBatchedFortran type(c_ptr), value :: handle @@ -711,7 +711,7 @@ end function hipblasScopyStridedBatchedFortran function hipblasDcopyStridedBatchedFortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='hipblasDcopyStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDcopyStridedBatchedFortran type(c_ptr), value :: handle @@ -731,7 +731,7 @@ end function hipblasDcopyStridedBatchedFortran function hipblasCcopyStridedBatchedFortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='hipblasCcopyStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCcopyStridedBatchedFortran type(c_ptr), value :: handle @@ -751,7 +751,7 @@ end function hipblasCcopyStridedBatchedFortran function hipblasZcopyStridedBatchedFortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='hipblasZcopyStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZcopyStridedBatchedFortran type(c_ptr), value :: handle @@ -772,7 +772,7 @@ end function hipblasZcopyStridedBatchedFortran function hipblasSdotFortran(handle, n, x, incx, y, incy, result) & bind(c, name='hipblasSdotFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdotFortran type(c_ptr), value :: handle @@ -790,7 +790,7 @@ end function hipblasSdotFortran function hipblasDdotFortran(handle, n, x, incx, y, incy, result) & bind(c, name='hipblasDdotFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdotFortran type(c_ptr), value :: handle @@ -808,7 +808,7 @@ end function hipblasDdotFortran function hipblasHdotFortran(handle, n, x, incx, y, incy, result) & bind(c, name='hipblasHdotFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHdotFortran type(c_ptr), value :: handle @@ -826,7 +826,7 @@ end function hipblasHdotFortran function hipblasBfdotFortran(handle, n, x, incx, y, incy, result) & bind(c, name='hipblasBfdotFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasBfdotFortran type(c_ptr), value :: handle @@ -844,7 +844,7 @@ end function hipblasBfdotFortran function hipblasCdotuFortran(handle, n, x, incx, y, incy, result) & bind(c, name='hipblasCdotuFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotuFortran type(c_ptr), value :: handle @@ -862,7 +862,7 @@ end function hipblasCdotuFortran function hipblasCdotcFortran(handle, n, x, incx, y, incy, result) & bind(c, name='hipblasCdotcFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotcFortran type(c_ptr), value :: handle @@ -880,7 +880,7 @@ end function hipblasCdotcFortran function hipblasZdotuFortran(handle, n, x, incx, y, incy, result) & bind(c, name='hipblasZdotuFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotuFortran type(c_ptr), value :: handle @@ -898,7 +898,7 @@ end function hipblasZdotuFortran function hipblasZdotcFortran(handle, n, x, incx, y, incy, result) & bind(c, name='hipblasZdotcFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotcFortran type(c_ptr), value :: handle @@ -917,7 +917,7 @@ end function hipblasZdotcFortran function hipblasSdotBatchedFortran(handle, n, x, incx, y, incy, batch_count, result) & bind(c, name='hipblasSdotBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdotBatchedFortran type(c_ptr), value :: handle @@ -936,7 +936,7 @@ end function hipblasSdotBatchedFortran function hipblasDdotBatchedFortran(handle, n, x, incx, y, incy, batch_count, result) & bind(c, name='hipblasDdotBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdotBatchedFortran type(c_ptr), value :: handle @@ -955,7 +955,7 @@ end function hipblasDdotBatchedFortran function hipblasHdotBatchedFortran(handle, n, x, incx, y, incy, batch_count, result) & bind(c, name='hipblasHdotBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHdotBatchedFortran type(c_ptr), value :: handle @@ -974,7 +974,7 @@ end function hipblasHdotBatchedFortran function hipblasBfdotBatchedFortran(handle, n, x, incx, y, incy, batch_count, result) & bind(c, name='hipblasBfdotBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasBfdotBatchedFortran type(c_ptr), value :: handle @@ -993,7 +993,7 @@ end function hipblasBfdotBatchedFortran function hipblasCdotuBatchedFortran(handle, n, x, incx, y, incy, batch_count, result) & bind(c, name='hipblasCdotuBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotuBatchedFortran type(c_ptr), value :: handle @@ -1012,7 +1012,7 @@ end function hipblasCdotuBatchedFortran function hipblasCdotcBatchedFortran(handle, n, x, incx, y, incy, batch_count, result) & bind(c, name='hipblasCdotcBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotcBatchedFortran type(c_ptr), value :: handle @@ -1031,7 +1031,7 @@ end function hipblasCdotcBatchedFortran function hipblasZdotuBatchedFortran(handle, n, x, incx, y, incy, batch_count, result) & bind(c, name='hipblasZdotuBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotuBatchedFortran type(c_ptr), value :: handle @@ -1050,7 +1050,7 @@ end function hipblasZdotuBatchedFortran function hipblasZdotcBatchedFortran(handle, n, x, incx, y, incy, batch_count, result) & bind(c, name='hipblasZdotcBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotcBatchedFortran type(c_ptr), value :: handle @@ -1070,7 +1070,7 @@ end function hipblasZdotcBatchedFortran function hipblasSdotStridedBatchedFortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & bind(c, name='hipblasSdotStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdotStridedBatchedFortran type(c_ptr), value :: handle @@ -1091,7 +1091,7 @@ end function hipblasSdotStridedBatchedFortran function hipblasDdotStridedBatchedFortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & bind(c, name='hipblasDdotStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdotStridedBatchedFortran type(c_ptr), value :: handle @@ -1112,7 +1112,7 @@ end function hipblasDdotStridedBatchedFortran function hipblasHdotStridedBatchedFortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & bind(c, name='hipblasHdotStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHdotStridedBatchedFortran type(c_ptr), value :: handle @@ -1133,7 +1133,7 @@ end function hipblasHdotStridedBatchedFortran function hipblasBfdotStridedBatchedFortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & bind(c, name='hipblasBfdotStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasBfdotStridedBatchedFortran type(c_ptr), value :: handle @@ -1154,7 +1154,7 @@ end function hipblasBfdotStridedBatchedFortran function hipblasCdotuStridedBatchedFortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & bind(c, name='hipblasCdotuStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotuStridedBatchedFortran type(c_ptr), value :: handle @@ -1175,7 +1175,7 @@ end function hipblasCdotuStridedBatchedFortran function hipblasCdotcStridedBatchedFortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & bind(c, name='hipblasCdotcStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotcStridedBatchedFortran type(c_ptr), value :: handle @@ -1196,7 +1196,7 @@ end function hipblasCdotcStridedBatchedFortran function hipblasZdotuStridedBatchedFortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & bind(c, name='hipblasZdotuStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotuStridedBatchedFortran type(c_ptr), value :: handle @@ -1217,7 +1217,7 @@ end function hipblasZdotuStridedBatchedFortran function hipblasZdotcStridedBatchedFortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & bind(c, name='hipblasZdotcStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotcStridedBatchedFortran type(c_ptr), value :: handle @@ -1239,7 +1239,7 @@ end function hipblasZdotcStridedBatchedFortran function hipblasSswapFortran(handle, n, x, incx, y, incy) & bind(c, name='hipblasSswapFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSswapFortran type(c_ptr), value :: handle @@ -1256,7 +1256,7 @@ end function hipblasSswapFortran function hipblasDswapFortran(handle, n, x, incx, y, incy) & bind(c, name='hipblasDswapFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDswapFortran type(c_ptr), value :: handle @@ -1273,7 +1273,7 @@ end function hipblasDswapFortran function hipblasCswapFortran(handle, n, x, incx, y, incy) & bind(c, name='hipblasCswapFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCswapFortran type(c_ptr), value :: handle @@ -1290,7 +1290,7 @@ end function hipblasCswapFortran function hipblasZswapFortran(handle, n, x, incx, y, incy) & bind(c, name='hipblasZswapFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZswapFortran type(c_ptr), value :: handle @@ -1308,7 +1308,7 @@ end function hipblasZswapFortran function hipblasSswapBatchedFortran(handle, n, x, incx, y, incy, batch_count) & bind(c, name='hipblasSswapBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSswapBatchedFortran type(c_ptr), value :: handle @@ -1326,7 +1326,7 @@ end function hipblasSswapBatchedFortran function hipblasDswapBatchedFortran(handle, n, x, incx, y, incy, batch_count) & bind(c, name='hipblasDswapBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDswapBatchedFortran type(c_ptr), value :: handle @@ -1344,7 +1344,7 @@ end function hipblasDswapBatchedFortran function hipblasCswapBatchedFortran(handle, n, x, incx, y, incy, batch_count) & bind(c, name='hipblasCswapBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCswapBatchedFortran type(c_ptr), value :: handle @@ -1362,7 +1362,7 @@ end function hipblasCswapBatchedFortran function hipblasZswapBatchedFortran(handle, n, x, incx, y, incy, batch_count) & bind(c, name='hipblasZswapBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZswapBatchedFortran type(c_ptr), value :: handle @@ -1381,7 +1381,7 @@ end function hipblasZswapBatchedFortran function hipblasSswapStridedBatchedFortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='hipblasSswapStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSswapStridedBatchedFortran type(c_ptr), value :: handle @@ -1401,7 +1401,7 @@ end function hipblasSswapStridedBatchedFortran function hipblasDswapStridedBatchedFortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='hipblasDswapStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDswapStridedBatchedFortran type(c_ptr), value :: handle @@ -1421,7 +1421,7 @@ end function hipblasDswapStridedBatchedFortran function hipblasCswapStridedBatchedFortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='hipblasCswapStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCswapStridedBatchedFortran type(c_ptr), value :: handle @@ -1441,7 +1441,7 @@ end function hipblasCswapStridedBatchedFortran function hipblasZswapStridedBatchedFortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='hipblasZswapStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZswapStridedBatchedFortran type(c_ptr), value :: handle @@ -1462,7 +1462,7 @@ end function hipblasZswapStridedBatchedFortran function hipblasHaxpyFortran(handle, n, alpha, x, incx, y, incy) & bind(c, name='hipblasHaxpyFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHaxpyFortran type(c_ptr), value :: handle @@ -1480,7 +1480,7 @@ end function hipblasHaxpyFortran function hipblasSaxpyFortran(handle, n, alpha, x, incx, y, incy) & bind(c, name='hipblasSaxpyFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpyFortran type(c_ptr), value :: handle @@ -1498,7 +1498,7 @@ end function hipblasSaxpyFortran function hipblasDaxpyFortran(handle, n, alpha, x, incx, y, incy) & bind(c, name='hipblasDaxpyFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpyFortran type(c_ptr), value :: handle @@ -1516,7 +1516,7 @@ end function hipblasDaxpyFortran function hipblasCaxpyFortran(handle, n, alpha, x, incx, y, incy) & bind(c, name='hipblasCaxpyFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpyFortran type(c_ptr), value :: handle @@ -1534,7 +1534,7 @@ end function hipblasCaxpyFortran function hipblasZaxpyFortran(handle, n, alpha, x, incx, y, incy) & bind(c, name='hipblasZaxpyFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpyFortran type(c_ptr), value :: handle @@ -1553,7 +1553,7 @@ end function hipblasZaxpyFortran function hipblasHaxpyBatchedFortran(handle, n, alpha, x, incx, y, incy, batch_count) & bind(c, name='hipblasHaxpyBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHaxpyBatchedFortran type(c_ptr), value :: handle @@ -1572,7 +1572,7 @@ end function hipblasHaxpyBatchedFortran function hipblasSaxpyBatchedFortran(handle, n, alpha, x, incx, y, incy, batch_count) & bind(c, name='hipblasSaxpyBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpyBatchedFortran type(c_ptr), value :: handle @@ -1591,7 +1591,7 @@ end function hipblasSaxpyBatchedFortran function hipblasDaxpyBatchedFortran(handle, n, alpha, x, incx, y, incy, batch_count) & bind(c, name='hipblasDaxpyBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpyBatchedFortran type(c_ptr), value :: handle @@ -1610,7 +1610,7 @@ end function hipblasDaxpyBatchedFortran function hipblasCaxpyBatchedFortran(handle, n, alpha, x, incx, y, incy, batch_count) & bind(c, name='hipblasCaxpyBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpyBatchedFortran type(c_ptr), value :: handle @@ -1629,7 +1629,7 @@ end function hipblasCaxpyBatchedFortran function hipblasZaxpyBatchedFortran(handle, n, alpha, x, incx, y, incy, batch_count) & bind(c, name='hipblasZaxpyBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpyBatchedFortran type(c_ptr), value :: handle @@ -1649,7 +1649,7 @@ end function hipblasZaxpyBatchedFortran function hipblasHaxpyStridedBatchedFortran(handle, n, alpha, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='hipblasHaxpyStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHaxpyStridedBatchedFortran type(c_ptr), value :: handle @@ -1670,7 +1670,7 @@ end function hipblasHaxpyStridedBatchedFortran function hipblasSaxpyStridedBatchedFortran(handle, n, alpha, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='hipblasSaxpyStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpyStridedBatchedFortran type(c_ptr), value :: handle @@ -1691,7 +1691,7 @@ end function hipblasSaxpyStridedBatchedFortran function hipblasDaxpyStridedBatchedFortran(handle, n, alpha, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='hipblasDaxpyStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpyStridedBatchedFortran type(c_ptr), value :: handle @@ -1712,7 +1712,7 @@ end function hipblasDaxpyStridedBatchedFortran function hipblasCaxpyStridedBatchedFortran(handle, n, alpha, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='hipblasCaxpyStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpyStridedBatchedFortran type(c_ptr), value :: handle @@ -1733,7 +1733,7 @@ end function hipblasCaxpyStridedBatchedFortran function hipblasZaxpyStridedBatchedFortran(handle, n, alpha, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='hipblasZaxpyStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpyStridedBatchedFortran type(c_ptr), value :: handle @@ -1755,7 +1755,7 @@ end function hipblasZaxpyStridedBatchedFortran function hipblasSasumFortran(handle, n, x, incx, result) & bind(c, name='hipblasSasumFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasumFortran type(c_ptr), value :: handle @@ -1771,7 +1771,7 @@ end function hipblasSasumFortran function hipblasDasumFortran(handle, n, x, incx, result) & bind(c, name='hipblasDasumFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasumFortran type(c_ptr), value :: handle @@ -1787,7 +1787,7 @@ end function hipblasDasumFortran function hipblasScasumFortran(handle, n, x, incx, result) & bind(c, name='hipblasScasumFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasumFortran type(c_ptr), value :: handle @@ -1803,7 +1803,7 @@ end function hipblasScasumFortran function hipblasDzasumFortran(handle, n, x, incx, result) & bind(c, name='hipblasDzasumFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasumFortran type(c_ptr), value :: handle @@ -1820,7 +1820,7 @@ end function hipblasDzasumFortran function hipblasSasumBatchedFortran(handle, n, x, incx, batch_count, result) & bind(c, name='hipblasSasumBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasumBatchedFortran type(c_ptr), value :: handle @@ -1837,7 +1837,7 @@ end function hipblasSasumBatchedFortran function hipblasDasumBatchedFortran(handle, n, x, incx, batch_count, result) & bind(c, name='hipblasDasumBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasumBatchedFortran type(c_ptr), value :: handle @@ -1854,7 +1854,7 @@ end function hipblasDasumBatchedFortran function hipblasScasumBatchedFortran(handle, n, x, incx, batch_count, result) & bind(c, name='hipblasScasumBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasumBatchedFortran type(c_ptr), value :: handle @@ -1871,7 +1871,7 @@ end function hipblasScasumBatchedFortran function hipblasDzasumBatchedFortran(handle, n, x, incx, batch_count, result) & bind(c, name='hipblasDzasumBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasumBatchedFortran type(c_ptr), value :: handle @@ -1889,7 +1889,7 @@ end function hipblasDzasumBatchedFortran function hipblasSasumStridedBatchedFortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='hipblasSasumStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasumStridedBatchedFortran type(c_ptr), value :: handle @@ -1907,7 +1907,7 @@ end function hipblasSasumStridedBatchedFortran function hipblasDasumStridedBatchedFortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='hipblasDasumStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasumStridedBatchedFortran type(c_ptr), value :: handle @@ -1925,7 +1925,7 @@ end function hipblasDasumStridedBatchedFortran function hipblasScasumStridedBatchedFortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='hipblasScasumStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasumStridedBatchedFortran type(c_ptr), value :: handle @@ -1943,7 +1943,7 @@ end function hipblasScasumStridedBatchedFortran function hipblasDzasumStridedBatchedFortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='hipblasDzasumStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasumStridedBatchedFortran type(c_ptr), value :: handle @@ -1962,7 +1962,7 @@ end function hipblasDzasumStridedBatchedFortran function hipblasSnrm2Fortran(handle, n, x, incx, result) & bind(c, name='hipblasSnrm2Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2Fortran type(c_ptr), value :: handle @@ -1978,7 +1978,7 @@ end function hipblasSnrm2Fortran function hipblasDnrm2Fortran(handle, n, x, incx, result) & bind(c, name='hipblasDnrm2Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2Fortran type(c_ptr), value :: handle @@ -1994,7 +1994,7 @@ end function hipblasDnrm2Fortran function hipblasScnrm2Fortran(handle, n, x, incx, result) & bind(c, name='hipblasScnrm2Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2Fortran type(c_ptr), value :: handle @@ -2010,7 +2010,7 @@ end function hipblasScnrm2Fortran function hipblasDznrm2Fortran(handle, n, x, incx, result) & bind(c, name='hipblasDznrm2Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2Fortran type(c_ptr), value :: handle @@ -2027,7 +2027,7 @@ end function hipblasDznrm2Fortran function hipblasSnrm2BatchedFortran(handle, n, x, incx, batch_count, result) & bind(c, name='hipblasSnrm2BatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2BatchedFortran type(c_ptr), value :: handle @@ -2044,7 +2044,7 @@ end function hipblasSnrm2BatchedFortran function hipblasDnrm2BatchedFortran(handle, n, x, incx, batch_count, result) & bind(c, name='hipblasDnrm2BatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2BatchedFortran type(c_ptr), value :: handle @@ -2061,7 +2061,7 @@ end function hipblasDnrm2BatchedFortran function hipblasScnrm2BatchedFortran(handle, n, x, incx, batch_count, result) & bind(c, name='hipblasScnrm2BatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2BatchedFortran type(c_ptr), value :: handle @@ -2078,7 +2078,7 @@ end function hipblasScnrm2BatchedFortran function hipblasDznrm2BatchedFortran(handle, n, x, incx, batch_count, result) & bind(c, name='hipblasDznrm2BatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2BatchedFortran type(c_ptr), value :: handle @@ -2096,7 +2096,7 @@ end function hipblasDznrm2BatchedFortran function hipblasSnrm2StridedBatchedFortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='hipblasSnrm2StridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2StridedBatchedFortran type(c_ptr), value :: handle @@ -2114,7 +2114,7 @@ end function hipblasSnrm2StridedBatchedFortran function hipblasDnrm2StridedBatchedFortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='hipblasDnrm2StridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2StridedBatchedFortran type(c_ptr), value :: handle @@ -2132,7 +2132,7 @@ end function hipblasDnrm2StridedBatchedFortran function hipblasScnrm2StridedBatchedFortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='hipblasScnrm2StridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2StridedBatchedFortran type(c_ptr), value :: handle @@ -2150,7 +2150,7 @@ end function hipblasScnrm2StridedBatchedFortran function hipblasDznrm2StridedBatchedFortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='hipblasDznrm2StridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2StridedBatchedFortran type(c_ptr), value :: handle @@ -2169,7 +2169,7 @@ end function hipblasDznrm2StridedBatchedFortran function hipblasIsamaxFortran(handle, n, x, incx, result) & bind(c, name='hipblasIsamaxFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamaxFortran type(c_ptr), value :: handle @@ -2185,7 +2185,7 @@ end function hipblasIsamaxFortran function hipblasIdamaxFortran(handle, n, x, incx, result) & bind(c, name='hipblasIdamaxFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamaxFortran type(c_ptr), value :: handle @@ -2201,7 +2201,7 @@ end function hipblasIdamaxFortran function hipblasIcamaxFortran(handle, n, x, incx, result) & bind(c, name='hipblasIcamaxFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamaxFortran type(c_ptr), value :: handle @@ -2217,7 +2217,7 @@ end function hipblasIcamaxFortran function hipblasIzamaxFortran(handle, n, x, incx, result) & bind(c, name='hipblasIzamaxFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamaxFortran type(c_ptr), value :: handle @@ -2234,7 +2234,7 @@ end function hipblasIzamaxFortran function hipblasIsamaxBatchedFortran(handle, n, x, incx, batch_count, result) & bind(c, name='hipblasIsamaxBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamaxBatchedFortran type(c_ptr), value :: handle @@ -2251,7 +2251,7 @@ end function hipblasIsamaxBatchedFortran function hipblasIdamaxBatchedFortran(handle, n, x, incx, batch_count, result) & bind(c, name='hipblasIdamaxBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamaxBatchedFortran type(c_ptr), value :: handle @@ -2268,7 +2268,7 @@ end function hipblasIdamaxBatchedFortran function hipblasIcamaxBatchedFortran(handle, n, x, incx, batch_count, result) & bind(c, name='hipblasIcamaxBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamaxBatchedFortran type(c_ptr), value :: handle @@ -2285,7 +2285,7 @@ end function hipblasIcamaxBatchedFortran function hipblasIzamaxBatchedFortran(handle, n, x, incx, batch_count, result) & bind(c, name='hipblasIzamaxBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamaxBatchedFortran type(c_ptr), value :: handle @@ -2303,7 +2303,7 @@ end function hipblasIzamaxBatchedFortran function hipblasIsamaxStridedBatchedFortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='hipblasIsamaxStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamaxStridedBatchedFortran type(c_ptr), value :: handle @@ -2321,7 +2321,7 @@ end function hipblasIsamaxStridedBatchedFortran function hipblasIdamaxStridedBatchedFortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='hipblasIdamaxStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamaxStridedBatchedFortran type(c_ptr), value :: handle @@ -2339,7 +2339,7 @@ end function hipblasIdamaxStridedBatchedFortran function hipblasIcamaxStridedBatchedFortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='hipblasIcamaxStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamaxStridedBatchedFortran type(c_ptr), value :: handle @@ -2357,7 +2357,7 @@ end function hipblasIcamaxStridedBatchedFortran function hipblasIzamaxStridedBatchedFortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='hipblasIzamaxStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamaxStridedBatchedFortran type(c_ptr), value :: handle @@ -2376,7 +2376,7 @@ end function hipblasIzamaxStridedBatchedFortran function hipblasIsaminFortran(handle, n, x, incx, result) & bind(c, name='hipblasIsaminFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsaminFortran type(c_ptr), value :: handle @@ -2392,7 +2392,7 @@ end function hipblasIsaminFortran function hipblasIdaminFortran(handle, n, x, incx, result) & bind(c, name='hipblasIdaminFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdaminFortran type(c_ptr), value :: handle @@ -2408,7 +2408,7 @@ end function hipblasIdaminFortran function hipblasIcaminFortran(handle, n, x, incx, result) & bind(c, name='hipblasIcaminFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcaminFortran type(c_ptr), value :: handle @@ -2424,7 +2424,7 @@ end function hipblasIcaminFortran function hipblasIzaminFortran(handle, n, x, incx, result) & bind(c, name='hipblasIzaminFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzaminFortran type(c_ptr), value :: handle @@ -2441,7 +2441,7 @@ end function hipblasIzaminFortran function hipblasIsaminBatchedFortran(handle, n, x, incx, batch_count, result) & bind(c, name='hipblasIsaminBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsaminBatchedFortran type(c_ptr), value :: handle @@ -2458,7 +2458,7 @@ end function hipblasIsaminBatchedFortran function hipblasIdaminBatchedFortran(handle, n, x, incx, batch_count, result) & bind(c, name='hipblasIdaminBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdaminBatchedFortran type(c_ptr), value :: handle @@ -2475,7 +2475,7 @@ end function hipblasIdaminBatchedFortran function hipblasIcaminBatchedFortran(handle, n, x, incx, batch_count, result) & bind(c, name='hipblasIcaminBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcaminBatchedFortran type(c_ptr), value :: handle @@ -2492,7 +2492,7 @@ end function hipblasIcaminBatchedFortran function hipblasIzaminBatchedFortran(handle, n, x, incx, batch_count, result) & bind(c, name='hipblasIzaminBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzaminBatchedFortran type(c_ptr), value :: handle @@ -2510,7 +2510,7 @@ end function hipblasIzaminBatchedFortran function hipblasIsaminStridedBatchedFortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='hipblasIsaminStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsaminStridedBatchedFortran type(c_ptr), value :: handle @@ -2528,7 +2528,7 @@ end function hipblasIsaminStridedBatchedFortran function hipblasIdaminStridedBatchedFortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='hipblasIdaminStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdaminStridedBatchedFortran type(c_ptr), value :: handle @@ -2546,7 +2546,7 @@ end function hipblasIdaminStridedBatchedFortran function hipblasIcaminStridedBatchedFortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='hipblasIcaminStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcaminStridedBatchedFortran type(c_ptr), value :: handle @@ -2564,7 +2564,7 @@ end function hipblasIcaminStridedBatchedFortran function hipblasIzaminStridedBatchedFortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='hipblasIzaminStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzaminStridedBatchedFortran type(c_ptr), value :: handle @@ -2583,7 +2583,7 @@ end function hipblasIzaminStridedBatchedFortran function hipblasSrotFortran(handle, n, x, incx, y, incy, c, s) & bind(c, name='hipblasSrotFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotFortran type(c_ptr), value :: handle @@ -2602,7 +2602,7 @@ end function hipblasSrotFortran function hipblasDrotFortran(handle, n, x, incx, y, incy, c, s) & bind(c, name='hipblasDrotFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotFortran type(c_ptr), value :: handle @@ -2621,7 +2621,7 @@ end function hipblasDrotFortran function hipblasCrotFortran(handle, n, x, incx, y, incy, c, s) & bind(c, name='hipblasCrotFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotFortran type(c_ptr), value :: handle @@ -2640,7 +2640,7 @@ end function hipblasCrotFortran function hipblasCsrotFortran(handle, n, x, incx, y, incy, c, s) & bind(c, name='hipblasCsrotFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrotFortran type(c_ptr), value :: handle @@ -2659,7 +2659,7 @@ end function hipblasCsrotFortran function hipblasZrotFortran(handle, n, x, incx, y, incy, c, s) & bind(c, name='hipblasZrotFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotFortran type(c_ptr), value :: handle @@ -2678,7 +2678,7 @@ end function hipblasZrotFortran function hipblasZdrotFortran(handle, n, x, incx, y, incy, c, s) & bind(c, name='hipblasZdrotFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrotFortran type(c_ptr), value :: handle @@ -2698,7 +2698,7 @@ end function hipblasZdrotFortran function hipblasSrotBatchedFortran(handle, n, x, incx, y, incy, c, s, batch_count) & bind(c, name='hipblasSrotBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotBatchedFortran type(c_ptr), value :: handle @@ -2718,7 +2718,7 @@ end function hipblasSrotBatchedFortran function hipblasDrotBatchedFortran(handle, n, x, incx, y, incy, c, s, batch_count) & bind(c, name='hipblasDrotBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotBatchedFortran type(c_ptr), value :: handle @@ -2738,7 +2738,7 @@ end function hipblasDrotBatchedFortran function hipblasCrotBatchedFortran(handle, n, x, incx, y, incy, c, s, batch_count) & bind(c, name='hipblasCrotBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotBatchedFortran type(c_ptr), value :: handle @@ -2758,7 +2758,7 @@ end function hipblasCrotBatchedFortran function hipblasCsrotBatchedFortran(handle, n, x, incx, y, incy, c, s, batch_count) & bind(c, name='hipblasCsrotBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrotBatchedFortran type(c_ptr), value :: handle @@ -2778,7 +2778,7 @@ end function hipblasCsrotBatchedFortran function hipblasZrotBatchedFortran(handle, n, x, incx, y, incy, c, s, batch_count) & bind(c, name='hipblasZrotBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotBatchedFortran type(c_ptr), value :: handle @@ -2798,7 +2798,7 @@ end function hipblasZrotBatchedFortran function hipblasZdrotBatchedFortran(handle, n, x, incx, y, incy, c, s, batch_count) & bind(c, name='hipblasZdrotBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrotBatchedFortran type(c_ptr), value :: handle @@ -2819,7 +2819,7 @@ end function hipblasZdrotBatchedFortran function hipblasSrotStridedBatchedFortran(handle, n, x, incx, stride_x, y, incy, stride_y, c, s, batch_count) & bind(c, name='hipblasSrotStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotStridedBatchedFortran type(c_ptr), value :: handle @@ -2841,7 +2841,7 @@ end function hipblasSrotStridedBatchedFortran function hipblasDrotStridedBatchedFortran(handle, n, x, incx, stride_x, y, incy, stride_y, c, s, batch_count) & bind(c, name='hipblasDrotStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotStridedBatchedFortran type(c_ptr), value :: handle @@ -2863,7 +2863,7 @@ end function hipblasDrotStridedBatchedFortran function hipblasCrotStridedBatchedFortran(handle, n, x, incx, stride_x, y, incy, stride_y, c, s, batch_count) & bind(c, name='hipblasCrotStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotStridedBatchedFortran type(c_ptr), value :: handle @@ -2885,7 +2885,7 @@ end function hipblasCrotStridedBatchedFortran function hipblasCsrotStridedBatchedFortran(handle, n, x, incx, stride_x, y, incy, stride_y, c, s, batch_count) & bind(c, name='hipblasCsrotStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrotStridedBatchedFortran type(c_ptr), value :: handle @@ -2907,7 +2907,7 @@ end function hipblasCsrotStridedBatchedFortran function hipblasZrotStridedBatchedFortran(handle, n, x, incx, stride_x, y, incy, stride_y, c, s, batch_count) & bind(c, name='hipblasZrotStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotStridedBatchedFortran type(c_ptr), value :: handle @@ -2929,7 +2929,7 @@ end function hipblasZrotStridedBatchedFortran function hipblasZdrotStridedBatchedFortran(handle, n, x, incx, stride_x, y, incy, stride_y, c, s, batch_count) & bind(c, name='hipblasZdrotStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrotStridedBatchedFortran type(c_ptr), value :: handle @@ -2952,7 +2952,7 @@ end function hipblasZdrotStridedBatchedFortran function hipblasSrotgFortran(handle, a, b, c, s) & bind(c, name='hipblasSrotgFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotgFortran type(c_ptr), value :: handle @@ -2968,7 +2968,7 @@ end function hipblasSrotgFortran function hipblasDrotgFortran(handle, a, b, c, s) & bind(c, name='hipblasDrotgFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotgFortran type(c_ptr), value :: handle @@ -2984,7 +2984,7 @@ end function hipblasDrotgFortran function hipblasCrotgFortran(handle, a, b, c, s) & bind(c, name='hipblasCrotgFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotgFortran type(c_ptr), value :: handle @@ -3000,7 +3000,7 @@ end function hipblasCrotgFortran function hipblasZrotgFortran(handle, a, b, c, s) & bind(c, name='hipblasZrotgFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotgFortran type(c_ptr), value :: handle @@ -3017,7 +3017,7 @@ end function hipblasZrotgFortran function hipblasSrotgBatchedFortran(handle, a, b, c, s, batch_count) & bind(c, name='hipblasSrotgBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotgBatchedFortran type(c_ptr), value :: handle @@ -3034,7 +3034,7 @@ end function hipblasSrotgBatchedFortran function hipblasDrotgBatchedFortran(handle, a, b, c, s, batch_count) & bind(c, name='hipblasDrotgBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotgBatchedFortran type(c_ptr), value :: handle @@ -3051,7 +3051,7 @@ end function hipblasDrotgBatchedFortran function hipblasCrotgBatchedFortran(handle, a, b, c, s, batch_count) & bind(c, name='hipblasCrotgBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotgBatchedFortran type(c_ptr), value :: handle @@ -3068,7 +3068,7 @@ end function hipblasCrotgBatchedFortran function hipblasZrotgBatchedFortran(handle, a, b, c, s, batch_count) & bind(c, name='hipblasZrotgBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotgBatchedFortran type(c_ptr), value :: handle @@ -3086,7 +3086,7 @@ end function hipblasZrotgBatchedFortran function hipblasSrotgStridedBatchedFortran(handle, a, stride_a, b, stride_b, c, stride_c, s, stride_s, batch_count) & bind(c, name='hipblasSrotgStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotgStridedBatchedFortran type(c_ptr), value :: handle @@ -3107,7 +3107,7 @@ end function hipblasSrotgStridedBatchedFortran function hipblasDrotgStridedBatchedFortran(handle, a, stride_a, b, stride_b, c, stride_c, s, stride_s, batch_count) & bind(c, name='hipblasDrotgStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotgStridedBatchedFortran type(c_ptr), value :: handle @@ -3128,7 +3128,7 @@ end function hipblasDrotgStridedBatchedFortran function hipblasCrotgStridedBatchedFortran(handle, a, stride_a, b, stride_b, c, stride_c, s, stride_s, batch_count) & bind(c, name='hipblasCrotgStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotgStridedBatchedFortran type(c_ptr), value :: handle @@ -3149,7 +3149,7 @@ end function hipblasCrotgStridedBatchedFortran function hipblasZrotgStridedBatchedFortran(handle, a, stride_a, b, stride_b, c, stride_c, s, stride_s, batch_count) & bind(c, name='hipblasZrotgStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotgStridedBatchedFortran type(c_ptr), value :: handle @@ -3171,7 +3171,7 @@ end function hipblasZrotgStridedBatchedFortran function hipblasSrotmFortran(handle, n, x, incx, y, incy, param) & bind(c, name='hipblasSrotmFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmFortran type(c_ptr), value :: handle @@ -3189,7 +3189,7 @@ end function hipblasSrotmFortran function hipblasDrotmFortran(handle, n, x, incx, y, incy, param) & bind(c, name='hipblasDrotmFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmFortran type(c_ptr), value :: handle @@ -3208,7 +3208,7 @@ end function hipblasDrotmFortran function hipblasSrotmBatchedFortran(handle, n, x, incx, y, incy, param, batch_count) & bind(c, name='hipblasSrotmBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmBatchedFortran type(c_ptr), value :: handle @@ -3227,7 +3227,7 @@ end function hipblasSrotmBatchedFortran function hipblasDrotmBatchedFortran(handle, n, x, incx, y, incy, param, batch_count) & bind(c, name='hipblasDrotmBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmBatchedFortran type(c_ptr), value :: handle @@ -3248,7 +3248,7 @@ function hipblasSrotmStridedBatchedFortran(handle, n, x, incx, stride_x, y, incy stride_param, batch_count) & bind(c, name='hipblasSrotmStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmStridedBatchedFortran type(c_ptr), value :: handle @@ -3272,7 +3272,7 @@ function hipblasDrotmStridedBatchedFortran(handle, n, x, incx, stride_x, y, incy stride_param, batch_count) & bind(c, name='hipblasDrotmStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmStridedBatchedFortran type(c_ptr), value :: handle @@ -3296,7 +3296,7 @@ end function hipblasDrotmStridedBatchedFortran function hipblasSrotmgFortran(handle, d1, d2, x1, y1, param) & bind(c, name='hipblasSrotmgFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmgFortran type(c_ptr), value :: handle @@ -3313,7 +3313,7 @@ end function hipblasSrotmgFortran function hipblasDrotmgFortran(handle, d1, d2, x1, y1, param) & bind(c, name='hipblasDrotmgFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmgFortran type(c_ptr), value :: handle @@ -3331,7 +3331,7 @@ end function hipblasDrotmgFortran function hipblasSrotmgBatchedFortran(handle, d1, d2, x1, y1, param, batch_count) & bind(c, name='hipblasSrotmgBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmgBatchedFortran type(c_ptr), value :: handle @@ -3349,7 +3349,7 @@ end function hipblasSrotmgBatchedFortran function hipblasDrotmgBatchedFortran(handle, d1, d2, x1, y1, param, batch_count) & bind(c, name='hipblasDrotmgBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmgBatchedFortran type(c_ptr), value :: handle @@ -3369,7 +3369,7 @@ function hipblasSrotmgStridedBatchedFortran(handle, d1, stride_d1, d2, stride_d2 y1, stride_y1, param, stride_param, batch_count) & bind(c, name='hipblasSrotmgStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmgStridedBatchedFortran type(c_ptr), value :: handle @@ -3394,7 +3394,7 @@ function hipblasDrotmgStridedBatchedFortran(handle, d1, stride_d1, d2, stride_d2 y1, stride_y1, param, stride_param, batch_count) & bind(c, name='hipblasDrotmgStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmgStridedBatchedFortran type(c_ptr), value :: handle @@ -3423,7 +3423,7 @@ end function hipblasDrotmgStridedBatchedFortran function hipblasSgbmvFortran(handle, trans, m, n, kl, ku, alpha, A, lda, x, incx, beta, y, incy) & bind(c, name='hipblasSgbmvFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmvFortran type(c_ptr), value :: handle @@ -3447,7 +3447,7 @@ end function hipblasSgbmvFortran function hipblasDgbmvFortran(handle, trans, m, n, kl, ku, alpha, A, lda, x, incx, beta, y, incy) & bind(c, name='hipblasDgbmvFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmvFortran type(c_ptr), value :: handle @@ -3471,7 +3471,7 @@ end function hipblasDgbmvFortran function hipblasCgbmvFortran(handle, trans, m, n, kl, ku, alpha, A, lda, x, incx, beta, y, incy) & bind(c, name='hipblasCgbmvFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmvFortran type(c_ptr), value :: handle @@ -3495,7 +3495,7 @@ end function hipblasCgbmvFortran function hipblasZgbmvFortran(handle, trans, m, n, kl, ku, alpha, A, lda, x, incx, beta, y, incy) & bind(c, name='hipblasZgbmvFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmvFortran type(c_ptr), value :: handle @@ -3521,7 +3521,7 @@ function hipblasSgbmvBatchedFortran(handle, trans, m, n, kl, ku, alpha, A, lda, x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasSgbmvBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmvBatchedFortran type(c_ptr), value :: handle @@ -3548,7 +3548,7 @@ function hipblasDgbmvBatchedFortran(handle, trans, m, n, kl, ku, alpha, A, lda, x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasDgbmvBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmvBatchedFortran type(c_ptr), value :: handle @@ -3575,7 +3575,7 @@ function hipblasCgbmvBatchedFortran(handle, trans, m, n, kl, ku, alpha, A, lda, x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasCgbmvBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmvBatchedFortran type(c_ptr), value :: handle @@ -3602,7 +3602,7 @@ function hipblasZgbmvBatchedFortran(handle, trans, m, n, kl, ku, alpha, A, lda, x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasZgbmvBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmvBatchedFortran type(c_ptr), value :: handle @@ -3630,7 +3630,7 @@ function hipblasSgbmvStridedBatchedFortran(handle, trans, m, n, kl, ku, alpha, A x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasSgbmvStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmvStridedBatchedFortran type(c_ptr), value :: handle @@ -3660,7 +3660,7 @@ function hipblasDgbmvStridedBatchedFortran(handle, trans, m, n, kl, ku, alpha, A x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasDgbmvStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmvStridedBatchedFortran type(c_ptr), value :: handle @@ -3690,7 +3690,7 @@ function hipblasCgbmvStridedBatchedFortran(handle, trans, m, n, kl, ku, alpha, A x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasCgbmvStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmvStridedBatchedFortran type(c_ptr), value :: handle @@ -3720,7 +3720,7 @@ function hipblasZgbmvStridedBatchedFortran(handle, trans, m, n, kl, ku, alpha, A x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasZgbmvStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmvStridedBatchedFortran type(c_ptr), value :: handle @@ -3751,7 +3751,7 @@ function hipblasSgemvFortran(handle, trans, m, n, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='hipblasSgemvFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemvFortran type(c_ptr), value :: handle @@ -3774,7 +3774,7 @@ function hipblasDgemvFortran(handle, trans, m, n, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='hipblasDgemvFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemvFortran type(c_ptr), value :: handle @@ -3797,7 +3797,7 @@ function hipblasCgemvFortran(handle, trans, m, n, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='hipblasCgemvFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemvFortran type(c_ptr), value :: handle @@ -3820,7 +3820,7 @@ function hipblasZgemvFortran(handle, trans, m, n, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='hipblasZgemvFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemvFortran type(c_ptr), value :: handle @@ -3844,7 +3844,7 @@ function hipblasSgemvBatchedFortran(handle, trans, m, n, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasSgemvBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemvBatchedFortran type(c_ptr), value :: handle @@ -3868,7 +3868,7 @@ function hipblasDgemvBatchedFortran(handle, trans, m, n, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasDgemvBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemvBatchedFortran type(c_ptr), value :: handle @@ -3892,7 +3892,7 @@ function hipblasCgemvBatchedFortran(handle, trans, m, n, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasCgemvBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemvBatchedFortran type(c_ptr), value :: handle @@ -3916,7 +3916,7 @@ function hipblasZgemvBatchedFortran(handle, trans, m, n, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasZgemvBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemvBatchedFortran type(c_ptr), value :: handle @@ -3941,7 +3941,7 @@ function hipblasSgemvStridedBatchedFortran(handle, trans, m, n, alpha, A, lda, s x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasSgemvStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemvStridedBatchedFortran type(c_ptr), value :: handle @@ -3969,7 +3969,7 @@ function hipblasDgemvStridedBatchedFortran(handle, trans, m, n, alpha, A, lda, s x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasDgemvStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemvStridedBatchedFortran type(c_ptr), value :: handle @@ -3997,7 +3997,7 @@ function hipblasCgemvStridedBatchedFortran(handle, trans, m, n, alpha, A, lda, s x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasCgemvStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemvStridedBatchedFortran type(c_ptr), value :: handle @@ -4025,7 +4025,7 @@ function hipblasZgemvStridedBatchedFortran(handle, trans, m, n, alpha, A, lda, s x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasZgemvStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemvStridedBatchedFortran type(c_ptr), value :: handle @@ -4054,7 +4054,7 @@ function hipblasChbmvFortran(handle, uplo, n, k, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='hipblasChbmvFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmvFortran type(c_ptr), value :: handle @@ -4077,7 +4077,7 @@ function hipblasZhbmvFortran(handle, uplo, n, k, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='hipblasZhbmvFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmvFortran type(c_ptr), value :: handle @@ -4101,7 +4101,7 @@ function hipblasChbmvBatchedFortran(handle, uplo, n, k, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasChbmvBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmvBatchedFortran type(c_ptr), value :: handle @@ -4126,7 +4126,7 @@ function hipblasZhbmvBatchedFortran(handle, uplo, n, k, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasZhbmvBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmvBatchedFortran type(c_ptr), value :: handle @@ -4152,7 +4152,7 @@ function hipblasChbmvStridedBatchedFortran(handle, uplo, n, k, alpha, A, lda, st x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasChbmvStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmvStridedBatchedFortran type(c_ptr), value :: handle @@ -4180,7 +4180,7 @@ function hipblasZhbmvStridedBatchedFortran(handle, uplo, n, k, alpha, A, lda, st x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasZhbmvStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmvStridedBatchedFortran type(c_ptr), value :: handle @@ -4209,7 +4209,7 @@ function hipblasChemvFortran(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='hipblasChemvFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemvFortran type(c_ptr), value :: handle @@ -4231,7 +4231,7 @@ function hipblasZhemvFortran(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='hipblasZhemvFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemvFortran type(c_ptr), value :: handle @@ -4254,7 +4254,7 @@ function hipblasChemvBatchedFortran(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasChemvBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemvBatchedFortran type(c_ptr), value :: handle @@ -4278,7 +4278,7 @@ function hipblasZhemvBatchedFortran(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasZhemvBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemvBatchedFortran type(c_ptr), value :: handle @@ -4303,7 +4303,7 @@ function hipblasChemvStridedBatchedFortran(handle, uplo, n, alpha, A, lda, strid x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasChemvStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemvStridedBatchedFortran type(c_ptr), value :: handle @@ -4330,7 +4330,7 @@ function hipblasZhemvStridedBatchedFortran(handle, uplo, n, alpha, A, lda, strid x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasZhemvStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemvStridedBatchedFortran type(c_ptr), value :: handle @@ -4358,7 +4358,7 @@ function hipblasCherFortran(handle, uplo, n, alpha, & x, incx, A, lda) & bind(c, name='hipblasCherFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherFortran type(c_ptr), value :: handle @@ -4377,7 +4377,7 @@ function hipblasZherFortran(handle, uplo, n, alpha, & x, incx, A, lda) & bind(c, name='hipblasZherFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherFortran type(c_ptr), value :: handle @@ -4397,7 +4397,7 @@ function hipblasCherBatchedFortran(handle, uplo, n, alpha, & x, incx, A, lda, batch_count) & bind(c, name='hipblasCherBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherBatchedFortran type(c_ptr), value :: handle @@ -4417,7 +4417,7 @@ function hipblasZherBatchedFortran(handle, uplo, n, alpha, & x, incx, A, lda, batch_count) & bind(c, name='hipblasZherBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherBatchedFortran type(c_ptr), value :: handle @@ -4438,7 +4438,7 @@ function hipblasCherStridedBatchedFortran(handle, uplo, n, alpha, & x, incx, stride_x, A, lda, stride_A, batch_count) & bind(c, name='hipblasCherStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherStridedBatchedFortran type(c_ptr), value :: handle @@ -4461,7 +4461,7 @@ function hipblasZherStridedBatchedFortran(handle, uplo, n, alpha, & x, incx, stride_x, A, lda, stride_A, batch_count) & bind(c, name='hipblasZherStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherStridedBatchedFortran type(c_ptr), value :: handle @@ -4485,7 +4485,7 @@ function hipblasCher2Fortran(handle, uplo, n, alpha, & x, incx, y, incy, A, lda) & bind(c, name='hipblasCher2Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2Fortran type(c_ptr), value :: handle @@ -4507,7 +4507,7 @@ function hipblasZher2Fortran(handle, uplo, n, alpha, & x, incx, y, incy, A, lda) & bind(c, name='hipblasZher2Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2Fortran type(c_ptr), value :: handle @@ -4530,7 +4530,7 @@ function hipblasCher2BatchedFortran(handle, uplo, n, alpha, & x, incx, y, incy, A, lda, batch_count) & bind(c, name='hipblasCher2BatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2BatchedFortran type(c_ptr), value :: handle @@ -4553,7 +4553,7 @@ function hipblasZher2BatchedFortran(handle, uplo, n, alpha, & x, incx, y, incy, A, lda, batch_count) & bind(c, name='hipblasZher2BatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2BatchedFortran type(c_ptr), value :: handle @@ -4577,7 +4577,7 @@ function hipblasCher2StridedBatchedFortran(handle, uplo, n, alpha, & x, incx, stride_x, y, incy, stride_y, A, lda, stride_A, batch_count) & bind(c, name='hipblasCher2StridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2StridedBatchedFortran type(c_ptr), value :: handle @@ -4603,7 +4603,7 @@ function hipblasZher2StridedBatchedFortran(handle, uplo, n, alpha, & x, incx, stride_x, y, incy, stride_y, A, lda, stride_A, batch_count) & bind(c, name='hipblasZher2StridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2StridedBatchedFortran type(c_ptr), value :: handle @@ -4630,7 +4630,7 @@ function hipblasChpmvFortran(handle, uplo, n, alpha, AP, & x, incx, beta, y, incy) & bind(c, name='hipblasChpmvFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmvFortran type(c_ptr), value :: handle @@ -4652,7 +4652,7 @@ function hipblasZhpmvFortran(handle, uplo, n, alpha, AP, & x, incx, beta, y, incy) & bind(c, name='hipblasZhpmvFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmvFortran type(c_ptr), value :: handle @@ -4675,7 +4675,7 @@ function hipblasChpmvBatchedFortran(handle, uplo, n, alpha, AP, & x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasChpmvBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmvBatchedFortran type(c_ptr), value :: handle @@ -4698,7 +4698,7 @@ function hipblasZhpmvBatchedFortran(handle, uplo, n, alpha, AP, & x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasZhpmvBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmvBatchedFortran type(c_ptr), value :: handle @@ -4722,7 +4722,7 @@ function hipblasChpmvStridedBatchedFortran(handle, uplo, n, alpha, AP, stride_AP x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasChpmvStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmvStridedBatchedFortran type(c_ptr), value :: handle @@ -4748,7 +4748,7 @@ function hipblasZhpmvStridedBatchedFortran(handle, uplo, n, alpha, AP, stride_AP x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasZhpmvStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmvStridedBatchedFortran type(c_ptr), value :: handle @@ -4775,7 +4775,7 @@ function hipblasChprFortran(handle, uplo, n, alpha, & x, incx, AP) & bind(c, name='hipblasChprFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChprFortran type(c_ptr), value :: handle @@ -4793,7 +4793,7 @@ function hipblasZhprFortran(handle, uplo, n, alpha, & x, incx, AP) & bind(c, name='hipblasZhprFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhprFortran type(c_ptr), value :: handle @@ -4812,7 +4812,7 @@ function hipblasChprBatchedFortran(handle, uplo, n, alpha, & x, incx, AP, batch_count) & bind(c, name='hipblasChprBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChprBatchedFortran type(c_ptr), value :: handle @@ -4831,7 +4831,7 @@ function hipblasZhprBatchedFortran(handle, uplo, n, alpha, & x, incx, AP, batch_count) & bind(c, name='hipblasZhprBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhprBatchedFortran type(c_ptr), value :: handle @@ -4851,7 +4851,7 @@ function hipblasChprStridedBatchedFortran(handle, uplo, n, alpha, & x, incx, stride_x, AP, stride_AP, batch_count) & bind(c, name='hipblasChprStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChprStridedBatchedFortran type(c_ptr), value :: handle @@ -4873,7 +4873,7 @@ function hipblasZhprStridedBatchedFortran(handle, uplo, n, alpha, & x, incx, stride_x, AP, stride_AP, batch_count) & bind(c, name='hipblasZhprStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhprStridedBatchedFortran type(c_ptr), value :: handle @@ -4896,7 +4896,7 @@ function hipblasChpr2Fortran(handle, uplo, n, alpha, & x, incx, y, incy, AP) & bind(c, name='hipblasChpr2Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2Fortran type(c_ptr), value :: handle @@ -4917,7 +4917,7 @@ function hipblasZhpr2Fortran(handle, uplo, n, alpha, & x, incx, y, incy, AP) & bind(c, name='hipblasZhpr2Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2Fortran type(c_ptr), value :: handle @@ -4939,7 +4939,7 @@ function hipblasChpr2BatchedFortran(handle, uplo, n, alpha, & x, incx, y, incy, AP, batch_count) & bind(c, name='hipblasChpr2BatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2BatchedFortran type(c_ptr), value :: handle @@ -4961,7 +4961,7 @@ function hipblasZhpr2BatchedFortran(handle, uplo, n, alpha, & x, incx, y, incy, AP, batch_count) & bind(c, name='hipblasZhpr2BatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2BatchedFortran type(c_ptr), value :: handle @@ -4984,7 +4984,7 @@ function hipblasChpr2StridedBatchedFortran(handle, uplo, n, alpha, & x, incx, stride_x, y, incy, stride_y, AP, stride_AP, batch_count) & bind(c, name='hipblasChpr2StridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2StridedBatchedFortran type(c_ptr), value :: handle @@ -5009,7 +5009,7 @@ function hipblasZhpr2StridedBatchedFortran(handle, uplo, n, alpha, & x, incx, stride_x, y, incy, stride_y, AP, stride_AP, batch_count) & bind(c, name='hipblasZhpr2StridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2StridedBatchedFortran type(c_ptr), value :: handle @@ -5035,7 +5035,7 @@ function hipblasStrmvFortran(handle, uplo, transA, diag, m, & A, lda, x, incx) & bind(c, name='hipblasStrmvFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmvFortran type(c_ptr), value :: handle @@ -5056,7 +5056,7 @@ function hipblasDtrmvFortran(handle, uplo, transA, diag, m, & A, lda, x, incx) & bind(c, name='hipblasDtrmvFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmvFortran type(c_ptr), value :: handle @@ -5077,7 +5077,7 @@ function hipblasCtrmvFortran(handle, uplo, transA, diag, m, & A, lda, x, incx) & bind(c, name='hipblasCtrmvFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmvFortran type(c_ptr), value :: handle @@ -5098,7 +5098,7 @@ function hipblasZtrmvFortran(handle, uplo, transA, diag, m, & A, lda, x, incx) & bind(c, name='hipblasZtrmvFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmvFortran type(c_ptr), value :: handle @@ -5120,7 +5120,7 @@ function hipblasStrmvBatchedFortran(handle, uplo, transA, diag, m, & A, lda, x, incx, batch_count) & bind(c, name='hipblasStrmvBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmvBatchedFortran type(c_ptr), value :: handle @@ -5142,7 +5142,7 @@ function hipblasDtrmvBatchedFortran(handle, uplo, transA, diag, m, & A, lda, x, incx, batch_count) & bind(c, name='hipblasDtrmvBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmvBatchedFortran type(c_ptr), value :: handle @@ -5164,7 +5164,7 @@ function hipblasCtrmvBatchedFortran(handle, uplo, transA, diag, m, & A, lda, x, incx, batch_count) & bind(c, name='hipblasCtrmvBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmvBatchedFortran type(c_ptr), value :: handle @@ -5186,7 +5186,7 @@ function hipblasZtrmvBatchedFortran(handle, uplo, transA, diag, m, & A, lda, x, incx, batch_count) & bind(c, name='hipblasZtrmvBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmvBatchedFortran type(c_ptr), value :: handle @@ -5209,7 +5209,7 @@ function hipblasStrmvStridedBatchedFortran(handle, uplo, transA, diag, m, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='hipblasStrmvStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmvStridedBatchedFortran type(c_ptr), value :: handle @@ -5233,7 +5233,7 @@ function hipblasDtrmvStridedBatchedFortran(handle, uplo, transA, diag, m, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='hipblasDtrmvStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmvStridedBatchedFortran type(c_ptr), value :: handle @@ -5257,7 +5257,7 @@ function hipblasCtrmvStridedBatchedFortran(handle, uplo, transA, diag, m, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='hipblasCtrmvStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmvStridedBatchedFortran type(c_ptr), value :: handle @@ -5281,7 +5281,7 @@ function hipblasZtrmvStridedBatchedFortran(handle, uplo, transA, diag, m, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='hipblasZtrmvStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmvStridedBatchedFortran type(c_ptr), value :: handle @@ -5306,7 +5306,7 @@ function hipblasStpmvFortran(handle, uplo, transA, diag, m, & AP, x, incx) & bind(c, name='hipblasStpmvFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpmvFortran type(c_ptr), value :: handle @@ -5326,7 +5326,7 @@ function hipblasDtpmvFortran(handle, uplo, transA, diag, m, & AP, x, incx) & bind(c, name='hipblasDtpmvFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpmvFortran type(c_ptr), value :: handle @@ -5346,7 +5346,7 @@ function hipblasCtpmvFortran(handle, uplo, transA, diag, m, & AP, x, incx) & bind(c, name='hipblasCtpmvFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpmvFortran type(c_ptr), value :: handle @@ -5366,7 +5366,7 @@ function hipblasZtpmvFortran(handle, uplo, transA, diag, m, & AP, x, incx) & bind(c, name='hipblasZtpmvFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpmvFortran type(c_ptr), value :: handle @@ -5387,7 +5387,7 @@ function hipblasStpmvBatchedFortran(handle, uplo, transA, diag, m, & AP, x, incx, batch_count) & bind(c, name='hipblasStpmvBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpmvBatchedFortran type(c_ptr), value :: handle @@ -5408,7 +5408,7 @@ function hipblasDtpmvBatchedFortran(handle, uplo, transA, diag, m, & AP, x, incx, batch_count) & bind(c, name='hipblasDtpmvBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpmvBatchedFortran type(c_ptr), value :: handle @@ -5429,7 +5429,7 @@ function hipblasCtpmvBatchedFortran(handle, uplo, transA, diag, m, & AP, x, incx, batch_count) & bind(c, name='hipblasCtpmvBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpmvBatchedFortran type(c_ptr), value :: handle @@ -5450,7 +5450,7 @@ function hipblasZtpmvBatchedFortran(handle, uplo, transA, diag, m, & AP, x, incx, batch_count) & bind(c, name='hipblasZtpmvBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpmvBatchedFortran type(c_ptr), value :: handle @@ -5472,7 +5472,7 @@ function hipblasStpmvStridedBatchedFortran(handle, uplo, transA, diag, m, & AP, stride_AP, x, incx, stride_x, batch_count) & bind(c, name='hipblasStpmvStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpmvStridedBatchedFortran type(c_ptr), value :: handle @@ -5495,7 +5495,7 @@ function hipblasDtpmvStridedBatchedFortran(handle, uplo, transA, diag, m, & AP, stride_AP, x, incx, stride_x, batch_count) & bind(c, name='hipblasDtpmvStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpmvStridedBatchedFortran type(c_ptr), value :: handle @@ -5518,7 +5518,7 @@ function hipblasCtpmvStridedBatchedFortran(handle, uplo, transA, diag, m, & AP, stride_AP, x, incx, stride_x, batch_count) & bind(c, name='hipblasCtpmvStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpmvStridedBatchedFortran type(c_ptr), value :: handle @@ -5541,7 +5541,7 @@ function hipblasZtpmvStridedBatchedFortran(handle, uplo, transA, diag, m, & AP, stride_AP, x, incx, stride_x, batch_count) & bind(c, name='hipblasZtpmvStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpmvStridedBatchedFortran type(c_ptr), value :: handle @@ -5565,7 +5565,7 @@ function hipblasStbmvFortran(handle, uplo, transA, diag, m, k, & A, lda, x, incx) & bind(c, name='hipblasStbmvFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbmvFortran type(c_ptr), value :: handle @@ -5587,7 +5587,7 @@ function hipblasDtbmvFortran(handle, uplo, transA, diag, m, k, & A, lda, x, incx) & bind(c, name='hipblasDtbmvFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbmvFortran type(c_ptr), value :: handle @@ -5609,7 +5609,7 @@ function hipblasCtbmvFortran(handle, uplo, transA, diag, m, k, & A, lda, x, incx) & bind(c, name='hipblasCtbmvFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbmvFortran type(c_ptr), value :: handle @@ -5631,7 +5631,7 @@ function hipblasZtbmvFortran(handle, uplo, transA, diag, m, k, & A, lda, x, incx) & bind(c, name='hipblasZtbmvFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbmvFortran type(c_ptr), value :: handle @@ -5654,7 +5654,7 @@ function hipblasStbmvBatchedFortran(handle, uplo, transA, diag, m, k, & A, lda, x, incx, batch_count) & bind(c, name='hipblasStbmvBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbmvBatchedFortran type(c_ptr), value :: handle @@ -5677,7 +5677,7 @@ function hipblasDtbmvBatchedFortran(handle, uplo, transA, diag, m, k, & A, lda, x, incx, batch_count) & bind(c, name='hipblasDtbmvBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbmvBatchedFortran type(c_ptr), value :: handle @@ -5700,7 +5700,7 @@ function hipblasCtbmvBatchedFortran(handle, uplo, transA, diag, m, k, & A, lda, x, incx, batch_count) & bind(c, name='hipblasCtbmvBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbmvBatchedFortran type(c_ptr), value :: handle @@ -5723,7 +5723,7 @@ function hipblasZtbmvBatchedFortran(handle, uplo, transA, diag, m, k, & A, lda, x, incx, batch_count) & bind(c, name='hipblasZtbmvBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbmvBatchedFortran type(c_ptr), value :: handle @@ -5747,7 +5747,7 @@ function hipblasStbmvStridedBatchedFortran(handle, uplo, transA, diag, m, k, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='hipblasStbmvStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbmvStridedBatchedFortran type(c_ptr), value :: handle @@ -5772,7 +5772,7 @@ function hipblasDtbmvStridedBatchedFortran(handle, uplo, transA, diag, m, k, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='hipblasDtbmvStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbmvStridedBatchedFortran type(c_ptr), value :: handle @@ -5797,7 +5797,7 @@ function hipblasCtbmvStridedBatchedFortran(handle, uplo, transA, diag, m, k, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='hipblasCtbmvStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbmvStridedBatchedFortran type(c_ptr), value :: handle @@ -5822,7 +5822,7 @@ function hipblasZtbmvStridedBatchedFortran(handle, uplo, transA, diag, m, k, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='hipblasZtbmvStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbmvStridedBatchedFortran type(c_ptr), value :: handle @@ -5848,7 +5848,7 @@ function hipblasStbsvFortran(handle, uplo, transA, diag, n, k, & A, lda, x, incx) & bind(c, name='hipblasStbsvFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbsvFortran type(c_ptr), value :: handle @@ -5870,7 +5870,7 @@ function hipblasDtbsvFortran(handle, uplo, transA, diag, n, k, & A, lda, x, incx) & bind(c, name='hipblasDtbsvFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbsvFortran type(c_ptr), value :: handle @@ -5892,7 +5892,7 @@ function hipblasCtbsvFortran(handle, uplo, transA, diag, n, k, & A, lda, x, incx) & bind(c, name='hipblasCtbsvFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbsvFortran type(c_ptr), value :: handle @@ -5914,7 +5914,7 @@ function hipblasZtbsvFortran(handle, uplo, transA, diag, n, k, & A, lda, x, incx) & bind(c, name='hipblasZtbsvFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbsvFortran type(c_ptr), value :: handle @@ -5937,7 +5937,7 @@ function hipblasStbsvBatchedFortran(handle, uplo, transA, diag, n, k, & A, lda, x, incx, batch_count) & bind(c, name='hipblasStbsvBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbsvBatchedFortran type(c_ptr), value :: handle @@ -5960,7 +5960,7 @@ function hipblasDtbsvBatchedFortran(handle, uplo, transA, diag, n, k, & A, lda, x, incx, batch_count) & bind(c, name='hipblasDtbsvBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbsvBatchedFortran type(c_ptr), value :: handle @@ -5983,7 +5983,7 @@ function hipblasCtbsvBatchedFortran(handle, uplo, transA, diag, n, k, & A, lda, x, incx, batch_count) & bind(c, name='hipblasCtbsvBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbsvBatchedFortran type(c_ptr), value :: handle @@ -6006,7 +6006,7 @@ function hipblasZtbsvBatchedFortran(handle, uplo, transA, diag, n, k, & A, lda, x, incx, batch_count) & bind(c, name='hipblasZtbsvBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbsvBatchedFortran type(c_ptr), value :: handle @@ -6030,7 +6030,7 @@ function hipblasStbsvStridedBatchedFortran(handle, uplo, transA, diag, n, k, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='hipblasStbsvStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbsvStridedBatchedFortran type(c_ptr), value :: handle @@ -6055,7 +6055,7 @@ function hipblasDtbsvStridedBatchedFortran(handle, uplo, transA, diag, n, k, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='hipblasDtbsvStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbsvStridedBatchedFortran type(c_ptr), value :: handle @@ -6080,7 +6080,7 @@ function hipblasCtbsvStridedBatchedFortran(handle, uplo, transA, diag, n, k, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='hipblasCtbsvStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbsvStridedBatchedFortran type(c_ptr), value :: handle @@ -6105,7 +6105,7 @@ function hipblasZtbsvStridedBatchedFortran(handle, uplo, transA, diag, n, k, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='hipblasZtbsvStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbsvStridedBatchedFortran type(c_ptr), value :: handle @@ -6131,7 +6131,7 @@ function hipblasStpsvFortran(handle, uplo, transA, diag, n, & AP, x, incx) & bind(c, name='hipblasStpsvFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpsvFortran type(c_ptr), value :: handle @@ -6151,7 +6151,7 @@ function hipblasDtpsvFortran(handle, uplo, transA, diag, n, & AP, x, incx) & bind(c, name='hipblasDtpsvFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpsvFortran type(c_ptr), value :: handle @@ -6171,7 +6171,7 @@ function hipblasCtpsvFortran(handle, uplo, transA, diag, n, & AP, x, incx) & bind(c, name='hipblasCtpsvFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpsvFortran type(c_ptr), value :: handle @@ -6191,7 +6191,7 @@ function hipblasZtpsvFortran(handle, uplo, transA, diag, n, & AP, x, incx) & bind(c, name='hipblasZtpsvFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpsvFortran type(c_ptr), value :: handle @@ -6212,7 +6212,7 @@ function hipblasStpsvBatchedFortran(handle, uplo, transA, diag, n, & AP, x, incx, batch_count) & bind(c, name='hipblasStpsvBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpsvBatchedFortran type(c_ptr), value :: handle @@ -6233,7 +6233,7 @@ function hipblasDtpsvBatchedFortran(handle, uplo, transA, diag, n, & AP, x, incx, batch_count) & bind(c, name='hipblasDtpsvBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpsvBatchedFortran type(c_ptr), value :: handle @@ -6254,7 +6254,7 @@ function hipblasCtpsvBatchedFortran(handle, uplo, transA, diag, n, & AP, x, incx, batch_count) & bind(c, name='hipblasCtpsvBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpsvBatchedFortran type(c_ptr), value :: handle @@ -6275,7 +6275,7 @@ function hipblasZtpsvBatchedFortran(handle, uplo, transA, diag, n, & AP, x, incx, batch_count) & bind(c, name='hipblasZtpsvBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpsvBatchedFortran type(c_ptr), value :: handle @@ -6297,7 +6297,7 @@ function hipblasStpsvStridedBatchedFortran(handle, uplo, transA, diag, n, & AP, stride_AP, x, incx, stride_x, batch_count) & bind(c, name='hipblasStpsvStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpsvStridedBatchedFortran type(c_ptr), value :: handle @@ -6320,7 +6320,7 @@ function hipblasDtpsvStridedBatchedFortran(handle, uplo, transA, diag, n, & AP, stride_AP, x, incx, stride_x, batch_count) & bind(c, name='hipblasDtpsvStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpsvStridedBatchedFortran type(c_ptr), value :: handle @@ -6343,7 +6343,7 @@ function hipblasCtpsvStridedBatchedFortran(handle, uplo, transA, diag, n, & AP, stride_AP, x, incx, stride_x, batch_count) & bind(c, name='hipblasCtpsvStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpsvStridedBatchedFortran type(c_ptr), value :: handle @@ -6366,7 +6366,7 @@ function hipblasZtpsvStridedBatchedFortran(handle, uplo, transA, diag, n, & AP, stride_AP, x, incx, stride_x, batch_count) & bind(c, name='hipblasZtpsvStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpsvStridedBatchedFortran type(c_ptr), value :: handle @@ -6390,7 +6390,7 @@ function hipblasSsymvFortran(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='hipblasSsymvFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymvFortran type(c_ptr), value :: handle @@ -6413,7 +6413,7 @@ function hipblasDsymvFortran(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='hipblasDsymvFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymvFortran type(c_ptr), value :: handle @@ -6436,7 +6436,7 @@ function hipblasCsymvFortran(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='hipblasCsymvFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymvFortran type(c_ptr), value :: handle @@ -6459,7 +6459,7 @@ function hipblasZsymvFortran(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='hipblasZsymvFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymvFortran type(c_ptr), value :: handle @@ -6483,7 +6483,7 @@ function hipblasSsymvBatchedFortran(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasSsymvBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymvBatchedFortran type(c_ptr), value :: handle @@ -6507,7 +6507,7 @@ function hipblasDsymvBatchedFortran(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasDsymvBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymvBatchedFortran type(c_ptr), value :: handle @@ -6531,7 +6531,7 @@ function hipblasCsymvBatchedFortran(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasCsymvBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymvBatchedFortran type(c_ptr), value :: handle @@ -6555,7 +6555,7 @@ function hipblasZsymvBatchedFortran(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasZsymvBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymvBatchedFortran type(c_ptr), value :: handle @@ -6580,7 +6580,7 @@ function hipblasSsymvStridedBatchedFortran(handle, uplo, n, alpha, A, lda, strid x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasSsymvStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymvStridedBatchedFortran type(c_ptr), value :: handle @@ -6607,7 +6607,7 @@ function hipblasDsymvStridedBatchedFortran(handle, uplo, n, alpha, A, lda, strid x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasDsymvStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymvStridedBatchedFortran type(c_ptr), value :: handle @@ -6634,7 +6634,7 @@ function hipblasCsymvStridedBatchedFortran(handle, uplo, n, alpha, A, lda, strid x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasCsymvStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymvStridedBatchedFortran type(c_ptr), value :: handle @@ -6661,7 +6661,7 @@ function hipblasZsymvStridedBatchedFortran(handle, uplo, n, alpha, A, lda, strid x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasZsymvStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymvStridedBatchedFortran type(c_ptr), value :: handle @@ -6689,7 +6689,7 @@ function hipblasSspmvFortran(handle, uplo, n, alpha, AP, & x, incx, beta, y, incy) & bind(c, name='hipblasSspmvFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmvFortran type(c_ptr), value :: handle @@ -6711,7 +6711,7 @@ function hipblasDspmvFortran(handle, uplo, n, alpha, AP, & x, incx, beta, y, incy) & bind(c, name='hipblasDspmvFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmvFortran type(c_ptr), value :: handle @@ -6734,7 +6734,7 @@ function hipblasSspmvBatchedFortran(handle, uplo, n, alpha, AP, & x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasSspmvBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmvBatchedFortran type(c_ptr), value :: handle @@ -6757,7 +6757,7 @@ function hipblasDspmvBatchedFortran(handle, uplo, n, alpha, AP, & x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasDspmvBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmvBatchedFortran type(c_ptr), value :: handle @@ -6781,7 +6781,7 @@ function hipblasSspmvStridedBatchedFortran(handle, uplo, n, alpha, AP, stride_AP x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasSspmvStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmvStridedBatchedFortran type(c_ptr), value :: handle @@ -6807,7 +6807,7 @@ function hipblasDspmvStridedBatchedFortran(handle, uplo, n, alpha, AP, stride_AP x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasDspmvStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmvStridedBatchedFortran type(c_ptr), value :: handle @@ -6834,7 +6834,7 @@ function hipblasSsbmvFortran(handle, uplo, n, k, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='hipblasSsbmvFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmvFortran type(c_ptr), value :: handle @@ -6858,7 +6858,7 @@ function hipblasDsbmvFortran(handle, uplo, n, k, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='hipblasDsbmvFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmvFortran type(c_ptr), value :: handle @@ -6883,7 +6883,7 @@ function hipblasSsbmvBatchedFortran(handle, uplo, n, k, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasSsbmvBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmvBatchedFortran type(c_ptr), value :: handle @@ -6908,7 +6908,7 @@ function hipblasDsbmvBatchedFortran(handle, uplo, n, k, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasDsbmvBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmvBatchedFortran type(c_ptr), value :: handle @@ -6934,7 +6934,7 @@ function hipblasSsbmvStridedBatchedFortran(handle, uplo, n, k, alpha, A, lda, st x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasSsbmvStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmvStridedBatchedFortran type(c_ptr), value :: handle @@ -6962,7 +6962,7 @@ function hipblasDsbmvStridedBatchedFortran(handle, uplo, n, k, alpha, A, lda, st x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasDsbmvStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmvStridedBatchedFortran type(c_ptr), value :: handle @@ -6991,7 +6991,7 @@ function hipblasSgerFortran(handle, m, n, alpha, x, incx, & y, incy, A, lda) & bind(c, name='hipblasSgerFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgerFortran type(c_ptr), value :: handle @@ -7013,7 +7013,7 @@ function hipblasDgerFortran(handle, m, n, alpha, x, incx, & y, incy, A, lda) & bind(c, name='hipblasDgerFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgerFortran type(c_ptr), value :: handle @@ -7035,7 +7035,7 @@ function hipblasCgeruFortran(handle, m, n, alpha, x, incx, & y, incy, A, lda) & bind(c, name='hipblasCgeruFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeruFortran type(c_ptr), value :: handle @@ -7057,7 +7057,7 @@ function hipblasCgercFortran(handle, m, n, alpha, x, incx, & y, incy, A, lda) & bind(c, name='hipblasCgercFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgercFortran type(c_ptr), value :: handle @@ -7079,7 +7079,7 @@ function hipblasZgeruFortran(handle, m, n, alpha, x, incx, & y, incy, A, lda) & bind(c, name='hipblasZgeruFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeruFortran type(c_ptr), value :: handle @@ -7101,7 +7101,7 @@ function hipblasZgercFortran(handle, m, n, alpha, x, incx, & y, incy, A, lda) & bind(c, name='hipblasZgercFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgercFortran type(c_ptr), value :: handle @@ -7124,7 +7124,7 @@ function hipblasSgerBatchedFortran(handle, m, n, alpha, x, incx, & y, incy, A, lda, batch_count) & bind(c, name='hipblasSgerBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgerBatchedFortran type(c_ptr), value :: handle @@ -7147,7 +7147,7 @@ function hipblasDgerBatchedFortran(handle, m, n, alpha, x, incx, & y, incy, A, lda, batch_count) & bind(c, name='hipblasDgerBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgerBatchedFortran type(c_ptr), value :: handle @@ -7170,7 +7170,7 @@ function hipblasCgeruBatchedFortran(handle, m, n, alpha, x, incx, & y, incy, A, lda, batch_count) & bind(c, name='hipblasCgeruBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeruBatchedFortran type(c_ptr), value :: handle @@ -7193,7 +7193,7 @@ function hipblasCgercBatchedFortran(handle, m, n, alpha, x, incx, & y, incy, A, lda, batch_count) & bind(c, name='hipblasCgercBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgercBatchedFortran type(c_ptr), value :: handle @@ -7216,7 +7216,7 @@ function hipblasZgeruBatchedFortran(handle, m, n, alpha, x, incx, & y, incy, A, lda, batch_count) & bind(c, name='hipblasZgeruBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeruBatchedFortran type(c_ptr), value :: handle @@ -7239,7 +7239,7 @@ function hipblasZgercBatchedFortran(handle, m, n, alpha, x, incx, & y, incy, A, lda, batch_count) & bind(c, name='hipblasZgercBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgercBatchedFortran type(c_ptr), value :: handle @@ -7263,7 +7263,7 @@ function hipblasSgerStridedBatchedFortran(handle, m, n, alpha, x, incx, stride_x y, incy, stride_y, A, lda, stride_A, batch_count) & bind(c, name='hipblasSgerStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgerStridedBatchedFortran type(c_ptr), value :: handle @@ -7289,7 +7289,7 @@ function hipblasDgerStridedBatchedFortran(handle, m, n, alpha, x, incx, stride_x y, incy, stride_y, A, lda, stride_A, batch_count) & bind(c, name='hipblasDgerStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgerStridedBatchedFortran type(c_ptr), value :: handle @@ -7315,7 +7315,7 @@ function hipblasCgeruStridedBatchedFortran(handle, m, n, alpha, x, incx, stride_ y, incy, stride_y, A, lda, stride_A, batch_count) & bind(c, name='hipblasCgeruStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeruStridedBatchedFortran type(c_ptr), value :: handle @@ -7341,7 +7341,7 @@ function hipblasCgercStridedBatchedFortran(handle, m, n, alpha, x, incx, stride_ y, incy, stride_y, A, lda, stride_A, batch_count) & bind(c, name='hipblasCgercStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgercStridedBatchedFortran type(c_ptr), value :: handle @@ -7367,7 +7367,7 @@ function hipblasZgeruStridedBatchedFortran(handle, m, n, alpha, x, incx, stride_ y, incy, stride_y, A, lda, stride_A, batch_count) & bind(c, name='hipblasZgeruStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeruStridedBatchedFortran type(c_ptr), value :: handle @@ -7393,7 +7393,7 @@ function hipblasZgercStridedBatchedFortran(handle, m, n, alpha, x, incx, stride_ y, incy, stride_y, A, lda, stride_A, batch_count) & bind(c, name='hipblasZgercStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgercStridedBatchedFortran type(c_ptr), value :: handle @@ -7419,7 +7419,7 @@ end function hipblasZgercStridedBatchedFortran function hipblasSsprFortran(handle, uplo, n, alpha, x, incx, AP) & bind(c, name='hipblasSsprFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsprFortran type(c_ptr), value :: handle @@ -7437,7 +7437,7 @@ end function hipblasSsprFortran function hipblasDsprFortran(handle, uplo, n, alpha, x, incx, AP) & bind(c, name='hipblasDsprFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsprFortran type(c_ptr), value :: handle @@ -7455,7 +7455,7 @@ end function hipblasDsprFortran function hipblasCsprFortran(handle, uplo, n, alpha, x, incx, AP) & bind(c, name='hipblasCsprFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsprFortran type(c_ptr), value :: handle @@ -7473,7 +7473,7 @@ end function hipblasCsprFortran function hipblasZsprFortran(handle, uplo, n, alpha, x, incx, AP) & bind(c, name='hipblasZsprFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsprFortran type(c_ptr), value :: handle @@ -7492,7 +7492,7 @@ end function hipblasZsprFortran function hipblasSsprBatchedFortran(handle, uplo, n, alpha, x, incx, AP, batch_count) & bind(c, name='hipblasSsprBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsprBatchedFortran type(c_ptr), value :: handle @@ -7511,7 +7511,7 @@ end function hipblasSsprBatchedFortran function hipblasDsprBatchedFortran(handle, uplo, n, alpha, x, incx, AP, batch_count) & bind(c, name='hipblasDsprBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsprBatchedFortran type(c_ptr), value :: handle @@ -7530,7 +7530,7 @@ end function hipblasDsprBatchedFortran function hipblasCsprBatchedFortran(handle, uplo, n, alpha, x, incx, AP, batch_count) & bind(c, name='hipblasCsprBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsprBatchedFortran type(c_ptr), value :: handle @@ -7549,7 +7549,7 @@ end function hipblasCsprBatchedFortran function hipblasZsprBatchedFortran(handle, uplo, n, alpha, x, incx, AP, batch_count) & bind(c, name='hipblasZsprBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsprBatchedFortran type(c_ptr), value :: handle @@ -7570,7 +7570,7 @@ function hipblasSsprStridedBatchedFortran(handle, uplo, n, alpha, x, incx, strid AP, stride_AP, batch_count) & bind(c, name='hipblasSsprStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsprStridedBatchedFortran type(c_ptr), value :: handle @@ -7592,7 +7592,7 @@ function hipblasDsprStridedBatchedFortran(handle, uplo, n, alpha, x, incx, strid AP, stride_AP, batch_count) & bind(c, name='hipblasDsprStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsprStridedBatchedFortran type(c_ptr), value :: handle @@ -7614,7 +7614,7 @@ function hipblasCsprStridedBatchedFortran(handle, uplo, n, alpha, x, incx, strid AP, stride_AP, batch_count) & bind(c, name='hipblasCsprStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsprStridedBatchedFortran type(c_ptr), value :: handle @@ -7636,7 +7636,7 @@ function hipblasZsprStridedBatchedFortran(handle, uplo, n, alpha, x, incx, strid AP, stride_AP, batch_count) & bind(c, name='hipblasZsprStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsprStridedBatchedFortran type(c_ptr), value :: handle @@ -7659,7 +7659,7 @@ function hipblasSspr2Fortran(handle, uplo, n, alpha, x, incx, & y, incy, AP) & bind(c, name='hipblasSspr2Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2Fortran type(c_ptr), value :: handle @@ -7680,7 +7680,7 @@ function hipblasDspr2Fortran(handle, uplo, n, alpha, x, incx, & y, incy, AP) & bind(c, name='hipblasDspr2Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2Fortran type(c_ptr), value :: handle @@ -7702,7 +7702,7 @@ function hipblasSspr2BatchedFortran(handle, uplo, n, alpha, x, incx, & y, incy, AP, batch_count) & bind(c, name='hipblasSspr2BatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2BatchedFortran type(c_ptr), value :: handle @@ -7724,7 +7724,7 @@ function hipblasDspr2BatchedFortran(handle, uplo, n, alpha, x, incx, & y, incy, AP, batch_count) & bind(c, name='hipblasDspr2BatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2BatchedFortran type(c_ptr), value :: handle @@ -7747,7 +7747,7 @@ function hipblasSspr2StridedBatchedFortran(handle, uplo, n, alpha, x, incx, stri y, incy, stride_y, AP, stride_AP, batch_count) & bind(c, name='hipblasSspr2StridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2StridedBatchedFortran type(c_ptr), value :: handle @@ -7772,7 +7772,7 @@ function hipblasDspr2StridedBatchedFortran(handle, uplo, n, alpha, x, incx, stri y, incy, stride_y, AP, stride_AP, batch_count) & bind(c, name='hipblasDspr2StridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2StridedBatchedFortran type(c_ptr), value :: handle @@ -7797,7 +7797,7 @@ end function hipblasDspr2StridedBatchedFortran function hipblasSsyrFortran(handle, uplo, n, alpha, x, incx, A, lda) & bind(c, name='hipblasSsyrFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrFortran type(c_ptr), value :: handle @@ -7816,7 +7816,7 @@ end function hipblasSsyrFortran function hipblasDsyrFortran(handle, uplo, n, alpha, x, incx, A, lda) & bind(c, name='hipblasDsyrFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrFortran type(c_ptr), value :: handle @@ -7835,7 +7835,7 @@ end function hipblasDsyrFortran function hipblasCsyrFortran(handle, uplo, n, alpha, x, incx, A, lda) & bind(c, name='hipblasCsyrFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrFortran type(c_ptr), value :: handle @@ -7854,7 +7854,7 @@ end function hipblasCsyrFortran function hipblasZsyrFortran(handle, uplo, n, alpha, x, incx, A, lda) & bind(c, name='hipblasZsyrFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrFortran type(c_ptr), value :: handle @@ -7874,7 +7874,7 @@ end function hipblasZsyrFortran function hipblasSsyrBatchedFortran(handle, uplo, n, alpha, x, incx, A, lda, batch_count) & bind(c, name='hipblasSsyrBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrBatchedFortran type(c_ptr), value :: handle @@ -7894,7 +7894,7 @@ end function hipblasSsyrBatchedFortran function hipblasDsyrBatchedFortran(handle, uplo, n, alpha, x, incx, A, lda, batch_count) & bind(c, name='hipblasDsyrBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrBatchedFortran type(c_ptr), value :: handle @@ -7914,7 +7914,7 @@ end function hipblasDsyrBatchedFortran function hipblasCsyrBatchedFortran(handle, uplo, n, alpha, x, incx, A, lda, batch_count) & bind(c, name='hipblasCsyrBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrBatchedFortran type(c_ptr), value :: handle @@ -7934,7 +7934,7 @@ end function hipblasCsyrBatchedFortran function hipblasZsyrBatchedFortran(handle, uplo, n, alpha, x, incx, A, lda, batch_count) & bind(c, name='hipblasZsyrBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrBatchedFortran type(c_ptr), value :: handle @@ -7956,7 +7956,7 @@ function hipblasSsyrStridedBatchedFortran(handle, uplo, n, alpha, x, incx, strid A, lda, stride_A, batch_count) & bind(c, name='hipblasSsyrStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrStridedBatchedFortran type(c_ptr), value :: handle @@ -7979,7 +7979,7 @@ function hipblasDsyrStridedBatchedFortran(handle, uplo, n, alpha, x, incx, strid A, lda, stride_A, batch_count) & bind(c, name='hipblasDsyrStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrStridedBatchedFortran type(c_ptr), value :: handle @@ -8002,7 +8002,7 @@ function hipblasCsyrStridedBatchedFortran(handle, uplo, n, alpha, x, incx, strid A, lda, stride_A, batch_count) & bind(c, name='hipblasCsyrStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrStridedBatchedFortran type(c_ptr), value :: handle @@ -8025,7 +8025,7 @@ function hipblasZsyrStridedBatchedFortran(handle, uplo, n, alpha, x, incx, strid A, lda, stride_A, batch_count) & bind(c, name='hipblasZsyrStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrStridedBatchedFortran type(c_ptr), value :: handle @@ -8049,7 +8049,7 @@ function hipblasSsyr2Fortran(handle, uplo, n, alpha, x, incx, & y, incy, A, lda) & bind(c, name='hipblasSsyr2Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2Fortran type(c_ptr), value :: handle @@ -8071,7 +8071,7 @@ function hipblasDsyr2Fortran(handle, uplo, n, alpha, x, incx, & y, incy, A, lda) & bind(c, name='hipblasDsyr2Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2Fortran type(c_ptr), value :: handle @@ -8093,7 +8093,7 @@ function hipblasCsyr2Fortran(handle, uplo, n, alpha, x, incx, & y, incy, A, lda) & bind(c, name='hipblasCsyr2Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2Fortran type(c_ptr), value :: handle @@ -8115,7 +8115,7 @@ function hipblasZsyr2Fortran(handle, uplo, n, alpha, x, incx, & y, incy, A, lda) & bind(c, name='hipblasZsyr2Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2Fortran type(c_ptr), value :: handle @@ -8138,7 +8138,7 @@ function hipblasSsyr2BatchedFortran(handle, uplo, n, alpha, x, incx, & y, incy, A, lda, batch_count) & bind(c, name='hipblasSsyr2BatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2BatchedFortran type(c_ptr), value :: handle @@ -8161,7 +8161,7 @@ function hipblasDsyr2BatchedFortran(handle, uplo, n, alpha, x, incx, & y, incy, A, lda, batch_count) & bind(c, name='hipblasDsyr2BatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2BatchedFortran type(c_ptr), value :: handle @@ -8184,7 +8184,7 @@ function hipblasCsyr2BatchedFortran(handle, uplo, n, alpha, x, incx, & y, incy, A, lda, batch_count) & bind(c, name='hipblasCsyr2BatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2BatchedFortran type(c_ptr), value :: handle @@ -8207,7 +8207,7 @@ function hipblasZsyr2BatchedFortran(handle, uplo, n, alpha, x, incx, & y, incy, A, lda, batch_count) & bind(c, name='hipblasZsyr2BatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2BatchedFortran type(c_ptr), value :: handle @@ -8231,7 +8231,7 @@ function hipblasSsyr2StridedBatchedFortran(handle, uplo, n, alpha, x, incx, stri y, incy, stride_y, A, lda, stride_A, batch_count) & bind(c, name='hipblasSsyr2StridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2StridedBatchedFortran type(c_ptr), value :: handle @@ -8257,7 +8257,7 @@ function hipblasDsyr2StridedBatchedFortran(handle, uplo, n, alpha, x, incx, stri y, incy, stride_y, A, lda, stride_A, batch_count) & bind(c, name='hipblasDsyr2StridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2StridedBatchedFortran type(c_ptr), value :: handle @@ -8283,7 +8283,7 @@ function hipblasCsyr2StridedBatchedFortran(handle, uplo, n, alpha, x, incx, stri y, incy, stride_y, A, lda, stride_A, batch_count) & bind(c, name='hipblasCsyr2StridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2StridedBatchedFortran type(c_ptr), value :: handle @@ -8309,7 +8309,7 @@ function hipblasZsyr2StridedBatchedFortran(handle, uplo, n, alpha, x, incx, stri y, incy, stride_y, A, lda, stride_A, batch_count) & bind(c, name='hipblasZsyr2StridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2StridedBatchedFortran type(c_ptr), value :: handle @@ -8336,7 +8336,7 @@ function hipblasStrsvFortran(handle, uplo, transA, diag, m, & A, lda, x, incx) & bind(c, name='hipblasStrsvFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsvFortran type(c_ptr), value :: handle @@ -8357,7 +8357,7 @@ function hipblasDtrsvFortran(handle, uplo, transA, diag, m, & A, lda, x, incx) & bind(c, name='hipblasDtrsvFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsvFortran type(c_ptr), value :: handle @@ -8378,7 +8378,7 @@ function hipblasCtrsvFortran(handle, uplo, transA, diag, m, & A, lda, x, incx) & bind(c, name='hipblasCtrsvFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsvFortran type(c_ptr), value :: handle @@ -8399,7 +8399,7 @@ function hipblasZtrsvFortran(handle, uplo, transA, diag, m, & A, lda, x, incx) & bind(c, name='hipblasZtrsvFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsvFortran type(c_ptr), value :: handle @@ -8421,7 +8421,7 @@ function hipblasStrsvBatchedFortran(handle, uplo, transA, diag, m, & A, lda, x, incx, batch_count) & bind(c, name='hipblasStrsvBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsvBatchedFortran type(c_ptr), value :: handle @@ -8443,7 +8443,7 @@ function hipblasDtrsvBatchedFortran(handle, uplo, transA, diag, m, & A, lda, x, incx, batch_count) & bind(c, name='hipblasDtrsvBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsvBatchedFortran type(c_ptr), value :: handle @@ -8465,7 +8465,7 @@ function hipblasCtrsvBatchedFortran(handle, uplo, transA, diag, m, & A, lda, x, incx, batch_count) & bind(c, name='hipblasCtrsvBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsvBatchedFortran type(c_ptr), value :: handle @@ -8487,7 +8487,7 @@ function hipblasZtrsvBatchedFortran(handle, uplo, transA, diag, m, & A, lda, x, incx, batch_count) & bind(c, name='hipblasZtrsvBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsvBatchedFortran type(c_ptr), value :: handle @@ -8510,7 +8510,7 @@ function hipblasStrsvStridedBatchedFortran(handle, uplo, transA, diag, m, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='hipblasStrsvStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsvStridedBatchedFortran type(c_ptr), value :: handle @@ -8534,7 +8534,7 @@ function hipblasDtrsvStridedBatchedFortran(handle, uplo, transA, diag, m, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='hipblasDtrsvStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsvStridedBatchedFortran type(c_ptr), value :: handle @@ -8558,7 +8558,7 @@ function hipblasCtrsvStridedBatchedFortran(handle, uplo, transA, diag, m, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='hipblasCtrsvStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsvStridedBatchedFortran type(c_ptr), value :: handle @@ -8582,7 +8582,7 @@ function hipblasZtrsvStridedBatchedFortran(handle, uplo, transA, diag, m, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='hipblasZtrsvStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsvStridedBatchedFortran type(c_ptr), value :: handle @@ -8611,7 +8611,7 @@ function hipblasChemmFortran(handle, side, uplo, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasChemmFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemmFortran type(c_ptr), value :: handle @@ -8636,7 +8636,7 @@ function hipblasZhemmFortran(handle, side, uplo, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasZhemmFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemmFortran type(c_ptr), value :: handle @@ -8662,7 +8662,7 @@ function hipblasChemmBatchedFortran(handle, side, uplo, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasChemmBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemmBatchedFortran type(c_ptr), value :: handle @@ -8688,7 +8688,7 @@ function hipblasZhemmBatchedFortran(handle, side, uplo, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasZhemmBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemmBatchedFortran type(c_ptr), value :: handle @@ -8715,7 +8715,7 @@ function hipblasChemmStridedBatchedFortran(handle, side, uplo, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasChemmStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemmStridedBatchedFortran type(c_ptr), value :: handle @@ -8744,7 +8744,7 @@ function hipblasZhemmStridedBatchedFortran(handle, side, uplo, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasZhemmStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemmStridedBatchedFortran type(c_ptr), value :: handle @@ -8774,7 +8774,7 @@ function hipblasCherkFortran(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc) & bind(c, name='hipblasCherkFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkFortran type(c_ptr), value :: handle @@ -8797,7 +8797,7 @@ function hipblasZherkFortran(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc) & bind(c, name='hipblasZherkFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkFortran type(c_ptr), value :: handle @@ -8821,7 +8821,7 @@ function hipblasCherkBatchedFortran(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc, batch_count) & bind(c, name='hipblasCherkBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkBatchedFortran type(c_ptr), value :: handle @@ -8845,7 +8845,7 @@ function hipblasZherkBatchedFortran(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc, batch_count) & bind(c, name='hipblasZherkBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkBatchedFortran type(c_ptr), value :: handle @@ -8870,7 +8870,7 @@ function hipblasCherkStridedBatchedFortran(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasCherkStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkStridedBatchedFortran type(c_ptr), value :: handle @@ -8896,7 +8896,7 @@ function hipblasZherkStridedBatchedFortran(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasZherkStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkStridedBatchedFortran type(c_ptr), value :: handle @@ -8923,7 +8923,7 @@ function hipblasCher2kFortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasCher2kFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2kFortran type(c_ptr), value :: handle @@ -8948,7 +8948,7 @@ function hipblasZher2kFortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasZher2kFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2kFortran type(c_ptr), value :: handle @@ -8974,7 +8974,7 @@ function hipblasCher2kBatchedFortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasCher2kBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2kBatchedFortran type(c_ptr), value :: handle @@ -9000,7 +9000,7 @@ function hipblasZher2kBatchedFortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasZher2kBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2kBatchedFortran type(c_ptr), value :: handle @@ -9027,7 +9027,7 @@ function hipblasCher2kStridedBatchedFortran(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasCher2kStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2kStridedBatchedFortran type(c_ptr), value :: handle @@ -9056,7 +9056,7 @@ function hipblasZher2kStridedBatchedFortran(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasZher2kStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2kStridedBatchedFortran type(c_ptr), value :: handle @@ -9086,7 +9086,7 @@ function hipblasCherkxFortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasCherkxFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkxFortran type(c_ptr), value :: handle @@ -9111,7 +9111,7 @@ function hipblasZherkxFortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasZherkxFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkxFortran type(c_ptr), value :: handle @@ -9137,7 +9137,7 @@ function hipblasCherkxBatchedFortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasCherkxBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkxBatchedFortran type(c_ptr), value :: handle @@ -9163,7 +9163,7 @@ function hipblasZherkxBatchedFortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasZherkxBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkxBatchedFortran type(c_ptr), value :: handle @@ -9190,7 +9190,7 @@ function hipblasCherkxStridedBatchedFortran(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasCherkxStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkxStridedBatchedFortran type(c_ptr), value :: handle @@ -9219,7 +9219,7 @@ function hipblasZherkxStridedBatchedFortran(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasZherkxStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkxStridedBatchedFortran type(c_ptr), value :: handle @@ -9249,7 +9249,7 @@ function hipblasSsymmFortran(handle, side, uplo, m, n, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasSsymmFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymmFortran type(c_ptr), value :: handle @@ -9274,7 +9274,7 @@ function hipblasDsymmFortran(handle, side, uplo, m, n, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasDsymmFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymmFortran type(c_ptr), value :: handle @@ -9299,7 +9299,7 @@ function hipblasCsymmFortran(handle, side, uplo, m, n, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasCsymmFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymmFortran type(c_ptr), value :: handle @@ -9324,7 +9324,7 @@ function hipblasZsymmFortran(handle, side, uplo, m, n, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasZsymmFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymmFortran type(c_ptr), value :: handle @@ -9350,7 +9350,7 @@ function hipblasSsymmBatchedFortran(handle, side, uplo, m, n, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasSsymmBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymmBatchedFortran type(c_ptr), value :: handle @@ -9376,7 +9376,7 @@ function hipblasDsymmBatchedFortran(handle, side, uplo, m, n, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasDsymmBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymmBatchedFortran type(c_ptr), value :: handle @@ -9402,7 +9402,7 @@ function hipblasCsymmBatchedFortran(handle, side, uplo, m, n, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasCsymmBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymmBatchedFortran type(c_ptr), value :: handle @@ -9428,7 +9428,7 @@ function hipblasZsymmBatchedFortran(handle, side, uplo, m, n, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasZsymmBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymmBatchedFortran type(c_ptr), value :: handle @@ -9455,7 +9455,7 @@ function hipblasSsymmStridedBatchedFortran(handle, side, uplo, m, n, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasSsymmStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymmStridedBatchedFortran type(c_ptr), value :: handle @@ -9484,7 +9484,7 @@ function hipblasDsymmStridedBatchedFortran(handle, side, uplo, m, n, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasDsymmStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymmStridedBatchedFortran type(c_ptr), value :: handle @@ -9513,7 +9513,7 @@ function hipblasCsymmStridedBatchedFortran(handle, side, uplo, m, n, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasCsymmStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymmStridedBatchedFortran type(c_ptr), value :: handle @@ -9542,7 +9542,7 @@ function hipblasZsymmStridedBatchedFortran(handle, side, uplo, m, n, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasZsymmStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymmStridedBatchedFortran type(c_ptr), value :: handle @@ -9572,7 +9572,7 @@ function hipblasSsyrkFortran(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc) & bind(c, name='hipblasSsyrkFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkFortran type(c_ptr), value :: handle @@ -9595,7 +9595,7 @@ function hipblasDsyrkFortran(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc) & bind(c, name='hipblasDsyrkFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkFortran type(c_ptr), value :: handle @@ -9618,7 +9618,7 @@ function hipblasCsyrkFortran(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc) & bind(c, name='hipblasCsyrkFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkFortran type(c_ptr), value :: handle @@ -9641,7 +9641,7 @@ function hipblasZsyrkFortran(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc) & bind(c, name='hipblasZsyrkFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkFortran type(c_ptr), value :: handle @@ -9665,7 +9665,7 @@ function hipblasSsyrkBatchedFortran(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc, batch_count) & bind(c, name='hipblasSsyrkBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkBatchedFortran type(c_ptr), value :: handle @@ -9689,7 +9689,7 @@ function hipblasDsyrkBatchedFortran(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc, batch_count) & bind(c, name='hipblasDsyrkBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkBatchedFortran type(c_ptr), value :: handle @@ -9713,7 +9713,7 @@ function hipblasCsyrkBatchedFortran(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc, batch_count) & bind(c, name='hipblasCsyrkBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkBatchedFortran type(c_ptr), value :: handle @@ -9737,7 +9737,7 @@ function hipblasZsyrkBatchedFortran(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc, batch_count) & bind(c, name='hipblasZsyrkBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkBatchedFortran type(c_ptr), value :: handle @@ -9762,7 +9762,7 @@ function hipblasSsyrkStridedBatchedFortran(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasSsyrkStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkStridedBatchedFortran type(c_ptr), value :: handle @@ -9788,7 +9788,7 @@ function hipblasDsyrkStridedBatchedFortran(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasDsyrkStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkStridedBatchedFortran type(c_ptr), value :: handle @@ -9814,7 +9814,7 @@ function hipblasCsyrkStridedBatchedFortran(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasCsyrkStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkStridedBatchedFortran type(c_ptr), value :: handle @@ -9840,7 +9840,7 @@ function hipblasZsyrkStridedBatchedFortran(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasZsyrkStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkStridedBatchedFortran type(c_ptr), value :: handle @@ -9867,7 +9867,7 @@ function hipblasSsyr2kFortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasSsyr2kFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2kFortran type(c_ptr), value :: handle @@ -9892,7 +9892,7 @@ function hipblasDsyr2kFortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasDsyr2kFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2kFortran type(c_ptr), value :: handle @@ -9917,7 +9917,7 @@ function hipblasCsyr2kFortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasCsyr2kFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2kFortran type(c_ptr), value :: handle @@ -9942,7 +9942,7 @@ function hipblasZsyr2kFortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasZsyr2kFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2kFortran type(c_ptr), value :: handle @@ -9968,7 +9968,7 @@ function hipblasSsyr2kBatchedFortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasSsyr2kBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2kBatchedFortran type(c_ptr), value :: handle @@ -9994,7 +9994,7 @@ function hipblasDsyr2kBatchedFortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasDsyr2kBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2kBatchedFortran type(c_ptr), value :: handle @@ -10020,7 +10020,7 @@ function hipblasCsyr2kBatchedFortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasCsyr2kBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2kBatchedFortran type(c_ptr), value :: handle @@ -10046,7 +10046,7 @@ function hipblasZsyr2kBatchedFortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasZsyr2kBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2kBatchedFortran type(c_ptr), value :: handle @@ -10073,7 +10073,7 @@ function hipblasSsyr2kStridedBatchedFortran(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasSsyr2kStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2kStridedBatchedFortran type(c_ptr), value :: handle @@ -10102,7 +10102,7 @@ function hipblasDsyr2kStridedBatchedFortran(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasDsyr2kStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2kStridedBatchedFortran type(c_ptr), value :: handle @@ -10131,7 +10131,7 @@ function hipblasCsyr2kStridedBatchedFortran(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasCsyr2kStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2kStridedBatchedFortran type(c_ptr), value :: handle @@ -10160,7 +10160,7 @@ function hipblasZsyr2kStridedBatchedFortran(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasZsyr2kStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2kStridedBatchedFortran type(c_ptr), value :: handle @@ -10190,7 +10190,7 @@ function hipblasSsyrkxFortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasSsyrkxFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkxFortran type(c_ptr), value :: handle @@ -10215,7 +10215,7 @@ function hipblasDsyrkxFortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasDsyrkxFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkxFortran type(c_ptr), value :: handle @@ -10240,7 +10240,7 @@ function hipblasCsyrkxFortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasCsyrkxFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkxFortran type(c_ptr), value :: handle @@ -10265,7 +10265,7 @@ function hipblasZsyrkxFortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasZsyrkxFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkxFortran type(c_ptr), value :: handle @@ -10291,7 +10291,7 @@ function hipblasSsyrkxBatchedFortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasSsyrkxBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkxBatchedFortran type(c_ptr), value :: handle @@ -10317,7 +10317,7 @@ function hipblasDsyrkxBatchedFortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasDsyrkxBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkxBatchedFortran type(c_ptr), value :: handle @@ -10343,7 +10343,7 @@ function hipblasCsyrkxBatchedFortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasCsyrkxBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkxBatchedFortran type(c_ptr), value :: handle @@ -10369,7 +10369,7 @@ function hipblasZsyrkxBatchedFortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasZsyrkxBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkxBatchedFortran type(c_ptr), value :: handle @@ -10396,7 +10396,7 @@ function hipblasSsyrkxStridedBatchedFortran(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasSsyrkxStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkxStridedBatchedFortran type(c_ptr), value :: handle @@ -10425,7 +10425,7 @@ function hipblasDsyrkxStridedBatchedFortran(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasDsyrkxStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkxStridedBatchedFortran type(c_ptr), value :: handle @@ -10454,7 +10454,7 @@ function hipblasCsyrkxStridedBatchedFortran(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasCsyrkxStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkxStridedBatchedFortran type(c_ptr), value :: handle @@ -10483,7 +10483,7 @@ function hipblasZsyrkxStridedBatchedFortran(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasZsyrkxStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkxStridedBatchedFortran type(c_ptr), value :: handle @@ -10513,7 +10513,7 @@ function hipblasStrmmFortran(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb, C, ldc) & bind(c, name='hipblasStrmmFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmmFortran type(c_ptr), value :: handle @@ -10539,7 +10539,7 @@ function hipblasDtrmmFortran(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb, C, ldc) & bind(c, name='hipblasDtrmmFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmmFortran type(c_ptr), value :: handle @@ -10565,7 +10565,7 @@ function hipblasCtrmmFortran(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb, C, ldc) & bind(c, name='hipblasCtrmmFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmmFortran type(c_ptr), value :: handle @@ -10591,7 +10591,7 @@ function hipblasZtrmmFortran(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb, C, ldc) & bind(c, name='hipblasZtrmmFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmmFortran type(c_ptr), value :: handle @@ -10618,7 +10618,7 @@ function hipblasStrmmBatchedFortran(handle, side, uplo, transA, diag, m, n, alph A, lda, B, ldb, C, ldc, batch_count) & bind(c, name='hipblasStrmmBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmmBatchedFortran type(c_ptr), value :: handle @@ -10645,7 +10645,7 @@ function hipblasDtrmmBatchedFortran(handle, side, uplo, transA, diag, m, n, alph A, lda, B, ldb, C, ldc, batch_count) & bind(c, name='hipblasDtrmmBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmmBatchedFortran type(c_ptr), value :: handle @@ -10672,7 +10672,7 @@ function hipblasCtrmmBatchedFortran(handle, side, uplo, transA, diag, m, n, alph A, lda, B, ldb, C, ldc, batch_count) & bind(c, name='hipblasCtrmmBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmmBatchedFortran type(c_ptr), value :: handle @@ -10699,7 +10699,7 @@ function hipblasZtrmmBatchedFortran(handle, side, uplo, transA, diag, m, n, alph A, lda, B, ldb, C, ldc, batch_count) & bind(c, name='hipblasZtrmmBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmmBatchedFortran type(c_ptr), value :: handle @@ -10727,7 +10727,7 @@ function hipblasStrmmStridedBatchedFortran(handle, side, uplo, transA, diag, m, A, lda, stride_A, B, ldb, stride_B, C, ldc, stride_C, batch_count) & bind(c, name='hipblasStrmmStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmmStridedBatchedFortran type(c_ptr), value :: handle @@ -10757,7 +10757,7 @@ function hipblasDtrmmStridedBatchedFortran(handle, side, uplo, transA, diag, m, A, lda, stride_A, B, ldb, stride_B, C, ldc, stride_C, batch_count) & bind(c, name='hipblasDtrmmStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmmStridedBatchedFortran type(c_ptr), value :: handle @@ -10787,7 +10787,7 @@ function hipblasCtrmmStridedBatchedFortran(handle, side, uplo, transA, diag, m, A, lda, stride_A, B, ldb, stride_B, C, ldc, stride_C, batch_count) & bind(c, name='hipblasCtrmmStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmmStridedBatchedFortran type(c_ptr), value :: handle @@ -10817,7 +10817,7 @@ function hipblasZtrmmStridedBatchedFortran(handle, side, uplo, transA, diag, m, A, lda, stride_A, B, ldb, stride_B, C, ldc, stride_C, batch_count) & bind(c, name='hipblasZtrmmStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmmStridedBatchedFortran type(c_ptr), value :: handle @@ -10848,7 +10848,7 @@ function hipblasStrtriFortran(handle, uplo, diag, n, & A, lda, invA, ldinvA) & bind(c, name='hipblasStrtriFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrtriFortran type(c_ptr), value :: handle @@ -10868,7 +10868,7 @@ function hipblasDtrtriFortran(handle, uplo, diag, n, & A, lda, invA, ldinvA) & bind(c, name='hipblasDtrtriFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrtriFortran type(c_ptr), value :: handle @@ -10888,7 +10888,7 @@ function hipblasCtrtriFortran(handle, uplo, diag, n, & A, lda, invA, ldinvA) & bind(c, name='hipblasCtrtriFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrtriFortran type(c_ptr), value :: handle @@ -10908,7 +10908,7 @@ function hipblasZtrtriFortran(handle, uplo, diag, n, & A, lda, invA, ldinvA) & bind(c, name='hipblasZtrtriFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrtriFortran type(c_ptr), value :: handle @@ -10929,7 +10929,7 @@ function hipblasStrtriBatchedFortran(handle, uplo, diag, n, & A, lda, invA, ldinvA, batch_count) & bind(c, name='hipblasStrtriBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrtriBatchedFortran type(c_ptr), value :: handle @@ -10950,7 +10950,7 @@ function hipblasDtrtriBatchedFortran(handle, uplo, diag, n, & A, lda, invA, ldinvA, batch_count) & bind(c, name='hipblasDtrtriBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrtriBatchedFortran type(c_ptr), value :: handle @@ -10971,7 +10971,7 @@ function hipblasCtrtriBatchedFortran(handle, uplo, diag, n, & A, lda, invA, ldinvA, batch_count) & bind(c, name='hipblasCtrtriBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrtriBatchedFortran type(c_ptr), value :: handle @@ -10992,7 +10992,7 @@ function hipblasZtrtriBatchedFortran(handle, uplo, diag, n, & A, lda, invA, ldinvA, batch_count) & bind(c, name='hipblasZtrtriBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrtriBatchedFortran type(c_ptr), value :: handle @@ -11014,7 +11014,7 @@ function hipblasStrtriStridedBatchedFortran(handle, uplo, diag, n, & A, lda, stride_A, invA, ldinvA, stride_invA, batch_count) & bind(c, name='hipblasStrtriStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrtriStridedBatchedFortran type(c_ptr), value :: handle @@ -11037,7 +11037,7 @@ function hipblasDtrtriStridedBatchedFortran(handle, uplo, diag, n, & A, lda, stride_A, invA, ldinvA, stride_invA, batch_count) & bind(c, name='hipblasDtrtriStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrtriStridedBatchedFortran type(c_ptr), value :: handle @@ -11060,7 +11060,7 @@ function hipblasCtrtriStridedBatchedFortran(handle, uplo, diag, n, & A, lda, stride_A, invA, ldinvA, stride_invA, batch_count) & bind(c, name='hipblasCtrtriStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrtriStridedBatchedFortran type(c_ptr), value :: handle @@ -11083,7 +11083,7 @@ function hipblasZtrtriStridedBatchedFortran(handle, uplo, diag, n, & A, lda, stride_A, invA, ldinvA, stride_invA, batch_count) & bind(c, name='hipblasZtrtriStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrtriStridedBatchedFortran type(c_ptr), value :: handle @@ -11107,7 +11107,7 @@ function hipblasStrsmFortran(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb) & bind(c, name='hipblasStrsmFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsmFortran type(c_ptr), value :: handle @@ -11131,7 +11131,7 @@ function hipblasDtrsmFortran(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb) & bind(c, name='hipblasDtrsmFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsmFortran type(c_ptr), value :: handle @@ -11155,7 +11155,7 @@ function hipblasCtrsmFortran(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb) & bind(c, name='hipblasCtrsmFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsmFortran type(c_ptr), value :: handle @@ -11179,7 +11179,7 @@ function hipblasZtrsmFortran(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb) & bind(c, name='hipblasZtrsmFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsmFortran type(c_ptr), value :: handle @@ -11204,7 +11204,7 @@ function hipblasStrsmBatchedFortran(handle, side, uplo, transA, diag, m, n, alph A, lda, B, ldb, batch_count) & bind(c, name='hipblasStrsmBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsmBatchedFortran type(c_ptr), value :: handle @@ -11229,7 +11229,7 @@ function hipblasDtrsmBatchedFortran(handle, side, uplo, transA, diag, m, n, alph A, lda, B, ldb, batch_count) & bind(c, name='hipblasDtrsmBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsmBatchedFortran type(c_ptr), value :: handle @@ -11254,7 +11254,7 @@ function hipblasCtrsmBatchedFortran(handle, side, uplo, transA, diag, m, n, alph A, lda, B, ldb, batch_count) & bind(c, name='hipblasCtrsmBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsmBatchedFortran type(c_ptr), value :: handle @@ -11279,7 +11279,7 @@ function hipblasZtrsmBatchedFortran(handle, side, uplo, transA, diag, m, n, alph A, lda, B, ldb, batch_count) & bind(c, name='hipblasZtrsmBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsmBatchedFortran type(c_ptr), value :: handle @@ -11305,7 +11305,7 @@ function hipblasStrsmStridedBatchedFortran(handle, side, uplo, transA, diag, m, A, lda, stride_A, B, ldb, stride_B, batch_count) & bind(c, name='hipblasStrsmStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsmStridedBatchedFortran type(c_ptr), value :: handle @@ -11332,7 +11332,7 @@ function hipblasDtrsmStridedBatchedFortran(handle, side, uplo, transA, diag, m, A, lda, stride_A, B, ldb, stride_B, batch_count) & bind(c, name='hipblasDtrsmStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsmStridedBatchedFortran type(c_ptr), value :: handle @@ -11359,7 +11359,7 @@ function hipblasCtrsmStridedBatchedFortran(handle, side, uplo, transA, diag, m, A, lda, stride_A, B, ldb, stride_B, batch_count) & bind(c, name='hipblasCtrsmStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsmStridedBatchedFortran type(c_ptr), value :: handle @@ -11386,7 +11386,7 @@ function hipblasZtrsmStridedBatchedFortran(handle, side, uplo, transA, diag, m, A, lda, stride_A, B, ldb, stride_B, batch_count) & bind(c, name='hipblasZtrsmStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsmStridedBatchedFortran type(c_ptr), value :: handle @@ -11414,7 +11414,7 @@ function hipblasHgemmFortran(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasHgemmFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHgemmFortran type(c_ptr), value :: handle @@ -11440,7 +11440,7 @@ function hipblasSgemmFortran(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasSgemmFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmFortran type(c_ptr), value :: handle @@ -11466,7 +11466,7 @@ function hipblasDgemmFortran(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasDgemmFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmFortran type(c_ptr), value :: handle @@ -11492,7 +11492,7 @@ function hipblasCgemmFortran(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasCgemmFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemmFortran type(c_ptr), value :: handle @@ -11518,7 +11518,7 @@ function hipblasZgemmFortran(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasZgemmFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemmFortran type(c_ptr), value :: handle @@ -11545,7 +11545,7 @@ function hipblasHgemmBatchedFortran(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasHgemmBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHgemmBatchedFortran type(c_ptr), value :: handle @@ -11572,7 +11572,7 @@ function hipblasSgemmBatchedFortran(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasSgemmBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmBatchedFortran type(c_ptr), value :: handle @@ -11599,7 +11599,7 @@ function hipblasDgemmBatchedFortran(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasDgemmBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmBatchedFortran type(c_ptr), value :: handle @@ -11626,7 +11626,7 @@ function hipblasCgemmBatchedFortran(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasCgemmBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemmBatchedFortran type(c_ptr), value :: handle @@ -11653,7 +11653,7 @@ function hipblasZgemmBatchedFortran(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasZgemmBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemmBatchedFortran type(c_ptr), value :: handle @@ -11682,7 +11682,7 @@ function hipblasSgemmGroupedBatchedFortran(handle, transA_array, transB_array, m Carray, ldc_array, group_count, group_size) & bind(c, name='hipblasSgemmGroupedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmGroupedBatchedFortran type(c_ptr), value :: handle @@ -11712,7 +11712,7 @@ function hipblasDgemmGroupedBatchedFortran(handle, transA_array, transB_array, m Carray, ldc_array, group_count, group_size) & bind(c, name='hipblasDgemmGroupedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmGroupedBatchedFortran type(c_ptr), value :: handle @@ -11742,7 +11742,7 @@ function hipblasHgemmStridedBatchedFortran(handle, transA, transB, m, n, k, alph A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasHgemmStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHgemmStridedBatchedFortran type(c_ptr), value :: handle @@ -11772,7 +11772,7 @@ function hipblasSgemmStridedBatchedFortran(handle, transA, transB, m, n, k, alph A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasSgemmStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmStridedBatchedFortran type(c_ptr), value :: handle @@ -11802,7 +11802,7 @@ function hipblasDgemmStridedBatchedFortran(handle, transA, transB, m, n, k, alph A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasDgemmStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmStridedBatchedFortran type(c_ptr), value :: handle @@ -11832,7 +11832,7 @@ function hipblasCgemmStridedBatchedFortran(handle, transA, transB, m, n, k, alph A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasCgemmStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemmStridedBatchedFortran type(c_ptr), value :: handle @@ -11862,7 +11862,7 @@ function hipblasZgemmStridedBatchedFortran(handle, transA, transB, m, n, k, alph A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasZgemmStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemmStridedBatchedFortran type(c_ptr), value :: handle @@ -11893,7 +11893,7 @@ function hipblasSdgmmFortran(handle, side, m, n, & A, lda, x, incx, C, ldc) & bind(c, name='hipblasSdgmmFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdgmmFortran type(c_ptr), value :: handle @@ -11915,7 +11915,7 @@ function hipblasDdgmmFortran(handle, side, m, n, & A, lda, x, incx, C, ldc) & bind(c, name='hipblasDdgmmFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdgmmFortran type(c_ptr), value :: handle @@ -11937,7 +11937,7 @@ function hipblasCdgmmFortran(handle, side, m, n, & A, lda, x, incx, C, ldc) & bind(c, name='hipblasCdgmmFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdgmmFortran type(c_ptr), value :: handle @@ -11959,7 +11959,7 @@ function hipblasZdgmmFortran(handle, side, m, n, & A, lda, x, incx, C, ldc) & bind(c, name='hipblasZdgmmFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdgmmFortran type(c_ptr), value :: handle @@ -11982,7 +11982,7 @@ function hipblasSdgmmBatchedFortran(handle, side, m, n, & A, lda, x, incx, C, ldc, batch_count) & bind(c, name='hipblasSdgmmBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdgmmBatchedFortran type(c_ptr), value :: handle @@ -12005,7 +12005,7 @@ function hipblasDdgmmBatchedFortran(handle, side, m, n, & A, lda, x, incx, C, ldc, batch_count) & bind(c, name='hipblasDdgmmBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdgmmBatchedFortran type(c_ptr), value :: handle @@ -12028,7 +12028,7 @@ function hipblasCdgmmBatchedFortran(handle, side, m, n, & A, lda, x, incx, C, ldc, batch_count) & bind(c, name='hipblasCdgmmBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdgmmBatchedFortran type(c_ptr), value :: handle @@ -12051,7 +12051,7 @@ function hipblasZdgmmBatchedFortran(handle, side, m, n, & A, lda, x, incx, C, ldc, batch_count) & bind(c, name='hipblasZdgmmBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdgmmBatchedFortran type(c_ptr), value :: handle @@ -12075,7 +12075,7 @@ function hipblasSdgmmStridedBatchedFortran(handle, side, m, n, & A, lda, stride_A, x, incx, stride_x, C, ldc, stride_C, batch_count) & bind(c, name='hipblasSdgmmStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdgmmStridedBatchedFortran type(c_ptr), value :: handle @@ -12101,7 +12101,7 @@ function hipblasDdgmmStridedBatchedFortran(handle, side, m, n, & A, lda, stride_A, x, incx, stride_x, C, ldc, stride_C, batch_count) & bind(c, name='hipblasDdgmmStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdgmmStridedBatchedFortran type(c_ptr), value :: handle @@ -12127,7 +12127,7 @@ function hipblasCdgmmStridedBatchedFortran(handle, side, m, n, & A, lda, stride_A, x, incx, stride_x, C, ldc, stride_C, batch_count) & bind(c, name='hipblasCdgmmStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdgmmStridedBatchedFortran type(c_ptr), value :: handle @@ -12153,7 +12153,7 @@ function hipblasZdgmmStridedBatchedFortran(handle, side, m, n, & A, lda, stride_A, x, incx, stride_x, C, ldc, stride_C, batch_count) & bind(c, name='hipblasZdgmmStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdgmmStridedBatchedFortran type(c_ptr), value :: handle @@ -12180,7 +12180,7 @@ function hipblasSgeamFortran(handle, transA, transB, m, n, alpha, & A, lda, beta, B, ldb, C, ldc) & bind(c, name='hipblasSgeamFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeamFortran type(c_ptr), value :: handle @@ -12205,7 +12205,7 @@ function hipblasDgeamFortran(handle, transA, transB, m, n, alpha, & A, lda, beta, B, ldb, C, ldc) & bind(c, name='hipblasDgeamFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeamFortran type(c_ptr), value :: handle @@ -12230,7 +12230,7 @@ function hipblasCgeamFortran(handle, transA, transB, m, n, alpha, & A, lda, beta, B, ldb, C, ldc) & bind(c, name='hipblasCgeamFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeamFortran type(c_ptr), value :: handle @@ -12255,7 +12255,7 @@ function hipblasZgeamFortran(handle, transA, transB, m, n, alpha, & A, lda, beta, B, ldb, C, ldc) & bind(c, name='hipblasZgeamFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeamFortran type(c_ptr), value :: handle @@ -12281,7 +12281,7 @@ function hipblasSgeamBatchedFortran(handle, transA, transB, m, n, alpha, & A, lda, beta, B, ldb, C, ldc, batch_count) & bind(c, name='hipblasSgeamBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeamBatchedFortran type(c_ptr), value :: handle @@ -12307,7 +12307,7 @@ function hipblasDgeamBatchedFortran(handle, transA, transB, m, n, alpha, & A, lda, beta, B, ldb, C, ldc, batch_count) & bind(c, name='hipblasDgeamBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeamBatchedFortran type(c_ptr), value :: handle @@ -12333,7 +12333,7 @@ function hipblasCgeamBatchedFortran(handle, transA, transB, m, n, alpha, & A, lda, beta, B, ldb, C, ldc, batch_count) & bind(c, name='hipblasCgeamBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeamBatchedFortran type(c_ptr), value :: handle @@ -12359,7 +12359,7 @@ function hipblasZgeamBatchedFortran(handle, transA, transB, m, n, alpha, & A, lda, beta, B, ldb, C, ldc, batch_count) & bind(c, name='hipblasZgeamBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeamBatchedFortran type(c_ptr), value :: handle @@ -12386,7 +12386,7 @@ function hipblasSgeamStridedBatchedFortran(handle, transA, transB, m, n, alpha, A, lda, stride_A, beta, B, ldb, stride_B, C, ldc, stride_C, batch_count) & bind(c, name='hipblasSgeamStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeamStridedBatchedFortran type(c_ptr), value :: handle @@ -12415,7 +12415,7 @@ function hipblasDgeamStridedBatchedFortran(handle, transA, transB, m, n, alpha, A, lda, stride_A, beta, B, ldb, stride_B, C, ldc, stride_C, batch_count) & bind(c, name='hipblasDgeamStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeamStridedBatchedFortran type(c_ptr), value :: handle @@ -12444,7 +12444,7 @@ function hipblasCgeamStridedBatchedFortran(handle, transA, transB, m, n, alpha, A, lda, stride_A, beta, B, ldb, stride_B, C, ldc, stride_C, batch_count) & bind(c, name='hipblasCgeamStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeamStridedBatchedFortran type(c_ptr), value :: handle @@ -12473,7 +12473,7 @@ function hipblasZgeamStridedBatchedFortran(handle, transA, transB, m, n, alpha, A, lda, stride_A, beta, B, ldb, stride_B, C, ldc, stride_C, batch_count) & bind(c, name='hipblasZgeamStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeamStridedBatchedFortran type(c_ptr), value :: handle @@ -12508,7 +12508,8 @@ function hipblasGemmExFortran(handle, transA, transB, m, n, k, alpha, a, a_type, compute_type, algo) & bind(c, name='hipblasGemmExFortran') use iso_c_binding - use hipblas_enums + use hipblas + use hip implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmExFortran type(c_ptr), value :: handle @@ -12541,7 +12542,8 @@ function hipblasGemmBatchedExFortran(handle, transA, transB, m, n, k, alpha, a, batch_count, compute_type, algo) & bind(c, name='hipblasGemmBatchedExFortran') use iso_c_binding - use hipblas_enums + use hipblas + use hip implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmBatchedExFortran type(c_ptr), value :: handle @@ -12575,7 +12577,8 @@ function hipblasGemmStridedBatchedExFortran(handle, transA, transB, m, n, k, alp batch_count, compute_type, algo) & bind(c, name='hipblasGemmStridedBatchedExFortran') use iso_c_binding - use hipblas_enums + use hipblas + use hip implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmStridedBatchedExFortran type(c_ptr), value :: handle @@ -12612,7 +12615,8 @@ function hipblasGemmExWithFlagsFortran(handle, transA, transB, m, n, k, alpha, a compute_type, algo, flags) & bind(c, name='hipblasGemmExWithFlagsFortran') use iso_c_binding - use hipblas_enums + use hipblas + use hip implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmExWithFlagsFortran type(c_ptr), value :: handle @@ -12646,7 +12650,8 @@ function hipblasGemmBatchedExWithFlagsFortran(handle, transA, transB, m, n, k, a batch_count, compute_type, algo, flags) & bind(c, name='hipblasGemmBatchedExWithFlagsFortran') use iso_c_binding - use hipblas_enums + use hipblas + use hip implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmBatchedExWithFlagsFortran type(c_ptr), value :: handle @@ -12682,7 +12687,8 @@ function hipblasGemmGroupedBatchedExFortran(handle, transA_array, transB_array, ldd_array, group_count, group_size, compute_type, algo) & bind(c, name='hipblasGemmGroupedBatchedExFortran') use iso_c_binding - use hipblas_enums + use hipblas + use hip implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmGroupedBatchedExFortran type(c_ptr), value :: handle @@ -12722,7 +12728,8 @@ function hipblasGemmGroupedBatchedExWithFlagsFortran(handle, transA_array, trans ldd_array, group_count, group_size, compute_type, algo, flags) & bind(c, name='hipblasGemmGroupedBatchedExWithFlagsFortran') use iso_c_binding - use hipblas_enums + use hipblas + use hip implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmGroupedBatchedExWithFlagsFortran type(c_ptr), value :: handle @@ -12762,7 +12769,8 @@ function hipblasGemmStridedBatchedExWithFlagsFortran(handle, transA, transB, m, batch_count, compute_type, algo, flags) & bind(c, name='hipblasGemmStridedBatchedExWithFlagsFortran') use iso_c_binding - use hipblas_enums + use hipblas + use hip implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmStridedBatchedExWithFlagsFortran type(c_ptr), value :: handle @@ -12797,10 +12805,11 @@ end function hipblasGemmStridedBatchedExWithFlagsFortran ! syrkEx function hipblasSyrkExFortran(handle, uplo, transA, n, k, alpha, a, a_type, lda, & - beta, c, c_type, ldc) & + beta, c, c_type, ldc, compute_type) & bind(c, name='hipblasSyrkExFortran') use iso_c_binding - use hipblas_enums + use hipblas + use hip implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSyrkExFortran type(c_ptr), value :: handle @@ -12816,9 +12825,10 @@ function hipblasSyrkExFortran(handle, uplo, transA, n, k, alpha, a, a_type, lda, type(c_ptr), value :: c integer(kind(HIP_R_16F)), value :: c_type integer(c_int), value :: ldc + integer(kind(HIP_R_16F)), value :: compute_type hipblasSyrkExFortran = & hipblasSyrkEx(handle, uplo, transA, n, k, alpha, & - a, a_type, lda, beta, c, c_type, ldc) + a, a_type, lda, beta, c, c_type, ldc, compute_type) end function hipblasSyrkExFortran ! herkEx @@ -12826,7 +12836,8 @@ function hipblasHerkExFortran(handle, uplo, transA, n, k, alpha, a, a_type, lda, beta, c, c_type, ldc, compute_type) & bind(c, name='hipblasHerkExFortran') use iso_c_binding - use hipblas_enums + use hipblas + use hip implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHerkExFortran type(c_ptr), value :: handle @@ -12853,7 +12864,8 @@ function hipblasTrsmExFortran(handle, side, uplo, transA, diag, m, n, alpha, A, B, ldb, invA, invA_size, compute_type) & bind(c, name='hipblasTrsmExFortran') use iso_c_binding - use hipblas_enums + use hipblas + use hip implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasTrsmExFortran type(c_ptr), value :: handle @@ -12880,7 +12892,8 @@ function hipblasTrsmBatchedExFortran(handle, side, uplo, transA, diag, m, n, alp B, ldb, batch_count, invA, invA_size, compute_type) & bind(c, name='hipblasTrsmBatchedExFortran') use iso_c_binding - use hipblas_enums + use hipblas + use hip implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasTrsmBatchedExFortran type(c_ptr), value :: handle @@ -12908,7 +12921,8 @@ function hipblasTrsmStridedBatchedExFortran(handle, side, uplo, transA, diag, m, B, ldb, stride_B, batch_count, invA, invA_size, stride_invA, compute_type) & bind(c, name='hipblasTrsmStridedBatchedExFortran') use iso_c_binding - use hipblas_enums + use hipblas + use hip implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasTrsmStridedBatchedExFortran type(c_ptr), value :: handle @@ -12939,7 +12953,8 @@ end function hipblasTrsmStridedBatchedExFortran function hipblasAxpyExFortran(handle, n, alpha, alphaType, x, xType, incx, y, yType, incy, executionType) & bind(c, name='hipblasAxpyExFortran') use iso_c_binding - use hipblas_enums + use hipblas + use hip implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasAxpyExFortran type(c_ptr), value :: handle @@ -12961,7 +12976,8 @@ end function hipblasAxpyExFortran function hipblasAxpyBatchedExFortran(handle, n, alpha, alphaType, x, xType, incx, y, yType, incy, batch_count, executionType) & bind(c, name='hipblasAxpyBatchedExFortran') use iso_c_binding - use hipblas_enums + use hipblas + use hip implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasAxpyBatchedExFortran type(c_ptr), value :: handle @@ -12985,7 +13001,8 @@ function hipblasAxpyStridedBatchedExFortran(handle, n, alpha, alphaType, x, xTyp y, yType, incy, stridey, batch_count, executionType) & bind(c, name='hipblasAxpyStridedBatchedExFortran') use iso_c_binding - use hipblas_enums + use hipblas + use hip implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasAxpyStridedBatchedExFortran type(c_ptr), value :: handle @@ -13013,7 +13030,8 @@ function hipblasDotExFortran(handle, n, x, xType, incx, y, yType, incy, result, resultType, executionType) & bind(c, name='hipblasDotExFortran') use iso_c_binding - use hipblas_enums + use hipblas + use hip implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDotExFortran type(c_ptr), value :: handle @@ -13036,7 +13054,8 @@ function hipblasDotcExFortran(handle, n, x, xType, incx, y, yType, incy, result, resultType, executionType) & bind(c, name='hipblasDotcExFortran') use iso_c_binding - use hipblas_enums + use hipblas + use hip implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDotcExFortran type(c_ptr), value :: handle @@ -13059,7 +13078,8 @@ function hipblasDotBatchedExFortran(handle, n, x, xType, incx, y, yType, incy, b resultType, executionType) & bind(c, name='hipblasDotBatchedExFortran') use iso_c_binding - use hipblas_enums + use hipblas + use hip implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDotBatchedExFortran type(c_ptr), value :: handle @@ -13083,7 +13103,8 @@ function hipblasDotcBatchedExFortran(handle, n, x, xType, incx, y, yType, incy, resultType, executionType) & bind(c, name='hipblasDotcBatchedExFortran') use iso_c_binding - use hipblas_enums + use hipblas + use hip implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDotcBatchedExFortran type(c_ptr), value :: handle @@ -13107,7 +13128,8 @@ function hipblasDotStridedBatchedExFortran(handle, n, x, xType, incx, stridex, & y, yType, incy, stridey, batch_count, result, resultType, executionType) & bind(c, name='hipblasDotStridedBatchedExFortran') use iso_c_binding - use hipblas_enums + use hipblas + use hip implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDotStridedBatchedExFortran type(c_ptr), value :: handle @@ -13134,7 +13156,8 @@ function hipblasDotcStridedBatchedExFortran(handle, n, x, xType, incx, stridex, y, yType, incy, stridey, batch_count, result, resultType, executionType) & bind(c, name='hipblasDotcStridedBatchedExFortran') use iso_c_binding - use hipblas_enums + use hipblas + use hip implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDotcStridedBatchedExFortran type(c_ptr), value :: handle @@ -13161,7 +13184,8 @@ end function hipblasDotcStridedBatchedExFortran function hipblasNrm2ExFortran(handle, n, x, xType, incx, result, resultType, executionType) & bind(c, name='hipblasNrm2ExFortran') use iso_c_binding - use hipblas_enums + use hipblas + use hip implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasNrm2ExFortran type(c_ptr), value :: handle @@ -13180,7 +13204,8 @@ end function hipblasNrm2ExFortran function hipblasNrm2BatchedExFortran(handle, n, x, xType, incx, batch_count, result, resultType, executionType) & bind(c, name='hipblasNrm2BatchedExFortran') use iso_c_binding - use hipblas_enums + use hipblas + use hip implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasNrm2BatchedExFortran type(c_ptr), value :: handle @@ -13201,7 +13226,8 @@ function hipblasNrm2StridedBatchedExFortran(handle, n, x, xType, incx, stridex, batch_count, result, resultType, executionType) & bind(c, name='hipblasNrm2StridedBatchedExFortran') use iso_c_binding - use hipblas_enums + use hipblas + use hip implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasNrm2StridedBatchedExFortran type(c_ptr), value :: handle @@ -13225,7 +13251,8 @@ function hipblasRotExFortran(handle, n, x, xType, incx, y, yType, incy, c, s, & csType, executionType) & bind(c, name='hipblasRotExFortran') use iso_c_binding - use hipblas_enums + use hipblas + use hip implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasRotExFortran type(c_ptr), value :: handle @@ -13249,7 +13276,8 @@ function hipblasRotBatchedExFortran(handle, n, x, xType, incx, y, yType, incy, c csType, batch_count, executionType) & bind(c, name='hipblasRotBatchedExFortran') use iso_c_binding - use hipblas_enums + use hipblas + use hip implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasRotBatchedExFortran type(c_ptr), value :: handle @@ -13274,7 +13302,8 @@ function hipblasRotStridedBatchedExFortran(handle, n, x, xType, incx, stridex, & y, yType, incy, stridey, c, s, csType, batch_count, executionType) & bind(c, name='hipblasRotStridedBatchedExFortran') use iso_c_binding - use hipblas_enums + use hipblas + use hip implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasRotStridedBatchedExFortran type(c_ptr), value :: handle @@ -13302,7 +13331,8 @@ end function hipblasRotStridedBatchedExFortran function hipblasScalExFortran(handle, n, alpha, alphaType, x, xType, incx, executionType) & bind(c, name='hipblasScalExFortran') use iso_c_binding - use hipblas_enums + use hipblas + use hip implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScalExFortran type(c_ptr), value :: handle @@ -13321,7 +13351,8 @@ end function hipblasScalExFortran function hipblasScalBatchedExFortran(handle, n, alpha, alphaType, x, xType, incx, batch_count, executionType) & bind(c, name='hipblasScalBatchedExFortran') use iso_c_binding - use hipblas_enums + use hipblas + use hip implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScalBatchedExFortran type(c_ptr), value :: handle @@ -13342,7 +13373,8 @@ function hipblasScalStridedBatchedExFortran(handle, n, alpha, alphaType, x, xTyp batch_count, executionType) & bind(c, name='hipblasScalStridedBatchedExFortran') use iso_c_binding - use hipblas_enums + use hipblas + use hip implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScalStridedBatchedExFortran type(c_ptr), value :: handle @@ -13365,7 +13397,7 @@ end function hipblasScalStridedBatchedExFortran ! function hipblasCsyrkExFortran(handle, uplo, trans, n, k, alpha, A, Atype, lda, beta, C, Ctype, ldc) & ! bind(c, name = 'hipblasCsyrkExFortran') ! use iso_c_binding -! use hipblas_enums +! use hipblas ! implicit none ! integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkExFortran ! type(c_ptr), value :: handle @@ -13388,7 +13420,7 @@ end function hipblasScalStridedBatchedExFortran ! function hipblasCherkExFortran(handle, uplo, trans, n, k, alpha, A, Atype, lda, beta, C, Ctype, ldc) & ! bind(c, name = 'hipblasCherkExFortran') ! use iso_c_binding -! use hipblas_enums +! use hipblas ! implicit none ! integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkExFortran ! type(c_ptr), value :: handle diff --git a/projects/hipblas/clients/include/hipblas_fortran_blas_64.f90 b/projects/hipblas/clients/include/hipblas_fortran_blas_64.f90 index 93970cf1b711..9ed9711c0d48 100644 --- a/projects/hipblas/clients/include/hipblas_fortran_blas_64.f90 +++ b/projects/hipblas/clients/include/hipblas_fortran_blas_64.f90 @@ -29,7 +29,7 @@ function hipblasIsamax_64Fortran(handle, n, x, incx, result) & bind(c, name='hipblasIsamax_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamax_64Fortran type(c_ptr), value :: handle @@ -45,7 +45,7 @@ end function hipblasIsamax_64Fortran function hipblasIdamax_64Fortran(handle, n, x, incx, result) & bind(c, name='hipblasIdamax_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamax_64Fortran type(c_ptr), value :: handle @@ -61,7 +61,7 @@ end function hipblasIdamax_64Fortran function hipblasIcamax_64Fortran(handle, n, x, incx, result) & bind(c, name='hipblasIcamax_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamax_64Fortran type(c_ptr), value :: handle @@ -77,7 +77,7 @@ end function hipblasIcamax_64Fortran function hipblasIzamax_64Fortran(handle, n, x, incx, result) & bind(c, name='hipblasIzamax_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamax_64Fortran type(c_ptr), value :: handle @@ -94,7 +94,7 @@ end function hipblasIzamax_64Fortran function hipblasIsamaxBatched_64Fortran(handle, n, x, incx, batch_count, result) & bind(c, name='hipblasIsamaxBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamaxBatched_64Fortran type(c_ptr), value :: handle @@ -111,7 +111,7 @@ end function hipblasIsamaxBatched_64Fortran function hipblasIdamaxBatched_64Fortran(handle, n, x, incx, batch_count, result) & bind(c, name='hipblasIdamaxBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamaxBatched_64Fortran type(c_ptr), value :: handle @@ -128,7 +128,7 @@ end function hipblasIdamaxBatched_64Fortran function hipblasIcamaxBatched_64Fortran(handle, n, x, incx, batch_count, result) & bind(c, name='hipblasIcamaxBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamaxBatched_64Fortran type(c_ptr), value :: handle @@ -145,7 +145,7 @@ end function hipblasIcamaxBatched_64Fortran function hipblasIzamaxBatched_64Fortran(handle, n, x, incx, batch_count, result) & bind(c, name='hipblasIzamaxBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamaxBatched_64Fortran type(c_ptr), value :: handle @@ -163,7 +163,7 @@ end function hipblasIzamaxBatched_64Fortran function hipblasIsamaxStridedBatched_64Fortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='hipblasIsamaxStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamaxStridedBatched_64Fortran type(c_ptr), value :: handle @@ -181,7 +181,7 @@ end function hipblasIsamaxStridedBatched_64Fortran function hipblasIdamaxStridedBatched_64Fortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='hipblasIdamaxStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamaxStridedBatched_64Fortran type(c_ptr), value :: handle @@ -199,7 +199,7 @@ end function hipblasIdamaxStridedBatched_64Fortran function hipblasIcamaxStridedBatched_64Fortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='hipblasIcamaxStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamaxStridedBatched_64Fortran type(c_ptr), value :: handle @@ -217,7 +217,7 @@ end function hipblasIcamaxStridedBatched_64Fortran function hipblasIzamaxStridedBatched_64Fortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='hipblasIzamaxStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamaxStridedBatched_64Fortran type(c_ptr), value :: handle @@ -236,7 +236,7 @@ end function hipblasIzamaxStridedBatched_64Fortran function hipblasIsamin_64Fortran(handle, n, x, incx, result) & bind(c, name='hipblasIsamin_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamin_64Fortran type(c_ptr), value :: handle @@ -252,7 +252,7 @@ end function hipblasIsamin_64Fortran function hipblasIdamin_64Fortran(handle, n, x, incx, result) & bind(c, name='hipblasIdamin_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamin_64Fortran type(c_ptr), value :: handle @@ -268,7 +268,7 @@ end function hipblasIdamin_64Fortran function hipblasIcamin_64Fortran(handle, n, x, incx, result) & bind(c, name='hipblasIcamin_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamin_64Fortran type(c_ptr), value :: handle @@ -284,7 +284,7 @@ end function hipblasIcamin_64Fortran function hipblasIzamin_64Fortran(handle, n, x, incx, result) & bind(c, name='hipblasIzamin_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamin_64Fortran type(c_ptr), value :: handle @@ -301,7 +301,7 @@ end function hipblasIzamin_64Fortran function hipblasIsaminBatched_64Fortran(handle, n, x, incx, batch_count, result) & bind(c, name='hipblasIsaminBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsaminBatched_64Fortran type(c_ptr), value :: handle @@ -318,7 +318,7 @@ end function hipblasIsaminBatched_64Fortran function hipblasIdaminBatched_64Fortran(handle, n, x, incx, batch_count, result) & bind(c, name='hipblasIdaminBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdaminBatched_64Fortran type(c_ptr), value :: handle @@ -335,7 +335,7 @@ end function hipblasIdaminBatched_64Fortran function hipblasIcaminBatched_64Fortran(handle, n, x, incx, batch_count, result) & bind(c, name='hipblasIcaminBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcaminBatched_64Fortran type(c_ptr), value :: handle @@ -352,7 +352,7 @@ end function hipblasIcaminBatched_64Fortran function hipblasIzaminBatched_64Fortran(handle, n, x, incx, batch_count, result) & bind(c, name='hipblasIzaminBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzaminBatched_64Fortran type(c_ptr), value :: handle @@ -370,7 +370,7 @@ end function hipblasIzaminBatched_64Fortran function hipblasIsaminStridedBatched_64Fortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='hipblasIsaminStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsaminStridedBatched_64Fortran type(c_ptr), value :: handle @@ -388,7 +388,7 @@ end function hipblasIsaminStridedBatched_64Fortran function hipblasIdaminStridedBatched_64Fortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='hipblasIdaminStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdaminStridedBatched_64Fortran type(c_ptr), value :: handle @@ -406,7 +406,7 @@ end function hipblasIdaminStridedBatched_64Fortran function hipblasIcaminStridedBatched_64Fortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='hipblasIcaminStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcaminStridedBatched_64Fortran type(c_ptr), value :: handle @@ -424,7 +424,7 @@ end function hipblasIcaminStridedBatched_64Fortran function hipblasIzaminStridedBatched_64Fortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='hipblasIzaminStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzaminStridedBatched_64Fortran type(c_ptr), value :: handle @@ -443,7 +443,7 @@ end function hipblasIzaminStridedBatched_64Fortran function hipblasSasum_64Fortran(handle, n, x, incx, result) & bind(c, name='hipblasSasum_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasum_64Fortran type(c_ptr), value :: handle @@ -459,7 +459,7 @@ end function hipblasSasum_64Fortran function hipblasDasum_64Fortran(handle, n, x, incx, result) & bind(c, name='hipblasDasum_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasum_64Fortran type(c_ptr), value :: handle @@ -475,7 +475,7 @@ end function hipblasDasum_64Fortran function hipblasScasum_64Fortran(handle, n, x, incx, result) & bind(c, name='hipblasScasum_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasum_64Fortran type(c_ptr), value :: handle @@ -491,7 +491,7 @@ end function hipblasScasum_64Fortran function hipblasDzasum_64Fortran(handle, n, x, incx, result) & bind(c, name='hipblasDzasum_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasum_64Fortran type(c_ptr), value :: handle @@ -508,7 +508,7 @@ end function hipblasDzasum_64Fortran function hipblasSasumBatched_64Fortran(handle, n, x, incx, batch_count, result) & bind(c, name='hipblasSasumBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasumBatched_64Fortran type(c_ptr), value :: handle @@ -525,7 +525,7 @@ end function hipblasSasumBatched_64Fortran function hipblasDasumBatched_64Fortran(handle, n, x, incx, batch_count, result) & bind(c, name='hipblasDasumBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasumBatched_64Fortran type(c_ptr), value :: handle @@ -542,7 +542,7 @@ end function hipblasDasumBatched_64Fortran function hipblasScasumBatched_64Fortran(handle, n, x, incx, batch_count, result) & bind(c, name='hipblasScasumBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasumBatched_64Fortran type(c_ptr), value :: handle @@ -559,7 +559,7 @@ end function hipblasScasumBatched_64Fortran function hipblasDzasumBatched_64Fortran(handle, n, x, incx, batch_count, result) & bind(c, name='hipblasDzasumBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasumBatched_64Fortran type(c_ptr), value :: handle @@ -577,7 +577,7 @@ end function hipblasDzasumBatched_64Fortran function hipblasSasumStridedBatched_64Fortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='hipblasSasumStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasumStridedBatched_64Fortran type(c_ptr), value :: handle @@ -595,7 +595,7 @@ end function hipblasSasumStridedBatched_64Fortran function hipblasDasumStridedBatched_64Fortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='hipblasDasumStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasumStridedBatched_64Fortran type(c_ptr), value :: handle @@ -613,7 +613,7 @@ end function hipblasDasumStridedBatched_64Fortran function hipblasScasumStridedBatched_64Fortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='hipblasScasumStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasumStridedBatched_64Fortran type(c_ptr), value :: handle @@ -631,7 +631,7 @@ end function hipblasScasumStridedBatched_64Fortran function hipblasDzasumStridedBatched_64Fortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='hipblasDzasumStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasumStridedBatched_64Fortran type(c_ptr), value :: handle @@ -650,7 +650,7 @@ end function hipblasDzasumStridedBatched_64Fortran function hipblasHaxpy_64Fortran(handle, n, alpha, x, incx, y, incy) & bind(c, name='hipblasHaxpy_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHaxpy_64Fortran type(c_ptr), value :: handle @@ -668,7 +668,7 @@ end function hipblasHaxpy_64Fortran function hipblasSaxpy_64Fortran(handle, n, alpha, x, incx, y, incy) & bind(c, name='hipblasSaxpy_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpy_64Fortran type(c_ptr), value :: handle @@ -686,7 +686,7 @@ end function hipblasSaxpy_64Fortran function hipblasDaxpy_64Fortran(handle, n, alpha, x, incx, y, incy) & bind(c, name='hipblasDaxpy_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpy_64Fortran type(c_ptr), value :: handle @@ -704,7 +704,7 @@ end function hipblasDaxpy_64Fortran function hipblasCaxpy_64Fortran(handle, n, alpha, x, incx, y, incy) & bind(c, name='hipblasCaxpy_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpy_64Fortran type(c_ptr), value :: handle @@ -722,7 +722,7 @@ end function hipblasCaxpy_64Fortran function hipblasZaxpy_64Fortran(handle, n, alpha, x, incx, y, incy) & bind(c, name='hipblasZaxpy_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpy_64Fortran type(c_ptr), value :: handle @@ -741,7 +741,7 @@ end function hipblasZaxpy_64Fortran function hipblasHaxpyBatched_64Fortran(handle, n, alpha, x, incx, y, incy, batch_count) & bind(c, name='hipblasHaxpyBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHaxpyBatched_64Fortran type(c_ptr), value :: handle @@ -760,7 +760,7 @@ end function hipblasHaxpyBatched_64Fortran function hipblasSaxpyBatched_64Fortran(handle, n, alpha, x, incx, y, incy, batch_count) & bind(c, name='hipblasSaxpyBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpyBatched_64Fortran type(c_ptr), value :: handle @@ -779,7 +779,7 @@ end function hipblasSaxpyBatched_64Fortran function hipblasDaxpyBatched_64Fortran(handle, n, alpha, x, incx, y, incy, batch_count) & bind(c, name='hipblasDaxpyBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpyBatched_64Fortran type(c_ptr), value :: handle @@ -798,7 +798,7 @@ end function hipblasDaxpyBatched_64Fortran function hipblasCaxpyBatched_64Fortran(handle, n, alpha, x, incx, y, incy, batch_count) & bind(c, name='hipblasCaxpyBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpyBatched_64Fortran type(c_ptr), value :: handle @@ -817,7 +817,7 @@ end function hipblasCaxpyBatched_64Fortran function hipblasZaxpyBatched_64Fortran(handle, n, alpha, x, incx, y, incy, batch_count) & bind(c, name='hipblasZaxpyBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpyBatched_64Fortran type(c_ptr), value :: handle @@ -837,7 +837,7 @@ end function hipblasZaxpyBatched_64Fortran function hipblasHaxpyStridedBatched_64Fortran(handle, n, alpha, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='hipblasHaxpyStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHaxpyStridedBatched_64Fortran type(c_ptr), value :: handle @@ -858,7 +858,7 @@ end function hipblasHaxpyStridedBatched_64Fortran function hipblasSaxpyStridedBatched_64Fortran(handle, n, alpha, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='hipblasSaxpyStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpyStridedBatched_64Fortran type(c_ptr), value :: handle @@ -879,7 +879,7 @@ end function hipblasSaxpyStridedBatched_64Fortran function hipblasDaxpyStridedBatched_64Fortran(handle, n, alpha, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='hipblasDaxpyStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpyStridedBatched_64Fortran type(c_ptr), value :: handle @@ -900,7 +900,7 @@ end function hipblasDaxpyStridedBatched_64Fortran function hipblasCaxpyStridedBatched_64Fortran(handle, n, alpha, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='hipblasCaxpyStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpyStridedBatched_64Fortran type(c_ptr), value :: handle @@ -921,7 +921,7 @@ end function hipblasCaxpyStridedBatched_64Fortran function hipblasZaxpyStridedBatched_64Fortran(handle, n, alpha, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='hipblasZaxpyStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpyStridedBatched_64Fortran type(c_ptr), value :: handle @@ -943,7 +943,7 @@ end function hipblasZaxpyStridedBatched_64Fortran function hipblasScopy_64Fortran(handle, n, x, incx, y, incy) & bind(c, name='hipblasScopy_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScopy_64Fortran type(c_ptr), value :: handle @@ -960,7 +960,7 @@ end function hipblasScopy_64Fortran function hipblasDcopy_64Fortran(handle, n, x, incx, y, incy) & bind(c, name='hipblasDcopy_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDcopy_64Fortran type(c_ptr), value :: handle @@ -977,7 +977,7 @@ end function hipblasDcopy_64Fortran function hipblasCcopy_64Fortran(handle, n, x, incx, y, incy) & bind(c, name='hipblasCcopy_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCcopy_64Fortran type(c_ptr), value :: handle @@ -994,7 +994,7 @@ end function hipblasCcopy_64Fortran function hipblasZcopy_64Fortran(handle, n, x, incx, y, incy) & bind(c, name='hipblasZcopy_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZcopy_64Fortran type(c_ptr), value :: handle @@ -1012,7 +1012,7 @@ end function hipblasZcopy_64Fortran function hipblasScopyBatched_64Fortran(handle, n, x, incx, y, incy, batch_count) & bind(c, name='hipblasScopyBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScopyBatched_64Fortran type(c_ptr), value :: handle @@ -1030,7 +1030,7 @@ end function hipblasScopyBatched_64Fortran function hipblasDcopyBatched_64Fortran(handle, n, x, incx, y, incy, batch_count) & bind(c, name='hipblasDcopyBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDcopyBatched_64Fortran type(c_ptr), value :: handle @@ -1048,7 +1048,7 @@ end function hipblasDcopyBatched_64Fortran function hipblasCcopyBatched_64Fortran(handle, n, x, incx, y, incy, batch_count) & bind(c, name='hipblasCcopyBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCcopyBatched_64Fortran type(c_ptr), value :: handle @@ -1066,7 +1066,7 @@ end function hipblasCcopyBatched_64Fortran function hipblasZcopyBatched_64Fortran(handle, n, x, incx, y, incy, batch_count) & bind(c, name='hipblasZcopyBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZcopyBatched_64Fortran type(c_ptr), value :: handle @@ -1085,7 +1085,7 @@ end function hipblasZcopyBatched_64Fortran function hipblasScopyStridedBatched_64Fortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='hipblasScopyStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScopyStridedBatched_64Fortran type(c_ptr), value :: handle @@ -1105,7 +1105,7 @@ end function hipblasScopyStridedBatched_64Fortran function hipblasDcopyStridedBatched_64Fortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='hipblasDcopyStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDcopyStridedBatched_64Fortran type(c_ptr), value :: handle @@ -1125,7 +1125,7 @@ end function hipblasDcopyStridedBatched_64Fortran function hipblasCcopyStridedBatched_64Fortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='hipblasCcopyStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCcopyStridedBatched_64Fortran type(c_ptr), value :: handle @@ -1145,7 +1145,7 @@ end function hipblasCcopyStridedBatched_64Fortran function hipblasZcopyStridedBatched_64Fortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='hipblasZcopyStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZcopyStridedBatched_64Fortran type(c_ptr), value :: handle @@ -1166,7 +1166,7 @@ end function hipblasZcopyStridedBatched_64Fortran function hipblasSdot_64Fortran(handle, n, x, incx, y, incy, result) & bind(c, name='hipblasSdot_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdot_64Fortran type(c_ptr), value :: handle @@ -1184,7 +1184,7 @@ end function hipblasSdot_64Fortran function hipblasDdot_64Fortran(handle, n, x, incx, y, incy, result) & bind(c, name='hipblasDdot_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdot_64Fortran type(c_ptr), value :: handle @@ -1202,7 +1202,7 @@ end function hipblasDdot_64Fortran function hipblasHdot_64Fortran(handle, n, x, incx, y, incy, result) & bind(c, name='hipblasHdot_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHdot_64Fortran type(c_ptr), value :: handle @@ -1220,7 +1220,7 @@ end function hipblasHdot_64Fortran function hipblasBfdot_64Fortran(handle, n, x, incx, y, incy, result) & bind(c, name='hipblasBfdot_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasBfdot_64Fortran type(c_ptr), value :: handle @@ -1238,7 +1238,7 @@ end function hipblasBfdot_64Fortran function hipblasCdotu_64Fortran(handle, n, x, incx, y, incy, result) & bind(c, name='hipblasCdotu_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotu_64Fortran type(c_ptr), value :: handle @@ -1256,7 +1256,7 @@ end function hipblasCdotu_64Fortran function hipblasCdotc_64Fortran(handle, n, x, incx, y, incy, result) & bind(c, name='hipblasCdotc_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotc_64Fortran type(c_ptr), value :: handle @@ -1274,7 +1274,7 @@ end function hipblasCdotc_64Fortran function hipblasZdotu_64Fortran(handle, n, x, incx, y, incy, result) & bind(c, name='hipblasZdotu_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotu_64Fortran type(c_ptr), value :: handle @@ -1292,7 +1292,7 @@ end function hipblasZdotu_64Fortran function hipblasZdotc_64Fortran(handle, n, x, incx, y, incy, result) & bind(c, name='hipblasZdotc_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotc_64Fortran type(c_ptr), value :: handle @@ -1311,7 +1311,7 @@ end function hipblasZdotc_64Fortran function hipblasSdotBatched_64Fortran(handle, n, x, incx, y, incy, batch_count, result) & bind(c, name='hipblasSdotBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdotBatched_64Fortran type(c_ptr), value :: handle @@ -1330,7 +1330,7 @@ end function hipblasSdotBatched_64Fortran function hipblasDdotBatched_64Fortran(handle, n, x, incx, y, incy, batch_count, result) & bind(c, name='hipblasDdotBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdotBatched_64Fortran type(c_ptr), value :: handle @@ -1349,7 +1349,7 @@ end function hipblasDdotBatched_64Fortran function hipblasHdotBatched_64Fortran(handle, n, x, incx, y, incy, batch_count, result) & bind(c, name='hipblasHdotBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHdotBatched_64Fortran type(c_ptr), value :: handle @@ -1368,7 +1368,7 @@ end function hipblasHdotBatched_64Fortran function hipblasBfdotBatched_64Fortran(handle, n, x, incx, y, incy, batch_count, result) & bind(c, name='hipblasBfdotBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasBfdotBatched_64Fortran type(c_ptr), value :: handle @@ -1387,7 +1387,7 @@ end function hipblasBfdotBatched_64Fortran function hipblasCdotuBatched_64Fortran(handle, n, x, incx, y, incy, batch_count, result) & bind(c, name='hipblasCdotuBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotuBatched_64Fortran type(c_ptr), value :: handle @@ -1406,7 +1406,7 @@ end function hipblasCdotuBatched_64Fortran function hipblasCdotcBatched_64Fortran(handle, n, x, incx, y, incy, batch_count, result) & bind(c, name='hipblasCdotcBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotcBatched_64Fortran type(c_ptr), value :: handle @@ -1425,7 +1425,7 @@ end function hipblasCdotcBatched_64Fortran function hipblasZdotuBatched_64Fortran(handle, n, x, incx, y, incy, batch_count, result) & bind(c, name='hipblasZdotuBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotuBatched_64Fortran type(c_ptr), value :: handle @@ -1444,7 +1444,7 @@ end function hipblasZdotuBatched_64Fortran function hipblasZdotcBatched_64Fortran(handle, n, x, incx, y, incy, batch_count, result) & bind(c, name='hipblasZdotcBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotcBatched_64Fortran type(c_ptr), value :: handle @@ -1464,7 +1464,7 @@ end function hipblasZdotcBatched_64Fortran function hipblasSdotStridedBatched_64Fortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & bind(c, name='hipblasSdotStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdotStridedBatched_64Fortran type(c_ptr), value :: handle @@ -1485,7 +1485,7 @@ end function hipblasSdotStridedBatched_64Fortran function hipblasDdotStridedBatched_64Fortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & bind(c, name='hipblasDdotStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdotStridedBatched_64Fortran type(c_ptr), value :: handle @@ -1506,7 +1506,7 @@ end function hipblasDdotStridedBatched_64Fortran function hipblasHdotStridedBatched_64Fortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & bind(c, name='hipblasHdotStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHdotStridedBatched_64Fortran type(c_ptr), value :: handle @@ -1527,7 +1527,7 @@ end function hipblasHdotStridedBatched_64Fortran function hipblasBfdotStridedBatched_64Fortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & bind(c, name='hipblasBfdotStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasBfdotStridedBatched_64Fortran type(c_ptr), value :: handle @@ -1548,7 +1548,7 @@ end function hipblasBfdotStridedBatched_64Fortran function hipblasCdotuStridedBatched_64Fortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & bind(c, name='hipblasCdotuStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotuStridedBatched_64Fortran type(c_ptr), value :: handle @@ -1569,7 +1569,7 @@ end function hipblasCdotuStridedBatched_64Fortran function hipblasCdotcStridedBatched_64Fortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & bind(c, name='hipblasCdotcStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotcStridedBatched_64Fortran type(c_ptr), value :: handle @@ -1590,7 +1590,7 @@ end function hipblasCdotcStridedBatched_64Fortran function hipblasZdotuStridedBatched_64Fortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & bind(c, name='hipblasZdotuStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotuStridedBatched_64Fortran type(c_ptr), value :: handle @@ -1611,7 +1611,7 @@ end function hipblasZdotuStridedBatched_64Fortran function hipblasZdotcStridedBatched_64Fortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & bind(c, name='hipblasZdotcStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotcStridedBatched_64Fortran type(c_ptr), value :: handle @@ -1633,7 +1633,7 @@ end function hipblasZdotcStridedBatched_64Fortran function hipblasSnrm2_64Fortran(handle, n, x, incx, result) & bind(c, name='hipblasSnrm2_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2_64Fortran type(c_ptr), value :: handle @@ -1649,7 +1649,7 @@ end function hipblasSnrm2_64Fortran function hipblasDnrm2_64Fortran(handle, n, x, incx, result) & bind(c, name='hipblasDnrm2_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2_64Fortran type(c_ptr), value :: handle @@ -1665,7 +1665,7 @@ end function hipblasDnrm2_64Fortran function hipblasScnrm2_64Fortran(handle, n, x, incx, result) & bind(c, name='hipblasScnrm2_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2_64Fortran type(c_ptr), value :: handle @@ -1681,7 +1681,7 @@ end function hipblasScnrm2_64Fortran function hipblasDznrm2_64Fortran(handle, n, x, incx, result) & bind(c, name='hipblasDznrm2_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2_64Fortran type(c_ptr), value :: handle @@ -1698,7 +1698,7 @@ end function hipblasDznrm2_64Fortran function hipblasSnrm2Batched_64Fortran(handle, n, x, incx, batch_count, result) & bind(c, name='hipblasSnrm2Batched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2Batched_64Fortran type(c_ptr), value :: handle @@ -1715,7 +1715,7 @@ end function hipblasSnrm2Batched_64Fortran function hipblasDnrm2Batched_64Fortran(handle, n, x, incx, batch_count, result) & bind(c, name='hipblasDnrm2Batched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2Batched_64Fortran type(c_ptr), value :: handle @@ -1732,7 +1732,7 @@ end function hipblasDnrm2Batched_64Fortran function hipblasScnrm2Batched_64Fortran(handle, n, x, incx, batch_count, result) & bind(c, name='hipblasScnrm2Batched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2Batched_64Fortran type(c_ptr), value :: handle @@ -1749,7 +1749,7 @@ end function hipblasScnrm2Batched_64Fortran function hipblasDznrm2Batched_64Fortran(handle, n, x, incx, batch_count, result) & bind(c, name='hipblasDznrm2Batched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2Batched_64Fortran type(c_ptr), value :: handle @@ -1767,7 +1767,7 @@ end function hipblasDznrm2Batched_64Fortran function hipblasSnrm2StridedBatched_64Fortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='hipblasSnrm2StridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2StridedBatched_64Fortran type(c_ptr), value :: handle @@ -1785,7 +1785,7 @@ end function hipblasSnrm2StridedBatched_64Fortran function hipblasDnrm2StridedBatched_64Fortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='hipblasDnrm2StridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2StridedBatched_64Fortran type(c_ptr), value :: handle @@ -1803,7 +1803,7 @@ end function hipblasDnrm2StridedBatched_64Fortran function hipblasScnrm2StridedBatched_64Fortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='hipblasScnrm2StridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2StridedBatched_64Fortran type(c_ptr), value :: handle @@ -1821,7 +1821,7 @@ end function hipblasScnrm2StridedBatched_64Fortran function hipblasDznrm2StridedBatched_64Fortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='hipblasDznrm2StridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2StridedBatched_64Fortran type(c_ptr), value :: handle @@ -1840,7 +1840,7 @@ end function hipblasDznrm2StridedBatched_64Fortran function hipblasSrot_64Fortran(handle, n, x, incx, y, incy, c, s) & bind(c, name='hipblasSrot_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrot_64Fortran type(c_ptr), value :: handle @@ -1859,7 +1859,7 @@ end function hipblasSrot_64Fortran function hipblasDrot_64Fortran(handle, n, x, incx, y, incy, c, s) & bind(c, name='hipblasDrot_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrot_64Fortran type(c_ptr), value :: handle @@ -1878,7 +1878,7 @@ end function hipblasDrot_64Fortran function hipblasCrot_64Fortran(handle, n, x, incx, y, incy, c, s) & bind(c, name='hipblasCrot_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrot_64Fortran type(c_ptr), value :: handle @@ -1897,7 +1897,7 @@ end function hipblasCrot_64Fortran function hipblasCsrot_64Fortran(handle, n, x, incx, y, incy, c, s) & bind(c, name='hipblasCsrot_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrot_64Fortran type(c_ptr), value :: handle @@ -1916,7 +1916,7 @@ end function hipblasCsrot_64Fortran function hipblasZrot_64Fortran(handle, n, x, incx, y, incy, c, s) & bind(c, name='hipblasZrot_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrot_64Fortran type(c_ptr), value :: handle @@ -1935,7 +1935,7 @@ end function hipblasZrot_64Fortran function hipblasZdrot_64Fortran(handle, n, x, incx, y, incy, c, s) & bind(c, name='hipblasZdrot_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrot_64Fortran type(c_ptr), value :: handle @@ -1955,7 +1955,7 @@ end function hipblasZdrot_64Fortran function hipblasSrotBatched_64Fortran(handle, n, x, incx, y, incy, c, s, batch_count) & bind(c, name='hipblasSrotBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotBatched_64Fortran type(c_ptr), value :: handle @@ -1975,7 +1975,7 @@ end function hipblasSrotBatched_64Fortran function hipblasDrotBatched_64Fortran(handle, n, x, incx, y, incy, c, s, batch_count) & bind(c, name='hipblasDrotBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotBatched_64Fortran type(c_ptr), value :: handle @@ -1995,7 +1995,7 @@ end function hipblasDrotBatched_64Fortran function hipblasCrotBatched_64Fortran(handle, n, x, incx, y, incy, c, s, batch_count) & bind(c, name='hipblasCrotBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotBatched_64Fortran type(c_ptr), value :: handle @@ -2015,7 +2015,7 @@ end function hipblasCrotBatched_64Fortran function hipblasCsrotBatched_64Fortran(handle, n, x, incx, y, incy, c, s, batch_count) & bind(c, name='hipblasCsrotBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrotBatched_64Fortran type(c_ptr), value :: handle @@ -2035,7 +2035,7 @@ end function hipblasCsrotBatched_64Fortran function hipblasZrotBatched_64Fortran(handle, n, x, incx, y, incy, c, s, batch_count) & bind(c, name='hipblasZrotBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotBatched_64Fortran type(c_ptr), value :: handle @@ -2055,7 +2055,7 @@ end function hipblasZrotBatched_64Fortran function hipblasZdrotBatched_64Fortran(handle, n, x, incx, y, incy, c, s, batch_count) & bind(c, name='hipblasZdrotBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrotBatched_64Fortran type(c_ptr), value :: handle @@ -2076,7 +2076,7 @@ end function hipblasZdrotBatched_64Fortran function hipblasSrotStridedBatched_64Fortran(handle, n, x, incx, stride_x, y, incy, stride_y, c, s, batch_count) & bind(c, name='hipblasSrotStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotStridedBatched_64Fortran type(c_ptr), value :: handle @@ -2098,7 +2098,7 @@ end function hipblasSrotStridedBatched_64Fortran function hipblasDrotStridedBatched_64Fortran(handle, n, x, incx, stride_x, y, incy, stride_y, c, s, batch_count) & bind(c, name='hipblasDrotStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotStridedBatched_64Fortran type(c_ptr), value :: handle @@ -2120,7 +2120,7 @@ end function hipblasDrotStridedBatched_64Fortran function hipblasCrotStridedBatched_64Fortran(handle, n, x, incx, stride_x, y, incy, stride_y, c, s, batch_count) & bind(c, name='hipblasCrotStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotStridedBatched_64Fortran type(c_ptr), value :: handle @@ -2142,7 +2142,7 @@ end function hipblasCrotStridedBatched_64Fortran function hipblasCsrotStridedBatched_64Fortran(handle, n, x, incx, stride_x, y, incy, stride_y, c, s, batch_count) & bind(c, name='hipblasCsrotStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrotStridedBatched_64Fortran type(c_ptr), value :: handle @@ -2164,7 +2164,7 @@ end function hipblasCsrotStridedBatched_64Fortran function hipblasZrotStridedBatched_64Fortran(handle, n, x, incx, stride_x, y, incy, stride_y, c, s, batch_count) & bind(c, name='hipblasZrotStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotStridedBatched_64Fortran type(c_ptr), value :: handle @@ -2186,7 +2186,7 @@ end function hipblasZrotStridedBatched_64Fortran function hipblasZdrotStridedBatched_64Fortran(handle, n, x, incx, stride_x, y, incy, stride_y, c, s, batch_count) & bind(c, name='hipblasZdrotStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrotStridedBatched_64Fortran type(c_ptr), value :: handle @@ -2209,7 +2209,7 @@ end function hipblasZdrotStridedBatched_64Fortran function hipblasSrotg_64Fortran(handle, a, b, c, s) & bind(c, name='hipblasSrotg_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotg_64Fortran type(c_ptr), value :: handle @@ -2225,7 +2225,7 @@ end function hipblasSrotg_64Fortran function hipblasDrotg_64Fortran(handle, a, b, c, s) & bind(c, name='hipblasDrotg_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotg_64Fortran type(c_ptr), value :: handle @@ -2241,7 +2241,7 @@ end function hipblasDrotg_64Fortran function hipblasCrotg_64Fortran(handle, a, b, c, s) & bind(c, name='hipblasCrotg_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotg_64Fortran type(c_ptr), value :: handle @@ -2257,7 +2257,7 @@ end function hipblasCrotg_64Fortran function hipblasZrotg_64Fortran(handle, a, b, c, s) & bind(c, name='hipblasZrotg_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotg_64Fortran type(c_ptr), value :: handle @@ -2274,7 +2274,7 @@ end function hipblasZrotg_64Fortran function hipblasSrotgBatched_64Fortran(handle, a, b, c, s, batch_count) & bind(c, name='hipblasSrotgBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotgBatched_64Fortran type(c_ptr), value :: handle @@ -2291,7 +2291,7 @@ end function hipblasSrotgBatched_64Fortran function hipblasDrotgBatched_64Fortran(handle, a, b, c, s, batch_count) & bind(c, name='hipblasDrotgBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotgBatched_64Fortran type(c_ptr), value :: handle @@ -2308,7 +2308,7 @@ end function hipblasDrotgBatched_64Fortran function hipblasCrotgBatched_64Fortran(handle, a, b, c, s, batch_count) & bind(c, name='hipblasCrotgBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotgBatched_64Fortran type(c_ptr), value :: handle @@ -2325,7 +2325,7 @@ end function hipblasCrotgBatched_64Fortran function hipblasZrotgBatched_64Fortran(handle, a, b, c, s, batch_count) & bind(c, name='hipblasZrotgBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotgBatched_64Fortran type(c_ptr), value :: handle @@ -2343,7 +2343,7 @@ end function hipblasZrotgBatched_64Fortran function hipblasSrotgStridedBatched_64Fortran(handle, a, stride_a, b, stride_b, c, stride_c, s, stride_s, batch_count) & bind(c, name='hipblasSrotgStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotgStridedBatched_64Fortran type(c_ptr), value :: handle @@ -2364,7 +2364,7 @@ end function hipblasSrotgStridedBatched_64Fortran function hipblasDrotgStridedBatched_64Fortran(handle, a, stride_a, b, stride_b, c, stride_c, s, stride_s, batch_count) & bind(c, name='hipblasDrotgStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotgStridedBatched_64Fortran type(c_ptr), value :: handle @@ -2385,7 +2385,7 @@ end function hipblasDrotgStridedBatched_64Fortran function hipblasCrotgStridedBatched_64Fortran(handle, a, stride_a, b, stride_b, c, stride_c, s, stride_s, batch_count) & bind(c, name='hipblasCrotgStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotgStridedBatched_64Fortran type(c_ptr), value :: handle @@ -2406,7 +2406,7 @@ end function hipblasCrotgStridedBatched_64Fortran function hipblasZrotgStridedBatched_64Fortran(handle, a, stride_a, b, stride_b, c, stride_c, s, stride_s, batch_count) & bind(c, name='hipblasZrotgStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotgStridedBatched_64Fortran type(c_ptr), value :: handle @@ -2428,7 +2428,7 @@ end function hipblasZrotgStridedBatched_64Fortran function hipblasSrotm_64Fortran(handle, n, x, incx, y, incy, param) & bind(c, name='hipblasSrotm_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotm_64Fortran type(c_ptr), value :: handle @@ -2446,7 +2446,7 @@ end function hipblasSrotm_64Fortran function hipblasDrotm_64Fortran(handle, n, x, incx, y, incy, param) & bind(c, name='hipblasDrotm_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotm_64Fortran type(c_ptr), value :: handle @@ -2465,7 +2465,7 @@ end function hipblasDrotm_64Fortran function hipblasSrotmBatched_64Fortran(handle, n, x, incx, y, incy, param, batch_count) & bind(c, name='hipblasSrotmBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmBatched_64Fortran type(c_ptr), value :: handle @@ -2484,7 +2484,7 @@ end function hipblasSrotmBatched_64Fortran function hipblasDrotmBatched_64Fortran(handle, n, x, incx, y, incy, param, batch_count) & bind(c, name='hipblasDrotmBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmBatched_64Fortran type(c_ptr), value :: handle @@ -2505,7 +2505,7 @@ function hipblasSrotmStridedBatched_64Fortran(handle, n, x, incx, stride_x, y, i stride_param, batch_count) & bind(c, name='hipblasSrotmStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmStridedBatched_64Fortran type(c_ptr), value :: handle @@ -2529,7 +2529,7 @@ function hipblasDrotmStridedBatched_64Fortran(handle, n, x, incx, stride_x, y, i stride_param, batch_count) & bind(c, name='hipblasDrotmStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmStridedBatched_64Fortran type(c_ptr), value :: handle @@ -2553,7 +2553,7 @@ end function hipblasDrotmStridedBatched_64Fortran function hipblasSrotmg_64Fortran(handle, d1, d2, x1, y1, param) & bind(c, name='hipblasSrotmg_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmg_64Fortran type(c_ptr), value :: handle @@ -2570,7 +2570,7 @@ end function hipblasSrotmg_64Fortran function hipblasDrotmg_64Fortran(handle, d1, d2, x1, y1, param) & bind(c, name='hipblasDrotmg_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmg_64Fortran type(c_ptr), value :: handle @@ -2588,7 +2588,7 @@ end function hipblasDrotmg_64Fortran function hipblasSrotmgBatched_64Fortran(handle, d1, d2, x1, y1, param, batch_count) & bind(c, name='hipblasSrotmgBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmgBatched_64Fortran type(c_ptr), value :: handle @@ -2606,7 +2606,7 @@ end function hipblasSrotmgBatched_64Fortran function hipblasDrotmgBatched_64Fortran(handle, d1, d2, x1, y1, param, batch_count) & bind(c, name='hipblasDrotmgBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmgBatched_64Fortran type(c_ptr), value :: handle @@ -2626,7 +2626,7 @@ function hipblasSrotmgStridedBatched_64Fortran(handle, d1, stride_d1, d2, stride y1, stride_y1, param, stride_param, batch_count) & bind(c, name='hipblasSrotmgStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmgStridedBatched_64Fortran type(c_ptr), value :: handle @@ -2651,7 +2651,7 @@ function hipblasDrotmgStridedBatched_64Fortran(handle, d1, stride_d1, d2, stride y1, stride_y1, param, stride_param, batch_count) & bind(c, name='hipblasDrotmgStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmgStridedBatched_64Fortran type(c_ptr), value :: handle @@ -2676,7 +2676,7 @@ end function hipblasDrotmgStridedBatched_64Fortran function hipblasSscal_64Fortran(handle, n, alpha, x, incx) & bind(c, name='hipblasSscal_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscal_64Fortran type(c_ptr), value :: handle @@ -2692,7 +2692,7 @@ end function hipblasSscal_64Fortran function hipblasDscal_64Fortran(handle, n, alpha, x, incx) & bind(c, name='hipblasDscal_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscal_64Fortran type(c_ptr), value :: handle @@ -2708,7 +2708,7 @@ end function hipblasDscal_64Fortran function hipblasCscal_64Fortran(handle, n, alpha, x, incx) & bind(c, name='hipblasCscal_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscal_64Fortran type(c_ptr), value :: handle @@ -2724,7 +2724,7 @@ end function hipblasCscal_64Fortran function hipblasZscal_64Fortran(handle, n, alpha, x, incx) & bind(c, name='hipblasZscal_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscal_64Fortran type(c_ptr), value :: handle @@ -2740,7 +2740,7 @@ end function hipblasZscal_64Fortran function hipblasCsscal_64Fortran(handle, n, alpha, x, incx) & bind(c, name='hipblasCsscal_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscal_64Fortran type(c_ptr), value :: handle @@ -2756,7 +2756,7 @@ end function hipblasCsscal_64Fortran function hipblasZdscal_64Fortran(handle, n, alpha, x, incx) & bind(c, name='hipblasZdscal_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscal_64Fortran type(c_ptr), value :: handle @@ -2773,7 +2773,7 @@ end function hipblasZdscal_64Fortran function hipblasSscalBatched_64Fortran(handle, n, alpha, x, incx, batch_count) & bind(c, name='hipblasSscalBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscalBatched_64Fortran type(c_ptr), value :: handle @@ -2790,7 +2790,7 @@ end function hipblasSscalBatched_64Fortran function hipblasDscalBatched_64Fortran(handle, n, alpha, x, incx, batch_count) & bind(c, name='hipblasDscalBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscalBatched_64Fortran type(c_ptr), value :: handle @@ -2807,7 +2807,7 @@ end function hipblasDscalBatched_64Fortran function hipblasCscalBatched_64Fortran(handle, n, alpha, x, incx, batch_count) & bind(c, name='hipblasCscalBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscalBatched_64Fortran type(c_ptr), value :: handle @@ -2824,7 +2824,7 @@ end function hipblasCscalBatched_64Fortran function hipblasZscalBatched_64Fortran(handle, n, alpha, x, incx, batch_count) & bind(c, name='hipblasZscalBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscalBatched_64Fortran type(c_ptr), value :: handle @@ -2841,7 +2841,7 @@ end function hipblasZscalBatched_64Fortran function hipblasCsscalBatched_64Fortran(handle, n, alpha, x, incx, batch_count) & bind(c, name='hipblasCsscalBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscalBatched_64Fortran type(c_ptr), value :: handle @@ -2858,7 +2858,7 @@ end function hipblasCsscalBatched_64Fortran function hipblasZdscalBatched_64Fortran(handle, n, alpha, x, incx, batch_count) & bind(c, name='hipblasZdscalBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscalBatched_64Fortran type(c_ptr), value :: handle @@ -2876,7 +2876,7 @@ end function hipblasZdscalBatched_64Fortran function hipblasSscalStridedBatched_64Fortran(handle, n, alpha, x, incx, stride_x, batch_count) & bind(c, name='hipblasSscalStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscalStridedBatched_64Fortran type(c_ptr), value :: handle @@ -2894,7 +2894,7 @@ end function hipblasSscalStridedBatched_64Fortran function hipblasDscalStridedBatched_64Fortran(handle, n, alpha, x, incx, stride_x, batch_count) & bind(c, name='hipblasDscalStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscalStridedBatched_64Fortran type(c_ptr), value :: handle @@ -2912,7 +2912,7 @@ end function hipblasDscalStridedBatched_64Fortran function hipblasCscalStridedBatched_64Fortran(handle, n, alpha, x, incx, stride_x, batch_count) & bind(c, name='hipblasCscalStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscalStridedBatched_64Fortran type(c_ptr), value :: handle @@ -2930,7 +2930,7 @@ end function hipblasCscalStridedBatched_64Fortran function hipblasZscalStridedBatched_64Fortran(handle, n, alpha, x, incx, stride_x, batch_count) & bind(c, name='hipblasZscalStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscalStridedBatched_64Fortran type(c_ptr), value :: handle @@ -2948,7 +2948,7 @@ end function hipblasZscalStridedBatched_64Fortran function hipblasCsscalStridedBatched_64Fortran(handle, n, alpha, x, incx, stride_x, batch_count) & bind(c, name='hipblasCsscalStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscalStridedBatched_64Fortran type(c_ptr), value :: handle @@ -2966,7 +2966,7 @@ end function hipblasCsscalStridedBatched_64Fortran function hipblasZdscalStridedBatched_64Fortran(handle, n, alpha, x, incx, stride_x, batch_count) & bind(c, name='hipblasZdscalStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscalStridedBatched_64Fortran type(c_ptr), value :: handle @@ -2985,7 +2985,7 @@ end function hipblasZdscalStridedBatched_64Fortran function hipblasSswap_64Fortran(handle, n, x, incx, y, incy) & bind(c, name='hipblasSswap_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSswap_64Fortran type(c_ptr), value :: handle @@ -3002,7 +3002,7 @@ end function hipblasSswap_64Fortran function hipblasDswap_64Fortran(handle, n, x, incx, y, incy) & bind(c, name='hipblasDswap_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDswap_64Fortran type(c_ptr), value :: handle @@ -3019,7 +3019,7 @@ end function hipblasDswap_64Fortran function hipblasCswap_64Fortran(handle, n, x, incx, y, incy) & bind(c, name='hipblasCswap_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCswap_64Fortran type(c_ptr), value :: handle @@ -3036,7 +3036,7 @@ end function hipblasCswap_64Fortran function hipblasZswap_64Fortran(handle, n, x, incx, y, incy) & bind(c, name='hipblasZswap_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZswap_64Fortran type(c_ptr), value :: handle @@ -3054,7 +3054,7 @@ end function hipblasZswap_64Fortran function hipblasSswapBatched_64Fortran(handle, n, x, incx, y, incy, batch_count) & bind(c, name='hipblasSswapBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSswapBatched_64Fortran type(c_ptr), value :: handle @@ -3072,7 +3072,7 @@ end function hipblasSswapBatched_64Fortran function hipblasDswapBatched_64Fortran(handle, n, x, incx, y, incy, batch_count) & bind(c, name='hipblasDswapBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDswapBatched_64Fortran type(c_ptr), value :: handle @@ -3090,7 +3090,7 @@ end function hipblasDswapBatched_64Fortran function hipblasCswapBatched_64Fortran(handle, n, x, incx, y, incy, batch_count) & bind(c, name='hipblasCswapBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCswapBatched_64Fortran type(c_ptr), value :: handle @@ -3108,7 +3108,7 @@ end function hipblasCswapBatched_64Fortran function hipblasZswapBatched_64Fortran(handle, n, x, incx, y, incy, batch_count) & bind(c, name='hipblasZswapBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZswapBatched_64Fortran type(c_ptr), value :: handle @@ -3127,7 +3127,7 @@ end function hipblasZswapBatched_64Fortran function hipblasSswapStridedBatched_64Fortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='hipblasSswapStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSswapStridedBatched_64Fortran type(c_ptr), value :: handle @@ -3147,7 +3147,7 @@ end function hipblasSswapStridedBatched_64Fortran function hipblasDswapStridedBatched_64Fortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='hipblasDswapStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDswapStridedBatched_64Fortran type(c_ptr), value :: handle @@ -3167,7 +3167,7 @@ end function hipblasDswapStridedBatched_64Fortran function hipblasCswapStridedBatched_64Fortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='hipblasCswapStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCswapStridedBatched_64Fortran type(c_ptr), value :: handle @@ -3187,7 +3187,7 @@ end function hipblasCswapStridedBatched_64Fortran function hipblasZswapStridedBatched_64Fortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='hipblasZswapStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZswapStridedBatched_64Fortran type(c_ptr), value :: handle @@ -3212,7 +3212,7 @@ end function hipblasZswapStridedBatched_64Fortran function hipblasSgbmv_64Fortran(handle, trans, m, n, kl, ku, alpha, A, lda, x, incx, beta, y, incy) & bind(c, name='hipblasSgbmv_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmv_64Fortran type(c_ptr), value :: handle @@ -3236,7 +3236,7 @@ end function hipblasSgbmv_64Fortran function hipblasDgbmv_64Fortran(handle, trans, m, n, kl, ku, alpha, A, lda, x, incx, beta, y, incy) & bind(c, name='hipblasDgbmv_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmv_64Fortran type(c_ptr), value :: handle @@ -3260,7 +3260,7 @@ end function hipblasDgbmv_64Fortran function hipblasCgbmv_64Fortran(handle, trans, m, n, kl, ku, alpha, A, lda, x, incx, beta, y, incy) & bind(c, name='hipblasCgbmv_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmv_64Fortran type(c_ptr), value :: handle @@ -3284,7 +3284,7 @@ end function hipblasCgbmv_64Fortran function hipblasZgbmv_64Fortran(handle, trans, m, n, kl, ku, alpha, A, lda, x, incx, beta, y, incy) & bind(c, name='hipblasZgbmv_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmv_64Fortran type(c_ptr), value :: handle @@ -3310,7 +3310,7 @@ function hipblasSgbmvBatched_64Fortran(handle, trans, m, n, kl, ku, alpha, A, ld x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasSgbmvBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmvBatched_64Fortran type(c_ptr), value :: handle @@ -3337,7 +3337,7 @@ function hipblasDgbmvBatched_64Fortran(handle, trans, m, n, kl, ku, alpha, A, ld x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasDgbmvBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmvBatched_64Fortran type(c_ptr), value :: handle @@ -3364,7 +3364,7 @@ function hipblasCgbmvBatched_64Fortran(handle, trans, m, n, kl, ku, alpha, A, ld x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasCgbmvBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmvBatched_64Fortran type(c_ptr), value :: handle @@ -3391,7 +3391,7 @@ function hipblasZgbmvBatched_64Fortran(handle, trans, m, n, kl, ku, alpha, A, ld x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasZgbmvBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmvBatched_64Fortran type(c_ptr), value :: handle @@ -3419,7 +3419,7 @@ function hipblasSgbmvStridedBatched_64Fortran(handle, trans, m, n, kl, ku, alpha x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasSgbmvStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -3449,7 +3449,7 @@ function hipblasDgbmvStridedBatched_64Fortran(handle, trans, m, n, kl, ku, alpha x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasDgbmvStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -3479,7 +3479,7 @@ function hipblasCgbmvStridedBatched_64Fortran(handle, trans, m, n, kl, ku, alpha x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasCgbmvStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -3509,7 +3509,7 @@ function hipblasZgbmvStridedBatched_64Fortran(handle, trans, m, n, kl, ku, alpha x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasZgbmvStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -3540,7 +3540,7 @@ function hipblasSgemv_64Fortran(handle, trans, m, n, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='hipblasSgemv_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemv_64Fortran type(c_ptr), value :: handle @@ -3563,7 +3563,7 @@ function hipblasDgemv_64Fortran(handle, trans, m, n, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='hipblasDgemv_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemv_64Fortran type(c_ptr), value :: handle @@ -3586,7 +3586,7 @@ function hipblasCgemv_64Fortran(handle, trans, m, n, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='hipblasCgemv_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemv_64Fortran type(c_ptr), value :: handle @@ -3609,7 +3609,7 @@ function hipblasZgemv_64Fortran(handle, trans, m, n, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='hipblasZgemv_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemv_64Fortran type(c_ptr), value :: handle @@ -3633,7 +3633,7 @@ function hipblasSgemvBatched_64Fortran(handle, trans, m, n, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasSgemvBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemvBatched_64Fortran type(c_ptr), value :: handle @@ -3657,7 +3657,7 @@ function hipblasDgemvBatched_64Fortran(handle, trans, m, n, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasDgemvBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemvBatched_64Fortran type(c_ptr), value :: handle @@ -3681,7 +3681,7 @@ function hipblasCgemvBatched_64Fortran(handle, trans, m, n, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasCgemvBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemvBatched_64Fortran type(c_ptr), value :: handle @@ -3705,7 +3705,7 @@ function hipblasZgemvBatched_64Fortran(handle, trans, m, n, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasZgemvBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemvBatched_64Fortran type(c_ptr), value :: handle @@ -3730,7 +3730,7 @@ function hipblasSgemvStridedBatched_64Fortran(handle, trans, m, n, alpha, A, lda x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasSgemvStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -3758,7 +3758,7 @@ function hipblasDgemvStridedBatched_64Fortran(handle, trans, m, n, alpha, A, lda x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasDgemvStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -3786,7 +3786,7 @@ function hipblasCgemvStridedBatched_64Fortran(handle, trans, m, n, alpha, A, lda x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasCgemvStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -3814,7 +3814,7 @@ function hipblasZgemvStridedBatched_64Fortran(handle, trans, m, n, alpha, A, lda x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasZgemvStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -3843,7 +3843,7 @@ function hipblasSger_64Fortran(handle, m, n, alpha, x, incx, & y, incy, A, lda) & bind(c, name='hipblasSger_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSger_64Fortran type(c_ptr), value :: handle @@ -3865,7 +3865,7 @@ function hipblasDger_64Fortran(handle, m, n, alpha, x, incx, & y, incy, A, lda) & bind(c, name='hipblasDger_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDger_64Fortran type(c_ptr), value :: handle @@ -3887,7 +3887,7 @@ function hipblasCgeru_64Fortran(handle, m, n, alpha, x, incx, & y, incy, A, lda) & bind(c, name='hipblasCgeru_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeru_64Fortran type(c_ptr), value :: handle @@ -3909,7 +3909,7 @@ function hipblasCgerc_64Fortran(handle, m, n, alpha, x, incx, & y, incy, A, lda) & bind(c, name='hipblasCgerc_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgerc_64Fortran type(c_ptr), value :: handle @@ -3931,7 +3931,7 @@ function hipblasZgeru_64Fortran(handle, m, n, alpha, x, incx, & y, incy, A, lda) & bind(c, name='hipblasZgeru_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeru_64Fortran type(c_ptr), value :: handle @@ -3953,7 +3953,7 @@ function hipblasZgerc_64Fortran(handle, m, n, alpha, x, incx, & y, incy, A, lda) & bind(c, name='hipblasZgerc_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgerc_64Fortran type(c_ptr), value :: handle @@ -3976,7 +3976,7 @@ function hipblasSgerBatched_64Fortran(handle, m, n, alpha, x, incx, & y, incy, A, lda, batch_count) & bind(c, name='hipblasSgerBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgerBatched_64Fortran type(c_ptr), value :: handle @@ -3999,7 +3999,7 @@ function hipblasDgerBatched_64Fortran(handle, m, n, alpha, x, incx, & y, incy, A, lda, batch_count) & bind(c, name='hipblasDgerBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgerBatched_64Fortran type(c_ptr), value :: handle @@ -4022,7 +4022,7 @@ function hipblasCgeruBatched_64Fortran(handle, m, n, alpha, x, incx, & y, incy, A, lda, batch_count) & bind(c, name='hipblasCgeruBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeruBatched_64Fortran type(c_ptr), value :: handle @@ -4045,7 +4045,7 @@ function hipblasCgercBatched_64Fortran(handle, m, n, alpha, x, incx, & y, incy, A, lda, batch_count) & bind(c, name='hipblasCgercBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgercBatched_64Fortran type(c_ptr), value :: handle @@ -4068,7 +4068,7 @@ function hipblasZgeruBatched_64Fortran(handle, m, n, alpha, x, incx, & y, incy, A, lda, batch_count) & bind(c, name='hipblasZgeruBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeruBatched_64Fortran type(c_ptr), value :: handle @@ -4091,7 +4091,7 @@ function hipblasZgercBatched_64Fortran(handle, m, n, alpha, x, incx, & y, incy, A, lda, batch_count) & bind(c, name='hipblasZgercBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgercBatched_64Fortran type(c_ptr), value :: handle @@ -4115,7 +4115,7 @@ function hipblasSgerStridedBatched_64Fortran(handle, m, n, alpha, x, incx, strid y, incy, stride_y, A, lda, stride_A, batch_count) & bind(c, name='hipblasSgerStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgerStridedBatched_64Fortran type(c_ptr), value :: handle @@ -4141,7 +4141,7 @@ function hipblasDgerStridedBatched_64Fortran(handle, m, n, alpha, x, incx, strid y, incy, stride_y, A, lda, stride_A, batch_count) & bind(c, name='hipblasDgerStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgerStridedBatched_64Fortran type(c_ptr), value :: handle @@ -4167,7 +4167,7 @@ function hipblasCgeruStridedBatched_64Fortran(handle, m, n, alpha, x, incx, stri y, incy, stride_y, A, lda, stride_A, batch_count) & bind(c, name='hipblasCgeruStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeruStridedBatched_64Fortran type(c_ptr), value :: handle @@ -4193,7 +4193,7 @@ function hipblasCgercStridedBatched_64Fortran(handle, m, n, alpha, x, incx, stri y, incy, stride_y, A, lda, stride_A, batch_count) & bind(c, name='hipblasCgercStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgercStridedBatched_64Fortran type(c_ptr), value :: handle @@ -4219,7 +4219,7 @@ function hipblasZgeruStridedBatched_64Fortran(handle, m, n, alpha, x, incx, stri y, incy, stride_y, A, lda, stride_A, batch_count) & bind(c, name='hipblasZgeruStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeruStridedBatched_64Fortran type(c_ptr), value :: handle @@ -4245,7 +4245,7 @@ function hipblasZgercStridedBatched_64Fortran(handle, m, n, alpha, x, incx, stri y, incy, stride_y, A, lda, stride_A, batch_count) & bind(c, name='hipblasZgercStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgercStridedBatched_64Fortran type(c_ptr), value :: handle @@ -4272,7 +4272,7 @@ function hipblasCher_64Fortran(handle, uplo, n, alpha, & x, incx, A, lda) & bind(c, name='hipblasCher_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher_64Fortran type(c_ptr), value :: handle @@ -4291,7 +4291,7 @@ function hipblasZher_64Fortran(handle, uplo, n, alpha, & x, incx, A, lda) & bind(c, name='hipblasZher_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher_64Fortran type(c_ptr), value :: handle @@ -4311,7 +4311,7 @@ function hipblasCherBatched_64Fortran(handle, uplo, n, alpha, & x, incx, A, lda, batch_count) & bind(c, name='hipblasCherBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherBatched_64Fortran type(c_ptr), value :: handle @@ -4331,7 +4331,7 @@ function hipblasZherBatched_64Fortran(handle, uplo, n, alpha, & x, incx, A, lda, batch_count) & bind(c, name='hipblasZherBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherBatched_64Fortran type(c_ptr), value :: handle @@ -4352,7 +4352,7 @@ function hipblasCherStridedBatched_64Fortran(handle, uplo, n, alpha, & x, incx, stride_x, A, lda, stride_A, batch_count) & bind(c, name='hipblasCherStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherStridedBatched_64Fortran type(c_ptr), value :: handle @@ -4375,7 +4375,7 @@ function hipblasZherStridedBatched_64Fortran(handle, uplo, n, alpha, & x, incx, stride_x, A, lda, stride_A, batch_count) & bind(c, name='hipblasZherStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherStridedBatched_64Fortran type(c_ptr), value :: handle @@ -4399,7 +4399,7 @@ function hipblasCher2_64Fortran(handle, uplo, n, alpha, & x, incx, y, incy, A, lda) & bind(c, name='hipblasCher2_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2_64Fortran type(c_ptr), value :: handle @@ -4421,7 +4421,7 @@ function hipblasZher2_64Fortran(handle, uplo, n, alpha, & x, incx, y, incy, A, lda) & bind(c, name='hipblasZher2_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2_64Fortran type(c_ptr), value :: handle @@ -4444,7 +4444,7 @@ function hipblasCher2Batched_64Fortran(handle, uplo, n, alpha, & x, incx, y, incy, A, lda, batch_count) & bind(c, name='hipblasCher2Batched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2Batched_64Fortran type(c_ptr), value :: handle @@ -4467,7 +4467,7 @@ function hipblasZher2Batched_64Fortran(handle, uplo, n, alpha, & x, incx, y, incy, A, lda, batch_count) & bind(c, name='hipblasZher2Batched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2Batched_64Fortran type(c_ptr), value :: handle @@ -4491,7 +4491,7 @@ function hipblasCher2StridedBatched_64Fortran(handle, uplo, n, alpha, & x, incx, stride_x, y, incy, stride_y, A, lda, stride_A, batch_count) & bind(c, name='hipblasCher2StridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2StridedBatched_64Fortran type(c_ptr), value :: handle @@ -4517,7 +4517,7 @@ function hipblasZher2StridedBatched_64Fortran(handle, uplo, n, alpha, & x, incx, stride_x, y, incy, stride_y, A, lda, stride_A, batch_count) & bind(c, name='hipblasZher2StridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2StridedBatched_64Fortran type(c_ptr), value :: handle @@ -4544,7 +4544,7 @@ function hipblasChbmv_64Fortran(handle, uplo, n, k, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='hipblasChbmv_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmv_64Fortran type(c_ptr), value :: handle @@ -4567,7 +4567,7 @@ function hipblasZhbmv_64Fortran(handle, uplo, n, k, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='hipblasZhbmv_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmv_64Fortran type(c_ptr), value :: handle @@ -4591,7 +4591,7 @@ function hipblasChbmvBatched_64Fortran(handle, uplo, n, k, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasChbmvBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmvBatched_64Fortran type(c_ptr), value :: handle @@ -4616,7 +4616,7 @@ function hipblasZhbmvBatched_64Fortran(handle, uplo, n, k, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasZhbmvBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmvBatched_64Fortran type(c_ptr), value :: handle @@ -4642,7 +4642,7 @@ function hipblasChbmvStridedBatched_64Fortran(handle, uplo, n, k, alpha, A, lda, x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasChbmvStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -4670,7 +4670,7 @@ function hipblasZhbmvStridedBatched_64Fortran(handle, uplo, n, k, alpha, A, lda, x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasZhbmvStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -4699,7 +4699,7 @@ function hipblasChemv_64Fortran(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='hipblasChemv_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemv_64Fortran type(c_ptr), value :: handle @@ -4721,7 +4721,7 @@ function hipblasZhemv_64Fortran(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='hipblasZhemv_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemv_64Fortran type(c_ptr), value :: handle @@ -4744,7 +4744,7 @@ function hipblasChemvBatched_64Fortran(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasChemvBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemvBatched_64Fortran type(c_ptr), value :: handle @@ -4768,7 +4768,7 @@ function hipblasZhemvBatched_64Fortran(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasZhemvBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemvBatched_64Fortran type(c_ptr), value :: handle @@ -4793,7 +4793,7 @@ function hipblasChemvStridedBatched_64Fortran(handle, uplo, n, alpha, A, lda, st x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasChemvStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -4820,7 +4820,7 @@ function hipblasZhemvStridedBatched_64Fortran(handle, uplo, n, alpha, A, lda, st x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasZhemvStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -4848,7 +4848,7 @@ function hipblasChpmv_64Fortran(handle, uplo, n, alpha, AP, & x, incx, beta, y, incy) & bind(c, name='hipblasChpmv_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmv_64Fortran type(c_ptr), value :: handle @@ -4870,7 +4870,7 @@ function hipblasZhpmv_64Fortran(handle, uplo, n, alpha, AP, & x, incx, beta, y, incy) & bind(c, name='hipblasZhpmv_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmv_64Fortran type(c_ptr), value :: handle @@ -4893,7 +4893,7 @@ function hipblasChpmvBatched_64Fortran(handle, uplo, n, alpha, AP, & x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasChpmvBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmvBatched_64Fortran type(c_ptr), value :: handle @@ -4916,7 +4916,7 @@ function hipblasZhpmvBatched_64Fortran(handle, uplo, n, alpha, AP, & x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasZhpmvBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmvBatched_64Fortran type(c_ptr), value :: handle @@ -4940,7 +4940,7 @@ function hipblasChpmvStridedBatched_64Fortran(handle, uplo, n, alpha, AP, stride x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasChpmvStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -4966,7 +4966,7 @@ function hipblasZhpmvStridedBatched_64Fortran(handle, uplo, n, alpha, AP, stride x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasZhpmvStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -4993,7 +4993,7 @@ function hipblasChpr_64Fortran(handle, uplo, n, alpha, & x, incx, AP) & bind(c, name='hipblasChpr_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr_64Fortran type(c_ptr), value :: handle @@ -5011,7 +5011,7 @@ function hipblasZhpr_64Fortran(handle, uplo, n, alpha, & x, incx, AP) & bind(c, name='hipblasZhpr_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr_64Fortran type(c_ptr), value :: handle @@ -5030,7 +5030,7 @@ function hipblasChprBatched_64Fortran(handle, uplo, n, alpha, & x, incx, AP, batch_count) & bind(c, name='hipblasChprBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChprBatched_64Fortran type(c_ptr), value :: handle @@ -5049,7 +5049,7 @@ function hipblasZhprBatched_64Fortran(handle, uplo, n, alpha, & x, incx, AP, batch_count) & bind(c, name='hipblasZhprBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhprBatched_64Fortran type(c_ptr), value :: handle @@ -5069,7 +5069,7 @@ function hipblasChprStridedBatched_64Fortran(handle, uplo, n, alpha, & x, incx, stride_x, AP, stride_AP, batch_count) & bind(c, name='hipblasChprStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChprStridedBatched_64Fortran type(c_ptr), value :: handle @@ -5091,7 +5091,7 @@ function hipblasZhprStridedBatched_64Fortran(handle, uplo, n, alpha, & x, incx, stride_x, AP, stride_AP, batch_count) & bind(c, name='hipblasZhprStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhprStridedBatched_64Fortran type(c_ptr), value :: handle @@ -5114,7 +5114,7 @@ function hipblasChpr2_64Fortran(handle, uplo, n, alpha, & x, incx, y, incy, AP) & bind(c, name='hipblasChpr2_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2_64Fortran type(c_ptr), value :: handle @@ -5135,7 +5135,7 @@ function hipblasZhpr2_64Fortran(handle, uplo, n, alpha, & x, incx, y, incy, AP) & bind(c, name='hipblasZhpr2_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2_64Fortran type(c_ptr), value :: handle @@ -5157,7 +5157,7 @@ function hipblasChpr2Batched_64Fortran(handle, uplo, n, alpha, & x, incx, y, incy, AP, batch_count) & bind(c, name='hipblasChpr2Batched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2Batched_64Fortran type(c_ptr), value :: handle @@ -5179,7 +5179,7 @@ function hipblasZhpr2Batched_64Fortran(handle, uplo, n, alpha, & x, incx, y, incy, AP, batch_count) & bind(c, name='hipblasZhpr2Batched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2Batched_64Fortran type(c_ptr), value :: handle @@ -5202,7 +5202,7 @@ function hipblasChpr2StridedBatched_64Fortran(handle, uplo, n, alpha, & x, incx, stride_x, y, incy, stride_y, AP, stride_AP, batch_count) & bind(c, name='hipblasChpr2StridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2StridedBatched_64Fortran type(c_ptr), value :: handle @@ -5227,7 +5227,7 @@ function hipblasZhpr2StridedBatched_64Fortran(handle, uplo, n, alpha, & x, incx, stride_x, y, incy, stride_y, AP, stride_AP, batch_count) & bind(c, name='hipblasZhpr2StridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2StridedBatched_64Fortran type(c_ptr), value :: handle @@ -5252,7 +5252,7 @@ end function hipblasZhpr2StridedBatched_64Fortran function hipblasSspr_64Fortran(handle, uplo, n, alpha, x, incx, AP) & bind(c, name='hipblasSspr_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr_64Fortran type(c_ptr), value :: handle @@ -5270,7 +5270,7 @@ end function hipblasSspr_64Fortran function hipblasDspr_64Fortran(handle, uplo, n, alpha, x, incx, AP) & bind(c, name='hipblasDspr_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr_64Fortran type(c_ptr), value :: handle @@ -5288,7 +5288,7 @@ end function hipblasDspr_64Fortran function hipblasCspr_64Fortran(handle, uplo, n, alpha, x, incx, AP) & bind(c, name='hipblasCspr_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCspr_64Fortran type(c_ptr), value :: handle @@ -5306,7 +5306,7 @@ end function hipblasCspr_64Fortran function hipblasZspr_64Fortran(handle, uplo, n, alpha, x, incx, AP) & bind(c, name='hipblasZspr_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZspr_64Fortran type(c_ptr), value :: handle @@ -5325,7 +5325,7 @@ end function hipblasZspr_64Fortran function hipblasSsprBatched_64Fortran(handle, uplo, n, alpha, x, incx, AP, batch_count) & bind(c, name='hipblasSsprBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsprBatched_64Fortran type(c_ptr), value :: handle @@ -5344,7 +5344,7 @@ end function hipblasSsprBatched_64Fortran function hipblasDsprBatched_64Fortran(handle, uplo, n, alpha, x, incx, AP, batch_count) & bind(c, name='hipblasDsprBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsprBatched_64Fortran type(c_ptr), value :: handle @@ -5363,7 +5363,7 @@ end function hipblasDsprBatched_64Fortran function hipblasCsprBatched_64Fortran(handle, uplo, n, alpha, x, incx, AP, batch_count) & bind(c, name='hipblasCsprBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsprBatched_64Fortran type(c_ptr), value :: handle @@ -5382,7 +5382,7 @@ end function hipblasCsprBatched_64Fortran function hipblasZsprBatched_64Fortran(handle, uplo, n, alpha, x, incx, AP, batch_count) & bind(c, name='hipblasZsprBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsprBatched_64Fortran type(c_ptr), value :: handle @@ -5403,7 +5403,7 @@ function hipblasSsprStridedBatched_64Fortran(handle, uplo, n, alpha, x, incx, st AP, stride_AP, batch_count) & bind(c, name='hipblasSsprStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsprStridedBatched_64Fortran type(c_ptr), value :: handle @@ -5425,7 +5425,7 @@ function hipblasDsprStridedBatched_64Fortran(handle, uplo, n, alpha, x, incx, st AP, stride_AP, batch_count) & bind(c, name='hipblasDsprStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsprStridedBatched_64Fortran type(c_ptr), value :: handle @@ -5447,7 +5447,7 @@ function hipblasCsprStridedBatched_64Fortran(handle, uplo, n, alpha, x, incx, st AP, stride_AP, batch_count) & bind(c, name='hipblasCsprStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsprStridedBatched_64Fortran type(c_ptr), value :: handle @@ -5469,7 +5469,7 @@ function hipblasZsprStridedBatched_64Fortran(handle, uplo, n, alpha, x, incx, st AP, stride_AP, batch_count) & bind(c, name='hipblasZsprStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsprStridedBatched_64Fortran type(c_ptr), value :: handle @@ -5492,7 +5492,7 @@ function hipblasSspr2_64Fortran(handle, uplo, n, alpha, x, incx, & y, incy, AP) & bind(c, name='hipblasSspr2_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2_64Fortran type(c_ptr), value :: handle @@ -5513,7 +5513,7 @@ function hipblasDspr2_64Fortran(handle, uplo, n, alpha, x, incx, & y, incy, AP) & bind(c, name='hipblasDspr2_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2_64Fortran type(c_ptr), value :: handle @@ -5535,7 +5535,7 @@ function hipblasSspr2Batched_64Fortran(handle, uplo, n, alpha, x, incx, & y, incy, AP, batch_count) & bind(c, name='hipblasSspr2Batched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2Batched_64Fortran type(c_ptr), value :: handle @@ -5557,7 +5557,7 @@ function hipblasDspr2Batched_64Fortran(handle, uplo, n, alpha, x, incx, & y, incy, AP, batch_count) & bind(c, name='hipblasDspr2Batched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2Batched_64Fortran type(c_ptr), value :: handle @@ -5580,7 +5580,7 @@ function hipblasSspr2StridedBatched_64Fortran(handle, uplo, n, alpha, x, incx, s y, incy, stride_y, AP, stride_AP, batch_count) & bind(c, name='hipblasSspr2StridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2StridedBatched_64Fortran type(c_ptr), value :: handle @@ -5605,7 +5605,7 @@ function hipblasDspr2StridedBatched_64Fortran(handle, uplo, n, alpha, x, incx, s y, incy, stride_y, AP, stride_AP, batch_count) & bind(c, name='hipblasDspr2StridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2StridedBatched_64Fortran type(c_ptr), value :: handle @@ -5631,7 +5631,7 @@ function hipblasSsbmv_64Fortran(handle, uplo, n, k, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='hipblasSsbmv_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmv_64Fortran type(c_ptr), value :: handle @@ -5655,7 +5655,7 @@ function hipblasDsbmv_64Fortran(handle, uplo, n, k, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='hipblasDsbmv_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmv_64Fortran type(c_ptr), value :: handle @@ -5680,7 +5680,7 @@ function hipblasSsbmvBatched_64Fortran(handle, uplo, n, k, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasSsbmvBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmvBatched_64Fortran type(c_ptr), value :: handle @@ -5705,7 +5705,7 @@ function hipblasDsbmvBatched_64Fortran(handle, uplo, n, k, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasDsbmvBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmvBatched_64Fortran type(c_ptr), value :: handle @@ -5731,7 +5731,7 @@ function hipblasSsbmvStridedBatched_64Fortran(handle, uplo, n, k, alpha, A, lda, x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasSsbmvStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -5759,7 +5759,7 @@ function hipblasDsbmvStridedBatched_64Fortran(handle, uplo, n, k, alpha, A, lda, x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasDsbmvStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -5788,7 +5788,7 @@ function hipblasSspmv_64Fortran(handle, uplo, n, alpha, AP, & x, incx, beta, y, incy) & bind(c, name='hipblasSspmv_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmv_64Fortran type(c_ptr), value :: handle @@ -5810,7 +5810,7 @@ function hipblasDspmv_64Fortran(handle, uplo, n, alpha, AP, & x, incx, beta, y, incy) & bind(c, name='hipblasDspmv_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmv_64Fortran type(c_ptr), value :: handle @@ -5833,7 +5833,7 @@ function hipblasSspmvBatched_64Fortran(handle, uplo, n, alpha, AP, & x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasSspmvBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmvBatched_64Fortran type(c_ptr), value :: handle @@ -5856,7 +5856,7 @@ function hipblasDspmvBatched_64Fortran(handle, uplo, n, alpha, AP, & x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasDspmvBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmvBatched_64Fortran type(c_ptr), value :: handle @@ -5880,7 +5880,7 @@ function hipblasSspmvStridedBatched_64Fortran(handle, uplo, n, alpha, AP, stride x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasSspmvStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -5906,7 +5906,7 @@ function hipblasDspmvStridedBatched_64Fortran(handle, uplo, n, alpha, AP, stride x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasDspmvStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -5933,7 +5933,7 @@ function hipblasSsymv_64Fortran(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='hipblasSsymv_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymv_64Fortran type(c_ptr), value :: handle @@ -5956,7 +5956,7 @@ function hipblasDsymv_64Fortran(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='hipblasDsymv_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymv_64Fortran type(c_ptr), value :: handle @@ -5979,7 +5979,7 @@ function hipblasCsymv_64Fortran(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='hipblasCsymv_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymv_64Fortran type(c_ptr), value :: handle @@ -6002,7 +6002,7 @@ function hipblasZsymv_64Fortran(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='hipblasZsymv_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymv_64Fortran type(c_ptr), value :: handle @@ -6026,7 +6026,7 @@ function hipblasSsymvBatched_64Fortran(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasSsymvBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymvBatched_64Fortran type(c_ptr), value :: handle @@ -6050,7 +6050,7 @@ function hipblasDsymvBatched_64Fortran(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasDsymvBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymvBatched_64Fortran type(c_ptr), value :: handle @@ -6074,7 +6074,7 @@ function hipblasCsymvBatched_64Fortran(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasCsymvBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymvBatched_64Fortran type(c_ptr), value :: handle @@ -6098,7 +6098,7 @@ function hipblasZsymvBatched_64Fortran(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasZsymvBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymvBatched_64Fortran type(c_ptr), value :: handle @@ -6123,7 +6123,7 @@ function hipblasSsymvStridedBatched_64Fortran(handle, uplo, n, alpha, A, lda, st x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasSsymvStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -6150,7 +6150,7 @@ function hipblasDsymvStridedBatched_64Fortran(handle, uplo, n, alpha, A, lda, st x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasDsymvStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -6177,7 +6177,7 @@ function hipblasCsymvStridedBatched_64Fortran(handle, uplo, n, alpha, A, lda, st x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasCsymvStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -6204,7 +6204,7 @@ function hipblasZsymvStridedBatched_64Fortran(handle, uplo, n, alpha, A, lda, st x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasZsymvStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -6231,7 +6231,7 @@ end function hipblasZsymvStridedBatched_64Fortran function hipblasSsyr_64Fortran(handle, uplo, n, alpha, x, incx, A, lda) & bind(c, name='hipblasSsyr_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr_64Fortran type(c_ptr), value :: handle @@ -6250,7 +6250,7 @@ end function hipblasSsyr_64Fortran function hipblasDsyr_64Fortran(handle, uplo, n, alpha, x, incx, A, lda) & bind(c, name='hipblasDsyr_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr_64Fortran type(c_ptr), value :: handle @@ -6269,7 +6269,7 @@ end function hipblasDsyr_64Fortran function hipblasCsyr_64Fortran(handle, uplo, n, alpha, x, incx, A, lda) & bind(c, name='hipblasCsyr_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr_64Fortran type(c_ptr), value :: handle @@ -6288,7 +6288,7 @@ end function hipblasCsyr_64Fortran function hipblasZsyr_64Fortran(handle, uplo, n, alpha, x, incx, A, lda) & bind(c, name='hipblasZsyr_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr_64Fortran type(c_ptr), value :: handle @@ -6308,7 +6308,7 @@ end function hipblasZsyr_64Fortran function hipblasSsyrBatched_64Fortran(handle, uplo, n, alpha, x, incx, A, lda, batch_count) & bind(c, name='hipblasSsyrBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrBatched_64Fortran type(c_ptr), value :: handle @@ -6328,7 +6328,7 @@ end function hipblasSsyrBatched_64Fortran function hipblasDsyrBatched_64Fortran(handle, uplo, n, alpha, x, incx, A, lda, batch_count) & bind(c, name='hipblasDsyrBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrBatched_64Fortran type(c_ptr), value :: handle @@ -6348,7 +6348,7 @@ end function hipblasDsyrBatched_64Fortran function hipblasCsyrBatched_64Fortran(handle, uplo, n, alpha, x, incx, A, lda, batch_count) & bind(c, name='hipblasCsyrBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrBatched_64Fortran type(c_ptr), value :: handle @@ -6368,7 +6368,7 @@ end function hipblasCsyrBatched_64Fortran function hipblasZsyrBatched_64Fortran(handle, uplo, n, alpha, x, incx, A, lda, batch_count) & bind(c, name='hipblasZsyrBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrBatched_64Fortran type(c_ptr), value :: handle @@ -6390,7 +6390,7 @@ function hipblasSsyrStridedBatched_64Fortran(handle, uplo, n, alpha, x, incx, st A, lda, stride_A, batch_count) & bind(c, name='hipblasSsyrStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrStridedBatched_64Fortran type(c_ptr), value :: handle @@ -6413,7 +6413,7 @@ function hipblasDsyrStridedBatched_64Fortran(handle, uplo, n, alpha, x, incx, st A, lda, stride_A, batch_count) & bind(c, name='hipblasDsyrStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrStridedBatched_64Fortran type(c_ptr), value :: handle @@ -6436,7 +6436,7 @@ function hipblasCsyrStridedBatched_64Fortran(handle, uplo, n, alpha, x, incx, st A, lda, stride_A, batch_count) & bind(c, name='hipblasCsyrStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrStridedBatched_64Fortran type(c_ptr), value :: handle @@ -6459,7 +6459,7 @@ function hipblasZsyrStridedBatched_64Fortran(handle, uplo, n, alpha, x, incx, st A, lda, stride_A, batch_count) & bind(c, name='hipblasZsyrStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrStridedBatched_64Fortran type(c_ptr), value :: handle @@ -6483,7 +6483,7 @@ function hipblasSsyr2_64Fortran(handle, uplo, n, alpha, x, incx, & y, incy, A, lda) & bind(c, name='hipblasSsyr2_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2_64Fortran type(c_ptr), value :: handle @@ -6505,7 +6505,7 @@ function hipblasDsyr2_64Fortran(handle, uplo, n, alpha, x, incx, & y, incy, A, lda) & bind(c, name='hipblasDsyr2_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2_64Fortran type(c_ptr), value :: handle @@ -6527,7 +6527,7 @@ function hipblasCsyr2_64Fortran(handle, uplo, n, alpha, x, incx, & y, incy, A, lda) & bind(c, name='hipblasCsyr2_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2_64Fortran type(c_ptr), value :: handle @@ -6549,7 +6549,7 @@ function hipblasZsyr2_64Fortran(handle, uplo, n, alpha, x, incx, & y, incy, A, lda) & bind(c, name='hipblasZsyr2_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2_64Fortran type(c_ptr), value :: handle @@ -6572,7 +6572,7 @@ function hipblasSsyr2Batched_64Fortran(handle, uplo, n, alpha, x, incx, & y, incy, A, lda, batch_count) & bind(c, name='hipblasSsyr2Batched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2Batched_64Fortran type(c_ptr), value :: handle @@ -6595,7 +6595,7 @@ function hipblasDsyr2Batched_64Fortran(handle, uplo, n, alpha, x, incx, & y, incy, A, lda, batch_count) & bind(c, name='hipblasDsyr2Batched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2Batched_64Fortran type(c_ptr), value :: handle @@ -6618,7 +6618,7 @@ function hipblasCsyr2Batched_64Fortran(handle, uplo, n, alpha, x, incx, & y, incy, A, lda, batch_count) & bind(c, name='hipblasCsyr2Batched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2Batched_64Fortran type(c_ptr), value :: handle @@ -6641,7 +6641,7 @@ function hipblasZsyr2Batched_64Fortran(handle, uplo, n, alpha, x, incx, & y, incy, A, lda, batch_count) & bind(c, name='hipblasZsyr2Batched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2Batched_64Fortran type(c_ptr), value :: handle @@ -6665,7 +6665,7 @@ function hipblasSsyr2StridedBatched_64Fortran(handle, uplo, n, alpha, x, incx, s y, incy, stride_y, A, lda, stride_A, batch_count) & bind(c, name='hipblasSsyr2StridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2StridedBatched_64Fortran type(c_ptr), value :: handle @@ -6691,7 +6691,7 @@ function hipblasDsyr2StridedBatched_64Fortran(handle, uplo, n, alpha, x, incx, s y, incy, stride_y, A, lda, stride_A, batch_count) & bind(c, name='hipblasDsyr2StridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2StridedBatched_64Fortran type(c_ptr), value :: handle @@ -6717,7 +6717,7 @@ function hipblasCsyr2StridedBatched_64Fortran(handle, uplo, n, alpha, x, incx, s y, incy, stride_y, A, lda, stride_A, batch_count) & bind(c, name='hipblasCsyr2StridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2StridedBatched_64Fortran type(c_ptr), value :: handle @@ -6743,7 +6743,7 @@ function hipblasZsyr2StridedBatched_64Fortran(handle, uplo, n, alpha, x, incx, s y, incy, stride_y, A, lda, stride_A, batch_count) & bind(c, name='hipblasZsyr2StridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2StridedBatched_64Fortran type(c_ptr), value :: handle @@ -6770,7 +6770,7 @@ function hipblasStbmv_64Fortran(handle, uplo, transA, diag, m, k, & A, lda, x, incx) & bind(c, name='hipblasStbmv_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbmv_64Fortran type(c_ptr), value :: handle @@ -6792,7 +6792,7 @@ function hipblasDtbmv_64Fortran(handle, uplo, transA, diag, m, k, & A, lda, x, incx) & bind(c, name='hipblasDtbmv_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbmv_64Fortran type(c_ptr), value :: handle @@ -6814,7 +6814,7 @@ function hipblasCtbmv_64Fortran(handle, uplo, transA, diag, m, k, & A, lda, x, incx) & bind(c, name='hipblasCtbmv_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbmv_64Fortran type(c_ptr), value :: handle @@ -6836,7 +6836,7 @@ function hipblasZtbmv_64Fortran(handle, uplo, transA, diag, m, k, & A, lda, x, incx) & bind(c, name='hipblasZtbmv_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbmv_64Fortran type(c_ptr), value :: handle @@ -6859,7 +6859,7 @@ function hipblasStbmvBatched_64Fortran(handle, uplo, transA, diag, m, k, & A, lda, x, incx, batch_count) & bind(c, name='hipblasStbmvBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbmvBatched_64Fortran type(c_ptr), value :: handle @@ -6882,7 +6882,7 @@ function hipblasDtbmvBatched_64Fortran(handle, uplo, transA, diag, m, k, & A, lda, x, incx, batch_count) & bind(c, name='hipblasDtbmvBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbmvBatched_64Fortran type(c_ptr), value :: handle @@ -6905,7 +6905,7 @@ function hipblasCtbmvBatched_64Fortran(handle, uplo, transA, diag, m, k, & A, lda, x, incx, batch_count) & bind(c, name='hipblasCtbmvBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbmvBatched_64Fortran type(c_ptr), value :: handle @@ -6928,7 +6928,7 @@ function hipblasZtbmvBatched_64Fortran(handle, uplo, transA, diag, m, k, & A, lda, x, incx, batch_count) & bind(c, name='hipblasZtbmvBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbmvBatched_64Fortran type(c_ptr), value :: handle @@ -6952,7 +6952,7 @@ function hipblasStbmvStridedBatched_64Fortran(handle, uplo, transA, diag, m, k, A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='hipblasStbmvStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbmvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -6977,7 +6977,7 @@ function hipblasDtbmvStridedBatched_64Fortran(handle, uplo, transA, diag, m, k, A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='hipblasDtbmvStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbmvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -7002,7 +7002,7 @@ function hipblasCtbmvStridedBatched_64Fortran(handle, uplo, transA, diag, m, k, A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='hipblasCtbmvStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbmvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -7027,7 +7027,7 @@ function hipblasZtbmvStridedBatched_64Fortran(handle, uplo, transA, diag, m, k, A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='hipblasZtbmvStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbmvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -7053,7 +7053,7 @@ function hipblasStpmv_64Fortran(handle, uplo, transA, diag, m, & AP, x, incx) & bind(c, name='hipblasStpmv_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpmv_64Fortran type(c_ptr), value :: handle @@ -7073,7 +7073,7 @@ function hipblasDtpmv_64Fortran(handle, uplo, transA, diag, m, & AP, x, incx) & bind(c, name='hipblasDtpmv_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpmv_64Fortran type(c_ptr), value :: handle @@ -7093,7 +7093,7 @@ function hipblasCtpmv_64Fortran(handle, uplo, transA, diag, m, & AP, x, incx) & bind(c, name='hipblasCtpmv_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpmv_64Fortran type(c_ptr), value :: handle @@ -7113,7 +7113,7 @@ function hipblasZtpmv_64Fortran(handle, uplo, transA, diag, m, & AP, x, incx) & bind(c, name='hipblasZtpmv_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpmv_64Fortran type(c_ptr), value :: handle @@ -7134,7 +7134,7 @@ function hipblasStpmvBatched_64Fortran(handle, uplo, transA, diag, m, & AP, x, incx, batch_count) & bind(c, name='hipblasStpmvBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpmvBatched_64Fortran type(c_ptr), value :: handle @@ -7155,7 +7155,7 @@ function hipblasDtpmvBatched_64Fortran(handle, uplo, transA, diag, m, & AP, x, incx, batch_count) & bind(c, name='hipblasDtpmvBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpmvBatched_64Fortran type(c_ptr), value :: handle @@ -7176,7 +7176,7 @@ function hipblasCtpmvBatched_64Fortran(handle, uplo, transA, diag, m, & AP, x, incx, batch_count) & bind(c, name='hipblasCtpmvBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpmvBatched_64Fortran type(c_ptr), value :: handle @@ -7197,7 +7197,7 @@ function hipblasZtpmvBatched_64Fortran(handle, uplo, transA, diag, m, & AP, x, incx, batch_count) & bind(c, name='hipblasZtpmvBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpmvBatched_64Fortran type(c_ptr), value :: handle @@ -7219,7 +7219,7 @@ function hipblasStpmvStridedBatched_64Fortran(handle, uplo, transA, diag, m, & AP, stride_AP, x, incx, stride_x, batch_count) & bind(c, name='hipblasStpmvStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpmvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -7242,7 +7242,7 @@ function hipblasDtpmvStridedBatched_64Fortran(handle, uplo, transA, diag, m, & AP, stride_AP, x, incx, stride_x, batch_count) & bind(c, name='hipblasDtpmvStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpmvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -7265,7 +7265,7 @@ function hipblasCtpmvStridedBatched_64Fortran(handle, uplo, transA, diag, m, & AP, stride_AP, x, incx, stride_x, batch_count) & bind(c, name='hipblasCtpmvStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpmvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -7288,7 +7288,7 @@ function hipblasZtpmvStridedBatched_64Fortran(handle, uplo, transA, diag, m, & AP, stride_AP, x, incx, stride_x, batch_count) & bind(c, name='hipblasZtpmvStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpmvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -7312,7 +7312,7 @@ function hipblasStrmv_64Fortran(handle, uplo, transA, diag, m, & A, lda, x, incx) & bind(c, name='hipblasStrmv_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmv_64Fortran type(c_ptr), value :: handle @@ -7333,7 +7333,7 @@ function hipblasDtrmv_64Fortran(handle, uplo, transA, diag, m, & A, lda, x, incx) & bind(c, name='hipblasDtrmv_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmv_64Fortran type(c_ptr), value :: handle @@ -7354,7 +7354,7 @@ function hipblasCtrmv_64Fortran(handle, uplo, transA, diag, m, & A, lda, x, incx) & bind(c, name='hipblasCtrmv_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmv_64Fortran type(c_ptr), value :: handle @@ -7375,7 +7375,7 @@ function hipblasZtrmv_64Fortran(handle, uplo, transA, diag, m, & A, lda, x, incx) & bind(c, name='hipblasZtrmv_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmv_64Fortran type(c_ptr), value :: handle @@ -7397,7 +7397,7 @@ function hipblasStrmvBatched_64Fortran(handle, uplo, transA, diag, m, & A, lda, x, incx, batch_count) & bind(c, name='hipblasStrmvBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmvBatched_64Fortran type(c_ptr), value :: handle @@ -7419,7 +7419,7 @@ function hipblasDtrmvBatched_64Fortran(handle, uplo, transA, diag, m, & A, lda, x, incx, batch_count) & bind(c, name='hipblasDtrmvBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmvBatched_64Fortran type(c_ptr), value :: handle @@ -7441,7 +7441,7 @@ function hipblasCtrmvBatched_64Fortran(handle, uplo, transA, diag, m, & A, lda, x, incx, batch_count) & bind(c, name='hipblasCtrmvBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmvBatched_64Fortran type(c_ptr), value :: handle @@ -7463,7 +7463,7 @@ function hipblasZtrmvBatched_64Fortran(handle, uplo, transA, diag, m, & A, lda, x, incx, batch_count) & bind(c, name='hipblasZtrmvBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmvBatched_64Fortran type(c_ptr), value :: handle @@ -7486,7 +7486,7 @@ function hipblasStrmvStridedBatched_64Fortran(handle, uplo, transA, diag, m, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='hipblasStrmvStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -7510,7 +7510,7 @@ function hipblasDtrmvStridedBatched_64Fortran(handle, uplo, transA, diag, m, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='hipblasDtrmvStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -7534,7 +7534,7 @@ function hipblasCtrmvStridedBatched_64Fortran(handle, uplo, transA, diag, m, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='hipblasCtrmvStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -7558,7 +7558,7 @@ function hipblasZtrmvStridedBatched_64Fortran(handle, uplo, transA, diag, m, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='hipblasZtrmvStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -7583,7 +7583,7 @@ function hipblasStbsv_64Fortran(handle, uplo, transA, diag, n, k, & A, lda, x, incx) & bind(c, name='hipblasStbsv_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbsv_64Fortran type(c_ptr), value :: handle @@ -7605,7 +7605,7 @@ function hipblasDtbsv_64Fortran(handle, uplo, transA, diag, n, k, & A, lda, x, incx) & bind(c, name='hipblasDtbsv_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbsv_64Fortran type(c_ptr), value :: handle @@ -7627,7 +7627,7 @@ function hipblasCtbsv_64Fortran(handle, uplo, transA, diag, n, k, & A, lda, x, incx) & bind(c, name='hipblasCtbsv_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbsv_64Fortran type(c_ptr), value :: handle @@ -7649,7 +7649,7 @@ function hipblasZtbsv_64Fortran(handle, uplo, transA, diag, n, k, & A, lda, x, incx) & bind(c, name='hipblasZtbsv_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbsv_64Fortran type(c_ptr), value :: handle @@ -7672,7 +7672,7 @@ function hipblasStbsvBatched_64Fortran(handle, uplo, transA, diag, n, k, & A, lda, x, incx, batch_count) & bind(c, name='hipblasStbsvBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbsvBatched_64Fortran type(c_ptr), value :: handle @@ -7695,7 +7695,7 @@ function hipblasDtbsvBatched_64Fortran(handle, uplo, transA, diag, n, k, & A, lda, x, incx, batch_count) & bind(c, name='hipblasDtbsvBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbsvBatched_64Fortran type(c_ptr), value :: handle @@ -7718,7 +7718,7 @@ function hipblasCtbsvBatched_64Fortran(handle, uplo, transA, diag, n, k, & A, lda, x, incx, batch_count) & bind(c, name='hipblasCtbsvBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbsvBatched_64Fortran type(c_ptr), value :: handle @@ -7741,7 +7741,7 @@ function hipblasZtbsvBatched_64Fortran(handle, uplo, transA, diag, n, k, & A, lda, x, incx, batch_count) & bind(c, name='hipblasZtbsvBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbsvBatched_64Fortran type(c_ptr), value :: handle @@ -7765,7 +7765,7 @@ function hipblasStbsvStridedBatched_64Fortran(handle, uplo, transA, diag, n, k, A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='hipblasStbsvStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbsvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -7790,7 +7790,7 @@ function hipblasDtbsvStridedBatched_64Fortran(handle, uplo, transA, diag, n, k, A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='hipblasDtbsvStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbsvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -7815,7 +7815,7 @@ function hipblasCtbsvStridedBatched_64Fortran(handle, uplo, transA, diag, n, k, A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='hipblasCtbsvStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbsvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -7840,7 +7840,7 @@ function hipblasZtbsvStridedBatched_64Fortran(handle, uplo, transA, diag, n, k, A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='hipblasZtbsvStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbsvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -7866,7 +7866,7 @@ function hipblasStpsv_64Fortran(handle, uplo, transA, diag, n, & AP, x, incx) & bind(c, name='hipblasStpsv_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpsv_64Fortran type(c_ptr), value :: handle @@ -7886,7 +7886,7 @@ function hipblasDtpsv_64Fortran(handle, uplo, transA, diag, n, & AP, x, incx) & bind(c, name='hipblasDtpsv_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpsv_64Fortran type(c_ptr), value :: handle @@ -7906,7 +7906,7 @@ function hipblasCtpsv_64Fortran(handle, uplo, transA, diag, n, & AP, x, incx) & bind(c, name='hipblasCtpsv_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpsv_64Fortran type(c_ptr), value :: handle @@ -7926,7 +7926,7 @@ function hipblasZtpsv_64Fortran(handle, uplo, transA, diag, n, & AP, x, incx) & bind(c, name='hipblasZtpsv_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpsv_64Fortran type(c_ptr), value :: handle @@ -7947,7 +7947,7 @@ function hipblasStpsvBatched_64Fortran(handle, uplo, transA, diag, n, & AP, x, incx, batch_count) & bind(c, name='hipblasStpsvBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpsvBatched_64Fortran type(c_ptr), value :: handle @@ -7968,7 +7968,7 @@ function hipblasDtpsvBatched_64Fortran(handle, uplo, transA, diag, n, & AP, x, incx, batch_count) & bind(c, name='hipblasDtpsvBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpsvBatched_64Fortran type(c_ptr), value :: handle @@ -7989,7 +7989,7 @@ function hipblasCtpsvBatched_64Fortran(handle, uplo, transA, diag, n, & AP, x, incx, batch_count) & bind(c, name='hipblasCtpsvBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpsvBatched_64Fortran type(c_ptr), value :: handle @@ -8010,7 +8010,7 @@ function hipblasZtpsvBatched_64Fortran(handle, uplo, transA, diag, n, & AP, x, incx, batch_count) & bind(c, name='hipblasZtpsvBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpsvBatched_64Fortran type(c_ptr), value :: handle @@ -8032,7 +8032,7 @@ function hipblasStpsvStridedBatched_64Fortran(handle, uplo, transA, diag, n, & AP, stride_AP, x, incx, stride_x, batch_count) & bind(c, name='hipblasStpsvStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpsvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -8055,7 +8055,7 @@ function hipblasDtpsvStridedBatched_64Fortran(handle, uplo, transA, diag, n, & AP, stride_AP, x, incx, stride_x, batch_count) & bind(c, name='hipblasDtpsvStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpsvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -8078,7 +8078,7 @@ function hipblasCtpsvStridedBatched_64Fortran(handle, uplo, transA, diag, n, & AP, stride_AP, x, incx, stride_x, batch_count) & bind(c, name='hipblasCtpsvStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpsvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -8101,7 +8101,7 @@ function hipblasZtpsvStridedBatched_64Fortran(handle, uplo, transA, diag, n, & AP, stride_AP, x, incx, stride_x, batch_count) & bind(c, name='hipblasZtpsvStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpsvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -8125,7 +8125,7 @@ function hipblasStrsv_64Fortran(handle, uplo, transA, diag, m, & A, lda, x, incx) & bind(c, name='hipblasStrsv_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsv_64Fortran type(c_ptr), value :: handle @@ -8146,7 +8146,7 @@ function hipblasDtrsv_64Fortran(handle, uplo, transA, diag, m, & A, lda, x, incx) & bind(c, name='hipblasDtrsv_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsv_64Fortran type(c_ptr), value :: handle @@ -8167,7 +8167,7 @@ function hipblasCtrsv_64Fortran(handle, uplo, transA, diag, m, & A, lda, x, incx) & bind(c, name='hipblasCtrsv_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsv_64Fortran type(c_ptr), value :: handle @@ -8188,7 +8188,7 @@ function hipblasZtrsv_64Fortran(handle, uplo, transA, diag, m, & A, lda, x, incx) & bind(c, name='hipblasZtrsv_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsv_64Fortran type(c_ptr), value :: handle @@ -8210,7 +8210,7 @@ function hipblasStrsvBatched_64Fortran(handle, uplo, transA, diag, m, & A, lda, x, incx, batch_count) & bind(c, name='hipblasStrsvBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsvBatched_64Fortran type(c_ptr), value :: handle @@ -8232,7 +8232,7 @@ function hipblasDtrsvBatched_64Fortran(handle, uplo, transA, diag, m, & A, lda, x, incx, batch_count) & bind(c, name='hipblasDtrsvBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsvBatched_64Fortran type(c_ptr), value :: handle @@ -8254,7 +8254,7 @@ function hipblasCtrsvBatched_64Fortran(handle, uplo, transA, diag, m, & A, lda, x, incx, batch_count) & bind(c, name='hipblasCtrsvBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsvBatched_64Fortran type(c_ptr), value :: handle @@ -8276,7 +8276,7 @@ function hipblasZtrsvBatched_64Fortran(handle, uplo, transA, diag, m, & A, lda, x, incx, batch_count) & bind(c, name='hipblasZtrsvBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsvBatched_64Fortran type(c_ptr), value :: handle @@ -8299,7 +8299,7 @@ function hipblasStrsvStridedBatched_64Fortran(handle, uplo, transA, diag, m, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='hipblasStrsvStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -8323,7 +8323,7 @@ function hipblasDtrsvStridedBatched_64Fortran(handle, uplo, transA, diag, m, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='hipblasDtrsvStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -8347,7 +8347,7 @@ function hipblasCtrsvStridedBatched_64Fortran(handle, uplo, transA, diag, m, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='hipblasCtrsvStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -8371,7 +8371,7 @@ function hipblasZtrsvStridedBatched_64Fortran(handle, uplo, transA, diag, m, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='hipblasZtrsvStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -8400,7 +8400,7 @@ function hipblasChemm_64Fortran(handle, side, uplo, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasChemm_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemm_64Fortran type(c_ptr), value :: handle @@ -8425,7 +8425,7 @@ function hipblasZhemm_64Fortran(handle, side, uplo, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasZhemm_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemm_64Fortran type(c_ptr), value :: handle @@ -8451,7 +8451,7 @@ function hipblasChemmBatched_64Fortran(handle, side, uplo, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasChemmBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemmBatched_64Fortran type(c_ptr), value :: handle @@ -8477,7 +8477,7 @@ function hipblasZhemmBatched_64Fortran(handle, side, uplo, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasZhemmBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemmBatched_64Fortran type(c_ptr), value :: handle @@ -8504,7 +8504,7 @@ function hipblasChemmStridedBatched_64Fortran(handle, side, uplo, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasChemmStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemmStridedBatched_64Fortran type(c_ptr), value :: handle @@ -8533,7 +8533,7 @@ function hipblasZhemmStridedBatched_64Fortran(handle, side, uplo, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasZhemmStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemmStridedBatched_64Fortran type(c_ptr), value :: handle @@ -8563,7 +8563,7 @@ function hipblasCherk_64Fortran(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc) & bind(c, name='hipblasCherk_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherk_64Fortran type(c_ptr), value :: handle @@ -8586,7 +8586,7 @@ function hipblasZherk_64Fortran(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc) & bind(c, name='hipblasZherk_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherk_64Fortran type(c_ptr), value :: handle @@ -8610,7 +8610,7 @@ function hipblasCherkBatched_64Fortran(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc, batch_count) & bind(c, name='hipblasCherkBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkBatched_64Fortran type(c_ptr), value :: handle @@ -8634,7 +8634,7 @@ function hipblasZherkBatched_64Fortran(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc, batch_count) & bind(c, name='hipblasZherkBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkBatched_64Fortran type(c_ptr), value :: handle @@ -8659,7 +8659,7 @@ function hipblasCherkStridedBatched_64Fortran(handle, uplo, transA, n, k, alpha, A, lda, stride_A, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasCherkStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkStridedBatched_64Fortran type(c_ptr), value :: handle @@ -8685,7 +8685,7 @@ function hipblasZherkStridedBatched_64Fortran(handle, uplo, transA, n, k, alpha, A, lda, stride_A, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasZherkStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkStridedBatched_64Fortran type(c_ptr), value :: handle @@ -8712,7 +8712,7 @@ function hipblasCher2k_64Fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasCher2k_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2k_64Fortran type(c_ptr), value :: handle @@ -8737,7 +8737,7 @@ function hipblasZher2k_64Fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasZher2k_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2k_64Fortran type(c_ptr), value :: handle @@ -8763,7 +8763,7 @@ function hipblasCher2kBatched_64Fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasCher2kBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2kBatched_64Fortran type(c_ptr), value :: handle @@ -8789,7 +8789,7 @@ function hipblasZher2kBatched_64Fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasZher2kBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2kBatched_64Fortran type(c_ptr), value :: handle @@ -8816,7 +8816,7 @@ function hipblasCher2kStridedBatched_64Fortran(handle, uplo, transA, n, k, alpha A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasCher2kStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2kStridedBatched_64Fortran type(c_ptr), value :: handle @@ -8845,7 +8845,7 @@ function hipblasZher2kStridedBatched_64Fortran(handle, uplo, transA, n, k, alpha A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasZher2kStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2kStridedBatched_64Fortran type(c_ptr), value :: handle @@ -8875,7 +8875,7 @@ function hipblasCherkx_64Fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasCherkx_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkx_64Fortran type(c_ptr), value :: handle @@ -8900,7 +8900,7 @@ function hipblasZherkx_64Fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasZherkx_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkx_64Fortran type(c_ptr), value :: handle @@ -8926,7 +8926,7 @@ function hipblasCherkxBatched_64Fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasCherkxBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkxBatched_64Fortran type(c_ptr), value :: handle @@ -8952,7 +8952,7 @@ function hipblasZherkxBatched_64Fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasZherkxBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkxBatched_64Fortran type(c_ptr), value :: handle @@ -8979,7 +8979,7 @@ function hipblasCherkxStridedBatched_64Fortran(handle, uplo, transA, n, k, alpha A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasCherkxStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkxStridedBatched_64Fortran type(c_ptr), value :: handle @@ -9008,7 +9008,7 @@ function hipblasZherkxStridedBatched_64Fortran(handle, uplo, transA, n, k, alpha A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasZherkxStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkxStridedBatched_64Fortran type(c_ptr), value :: handle @@ -9038,7 +9038,7 @@ function hipblasSsymm_64Fortran(handle, side, uplo, m, n, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasSsymm_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymm_64Fortran type(c_ptr), value :: handle @@ -9063,7 +9063,7 @@ function hipblasDsymm_64Fortran(handle, side, uplo, m, n, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasDsymm_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymm_64Fortran type(c_ptr), value :: handle @@ -9088,7 +9088,7 @@ function hipblasCsymm_64Fortran(handle, side, uplo, m, n, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasCsymm_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymm_64Fortran type(c_ptr), value :: handle @@ -9113,7 +9113,7 @@ function hipblasZsymm_64Fortran(handle, side, uplo, m, n, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasZsymm_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymm_64Fortran type(c_ptr), value :: handle @@ -9139,7 +9139,7 @@ function hipblasSsymmBatched_64Fortran(handle, side, uplo, m, n, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasSsymmBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymmBatched_64Fortran type(c_ptr), value :: handle @@ -9165,7 +9165,7 @@ function hipblasDsymmBatched_64Fortran(handle, side, uplo, m, n, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasDsymmBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymmBatched_64Fortran type(c_ptr), value :: handle @@ -9191,7 +9191,7 @@ function hipblasCsymmBatched_64Fortran(handle, side, uplo, m, n, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasCsymmBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymmBatched_64Fortran type(c_ptr), value :: handle @@ -9217,7 +9217,7 @@ function hipblasZsymmBatched_64Fortran(handle, side, uplo, m, n, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasZsymmBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymmBatched_64Fortran type(c_ptr), value :: handle @@ -9244,7 +9244,7 @@ function hipblasSsymmStridedBatched_64Fortran(handle, side, uplo, m, n, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasSsymmStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymmStridedBatched_64Fortran type(c_ptr), value :: handle @@ -9273,7 +9273,7 @@ function hipblasDsymmStridedBatched_64Fortran(handle, side, uplo, m, n, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasDsymmStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymmStridedBatched_64Fortran type(c_ptr), value :: handle @@ -9302,7 +9302,7 @@ function hipblasCsymmStridedBatched_64Fortran(handle, side, uplo, m, n, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasCsymmStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymmStridedBatched_64Fortran type(c_ptr), value :: handle @@ -9331,7 +9331,7 @@ function hipblasZsymmStridedBatched_64Fortran(handle, side, uplo, m, n, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasZsymmStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymmStridedBatched_64Fortran type(c_ptr), value :: handle @@ -9361,7 +9361,7 @@ function hipblasSsyrk_64Fortran(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc) & bind(c, name='hipblasSsyrk_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrk_64Fortran type(c_ptr), value :: handle @@ -9384,7 +9384,7 @@ function hipblasDsyrk_64Fortran(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc) & bind(c, name='hipblasDsyrk_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrk_64Fortran type(c_ptr), value :: handle @@ -9407,7 +9407,7 @@ function hipblasCsyrk_64Fortran(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc) & bind(c, name='hipblasCsyrk_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrk_64Fortran type(c_ptr), value :: handle @@ -9430,7 +9430,7 @@ function hipblasZsyrk_64Fortran(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc) & bind(c, name='hipblasZsyrk_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrk_64Fortran type(c_ptr), value :: handle @@ -9454,7 +9454,7 @@ function hipblasSsyrkBatched_64Fortran(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc, batch_count) & bind(c, name='hipblasSsyrkBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkBatched_64Fortran type(c_ptr), value :: handle @@ -9478,7 +9478,7 @@ function hipblasDsyrkBatched_64Fortran(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc, batch_count) & bind(c, name='hipblasDsyrkBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkBatched_64Fortran type(c_ptr), value :: handle @@ -9502,7 +9502,7 @@ function hipblasCsyrkBatched_64Fortran(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc, batch_count) & bind(c, name='hipblasCsyrkBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkBatched_64Fortran type(c_ptr), value :: handle @@ -9526,7 +9526,7 @@ function hipblasZsyrkBatched_64Fortran(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc, batch_count) & bind(c, name='hipblasZsyrkBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkBatched_64Fortran type(c_ptr), value :: handle @@ -9551,7 +9551,7 @@ function hipblasSsyrkStridedBatched_64Fortran(handle, uplo, transA, n, k, alpha, A, lda, stride_A, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasSsyrkStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkStridedBatched_64Fortran type(c_ptr), value :: handle @@ -9577,7 +9577,7 @@ function hipblasDsyrkStridedBatched_64Fortran(handle, uplo, transA, n, k, alpha, A, lda, stride_A, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasDsyrkStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkStridedBatched_64Fortran type(c_ptr), value :: handle @@ -9603,7 +9603,7 @@ function hipblasCsyrkStridedBatched_64Fortran(handle, uplo, transA, n, k, alpha, A, lda, stride_A, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasCsyrkStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkStridedBatched_64Fortran type(c_ptr), value :: handle @@ -9629,7 +9629,7 @@ function hipblasZsyrkStridedBatched_64Fortran(handle, uplo, transA, n, k, alpha, A, lda, stride_A, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasZsyrkStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkStridedBatched_64Fortran type(c_ptr), value :: handle @@ -9656,7 +9656,7 @@ function hipblasSsyr2k_64Fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasSsyr2k_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2k_64Fortran type(c_ptr), value :: handle @@ -9681,7 +9681,7 @@ function hipblasDsyr2k_64Fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasDsyr2k_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2k_64Fortran type(c_ptr), value :: handle @@ -9706,7 +9706,7 @@ function hipblasCsyr2k_64Fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasCsyr2k_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2k_64Fortran type(c_ptr), value :: handle @@ -9731,7 +9731,7 @@ function hipblasZsyr2k_64Fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasZsyr2k_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2k_64Fortran type(c_ptr), value :: handle @@ -9757,7 +9757,7 @@ function hipblasSsyr2kBatched_64Fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasSsyr2kBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2kBatched_64Fortran type(c_ptr), value :: handle @@ -9783,7 +9783,7 @@ function hipblasDsyr2kBatched_64Fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasDsyr2kBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2kBatched_64Fortran type(c_ptr), value :: handle @@ -9809,7 +9809,7 @@ function hipblasCsyr2kBatched_64Fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasCsyr2kBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2kBatched_64Fortran type(c_ptr), value :: handle @@ -9835,7 +9835,7 @@ function hipblasZsyr2kBatched_64Fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasZsyr2kBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2kBatched_64Fortran type(c_ptr), value :: handle @@ -9862,7 +9862,7 @@ function hipblasSsyr2kStridedBatched_64Fortran(handle, uplo, transA, n, k, alpha A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasSsyr2kStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2kStridedBatched_64Fortran type(c_ptr), value :: handle @@ -9891,7 +9891,7 @@ function hipblasDsyr2kStridedBatched_64Fortran(handle, uplo, transA, n, k, alpha A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasDsyr2kStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2kStridedBatched_64Fortran type(c_ptr), value :: handle @@ -9920,7 +9920,7 @@ function hipblasCsyr2kStridedBatched_64Fortran(handle, uplo, transA, n, k, alpha A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasCsyr2kStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2kStridedBatched_64Fortran type(c_ptr), value :: handle @@ -9949,7 +9949,7 @@ function hipblasZsyr2kStridedBatched_64Fortran(handle, uplo, transA, n, k, alpha A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasZsyr2kStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2kStridedBatched_64Fortran type(c_ptr), value :: handle @@ -9979,7 +9979,7 @@ function hipblasSsyrkx_64Fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasSsyrkx_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkx_64Fortran type(c_ptr), value :: handle @@ -10004,7 +10004,7 @@ function hipblasDsyrkx_64Fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasDsyrkx_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkx_64Fortran type(c_ptr), value :: handle @@ -10029,7 +10029,7 @@ function hipblasCsyrkx_64Fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasCsyrkx_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkx_64Fortran type(c_ptr), value :: handle @@ -10054,7 +10054,7 @@ function hipblasZsyrkx_64Fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasZsyrkx_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkx_64Fortran type(c_ptr), value :: handle @@ -10080,7 +10080,7 @@ function hipblasSsyrkxBatched_64Fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasSsyrkxBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkxBatched_64Fortran type(c_ptr), value :: handle @@ -10106,7 +10106,7 @@ function hipblasDsyrkxBatched_64Fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasDsyrkxBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkxBatched_64Fortran type(c_ptr), value :: handle @@ -10132,7 +10132,7 @@ function hipblasCsyrkxBatched_64Fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasCsyrkxBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkxBatched_64Fortran type(c_ptr), value :: handle @@ -10158,7 +10158,7 @@ function hipblasZsyrkxBatched_64Fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasZsyrkxBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkxBatched_64Fortran type(c_ptr), value :: handle @@ -10185,7 +10185,7 @@ function hipblasSsyrkxStridedBatched_64Fortran(handle, uplo, transA, n, k, alpha A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasSsyrkxStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkxStridedBatched_64Fortran type(c_ptr), value :: handle @@ -10214,7 +10214,7 @@ function hipblasDsyrkxStridedBatched_64Fortran(handle, uplo, transA, n, k, alpha A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasDsyrkxStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkxStridedBatched_64Fortran type(c_ptr), value :: handle @@ -10243,7 +10243,7 @@ function hipblasCsyrkxStridedBatched_64Fortran(handle, uplo, transA, n, k, alpha A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasCsyrkxStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkxStridedBatched_64Fortran type(c_ptr), value :: handle @@ -10272,7 +10272,7 @@ function hipblasZsyrkxStridedBatched_64Fortran(handle, uplo, transA, n, k, alpha A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasZsyrkxStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkxStridedBatched_64Fortran type(c_ptr), value :: handle @@ -10302,7 +10302,7 @@ function hipblasStrmm_64Fortran(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb, C, ldc) & bind(c, name='hipblasStrmm_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmm_64Fortran type(c_ptr), value :: handle @@ -10328,7 +10328,7 @@ function hipblasDtrmm_64Fortran(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb, C, ldc) & bind(c, name='hipblasDtrmm_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmm_64Fortran type(c_ptr), value :: handle @@ -10354,7 +10354,7 @@ function hipblasCtrmm_64Fortran(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb, C, ldc) & bind(c, name='hipblasCtrmm_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmm_64Fortran type(c_ptr), value :: handle @@ -10380,7 +10380,7 @@ function hipblasZtrmm_64Fortran(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb, C, ldc) & bind(c, name='hipblasZtrmm_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmm_64Fortran type(c_ptr), value :: handle @@ -10407,7 +10407,7 @@ function hipblasStrmmBatched_64Fortran(handle, side, uplo, transA, diag, m, n, a A, lda, B, ldb, C, ldc, batch_count) & bind(c, name='hipblasStrmmBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmmBatched_64Fortran type(c_ptr), value :: handle @@ -10434,7 +10434,7 @@ function hipblasDtrmmBatched_64Fortran(handle, side, uplo, transA, diag, m, n, a A, lda, B, ldb, C, ldc, batch_count) & bind(c, name='hipblasDtrmmBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmmBatched_64Fortran type(c_ptr), value :: handle @@ -10461,7 +10461,7 @@ function hipblasCtrmmBatched_64Fortran(handle, side, uplo, transA, diag, m, n, a A, lda, B, ldb, C, ldc, batch_count) & bind(c, name='hipblasCtrmmBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmmBatched_64Fortran type(c_ptr), value :: handle @@ -10488,7 +10488,7 @@ function hipblasZtrmmBatched_64Fortran(handle, side, uplo, transA, diag, m, n, a A, lda, B, ldb, C, ldc, batch_count) & bind(c, name='hipblasZtrmmBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmmBatched_64Fortran type(c_ptr), value :: handle @@ -10516,7 +10516,7 @@ function hipblasStrmmStridedBatched_64Fortran(handle, side, uplo, transA, diag, A, lda, stride_A, B, ldb, stride_B, C, ldc, stride_C, batch_count) & bind(c, name='hipblasStrmmStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmmStridedBatched_64Fortran type(c_ptr), value :: handle @@ -10546,7 +10546,7 @@ function hipblasDtrmmStridedBatched_64Fortran(handle, side, uplo, transA, diag, A, lda, stride_A, B, ldb, stride_B, C, ldc, stride_C, batch_count) & bind(c, name='hipblasDtrmmStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmmStridedBatched_64Fortran type(c_ptr), value :: handle @@ -10576,7 +10576,7 @@ function hipblasCtrmmStridedBatched_64Fortran(handle, side, uplo, transA, diag, A, lda, stride_A, B, ldb, stride_B, C, ldc, stride_C, batch_count) & bind(c, name='hipblasCtrmmStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmmStridedBatched_64Fortran type(c_ptr), value :: handle @@ -10606,7 +10606,7 @@ function hipblasZtrmmStridedBatched_64Fortran(handle, side, uplo, transA, diag, A, lda, stride_A, B, ldb, stride_B, C, ldc, stride_C, batch_count) & bind(c, name='hipblasZtrmmStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmmStridedBatched_64Fortran type(c_ptr), value :: handle @@ -10637,7 +10637,7 @@ function hipblasStrsm_64Fortran(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb) & bind(c, name='hipblasStrsm_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsm_64Fortran type(c_ptr), value :: handle @@ -10661,7 +10661,7 @@ function hipblasDtrsm_64Fortran(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb) & bind(c, name='hipblasDtrsm_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsm_64Fortran type(c_ptr), value :: handle @@ -10685,7 +10685,7 @@ function hipblasCtrsm_64Fortran(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb) & bind(c, name='hipblasCtrsm_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsm_64Fortran type(c_ptr), value :: handle @@ -10709,7 +10709,7 @@ function hipblasZtrsm_64Fortran(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb) & bind(c, name='hipblasZtrsm_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsm_64Fortran type(c_ptr), value :: handle @@ -10734,7 +10734,7 @@ function hipblasStrsmBatched_64Fortran(handle, side, uplo, transA, diag, m, n, a A, lda, B, ldb, batch_count) & bind(c, name='hipblasStrsmBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsmBatched_64Fortran type(c_ptr), value :: handle @@ -10759,7 +10759,7 @@ function hipblasDtrsmBatched_64Fortran(handle, side, uplo, transA, diag, m, n, a A, lda, B, ldb, batch_count) & bind(c, name='hipblasDtrsmBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsmBatched_64Fortran type(c_ptr), value :: handle @@ -10784,7 +10784,7 @@ function hipblasCtrsmBatched_64Fortran(handle, side, uplo, transA, diag, m, n, a A, lda, B, ldb, batch_count) & bind(c, name='hipblasCtrsmBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsmBatched_64Fortran type(c_ptr), value :: handle @@ -10809,7 +10809,7 @@ function hipblasZtrsmBatched_64Fortran(handle, side, uplo, transA, diag, m, n, a A, lda, B, ldb, batch_count) & bind(c, name='hipblasZtrsmBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsmBatched_64Fortran type(c_ptr), value :: handle @@ -10835,7 +10835,7 @@ function hipblasStrsmStridedBatched_64Fortran(handle, side, uplo, transA, diag, A, lda, stride_A, B, ldb, stride_B, batch_count) & bind(c, name='hipblasStrsmStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsmStridedBatched_64Fortran type(c_ptr), value :: handle @@ -10862,7 +10862,7 @@ function hipblasDtrsmStridedBatched_64Fortran(handle, side, uplo, transA, diag, A, lda, stride_A, B, ldb, stride_B, batch_count) & bind(c, name='hipblasDtrsmStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsmStridedBatched_64Fortran type(c_ptr), value :: handle @@ -10889,7 +10889,7 @@ function hipblasCtrsmStridedBatched_64Fortran(handle, side, uplo, transA, diag, A, lda, stride_A, B, ldb, stride_B, batch_count) & bind(c, name='hipblasCtrsmStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsmStridedBatched_64Fortran type(c_ptr), value :: handle @@ -10916,7 +10916,7 @@ function hipblasZtrsmStridedBatched_64Fortran(handle, side, uplo, transA, diag, A, lda, stride_A, B, ldb, stride_B, batch_count) & bind(c, name='hipblasZtrsmStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsmStridedBatched_64Fortran type(c_ptr), value :: handle @@ -10944,7 +10944,7 @@ function hipblasHgemm_64Fortran(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasHgemm_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHgemm_64Fortran type(c_ptr), value :: handle @@ -10970,7 +10970,7 @@ function hipblasSgemm_64Fortran(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasSgemm_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemm_64Fortran type(c_ptr), value :: handle @@ -10996,7 +10996,7 @@ function hipblasDgemm_64Fortran(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasDgemm_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemm_64Fortran type(c_ptr), value :: handle @@ -11022,7 +11022,7 @@ function hipblasCgemm_64Fortran(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasCgemm_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemm_64Fortran type(c_ptr), value :: handle @@ -11048,7 +11048,7 @@ function hipblasZgemm_64Fortran(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasZgemm_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemm_64Fortran type(c_ptr), value :: handle @@ -11075,7 +11075,7 @@ function hipblasHgemmBatched_64Fortran(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasHgemmBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHgemmBatched_64Fortran type(c_ptr), value :: handle @@ -11102,7 +11102,7 @@ function hipblasSgemmBatched_64Fortran(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasSgemmBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmBatched_64Fortran type(c_ptr), value :: handle @@ -11129,7 +11129,7 @@ function hipblasDgemmBatched_64Fortran(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasDgemmBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmBatched_64Fortran type(c_ptr), value :: handle @@ -11156,7 +11156,7 @@ function hipblasCgemmBatched_64Fortran(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasCgemmBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemmBatched_64Fortran type(c_ptr), value :: handle @@ -11183,7 +11183,7 @@ function hipblasZgemmBatched_64Fortran(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasZgemmBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemmBatched_64Fortran type(c_ptr), value :: handle @@ -11212,7 +11212,7 @@ function hipblasSgemmGroupedBatched_64Fortran(handle, transA_array, transB_array Carray, ldc_array, group_count, group_size) & bind(c, name='hipblasSgemmGroupedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmGroupedBatched_64Fortran type(c_ptr), value :: handle @@ -11242,7 +11242,7 @@ function hipblasDgemmGroupedBatched_64Fortran(handle, transA_array, transB_array Carray, ldc_array, group_count, group_size) & bind(c, name='hipblasDgemmGroupedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmGroupedBatched_64Fortran type(c_ptr), value :: handle @@ -11272,7 +11272,7 @@ function hipblasHgemmStridedBatched_64Fortran(handle, transA, transB, m, n, k, a A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasHgemmStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHgemmStridedBatched_64Fortran type(c_ptr), value :: handle @@ -11302,7 +11302,7 @@ function hipblasSgemmStridedBatched_64Fortran(handle, transA, transB, m, n, k, a A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasSgemmStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmStridedBatched_64Fortran type(c_ptr), value :: handle @@ -11332,7 +11332,7 @@ function hipblasDgemmStridedBatched_64Fortran(handle, transA, transB, m, n, k, a A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasDgemmStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmStridedBatched_64Fortran type(c_ptr), value :: handle @@ -11362,7 +11362,7 @@ function hipblasCgemmStridedBatched_64Fortran(handle, transA, transB, m, n, k, a A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasCgemmStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemmStridedBatched_64Fortran type(c_ptr), value :: handle @@ -11392,7 +11392,7 @@ function hipblasZgemmStridedBatched_64Fortran(handle, transA, transB, m, n, k, a A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasZgemmStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemmStridedBatched_64Fortran type(c_ptr), value :: handle @@ -11423,7 +11423,7 @@ function hipblasSdgmm_64Fortran(handle, side, m, n, & A, lda, x, incx, C, ldc) & bind(c, name='hipblasSdgmm_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdgmm_64Fortran type(c_ptr), value :: handle @@ -11445,7 +11445,7 @@ function hipblasDdgmm_64Fortran(handle, side, m, n, & A, lda, x, incx, C, ldc) & bind(c, name='hipblasDdgmm_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdgmm_64Fortran type(c_ptr), value :: handle @@ -11467,7 +11467,7 @@ function hipblasCdgmm_64Fortran(handle, side, m, n, & A, lda, x, incx, C, ldc) & bind(c, name='hipblasCdgmm_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdgmm_64Fortran type(c_ptr), value :: handle @@ -11489,7 +11489,7 @@ function hipblasZdgmm_64Fortran(handle, side, m, n, & A, lda, x, incx, C, ldc) & bind(c, name='hipblasZdgmm_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdgmm_64Fortran type(c_ptr), value :: handle @@ -11512,7 +11512,7 @@ function hipblasSdgmmBatched_64Fortran(handle, side, m, n, & A, lda, x, incx, C, ldc, batch_count) & bind(c, name='hipblasSdgmmBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdgmmBatched_64Fortran type(c_ptr), value :: handle @@ -11535,7 +11535,7 @@ function hipblasDdgmmBatched_64Fortran(handle, side, m, n, & A, lda, x, incx, C, ldc, batch_count) & bind(c, name='hipblasDdgmmBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdgmmBatched_64Fortran type(c_ptr), value :: handle @@ -11558,7 +11558,7 @@ function hipblasCdgmmBatched_64Fortran(handle, side, m, n, & A, lda, x, incx, C, ldc, batch_count) & bind(c, name='hipblasCdgmmBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdgmmBatched_64Fortran type(c_ptr), value :: handle @@ -11581,7 +11581,7 @@ function hipblasZdgmmBatched_64Fortran(handle, side, m, n, & A, lda, x, incx, C, ldc, batch_count) & bind(c, name='hipblasZdgmmBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdgmmBatched_64Fortran type(c_ptr), value :: handle @@ -11605,7 +11605,7 @@ function hipblasSdgmmStridedBatched_64Fortran(handle, side, m, n, & A, lda, stride_A, x, incx, stride_x, C, ldc, stride_C, batch_count) & bind(c, name='hipblasSdgmmStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdgmmStridedBatched_64Fortran type(c_ptr), value :: handle @@ -11631,7 +11631,7 @@ function hipblasDdgmmStridedBatched_64Fortran(handle, side, m, n, & A, lda, stride_A, x, incx, stride_x, C, ldc, stride_C, batch_count) & bind(c, name='hipblasDdgmmStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdgmmStridedBatched_64Fortran type(c_ptr), value :: handle @@ -11657,7 +11657,7 @@ function hipblasCdgmmStridedBatched_64Fortran(handle, side, m, n, & A, lda, stride_A, x, incx, stride_x, C, ldc, stride_C, batch_count) & bind(c, name='hipblasCdgmmStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdgmmStridedBatched_64Fortran type(c_ptr), value :: handle @@ -11683,7 +11683,7 @@ function hipblasZdgmmStridedBatched_64Fortran(handle, side, m, n, & A, lda, stride_A, x, incx, stride_x, C, ldc, stride_C, batch_count) & bind(c, name='hipblasZdgmmStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdgmmStridedBatched_64Fortran type(c_ptr), value :: handle @@ -11710,7 +11710,7 @@ function hipblasSgeam_64Fortran(handle, transA, transB, m, n, alpha, & A, lda, beta, B, ldb, C, ldc) & bind(c, name='hipblasSgeam_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeam_64Fortran type(c_ptr), value :: handle @@ -11735,7 +11735,7 @@ function hipblasDgeam_64Fortran(handle, transA, transB, m, n, alpha, & A, lda, beta, B, ldb, C, ldc) & bind(c, name='hipblasDgeam_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeam_64Fortran type(c_ptr), value :: handle @@ -11760,7 +11760,7 @@ function hipblasCgeam_64Fortran(handle, transA, transB, m, n, alpha, & A, lda, beta, B, ldb, C, ldc) & bind(c, name='hipblasCgeam_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeam_64Fortran type(c_ptr), value :: handle @@ -11785,7 +11785,7 @@ function hipblasZgeam_64Fortran(handle, transA, transB, m, n, alpha, & A, lda, beta, B, ldb, C, ldc) & bind(c, name='hipblasZgeam_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeam_64Fortran type(c_ptr), value :: handle @@ -11811,7 +11811,7 @@ function hipblasSgeamBatched_64Fortran(handle, transA, transB, m, n, alpha, & A, lda, beta, B, ldb, C, ldc, batch_count) & bind(c, name='hipblasSgeamBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeamBatched_64Fortran type(c_ptr), value :: handle @@ -11837,7 +11837,7 @@ function hipblasDgeamBatched_64Fortran(handle, transA, transB, m, n, alpha, & A, lda, beta, B, ldb, C, ldc, batch_count) & bind(c, name='hipblasDgeamBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeamBatched_64Fortran type(c_ptr), value :: handle @@ -11863,7 +11863,7 @@ function hipblasCgeamBatched_64Fortran(handle, transA, transB, m, n, alpha, & A, lda, beta, B, ldb, C, ldc, batch_count) & bind(c, name='hipblasCgeamBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeamBatched_64Fortran type(c_ptr), value :: handle @@ -11889,7 +11889,7 @@ function hipblasZgeamBatched_64Fortran(handle, transA, transB, m, n, alpha, & A, lda, beta, B, ldb, C, ldc, batch_count) & bind(c, name='hipblasZgeamBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeamBatched_64Fortran type(c_ptr), value :: handle @@ -11916,7 +11916,7 @@ function hipblasSgeamStridedBatched_64Fortran(handle, transA, transB, m, n, alph A, lda, stride_A, beta, B, ldb, stride_B, C, ldc, stride_C, batch_count) & bind(c, name='hipblasSgeamStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeamStridedBatched_64Fortran type(c_ptr), value :: handle @@ -11945,7 +11945,7 @@ function hipblasDgeamStridedBatched_64Fortran(handle, transA, transB, m, n, alph A, lda, stride_A, beta, B, ldb, stride_B, C, ldc, stride_C, batch_count) & bind(c, name='hipblasDgeamStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeamStridedBatched_64Fortran type(c_ptr), value :: handle @@ -11974,7 +11974,7 @@ function hipblasCgeamStridedBatched_64Fortran(handle, transA, transB, m, n, alph A, lda, stride_A, beta, B, ldb, stride_B, C, ldc, stride_C, batch_count) & bind(c, name='hipblasCgeamStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeamStridedBatched_64Fortran type(c_ptr), value :: handle @@ -12003,7 +12003,7 @@ function hipblasZgeamStridedBatched_64Fortran(handle, transA, transB, m, n, alph A, lda, stride_A, beta, B, ldb, stride_B, C, ldc, stride_C, batch_count) & bind(c, name='hipblasZgeamStridedBatched_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeamStridedBatched_64Fortran type(c_ptr), value :: handle @@ -12036,7 +12036,8 @@ end function hipblasZgeamStridedBatched_64Fortran function hipblasAxpyEx_64Fortran(handle, n, alpha, alphaType, x, xType, incx, y, yType, incy, executionType) & bind(c, name='hipblasAxpyEx_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas + use hip implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasAxpyEx_64Fortran type(c_ptr), value :: handle @@ -12058,7 +12059,8 @@ end function hipblasAxpyEx_64Fortran function hipblasAxpyBatchedEx_64Fortran(handle, n, alpha, alphaType, x, xType, incx, y, yType, incy, batch_count, executionType) & bind(c, name='hipblasAxpyBatchedEx_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas + use hip implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasAxpyBatchedEx_64Fortran type(c_ptr), value :: handle @@ -12082,7 +12084,8 @@ function hipblasAxpyStridedBatchedEx_64Fortran(handle, n, alpha, alphaType, x, x y, yType, incy, stridey, batch_count, executionType) & bind(c, name='hipblasAxpyStridedBatchedEx_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas + use hip implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasAxpyStridedBatchedEx_64Fortran type(c_ptr), value :: handle @@ -12110,7 +12113,8 @@ function hipblasDotEx_64Fortran(handle, n, x, xType, incx, y, yType, incy, resul resultType, executionType) & bind(c, name='hipblasDotEx_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas + use hip implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDotEx_64Fortran type(c_ptr), value :: handle @@ -12133,7 +12137,8 @@ function hipblasDotcEx_64Fortran(handle, n, x, xType, incx, y, yType, incy, resu resultType, executionType) & bind(c, name='hipblasDotcEx_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas + use hip implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDotcEx_64Fortran type(c_ptr), value :: handle @@ -12156,7 +12161,8 @@ function hipblasDotBatchedEx_64Fortran(handle, n, x, xType, incx, y, yType, incy resultType, executionType) & bind(c, name='hipblasDotBatchedEx_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas + use hip implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDotBatchedEx_64Fortran type(c_ptr), value :: handle @@ -12180,7 +12186,8 @@ function hipblasDotcBatchedEx_64Fortran(handle, n, x, xType, incx, y, yType, inc resultType, executionType) & bind(c, name='hipblasDotcBatchedEx_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas + use hip implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDotcBatchedEx_64Fortran type(c_ptr), value :: handle @@ -12204,7 +12211,8 @@ function hipblasDotStridedBatchedEx_64Fortran(handle, n, x, xType, incx, stridex y, yType, incy, stridey, batch_count, result, resultType, executionType) & bind(c, name='hipblasDotStridedBatchedEx_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas + use hip implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDotStridedBatchedEx_64Fortran type(c_ptr), value :: handle @@ -12231,7 +12239,8 @@ function hipblasDotcStridedBatchedEx_64Fortran(handle, n, x, xType, incx, stride y, yType, incy, stridey, batch_count, result, resultType, executionType) & bind(c, name='hipblasDotcStridedBatchedEx_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas + use hip implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDotcStridedBatchedEx_64Fortran type(c_ptr), value :: handle @@ -12258,7 +12267,8 @@ end function hipblasDotcStridedBatchedEx_64Fortran function hipblasNrm2Ex_64Fortran(handle, n, x, xType, incx, result, resultType, executionType) & bind(c, name='hipblasNrm2Ex_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas + use hip implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasNrm2Ex_64Fortran type(c_ptr), value :: handle @@ -12277,7 +12287,8 @@ end function hipblasNrm2Ex_64Fortran function hipblasNrm2BatchedEx_64Fortran(handle, n, x, xType, incx, batch_count, result, resultType, executionType) & bind(c, name='hipblasNrm2BatchedEx_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas + use hip implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasNrm2BatchedEx_64Fortran type(c_ptr), value :: handle @@ -12298,7 +12309,8 @@ function hipblasNrm2StridedBatchedEx_64Fortran(handle, n, x, xType, incx, stride batch_count, result, resultType, executionType) & bind(c, name='hipblasNrm2StridedBatchedEx_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas + use hip implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasNrm2StridedBatchedEx_64Fortran type(c_ptr), value :: handle @@ -12322,7 +12334,8 @@ function hipblasRotEx_64Fortran(handle, n, x, xType, incx, y, yType, incy, c, s, csType, executionType) & bind(c, name='hipblasRotEx_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas + use hip implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasRotEx_64Fortran type(c_ptr), value :: handle @@ -12346,7 +12359,8 @@ function hipblasRotBatchedEx_64Fortran(handle, n, x, xType, incx, y, yType, incy csType, batch_count, executionType) & bind(c, name='hipblasRotBatchedEx_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas + use hip implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasRotBatchedEx_64Fortran type(c_ptr), value :: handle @@ -12371,7 +12385,8 @@ function hipblasRotStridedBatchedEx_64Fortran(handle, n, x, xType, incx, stridex y, yType, incy, stridey, c, s, csType, batch_count, executionType) & bind(c, name='hipblasRotStridedBatchedEx_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas + use hip implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasRotStridedBatchedEx_64Fortran type(c_ptr), value :: handle @@ -12399,7 +12414,8 @@ end function hipblasRotStridedBatchedEx_64Fortran function hipblasScalEx_64Fortran(handle, n, alpha, alphaType, x, xType, incx, executionType) & bind(c, name='hipblasScalEx_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas + use hip implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScalEx_64Fortran type(c_ptr), value :: handle @@ -12418,7 +12434,8 @@ end function hipblasScalEx_64Fortran function hipblasScalBatchedEx_64Fortran(handle, n, alpha, alphaType, x, xType, incx, batch_count, executionType) & bind(c, name='hipblasScalBatchedEx_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas + use hip implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScalBatchedEx_64Fortran type(c_ptr), value :: handle @@ -12439,7 +12456,8 @@ function hipblasScalStridedBatchedEx_64Fortran(handle, n, alpha, alphaType, x, x batch_count, executionType) & bind(c, name='hipblasScalStridedBatchedEx_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas + use hip implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScalStridedBatchedEx_64Fortran type(c_ptr), value :: handle @@ -12464,7 +12482,8 @@ function hipblasGemmEx_64Fortran(handle, transA, transB, m, n, k, alpha, a, a_ty compute_type, algo) & bind(c, name='hipblasGemmEx_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas + use hip implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmEx_64Fortran type(c_ptr), value :: handle @@ -12497,7 +12516,8 @@ function hipblasGemmBatchedEx_64Fortran(handle, transA, transB, m, n, k, alpha, batch_count, compute_type, algo) & bind(c, name='hipblasGemmBatchedEx_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas + use hip implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmBatchedEx_64Fortran type(c_ptr), value :: handle @@ -12531,7 +12551,8 @@ function hipblasGemmStridedBatchedEx_64Fortran(handle, transA, transB, m, n, k, batch_count, compute_type, algo) & bind(c, name='hipblasGemmStridedBatchedEx_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas + use hip implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmStridedBatchedEx_64Fortran type(c_ptr), value :: handle @@ -12568,7 +12589,8 @@ function hipblasGemmExWithFlags_64Fortran(handle, transA, transB, m, n, k, alpha compute_type, algo, flags) & bind(c, name='hipblasGemmExWithFlags_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas + use hip implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmExWithFlags_64Fortran type(c_ptr), value :: handle @@ -12602,7 +12624,8 @@ function hipblasGemmBatchedExWithFlags_64Fortran(handle, transA, transB, m, n, k batch_count, compute_type, algo, flags) & bind(c, name='hipblasGemmBatchedExWithFlags_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas + use hip implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmBatchedExWithFlags_64Fortran type(c_ptr), value :: handle @@ -12638,7 +12661,8 @@ function hipblasGemmGroupedBatchedEx_64Fortran(handle, transA_array, transB_arra ldd_array, group_count, group_size, compute_type, algo) & bind(c, name='hipblasGemmGroupedBatchedEx_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas + use hip implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmGroupedBatchedEx_64Fortran type(c_ptr), value :: handle @@ -12678,7 +12702,8 @@ function hipblasGemmGroupedBatchedExWithFlags_64Fortran(handle, transA_array, tr ldd_array, group_count, group_size, compute_type, algo, flags) & bind(c, name='hipblasGemmGroupedBatchedExWithFlags_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas + use hip implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmGroupedBatchedExWithFlags_64Fortran type(c_ptr), value :: handle @@ -12718,7 +12743,8 @@ function hipblasGemmStridedBatchedExWithFlags_64Fortran(handle, transA, transB, batch_count, compute_type, algo, flags) & bind(c, name='hipblasGemmStridedBatchedExWithFlags_64Fortran') use iso_c_binding - use hipblas_enums + use hipblas + use hip implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmStridedBatchedExWithFlags_64Fortran type(c_ptr), value :: handle diff --git a/projects/hipblas/clients/include/hipblas_fortran_solver.f90 b/projects/hipblas/clients/include/hipblas_fortran_solver.f90 index a0b7ef3936e4..ff4c352d7a47 100644 --- a/projects/hipblas/clients/include/hipblas_fortran_solver.f90 +++ b/projects/hipblas/clients/include/hipblas_fortran_solver.f90 @@ -29,7 +29,7 @@ function hipblasSgetrfFortran(handle, n, A, lda, ipiv, info) & bind(c, name='hipblasSgetrfFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrfFortran type(c_ptr), value :: handle @@ -45,7 +45,7 @@ end function hipblasSgetrfFortran function hipblasDgetrfFortran(handle, n, A, lda, ipiv, info) & bind(c, name='hipblasDgetrfFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrfFortran type(c_ptr), value :: handle @@ -61,7 +61,7 @@ end function hipblasDgetrfFortran function hipblasCgetrfFortran(handle, n, A, lda, ipiv, info) & bind(c, name='hipblasCgetrfFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrfFortran type(c_ptr), value :: handle @@ -77,7 +77,7 @@ end function hipblasCgetrfFortran function hipblasZgetrfFortran(handle, n, A, lda, ipiv, info) & bind(c, name='hipblasZgetrfFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrfFortran type(c_ptr), value :: handle @@ -94,7 +94,7 @@ end function hipblasZgetrfFortran function hipblasSgetrfBatchedFortran(handle, n, A, lda, ipiv, info, batch_count) & bind(c, name='hipblasSgetrfBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrfBatchedFortran type(c_ptr), value :: handle @@ -111,7 +111,7 @@ end function hipblasSgetrfBatchedFortran function hipblasDgetrfBatchedFortran(handle, n, A, lda, ipiv, info, batch_count) & bind(c, name='hipblasDgetrfBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrfBatchedFortran type(c_ptr), value :: handle @@ -128,7 +128,7 @@ end function hipblasDgetrfBatchedFortran function hipblasCgetrfBatchedFortran(handle, n, A, lda, ipiv, info, batch_count) & bind(c, name='hipblasCgetrfBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrfBatchedFortran type(c_ptr), value :: handle @@ -145,7 +145,7 @@ end function hipblasCgetrfBatchedFortran function hipblasZgetrfBatchedFortran(handle, n, A, lda, ipiv, info, batch_count) & bind(c, name='hipblasZgetrfBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrfBatchedFortran type(c_ptr), value :: handle @@ -164,16 +164,16 @@ function hipblasSgetrfStridedBatchedFortran(handle, n, A, lda, stride_A, & ipiv, stride_P, info, batch_count) & bind(c, name='hipblasSgetrfStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrfStridedBatchedFortran type(c_ptr), value :: handle integer(c_int), value :: n type(c_ptr), value :: A integer(c_int), value :: lda - integer(c_int), value :: stride_A + integer(c_int64_t), value :: stride_A type(c_ptr), value :: ipiv - integer(c_int), value :: stride_P + integer(c_int64_t), value :: stride_P type(c_ptr), value :: info integer(c_int), value :: batch_count hipblasSgetrfStridedBatchedFortran = & @@ -185,16 +185,16 @@ function hipblasDgetrfStridedBatchedFortran(handle, n, A, lda, stride_A, & ipiv, stride_P, info, batch_count) & bind(c, name='hipblasDgetrfStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrfStridedBatchedFortran type(c_ptr), value :: handle integer(c_int), value :: n type(c_ptr), value :: A integer(c_int), value :: lda - integer(c_int), value :: stride_A + integer(c_int64_t), value :: stride_A type(c_ptr), value :: ipiv - integer(c_int), value :: stride_P + integer(c_int64_t), value :: stride_P type(c_ptr), value :: info integer(c_int), value :: batch_count hipblasDgetrfStridedBatchedFortran = & @@ -206,16 +206,16 @@ function hipblasCgetrfStridedBatchedFortran(handle, n, A, lda, stride_A, & ipiv, stride_P, info, batch_count) & bind(c, name='hipblasCgetrfStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrfStridedBatchedFortran type(c_ptr), value :: handle integer(c_int), value :: n type(c_ptr), value :: A integer(c_int), value :: lda - integer(c_int), value :: stride_A + integer(c_int64_t), value :: stride_A type(c_ptr), value :: ipiv - integer(c_int), value :: stride_P + integer(c_int64_t), value :: stride_P type(c_ptr), value :: info integer(c_int), value :: batch_count hipblasCgetrfStridedBatchedFortran = & @@ -227,16 +227,16 @@ function hipblasZgetrfStridedBatchedFortran(handle, n, A, lda, stride_A, & ipiv, stride_P, info, batch_count) & bind(c, name='hipblasZgetrfStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrfStridedBatchedFortran type(c_ptr), value :: handle integer(c_int), value :: n type(c_ptr), value :: A integer(c_int), value :: lda - integer(c_int), value :: stride_A + integer(c_int64_t), value :: stride_A type(c_ptr), value :: ipiv - integer(c_int), value :: stride_P + integer(c_int64_t), value :: stride_P type(c_ptr), value :: info integer(c_int), value :: batch_count hipblasZgetrfStridedBatchedFortran = & @@ -249,7 +249,7 @@ function hipblasSgetrsFortran(handle, trans, n, nrhs, A, lda, ipiv, & B, ldb, info) & bind(c, name='hipblasSgetrsFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrsFortran type(c_ptr), value :: handle @@ -271,7 +271,7 @@ function hipblasDgetrsFortran(handle, trans, n, nrhs, A, lda, ipiv, & B, ldb, info) & bind(c, name='hipblasDgetrsFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrsFortran type(c_ptr), value :: handle @@ -293,7 +293,7 @@ function hipblasCgetrsFortran(handle, trans, n, nrhs, A, lda, ipiv, & B, ldb, info) & bind(c, name='hipblasCgetrsFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrsFortran type(c_ptr), value :: handle @@ -315,7 +315,7 @@ function hipblasZgetrsFortran(handle, trans, n, nrhs, A, lda, ipiv, & B, ldb, info) & bind(c, name='hipblasZgetrsFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrsFortran type(c_ptr), value :: handle @@ -338,7 +338,7 @@ function hipblasSgetrsBatchedFortran(handle, trans, n, nrhs, A, lda, ipiv, & B, ldb, info, batch_count) & bind(c, name='hipblasSgetrsBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrsBatchedFortran type(c_ptr), value :: handle @@ -361,7 +361,7 @@ function hipblasDgetrsBatchedFortran(handle, trans, n, nrhs, A, lda, ipiv, & B, ldb, info, batch_count) & bind(c, name='hipblasDgetrsBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrsBatchedFortran type(c_ptr), value :: handle @@ -384,7 +384,7 @@ function hipblasCgetrsBatchedFortran(handle, trans, n, nrhs, A, lda, ipiv, & B, ldb, info, batch_count) & bind(c, name='hipblasCgetrsBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrsBatchedFortran type(c_ptr), value :: handle @@ -407,7 +407,7 @@ function hipblasZgetrsBatchedFortran(handle, trans, n, nrhs, A, lda, ipiv, & B, ldb, info, batch_count) & bind(c, name='hipblasZgetrsBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrsBatchedFortran type(c_ptr), value :: handle @@ -431,7 +431,7 @@ function hipblasSgetrsStridedBatchedFortran(handle, trans, n, nrhs, A, lda, stri stride_P, B, ldb, stride_B, info, batch_count) & bind(c, name='hipblasSgetrsStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrsStridedBatchedFortran type(c_ptr), value :: handle @@ -440,12 +440,12 @@ function hipblasSgetrsStridedBatchedFortran(handle, trans, n, nrhs, A, lda, stri integer(c_int), value :: nrhs type(c_ptr), value :: A integer(c_int), value :: lda - integer(c_int), value :: stride_A + integer(c_int64_t), value :: stride_A type(c_ptr), value :: ipiv - integer(c_int), value :: stride_P + integer(c_int64_t), value :: stride_P type(c_ptr), value :: B integer(c_int), value :: ldb - integer(c_int), value :: stride_B + integer(c_int64_t), value :: stride_B type(c_ptr), value :: info integer(c_int), value :: batch_count hipblasSgetrsStridedBatchedFortran = & @@ -457,7 +457,7 @@ function hipblasDgetrsStridedBatchedFortran(handle, trans, n, nrhs, A, lda, stri stride_P, B, ldb, stride_B, info, batch_count) & bind(c, name='hipblasDgetrsStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrsStridedBatchedFortran type(c_ptr), value :: handle @@ -466,12 +466,12 @@ function hipblasDgetrsStridedBatchedFortran(handle, trans, n, nrhs, A, lda, stri integer(c_int), value :: nrhs type(c_ptr), value :: A integer(c_int), value :: lda - integer(c_int), value :: stride_A + integer(c_int64_t), value :: stride_A type(c_ptr), value :: ipiv - integer(c_int), value :: stride_P + integer(c_int64_t), value :: stride_P type(c_ptr), value :: B integer(c_int), value :: ldb - integer(c_int), value :: stride_B + integer(c_int64_t), value :: stride_B type(c_ptr), value :: info integer(c_int), value :: batch_count hipblasDgetrsStridedBatchedFortran = & @@ -483,7 +483,7 @@ function hipblasCgetrsStridedBatchedFortran(handle, trans, n, nrhs, A, lda, stri stride_P, B, ldb, stride_B, info, batch_count) & bind(c, name='hipblasCgetrsStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrsStridedBatchedFortran type(c_ptr), value :: handle @@ -492,12 +492,12 @@ function hipblasCgetrsStridedBatchedFortran(handle, trans, n, nrhs, A, lda, stri integer(c_int), value :: nrhs type(c_ptr), value :: A integer(c_int), value :: lda - integer(c_int), value :: stride_A + integer(c_int64_t), value :: stride_A type(c_ptr), value :: ipiv - integer(c_int), value :: stride_P + integer(c_int64_t), value :: stride_P type(c_ptr), value :: B integer(c_int), value :: ldb - integer(c_int), value :: stride_B + integer(c_int64_t), value :: stride_B type(c_ptr), value :: info integer(c_int), value :: batch_count hipblasCgetrsStridedBatchedFortran = & @@ -509,7 +509,7 @@ function hipblasZgetrsStridedBatchedFortran(handle, trans, n, nrhs, A, lda, stri stride_P, B, ldb, stride_B, info, batch_count) & bind(c, name='hipblasZgetrsStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrsStridedBatchedFortran type(c_ptr), value :: handle @@ -518,12 +518,12 @@ function hipblasZgetrsStridedBatchedFortran(handle, trans, n, nrhs, A, lda, stri integer(c_int), value :: nrhs type(c_ptr), value :: A integer(c_int), value :: lda - integer(c_int), value :: stride_A + integer(c_int64_t), value :: stride_A type(c_ptr), value :: ipiv - integer(c_int), value :: stride_P + integer(c_int64_t), value :: stride_P type(c_ptr), value :: B integer(c_int), value :: ldb - integer(c_int), value :: stride_B + integer(c_int64_t), value :: stride_B type(c_ptr), value :: info integer(c_int), value :: batch_count hipblasZgetrsStridedBatchedFortran = & @@ -535,7 +535,7 @@ end function hipblasZgetrsStridedBatchedFortran function hipblasSgetriBatchedFortran(handle, n, A, lda, ipiv, C, ldc, info, batch_count) & bind(c, name='hipblasSgetriBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetriBatchedFortran type(c_ptr), value :: handle @@ -554,7 +554,7 @@ end function hipblasSgetriBatchedFortran function hipblasDgetriBatchedFortran(handle, n, A, lda, ipiv, C, ldc, info, batch_count) & bind(c, name='hipblasDgetriBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetriBatchedFortran type(c_ptr), value :: handle @@ -573,7 +573,7 @@ end function hipblasDgetriBatchedFortran function hipblasCgetriBatchedFortran(handle, n, A, lda, ipiv, C, ldc, info, batch_count) & bind(c, name='hipblasCgetriBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetriBatchedFortran type(c_ptr), value :: handle @@ -592,7 +592,7 @@ end function hipblasCgetriBatchedFortran function hipblasZgetriBatchedFortran(handle, n, A, lda, ipiv, C, ldc, info, batch_count) & bind(c, name='hipblasZgetriBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetriBatchedFortran type(c_ptr), value :: handle @@ -612,7 +612,7 @@ end function hipblasZgetriBatchedFortran function hipblasSgeqrfFortran(handle, m, n, A, lda, tau, info) & bind(c, name='hipblasSgeqrfFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeqrfFortran type(c_ptr), value :: handle @@ -629,7 +629,7 @@ end function hipblasSgeqrfFortran function hipblasDgeqrfFortran(handle, m, n, A, lda, tau, info) & bind(c, name='hipblasDgeqrfFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeqrfFortran type(c_ptr), value :: handle @@ -646,7 +646,7 @@ end function hipblasDgeqrfFortran function hipblasCgeqrfFortran(handle, m, n, A, lda, tau, info) & bind(c, name='hipblasCgeqrfFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeqrfFortran type(c_ptr), value :: handle @@ -663,7 +663,7 @@ end function hipblasCgeqrfFortran function hipblasZgeqrfFortran(handle, m, n, A, lda, tau, info) & bind(c, name='hipblasZgeqrfFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeqrfFortran type(c_ptr), value :: handle @@ -681,7 +681,7 @@ end function hipblasZgeqrfFortran function hipblasSgeqrfBatchedFortran(handle, m, n, A, lda, tau, info, batch_count) & bind(c, name='hipblasSgeqrfBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeqrfBatchedFortran type(c_ptr), value :: handle @@ -699,7 +699,7 @@ end function hipblasSgeqrfBatchedFortran function hipblasDgeqrfBatchedFortran(handle, m, n, A, lda, tau, info, batch_count) & bind(c, name='hipblasDgeqrfBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeqrfBatchedFortran type(c_ptr), value :: handle @@ -717,7 +717,7 @@ end function hipblasDgeqrfBatchedFortran function hipblasCgeqrfBatchedFortran(handle, m, n, A, lda, tau, info, batch_count) & bind(c, name='hipblasCgeqrfBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeqrfBatchedFortran type(c_ptr), value :: handle @@ -735,7 +735,7 @@ end function hipblasCgeqrfBatchedFortran function hipblasZgeqrfBatchedFortran(handle, m, n, A, lda, tau, info, batch_count) & bind(c, name='hipblasZgeqrfBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeqrfBatchedFortran type(c_ptr), value :: handle @@ -755,7 +755,7 @@ function hipblasSgeqrfStridedBatchedFortran(handle, m, n, A, lda, stride_A, & tau, stride_T, info, batch_count) & bind(c, name='hipblasSgeqrfStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeqrfStridedBatchedFortran type(c_ptr), value :: handle @@ -763,9 +763,9 @@ function hipblasSgeqrfStridedBatchedFortran(handle, m, n, A, lda, stride_A, & integer(c_int), value :: n type(c_ptr), value :: A integer(c_int), value :: lda - integer(c_int), value :: stride_A + integer(c_int64_t), value :: stride_A type(c_ptr), value :: tau - integer(c_int), value :: stride_T + integer(c_int64_t), value :: stride_T type(c_ptr), value :: info integer(c_int), value :: batch_count hipblasSgeqrfStridedBatchedFortran = & @@ -777,7 +777,7 @@ function hipblasDgeqrfStridedBatchedFortran(handle, m, n, A, lda, stride_A, & tau, stride_T, info, batch_count) & bind(c, name='hipblasDgeqrfStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeqrfStridedBatchedFortran type(c_ptr), value :: handle @@ -785,9 +785,9 @@ function hipblasDgeqrfStridedBatchedFortran(handle, m, n, A, lda, stride_A, & integer(c_int), value :: n type(c_ptr), value :: A integer(c_int), value :: lda - integer(c_int), value :: stride_A + integer(c_int64_t), value :: stride_A type(c_ptr), value :: tau - integer(c_int), value :: stride_T + integer(c_int64_t), value :: stride_T type(c_ptr), value :: info integer(c_int), value :: batch_count hipblasDgeqrfStridedBatchedFortran = & @@ -799,7 +799,7 @@ function hipblasCgeqrfStridedBatchedFortran(handle, m, n, A, lda, stride_A, & tau, stride_T, info, batch_count) & bind(c, name='hipblasCgeqrfStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeqrfStridedBatchedFortran type(c_ptr), value :: handle @@ -807,9 +807,9 @@ function hipblasCgeqrfStridedBatchedFortran(handle, m, n, A, lda, stride_A, & integer(c_int), value :: n type(c_ptr), value :: A integer(c_int), value :: lda - integer(c_int), value :: stride_A + integer(c_int64_t), value :: stride_A type(c_ptr), value :: tau - integer(c_int), value :: stride_T + integer(c_int64_t), value :: stride_T type(c_ptr), value :: info integer(c_int), value :: batch_count hipblasCgeqrfStridedBatchedFortran = & @@ -821,7 +821,7 @@ function hipblasZgeqrfStridedBatchedFortran(handle, m, n, A, lda, stride_A, & tau, stride_T, info, batch_count) & bind(c, name='hipblasZgeqrfStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeqrfStridedBatchedFortran type(c_ptr), value :: handle @@ -829,9 +829,9 @@ function hipblasZgeqrfStridedBatchedFortran(handle, m, n, A, lda, stride_A, & integer(c_int), value :: n type(c_ptr), value :: A integer(c_int), value :: lda - integer(c_int), value :: stride_A + integer(c_int64_t), value :: stride_A type(c_ptr), value :: tau - integer(c_int), value :: stride_T + integer(c_int64_t), value :: stride_T type(c_ptr), value :: info integer(c_int), value :: batch_count hipblasZgeqrfStridedBatchedFortran = & @@ -843,7 +843,7 @@ end function hipblasZgeqrfStridedBatchedFortran function hipblasSgelsFortran(handle, trans, m, n, nrhs, A, lda, B, ldb, info, deviceInfo) & bind(c, name='hipblasSgelsFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgelsFortran type(c_ptr), value :: handle @@ -864,7 +864,7 @@ end function hipblasSgelsFortran function hipblasDgelsFortran(handle, trans, m, n, nrhs, A, lda, B, ldb, info, deviceInfo) & bind(c, name='hipblasDgelsFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgelsFortran type(c_ptr), value :: handle @@ -885,7 +885,7 @@ end function hipblasDgelsFortran function hipblasCgelsFortran(handle, trans, m, n, nrhs, A, lda, B, ldb, info, deviceInfo) & bind(c, name='hipblasCgelsFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgelsFortran type(c_ptr), value :: handle @@ -906,7 +906,7 @@ end function hipblasCgelsFortran function hipblasZgelsFortran(handle, trans, m, n, nrhs, A, lda, B, ldb, info, deviceInfo) & bind(c, name='hipblasZgelsFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgelsFortran type(c_ptr), value :: handle @@ -929,7 +929,7 @@ function hipblasSgelsBatchedFortran(handle, trans, m, n, nrhs, A, & lda, B, ldb, info, deviceInfo, batchCount) & bind(c, name = 'hipblasSgelsBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgelsBatchedFortran type(c_ptr), value :: handle @@ -952,7 +952,7 @@ function hipblasDgelsBatchedFortran(handle, trans, m, n, nrhs, A, & lda, B, ldb, info, deviceInfo, batchCount) & bind(c, name = 'hipblasDgelsBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgelsBatchedFortran type(c_ptr), value :: handle @@ -975,7 +975,7 @@ function hipblasCgelsBatchedFortran(handle, trans, m, n, nrhs, A, & lda, B, ldb, info, deviceInfo, batchCount) & bind(c, name = 'hipblasCgelsBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgelsBatchedFortran type(c_ptr), value :: handle @@ -998,7 +998,7 @@ function hipblasZgelsBatchedFortran(handle, trans, m, n, nrhs, A, & lda, B, ldb, info, deviceInfo, batchCount) & bind(c, name = 'hipblasZgelsBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgelsBatchedFortran type(c_ptr), value :: handle @@ -1022,7 +1022,7 @@ function hipblasSgelsStridedBatchedFortran(handle, trans, m, n, nrhs, A, & lda, strideA, B, ldb, strideB, info, deviceInfo, batchCount) & bind(c, name = 'hipblasSgelsStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgelsStridedBatchedFortran type(c_ptr), value :: handle @@ -1048,7 +1048,7 @@ function hipblasDgelsStridedBatchedFortran(handle, trans, m, n, nrhs, A, & lda, strideA, B, ldb, strideB, info, deviceInfo, batchCount) & bind(c, name = 'hipblasDgelsStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgelsStridedBatchedFortran type(c_ptr), value :: handle @@ -1074,7 +1074,7 @@ function hipblasCgelsStridedBatchedFortran(handle, trans, m, n, nrhs, A, & lda, strideA, B, ldb, strideB, info, deviceInfo, batchCount) & bind(c, name = 'hipblasCgelsStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgelsStridedBatchedFortran type(c_ptr), value :: handle @@ -1100,7 +1100,7 @@ function hipblasZgelsStridedBatchedFortran(handle, trans, m, n, nrhs, A, & lda, strideA, B, ldb, strideB, info, deviceInfo, batchCount) & bind(c, name = 'hipblasZgelsStridedBatchedFortran') use iso_c_binding - use hipblas_enums + use hipblas implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgelsStridedBatchedFortran type(c_ptr), value :: handle diff --git a/projects/hipblas/clients/samples/CMakeLists.txt b/projects/hipblas/clients/samples/CMakeLists.txt index 3effd27d306e..38edfec2af5f 100644 --- a/projects/hipblas/clients/samples/CMakeLists.txt +++ b/projects/hipblas/clients/samples/CMakeLists.txt @@ -35,11 +35,16 @@ if( CMAKE_CXX_COMPILER MATCHES ".*/hipcc$" OR CMAKE_CXX_COMPILER MATCHES ".*/amd add_executable( hipblas-example-hgemm example_hgemm.cpp ${hipblas_samples_common} ) endif( ) -if(NOT WIN32) - add_executable( hipblas-example-sscal-fortran example_sscal_fortran.F90 $) - add_executable( hipblas-example-gemmEx-fortran example_gemm_ex_fortran.F90 $) +# hipblas_fortran_client exists only under BUILD_FORTRAN_CLIENTS. +if(BUILD_FORTRAN_CLIENTS AND NOT WIN32) + add_executable( hipblas-example-sscal-fortran example_sscal_fortran.F90 ) + add_executable( hipblas-example-gemmEx-fortran example_gemm_ex_fortran.F90 ) set( sample_list_fortran hipblas-example-sscal-fortran hipblas-example-gemmEx-fortran ) + + foreach( exe ${sample_list_fortran} ) + target_link_libraries( ${exe} PRIVATE hipblas_fortran_client ) + endforeach() endif() if(NOT USE_CUDA) @@ -92,7 +97,7 @@ foreach( exe IN LISTS hipblas-example-executables) target_compile_options( ${exe} PRIVATE -DHIPBLAS_BFLOAT16_CLASS ) if(CMAKE_SYSTEM_PROCESSOR MATCHES "x86_64") - target_compile_options( ${exe} PRIVATE -mf16c ) + target_compile_options( ${exe} PRIVATE $<$:-mf16c> ) endif() target_compile_definitions( ${exe} PRIVATE HIPBLAS_NO_DEPRECATED_WARNINGS ) diff --git a/projects/hipblas/clients/samples/example_gemm_ex_fortran.F90 b/projects/hipblas/clients/samples/example_gemm_ex_fortran.F90 index cd7a9ab9635c..e9beb6042a51 100644 --- a/projects/hipblas/clients/samples/example_gemm_ex_fortran.F90 +++ b/projects/hipblas/clients/samples/example_gemm_ex_fortran.F90 @@ -51,7 +51,8 @@ end subroutine HIPBLAS_CHECK program example_fortran_gemm_ex use iso_c_binding use hipblas - use hipblas_enums + ! HIP_R_32F is a hipDataType: it comes from HIP, not hipBLAS. + use hip implicit none @@ -157,8 +158,8 @@ end function hipDeviceReset integer(c_int) :: i, element ! Create hipBLAS handle - type(c_ptr), target :: handle - call HIPBLAS_CHECK(hipblasCreate(c_loc(handle))) + type(c_ptr) :: handle + call HIPBLAS_CHECK(hipblasCreate(handle)) ! transA = transB = N lda = m diff --git a/projects/hipblas/clients/samples/example_sscal_fortran.F90 b/projects/hipblas/clients/samples/example_sscal_fortran.F90 index c371d3731665..d93346a717c7 100644 --- a/projects/hipblas/clients/samples/example_sscal_fortran.F90 +++ b/projects/hipblas/clients/samples/example_sscal_fortran.F90 @@ -138,8 +138,8 @@ end function hipDeviceReset integer(c_int) :: i, element ! Create hipBLAS handle - type(c_ptr), target :: handle - call HIPBLAS_CHECK(hipblasCreate(c_loc(handle))) + type(c_ptr) :: handle + call HIPBLAS_CHECK(hipblasCreate(handle)) ! Allocate host-side memory allocate(hx(n)) diff --git a/projects/hipblas/fortran/CMakeLists.txt b/projects/hipblas/fortran/CMakeLists.txt new file mode 100644 index 000000000000..775761c84908 --- /dev/null +++ b/projects/hipblas/fortran/CMakeLists.txt @@ -0,0 +1,320 @@ +# ######################################################################## +# Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +# +# SPDX-License-Identifier: MIT +# +# Permission is hereby granted, free of charge, to any person obtaining a copy +# of this software and associated documentation files (the "Software"), to deal +# in the Software without restriction, including without limitation the rights +# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell cop- +# ies of the Software, and to permit persons to whom the Software is furnished +# to do so, subject to the following conditions: +# +# The above copyright notice and this permission notice shall be included in all +# copies or substantial portions of the Software. +# +# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IM- +# PLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS +# FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR +# COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER +# IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNE- +# CTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. +# +# ######################################################################## + +# Fortran bindings for hipBLAS. hipblas.F90 is GENERATED from the C headers by +# the rocm-fortran generator: do not edit it, regenerate it. + +# Not higher: the hipBLAS root (3.17) adds this directory unconditionally. +cmake_minimum_required(VERSION 3.18) + +if(CMAKE_SOURCE_DIR STREQUAL CMAKE_CURRENT_SOURCE_DIR) + project(hipblas-fortran LANGUAGES NONE) +endif() + +# Off on the CUDA backend (untested there) and on Windows (no ROCm Fortran +# compiler). Same test as hipSOLVER: a defined USE_CUDA decides, as in the root, +# so a standalone -DUSE_CUDA=ON is honoured; otherwise HIP_PLATFORM does. +set(_hipblas_cuda_backend OFF) +if(DEFINED USE_CUDA) + if(USE_CUDA) + set(_hipblas_cuda_backend ON) + endif() +elseif("$ENV{HIP_PLATFORM}" STREQUAL "nvidia" OR "${HIP_PLATFORM}" STREQUAL "nvidia") + set(_hipblas_cuda_backend ON) +endif() +if(_hipblas_cuda_backend) + set(_hipblas_fortran_default OFF) +else() + set(_hipblas_fortran_default "${UNIX}") +endif() +# The only option(BUILD_FORTRAN_BINDINGS) in hipBLAS: the first one fixes the cache. +option(BUILD_FORTRAN_BINDINGS "Build the hipBLAS Fortran bindings" + "${_hipblas_fortran_default}") +unset(_hipblas_fortran_default) + +# BUILD_FORTRAN_BINDINGS is shared by the whole monorepo; this one wins here. +if(DEFINED HIPBLAS_BUILD_FORTRAN_BINDINGS) + set(BUILD_FORTRAN_BINDINGS ${HIPBLAS_BUILD_FORTRAN_BINDINGS}) +endif() + +set(FORTRAN_ARRAY_INTERFACES "assumed-shape" CACHE STRING + "Array-argument overloads to expose: none, assumed-shape, or assumed-rank") +set_property(CACHE FORTRAN_ARRAY_INTERFACES PROPERTY STRINGS + none assumed-shape assumed-rank) + +# Standalone, PARENT_SCOPE at top level fails under -Werror=dev. +if(NOT CMAKE_SOURCE_DIR STREQUAL CMAKE_CURRENT_SOURCE_DIR) + set(HIPBLAS_HAVE_FORTRAN_BINDINGS FALSE PARENT_SCOPE) +endif() + +if(NOT BUILD_FORTRAN_BINDINGS) + unset(_hipblas_cuda_backend) + return() +endif() + +if(_hipblas_cuda_backend) + message(WARNING + "hipBLAS: the Fortran bindings were requested on the CUDA backend. " + "hipblas.F90 is generated from the ROCm code path and is not tested " + "against a cuBLAS-backed libhipblas, which is why it is off by default " + "there. Building it is supported; vouching for it is not.") +endif() +unset(_hipblas_cuda_backend) + +# ROCM_LIBS_HAVE_FORTRAN is the root's current name; drop it once the root +# publishes ROCM_HAVE_FORTRAN. +if(DEFINED ROCM_HAVE_FORTRAN) + set(_have_fortran ${ROCM_HAVE_FORTRAN}) +elseif(DEFINED ROCM_LIBS_HAVE_FORTRAN) + set(_have_fortran ${ROCM_LIBS_HAVE_FORTRAN}) +else() + include(CheckLanguage) + + # rocm-cmake's ROCMChecks would flag the CMAKE_Fortran_COMPILER cache write + # below (a hard error under ROCM_ERROR_TOOLCHAIN_VAR); silence it for this scope. + set(_rocm_warn_toolchain_var "${ROCM_WARN_TOOLCHAIN_VAR}") + set(_rocm_error_toolchain_var "${ROCM_ERROR_TOOLCHAIN_VAR}") + set(ROCM_WARN_TOOLCHAIN_VAR OFF) + set(ROCM_ERROR_TOOLCHAIN_VAR OFF) + + # Prefer ROCm's amdflang over the first compiler on PATH (often gfortran); an + # explicit CMAKE_Fortran_COMPILER or FC wins. Must precede check_language(). + if(NOT CMAKE_Fortran_COMPILER AND NOT DEFINED ENV{FC}) + set(_rocm_fc_hints) + foreach(_rocm_fc_cc "${CMAKE_CXX_COMPILER}" "${CMAKE_C_COMPILER}" + "${CMAKE_HIP_COMPILER}") + if(_rocm_fc_cc) + get_filename_component(_rocm_fc_dir "${_rocm_fc_cc}" DIRECTORY) + list(APPEND _rocm_fc_hints "${_rocm_fc_dir}") + endif() + endforeach() + foreach(_rocm_fc_root "${ROCM_PATH}" "$ENV{ROCM_PATH}" "/opt/rocm") + if(_rocm_fc_root) + list(APPEND _rocm_fc_hints "${_rocm_fc_root}/bin" + "${_rocm_fc_root}/lib/llvm/bin") + endif() + endforeach() + # Uncached, so a changed ROCM_PATH is honoured on reconfigure. + unset(_rocm_amdflang CACHE) + find_program(_rocm_amdflang NAMES amdflang HINTS ${_rocm_fc_hints} + NO_DEFAULT_PATH) + # A ROCm tree can carry a dangling amdflang symlink. + if(_rocm_amdflang) + execute_process(COMMAND "${_rocm_amdflang}" --version + RESULT_VARIABLE _rocm_fc_rc + OUTPUT_QUIET ERROR_QUIET) + if(_rocm_fc_rc EQUAL 0) + set(CMAKE_Fortran_COMPILER "${_rocm_amdflang}" CACHE FILEPATH + "Fortran compiler used for the ROCm Fortran bindings" FORCE) + endif() + unset(_rocm_fc_rc) + endif() + unset(_rocm_amdflang CACHE) + unset(_rocm_fc_hints) + unset(_rocm_fc_cc) + unset(_rocm_fc_dir) + unset(_rocm_fc_root) + endif() + + check_language(Fortran) + set(ROCM_WARN_TOOLCHAIN_VAR "${_rocm_warn_toolchain_var}") + set(ROCM_ERROR_TOOLCHAIN_VAR "${_rocm_error_toolchain_var}") + unset(_rocm_warn_toolchain_var) + unset(_rocm_error_toolchain_var) + + if(CMAKE_Fortran_COMPILER) + set(_have_fortran TRUE) + else() + set(_have_fortran FALSE) + endif() +endif() + +if(NOT _have_fortran) + message(STATUS "hipBLAS: no Fortran compiler found, skipping the Fortran bindings") + return() +endif() + +enable_language(Fortran) + +# Before the target: its INSTALL_INTERFACE include directory uses CMAKE_INSTALL_*. +include(GNUInstallDirs) + +if(NOT FORTRAN_ARRAY_INTERFACES MATCHES "^(none|assumed-shape|assumed-rank)$") + message(FATAL_ERROR + "FORTRAN_ARRAY_INTERFACES must be none, assumed-shape or assumed-rank, " + "not '${FORTRAN_ARRAY_INTERFACES}'.") +endif() + +add_library(hipblas_fortran STATIC hipblas.F90) + +add_library(roc::hipblas_fortran ALIAS hipblas_fortran) + +# Each module compiles to one object, and a linker extracts whole objects from +# an archive, so a program that calls one wrapper links all of them. One section +# per procedure lets a program linked with -Wl,--gc-sections keep only the +# wrappers it calls, and still link when another wrapper names a C function the +# installed library does not export. Only these compilers split the sections +# (the Intel ones accept the flags but do not). +target_compile_options(hipblas_fortran PRIVATE + "$<$:-ffunction-sections;-fdata-sections>") + +# Keep in step with hipblas-fortran-config.cmake.in, which recomputes this name. +if(CMAKE_Fortran_COMPILER_ID STREQUAL "GNU") + set(_fc_name "gfortran") +elseif(CMAKE_Fortran_COMPILER_ID MATCHES "Flang") # Flang, LLVMFlang + set(_fc_name "amdflang") +elseif(CMAKE_Fortran_COMPILER_ID STREQUAL "Cray") + set(_fc_name "ftn") +elseif(CMAKE_Fortran_COMPILER_ID STREQUAL "IntelLLVM") + set(_fc_name "ifx") +elseif(CMAKE_Fortran_COMPILER_ID STREQUAL "Intel") + set(_fc_name "ifort") +elseif(CMAKE_Fortran_COMPILER_ID STREQUAL "NVHPC") + set(_fc_name "nvfortran") +else() + get_filename_component(_fc_name "${CMAKE_Fortran_COMPILER}" NAME_WE) + string(TOLOWER "${_fc_name}" _fc_name) +endif() + +# A .mod is tied to the compiler version too: sites with several set this. +set(HIPBLAS_FORTRAN_COMPILER_DIR "${_fc_name}" CACHE STRING + "Per-compiler subdirectory the .mod and the archive install under") + +set(_moddir "${CMAKE_CURRENT_BINARY_DIR}/include") +set_target_properties(hipblas_fortran PROPERTIES + Fortran_MODULE_DIRECTORY "${_moddir}" + Fortran_PREPROCESS ON + Fortran_FORMAT FREE + POSITION_INDEPENDENT_CODE ON) + +if(FORTRAN_ARRAY_INTERFACES STREQUAL "assumed-shape") + target_compile_definitions(hipblas_fortran PRIVATE USE_ASSUMED_SHAPE=1) +elseif(FORTRAN_ARRAY_INTERFACES STREQUAL "assumed-rank") + target_compile_definitions(hipblas_fortran PRIVATE USE_ASSUMED_RANK=1) +endif() + +target_include_directories(hipblas_fortran PUBLIC + "$" + "$") + +# Link interface only. hipblas-config's find_dependency(hip) reaches FindThreads, +# which needs C or CXX enabled; QUIET because the bindings build without hipBLAS. +if(NOT TARGET roc::hipblas) + if(NOT CMAKE_C_COMPILER_LOADED AND NOT CMAKE_CXX_COMPILER_LOADED) + enable_language(C) + endif() + find_package(hipblas QUIET) +endif() + +# Never left empty: it is @-substituted into a bare if() in the installed config. +if(TARGET roc::hipblas) + target_link_libraries(hipblas_fortran INTERFACE roc::hipblas) + set(HIPBLAS_FORTRAN_NEEDS_C_PACKAGE TRUE) +else() + message(STATUS + "hipBLAS: the C library was not found, so the Fortran bindings carry no " + "link interface; a consumer will have to link it (-lhipblas) itself.") + set(HIPBLAS_FORTRAN_NEEDS_C_PACKAGE FALSE) +endif() + +# The parent cannot see the compiler ID; it keys its libgfortran dependency on it. +if(NOT CMAKE_SOURCE_DIR STREQUAL CMAKE_CURRENT_SOURCE_DIR) + set(HIPBLAS_HAVE_FORTRAN_BINDINGS TRUE PARENT_SCOPE) + set(HIPBLAS_FORTRAN_COMPILER_ID "${CMAKE_Fortran_COMPILER_ID}" PARENT_SCOPE) +endif() + +include(CMakePackageConfigHelpers) + +# Beside hipblas-config.cmake, so one CMAKE_PREFIX_PATH entry finds both halves. +install(TARGETS hipblas_fortran + EXPORT hipblas-fortran-targets + ARCHIVE DESTINATION "${CMAKE_INSTALL_LIBDIR}/fortran/${HIPBLAS_FORTRAN_COMPILER_DIR}" + COMPONENT devel) +install(DIRECTORY "${_moddir}/" + DESTINATION "${CMAKE_INSTALL_INCLUDEDIR}/fortran/${HIPBLAS_FORTRAN_COMPILER_DIR}" + COMPONENT devel + FILES_MATCHING PATTERN "*.mod") + +# Under share/, not include/fortran/, which the config enumerates as compilers. +install(FILES "${CMAKE_CURRENT_SOURCE_DIR}/hipblas.F90" + DESTINATION "${CMAKE_INSTALL_DATADIR}/hipblas/fortran" + COMPONENT devel) +install(EXPORT hipblas-fortran-targets + FILE hipblas-fortran-targets.cmake + NAMESPACE roc:: + DESTINATION "${CMAKE_INSTALL_LIBDIR}/cmake/hipblas" + COMPONENT devel) + +set(HIPBLAS_FORTRAN_LIBDIR "${CMAKE_INSTALL_LIBDIR}/fortran") +set(HIPBLAS_FORTRAN_INCLUDEDIR "${CMAKE_INSTALL_INCLUDEDIR}/fortran") + +configure_package_config_file( + "${CMAKE_CURRENT_SOURCE_DIR}/hipblas-fortran-config.cmake.in" + "${CMAKE_CURRENT_BINARY_DIR}/hipblas-fortran-config.cmake" + INSTALL_DESTINATION "${CMAKE_INSTALL_LIBDIR}/cmake/hipblas" + # Not HIPBLAS_FORTRAN_COMPILER_DIR: it is a directory name, not a path. + PATH_VARS HIPBLAS_FORTRAN_LIBDIR HIPBLAS_FORTRAN_INCLUDEDIR) +install(FILES "${CMAKE_CURRENT_BINARY_DIR}/hipblas-fortran-config.cmake" + DESTINATION "${CMAKE_INSTALL_LIBDIR}/cmake/hipblas" + COMPONENT devel) + +# find_package(hipblas-fortran) searches lib/cmake/hipblas-fortran*: forward it. +file(WRITE "${CMAKE_CURRENT_BINARY_DIR}/forward/hipblas-fortran-config.cmake" +"# Generated forwarder to the config installed beside the hipBLAS C package. +include(\"\${CMAKE_CURRENT_LIST_DIR}/../hipblas/hipblas-fortran-config.cmake\") +") +install(FILES "${CMAKE_CURRENT_BINARY_DIR}/forward/hipblas-fortran-config.cmake" + DESTINATION "${CMAKE_INSTALL_LIBDIR}/cmake/hipblas-fortran" + COMPONENT devel) + +# Not hipblas_VERSION: standalone, that is the INSTALLED hipBLAS's version. +set(_fortran_version "") +if(EXISTS "${CMAKE_CURRENT_SOURCE_DIR}/../CMakeLists.txt") + file(READ "${CMAKE_CURRENT_SOURCE_DIR}/../CMakeLists.txt" _hipblas_root) + string(REGEX MATCH "set[ \t]*\\([ \t]*VERSION_STRING[ \t]+\"([0-9]+\\.[0-9]+\\.[0-9]+)\"" + _m "${_hipblas_root}") + if(CMAKE_MATCH_1) + set(_fortran_version "${CMAKE_MATCH_1}") + endif() + unset(_hipblas_root) +endif() + +if(_fortran_version) + write_basic_package_version_file( + "${CMAKE_CURRENT_BINARY_DIR}/hipblas-fortran-config-version.cmake" + VERSION "${_fortran_version}" + COMPATIBILITY SameMajorVersion) + # In both package dirs: CMake reads the version file beside the config it found. + install(FILES "${CMAKE_CURRENT_BINARY_DIR}/hipblas-fortran-config-version.cmake" + DESTINATION "${CMAKE_INSTALL_LIBDIR}/cmake/hipblas" + COMPONENT devel) + install(FILES "${CMAKE_CURRENT_BINARY_DIR}/hipblas-fortran-config-version.cmake" + DESTINATION "${CMAKE_INSTALL_LIBDIR}/cmake/hipblas-fortran" + COMPONENT devel) +else() + message(STATUS + "hipBLAS: could not determine the version for the Fortran package, so no " + "hipblas-fortran-config-version.cmake is installed; " + "find_package(hipblas-fortran ) will not match.") +endif() diff --git a/projects/hipblas/fortran/cmake/toolchains/amdflang.cmake b/projects/hipblas/fortran/cmake/toolchains/amdflang.cmake new file mode 100644 index 000000000000..0acb2070ac2f --- /dev/null +++ b/projects/hipblas/fortran/cmake/toolchains/amdflang.cmake @@ -0,0 +1,34 @@ +# ######################################################################## +# Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +# +# SPDX-License-Identifier: MIT +# +# Permission is hereby granted, free of charge, to any person obtaining a copy +# of this software and associated documentation files (the "Software"), to deal +# in the Software without restriction, including without limitation the rights +# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell cop- +# ies of the Software, and to permit persons to whom the Software is furnished +# to do so, subject to the following conditions: +# +# The above copyright notice and this permission notice shall be included in all +# copies or substantial portions of the Software. +# +# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IM- +# PLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS +# FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR +# COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER +# IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNE- +# CTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. +# +# ######################################################################## + +# AMD ROCm toolchain (amdflang). The recommended default: amdflang is the LLVM-based Fortran compiler shipped with ROCm. +# +# Usage, from projects/hipblas/fortran: +# cmake -S . -B build -DCMAKE_TOOLCHAIN_FILE=cmake/toolchains/amdflang.cmake +# +# No format or line-length flag: the generated source fits within the 132 +# free-form columns, and the CMakeLists sets Fortran_FORMAT/Fortran_PREPROCESS. + +set(CMAKE_Fortran_COMPILER amdflang CACHE FILEPATH "Fortran compiler") +set(CMAKE_C_COMPILER amdclang CACHE FILEPATH "C compiler") diff --git a/projects/hipblas/fortran/cmake/toolchains/cray.cmake b/projects/hipblas/fortran/cmake/toolchains/cray.cmake new file mode 100644 index 000000000000..b72763edf5e7 --- /dev/null +++ b/projects/hipblas/fortran/cmake/toolchains/cray.cmake @@ -0,0 +1,34 @@ +# ######################################################################## +# Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +# +# SPDX-License-Identifier: MIT +# +# Permission is hereby granted, free of charge, to any person obtaining a copy +# of this software and associated documentation files (the "Software"), to deal +# in the Software without restriction, including without limitation the rights +# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell cop- +# ies of the Software, and to permit persons to whom the Software is furnished +# to do so, subject to the following conditions: +# +# The above copyright notice and this permission notice shall be included in all +# copies or substantial portions of the Software. +# +# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IM- +# PLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS +# FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR +# COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER +# IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNE- +# CTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. +# +# ######################################################################## + +# Cray toolchain. ftn and cc are the Cray compiler wrappers, which select the underlying compiler from the loaded PrgEnv module. +# +# Usage, from projects/hipblas/fortran: +# cmake -S . -B build -DCMAKE_TOOLCHAIN_FILE=cmake/toolchains/cray.cmake +# +# No format or line-length flag: the generated source fits within the 132 +# free-form columns, and the CMakeLists sets Fortran_FORMAT/Fortran_PREPROCESS. + +set(CMAKE_Fortran_COMPILER ftn CACHE FILEPATH "Fortran compiler") +set(CMAKE_C_COMPILER cc CACHE FILEPATH "C compiler") diff --git a/projects/hipblas/fortran/cmake/toolchains/gnu.cmake b/projects/hipblas/fortran/cmake/toolchains/gnu.cmake new file mode 100644 index 000000000000..49691663e698 --- /dev/null +++ b/projects/hipblas/fortran/cmake/toolchains/gnu.cmake @@ -0,0 +1,34 @@ +# ######################################################################## +# Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +# +# SPDX-License-Identifier: MIT +# +# Permission is hereby granted, free of charge, to any person obtaining a copy +# of this software and associated documentation files (the "Software"), to deal +# in the Software without restriction, including without limitation the rights +# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell cop- +# ies of the Software, and to permit persons to whom the Software is furnished +# to do so, subject to the following conditions: +# +# The above copyright notice and this permission notice shall be included in all +# copies or substantial portions of the Software. +# +# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IM- +# PLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS +# FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR +# COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER +# IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNE- +# CTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. +# +# ######################################################################## + +# GNU toolchain (gfortran). +# +# Usage, from projects/hipblas/fortran: +# cmake -S . -B build -DCMAKE_TOOLCHAIN_FILE=cmake/toolchains/gnu.cmake +# +# No format or line-length flag: the generated source fits within the 132 +# free-form columns, and the CMakeLists sets Fortran_FORMAT/Fortran_PREPROCESS. + +set(CMAKE_Fortran_COMPILER gfortran CACHE FILEPATH "Fortran compiler") +set(CMAKE_C_COMPILER gcc CACHE FILEPATH "C compiler") diff --git a/projects/hipblas/fortran/cmake/toolchains/intel-classic.cmake b/projects/hipblas/fortran/cmake/toolchains/intel-classic.cmake new file mode 100644 index 000000000000..5a8bc93f9851 --- /dev/null +++ b/projects/hipblas/fortran/cmake/toolchains/intel-classic.cmake @@ -0,0 +1,34 @@ +# ######################################################################## +# Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +# +# SPDX-License-Identifier: MIT +# +# Permission is hereby granted, free of charge, to any person obtaining a copy +# of this software and associated documentation files (the "Software"), to deal +# in the Software without restriction, including without limitation the rights +# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell cop- +# ies of the Software, and to permit persons to whom the Software is furnished +# to do so, subject to the following conditions: +# +# The above copyright notice and this permission notice shall be included in all +# copies or substantial portions of the Software. +# +# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IM- +# PLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS +# FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR +# COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER +# IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNE- +# CTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. +# +# ######################################################################## + +# Classic Intel toolchain (ifort). Deprecated by Intel in favour of ifx; kept for sites still pinned to it. +# +# Usage, from projects/hipblas/fortran: +# cmake -S . -B build -DCMAKE_TOOLCHAIN_FILE=cmake/toolchains/intel-classic.cmake +# +# No format or line-length flag: the generated source fits within the 132 +# free-form columns, and the CMakeLists sets Fortran_FORMAT/Fortran_PREPROCESS. + +set(CMAKE_Fortran_COMPILER ifort CACHE FILEPATH "Fortran compiler") +set(CMAKE_C_COMPILER icx CACHE FILEPATH "C compiler") diff --git a/projects/hipblas/fortran/cmake/toolchains/intel.cmake b/projects/hipblas/fortran/cmake/toolchains/intel.cmake new file mode 100644 index 000000000000..641c3cc3af62 --- /dev/null +++ b/projects/hipblas/fortran/cmake/toolchains/intel.cmake @@ -0,0 +1,34 @@ +# ######################################################################## +# Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +# +# SPDX-License-Identifier: MIT +# +# Permission is hereby granted, free of charge, to any person obtaining a copy +# of this software and associated documentation files (the "Software"), to deal +# in the Software without restriction, including without limitation the rights +# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell cop- +# ies of the Software, and to permit persons to whom the Software is furnished +# to do so, subject to the following conditions: +# +# The above copyright notice and this permission notice shall be included in all +# copies or substantial portions of the Software. +# +# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IM- +# PLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS +# FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR +# COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER +# IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNE- +# CTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. +# +# ######################################################################## + +# Intel oneAPI toolchain (ifx, the LLVM-based compiler). +# +# Usage, from projects/hipblas/fortran: +# cmake -S . -B build -DCMAKE_TOOLCHAIN_FILE=cmake/toolchains/intel.cmake +# +# No format or line-length flag: the generated source fits within the 132 +# free-form columns, and the CMakeLists sets Fortran_FORMAT/Fortran_PREPROCESS. + +set(CMAKE_Fortran_COMPILER ifx CACHE FILEPATH "Fortran compiler") +set(CMAKE_C_COMPILER icx CACHE FILEPATH "C compiler") diff --git a/projects/hipblas/fortran/cmake/toolchains/nvhpc.cmake b/projects/hipblas/fortran/cmake/toolchains/nvhpc.cmake new file mode 100644 index 000000000000..9e4bd390680a --- /dev/null +++ b/projects/hipblas/fortran/cmake/toolchains/nvhpc.cmake @@ -0,0 +1,34 @@ +# ######################################################################## +# Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +# +# SPDX-License-Identifier: MIT +# +# Permission is hereby granted, free of charge, to any person obtaining a copy +# of this software and associated documentation files (the "Software"), to deal +# in the Software without restriction, including without limitation the rights +# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell cop- +# ies of the Software, and to permit persons to whom the Software is furnished +# to do so, subject to the following conditions: +# +# The above copyright notice and this permission notice shall be included in all +# copies or substantial portions of the Software. +# +# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IM- +# PLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS +# FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR +# COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER +# IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNE- +# CTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. +# +# ######################################################################## + +# NVIDIA HPC SDK toolchain (nvfortran). +# +# Usage, from projects/hipblas/fortran: +# cmake -S . -B build -DCMAKE_TOOLCHAIN_FILE=cmake/toolchains/nvhpc.cmake +# +# No format or line-length flag: the generated source fits within the 132 +# free-form columns, and the CMakeLists sets Fortran_FORMAT/Fortran_PREPROCESS. + +set(CMAKE_Fortran_COMPILER nvfortran CACHE FILEPATH "Fortran compiler") +set(CMAKE_C_COMPILER nvc CACHE FILEPATH "C compiler") diff --git a/projects/hipblas/fortran/hipblas-fortran-config.cmake.in b/projects/hipblas/fortran/hipblas-fortran-config.cmake.in new file mode 100644 index 000000000000..cf1ef1ec68fe --- /dev/null +++ b/projects/hipblas/fortran/hipblas-fortran-config.cmake.in @@ -0,0 +1,155 @@ +# ######################################################################## +# Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +# +# SPDX-License-Identifier: MIT +# +# Permission is hereby granted, free of charge, to any person obtaining a copy +# of this software and associated documentation files (the "Software"), to deal +# in the Software without restriction, including without limitation the rights +# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell cop- +# ies of the Software, and to permit persons to whom the Software is furnished +# to do so, subject to the following conditions: +# +# The above copyright notice and this permission notice shall be included in all +# copies or substantial portions of the Software. +# +# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IM- +# PLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS +# FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR +# COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER +# IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNE- +# CTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. +# +# ######################################################################## + +# Config package for the hipBLAS Fortran bindings. +# +# find_package(hipblas-fortran REQUIRED) +# target_link_libraries(my_app PRIVATE roc::hipblas_fortran) +# +# One archive and .mod set is installed per Fortran compiler. Set +# HIPBLAS_FORTRAN_COMPILER_DIR before find_package to pick one explicitly. + +@PACKAGE_INIT@ + +set(_hipblas_built_dir "@HIPBLAS_FORTRAN_COMPILER_DIR@") + +# Absolute, relocatable paths written by PATH_VARS (see PACKAGE_INIT above). +set(_hipblas_libdir "@PACKAGE_HIPBLAS_FORTRAN_LIBDIR@") +set(_hipblas_incdir "@PACKAGE_HIPBLAS_FORTRAN_INCLUDEDIR@") + +set(hipblas_FORTRAN_FOUND FALSE) + +if(NOT CMAKE_Fortran_COMPILER_LOADED) + set(hipblas-fortran_FOUND FALSE) + string(CONCAT hipblas-fortran_NOT_FOUND_MESSAGE + "The hipBLAS Fortran bindings need Fortran enabled before find_package: " + "add Fortran to your project() languages, or call enable_language(Fortran).") + return() +endif() + +# Accepts FC itself or FC plus a separator and suffix (gfortran-13). Not a regex: +# FC may be an arbitrary basename, and CMake has no regex-escape. +function(_hipblas_dir_matches DIR FC OUT) + set(${OUT} FALSE PARENT_SCOPE) + if(DIR STREQUAL FC) + set(${OUT} TRUE PARENT_SCOPE) + return() + endif() + string(LENGTH "${FC}" _n) + string(LENGTH "${DIR}" _dn) + if(_dn GREATER _n) + string(SUBSTRING "${DIR}" 0 ${_n} _head) + string(SUBSTRING "${DIR}" ${_n} 1 _sep) + if(_head STREQUAL FC AND _sep MATCHES "^[-._]$") + set(${OUT} TRUE PARENT_SCOPE) + endif() + endif() +endfunction() + +file(GLOB _hipblas_avail RELATIVE "${_hipblas_incdir}" "${_hipblas_incdir}/*") + +set(_hipblas_dir "") +if(DEFINED HIPBLAS_FORTRAN_COMPILER_DIR) + if(NOT EXISTS "${_hipblas_incdir}/${HIPBLAS_FORTRAN_COMPILER_DIR}/hipblas.mod" OR + NOT EXISTS "${_hipblas_libdir}/${HIPBLAS_FORTRAN_COMPILER_DIR}/libhipblas_fortran.a") + set(hipblas-fortran_FOUND FALSE) + string(CONCAT hipblas-fortran_NOT_FOUND_MESSAGE + "HIPBLAS_FORTRAN_COMPILER_DIR is '${HIPBLAS_FORTRAN_COMPILER_DIR}', but " + "no hipblas.mod and libhipblas_fortran.a are installed under " + "${_hipblas_incdir}/${HIPBLAS_FORTRAN_COMPILER_DIR} and " + "${_hipblas_libdir}/${HIPBLAS_FORTRAN_COMPILER_DIR}. Available: " + "${_hipblas_avail}.") + return() + endif() + set(_hipblas_dir "${HIPBLAS_FORTRAN_COMPILER_DIR}") +else() + # Must mirror the mapping in projects/hipblas/fortran/CMakeLists.txt. + if(CMAKE_Fortran_COMPILER_ID STREQUAL "GNU") + set(_hipblas_fc "gfortran") + elseif(CMAKE_Fortran_COMPILER_ID MATCHES "Flang") + set(_hipblas_fc "amdflang") + elseif(CMAKE_Fortran_COMPILER_ID STREQUAL "Cray") + set(_hipblas_fc "ftn") + elseif(CMAKE_Fortran_COMPILER_ID STREQUAL "IntelLLVM") + set(_hipblas_fc "ifx") + elseif(CMAKE_Fortran_COMPILER_ID STREQUAL "Intel") + set(_hipblas_fc "ifort") + elseif(CMAKE_Fortran_COMPILER_ID STREQUAL "NVHPC") + set(_hipblas_fc "nvfortran") + else() + get_filename_component(_hipblas_fc "${CMAKE_Fortran_COMPILER}" NAME_WE) + string(TOLOWER "${_hipblas_fc}" _hipblas_fc) + endif() + + # A prefix can hold several compilers' artifacts; the recorded one is a fallback. + if(EXISTS "${_hipblas_incdir}/${_hipblas_fc}/hipblas.mod") + set(_hipblas_dir "${_hipblas_fc}") + else() + _hipblas_dir_matches("${_hipblas_built_dir}" "${_hipblas_fc}" _hipblas_ok) + if(_hipblas_ok) + set(_hipblas_dir "${_hipblas_built_dir}") + endif() + endif() + + if(NOT _hipblas_dir) + set(hipblas-fortran_FOUND FALSE) + string(CONCAT hipblas-fortran_NOT_FOUND_MESSAGE + "This project builds with ${_hipblas_fc}, but no hipblas.mod for it is " + "installed under ${_hipblas_incdir}. Available: " + "${_hipblas_avail}. A Fortran .mod cannot be shared across compilers; " + "rebuild the bindings with ${_hipblas_fc}, or set " + "HIPBLAS_FORTRAN_COMPILER_DIR to the directory to use.") + return() + endif() +endif() + +# Written TRUE only when the archive links roc::hipblas, which must be imported +# before the targets file. hip's config needs C or CXX enabled (FindThreads). +if(@HIPBLAS_FORTRAN_NEEDS_C_PACKAGE@) + if(NOT TARGET roc::hipblas) + if(NOT CMAKE_C_COMPILER_LOADED AND NOT CMAKE_CXX_COMPILER_LOADED) + enable_language(C) + endif() + include(CMakeFindDependencyMacro) + find_dependency(hipblas) + endif() +endif() + +include("${CMAKE_CURRENT_LIST_DIR}/hipblas-fortran-targets.cmake") + +# The targets file hardcodes the directory the package was built with. +if(NOT _hipblas_dir STREQUAL "${_hipblas_built_dir}") + set_target_properties(roc::hipblas_fortran PROPERTIES + INTERFACE_INCLUDE_DIRECTORIES "${_hipblas_incdir}/${_hipblas_dir}") + get_target_property(_hipblas_cfgs roc::hipblas_fortran IMPORTED_CONFIGURATIONS) + foreach(_hipblas_c IN LISTS _hipblas_cfgs) + set_target_properties(roc::hipblas_fortran PROPERTIES + IMPORTED_LOCATION_${_hipblas_c} + "${_hipblas_libdir}/${_hipblas_dir}/libhipblas_fortran.a") + endforeach() +endif() + +set(hipblas_FORTRAN_FOUND TRUE) + +check_required_components(hipblas-fortran) diff --git a/projects/hipblas/library/src/CMakeLists.txt b/projects/hipblas/library/src/CMakeLists.txt index 463f10cf9a87..42b315c250eb 100755 --- a/projects/hipblas/library/src/CMakeLists.txt +++ b/projects/hipblas/library/src/CMakeLists.txt @@ -197,7 +197,3 @@ else( ) INCLUDE "${PROJECT_SOURCE_DIR}/cmake/hipblas-cuda-dependencies.cmake" ) endif( ) - -# Force installation of .f90 module files -rocm_install(FILES "hipblas_module.f90" - DESTINATION "${CMAKE_INSTALL_INCLUDEDIR}/hipblas") diff --git a/projects/hipblas/library/src/hipblas_module.f90 b/projects/hipblas/library/src/hipblas_module.f90 deleted file mode 100644 index 3948204cf656..000000000000 --- a/projects/hipblas/library/src/hipblas_module.f90 +++ /dev/null @@ -1,26261 +0,0 @@ -! ************************************************************************ -! Copyright (C) 2016-2020 Advanced Micro Devices, Inc. All rights reserved. -! -! Permission is hereby granted, free of charge, to any person obtaining a copy -! of this software and associated documentation files (the "Software"), to deal -! in the Software without restriction, including without limitation the rights -! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -! copies of the Software, and to permit persons to whom the Software is -! furnished to do so, subject to the following conditions: -! -! The above copyright notice and this permission notice shall be included in -! all copies or substantial portions of the Software. -! -! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR -! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, -! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN -! THE SOFTWARE. -! -! ************************************************************************ - -module hipblas_enums - use iso_c_binding - - !!!!!!!!!!!!!!!!!!!!!!! - ! hipBLAS types ! - !!!!!!!!!!!!!!!!!!!!!!! - enum, bind(c) - enumerator :: HIPBLAS_OP_N = 111 - enumerator :: HIPBLAS_OP_T = 112 - enumerator :: HIPBLAS_OP_C = 113 - end enum - - enum, bind(c) - enumerator :: HIPBLAS_FILL_MODE_UPPER = 121 - enumerator :: HIPBLAS_FILL_MODE_LOWER = 122 - enumerator :: HIPBLAS_FILL_MODE_FULL = 123 - end enum - - enum, bind(c) - enumerator :: HIPBLAS_DIAG_NON_UNIT = 131 - enumerator :: HIPBLAS_DIAG_UNIT = 132 - end enum - - enum, bind(c) - enumerator :: HIPBLAS_SIDE_LEFT = 141 - enumerator :: HIPBLAS_SIDE_RIGHT = 142 - enumerator :: HIPBLAS_SIDE_BOTH = 143 - end enum - - enum, bind(c) - enumerator :: HIPBLAS_STATUS_SUCCESS = 0 - enumerator :: HIPBLAS_STATUS_NOT_INITIALIZED = 1 - enumerator :: HIPBLAS_STATUS_ALLOC_FAILED = 2 - enumerator :: HIPBLAS_STATUS_INVALID_VALUE = 3 - enumerator :: HIPBLAS_STATUS_MAPPING_ERROR = 4 - enumerator :: HIPBLAS_STATUS_EXECUTION_FAILED = 5 - enumerator :: HIPBLAS_STATUS_INTERNAL_ERROR = 6 - enumerator :: HIPBLAS_STATUS_NOT_SUPPORTED = 7 - enumerator :: HIPBLAS_STATUS_ARCH_MISMATCH = 8 - enumerator :: HIPBLAS_STATUS_HANDLE_IS_NULLPTR = 9 - enumerator :: HIPBLAS_STATUS_INVALID_ENUM = 10 - enumerator :: HIPBLAS_STATUS_UNKNOWN = 11 - end enum - - enum, bind(c) - enumerator :: HIP_R_32F = 0 - enumerator :: HIP_R_64F = 1 - enumerator :: HIP_R_16F = 2 - enumerator :: HIP_R_8I = 3 - enumerator :: HIP_C_32F = 4 - enumerator :: HIP_C_64F = 5 - enumerator :: HIP_C_16F = 6 - enumerator :: HIP_C_8I = 7 - enumerator :: HIP_R_8U = 8 - enumerator :: HIP_C_8U = 9 - enumerator :: HIP_R_32I = 10 - enumerator :: HIP_C_32I = 11 - enumerator :: HIP_R_32U = 12 - enumerator :: HIP_C_32U = 13 - enumerator :: HIP_R_16BF = 14 - enumerator :: HIP_C_16BF = 15 - enumerator :: HIP_R_4I = 16 - enumerator :: HIP_C_4I = 17 - enumerator :: HIP_R_4U = 18 - enumerator :: HIP_C_4U = 19 - enumerator :: HIP_R_16I = 20 - enumerator :: HIP_C_16I = 21 - enumerator :: HIP_R_16U = 22 - enumerator :: HIP_C_16U = 23 - enumerator :: HIP_R_64I = 24 - enumerator :: HIP_C_64I = 25 - enumerator :: HIP_R_64U = 26 - enumerator :: HIP_C_64U = 27 - end enum - - enum, bind(c) - enumerator :: HIPBLAS_COMPUTE_16F = 0 - enumerator :: HIPBLAS_COMPUTE_16F_PEDANTIC = 1 - enumerator :: HIPBLAS_COMPUTE_32F = 2 - enumerator :: HIPBLAS_COMPUTE_32F_PEDANTIC = 3 - enumerator :: HIPBLAS_COMPUTE_32F_FAST_16F = 4 - enumerator :: HIPBLAS_COMPUTE_32F_FAST_16BF = 5 - enumerator :: HIPBLAS_COMPUTE_32F_FAST_TF32 = 6 - enumerator :: HIPBLAS_COMPUTE_64F = 7 - enumerator :: HIPBLAS_COMPUTE_64F_PEDANTIC = 8 - enumerator :: HIPBLAS_COMPUTE_32I = 9 - enumerator :: HIPBLAS_COMPUTE_32I_PEDANTIC = 10 - enumerator :: HIPBLAS_COMPUTE_32F_FAST_8F_FNUZ = 100 - enumerator :: HIPBLAS_COMPUTE_32F_FAST_8BF_FNUZ = 101 - enumerator :: HIPBLAS_COMPUTE_32F_FAST_8F8BF_FNUZ = 102 - enumerator :: HIPBLAS_COMPUTE_32F_FAST_8BF8F_FNUZ = 103 - end enum - - enum, bind(c) - enumerator :: HIPBLAS_POINTER_MODE_HOST = 0 - enumerator :: HIPBLAS_POINTER_MODE_DEVICE = 1 - end enum - - enum, bind(c) - enumerator :: HIPBLAS_GEMM_DEFAULT = 160 - end enum - - enum, bind(c) - enumerator :: HIPBLAS_ATOMICS_NOT_ALLOWED = 0 - enumerator :: HIPBLAS_ATOMICS_ALLOWED = 1 - end enum - - enum, bind(c) - enumerator :: HIPBLAS_GEMM_FLAGS_NONE = 0 - enumerator :: HIPBLAS_GEMM_FLAGS_USE_CU_EFFICIENCY = 2 - enumerator :: HIPBLAS_GEMM_FLAGS_FP16_ALT_IMPL = 4 - enumerator :: HIPBLAS_GEMM_FLAGS_CHECK_SOLUTION_INDEX = 8 - enumerator :: HIPBLAS_GEMM_FLAGS_FP16_ALT_IMPL_RNZ = 16 - end enum - -end module hipblas_enums - -module hipblas - use iso_c_binding - - !--------! - ! Aux ! - !--------! - interface - function hipblasCreate(handle) & - bind(c, name='hipblasCreate') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCreate - type(c_ptr), value :: handle - end function hipblasCreate - end interface - - interface - function hipblasDestroy(handle) & - bind(c, name='hipblasDestroy') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDestroy - type(c_ptr), value :: handle - end function hipblasDestroy - end interface - - interface - function hipblasSetStream(handle, streamId) & - bind(c, name='hipblasSetStream') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSetStream - type(c_ptr), value :: handle - type(c_ptr), value :: streamId - end function hipblasSetStream - end interface - - interface - function hipblasGetStream(handle, streamId) & - bind(c, name='hipblasGetStream') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGetStream - type(c_ptr), value :: handle - type(c_ptr), value :: streamId - end function hipblasGetStream - end interface - - interface - function hipblasSetPointerMode(handle, mode) & - bind(c, name='hipblasSetPointerMode') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSetPointerMode - type(c_ptr), value :: handle - integer(c_int), value :: mode - end function hipblasSetPointerMode - end interface - - interface - function hipblasGetPointerMode(handle, mode) & - bind(c, name='hipblasGetPointerMode') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGetPointerMode - type(c_ptr), value :: handle - type(c_ptr), value :: mode - end function hipblasGetPointerMode - end interface - - interface - function hipblasSetVector(n, elemSize, x, incx, y, incy) & - bind(c, name='hipblasSetVector') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSetVector - integer(c_int), value :: n - integer(c_int), value :: elemSize - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - end function hipblasSetVector - end interface - - interface - function hipblasGetVector(n, elemSize, x, incx, y, incy) & - bind(c, name='hipblasGetVector') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGetVector - integer(c_int), value :: n - integer(c_int), value :: elemSize - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - end function hipblasGetVector - end interface - - interface - function hipblasSetMatrix(rows, cols, elemSize, A, lda, B, ldb) & - bind(c, name='hipblasSetMatrix') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSetMatrix - integer(c_int), value :: rows - integer(c_int), value :: cols - integer(c_int), value :: elemSize - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - end function hipblasSetMatrix - end interface - - interface - function hipblasGetMatrix(rows, cols, elemSize, A, lda, B, ldb) & - bind(c, name='hipblasGetMatrix') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGetMatrix - integer(c_int), value :: rows - integer(c_int), value :: cols - integer(c_int), value :: elemSize - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - end function hipblasGetMatrix - end interface - - interface - function hipblasSetVectorAsync(n, elemSize, x, incx, y, incy, stream) & - bind(c, name='hipblasSetVectorAsync') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSetVectorAsync - integer(c_int), value :: n - integer(c_int), value :: elemSize - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - type(c_ptr), value :: stream - end function hipblasSetVectorAsync - end interface - - interface - function hipblasGetVectorAsync(n, elemSize, x, incx, y, incy, stream) & - bind(c, name='hipblasGetVectorAsync') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGetVectorAsync - integer(c_int), value :: n - integer(c_int), value :: elemSize - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - type(c_ptr), value :: stream - end function hipblasGetVectorAsync - end interface - - interface - function hipblasSetMatrixAsync(rows, cols, elemSize, A, lda, B, ldb, stream) & - bind(c, name='hipblasSetMatrixAsync') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSetMatrixAsync - integer(c_int), value :: rows - integer(c_int), value :: cols - integer(c_int), value :: elemSize - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: stream - end function hipblasSetMatrixAsync - end interface - - interface - function hipblasGetMatrixAsync(rows, cols, elemSize, A, lda, B, ldb, stream) & - bind(c, name='hipblasGetMatrixAsync') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGetMatrixAsync - integer(c_int), value :: rows - integer(c_int), value :: cols - integer(c_int), value :: elemSize - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: stream - end function hipblasGetMatrixAsync - end interface - - ! atomics mode - interface - function hipblasSetAtomicsMode(handle, atomics_mode) & - bind(c, name='hipblasSetAtomicsMode') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSetAtomicsMode - type(c_ptr), value :: handle - integer(kind(HIPBLAS_ATOMICS_ALLOWED)), value :: atomics_mode - end function hipblasSetAtomicsMode - end interface - - interface - function hipblasGetAtomicsMode(handle, atomics_mode) & - bind(c, name='hipblasGetAtomicsMode') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGetAtomicsMode - type(c_ptr), value :: handle - type(c_ptr), value :: atomics_mode - end function hipblasGetAtomicsMode - end interface - - ! batch alpha/beta stride - interface - function hipblasSetBatchAlphaStride(handle, alpha_stride) & - bind(c, name='hipblasSetBatchAlphaStride') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSetBatchAlphaStride - type(c_ptr), value :: handle - integer(c_int64_t), value :: alpha_stride - end function hipblasSetBatchAlphaStride - end interface - - interface - function hipblasGetBatchAlphaStride(handle, alpha_stride) & - bind(c, name='hipblasGetBatchAlphaStride') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGetBatchAlphaStride - type(c_ptr), value :: handle - type(c_ptr), value :: alpha_stride - end function hipblasGetBatchAlphaStride - end interface - - interface - function hipblasSetBatchBetaStride(handle, beta_stride) & - bind(c, name='hipblasSetBatchBetaStride') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSetBatchBetaStride - type(c_ptr), value :: handle - integer(c_int64_t), value :: beta_stride - end function hipblasSetBatchBetaStride - end interface - - interface - function hipblasGetBatchBetaStride(handle, beta_stride) & - bind(c, name='hipblasGetBatchBetaStride') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGetBatchBetaStride - type(c_ptr), value :: handle - type(c_ptr), value :: beta_stride - end function hipblasGetBatchBetaStride - end interface - - !--------! - ! blas 1 ! - !--------! - - ! scal - interface - function hipblasSscal(handle, n, alpha, x, incx) & - bind(c, name='hipblasSscal') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscal - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - end function hipblasSscal - end interface - - interface - function hipblasDscal(handle, n, alpha, x, incx) & - bind(c, name='hipblasDscal') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscal - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - end function hipblasDscal - end interface - - interface - function hipblasCscal(handle, n, alpha, x, incx) & - bind(c, name='hipblasCscal') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscal - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - end function hipblasCscal - end interface - - interface - function hipblasZscal(handle, n, alpha, x, incx) & - bind(c, name='hipblasZscal') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscal - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - end function hipblasZscal - end interface - - interface - function hipblasCsscal(handle, n, alpha, x, incx) & - bind(c, name='hipblasCsscal') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscal - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - end function hipblasCsscal - end interface - - interface - function hipblasZdscal(handle, n, alpha, x, incx) & - bind(c, name='hipblasZdscal') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscal - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - end function hipblasZdscal - end interface - - ! scal_64 - interface - function hipblasSscal_64(handle, n, alpha, x, incx) & - bind(c, name='hipblasSscal_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscal_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - end function hipblasSscal_64 - end interface - - interface - function hipblasDscal_64(handle, n, alpha, x, incx) & - bind(c, name='hipblasDscal_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscal_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - end function hipblasDscal_64 - end interface - - interface - function hipblasCscal_64(handle, n, alpha, x, incx) & - bind(c, name='hipblasCscal_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscal_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - end function hipblasCscal_64 - end interface - - interface - function hipblasZscal_64(handle, n, alpha, x, incx) & - bind(c, name='hipblasZscal_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscal_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - end function hipblasZscal_64 - end interface - - interface - function hipblasCsscal_64(handle, n, alpha, x, incx) & - bind(c, name='hipblasCsscal_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscal_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - end function hipblasCsscal_64 - end interface - - interface - function hipblasZdscal_64(handle, n, alpha, x, incx) & - bind(c, name='hipblasZdscal_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscal_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - end function hipblasZdscal_64 - end interface - - ! scalBatched - interface - function hipblasSscalBatched(handle, n, alpha, x, incx, batch_count) & - bind(c, name='hipblasSscalBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscalBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int), value :: batch_count - end function hipblasSscalBatched - end interface - - interface - function hipblasDscalBatched(handle, n, alpha, x, incx, batch_count) & - bind(c, name='hipblasDscalBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscalBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int), value :: batch_count - end function hipblasDscalBatched - end interface - - interface - function hipblasCscalBatched(handle, n, alpha, x, incx, batch_count) & - bind(c, name='hipblasCscalBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscalBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int), value :: batch_count - end function hipblasCscalBatched - end interface - - interface - function hipblasZscalBatched(handle, n, alpha, x, incx, batch_count) & - bind(c, name='hipblasZscalBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscalBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int), value :: batch_count - end function hipblasZscalBatched - end interface - - interface - function hipblasCsscalBatched(handle, n, alpha, x, incx, batch_count) & - bind(c, name='hipblasCsscalBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscalBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int), value :: batch_count - end function hipblasCsscalBatched - end interface - - interface - function hipblasZdscalBatched(handle, n, alpha, x, incx, batch_count) & - bind(c, name='hipblasZdscalBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscalBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int), value :: batch_count - end function hipblasZdscalBatched - end interface - - ! scalBatched_64 - interface - function hipblasSscalBatched_64(handle, n, alpha, x, incx, batch_count) & - bind(c, name='hipblasSscalBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscalBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: batch_count - end function hipblasSscalBatched_64 - end interface - - interface - function hipblasDscalBatched_64(handle, n, alpha, x, incx, batch_count) & - bind(c, name='hipblasDscalBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscalBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: batch_count - end function hipblasDscalBatched_64 - end interface - - interface - function hipblasCscalBatched_64(handle, n, alpha, x, incx, batch_count) & - bind(c, name='hipblasCscalBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscalBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: batch_count - end function hipblasCscalBatched_64 - end interface - - interface - function hipblasZscalBatched_64(handle, n, alpha, x, incx, batch_count) & - bind(c, name='hipblasZscalBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscalBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: batch_count - end function hipblasZscalBatched_64 - end interface - - interface - function hipblasCsscalBatched_64(handle, n, alpha, x, incx, batch_count) & - bind(c, name='hipblasCsscalBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscalBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: batch_count - end function hipblasCsscalBatched_64 - end interface - - interface - function hipblasZdscalBatched_64(handle, n, alpha, x, incx, batch_count) & - bind(c, name='hipblasZdscalBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscalBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: batch_count - end function hipblasZdscalBatched_64 - end interface - - ! scalStridedBatched - interface - function hipblasSscalStridedBatched(handle, n, alpha, x, incx, stride_x, batch_count) & - bind(c, name='hipblasSscalStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscalStridedBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int), value :: batch_count - end function hipblasSscalStridedBatched - end interface - - interface - function hipblasDscalStridedBatched(handle, n, alpha, x, incx, stride_x, batch_count) & - bind(c, name='hipblasDscalStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscalStridedBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int), value :: batch_count - end function hipblasDscalStridedBatched - end interface - - interface - function hipblasCscalStridedBatched(handle, n, alpha, x, incx, stride_x, batch_count) & - bind(c, name='hipblasCscalStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscalStridedBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int), value :: batch_count - end function hipblasCscalStridedBatched - end interface - - interface - function hipblasZscalStridedBatched(handle, n, alpha, x, incx, stride_x, batch_count) & - bind(c, name='hipblasZscalStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscalStridedBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int), value :: batch_count - end function hipblasZscalStridedBatched - end interface - - interface - function hipblasCsscalStridedBatched(handle, n, alpha, x, incx, stride_x, batch_count) & - bind(c, name='hipblasCsscalStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscalStridedBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int), value :: batch_count - end function hipblasCsscalStridedBatched - end interface - - interface - function hipblasZdscalStridedBatched(handle, n, alpha, x, incx, stride_x, batch_count) & - bind(c, name='hipblasZdscalStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscalStridedBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int), value :: batch_count - end function hipblasZdscalStridedBatched - end interface - - ! scalStridedBatched_64 - interface - function hipblasSscalStridedBatched_64(handle, n, alpha, x, incx, stride_x, batch_count) & - bind(c, name='hipblasSscalStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscalStridedBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int64_t), value :: batch_count - end function hipblasSscalStridedBatched_64 - end interface - - interface - function hipblasDscalStridedBatched_64(handle, n, alpha, x, incx, stride_x, batch_count) & - bind(c, name='hipblasDscalStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscalStridedBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int64_t), value :: batch_count - end function hipblasDscalStridedBatched_64 - end interface - - interface - function hipblasCscalStridedBatched_64(handle, n, alpha, x, incx, stride_x, batch_count) & - bind(c, name='hipblasCscalStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscalStridedBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int64_t), value :: batch_count - end function hipblasCscalStridedBatched_64 - end interface - - interface - function hipblasZscalStridedBatched_64(handle, n, alpha, x, incx, stride_x, batch_count) & - bind(c, name='hipblasZscalStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscalStridedBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int64_t), value :: batch_count - end function hipblasZscalStridedBatched_64 - end interface - - interface - function hipblasCsscalStridedBatched_64(handle, n, alpha, x, incx, stride_x, batch_count) & - bind(c, name='hipblasCsscalStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscalStridedBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int64_t), value :: batch_count - end function hipblasCsscalStridedBatched_64 - end interface - - interface - function hipblasZdscalStridedBatched_64(handle, n, alpha, x, incx, stride_x, batch_count) & - bind(c, name='hipblasZdscalStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscalStridedBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int64_t), value :: batch_count - end function hipblasZdscalStridedBatched_64 - end interface - - ! copy - interface - function hipblasScopy(handle, n, x, incx, y, incy) & - bind(c, name='hipblasScopy') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScopy - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - end function hipblasScopy - end interface - - interface - function hipblasDcopy(handle, n, x, incx, y, incy) & - bind(c, name='hipblasDcopy') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDcopy - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - end function hipblasDcopy - end interface - - interface - function hipblasCcopy(handle, n, x, incx, y, incy) & - bind(c, name='hipblasCcopy') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCcopy - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - end function hipblasCcopy - end interface - - interface - function hipblasZcopy(handle, n, x, incx, y, incy) & - bind(c, name='hipblasZcopy') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZcopy - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - end function hipblasZcopy - end interface - - ! copy 64-bit - interface - function hipblasScopy_64(handle, n, x, incx, y, incy) & - bind(c, name='hipblasScopy_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScopy_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - end function hipblasScopy_64 - end interface - - interface - function hipblasDcopy_64(handle, n, x, incx, y, incy) & - bind(c, name='hipblasDcopy_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDcopy_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - end function hipblasDcopy_64 - end interface - - interface - function hipblasCcopy_64(handle, n, x, incx, y, incy) & - bind(c, name='hipblasCcopy_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCcopy_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - end function hipblasCcopy_64 - end interface - - interface - function hipblasZcopy_64(handle, n, x, incx, y, incy) & - bind(c, name='hipblasZcopy_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZcopy_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - end function hipblasZcopy_64 - end interface - - ! copyBatched - interface - function hipblasScopyBatched(handle, n, x, incx, y, incy, batch_count) & - bind(c, name='hipblasScopyBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScopyBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int), value :: batch_count - end function hipblasScopyBatched - end interface - - interface - function hipblasDcopyBatched(handle, n, x, incx, y, incy, batch_count) & - bind(c, name='hipblasDcopyBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDcopyBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int), value :: batch_count - end function hipblasDcopyBatched - end interface - - interface - function hipblasCcopyBatched(handle, n, x, incx, y, incy, batch_count) & - bind(c, name='hipblasCcopyBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCcopyBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int), value :: batch_count - end function hipblasCcopyBatched - end interface - - interface - function hipblasZcopyBatched(handle, n, x, incx, y, incy, batch_count) & - bind(c, name='hipblasZcopyBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZcopyBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int), value :: batch_count - end function hipblasZcopyBatched - end interface - - ! copyBatched 64-bit - interface - function hipblasScopyBatched_64(handle, n, x, incx, y, incy, batch_count) & - bind(c, name='hipblasScopyBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScopyBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: batch_count - end function hipblasScopyBatched_64 - end interface - - interface - function hipblasDcopyBatched_64(handle, n, x, incx, y, incy, batch_count) & - bind(c, name='hipblasDcopyBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDcopyBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: batch_count - end function hipblasDcopyBatched_64 - end interface - - interface - function hipblasCcopyBatched_64(handle, n, x, incx, y, incy, batch_count) & - bind(c, name='hipblasCcopyBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCcopyBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: batch_count - end function hipblasCcopyBatched_64 - end interface - - interface - function hipblasZcopyBatched_64(handle, n, x, incx, y, incy, batch_count) & - bind(c, name='hipblasZcopyBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZcopyBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: batch_count - end function hipblasZcopyBatched_64 - end interface - - ! copyStridedBatched - interface - function hipblasScopyStridedBatched(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & - bind(c, name='hipblasScopyStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScopyStridedBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int), value :: batch_count - end function hipblasScopyStridedBatched - end interface - - interface - function hipblasDcopyStridedBatched(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & - bind(c, name='hipblasDcopyStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDcopyStridedBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int), value :: batch_count - end function hipblasDcopyStridedBatched - end interface - - interface - function hipblasCcopyStridedBatched(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & - bind(c, name='hipblasCcopyStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCcopyStridedBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int), value :: batch_count - end function hipblasCcopyStridedBatched - end interface - - interface - function hipblasZcopyStridedBatched(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & - bind(c, name='hipblasZcopyStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZcopyStridedBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int), value :: batch_count - end function hipblasZcopyStridedBatched - end interface - - ! copyStridedBatched 64-bit - interface - function hipblasScopyStridedBatched_64(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & - bind(c, name='hipblasScopyStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScopyStridedBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int64_t), value :: batch_count - end function hipblasScopyStridedBatched_64 - end interface - - interface - function hipblasDcopyStridedBatched_64(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & - bind(c, name='hipblasDcopyStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDcopyStridedBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int64_t), value :: batch_count - end function hipblasDcopyStridedBatched_64 - end interface - - interface - function hipblasCcopyStridedBatched_64(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & - bind(c, name='hipblasCcopyStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCcopyStridedBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int64_t), value :: batch_count - end function hipblasCcopyStridedBatched_64 - end interface - - interface - function hipblasZcopyStridedBatched_64(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & - bind(c, name='hipblasZcopyStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZcopyStridedBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int64_t), value :: batch_count - end function hipblasZcopyStridedBatched_64 - end interface - - ! dot - interface - function hipblasSdot(handle, n, x, incx, y, incy, result) & - bind(c, name='hipblasSdot') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdot - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - type(c_ptr), value :: result - end function hipblasSdot - end interface - - interface - function hipblasDdot(handle, n, x, incx, y, incy, result) & - bind(c, name='hipblasDdot') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdot - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - type(c_ptr), value :: result - end function hipblasDdot - end interface - - interface - function hipblasHdot(handle, n, x, incx, y, incy, result) & - bind(c, name='hipblasHdot') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHdot - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - type(c_ptr), value :: result - end function hipblasHdot - end interface - - interface - function hipblasBfdot(handle, n, x, incx, y, incy, result) & - bind(c, name='hipblasBfdot') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasBfdot - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - type(c_ptr), value :: result - end function hipblasBfdot - end interface - - interface - function hipblasCdotu(handle, n, x, incx, y, incy, result) & - bind(c, name='hipblasCdotu') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotu - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - type(c_ptr), value :: result - end function hipblasCdotu - end interface - - interface - function hipblasCdotc(handle, n, x, incx, y, incy, result) & - bind(c, name='hipblasCdotc') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotc - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - type(c_ptr), value :: result - end function hipblasCdotc - end interface - - interface - function hipblasZdotu(handle, n, x, incx, y, incy, result) & - bind(c, name='hipblasZdotu') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotu - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - type(c_ptr), value :: result - end function hipblasZdotu - end interface - - interface - function hipblasZdotc(handle, n, x, incx, y, incy, result) & - bind(c, name='hipblasZdotc') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotc - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - type(c_ptr), value :: result - end function hipblasZdotc - end interface - - ! 64-bit interface - interface - function hipblasSdot_64(handle, n, x, incx, y, incy, result) & - bind(c, name='hipblasSdot_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdot_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - type(c_ptr), value :: result - end function hipblasSdot_64 - end interface - - interface - function hipblasDdot_64(handle, n, x, incx, y, incy, result) & - bind(c, name='hipblasDdot_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdot_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - type(c_ptr), value :: result - end function hipblasDdot_64 - end interface - - interface - function hipblasHdot_64(handle, n, x, incx, y, incy, result) & - bind(c, name='hipblasHdot_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHdot_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - type(c_ptr), value :: result - end function hipblasHdot_64 - end interface - - interface - function hipblasBfdot_64(handle, n, x, incx, y, incy, result) & - bind(c, name='hipblasBfdot_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasBfdot_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - type(c_ptr), value :: result - end function hipblasBfdot_64 - end interface - - interface - function hipblasCdotu_64(handle, n, x, incx, y, incy, result) & - bind(c, name='hipblasCdotu_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotu_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - type(c_ptr), value :: result - end function hipblasCdotu_64 - end interface - - interface - function hipblasCdotc_64(handle, n, x, incx, y, incy, result) & - bind(c, name='hipblasCdotc_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotc_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - type(c_ptr), value :: result - end function hipblasCdotc_64 - end interface - - interface - function hipblasZdotu_64(handle, n, x, incx, y, incy, result) & - bind(c, name='hipblasZdotu_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotu_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - type(c_ptr), value :: result - end function hipblasZdotu_64 - end interface - - interface - function hipblasZdotc_64(handle, n, x, incx, y, incy, result) & - bind(c, name='hipblasZdotc_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotc_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - type(c_ptr), value :: result - end function hipblasZdotc_64 - end interface - - ! dotBatched - interface - function hipblasSdotBatched(handle, n, x, incx, y, incy, batch_count, result) & - bind(c, name='hipblasSdotBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdotBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int), value :: batch_count - type(c_ptr), value :: result - end function hipblasSdotBatched - end interface - - interface - function hipblasDdotBatched(handle, n, x, incx, y, incy, batch_count, result) & - bind(c, name='hipblasDdotBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdotBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int), value :: batch_count - type(c_ptr), value :: result - end function hipblasDdotBatched - end interface - - interface - function hipblasHdotBatched(handle, n, x, incx, y, incy, batch_count, result) & - bind(c, name='hipblasHdotBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHdotBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int), value :: batch_count - type(c_ptr), value :: result - end function hipblasHdotBatched - end interface - - interface - function hipblasBfdotBatched(handle, n, x, incx, y, incy, batch_count, result) & - bind(c, name='hipblasBfdotBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasBfdotBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int), value :: batch_count - type(c_ptr), value :: result - end function hipblasBfdotBatched - end interface - - interface - function hipblasCdotuBatched(handle, n, x, incx, y, incy, batch_count, result) & - bind(c, name='hipblasCdotuBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotuBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int), value :: batch_count - type(c_ptr), value :: result - end function hipblasCdotuBatched - end interface - - interface - function hipblasCdotcBatched(handle, n, x, incx, y, incy, batch_count, result) & - bind(c, name='hipblasCdotcBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotcBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int), value :: batch_count - type(c_ptr), value :: result - end function hipblasCdotcBatched - end interface - - interface - function hipblasZdotuBatched(handle, n, x, incx, y, incy, batch_count, result) & - bind(c, name='hipblasZdotuBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotuBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int), value :: batch_count - type(c_ptr), value :: result - end function hipblasZdotuBatched - end interface - - interface - function hipblasZdotcBatched(handle, n, x, incx, y, incy, batch_count, result) & - bind(c, name='hipblasZdotcBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotcBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int), value :: batch_count - type(c_ptr), value :: result - end function hipblasZdotcBatched - end interface - - ! 64-bit interface - interface - function hipblasSdotBatched_64(handle, n, x, incx, y, incy, batch_count, result) & - bind(c, name='hipblasSdotBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdotBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: batch_count - type(c_ptr), value :: result - end function hipblasSdotBatched_64 - end interface - - interface - function hipblasDdotBatched_64(handle, n, x, incx, y, incy, batch_count, result) & - bind(c, name='hipblasDdotBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdotBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: batch_count - type(c_ptr), value :: result - end function hipblasDdotBatched_64 - end interface - - interface - function hipblasHdotBatched_64(handle, n, x, incx, y, incy, batch_count, result) & - bind(c, name='hipblasHdotBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHdotBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: batch_count - type(c_ptr), value :: result - end function hipblasHdotBatched_64 - end interface - - interface - function hipblasBfdotBatched_64(handle, n, x, incx, y, incy, batch_count, result) & - bind(c, name='hipblasBfdotBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasBfdotBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: batch_count - type(c_ptr), value :: result - end function hipblasBfdotBatched_64 - end interface - - interface - function hipblasCdotuBatched_64(handle, n, x, incx, y, incy, batch_count, result) & - bind(c, name='hipblasCdotuBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotuBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: batch_count - type(c_ptr), value :: result - end function hipblasCdotuBatched_64 - end interface - - interface - function hipblasCdotcBatched_64(handle, n, x, incx, y, incy, batch_count, result) & - bind(c, name='hipblasCdotcBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotcBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: batch_count - type(c_ptr), value :: result - end function hipblasCdotcBatched_64 - end interface - - interface - function hipblasZdotuBatched_64(handle, n, x, incx, y, incy, batch_count, result) & - bind(c, name='hipblasZdotuBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotuBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: batch_count - type(c_ptr), value :: result - end function hipblasZdotuBatched_64 - end interface - - interface - function hipblasZdotcBatched_64(handle, n, x, incx, y, incy, batch_count, result) & - bind(c, name='hipblasZdotcBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotcBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: batch_count - type(c_ptr), value :: result - end function hipblasZdotcBatched_64 - end interface - - ! dotStridedBatched - interface - function hipblasSdotStridedBatched(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & - bind(c, name='hipblasSdotStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdotStridedBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int), value :: batch_count - type(c_ptr), value :: result - end function hipblasSdotStridedBatched - end interface - - interface - function hipblasDdotStridedBatched(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & - bind(c, name='hipblasDdotStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdotStridedBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int), value :: batch_count - type(c_ptr), value :: result - end function hipblasDdotStridedBatched - end interface - - interface - function hipblasHdotStridedBatched(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & - bind(c, name='hipblasHdotStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHdotStridedBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int), value :: batch_count - type(c_ptr), value :: result - end function hipblasHdotStridedBatched - end interface - - interface - function hipblasBfdotStridedBatched(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & - bind(c, name='hipblasBfdotStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasBfdotStridedBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int), value :: batch_count - type(c_ptr), value :: result - end function hipblasBfdotStridedBatched - end interface - - interface - function hipblasCdotuStridedBatched(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & - bind(c, name='hipblasCdotuStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotuStridedBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int), value :: batch_count - type(c_ptr), value :: result - end function hipblasCdotuStridedBatched - end interface - - interface - function hipblasCdotcStridedBatched(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & - bind(c, name='hipblasCdotcStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotcStridedBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int), value :: batch_count - type(c_ptr), value :: result - end function hipblasCdotcStridedBatched - end interface - - interface - function hipblasZdotuStridedBatched(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & - bind(c, name='hipblasZdotuStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotuStridedBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int), value :: batch_count - type(c_ptr), value :: result - end function hipblasZdotuStridedBatched - end interface - - interface - function hipblasZdotcStridedBatched(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & - bind(c, name='hipblasZdotcStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotcStridedBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int), value :: batch_count - type(c_ptr), value :: result - end function hipblasZdotcStridedBatched - end interface - - ! 64-bit interface - interface - function hipblasSdotStridedBatched_64(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & - bind(c, name='hipblasSdotStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdotStridedBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int64_t), value :: batch_count - type(c_ptr), value :: result - end function hipblasSdotStridedBatched_64 - end interface - - interface - function hipblasDdotStridedBatched_64(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & - bind(c, name='hipblasDdotStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdotStridedBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int64_t), value :: batch_count - type(c_ptr), value :: result - end function hipblasDdotStridedBatched_64 - end interface - - interface - function hipblasHdotStridedBatched_64(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & - bind(c, name='hipblasHdotStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHdotStridedBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int64_t), value :: batch_count - type(c_ptr), value :: result - end function hipblasHdotStridedBatched_64 - end interface - - interface - function hipblasBfdotStridedBatched_64(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & - bind(c, name='hipblasBfdotStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasBfdotStridedBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int64_t), value :: batch_count - type(c_ptr), value :: result - end function hipblasBfdotStridedBatched_64 - end interface - - interface - function hipblasCdotuStridedBatched_64(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & - bind(c, name='hipblasCdotuStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotuStridedBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int64_t), value :: batch_count - type(c_ptr), value :: result - end function hipblasCdotuStridedBatched_64 - end interface - - interface - function hipblasCdotcStridedBatched_64(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & - bind(c, name='hipblasCdotcStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotcStridedBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int64_t), value :: batch_count - type(c_ptr), value :: result - end function hipblasCdotcStridedBatched_64 - end interface - - interface - function hipblasZdotuStridedBatched_64(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & - bind(c, name='hipblasZdotuStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotuStridedBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int64_t), value :: batch_count - type(c_ptr), value :: result - end function hipblasZdotuStridedBatched_64 - end interface - - interface - function hipblasZdotcStridedBatched_64(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & - bind(c, name='hipblasZdotcStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotcStridedBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int64_t), value :: batch_count - type(c_ptr), value :: result - end function hipblasZdotcStridedBatched_64 - end interface - - ! swap - interface - function hipblasSswap(handle, n, x, incx, y, incy) & - bind(c, name='hipblasSswap') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSswap - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - end function hipblasSswap - end interface - - interface - function hipblasDswap(handle, n, x, incx, y, incy) & - bind(c, name='hipblasDswap') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDswap - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - end function hipblasDswap - end interface - - interface - function hipblasCswap(handle, n, x, incx, y, incy) & - bind(c, name='hipblasCswap') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCswap - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - end function hipblasCswap - end interface - - interface - function hipblasZswap(handle, n, x, incx, y, incy) & - bind(c, name='hipblasZswap') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZswap - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - end function hipblasZswap - end interface - - ! swap_64 - interface - function hipblasSswap_64(handle, n, x, incx, y, incy) & - bind(c, name='hipblasSswap_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSswap_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - end function hipblasSswap_64 - end interface - - interface - function hipblasDswap_64(handle, n, x, incx, y, incy) & - bind(c, name='hipblasDswap_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDswap_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - end function hipblasDswap_64 - end interface - - interface - function hipblasCswap_64(handle, n, x, incx, y, incy) & - bind(c, name='hipblasCswap_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCswap_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - end function hipblasCswap_64 - end interface - - interface - function hipblasZswap_64(handle, n, x, incx, y, incy) & - bind(c, name='hipblasZswap_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZswap_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - end function hipblasZswap_64 - end interface - - ! swapBatched - interface - function hipblasSswapBatched(handle, n, x, incx, y, incy, batch_count) & - bind(c, name='hipblasSswapBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSswapBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int), value :: batch_count - end function hipblasSswapBatched - end interface - - interface - function hipblasDswapBatched(handle, n, x, incx, y, incy, batch_count) & - bind(c, name='hipblasDswapBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDswapBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int), value :: batch_count - end function hipblasDswapBatched - end interface - - interface - function hipblasCswapBatched(handle, n, x, incx, y, incy, batch_count) & - bind(c, name='hipblasCswapBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCswapBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int), value :: batch_count - end function hipblasCswapBatched - end interface - - interface - function hipblasZswapBatched(handle, n, x, incx, y, incy, batch_count) & - bind(c, name='hipblasZswapBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZswapBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int), value :: batch_count - end function hipblasZswapBatched - end interface - - ! swapBatched_64 - interface - function hipblasSswapBatched_64(handle, n, x, incx, y, incy, batch_count) & - bind(c, name='hipblasSswapBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSswapBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: batch_count - end function hipblasSswapBatched_64 - end interface - - interface - function hipblasDswapBatched_64(handle, n, x, incx, y, incy, batch_count) & - bind(c, name='hipblasDswapBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDswapBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: batch_count - end function hipblasDswapBatched_64 - end interface - - interface - function hipblasCswapBatched_64(handle, n, x, incx, y, incy, batch_count) & - bind(c, name='hipblasCswapBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCswapBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: batch_count - end function hipblasCswapBatched_64 - end interface - - interface - function hipblasZswapBatched_64(handle, n, x, incx, y, incy, batch_count) & - bind(c, name='hipblasZswapBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZswapBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: batch_count - end function hipblasZswapBatched_64 - end interface - - ! swapStridedBatched - interface - function hipblasSswapStridedBatched(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & - bind(c, name='hipblasSswapStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSswapStridedBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int), value :: batch_count - end function hipblasSswapStridedBatched - end interface - - interface - function hipblasDswapStridedBatched(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & - bind(c, name='hipblasDswapStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDswapStridedBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int), value :: batch_count - end function hipblasDswapStridedBatched - end interface - - interface - function hipblasCswapStridedBatched(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & - bind(c, name='hipblasCswapStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCswapStridedBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int), value :: batch_count - end function hipblasCswapStridedBatched - end interface - - interface - function hipblasZswapStridedBatched(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & - bind(c, name='hipblasZswapStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZswapStridedBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int), value :: batch_count - end function hipblasZswapStridedBatched - end interface - - ! swapStridedBatched_64 - interface - function hipblasSswapStridedBatched_64(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & - bind(c, name='hipblasSswapStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSswapStridedBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int64_t), value :: batch_count - end function hipblasSswapStridedBatched_64 - end interface - - interface - function hipblasDswapStridedBatched_64(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & - bind(c, name='hipblasDswapStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDswapStridedBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int64_t), value :: batch_count - end function hipblasDswapStridedBatched_64 - end interface - - interface - function hipblasCswapStridedBatched_64(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & - bind(c, name='hipblasCswapStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCswapStridedBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int64_t), value :: batch_count - end function hipblasCswapStridedBatched_64 - end interface - - interface - function hipblasZswapStridedBatched_64(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & - bind(c, name='hipblasZswapStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZswapStridedBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int64_t), value :: batch_count - end function hipblasZswapStridedBatched_64 - end interface - - ! axpy - interface - function hipblasHaxpy(handle, n, alpha, x, incx, y, incy) & - bind(c, name='hipblasHaxpy') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHaxpy - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - end function hipblasHaxpy - end interface - - interface - function hipblasSaxpy(handle, n, alpha, x, incx, y, incy) & - bind(c, name='hipblasSaxpy') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpy - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - end function hipblasSaxpy - end interface - - interface - function hipblasDaxpy(handle, n, alpha, x, incx, y, incy) & - bind(c, name='hipblasDaxpy') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpy - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - end function hipblasDaxpy - end interface - - interface - function hipblasCaxpy(handle, n, alpha, x, incx, y, incy) & - bind(c, name='hipblasCaxpy') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpy - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - end function hipblasCaxpy - end interface - - interface - function hipblasZaxpy(handle, n, alpha, x, incx, y, incy) & - bind(c, name='hipblasZaxpy') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpy - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - end function hipblasZaxpy - end interface - - ! axpy 64-bit - interface - function hipblasHaxpy_64(handle, n, alpha, x, incx, y, incy) & - bind(c, name='hipblasHaxpy_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHaxpy_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - end function hipblasHaxpy_64 - end interface - - interface - function hipblasSaxpy_64(handle, n, alpha, x, incx, y, incy) & - bind(c, name='hipblasSaxpy_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpy_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - end function hipblasSaxpy_64 - end interface - - interface - function hipblasDaxpy_64(handle, n, alpha, x, incx, y, incy) & - bind(c, name='hipblasDaxpy_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpy_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - end function hipblasDaxpy_64 - end interface - - interface - function hipblasCaxpy_64(handle, n, alpha, x, incx, y, incy) & - bind(c, name='hipblasCaxpy_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpy_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - end function hipblasCaxpy_64 - end interface - - interface - function hipblasZaxpy_64(handle, n, alpha, x, incx, y, incy) & - bind(c, name='hipblasZaxpy_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpy_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - end function hipblasZaxpy_64 - end interface - - ! axpyBatched - interface - function hipblasHaxpyBatched(handle, n, alpha, x, incx, y, incy, batch_count) & - bind(c, name='hipblasHaxpyBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHaxpyBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int), value :: batch_count - end function hipblasHaxpyBatched - end interface - - interface - function hipblasSaxpyBatched(handle, n, alpha, x, incx, y, incy, batch_count) & - bind(c, name='hipblasSaxpyBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpyBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int), value :: batch_count - end function hipblasSaxpyBatched - end interface - - interface - function hipblasDaxpyBatched(handle, n, alpha, x, incx, y, incy, batch_count) & - bind(c, name='hipblasDaxpyBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpyBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int), value :: batch_count - end function hipblasDaxpyBatched - end interface - - interface - function hipblasCaxpyBatched(handle, n, alpha, x, incx, y, incy, batch_count) & - bind(c, name='hipblasCaxpyBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpyBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int), value :: batch_count - end function hipblasCaxpyBatched - end interface - - interface - function hipblasZaxpyBatched(handle, n, alpha, x, incx, y, incy, batch_count) & - bind(c, name='hipblasZaxpyBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpyBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int), value :: batch_count - end function hipblasZaxpyBatched - end interface - - ! axpyBatched 64-bit - interface - function hipblasHaxpyBatched_64(handle, n, alpha, x, incx, y, incy, batch_count) & - bind(c, name='hipblasHaxpyBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHaxpyBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: batch_count - end function hipblasHaxpyBatched_64 - end interface - - interface - function hipblasSaxpyBatched_64(handle, n, alpha, x, incx, y, incy, batch_count) & - bind(c, name='hipblasSaxpyBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpyBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: batch_count - end function hipblasSaxpyBatched_64 - end interface - - interface - function hipblasDaxpyBatched_64(handle, n, alpha, x, incx, y, incy, batch_count) & - bind(c, name='hipblasDaxpyBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpyBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: batch_count - end function hipblasDaxpyBatched_64 - end interface - - interface - function hipblasCaxpyBatched_64(handle, n, alpha, x, incx, y, incy, batch_count) & - bind(c, name='hipblasCaxpyBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpyBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: batch_count - end function hipblasCaxpyBatched_64 - end interface - - interface - function hipblasZaxpyBatched_64(handle, n, alpha, x, incx, y, incy, batch_count) & - bind(c, name='hipblasZaxpyBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpyBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: batch_count - end function hipblasZaxpyBatched_64 - end interface - - ! axpyStridedBatched - interface - function hipblasHaxpyStridedBatched(handle, n, alpha, x, incx, stride_x, y, incy, stride_y, batch_count) & - bind(c, name='hipblasHaxpyStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHaxpyStridedBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int), value :: batch_count - end function hipblasHaxpyStridedBatched - end interface - - interface - function hipblasSaxpyStridedBatched(handle, n, alpha, x, incx, stride_x, y, incy, stride_y, batch_count) & - bind(c, name='hipblasSaxpyStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpyStridedBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int), value :: batch_count - end function hipblasSaxpyStridedBatched - end interface - - interface - function hipblasDaxpyStridedBatched(handle, n, alpha, x, incx, stride_x, y, incy, stride_y, batch_count) & - bind(c, name='hipblasDaxpyStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpyStridedBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int), value :: batch_count - end function hipblasDaxpyStridedBatched - end interface - - interface - function hipblasCaxpyStridedBatched(handle, n, alpha, x, incx, stride_x, y, incy, stride_y, batch_count) & - bind(c, name='hipblasCaxpyStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpyStridedBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int), value :: batch_count - end function hipblasCaxpyStridedBatched - end interface - - interface - function hipblasZaxpyStridedBatched(handle, n, alpha, x, incx, stride_x, y, incy, stride_y, batch_count) & - bind(c, name='hipblasZaxpyStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpyStridedBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int), value :: batch_count - end function hipblasZaxpyStridedBatched - end interface - - ! axpyStridedBatched_64 64-bit - interface - function hipblasHaxpyStridedBatched_64(handle, n, alpha, x, incx, stride_x, y, incy, stride_y, batch_count) & - bind(c, name='hipblasHaxpyStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHaxpyStridedBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int64_t), value :: batch_count - end function hipblasHaxpyStridedBatched_64 - end interface - - interface - function hipblasSaxpyStridedBatched_64(handle, n, alpha, x, incx, stride_x, y, incy, stride_y, batch_count) & - bind(c, name='hipblasSaxpyStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpyStridedBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int64_t), value :: batch_count - end function hipblasSaxpyStridedBatched_64 - end interface - - interface - function hipblasDaxpyStridedBatched_64(handle, n, alpha, x, incx, stride_x, y, incy, stride_y, batch_count) & - bind(c, name='hipblasDaxpyStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpyStridedBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int64_t), value :: batch_count - end function hipblasDaxpyStridedBatched_64 - end interface - - interface - function hipblasCaxpyStridedBatched_64(handle, n, alpha, x, incx, stride_x, y, incy, stride_y, batch_count) & - bind(c, name='hipblasCaxpyStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpyStridedBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int64_t), value :: batch_count - end function hipblasCaxpyStridedBatched_64 - end interface - - interface - function hipblasZaxpyStridedBatched_64(handle, n, alpha, x, incx, stride_x, y, incy, stride_y, batch_count) & - bind(c, name='hipblasZaxpyStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpyStridedBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int64_t), value :: batch_count - end function hipblasZaxpyStridedBatched_64 - end interface - - ! asum - interface - function hipblasSasum(handle, n, x, incx, result) & - bind(c, name='hipblasSasum') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasum - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: result - end function hipblasSasum - end interface - - interface - function hipblasDasum(handle, n, x, incx, result) & - bind(c, name='hipblasDasum') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasum - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: result - end function hipblasDasum - end interface - - interface - function hipblasScasum(handle, n, x, incx, result) & - bind(c, name='hipblasScasum') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasum - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: result - end function hipblasScasum - end interface - - interface - function hipblasDzasum(handle, n, x, incx, result) & - bind(c, name='hipblasDzasum') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasum - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: result - end function hipblasDzasum - end interface - - ! 64-bit interface - interface - function hipblasSasum_64(handle, n, x, incx, result) & - bind(c, name='hipblasSasum_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasum_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: result - end function hipblasSasum_64 - end interface - - interface - function hipblasDasum_64(handle, n, x, incx, result) & - bind(c, name='hipblasDasum_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasum_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: result - end function hipblasDasum_64 - end interface - - interface - function hipblasScasum_64(handle, n, x, incx, result) & - bind(c, name='hipblasScasum_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasum_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: result - end function hipblasScasum_64 - end interface - - interface - function hipblasDzasum_64(handle, n, x, incx, result) & - bind(c, name='hipblasDzasum_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasum_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: result - end function hipblasDzasum_64 - end interface - - ! asumBatched - interface - function hipblasSasumBatched(handle, n, x, incx, batch_count, result) & - bind(c, name='hipblasSasumBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasumBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int), value :: batch_count - type(c_ptr), value :: result - end function hipblasSasumBatched - end interface - - interface - function hipblasDasumBatched(handle, n, x, incx, batch_count, result) & - bind(c, name='hipblasDasumBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasumBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int), value :: batch_count - type(c_ptr), value :: result - end function hipblasDasumBatched - end interface - - interface - function hipblasScasumBatched(handle, n, x, incx, batch_count, result) & - bind(c, name='hipblasScasumBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasumBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int), value :: batch_count - type(c_ptr), value :: result - end function hipblasScasumBatched - end interface - - interface - function hipblasDzasumBatched(handle, n, x, incx, batch_count, result) & - bind(c, name='hipblasDzasumBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasumBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int), value :: batch_count - type(c_ptr), value :: result - end function hipblasDzasumBatched - end interface - - ! 64-bit interface - interface - function hipblasSasumBatched_64(handle, n, x, incx, batch_count, result) & - bind(c, name='hipblasSasumBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasumBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: batch_count - type(c_ptr), value :: result - end function hipblasSasumBatched_64 - end interface - - interface - function hipblasDasumBatched_64(handle, n, x, incx, batch_count, result) & - bind(c, name='hipblasDasumBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasumBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: batch_count - type(c_ptr), value :: result - end function hipblasDasumBatched_64 - end interface - - interface - function hipblasScasumBatched_64(handle, n, x, incx, batch_count, result) & - bind(c, name='hipblasScasumBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasumBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: batch_count - type(c_ptr), value :: result - end function hipblasScasumBatched_64 - end interface - - interface - function hipblasDzasumBatched_64(handle, n, x, incx, batch_count, result) & - bind(c, name='hipblasDzasumBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasumBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: batch_count - type(c_ptr), value :: result - end function hipblasDzasumBatched_64 - end interface - - ! asumStridedBatched - interface - function hipblasSasumStridedBatched(handle, n, x, incx, stride_x, batch_count, result) & - bind(c, name='hipblasSasumStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasumStridedBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int), value :: batch_count - type(c_ptr), value :: result - end function hipblasSasumStridedBatched - end interface - - interface - function hipblasDasumStridedBatched(handle, n, x, incx, stride_x, batch_count, result) & - bind(c, name='hipblasDasumStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasumStridedBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int), value :: batch_count - type(c_ptr), value :: result - end function hipblasDasumStridedBatched - end interface - - interface - function hipblasScasumStridedBatched(handle, n, x, incx, stride_x, batch_count, result) & - bind(c, name='hipblasScasumStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasumStridedBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int), value :: batch_count - type(c_ptr), value :: result - end function hipblasScasumStridedBatched - end interface - - interface - function hipblasDzasumStridedBatched(handle, n, x, incx, stride_x, batch_count, result) & - bind(c, name='hipblasDzasumStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasumStridedBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int), value :: batch_count - type(c_ptr), value :: result - end function hipblasDzasumStridedBatched - end interface - - ! 64-bit interface - interface - function hipblasSasumStridedBatched_64(handle, n, x, incx, stride_x, batch_count, result) & - bind(c, name='hipblasSasumStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasumStridedBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int64_t), value :: batch_count - type(c_ptr), value :: result - end function hipblasSasumStridedBatched_64 - end interface - - interface - function hipblasDasumStridedBatched_64(handle, n, x, incx, stride_x, batch_count, result) & - bind(c, name='hipblasDasumStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasumStridedBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int64_t), value :: batch_count - type(c_ptr), value :: result - end function hipblasDasumStridedBatched_64 - end interface - - interface - function hipblasScasumStridedBatched_64(handle, n, x, incx, stride_x, batch_count, result) & - bind(c, name='hipblasScasumStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasumStridedBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int64_t), value :: batch_count - type(c_ptr), value :: result - end function hipblasScasumStridedBatched_64 - end interface - - interface - function hipblasDzasumStridedBatched_64(handle, n, x, incx, stride_x, batch_count, result) & - bind(c, name='hipblasDzasumStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasumStridedBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int64_t), value :: batch_count - type(c_ptr), value :: result - end function hipblasDzasumStridedBatched_64 - end interface - - ! nrm2 - interface - function hipblasSnrm2(handle, n, x, incx, result) & - bind(c, name='hipblasSnrm2') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2 - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: result - end function hipblasSnrm2 - end interface - - interface - function hipblasDnrm2(handle, n, x, incx, result) & - bind(c, name='hipblasDnrm2') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2 - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: result - end function hipblasDnrm2 - end interface - - interface - function hipblasScnrm2(handle, n, x, incx, result) & - bind(c, name='hipblasScnrm2') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2 - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: result - end function hipblasScnrm2 - end interface - - interface - function hipblasDznrm2(handle, n, x, incx, result) & - bind(c, name='hipblasDznrm2') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2 - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: result - end function hipblasDznrm2 - end interface - - ! nrm2_64 - interface - function hipblasSnrm2_64(handle, n, x, incx, result) & - bind(c, name='hipblasSnrm2_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: result - end function hipblasSnrm2_64 - end interface - - interface - function hipblasDnrm2_64(handle, n, x, incx, result) & - bind(c, name='hipblasDnrm2_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: result - end function hipblasDnrm2_64 - end interface - - interface - function hipblasScnrm2_64(handle, n, x, incx, result) & - bind(c, name='hipblasScnrm2_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: result - end function hipblasScnrm2_64 - end interface - - interface - function hipblasDznrm2_64(handle, n, x, incx, result) & - bind(c, name='hipblasDznrm2_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: result - end function hipblasDznrm2_64 - end interface - - ! nrm2Batched - interface - function hipblasSnrm2Batched(handle, n, x, incx, batch_count, result) & - bind(c, name='hipblasSnrm2Batched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2Batched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int), value :: batch_count - type(c_ptr), value :: result - end function hipblasSnrm2Batched - end interface - - interface - function hipblasDnrm2Batched(handle, n, x, incx, batch_count, result) & - bind(c, name='hipblasDnrm2Batched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2Batched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int), value :: batch_count - type(c_ptr), value :: result - end function hipblasDnrm2Batched - end interface - - interface - function hipblasScnrm2Batched(handle, n, x, incx, batch_count, result) & - bind(c, name='hipblasScnrm2Batched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2Batched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int), value :: batch_count - type(c_ptr), value :: result - end function hipblasScnrm2Batched - end interface - - interface - function hipblasDznrm2Batched(handle, n, x, incx, batch_count, result) & - bind(c, name='hipblasDznrm2Batched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2Batched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int), value :: batch_count - type(c_ptr), value :: result - end function hipblasDznrm2Batched - end interface - - ! nrm2Batched_64 - interface - function hipblasSnrm2Batched_64(handle, n, x, incx, batch_count, result) & - bind(c, name='hipblasSnrm2Batched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2Batched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: batch_count - type(c_ptr), value :: result - end function hipblasSnrm2Batched_64 - end interface - - interface - function hipblasDnrm2Batched_64(handle, n, x, incx, batch_count, result) & - bind(c, name='hipblasDnrm2Batched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2Batched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: batch_count - type(c_ptr), value :: result - end function hipblasDnrm2Batched_64 - end interface - - interface - function hipblasScnrm2Batched_64(handle, n, x, incx, batch_count, result) & - bind(c, name='hipblasScnrm2Batched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2Batched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: batch_count - type(c_ptr), value :: result - end function hipblasScnrm2Batched_64 - end interface - - interface - function hipblasDznrm2Batched_64(handle, n, x, incx, batch_count, result) & - bind(c, name='hipblasDznrm2Batched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2Batched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: batch_count - type(c_ptr), value :: result - end function hipblasDznrm2Batched_64 - end interface - - ! nrm2StridedBatched - interface - function hipblasSnrm2StridedBatched(handle, n, x, incx, stride_x, batch_count, result) & - bind(c, name='hipblasSnrm2StridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2StridedBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int), value :: batch_count - type(c_ptr), value :: result - end function hipblasSnrm2StridedBatched - end interface - - interface - function hipblasDnrm2StridedBatched(handle, n, x, incx, stride_x, batch_count, result) & - bind(c, name='hipblasDnrm2StridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2StridedBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int), value :: batch_count - type(c_ptr), value :: result - end function hipblasDnrm2StridedBatched - end interface - - interface - function hipblasScnrm2StridedBatched(handle, n, x, incx, stride_x, batch_count, result) & - bind(c, name='hipblasScnrm2StridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2StridedBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int), value :: batch_count - type(c_ptr), value :: result - end function hipblasScnrm2StridedBatched - end interface - - interface - function hipblasDznrm2StridedBatched(handle, n, x, incx, stride_x, batch_count, result) & - bind(c, name='hipblasDznrm2StridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2StridedBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int), value :: batch_count - type(c_ptr), value :: result - end function hipblasDznrm2StridedBatched - end interface - - ! nrm2StridedBatched_64 - interface - function hipblasSnrm2StridedBatched_64(handle, n, x, incx, stride_x, batch_count, result) & - bind(c, name='hipblasSnrm2StridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2StridedBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int64_t), value :: batch_count - type(c_ptr), value :: result - end function hipblasSnrm2StridedBatched_64 - end interface - - interface - function hipblasDnrm2StridedBatched_64(handle, n, x, incx, stride_x, batch_count, result) & - bind(c, name='hipblasDnrm2StridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2StridedBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int64_t), value :: batch_count - type(c_ptr), value :: result - end function hipblasDnrm2StridedBatched_64 - end interface - - interface - function hipblasScnrm2StridedBatched_64(handle, n, x, incx, stride_x, batch_count, result) & - bind(c, name='hipblasScnrm2StridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2StridedBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int64_t), value :: batch_count - type(c_ptr), value :: result - end function hipblasScnrm2StridedBatched_64 - end interface - - interface - function hipblasDznrm2StridedBatched_64(handle, n, x, incx, stride_x, batch_count, result) & - bind(c, name='hipblasDznrm2StridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2StridedBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int64_t), value :: batch_count - type(c_ptr), value :: result - end function hipblasDznrm2StridedBatched_64 - end interface - - ! amax - interface - function hipblasIsamax(handle, n, x, incx, result) & - bind(c, name='hipblasIsamax') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamax - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: result - end function hipblasIsamax - end interface - - interface - function hipblasIdamax(handle, n, x, incx, result) & - bind(c, name='hipblasIdamax') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamax - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: result - end function hipblasIdamax - end interface - - interface - function hipblasIcamax(handle, n, x, incx, result) & - bind(c, name='hipblasIcamax') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamax - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: result - end function hipblasIcamax - end interface - - interface - function hipblasIzamax(handle, n, x, incx, result) & - bind(c, name='hipblasIzamax') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamax - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: result - end function hipblasIzamax - end interface - - ! amax_64 - interface - function hipblasIsamax_64(handle, n, x, incx, result) & - bind(c, name='hipblasIsamax_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamax_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: result - end function hipblasIsamax_64 - end interface - - interface - function hipblasIdamax_64(handle, n, x, incx, result) & - bind(c, name='hipblasIdamax_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamax_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: result - end function hipblasIdamax_64 - end interface - - interface - function hipblasIcamax_64(handle, n, x, incx, result) & - bind(c, name='hipblasIcamax_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamax_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: result - end function hipblasIcamax_64 - end interface - - interface - function hipblasIzamax_64(handle, n, x, incx, result) & - bind(c, name='hipblasIzamax_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamax_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: result - end function hipblasIzamax_64 - end interface - - ! amaxBatched - interface - function hipblasIsamaxBatched(handle, n, x, incx, batch_count, result) & - bind(c, name='hipblasIsamaxBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamaxBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int), value :: batch_count - type(c_ptr), value :: result - end function hipblasIsamaxBatched - end interface - - interface - function hipblasIdamaxBatched(handle, n, x, incx, batch_count, result) & - bind(c, name='hipblasIdamaxBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamaxBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int), value :: batch_count - type(c_ptr), value :: result - end function hipblasIdamaxBatched - end interface - - interface - function hipblasIcamaxBatched(handle, n, x, incx, batch_count, result) & - bind(c, name='hipblasIcamaxBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamaxBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int), value :: batch_count - type(c_ptr), value :: result - end function hipblasIcamaxBatched - end interface - - interface - function hipblasIzamaxBatched(handle, n, x, incx, batch_count, result) & - bind(c, name='hipblasIzamaxBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamaxBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int), value :: batch_count - type(c_ptr), value :: result - end function hipblasIzamaxBatched - end interface - - ! amaxBatched_64 - interface - function hipblasIsamaxBatched_64(handle, n, x, incx, batch_count, result) & - bind(c, name='hipblasIsamaxBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamaxBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: batch_count - type(c_ptr), value :: result - end function hipblasIsamaxBatched_64 - end interface - - interface - function hipblasIdamaxBatched_64(handle, n, x, incx, batch_count, result) & - bind(c, name='hipblasIdamaxBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamaxBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: batch_count - type(c_ptr), value :: result - end function hipblasIdamaxBatched_64 - end interface - - interface - function hipblasIcamaxBatched_64(handle, n, x, incx, batch_count, result) & - bind(c, name='hipblasIcamaxBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamaxBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: batch_count - type(c_ptr), value :: result - end function hipblasIcamaxBatched_64 - end interface - - interface - function hipblasIzamaxBatched_64(handle, n, x, incx, batch_count, result) & - bind(c, name='hipblasIzamaxBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamaxBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: batch_count - type(c_ptr), value :: result - end function hipblasIzamaxBatched_64 - end interface - - ! amaxStridedBatched - interface - function hipblasIsamaxStridedBatched(handle, n, x, incx, stride_x, batch_count, result) & - bind(c, name='hipblasIsamaxStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamaxStridedBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int), value :: batch_count - type(c_ptr), value :: result - end function hipblasIsamaxStridedBatched - end interface - - interface - function hipblasIdamaxStridedBatched(handle, n, x, incx, stride_x, batch_count, result) & - bind(c, name='hipblasIdamaxStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamaxStridedBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int), value :: batch_count - type(c_ptr), value :: result - end function hipblasIdamaxStridedBatched - end interface - - interface - function hipblasIcamaxStridedBatched(handle, n, x, incx, stride_x, batch_count, result) & - bind(c, name='hipblasIcamaxStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamaxStridedBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int), value :: batch_count - type(c_ptr), value :: result - end function hipblasIcamaxStridedBatched - end interface - - interface - function hipblasIzamaxStridedBatched(handle, n, x, incx, stride_x, batch_count, result) & - bind(c, name='hipblasIzamaxStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamaxStridedBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int), value :: batch_count - type(c_ptr), value :: result - end function hipblasIzamaxStridedBatched - end interface - - ! amaxStridedBatched_64 - interface - function hipblasIsamaxStridedBatched_64(handle, n, x, incx, stride_x, batch_count, result) & - bind(c, name='hipblasIsamaxStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamaxStridedBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int64_t), value :: batch_count - type(c_ptr), value :: result - end function hipblasIsamaxStridedBatched_64 - end interface - - interface - function hipblasIdamaxStridedBatched_64(handle, n, x, incx, stride_x, batch_count, result) & - bind(c, name='hipblasIdamaxStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamaxStridedBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int64_t), value :: batch_count - type(c_ptr), value :: result - end function hipblasIdamaxStridedBatched_64 - end interface - - interface - function hipblasIcamaxStridedBatched_64(handle, n, x, incx, stride_x, batch_count, result) & - bind(c, name='hipblasIcamaxStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamaxStridedBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int64_t), value :: batch_count - type(c_ptr), value :: result - end function hipblasIcamaxStridedBatched_64 - end interface - - interface - function hipblasIzamaxStridedBatched_64(handle, n, x, incx, stride_x, batch_count, result) & - bind(c, name='hipblasIzamaxStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamaxStridedBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int64_t), value :: batch_count - type(c_ptr), value :: result - end function hipblasIzamaxStridedBatched_64 - end interface - - ! amin - interface - function hipblasIsamin(handle, n, x, incx, result) & - bind(c, name='hipblasIsamin') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamin - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: result - end function hipblasIsamin - end interface - - interface - function hipblasIdamin(handle, n, x, incx, result) & - bind(c, name='hipblasIdamin') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamin - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: result - end function hipblasIdamin - end interface - - interface - function hipblasIcamin(handle, n, x, incx, result) & - bind(c, name='hipblasIcamin') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamin - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: result - end function hipblasIcamin - end interface - - interface - function hipblasIzamin(handle, n, x, incx, result) & - bind(c, name='hipblasIzamin') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamin - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: result - end function hipblasIzamin - end interface - - ! amin_64 - interface - function hipblasIsamin_64(handle, n, x, incx, result) & - bind(c, name='hipblasIsamin_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamin_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: result - end function hipblasIsamin_64 - end interface - - interface - function hipblasIdamin_64(handle, n, x, incx, result) & - bind(c, name='hipblasIdamin_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamin_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: result - end function hipblasIdamin_64 - end interface - - interface - function hipblasIcamin_64(handle, n, x, incx, result) & - bind(c, name='hipblasIcamin_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamin_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: result - end function hipblasIcamin_64 - end interface - - interface - function hipblasIzamin_64(handle, n, x, incx, result) & - bind(c, name='hipblasIzamin_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamin_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: result - end function hipblasIzamin_64 - end interface - - ! aminBatched - interface - function hipblasIsaminBatched(handle, n, x, incx, batch_count, result) & - bind(c, name='hipblasIsaminBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsaminBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int), value :: batch_count - type(c_ptr), value :: result - end function hipblasIsaminBatched - end interface - - interface - function hipblasIdaminBatched(handle, n, x, incx, batch_count, result) & - bind(c, name='hipblasIdaminBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdaminBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int), value :: batch_count - type(c_ptr), value :: result - end function hipblasIdaminBatched - end interface - - interface - function hipblasIcaminBatched(handle, n, x, incx, batch_count, result) & - bind(c, name='hipblasIcaminBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcaminBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int), value :: batch_count - type(c_ptr), value :: result - end function hipblasIcaminBatched - end interface - - interface - function hipblasIzaminBatched(handle, n, x, incx, batch_count, result) & - bind(c, name='hipblasIzaminBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzaminBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int), value :: batch_count - type(c_ptr), value :: result - end function hipblasIzaminBatched - end interface - - ! aminBatched_64 - interface - function hipblasIsaminBatched_64(handle, n, x, incx, batch_count, result) & - bind(c, name='hipblasIsaminBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsaminBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: batch_count - type(c_ptr), value :: result - end function hipblasIsaminBatched_64 - end interface - - interface - function hipblasIdaminBatched_64(handle, n, x, incx, batch_count, result) & - bind(c, name='hipblasIdaminBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdaminBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: batch_count - type(c_ptr), value :: result - end function hipblasIdaminBatched_64 - end interface - - interface - function hipblasIcaminBatched_64(handle, n, x, incx, batch_count, result) & - bind(c, name='hipblasIcaminBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcaminBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: batch_count - type(c_ptr), value :: result - end function hipblasIcaminBatched_64 - end interface - - interface - function hipblasIzaminBatched_64(handle, n, x, incx, batch_count, result) & - bind(c, name='hipblasIzaminBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzaminBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: batch_count - type(c_ptr), value :: result - end function hipblasIzaminBatched_64 - end interface - - ! aminStridedBatched - interface - function hipblasIsaminStridedBatched(handle, n, x, incx, stride_x, batch_count, result) & - bind(c, name='hipblasIsaminStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsaminStridedBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int), value :: batch_count - type(c_ptr), value :: result - end function hipblasIsaminStridedBatched - end interface - - interface - function hipblasIdaminStridedBatched(handle, n, x, incx, stride_x, batch_count, result) & - bind(c, name='hipblasIdaminStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdaminStridedBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int), value :: batch_count - type(c_ptr), value :: result - end function hipblasIdaminStridedBatched - end interface - - interface - function hipblasIcaminStridedBatched(handle, n, x, incx, stride_x, batch_count, result) & - bind(c, name='hipblasIcaminStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcaminStridedBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int), value :: batch_count - type(c_ptr), value :: result - end function hipblasIcaminStridedBatched - end interface - - interface - function hipblasIzaminStridedBatched(handle, n, x, incx, stride_x, batch_count, result) & - bind(c, name='hipblasIzaminStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzaminStridedBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int), value :: batch_count - type(c_ptr), value :: result - end function hipblasIzaminStridedBatched - end interface - - ! aminStridedBatched_64 - interface - function hipblasIsaminStridedBatched_64(handle, n, x, incx, stride_x, batch_count, result) & - bind(c, name='hipblasIsaminStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsaminStridedBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int64_t), value :: batch_count - type(c_ptr), value :: result - end function hipblasIsaminStridedBatched_64 - end interface - - interface - function hipblasIdaminStridedBatched_64(handle, n, x, incx, stride_x, batch_count, result) & - bind(c, name='hipblasIdaminStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdaminStridedBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int64_t), value :: batch_count - type(c_ptr), value :: result - end function hipblasIdaminStridedBatched_64 - end interface - - interface - function hipblasIcaminStridedBatched_64(handle, n, x, incx, stride_x, batch_count, result) & - bind(c, name='hipblasIcaminStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcaminStridedBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int64_t), value :: batch_count - type(c_ptr), value :: result - end function hipblasIcaminStridedBatched_64 - end interface - - interface - function hipblasIzaminStridedBatched_64(handle, n, x, incx, stride_x, batch_count, result) & - bind(c, name='hipblasIzaminStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzaminStridedBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int64_t), value :: batch_count - type(c_ptr), value :: result - end function hipblasIzaminStridedBatched_64 - end interface - - ! rot - interface - function hipblasSrot(handle, n, x, incx, y, incy, c, s) & - bind(c, name='hipblasSrot') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrot - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - type(c_ptr), value :: c - type(c_ptr), value :: s - end function hipblasSrot - end interface - - interface - function hipblasDrot(handle, n, x, incx, y, incy, c, s) & - bind(c, name='hipblasDrot') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrot - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - type(c_ptr), value :: c - type(c_ptr), value :: s - end function hipblasDrot - end interface - - interface - function hipblasCrot(handle, n, x, incx, y, incy, c, s) & - bind(c, name='hipblasCrot') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrot - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - type(c_ptr), value :: c - type(c_ptr), value :: s - end function hipblasCrot - end interface - - interface - function hipblasCsrot(handle, n, x, incx, y, incy, c, s) & - bind(c, name='hipblasCsrot') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrot - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - type(c_ptr), value :: c - type(c_ptr), value :: s - end function hipblasCsrot - end interface - - interface - function hipblasZrot(handle, n, x, incx, y, incy, c, s) & - bind(c, name='hipblasZrot') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrot - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - type(c_ptr), value :: c - type(c_ptr), value :: s - end function hipblasZrot - end interface - - interface - function hipblasZdrot(handle, n, x, incx, y, incy, c, s) & - bind(c, name='hipblasZdrot') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrot - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - type(c_ptr), value :: c - type(c_ptr), value :: s - end function hipblasZdrot - end interface - - ! rot_64 - interface - function hipblasSrot_64(handle, n, x, incx, y, incy, c, s) & - bind(c, name='hipblasSrot_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrot_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - type(c_ptr), value :: c - type(c_ptr), value :: s - end function hipblasSrot_64 - end interface - - interface - function hipblasDrot_64(handle, n, x, incx, y, incy, c, s) & - bind(c, name='hipblasDrot_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrot_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - type(c_ptr), value :: c - type(c_ptr), value :: s - end function hipblasDrot_64 - end interface - - interface - function hipblasCrot_64(handle, n, x, incx, y, incy, c, s) & - bind(c, name='hipblasCrot_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrot_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - type(c_ptr), value :: c - type(c_ptr), value :: s - end function hipblasCrot_64 - end interface - - interface - function hipblasCsrot_64(handle, n, x, incx, y, incy, c, s) & - bind(c, name='hipblasCsrot_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrot_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - type(c_ptr), value :: c - type(c_ptr), value :: s - end function hipblasCsrot_64 - end interface - - interface - function hipblasZrot_64(handle, n, x, incx, y, incy, c, s) & - bind(c, name='hipblasZrot_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrot_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - type(c_ptr), value :: c - type(c_ptr), value :: s - end function hipblasZrot_64 - end interface - - interface - function hipblasZdrot_64(handle, n, x, incx, y, incy, c, s) & - bind(c, name='hipblasZdrot_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrot_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - type(c_ptr), value :: c - type(c_ptr), value :: s - end function hipblasZdrot_64 - end interface - - ! rotBatched - interface - function hipblasSrotBatched(handle, n, x, incx, y, incy, c, s, batch_count) & - bind(c, name='hipblasSrotBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - type(c_ptr), value :: c - type(c_ptr), value :: s - integer(c_int), value :: batch_count - end function hipblasSrotBatched - end interface - - interface - function hipblasDrotBatched(handle, n, x, incx, y, incy, c, s, batch_count) & - bind(c, name='hipblasDrotBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - type(c_ptr), value :: c - type(c_ptr), value :: s - integer(c_int), value :: batch_count - end function hipblasDrotBatched - end interface - - interface - function hipblasCrotBatched(handle, n, x, incx, y, incy, c, s, batch_count) & - bind(c, name='hipblasCrotBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - type(c_ptr), value :: c - type(c_ptr), value :: s - integer(c_int), value :: batch_count - end function hipblasCrotBatched - end interface - - interface - function hipblasCsrotBatched(handle, n, x, incx, y, incy, c, s, batch_count) & - bind(c, name='hipblasCsrotBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrotBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - type(c_ptr), value :: c - type(c_ptr), value :: s - integer(c_int), value :: batch_count - end function hipblasCsrotBatched - end interface - - interface - function hipblasZrotBatched(handle, n, x, incx, y, incy, c, s, batch_count) & - bind(c, name='hipblasZrotBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - type(c_ptr), value :: c - type(c_ptr), value :: s - integer(c_int), value :: batch_count - end function hipblasZrotBatched - end interface - - interface - function hipblasZdrotBatched(handle, n, x, incx, y, incy, c, s, batch_count) & - bind(c, name='hipblasZdrotBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrotBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - type(c_ptr), value :: c - type(c_ptr), value :: s - integer(c_int), value :: batch_count - end function hipblasZdrotBatched - end interface - - ! rotBatched_64 - interface - function hipblasSrotBatched_64(handle, n, x, incx, y, incy, c, s, batch_count) & - bind(c, name='hipblasSrotBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - type(c_ptr), value :: c - type(c_ptr), value :: s - integer(c_int64_t), value :: batch_count - end function hipblasSrotBatched_64 - end interface - - interface - function hipblasDrotBatched_64(handle, n, x, incx, y, incy, c, s, batch_count) & - bind(c, name='hipblasDrotBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - type(c_ptr), value :: c - type(c_ptr), value :: s - integer(c_int64_t), value :: batch_count - end function hipblasDrotBatched_64 - end interface - - interface - function hipblasCrotBatched_64(handle, n, x, incx, y, incy, c, s, batch_count) & - bind(c, name='hipblasCrotBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - type(c_ptr), value :: c - type(c_ptr), value :: s - integer(c_int64_t), value :: batch_count - end function hipblasCrotBatched_64 - end interface - - interface - function hipblasCsrotBatched_64(handle, n, x, incx, y, incy, c, s, batch_count) & - bind(c, name='hipblasCsrotBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrotBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - type(c_ptr), value :: c - type(c_ptr), value :: s - integer(c_int64_t), value :: batch_count - end function hipblasCsrotBatched_64 - end interface - - interface - function hipblasZrotBatched_64(handle, n, x, incx, y, incy, c, s, batch_count) & - bind(c, name='hipblasZrotBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - type(c_ptr), value :: c - type(c_ptr), value :: s - integer(c_int64_t), value :: batch_count - end function hipblasZrotBatched_64 - end interface - - interface - function hipblasZdrotBatched_64(handle, n, x, incx, y, incy, c, s, batch_count) & - bind(c, name='hipblasZdrotBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrotBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - type(c_ptr), value :: c - type(c_ptr), value :: s - integer(c_int64_t), value :: batch_count - end function hipblasZdrotBatched_64 - end interface - - ! rotStridedBatched - interface - function hipblasSrotStridedBatched(handle, n, x, incx, stride_x, y, incy, stride_y, c, s, batch_count) & - bind(c, name='hipblasSrotStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotStridedBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int64_t), value :: stride_y - type(c_ptr), value :: c - type(c_ptr), value :: s - integer(c_int), value :: batch_count - end function hipblasSrotStridedBatched - end interface - - interface - function hipblasDrotStridedBatched(handle, n, x, incx, stride_x, y, incy, stride_y, c, s, batch_count) & - bind(c, name='hipblasDrotStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotStridedBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int64_t), value :: stride_y - type(c_ptr), value :: c - type(c_ptr), value :: s - integer(c_int), value :: batch_count - end function hipblasDrotStridedBatched - end interface - - interface - function hipblasCrotStridedBatched(handle, n, x, incx, stride_x, y, incy, stride_y, c, s, batch_count) & - bind(c, name='hipblasCrotStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotStridedBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int64_t), value :: stride_y - type(c_ptr), value :: c - type(c_ptr), value :: s - integer(c_int), value :: batch_count - end function hipblasCrotStridedBatched - end interface - - interface - function hipblasCsrotStridedBatched(handle, n, x, incx, stride_x, y, incy, stride_y, c, s, batch_count) & - bind(c, name='hipblasCsrotStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrotStridedBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int64_t), value :: stride_y - type(c_ptr), value :: c - type(c_ptr), value :: s - integer(c_int), value :: batch_count - end function hipblasCsrotStridedBatched - end interface - - interface - function hipblasZrotStridedBatched(handle, n, x, incx, stride_x, y, incy, stride_y, c, s, batch_count) & - bind(c, name='hipblasZrotStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotStridedBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int64_t), value :: stride_y - type(c_ptr), value :: c - type(c_ptr), value :: s - integer(c_int), value :: batch_count - end function hipblasZrotStridedBatched - end interface - - interface - function hipblasZdrotStridedBatched(handle, n, x, incx, stride_x, y, incy, stride_y, c, s, batch_count) & - bind(c, name='hipblasZdrotStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrotStridedBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int64_t), value :: stride_y - type(c_ptr), value :: c - type(c_ptr), value :: s - integer(c_int), value :: batch_count - end function hipblasZdrotStridedBatched - end interface - - ! rotStridedBatched_64 - interface - function hipblasSrotStridedBatched_64(handle, n, x, incx, stride_x, y, incy, stride_y, c, s, batch_count) & - bind(c, name='hipblasSrotStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotStridedBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: stride_y - type(c_ptr), value :: c - type(c_ptr), value :: s - integer(c_int64_t), value :: batch_count - end function hipblasSrotStridedBatched_64 - end interface - - interface - function hipblasDrotStridedBatched_64(handle, n, x, incx, stride_x, y, incy, stride_y, c, s, batch_count) & - bind(c, name='hipblasDrotStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotStridedBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: stride_y - type(c_ptr), value :: c - type(c_ptr), value :: s - integer(c_int64_t), value :: batch_count - end function hipblasDrotStridedBatched_64 - end interface - - interface - function hipblasCrotStridedBatched_64(handle, n, x, incx, stride_x, y, incy, stride_y, c, s, batch_count) & - bind(c, name='hipblasCrotStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotStridedBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: stride_y - type(c_ptr), value :: c - type(c_ptr), value :: s - integer(c_int64_t), value :: batch_count - end function hipblasCrotStridedBatched_64 - end interface - - interface - function hipblasCsrotStridedBatched_64(handle, n, x, incx, stride_x, y, incy, stride_y, c, s, batch_count) & - bind(c, name='hipblasCsrotStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrotStridedBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: stride_y - type(c_ptr), value :: c - type(c_ptr), value :: s - integer(c_int64_t), value :: batch_count - end function hipblasCsrotStridedBatched_64 - end interface - - interface - function hipblasZrotStridedBatched_64(handle, n, x, incx, stride_x, y, incy, stride_y, c, s, batch_count) & - bind(c, name='hipblasZrotStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotStridedBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: stride_y - type(c_ptr), value :: c - type(c_ptr), value :: s - integer(c_int64_t), value :: batch_count - end function hipblasZrotStridedBatched_64 - end interface - - interface - function hipblasZdrotStridedBatched_64(handle, n, x, incx, stride_x, y, incy, stride_y, c, s, batch_count) & - bind(c, name='hipblasZdrotStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrotStridedBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: stride_y - type(c_ptr), value :: c - type(c_ptr), value :: s - integer(c_int64_t), value :: batch_count - end function hipblasZdrotStridedBatched_64 - end interface - - ! rotg - interface - function hipblasSrotg(handle, a, b, c, s) & - bind(c, name='hipblasSrotg') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotg - type(c_ptr), value :: handle - type(c_ptr), value :: a - type(c_ptr), value :: b - type(c_ptr), value :: c - type(c_ptr), value :: s - end function hipblasSrotg - end interface - - interface - function hipblasDrotg(handle, a, b, c, s) & - bind(c, name='hipblasDrotg') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotg - type(c_ptr), value :: handle - type(c_ptr), value :: a - type(c_ptr), value :: b - type(c_ptr), value :: c - type(c_ptr), value :: s - end function hipblasDrotg - end interface - - interface - function hipblasCrotg(handle, a, b, c, s) & - bind(c, name='hipblasCrotg') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotg - type(c_ptr), value :: handle - type(c_ptr), value :: a - type(c_ptr), value :: b - type(c_ptr), value :: c - type(c_ptr), value :: s - end function hipblasCrotg - end interface - - interface - function hipblasZrotg(handle, a, b, c, s) & - bind(c, name='hipblasZrotg') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotg - type(c_ptr), value :: handle - type(c_ptr), value :: a - type(c_ptr), value :: b - type(c_ptr), value :: c - type(c_ptr), value :: s - end function hipblasZrotg - end interface - - ! rotg_64 - interface - function hipblasSrotg_64(handle, a, b, c, s) & - bind(c, name='hipblasSrotg_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotg_64 - type(c_ptr), value :: handle - type(c_ptr), value :: a - type(c_ptr), value :: b - type(c_ptr), value :: c - type(c_ptr), value :: s - end function hipblasSrotg_64 - end interface - - interface - function hipblasDrotg_64(handle, a, b, c, s) & - bind(c, name='hipblasDrotg_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotg_64 - type(c_ptr), value :: handle - type(c_ptr), value :: a - type(c_ptr), value :: b - type(c_ptr), value :: c - type(c_ptr), value :: s - end function hipblasDrotg_64 - end interface - - interface - function hipblasCrotg_64(handle, a, b, c, s) & - bind(c, name='hipblasCrotg_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotg_64 - type(c_ptr), value :: handle - type(c_ptr), value :: a - type(c_ptr), value :: b - type(c_ptr), value :: c - type(c_ptr), value :: s - end function hipblasCrotg_64 - end interface - - interface - function hipblasZrotg_64(handle, a, b, c, s) & - bind(c, name='hipblasZrotg_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotg_64 - type(c_ptr), value :: handle - type(c_ptr), value :: a - type(c_ptr), value :: b - type(c_ptr), value :: c - type(c_ptr), value :: s - end function hipblasZrotg_64 - end interface - - ! rotgBatched - interface - function hipblasSrotgBatched(handle, a, b, c, s, batch_count) & - bind(c, name='hipblasSrotgBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotgBatched - type(c_ptr), value :: handle - type(c_ptr), value :: a - type(c_ptr), value :: b - type(c_ptr), value :: c - type(c_ptr), value :: s - integer(c_int), value :: batch_count - end function hipblasSrotgBatched - end interface - - interface - function hipblasDrotgBatched(handle, a, b, c, s, batch_count) & - bind(c, name='hipblasDrotgBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotgBatched - type(c_ptr), value :: handle - type(c_ptr), value :: a - type(c_ptr), value :: b - type(c_ptr), value :: c - type(c_ptr), value :: s - integer(c_int), value :: batch_count - end function hipblasDrotgBatched - end interface - - interface - function hipblasCrotgBatched(handle, a, b, c, s, batch_count) & - bind(c, name='hipblasCrotgBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotgBatched - type(c_ptr), value :: handle - type(c_ptr), value :: a - type(c_ptr), value :: b - type(c_ptr), value :: c - type(c_ptr), value :: s - integer(c_int), value :: batch_count - end function hipblasCrotgBatched - end interface - - interface - function hipblasZrotgBatched(handle, a, b, c, s, batch_count) & - bind(c, name='hipblasZrotgBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotgBatched - type(c_ptr), value :: handle - type(c_ptr), value :: a - type(c_ptr), value :: b - type(c_ptr), value :: c - type(c_ptr), value :: s - integer(c_int), value :: batch_count - end function hipblasZrotgBatched - end interface - - ! rotgBatched_64 - interface - function hipblasSrotgBatched_64(handle, a, b, c, s, batch_count) & - bind(c, name='hipblasSrotgBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotgBatched_64 - type(c_ptr), value :: handle - type(c_ptr), value :: a - type(c_ptr), value :: b - type(c_ptr), value :: c - type(c_ptr), value :: s - integer(c_int64_t), value :: batch_count - end function hipblasSrotgBatched_64 - end interface - - interface - function hipblasDrotgBatched_64(handle, a, b, c, s, batch_count) & - bind(c, name='hipblasDrotgBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotgBatched_64 - type(c_ptr), value :: handle - type(c_ptr), value :: a - type(c_ptr), value :: b - type(c_ptr), value :: c - type(c_ptr), value :: s - integer(c_int64_t), value :: batch_count - end function hipblasDrotgBatched_64 - end interface - - interface - function hipblasCrotgBatched_64(handle, a, b, c, s, batch_count) & - bind(c, name='hipblasCrotgBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotgBatched_64 - type(c_ptr), value :: handle - type(c_ptr), value :: a - type(c_ptr), value :: b - type(c_ptr), value :: c - type(c_ptr), value :: s - integer(c_int64_t), value :: batch_count - end function hipblasCrotgBatched_64 - end interface - - interface - function hipblasZrotgBatched_64(handle, a, b, c, s, batch_count) & - bind(c, name='hipblasZrotgBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotgBatched_64 - type(c_ptr), value :: handle - type(c_ptr), value :: a - type(c_ptr), value :: b - type(c_ptr), value :: c - type(c_ptr), value :: s - integer(c_int64_t), value :: batch_count - end function hipblasZrotgBatched_64 - end interface - - ! rotgStridedBatched - interface - function hipblasSrotgStridedBatched(handle, a, stride_a, b, stride_b, c, stride_c, s, stride_s, batch_count) & - bind(c, name='hipblasSrotgStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotgStridedBatched - type(c_ptr), value :: handle - type(c_ptr), value :: a - integer(c_int64_t), value :: stride_a - type(c_ptr), value :: b - integer(c_int64_t), value :: stride_b - type(c_ptr), value :: c - integer(c_int64_t), value :: stride_c - type(c_ptr), value :: s - integer(c_int64_t), value :: stride_s - integer(c_int), value :: batch_count - end function hipblasSrotgStridedBatched - end interface - - interface - function hipblasDrotgStridedBatched(handle, a, stride_a, b, stride_b, c, stride_c, s, stride_s, batch_count) & - bind(c, name='hipblasDrotgStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotgStridedBatched - type(c_ptr), value :: handle - type(c_ptr), value :: a - integer(c_int64_t), value :: stride_a - type(c_ptr), value :: b - integer(c_int64_t), value :: stride_b - type(c_ptr), value :: c - integer(c_int64_t), value :: stride_c - type(c_ptr), value :: s - integer(c_int64_t), value :: stride_s - integer(c_int), value :: batch_count - end function hipblasDrotgStridedBatched - end interface - - interface - function hipblasCrotgStridedBatched(handle, a, stride_a, b, stride_b, c, stride_c, s, stride_s, batch_count) & - bind(c, name='hipblasCrotgStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotgStridedBatched - type(c_ptr), value :: handle - type(c_ptr), value :: a - integer(c_int64_t), value :: stride_a - type(c_ptr), value :: b - integer(c_int64_t), value :: stride_b - type(c_ptr), value :: c - integer(c_int64_t), value :: stride_c - type(c_ptr), value :: s - integer(c_int64_t), value :: stride_s - integer(c_int), value :: batch_count - end function hipblasCrotgStridedBatched - end interface - - interface - function hipblasZrotgStridedBatched(handle, a, stride_a, b, stride_b, c, stride_c, s, stride_s, batch_count) & - bind(c, name='hipblasZrotgStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotgStridedBatched - type(c_ptr), value :: handle - type(c_ptr), value :: a - integer(c_int64_t), value :: stride_a - type(c_ptr), value :: b - integer(c_int64_t), value :: stride_b - type(c_ptr), value :: c - integer(c_int64_t), value :: stride_c - type(c_ptr), value :: s - integer(c_int64_t), value :: stride_s - integer(c_int), value :: batch_count - end function hipblasZrotgStridedBatched - end interface - - ! rotgStridedBatched_64 - interface - function hipblasSrotgStridedBatched_64(handle, a, stride_a, b, stride_b, c, stride_c, s, stride_s, batch_count) & - bind(c, name='hipblasSrotgStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotgStridedBatched_64 - type(c_ptr), value :: handle - type(c_ptr), value :: a - integer(c_int64_t), value :: stride_a - type(c_ptr), value :: b - integer(c_int64_t), value :: stride_b - type(c_ptr), value :: c - integer(c_int64_t), value :: stride_c - type(c_ptr), value :: s - integer(c_int64_t), value :: stride_s - integer(c_int64_t), value :: batch_count - end function hipblasSrotgStridedBatched_64 - end interface - - interface - function hipblasDrotgStridedBatched_64(handle, a, stride_a, b, stride_b, c, stride_c, s, stride_s, batch_count) & - bind(c, name='hipblasDrotgStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotgStridedBatched_64 - type(c_ptr), value :: handle - type(c_ptr), value :: a - integer(c_int64_t), value :: stride_a - type(c_ptr), value :: b - integer(c_int64_t), value :: stride_b - type(c_ptr), value :: c - integer(c_int64_t), value :: stride_c - type(c_ptr), value :: s - integer(c_int64_t), value :: stride_s - integer(c_int64_t), value :: batch_count - end function hipblasDrotgStridedBatched_64 - end interface - - interface - function hipblasCrotgStridedBatched_64(handle, a, stride_a, b, stride_b, c, stride_c, s, stride_s, batch_count) & - bind(c, name='hipblasCrotgStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotgStridedBatched_64 - type(c_ptr), value :: handle - type(c_ptr), value :: a - integer(c_int64_t), value :: stride_a - type(c_ptr), value :: b - integer(c_int64_t), value :: stride_b - type(c_ptr), value :: c - integer(c_int64_t), value :: stride_c - type(c_ptr), value :: s - integer(c_int64_t), value :: stride_s - integer(c_int64_t), value :: batch_count - end function hipblasCrotgStridedBatched_64 - end interface - - interface - function hipblasZrotgStridedBatched_64(handle, a, stride_a, b, stride_b, c, stride_c, s, stride_s, batch_count) & - bind(c, name='hipblasZrotgStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotgStridedBatched_64 - type(c_ptr), value :: handle - type(c_ptr), value :: a - integer(c_int64_t), value :: stride_a - type(c_ptr), value :: b - integer(c_int64_t), value :: stride_b - type(c_ptr), value :: c - integer(c_int64_t), value :: stride_c - type(c_ptr), value :: s - integer(c_int64_t), value :: stride_s - integer(c_int64_t), value :: batch_count - end function hipblasZrotgStridedBatched_64 - end interface - - ! rotm - interface - function hipblasSrotm(handle, n, x, incx, y, incy, param) & - bind(c, name='hipblasSrotm') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotm - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - type(c_ptr), value :: param - end function hipblasSrotm - end interface - - interface - function hipblasDrotm(handle, n, x, incx, y, incy, param) & - bind(c, name='hipblasDrotm') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotm - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - type(c_ptr), value :: param - end function hipblasDrotm - end interface - - ! rotm_64 - interface - function hipblasSrotm_64(handle, n, x, incx, y, incy, param) & - bind(c, name='hipblasSrotm_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotm_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - type(c_ptr), value :: param - end function hipblasSrotm_64 - end interface - - interface - function hipblasDrotm_64(handle, n, x, incx, y, incy, param) & - bind(c, name='hipblasDrotm_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotm_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - type(c_ptr), value :: param - end function hipblasDrotm_64 - end interface - - ! rotmBatched - interface - function hipblasSrotmBatched(handle, n, x, incx, y, incy, param, batch_count) & - bind(c, name='hipblasSrotmBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - type(c_ptr), value :: param - integer(c_int), value :: batch_count - end function hipblasSrotmBatched - end interface - - interface - function hipblasDrotmBatched(handle, n, x, incx, y, incy, param, batch_count) & - bind(c, name='hipblasDrotmBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - type(c_ptr), value :: param - integer(c_int), value :: batch_count - end function hipblasDrotmBatched - end interface - - ! rotmBatched_64 - interface - function hipblasSrotmBatched_64(handle, n, x, incx, y, incy, param, batch_count) & - bind(c, name='hipblasSrotmBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - type(c_ptr), value :: param - integer(c_int64_t), value :: batch_count - end function hipblasSrotmBatched_64 - end interface - - interface - function hipblasDrotmBatched_64(handle, n, x, incx, y, incy, param, batch_count) & - bind(c, name='hipblasDrotmBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - type(c_ptr), value :: param - integer(c_int64_t), value :: batch_count - end function hipblasDrotmBatched_64 - end interface - - ! rotmStridedBatched - interface - function hipblasSrotmStridedBatched(handle, n, x, incx, stride_x, y, incy, stride_y, param, stride_param, batch_count) & - bind(c, name='hipblasSrotmStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmStridedBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int64_t), value :: stride_y - type(c_ptr), value :: param - integer(c_int64_t), value :: stride_param - integer(c_int), value :: batch_count - end function hipblasSrotmStridedBatched - end interface - - interface - function hipblasDrotmStridedBatched(handle, n, x, incx, stride_x, y, incy, stride_y, param, stride_param, batch_count) & - bind(c, name='hipblasDrotmStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmStridedBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int64_t), value :: stride_y - type(c_ptr), value :: param - integer(c_int64_t), value :: stride_param - integer(c_int), value :: batch_count - end function hipblasDrotmStridedBatched - end interface - - ! rotmStridedBatched_64 - interface - function hipblasSrotmStridedBatched_64(handle, n, x, incx, stride_x, y, incy, stride_y, param, stride_param, batch_count) & - bind(c, name='hipblasSrotmStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmStridedBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: stride_y - type(c_ptr), value :: param - integer(c_int64_t), value :: stride_param - integer(c_int64_t), value :: batch_count - end function hipblasSrotmStridedBatched_64 - end interface - - interface - function hipblasDrotmStridedBatched_64(handle, n, x, incx, stride_x, y, incy, stride_y, param, stride_param, batch_count) & - bind(c, name='hipblasDrotmStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmStridedBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: stride_y - type(c_ptr), value :: param - integer(c_int64_t), value :: stride_param - integer(c_int64_t), value :: batch_count - end function hipblasDrotmStridedBatched_64 - end interface - - ! rotmg - interface - function hipblasSrotmg(handle, d1, d2, x1, y1, param) & - bind(c, name='hipblasSrotmg') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmg - type(c_ptr), value :: handle - type(c_ptr), value :: d1 - type(c_ptr), value :: d2 - type(c_ptr), value :: x1 - type(c_ptr), value :: y1 - type(c_ptr), value :: param - end function hipblasSrotmg - end interface - - interface - function hipblasDrotmg(handle, d1, d2, x1, y1, param) & - bind(c, name='hipblasDrotmg') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmg - type(c_ptr), value :: handle - type(c_ptr), value :: d1 - type(c_ptr), value :: d2 - type(c_ptr), value :: x1 - type(c_ptr), value :: y1 - type(c_ptr), value :: param - end function hipblasDrotmg - end interface - - ! rotmg_64 - interface - function hipblasSrotmg_64(handle, d1, d2, x1, y1, param) & - bind(c, name='hipblasSrotmg_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmg_64 - type(c_ptr), value :: handle - type(c_ptr), value :: d1 - type(c_ptr), value :: d2 - type(c_ptr), value :: x1 - type(c_ptr), value :: y1 - type(c_ptr), value :: param - end function hipblasSrotmg_64 - end interface - - interface - function hipblasDrotmg_64(handle, d1, d2, x1, y1, param) & - bind(c, name='hipblasDrotmg_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmg_64 - type(c_ptr), value :: handle - type(c_ptr), value :: d1 - type(c_ptr), value :: d2 - type(c_ptr), value :: x1 - type(c_ptr), value :: y1 - type(c_ptr), value :: param - end function hipblasDrotmg_64 - end interface - - ! rotmgBatched - interface - function hipblasSrotmgBatched(handle, d1, d2, x1, y1, param, batch_count) & - bind(c, name='hipblasSrotmgBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmgBatched - type(c_ptr), value :: handle - type(c_ptr), value :: d1 - type(c_ptr), value :: d2 - type(c_ptr), value :: x1 - type(c_ptr), value :: y1 - type(c_ptr), value :: param - integer(c_int), value :: batch_count - end function hipblasSrotmgBatched - end interface - - interface - function hipblasDrotmgBatched(handle, d1, d2, x1, y1, param, batch_count) & - bind(c, name='hipblasDrotmgBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmgBatched - type(c_ptr), value :: handle - type(c_ptr), value :: d1 - type(c_ptr), value :: d2 - type(c_ptr), value :: x1 - type(c_ptr), value :: y1 - type(c_ptr), value :: param - integer(c_int), value :: batch_count - end function hipblasDrotmgBatched - end interface - - ! rotmgBatched_64 - interface - function hipblasSrotmgBatched_64(handle, d1, d2, x1, y1, param, batch_count) & - bind(c, name='hipblasSrotmgBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmgBatched_64 - type(c_ptr), value :: handle - type(c_ptr), value :: d1 - type(c_ptr), value :: d2 - type(c_ptr), value :: x1 - type(c_ptr), value :: y1 - type(c_ptr), value :: param - integer(c_int64_t), value :: batch_count - end function hipblasSrotmgBatched_64 - end interface - - interface - function hipblasDrotmgBatched_64(handle, d1, d2, x1, y1, param, batch_count) & - bind(c, name='hipblasDrotmgBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmgBatched_64 - type(c_ptr), value :: handle - type(c_ptr), value :: d1 - type(c_ptr), value :: d2 - type(c_ptr), value :: x1 - type(c_ptr), value :: y1 - type(c_ptr), value :: param - integer(c_int64_t), value :: batch_count - end function hipblasDrotmgBatched_64 - end interface - - ! rotmgStridedBatched - interface - function hipblasSrotmgStridedBatched(handle, d1, stride_d1, d2, stride_d2, x1, stride_x1, & - y1, stride_y1, param, stride_param, batch_count) & - bind(c, name='hipblasSrotmgStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmgStridedBatched - type(c_ptr), value :: handle - type(c_ptr), value :: d1 - integer(c_int64_t), value :: stride_d1 - type(c_ptr), value :: d2 - integer(c_int64_t), value :: stride_d2 - type(c_ptr), value :: x1 - integer(c_int64_t), value :: stride_x1 - type(c_ptr), value :: y1 - integer(c_int64_t), value :: stride_y1 - type(c_ptr), value :: param - integer(c_int64_t), value :: stride_param - integer(c_int), value :: batch_count - end function hipblasSrotmgStridedBatched - end interface - - interface - function hipblasDrotmgStridedBatched(handle, d1, stride_d1, d2, stride_d2, x1, stride_x1, & - y1, stride_y1, param, stride_param, batch_count) & - bind(c, name='hipblasDrotmgStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmgStridedBatched - type(c_ptr), value :: handle - type(c_ptr), value :: d1 - integer(c_int64_t), value :: stride_d1 - type(c_ptr), value :: d2 - integer(c_int64_t), value :: stride_d2 - type(c_ptr), value :: x1 - integer(c_int64_t), value :: stride_x1 - type(c_ptr), value :: y1 - integer(c_int64_t), value :: stride_y1 - type(c_ptr), value :: param - integer(c_int64_t), value :: stride_param - integer(c_int), value :: batch_count - end function hipblasDrotmgStridedBatched - end interface - - ! rotmgStridedBatched_64 - interface - function hipblasSrotmgStridedBatched_64(handle, d1, stride_d1, d2, stride_d2, x1, stride_x1, & - y1, stride_y1, param, stride_param, batch_count) & - bind(c, name='hipblasSrotmgStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmgStridedBatched_64 - type(c_ptr), value :: handle - type(c_ptr), value :: d1 - integer(c_int64_t), value :: stride_d1 - type(c_ptr), value :: d2 - integer(c_int64_t), value :: stride_d2 - type(c_ptr), value :: x1 - integer(c_int64_t), value :: stride_x1 - type(c_ptr), value :: y1 - integer(c_int64_t), value :: stride_y1 - type(c_ptr), value :: param - integer(c_int64_t), value :: stride_param - integer(c_int64_t), value :: batch_count - end function hipblasSrotmgStridedBatched_64 - end interface - - interface - function hipblasDrotmgStridedBatched_64(handle, d1, stride_d1, d2, stride_d2, x1, stride_x1, & - y1, stride_y1, param, stride_param, batch_count) & - bind(c, name='hipblasDrotmgStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmgStridedBatched_64 - type(c_ptr), value :: handle - type(c_ptr), value :: d1 - integer(c_int64_t), value :: stride_d1 - type(c_ptr), value :: d2 - integer(c_int64_t), value :: stride_d2 - type(c_ptr), value :: x1 - integer(c_int64_t), value :: stride_x1 - type(c_ptr), value :: y1 - integer(c_int64_t), value :: stride_y1 - type(c_ptr), value :: param - integer(c_int64_t), value :: stride_param - integer(c_int64_t), value :: batch_count - end function hipblasDrotmgStridedBatched_64 - end interface - - !--------! - ! blas 2 ! - !--------! - - ! gbmv - interface - function hipblasSgbmv(handle, trans, m, n, kl, ku, alpha, A, lda, x, incx, beta, y, incy) & - bind(c, name='hipblasSgbmv') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmv - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: trans - integer(c_int), value :: m - integer(c_int), value :: n - integer(c_int), value :: kl - integer(c_int), value :: ku - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int), value :: incy - end function hipblasSgbmv - end interface - - interface - function hipblasDgbmv(handle, trans, m, n, kl, ku, alpha, A, lda, x, incx, beta, y, incy) & - bind(c, name='hipblasDgbmv') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmv - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: trans - integer(c_int), value :: m - integer(c_int), value :: n - integer(c_int), value :: kl - integer(c_int), value :: ku - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int), value :: incy - end function hipblasDgbmv - end interface - - interface - function hipblasCgbmv(handle, trans, m, n, kl, ku, alpha, A, lda, x, incx, beta, y, incy) & - bind(c, name='hipblasCgbmv') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmv - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: trans - integer(c_int), value :: m - integer(c_int), value :: n - integer(c_int), value :: kl - integer(c_int), value :: ku - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int), value :: incy - end function hipblasCgbmv - end interface - - interface - function hipblasZgbmv(handle, trans, m, n, kl, ku, alpha, A, lda, x, incx, beta, y, incy) & - bind(c, name='hipblasZgbmv') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmv - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: trans - integer(c_int), value :: m - integer(c_int), value :: n - integer(c_int), value :: kl - integer(c_int), value :: ku - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int), value :: incy - end function hipblasZgbmv - end interface - - ! gbmv_64 - interface - function hipblasSgbmv_64(handle, trans, m, n, kl, ku, alpha, A, lda, x, incx, beta, y, incy) & - bind(c, name='hipblasSgbmv_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmv_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: trans - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - integer(c_int64_t), value :: kl - integer(c_int64_t), value :: ku - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - end function hipblasSgbmv_64 - end interface - - interface - function hipblasDgbmv_64(handle, trans, m, n, kl, ku, alpha, A, lda, x, incx, beta, y, incy) & - bind(c, name='hipblasDgbmv_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmv_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: trans - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - integer(c_int64_t), value :: kl - integer(c_int64_t), value :: ku - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - end function hipblasDgbmv_64 - end interface - - interface - function hipblasCgbmv_64(handle, trans, m, n, kl, ku, alpha, A, lda, x, incx, beta, y, incy) & - bind(c, name='hipblasCgbmv_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmv_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: trans - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - integer(c_int64_t), value :: kl - integer(c_int64_t), value :: ku - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - end function hipblasCgbmv_64 - end interface - - interface - function hipblasZgbmv_64(handle, trans, m, n, kl, ku, alpha, A, lda, x, incx, beta, y, incy) & - bind(c, name='hipblasZgbmv_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmv_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: trans - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - integer(c_int64_t), value :: kl - integer(c_int64_t), value :: ku - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - end function hipblasZgbmv_64 - end interface - - ! gbmvBatched - interface - function hipblasSgbmvBatched(handle, trans, m, n, kl, ku, alpha, A, lda, & - x, incx, beta, y, incy, batch_count) & - bind(c, name='hipblasSgbmvBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmvBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: trans - integer(c_int), value :: m - integer(c_int), value :: n - integer(c_int), value :: kl - integer(c_int), value :: ku - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int), value :: batch_count - end function hipblasSgbmvBatched - end interface - - interface - function hipblasDgbmvBatched(handle, trans, m, n, kl, ku, alpha, A, lda, & - x, incx, beta, y, incy, batch_count) & - bind(c, name='hipblasDgbmvBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmvBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: trans - integer(c_int), value :: m - integer(c_int), value :: n - integer(c_int), value :: kl - integer(c_int), value :: ku - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int), value :: batch_count - end function hipblasDgbmvBatched - end interface - - interface - function hipblasCgbmvBatched(handle, trans, m, n, kl, ku, alpha, A, lda, & - x, incx, beta, y, incy, batch_count) & - bind(c, name='hipblasCgbmvBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmvBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: trans - integer(c_int), value :: m - integer(c_int), value :: n - integer(c_int), value :: kl - integer(c_int), value :: ku - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int), value :: batch_count - end function hipblasCgbmvBatched - end interface - - interface - function hipblasZgbmvBatched(handle, trans, m, n, kl, ku, alpha, A, lda, & - x, incx, beta, y, incy, batch_count) & - bind(c, name='hipblasZgbmvBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmvBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: trans - integer(c_int), value :: m - integer(c_int), value :: n - integer(c_int), value :: kl - integer(c_int), value :: ku - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int), value :: batch_count - end function hipblasZgbmvBatched - end interface - - ! gbmvBatched_64 - interface - function hipblasSgbmvBatched_64(handle, trans, m, n, kl, ku, alpha, A, lda, & - x, incx, beta, y, incy, batch_count) & - bind(c, name='hipblasSgbmvBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmvBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: trans - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - integer(c_int64_t), value :: kl - integer(c_int64_t), value :: ku - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: batch_count - end function hipblasSgbmvBatched_64 - end interface - - interface - function hipblasDgbmvBatched_64(handle, trans, m, n, kl, ku, alpha, A, lda, & - x, incx, beta, y, incy, batch_count) & - bind(c, name='hipblasDgbmvBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmvBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: trans - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - integer(c_int64_t), value :: kl - integer(c_int64_t), value :: ku - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: batch_count - end function hipblasDgbmvBatched_64 - end interface - - interface - function hipblasCgbmvBatched_64(handle, trans, m, n, kl, ku, alpha, A, lda, & - x, incx, beta, y, incy, batch_count) & - bind(c, name='hipblasCgbmvBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmvBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: trans - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - integer(c_int64_t), value :: kl - integer(c_int64_t), value :: ku - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: batch_count - end function hipblasCgbmvBatched_64 - end interface - - interface - function hipblasZgbmvBatched_64(handle, trans, m, n, kl, ku, alpha, A, lda, & - x, incx, beta, y, incy, batch_count) & - bind(c, name='hipblasZgbmvBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmvBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: trans - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - integer(c_int64_t), value :: kl - integer(c_int64_t), value :: ku - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: batch_count - end function hipblasZgbmvBatched_64 - end interface - - ! gbmvStridedBatched - interface - function hipblasSgbmvStridedBatched(handle, trans, m, n, kl, ku, alpha, A, lda, stride_A, & - x, incx, stride_x, beta, y, incy, stride_y, batch_count) & - bind(c, name='hipblasSgbmvStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmvStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: trans - integer(c_int), value :: m - integer(c_int), value :: n - integer(c_int), value :: kl - integer(c_int), value :: ku - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int), value :: batch_count - end function hipblasSgbmvStridedBatched - end interface - - interface - function hipblasDgbmvStridedBatched(handle, trans, m, n, kl, ku, alpha, A, lda, stride_A, & - x, incx, stride_x, beta, y, incy, stride_y, batch_count) & - bind(c, name='hipblasDgbmvStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmvStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: trans - integer(c_int), value :: m - integer(c_int), value :: n - integer(c_int), value :: kl - integer(c_int), value :: ku - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int), value :: batch_count - end function hipblasDgbmvStridedBatched - end interface - - interface - function hipblasCgbmvStridedBatched(handle, trans, m, n, kl, ku, alpha, A, lda, stride_A, & - x, incx, stride_x, beta, y, incy, stride_y, batch_count) & - bind(c, name='hipblasCgbmvStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmvStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: trans - integer(c_int), value :: m - integer(c_int), value :: n - integer(c_int), value :: kl - integer(c_int), value :: ku - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int), value :: batch_count - end function hipblasCgbmvStridedBatched - end interface - - interface - function hipblasZgbmvStridedBatched(handle, trans, m, n, kl, ku, alpha, A, lda, stride_A, & - x, incx, stride_x, beta, y, incy, stride_y, batch_count) & - bind(c, name='hipblasZgbmvStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmvStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: trans - integer(c_int), value :: m - integer(c_int), value :: n - integer(c_int), value :: kl - integer(c_int), value :: ku - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int), value :: batch_count - end function hipblasZgbmvStridedBatched - end interface - - ! gbmvStridedBatched_64 - interface - function hipblasSgbmvStridedBatched_64(handle, trans, m, n, kl, ku, alpha, A, lda, stride_A, & - x, incx, stride_x, beta, y, incy, stride_y, batch_count) & - bind(c, name='hipblasSgbmvStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmvStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: trans - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - integer(c_int64_t), value :: kl - integer(c_int64_t), value :: ku - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int64_t), value :: batch_count - end function hipblasSgbmvStridedBatched_64 - end interface - - interface - function hipblasDgbmvStridedBatched_64(handle, trans, m, n, kl, ku, alpha, A, lda, stride_A, & - x, incx, stride_x, beta, y, incy, stride_y, batch_count) & - bind(c, name='hipblasDgbmvStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmvStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: trans - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - integer(c_int64_t), value :: kl - integer(c_int64_t), value :: ku - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int64_t), value :: batch_count - end function hipblasDgbmvStridedBatched_64 - end interface - - interface - function hipblasCgbmvStridedBatched_64(handle, trans, m, n, kl, ku, alpha, A, lda, stride_A, & - x, incx, stride_x, beta, y, incy, stride_y, batch_count) & - bind(c, name='hipblasCgbmvStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmvStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: trans - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - integer(c_int64_t), value :: kl - integer(c_int64_t), value :: ku - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int64_t), value :: batch_count - end function hipblasCgbmvStridedBatched_64 - end interface - - interface - function hipblasZgbmvStridedBatched_64(handle, trans, m, n, kl, ku, alpha, A, lda, stride_A, & - x, incx, stride_x, beta, y, incy, stride_y, batch_count) & - bind(c, name='hipblasZgbmvStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmvStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: trans - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - integer(c_int64_t), value :: kl - integer(c_int64_t), value :: ku - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int64_t), value :: batch_count - end function hipblasZgbmvStridedBatched_64 - end interface - - ! gemv - interface - function hipblasSgemv(handle, trans, m, n, alpha, A, lda, & - x, incx, beta, y, incy) & - bind(c, name='hipblasSgemv') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemv - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: trans - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int), value :: incy - end function hipblasSgemv - end interface - - interface - function hipblasDgemv(handle, trans, m, n, alpha, A, lda, & - x, incx, beta, y, incy) & - bind(c, name='hipblasDgemv') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemv - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: trans - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int), value :: incy - end function hipblasDgemv - end interface - - interface - function hipblasCgemv(handle, trans, m, n, alpha, A, lda, & - x, incx, beta, y, incy) & - bind(c, name='hipblasCgemv') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemv - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: trans - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int), value :: incy - end function hipblasCgemv - end interface - - interface - function hipblasZgemv(handle, trans, m, n, alpha, A, lda, & - x, incx, beta, y, incy) & - bind(c, name='hipblasZgemv') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemv - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: trans - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int), value :: incy - end function hipblasZgemv - end interface - - ! gemv_64 - interface - function hipblasSgemv_64(handle, trans, m, n, alpha, A, lda, & - x, incx, beta, y, incy) & - bind(c, name='hipblasSgemv_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemv_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: trans - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - end function hipblasSgemv_64 - end interface - - interface - function hipblasDgemv_64(handle, trans, m, n, alpha, A, lda, & - x, incx, beta, y, incy) & - bind(c, name='hipblasDgemv_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemv_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: trans - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - end function hipblasDgemv_64 - end interface - - interface - function hipblasCgemv_64(handle, trans, m, n, alpha, A, lda, & - x, incx, beta, y, incy) & - bind(c, name='hipblasCgemv_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemv_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: trans - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - end function hipblasCgemv_64 - end interface - - interface - function hipblasZgemv_64(handle, trans, m, n, alpha, A, lda, & - x, incx, beta, y, incy) & - bind(c, name='hipblasZgemv_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemv_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: trans - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - end function hipblasZgemv_64 - end interface - - ! gemvBatched - interface - function hipblasSgemvBatched(handle, trans, m, n, alpha, A, lda, & - x, incx, beta, y, incy, batch_count) & - bind(c, name='hipblasSgemvBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemvBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: trans - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int), value :: batch_count - end function hipblasSgemvBatched - end interface - - interface - function hipblasDgemvBatched(handle, trans, m, n, alpha, A, lda, & - x, incx, beta, y, incy, batch_count) & - bind(c, name='hipblasDgemvBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemvBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: trans - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int), value :: batch_count - end function hipblasDgemvBatched - end interface - - interface - function hipblasCgemvBatched(handle, trans, m, n, alpha, A, lda, & - x, incx, beta, y, incy, batch_count) & - bind(c, name='hipblasCgemvBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemvBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: trans - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int), value :: batch_count - end function hipblasCgemvBatched - end interface - - interface - function hipblasZgemvBatched(handle, trans, m, n, alpha, A, lda, & - x, incx, beta, y, incy, batch_count) & - bind(c, name='hipblasZgemvBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemvBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: trans - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int), value :: batch_count - end function hipblasZgemvBatched - end interface - - ! gemvBatched_64 - interface - function hipblasSgemvBatched_64(handle, trans, m, n, alpha, A, lda, & - x, incx, beta, y, incy, batch_count) & - bind(c, name='hipblasSgemvBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemvBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: trans - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: batch_count - end function hipblasSgemvBatched_64 - end interface - - interface - function hipblasDgemvBatched_64(handle, trans, m, n, alpha, A, lda, & - x, incx, beta, y, incy, batch_count) & - bind(c, name='hipblasDgemvBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemvBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: trans - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: batch_count - end function hipblasDgemvBatched_64 - end interface - - interface - function hipblasCgemvBatched_64(handle, trans, m, n, alpha, A, lda, & - x, incx, beta, y, incy, batch_count) & - bind(c, name='hipblasCgemvBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemvBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: trans - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: batch_count - end function hipblasCgemvBatched_64 - end interface - - interface - function hipblasZgemvBatched_64(handle, trans, m, n, alpha, A, lda, & - x, incx, beta, y, incy, batch_count) & - bind(c, name='hipblasZgemvBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemvBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: trans - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: batch_count - end function hipblasZgemvBatched_64 - end interface - - ! gemvStridedBatched - interface - function hipblasSgemvStridedBatched(handle, trans, m, n, alpha, A, lda, stride_A, & - x, incx, stride_x, beta, y, incy, stride_y, batch_count) & - bind(c, name='hipblasSgemvStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemvStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: trans - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int), value :: batch_count - end function hipblasSgemvStridedBatched - end interface - - interface - function hipblasDgemvStridedBatched(handle, trans, m, n, alpha, A, lda, stride_A, & - x, incx, stride_x, beta, y, incy, stride_y, batch_count) & - bind(c, name='hipblasDgemvStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemvStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: trans - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int), value :: batch_count - end function hipblasDgemvStridedBatched - end interface - - interface - function hipblasCgemvStridedBatched(handle, trans, m, n, alpha, A, lda, stride_A, & - x, incx, stride_x, beta, y, incy, stride_y, batch_count) & - bind(c, name='hipblasCgemvStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemvStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: trans - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int), value :: batch_count - end function hipblasCgemvStridedBatched - end interface - - interface - function hipblasZgemvStridedBatched(handle, trans, m, n, alpha, A, lda, stride_A, & - x, incx, stride_x, beta, y, incy, stride_y, batch_count) & - bind(c, name='hipblasZgemvStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemvStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: trans - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int), value :: batch_count - end function hipblasZgemvStridedBatched - end interface - - ! gemvStridedBatched_64 - interface - function hipblasSgemvStridedBatched_64(handle, trans, m, n, alpha, A, lda, stride_A, & - x, incx, stride_x, beta, y, incy, stride_y, batch_count) & - bind(c, name='hipblasSgemvStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemvStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: trans - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int64_t), value :: batch_count - end function hipblasSgemvStridedBatched_64 - end interface - - interface - function hipblasDgemvStridedBatched_64(handle, trans, m, n, alpha, A, lda, stride_A, & - x, incx, stride_x, beta, y, incy, stride_y, batch_count) & - bind(c, name='hipblasDgemvStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemvStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: trans - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int64_t), value :: batch_count - end function hipblasDgemvStridedBatched_64 - end interface - - interface - function hipblasCgemvStridedBatched_64(handle, trans, m, n, alpha, A, lda, stride_A, & - x, incx, stride_x, beta, y, incy, stride_y, batch_count) & - bind(c, name='hipblasCgemvStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemvStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: trans - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int64_t), value :: batch_count - end function hipblasCgemvStridedBatched_64 - end interface - - interface - function hipblasZgemvStridedBatched_64(handle, trans, m, n, alpha, A, lda, stride_A, & - x, incx, stride_x, beta, y, incy, stride_y, batch_count) & - bind(c, name='hipblasZgemvStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemvStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: trans - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int64_t), value :: batch_count - end function hipblasZgemvStridedBatched_64 - end interface - - ! hbmv - interface - function hipblasChbmv(handle, uplo, n, k, alpha, A, lda, & - x, incx, beta, y, incy) & - bind(c, name='hipblasChbmv') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmv - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int), value :: incy - end function hipblasChbmv - end interface - - interface - function hipblasZhbmv(handle, uplo, n, k, alpha, A, lda, & - x, incx, beta, y, incy) & - bind(c, name='hipblasZhbmv') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmv - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int), value :: incy - end function hipblasZhbmv - end interface - - ! hbmvBatched - interface - function hipblasChbmvBatched(handle, uplo, n, k, alpha, A, lda, & - x, incx, beta, y, incy, batch_count) & - bind(c, name='hipblasChbmvBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmvBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int), value :: batch_count - end function hipblasChbmvBatched - end interface - - interface - function hipblasZhbmvBatched(handle, uplo, n, k, alpha, A, lda, & - x, incx, beta, y, incy, batch_count) & - bind(c, name='hipblasZhbmvBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmvBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int), value :: batch_count - end function hipblasZhbmvBatched - end interface - - ! hbmvStridedBatched - interface - function hipblasChbmvStridedBatched(handle, uplo, n, k, alpha, A, lda, stride_A, & - x, incx, stride_x, beta, y, incy, stride_y, batch_count) & - bind(c, name='hipblasChbmvStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmvStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int), value :: batch_count - end function hipblasChbmvStridedBatched - end interface - - interface - function hipblasZhbmvStridedBatched(handle, uplo, n, k, alpha, A, lda, stride_A, & - x, incx, stride_x, beta, y, incy, stride_y, batch_count) & - bind(c, name='hipblasZhbmvStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmvStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int), value :: batch_count - end function hipblasZhbmvStridedBatched - end interface - - ! hbmv_64 - interface - function hipblasChbmv_64(handle, uplo, n, k, alpha, A, lda, & - x, incx, beta, y, incy) & - bind(c, name='hipblasChbmv_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmv_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - end function hipblasChbmv_64 - end interface - - interface - function hipblasZhbmv_64(handle, uplo, n, k, alpha, A, lda, & - x, incx, beta, y, incy) & - bind(c, name='hipblasZhbmv_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmv_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - end function hipblasZhbmv_64 - end interface - - ! hbmvBatched_64 - interface - function hipblasChbmvBatched_64(handle, uplo, n, k, alpha, A, lda, & - x, incx, beta, y, incy, batch_count) & - bind(c, name='hipblasChbmvBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmvBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: batch_count - end function hipblasChbmvBatched_64 - end interface - - interface - function hipblasZhbmvBatched_64(handle, uplo, n, k, alpha, A, lda, & - x, incx, beta, y, incy, batch_count) & - bind(c, name='hipblasZhbmvBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmvBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: batch_count - end function hipblasZhbmvBatched_64 - end interface - - ! hbmvStridedBatched_64 - interface - function hipblasChbmvStridedBatched_64(handle, uplo, n, k, alpha, A, lda, stride_A, & - x, incx, stride_x, beta, y, incy, stride_y, batch_count) & - bind(c, name='hipblasChbmvStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmvStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int64_t), value :: batch_count - end function hipblasChbmvStridedBatched_64 - end interface - - interface - function hipblasZhbmvStridedBatched_64(handle, uplo, n, k, alpha, A, lda, stride_A, & - x, incx, stride_x, beta, y, incy, stride_y, batch_count) & - bind(c, name='hipblasZhbmvStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmvStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int64_t), value :: batch_count - end function hipblasZhbmvStridedBatched_64 - end interface - - ! hemv - interface - function hipblasChemv(handle, uplo, n, alpha, A, lda, & - x, incx, beta, y, incy) & - bind(c, name='hipblasChemv') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemv - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int), value :: incy - end function hipblasChemv - end interface - - interface - function hipblasZhemv(handle, uplo, n, alpha, A, lda, & - x, incx, beta, y, incy) & - bind(c, name='hipblasZhemv') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemv - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int), value :: incy - end function hipblasZhemv - end interface - - ! hemvBatched - interface - function hipblasChemvBatched(handle, uplo, n, alpha, A, lda, & - x, incx, beta, y, incy, batch_count) & - bind(c, name='hipblasChemvBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemvBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int), value :: batch_count - end function hipblasChemvBatched - end interface - - interface - function hipblasZhemvBatched(handle, uplo, n, alpha, A, lda, & - x, incx, beta, y, incy, batch_count) & - bind(c, name='hipblasZhemvBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemvBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int), value :: batch_count - end function hipblasZhemvBatched - end interface - - ! hemvStridedBatched - interface - function hipblasChemvStridedBatched(handle, uplo, n, alpha, A, lda, stride_A, & - x, incx, stride_x, beta, y, incy, stride_y, batch_count) & - bind(c, name='hipblasChemvStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemvStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int), value :: batch_count - end function hipblasChemvStridedBatched - end interface - - interface - function hipblasZhemvStridedBatched(handle, uplo, n, alpha, A, lda, stride_A, & - x, incx, stride_x, beta, y, incy, stride_y, batch_count) & - bind(c, name='hipblasZhemvStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemvStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int), value :: batch_count - end function hipblasZhemvStridedBatched - end interface - - ! hemv_64 - interface - function hipblasChemv_64(handle, uplo, n, alpha, A, lda, & - x, incx, beta, y, incy) & - bind(c, name='hipblasChemv_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemv_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - end function hipblasChemv_64 - end interface - - interface - function hipblasZhemv_64(handle, uplo, n, alpha, A, lda, & - x, incx, beta, y, incy) & - bind(c, name='hipblasZhemv_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemv_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - end function hipblasZhemv_64 - end interface - - ! hemvBatched - interface - function hipblasChemvBatched_64(handle, uplo, n, alpha, A, lda, & - x, incx, beta, y, incy, batch_count) & - bind(c, name='hipblasChemvBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemvBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: batch_count - end function hipblasChemvBatched_64 - end interface - - interface - function hipblasZhemvBatched_64(handle, uplo, n, alpha, A, lda, & - x, incx, beta, y, incy, batch_count) & - bind(c, name='hipblasZhemvBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemvBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: batch_count - end function hipblasZhemvBatched_64 - end interface - - ! hemvStridedBatched_64 - interface - function hipblasChemvStridedBatched_64(handle, uplo, n, alpha, A, lda, stride_A, & - x, incx, stride_x, beta, y, incy, stride_y, batch_count) & - bind(c, name='hipblasChemvStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemvStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int64_t), value :: batch_count - end function hipblasChemvStridedBatched_64 - end interface - - interface - function hipblasZhemvStridedBatched_64(handle, uplo, n, alpha, A, lda, stride_A, & - x, incx, stride_x, beta, y, incy, stride_y, batch_count) & - bind(c, name='hipblasZhemvStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemvStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int64_t), value :: batch_count - end function hipblasZhemvStridedBatched_64 - end interface - - ! her - interface - function hipblasCher(handle, uplo, n, alpha, & - x, incx, A, lda) & - bind(c, name='hipblasCher') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: A - integer(c_int), value :: lda - end function hipblasCher - end interface - - interface - function hipblasZher(handle, uplo, n, alpha, & - x, incx, A, lda) & - bind(c, name='hipblasZher') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: A - integer(c_int), value :: lda - end function hipblasZher - end interface - - ! her_64 - interface - function hipblasCher_64(handle, uplo, n, alpha, & - x, incx, A, lda) & - bind(c, name='hipblasCher_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - end function hipblasCher_64 - end interface - - interface - function hipblasZher_64(handle, uplo, n, alpha, & - x, incx, A, lda) & - bind(c, name='hipblasZher_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - end function hipblasZher_64 - end interface - - ! herBatched - interface - function hipblasCherBatched(handle, uplo, n, alpha, & - x, incx, A, lda, batch_count) & - bind(c, name='hipblasCherBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int), value :: batch_count - end function hipblasCherBatched - end interface - - interface - function hipblasZherBatched(handle, uplo, n, alpha, & - x, incx, A, lda, batch_count) & - bind(c, name='hipblasZherBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int), value :: batch_count - end function hipblasZherBatched - end interface - - ! herBatched_64 - interface - function hipblasCherBatched_64(handle, uplo, n, alpha, & - x, incx, A, lda, batch_count) & - bind(c, name='hipblasCherBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: batch_count - end function hipblasCherBatched_64 - end interface - - interface - function hipblasZherBatched_64(handle, uplo, n, alpha, & - x, incx, A, lda, batch_count) & - bind(c, name='hipblasZherBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: batch_count - end function hipblasZherBatched_64 - end interface - - ! herStridedBatched - interface - function hipblasCherStridedBatched(handle, uplo, n, alpha, & - x, incx, stride_x, A, lda, stride_A, batch_count) & - bind(c, name='hipblasCherStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - integer(c_int), value :: batch_count - end function hipblasCherStridedBatched - end interface - - interface - function hipblasZherStridedBatched(handle, uplo, n, alpha, & - x, incx, stride_x, A, lda, stride_A, batch_count) & - bind(c, name='hipblasZherStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - integer(c_int), value :: batch_count - end function hipblasZherStridedBatched - end interface - - ! herStridedBatched_64 - interface - function hipblasCherStridedBatched_64(handle, uplo, n, alpha, & - x, incx, stride_x, A, lda, stride_A, batch_count) & - bind(c, name='hipblasCherStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - integer(c_int64_t), value :: batch_count - end function hipblasCherStridedBatched_64 - end interface - - interface - function hipblasZherStridedBatched_64(handle, uplo, n, alpha, & - x, incx, stride_x, A, lda, stride_A, batch_count) & - bind(c, name='hipblasZherStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - integer(c_int64_t), value :: batch_count - end function hipblasZherStridedBatched_64 - end interface - - ! her2 - interface - function hipblasCher2(handle, uplo, n, alpha, & - x, incx, y, incy, A, lda) & - bind(c, name='hipblasCher2') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - type(c_ptr), value :: A - integer(c_int), value :: lda - end function hipblasCher2 - end interface - - interface - function hipblasZher2(handle, uplo, n, alpha, & - x, incx, y, incy, A, lda) & - bind(c, name='hipblasZher2') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - type(c_ptr), value :: A - integer(c_int), value :: lda - end function hipblasZher2 - end interface - - ! her2_64 - interface - function hipblasCher2_64(handle, uplo, n, alpha, & - x, incx, y, incy, A, lda) & - bind(c, name='hipblasCher2_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - end function hipblasCher2_64 - end interface - - interface - function hipblasZher2_64(handle, uplo, n, alpha, & - x, incx, y, incy, A, lda) & - bind(c, name='hipblasZher2_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - end function hipblasZher2_64 - end interface - - ! her2Batched - interface - function hipblasCher2Batched(handle, uplo, n, alpha, & - x, incx, y, incy, A, lda, batch_count) & - bind(c, name='hipblasCher2Batched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2Batched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int), value :: batch_count - end function hipblasCher2Batched - end interface - - interface - function hipblasZher2Batched(handle, uplo, n, alpha, & - x, incx, y, incy, A, lda, batch_count) & - bind(c, name='hipblasZher2Batched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2Batched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int), value :: batch_count - end function hipblasZher2Batched - end interface - - ! her2Batched_64 - interface - function hipblasCher2Batched_64(handle, uplo, n, alpha, & - x, incx, y, incy, A, lda, batch_count) & - bind(c, name='hipblasCher2Batched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2Batched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: batch_count - end function hipblasCher2Batched_64 - end interface - - interface - function hipblasZher2Batched_64(handle, uplo, n, alpha, & - x, incx, y, incy, A, lda, batch_count) & - bind(c, name='hipblasZher2Batched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2Batched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: batch_count - end function hipblasZher2Batched_64 - end interface - - ! her2StridedBatched - interface - function hipblasCher2StridedBatched(handle, uplo, n, alpha, & - x, incx, stride_x, y, incy, stride_y, A, lda, stride_A, batch_count) & - bind(c, name='hipblasCher2StridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2StridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int64_t), value :: stride_y - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - integer(c_int), value :: batch_count - end function hipblasCher2StridedBatched - end interface - - interface - function hipblasZher2StridedBatched(handle, uplo, n, alpha, & - x, incx, stride_x, y, incy, stride_y, A, lda, stride_A, batch_count) & - bind(c, name='hipblasZher2StridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2StridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int64_t), value :: stride_y - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - integer(c_int), value :: batch_count - end function hipblasZher2StridedBatched - end interface - - ! her2StridedBatched_64 - interface - function hipblasCher2StridedBatched_64(handle, uplo, n, alpha, & - x, incx, stride_x, y, incy, stride_y, A, lda, stride_A, batch_count) & - bind(c, name='hipblasCher2StridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2StridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: stride_y - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - integer(c_int64_t), value :: batch_count - end function hipblasCher2StridedBatched_64 - end interface - - interface - function hipblasZher2StridedBatched_64(handle, uplo, n, alpha, & - x, incx, stride_x, y, incy, stride_y, A, lda, stride_A, batch_count) & - bind(c, name='hipblasZher2StridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2StridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: stride_y - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - integer(c_int64_t), value :: batch_count - end function hipblasZher2StridedBatched_64 - end interface - - ! hpmv - interface - function hipblasChpmv(handle, uplo, n, alpha, AP, & - x, incx, beta, y, incy) & - bind(c, name='hipblasChpmv') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmv - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: AP - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int), value :: incy - end function hipblasChpmv - end interface - - interface - function hipblasZhpmv(handle, uplo, n, alpha, AP, & - x, incx, beta, y, incy) & - bind(c, name='hipblasZhpmv') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmv - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: AP - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int), value :: incy - end function hipblasZhpmv - end interface - - ! hpmvBatched - interface - function hipblasChpmvBatched(handle, uplo, n, alpha, AP, & - x, incx, beta, y, incy, batch_count) & - bind(c, name='hipblasChpmvBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmvBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: AP - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int), value :: batch_count - end function hipblasChpmvBatched - end interface - - interface - function hipblasZhpmvBatched(handle, uplo, n, alpha, AP, & - x, incx, beta, y, incy, batch_count) & - bind(c, name='hipblasZhpmvBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmvBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: AP - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int), value :: batch_count - end function hipblasZhpmvBatched - end interface - - ! hpmvStridedBatched - interface - function hipblasChpmvStridedBatched(handle, uplo, n, alpha, AP, stride_AP, & - x, incx, stride_x, beta, y, incy, stride_y, batch_count) & - bind(c, name='hipblasChpmvStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmvStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: AP - integer(c_int64_t), value :: stride_AP - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int), value :: batch_count - end function hipblasChpmvStridedBatched - end interface - - interface - function hipblasZhpmvStridedBatched(handle, uplo, n, alpha, AP, stride_AP, & - x, incx, stride_x, beta, y, incy, stride_y, batch_count) & - bind(c, name='hipblasZhpmvStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmvStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: AP - integer(c_int64_t), value :: stride_AP - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int), value :: batch_count - end function hipblasZhpmvStridedBatched - end interface - - ! hpmv_64 - interface - function hipblasChpmv_64(handle, uplo, n, alpha, AP, & - x, incx, beta, y, incy) & - bind(c, name='hipblasChpmv_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmv_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: AP - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - end function hipblasChpmv_64 - end interface - - interface - function hipblasZhpmv_64(handle, uplo, n, alpha, AP, & - x, incx, beta, y, incy) & - bind(c, name='hipblasZhpmv_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmv_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: AP - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - end function hipblasZhpmv_64 - end interface - - ! hpmvBatched_64 - interface - function hipblasChpmvBatched_64(handle, uplo, n, alpha, AP, & - x, incx, beta, y, incy, batch_count) & - bind(c, name='hipblasChpmvBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmvBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: AP - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: batch_count - end function hipblasChpmvBatched_64 - end interface - - interface - function hipblasZhpmvBatched_64(handle, uplo, n, alpha, AP, & - x, incx, beta, y, incy, batch_count) & - bind(c, name='hipblasZhpmvBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmvBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: AP - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: batch_count - end function hipblasZhpmvBatched_64 - end interface - - ! hpmvStridedBatched_64 - interface - function hipblasChpmvStridedBatched_64(handle, uplo, n, alpha, AP, stride_AP, & - x, incx, stride_x, beta, y, incy, stride_y, batch_count) & - bind(c, name='hipblasChpmvStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmvStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: AP - integer(c_int64_t), value :: stride_AP - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int64_t), value :: batch_count - end function hipblasChpmvStridedBatched_64 - end interface - - interface - function hipblasZhpmvStridedBatched_64(handle, uplo, n, alpha, AP, stride_AP, & - x, incx, stride_x, beta, y, incy, stride_y, batch_count) & - bind(c, name='hipblasZhpmvStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmvStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: AP - integer(c_int64_t), value :: stride_AP - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int64_t), value :: batch_count - end function hipblasZhpmvStridedBatched_64 - end interface - - ! hpr - interface - function hipblasChpr(handle, uplo, n, alpha, & - x, incx, AP) & - bind(c, name='hipblasChpr') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: AP - end function hipblasChpr - end interface - - interface - function hipblasZhpr(handle, uplo, n, alpha, & - x, incx, AP) & - bind(c, name='hipblasZhpr') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: AP - end function hipblasZhpr - end interface - - ! hprBatched - interface - function hipblasChprBatched(handle, uplo, n, alpha, & - x, incx, AP, batch_count) & - bind(c, name='hipblasChprBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChprBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: AP - integer(c_int), value :: batch_count - end function hipblasChprBatched - end interface - - interface - function hipblasZhprBatched(handle, uplo, n, alpha, & - x, incx, AP, batch_count) & - bind(c, name='hipblasZhprBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhprBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: AP - integer(c_int), value :: batch_count - end function hipblasZhprBatched - end interface - - ! hprStridedBatched - interface - function hipblasChprStridedBatched(handle, uplo, n, alpha, & - x, incx, stride_x, AP, stride_AP, batch_count) & - bind(c, name='hipblasChprStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChprStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: AP - integer(c_int64_t), value :: stride_AP - integer(c_int), value :: batch_count - end function hipblasChprStridedBatched - end interface - - interface - function hipblasZhprStridedBatched(handle, uplo, n, alpha, & - x, incx, stride_x, AP, stride_AP, batch_count) & - bind(c, name='hipblasZhprStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhprStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: AP - integer(c_int64_t), value :: stride_AP - integer(c_int), value :: batch_count - end function hipblasZhprStridedBatched - end interface - - ! hpr_64 - interface - function hipblasChpr_64(handle, uplo, n, alpha, & - x, incx, AP) & - bind(c, name='hipblasChpr_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: AP - end function hipblasChpr_64 - end interface - - interface - function hipblasZhpr_64(handle, uplo, n, alpha, & - x, incx, AP) & - bind(c, name='hipblasZhpr_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: AP - end function hipblasZhpr_64 - end interface - - ! hprBatched_64 - interface - function hipblasChprBatched_64(handle, uplo, n, alpha, & - x, incx, AP, batch_count) & - bind(c, name='hipblasChprBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChprBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: AP - integer(c_int64_t), value :: batch_count - end function hipblasChprBatched_64 - end interface - - interface - function hipblasZhprBatched_64(handle, uplo, n, alpha, & - x, incx, AP, batch_count) & - bind(c, name='hipblasZhprBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhprBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: AP - integer(c_int64_t), value :: batch_count - end function hipblasZhprBatched_64 - end interface - - ! hprStridedBatched_64 - interface - function hipblasChprStridedBatched_64(handle, uplo, n, alpha, & - x, incx, stride_x, AP, stride_AP, batch_count) & - bind(c, name='hipblasChprStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChprStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: AP - integer(c_int64_t), value :: stride_AP - integer(c_int64_t), value :: batch_count - end function hipblasChprStridedBatched_64 - end interface - - interface - function hipblasZhprStridedBatched_64(handle, uplo, n, alpha, & - x, incx, stride_x, AP, stride_AP, batch_count) & - bind(c, name='hipblasZhprStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhprStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: AP - integer(c_int64_t), value :: stride_AP - integer(c_int64_t), value :: batch_count - end function hipblasZhprStridedBatched_64 - end interface - - ! hpr2 - interface - function hipblasChpr2(handle, uplo, n, alpha, & - x, incx, y, incy, AP) & - bind(c, name='hipblasChpr2') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - type(c_ptr), value :: AP - end function hipblasChpr2 - end interface - - interface - function hipblasZhpr2(handle, uplo, n, alpha, & - x, incx, y, incy, AP) & - bind(c, name='hipblasZhpr2') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - type(c_ptr), value :: AP - end function hipblasZhpr2 - end interface - - ! hpr2Batched - interface - function hipblasChpr2Batched(handle, uplo, n, alpha, & - x, incx, y, incy, AP, batch_count) & - bind(c, name='hipblasChpr2Batched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2Batched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - type(c_ptr), value :: AP - integer(c_int), value :: batch_count - end function hipblasChpr2Batched - end interface - - interface - function hipblasZhpr2Batched(handle, uplo, n, alpha, & - x, incx, y, incy, AP, batch_count) & - bind(c, name='hipblasZhpr2Batched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2Batched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - type(c_ptr), value :: AP - integer(c_int), value :: batch_count - end function hipblasZhpr2Batched - end interface - - ! hpr2StridedBatched - interface - function hipblasChpr2StridedBatched(handle, uplo, n, alpha, & - x, incx, stride_x, y, incy, stride_y, AP, stride_AP, batch_count) & - bind(c, name='hipblasChpr2StridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2StridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int64_t), value :: stride_y - type(c_ptr), value :: AP - integer(c_int64_t), value :: stride_AP - integer(c_int), value :: batch_count - end function hipblasChpr2StridedBatched - end interface - - interface - function hipblasZhpr2StridedBatched(handle, uplo, n, alpha, & - x, incx, stride_x, y, incy, stride_y, AP, stride_AP, batch_count) & - bind(c, name='hipblasZhpr2StridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2StridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int64_t), value :: stride_y - type(c_ptr), value :: AP - integer(c_int64_t), value :: stride_AP - integer(c_int), value :: batch_count - end function hipblasZhpr2StridedBatched - end interface - - ! hpr2_64 - interface - function hipblasChpr2_64(handle, uplo, n, alpha, & - x, incx, y, incy, AP) & - bind(c, name='hipblasChpr2_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - type(c_ptr), value :: AP - end function hipblasChpr2_64 - end interface - - interface - function hipblasZhpr2_64(handle, uplo, n, alpha, & - x, incx, y, incy, AP) & - bind(c, name='hipblasZhpr2_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - type(c_ptr), value :: AP - end function hipblasZhpr2_64 - end interface - - ! hpr2Batched_64 - interface - function hipblasChpr2Batched_64(handle, uplo, n, alpha, & - x, incx, y, incy, AP, batch_count) & - bind(c, name='hipblasChpr2Batched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2Batched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - type(c_ptr), value :: AP - integer(c_int64_t), value :: batch_count - end function hipblasChpr2Batched_64 - end interface - - interface - function hipblasZhpr2Batched_64(handle, uplo, n, alpha, & - x, incx, y, incy, AP, batch_count) & - bind(c, name='hipblasZhpr2Batched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2Batched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - type(c_ptr), value :: AP - integer(c_int64_t), value :: batch_count - end function hipblasZhpr2Batched_64 - end interface - - ! hpr2StridedBatched_64 - interface - function hipblasChpr2StridedBatched_64(handle, uplo, n, alpha, & - x, incx, stride_x, y, incy, stride_y, AP, stride_AP, batch_count) & - bind(c, name='hipblasChpr2StridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2StridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: stride_y - type(c_ptr), value :: AP - integer(c_int64_t), value :: stride_AP - integer(c_int64_t), value :: batch_count - end function hipblasChpr2StridedBatched_64 - end interface - - interface - function hipblasZhpr2StridedBatched_64(handle, uplo, n, alpha, & - x, incx, stride_x, y, incy, stride_y, AP, stride_AP, batch_count) & - bind(c, name='hipblasZhpr2StridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2StridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: stride_y - type(c_ptr), value :: AP - integer(c_int64_t), value :: stride_AP - integer(c_int64_t), value :: batch_count - end function hipblasZhpr2StridedBatched_64 - end interface - - ! trmv - interface - function hipblasStrmv(handle, uplo, transA, diag, m, & - A, lda, x, incx) & - bind(c, name='hipblasStrmv') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmv - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int), value :: m - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - end function hipblasStrmv - end interface - - interface - function hipblasDtrmv(handle, uplo, transA, diag, m, & - A, lda, x, incx) & - bind(c, name='hipblasDtrmv') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmv - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int), value :: m - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - end function hipblasDtrmv - end interface - - interface - function hipblasCtrmv(handle, uplo, transA, diag, m, & - A, lda, x, incx) & - bind(c, name='hipblasCtrmv') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmv - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int), value :: m - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - end function hipblasCtrmv - end interface - - interface - function hipblasZtrmv(handle, uplo, transA, diag, m, & - A, lda, x, incx) & - bind(c, name='hipblasZtrmv') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmv - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int), value :: m - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - end function hipblasZtrmv - end interface - - ! trmv_64 - interface - function hipblasStrmv_64(handle, uplo, transA, diag, m, & - A, lda, x, incx) & - bind(c, name='hipblasStrmv_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmv_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int64_t), value :: m - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - end function hipblasStrmv_64 - end interface - - interface - function hipblasDtrmv_64(handle, uplo, transA, diag, m, & - A, lda, x, incx) & - bind(c, name='hipblasDtrmv_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmv_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int64_t), value :: m - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - end function hipblasDtrmv_64 - end interface - - interface - function hipblasCtrmv_64(handle, uplo, transA, diag, m, & - A, lda, x, incx) & - bind(c, name='hipblasCtrmv_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmv_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int64_t), value :: m - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - end function hipblasCtrmv_64 - end interface - - interface - function hipblasZtrmv_64(handle, uplo, transA, diag, m, & - A, lda, x, incx) & - bind(c, name='hipblasZtrmv_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmv_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int64_t), value :: m - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - end function hipblasZtrmv_64 - end interface - - ! trmvBatched - interface - function hipblasStrmvBatched(handle, uplo, transA, diag, m, & - A, lda, x, incx, batch_count) & - bind(c, name='hipblasStrmvBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmvBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int), value :: m - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int), value :: batch_count - end function hipblasStrmvBatched - end interface - - interface - function hipblasDtrmvBatched(handle, uplo, transA, diag, m, & - A, lda, x, incx, batch_count) & - bind(c, name='hipblasDtrmvBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmvBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int), value :: m - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int), value :: batch_count - end function hipblasDtrmvBatched - end interface - - interface - function hipblasCtrmvBatched(handle, uplo, transA, diag, m, & - A, lda, x, incx, batch_count) & - bind(c, name='hipblasCtrmvBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmvBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int), value :: m - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int), value :: batch_count - end function hipblasCtrmvBatched - end interface - - interface - function hipblasZtrmvBatched(handle, uplo, transA, diag, m, & - A, lda, x, incx, batch_count) & - bind(c, name='hipblasZtrmvBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmvBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int), value :: m - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int), value :: batch_count - end function hipblasZtrmvBatched - end interface - - ! trmvBatched_64 - interface - function hipblasStrmvBatched_64(handle, uplo, transA, diag, m, & - A, lda, x, incx, batch_count) & - bind(c, name='hipblasStrmvBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmvBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int64_t), value :: m - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: batch_count - end function hipblasStrmvBatched_64 - end interface - - interface - function hipblasDtrmvBatched_64(handle, uplo, transA, diag, m, & - A, lda, x, incx, batch_count) & - bind(c, name='hipblasDtrmvBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmvBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int64_t), value :: m - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: batch_count - end function hipblasDtrmvBatched_64 - end interface - - interface - function hipblasCtrmvBatched_64(handle, uplo, transA, diag, m, & - A, lda, x, incx, batch_count) & - bind(c, name='hipblasCtrmvBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmvBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int64_t), value :: m - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: batch_count - end function hipblasCtrmvBatched_64 - end interface - - interface - function hipblasZtrmvBatched_64(handle, uplo, transA, diag, m, & - A, lda, x, incx, batch_count) & - bind(c, name='hipblasZtrmvBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmvBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int64_t), value :: m - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: batch_count - end function hipblasZtrmvBatched_64 - end interface - - ! trmvStridedBatched - interface - function hipblasStrmvStridedBatched(handle, uplo, transA, diag, m, & - A, lda, stride_A, x, incx, stride_x, batch_count) & - bind(c, name='hipblasStrmvStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmvStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int), value :: m - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int), value :: batch_count - end function hipblasStrmvStridedBatched - end interface - - interface - function hipblasDtrmvStridedBatched(handle, uplo, transA, diag, m, & - A, lda, stride_A, x, incx, stride_x, batch_count) & - bind(c, name='hipblasDtrmvStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmvStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int), value :: m - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int), value :: batch_count - end function hipblasDtrmvStridedBatched - end interface - - interface - function hipblasCtrmvStridedBatched(handle, uplo, transA, diag, m, & - A, lda, stride_A, x, incx, stride_x, batch_count) & - bind(c, name='hipblasCtrmvStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmvStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int), value :: m - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int), value :: batch_count - end function hipblasCtrmvStridedBatched - end interface - - interface - function hipblasZtrmvStridedBatched(handle, uplo, transA, diag, m, & - A, lda, stride_A, x, incx, stride_x, batch_count) & - bind(c, name='hipblasZtrmvStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmvStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int), value :: m - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int), value :: batch_count - end function hipblasZtrmvStridedBatched - end interface - - ! trmvStridedBatched_64 - interface - function hipblasStrmvStridedBatched_64(handle, uplo, transA, diag, m, & - A, lda, stride_A, x, incx, stride_x, batch_count) & - bind(c, name='hipblasStrmvStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmvStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int64_t), value :: m - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int64_t), value :: batch_count - end function hipblasStrmvStridedBatched_64 - end interface - - interface - function hipblasDtrmvStridedBatched_64(handle, uplo, transA, diag, m, & - A, lda, stride_A, x, incx, stride_x, batch_count) & - bind(c, name='hipblasDtrmvStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmvStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int64_t), value :: m - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int64_t), value :: batch_count - end function hipblasDtrmvStridedBatched_64 - end interface - - interface - function hipblasCtrmvStridedBatched_64(handle, uplo, transA, diag, m, & - A, lda, stride_A, x, incx, stride_x, batch_count) & - bind(c, name='hipblasCtrmvStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmvStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int64_t), value :: m - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int64_t), value :: batch_count - end function hipblasCtrmvStridedBatched_64 - end interface - - interface - function hipblasZtrmvStridedBatched_64(handle, uplo, transA, diag, m, & - A, lda, stride_A, x, incx, stride_x, batch_count) & - bind(c, name='hipblasZtrmvStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmvStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int64_t), value :: m - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int64_t), value :: batch_count - end function hipblasZtrmvStridedBatched_64 - end interface - - ! tpmv - interface - function hipblasStpmv(handle, uplo, transA, diag, m, & - AP, x, incx) & - bind(c, name='hipblasStpmv') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpmv - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int), value :: m - type(c_ptr), value :: AP - type(c_ptr), value :: x - integer(c_int), value :: incx - end function hipblasStpmv - end interface - - interface - function hipblasDtpmv(handle, uplo, transA, diag, m, & - AP, x, incx) & - bind(c, name='hipblasDtpmv') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpmv - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int), value :: m - type(c_ptr), value :: AP - type(c_ptr), value :: x - integer(c_int), value :: incx - end function hipblasDtpmv - end interface - - interface - function hipblasCtpmv(handle, uplo, transA, diag, m, & - AP, x, incx) & - bind(c, name='hipblasCtpmv') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpmv - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int), value :: m - type(c_ptr), value :: AP - type(c_ptr), value :: x - integer(c_int), value :: incx - end function hipblasCtpmv - end interface - - interface - function hipblasZtpmv(handle, uplo, transA, diag, m, & - AP, x, incx) & - bind(c, name='hipblasZtpmv') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpmv - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int), value :: m - type(c_ptr), value :: AP - type(c_ptr), value :: x - integer(c_int), value :: incx - end function hipblasZtpmv - end interface - - ! tpmv_64 - interface - function hipblasStpmv_64(handle, uplo, transA, diag, m, & - AP, x, incx) & - bind(c, name='hipblasStpmv_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpmv_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int64_t), value :: m - type(c_ptr), value :: AP - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - end function hipblasStpmv_64 - end interface - - interface - function hipblasDtpmv_64(handle, uplo, transA, diag, m, & - AP, x, incx) & - bind(c, name='hipblasDtpmv_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpmv_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int64_t), value :: m - type(c_ptr), value :: AP - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - end function hipblasDtpmv_64 - end interface - - interface - function hipblasCtpmv_64(handle, uplo, transA, diag, m, & - AP, x, incx) & - bind(c, name='hipblasCtpmv_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpmv_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int64_t), value :: m - type(c_ptr), value :: AP - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - end function hipblasCtpmv_64 - end interface - - interface - function hipblasZtpmv_64(handle, uplo, transA, diag, m, & - AP, x, incx) & - bind(c, name='hipblasZtpmv_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpmv_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int64_t), value :: m - type(c_ptr), value :: AP - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - end function hipblasZtpmv_64 - end interface - - ! tpmvBatched - interface - function hipblasStpmvBatched(handle, uplo, transA, diag, m, & - AP, x, incx, batch_count) & - bind(c, name='hipblasStpmvBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpmvBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int), value :: m - type(c_ptr), value :: AP - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int), value :: batch_count - end function hipblasStpmvBatched - end interface - - interface - function hipblasDtpmvBatched(handle, uplo, transA, diag, m, & - AP, x, incx, batch_count) & - bind(c, name='hipblasDtpmvBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpmvBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int), value :: m - type(c_ptr), value :: AP - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int), value :: batch_count - end function hipblasDtpmvBatched - end interface - - interface - function hipblasCtpmvBatched(handle, uplo, transA, diag, m, & - AP, x, incx, batch_count) & - bind(c, name='hipblasCtpmvBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpmvBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int), value :: m - type(c_ptr), value :: AP - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int), value :: batch_count - end function hipblasCtpmvBatched - end interface - - interface - function hipblasZtpmvBatched(handle, uplo, transA, diag, m, & - AP, x, incx, batch_count) & - bind(c, name='hipblasZtpmvBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpmvBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int), value :: m - type(c_ptr), value :: AP - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int), value :: batch_count - end function hipblasZtpmvBatched - end interface - - ! tpmvBatched_64 - interface - function hipblasStpmvBatched_64(handle, uplo, transA, diag, m, & - AP, x, incx, batch_count) & - bind(c, name='hipblasStpmvBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpmvBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int64_t), value :: m - type(c_ptr), value :: AP - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: batch_count - end function hipblasStpmvBatched_64 - end interface - - interface - function hipblasDtpmvBatched_64(handle, uplo, transA, diag, m, & - AP, x, incx, batch_count) & - bind(c, name='hipblasDtpmvBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpmvBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int64_t), value :: m - type(c_ptr), value :: AP - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: batch_count - end function hipblasDtpmvBatched_64 - end interface - - interface - function hipblasCtpmvBatched_64(handle, uplo, transA, diag, m, & - AP, x, incx, batch_count) & - bind(c, name='hipblasCtpmvBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpmvBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int64_t), value :: m - type(c_ptr), value :: AP - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: batch_count - end function hipblasCtpmvBatched_64 - end interface - - interface - function hipblasZtpmvBatched_64(handle, uplo, transA, diag, m, & - AP, x, incx, batch_count) & - bind(c, name='hipblasZtpmvBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpmvBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int64_t), value :: m - type(c_ptr), value :: AP - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: batch_count - end function hipblasZtpmvBatched_64 - end interface - - ! tpmvStridedBatched - interface - function hipblasStpmvStridedBatched(handle, uplo, transA, diag, m, & - AP, stride_AP, x, incx, stride_x, batch_count) & - bind(c, name='hipblasStpmvStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpmvStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int), value :: m - type(c_ptr), value :: AP - integer(c_int64_t), value :: stride_AP - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int), value :: batch_count - end function hipblasStpmvStridedBatched - end interface - - interface - function hipblasDtpmvStridedBatched(handle, uplo, transA, diag, m, & - AP, stride_AP, x, incx, stride_x, batch_count) & - bind(c, name='hipblasDtpmvStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpmvStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int), value :: m - type(c_ptr), value :: AP - integer(c_int64_t), value :: stride_AP - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int), value :: batch_count - end function hipblasDtpmvStridedBatched - end interface - - interface - function hipblasCtpmvStridedBatched(handle, uplo, transA, diag, m, & - AP, stride_AP, x, incx, stride_x, batch_count) & - bind(c, name='hipblasCtpmvStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpmvStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int), value :: m - type(c_ptr), value :: AP - integer(c_int64_t), value :: stride_AP - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int), value :: batch_count - end function hipblasCtpmvStridedBatched - end interface - - interface - function hipblasZtpmvStridedBatched(handle, uplo, transA, diag, m, & - AP, stride_AP, x, incx, stride_x, batch_count) & - bind(c, name='hipblasZtpmvStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpmvStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int), value :: m - type(c_ptr), value :: AP - integer(c_int64_t), value :: stride_AP - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int), value :: batch_count - end function hipblasZtpmvStridedBatched - end interface - - ! tpmvStridedBatched_64 - interface - function hipblasStpmvStridedBatched_64(handle, uplo, transA, diag, m, & - AP, stride_AP, x, incx, stride_x, batch_count) & - bind(c, name='hipblasStpmvStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpmvStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int64_t), value :: m - type(c_ptr), value :: AP - integer(c_int64_t), value :: stride_AP - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int64_t), value :: batch_count - end function hipblasStpmvStridedBatched_64 - end interface - - interface - function hipblasDtpmvStridedBatched_64(handle, uplo, transA, diag, m, & - AP, stride_AP, x, incx, stride_x, batch_count) & - bind(c, name='hipblasDtpmvStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpmvStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int64_t), value :: m - type(c_ptr), value :: AP - integer(c_int64_t), value :: stride_AP - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int64_t), value :: batch_count - end function hipblasDtpmvStridedBatched_64 - end interface - - interface - function hipblasCtpmvStridedBatched_64(handle, uplo, transA, diag, m, & - AP, stride_AP, x, incx, stride_x, batch_count) & - bind(c, name='hipblasCtpmvStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpmvStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int64_t), value :: m - type(c_ptr), value :: AP - integer(c_int64_t), value :: stride_AP - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int64_t), value :: batch_count - end function hipblasCtpmvStridedBatched_64 - end interface - - interface - function hipblasZtpmvStridedBatched_64(handle, uplo, transA, diag, m, & - AP, stride_AP, x, incx, stride_x, batch_count) & - bind(c, name='hipblasZtpmvStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpmvStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int64_t), value :: m - type(c_ptr), value :: AP - integer(c_int64_t), value :: stride_AP - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int64_t), value :: batch_count - end function hipblasZtpmvStridedBatched_64 - end interface - - ! tbmv - interface - function hipblasStbmv(handle, uplo, transA, diag, m, k, & - A, lda, x, incx) & - bind(c, name='hipblasStbmv') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbmv - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int), value :: m - integer(c_int), value :: k - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - end function hipblasStbmv - end interface - - interface - function hipblasDtbmv(handle, uplo, transA, diag, m, k, & - A, lda, x, incx) & - bind(c, name='hipblasDtbmv') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbmv - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int), value :: m - integer(c_int), value :: k - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - end function hipblasDtbmv - end interface - - interface - function hipblasCtbmv(handle, uplo, transA, diag, m, k, & - A, lda, x, incx) & - bind(c, name='hipblasCtbmv') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbmv - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int), value :: m - integer(c_int), value :: k - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - end function hipblasCtbmv - end interface - - interface - function hipblasZtbmv(handle, uplo, transA, diag, m, k, & - A, lda, x, incx) & - bind(c, name='hipblasZtbmv') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbmv - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int), value :: m - integer(c_int), value :: k - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - end function hipblasZtbmv - end interface - - ! tbmv_64 - interface - function hipblasStbmv_64(handle, uplo, transA, diag, m, k, & - A, lda, x, incx) & - bind(c, name='hipblasStbmv_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbmv_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int64_t), value :: m - integer(c_int64_t), value :: k - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - end function hipblasStbmv_64 - end interface - - interface - function hipblasDtbmv_64(handle, uplo, transA, diag, m, k, & - A, lda, x, incx) & - bind(c, name='hipblasDtbmv_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbmv_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int64_t), value :: m - integer(c_int64_t), value :: k - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - end function hipblasDtbmv_64 - end interface - - interface - function hipblasCtbmv_64(handle, uplo, transA, diag, m, k, & - A, lda, x, incx) & - bind(c, name='hipblasCtbmv_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbmv_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int64_t), value :: m - integer(c_int64_t), value :: k - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - end function hipblasCtbmv_64 - end interface - - interface - function hipblasZtbmv_64(handle, uplo, transA, diag, m, k, & - A, lda, x, incx) & - bind(c, name='hipblasZtbmv_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbmv_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int64_t), value :: m - integer(c_int64_t), value :: k - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - end function hipblasZtbmv_64 - end interface - - ! tbmvBatched - interface - function hipblasStbmvBatched(handle, uplo, transA, diag, m, k, & - A, lda, x, incx, batch_count) & - bind(c, name='hipblasStbmvBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbmvBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int), value :: m - integer(c_int), value :: k - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int), value :: batch_count - end function hipblasStbmvBatched - end interface - - interface - function hipblasDtbmvBatched(handle, uplo, transA, diag, m, k, & - A, lda, x, incx, batch_count) & - bind(c, name='hipblasDtbmvBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbmvBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int), value :: m - integer(c_int), value :: k - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int), value :: batch_count - end function hipblasDtbmvBatched - end interface - - interface - function hipblasCtbmvBatched(handle, uplo, transA, diag, m, k, & - A, lda, x, incx, batch_count) & - bind(c, name='hipblasCtbmvBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbmvBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int), value :: m - integer(c_int), value :: k - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int), value :: batch_count - end function hipblasCtbmvBatched - end interface - - interface - function hipblasZtbmvBatched(handle, uplo, transA, diag, m, k, & - A, lda, x, incx, batch_count) & - bind(c, name='hipblasZtbmvBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbmvBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int), value :: m - integer(c_int), value :: k - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int), value :: batch_count - end function hipblasZtbmvBatched - end interface - - ! tbmvBatched_64 - interface - function hipblasStbmvBatched_64(handle, uplo, transA, diag, m, k, & - A, lda, x, incx, batch_count) & - bind(c, name='hipblasStbmvBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbmvBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int64_t), value :: m - integer(c_int64_t), value :: k - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: batch_count - end function hipblasStbmvBatched_64 - end interface - - interface - function hipblasDtbmvBatched_64(handle, uplo, transA, diag, m, k, & - A, lda, x, incx, batch_count) & - bind(c, name='hipblasDtbmvBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbmvBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int64_t), value :: m - integer(c_int64_t), value :: k - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: batch_count - end function hipblasDtbmvBatched_64 - end interface - - interface - function hipblasCtbmvBatched_64(handle, uplo, transA, diag, m, k, & - A, lda, x, incx, batch_count) & - bind(c, name='hipblasCtbmvBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbmvBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int64_t), value :: m - integer(c_int64_t), value :: k - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: batch_count - end function hipblasCtbmvBatched_64 - end interface - - interface - function hipblasZtbmvBatched_64(handle, uplo, transA, diag, m, k, & - A, lda, x, incx, batch_count) & - bind(c, name='hipblasZtbmvBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbmvBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int64_t), value :: m - integer(c_int64_t), value :: k - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: batch_count - end function hipblasZtbmvBatched_64 - end interface - - ! tbmvStridedBatched - interface - function hipblasStbmvStridedBatched(handle, uplo, transA, diag, m, k, & - A, lda, stride_A, x, incx, stride_x, batch_count) & - bind(c, name='hipblasStbmvStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbmvStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int), value :: m - integer(c_int), value :: k - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int), value :: batch_count - end function hipblasStbmvStridedBatched - end interface - - interface - function hipblasDtbmvStridedBatched(handle, uplo, transA, diag, m, k, & - A, lda, stride_A, x, incx, stride_x, batch_count) & - bind(c, name='hipblasDtbmvStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbmvStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int), value :: m - integer(c_int), value :: k - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int), value :: batch_count - end function hipblasDtbmvStridedBatched - end interface - - interface - function hipblasCtbmvStridedBatched(handle, uplo, transA, diag, m, k, & - A, lda, stride_A, x, incx, stride_x, batch_count) & - bind(c, name='hipblasCtbmvStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbmvStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int), value :: m - integer(c_int), value :: k - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int), value :: batch_count - end function hipblasCtbmvStridedBatched - end interface - - interface - function hipblasZtbmvStridedBatched(handle, uplo, transA, diag, m, k, & - A, lda, stride_A, x, incx, stride_x, batch_count) & - bind(c, name='hipblasZtbmvStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbmvStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int), value :: m - integer(c_int), value :: k - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int), value :: batch_count - end function hipblasZtbmvStridedBatched - end interface - - ! tbmvStridedBatched_64 - interface - function hipblasStbmvStridedBatched_64(handle, uplo, transA, diag, m, k, & - A, lda, stride_A, x, incx, stride_x, batch_count) & - bind(c, name='hipblasStbmvStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbmvStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int64_t), value :: m - integer(c_int64_t), value :: k - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int64_t), value :: batch_count - end function hipblasStbmvStridedBatched_64 - end interface - - interface - function hipblasDtbmvStridedBatched_64(handle, uplo, transA, diag, m, k, & - A, lda, stride_A, x, incx, stride_x, batch_count) & - bind(c, name='hipblasDtbmvStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbmvStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int64_t), value :: m - integer(c_int64_t), value :: k - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int64_t), value :: batch_count - end function hipblasDtbmvStridedBatched_64 - end interface - - interface - function hipblasCtbmvStridedBatched_64(handle, uplo, transA, diag, m, k, & - A, lda, stride_A, x, incx, stride_x, batch_count) & - bind(c, name='hipblasCtbmvStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbmvStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int64_t), value :: m - integer(c_int64_t), value :: k - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int64_t), value :: batch_count - end function hipblasCtbmvStridedBatched_64 - end interface - - interface - function hipblasZtbmvStridedBatched_64(handle, uplo, transA, diag, m, k, & - A, lda, stride_A, x, incx, stride_x, batch_count) & - bind(c, name='hipblasZtbmvStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbmvStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int64_t), value :: m - integer(c_int64_t), value :: k - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int64_t), value :: batch_count - end function hipblasZtbmvStridedBatched_64 - end interface - - ! tbsv - interface - function hipblasStbsv(handle, uplo, transA, diag, n, k, & - A, lda, x, incx) & - bind(c, name='hipblasStbsv') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbsv - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - end function hipblasStbsv - end interface - - interface - function hipblasDtbsv(handle, uplo, transA, diag, n, k, & - A, lda, x, incx) & - bind(c, name='hipblasDtbsv') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbsv - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - end function hipblasDtbsv - end interface - - interface - function hipblasCtbsv(handle, uplo, transA, diag, n, k, & - A, lda, x, incx) & - bind(c, name='hipblasCtbsv') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbsv - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - end function hipblasCtbsv - end interface - - interface - function hipblasZtbsv(handle, uplo, transA, diag, n, k, & - A, lda, x, incx) & - bind(c, name='hipblasZtbsv') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbsv - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - end function hipblasZtbsv - end interface - - ! tbsv_64 - interface - function hipblasStbsv_64(handle, uplo, transA, diag, n, k, & - A, lda, x, incx) & - bind(c, name='hipblasStbsv_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbsv_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - end function hipblasStbsv_64 - end interface - - interface - function hipblasDtbsv_64(handle, uplo, transA, diag, n, k, & - A, lda, x, incx) & - bind(c, name='hipblasDtbsv_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbsv_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - end function hipblasDtbsv_64 - end interface - - interface - function hipblasCtbsv_64(handle, uplo, transA, diag, n, k, & - A, lda, x, incx) & - bind(c, name='hipblasCtbsv_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbsv_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - end function hipblasCtbsv_64 - end interface - - interface - function hipblasZtbsv_64(handle, uplo, transA, diag, n, k, & - A, lda, x, incx) & - bind(c, name='hipblasZtbsv_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbsv_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - end function hipblasZtbsv_64 - end interface - - ! tbsvBatched - interface - function hipblasStbsvBatched(handle, uplo, transA, diag, n, k, & - A, lda, x, incx, batch_count) & - bind(c, name='hipblasStbsvBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbsvBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int), value :: batch_count - end function hipblasStbsvBatched - end interface - - interface - function hipblasDtbsvBatched(handle, uplo, transA, diag, n, k, & - A, lda, x, incx, batch_count) & - bind(c, name='hipblasDtbsvBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbsvBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int), value :: batch_count - end function hipblasDtbsvBatched - end interface - - interface - function hipblasCtbsvBatched(handle, uplo, transA, diag, n, k, & - A, lda, x, incx, batch_count) & - bind(c, name='hipblasCtbsvBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbsvBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int), value :: batch_count - end function hipblasCtbsvBatched - end interface - - interface - function hipblasZtbsvBatched(handle, uplo, transA, diag, n, k, & - A, lda, x, incx, batch_count) & - bind(c, name='hipblasZtbsvBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbsvBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int), value :: batch_count - end function hipblasZtbsvBatched - end interface - - ! tbsvBatched_64 - interface - function hipblasStbsvBatched_64(handle, uplo, transA, diag, n, k, & - A, lda, x, incx, batch_count) & - bind(c, name='hipblasStbsvBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbsvBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: batch_count - end function hipblasStbsvBatched_64 - end interface - - interface - function hipblasDtbsvBatched_64(handle, uplo, transA, diag, n, k, & - A, lda, x, incx, batch_count) & - bind(c, name='hipblasDtbsvBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbsvBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: batch_count - end function hipblasDtbsvBatched_64 - end interface - - interface - function hipblasCtbsvBatched_64(handle, uplo, transA, diag, n, k, & - A, lda, x, incx, batch_count) & - bind(c, name='hipblasCtbsvBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbsvBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: batch_count - end function hipblasCtbsvBatched_64 - end interface - - interface - function hipblasZtbsvBatched_64(handle, uplo, transA, diag, n, k, & - A, lda, x, incx, batch_count) & - bind(c, name='hipblasZtbsvBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbsvBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: batch_count - end function hipblasZtbsvBatched_64 - end interface - - ! tbsvStridedBatched - interface - function hipblasStbsvStridedBatched(handle, uplo, transA, diag, n, k, & - A, lda, stride_A, x, incx, stride_x, batch_count) & - bind(c, name='hipblasStbsvStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbsvStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int), value :: batch_count - end function hipblasStbsvStridedBatched - end interface - - interface - function hipblasDtbsvStridedBatched(handle, uplo, transA, diag, n, k, & - A, lda, stride_A, x, incx, stride_x, batch_count) & - bind(c, name='hipblasDtbsvStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbsvStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int), value :: batch_count - end function hipblasDtbsvStridedBatched - end interface - - interface - function hipblasCtbsvStridedBatched(handle, uplo, transA, diag, n, k, & - A, lda, stride_A, x, incx, stride_x, batch_count) & - bind(c, name='hipblasCtbsvStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbsvStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int), value :: batch_count - end function hipblasCtbsvStridedBatched - end interface - - interface - function hipblasZtbsvStridedBatched(handle, uplo, transA, diag, n, k, & - A, lda, stride_A, x, incx, stride_x, batch_count) & - bind(c, name='hipblasZtbsvStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbsvStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int), value :: batch_count - end function hipblasZtbsvStridedBatched - end interface - - ! tbsvStridedBatched_64 - interface - function hipblasStbsvStridedBatched_64(handle, uplo, transA, diag, n, k, & - A, lda, stride_A, x, incx, stride_x, batch_count) & - bind(c, name='hipblasStbsvStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbsvStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int64_t), value :: batch_count - end function hipblasStbsvStridedBatched_64 - end interface - - interface - function hipblasDtbsvStridedBatched_64(handle, uplo, transA, diag, n, k, & - A, lda, stride_A, x, incx, stride_x, batch_count) & - bind(c, name='hipblasDtbsvStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbsvStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int64_t), value :: batch_count - end function hipblasDtbsvStridedBatched_64 - end interface - - interface - function hipblasCtbsvStridedBatched_64(handle, uplo, transA, diag, n, k, & - A, lda, stride_A, x, incx, stride_x, batch_count) & - bind(c, name='hipblasCtbsvStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbsvStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int64_t), value :: batch_count - end function hipblasCtbsvStridedBatched_64 - end interface - - interface - function hipblasZtbsvStridedBatched_64(handle, uplo, transA, diag, n, k, & - A, lda, stride_A, x, incx, stride_x, batch_count) & - bind(c, name='hipblasZtbsvStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbsvStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int64_t), value :: batch_count - end function hipblasZtbsvStridedBatched_64 - end interface - - ! trsv - interface - function hipblasStrsv(handle, uplo, transA, diag, m, & - A, lda, x, incx) & - bind(c, name='hipblasStrsv') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsv - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int), value :: m - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - end function hipblasStrsv - end interface - - interface - function hipblasDtrsv(handle, uplo, transA, diag, m, & - A, lda, x, incx) & - bind(c, name='hipblasDtrsv') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsv - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int), value :: m - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - end function hipblasDtrsv - end interface - - interface - function hipblasCtrsv(handle, uplo, transA, diag, m, & - A, lda, x, incx) & - bind(c, name='hipblasCtrsv') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsv - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int), value :: m - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - end function hipblasCtrsv - end interface - - interface - function hipblasZtrsv(handle, uplo, transA, diag, m, & - A, lda, x, incx) & - bind(c, name='hipblasZtrsv') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsv - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int), value :: m - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - end function hipblasZtrsv - end interface - - ! trsv_64 - interface - function hipblasStrsv_64(handle, uplo, transA, diag, m, & - A, lda, x, incx) & - bind(c, name='hipblasStrsv_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsv_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int64_t), value :: m - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - end function hipblasStrsv_64 - end interface - - interface - function hipblasDtrsv_64(handle, uplo, transA, diag, m, & - A, lda, x, incx) & - bind(c, name='hipblasDtrsv_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsv_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int64_t), value :: m - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - end function hipblasDtrsv_64 - end interface - - interface - function hipblasCtrsv_64(handle, uplo, transA, diag, m, & - A, lda, x, incx) & - bind(c, name='hipblasCtrsv_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsv_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int64_t), value :: m - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - end function hipblasCtrsv_64 - end interface - - interface - function hipblasZtrsv_64(handle, uplo, transA, diag, m, & - A, lda, x, incx) & - bind(c, name='hipblasZtrsv_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsv_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int64_t), value :: m - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - end function hipblasZtrsv_64 - end interface - - ! trsvBatched - interface - function hipblasStrsvBatched(handle, uplo, transA, diag, m, & - A, lda, x, incx, batch_count) & - bind(c, name='hipblasStrsvBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsvBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int), value :: m - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int), value :: batch_count - end function hipblasStrsvBatched - end interface - - interface - function hipblasDtrsvBatched(handle, uplo, transA, diag, m, & - A, lda, x, incx, batch_count) & - bind(c, name='hipblasDtrsvBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsvBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int), value :: m - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int), value :: batch_count - end function hipblasDtrsvBatched - end interface - - interface - function hipblasCtrsvBatched(handle, uplo, transA, diag, m, & - A, lda, x, incx, batch_count) & - bind(c, name='hipblasCtrsvBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsvBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int), value :: m - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int), value :: batch_count - end function hipblasCtrsvBatched - end interface - - interface - function hipblasZtrsvBatched(handle, uplo, transA, diag, m, & - A, lda, x, incx, batch_count) & - bind(c, name='hipblasZtrsvBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsvBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int), value :: m - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int), value :: batch_count - end function hipblasZtrsvBatched - end interface - - ! trsvBatched_64 - interface - function hipblasStrsvBatched_64(handle, uplo, transA, diag, m, & - A, lda, x, incx, batch_count) & - bind(c, name='hipblasStrsvBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsvBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int64_t), value :: m - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: batch_count - end function hipblasStrsvBatched_64 - end interface - - interface - function hipblasDtrsvBatched_64(handle, uplo, transA, diag, m, & - A, lda, x, incx, batch_count) & - bind(c, name='hipblasDtrsvBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsvBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int64_t), value :: m - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: batch_count - end function hipblasDtrsvBatched_64 - end interface - - interface - function hipblasCtrsvBatched_64(handle, uplo, transA, diag, m, & - A, lda, x, incx, batch_count) & - bind(c, name='hipblasCtrsvBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsvBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int64_t), value :: m - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: batch_count - end function hipblasCtrsvBatched_64 - end interface - - interface - function hipblasZtrsvBatched_64(handle, uplo, transA, diag, m, & - A, lda, x, incx, batch_count) & - bind(c, name='hipblasZtrsvBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsvBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int64_t), value :: m - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: batch_count - end function hipblasZtrsvBatched_64 - end interface - - ! trsvStridedBatched - interface - function hipblasStrsvStridedBatched(handle, uplo, transA, diag, m, & - A, lda, stride_A, x, incx, stride_x, batch_count) & - bind(c, name='hipblasStrsvStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsvStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int), value :: m - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int), value :: batch_count - end function hipblasStrsvStridedBatched - end interface - - interface - function hipblasDtrsvStridedBatched(handle, uplo, transA, diag, m, & - A, lda, stride_A, x, incx, stride_x, batch_count) & - bind(c, name='hipblasDtrsvStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsvStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int), value :: m - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int), value :: batch_count - end function hipblasDtrsvStridedBatched - end interface - - interface - function hipblasCtrsvStridedBatched(handle, uplo, transA, diag, m, & - A, lda, stride_A, x, incx, stride_x, batch_count) & - bind(c, name='hipblasCtrsvStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsvStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int), value :: m - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int), value :: batch_count - end function hipblasCtrsvStridedBatched - end interface - - interface - function hipblasZtrsvStridedBatched(handle, uplo, transA, diag, m, & - A, lda, stride_A, x, incx, stride_x, batch_count) & - bind(c, name='hipblasZtrsvStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsvStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int), value :: m - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int), value :: batch_count - end function hipblasZtrsvStridedBatched - end interface - - ! trsvStridedBatched_64 - interface - function hipblasStrsvStridedBatched_64(handle, uplo, transA, diag, m, & - A, lda, stride_A, x, incx, stride_x, batch_count) & - bind(c, name='hipblasStrsvStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsvStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int64_t), value :: m - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int64_t), value :: batch_count - end function hipblasStrsvStridedBatched_64 - end interface - - interface - function hipblasDtrsvStridedBatched_64(handle, uplo, transA, diag, m, & - A, lda, stride_A, x, incx, stride_x, batch_count) & - bind(c, name='hipblasDtrsvStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsvStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int64_t), value :: m - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int64_t), value :: batch_count - end function hipblasDtrsvStridedBatched_64 - end interface - - interface - function hipblasCtrsvStridedBatched_64(handle, uplo, transA, diag, m, & - A, lda, stride_A, x, incx, stride_x, batch_count) & - bind(c, name='hipblasCtrsvStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsvStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int64_t), value :: m - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int64_t), value :: batch_count - end function hipblasCtrsvStridedBatched_64 - end interface - - interface - function hipblasZtrsvStridedBatched_64(handle, uplo, transA, diag, m, & - A, lda, stride_A, x, incx, stride_x, batch_count) & - bind(c, name='hipblasZtrsvStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsvStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int64_t), value :: m - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int64_t), value :: batch_count - end function hipblasZtrsvStridedBatched_64 - end interface - - ! tpsv - interface - function hipblasStpsv(handle, uplo, transA, diag, n, & - AP, x, incx) & - bind(c, name='hipblasStpsv') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpsv - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int), value :: n - type(c_ptr), value :: AP - type(c_ptr), value :: x - integer(c_int), value :: incx - end function hipblasStpsv - end interface - - interface - function hipblasDtpsv(handle, uplo, transA, diag, n, & - AP, x, incx) & - bind(c, name='hipblasDtpsv') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpsv - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int), value :: n - type(c_ptr), value :: AP - type(c_ptr), value :: x - integer(c_int), value :: incx - end function hipblasDtpsv - end interface - - interface - function hipblasCtpsv(handle, uplo, transA, diag, n, & - AP, x, incx) & - bind(c, name='hipblasCtpsv') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpsv - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int), value :: n - type(c_ptr), value :: AP - type(c_ptr), value :: x - integer(c_int), value :: incx - end function hipblasCtpsv - end interface - - interface - function hipblasZtpsv(handle, uplo, transA, diag, n, & - AP, x, incx) & - bind(c, name='hipblasZtpsv') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpsv - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int), value :: n - type(c_ptr), value :: AP - type(c_ptr), value :: x - integer(c_int), value :: incx - end function hipblasZtpsv - end interface - - ! tpsv_64 - interface - function hipblasStpsv_64(handle, uplo, transA, diag, n, & - AP, x, incx) & - bind(c, name='hipblasStpsv_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpsv_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int64_t), value :: n - type(c_ptr), value :: AP - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - end function hipblasStpsv_64 - end interface - - interface - function hipblasDtpsv_64(handle, uplo, transA, diag, n, & - AP, x, incx) & - bind(c, name='hipblasDtpsv_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpsv_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int64_t), value :: n - type(c_ptr), value :: AP - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - end function hipblasDtpsv_64 - end interface - - interface - function hipblasCtpsv_64(handle, uplo, transA, diag, n, & - AP, x, incx) & - bind(c, name='hipblasCtpsv_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpsv_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int64_t), value :: n - type(c_ptr), value :: AP - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - end function hipblasCtpsv_64 - end interface - - interface - function hipblasZtpsv_64(handle, uplo, transA, diag, n, & - AP, x, incx) & - bind(c, name='hipblasZtpsv_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpsv_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int64_t), value :: n - type(c_ptr), value :: AP - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - end function hipblasZtpsv_64 - end interface - - ! tpsvBatched - interface - function hipblasStpsvBatched(handle, uplo, transA, diag, n, & - AP, x, incx, batch_count) & - bind(c, name='hipblasStpsvBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpsvBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int), value :: n - type(c_ptr), value :: AP - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int), value :: batch_count - end function hipblasStpsvBatched - end interface - - interface - function hipblasDtpsvBatched(handle, uplo, transA, diag, n, & - AP, x, incx, batch_count) & - bind(c, name='hipblasDtpsvBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpsvBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int), value :: n - type(c_ptr), value :: AP - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int), value :: batch_count - end function hipblasDtpsvBatched - end interface - - interface - function hipblasCtpsvBatched(handle, uplo, transA, diag, n, & - AP, x, incx, batch_count) & - bind(c, name='hipblasCtpsvBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpsvBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int), value :: n - type(c_ptr), value :: AP - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int), value :: batch_count - end function hipblasCtpsvBatched - end interface - - interface - function hipblasZtpsvBatched(handle, uplo, transA, diag, n, & - AP, x, incx, batch_count) & - bind(c, name='hipblasZtpsvBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpsvBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int), value :: n - type(c_ptr), value :: AP - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int), value :: batch_count - end function hipblasZtpsvBatched - end interface - - ! tpsvBatched_64 - interface - function hipblasStpsvBatched_64(handle, uplo, transA, diag, n, & - AP, x, incx, batch_count) & - bind(c, name='hipblasStpsvBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpsvBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int64_t), value :: n - type(c_ptr), value :: AP - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: batch_count - end function hipblasStpsvBatched_64 - end interface - - interface - function hipblasDtpsvBatched_64(handle, uplo, transA, diag, n, & - AP, x, incx, batch_count) & - bind(c, name='hipblasDtpsvBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpsvBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int64_t), value :: n - type(c_ptr), value :: AP - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: batch_count - end function hipblasDtpsvBatched_64 - end interface - - interface - function hipblasCtpsvBatched_64(handle, uplo, transA, diag, n, & - AP, x, incx, batch_count) & - bind(c, name='hipblasCtpsvBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpsvBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int64_t), value :: n - type(c_ptr), value :: AP - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: batch_count - end function hipblasCtpsvBatched_64 - end interface - - interface - function hipblasZtpsvBatched_64(handle, uplo, transA, diag, n, & - AP, x, incx, batch_count) & - bind(c, name='hipblasZtpsvBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpsvBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int64_t), value :: n - type(c_ptr), value :: AP - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: batch_count - end function hipblasZtpsvBatched_64 - end interface - - ! tpsvStridedBatched - interface - function hipblasStpsvStridedBatched(handle, uplo, transA, diag, n, & - AP, stride_AP, x, incx, stride_x, batch_count) & - bind(c, name='hipblasStpsvStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpsvStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int), value :: n - type(c_ptr), value :: AP - integer(c_int64_t), value :: stride_AP - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int), value :: batch_count - end function hipblasStpsvStridedBatched - end interface - - interface - function hipblasDtpsvStridedBatched(handle, uplo, transA, diag, n, & - AP, stride_AP, x, incx, stride_x, batch_count) & - bind(c, name='hipblasDtpsvStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpsvStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int), value :: n - type(c_ptr), value :: AP - integer(c_int64_t), value :: stride_AP - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int), value :: batch_count - end function hipblasDtpsvStridedBatched - end interface - - interface - function hipblasCtpsvStridedBatched(handle, uplo, transA, diag, n, & - AP, stride_AP, x, incx, stride_x, batch_count) & - bind(c, name='hipblasCtpsvStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpsvStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int), value :: n - type(c_ptr), value :: AP - integer(c_int64_t), value :: stride_AP - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int), value :: batch_count - end function hipblasCtpsvStridedBatched - end interface - - interface - function hipblasZtpsvStridedBatched(handle, uplo, transA, diag, n, & - AP, stride_AP, x, incx, stride_x, batch_count) & - bind(c, name='hipblasZtpsvStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpsvStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int), value :: n - type(c_ptr), value :: AP - integer(c_int64_t), value :: stride_AP - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int), value :: batch_count - end function hipblasZtpsvStridedBatched - end interface - - ! tpsvStridedBatched_64 - interface - function hipblasStpsvStridedBatched_64(handle, uplo, transA, diag, n, & - AP, stride_AP, x, incx, stride_x, batch_count) & - bind(c, name='hipblasStpsvStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpsvStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int64_t), value :: n - type(c_ptr), value :: AP - integer(c_int64_t), value :: stride_AP - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int64_t), value :: batch_count - end function hipblasStpsvStridedBatched_64 - end interface - - interface - function hipblasDtpsvStridedBatched_64(handle, uplo, transA, diag, n, & - AP, stride_AP, x, incx, stride_x, batch_count) & - bind(c, name='hipblasDtpsvStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpsvStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int64_t), value :: n - type(c_ptr), value :: AP - integer(c_int64_t), value :: stride_AP - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int64_t), value :: batch_count - end function hipblasDtpsvStridedBatched_64 - end interface - - interface - function hipblasCtpsvStridedBatched_64(handle, uplo, transA, diag, n, & - AP, stride_AP, x, incx, stride_x, batch_count) & - bind(c, name='hipblasCtpsvStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpsvStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int64_t), value :: n - type(c_ptr), value :: AP - integer(c_int64_t), value :: stride_AP - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int64_t), value :: batch_count - end function hipblasCtpsvStridedBatched_64 - end interface - - interface - function hipblasZtpsvStridedBatched_64(handle, uplo, transA, diag, n, & - AP, stride_AP, x, incx, stride_x, batch_count) & - bind(c, name='hipblasZtpsvStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpsvStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag - integer(c_int64_t), value :: n - type(c_ptr), value :: AP - integer(c_int64_t), value :: stride_AP - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - integer(c_int64_t), value :: batch_count - end function hipblasZtpsvStridedBatched_64 - end interface - - ! symv - interface - function hipblasSsymv(handle, uplo, n, alpha, A, lda, & - x, incx, beta, y, incy) & - bind(c, name='hipblasSsymv') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymv - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int), value :: incy - end function hipblasSsymv - end interface - - interface - function hipblasDsymv(handle, uplo, n, alpha, A, lda, & - x, incx, beta, y, incy) & - bind(c, name='hipblasDsymv') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymv - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int), value :: incy - end function hipblasDsymv - end interface - - interface - function hipblasCsymv(handle, uplo, n, alpha, A, lda, & - x, incx, beta, y, incy) & - bind(c, name='hipblasCsymv') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymv - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int), value :: incy - end function hipblasCsymv - end interface - - interface - function hipblasZsymv(handle, uplo, n, alpha, A, lda, & - x, incx, beta, y, incy) & - bind(c, name='hipblasZsymv') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymv - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int), value :: incy - end function hipblasZsymv - end interface - - ! symv_64 - interface - function hipblasSsymv_64(handle, uplo, n, alpha, A, lda, & - x, incx, beta, y, incy) & - bind(c, name='hipblasSsymv_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymv_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - end function hipblasSsymv_64 - end interface - - interface - function hipblasDsymv_64(handle, uplo, n, alpha, A, lda, & - x, incx, beta, y, incy) & - bind(c, name='hipblasDsymv_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymv_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - end function hipblasDsymv_64 - end interface - - interface - function hipblasCsymv_64(handle, uplo, n, alpha, A, lda, & - x, incx, beta, y, incy) & - bind(c, name='hipblasCsymv_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymv_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - end function hipblasCsymv_64 - end interface - - interface - function hipblasZsymv_64(handle, uplo, n, alpha, A, lda, & - x, incx, beta, y, incy) & - bind(c, name='hipblasZsymv_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymv_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - end function hipblasZsymv_64 - end interface - - ! symvBatched - interface - function hipblasSsymvBatched(handle, uplo, n, alpha, A, lda, & - x, incx, beta, y, incy, batch_count) & - bind(c, name='hipblasSsymvBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymvBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int), value :: batch_count - end function hipblasSsymvBatched - end interface - - interface - function hipblasDsymvBatched(handle, uplo, n, alpha, A, lda, & - x, incx, beta, y, incy, batch_count) & - bind(c, name='hipblasDsymvBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymvBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int), value :: batch_count - end function hipblasDsymvBatched - end interface - - interface - function hipblasCsymvBatched(handle, uplo, n, alpha, A, lda, & - x, incx, beta, y, incy, batch_count) & - bind(c, name='hipblasCsymvBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymvBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int), value :: batch_count - end function hipblasCsymvBatched - end interface - - interface - function hipblasZsymvBatched(handle, uplo, n, alpha, A, lda, & - x, incx, beta, y, incy, batch_count) & - bind(c, name='hipblasZsymvBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymvBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int), value :: batch_count - end function hipblasZsymvBatched - end interface - - ! symvBatched_64 - interface - function hipblasSsymvBatched_64(handle, uplo, n, alpha, A, lda, & - x, incx, beta, y, incy, batch_count) & - bind(c, name='hipblasSsymvBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymvBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: batch_count - end function hipblasSsymvBatched_64 - end interface - - interface - function hipblasDsymvBatched_64(handle, uplo, n, alpha, A, lda, & - x, incx, beta, y, incy, batch_count) & - bind(c, name='hipblasDsymvBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymvBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: batch_count - end function hipblasDsymvBatched_64 - end interface - - interface - function hipblasCsymvBatched_64(handle, uplo, n, alpha, A, lda, & - x, incx, beta, y, incy, batch_count) & - bind(c, name='hipblasCsymvBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymvBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: batch_count - end function hipblasCsymvBatched_64 - end interface - - interface - function hipblasZsymvBatched_64(handle, uplo, n, alpha, A, lda, & - x, incx, beta, y, incy, batch_count) & - bind(c, name='hipblasZsymvBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymvBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: batch_count - end function hipblasZsymvBatched_64 - end interface - - ! symvStridedBatched - interface - function hipblasSsymvStridedBatched(handle, uplo, n, alpha, A, lda, stride_A, & - x, incx, stride_x, beta, y, incy, stride_y, batch_count) & - bind(c, name='hipblasSsymvStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymvStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int), value :: batch_count - end function hipblasSsymvStridedBatched - end interface - - interface - function hipblasDsymvStridedBatched(handle, uplo, n, alpha, A, lda, stride_A, & - x, incx, stride_x, beta, y, incy, stride_y, batch_count) & - bind(c, name='hipblasDsymvStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymvStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int), value :: batch_count - end function hipblasDsymvStridedBatched - end interface - - interface - function hipblasCsymvStridedBatched(handle, uplo, n, alpha, A, lda, stride_A, & - x, incx, stride_x, beta, y, incy, stride_y, batch_count) & - bind(c, name='hipblasCsymvStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymvStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int), value :: batch_count - end function hipblasCsymvStridedBatched - end interface - - interface - function hipblasZsymvStridedBatched(handle, uplo, n, alpha, A, lda, stride_A, & - x, incx, stride_x, beta, y, incy, stride_y, batch_count) & - bind(c, name='hipblasZsymvStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymvStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int), value :: batch_count - end function hipblasZsymvStridedBatched - end interface - - ! symvStridedBatched_64 - interface - function hipblasSsymvStridedBatched_64(handle, uplo, n, alpha, A, lda, stride_A, & - x, incx, stride_x, beta, y, incy, stride_y, batch_count) & - bind(c, name='hipblasSsymvStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymvStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int64_t), value :: batch_count - end function hipblasSsymvStridedBatched_64 - end interface - - interface - function hipblasDsymvStridedBatched_64(handle, uplo, n, alpha, A, lda, stride_A, & - x, incx, stride_x, beta, y, incy, stride_y, batch_count) & - bind(c, name='hipblasDsymvStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymvStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int64_t), value :: batch_count - end function hipblasDsymvStridedBatched_64 - end interface - - interface - function hipblasCsymvStridedBatched_64(handle, uplo, n, alpha, A, lda, stride_A, & - x, incx, stride_x, beta, y, incy, stride_y, batch_count) & - bind(c, name='hipblasCsymvStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymvStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int64_t), value :: batch_count - end function hipblasCsymvStridedBatched_64 - end interface - - interface - function hipblasZsymvStridedBatched_64(handle, uplo, n, alpha, A, lda, stride_A, & - x, incx, stride_x, beta, y, incy, stride_y, batch_count) & - bind(c, name='hipblasZsymvStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymvStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int64_t), value :: batch_count - end function hipblasZsymvStridedBatched_64 - end interface - - ! spmv - interface - function hipblasSspmv(handle, uplo, n, alpha, AP, & - x, incx, beta, y, incy) & - bind(c, name='hipblasSspmv') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmv - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: AP - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int), value :: incy - end function hipblasSspmv - end interface - - interface - function hipblasDspmv(handle, uplo, n, alpha, AP, & - x, incx, beta, y, incy) & - bind(c, name='hipblasDspmv') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmv - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: AP - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int), value :: incy - end function hipblasDspmv - end interface - - ! spmv_64 - interface - function hipblasSspmv_64(handle, uplo, n, alpha, AP, & - x, incx, beta, y, incy) & - bind(c, name='hipblasSspmv_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmv_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: AP - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - end function hipblasSspmv_64 - end interface - - interface - function hipblasDspmv_64(handle, uplo, n, alpha, AP, & - x, incx, beta, y, incy) & - bind(c, name='hipblasDspmv_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmv_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: AP - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - end function hipblasDspmv_64 - end interface - - ! spmvBatched - interface - function hipblasSspmvBatched(handle, uplo, n, alpha, AP, & - x, incx, beta, y, incy, batch_count) & - bind(c, name='hipblasSspmvBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmvBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: AP - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int), value :: batch_count - end function hipblasSspmvBatched - end interface - - interface - function hipblasDspmvBatched(handle, uplo, n, alpha, AP, & - x, incx, beta, y, incy, batch_count) & - bind(c, name='hipblasDspmvBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmvBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: AP - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int), value :: batch_count - end function hipblasDspmvBatched - end interface - - ! spmvBatched_64 - interface - function hipblasSspmvBatched_64(handle, uplo, n, alpha, AP, & - x, incx, beta, y, incy, batch_count) & - bind(c, name='hipblasSspmvBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmvBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: AP - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: batch_count - end function hipblasSspmvBatched_64 - end interface - - interface - function hipblasDspmvBatched_64(handle, uplo, n, alpha, AP, & - x, incx, beta, y, incy, batch_count) & - bind(c, name='hipblasDspmvBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmvBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: AP - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: batch_count - end function hipblasDspmvBatched_64 - end interface - - ! spmvStridedBatched - interface - function hipblasSspmvStridedBatched(handle, uplo, n, alpha, AP, stride_AP, & - x, incx, stride_x, beta, y, incy, stride_y, batch_count) & - bind(c, name='hipblasSspmvStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmvStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: AP - integer(c_int64_t), value :: stride_AP - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int), value :: batch_count - end function hipblasSspmvStridedBatched - end interface - - interface - function hipblasDspmvStridedBatched(handle, uplo, n, alpha, AP, stride_AP, & - x, incx, stride_x, beta, y, incy, stride_y, batch_count) & - bind(c, name='hipblasDspmvStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmvStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: AP - integer(c_int64_t), value :: stride_AP - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int), value :: batch_count - end function hipblasDspmvStridedBatched - end interface - - ! spmvStridedBatched_64 - interface - function hipblasSspmvStridedBatched_64(handle, uplo, n, alpha, AP, stride_AP, & - x, incx, stride_x, beta, y, incy, stride_y, batch_count) & - bind(c, name='hipblasSspmvStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmvStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: AP - integer(c_int64_t), value :: stride_AP - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int64_t), value :: batch_count - end function hipblasSspmvStridedBatched_64 - end interface - - interface - function hipblasDspmvStridedBatched_64(handle, uplo, n, alpha, AP, stride_AP, & - x, incx, stride_x, beta, y, incy, stride_y, batch_count) & - bind(c, name='hipblasDspmvStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmvStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: AP - integer(c_int64_t), value :: stride_AP - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int64_t), value :: batch_count - end function hipblasDspmvStridedBatched_64 - end interface - - ! sbmv - interface - function hipblasSsbmv(handle, uplo, n, k, alpha, A, lda, & - x, incx, beta, y, incy) & - bind(c, name='hipblasSsbmv') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmv - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int), value :: incy - end function hipblasSsbmv - end interface - - interface - function hipblasDsbmv(handle, uplo, n, k, alpha, A, lda, & - x, incx, beta, y, incy) & - bind(c, name='hipblasDsbmv') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmv - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int), value :: incy - end function hipblasDsbmv - end interface - - ! sbmv_64 - interface - function hipblasSsbmv_64(handle, uplo, n, k, alpha, A, lda, & - x, incx, beta, y, incy) & - bind(c, name='hipblasSsbmv_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmv_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - end function hipblasSsbmv_64 - end interface - - interface - function hipblasDsbmv_64(handle, uplo, n, k, alpha, A, lda, & - x, incx, beta, y, incy) & - bind(c, name='hipblasDsbmv_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmv_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - end function hipblasDsbmv_64 - end interface - - ! sbmvBatched - interface - function hipblasSsbmvBatched(handle, uplo, n, k, alpha, A, lda, & - x, incx, beta, y, incy, batch_count) & - bind(c, name='hipblasSsbmvBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmvBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int), value :: batch_count - end function hipblasSsbmvBatched - end interface - - interface - function hipblasDsbmvBatched(handle, uplo, n, k, alpha, A, lda, & - x, incx, beta, y, incy, batch_count) & - bind(c, name='hipblasDsbmvBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmvBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int), value :: batch_count - end function hipblasDsbmvBatched - end interface - - ! sbmvBatched_64 - interface - function hipblasSsbmvBatched_64(handle, uplo, n, k, alpha, A, lda, & - x, incx, beta, y, incy, batch_count) & - bind(c, name='hipblasSsbmvBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmvBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: batch_count - end function hipblasSsbmvBatched_64 - end interface - - interface - function hipblasDsbmvBatched_64(handle, uplo, n, k, alpha, A, lda, & - x, incx, beta, y, incy, batch_count) & - bind(c, name='hipblasDsbmvBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmvBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: batch_count - end function hipblasDsbmvBatched_64 - end interface - - ! sbmvStridedBatched - interface - function hipblasSsbmvStridedBatched(handle, uplo, n, k, alpha, A, lda, stride_A, & - x, incx, stride_x, beta, y, incy, stride_y, batch_count) & - bind(c, name='hipblasSsbmvStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmvStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int), value :: batch_count - end function hipblasSsbmvStridedBatched - end interface - - interface - function hipblasDsbmvStridedBatched(handle, uplo, n, k, alpha, A, lda, stride_A, & - x, incx, stride_x, beta, y, incy, stride_y, batch_count) & - bind(c, name='hipblasDsbmvStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmvStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int), value :: batch_count - end function hipblasDsbmvStridedBatched - end interface - - ! sbmvStridedBatched_64 - interface - function hipblasSsbmvStridedBatched_64(handle, uplo, n, k, alpha, A, lda, stride_A, & - x, incx, stride_x, beta, y, incy, stride_y, batch_count) & - bind(c, name='hipblasSsbmvStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmvStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int64_t), value :: batch_count - end function hipblasSsbmvStridedBatched_64 - end interface - - interface - function hipblasDsbmvStridedBatched_64(handle, uplo, n, k, alpha, A, lda, stride_A, & - x, incx, stride_x, beta, y, incy, stride_y, batch_count) & - bind(c, name='hipblasDsbmvStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmvStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: beta - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: stride_y - integer(c_int64_t), value :: batch_count - end function hipblasDsbmvStridedBatched_64 - end interface - - ! ger - interface - function hipblasSger(handle, m, n, alpha, x, incx, & - y, incy, A, lda) & - bind(c, name='hipblasSger') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSger - type(c_ptr), value :: handle - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - type(c_ptr), value :: A - integer(c_int), value :: lda - end function hipblasSger - end interface - - interface - function hipblasDger(handle, m, n, alpha, x, incx, & - y, incy, A, lda) & - bind(c, name='hipblasDger') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDger - type(c_ptr), value :: handle - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - type(c_ptr), value :: A - integer(c_int), value :: lda - end function hipblasDger - end interface - - interface - function hipblasCgeru(handle, m, n, alpha, x, incx, & - y, incy, A, lda) & - bind(c, name='hipblasCgeru') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeru - type(c_ptr), value :: handle - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - type(c_ptr), value :: A - integer(c_int), value :: lda - end function hipblasCgeru - end interface - - interface - function hipblasCgerc(handle, m, n, alpha, x, incx, & - y, incy, A, lda) & - bind(c, name='hipblasCgerc') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgerc - type(c_ptr), value :: handle - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - type(c_ptr), value :: A - integer(c_int), value :: lda - end function hipblasCgerc - end interface - - interface - function hipblasZgeru(handle, m, n, alpha, x, incx, & - y, incy, A, lda) & - bind(c, name='hipblasZgeru') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeru - type(c_ptr), value :: handle - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - type(c_ptr), value :: A - integer(c_int), value :: lda - end function hipblasZgeru - end interface - - interface - function hipblasZgerc(handle, m, n, alpha, x, incx, & - y, incy, A, lda) & - bind(c, name='hipblasZgerc') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgerc - type(c_ptr), value :: handle - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - type(c_ptr), value :: A - integer(c_int), value :: lda - end function hipblasZgerc - end interface - - ! ger_64 - interface - function hipblasSger_64(handle, m, n, alpha, x, incx, & - y, incy, A, lda) & - bind(c, name='hipblasSger_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSger_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - end function hipblasSger_64 - end interface - - interface - function hipblasDger_64(handle, m, n, alpha, x, incx, & - y, incy, A, lda) & - bind(c, name='hipblasDger_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDger_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - end function hipblasDger_64 - end interface - - interface - function hipblasCgeru_64(handle, m, n, alpha, x, incx, & - y, incy, A, lda) & - bind(c, name='hipblasCgeru_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeru_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - end function hipblasCgeru_64 - end interface - - interface - function hipblasCgerc_64(handle, m, n, alpha, x, incx, & - y, incy, A, lda) & - bind(c, name='hipblasCgerc_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgerc_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - end function hipblasCgerc_64 - end interface - - interface - function hipblasZgeru_64(handle, m, n, alpha, x, incx, & - y, incy, A, lda) & - bind(c, name='hipblasZgeru_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeru_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - end function hipblasZgeru_64 - end interface - - interface - function hipblasZgerc_64(handle, m, n, alpha, x, incx, & - y, incy, A, lda) & - bind(c, name='hipblasZgerc_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgerc_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - end function hipblasZgerc_64 - end interface - - ! gerBatched - interface - function hipblasSgerBatched(handle, m, n, alpha, x, incx, & - y, incy, A, lda, batch_count) & - bind(c, name='hipblasSgerBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgerBatched - type(c_ptr), value :: handle - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int), value :: batch_count - end function hipblasSgerBatched - end interface - - interface - function hipblasDgerBatched(handle, m, n, alpha, x, incx, & - y, incy, A, lda, batch_count) & - bind(c, name='hipblasDgerBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgerBatched - type(c_ptr), value :: handle - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int), value :: batch_count - end function hipblasDgerBatched - end interface - - interface - function hipblasCgeruBatched(handle, m, n, alpha, x, incx, & - y, incy, A, lda, batch_count) & - bind(c, name='hipblasCgeruBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeruBatched - type(c_ptr), value :: handle - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int), value :: batch_count - end function hipblasCgeruBatched - end interface - - interface - function hipblasCgercBatched(handle, m, n, alpha, x, incx, & - y, incy, A, lda, batch_count) & - bind(c, name='hipblasCgercBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgercBatched - type(c_ptr), value :: handle - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int), value :: batch_count - end function hipblasCgercBatched - end interface - - interface - function hipblasZgeruBatched(handle, m, n, alpha, x, incx, & - y, incy, A, lda, batch_count) & - bind(c, name='hipblasZgeruBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeruBatched - type(c_ptr), value :: handle - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int), value :: batch_count - end function hipblasZgeruBatched - end interface - - interface - function hipblasZgercBatched(handle, m, n, alpha, x, incx, & - y, incy, A, lda, batch_count) & - bind(c, name='hipblasZgercBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgercBatched - type(c_ptr), value :: handle - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int), value :: batch_count - end function hipblasZgercBatched - end interface - - ! gerBatched_64 - interface - function hipblasSgerBatched_64(handle, m, n, alpha, x, incx, & - y, incy, A, lda, batch_count) & - bind(c, name='hipblasSgerBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgerBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: batch_count - end function hipblasSgerBatched_64 - end interface - - interface - function hipblasDgerBatched_64(handle, m, n, alpha, x, incx, & - y, incy, A, lda, batch_count) & - bind(c, name='hipblasDgerBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgerBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: batch_count - end function hipblasDgerBatched_64 - end interface - - interface - function hipblasCgeruBatched_64(handle, m, n, alpha, x, incx, & - y, incy, A, lda, batch_count) & - bind(c, name='hipblasCgeruBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeruBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: batch_count - end function hipblasCgeruBatched_64 - end interface - - interface - function hipblasCgercBatched_64(handle, m, n, alpha, x, incx, & - y, incy, A, lda, batch_count) & - bind(c, name='hipblasCgercBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgercBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: batch_count - end function hipblasCgercBatched_64 - end interface - - interface - function hipblasZgeruBatched_64(handle, m, n, alpha, x, incx, & - y, incy, A, lda, batch_count) & - bind(c, name='hipblasZgeruBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeruBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: batch_count - end function hipblasZgeruBatched_64 - end interface - - interface - function hipblasZgercBatched_64(handle, m, n, alpha, x, incx, & - y, incy, A, lda, batch_count) & - bind(c, name='hipblasZgercBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgercBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: batch_count - end function hipblasZgercBatched_64 - end interface - - ! gerStridedBatched - interface - function hipblasSgerStridedBatched(handle, m, n, alpha, x, incx, stride_x, & - y, incy, stride_y, A, lda, stride_A, batch_count) & - bind(c, name='hipblasSgerStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgerStridedBatched - type(c_ptr), value :: handle - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int64_t), value :: stride_y - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - integer(c_int), value :: batch_count - end function hipblasSgerStridedBatched - end interface - - interface - function hipblasDgerStridedBatched(handle, m, n, alpha, x, incx, stride_x, & - y, incy, stride_y, A, lda, stride_A, batch_count) & - bind(c, name='hipblasDgerStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgerStridedBatched - type(c_ptr), value :: handle - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int64_t), value :: stride_y - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - integer(c_int), value :: batch_count - end function hipblasDgerStridedBatched - end interface - - interface - function hipblasCgeruStridedBatched(handle, m, n, alpha, x, incx, stride_x, & - y, incy, stride_y, A, lda, stride_A, batch_count) & - bind(c, name='hipblasCgeruStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeruStridedBatched - type(c_ptr), value :: handle - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int64_t), value :: stride_y - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - integer(c_int), value :: batch_count - end function hipblasCgeruStridedBatched - end interface - - interface - function hipblasCgercStridedBatched(handle, m, n, alpha, x, incx, stride_x, & - y, incy, stride_y, A, lda, stride_A, batch_count) & - bind(c, name='hipblasCgercStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgercStridedBatched - type(c_ptr), value :: handle - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int64_t), value :: stride_y - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - integer(c_int), value :: batch_count - end function hipblasCgercStridedBatched - end interface - - interface - function hipblasZgeruStridedBatched(handle, m, n, alpha, x, incx, stride_x, & - y, incy, stride_y, A, lda, stride_A, batch_count) & - bind(c, name='hipblasZgeruStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeruStridedBatched - type(c_ptr), value :: handle - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int64_t), value :: stride_y - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - integer(c_int), value :: batch_count - end function hipblasZgeruStridedBatched - end interface - - interface - function hipblasZgercStridedBatched(handle, m, n, alpha, x, incx, stride_x, & - y, incy, stride_y, A, lda, stride_A, batch_count) & - bind(c, name='hipblasZgercStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgercStridedBatched - type(c_ptr), value :: handle - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int64_t), value :: stride_y - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - integer(c_int), value :: batch_count - end function hipblasZgercStridedBatched - end interface - - ! gerStridedBatched_64 - interface - function hipblasSgerStridedBatched_64(handle, m, n, alpha, x, incx, stride_x, & - y, incy, stride_y, A, lda, stride_A, batch_count) & - bind(c, name='hipblasSgerStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgerStridedBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: stride_y - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - integer(c_int64_t), value :: batch_count - end function hipblasSgerStridedBatched_64 - end interface - - interface - function hipblasDgerStridedBatched_64(handle, m, n, alpha, x, incx, stride_x, & - y, incy, stride_y, A, lda, stride_A, batch_count) & - bind(c, name='hipblasDgerStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgerStridedBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: stride_y - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - integer(c_int64_t), value :: batch_count - end function hipblasDgerStridedBatched_64 - end interface - - interface - function hipblasCgeruStridedBatched_64(handle, m, n, alpha, x, incx, stride_x, & - y, incy, stride_y, A, lda, stride_A, batch_count) & - bind(c, name='hipblasCgeruStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeruStridedBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: stride_y - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - integer(c_int64_t), value :: batch_count - end function hipblasCgeruStridedBatched_64 - end interface - - interface - function hipblasCgercStridedBatched_64(handle, m, n, alpha, x, incx, stride_x, & - y, incy, stride_y, A, lda, stride_A, batch_count) & - bind(c, name='hipblasCgercStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgercStridedBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: stride_y - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - integer(c_int64_t), value :: batch_count - end function hipblasCgercStridedBatched_64 - end interface - - interface - function hipblasZgeruStridedBatched_64(handle, m, n, alpha, x, incx, stride_x, & - y, incy, stride_y, A, lda, stride_A, batch_count) & - bind(c, name='hipblasZgeruStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeruStridedBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: stride_y - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - integer(c_int64_t), value :: batch_count - end function hipblasZgeruStridedBatched_64 - end interface - - interface - function hipblasZgercStridedBatched_64(handle, m, n, alpha, x, incx, stride_x, & - y, incy, stride_y, A, lda, stride_A, batch_count) & - bind(c, name='hipblasZgercStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgercStridedBatched_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: stride_y - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - integer(c_int64_t), value :: batch_count - end function hipblasZgercStridedBatched_64 - end interface - - ! spr - interface - function hipblasSspr(handle, uplo, n, alpha, x, incx, AP) & - bind(c, name='hipblasSspr') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: AP - end function hipblasSspr - end interface - - interface - function hipblasDspr(handle, uplo, n, alpha, x, incx, AP) & - bind(c, name='hipblasDspr') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: AP - end function hipblasDspr - end interface - - interface - function hipblasCspr(handle, uplo, n, alpha, x, incx, AP) & - bind(c, name='hipblasCspr') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCspr - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: AP - end function hipblasCspr - end interface - - interface - function hipblasZspr(handle, uplo, n, alpha, x, incx, AP) & - bind(c, name='hipblasZspr') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZspr - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: AP - end function hipblasZspr - end interface - - ! spr_64 - interface - function hipblasSspr_64(handle, uplo, n, alpha, x, incx, AP) & - bind(c, name='hipblasSspr_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: AP - end function hipblasSspr_64 - end interface - - interface - function hipblasDspr_64(handle, uplo, n, alpha, x, incx, AP) & - bind(c, name='hipblasDspr_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: AP - end function hipblasDspr_64 - end interface - - interface - function hipblasCspr_64(handle, uplo, n, alpha, x, incx, AP) & - bind(c, name='hipblasCspr_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCspr_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: AP - end function hipblasCspr_64 - end interface - - interface - function hipblasZspr_64(handle, uplo, n, alpha, x, incx, AP) & - bind(c, name='hipblasZspr_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZspr_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: AP - end function hipblasZspr_64 - end interface - - ! sprBatched - interface - function hipblasSsprBatched(handle, uplo, n, alpha, x, incx, AP, batch_count) & - bind(c, name='hipblasSsprBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsprBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: AP - integer(c_int), value :: batch_count - end function hipblasSsprBatched - end interface - - interface - function hipblasDsprBatched(handle, uplo, n, alpha, x, incx, AP, batch_count) & - bind(c, name='hipblasDsprBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsprBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: AP - integer(c_int), value :: batch_count - end function hipblasDsprBatched - end interface - - interface - function hipblasCsprBatched(handle, uplo, n, alpha, x, incx, AP, batch_count) & - bind(c, name='hipblasCsprBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsprBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: AP - integer(c_int), value :: batch_count - end function hipblasCsprBatched - end interface - - interface - function hipblasZsprBatched(handle, uplo, n, alpha, x, incx, AP, batch_count) & - bind(c, name='hipblasZsprBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsprBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: AP - integer(c_int), value :: batch_count - end function hipblasZsprBatched - end interface - - ! sprBatched_64 - interface - function hipblasSsprBatched_64(handle, uplo, n, alpha, x, incx, AP, batch_count) & - bind(c, name='hipblasSsprBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsprBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: AP - integer(c_int64_t), value :: batch_count - end function hipblasSsprBatched_64 - end interface - - interface - function hipblasDsprBatched_64(handle, uplo, n, alpha, x, incx, AP, batch_count) & - bind(c, name='hipblasDsprBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsprBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: AP - integer(c_int64_t), value :: batch_count - end function hipblasDsprBatched_64 - end interface - - interface - function hipblasCsprBatched_64(handle, uplo, n, alpha, x, incx, AP, batch_count) & - bind(c, name='hipblasCsprBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsprBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: AP - integer(c_int64_t), value :: batch_count - end function hipblasCsprBatched_64 - end interface - - interface - function hipblasZsprBatched_64(handle, uplo, n, alpha, x, incx, AP, batch_count) & - bind(c, name='hipblasZsprBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsprBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: AP - integer(c_int64_t), value :: batch_count - end function hipblasZsprBatched_64 - end interface - - ! sprStridedBatched - interface - function hipblasSsprStridedBatched(handle, uplo, n, alpha, x, incx, stride_x, & - AP, stride_AP, batch_count) & - bind(c, name='hipblasSsprStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsprStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: AP - integer(c_int64_t), value :: stride_AP - integer(c_int), value :: batch_count - end function hipblasSsprStridedBatched - end interface - - interface - function hipblasDsprStridedBatched(handle, uplo, n, alpha, x, incx, stride_x, & - AP, stride_AP, batch_count) & - bind(c, name='hipblasDsprStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsprStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: AP - integer(c_int64_t), value :: stride_AP - integer(c_int), value :: batch_count - end function hipblasDsprStridedBatched - end interface - - interface - function hipblasCsprStridedBatched(handle, uplo, n, alpha, x, incx, stride_x, & - AP, stride_AP, batch_count) & - bind(c, name='hipblasCsprStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsprStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: AP - integer(c_int64_t), value :: stride_AP - integer(c_int), value :: batch_count - end function hipblasCsprStridedBatched - end interface - - interface - function hipblasZsprStridedBatched(handle, uplo, n, alpha, x, incx, stride_x, & - AP, stride_AP, batch_count) & - bind(c, name='hipblasZsprStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsprStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: AP - integer(c_int64_t), value :: stride_AP - integer(c_int), value :: batch_count - end function hipblasZsprStridedBatched - end interface - - ! sprStridedBatched_64 - interface - function hipblasSsprStridedBatched_64(handle, uplo, n, alpha, x, incx, stride_x, & - AP, stride_AP, batch_count) & - bind(c, name='hipblasSsprStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsprStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: AP - integer(c_int64_t), value :: stride_AP - integer(c_int64_t), value :: batch_count - end function hipblasSsprStridedBatched_64 - end interface - - interface - function hipblasDsprStridedBatched_64(handle, uplo, n, alpha, x, incx, stride_x, & - AP, stride_AP, batch_count) & - bind(c, name='hipblasDsprStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsprStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: AP - integer(c_int64_t), value :: stride_AP - integer(c_int64_t), value :: batch_count - end function hipblasDsprStridedBatched_64 - end interface - - interface - function hipblasCsprStridedBatched_64(handle, uplo, n, alpha, x, incx, stride_x, & - AP, stride_AP, batch_count) & - bind(c, name='hipblasCsprStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsprStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: AP - integer(c_int64_t), value :: stride_AP - integer(c_int64_t), value :: batch_count - end function hipblasCsprStridedBatched_64 - end interface - - interface - function hipblasZsprStridedBatched_64(handle, uplo, n, alpha, x, incx, stride_x, & - AP, stride_AP, batch_count) & - bind(c, name='hipblasZsprStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsprStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: AP - integer(c_int64_t), value :: stride_AP - integer(c_int64_t), value :: batch_count - end function hipblasZsprStridedBatched_64 - end interface - - ! spr2 - interface - function hipblasSspr2(handle, uplo, n, alpha, x, incx, & - y, incy, AP) & - bind(c, name='hipblasSspr2') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - type(c_ptr), value :: AP - end function hipblasSspr2 - end interface - - interface - function hipblasDspr2(handle, uplo, n, alpha, x, incx, & - y, incy, AP) & - bind(c, name='hipblasDspr2') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - type(c_ptr), value :: AP - end function hipblasDspr2 - end interface - - ! spr2_64 - interface - function hipblasSspr2_64(handle, uplo, n, alpha, x, incx, & - y, incy, AP) & - bind(c, name='hipblasSspr2_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - type(c_ptr), value :: AP - end function hipblasSspr2_64 - end interface - - interface - function hipblasDspr2_64(handle, uplo, n, alpha, x, incx, & - y, incy, AP) & - bind(c, name='hipblasDspr2_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - type(c_ptr), value :: AP - end function hipblasDspr2_64 - end interface - - ! spr2Batched - interface - function hipblasSspr2Batched(handle, uplo, n, alpha, x, incx, & - y, incy, AP, batch_count) & - bind(c, name='hipblasSspr2Batched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2Batched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - type(c_ptr), value :: AP - integer(c_int), value :: batch_count - end function hipblasSspr2Batched - end interface - - interface - function hipblasDspr2Batched(handle, uplo, n, alpha, x, incx, & - y, incy, AP, batch_count) & - bind(c, name='hipblasDspr2Batched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2Batched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - type(c_ptr), value :: AP - integer(c_int), value :: batch_count - end function hipblasDspr2Batched - end interface - - ! spr2Batched_64 - interface - function hipblasSspr2Batched_64(handle, uplo, n, alpha, x, incx, & - y, incy, AP, batch_count) & - bind(c, name='hipblasSspr2Batched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2Batched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - type(c_ptr), value :: AP - integer(c_int64_t), value :: batch_count - end function hipblasSspr2Batched_64 - end interface - - interface - function hipblasDspr2Batched_64(handle, uplo, n, alpha, x, incx, & - y, incy, AP, batch_count) & - bind(c, name='hipblasDspr2Batched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2Batched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - type(c_ptr), value :: AP - integer(c_int64_t), value :: batch_count - end function hipblasDspr2Batched_64 - end interface - - ! spr2StridedBatched - interface - function hipblasSspr2StridedBatched(handle, uplo, n, alpha, x, incx, stride_x, & - y, incy, stride_y, AP, stride_AP, batch_count) & - bind(c, name='hipblasSspr2StridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2StridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int64_t), value :: stride_y - type(c_ptr), value :: AP - integer(c_int64_t), value :: stride_AP - integer(c_int), value :: batch_count - end function hipblasSspr2StridedBatched - end interface - - interface - function hipblasDspr2StridedBatched(handle, uplo, n, alpha, x, incx, stride_x, & - y, incy, stride_y, AP, stride_AP, batch_count) & - bind(c, name='hipblasDspr2StridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2StridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int64_t), value :: stride_y - type(c_ptr), value :: AP - integer(c_int64_t), value :: stride_AP - integer(c_int), value :: batch_count - end function hipblasDspr2StridedBatched - end interface - - ! spr2StridedBatched_64 - interface - function hipblasSspr2StridedBatched_64(handle, uplo, n, alpha, x, incx, stride_x, & - y, incy, stride_y, AP, stride_AP, batch_count) & - bind(c, name='hipblasSspr2StridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2StridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: stride_y - type(c_ptr), value :: AP - integer(c_int64_t), value :: stride_AP - integer(c_int64_t), value :: batch_count - end function hipblasSspr2StridedBatched_64 - end interface - - interface - function hipblasDspr2StridedBatched_64(handle, uplo, n, alpha, x, incx, stride_x, & - y, incy, stride_y, AP, stride_AP, batch_count) & - bind(c, name='hipblasDspr2StridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2StridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: stride_y - type(c_ptr), value :: AP - integer(c_int64_t), value :: stride_AP - integer(c_int64_t), value :: batch_count - end function hipblasDspr2StridedBatched_64 - end interface - - ! syr - interface - function hipblasSsyr(handle, uplo, n, alpha, x, incx, A, lda) & - bind(c, name='hipblasSsyr') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: A - integer(c_int), value :: lda - end function hipblasSsyr - end interface - - interface - function hipblasDsyr(handle, uplo, n, alpha, x, incx, A, lda) & - bind(c, name='hipblasDsyr') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: A - integer(c_int), value :: lda - end function hipblasDsyr - end interface - - interface - function hipblasCsyr(handle, uplo, n, alpha, x, incx, A, lda) & - bind(c, name='hipblasCsyr') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: A - integer(c_int), value :: lda - end function hipblasCsyr - end interface - - interface - function hipblasZsyr(handle, uplo, n, alpha, x, incx, A, lda) & - bind(c, name='hipblasZsyr') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: A - integer(c_int), value :: lda - end function hipblasZsyr - end interface - - ! syr_64 - interface - function hipblasSsyr_64(handle, uplo, n, alpha, x, incx, A, lda) & - bind(c, name='hipblasSsyr_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - end function hipblasSsyr_64 - end interface - - interface - function hipblasDsyr_64(handle, uplo, n, alpha, x, incx, A, lda) & - bind(c, name='hipblasDsyr_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - end function hipblasDsyr_64 - end interface - - interface - function hipblasCsyr_64(handle, uplo, n, alpha, x, incx, A, lda) & - bind(c, name='hipblasCsyr_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - end function hipblasCsyr_64 - end interface - - interface - function hipblasZsyr_64(handle, uplo, n, alpha, x, incx, A, lda) & - bind(c, name='hipblasZsyr_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - end function hipblasZsyr_64 - end interface - - ! syrBatched - interface - function hipblasSsyrBatched(handle, uplo, n, alpha, x, incx, A, lda, batch_count) & - bind(c, name='hipblasSsyrBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int), value :: batch_count - end function hipblasSsyrBatched - end interface - - interface - function hipblasDsyrBatched(handle, uplo, n, alpha, x, incx, A, lda, batch_count) & - bind(c, name='hipblasDsyrBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int), value :: batch_count - end function hipblasDsyrBatched - end interface - - interface - function hipblasCsyrBatched(handle, uplo, n, alpha, x, incx, A, lda, batch_count) & - bind(c, name='hipblasCsyrBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int), value :: batch_count - end function hipblasCsyrBatched - end interface - - interface - function hipblasZsyrBatched(handle, uplo, n, alpha, x, incx, A, lda, batch_count) & - bind(c, name='hipblasZsyrBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int), value :: batch_count - end function hipblasZsyrBatched - end interface - - ! syrBatched_64 - interface - function hipblasSsyrBatched_64(handle, uplo, n, alpha, x, incx, A, lda, batch_count) & - bind(c, name='hipblasSsyrBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: batch_count - end function hipblasSsyrBatched_64 - end interface - - interface - function hipblasDsyrBatched_64(handle, uplo, n, alpha, x, incx, A, lda, batch_count) & - bind(c, name='hipblasDsyrBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: batch_count - end function hipblasDsyrBatched_64 - end interface - - interface - function hipblasCsyrBatched_64(handle, uplo, n, alpha, x, incx, A, lda, batch_count) & - bind(c, name='hipblasCsyrBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: batch_count - end function hipblasCsyrBatched_64 - end interface - - interface - function hipblasZsyrBatched_64(handle, uplo, n, alpha, x, incx, A, lda, batch_count) & - bind(c, name='hipblasZsyrBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: batch_count - end function hipblasZsyrBatched_64 - end interface - - ! syrStridedBatched - interface - function hipblasSsyrStridedBatched(handle, uplo, n, alpha, x, incx, stride_x, & - A, lda, stride_A, batch_count) & - bind(c, name='hipblasSsyrStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - integer(c_int), value :: batch_count - end function hipblasSsyrStridedBatched - end interface - - interface - function hipblasDsyrStridedBatched(handle, uplo, n, alpha, x, incx, stride_x, & - A, lda, stride_A, batch_count) & - bind(c, name='hipblasDsyrStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - integer(c_int), value :: batch_count - end function hipblasDsyrStridedBatched - end interface - - interface - function hipblasCsyrStridedBatched(handle, uplo, n, alpha, x, incx, stride_x, & - A, lda, stride_A, batch_count) & - bind(c, name='hipblasCsyrStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - integer(c_int), value :: batch_count - end function hipblasCsyrStridedBatched - end interface - - interface - function hipblasZsyrStridedBatched(handle, uplo, n, alpha, x, incx, stride_x, & - A, lda, stride_A, batch_count) & - bind(c, name='hipblasZsyrStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - integer(c_int), value :: batch_count - end function hipblasZsyrStridedBatched - end interface - - ! syrStridedBatched_64 - interface - function hipblasSsyrStridedBatched_64(handle, uplo, n, alpha, x, incx, stride_x, & - A, lda, stride_A, batch_count) & - bind(c, name='hipblasSsyrStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - integer(c_int64_t), value :: batch_count - end function hipblasSsyrStridedBatched_64 - end interface - - interface - function hipblasDsyrStridedBatched_64(handle, uplo, n, alpha, x, incx, stride_x, & - A, lda, stride_A, batch_count) & - bind(c, name='hipblasDsyrStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - integer(c_int64_t), value :: batch_count - end function hipblasDsyrStridedBatched_64 - end interface - - interface - function hipblasCsyrStridedBatched_64(handle, uplo, n, alpha, x, incx, stride_x, & - A, lda, stride_A, batch_count) & - bind(c, name='hipblasCsyrStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - integer(c_int64_t), value :: batch_count - end function hipblasCsyrStridedBatched_64 - end interface - - interface - function hipblasZsyrStridedBatched_64(handle, uplo, n, alpha, x, incx, stride_x, & - A, lda, stride_A, batch_count) & - bind(c, name='hipblasZsyrStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - integer(c_int64_t), value :: batch_count - end function hipblasZsyrStridedBatched_64 - end interface - - ! syr2 - interface - function hipblasSsyr2(handle, uplo, n, alpha, x, incx, & - y, incy, A, lda) & - bind(c, name='hipblasSsyr2') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - type(c_ptr), value :: A - integer(c_int), value :: lda - end function hipblasSsyr2 - end interface - - interface - function hipblasDsyr2(handle, uplo, n, alpha, x, incx, & - y, incy, A, lda) & - bind(c, name='hipblasDsyr2') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - type(c_ptr), value :: A - integer(c_int), value :: lda - end function hipblasDsyr2 - end interface - - interface - function hipblasCsyr2(handle, uplo, n, alpha, x, incx, & - y, incy, A, lda) & - bind(c, name='hipblasCsyr2') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - type(c_ptr), value :: A - integer(c_int), value :: lda - end function hipblasCsyr2 - end interface - - interface - function hipblasZsyr2(handle, uplo, n, alpha, x, incx, & - y, incy, A, lda) & - bind(c, name='hipblasZsyr2') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - type(c_ptr), value :: A - integer(c_int), value :: lda - end function hipblasZsyr2 - end interface - - ! syr2_64 - interface - function hipblasSsyr2_64(handle, uplo, n, alpha, x, incx, & - y, incy, A, lda) & - bind(c, name='hipblasSsyr2_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - end function hipblasSsyr2_64 - end interface - - interface - function hipblasDsyr2_64(handle, uplo, n, alpha, x, incx, & - y, incy, A, lda) & - bind(c, name='hipblasDsyr2_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - end function hipblasDsyr2_64 - end interface - - interface - function hipblasCsyr2_64(handle, uplo, n, alpha, x, incx, & - y, incy, A, lda) & - bind(c, name='hipblasCsyr2_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - end function hipblasCsyr2_64 - end interface - - interface - function hipblasZsyr2_64(handle, uplo, n, alpha, x, incx, & - y, incy, A, lda) & - bind(c, name='hipblasZsyr2_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - end function hipblasZsyr2_64 - end interface - - ! syr2Batched - interface - function hipblasSsyr2Batched(handle, uplo, n, alpha, x, incx, & - y, incy, A, lda, batch_count) & - bind(c, name='hipblasSsyr2Batched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2Batched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int), value :: batch_count - end function hipblasSsyr2Batched - end interface - - interface - function hipblasDsyr2Batched(handle, uplo, n, alpha, x, incx, & - y, incy, A, lda, batch_count) & - bind(c, name='hipblasDsyr2Batched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2Batched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int), value :: batch_count - end function hipblasDsyr2Batched - end interface - - interface - function hipblasCsyr2Batched(handle, uplo, n, alpha, x, incx, & - y, incy, A, lda, batch_count) & - bind(c, name='hipblasCsyr2Batched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2Batched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int), value :: batch_count - end function hipblasCsyr2Batched - end interface - - interface - function hipblasZsyr2Batched(handle, uplo, n, alpha, x, incx, & - y, incy, A, lda, batch_count) & - bind(c, name='hipblasZsyr2Batched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2Batched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(c_int), value :: incy - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int), value :: batch_count - end function hipblasZsyr2Batched - end interface - - ! syr2Batched_64 - interface - function hipblasSsyr2Batched_64(handle, uplo, n, alpha, x, incx, & - y, incy, A, lda, batch_count) & - bind(c, name='hipblasSsyr2Batched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2Batched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: batch_count - end function hipblasSsyr2Batched_64 - end interface - - interface - function hipblasDsyr2Batched_64(handle, uplo, n, alpha, x, incx, & - y, incy, A, lda, batch_count) & - bind(c, name='hipblasDsyr2Batched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2Batched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: batch_count - end function hipblasDsyr2Batched_64 - end interface - - interface - function hipblasCsyr2Batched_64(handle, uplo, n, alpha, x, incx, & - y, incy, A, lda, batch_count) & - bind(c, name='hipblasCsyr2Batched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2Batched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: batch_count - end function hipblasCsyr2Batched_64 - end interface - - interface - function hipblasZsyr2Batched_64(handle, uplo, n, alpha, x, incx, & - y, incy, A, lda, batch_count) & - bind(c, name='hipblasZsyr2Batched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2Batched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: batch_count - end function hipblasZsyr2Batched_64 - end interface - - ! syr2StridedBatched - interface - function hipblasSsyr2StridedBatched(handle, uplo, n, alpha, x, incx, stride_x, & - y, incy, stride_y, A, lda, stride_A, batch_count) & - bind(c, name='hipblasSsyr2StridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2StridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int64_t), value :: stride_y - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - integer(c_int), value :: batch_count - end function hipblasSsyr2StridedBatched - end interface - - interface - function hipblasDsyr2StridedBatched(handle, uplo, n, alpha, x, incx, stride_x, & - y, incy, stride_y, A, lda, stride_A, batch_count) & - bind(c, name='hipblasDsyr2StridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2StridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int64_t), value :: stride_y - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - integer(c_int), value :: batch_count - end function hipblasDsyr2StridedBatched - end interface - - interface - function hipblasCsyr2StridedBatched(handle, uplo, n, alpha, x, incx, stride_x, & - y, incy, stride_y, A, lda, stride_A, batch_count) & - bind(c, name='hipblasCsyr2StridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2StridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int64_t), value :: stride_y - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - integer(c_int), value :: batch_count - end function hipblasCsyr2StridedBatched - end interface - - interface - function hipblasZsyr2StridedBatched(handle, uplo, n, alpha, x, incx, stride_x, & - y, incy, stride_y, A, lda, stride_A, batch_count) & - bind(c, name='hipblasZsyr2StridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2StridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int), value :: incy - integer(c_int64_t), value :: stride_y - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - integer(c_int), value :: batch_count - end function hipblasZsyr2StridedBatched - end interface - - ! syr2StridedBatched_64 - interface - function hipblasSsyr2StridedBatched_64(handle, uplo, n, alpha, x, incx, stride_x, & - y, incy, stride_y, A, lda, stride_A, batch_count) & - bind(c, name='hipblasSsyr2StridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2StridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: stride_y - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - integer(c_int64_t), value :: batch_count - end function hipblasSsyr2StridedBatched_64 - end interface - - interface - function hipblasDsyr2StridedBatched_64(handle, uplo, n, alpha, x, incx, stride_x, & - y, incy, stride_y, A, lda, stride_A, batch_count) & - bind(c, name='hipblasDsyr2StridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2StridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: stride_y - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - integer(c_int64_t), value :: batch_count - end function hipblasDsyr2StridedBatched_64 - end interface - - interface - function hipblasCsyr2StridedBatched_64(handle, uplo, n, alpha, x, incx, stride_x, & - y, incy, stride_y, A, lda, stride_A, batch_count) & - bind(c, name='hipblasCsyr2StridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2StridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: stride_y - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - integer(c_int64_t), value :: batch_count - end function hipblasCsyr2StridedBatched_64 - end interface - - interface - function hipblasZsyr2StridedBatched_64(handle, uplo, n, alpha, x, incx, stride_x, & - y, incy, stride_y, A, lda, stride_A, batch_count) & - bind(c, name='hipblasZsyr2StridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2StridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: y - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: stride_y - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - integer(c_int64_t), value :: batch_count - end function hipblasZsyr2StridedBatched_64 - end interface - - !--------! - ! blas 3 ! - !--------! - - ! hemm - interface - function hipblasChemm(handle, side, uplo, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc) & - bind(c, name='hipblasChemm') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemm - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - end function hipblasChemm - end interface - - interface - function hipblasZhemm(handle, side, uplo, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc) & - bind(c, name='hipblasZhemm') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemm - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - end function hipblasZhemm - end interface - - ! hemm_64 - interface - function hipblasChemm_64(handle, side, uplo, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc) & - bind(c, name='hipblasChemm_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemm_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - end function hipblasChemm_64 - end interface - - interface - function hipblasZhemm_64(handle, side, uplo, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc) & - bind(c, name='hipblasZhemm_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemm_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - end function hipblasZhemm_64 - end interface - - ! hemmBatched - interface - function hipblasChemmBatched(handle, side, uplo, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc, batch_count) & - bind(c, name='hipblasChemmBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemmBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int), value :: batch_count - end function hipblasChemmBatched - end interface - - interface - function hipblasZhemmBatched(handle, side, uplo, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc, batch_count) & - bind(c, name='hipblasZhemmBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemmBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int), value :: batch_count - end function hipblasZhemmBatched - end interface - - ! hemmBatched_64 - interface - function hipblasChemmBatched_64(handle, side, uplo, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc, batch_count) & - bind(c, name='hipblasChemmBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemmBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: batch_count - end function hipblasChemmBatched_64 - end interface - - interface - function hipblasZhemmBatched_64(handle, side, uplo, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc, batch_count) & - bind(c, name='hipblasZhemmBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemmBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: batch_count - end function hipblasZhemmBatched_64 - end interface - - ! hemmStridedBatched - interface - function hipblasChemmStridedBatched(handle, side, uplo, n, k, alpha, & - A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasChemmStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemmStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: B - integer(c_int), value :: ldb - integer(c_int64_t), value :: stride_B - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int), value :: batch_count - end function hipblasChemmStridedBatched - end interface - - interface - function hipblasZhemmStridedBatched(handle, side, uplo, n, k, alpha, & - A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasZhemmStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemmStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: B - integer(c_int), value :: ldb - integer(c_int64_t), value :: stride_B - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int), value :: batch_count - end function hipblasZhemmStridedBatched - end interface - - ! hemmStridedBatched_64 - interface - function hipblasChemmStridedBatched_64(handle, side, uplo, n, k, alpha, & - A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasChemmStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemmStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - integer(c_int64_t), value :: stride_B - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int64_t), value :: batch_count - end function hipblasChemmStridedBatched_64 - end interface - - interface - function hipblasZhemmStridedBatched_64(handle, side, uplo, n, k, alpha, & - A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasZhemmStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemmStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - integer(c_int64_t), value :: stride_B - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int64_t), value :: batch_count - end function hipblasZhemmStridedBatched_64 - end interface - - ! herk - interface - function hipblasCherk(handle, uplo, transA, n, k, alpha, & - A, lda, beta, C, ldc) & - bind(c, name='hipblasCherk') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherk - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - end function hipblasCherk - end interface - - interface - function hipblasZherk(handle, uplo, transA, n, k, alpha, & - A, lda, beta, C, ldc) & - bind(c, name='hipblasZherk') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherk - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - end function hipblasZherk - end interface - - ! herk_64 - interface - function hipblasCherk_64(handle, uplo, transA, n, k, alpha, & - A, lda, beta, C, ldc) & - bind(c, name='hipblasCherk_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherk_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - end function hipblasCherk_64 - end interface - - interface - function hipblasZherk_64(handle, uplo, transA, n, k, alpha, & - A, lda, beta, C, ldc) & - bind(c, name='hipblasZherk_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherk_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - end function hipblasZherk_64 - end interface - - ! herkBatched - interface - function hipblasCherkBatched(handle, uplo, transA, n, k, alpha, & - A, lda, beta, C, ldc, batch_count) & - bind(c, name='hipblasCherkBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int), value :: batch_count - end function hipblasCherkBatched - end interface - - interface - function hipblasZherkBatched(handle, uplo, transA, n, k, alpha, & - A, lda, beta, C, ldc, batch_count) & - bind(c, name='hipblasZherkBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int), value :: batch_count - end function hipblasZherkBatched - end interface - - ! herkBatched_64 - interface - function hipblasCherkBatched_64(handle, uplo, transA, n, k, alpha, & - A, lda, beta, C, ldc, batch_count) & - bind(c, name='hipblasCherkBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: batch_count - end function hipblasCherkBatched_64 - end interface - - interface - function hipblasZherkBatched_64(handle, uplo, transA, n, k, alpha, & - A, lda, beta, C, ldc, batch_count) & - bind(c, name='hipblasZherkBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: batch_count - end function hipblasZherkBatched_64 - end interface - - ! herkStridedBatched - interface - function hipblasCherkStridedBatched(handle, uplo, transA, n, k, alpha, & - A, lda, stride_A, beta, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasCherkStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int), value :: batch_count - end function hipblasCherkStridedBatched - end interface - - interface - function hipblasZherkStridedBatched(handle, uplo, transA, n, k, alpha, & - A, lda, stride_A, beta, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasZherkStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int), value :: batch_count - end function hipblasZherkStridedBatched - end interface - - ! herkStridedBatched_64 - interface - function hipblasCherkStridedBatched_64(handle, uplo, transA, n, k, alpha, & - A, lda, stride_A, beta, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasCherkStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int64_t), value :: batch_count - end function hipblasCherkStridedBatched_64 - end interface - - interface - function hipblasZherkStridedBatched_64(handle, uplo, transA, n, k, alpha, & - A, lda, stride_A, beta, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasZherkStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int64_t), value :: batch_count - end function hipblasZherkStridedBatched_64 - end interface - - ! her2k - interface - function hipblasCher2k(handle, uplo, transA, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc) & - bind(c, name='hipblasCher2k') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2k - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - end function hipblasCher2k - end interface - - interface - function hipblasZher2k(handle, uplo, transA, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc) & - bind(c, name='hipblasZher2k') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2k - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - end function hipblasZher2k - end interface - - ! her2k_64 - interface - function hipblasCher2k_64(handle, uplo, transA, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc) & - bind(c, name='hipblasCher2k_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2k_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - end function hipblasCher2k_64 - end interface - - interface - function hipblasZher2k_64(handle, uplo, transA, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc) & - bind(c, name='hipblasZher2k_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2k_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - end function hipblasZher2k_64 - end interface - - ! her2kBatched - interface - function hipblasCher2kBatched(handle, uplo, transA, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc, batch_count) & - bind(c, name='hipblasCher2kBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2kBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int), value :: batch_count - end function hipblasCher2kBatched - end interface - - interface - function hipblasZher2kBatched(handle, uplo, transA, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc, batch_count) & - bind(c, name='hipblasZher2kBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2kBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int), value :: batch_count - end function hipblasZher2kBatched - end interface - - ! her2kBatched_64 - interface - function hipblasCher2kBatched_64(handle, uplo, transA, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc, batch_count) & - bind(c, name='hipblasCher2kBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2kBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: batch_count - end function hipblasCher2kBatched_64 - end interface - - interface - function hipblasZher2kBatched_64(handle, uplo, transA, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc, batch_count) & - bind(c, name='hipblasZher2kBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2kBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: batch_count - end function hipblasZher2kBatched_64 - end interface - - ! her2kStridedBatched - interface - function hipblasCher2kStridedBatched(handle, uplo, transA, n, k, alpha, & - A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasCher2kStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2kStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: B - integer(c_int), value :: ldb - integer(c_int64_t), value :: stride_B - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int), value :: batch_count - end function hipblasCher2kStridedBatched - end interface - - interface - function hipblasZher2kStridedBatched(handle, uplo, transA, n, k, alpha, & - A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasZher2kStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2kStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: B - integer(c_int), value :: ldb - integer(c_int64_t), value :: stride_B - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int), value :: batch_count - end function hipblasZher2kStridedBatched - end interface - - ! her2kStridedBatched_64 - interface - function hipblasCher2kStridedBatched_64(handle, uplo, transA, n, k, alpha, & - A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasCher2kStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2kStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - integer(c_int64_t), value :: stride_B - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int64_t), value :: batch_count - end function hipblasCher2kStridedBatched_64 - end interface - - interface - function hipblasZher2kStridedBatched_64(handle, uplo, transA, n, k, alpha, & - A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasZher2kStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2kStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - integer(c_int64_t), value :: stride_B - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int64_t), value :: batch_count - end function hipblasZher2kStridedBatched_64 - end interface - - ! herkx - interface - function hipblasCherkx(handle, uplo, transA, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc) & - bind(c, name='hipblasCherkx') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkx - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - end function hipblasCherkx - end interface - - interface - function hipblasZherkx(handle, uplo, transA, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc) & - bind(c, name='hipblasZherkx') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkx - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - end function hipblasZherkx - end interface - - ! herkx_64 - interface - function hipblasCherkx_64(handle, uplo, transA, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc) & - bind(c, name='hipblasCherkx_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkx_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - end function hipblasCherkx_64 - end interface - - interface - function hipblasZherkx_64(handle, uplo, transA, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc) & - bind(c, name='hipblasZherkx_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkx_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - end function hipblasZherkx_64 - end interface - - ! herkxBatched - interface - function hipblasCherkxBatched(handle, uplo, transA, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc, batch_count) & - bind(c, name='hipblasCherkxBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkxBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int), value :: batch_count - end function hipblasCherkxBatched - end interface - - interface - function hipblasZherkxBatched(handle, uplo, transA, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc, batch_count) & - bind(c, name='hipblasZherkxBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkxBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int), value :: batch_count - end function hipblasZherkxBatched - end interface - - ! herkxBatched_64 - interface - function hipblasCherkxBatched_64(handle, uplo, transA, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc, batch_count) & - bind(c, name='hipblasCherkxBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkxBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: batch_count - end function hipblasCherkxBatched_64 - end interface - - interface - function hipblasZherkxBatched_64(handle, uplo, transA, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc, batch_count) & - bind(c, name='hipblasZherkxBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkxBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: batch_count - end function hipblasZherkxBatched_64 - end interface - - ! herkxStridedBatched - interface - function hipblasCherkxStridedBatched(handle, uplo, transA, n, k, alpha, & - A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasCherkxStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkxStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: B - integer(c_int), value :: ldb - integer(c_int64_t), value :: stride_B - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int), value :: batch_count - end function hipblasCherkxStridedBatched - end interface - - interface - function hipblasZherkxStridedBatched(handle, uplo, transA, n, k, alpha, & - A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasZherkxStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkxStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: B - integer(c_int), value :: ldb - integer(c_int64_t), value :: stride_B - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int), value :: batch_count - end function hipblasZherkxStridedBatched - end interface - - ! herkxStridedBatched_64 - interface - function hipblasCherkxStridedBatched_64(handle, uplo, transA, n, k, alpha, & - A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasCherkxStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkxStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - integer(c_int64_t), value :: stride_B - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int64_t), value :: batch_count - end function hipblasCherkxStridedBatched_64 - end interface - - interface - function hipblasZherkxStridedBatched_64(handle, uplo, transA, n, k, alpha, & - A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasZherkxStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkxStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - integer(c_int64_t), value :: stride_B - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int64_t), value :: batch_count - end function hipblasZherkxStridedBatched_64 - end interface - - ! symm - interface - function hipblasSsymm(handle, side, uplo, m, n, alpha, & - A, lda, B, ldb, beta, C, ldc) & - bind(c, name='hipblasSsymm') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymm - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - end function hipblasSsymm - end interface - - interface - function hipblasDsymm(handle, side, uplo, m, n, alpha, & - A, lda, B, ldb, beta, C, ldc) & - bind(c, name='hipblasDsymm') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymm - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - end function hipblasDsymm - end interface - - interface - function hipblasCsymm(handle, side, uplo, m, n, alpha, & - A, lda, B, ldb, beta, C, ldc) & - bind(c, name='hipblasCsymm') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymm - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - end function hipblasCsymm - end interface - - interface - function hipblasZsymm(handle, side, uplo, m, n, alpha, & - A, lda, B, ldb, beta, C, ldc) & - bind(c, name='hipblasZsymm') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymm - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - end function hipblasZsymm - end interface - - ! symm_64 - interface - function hipblasSsymm_64(handle, side, uplo, m, n, alpha, & - A, lda, B, ldb, beta, C, ldc) & - bind(c, name='hipblasSsymm_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymm_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - end function hipblasSsymm_64 - end interface - - interface - function hipblasDsymm_64(handle, side, uplo, m, n, alpha, & - A, lda, B, ldb, beta, C, ldc) & - bind(c, name='hipblasDsymm_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymm_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - end function hipblasDsymm_64 - end interface - - interface - function hipblasCsymm_64(handle, side, uplo, m, n, alpha, & - A, lda, B, ldb, beta, C, ldc) & - bind(c, name='hipblasCsymm_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymm_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - end function hipblasCsymm_64 - end interface - - interface - function hipblasZsymm_64(handle, side, uplo, m, n, alpha, & - A, lda, B, ldb, beta, C, ldc) & - bind(c, name='hipblasZsymm_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymm_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - end function hipblasZsymm_64 - end interface - - ! symmBatched - interface - function hipblasSsymmBatched(handle, side, uplo, m, n, alpha, & - A, lda, B, ldb, beta, C, ldc, batch_count) & - bind(c, name='hipblasSsymmBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymmBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int), value :: batch_count - end function hipblasSsymmBatched - end interface - - interface - function hipblasDsymmBatched(handle, side, uplo, m, n, alpha, & - A, lda, B, ldb, beta, C, ldc, batch_count) & - bind(c, name='hipblasDsymmBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymmBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int), value :: batch_count - end function hipblasDsymmBatched - end interface - - interface - function hipblasCsymmBatched(handle, side, uplo, m, n, alpha, & - A, lda, B, ldb, beta, C, ldc, batch_count) & - bind(c, name='hipblasCsymmBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymmBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int), value :: batch_count - end function hipblasCsymmBatched - end interface - - interface - function hipblasZsymmBatched(handle, side, uplo, m, n, alpha, & - A, lda, B, ldb, beta, C, ldc, batch_count) & - bind(c, name='hipblasZsymmBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymmBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int), value :: batch_count - end function hipblasZsymmBatched - end interface - - ! symmBatched_64 - interface - function hipblasSsymmBatched_64(handle, side, uplo, m, n, alpha, & - A, lda, B, ldb, beta, C, ldc, batch_count) & - bind(c, name='hipblasSsymmBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymmBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: batch_count - end function hipblasSsymmBatched_64 - end interface - - interface - function hipblasDsymmBatched_64(handle, side, uplo, m, n, alpha, & - A, lda, B, ldb, beta, C, ldc, batch_count) & - bind(c, name='hipblasDsymmBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymmBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: batch_count - end function hipblasDsymmBatched_64 - end interface - - interface - function hipblasCsymmBatched_64(handle, side, uplo, m, n, alpha, & - A, lda, B, ldb, beta, C, ldc, batch_count) & - bind(c, name='hipblasCsymmBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymmBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: batch_count - end function hipblasCsymmBatched_64 - end interface - - interface - function hipblasZsymmBatched_64(handle, side, uplo, m, n, alpha, & - A, lda, B, ldb, beta, C, ldc, batch_count) & - bind(c, name='hipblasZsymmBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymmBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: batch_count - end function hipblasZsymmBatched_64 - end interface - - ! symmStridedBatched - interface - function hipblasSsymmStridedBatched(handle, side, uplo, m, n, alpha, & - A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasSsymmStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymmStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: B - integer(c_int), value :: ldb - integer(c_int64_t), value :: stride_B - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int), value :: batch_count - end function hipblasSsymmStridedBatched - end interface - - interface - function hipblasDsymmStridedBatched(handle, side, uplo, m, n, alpha, & - A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasDsymmStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymmStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: B - integer(c_int), value :: ldb - integer(c_int64_t), value :: stride_B - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int), value :: batch_count - end function hipblasDsymmStridedBatched - end interface - - interface - function hipblasCsymmStridedBatched(handle, side, uplo, m, n, alpha, & - A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasCsymmStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymmStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: B - integer(c_int), value :: ldb - integer(c_int64_t), value :: stride_B - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int), value :: batch_count - end function hipblasCsymmStridedBatched - end interface - - interface - function hipblasZsymmStridedBatched(handle, side, uplo, m, n, alpha, & - A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasZsymmStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymmStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: B - integer(c_int), value :: ldb - integer(c_int64_t), value :: stride_B - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int), value :: batch_count - end function hipblasZsymmStridedBatched - end interface - - ! symmStridedBatched_64 - interface - function hipblasSsymmStridedBatched_64(handle, side, uplo, m, n, alpha, & - A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasSsymmStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymmStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - integer(c_int64_t), value :: stride_B - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int64_t), value :: batch_count - end function hipblasSsymmStridedBatched_64 - end interface - - interface - function hipblasDsymmStridedBatched_64(handle, side, uplo, m, n, alpha, & - A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasDsymmStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymmStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - integer(c_int64_t), value :: stride_B - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int64_t), value :: batch_count - end function hipblasDsymmStridedBatched_64 - end interface - - interface - function hipblasCsymmStridedBatched_64(handle, side, uplo, m, n, alpha, & - A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasCsymmStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymmStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - integer(c_int64_t), value :: stride_B - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int64_t), value :: batch_count - end function hipblasCsymmStridedBatched_64 - end interface - - interface - function hipblasZsymmStridedBatched_64(handle, side, uplo, m, n, alpha, & - A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasZsymmStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymmStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - integer(c_int64_t), value :: stride_B - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int64_t), value :: batch_count - end function hipblasZsymmStridedBatched_64 - end interface - - ! syrk - interface - function hipblasSsyrk(handle, uplo, transA, n, k, alpha, & - A, lda, beta, C, ldc) & - bind(c, name='hipblasSsyrk') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrk - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - end function hipblasSsyrk - end interface - - interface - function hipblasDsyrk(handle, uplo, transA, n, k, alpha, & - A, lda, beta, C, ldc) & - bind(c, name='hipblasDsyrk') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrk - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - end function hipblasDsyrk - end interface - - interface - function hipblasCsyrk(handle, uplo, transA, n, k, alpha, & - A, lda, beta, C, ldc) & - bind(c, name='hipblasCsyrk') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrk - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - end function hipblasCsyrk - end interface - - interface - function hipblasZsyrk(handle, uplo, transA, n, k, alpha, & - A, lda, beta, C, ldc) & - bind(c, name='hipblasZsyrk') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrk - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - end function hipblasZsyrk - end interface - - ! syrk_64 - interface - function hipblasSsyrk_64(handle, uplo, transA, n, k, alpha, & - A, lda, beta, C, ldc) & - bind(c, name='hipblasSsyrk_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrk_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - end function hipblasSsyrk_64 - end interface - - interface - function hipblasDsyrk_64(handle, uplo, transA, n, k, alpha, & - A, lda, beta, C, ldc) & - bind(c, name='hipblasDsyrk_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrk_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - end function hipblasDsyrk_64 - end interface - - interface - function hipblasCsyrk_64(handle, uplo, transA, n, k, alpha, & - A, lda, beta, C, ldc) & - bind(c, name='hipblasCsyrk_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrk_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - end function hipblasCsyrk_64 - end interface - - interface - function hipblasZsyrk_64(handle, uplo, transA, n, k, alpha, & - A, lda, beta, C, ldc) & - bind(c, name='hipblasZsyrk_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrk_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - end function hipblasZsyrk_64 - end interface - - ! syrkBatched - interface - function hipblasSsyrkBatched(handle, uplo, transA, n, k, alpha, & - A, lda, beta, C, ldc, batch_count) & - bind(c, name='hipblasSsyrkBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int), value :: batch_count - end function hipblasSsyrkBatched - end interface - - interface - function hipblasDsyrkBatched(handle, uplo, transA, n, k, alpha, & - A, lda, beta, C, ldc, batch_count) & - bind(c, name='hipblasDsyrkBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int), value :: batch_count - end function hipblasDsyrkBatched - end interface - - interface - function hipblasCsyrkBatched(handle, uplo, transA, n, k, alpha, & - A, lda, beta, C, ldc, batch_count) & - bind(c, name='hipblasCsyrkBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int), value :: batch_count - end function hipblasCsyrkBatched - end interface - - interface - function hipblasZsyrkBatched(handle, uplo, transA, n, k, alpha, & - A, lda, beta, C, ldc, batch_count) & - bind(c, name='hipblasZsyrkBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int), value :: batch_count - end function hipblasZsyrkBatched - end interface - - ! syrkBatched_64 - interface - function hipblasSsyrkBatched_64(handle, uplo, transA, n, k, alpha, & - A, lda, beta, C, ldc, batch_count) & - bind(c, name='hipblasSsyrkBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: batch_count - end function hipblasSsyrkBatched_64 - end interface - - interface - function hipblasDsyrkBatched_64(handle, uplo, transA, n, k, alpha, & - A, lda, beta, C, ldc, batch_count) & - bind(c, name='hipblasDsyrkBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: batch_count - end function hipblasDsyrkBatched_64 - end interface - - interface - function hipblasCsyrkBatched_64(handle, uplo, transA, n, k, alpha, & - A, lda, beta, C, ldc, batch_count) & - bind(c, name='hipblasCsyrkBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: batch_count - end function hipblasCsyrkBatched_64 - end interface - - interface - function hipblasZsyrkBatched_64(handle, uplo, transA, n, k, alpha, & - A, lda, beta, C, ldc, batch_count) & - bind(c, name='hipblasZsyrkBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: batch_count - end function hipblasZsyrkBatched_64 - end interface - - ! syrkStridedBatched - interface - function hipblasSsyrkStridedBatched(handle, uplo, transA, n, k, alpha, & - A, lda, stride_A, beta, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasSsyrkStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int), value :: batch_count - end function hipblasSsyrkStridedBatched - end interface - - interface - function hipblasDsyrkStridedBatched(handle, uplo, transA, n, k, alpha, & - A, lda, stride_A, beta, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasDsyrkStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int), value :: batch_count - end function hipblasDsyrkStridedBatched - end interface - - interface - function hipblasCsyrkStridedBatched(handle, uplo, transA, n, k, alpha, & - A, lda, stride_A, beta, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasCsyrkStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int), value :: batch_count - end function hipblasCsyrkStridedBatched - end interface - - interface - function hipblasZsyrkStridedBatched(handle, uplo, transA, n, k, alpha, & - A, lda, stride_A, beta, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasZsyrkStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int), value :: batch_count - end function hipblasZsyrkStridedBatched - end interface - - ! syrkStridedBatched_64 - interface - function hipblasSsyrkStridedBatched_64(handle, uplo, transA, n, k, alpha, & - A, lda, stride_A, beta, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasSsyrkStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int64_t), value :: batch_count - end function hipblasSsyrkStridedBatched_64 - end interface - - interface - function hipblasDsyrkStridedBatched_64(handle, uplo, transA, n, k, alpha, & - A, lda, stride_A, beta, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasDsyrkStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int64_t), value :: batch_count - end function hipblasDsyrkStridedBatched_64 - end interface - - interface - function hipblasCsyrkStridedBatched_64(handle, uplo, transA, n, k, alpha, & - A, lda, stride_A, beta, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasCsyrkStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int64_t), value :: batch_count - end function hipblasCsyrkStridedBatched_64 - end interface - - interface - function hipblasZsyrkStridedBatched_64(handle, uplo, transA, n, k, alpha, & - A, lda, stride_A, beta, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasZsyrkStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int64_t), value :: batch_count - end function hipblasZsyrkStridedBatched_64 - end interface - - ! syr2k - interface - function hipblasSsyr2k(handle, uplo, transA, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc) & - bind(c, name='hipblasSsyr2k') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2k - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - end function hipblasSsyr2k - end interface - - interface - function hipblasDsyr2k(handle, uplo, transA, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc) & - bind(c, name='hipblasDsyr2k') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2k - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - end function hipblasDsyr2k - end interface - - interface - function hipblasCsyr2k(handle, uplo, transA, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc) & - bind(c, name='hipblasCsyr2k') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2k - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - end function hipblasCsyr2k - end interface - - interface - function hipblasZsyr2k(handle, uplo, transA, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc) & - bind(c, name='hipblasZsyr2k') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2k - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - end function hipblasZsyr2k - end interface - - ! syr2k_64 - interface - function hipblasSsyr2k_64(handle, uplo, transA, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc) & - bind(c, name='hipblasSsyr2k_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2k_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - end function hipblasSsyr2k_64 - end interface - - interface - function hipblasDsyr2k_64(handle, uplo, transA, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc) & - bind(c, name='hipblasDsyr2k_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2k_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - end function hipblasDsyr2k_64 - end interface - - interface - function hipblasCsyr2k_64(handle, uplo, transA, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc) & - bind(c, name='hipblasCsyr2k_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2k_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - end function hipblasCsyr2k_64 - end interface - - interface - function hipblasZsyr2k_64(handle, uplo, transA, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc) & - bind(c, name='hipblasZsyr2k_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2k_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - end function hipblasZsyr2k_64 - end interface - - ! syr2kBatched - interface - function hipblasSsyr2kBatched(handle, uplo, transA, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc, batch_count) & - bind(c, name='hipblasSsyr2kBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2kBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int), value :: batch_count - end function hipblasSsyr2kBatched - end interface - - interface - function hipblasDsyr2kBatched(handle, uplo, transA, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc, batch_count) & - bind(c, name='hipblasDsyr2kBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2kBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int), value :: batch_count - end function hipblasDsyr2kBatched - end interface - - interface - function hipblasCsyr2kBatched(handle, uplo, transA, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc, batch_count) & - bind(c, name='hipblasCsyr2kBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2kBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int), value :: batch_count - end function hipblasCsyr2kBatched - end interface - - interface - function hipblasZsyr2kBatched(handle, uplo, transA, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc, batch_count) & - bind(c, name='hipblasZsyr2kBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2kBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int), value :: batch_count - end function hipblasZsyr2kBatched - end interface - - ! syr2kBatched_64 - interface - function hipblasSsyr2kBatched_64(handle, uplo, transA, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc, batch_count) & - bind(c, name='hipblasSsyr2kBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2kBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: batch_count - end function hipblasSsyr2kBatched_64 - end interface - - interface - function hipblasDsyr2kBatched_64(handle, uplo, transA, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc, batch_count) & - bind(c, name='hipblasDsyr2kBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2kBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: batch_count - end function hipblasDsyr2kBatched_64 - end interface - - interface - function hipblasCsyr2kBatched_64(handle, uplo, transA, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc, batch_count) & - bind(c, name='hipblasCsyr2kBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2kBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: batch_count - end function hipblasCsyr2kBatched_64 - end interface - - interface - function hipblasZsyr2kBatched_64(handle, uplo, transA, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc, batch_count) & - bind(c, name='hipblasZsyr2kBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2kBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: batch_count - end function hipblasZsyr2kBatched_64 - end interface - - ! syr2kStridedBatched - interface - function hipblasSsyr2kStridedBatched(handle, uplo, transA, n, k, alpha, & - A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasSsyr2kStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2kStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: B - integer(c_int), value :: ldb - integer(c_int64_t), value :: stride_B - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int), value :: batch_count - end function hipblasSsyr2kStridedBatched - end interface - - interface - function hipblasDsyr2kStridedBatched(handle, uplo, transA, n, k, alpha, & - A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasDsyr2kStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2kStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: B - integer(c_int), value :: ldb - integer(c_int64_t), value :: stride_B - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int), value :: batch_count - end function hipblasDsyr2kStridedBatched - end interface - - interface - function hipblasCsyr2kStridedBatched(handle, uplo, transA, n, k, alpha, & - A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasCsyr2kStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2kStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: B - integer(c_int), value :: ldb - integer(c_int64_t), value :: stride_B - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int), value :: batch_count - end function hipblasCsyr2kStridedBatched - end interface - - interface - function hipblasZsyr2kStridedBatched(handle, uplo, transA, n, k, alpha, & - A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasZsyr2kStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2kStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: B - integer(c_int), value :: ldb - integer(c_int64_t), value :: stride_B - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int), value :: batch_count - end function hipblasZsyr2kStridedBatched - end interface - - ! syr2kStridedBatched_64 - interface - function hipblasSsyr2kStridedBatched_64(handle, uplo, transA, n, k, alpha, & - A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasSsyr2kStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2kStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - integer(c_int64_t), value :: stride_B - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int64_t), value :: batch_count - end function hipblasSsyr2kStridedBatched_64 - end interface - - interface - function hipblasDsyr2kStridedBatched_64(handle, uplo, transA, n, k, alpha, & - A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasDsyr2kStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2kStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - integer(c_int64_t), value :: stride_B - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int64_t), value :: batch_count - end function hipblasDsyr2kStridedBatched_64 - end interface - - interface - function hipblasCsyr2kStridedBatched_64(handle, uplo, transA, n, k, alpha, & - A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasCsyr2kStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2kStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - integer(c_int64_t), value :: stride_B - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int64_t), value :: batch_count - end function hipblasCsyr2kStridedBatched_64 - end interface - - interface - function hipblasZsyr2kStridedBatched_64(handle, uplo, transA, n, k, alpha, & - A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasZsyr2kStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2kStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - integer(c_int64_t), value :: stride_B - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int64_t), value :: batch_count - end function hipblasZsyr2kStridedBatched_64 - end interface - - ! syrkx - interface - function hipblasSsyrkx(handle, uplo, transA, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc) & - bind(c, name='hipblasSsyrkx') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkx - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - end function hipblasSsyrkx - end interface - - interface - function hipblasDsyrkx(handle, uplo, transA, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc) & - bind(c, name='hipblasDsyrkx') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkx - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - end function hipblasDsyrkx - end interface - - interface - function hipblasCsyrkx(handle, uplo, transA, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc) & - bind(c, name='hipblasCsyrkx') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkx - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - end function hipblasCsyrkx - end interface - - interface - function hipblasZsyrkx(handle, uplo, transA, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc) & - bind(c, name='hipblasZsyrkx') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkx - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - end function hipblasZsyrkx - end interface - - ! syrkx_64 - interface - function hipblasSsyrkx_64(handle, uplo, transA, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc) & - bind(c, name='hipblasSsyrkx_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkx_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - end function hipblasSsyrkx_64 - end interface - - interface - function hipblasDsyrkx_64(handle, uplo, transA, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc) & - bind(c, name='hipblasDsyrkx_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkx_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - end function hipblasDsyrkx_64 - end interface - - interface - function hipblasCsyrkx_64(handle, uplo, transA, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc) & - bind(c, name='hipblasCsyrkx_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkx_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - end function hipblasCsyrkx_64 - end interface - - interface - function hipblasZsyrkx_64(handle, uplo, transA, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc) & - bind(c, name='hipblasZsyrkx_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkx_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - end function hipblasZsyrkx_64 - end interface - - ! syrkxBatched - interface - function hipblasSsyrkxBatched(handle, uplo, transA, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc, batch_count) & - bind(c, name='hipblasSsyrkxBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkxBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int), value :: batch_count - end function hipblasSsyrkxBatched - end interface - - interface - function hipblasDsyrkxBatched(handle, uplo, transA, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc, batch_count) & - bind(c, name='hipblasDsyrkxBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkxBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int), value :: batch_count - end function hipblasDsyrkxBatched - end interface - - interface - function hipblasCsyrkxBatched(handle, uplo, transA, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc, batch_count) & - bind(c, name='hipblasCsyrkxBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkxBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int), value :: batch_count - end function hipblasCsyrkxBatched - end interface - - interface - function hipblasZsyrkxBatched(handle, uplo, transA, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc, batch_count) & - bind(c, name='hipblasZsyrkxBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkxBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int), value :: batch_count - end function hipblasZsyrkxBatched - end interface - - ! syrkxBatched_64 - interface - function hipblasSsyrkxBatched_64(handle, uplo, transA, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc, batch_count) & - bind(c, name='hipblasSsyrkxBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkxBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: batch_count - end function hipblasSsyrkxBatched_64 - end interface - - interface - function hipblasDsyrkxBatched_64(handle, uplo, transA, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc, batch_count) & - bind(c, name='hipblasDsyrkxBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkxBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: batch_count - end function hipblasDsyrkxBatched_64 - end interface - - interface - function hipblasCsyrkxBatched_64(handle, uplo, transA, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc, batch_count) & - bind(c, name='hipblasCsyrkxBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkxBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: batch_count - end function hipblasCsyrkxBatched_64 - end interface - - interface - function hipblasZsyrkxBatched_64(handle, uplo, transA, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc, batch_count) & - bind(c, name='hipblasZsyrkxBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkxBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: batch_count - end function hipblasZsyrkxBatched_64 - end interface - - ! syrkxStridedBatched - interface - function hipblasSsyrkxStridedBatched(handle, uplo, transA, n, k, alpha, & - A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasSsyrkxStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkxStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: B - integer(c_int), value :: ldb - integer(c_int64_t), value :: stride_B - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int), value :: batch_count - end function hipblasSsyrkxStridedBatched - end interface - - interface - function hipblasDsyrkxStridedBatched(handle, uplo, transA, n, k, alpha, & - A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasDsyrkxStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkxStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: B - integer(c_int), value :: ldb - integer(c_int64_t), value :: stride_B - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int), value :: batch_count - end function hipblasDsyrkxStridedBatched - end interface - - interface - function hipblasCsyrkxStridedBatched(handle, uplo, transA, n, k, alpha, & - A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasCsyrkxStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkxStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: B - integer(c_int), value :: ldb - integer(c_int64_t), value :: stride_B - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int), value :: batch_count - end function hipblasCsyrkxStridedBatched - end interface - - interface - function hipblasZsyrkxStridedBatched(handle, uplo, transA, n, k, alpha, & - A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasZsyrkxStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkxStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: B - integer(c_int), value :: ldb - integer(c_int64_t), value :: stride_B - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int), value :: batch_count - end function hipblasZsyrkxStridedBatched - end interface - - ! syrkxStridedBatched_64 - interface - function hipblasSsyrkxStridedBatched_64(handle, uplo, transA, n, k, alpha, & - A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasSsyrkxStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkxStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - integer(c_int64_t), value :: stride_B - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int64_t), value :: batch_count - end function hipblasSsyrkxStridedBatched_64 - end interface - - interface - function hipblasDsyrkxStridedBatched_64(handle, uplo, transA, n, k, alpha, & - A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasDsyrkxStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkxStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - integer(c_int64_t), value :: stride_B - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int64_t), value :: batch_count - end function hipblasDsyrkxStridedBatched_64 - end interface - - interface - function hipblasCsyrkxStridedBatched_64(handle, uplo, transA, n, k, alpha, & - A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasCsyrkxStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkxStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - integer(c_int64_t), value :: stride_B - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int64_t), value :: batch_count - end function hipblasCsyrkxStridedBatched_64 - end interface - - interface - function hipblasZsyrkxStridedBatched_64(handle, uplo, transA, n, k, alpha, & - A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasZsyrkxStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkxStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - integer(c_int64_t), value :: stride_B - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int64_t), value :: batch_count - end function hipblasZsyrkxStridedBatched_64 - end interface - - ! trmm - interface - function hipblasStrmm(handle, side, uplo, transA, diag, m, n, alpha, & - A, lda, B, ldb, C, ldc) & - bind(c, name='hipblasStrmm') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmm - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: C - integer(c_int), value :: ldc - end function hipblasStrmm - end interface - - interface - function hipblasDtrmm(handle, side, uplo, transA, diag, m, n, alpha, & - A, lda, B, ldb, C, ldc) & - bind(c, name='hipblasDtrmm') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmm - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: C - integer(c_int), value :: ldc - end function hipblasDtrmm - end interface - - interface - function hipblasCtrmm(handle, side, uplo, transA, diag, m, n, alpha, & - A, lda, B, ldb, C, ldc) & - bind(c, name='hipblasCtrmm') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmm - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: C - integer(c_int), value :: ldc - end function hipblasCtrmm - end interface - - interface - function hipblasZtrmm(handle, side, uplo, transA, diag, m, n, alpha, & - A, lda, B, ldb, C, ldc) & - bind(c, name='hipblasZtrmm') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmm - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: C - integer(c_int), value :: ldc - end function hipblasZtrmm - end interface - - ! trmm_64 - interface - function hipblasStrmm_64(handle, side, uplo, transA, diag, m, n, alpha, & - A, lda, B, ldb, C, ldc) & - bind(c, name='hipblasStrmm_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmm_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - end function hipblasStrmm_64 - end interface - - interface - function hipblasDtrmm_64(handle, side, uplo, transA, diag, m, n, alpha, & - A, lda, B, ldb, C, ldc) & - bind(c, name='hipblasDtrmm_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmm_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - end function hipblasDtrmm_64 - end interface - - interface - function hipblasCtrmm_64(handle, side, uplo, transA, diag, m, n, alpha, & - A, lda, B, ldb, C, ldc) & - bind(c, name='hipblasCtrmm_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmm_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - end function hipblasCtrmm_64 - end interface - - interface - function hipblasZtrmm_64(handle, side, uplo, transA, diag, m, n, alpha, & - A, lda, B, ldb, C, ldc) & - bind(c, name='hipblasZtrmm_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmm_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - end function hipblasZtrmm_64 - end interface - - ! trmmBatched - interface - function hipblasStrmmBatched(handle, side, uplo, transA, diag, m, n, alpha, & - A, lda, B, ldb, C, ldc, batch_count) & - bind(c, name='hipblasStrmmBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmmBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int), value :: batch_count - end function hipblasStrmmBatched - end interface - - interface - function hipblasDtrmmBatched(handle, side, uplo, transA, diag, m, n, alpha, & - A, lda, B, ldb, C, ldc, batch_count) & - bind(c, name='hipblasDtrmmBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmmBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int), value :: batch_count - end function hipblasDtrmmBatched - end interface - - interface - function hipblasCtrmmBatched(handle, side, uplo, transA, diag, m, n, alpha, & - A, lda, B, ldb, C, ldc, batch_count) & - bind(c, name='hipblasCtrmmBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmmBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int), value :: batch_count - end function hipblasCtrmmBatched - end interface - - interface - function hipblasZtrmmBatched(handle, side, uplo, transA, diag, m, n, alpha, & - A, lda, B, ldb, C, ldc, batch_count) & - bind(c, name='hipblasZtrmmBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmmBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int), value :: batch_count - end function hipblasZtrmmBatched - end interface - - ! trmmBatched_64 - interface - function hipblasStrmmBatched_64(handle, side, uplo, transA, diag, m, n, alpha, & - A, lda, B, ldb, C, ldc, batch_count) & - bind(c, name='hipblasStrmmBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmmBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: batch_count - end function hipblasStrmmBatched_64 - end interface - - interface - function hipblasDtrmmBatched_64(handle, side, uplo, transA, diag, m, n, alpha, & - A, lda, B, ldb, C, ldc, batch_count) & - bind(c, name='hipblasDtrmmBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmmBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: batch_count - end function hipblasDtrmmBatched_64 - end interface - - interface - function hipblasCtrmmBatched_64(handle, side, uplo, transA, diag, m, n, alpha, & - A, lda, B, ldb, C, ldc, batch_count) & - bind(c, name='hipblasCtrmmBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmmBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: batch_count - end function hipblasCtrmmBatched_64 - end interface - - interface - function hipblasZtrmmBatched_64(handle, side, uplo, transA, diag, m, n, alpha, & - A, lda, B, ldb, C, ldc, batch_count) & - bind(c, name='hipblasZtrmmBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmmBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: batch_count - end function hipblasZtrmmBatched_64 - end interface - - ! trmmStridedBatched - interface - function hipblasStrmmStridedBatched(handle, side, uplo, transA, diag, m, n, alpha, & - A, lda, stride_A, B, ldb, stride_B, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasStrmmStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmmStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: B - integer(c_int), value :: ldb - integer(c_int64_t), value :: stride_B - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int), value :: batch_count - end function hipblasStrmmStridedBatched - end interface - - interface - function hipblasDtrmmStridedBatched(handle, side, uplo, transA, diag, m, n, alpha, & - A, lda, stride_A, B, ldb, stride_B, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasDtrmmStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmmStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: B - integer(c_int), value :: ldb - integer(c_int64_t), value :: stride_B - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int), value :: batch_count - end function hipblasDtrmmStridedBatched - end interface - - interface - function hipblasCtrmmStridedBatched(handle, side, uplo, transA, diag, m, n, alpha, & - A, lda, stride_A, B, ldb, stride_B, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasCtrmmStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmmStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: B - integer(c_int), value :: ldb - integer(c_int64_t), value :: stride_B - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int), value :: batch_count - end function hipblasCtrmmStridedBatched - end interface - - interface - function hipblasZtrmmStridedBatched(handle, side, uplo, transA, diag, m, n, alpha, & - A, lda, stride_A, B, ldb, stride_B, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasZtrmmStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmmStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: B - integer(c_int), value :: ldb - integer(c_int64_t), value :: stride_B - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int), value :: batch_count - end function hipblasZtrmmStridedBatched - end interface - - ! trmmStridedBatched_64 - interface - function hipblasStrmmStridedBatched_64(handle, side, uplo, transA, diag, m, n, alpha, & - A, lda, stride_A, B, ldb, stride_B, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasStrmmStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmmStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - integer(c_int64_t), value :: stride_B - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int64_t), value :: batch_count - end function hipblasStrmmStridedBatched_64 - end interface - - interface - function hipblasDtrmmStridedBatched_64(handle, side, uplo, transA, diag, m, n, alpha, & - A, lda, stride_A, B, ldb, stride_B, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasDtrmmStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmmStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - integer(c_int64_t), value :: stride_B - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int64_t), value :: batch_count - end function hipblasDtrmmStridedBatched_64 - end interface - - interface - function hipblasCtrmmStridedBatched_64(handle, side, uplo, transA, diag, m, n, alpha, & - A, lda, stride_A, B, ldb, stride_B, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasCtrmmStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmmStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - integer(c_int64_t), value :: stride_B - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int64_t), value :: batch_count - end function hipblasCtrmmStridedBatched_64 - end interface - - interface - function hipblasZtrmmStridedBatched_64(handle, side, uplo, transA, diag, m, n, alpha, & - A, lda, stride_A, B, ldb, stride_B, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasZtrmmStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmmStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - integer(c_int64_t), value :: stride_B - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int64_t), value :: batch_count - end function hipblasZtrmmStridedBatched_64 - end interface - - ! trtri - interface - function hipblasStrtri(handle, uplo, diag, n, & - A, lda, invA, ldinvA) & - bind(c, name='hipblasStrtri') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrtri - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag - integer(c_int), value :: n - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: invA - integer(c_int), value :: ldinvA - end function hipblasStrtri - end interface - - interface - function hipblasDtrtri(handle, uplo, diag, n, & - A, lda, invA, ldinvA) & - bind(c, name='hipblasDtrtri') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrtri - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag - integer(c_int), value :: n - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: invA - integer(c_int), value :: ldinvA - end function hipblasDtrtri - end interface - - interface - function hipblasCtrtri(handle, uplo, diag, n, & - A, lda, invA, ldinvA) & - bind(c, name='hipblasCtrtri') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrtri - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag - integer(c_int), value :: n - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: invA - integer(c_int), value :: ldinvA - end function hipblasCtrtri - end interface - - interface - function hipblasZtrtri(handle, uplo, diag, n, & - A, lda, invA, ldinvA) & - bind(c, name='hipblasZtrtri') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrtri - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag - integer(c_int), value :: n - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: invA - integer(c_int), value :: ldinvA - end function hipblasZtrtri - end interface - - ! trtriBatched - interface - function hipblasStrtriBatched(handle, uplo, diag, n, & - A, lda, invA, ldinvA, batch_count) & - bind(c, name='hipblasStrtriBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrtriBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag - integer(c_int), value :: n - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: invA - integer(c_int), value :: ldinvA - integer(c_int), value :: batch_count - end function hipblasStrtriBatched - end interface - - interface - function hipblasDtrtriBatched(handle, uplo, diag, n, & - A, lda, invA, ldinvA, batch_count) & - bind(c, name='hipblasDtrtriBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrtriBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag - integer(c_int), value :: n - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: invA - integer(c_int), value :: ldinvA - integer(c_int), value :: batch_count - end function hipblasDtrtriBatched - end interface - - interface - function hipblasCtrtriBatched(handle, uplo, diag, n, & - A, lda, invA, ldinvA, batch_count) & - bind(c, name='hipblasCtrtriBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrtriBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag - integer(c_int), value :: n - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: invA - integer(c_int), value :: ldinvA - integer(c_int), value :: batch_count - end function hipblasCtrtriBatched - end interface - - interface - function hipblasZtrtriBatched(handle, uplo, diag, n, & - A, lda, invA, ldinvA, batch_count) & - bind(c, name='hipblasZtrtriBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrtriBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag - integer(c_int), value :: n - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: invA - integer(c_int), value :: ldinvA - integer(c_int), value :: batch_count - end function hipblasZtrtriBatched - end interface - - ! trtriStridedBatched - interface - function hipblasStrtriStridedBatched(handle, uplo, diag, n, & - A, lda, stride_A, invA, ldinvA, stride_invA, batch_count) & - bind(c, name='hipblasStrtriStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrtriStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag - integer(c_int), value :: n - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: invA - integer(c_int), value :: ldinvA - integer(c_int64_t), value :: stride_invA - integer(c_int), value :: batch_count - end function hipblasStrtriStridedBatched - end interface - - interface - function hipblasDtrtriStridedBatched(handle, uplo, diag, n, & - A, lda, stride_A, invA, ldinvA, stride_invA, batch_count) & - bind(c, name='hipblasDtrtriStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrtriStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag - integer(c_int), value :: n - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: invA - integer(c_int), value :: ldinvA - integer(c_int64_t), value :: stride_invA - integer(c_int), value :: batch_count - end function hipblasDtrtriStridedBatched - end interface - - interface - function hipblasCtrtriStridedBatched(handle, uplo, diag, n, & - A, lda, stride_A, invA, ldinvA, stride_invA, batch_count) & - bind(c, name='hipblasCtrtriStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrtriStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag - integer(c_int), value :: n - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: invA - integer(c_int), value :: ldinvA - integer(c_int64_t), value :: stride_invA - integer(c_int), value :: batch_count - end function hipblasCtrtriStridedBatched - end interface - - interface - function hipblasZtrtriStridedBatched(handle, uplo, diag, n, & - A, lda, stride_A, invA, ldinvA, stride_invA, batch_count) & - bind(c, name='hipblasZtrtriStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrtriStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag - integer(c_int), value :: n - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: invA - integer(c_int), value :: ldinvA - integer(c_int64_t), value :: stride_invA - integer(c_int), value :: batch_count - end function hipblasZtrtriStridedBatched - end interface - - ! trsm - interface - function hipblasStrsm(handle, side, uplo, transA, diag, m, n, alpha, & - A, lda, B, ldb) & - bind(c, name='hipblasStrsm') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsm - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - end function hipblasStrsm - end interface - - interface - function hipblasDtrsm(handle, side, uplo, transA, diag, m, n, alpha, & - A, lda, B, ldb) & - bind(c, name='hipblasDtrsm') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsm - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - end function hipblasDtrsm - end interface - - interface - function hipblasCtrsm(handle, side, uplo, transA, diag, m, n, alpha, & - A, lda, B, ldb) & - bind(c, name='hipblasCtrsm') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsm - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - end function hipblasCtrsm - end interface - - interface - function hipblasZtrsm(handle, side, uplo, transA, diag, m, n, alpha, & - A, lda, B, ldb) & - bind(c, name='hipblasZtrsm') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsm - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - end function hipblasZtrsm - end interface - - ! trsm_64 - interface - function hipblasStrsm_64(handle, side, uplo, transA, diag, m, n, alpha, & - A, lda, B, ldb) & - bind(c, name='hipblasStrsm_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsm_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - end function hipblasStrsm_64 - end interface - - interface - function hipblasDtrsm_64(handle, side, uplo, transA, diag, m, n, alpha, & - A, lda, B, ldb) & - bind(c, name='hipblasDtrsm_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsm_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - end function hipblasDtrsm_64 - end interface - - interface - function hipblasCtrsm_64(handle, side, uplo, transA, diag, m, n, alpha, & - A, lda, B, ldb) & - bind(c, name='hipblasCtrsm_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsm_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - end function hipblasCtrsm_64 - end interface - - interface - function hipblasZtrsm_64(handle, side, uplo, transA, diag, m, n, alpha, & - A, lda, B, ldb) & - bind(c, name='hipblasZtrsm_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsm_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - end function hipblasZtrsm_64 - end interface - - ! trsmBatched - interface - function hipblasStrsmBatched(handle, side, uplo, transA, diag, m, n, alpha, & - A, lda, B, ldb, batch_count) & - bind(c, name='hipblasStrsmBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsmBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - integer(c_int), value :: batch_count - end function hipblasStrsmBatched - end interface - - interface - function hipblasDtrsmBatched(handle, side, uplo, transA, diag, m, n, alpha, & - A, lda, B, ldb, batch_count) & - bind(c, name='hipblasDtrsmBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsmBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - integer(c_int), value :: batch_count - end function hipblasDtrsmBatched - end interface - - interface - function hipblasCtrsmBatched(handle, side, uplo, transA, diag, m, n, alpha, & - A, lda, B, ldb, batch_count) & - bind(c, name='hipblasCtrsmBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsmBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - integer(c_int), value :: batch_count - end function hipblasCtrsmBatched - end interface - - interface - function hipblasZtrsmBatched(handle, side, uplo, transA, diag, m, n, alpha, & - A, lda, B, ldb, batch_count) & - bind(c, name='hipblasZtrsmBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsmBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - integer(c_int), value :: batch_count - end function hipblasZtrsmBatched - end interface - - ! trsmBatched_64 - interface - function hipblasStrsmBatched_64(handle, side, uplo, transA, diag, m, n, alpha, & - A, lda, B, ldb, batch_count) & - bind(c, name='hipblasStrsmBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsmBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - integer(c_int64_t), value :: batch_count - end function hipblasStrsmBatched_64 - end interface - - interface - function hipblasDtrsmBatched_64(handle, side, uplo, transA, diag, m, n, alpha, & - A, lda, B, ldb, batch_count) & - bind(c, name='hipblasDtrsmBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsmBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - integer(c_int64_t), value :: batch_count - end function hipblasDtrsmBatched_64 - end interface - - interface - function hipblasCtrsmBatched_64(handle, side, uplo, transA, diag, m, n, alpha, & - A, lda, B, ldb, batch_count) & - bind(c, name='hipblasCtrsmBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsmBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - integer(c_int64_t), value :: batch_count - end function hipblasCtrsmBatched_64 - end interface - - interface - function hipblasZtrsmBatched_64(handle, side, uplo, transA, diag, m, n, alpha, & - A, lda, B, ldb, batch_count) & - bind(c, name='hipblasZtrsmBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsmBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - integer(c_int64_t), value :: batch_count - end function hipblasZtrsmBatched_64 - end interface - - ! trsmStridedBatched - interface - function hipblasStrsmStridedBatched(handle, side, uplo, transA, diag, m, n, alpha, & - A, lda, stride_A, B, ldb, stride_B, batch_count) & - bind(c, name='hipblasStrsmStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsmStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: B - integer(c_int), value :: ldb - integer(c_int64_t), value :: stride_B - integer(c_int), value :: batch_count - end function hipblasStrsmStridedBatched - end interface - - interface - function hipblasDtrsmStridedBatched(handle, side, uplo, transA, diag, m, n, alpha, & - A, lda, stride_A, B, ldb, stride_B, batch_count) & - bind(c, name='hipblasDtrsmStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsmStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: B - integer(c_int), value :: ldb - integer(c_int64_t), value :: stride_B - integer(c_int), value :: batch_count - end function hipblasDtrsmStridedBatched - end interface - - interface - function hipblasCtrsmStridedBatched(handle, side, uplo, transA, diag, m, n, alpha, & - A, lda, stride_A, B, ldb, stride_B, batch_count) & - bind(c, name='hipblasCtrsmStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsmStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: B - integer(c_int), value :: ldb - integer(c_int64_t), value :: stride_B - integer(c_int), value :: batch_count - end function hipblasCtrsmStridedBatched - end interface - - interface - function hipblasZtrsmStridedBatched(handle, side, uplo, transA, diag, m, n, alpha, & - A, lda, stride_A, B, ldb, stride_B, batch_count) & - bind(c, name='hipblasZtrsmStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsmStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: B - integer(c_int), value :: ldb - integer(c_int64_t), value :: stride_B - integer(c_int), value :: batch_count - end function hipblasZtrsmStridedBatched - end interface - - ! trsmStridedBatched_64 - interface - function hipblasStrsmStridedBatched_64(handle, side, uplo, transA, diag, m, n, alpha, & - A, lda, stride_A, B, ldb, stride_B, batch_count) & - bind(c, name='hipblasStrsmStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsmStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - integer(c_int64_t), value :: stride_B - integer(c_int64_t), value :: batch_count - end function hipblasStrsmStridedBatched_64 - end interface - - interface - function hipblasDtrsmStridedBatched_64(handle, side, uplo, transA, diag, m, n, alpha, & - A, lda, stride_A, B, ldb, stride_B, batch_count) & - bind(c, name='hipblasDtrsmStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsmStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - integer(c_int64_t), value :: stride_B - integer(c_int64_t), value :: batch_count - end function hipblasDtrsmStridedBatched_64 - end interface - - interface - function hipblasCtrsmStridedBatched_64(handle, side, uplo, transA, diag, m, n, alpha, & - A, lda, stride_A, B, ldb, stride_B, batch_count) & - bind(c, name='hipblasCtrsmStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsmStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - integer(c_int64_t), value :: stride_B - integer(c_int64_t), value :: batch_count - end function hipblasCtrsmStridedBatched_64 - end interface - - interface - function hipblasZtrsmStridedBatched_64(handle, side, uplo, transA, diag, m, n, alpha, & - A, lda, stride_A, B, ldb, stride_B, batch_count) & - bind(c, name='hipblasZtrsmStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsmStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - integer(c_int64_t), value :: stride_B - integer(c_int64_t), value :: batch_count - end function hipblasZtrsmStridedBatched_64 - end interface - - ! gemm - interface - function hipblasHgemm(handle, transA, transB, m, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc) & - bind(c, name='hipblasHgemm') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHgemm - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_OP_N)), value :: transB - integer(c_int), value :: m - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - end function hipblasHgemm - end interface - - interface - function hipblasSgemm(handle, transA, transB, m, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc) & - bind(c, name='hipblasSgemm') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemm - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_OP_N)), value :: transB - integer(c_int), value :: m - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - end function hipblasSgemm - end interface - - interface - function hipblasDgemm(handle, transA, transB, m, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc) & - bind(c, name='hipblasDgemm') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemm - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_OP_N)), value :: transB - integer(c_int), value :: m - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - end function hipblasDgemm - end interface - - interface - function hipblasCgemm(handle, transA, transB, m, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc) & - bind(c, name='hipblasCgemm') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemm - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_OP_N)), value :: transB - integer(c_int), value :: m - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - end function hipblasCgemm - end interface - - interface - function hipblasZgemm(handle, transA, transB, m, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc) & - bind(c, name='hipblasZgemm') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemm - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_OP_N)), value :: transB - integer(c_int), value :: m - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - end function hipblasZgemm - end interface - - ! gemm_64 - interface - function hipblasHgemm_64(handle, transA, transB, m, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc) & - bind(c, name='hipblasHgemm_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHgemm_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_OP_N)), value :: transB - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - end function hipblasHgemm_64 - end interface - - interface - function hipblasSgemm_64(handle, transA, transB, m, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc) & - bind(c, name='hipblasSgemm_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemm_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_OP_N)), value :: transB - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - end function hipblasSgemm_64 - end interface - - interface - function hipblasDgemm_64(handle, transA, transB, m, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc) & - bind(c, name='hipblasDgemm_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemm_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_OP_N)), value :: transB - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - end function hipblasDgemm_64 - end interface - - interface - function hipblasCgemm_64(handle, transA, transB, m, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc) & - bind(c, name='hipblasCgemm_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemm_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_OP_N)), value :: transB - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - end function hipblasCgemm_64 - end interface - - interface - function hipblasZgemm_64(handle, transA, transB, m, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc) & - bind(c, name='hipblasZgemm_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemm_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_OP_N)), value :: transB - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - end function hipblasZgemm_64 - end interface - - ! gemmBatched - interface - function hipblasHgemmBatched(handle, transA, transB, m, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc, batch_count) & - bind(c, name='hipblasHgemmBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHgemmBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_OP_N)), value :: transB - integer(c_int), value :: m - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int), value :: batch_count - end function hipblasHgemmBatched - end interface - - interface - function hipblasSgemmBatched(handle, transA, transB, m, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc, batch_count) & - bind(c, name='hipblasSgemmBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_OP_N)), value :: transB - integer(c_int), value :: m - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int), value :: batch_count - end function hipblasSgemmBatched - end interface - - interface - function hipblasDgemmBatched(handle, transA, transB, m, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc, batch_count) & - bind(c, name='hipblasDgemmBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_OP_N)), value :: transB - integer(c_int), value :: m - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int), value :: batch_count - end function hipblasDgemmBatched - end interface - - interface - function hipblasCgemmBatched(handle, transA, transB, m, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc, batch_count) & - bind(c, name='hipblasCgemmBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemmBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_OP_N)), value :: transB - integer(c_int), value :: m - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int), value :: batch_count - end function hipblasCgemmBatched - end interface - - interface - function hipblasZgemmBatched(handle, transA, transB, m, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc, batch_count) & - bind(c, name='hipblasZgemmBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemmBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_OP_N)), value :: transB - integer(c_int), value :: m - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int), value :: batch_count - end function hipblasZgemmBatched - end interface - - ! gemmBatched_64 - interface - function hipblasHgemmBatched_64(handle, transA, transB, m, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc, batch_count) & - bind(c, name='hipblasHgemmBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHgemmBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_OP_N)), value :: transB - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: batch_count - end function hipblasHgemmBatched_64 - end interface - - interface - function hipblasSgemmBatched_64(handle, transA, transB, m, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc, batch_count) & - bind(c, name='hipblasSgemmBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_OP_N)), value :: transB - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: batch_count - end function hipblasSgemmBatched_64 - end interface - - interface - function hipblasDgemmBatched_64(handle, transA, transB, m, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc, batch_count) & - bind(c, name='hipblasDgemmBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_OP_N)), value :: transB - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: batch_count - end function hipblasDgemmBatched_64 - end interface - - interface - function hipblasCgemmBatched_64(handle, transA, transB, m, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc, batch_count) & - bind(c, name='hipblasCgemmBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemmBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_OP_N)), value :: transB - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: batch_count - end function hipblasCgemmBatched_64 - end interface - - interface - function hipblasZgemmBatched_64(handle, transA, transB, m, n, k, alpha, & - A, lda, B, ldb, beta, C, ldc, batch_count) & - bind(c, name='hipblasZgemmBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemmBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_OP_N)), value :: transB - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: batch_count - end function hipblasZgemmBatched_64 - end interface - - ! gemmGroupedBatched - interface - function hipblasSgemmGroupedBatched(handle, transA_array, transB_array, m_array, n_array, k_array, & - alpha_array, Aarray, lda_array, Barray, ldb_array, beta_array, & - Carray, ldc_array, group_count, group_size) & - bind(c, name='hipblasSgemmGroupedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmGroupedBatched - type(c_ptr), value :: handle - type(c_ptr), value :: transA_array - type(c_ptr), value :: transB_array - type(c_ptr), value :: m_array - type(c_ptr), value :: n_array - type(c_ptr), value :: k_array - type(c_ptr), value :: alpha_array - type(c_ptr), value :: Aarray - type(c_ptr), value :: lda_array - type(c_ptr), value :: Barray - type(c_ptr), value :: ldb_array - type(c_ptr), value :: beta_array - type(c_ptr), value :: Carray - type(c_ptr), value :: ldc_array - integer(c_int), value :: group_count - type(c_ptr), value :: group_size - end function hipblasSgemmGroupedBatched - end interface - - interface - function hipblasDgemmGroupedBatched(handle, transA_array, transB_array, m_array, n_array, k_array, & - alpha_array, Aarray, lda_array, Barray, ldb_array, beta_array, & - Carray, ldc_array, group_count, group_size) & - bind(c, name='hipblasDgemmGroupedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmGroupedBatched - type(c_ptr), value :: handle - type(c_ptr), value :: transA_array - type(c_ptr), value :: transB_array - type(c_ptr), value :: m_array - type(c_ptr), value :: n_array - type(c_ptr), value :: k_array - type(c_ptr), value :: alpha_array - type(c_ptr), value :: Aarray - type(c_ptr), value :: lda_array - type(c_ptr), value :: Barray - type(c_ptr), value :: ldb_array - type(c_ptr), value :: beta_array - type(c_ptr), value :: Carray - type(c_ptr), value :: ldc_array - integer(c_int), value :: group_count - type(c_ptr), value :: group_size - end function hipblasDgemmGroupedBatched - end interface - - interface - function hipblasSgemmGroupedBatched_64(handle, transA_array, transB_array, m_array, n_array, k_array, & - alpha_array, Aarray, lda_array, Barray, ldb_array, beta_array, & - Carray, ldc_array, group_count, group_size) & - bind(c, name='hipblasSgemmGroupedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmGroupedBatched_64 - type(c_ptr), value :: handle - type(c_ptr), value :: transA_array - type(c_ptr), value :: transB_array - type(c_ptr), value :: m_array - type(c_ptr), value :: n_array - type(c_ptr), value :: k_array - type(c_ptr), value :: alpha_array - type(c_ptr), value :: Aarray - type(c_ptr), value :: lda_array - type(c_ptr), value :: Barray - type(c_ptr), value :: ldb_array - type(c_ptr), value :: beta_array - type(c_ptr), value :: Carray - type(c_ptr), value :: ldc_array - integer(c_int64_t), value :: group_count - type(c_ptr), value :: group_size - end function hipblasSgemmGroupedBatched_64 - end interface - - interface - function hipblasDgemmGroupedBatched_64(handle, transA_array, transB_array, m_array, n_array, k_array, & - alpha_array, Aarray, lda_array, Barray, ldb_array, beta_array, & - Carray, ldc_array, group_count, group_size) & - bind(c, name='hipblasDgemmGroupedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmGroupedBatched_64 - type(c_ptr), value :: handle - type(c_ptr), value :: transA_array - type(c_ptr), value :: transB_array - type(c_ptr), value :: m_array - type(c_ptr), value :: n_array - type(c_ptr), value :: k_array - type(c_ptr), value :: alpha_array - type(c_ptr), value :: Aarray - type(c_ptr), value :: lda_array - type(c_ptr), value :: Barray - type(c_ptr), value :: ldb_array - type(c_ptr), value :: beta_array - type(c_ptr), value :: Carray - type(c_ptr), value :: ldc_array - integer(c_int64_t), value :: group_count - type(c_ptr), value :: group_size - end function hipblasDgemmGroupedBatched_64 - end interface - - ! gemmStridedBatched - interface - function hipblasHgemmStridedBatched(handle, transA, transB, m, n, k, alpha, & - A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasHgemmStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHgemmStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_OP_N)), value :: transB - integer(c_int), value :: m - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: B - integer(c_int), value :: ldb - integer(c_int64_t), value :: stride_B - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int), value :: batch_count - end function hipblasHgemmStridedBatched - end interface - - interface - function hipblasSgemmStridedBatched(handle, transA, transB, m, n, k, alpha, & - A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasSgemmStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_OP_N)), value :: transB - integer(c_int), value :: m - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: B - integer(c_int), value :: ldb - integer(c_int64_t), value :: stride_B - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int), value :: batch_count - end function hipblasSgemmStridedBatched - end interface - - interface - function hipblasDgemmStridedBatched(handle, transA, transB, m, n, k, alpha, & - A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasDgemmStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_OP_N)), value :: transB - integer(c_int), value :: m - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: B - integer(c_int), value :: ldb - integer(c_int64_t), value :: stride_B - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int), value :: batch_count - end function hipblasDgemmStridedBatched - end interface - - interface - function hipblasCgemmStridedBatched(handle, transA, transB, m, n, k, alpha, & - A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasCgemmStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemmStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_OP_N)), value :: transB - integer(c_int), value :: m - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: B - integer(c_int), value :: ldb - integer(c_int64_t), value :: stride_B - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int), value :: batch_count - end function hipblasCgemmStridedBatched - end interface - - interface - function hipblasZgemmStridedBatched(handle, transA, transB, m, n, k, alpha, & - A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasZgemmStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemmStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_OP_N)), value :: transB - integer(c_int), value :: m - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: B - integer(c_int), value :: ldb - integer(c_int64_t), value :: stride_B - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int), value :: batch_count - end function hipblasZgemmStridedBatched - end interface - - ! gemmStridedBatched_64 - interface - function hipblasHgemmStridedBatched_64(handle, transA, transB, m, n, k, alpha, & - A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasHgemmStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHgemmStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_OP_N)), value :: transB - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - integer(c_int64_t), value :: stride_B - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int64_t), value :: batch_count - end function hipblasHgemmStridedBatched_64 - end interface - - interface - function hipblasSgemmStridedBatched_64(handle, transA, transB, m, n, k, alpha, & - A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasSgemmStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_OP_N)), value :: transB - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - integer(c_int64_t), value :: stride_B - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int64_t), value :: batch_count - end function hipblasSgemmStridedBatched_64 - end interface - - interface - function hipblasDgemmStridedBatched_64(handle, transA, transB, m, n, k, alpha, & - A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasDgemmStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_OP_N)), value :: transB - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - integer(c_int64_t), value :: stride_B - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int64_t), value :: batch_count - end function hipblasDgemmStridedBatched_64 - end interface - - interface - function hipblasCgemmStridedBatched_64(handle, transA, transB, m, n, k, alpha, & - A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasCgemmStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemmStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_OP_N)), value :: transB - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - integer(c_int64_t), value :: stride_B - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int64_t), value :: batch_count - end function hipblasCgemmStridedBatched_64 - end interface - - interface - function hipblasZgemmStridedBatched_64(handle, transA, transB, m, n, k, alpha, & - A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasZgemmStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemmStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_OP_N)), value :: transB - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - integer(c_int64_t), value :: stride_B - type(c_ptr), value :: beta - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int64_t), value :: batch_count - end function hipblasZgemmStridedBatched_64 - end interface - - ! dgmm - interface - function hipblasSdgmm(handle, side, m, n, & - A, lda, x, incx, C, ldc) & - bind(c, name='hipblasSdgmm') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdgmm - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: C - integer(c_int), value :: ldc - end function hipblasSdgmm - end interface - - interface - function hipblasDdgmm(handle, side, m, n, & - A, lda, x, incx, C, ldc) & - bind(c, name='hipblasDdgmm') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdgmm - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: C - integer(c_int), value :: ldc - end function hipblasDdgmm - end interface - - interface - function hipblasCdgmm(handle, side, m, n, & - A, lda, x, incx, C, ldc) & - bind(c, name='hipblasCdgmm') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdgmm - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: C - integer(c_int), value :: ldc - end function hipblasCdgmm - end interface - - interface - function hipblasZdgmm(handle, side, m, n, & - A, lda, x, incx, C, ldc) & - bind(c, name='hipblasZdgmm') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdgmm - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: C - integer(c_int), value :: ldc - end function hipblasZdgmm - end interface - - ! dgmm_64 - interface - function hipblasSdgmm_64(handle, side, m, n, & - A, lda, x, incx, C, ldc) & - bind(c, name='hipblasSdgmm_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdgmm_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - end function hipblasSdgmm_64 - end interface - - interface - function hipblasDdgmm_64(handle, side, m, n, & - A, lda, x, incx, C, ldc) & - bind(c, name='hipblasDdgmm_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdgmm_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - end function hipblasDdgmm_64 - end interface - - interface - function hipblasCdgmm_64(handle, side, m, n, & - A, lda, x, incx, C, ldc) & - bind(c, name='hipblasCdgmm_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdgmm_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - end function hipblasCdgmm_64 - end interface - - interface - function hipblasZdgmm_64(handle, side, m, n, & - A, lda, x, incx, C, ldc) & - bind(c, name='hipblasZdgmm_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdgmm_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - end function hipblasZdgmm_64 - end interface - - ! dgmmBatched - interface - function hipblasSdgmmBatched(handle, side, m, n, & - A, lda, x, incx, C, ldc, batch_count) & - bind(c, name='hipblasSdgmmBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdgmmBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int), value :: batch_count - end function hipblasSdgmmBatched - end interface - - interface - function hipblasDdgmmBatched(handle, side, m, n, & - A, lda, x, incx, C, ldc, batch_count) & - bind(c, name='hipblasDdgmmBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdgmmBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int), value :: batch_count - end function hipblasDdgmmBatched - end interface - - interface - function hipblasCdgmmBatched(handle, side, m, n, & - A, lda, x, incx, C, ldc, batch_count) & - bind(c, name='hipblasCdgmmBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdgmmBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int), value :: batch_count - end function hipblasCdgmmBatched - end interface - - interface - function hipblasZdgmmBatched(handle, side, m, n, & - A, lda, x, incx, C, ldc, batch_count) & - bind(c, name='hipblasZdgmmBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdgmmBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: x - integer(c_int), value :: incx - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int), value :: batch_count - end function hipblasZdgmmBatched - end interface - - ! dgmmBatched_64 - interface - function hipblasSdgmmBatched_64(handle, side, m, n, & - A, lda, x, incx, C, ldc, batch_count) & - bind(c, name='hipblasSdgmmBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdgmmBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: batch_count - end function hipblasSdgmmBatched_64 - end interface - - interface - function hipblasDdgmmBatched_64(handle, side, m, n, & - A, lda, x, incx, C, ldc, batch_count) & - bind(c, name='hipblasDdgmmBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdgmmBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: batch_count - end function hipblasDdgmmBatched_64 - end interface - - interface - function hipblasCdgmmBatched_64(handle, side, m, n, & - A, lda, x, incx, C, ldc, batch_count) & - bind(c, name='hipblasCdgmmBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdgmmBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: batch_count - end function hipblasCdgmmBatched_64 - end interface - - interface - function hipblasZdgmmBatched_64(handle, side, m, n, & - A, lda, x, incx, C, ldc, batch_count) & - bind(c, name='hipblasZdgmmBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdgmmBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: batch_count - end function hipblasZdgmmBatched_64 - end interface - - ! dgmmStridedBatched - interface - function hipblasSdgmmStridedBatched(handle, side, m, n, & - A, lda, stride_A, x, incx, stride_x, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasSdgmmStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdgmmStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int), value :: batch_count - end function hipblasSdgmmStridedBatched - end interface - - interface - function hipblasDdgmmStridedBatched(handle, side, m, n, & - A, lda, stride_A, x, incx, stride_x, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasDdgmmStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdgmmStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int), value :: batch_count - end function hipblasDdgmmStridedBatched - end interface - - interface - function hipblasCdgmmStridedBatched(handle, side, m, n, & - A, lda, stride_A, x, incx, stride_x, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasCdgmmStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdgmmStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int), value :: batch_count - end function hipblasCdgmmStridedBatched - end interface - - interface - function hipblasZdgmmStridedBatched(handle, side, m, n, & - A, lda, stride_A, x, incx, stride_x, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasZdgmmStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdgmmStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int), value :: batch_count - end function hipblasZdgmmStridedBatched - end interface - - ! dgmmStridedBatched_64 - interface - function hipblasSdgmmStridedBatched_64(handle, side, m, n, & - A, lda, stride_A, x, incx, stride_x, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasSdgmmStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdgmmStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int64_t), value :: batch_count - end function hipblasSdgmmStridedBatched_64 - end interface - - interface - function hipblasDdgmmStridedBatched_64(handle, side, m, n, & - A, lda, stride_A, x, incx, stride_x, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasDdgmmStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdgmmStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int64_t), value :: batch_count - end function hipblasDdgmmStridedBatched_64 - end interface - - interface - function hipblasCdgmmStridedBatched_64(handle, side, m, n, & - A, lda, stride_A, x, incx, stride_x, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasCdgmmStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdgmmStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int64_t), value :: batch_count - end function hipblasCdgmmStridedBatched_64 - end interface - - interface - function hipblasZdgmmStridedBatched_64(handle, side, m, n, & - A, lda, stride_A, x, incx, stride_x, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasZdgmmStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdgmmStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: x - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stride_x - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int64_t), value :: batch_count - end function hipblasZdgmmStridedBatched_64 - end interface - - ! geam - interface - function hipblasSgeam(handle, transA, transB, m, n, alpha, & - A, lda, beta, B, ldb, C, ldc) & - bind(c, name='hipblasSgeam') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeam - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_OP_N)), value :: transB - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: beta - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: C - integer(c_int), value :: ldc - end function hipblasSgeam - end interface - - interface - function hipblasDgeam(handle, transA, transB, m, n, alpha, & - A, lda, beta, B, ldb, C, ldc) & - bind(c, name='hipblasDgeam') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeam - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_OP_N)), value :: transB - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: beta - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: C - integer(c_int), value :: ldc - end function hipblasDgeam - end interface - - interface - function hipblasCgeam(handle, transA, transB, m, n, alpha, & - A, lda, beta, B, ldb, C, ldc) & - bind(c, name='hipblasCgeam') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeam - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_OP_N)), value :: transB - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: beta - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: C - integer(c_int), value :: ldc - end function hipblasCgeam - end interface - - interface - function hipblasZgeam(handle, transA, transB, m, n, alpha, & - A, lda, beta, B, ldb, C, ldc) & - bind(c, name='hipblasZgeam') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeam - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_OP_N)), value :: transB - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: beta - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: C - integer(c_int), value :: ldc - end function hipblasZgeam - end interface - - ! geam_64 - interface - function hipblasSgeam_64(handle, transA, transB, m, n, alpha, & - A, lda, beta, B, ldb, C, ldc) & - bind(c, name='hipblasSgeam_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeam_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_OP_N)), value :: transB - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: beta - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - end function hipblasSgeam_64 - end interface - - interface - function hipblasDgeam_64(handle, transA, transB, m, n, alpha, & - A, lda, beta, B, ldb, C, ldc) & - bind(c, name='hipblasDgeam_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeam_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_OP_N)), value :: transB - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: beta - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - end function hipblasDgeam_64 - end interface - - interface - function hipblasCgeam_64(handle, transA, transB, m, n, alpha, & - A, lda, beta, B, ldb, C, ldc) & - bind(c, name='hipblasCgeam_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeam_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_OP_N)), value :: transB - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: beta - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - end function hipblasCgeam_64 - end interface - - interface - function hipblasZgeam_64(handle, transA, transB, m, n, alpha, & - A, lda, beta, B, ldb, C, ldc) & - bind(c, name='hipblasZgeam_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeam_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_OP_N)), value :: transB - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: beta - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - end function hipblasZgeam_64 - end interface - - ! geamBatched - interface - function hipblasSgeamBatched(handle, transA, transB, m, n, alpha, & - A, lda, beta, B, ldb, C, ldc, batch_count) & - bind(c, name='hipblasSgeamBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeamBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_OP_N)), value :: transB - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: beta - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int), value :: batch_count - end function hipblasSgeamBatched - end interface - - interface - function hipblasDgeamBatched(handle, transA, transB, m, n, alpha, & - A, lda, beta, B, ldb, C, ldc, batch_count) & - bind(c, name='hipblasDgeamBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeamBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_OP_N)), value :: transB - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: beta - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int), value :: batch_count - end function hipblasDgeamBatched - end interface - - interface - function hipblasCgeamBatched(handle, transA, transB, m, n, alpha, & - A, lda, beta, B, ldb, C, ldc, batch_count) & - bind(c, name='hipblasCgeamBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeamBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_OP_N)), value :: transB - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: beta - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int), value :: batch_count - end function hipblasCgeamBatched - end interface - - interface - function hipblasZgeamBatched(handle, transA, transB, m, n, alpha, & - A, lda, beta, B, ldb, C, ldc, batch_count) & - bind(c, name='hipblasZgeamBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeamBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_OP_N)), value :: transB - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: beta - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int), value :: batch_count - end function hipblasZgeamBatched - end interface - - ! geamBatched_64 - interface - function hipblasSgeamBatched_64(handle, transA, transB, m, n, alpha, & - A, lda, beta, B, ldb, C, ldc, batch_count) & - bind(c, name='hipblasSgeamBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeamBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_OP_N)), value :: transB - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: beta - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: batch_count - end function hipblasSgeamBatched_64 - end interface - - interface - function hipblasDgeamBatched_64(handle, transA, transB, m, n, alpha, & - A, lda, beta, B, ldb, C, ldc, batch_count) & - bind(c, name='hipblasDgeamBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeamBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_OP_N)), value :: transB - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: beta - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: batch_count - end function hipblasDgeamBatched_64 - end interface - - interface - function hipblasCgeamBatched_64(handle, transA, transB, m, n, alpha, & - A, lda, beta, B, ldb, C, ldc, batch_count) & - bind(c, name='hipblasCgeamBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeamBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_OP_N)), value :: transB - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: beta - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: batch_count - end function hipblasCgeamBatched_64 - end interface - - interface - function hipblasZgeamBatched_64(handle, transA, transB, m, n, alpha, & - A, lda, beta, B, ldb, C, ldc, batch_count) & - bind(c, name='hipblasZgeamBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeamBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_OP_N)), value :: transB - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - type(c_ptr), value :: beta - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: batch_count - end function hipblasZgeamBatched_64 - end interface - - ! geamStridedBatched - interface - function hipblasSgeamStridedBatched(handle, transA, transB, m, n, alpha, & - A, lda, stride_A, beta, B, ldb, stride_B, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasSgeamStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeamStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_OP_N)), value :: transB - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: beta - type(c_ptr), value :: B - integer(c_int), value :: ldb - integer(c_int64_t), value :: stride_B - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int), value :: batch_count - end function hipblasSgeamStridedBatched - end interface - - interface - function hipblasDgeamStridedBatched(handle, transA, transB, m, n, alpha, & - A, lda, stride_A, beta, B, ldb, stride_B, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasDgeamStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeamStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_OP_N)), value :: transB - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: beta - type(c_ptr), value :: B - integer(c_int), value :: ldb - integer(c_int64_t), value :: stride_B - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int), value :: batch_count - end function hipblasDgeamStridedBatched - end interface - - interface - function hipblasCgeamStridedBatched(handle, transA, transB, m, n, alpha, & - A, lda, stride_A, beta, B, ldb, stride_B, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasCgeamStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeamStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_OP_N)), value :: transB - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: beta - type(c_ptr), value :: B - integer(c_int), value :: ldb - integer(c_int64_t), value :: stride_B - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int), value :: batch_count - end function hipblasCgeamStridedBatched - end interface - - interface - function hipblasZgeamStridedBatched(handle, transA, transB, m, n, alpha, & - A, lda, stride_A, beta, B, ldb, stride_B, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasZgeamStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeamStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_OP_N)), value :: transB - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: beta - type(c_ptr), value :: B - integer(c_int), value :: ldb - integer(c_int64_t), value :: stride_B - type(c_ptr), value :: C - integer(c_int), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int), value :: batch_count - end function hipblasZgeamStridedBatched - end interface - - ! geamStridedBatched_64 - interface - function hipblasSgeamStridedBatched_64(handle, transA, transB, m, n, alpha, & - A, lda, stride_A, beta, B, ldb, stride_B, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasSgeamStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeamStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_OP_N)), value :: transB - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: beta - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - integer(c_int64_t), value :: stride_B - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int64_t), value :: batch_count - end function hipblasSgeamStridedBatched_64 - end interface - - interface - function hipblasDgeamStridedBatched_64(handle, transA, transB, m, n, alpha, & - A, lda, stride_A, beta, B, ldb, stride_B, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasDgeamStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeamStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_OP_N)), value :: transB - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: beta - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - integer(c_int64_t), value :: stride_B - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int64_t), value :: batch_count - end function hipblasDgeamStridedBatched_64 - end interface - - interface - function hipblasCgeamStridedBatched_64(handle, transA, transB, m, n, alpha, & - A, lda, stride_A, beta, B, ldb, stride_B, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasCgeamStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeamStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_OP_N)), value :: transB - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: beta - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - integer(c_int64_t), value :: stride_B - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int64_t), value :: batch_count - end function hipblasCgeamStridedBatched_64 - end interface - - interface - function hipblasZgeamStridedBatched_64(handle, transA, transB, m, n, alpha, & - A, lda, stride_A, beta, B, ldb, stride_B, C, ldc, stride_C, batch_count) & - bind(c, name='hipblasZgeamStridedBatched_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeamStridedBatched_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_OP_N)), value :: transB - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: beta - type(c_ptr), value :: B - integer(c_int64_t), value :: ldb - integer(c_int64_t), value :: stride_B - type(c_ptr), value :: C - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: stride_C - integer(c_int64_t), value :: batch_count - end function hipblasZgeamStridedBatched_64 - end interface - - !-----------------! - ! blas Extensions ! - !-----------------! - - ! gemmEx - interface - function hipblasGemmEx(handle, transA, transB, m, n, k, alpha, a, a_type, lda, & - b, b_type, ldb, beta, c, c_type, ldc, & - compute_type, algo) & - bind(c, name='hipblasGemmEx') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmEx - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_OP_N)), value :: transB - integer(c_int), value :: m - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: a - integer(kind(HIP_R_16F)), value :: a_type - integer(c_int), value :: lda - type(c_ptr), value :: b - integer(kind(HIP_R_16F)), value :: b_type - integer(c_int), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: c - integer(kind(HIP_R_16F)), value :: c_type - integer(c_int), value :: ldc - integer(kind(HIPBLAS_COMPUTE_16F)), value :: compute_type - integer(kind(HIPBLAS_GEMM_DEFAULT)), value :: algo - end function hipblasGemmEx - end interface - - interface - function hipblasGemmExWithFlags(handle, transA, transB, m, n, k, alpha, a, a_type, lda, & - b, b_type, ldb, beta, c, c_type, ldc, & - compute_type, algo, flags) & - bind(c, name='hipblasGemmExWithFlags') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmExWithFlags - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_OP_N)), value :: transB - integer(c_int), value :: m - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: a - integer(kind(HIP_R_16F)), value :: a_type - integer(c_int), value :: lda - type(c_ptr), value :: b - integer(kind(HIP_R_16F)), value :: b_type - integer(c_int), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: c - integer(kind(HIP_R_16F)), value :: c_type - integer(c_int), value :: ldc - integer(kind(HIPBLAS_COMPUTE_16F)), value :: compute_type - integer(kind(HIPBLAS_GEMM_DEFAULT)), value :: algo - integer(kind(HIPBLAS_GEMM_FLAGS_NONE)), value :: flags - end function hipblasGemmExWithFlags - end interface - - interface - function hipblasGemmBatchedEx(handle, transA, transB, m, n, k, alpha, a, a_type, lda, & - b, b_type, ldb, beta, c, c_type, ldc, & - batch_count, compute_type, algo) & - bind(c, name='hipblasGemmBatchedEx') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmBatchedEx - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_OP_N)), value :: transB - integer(c_int), value :: m - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: a - integer(kind(HIP_R_16F)), value :: a_type - integer(c_int), value :: lda - type(c_ptr), value :: b - integer(kind(HIP_R_16F)), value :: b_type - integer(c_int), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: c - integer(kind(HIP_R_16F)), value :: c_type - integer(c_int), value :: ldc - integer(c_int), value :: batch_count - integer(kind(HIPBLAS_COMPUTE_16F)), value :: compute_type - integer(kind(HIPBLAS_GEMM_DEFAULT)), value :: algo - end function hipblasGemmBatchedEx - end interface - - interface - function hipblasGemmBatchedExWithFlags(handle, transA, transB, m, n, k, alpha, a, a_type, lda, & - b, b_type, ldb, beta, c, c_type, ldc, & - batch_count, compute_type, algo, flags) & - bind(c, name='hipblasGemmBatchedExWithFlags') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmBatchedExWithFlags - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_OP_N)), value :: transB - integer(c_int), value :: m - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: a - integer(kind(HIP_R_16F)), value :: a_type - integer(c_int), value :: lda - type(c_ptr), value :: b - integer(kind(HIP_R_16F)), value :: b_type - integer(c_int), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: c - integer(kind(HIP_R_16F)), value :: c_type - integer(c_int), value :: ldc - integer(c_int), value :: batch_count - integer(kind(HIPBLAS_COMPUTE_16F)), value :: compute_type - integer(kind(HIPBLAS_GEMM_DEFAULT)), value :: algo - integer(kind(HIPBLAS_GEMM_FLAGS_NONE)), value :: flags - end function hipblasGemmBatchedExWithFlags - end interface - - interface - function hipblasGemmStridedBatchedEx(handle, transA, transB, m, n, k, alpha, a, a_type, lda, stride_a, & - b, b_type, ldb, stride_b, beta, c, c_type, ldc, stride_c, & - batch_count, compute_type, algo) & - bind(c, name='hipblasGemmStridedBatchedEx') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmStridedBatchedEx - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_OP_N)), value :: transB - integer(c_int), value :: m - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: a - integer(kind(HIP_R_16F)), value :: a_type - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_a - type(c_ptr), value :: b - integer(kind(HIP_R_16F)), value :: b_type - integer(c_int), value :: ldb - integer(c_int64_t), value :: stride_b - type(c_ptr), value :: beta - type(c_ptr), value :: c - integer(kind(HIP_R_16F)), value :: c_type - integer(c_int), value :: ldc - integer(c_int64_t), value :: stride_c - integer(c_int), value :: batch_count - integer(kind(HIPBLAS_COMPUTE_16F)), value :: compute_type - integer(kind(HIPBLAS_GEMM_DEFAULT)), value :: algo - end function hipblasGemmStridedBatchedEx - end interface - - interface - function hipblasGemmStridedBatchedExWithFlags(handle, transA, transB, m, n, k, alpha, a, a_type, lda, stride_a, & - b, b_type, ldb, stride_b, beta, c, c_type, ldc, stride_c, & - batch_count, compute_type, algo, flags) & - bind(c, name='hipblasGemmStridedBatchedExWithFlags') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmStridedBatchedExWithFlags - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_OP_N)), value :: transB - integer(c_int), value :: m - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: a - integer(kind(HIP_R_16F)), value :: a_type - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_a - type(c_ptr), value :: b - integer(kind(HIP_R_16F)), value :: b_type - integer(c_int), value :: ldb - integer(c_int64_t), value :: stride_b - type(c_ptr), value :: beta - type(c_ptr), value :: c - integer(kind(HIP_R_16F)), value :: c_type - integer(c_int), value :: ldc - integer(c_int64_t), value :: stride_c - integer(c_int), value :: batch_count - integer(kind(HIPBLAS_COMPUTE_16F)), value :: compute_type - integer(kind(HIPBLAS_GEMM_DEFAULT)), value :: algo - integer(kind(HIPBLAS_GEMM_FLAGS_NONE)), value :: flags - end function hipblasGemmStridedBatchedExWithFlags - end interface - - ! gemmEx_64 - interface - function hipblasGemmEx_64(handle, transA, transB, m, n, k, alpha, a, a_type, lda, & - b, b_type, ldb, beta, c, c_type, ldc, & - compute_type, algo) & - bind(c, name='hipblasGemmEx_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmEx_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_OP_N)), value :: transB - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: a - integer(kind(HIP_R_16F)), value :: a_type - integer(c_int64_t), value :: lda - type(c_ptr), value :: b - integer(kind(HIP_R_16F)), value :: b_type - integer(c_int64_t), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: c - integer(kind(HIP_R_16F)), value :: c_type - integer(c_int64_t), value :: ldc - integer(kind(HIPBLAS_COMPUTE_16F)), value :: compute_type - integer(kind(HIPBLAS_GEMM_DEFAULT)), value :: algo - end function hipblasGemmEx_64 - end interface - - interface - function hipblasGemmExWithFlags_64(handle, transA, transB, m, n, k, alpha, a, a_type, lda, & - b, b_type, ldb, beta, c, c_type, ldc, & - compute_type, algo, flags) & - bind(c, name='hipblasGemmExWithFlags_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmExWithFlags_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_OP_N)), value :: transB - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: a - integer(kind(HIP_R_16F)), value :: a_type - integer(c_int64_t), value :: lda - type(c_ptr), value :: b - integer(kind(HIP_R_16F)), value :: b_type - integer(c_int64_t), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: c - integer(kind(HIP_R_16F)), value :: c_type - integer(c_int64_t), value :: ldc - integer(kind(HIPBLAS_COMPUTE_16F)), value :: compute_type - integer(kind(HIPBLAS_GEMM_DEFAULT)), value :: algo - integer(kind(HIPBLAS_GEMM_FLAGS_NONE)), value :: flags - end function hipblasGemmExWithFlags_64 - end interface - - interface - function hipblasGemmBatchedEx_64(handle, transA, transB, m, n, k, alpha, a, a_type, lda, & - b, b_type, ldb, beta, c, c_type, ldc, & - batch_count, compute_type, algo) & - bind(c, name='hipblasGemmBatchedEx_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmBatchedEx_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_OP_N)), value :: transB - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: a - integer(kind(HIP_R_16F)), value :: a_type - integer(c_int64_t), value :: lda - type(c_ptr), value :: b - integer(kind(HIP_R_16F)), value :: b_type - integer(c_int64_t), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: c - integer(kind(HIP_R_16F)), value :: c_type - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: batch_count - integer(kind(HIPBLAS_COMPUTE_16F)), value :: compute_type - integer(kind(HIPBLAS_GEMM_DEFAULT)), value :: algo - end function hipblasGemmBatchedEx_64 - end interface - - interface - function hipblasGemmBatchedExWithFlags_64(handle, transA, transB, m, n, k, alpha, a, a_type, lda, & - b, b_type, ldb, beta, c, c_type, ldc, & - batch_count, compute_type, algo, flags) & - bind(c, name='hipblasGemmBatchedExWithFlags_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmBatchedExWithFlags_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_OP_N)), value :: transB - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: a - integer(kind(HIP_R_16F)), value :: a_type - integer(c_int64_t), value :: lda - type(c_ptr), value :: b - integer(kind(HIP_R_16F)), value :: b_type - integer(c_int64_t), value :: ldb - type(c_ptr), value :: beta - type(c_ptr), value :: c - integer(kind(HIP_R_16F)), value :: c_type - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: batch_count - integer(kind(HIPBLAS_COMPUTE_16F)), value :: compute_type - integer(kind(HIPBLAS_GEMM_DEFAULT)), value :: algo - integer(kind(HIPBLAS_GEMM_FLAGS_NONE)), value :: flags - end function hipblasGemmBatchedExWithFlags_64 - end interface - - interface - function hipblasGemmGroupedBatchedEx(handle, transA_array, transB_array, m_array, n_array, k_array, & - alpha_array, Aarray, a_type, lda_array, Barray, b_type, & - ldb_array, beta_array, Carray, c_type, ldc_array, Darray, d_type, & - ldd_array, group_count, group_size, compute_type, algo) & - bind(c, name='hipblasGemmGroupedBatchedEx') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmGroupedBatchedEx - type(c_ptr), value :: handle - type(c_ptr), value :: transA_array - type(c_ptr), value :: transB_array - type(c_ptr), value :: m_array - type(c_ptr), value :: n_array - type(c_ptr), value :: k_array - type(c_ptr), value :: alpha_array - type(c_ptr), value :: Aarray - integer(kind(HIP_R_16F)), value :: a_type - type(c_ptr), value :: lda_array - type(c_ptr), value :: Barray - integer(kind(HIP_R_16F)), value :: b_type - type(c_ptr), value :: ldb_array - type(c_ptr), value :: beta_array - type(c_ptr), value :: Carray - integer(kind(HIP_R_16F)), value :: c_type - type(c_ptr), value :: ldc_array - type(c_ptr), value :: Darray - integer(kind(HIP_R_16F)), value :: d_type - type(c_ptr), value :: ldd_array - integer(c_int), value :: group_count - type(c_ptr), value :: group_size - integer(kind(HIPBLAS_COMPUTE_16F)), value :: compute_type - integer(kind(HIPBLAS_GEMM_DEFAULT)), value :: algo - end function hipblasGemmGroupedBatchedEx - end interface - - interface - function hipblasGemmGroupedBatchedExWithFlags(handle, transA_array, transB_array, m_array, n_array, k_array, & - alpha_array, Aarray, a_type, lda_array, Barray, b_type, & - ldb_array, beta_array, Carray, c_type, ldc_array, Darray, d_type, & - ldd_array, group_count, group_size, compute_type, algo, flags) & - bind(c, name='hipblasGemmGroupedBatchedExWithFlags') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmGroupedBatchedExWithFlags - type(c_ptr), value :: handle - type(c_ptr), value :: transA_array - type(c_ptr), value :: transB_array - type(c_ptr), value :: m_array - type(c_ptr), value :: n_array - type(c_ptr), value :: k_array - type(c_ptr), value :: alpha_array - type(c_ptr), value :: Aarray - integer(kind(HIP_R_16F)), value :: a_type - type(c_ptr), value :: lda_array - type(c_ptr), value :: Barray - integer(kind(HIP_R_16F)), value :: b_type - type(c_ptr), value :: ldb_array - type(c_ptr), value :: beta_array - type(c_ptr), value :: Carray - integer(kind(HIP_R_16F)), value :: c_type - type(c_ptr), value :: ldc_array - type(c_ptr), value :: Darray - integer(kind(HIP_R_16F)), value :: d_type - type(c_ptr), value :: ldd_array - integer(c_int), value :: group_count - type(c_ptr), value :: group_size - integer(kind(HIPBLAS_COMPUTE_16F)), value :: compute_type - integer(kind(HIPBLAS_GEMM_DEFAULT)), value :: algo - integer(kind(HIPBLAS_GEMM_FLAGS_NONE)), value :: flags - end function hipblasGemmGroupedBatchedExWithFlags - end interface - - interface - function hipblasGemmGroupedBatchedEx_64(handle, transA_array, transB_array, m_array, n_array, k_array, & - alpha_array, Aarray, a_type, lda_array, Barray, b_type, & - ldb_array, beta_array, Carray, c_type, ldc_array, Darray, d_type, & - ldd_array, group_count, group_size, compute_type, algo) & - bind(c, name='hipblasGemmGroupedBatchedEx_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmGroupedBatchedEx_64 - type(c_ptr), value :: handle - type(c_ptr), value :: transA_array - type(c_ptr), value :: transB_array - type(c_ptr), value :: m_array - type(c_ptr), value :: n_array - type(c_ptr), value :: k_array - type(c_ptr), value :: alpha_array - type(c_ptr), value :: Aarray - integer(kind(HIP_R_16F)), value :: a_type - type(c_ptr), value :: lda_array - type(c_ptr), value :: Barray - integer(kind(HIP_R_16F)), value :: b_type - type(c_ptr), value :: ldb_array - type(c_ptr), value :: beta_array - type(c_ptr), value :: Carray - integer(kind(HIP_R_16F)), value :: c_type - type(c_ptr), value :: ldc_array - type(c_ptr), value :: Darray - integer(kind(HIP_R_16F)), value :: d_type - type(c_ptr), value :: ldd_array - integer(c_int64_t), value :: group_count - type(c_ptr), value :: group_size - integer(kind(HIPBLAS_COMPUTE_16F)), value :: compute_type - integer(kind(HIPBLAS_GEMM_DEFAULT)), value :: algo - end function hipblasGemmGroupedBatchedEx_64 - end interface - - interface - function hipblasGemmGroupedBatchedExWithFlags_64(handle, transA_array, transB_array, m_array, n_array, k_array, & - alpha_array, Aarray, a_type, lda_array, Barray, b_type, & - ldb_array, beta_array, Carray, c_type, ldc_array, Darray, d_type, & - ldd_array, group_count, group_size, compute_type, algo, flags) & - bind(c, name='hipblasGemmGroupedBatchedExWithFlags_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmGroupedBatchedExWithFlags_64 - type(c_ptr), value :: handle - type(c_ptr), value :: transA_array - type(c_ptr), value :: transB_array - type(c_ptr), value :: m_array - type(c_ptr), value :: n_array - type(c_ptr), value :: k_array - type(c_ptr), value :: alpha_array - type(c_ptr), value :: Aarray - integer(kind(HIP_R_16F)), value :: a_type - type(c_ptr), value :: lda_array - type(c_ptr), value :: Barray - integer(kind(HIP_R_16F)), value :: b_type - type(c_ptr), value :: ldb_array - type(c_ptr), value :: beta_array - type(c_ptr), value :: Carray - integer(kind(HIP_R_16F)), value :: c_type - type(c_ptr), value :: ldc_array - type(c_ptr), value :: Darray - integer(kind(HIP_R_16F)), value :: d_type - type(c_ptr), value :: ldd_array - integer(c_int64_t), value :: group_count - type(c_ptr), value :: group_size - integer(kind(HIPBLAS_COMPUTE_16F)), value :: compute_type - integer(kind(HIPBLAS_GEMM_DEFAULT)), value :: algo - integer(kind(HIPBLAS_GEMM_FLAGS_NONE)), value :: flags - end function hipblasGemmGroupedBatchedExWithFlags_64 - end interface - - interface - function hipblasGemmStridedBatchedEx_64(handle, transA, transB, m, n, k, alpha, a, a_type, lda, stride_a, & - b, b_type, ldb, stride_b, beta, c, c_type, ldc, stride_c, & - batch_count, compute_type, algo) & - bind(c, name='hipblasGemmStridedBatchedEx_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmStridedBatchedEx_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_OP_N)), value :: transB - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: a - integer(kind(HIP_R_16F)), value :: a_type - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_a - type(c_ptr), value :: b - integer(kind(HIP_R_16F)), value :: b_type - integer(c_int64_t), value :: ldb - integer(c_int64_t), value :: stride_b - type(c_ptr), value :: beta - type(c_ptr), value :: c - integer(kind(HIP_R_16F)), value :: c_type - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: stride_c - integer(c_int64_t), value :: batch_count - integer(kind(HIPBLAS_COMPUTE_16F)), value :: compute_type - integer(kind(HIPBLAS_GEMM_DEFAULT)), value :: algo - end function hipblasGemmStridedBatchedEx_64 - end interface - - interface - function hipblasGemmStridedBatchedExWithFlags_64(handle, transA, transB, m, n, k, alpha, a, a_type, lda, stride_a, & - b, b_type, ldb, stride_b, beta, c, c_type, ldc, stride_c, & - batch_count, compute_type, algo, flags) & - bind(c, name='hipblasGemmStridedBatchedExWithFlags_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmStridedBatchedExWithFlags_64 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_OP_N)), value :: transB - integer(c_int64_t), value :: m - integer(c_int64_t), value :: n - integer(c_int64_t), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: a - integer(kind(HIP_R_16F)), value :: a_type - integer(c_int64_t), value :: lda - integer(c_int64_t), value :: stride_a - type(c_ptr), value :: b - integer(kind(HIP_R_16F)), value :: b_type - integer(c_int64_t), value :: ldb - integer(c_int64_t), value :: stride_b - type(c_ptr), value :: beta - type(c_ptr), value :: c - integer(kind(HIP_R_16F)), value :: c_type - integer(c_int64_t), value :: ldc - integer(c_int64_t), value :: stride_c - integer(c_int64_t), value :: batch_count - integer(kind(HIPBLAS_COMPUTE_16F)), value :: compute_type - integer(kind(HIPBLAS_GEMM_DEFAULT)), value :: algo - integer(kind(HIPBLAS_GEMM_FLAGS_NONE)), value :: flags - end function hipblasGemmStridedBatchedExWithFlags_64 - end interface - - ! syrkEx - interface - function hipblasSyrkEx(handle, uplo, transA, n, k, alpha, a, a_type, lda, & - beta, c, c_type, ldc) & - bind(c, name='hipblasSyrkEx') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSyrkEx - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: a - integer(kind(HIP_R_16F)), value :: a_type - integer(c_int), value :: lda - type(c_ptr), value :: beta - type(c_ptr), value :: c - integer(kind(HIP_R_16F)), value :: c_type - integer(c_int), value :: ldc - end function hipblasSyrkEx - end interface - - ! herkEx - interface - function hipblasHerkEx(handle, uplo, transA, n, k, alpha, a, a_type, lda, & - beta, c, c_type, ldc, compute_type) & - bind(c, name='hipblasHerkEx') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHerkEx - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(c_int), value :: n - integer(c_int), value :: k - type(c_ptr), value :: alpha - type(c_ptr), value :: a - integer(kind(HIP_R_16F)), value :: a_type - integer(c_int), value :: lda - type(c_ptr), value :: beta - type(c_ptr), value :: c - integer(kind(HIP_R_16F)), value :: c_type - integer(c_int), value :: ldc - integer(kind(HIP_R_16F)), value :: compute_type - end function hipblasHerkEx - end interface - - ! trsmEx - interface - function hipblasTrsmEx(handle, side, uplo, transA, diag, m, n, alpha, A, lda, & - B, ldb, invA, invA_size, compute_type) & - bind(c, name='hipblasTrsmEx') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasTrsmEx - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: invA - integer(c_int), value :: invA_size - integer(kind(HIP_R_16F)), value :: compute_type - end function hipblasTrsmEx - end interface - - interface - function hipblasTrsmBatchedEx(handle, side, uplo, transA, diag, m, n, alpha, A, lda, & - B, ldb, batch_count, invA, invA_size, compute_type) & - bind(c, name='hipblasTrsmBatchedEx') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasTrsmBatchedEx - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - integer(c_int), value :: batch_count - type(c_ptr), value :: invA - integer(c_int), value :: invA_size - integer(kind(HIP_R_16F)), value :: compute_type - end function hipblasTrsmBatchedEx - end interface - - interface - function hipblasTrsmStridedBatchedEx(handle, side, uplo, transA, diag, m, n, alpha, A, lda, stride_A, & - B, ldb, stride_B, batch_count, invA, invA_size, stride_invA, compute_type) & - bind(c, name='hipblasTrsmStridedBatchedEx') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasTrsmStridedBatchedEx - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)), value :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)), value :: uplo - integer(kind(HIPBLAS_OP_N)), value :: transA - integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: alpha - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A - type(c_ptr), value :: B - integer(c_int), value :: ldb - integer(c_int64_t), value :: stride_B - integer(c_int), value :: batch_count - type(c_ptr), value :: invA - integer(c_int), value :: invA_size - integer(c_int64_t), value :: stride_invA - integer(kind(HIP_R_16F)), value :: compute_type - end function hipblasTrsmStridedBatchedEx - end interface - - ! ! syrkEx - ! interface - ! function hipblasCsyrkEx(handle, uplo, trans, n, k, alpha, A, Atype, lda, beta, C, Ctype, ldc) & - ! ! bind(c, name = 'hipblasCsyrkEx') - ! use iso_c_binding - ! use hipblas_enums - ! implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkEx - ! type(c_ptr), value :: handle - ! integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - ! integer(kind(HIPBLAS_OP_N)), value :: trans - ! integer(c_int), value :: n - ! integer(c_int), value :: k - ! type(c_ptr), value :: alpha - ! type(c_ptr), value :: A - ! integer(kind(HIP_R_16F)), value :: Atype - ! integer(c_int), value :: lda - ! type(c_ptr), value :: beta - ! type(c_ptr), value:: C - ! integer(kind(HIP_R_16F)), value :: Ctype - ! integer(c_int), value :: ldc - ! end function hipblasCsyrkEx - ! end interface - - ! ! herkEx - ! interface - ! function hipblasCherkEx(handle, uplo, trans, n, k, alpha, A, Atype, lda, beta, C, Ctype, ldc) & - ! ! bind(c, name = 'hipblasCherkEx') - ! use iso_c_binding - ! use hipblas_enums - ! implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkEx - ! type(c_ptr), value :: handle - ! integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo - ! integer(kind(HIPBLAS_OP_N)), value :: trans - ! integer(c_int), value :: n - ! integer(c_int), value :: k - ! type(c_ptr), value :: alpha - ! type(c_ptr), value :: A - ! integer(kind(HIP_R_16F)), value :: Atype - ! integer(c_int), value :: lda - ! type(c_ptr), value :: beta - ! type(c_ptr), value:: C - ! integer(kind(HIP_R_16F)), value :: Ctype - ! integer(c_int), value :: ldc - ! end function hipblasCherkEx - ! end interface - - ! axpyEx - interface - function hipblasAxpyEx(handle, n, alpha, alphaType, x, xType, incx, y, yType, incy, executionType) & - bind(c, name='hipblasAxpyEx') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasAxpyEx - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: alpha - integer(kind(HIP_R_16F)), value :: alphaType - type(c_ptr), value :: x - integer(kind(HIP_R_16F)), value :: xType - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(kind(HIP_R_16F)), value :: yType - integer(c_int), value :: incy - integer(kind(HIP_R_16F)), value :: executionType - end function hipblasAxpyEx - end interface - - interface - function hipblasAxpyBatchedEx(handle, n, alpha, alphaType, x, xType, incx, & - y, yType, incy, batch_count, executionType) & - bind(c, name='hipblasAxpyBatchedEx') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasAxpyBatchedEx - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: alpha - integer(kind(HIP_R_16F)), value :: alphaType - type(c_ptr), value :: x - integer(kind(HIP_R_16F)), value :: xType - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(kind(HIP_R_16F)), value :: yType - integer(c_int), value :: incy - integer(c_int), value :: batch_count - integer(kind(HIP_R_16F)), value :: executionType - end function hipblasAxpyBatchedEx - end interface - - interface - function hipblasAxpyStridedBatchedEx(handle, n, alpha, alphaType, x, xType, incx, stridex, & - y, yType, incy, stridey, batch_count, executionType) & - bind(c, name='hipblasAxpyStridedBatchedEx') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasAxpyStridedBatchedEx - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: alpha - integer(kind(HIP_R_16F)), value :: alphaType - type(c_ptr), value :: x - integer(kind(HIP_R_16F)), value :: xType - integer(c_int), value :: incx - integer(c_int64_t), value :: stridex - type(c_ptr), value :: y - integer(kind(HIP_R_16F)), value :: yType - integer(c_int), value :: incy - integer(c_int64_t), value :: stridey - integer(c_int), value :: batch_count - integer(kind(HIP_R_16F)), value :: executionType - end function hipblasAxpyStridedBatchedEx - end interface - - ! axpyEx_64 - interface - function hipblasAxpyEx_64(handle, n, alpha, alphaType, x, xType, incx, y, yType, incy, executionType) & - bind(c, name='hipblasAxpyEx_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasAxpyEx_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - integer(kind(HIP_R_16F)), value :: alphaType - type(c_ptr), value :: x - integer(kind(HIP_R_16F)), value :: xType - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(kind(HIP_R_16F)), value :: yType - integer(c_int64_t), value :: incy - integer(kind(HIP_R_16F)), value :: executionType - end function hipblasAxpyEx_64 - end interface - - interface - function hipblasAxpyBatchedEx_64(handle, n, alpha, alphaType, x, xType, incx, & - y, yType, incy, batch_count, executionType) & - bind(c, name='hipblasAxpyBatchedEx_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasAxpyBatchedEx_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - integer(kind(HIP_R_16F)), value :: alphaType - type(c_ptr), value :: x - integer(kind(HIP_R_16F)), value :: xType - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(kind(HIP_R_16F)), value :: yType - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: batch_count - integer(kind(HIP_R_16F)), value :: executionType - end function hipblasAxpyBatchedEx_64 - end interface - - interface - function hipblasAxpyStridedBatchedEx_64(handle, n, alpha, alphaType, x, xType, incx, stridex, & - y, yType, incy, stridey, batch_count, executionType) & - bind(c, name='hipblasAxpyStridedBatchedEx_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasAxpyStridedBatchedEx_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - integer(kind(HIP_R_16F)), value :: alphaType - type(c_ptr), value :: x - integer(kind(HIP_R_16F)), value :: xType - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stridex - type(c_ptr), value :: y - integer(kind(HIP_R_16F)), value :: yType - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: stridey - integer(c_int64_t), value :: batch_count - integer(kind(HIP_R_16F)), value :: executionType - end function hipblasAxpyStridedBatchedEx_64 - end interface - - ! dotEx - interface - function hipblasDotEx(handle, n, x, xType, incx, y, yType, incy, result, resultType, executionType) & - bind(c, name='hipblasDotEx') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDotEx - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(kind(HIP_R_16F)), value :: xType - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(kind(HIP_R_16F)), value :: yType - integer(c_int), value :: incy - type(c_ptr), value :: result - integer(kind(HIP_R_16F)), value :: resultType - integer(kind(HIP_R_16F)), value :: executionType - end function hipblasDotEx - end interface - - interface - function hipblasDotcEx(handle, n, x, xType, incx, y, yType, incy, result, resultType, executionType) & - bind(c, name='hipblasDotcEx') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDotcEx - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(kind(HIP_R_16F)), value :: xType - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(kind(HIP_R_16F)), value :: yType - integer(c_int), value :: incy - type(c_ptr), value :: result - integer(kind(HIP_R_16F)), value :: resultType - integer(kind(HIP_R_16F)), value :: executionType - end function hipblasDotcEx - end interface - - interface - function hipblasDotBatchedEx(handle, n, x, xType, incx, & - y, yType, incy, batch_count, result, resultType, executionType) & - bind(c, name='hipblasDotBatchedEx') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDotBatchedEx - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(kind(HIP_R_16F)), value :: xType - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(kind(HIP_R_16F)), value :: yType - integer(c_int), value :: incy - integer(c_int), value :: batch_count - type(c_ptr), value :: result - integer(kind(HIP_R_16F)), value :: resultType - integer(kind(HIP_R_16F)), value :: executionType - end function hipblasDotBatchedEx - end interface - - interface - function hipblasDotcBatchedEx(handle, n, x, xType, incx, & - y, yType, incy, batch_count, result, resultType, executionType) & - bind(c, name='hipblasDotcBatchedEx') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDotcBatchedEx - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(kind(HIP_R_16F)), value :: xType - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(kind(HIP_R_16F)), value :: yType - integer(c_int), value :: incy - integer(c_int), value :: batch_count - type(c_ptr), value :: result - integer(kind(HIP_R_16F)), value :: resultType - integer(kind(HIP_R_16F)), value :: executionType - end function hipblasDotcBatchedEx - end interface - - interface - function hipblasDotStridedBatchedEx(handle, n, x, xType, incx, stridex, & - y, yType, incy, stridey, batch_count, result, resultType, executionType) & - bind(c, name='hipblasDotStridedBatchedEx') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDotStridedBatchedEx - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(kind(HIP_R_16F)), value :: xType - integer(c_int), value :: incx - integer(c_int64_t), value :: stridex - type(c_ptr), value :: y - integer(kind(HIP_R_16F)), value :: yType - integer(c_int), value :: incy - integer(c_int64_t), value :: stridey - integer(c_int), value :: batch_count - type(c_ptr), value :: result - integer(kind(HIP_R_16F)), value :: resultType - integer(kind(HIP_R_16F)), value :: executionType - end function hipblasDotStridedBatchedEx - end interface - - interface - function hipblasDotcStridedBatchedEx(handle, n, x, xType, incx, stridex, & - y, yType, incy, stridey, batch_count, result, resultType, executionType) & - bind(c, name='hipblasDotcStridedBatchedEx') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDotcStridedBatchedEx - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(kind(HIP_R_16F)), value :: xType - integer(c_int), value :: incx - integer(c_int64_t), value :: stridex - type(c_ptr), value :: y - integer(kind(HIP_R_16F)), value :: yType - integer(c_int), value :: incy - integer(c_int64_t), value :: stridey - integer(c_int), value :: batch_count - type(c_ptr), value :: result - integer(kind(HIP_R_16F)), value :: resultType - integer(kind(HIP_R_16F)), value :: executionType - end function hipblasDotcStridedBatchedEx - end interface - - ! dotEx_64 - interface - function hipblasDotEx_64(handle, n, x, xType, incx, y, yType, incy, result, resultType, executionType) & - bind(c, name='hipblasDotEx_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDotEx_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(kind(HIP_R_16F)), value :: xType - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(kind(HIP_R_16F)), value :: yType - integer(c_int64_t), value :: incy - type(c_ptr), value :: result - integer(kind(HIP_R_16F)), value :: resultType - integer(kind(HIP_R_16F)), value :: executionType - end function hipblasDotEx_64 - end interface - - interface - function hipblasDotcEx_64(handle, n, x, xType, incx, y, yType, incy, result, resultType, executionType) & - bind(c, name='hipblasDotcEx_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDotcEx_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(kind(HIP_R_16F)), value :: xType - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(kind(HIP_R_16F)), value :: yType - integer(c_int64_t), value :: incy - type(c_ptr), value :: result - integer(kind(HIP_R_16F)), value :: resultType - integer(kind(HIP_R_16F)), value :: executionType - end function hipblasDotcEx_64 - end interface - - interface - function hipblasDotBatchedEx_64(handle, n, x, xType, incx, & - y, yType, incy, batch_count, result, resultType, executionType) & - bind(c, name='hipblasDotBatchedEx_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDotBatchedEx_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(kind(HIP_R_16F)), value :: xType - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(kind(HIP_R_16F)), value :: yType - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: batch_count - type(c_ptr), value :: result - integer(kind(HIP_R_16F)), value :: resultType - integer(kind(HIP_R_16F)), value :: executionType - end function hipblasDotBatchedEx_64 - end interface - - interface - function hipblasDotcBatchedEx_64(handle, n, x, xType, incx, & - y, yType, incy, batch_count, result, resultType, executionType) & - bind(c, name='hipblasDotcBatchedEx_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDotcBatchedEx_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(kind(HIP_R_16F)), value :: xType - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(kind(HIP_R_16F)), value :: yType - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: batch_count - type(c_ptr), value :: result - integer(kind(HIP_R_16F)), value :: resultType - integer(kind(HIP_R_16F)), value :: executionType - end function hipblasDotcBatchedEx_64 - end interface - - interface - function hipblasDotStridedBatchedEx_64(handle, n, x, xType, incx, stridex, & - y, yType, incy, stridey, batch_count, result, resultType, executionType) & - bind(c, name='hipblasDotStridedBatchedEx_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDotStridedBatchedEx_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(kind(HIP_R_16F)), value :: xType - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stridex - type(c_ptr), value :: y - integer(kind(HIP_R_16F)), value :: yType - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: stridey - integer(c_int64_t), value :: batch_count - type(c_ptr), value :: result - integer(kind(HIP_R_16F)), value :: resultType - integer(kind(HIP_R_16F)), value :: executionType - end function hipblasDotStridedBatchedEx_64 - end interface - - interface - function hipblasDotcStridedBatchedEx_64(handle, n, x, xType, incx, stridex, & - y, yType, incy, stridey, batch_count, result, resultType, executionType) & - bind(c, name='hipblasDotcStridedBatchedEx_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDotcStridedBatchedEx_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(kind(HIP_R_16F)), value :: xType - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stridex - type(c_ptr), value :: y - integer(kind(HIP_R_16F)), value :: yType - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: stridey - integer(c_int64_t), value :: batch_count - type(c_ptr), value :: result - integer(kind(HIP_R_16F)), value :: resultType - integer(kind(HIP_R_16F)), value :: executionType - end function hipblasDotcStridedBatchedEx_64 - end interface - - ! nrm2Ex - interface - function hipblasNrm2Ex(handle, n, x, xType, incx, result, resultType, executionType) & - bind(c, name='hipblasNrm2Ex') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasNrm2Ex - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(kind(HIP_R_16F)), value :: xType - integer(c_int), value :: incx - type(c_ptr), value :: result - integer(kind(HIP_R_16F)), value :: resultType - integer(kind(HIP_R_16F)), value :: executionType - end function hipblasNrm2Ex - end interface - - interface - function hipblasNrm2BatchedEx(handle, n, x, xType, incx, & - batch_count, result, resultType, executionType) & - bind(c, name='hipblasNrm2BatchedEx') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasNrm2BatchedEx - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(kind(HIP_R_16F)), value :: xType - integer(c_int), value :: incx - integer(c_int), value :: batch_count - type(c_ptr), value :: result - integer(kind(HIP_R_16F)), value :: resultType - integer(kind(HIP_R_16F)), value :: executionType - end function hipblasNrm2BatchedEx - end interface - - interface - function hipblasNrm2StridedBatchedEx(handle, n, x, xType, incx, stridex, & - batch_count, result, resultType, executionType) & - bind(c, name='hipblasNrm2StridedBatchedEx') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasNrm2StridedBatchedEx - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(kind(HIP_R_16F)), value :: xType - integer(c_int), value :: incx - integer(c_int64_t), value :: stridex - integer(c_int), value :: batch_count - type(c_ptr), value :: result - integer(kind(HIP_R_16F)), value :: resultType - integer(kind(HIP_R_16F)), value :: executionType - end function hipblasNrm2StridedBatchedEx - end interface - - ! nrm2Ex_64 - interface - function hipblasNrm2Ex_64(handle, n, x, xType, incx, result, resultType, executionType) & - bind(c, name='hipblasNrm2Ex_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasNrm2Ex_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(kind(HIP_R_16F)), value :: xType - integer(c_int64_t), value :: incx - type(c_ptr), value :: result - integer(kind(HIP_R_16F)), value :: resultType - integer(kind(HIP_R_16F)), value :: executionType - end function hipblasNrm2Ex_64 - end interface - - interface - function hipblasNrm2BatchedEx_64(handle, n, x, xType, incx, & - batch_count, result, resultType, executionType) & - bind(c, name='hipblasNrm2BatchedEx_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasNrm2BatchedEx_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(kind(HIP_R_16F)), value :: xType - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: batch_count - type(c_ptr), value :: result - integer(kind(HIP_R_16F)), value :: resultType - integer(kind(HIP_R_16F)), value :: executionType - end function hipblasNrm2BatchedEx_64 - end interface - - interface - function hipblasNrm2StridedBatchedEx_64(handle, n, x, xType, incx, stridex, & - batch_count, result, resultType, executionType) & - bind(c, name='hipblasNrm2StridedBatchedEx_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasNrm2StridedBatchedEx_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(kind(HIP_R_16F)), value :: xType - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stridex - integer(c_int64_t), value :: batch_count - type(c_ptr), value :: result - integer(kind(HIP_R_16F)), value :: resultType - integer(kind(HIP_R_16F)), value :: executionType - end function hipblasNrm2StridedBatchedEx_64 - end interface - - ! rotEx - interface - function hipblasRotEx(handle, n, x, xType, incx, y, yType, incy, c, s, csType, executionType) & - bind(c, name='hipblasRotEx') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasRotEx - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(kind(HIP_R_16F)), value :: xType - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(kind(HIP_R_16F)), value :: yType - integer(c_int), value :: incy - type(c_ptr), value :: c - type(c_ptr), value :: s - integer(kind(HIP_R_16F)), value :: csType - integer(kind(HIP_R_16F)), value :: executionType - end function hipblasRotEx - end interface - - interface - function hipblasRotBatchedEx(handle, n, x, xType, incx, & - y, yType, incy, c, s, csType, batch_count, executionType) & - bind(c, name='hipblasRotBatchedEx') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasRotBatchedEx - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(kind(HIP_R_16F)), value :: xType - integer(c_int), value :: incx - type(c_ptr), value :: y - integer(kind(HIP_R_16F)), value :: yType - integer(c_int), value :: incy - type(c_ptr), value :: c - type(c_ptr), value :: s - integer(kind(HIP_R_16F)), value :: csType - integer(c_int), value :: batch_count - integer(kind(HIP_R_16F)), value :: executionType - end function hipblasRotBatchedEx - end interface - - interface - function hipblasRotStridedBatchedEx(handle, n, x, xType, incx, stridex, & - y, yType, incy, stridey, c, s, csType, batch_count, executionType) & - bind(c, name='hipblasRotStridedBatchedEx') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasRotStridedBatchedEx - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: x - integer(kind(HIP_R_16F)), value :: xType - integer(c_int), value :: incx - integer(c_int64_t), value :: stridex - type(c_ptr), value :: y - integer(kind(HIP_R_16F)), value :: yType - integer(c_int), value :: incy - integer(c_int64_t), value :: stridey - type(c_ptr), value :: c - type(c_ptr), value :: s - integer(kind(HIP_R_16F)), value :: csType - integer(c_int), value :: batch_count - integer(kind(HIP_R_16F)), value :: executionType - end function hipblasRotStridedBatchedEx - end interface - - ! rotEx_64 - interface - function hipblasRotEx_64(handle, n, x, xType, incx, y, yType, incy, c, s, csType, executionType) & - bind(c, name='hipblasRotEx_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasRotEx_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(kind(HIP_R_16F)), value :: xType - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(kind(HIP_R_16F)), value :: yType - integer(c_int64_t), value :: incy - type(c_ptr), value :: c - type(c_ptr), value :: s - integer(kind(HIP_R_16F)), value :: csType - integer(kind(HIP_R_16F)), value :: executionType - end function hipblasRotEx_64 - end interface - - interface - function hipblasRotBatchedEx_64(handle, n, x, xType, incx, & - y, yType, incy, c, s, csType, batch_count, executionType) & - bind(c, name='hipblasRotBatchedEx_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasRotBatchedEx_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(kind(HIP_R_16F)), value :: xType - integer(c_int64_t), value :: incx - type(c_ptr), value :: y - integer(kind(HIP_R_16F)), value :: yType - integer(c_int64_t), value :: incy - type(c_ptr), value :: c - type(c_ptr), value :: s - integer(kind(HIP_R_16F)), value :: csType - integer(c_int64_t), value :: batch_count - integer(kind(HIP_R_16F)), value :: executionType - end function hipblasRotBatchedEx_64 - end interface - - interface - function hipblasRotStridedBatchedEx_64(handle, n, x, xType, incx, stridex, & - y, yType, incy, stridey, c, s, csType, batch_count, executionType) & - bind(c, name='hipblasRotStridedBatchedEx_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasRotStridedBatchedEx_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: x - integer(kind(HIP_R_16F)), value :: xType - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stridex - type(c_ptr), value :: y - integer(kind(HIP_R_16F)), value :: yType - integer(c_int64_t), value :: incy - integer(c_int64_t), value :: stridey - type(c_ptr), value :: c - type(c_ptr), value :: s - integer(kind(HIP_R_16F)), value :: csType - integer(c_int64_t), value :: batch_count - integer(kind(HIP_R_16F)), value :: executionType - end function hipblasRotStridedBatchedEx_64 - end interface - - ! scalEx - interface - function hipblasScalEx(handle, n, alpha, alphaType, x, xType, incx, executionType) & - bind(c, name='hipblasScalEx') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScalEx - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: alpha - integer(kind(HIP_R_16F)), value :: alphaType - type(c_ptr), value :: x - integer(kind(HIP_R_16F)), value :: xType - integer(c_int), value :: incx - integer(kind(HIP_R_16F)), value :: executionType - end function hipblasScalEx - end interface - - interface - function hipblasScalBatchedEx(handle, n, alpha, alphaType, x, xType, incx, & - batch_count, executionType) & - bind(c, name='hipblasScalBatchedEx') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScalBatchedEx - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: alpha - integer(kind(HIP_R_16F)), value :: alphaType - type(c_ptr), value :: x - integer(kind(HIP_R_16F)), value :: xType - integer(c_int), value :: incx - integer(c_int), value :: batch_count - integer(kind(HIP_R_16F)), value :: executionType - end function hipblasScalBatchedEx - end interface - - interface - function hipblasScalStridedBatchedEx(handle, n, alpha, alphaType, x, xType, incx, stridex, & - batch_count, executionType) & - bind(c, name='hipblasScalStridedBatchedEx') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScalStridedBatchedEx - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: alpha - integer(kind(HIP_R_16F)), value :: alphaType - type(c_ptr), value :: x - integer(kind(HIP_R_16F)), value :: xType - integer(c_int), value :: incx - integer(c_int64_t), value :: stridex - integer(c_int), value :: batch_count - integer(kind(HIP_R_16F)), value :: executionType - end function hipblasScalStridedBatchedEx - end interface - - ! scalEx_64 - interface - function hipblasScalEx_64(handle, n, alpha, alphaType, x, xType, incx, executionType) & - bind(c, name='hipblasScalEx_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScalEx_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - integer(kind(HIP_R_16F)), value :: alphaType - type(c_ptr), value :: x - integer(kind(HIP_R_16F)), value :: xType - integer(c_int64_t), value :: incx - integer(kind(HIP_R_16F)), value :: executionType - end function hipblasScalEx_64 - end interface - - interface - function hipblasScalBatchedEx_64(handle, n, alpha, alphaType, x, xType, incx, & - batch_count, executionType) & - bind(c, name='hipblasScalBatchedEx_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScalBatchedEx_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - integer(kind(HIP_R_16F)), value :: alphaType - type(c_ptr), value :: x - integer(kind(HIP_R_16F)), value :: xType - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: batch_count - integer(kind(HIP_R_16F)), value :: executionType - end function hipblasScalBatchedEx_64 - end interface - - interface - function hipblasScalStridedBatchedEx_64(handle, n, alpha, alphaType, x, xType, incx, stridex, & - batch_count, executionType) & - bind(c, name='hipblasScalStridedBatchedEx_64') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScalStridedBatchedEx_64 - type(c_ptr), value :: handle - integer(c_int64_t), value :: n - type(c_ptr), value :: alpha - integer(kind(HIP_R_16F)), value :: alphaType - type(c_ptr), value :: x - integer(kind(HIP_R_16F)), value :: xType - integer(c_int64_t), value :: incx - integer(c_int64_t), value :: stridex - integer(c_int64_t), value :: batch_count - integer(kind(HIP_R_16F)), value :: executionType - end function hipblasScalStridedBatchedEx_64 - end interface - - !--------! - ! Solver ! - !--------! - - ! getrf - interface - function hipblasSgetrf(handle, n, A, lda, ipiv, info) & - bind(c, name='hipblasSgetrf') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrf - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: ipiv - type(c_ptr), value :: info - end function hipblasSgetrf - end interface - - interface - function hipblasDgetrf(handle, n, A, lda, ipiv, info) & - bind(c, name='hipblasDgetrf') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrf - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: ipiv - type(c_ptr), value :: info - end function hipblasDgetrf - end interface - - interface - function hipblasCgetrf(handle, n, A, lda, ipiv, info) & - bind(c, name='hipblasCgetrf') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrf - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: ipiv - type(c_ptr), value :: info - end function hipblasCgetrf - end interface - - interface - function hipblasZgetrf(handle, n, A, lda, ipiv, info) & - bind(c, name='hipblasZgetrf') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrf - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: ipiv - type(c_ptr), value :: info - end function hipblasZgetrf - end interface - - ! getrf_batched - interface - function hipblasSgetrfBatched(handle, n, A, lda, ipiv, info, batch_count) & - bind(c, name='hipblasSgetrfBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrfBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: ipiv - type(c_ptr), value :: info - integer(c_int), value :: batch_count - end function hipblasSgetrfBatched - end interface - - interface - function hipblasDgetrfBatched(handle, n, A, lda, ipiv, info, batch_count) & - bind(c, name='hipblasDgetrfBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrfBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: ipiv - type(c_ptr), value :: info - integer(c_int), value :: batch_count - end function hipblasDgetrfBatched - end interface - - interface - function hipblasCgetrfBatched(handle, n, A, lda, ipiv, info, batch_count) & - bind(c, name='hipblasCgetrfBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrfBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: ipiv - type(c_ptr), value :: info - integer(c_int), value :: batch_count - end function hipblasCgetrfBatched - end interface - - interface - function hipblasZgetrfBatched(handle, n, A, lda, ipiv, info, batch_count) & - bind(c, name='hipblasZgetrfBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrfBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: ipiv - type(c_ptr), value :: info - integer(c_int), value :: batch_count - end function hipblasZgetrfBatched - end interface - - ! getrf_strided_batched - interface - function hipblasSgetrfStridedBatched(handle, n, A, lda, stride_A, & - ipiv, stride_P, info, batch_count) & - bind(c, name='hipblasSgetrfStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrfStridedBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int), value :: stride_A - type(c_ptr), value :: ipiv - integer(c_int), value :: stride_P - type(c_ptr), value :: info - integer(c_int), value :: batch_count - end function hipblasSgetrfStridedBatched - end interface - - interface - function hipblasDgetrfStridedBatched(handle, n, A, lda, stride_A, & - ipiv, stride_P, info, batch_count) & - bind(c, name='hipblasDgetrfStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrfStridedBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int), value :: stride_A - type(c_ptr), value :: ipiv - integer(c_int), value :: stride_P - type(c_ptr), value :: info - integer(c_int), value :: batch_count - end function hipblasDgetrfStridedBatched - end interface - - interface - function hipblasCgetrfStridedBatched(handle, n, A, lda, stride_A, & - ipiv, stride_P, info, batch_count) & - bind(c, name='hipblasCgetrfStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrfStridedBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int), value :: stride_A - type(c_ptr), value :: ipiv - integer(c_int), value :: stride_P - type(c_ptr), value :: info - integer(c_int), value :: batch_count - end function hipblasCgetrfStridedBatched - end interface - - interface - function hipblasZgetrfStridedBatched(handle, n, A, lda, stride_A, & - ipiv, stride_P, info, batch_count) & - bind(c, name='hipblasZgetrfStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrfStridedBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int), value :: stride_A - type(c_ptr), value :: ipiv - integer(c_int), value :: stride_P - type(c_ptr), value :: info - integer(c_int), value :: batch_count - end function hipblasZgetrfStridedBatched - end interface - - ! getrs - interface - function hipblasSgetrs(handle, trans, n, nrhs, A, lda, ipiv, & - B, ldb, info) & - bind(c, name='hipblasSgetrs') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrs - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: trans - integer(c_int), value :: n - integer(c_int), value :: nrhs - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: ipiv - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: info - end function hipblasSgetrs - end interface - - interface - function hipblasDgetrs(handle, trans, n, nrhs, A, lda, ipiv, & - B, ldb, info) & - bind(c, name='hipblasDgetrs') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrs - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: trans - integer(c_int), value :: n - integer(c_int), value :: nrhs - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: ipiv - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: info - end function hipblasDgetrs - end interface - - interface - function hipblasCgetrs(handle, trans, n, nrhs, A, lda, ipiv, & - B, ldb, info) & - bind(c, name='hipblasCgetrs') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrs - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: trans - integer(c_int), value :: n - integer(c_int), value :: nrhs - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: ipiv - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: info - end function hipblasCgetrs - end interface - - interface - function hipblasZgetrs(handle, trans, n, nrhs, A, lda, ipiv, & - B, ldb, info) & - bind(c, name='hipblasZgetrs') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrs - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: trans - integer(c_int), value :: n - integer(c_int), value :: nrhs - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: ipiv - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: info - end function hipblasZgetrs - end interface - - ! getrs_batched - interface - function hipblasSgetrsBatched(handle, trans, n, nrhs, A, lda, ipiv, & - B, ldb, info, batch_count) & - bind(c, name='hipblasSgetrsBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrsBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: trans - integer(c_int), value :: n - integer(c_int), value :: nrhs - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: ipiv - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: info - integer(c_int), value :: batch_count - end function hipblasSgetrsBatched - end interface - - interface - function hipblasDgetrsBatched(handle, trans, n, nrhs, A, lda, ipiv, & - B, ldb, info, batch_count) & - bind(c, name='hipblasDgetrsBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrsBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: trans - integer(c_int), value :: n - integer(c_int), value :: nrhs - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: ipiv - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: info - integer(c_int), value :: batch_count - end function hipblasDgetrsBatched - end interface - - interface - function hipblasCgetrsBatched(handle, trans, n, nrhs, A, lda, ipiv, & - B, ldb, info, batch_count) & - bind(c, name='hipblasCgetrsBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrsBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: trans - integer(c_int), value :: n - integer(c_int), value :: nrhs - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: ipiv - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: info - integer(c_int), value :: batch_count - end function hipblasCgetrsBatched - end interface - - interface - function hipblasZgetrsBatched(handle, trans, n, nrhs, A, lda, ipiv, & - B, ldb, info, batch_count) & - bind(c, name='hipblasZgetrsBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrsBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: trans - integer(c_int), value :: n - integer(c_int), value :: nrhs - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: ipiv - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: info - integer(c_int), value :: batch_count - end function hipblasZgetrsBatched - end interface - - ! getrs_strided_batched - interface - function hipblasSgetrsStridedBatched(handle, trans, n, nrhs, A, lda, stride_A, ipiv, & - stride_P, B, ldb, stride_B, info, batch_count) & - bind(c, name='hipblasSgetrsStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrsStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: trans - integer(c_int), value :: n - integer(c_int), value :: nrhs - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int), value :: stride_A - type(c_ptr), value :: ipiv - integer(c_int), value :: stride_P - type(c_ptr), value :: B - integer(c_int), value :: ldb - integer(c_int), value :: stride_B - type(c_ptr), value :: info - integer(c_int), value :: batch_count - end function hipblasSgetrsStridedBatched - end interface - - interface - function hipblasDgetrsStridedBatched(handle, trans, n, nrhs, A, lda, stride_A, ipiv, & - stride_P, B, ldb, stride_B, info, batch_count) & - bind(c, name='hipblasDgetrsStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrsStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: trans - integer(c_int), value :: n - integer(c_int), value :: nrhs - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int), value :: stride_A - type(c_ptr), value :: ipiv - integer(c_int), value :: stride_P - type(c_ptr), value :: B - integer(c_int), value :: ldb - integer(c_int), value :: stride_B - type(c_ptr), value :: info - integer(c_int), value :: batch_count - end function hipblasDgetrsStridedBatched - end interface - - interface - function hipblasCgetrsStridedBatched(handle, trans, n, nrhs, A, lda, stride_A, ipiv, & - stride_P, B, ldb, stride_B, info, batch_count) & - bind(c, name='hipblasCgetrsStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrsStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: trans - integer(c_int), value :: n - integer(c_int), value :: nrhs - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int), value :: stride_A - type(c_ptr), value :: ipiv - integer(c_int), value :: stride_P - type(c_ptr), value :: B - integer(c_int), value :: ldb - integer(c_int), value :: stride_B - type(c_ptr), value :: info - integer(c_int), value :: batch_count - end function hipblasCgetrsStridedBatched - end interface - - interface - function hipblasZgetrsStridedBatched(handle, trans, n, nrhs, A, lda, stride_A, ipiv, & - stride_P, B, ldb, stride_B, info, batch_count) & - bind(c, name='hipblasZgetrsStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrsStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: trans - integer(c_int), value :: n - integer(c_int), value :: nrhs - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int), value :: stride_A - type(c_ptr), value :: ipiv - integer(c_int), value :: stride_P - type(c_ptr), value :: B - integer(c_int), value :: ldb - integer(c_int), value :: stride_B - type(c_ptr), value :: info - integer(c_int), value :: batch_count - end function hipblasZgetrsStridedBatched - end interface - - ! getri_batched - interface - function hipblasSgetriBatched(handle, n, A, lda, ipiv, C, ldc, info, batch_count) & - bind(c, name='hipblasSgetriBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetriBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: ipiv - type(c_ptr), value :: C - integer(c_int), value :: ldc - type(c_ptr), value :: info - integer(c_int), value :: batch_count - end function hipblasSgetriBatched - end interface - - interface - function hipblasDgetriBatched(handle, n, A, lda, ipiv, C, ldc, info, batch_count) & - bind(c, name='hipblasDgetriBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetriBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: ipiv - type(c_ptr), value :: C - integer(c_int), value :: ldc - type(c_ptr), value :: info - integer(c_int), value :: batch_count - end function hipblasDgetriBatched - end interface - - interface - function hipblasCgetriBatched(handle, n, A, lda, ipiv, C, ldc, info, batch_count) & - bind(c, name='hipblasCgetriBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetriBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: ipiv - type(c_ptr), value :: C - integer(c_int), value :: ldc - type(c_ptr), value :: info - integer(c_int), value :: batch_count - end function hipblasCgetriBatched - end interface - - interface - function hipblasZgetriBatched(handle, n, A, lda, ipiv, C, ldc, info, batch_count) & - bind(c, name='hipblasZgetriBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetriBatched - type(c_ptr), value :: handle - integer(c_int), value :: n - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: ipiv - type(c_ptr), value :: C - integer(c_int), value :: ldc - type(c_ptr), value :: info - integer(c_int), value :: batch_count - end function hipblasZgetriBatched - end interface - - ! geqrf - interface - function hipblasSgeqrf(handle, m, n, A, lda, tau, info) & - bind(c, name='hipblasSgeqrf') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeqrf - type(c_ptr), value :: handle - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: tau - type(c_ptr), value :: info - end function hipblasSgeqrf - end interface - - interface - function hipblasDgeqrf(handle, m, n, A, lda, tau, info) & - bind(c, name='hipblasDgeqrf') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeqrf - type(c_ptr), value :: handle - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: tau - type(c_ptr), value :: info - end function hipblasDgeqrf - end interface - - interface - function hipblasCgeqrf(handle, m, n, A, lda, tau, info) & - bind(c, name='hipblasCgeqrf') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeqrf - type(c_ptr), value :: handle - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: tau - type(c_ptr), value :: info - end function hipblasCgeqrf - end interface - - interface - function hipblasZgeqrf(handle, m, n, A, lda, tau, info) & - bind(c, name='hipblasZgeqrf') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeqrf - type(c_ptr), value :: handle - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: tau - type(c_ptr), value :: info - end function hipblasZgeqrf - end interface - - ! geqrf_batched - interface - function hipblasSgeqrfBatched(handle, m, n, A, lda, tau, info, batch_count) & - bind(c, name='hipblasSgeqrfBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeqrfBatched - type(c_ptr), value :: handle - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: tau - type(c_ptr), value :: info - integer(c_int), value :: batch_count - end function hipblasSgeqrfBatched - end interface - - interface - function hipblasDgeqrfBatched(handle, m, n, A, lda, tau, info, batch_count) & - bind(c, name='hipblasDgeqrfBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeqrfBatched - type(c_ptr), value :: handle - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: tau - type(c_ptr), value :: info - integer(c_int), value :: batch_count - end function hipblasDgeqrfBatched - end interface - - interface - function hipblasCgeqrfBatched(handle, m, n, A, lda, tau, info, batch_count) & - bind(c, name='hipblasCgeqrfBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeqrfBatched - type(c_ptr), value :: handle - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: tau - type(c_ptr), value :: info - integer(c_int), value :: batch_count - end function hipblasCgeqrfBatched - end interface - - interface - function hipblasZgeqrfBatched(handle, m, n, A, lda, tau, info, batch_count) & - bind(c, name='hipblasZgeqrfBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeqrfBatched - type(c_ptr), value :: handle - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: tau - type(c_ptr), value :: info - integer(c_int), value :: batch_count - end function hipblasZgeqrfBatched - end interface - - ! geqrf_strided_batched - interface - function hipblasSgeqrfStridedBatched(handle, m, n, A, lda, stride_A, & - tau, stride_T, info, batch_count) & - bind(c, name='hipblasSgeqrfStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeqrfStridedBatched - type(c_ptr), value :: handle - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int), value :: stride_A - type(c_ptr), value :: tau - integer(c_int), value :: stride_T - type(c_ptr), value :: info - integer(c_int), value :: batch_count - end function hipblasSgeqrfStridedBatched - end interface - - interface - function hipblasDgeqrfStridedBatched(handle, m, n, A, lda, stride_A, & - tau, stride_T, info, batch_count) & - bind(c, name='hipblasDgeqrfStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeqrfStridedBatched - type(c_ptr), value :: handle - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int), value :: stride_A - type(c_ptr), value :: tau - integer(c_int), value :: stride_T - type(c_ptr), value :: info - integer(c_int), value :: batch_count - end function hipblasDgeqrfStridedBatched - end interface - - interface - function hipblasCgeqrfStridedBatched(handle, m, n, A, lda, stride_A, & - tau, stride_T, info, batch_count) & - bind(c, name='hipblasCgeqrfStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeqrfStridedBatched - type(c_ptr), value :: handle - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int), value :: stride_A - type(c_ptr), value :: tau - integer(c_int), value :: stride_T - type(c_ptr), value :: info - integer(c_int), value :: batch_count - end function hipblasCgeqrfStridedBatched - end interface - - interface - function hipblasZgeqrfStridedBatched(handle, m, n, A, lda, stride_A, & - tau, stride_T, info, batch_count) & - bind(c, name='hipblasZgeqrfStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeqrfStridedBatched - type(c_ptr), value :: handle - integer(c_int), value :: m - integer(c_int), value :: n - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int), value :: stride_A - type(c_ptr), value :: tau - integer(c_int), value :: stride_T - type(c_ptr), value :: info - integer(c_int), value :: batch_count - end function hipblasZgeqrfStridedBatched - end interface - - ! gels - interface - function hipblasSgels(handle, m, n, nrhs, trans, A, lda, B, ldb, info, deviceInfo) & - bind(c, name = 'hipblasSgels') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgels - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: trans - integer(c_int), value :: m - integer(c_int), value :: n - integer(c_int), value :: nrhs - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: info - type(c_ptr), value :: deviceInfo - end function hipblasSgels - end interface - - interface - function hipblasDgels(handle, m, n, nrhs, trans, A, lda, B, ldb, info, deviceInfo) & - bind(c, name = 'hipblasDgels') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgels - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: trans - integer(c_int), value :: m - integer(c_int), value :: n - integer(c_int), value :: nrhs - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: info - type(c_ptr), value :: deviceInfo - end function hipblasDgels - end interface - - interface - function hipblasCgels(handle, m, n, nrhs, trans, A, lda, B, ldb, info, deviceInfo) & - bind(c, name = 'hipblasCgels') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgels - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: trans - integer(c_int), value :: m - integer(c_int), value :: n - integer(c_int), value :: nrhs - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: info - type(c_ptr), value :: deviceInfo - end function hipblasCgels - end interface - - interface - function hipblasZgels(handle, m, n, nrhs, trans, A, lda, B, ldb, info, deviceInfo) & - bind(c, name = 'hipblasZgels') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgels - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: trans - integer(c_int), value :: m - integer(c_int), value :: n - integer(c_int), value :: nrhs - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: info - type(c_ptr), value :: deviceInfo - end function hipblasZgels - end interface - - ! gelsBatched - interface - function hipblasSgelsBatched(handle, m, n, nrhs, trans, A, lda, B, ldb, info, deviceInfo, batchCount) & - bind(c, name = 'hipblasSgelsBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgelsBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: trans - integer(c_int), value :: m - integer(c_int), value :: n - integer(c_int), value :: nrhs - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: info - type(c_ptr), value :: deviceInfo - integer(c_int), value :: batchCount - end function hipblasSgelsBatched - end interface - - interface - function hipblasDgelsBatched(handle, m, n, nrhs, trans, A, lda, B, ldb, info, deviceInfo, batchCount) & - bind(c, name = 'hipblasDgelsBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgelsBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: trans - integer(c_int), value :: m - integer(c_int), value :: n - integer(c_int), value :: nrhs - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: info - type(c_ptr), value :: deviceInfo - integer(c_int), value :: batchCount - end function hipblasDgelsBatched - end interface - - interface - function hipblasCgelsBatched(handle, m, n, nrhs, trans, A, lda, B, ldb, info, deviceInfo, batchCount) & - bind(c, name = 'hipblasCgelsBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgelsBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: trans - integer(c_int), value :: m - integer(c_int), value :: n - integer(c_int), value :: nrhs - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: info - type(c_ptr), value :: deviceInfo - integer(c_int), value :: batchCount - end function hipblasCgelsBatched - end interface - - interface - function hipblasZgelsBatched(handle, m, n, nrhs, trans, A, lda, B, ldb, info, deviceInfo, batchCount) & - bind(c, name = 'hipblasZgelsBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgelsBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: trans - integer(c_int), value :: m - integer(c_int), value :: n - integer(c_int), value :: nrhs - type(c_ptr), value :: A - integer(c_int), value :: lda - type(c_ptr), value :: B - integer(c_int), value :: ldb - type(c_ptr), value :: info - type(c_ptr), value :: deviceInfo - integer(c_int), value :: batchCount - end function hipblasZgelsBatched - end interface - - ! gelsStridedBatched - interface - function hipblasSgelsStridedBatched(handle, m, n, nrhs, trans, A, lda, strideA, & - B, ldb, strideB, info, deviceInfo, batchCount) & - bind(c, name = 'hipblasSgelsStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgelsStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: trans - integer(c_int), value :: m - integer(c_int), value :: n - integer(c_int), value :: nrhs - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: strideA - type(c_ptr), value :: B - integer(c_int), value :: ldb - integer(c_int64_t), value :: strideB - type(c_ptr), value :: info - type(c_ptr), value :: deviceInfo - integer(c_int), value :: batchCount - end function hipblasSgelsStridedBatched - end interface - - interface - function hipblasDgelsStridedBatched(handle, m, n, nrhs, trans, A, lda, strideA, & - B, ldb, strideB, info, deviceInfo, batchCount) & - bind(c, name = 'hipblasDgelsStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgelsStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: trans - integer(c_int), value :: m - integer(c_int), value :: n - integer(c_int), value :: nrhs - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: strideA - type(c_ptr), value :: B - integer(c_int), value :: ldb - integer(c_int64_t), value :: strideB - type(c_ptr), value :: info - type(c_ptr), value :: deviceInfo - integer(c_int), value :: batchCount - end function hipblasDgelsStridedBatched - end interface - - interface - function hipblasCgelsStridedBatched(handle, m, n, nrhs, trans, A, lda, strideA, & - B, ldb, strideB, info, deviceInfo, batchCount) & - bind(c, name = 'hipblasCgelsStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgelsStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: trans - integer(c_int), value :: m - integer(c_int), value :: n - integer(c_int), value :: nrhs - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: strideA - type(c_ptr), value :: B - integer(c_int), value :: ldb - integer(c_int64_t), value :: strideB - type(c_ptr), value :: info - type(c_ptr), value :: deviceInfo - integer(c_int), value :: batchCount - end function hipblasCgelsStridedBatched - end interface - - interface - function hipblasZgelsStridedBatched(handle, m, n, nrhs, trans, A, lda, strideA, & - B, ldb, strideB, info, deviceInfo, batchCount) & - bind(c, name = 'hipblasZgelsStridedBatched') - use iso_c_binding - use hipblas_enums - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgelsStridedBatched - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)), value :: trans - integer(c_int), value :: m - integer(c_int), value :: n - integer(c_int), value :: nrhs - type(c_ptr), value :: A - integer(c_int), value :: lda - integer(c_int64_t), value :: strideA - type(c_ptr), value :: B - integer(c_int), value :: ldb - integer(c_int64_t), value :: strideB - type(c_ptr), value :: info - type(c_ptr), value :: deviceInfo - integer(c_int), value :: batchCount - end function hipblasZgelsStridedBatched - end interface - -end module hipblas diff --git a/projects/hipblas/toolchain-linux.cmake b/projects/hipblas/toolchain-linux.cmake index 84c7ce6b6a2c..7cf4a716b366 100644 --- a/projects/hipblas/toolchain-linux.cmake +++ b/projects/hipblas/toolchain-linux.cmake @@ -15,8 +15,24 @@ if (NOT DEFINED ENV{CXX} AND NOT CMAKE_CXX_COMPILER) set(CMAKE_CXX_COMPILER "${rocm_bin}/amdclang++") endif() +# Prefer ROCm's amdflang; fall back to gfortran only when ROCm ships none. if (NOT DEFINED ENV{FC} AND NOT CMAKE_Fortran_COMPILER) - set(CMAKE_Fortran_COMPILER "gfortran") + set(_rocm_fc_hints) + foreach(_rocm_fc_root "${ROCM_PATH}" "$ENV{ROCM_PATH}" "/opt/rocm") + if (_rocm_fc_root) + list(APPEND _rocm_fc_hints "${_rocm_fc_root}/bin" "${_rocm_fc_root}/lib/llvm/bin") + endif() + endforeach() + unset(_rocm_amdflang CACHE) + find_program(_rocm_amdflang NAMES amdflang HINTS ${_rocm_fc_hints} NO_DEFAULT_PATH) + if (_rocm_amdflang) + set(CMAKE_Fortran_COMPILER "${_rocm_amdflang}") + else() + set(CMAKE_Fortran_COMPILER "gfortran") + endif() + unset(_rocm_amdflang CACHE) + unset(_rocm_fc_hints) + unset(_rocm_fc_root) endif() if (CONFIG_NO_COMPILER_CHECKS) From aaf747bad2e516e93693e9e9c2d6e037b28a085f Mon Sep 17 00:00:00 2001 From: Alexis Montoison Date: Tue, 3 Nov 2026 14:46:19 -0600 Subject: [PATCH 3/8] refactor(hipblas): move the Fortran binding to bindings/fortran/hipblas The hipBLAS Fortran binding consumes hipBLAS's public API and builds standalone against an installed hipBLAS, so it moves out of the library into bindings/fortran/hipblas, the tree every monorepo and TheRock use for the Fortran bindings (RFC0015). Nothing is wired into the library build any more: the library is back to its state on develop. Its hand-written Fortran module stays for now: its deprecation and removal, with the Fortran clients that use it, follow in separate pull requests. - bindings/fortran/hipblas reads hipBLAS's version from projects/hipblas - the binding has its own .gitattributes and CHANGELOG.md - CODEOWNERS: /bindings/fortran/hipblas/, same owners - repos-config.json: register bindings/fortran/hipblas so CI detects changes --- .github/CODEOWNERS | 2 +- .github/repos-config.json | 9 + bindings/fortran/hipblas/.gitattributes | 2 + bindings/fortran/hipblas/CHANGELOG.md | 14 + .../fortran/hipblas}/CMakeLists.txt | 4 +- .../hipblas}/cmake/toolchains/amdflang.cmake | 2 +- .../hipblas}/cmake/toolchains/cray.cmake | 2 +- .../hipblas}/cmake/toolchains/gnu.cmake | 2 +- .../cmake/toolchains/intel-classic.cmake | 2 +- .../hipblas}/cmake/toolchains/intel.cmake | 2 +- .../hipblas}/cmake/toolchains/nvhpc.cmake | 2 +- .../fortran/hipblas}/hip_datatypes_stub.F90 | 0 .../hipblas}/hipblas-fortran-config.cmake.in | 2 +- .../fortran/hipblas}/hipblas.F90 | 0 projects/hipblas/.gitattributes | 2 - projects/hipblas/CHANGELOG.md | 33 - projects/hipblas/CMakeLists.txt | 27 +- projects/hipblas/clients/CMakeLists.txt | 34 +- .../hipblas/clients/benchmarks/CMakeLists.txt | 3 +- .../clients/include/hipblas_fortran_blas.f90 | 1220 +- .../include/hipblas_fortran_blas_64.f90 | 1138 +- .../include/hipblas_fortran_solver.f90 | 160 +- .../hipblas/clients/samples/CMakeLists.txt | 13 +- .../samples/example_gemm_ex_fortran.F90 | 7 +- .../clients/samples/example_sscal_fortran.F90 | 4 +- projects/hipblas/library/src/CMakeLists.txt | 4 + .../hipblas/library/src/hipblas_module.f90 | 26261 ++++++++++++++++ projects/hipblas/toolchain-linux.cmake | 18 +- 28 files changed, 27556 insertions(+), 1413 deletions(-) create mode 100644 bindings/fortran/hipblas/.gitattributes create mode 100644 bindings/fortran/hipblas/CHANGELOG.md rename {projects/hipblas/fortran => bindings/fortran/hipblas}/CMakeLists.txt (98%) rename {projects/hipblas/fortran => bindings/fortran/hipblas}/cmake/toolchains/amdflang.cmake (97%) rename {projects/hipblas/fortran => bindings/fortran/hipblas}/cmake/toolchains/cray.cmake (97%) rename {projects/hipblas/fortran => bindings/fortran/hipblas}/cmake/toolchains/gnu.cmake (97%) rename {projects/hipblas/fortran => bindings/fortran/hipblas}/cmake/toolchains/intel-classic.cmake (97%) rename {projects/hipblas/fortran => bindings/fortran/hipblas}/cmake/toolchains/intel.cmake (97%) rename {projects/hipblas/fortran => bindings/fortran/hipblas}/cmake/toolchains/nvhpc.cmake (97%) rename {projects/hipblas/fortran => bindings/fortran/hipblas}/hip_datatypes_stub.F90 (100%) rename {projects/hipblas/fortran => bindings/fortran/hipblas}/hipblas-fortran-config.cmake.in (98%) rename {projects/hipblas/fortran => bindings/fortran/hipblas}/hipblas.F90 (100%) delete mode 100644 projects/hipblas/.gitattributes create mode 100644 projects/hipblas/library/src/hipblas_module.f90 diff --git a/.github/CODEOWNERS b/.github/CODEOWNERS index b234f0f834ae..7768238b45d7 100644 --- a/.github/CODEOWNERS +++ b/.github/CODEOWNERS @@ -157,7 +157,7 @@ /projects/hipblas/**/.readthedocs.yaml @ROCm/hipblas-reviewers @ROCm/hipblas-docs-reviewers /projects/hipblas/docs/ @ROCm/hipblas-reviewers @ROCm/hipblas-docs-reviewers /projects/hipblas/library/include/ @ROCm/hipblas-reviewers @ROCm/hipblas-docs-reviewers -/projects/hipblas/fortran/ @ROCm/rocm-fortran-maintainers @ROCm/hipblas-reviewers +/bindings/fortran/hipblas/ @ROCm/rocm-fortran-maintainers @ROCm/hipblas-reviewers /projects/hipblas-common/**/*.md @ROCm/hipblas-common-reviewers @ROCm/hipblas-common-docs-reviewers /projects/hipblas-common/**/*.rst @ROCm/hipblas-common-reviewers @ROCm/hipblas-common-docs-reviewers diff --git a/.github/repos-config.json b/.github/repos-config.json index 218164737f74..b26dc9ac3ab3 100644 --- a/.github/repos-config.json +++ b/.github/repos-config.json @@ -305,6 +305,15 @@ "auto_subtree_pull": false, "auto_subtree_push": false, "monorepo_source_of_truth": true + }, + { + "name": "hipblas", + "url": "ROCm/rocm-libraries", + "branch": "develop", + "category": "bindings/fortran", + "auto_subtree_pull": false, + "auto_subtree_push": false, + "monorepo_source_of_truth": true } ] } diff --git a/bindings/fortran/hipblas/.gitattributes b/bindings/fortran/hipblas/.gitattributes new file mode 100644 index 000000000000..75148a579106 --- /dev/null +++ b/bindings/fortran/hipblas/.gitattributes @@ -0,0 +1,2 @@ +# Generated by the rocm-fortran generator +/hipblas.F90 linguist-generated=true diff --git a/bindings/fortran/hipblas/CHANGELOG.md b/bindings/fortran/hipblas/CHANGELOG.md new file mode 100644 index 000000000000..208d516e3a5f --- /dev/null +++ b/bindings/fortran/hipblas/CHANGELOG.md @@ -0,0 +1,14 @@ +# Changelog for the hipBLAS Fortran binding + +## Unreleased + +### Added + +* Generated Fortran bindings, as a single `hipblas` module: `use hipblas`, link + `roc::hipblas_fortran`. Controlled by `BUILD_FORTRAN_BINDINGS` (ON on Linux, OFF on Windows + and on the CUDA backend), `BUILD_FORTRAN_CLIENTS` and `FORTRAN_ARRAY_INTERFACES` + (`assumed-shape` by default; `none` or `assumed-rank`). Found with + `find_package(hipblas-fortran)`; the archive and `.mod` files install per compiler under + `/fortran/` and `/fortran/`. + The archive has one section per procedure: link with `-Wl,--gc-sections` to keep only the wrappers + you call. diff --git a/projects/hipblas/fortran/CMakeLists.txt b/bindings/fortran/hipblas/CMakeLists.txt similarity index 98% rename from projects/hipblas/fortran/CMakeLists.txt rename to bindings/fortran/hipblas/CMakeLists.txt index 775761c84908..8798d9b51333 100644 --- a/projects/hipblas/fortran/CMakeLists.txt +++ b/bindings/fortran/hipblas/CMakeLists.txt @@ -290,8 +290,8 @@ install(FILES "${CMAKE_CURRENT_BINARY_DIR}/forward/hipblas-fortran-config.cmake" # Not hipblas_VERSION: standalone, that is the INSTALLED hipBLAS's version. set(_fortran_version "") -if(EXISTS "${CMAKE_CURRENT_SOURCE_DIR}/../CMakeLists.txt") - file(READ "${CMAKE_CURRENT_SOURCE_DIR}/../CMakeLists.txt" _hipblas_root) +if(EXISTS "${CMAKE_CURRENT_SOURCE_DIR}/../../../projects/hipblas/CMakeLists.txt") + file(READ "${CMAKE_CURRENT_SOURCE_DIR}/../../../projects/hipblas/CMakeLists.txt" _hipblas_root) string(REGEX MATCH "set[ \t]*\\([ \t]*VERSION_STRING[ \t]+\"([0-9]+\\.[0-9]+\\.[0-9]+)\"" _m "${_hipblas_root}") if(CMAKE_MATCH_1) diff --git a/projects/hipblas/fortran/cmake/toolchains/amdflang.cmake b/bindings/fortran/hipblas/cmake/toolchains/amdflang.cmake similarity index 97% rename from projects/hipblas/fortran/cmake/toolchains/amdflang.cmake rename to bindings/fortran/hipblas/cmake/toolchains/amdflang.cmake index 0acb2070ac2f..96e4d3c4e865 100644 --- a/projects/hipblas/fortran/cmake/toolchains/amdflang.cmake +++ b/bindings/fortran/hipblas/cmake/toolchains/amdflang.cmake @@ -24,7 +24,7 @@ # AMD ROCm toolchain (amdflang). The recommended default: amdflang is the LLVM-based Fortran compiler shipped with ROCm. # -# Usage, from projects/hipblas/fortran: +# Usage, from bindings/fortran/hipblas: # cmake -S . -B build -DCMAKE_TOOLCHAIN_FILE=cmake/toolchains/amdflang.cmake # # No format or line-length flag: the generated source fits within the 132 diff --git a/projects/hipblas/fortran/cmake/toolchains/cray.cmake b/bindings/fortran/hipblas/cmake/toolchains/cray.cmake similarity index 97% rename from projects/hipblas/fortran/cmake/toolchains/cray.cmake rename to bindings/fortran/hipblas/cmake/toolchains/cray.cmake index b72763edf5e7..9bc9059041fe 100644 --- a/projects/hipblas/fortran/cmake/toolchains/cray.cmake +++ b/bindings/fortran/hipblas/cmake/toolchains/cray.cmake @@ -24,7 +24,7 @@ # Cray toolchain. ftn and cc are the Cray compiler wrappers, which select the underlying compiler from the loaded PrgEnv module. # -# Usage, from projects/hipblas/fortran: +# Usage, from bindings/fortran/hipblas: # cmake -S . -B build -DCMAKE_TOOLCHAIN_FILE=cmake/toolchains/cray.cmake # # No format or line-length flag: the generated source fits within the 132 diff --git a/projects/hipblas/fortran/cmake/toolchains/gnu.cmake b/bindings/fortran/hipblas/cmake/toolchains/gnu.cmake similarity index 97% rename from projects/hipblas/fortran/cmake/toolchains/gnu.cmake rename to bindings/fortran/hipblas/cmake/toolchains/gnu.cmake index 49691663e698..5b41633347ea 100644 --- a/projects/hipblas/fortran/cmake/toolchains/gnu.cmake +++ b/bindings/fortran/hipblas/cmake/toolchains/gnu.cmake @@ -24,7 +24,7 @@ # GNU toolchain (gfortran). # -# Usage, from projects/hipblas/fortran: +# Usage, from bindings/fortran/hipblas: # cmake -S . -B build -DCMAKE_TOOLCHAIN_FILE=cmake/toolchains/gnu.cmake # # No format or line-length flag: the generated source fits within the 132 diff --git a/projects/hipblas/fortran/cmake/toolchains/intel-classic.cmake b/bindings/fortran/hipblas/cmake/toolchains/intel-classic.cmake similarity index 97% rename from projects/hipblas/fortran/cmake/toolchains/intel-classic.cmake rename to bindings/fortran/hipblas/cmake/toolchains/intel-classic.cmake index 5a8bc93f9851..f0edd341d80b 100644 --- a/projects/hipblas/fortran/cmake/toolchains/intel-classic.cmake +++ b/bindings/fortran/hipblas/cmake/toolchains/intel-classic.cmake @@ -24,7 +24,7 @@ # Classic Intel toolchain (ifort). Deprecated by Intel in favour of ifx; kept for sites still pinned to it. # -# Usage, from projects/hipblas/fortran: +# Usage, from bindings/fortran/hipblas: # cmake -S . -B build -DCMAKE_TOOLCHAIN_FILE=cmake/toolchains/intel-classic.cmake # # No format or line-length flag: the generated source fits within the 132 diff --git a/projects/hipblas/fortran/cmake/toolchains/intel.cmake b/bindings/fortran/hipblas/cmake/toolchains/intel.cmake similarity index 97% rename from projects/hipblas/fortran/cmake/toolchains/intel.cmake rename to bindings/fortran/hipblas/cmake/toolchains/intel.cmake index 641c3cc3af62..5ae86e94a527 100644 --- a/projects/hipblas/fortran/cmake/toolchains/intel.cmake +++ b/bindings/fortran/hipblas/cmake/toolchains/intel.cmake @@ -24,7 +24,7 @@ # Intel oneAPI toolchain (ifx, the LLVM-based compiler). # -# Usage, from projects/hipblas/fortran: +# Usage, from bindings/fortran/hipblas: # cmake -S . -B build -DCMAKE_TOOLCHAIN_FILE=cmake/toolchains/intel.cmake # # No format or line-length flag: the generated source fits within the 132 diff --git a/projects/hipblas/fortran/cmake/toolchains/nvhpc.cmake b/bindings/fortran/hipblas/cmake/toolchains/nvhpc.cmake similarity index 97% rename from projects/hipblas/fortran/cmake/toolchains/nvhpc.cmake rename to bindings/fortran/hipblas/cmake/toolchains/nvhpc.cmake index 9e4bd390680a..06da11711f4f 100644 --- a/projects/hipblas/fortran/cmake/toolchains/nvhpc.cmake +++ b/bindings/fortran/hipblas/cmake/toolchains/nvhpc.cmake @@ -24,7 +24,7 @@ # NVIDIA HPC SDK toolchain (nvfortran). # -# Usage, from projects/hipblas/fortran: +# Usage, from bindings/fortran/hipblas: # cmake -S . -B build -DCMAKE_TOOLCHAIN_FILE=cmake/toolchains/nvhpc.cmake # # No format or line-length flag: the generated source fits within the 132 diff --git a/projects/hipblas/fortran/hip_datatypes_stub.F90 b/bindings/fortran/hipblas/hip_datatypes_stub.F90 similarity index 100% rename from projects/hipblas/fortran/hip_datatypes_stub.F90 rename to bindings/fortran/hipblas/hip_datatypes_stub.F90 diff --git a/projects/hipblas/fortran/hipblas-fortran-config.cmake.in b/bindings/fortran/hipblas/hipblas-fortran-config.cmake.in similarity index 98% rename from projects/hipblas/fortran/hipblas-fortran-config.cmake.in rename to bindings/fortran/hipblas/hipblas-fortran-config.cmake.in index cf1ef1ec68fe..daa5adc7f13c 100644 --- a/projects/hipblas/fortran/hipblas-fortran-config.cmake.in +++ b/bindings/fortran/hipblas/hipblas-fortran-config.cmake.in @@ -84,7 +84,7 @@ if(DEFINED HIPBLAS_FORTRAN_COMPILER_DIR) endif() set(_hipblas_dir "${HIPBLAS_FORTRAN_COMPILER_DIR}") else() - # Must mirror the mapping in projects/hipblas/fortran/CMakeLists.txt. + # Must mirror the mapping in bindings/fortran/hipblas/CMakeLists.txt. if(CMAKE_Fortran_COMPILER_ID STREQUAL "GNU") set(_hipblas_fc "gfortran") elseif(CMAKE_Fortran_COMPILER_ID MATCHES "Flang") diff --git a/projects/hipblas/fortran/hipblas.F90 b/bindings/fortran/hipblas/hipblas.F90 similarity index 100% rename from projects/hipblas/fortran/hipblas.F90 rename to bindings/fortran/hipblas/hipblas.F90 diff --git a/projects/hipblas/.gitattributes b/projects/hipblas/.gitattributes deleted file mode 100644 index cd9812c58107..000000000000 --- a/projects/hipblas/.gitattributes +++ /dev/null @@ -1,2 +0,0 @@ -# Generated by the rocm-fortran generator -/fortran/hipblas.F90 linguist-generated=true diff --git a/projects/hipblas/CHANGELOG.md b/projects/hipblas/CHANGELOG.md index 4fefe0f2db09..3f32a4d1bbc7 100644 --- a/projects/hipblas/CHANGELOG.md +++ b/projects/hipblas/CHANGELOG.md @@ -8,44 +8,11 @@ Documentation for hipBLAS is available at ### Added * gfx1170 and gfx1171 support to clients. -* Generated Fortran bindings, as a single `hipblas` module: `use hipblas`, link - `roc::hipblas_fortran`. Controlled by `BUILD_FORTRAN_BINDINGS` (ON on Linux, OFF on Windows - and on the CUDA backend), `BUILD_FORTRAN_CLIENTS` and `FORTRAN_ARRAY_INTERFACES` - (`assumed-shape` by default; `none` or `assumed-rank`). Found with - `find_package(hipblas-fortran)`; the archive and `.mod` files install per compiler under - `/fortran/` and `/fortran/`. - The archive has one section per procedure: link with `-Wl,--gc-sections` to keep only the wrappers - you call. ### Changed * The minimum required CMake version is now 3.17, for the library and the clients. `FindCUDAToolkit`, used by the CUDA backend, was added in that release. * `hipblasSetWorkspace` chooses whether the rocBLAS backend may grow its device workspace. A non-null workspace with a nonzero size is a fixed limit and is never resized, which caps device memory for the handle. A later call that needs more, such as `trsmBatched` or `trsmStridedBatched` with a large `batchCount`, returns `HIPBLAS_STATUS_ALLOC_FAILED` even when free device memory remains. Passing `nullptr` or a size of 0 returns the handle to rocBLAS-managed memory, which starts from a default size and grows as needed. `HIPBLAS_WORKSPACE_CONFIG=:0:0` selects that same managed mode for callers that configure the workspace through the environment, such as PyTorch. With the rocBLAS backend, set `ROCBLAS_VERBOSE_ERROR=1` to print the required and available sizes when a fixed workspace is too small for `trsm`. -* `hipblas_enums` is merged into `hipblas`: the generated binding defines only `hipblas`, with - the enum constants folded in. `use hipblas` is unchanged; `use hipblas_enums` becomes - `use hipblas`. -* The `hipDataType` enumerators (`HIP_R_32F` and the rest) are no longer re-exported: they - belong to HIP, not to hipBLAS. Code that names them when calling `hipblasGemmEx` and the - other `_ex` routines must now get them from HIP. -* The binding ships as a compiled archive and `.mod` set, not a `.f90` to compile yourself: - link `roc::hipblas_fortran` instead of adding the source to your build. -* Output arguments are now typed variables passed by reference, as in the C API, instead of - `type(c_ptr), value`: `hipblasCreate` and `hipblasGetStream` (`type(c_ptr)`), - `hipblasGetPointerMode` and `hipblasGetAtomicsMode` (the enum kind) and - `hipblasGetBatchAlphaStride` and `hipblasGetBatchBetaStride` (`integer(c_int64_t)`). Pass the - variable itself: code passing `c_loc(x)` must pass `x`. The newly bound `hipblasGetMathMode` - (the enum kind), `hipblasGetProperty` and `hipblasGetVersion` (`integer(c_int)`) follow the - same convention. -* On the CUDA backend the Fortran gtests, benchmark and samples are no longer built by default, - since the bindings are OFF there: pass `-DBUILD_FORTRAN_BINDINGS=ON` to keep them. -* The default Fortran compiler is now ROCm's `amdflang` when the Fortran bindings are built and the - test and benchmark clients are not. It stays `gfortran` when those clients are built, since they - link the host LAPACK; the client packages depend on `libgfortran` only when `gfortran` built them. - -### Removed - -* The hand-written `library/src/hipblas_module.f90`, no longer installed into - `include/hipblas`. ## hipBLAS 3.7.0 diff --git a/projects/hipblas/CMakeLists.txt b/projects/hipblas/CMakeLists.txt index c48462713ec7..4551520106ad 100644 --- a/projects/hipblas/CMakeLists.txt +++ b/projects/hipblas/CMakeLists.txt @@ -42,19 +42,6 @@ if( NOT DEFINED CMAKE_CONFIGURATION_TYPES AND NOT DEFINED CMAKE_BUILD_TYPE ) set( CMAKE_BUILD_TYPE Release CACHE STRING "Choose the type of build, options are: None Debug Release RelWithDebInfo MinSizeRel." ) endif() -# Decided before project(): the first enable_language(Fortran) fixes the compiler -# for the whole tree. The test/benchmark clients link the host LAPACK, a gfortran -# build needing its runtime, so keep gfortran for them; fortran/ prefers amdflang -# otherwise. Only if gfortran exists: a preset name would skip fortran/'s probe. -if(NOT DEFINED CMAKE_Fortran_COMPILER AND NOT DEFINED ENV{FC} - AND (BUILD_CLIENTS_TESTS OR BUILD_CLIENTS_BENCHMARKS)) - find_program(_hipblas_gfortran NAMES gfortran) - if(_hipblas_gfortran) - set(CMAKE_Fortran_COMPILER "${_hipblas_gfortran}") - endif() - unset(_hipblas_gfortran CACHE) -endif() - project( hipblas LANGUAGES CXX ) find_package(Python3 3.9 COMPONENTS Interpreter REQUIRED) @@ -118,16 +105,8 @@ if(NOT SKIP_LIBRARY) add_subdirectory(library) endif() -# Outside the SKIP_LIBRARY guard: the bindings link libhipblas, they do not build it. -add_subdirectory(fortran) - include( clients/cmake/build-options.cmake ) -# Seen by clients/, where the Fortran clients are built. -if(DEFINED HIPBLAS_BUILD_FORTRAN_CLIENTS) - set(BUILD_FORTRAN_CLIENTS ${HIPBLAS_BUILD_FORTRAN_CLIENTS}) -endif() - # Build clients of the library if( BUILD_CLIENTS_SAMPLES OR BUILD_CLIENTS_TESTS OR BUILD_CLIENTS_BENCHMARKS ) if(NOT CLIENTS_OS) @@ -137,8 +116,7 @@ if( BUILD_CLIENTS_SAMPLES OR BUILD_CLIENTS_TESTS OR BUILD_CLIENTS_BENCHMARKS ) endif() message(STATUS "OS: ${CLIENTS_OS} ${CLIENTS_OS_VERSION}") - # libgfortran only for gfortran-built clients; amdflang's runtime ships with ROCm. - if(BUILD_FORTRAN_CLIENTS AND HIPBLAS_FORTRAN_COMPILER_ID STREQUAL "GNU") + if(BUILD_FORTRAN_CLIENTS) set(GFORTRAN_RPM "libgfortran4") set(GFORTRAN_DEB "libgfortran4") if(CLIENTS_OS STREQUAL "centos" OR CLIENTS_OS STREQUAL "rhel" OR CLIENTS_OS STREQUAL "almalinux") @@ -173,8 +151,7 @@ if( BUILD_CLIENTS_SAMPLES OR BUILD_CLIENTS_TESTS OR BUILD_CLIENTS_BENCHMARKS ) DEPENDS COMPONENT clients-common) endif() - # Same condition as above, which leaves GFORTRAN_RPM/GFORTRAN_DEB unset otherwise. - if(BUILD_FORTRAN_CLIENTS AND HIPBLAS_FORTRAN_COMPILER_ID STREQUAL "GNU") + if(BUILD_FORTRAN_CLIENTS) if(BUILD_CLIENTS_TESTS) rocm_package_add_rpm_dependencies(COMPONENT tests DEPENDS "${GFORTRAN_RPM}") rocm_package_add_deb_dependencies(COMPONENT tests DEPENDS "${GFORTRAN_DEB}") diff --git a/projects/hipblas/clients/CMakeLists.txt b/projects/hipblas/clients/CMakeLists.txt index 01a277ba01a1..6520443a37ac 100644 --- a/projects/hipblas/clients/CMakeLists.txt +++ b/projects/hipblas/clients/CMakeLists.txt @@ -149,16 +149,6 @@ if( NOT DEFINED CMAKE_CONFIGURATION_TYPES AND NOT DEFINED CMAKE_BUILD_TYPE ) set( CMAKE_BUILD_TYPE Release CACHE STRING "Choose the type of build, options are: None Debug Release RelWithDebInfo MinSizeRel." ) endif() -# hipblas_fortran comes from ../fortran. Checked before project(), which would -# otherwise try to enable Fortran on a host with no Fortran compiler. -if ( BUILD_FORTRAN_CLIENTS AND NOT TARGET hipblas_fortran ) - message(STATUS - "hipBLAS: the Fortran bindings were not built, so the Fortran clients are " - "skipped. They come from projects/hipblas/fortran, which needs " - "BUILD_FORTRAN_BINDINGS on and a Fortran compiler.") - set( BUILD_FORTRAN_CLIENTS OFF ) -endif() - # This project may compile dependencies for clients if ( BUILD_FORTRAN_CLIENTS ) if ( NOT DEFINED CMAKE_Fortran_COMPILER AND NOT DEFINED ENV{FC} ) @@ -183,24 +173,26 @@ if( BUILD_FORTRAN_CLIENTS ) set(hipblas_f90_source_clients_solver include/hipblas_fortran_module.f90 ) + + set (hipblas_f90_source + ../library/src/hipblas_module.f90 + ) endif() if( BUILD_CLIENTS_TESTS OR BUILD_CLIENTS_BENCHMARKS OR BUILD_CLIENTS_SAMPLES ) + # Create hipBLAS Fortran module if( BUILD_FORTRAN_CLIENTS ) # Set Fortran module output directory set(CMAKE_Fortran_MODULE_DIRECTORY ${PROJECT_BINARY_DIR}/include/hipblas) + add_library(hipblas_fortran OBJECT ${hipblas_f90_source}) + endif() - # TEMPORARY until ROCm/rocm-systems#11923: the stub supplies module hip's - # hipDataType enumerators for the shims. Build-only, never installed. To - # remove, drop it here and link hip::hip_fortran; the `use hip` lines stay. - set(hipblas_hip_stub ${CMAKE_CURRENT_SOURCE_DIR}/../fortran/hip_datatypes_stub.F90) - - if( BUILD_WITH_SOLVER ) - add_library(hipblas_fortran_client STATIC ${hipblas_f90_source_clients_solver} ${hipblas_hip_stub}) - else() - add_library(hipblas_fortran_client STATIC ${hipblas_f90_source_clients_no_solver} ${hipblas_hip_stub}) - endif() - target_link_libraries(hipblas_fortran_client PUBLIC roc::hipblas_fortran) + if( BUILD_FORTRAN_CLIENTS ) + if( BUILD_WITH_SOLVER ) + add_library(hipblas_fortran_client STATIC ${hipblas_f90_source_clients_solver} $) + else() + add_library(hipblas_fortran_client STATIC ${hipblas_f90_source_clients_no_solver} $) + endif() endif() if(SKIP_LIBRARY) diff --git a/projects/hipblas/clients/benchmarks/CMakeLists.txt b/projects/hipblas/clients/benchmarks/CMakeLists.txt index 2a4cb0bf266d..d8e00cc081b6 100644 --- a/projects/hipblas/clients/benchmarks/CMakeLists.txt +++ b/projects/hipblas/clients/benchmarks/CMakeLists.txt @@ -41,8 +41,7 @@ set( hipblas_benchmark_common ) if(BUILD_FORTRAN_CLIENTS) - add_executable( hipblas-bench ${hipblas_bench_source} ${hipblas_benchmark_common} ) - target_link_libraries( hipblas-bench PRIVATE hipblas_fortran_client ) + add_executable( hipblas-bench ${hipblas_bench_source} ${hipblas_benchmark_common} $) else() add_executable( hipblas-bench ${hipblas_bench_source} ${hipblas_benchmark_common} ) endif() diff --git a/projects/hipblas/clients/include/hipblas_fortran_blas.f90 b/projects/hipblas/clients/include/hipblas_fortran_blas.f90 index 4f68ab1ba9a2..84e719c182de 100644 --- a/projects/hipblas/clients/include/hipblas_fortran_blas.f90 +++ b/projects/hipblas/clients/include/hipblas_fortran_blas.f90 @@ -27,7 +27,7 @@ function hipblasSetVectorFortran(n, elemSize, x, incx, y, incy) & bind(c, name='hipblasSetVectorFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSetVectorFortran integer(c_int), value :: n @@ -43,7 +43,7 @@ end function hipblasSetVectorFortran function hipblasGetVectorFortran(n, elemSize, x, incx, y, incy) & bind(c, name='hipblasGetVectorFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGetVectorFortran integer(c_int), value :: n @@ -59,7 +59,7 @@ end function hipblasGetVectorFortran function hipblasSetMatrixFortran(rows, cols, elemSize, A, lda, B, ldb) & bind(c, name='hipblasSetMatrixFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSetMatrixFortran integer(c_int), value :: rows @@ -76,7 +76,7 @@ end function hipblasSetMatrixFortran function hipblasGetMatrixFortran(rows, cols, elemSize, A, lda, B, ldb) & bind(c, name='hipblasGetMatrixFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGetMatrixFortran integer(c_int), value :: rows @@ -93,7 +93,7 @@ end function hipblasGetMatrixFortran function hipblasSetVectorAsyncFortran(n, elemSize, x, incx, y, incy, stream) & bind(c, name='hipblasSetVectorAsyncFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSetVectorAsyncFortran integer(c_int), value :: n @@ -110,7 +110,7 @@ end function hipblasSetVectorAsyncFortran function hipblasGetVectorAsyncFortran(n, elemSize, x, incx, y, incy, stream) & bind(c, name='hipblasGetVectorAsyncFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGetVectorAsyncFortran integer(c_int), value :: n @@ -127,7 +127,7 @@ end function hipblasGetVectorAsyncFortran function hipblasSetMatrixAsyncFortran(rows, cols, elemSize, A, lda, B, ldb, stream) & bind(c, name='hipblasSetMatrixAsyncFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSetMatrixAsyncFortran integer(c_int), value :: rows @@ -145,7 +145,7 @@ end function hipblasSetMatrixAsyncFortran function hipblasGetMatrixAsyncFortran(rows, cols, elemSize, A, lda, B, ldb, stream) & bind(c, name='hipblasGetMatrixAsyncFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGetMatrixAsyncFortran integer(c_int), value :: rows @@ -163,7 +163,7 @@ end function hipblasGetMatrixAsyncFortran function hipblasSetAtomicsModeFortran(handle, atomics_mode) & bind(c, name='hipblasSetAtomicsModeFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSetAtomicsModeFortran type(c_ptr), value :: handle @@ -175,11 +175,11 @@ end function hipblasSetAtomicsModeFortran function hipblasGetAtomicsModeFortran(handle, atomics_mode) & bind(c, name='hipblasGetAtomicsModeFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGetAtomicsModeFortran type(c_ptr), value :: handle - integer(kind(HIPBLAS_ATOMICS_ALLOWED)) :: atomics_mode + type(c_ptr), value :: atomics_mode hipblasGetAtomicsModeFortran = & hipblasGetAtomicsMode(handle, atomics_mode) end function hipblasGetAtomicsModeFortran @@ -187,7 +187,7 @@ end function hipblasGetAtomicsModeFortran function hipblasSetBatchAlphaStrideFortran(handle, alpha_stride) & bind(c, name='hipblasSetBatchAlphaStrideFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSetBatchAlphaStrideFortran type(c_ptr), value :: handle @@ -199,11 +199,11 @@ end function hipblasSetBatchAlphaStrideFortran function hipblasGetBatchAlphaStrideFortran(handle, alpha_stride) & bind(c, name='hipblasGetBatchAlphaStrideFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGetBatchAlphaStrideFortran type(c_ptr), value :: handle - integer(c_int64_t) :: alpha_stride + type(c_ptr), value :: alpha_stride hipblasGetBatchAlphaStrideFortran = & hipblasGetBatchAlphaStride(handle, alpha_stride) end function hipblasGetBatchAlphaStrideFortran @@ -211,7 +211,7 @@ end function hipblasGetBatchAlphaStrideFortran function hipblasSetBatchBetaStrideFortran(handle, beta_stride) & bind(c, name='hipblasSetBatchBetaStrideFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSetBatchBetaStrideFortran type(c_ptr), value :: handle @@ -223,11 +223,11 @@ end function hipblasSetBatchBetaStrideFortran function hipblasGetBatchBetaStrideFortran(handle, beta_stride) & bind(c, name='hipblasGetBatchBetaStrideFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGetBatchBetaStrideFortran type(c_ptr), value :: handle - integer(c_int64_t) :: beta_stride + type(c_ptr), value :: beta_stride hipblasGetBatchBetaStrideFortran = & hipblasGetBatchBetaStride(handle, beta_stride) end function hipblasGetBatchBetaStrideFortran @@ -240,7 +240,7 @@ end function hipblasGetBatchBetaStrideFortran function hipblasSscalFortran(handle, n, alpha, x, incx) & bind(c, name='hipblasSscalFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscalFortran type(c_ptr), value :: handle @@ -256,7 +256,7 @@ end function hipblasSscalFortran function hipblasDscalFortran(handle, n, alpha, x, incx) & bind(c, name='hipblasDscalFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscalFortran type(c_ptr), value :: handle @@ -272,7 +272,7 @@ end function hipblasDscalFortran function hipblasCscalFortran(handle, n, alpha, x, incx) & bind(c, name='hipblasCscalFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscalFortran type(c_ptr), value :: handle @@ -288,7 +288,7 @@ end function hipblasCscalFortran function hipblasZscalFortran(handle, n, alpha, x, incx) & bind(c, name='hipblasZscalFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscalFortran type(c_ptr), value :: handle @@ -304,7 +304,7 @@ end function hipblasZscalFortran function hipblasCsscalFortran(handle, n, alpha, x, incx) & bind(c, name='hipblasCsscalFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscalFortran type(c_ptr), value :: handle @@ -320,7 +320,7 @@ end function hipblasCsscalFortran function hipblasZdscalFortran(handle, n, alpha, x, incx) & bind(c, name='hipblasZdscalFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscalFortran type(c_ptr), value :: handle @@ -337,7 +337,7 @@ end function hipblasZdscalFortran function hipblasSscalBatchedFortran(handle, n, alpha, x, incx, batch_count) & bind(c, name='hipblasSscalBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscalBatchedFortran type(c_ptr), value :: handle @@ -354,7 +354,7 @@ end function hipblasSscalBatchedFortran function hipblasDscalBatchedFortran(handle, n, alpha, x, incx, batch_count) & bind(c, name='hipblasDscalBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscalBatchedFortran type(c_ptr), value :: handle @@ -371,7 +371,7 @@ end function hipblasDscalBatchedFortran function hipblasCscalBatchedFortran(handle, n, alpha, x, incx, batch_count) & bind(c, name='hipblasCscalBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscalBatchedFortran type(c_ptr), value :: handle @@ -388,7 +388,7 @@ end function hipblasCscalBatchedFortran function hipblasZscalBatchedFortran(handle, n, alpha, x, incx, batch_count) & bind(c, name='hipblasZscalBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscalBatchedFortran type(c_ptr), value :: handle @@ -405,7 +405,7 @@ end function hipblasZscalBatchedFortran function hipblasCsscalBatchedFortran(handle, n, alpha, x, incx, batch_count) & bind(c, name='hipblasCsscalBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscalBatchedFortran type(c_ptr), value :: handle @@ -422,7 +422,7 @@ end function hipblasCsscalBatchedFortran function hipblasZdscalBatchedFortran(handle, n, alpha, x, incx, batch_count) & bind(c, name='hipblasZdscalBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscalBatchedFortran type(c_ptr), value :: handle @@ -440,7 +440,7 @@ end function hipblasZdscalBatchedFortran function hipblasSscalStridedBatchedFortran(handle, n, alpha, x, incx, stride_x, batch_count) & bind(c, name='hipblasSscalStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscalStridedBatchedFortran type(c_ptr), value :: handle @@ -458,7 +458,7 @@ end function hipblasSscalStridedBatchedFortran function hipblasDscalStridedBatchedFortran(handle, n, alpha, x, incx, stride_x, batch_count) & bind(c, name='hipblasDscalStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscalStridedBatchedFortran type(c_ptr), value :: handle @@ -476,7 +476,7 @@ end function hipblasDscalStridedBatchedFortran function hipblasCscalStridedBatchedFortran(handle, n, alpha, x, incx, stride_x, batch_count) & bind(c, name='hipblasCscalStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscalStridedBatchedFortran type(c_ptr), value :: handle @@ -494,7 +494,7 @@ end function hipblasCscalStridedBatchedFortran function hipblasZscalStridedBatchedFortran(handle, n, alpha, x, incx, stride_x, batch_count) & bind(c, name='hipblasZscalStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscalStridedBatchedFortran type(c_ptr), value :: handle @@ -512,7 +512,7 @@ end function hipblasZscalStridedBatchedFortran function hipblasCsscalStridedBatchedFortran(handle, n, alpha, x, incx, stride_x, batch_count) & bind(c, name='hipblasCsscalStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscalStridedBatchedFortran type(c_ptr), value :: handle @@ -530,7 +530,7 @@ end function hipblasCsscalStridedBatchedFortran function hipblasZdscalStridedBatchedFortran(handle, n, alpha, x, incx, stride_x, batch_count) & bind(c, name='hipblasZdscalStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscalStridedBatchedFortran type(c_ptr), value :: handle @@ -549,7 +549,7 @@ end function hipblasZdscalStridedBatchedFortran function hipblasScopyFortran(handle, n, x, incx, y, incy) & bind(c, name='hipblasScopyFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScopyFortran type(c_ptr), value :: handle @@ -566,7 +566,7 @@ end function hipblasScopyFortran function hipblasDcopyFortran(handle, n, x, incx, y, incy) & bind(c, name='hipblasDcopyFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDcopyFortran type(c_ptr), value :: handle @@ -583,7 +583,7 @@ end function hipblasDcopyFortran function hipblasCcopyFortran(handle, n, x, incx, y, incy) & bind(c, name='hipblasCcopyFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCcopyFortran type(c_ptr), value :: handle @@ -600,7 +600,7 @@ end function hipblasCcopyFortran function hipblasZcopyFortran(handle, n, x, incx, y, incy) & bind(c, name='hipblasZcopyFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZcopyFortran type(c_ptr), value :: handle @@ -618,7 +618,7 @@ end function hipblasZcopyFortran function hipblasScopyBatchedFortran(handle, n, x, incx, y, incy, batch_count) & bind(c, name='hipblasScopyBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScopyBatchedFortran type(c_ptr), value :: handle @@ -636,7 +636,7 @@ end function hipblasScopyBatchedFortran function hipblasDcopyBatchedFortran(handle, n, x, incx, y, incy, batch_count) & bind(c, name='hipblasDcopyBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDcopyBatchedFortran type(c_ptr), value :: handle @@ -654,7 +654,7 @@ end function hipblasDcopyBatchedFortran function hipblasCcopyBatchedFortran(handle, n, x, incx, y, incy, batch_count) & bind(c, name='hipblasCcopyBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCcopyBatchedFortran type(c_ptr), value :: handle @@ -672,7 +672,7 @@ end function hipblasCcopyBatchedFortran function hipblasZcopyBatchedFortran(handle, n, x, incx, y, incy, batch_count) & bind(c, name='hipblasZcopyBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZcopyBatchedFortran type(c_ptr), value :: handle @@ -691,7 +691,7 @@ end function hipblasZcopyBatchedFortran function hipblasScopyStridedBatchedFortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='hipblasScopyStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScopyStridedBatchedFortran type(c_ptr), value :: handle @@ -711,7 +711,7 @@ end function hipblasScopyStridedBatchedFortran function hipblasDcopyStridedBatchedFortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='hipblasDcopyStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDcopyStridedBatchedFortran type(c_ptr), value :: handle @@ -731,7 +731,7 @@ end function hipblasDcopyStridedBatchedFortran function hipblasCcopyStridedBatchedFortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='hipblasCcopyStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCcopyStridedBatchedFortran type(c_ptr), value :: handle @@ -751,7 +751,7 @@ end function hipblasCcopyStridedBatchedFortran function hipblasZcopyStridedBatchedFortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='hipblasZcopyStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZcopyStridedBatchedFortran type(c_ptr), value :: handle @@ -772,7 +772,7 @@ end function hipblasZcopyStridedBatchedFortran function hipblasSdotFortran(handle, n, x, incx, y, incy, result) & bind(c, name='hipblasSdotFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdotFortran type(c_ptr), value :: handle @@ -790,7 +790,7 @@ end function hipblasSdotFortran function hipblasDdotFortran(handle, n, x, incx, y, incy, result) & bind(c, name='hipblasDdotFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdotFortran type(c_ptr), value :: handle @@ -808,7 +808,7 @@ end function hipblasDdotFortran function hipblasHdotFortran(handle, n, x, incx, y, incy, result) & bind(c, name='hipblasHdotFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHdotFortran type(c_ptr), value :: handle @@ -826,7 +826,7 @@ end function hipblasHdotFortran function hipblasBfdotFortran(handle, n, x, incx, y, incy, result) & bind(c, name='hipblasBfdotFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasBfdotFortran type(c_ptr), value :: handle @@ -844,7 +844,7 @@ end function hipblasBfdotFortran function hipblasCdotuFortran(handle, n, x, incx, y, incy, result) & bind(c, name='hipblasCdotuFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotuFortran type(c_ptr), value :: handle @@ -862,7 +862,7 @@ end function hipblasCdotuFortran function hipblasCdotcFortran(handle, n, x, incx, y, incy, result) & bind(c, name='hipblasCdotcFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotcFortran type(c_ptr), value :: handle @@ -880,7 +880,7 @@ end function hipblasCdotcFortran function hipblasZdotuFortran(handle, n, x, incx, y, incy, result) & bind(c, name='hipblasZdotuFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotuFortran type(c_ptr), value :: handle @@ -898,7 +898,7 @@ end function hipblasZdotuFortran function hipblasZdotcFortran(handle, n, x, incx, y, incy, result) & bind(c, name='hipblasZdotcFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotcFortran type(c_ptr), value :: handle @@ -917,7 +917,7 @@ end function hipblasZdotcFortran function hipblasSdotBatchedFortran(handle, n, x, incx, y, incy, batch_count, result) & bind(c, name='hipblasSdotBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdotBatchedFortran type(c_ptr), value :: handle @@ -936,7 +936,7 @@ end function hipblasSdotBatchedFortran function hipblasDdotBatchedFortran(handle, n, x, incx, y, incy, batch_count, result) & bind(c, name='hipblasDdotBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdotBatchedFortran type(c_ptr), value :: handle @@ -955,7 +955,7 @@ end function hipblasDdotBatchedFortran function hipblasHdotBatchedFortran(handle, n, x, incx, y, incy, batch_count, result) & bind(c, name='hipblasHdotBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHdotBatchedFortran type(c_ptr), value :: handle @@ -974,7 +974,7 @@ end function hipblasHdotBatchedFortran function hipblasBfdotBatchedFortran(handle, n, x, incx, y, incy, batch_count, result) & bind(c, name='hipblasBfdotBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasBfdotBatchedFortran type(c_ptr), value :: handle @@ -993,7 +993,7 @@ end function hipblasBfdotBatchedFortran function hipblasCdotuBatchedFortran(handle, n, x, incx, y, incy, batch_count, result) & bind(c, name='hipblasCdotuBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotuBatchedFortran type(c_ptr), value :: handle @@ -1012,7 +1012,7 @@ end function hipblasCdotuBatchedFortran function hipblasCdotcBatchedFortran(handle, n, x, incx, y, incy, batch_count, result) & bind(c, name='hipblasCdotcBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotcBatchedFortran type(c_ptr), value :: handle @@ -1031,7 +1031,7 @@ end function hipblasCdotcBatchedFortran function hipblasZdotuBatchedFortran(handle, n, x, incx, y, incy, batch_count, result) & bind(c, name='hipblasZdotuBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotuBatchedFortran type(c_ptr), value :: handle @@ -1050,7 +1050,7 @@ end function hipblasZdotuBatchedFortran function hipblasZdotcBatchedFortran(handle, n, x, incx, y, incy, batch_count, result) & bind(c, name='hipblasZdotcBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotcBatchedFortran type(c_ptr), value :: handle @@ -1070,7 +1070,7 @@ end function hipblasZdotcBatchedFortran function hipblasSdotStridedBatchedFortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & bind(c, name='hipblasSdotStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdotStridedBatchedFortran type(c_ptr), value :: handle @@ -1091,7 +1091,7 @@ end function hipblasSdotStridedBatchedFortran function hipblasDdotStridedBatchedFortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & bind(c, name='hipblasDdotStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdotStridedBatchedFortran type(c_ptr), value :: handle @@ -1112,7 +1112,7 @@ end function hipblasDdotStridedBatchedFortran function hipblasHdotStridedBatchedFortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & bind(c, name='hipblasHdotStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHdotStridedBatchedFortran type(c_ptr), value :: handle @@ -1133,7 +1133,7 @@ end function hipblasHdotStridedBatchedFortran function hipblasBfdotStridedBatchedFortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & bind(c, name='hipblasBfdotStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasBfdotStridedBatchedFortran type(c_ptr), value :: handle @@ -1154,7 +1154,7 @@ end function hipblasBfdotStridedBatchedFortran function hipblasCdotuStridedBatchedFortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & bind(c, name='hipblasCdotuStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotuStridedBatchedFortran type(c_ptr), value :: handle @@ -1175,7 +1175,7 @@ end function hipblasCdotuStridedBatchedFortran function hipblasCdotcStridedBatchedFortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & bind(c, name='hipblasCdotcStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotcStridedBatchedFortran type(c_ptr), value :: handle @@ -1196,7 +1196,7 @@ end function hipblasCdotcStridedBatchedFortran function hipblasZdotuStridedBatchedFortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & bind(c, name='hipblasZdotuStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotuStridedBatchedFortran type(c_ptr), value :: handle @@ -1217,7 +1217,7 @@ end function hipblasZdotuStridedBatchedFortran function hipblasZdotcStridedBatchedFortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & bind(c, name='hipblasZdotcStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotcStridedBatchedFortran type(c_ptr), value :: handle @@ -1239,7 +1239,7 @@ end function hipblasZdotcStridedBatchedFortran function hipblasSswapFortran(handle, n, x, incx, y, incy) & bind(c, name='hipblasSswapFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSswapFortran type(c_ptr), value :: handle @@ -1256,7 +1256,7 @@ end function hipblasSswapFortran function hipblasDswapFortran(handle, n, x, incx, y, incy) & bind(c, name='hipblasDswapFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDswapFortran type(c_ptr), value :: handle @@ -1273,7 +1273,7 @@ end function hipblasDswapFortran function hipblasCswapFortran(handle, n, x, incx, y, incy) & bind(c, name='hipblasCswapFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCswapFortran type(c_ptr), value :: handle @@ -1290,7 +1290,7 @@ end function hipblasCswapFortran function hipblasZswapFortran(handle, n, x, incx, y, incy) & bind(c, name='hipblasZswapFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZswapFortran type(c_ptr), value :: handle @@ -1308,7 +1308,7 @@ end function hipblasZswapFortran function hipblasSswapBatchedFortran(handle, n, x, incx, y, incy, batch_count) & bind(c, name='hipblasSswapBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSswapBatchedFortran type(c_ptr), value :: handle @@ -1326,7 +1326,7 @@ end function hipblasSswapBatchedFortran function hipblasDswapBatchedFortran(handle, n, x, incx, y, incy, batch_count) & bind(c, name='hipblasDswapBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDswapBatchedFortran type(c_ptr), value :: handle @@ -1344,7 +1344,7 @@ end function hipblasDswapBatchedFortran function hipblasCswapBatchedFortran(handle, n, x, incx, y, incy, batch_count) & bind(c, name='hipblasCswapBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCswapBatchedFortran type(c_ptr), value :: handle @@ -1362,7 +1362,7 @@ end function hipblasCswapBatchedFortran function hipblasZswapBatchedFortran(handle, n, x, incx, y, incy, batch_count) & bind(c, name='hipblasZswapBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZswapBatchedFortran type(c_ptr), value :: handle @@ -1381,7 +1381,7 @@ end function hipblasZswapBatchedFortran function hipblasSswapStridedBatchedFortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='hipblasSswapStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSswapStridedBatchedFortran type(c_ptr), value :: handle @@ -1401,7 +1401,7 @@ end function hipblasSswapStridedBatchedFortran function hipblasDswapStridedBatchedFortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='hipblasDswapStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDswapStridedBatchedFortran type(c_ptr), value :: handle @@ -1421,7 +1421,7 @@ end function hipblasDswapStridedBatchedFortran function hipblasCswapStridedBatchedFortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='hipblasCswapStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCswapStridedBatchedFortran type(c_ptr), value :: handle @@ -1441,7 +1441,7 @@ end function hipblasCswapStridedBatchedFortran function hipblasZswapStridedBatchedFortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='hipblasZswapStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZswapStridedBatchedFortran type(c_ptr), value :: handle @@ -1462,7 +1462,7 @@ end function hipblasZswapStridedBatchedFortran function hipblasHaxpyFortran(handle, n, alpha, x, incx, y, incy) & bind(c, name='hipblasHaxpyFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHaxpyFortran type(c_ptr), value :: handle @@ -1480,7 +1480,7 @@ end function hipblasHaxpyFortran function hipblasSaxpyFortran(handle, n, alpha, x, incx, y, incy) & bind(c, name='hipblasSaxpyFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpyFortran type(c_ptr), value :: handle @@ -1498,7 +1498,7 @@ end function hipblasSaxpyFortran function hipblasDaxpyFortran(handle, n, alpha, x, incx, y, incy) & bind(c, name='hipblasDaxpyFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpyFortran type(c_ptr), value :: handle @@ -1516,7 +1516,7 @@ end function hipblasDaxpyFortran function hipblasCaxpyFortran(handle, n, alpha, x, incx, y, incy) & bind(c, name='hipblasCaxpyFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpyFortran type(c_ptr), value :: handle @@ -1534,7 +1534,7 @@ end function hipblasCaxpyFortran function hipblasZaxpyFortran(handle, n, alpha, x, incx, y, incy) & bind(c, name='hipblasZaxpyFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpyFortran type(c_ptr), value :: handle @@ -1553,7 +1553,7 @@ end function hipblasZaxpyFortran function hipblasHaxpyBatchedFortran(handle, n, alpha, x, incx, y, incy, batch_count) & bind(c, name='hipblasHaxpyBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHaxpyBatchedFortran type(c_ptr), value :: handle @@ -1572,7 +1572,7 @@ end function hipblasHaxpyBatchedFortran function hipblasSaxpyBatchedFortran(handle, n, alpha, x, incx, y, incy, batch_count) & bind(c, name='hipblasSaxpyBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpyBatchedFortran type(c_ptr), value :: handle @@ -1591,7 +1591,7 @@ end function hipblasSaxpyBatchedFortran function hipblasDaxpyBatchedFortran(handle, n, alpha, x, incx, y, incy, batch_count) & bind(c, name='hipblasDaxpyBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpyBatchedFortran type(c_ptr), value :: handle @@ -1610,7 +1610,7 @@ end function hipblasDaxpyBatchedFortran function hipblasCaxpyBatchedFortran(handle, n, alpha, x, incx, y, incy, batch_count) & bind(c, name='hipblasCaxpyBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpyBatchedFortran type(c_ptr), value :: handle @@ -1629,7 +1629,7 @@ end function hipblasCaxpyBatchedFortran function hipblasZaxpyBatchedFortran(handle, n, alpha, x, incx, y, incy, batch_count) & bind(c, name='hipblasZaxpyBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpyBatchedFortran type(c_ptr), value :: handle @@ -1649,7 +1649,7 @@ end function hipblasZaxpyBatchedFortran function hipblasHaxpyStridedBatchedFortran(handle, n, alpha, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='hipblasHaxpyStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHaxpyStridedBatchedFortran type(c_ptr), value :: handle @@ -1670,7 +1670,7 @@ end function hipblasHaxpyStridedBatchedFortran function hipblasSaxpyStridedBatchedFortran(handle, n, alpha, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='hipblasSaxpyStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpyStridedBatchedFortran type(c_ptr), value :: handle @@ -1691,7 +1691,7 @@ end function hipblasSaxpyStridedBatchedFortran function hipblasDaxpyStridedBatchedFortran(handle, n, alpha, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='hipblasDaxpyStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpyStridedBatchedFortran type(c_ptr), value :: handle @@ -1712,7 +1712,7 @@ end function hipblasDaxpyStridedBatchedFortran function hipblasCaxpyStridedBatchedFortran(handle, n, alpha, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='hipblasCaxpyStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpyStridedBatchedFortran type(c_ptr), value :: handle @@ -1733,7 +1733,7 @@ end function hipblasCaxpyStridedBatchedFortran function hipblasZaxpyStridedBatchedFortran(handle, n, alpha, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='hipblasZaxpyStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpyStridedBatchedFortran type(c_ptr), value :: handle @@ -1755,7 +1755,7 @@ end function hipblasZaxpyStridedBatchedFortran function hipblasSasumFortran(handle, n, x, incx, result) & bind(c, name='hipblasSasumFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasumFortran type(c_ptr), value :: handle @@ -1771,7 +1771,7 @@ end function hipblasSasumFortran function hipblasDasumFortran(handle, n, x, incx, result) & bind(c, name='hipblasDasumFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasumFortran type(c_ptr), value :: handle @@ -1787,7 +1787,7 @@ end function hipblasDasumFortran function hipblasScasumFortran(handle, n, x, incx, result) & bind(c, name='hipblasScasumFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasumFortran type(c_ptr), value :: handle @@ -1803,7 +1803,7 @@ end function hipblasScasumFortran function hipblasDzasumFortran(handle, n, x, incx, result) & bind(c, name='hipblasDzasumFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasumFortran type(c_ptr), value :: handle @@ -1820,7 +1820,7 @@ end function hipblasDzasumFortran function hipblasSasumBatchedFortran(handle, n, x, incx, batch_count, result) & bind(c, name='hipblasSasumBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasumBatchedFortran type(c_ptr), value :: handle @@ -1837,7 +1837,7 @@ end function hipblasSasumBatchedFortran function hipblasDasumBatchedFortran(handle, n, x, incx, batch_count, result) & bind(c, name='hipblasDasumBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasumBatchedFortran type(c_ptr), value :: handle @@ -1854,7 +1854,7 @@ end function hipblasDasumBatchedFortran function hipblasScasumBatchedFortran(handle, n, x, incx, batch_count, result) & bind(c, name='hipblasScasumBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasumBatchedFortran type(c_ptr), value :: handle @@ -1871,7 +1871,7 @@ end function hipblasScasumBatchedFortran function hipblasDzasumBatchedFortran(handle, n, x, incx, batch_count, result) & bind(c, name='hipblasDzasumBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasumBatchedFortran type(c_ptr), value :: handle @@ -1889,7 +1889,7 @@ end function hipblasDzasumBatchedFortran function hipblasSasumStridedBatchedFortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='hipblasSasumStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasumStridedBatchedFortran type(c_ptr), value :: handle @@ -1907,7 +1907,7 @@ end function hipblasSasumStridedBatchedFortran function hipblasDasumStridedBatchedFortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='hipblasDasumStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasumStridedBatchedFortran type(c_ptr), value :: handle @@ -1925,7 +1925,7 @@ end function hipblasDasumStridedBatchedFortran function hipblasScasumStridedBatchedFortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='hipblasScasumStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasumStridedBatchedFortran type(c_ptr), value :: handle @@ -1943,7 +1943,7 @@ end function hipblasScasumStridedBatchedFortran function hipblasDzasumStridedBatchedFortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='hipblasDzasumStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasumStridedBatchedFortran type(c_ptr), value :: handle @@ -1962,7 +1962,7 @@ end function hipblasDzasumStridedBatchedFortran function hipblasSnrm2Fortran(handle, n, x, incx, result) & bind(c, name='hipblasSnrm2Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2Fortran type(c_ptr), value :: handle @@ -1978,7 +1978,7 @@ end function hipblasSnrm2Fortran function hipblasDnrm2Fortran(handle, n, x, incx, result) & bind(c, name='hipblasDnrm2Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2Fortran type(c_ptr), value :: handle @@ -1994,7 +1994,7 @@ end function hipblasDnrm2Fortran function hipblasScnrm2Fortran(handle, n, x, incx, result) & bind(c, name='hipblasScnrm2Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2Fortran type(c_ptr), value :: handle @@ -2010,7 +2010,7 @@ end function hipblasScnrm2Fortran function hipblasDznrm2Fortran(handle, n, x, incx, result) & bind(c, name='hipblasDznrm2Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2Fortran type(c_ptr), value :: handle @@ -2027,7 +2027,7 @@ end function hipblasDznrm2Fortran function hipblasSnrm2BatchedFortran(handle, n, x, incx, batch_count, result) & bind(c, name='hipblasSnrm2BatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2BatchedFortran type(c_ptr), value :: handle @@ -2044,7 +2044,7 @@ end function hipblasSnrm2BatchedFortran function hipblasDnrm2BatchedFortran(handle, n, x, incx, batch_count, result) & bind(c, name='hipblasDnrm2BatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2BatchedFortran type(c_ptr), value :: handle @@ -2061,7 +2061,7 @@ end function hipblasDnrm2BatchedFortran function hipblasScnrm2BatchedFortran(handle, n, x, incx, batch_count, result) & bind(c, name='hipblasScnrm2BatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2BatchedFortran type(c_ptr), value :: handle @@ -2078,7 +2078,7 @@ end function hipblasScnrm2BatchedFortran function hipblasDznrm2BatchedFortran(handle, n, x, incx, batch_count, result) & bind(c, name='hipblasDznrm2BatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2BatchedFortran type(c_ptr), value :: handle @@ -2096,7 +2096,7 @@ end function hipblasDznrm2BatchedFortran function hipblasSnrm2StridedBatchedFortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='hipblasSnrm2StridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2StridedBatchedFortran type(c_ptr), value :: handle @@ -2114,7 +2114,7 @@ end function hipblasSnrm2StridedBatchedFortran function hipblasDnrm2StridedBatchedFortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='hipblasDnrm2StridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2StridedBatchedFortran type(c_ptr), value :: handle @@ -2132,7 +2132,7 @@ end function hipblasDnrm2StridedBatchedFortran function hipblasScnrm2StridedBatchedFortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='hipblasScnrm2StridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2StridedBatchedFortran type(c_ptr), value :: handle @@ -2150,7 +2150,7 @@ end function hipblasScnrm2StridedBatchedFortran function hipblasDznrm2StridedBatchedFortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='hipblasDznrm2StridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2StridedBatchedFortran type(c_ptr), value :: handle @@ -2169,7 +2169,7 @@ end function hipblasDznrm2StridedBatchedFortran function hipblasIsamaxFortran(handle, n, x, incx, result) & bind(c, name='hipblasIsamaxFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamaxFortran type(c_ptr), value :: handle @@ -2185,7 +2185,7 @@ end function hipblasIsamaxFortran function hipblasIdamaxFortran(handle, n, x, incx, result) & bind(c, name='hipblasIdamaxFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamaxFortran type(c_ptr), value :: handle @@ -2201,7 +2201,7 @@ end function hipblasIdamaxFortran function hipblasIcamaxFortran(handle, n, x, incx, result) & bind(c, name='hipblasIcamaxFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamaxFortran type(c_ptr), value :: handle @@ -2217,7 +2217,7 @@ end function hipblasIcamaxFortran function hipblasIzamaxFortran(handle, n, x, incx, result) & bind(c, name='hipblasIzamaxFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamaxFortran type(c_ptr), value :: handle @@ -2234,7 +2234,7 @@ end function hipblasIzamaxFortran function hipblasIsamaxBatchedFortran(handle, n, x, incx, batch_count, result) & bind(c, name='hipblasIsamaxBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamaxBatchedFortran type(c_ptr), value :: handle @@ -2251,7 +2251,7 @@ end function hipblasIsamaxBatchedFortran function hipblasIdamaxBatchedFortran(handle, n, x, incx, batch_count, result) & bind(c, name='hipblasIdamaxBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamaxBatchedFortran type(c_ptr), value :: handle @@ -2268,7 +2268,7 @@ end function hipblasIdamaxBatchedFortran function hipblasIcamaxBatchedFortran(handle, n, x, incx, batch_count, result) & bind(c, name='hipblasIcamaxBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamaxBatchedFortran type(c_ptr), value :: handle @@ -2285,7 +2285,7 @@ end function hipblasIcamaxBatchedFortran function hipblasIzamaxBatchedFortran(handle, n, x, incx, batch_count, result) & bind(c, name='hipblasIzamaxBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamaxBatchedFortran type(c_ptr), value :: handle @@ -2303,7 +2303,7 @@ end function hipblasIzamaxBatchedFortran function hipblasIsamaxStridedBatchedFortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='hipblasIsamaxStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamaxStridedBatchedFortran type(c_ptr), value :: handle @@ -2321,7 +2321,7 @@ end function hipblasIsamaxStridedBatchedFortran function hipblasIdamaxStridedBatchedFortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='hipblasIdamaxStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamaxStridedBatchedFortran type(c_ptr), value :: handle @@ -2339,7 +2339,7 @@ end function hipblasIdamaxStridedBatchedFortran function hipblasIcamaxStridedBatchedFortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='hipblasIcamaxStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamaxStridedBatchedFortran type(c_ptr), value :: handle @@ -2357,7 +2357,7 @@ end function hipblasIcamaxStridedBatchedFortran function hipblasIzamaxStridedBatchedFortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='hipblasIzamaxStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamaxStridedBatchedFortran type(c_ptr), value :: handle @@ -2376,7 +2376,7 @@ end function hipblasIzamaxStridedBatchedFortran function hipblasIsaminFortran(handle, n, x, incx, result) & bind(c, name='hipblasIsaminFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsaminFortran type(c_ptr), value :: handle @@ -2392,7 +2392,7 @@ end function hipblasIsaminFortran function hipblasIdaminFortran(handle, n, x, incx, result) & bind(c, name='hipblasIdaminFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdaminFortran type(c_ptr), value :: handle @@ -2408,7 +2408,7 @@ end function hipblasIdaminFortran function hipblasIcaminFortran(handle, n, x, incx, result) & bind(c, name='hipblasIcaminFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcaminFortran type(c_ptr), value :: handle @@ -2424,7 +2424,7 @@ end function hipblasIcaminFortran function hipblasIzaminFortran(handle, n, x, incx, result) & bind(c, name='hipblasIzaminFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzaminFortran type(c_ptr), value :: handle @@ -2441,7 +2441,7 @@ end function hipblasIzaminFortran function hipblasIsaminBatchedFortran(handle, n, x, incx, batch_count, result) & bind(c, name='hipblasIsaminBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsaminBatchedFortran type(c_ptr), value :: handle @@ -2458,7 +2458,7 @@ end function hipblasIsaminBatchedFortran function hipblasIdaminBatchedFortran(handle, n, x, incx, batch_count, result) & bind(c, name='hipblasIdaminBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdaminBatchedFortran type(c_ptr), value :: handle @@ -2475,7 +2475,7 @@ end function hipblasIdaminBatchedFortran function hipblasIcaminBatchedFortran(handle, n, x, incx, batch_count, result) & bind(c, name='hipblasIcaminBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcaminBatchedFortran type(c_ptr), value :: handle @@ -2492,7 +2492,7 @@ end function hipblasIcaminBatchedFortran function hipblasIzaminBatchedFortran(handle, n, x, incx, batch_count, result) & bind(c, name='hipblasIzaminBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzaminBatchedFortran type(c_ptr), value :: handle @@ -2510,7 +2510,7 @@ end function hipblasIzaminBatchedFortran function hipblasIsaminStridedBatchedFortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='hipblasIsaminStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsaminStridedBatchedFortran type(c_ptr), value :: handle @@ -2528,7 +2528,7 @@ end function hipblasIsaminStridedBatchedFortran function hipblasIdaminStridedBatchedFortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='hipblasIdaminStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdaminStridedBatchedFortran type(c_ptr), value :: handle @@ -2546,7 +2546,7 @@ end function hipblasIdaminStridedBatchedFortran function hipblasIcaminStridedBatchedFortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='hipblasIcaminStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcaminStridedBatchedFortran type(c_ptr), value :: handle @@ -2564,7 +2564,7 @@ end function hipblasIcaminStridedBatchedFortran function hipblasIzaminStridedBatchedFortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='hipblasIzaminStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzaminStridedBatchedFortran type(c_ptr), value :: handle @@ -2583,7 +2583,7 @@ end function hipblasIzaminStridedBatchedFortran function hipblasSrotFortran(handle, n, x, incx, y, incy, c, s) & bind(c, name='hipblasSrotFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotFortran type(c_ptr), value :: handle @@ -2602,7 +2602,7 @@ end function hipblasSrotFortran function hipblasDrotFortran(handle, n, x, incx, y, incy, c, s) & bind(c, name='hipblasDrotFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotFortran type(c_ptr), value :: handle @@ -2621,7 +2621,7 @@ end function hipblasDrotFortran function hipblasCrotFortran(handle, n, x, incx, y, incy, c, s) & bind(c, name='hipblasCrotFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotFortran type(c_ptr), value :: handle @@ -2640,7 +2640,7 @@ end function hipblasCrotFortran function hipblasCsrotFortran(handle, n, x, incx, y, incy, c, s) & bind(c, name='hipblasCsrotFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrotFortran type(c_ptr), value :: handle @@ -2659,7 +2659,7 @@ end function hipblasCsrotFortran function hipblasZrotFortran(handle, n, x, incx, y, incy, c, s) & bind(c, name='hipblasZrotFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotFortran type(c_ptr), value :: handle @@ -2678,7 +2678,7 @@ end function hipblasZrotFortran function hipblasZdrotFortran(handle, n, x, incx, y, incy, c, s) & bind(c, name='hipblasZdrotFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrotFortran type(c_ptr), value :: handle @@ -2698,7 +2698,7 @@ end function hipblasZdrotFortran function hipblasSrotBatchedFortran(handle, n, x, incx, y, incy, c, s, batch_count) & bind(c, name='hipblasSrotBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotBatchedFortran type(c_ptr), value :: handle @@ -2718,7 +2718,7 @@ end function hipblasSrotBatchedFortran function hipblasDrotBatchedFortran(handle, n, x, incx, y, incy, c, s, batch_count) & bind(c, name='hipblasDrotBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotBatchedFortran type(c_ptr), value :: handle @@ -2738,7 +2738,7 @@ end function hipblasDrotBatchedFortran function hipblasCrotBatchedFortran(handle, n, x, incx, y, incy, c, s, batch_count) & bind(c, name='hipblasCrotBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotBatchedFortran type(c_ptr), value :: handle @@ -2758,7 +2758,7 @@ end function hipblasCrotBatchedFortran function hipblasCsrotBatchedFortran(handle, n, x, incx, y, incy, c, s, batch_count) & bind(c, name='hipblasCsrotBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrotBatchedFortran type(c_ptr), value :: handle @@ -2778,7 +2778,7 @@ end function hipblasCsrotBatchedFortran function hipblasZrotBatchedFortran(handle, n, x, incx, y, incy, c, s, batch_count) & bind(c, name='hipblasZrotBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotBatchedFortran type(c_ptr), value :: handle @@ -2798,7 +2798,7 @@ end function hipblasZrotBatchedFortran function hipblasZdrotBatchedFortran(handle, n, x, incx, y, incy, c, s, batch_count) & bind(c, name='hipblasZdrotBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrotBatchedFortran type(c_ptr), value :: handle @@ -2819,7 +2819,7 @@ end function hipblasZdrotBatchedFortran function hipblasSrotStridedBatchedFortran(handle, n, x, incx, stride_x, y, incy, stride_y, c, s, batch_count) & bind(c, name='hipblasSrotStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotStridedBatchedFortran type(c_ptr), value :: handle @@ -2841,7 +2841,7 @@ end function hipblasSrotStridedBatchedFortran function hipblasDrotStridedBatchedFortran(handle, n, x, incx, stride_x, y, incy, stride_y, c, s, batch_count) & bind(c, name='hipblasDrotStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotStridedBatchedFortran type(c_ptr), value :: handle @@ -2863,7 +2863,7 @@ end function hipblasDrotStridedBatchedFortran function hipblasCrotStridedBatchedFortran(handle, n, x, incx, stride_x, y, incy, stride_y, c, s, batch_count) & bind(c, name='hipblasCrotStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotStridedBatchedFortran type(c_ptr), value :: handle @@ -2885,7 +2885,7 @@ end function hipblasCrotStridedBatchedFortran function hipblasCsrotStridedBatchedFortran(handle, n, x, incx, stride_x, y, incy, stride_y, c, s, batch_count) & bind(c, name='hipblasCsrotStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrotStridedBatchedFortran type(c_ptr), value :: handle @@ -2907,7 +2907,7 @@ end function hipblasCsrotStridedBatchedFortran function hipblasZrotStridedBatchedFortran(handle, n, x, incx, stride_x, y, incy, stride_y, c, s, batch_count) & bind(c, name='hipblasZrotStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotStridedBatchedFortran type(c_ptr), value :: handle @@ -2929,7 +2929,7 @@ end function hipblasZrotStridedBatchedFortran function hipblasZdrotStridedBatchedFortran(handle, n, x, incx, stride_x, y, incy, stride_y, c, s, batch_count) & bind(c, name='hipblasZdrotStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrotStridedBatchedFortran type(c_ptr), value :: handle @@ -2952,7 +2952,7 @@ end function hipblasZdrotStridedBatchedFortran function hipblasSrotgFortran(handle, a, b, c, s) & bind(c, name='hipblasSrotgFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotgFortran type(c_ptr), value :: handle @@ -2968,7 +2968,7 @@ end function hipblasSrotgFortran function hipblasDrotgFortran(handle, a, b, c, s) & bind(c, name='hipblasDrotgFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotgFortran type(c_ptr), value :: handle @@ -2984,7 +2984,7 @@ end function hipblasDrotgFortran function hipblasCrotgFortran(handle, a, b, c, s) & bind(c, name='hipblasCrotgFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotgFortran type(c_ptr), value :: handle @@ -3000,7 +3000,7 @@ end function hipblasCrotgFortran function hipblasZrotgFortran(handle, a, b, c, s) & bind(c, name='hipblasZrotgFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotgFortran type(c_ptr), value :: handle @@ -3017,7 +3017,7 @@ end function hipblasZrotgFortran function hipblasSrotgBatchedFortran(handle, a, b, c, s, batch_count) & bind(c, name='hipblasSrotgBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotgBatchedFortran type(c_ptr), value :: handle @@ -3034,7 +3034,7 @@ end function hipblasSrotgBatchedFortran function hipblasDrotgBatchedFortran(handle, a, b, c, s, batch_count) & bind(c, name='hipblasDrotgBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotgBatchedFortran type(c_ptr), value :: handle @@ -3051,7 +3051,7 @@ end function hipblasDrotgBatchedFortran function hipblasCrotgBatchedFortran(handle, a, b, c, s, batch_count) & bind(c, name='hipblasCrotgBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotgBatchedFortran type(c_ptr), value :: handle @@ -3068,7 +3068,7 @@ end function hipblasCrotgBatchedFortran function hipblasZrotgBatchedFortran(handle, a, b, c, s, batch_count) & bind(c, name='hipblasZrotgBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotgBatchedFortran type(c_ptr), value :: handle @@ -3086,7 +3086,7 @@ end function hipblasZrotgBatchedFortran function hipblasSrotgStridedBatchedFortran(handle, a, stride_a, b, stride_b, c, stride_c, s, stride_s, batch_count) & bind(c, name='hipblasSrotgStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotgStridedBatchedFortran type(c_ptr), value :: handle @@ -3107,7 +3107,7 @@ end function hipblasSrotgStridedBatchedFortran function hipblasDrotgStridedBatchedFortran(handle, a, stride_a, b, stride_b, c, stride_c, s, stride_s, batch_count) & bind(c, name='hipblasDrotgStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotgStridedBatchedFortran type(c_ptr), value :: handle @@ -3128,7 +3128,7 @@ end function hipblasDrotgStridedBatchedFortran function hipblasCrotgStridedBatchedFortran(handle, a, stride_a, b, stride_b, c, stride_c, s, stride_s, batch_count) & bind(c, name='hipblasCrotgStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotgStridedBatchedFortran type(c_ptr), value :: handle @@ -3149,7 +3149,7 @@ end function hipblasCrotgStridedBatchedFortran function hipblasZrotgStridedBatchedFortran(handle, a, stride_a, b, stride_b, c, stride_c, s, stride_s, batch_count) & bind(c, name='hipblasZrotgStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotgStridedBatchedFortran type(c_ptr), value :: handle @@ -3171,7 +3171,7 @@ end function hipblasZrotgStridedBatchedFortran function hipblasSrotmFortran(handle, n, x, incx, y, incy, param) & bind(c, name='hipblasSrotmFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmFortran type(c_ptr), value :: handle @@ -3189,7 +3189,7 @@ end function hipblasSrotmFortran function hipblasDrotmFortran(handle, n, x, incx, y, incy, param) & bind(c, name='hipblasDrotmFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmFortran type(c_ptr), value :: handle @@ -3208,7 +3208,7 @@ end function hipblasDrotmFortran function hipblasSrotmBatchedFortran(handle, n, x, incx, y, incy, param, batch_count) & bind(c, name='hipblasSrotmBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmBatchedFortran type(c_ptr), value :: handle @@ -3227,7 +3227,7 @@ end function hipblasSrotmBatchedFortran function hipblasDrotmBatchedFortran(handle, n, x, incx, y, incy, param, batch_count) & bind(c, name='hipblasDrotmBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmBatchedFortran type(c_ptr), value :: handle @@ -3248,7 +3248,7 @@ function hipblasSrotmStridedBatchedFortran(handle, n, x, incx, stride_x, y, incy stride_param, batch_count) & bind(c, name='hipblasSrotmStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmStridedBatchedFortran type(c_ptr), value :: handle @@ -3272,7 +3272,7 @@ function hipblasDrotmStridedBatchedFortran(handle, n, x, incx, stride_x, y, incy stride_param, batch_count) & bind(c, name='hipblasDrotmStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmStridedBatchedFortran type(c_ptr), value :: handle @@ -3296,7 +3296,7 @@ end function hipblasDrotmStridedBatchedFortran function hipblasSrotmgFortran(handle, d1, d2, x1, y1, param) & bind(c, name='hipblasSrotmgFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmgFortran type(c_ptr), value :: handle @@ -3313,7 +3313,7 @@ end function hipblasSrotmgFortran function hipblasDrotmgFortran(handle, d1, d2, x1, y1, param) & bind(c, name='hipblasDrotmgFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmgFortran type(c_ptr), value :: handle @@ -3331,7 +3331,7 @@ end function hipblasDrotmgFortran function hipblasSrotmgBatchedFortran(handle, d1, d2, x1, y1, param, batch_count) & bind(c, name='hipblasSrotmgBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmgBatchedFortran type(c_ptr), value :: handle @@ -3349,7 +3349,7 @@ end function hipblasSrotmgBatchedFortran function hipblasDrotmgBatchedFortran(handle, d1, d2, x1, y1, param, batch_count) & bind(c, name='hipblasDrotmgBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmgBatchedFortran type(c_ptr), value :: handle @@ -3369,7 +3369,7 @@ function hipblasSrotmgStridedBatchedFortran(handle, d1, stride_d1, d2, stride_d2 y1, stride_y1, param, stride_param, batch_count) & bind(c, name='hipblasSrotmgStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmgStridedBatchedFortran type(c_ptr), value :: handle @@ -3394,7 +3394,7 @@ function hipblasDrotmgStridedBatchedFortran(handle, d1, stride_d1, d2, stride_d2 y1, stride_y1, param, stride_param, batch_count) & bind(c, name='hipblasDrotmgStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmgStridedBatchedFortran type(c_ptr), value :: handle @@ -3423,7 +3423,7 @@ end function hipblasDrotmgStridedBatchedFortran function hipblasSgbmvFortran(handle, trans, m, n, kl, ku, alpha, A, lda, x, incx, beta, y, incy) & bind(c, name='hipblasSgbmvFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmvFortran type(c_ptr), value :: handle @@ -3447,7 +3447,7 @@ end function hipblasSgbmvFortran function hipblasDgbmvFortran(handle, trans, m, n, kl, ku, alpha, A, lda, x, incx, beta, y, incy) & bind(c, name='hipblasDgbmvFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmvFortran type(c_ptr), value :: handle @@ -3471,7 +3471,7 @@ end function hipblasDgbmvFortran function hipblasCgbmvFortran(handle, trans, m, n, kl, ku, alpha, A, lda, x, incx, beta, y, incy) & bind(c, name='hipblasCgbmvFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmvFortran type(c_ptr), value :: handle @@ -3495,7 +3495,7 @@ end function hipblasCgbmvFortran function hipblasZgbmvFortran(handle, trans, m, n, kl, ku, alpha, A, lda, x, incx, beta, y, incy) & bind(c, name='hipblasZgbmvFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmvFortran type(c_ptr), value :: handle @@ -3521,7 +3521,7 @@ function hipblasSgbmvBatchedFortran(handle, trans, m, n, kl, ku, alpha, A, lda, x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasSgbmvBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmvBatchedFortran type(c_ptr), value :: handle @@ -3548,7 +3548,7 @@ function hipblasDgbmvBatchedFortran(handle, trans, m, n, kl, ku, alpha, A, lda, x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasDgbmvBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmvBatchedFortran type(c_ptr), value :: handle @@ -3575,7 +3575,7 @@ function hipblasCgbmvBatchedFortran(handle, trans, m, n, kl, ku, alpha, A, lda, x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasCgbmvBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmvBatchedFortran type(c_ptr), value :: handle @@ -3602,7 +3602,7 @@ function hipblasZgbmvBatchedFortran(handle, trans, m, n, kl, ku, alpha, A, lda, x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasZgbmvBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmvBatchedFortran type(c_ptr), value :: handle @@ -3630,7 +3630,7 @@ function hipblasSgbmvStridedBatchedFortran(handle, trans, m, n, kl, ku, alpha, A x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasSgbmvStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmvStridedBatchedFortran type(c_ptr), value :: handle @@ -3660,7 +3660,7 @@ function hipblasDgbmvStridedBatchedFortran(handle, trans, m, n, kl, ku, alpha, A x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasDgbmvStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmvStridedBatchedFortran type(c_ptr), value :: handle @@ -3690,7 +3690,7 @@ function hipblasCgbmvStridedBatchedFortran(handle, trans, m, n, kl, ku, alpha, A x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasCgbmvStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmvStridedBatchedFortran type(c_ptr), value :: handle @@ -3720,7 +3720,7 @@ function hipblasZgbmvStridedBatchedFortran(handle, trans, m, n, kl, ku, alpha, A x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasZgbmvStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmvStridedBatchedFortran type(c_ptr), value :: handle @@ -3751,7 +3751,7 @@ function hipblasSgemvFortran(handle, trans, m, n, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='hipblasSgemvFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemvFortran type(c_ptr), value :: handle @@ -3774,7 +3774,7 @@ function hipblasDgemvFortran(handle, trans, m, n, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='hipblasDgemvFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemvFortran type(c_ptr), value :: handle @@ -3797,7 +3797,7 @@ function hipblasCgemvFortran(handle, trans, m, n, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='hipblasCgemvFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemvFortran type(c_ptr), value :: handle @@ -3820,7 +3820,7 @@ function hipblasZgemvFortran(handle, trans, m, n, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='hipblasZgemvFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemvFortran type(c_ptr), value :: handle @@ -3844,7 +3844,7 @@ function hipblasSgemvBatchedFortran(handle, trans, m, n, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasSgemvBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemvBatchedFortran type(c_ptr), value :: handle @@ -3868,7 +3868,7 @@ function hipblasDgemvBatchedFortran(handle, trans, m, n, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasDgemvBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemvBatchedFortran type(c_ptr), value :: handle @@ -3892,7 +3892,7 @@ function hipblasCgemvBatchedFortran(handle, trans, m, n, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasCgemvBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemvBatchedFortran type(c_ptr), value :: handle @@ -3916,7 +3916,7 @@ function hipblasZgemvBatchedFortran(handle, trans, m, n, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasZgemvBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemvBatchedFortran type(c_ptr), value :: handle @@ -3941,7 +3941,7 @@ function hipblasSgemvStridedBatchedFortran(handle, trans, m, n, alpha, A, lda, s x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasSgemvStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemvStridedBatchedFortran type(c_ptr), value :: handle @@ -3969,7 +3969,7 @@ function hipblasDgemvStridedBatchedFortran(handle, trans, m, n, alpha, A, lda, s x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasDgemvStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemvStridedBatchedFortran type(c_ptr), value :: handle @@ -3997,7 +3997,7 @@ function hipblasCgemvStridedBatchedFortran(handle, trans, m, n, alpha, A, lda, s x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasCgemvStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemvStridedBatchedFortran type(c_ptr), value :: handle @@ -4025,7 +4025,7 @@ function hipblasZgemvStridedBatchedFortran(handle, trans, m, n, alpha, A, lda, s x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasZgemvStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemvStridedBatchedFortran type(c_ptr), value :: handle @@ -4054,7 +4054,7 @@ function hipblasChbmvFortran(handle, uplo, n, k, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='hipblasChbmvFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmvFortran type(c_ptr), value :: handle @@ -4077,7 +4077,7 @@ function hipblasZhbmvFortran(handle, uplo, n, k, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='hipblasZhbmvFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmvFortran type(c_ptr), value :: handle @@ -4101,7 +4101,7 @@ function hipblasChbmvBatchedFortran(handle, uplo, n, k, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasChbmvBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmvBatchedFortran type(c_ptr), value :: handle @@ -4126,7 +4126,7 @@ function hipblasZhbmvBatchedFortran(handle, uplo, n, k, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasZhbmvBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmvBatchedFortran type(c_ptr), value :: handle @@ -4152,7 +4152,7 @@ function hipblasChbmvStridedBatchedFortran(handle, uplo, n, k, alpha, A, lda, st x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasChbmvStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmvStridedBatchedFortran type(c_ptr), value :: handle @@ -4180,7 +4180,7 @@ function hipblasZhbmvStridedBatchedFortran(handle, uplo, n, k, alpha, A, lda, st x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasZhbmvStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmvStridedBatchedFortran type(c_ptr), value :: handle @@ -4209,7 +4209,7 @@ function hipblasChemvFortran(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='hipblasChemvFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemvFortran type(c_ptr), value :: handle @@ -4231,7 +4231,7 @@ function hipblasZhemvFortran(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='hipblasZhemvFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemvFortran type(c_ptr), value :: handle @@ -4254,7 +4254,7 @@ function hipblasChemvBatchedFortran(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasChemvBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemvBatchedFortran type(c_ptr), value :: handle @@ -4278,7 +4278,7 @@ function hipblasZhemvBatchedFortran(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasZhemvBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemvBatchedFortran type(c_ptr), value :: handle @@ -4303,7 +4303,7 @@ function hipblasChemvStridedBatchedFortran(handle, uplo, n, alpha, A, lda, strid x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasChemvStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemvStridedBatchedFortran type(c_ptr), value :: handle @@ -4330,7 +4330,7 @@ function hipblasZhemvStridedBatchedFortran(handle, uplo, n, alpha, A, lda, strid x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasZhemvStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemvStridedBatchedFortran type(c_ptr), value :: handle @@ -4358,7 +4358,7 @@ function hipblasCherFortran(handle, uplo, n, alpha, & x, incx, A, lda) & bind(c, name='hipblasCherFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherFortran type(c_ptr), value :: handle @@ -4377,7 +4377,7 @@ function hipblasZherFortran(handle, uplo, n, alpha, & x, incx, A, lda) & bind(c, name='hipblasZherFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherFortran type(c_ptr), value :: handle @@ -4397,7 +4397,7 @@ function hipblasCherBatchedFortran(handle, uplo, n, alpha, & x, incx, A, lda, batch_count) & bind(c, name='hipblasCherBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherBatchedFortran type(c_ptr), value :: handle @@ -4417,7 +4417,7 @@ function hipblasZherBatchedFortran(handle, uplo, n, alpha, & x, incx, A, lda, batch_count) & bind(c, name='hipblasZherBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherBatchedFortran type(c_ptr), value :: handle @@ -4438,7 +4438,7 @@ function hipblasCherStridedBatchedFortran(handle, uplo, n, alpha, & x, incx, stride_x, A, lda, stride_A, batch_count) & bind(c, name='hipblasCherStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherStridedBatchedFortran type(c_ptr), value :: handle @@ -4461,7 +4461,7 @@ function hipblasZherStridedBatchedFortran(handle, uplo, n, alpha, & x, incx, stride_x, A, lda, stride_A, batch_count) & bind(c, name='hipblasZherStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherStridedBatchedFortran type(c_ptr), value :: handle @@ -4485,7 +4485,7 @@ function hipblasCher2Fortran(handle, uplo, n, alpha, & x, incx, y, incy, A, lda) & bind(c, name='hipblasCher2Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2Fortran type(c_ptr), value :: handle @@ -4507,7 +4507,7 @@ function hipblasZher2Fortran(handle, uplo, n, alpha, & x, incx, y, incy, A, lda) & bind(c, name='hipblasZher2Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2Fortran type(c_ptr), value :: handle @@ -4530,7 +4530,7 @@ function hipblasCher2BatchedFortran(handle, uplo, n, alpha, & x, incx, y, incy, A, lda, batch_count) & bind(c, name='hipblasCher2BatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2BatchedFortran type(c_ptr), value :: handle @@ -4553,7 +4553,7 @@ function hipblasZher2BatchedFortran(handle, uplo, n, alpha, & x, incx, y, incy, A, lda, batch_count) & bind(c, name='hipblasZher2BatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2BatchedFortran type(c_ptr), value :: handle @@ -4577,7 +4577,7 @@ function hipblasCher2StridedBatchedFortran(handle, uplo, n, alpha, & x, incx, stride_x, y, incy, stride_y, A, lda, stride_A, batch_count) & bind(c, name='hipblasCher2StridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2StridedBatchedFortran type(c_ptr), value :: handle @@ -4603,7 +4603,7 @@ function hipblasZher2StridedBatchedFortran(handle, uplo, n, alpha, & x, incx, stride_x, y, incy, stride_y, A, lda, stride_A, batch_count) & bind(c, name='hipblasZher2StridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2StridedBatchedFortran type(c_ptr), value :: handle @@ -4630,7 +4630,7 @@ function hipblasChpmvFortran(handle, uplo, n, alpha, AP, & x, incx, beta, y, incy) & bind(c, name='hipblasChpmvFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmvFortran type(c_ptr), value :: handle @@ -4652,7 +4652,7 @@ function hipblasZhpmvFortran(handle, uplo, n, alpha, AP, & x, incx, beta, y, incy) & bind(c, name='hipblasZhpmvFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmvFortran type(c_ptr), value :: handle @@ -4675,7 +4675,7 @@ function hipblasChpmvBatchedFortran(handle, uplo, n, alpha, AP, & x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasChpmvBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmvBatchedFortran type(c_ptr), value :: handle @@ -4698,7 +4698,7 @@ function hipblasZhpmvBatchedFortran(handle, uplo, n, alpha, AP, & x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasZhpmvBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmvBatchedFortran type(c_ptr), value :: handle @@ -4722,7 +4722,7 @@ function hipblasChpmvStridedBatchedFortran(handle, uplo, n, alpha, AP, stride_AP x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasChpmvStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmvStridedBatchedFortran type(c_ptr), value :: handle @@ -4748,7 +4748,7 @@ function hipblasZhpmvStridedBatchedFortran(handle, uplo, n, alpha, AP, stride_AP x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasZhpmvStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmvStridedBatchedFortran type(c_ptr), value :: handle @@ -4775,7 +4775,7 @@ function hipblasChprFortran(handle, uplo, n, alpha, & x, incx, AP) & bind(c, name='hipblasChprFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChprFortran type(c_ptr), value :: handle @@ -4793,7 +4793,7 @@ function hipblasZhprFortran(handle, uplo, n, alpha, & x, incx, AP) & bind(c, name='hipblasZhprFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhprFortran type(c_ptr), value :: handle @@ -4812,7 +4812,7 @@ function hipblasChprBatchedFortran(handle, uplo, n, alpha, & x, incx, AP, batch_count) & bind(c, name='hipblasChprBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChprBatchedFortran type(c_ptr), value :: handle @@ -4831,7 +4831,7 @@ function hipblasZhprBatchedFortran(handle, uplo, n, alpha, & x, incx, AP, batch_count) & bind(c, name='hipblasZhprBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhprBatchedFortran type(c_ptr), value :: handle @@ -4851,7 +4851,7 @@ function hipblasChprStridedBatchedFortran(handle, uplo, n, alpha, & x, incx, stride_x, AP, stride_AP, batch_count) & bind(c, name='hipblasChprStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChprStridedBatchedFortran type(c_ptr), value :: handle @@ -4873,7 +4873,7 @@ function hipblasZhprStridedBatchedFortran(handle, uplo, n, alpha, & x, incx, stride_x, AP, stride_AP, batch_count) & bind(c, name='hipblasZhprStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhprStridedBatchedFortran type(c_ptr), value :: handle @@ -4896,7 +4896,7 @@ function hipblasChpr2Fortran(handle, uplo, n, alpha, & x, incx, y, incy, AP) & bind(c, name='hipblasChpr2Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2Fortran type(c_ptr), value :: handle @@ -4917,7 +4917,7 @@ function hipblasZhpr2Fortran(handle, uplo, n, alpha, & x, incx, y, incy, AP) & bind(c, name='hipblasZhpr2Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2Fortran type(c_ptr), value :: handle @@ -4939,7 +4939,7 @@ function hipblasChpr2BatchedFortran(handle, uplo, n, alpha, & x, incx, y, incy, AP, batch_count) & bind(c, name='hipblasChpr2BatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2BatchedFortran type(c_ptr), value :: handle @@ -4961,7 +4961,7 @@ function hipblasZhpr2BatchedFortran(handle, uplo, n, alpha, & x, incx, y, incy, AP, batch_count) & bind(c, name='hipblasZhpr2BatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2BatchedFortran type(c_ptr), value :: handle @@ -4984,7 +4984,7 @@ function hipblasChpr2StridedBatchedFortran(handle, uplo, n, alpha, & x, incx, stride_x, y, incy, stride_y, AP, stride_AP, batch_count) & bind(c, name='hipblasChpr2StridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2StridedBatchedFortran type(c_ptr), value :: handle @@ -5009,7 +5009,7 @@ function hipblasZhpr2StridedBatchedFortran(handle, uplo, n, alpha, & x, incx, stride_x, y, incy, stride_y, AP, stride_AP, batch_count) & bind(c, name='hipblasZhpr2StridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2StridedBatchedFortran type(c_ptr), value :: handle @@ -5035,7 +5035,7 @@ function hipblasStrmvFortran(handle, uplo, transA, diag, m, & A, lda, x, incx) & bind(c, name='hipblasStrmvFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmvFortran type(c_ptr), value :: handle @@ -5056,7 +5056,7 @@ function hipblasDtrmvFortran(handle, uplo, transA, diag, m, & A, lda, x, incx) & bind(c, name='hipblasDtrmvFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmvFortran type(c_ptr), value :: handle @@ -5077,7 +5077,7 @@ function hipblasCtrmvFortran(handle, uplo, transA, diag, m, & A, lda, x, incx) & bind(c, name='hipblasCtrmvFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmvFortran type(c_ptr), value :: handle @@ -5098,7 +5098,7 @@ function hipblasZtrmvFortran(handle, uplo, transA, diag, m, & A, lda, x, incx) & bind(c, name='hipblasZtrmvFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmvFortran type(c_ptr), value :: handle @@ -5120,7 +5120,7 @@ function hipblasStrmvBatchedFortran(handle, uplo, transA, diag, m, & A, lda, x, incx, batch_count) & bind(c, name='hipblasStrmvBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmvBatchedFortran type(c_ptr), value :: handle @@ -5142,7 +5142,7 @@ function hipblasDtrmvBatchedFortran(handle, uplo, transA, diag, m, & A, lda, x, incx, batch_count) & bind(c, name='hipblasDtrmvBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmvBatchedFortran type(c_ptr), value :: handle @@ -5164,7 +5164,7 @@ function hipblasCtrmvBatchedFortran(handle, uplo, transA, diag, m, & A, lda, x, incx, batch_count) & bind(c, name='hipblasCtrmvBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmvBatchedFortran type(c_ptr), value :: handle @@ -5186,7 +5186,7 @@ function hipblasZtrmvBatchedFortran(handle, uplo, transA, diag, m, & A, lda, x, incx, batch_count) & bind(c, name='hipblasZtrmvBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmvBatchedFortran type(c_ptr), value :: handle @@ -5209,7 +5209,7 @@ function hipblasStrmvStridedBatchedFortran(handle, uplo, transA, diag, m, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='hipblasStrmvStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmvStridedBatchedFortran type(c_ptr), value :: handle @@ -5233,7 +5233,7 @@ function hipblasDtrmvStridedBatchedFortran(handle, uplo, transA, diag, m, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='hipblasDtrmvStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmvStridedBatchedFortran type(c_ptr), value :: handle @@ -5257,7 +5257,7 @@ function hipblasCtrmvStridedBatchedFortran(handle, uplo, transA, diag, m, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='hipblasCtrmvStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmvStridedBatchedFortran type(c_ptr), value :: handle @@ -5281,7 +5281,7 @@ function hipblasZtrmvStridedBatchedFortran(handle, uplo, transA, diag, m, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='hipblasZtrmvStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmvStridedBatchedFortran type(c_ptr), value :: handle @@ -5306,7 +5306,7 @@ function hipblasStpmvFortran(handle, uplo, transA, diag, m, & AP, x, incx) & bind(c, name='hipblasStpmvFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpmvFortran type(c_ptr), value :: handle @@ -5326,7 +5326,7 @@ function hipblasDtpmvFortran(handle, uplo, transA, diag, m, & AP, x, incx) & bind(c, name='hipblasDtpmvFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpmvFortran type(c_ptr), value :: handle @@ -5346,7 +5346,7 @@ function hipblasCtpmvFortran(handle, uplo, transA, diag, m, & AP, x, incx) & bind(c, name='hipblasCtpmvFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpmvFortran type(c_ptr), value :: handle @@ -5366,7 +5366,7 @@ function hipblasZtpmvFortran(handle, uplo, transA, diag, m, & AP, x, incx) & bind(c, name='hipblasZtpmvFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpmvFortran type(c_ptr), value :: handle @@ -5387,7 +5387,7 @@ function hipblasStpmvBatchedFortran(handle, uplo, transA, diag, m, & AP, x, incx, batch_count) & bind(c, name='hipblasStpmvBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpmvBatchedFortran type(c_ptr), value :: handle @@ -5408,7 +5408,7 @@ function hipblasDtpmvBatchedFortran(handle, uplo, transA, diag, m, & AP, x, incx, batch_count) & bind(c, name='hipblasDtpmvBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpmvBatchedFortran type(c_ptr), value :: handle @@ -5429,7 +5429,7 @@ function hipblasCtpmvBatchedFortran(handle, uplo, transA, diag, m, & AP, x, incx, batch_count) & bind(c, name='hipblasCtpmvBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpmvBatchedFortran type(c_ptr), value :: handle @@ -5450,7 +5450,7 @@ function hipblasZtpmvBatchedFortran(handle, uplo, transA, diag, m, & AP, x, incx, batch_count) & bind(c, name='hipblasZtpmvBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpmvBatchedFortran type(c_ptr), value :: handle @@ -5472,7 +5472,7 @@ function hipblasStpmvStridedBatchedFortran(handle, uplo, transA, diag, m, & AP, stride_AP, x, incx, stride_x, batch_count) & bind(c, name='hipblasStpmvStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpmvStridedBatchedFortran type(c_ptr), value :: handle @@ -5495,7 +5495,7 @@ function hipblasDtpmvStridedBatchedFortran(handle, uplo, transA, diag, m, & AP, stride_AP, x, incx, stride_x, batch_count) & bind(c, name='hipblasDtpmvStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpmvStridedBatchedFortran type(c_ptr), value :: handle @@ -5518,7 +5518,7 @@ function hipblasCtpmvStridedBatchedFortran(handle, uplo, transA, diag, m, & AP, stride_AP, x, incx, stride_x, batch_count) & bind(c, name='hipblasCtpmvStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpmvStridedBatchedFortran type(c_ptr), value :: handle @@ -5541,7 +5541,7 @@ function hipblasZtpmvStridedBatchedFortran(handle, uplo, transA, diag, m, & AP, stride_AP, x, incx, stride_x, batch_count) & bind(c, name='hipblasZtpmvStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpmvStridedBatchedFortran type(c_ptr), value :: handle @@ -5565,7 +5565,7 @@ function hipblasStbmvFortran(handle, uplo, transA, diag, m, k, & A, lda, x, incx) & bind(c, name='hipblasStbmvFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbmvFortran type(c_ptr), value :: handle @@ -5587,7 +5587,7 @@ function hipblasDtbmvFortran(handle, uplo, transA, diag, m, k, & A, lda, x, incx) & bind(c, name='hipblasDtbmvFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbmvFortran type(c_ptr), value :: handle @@ -5609,7 +5609,7 @@ function hipblasCtbmvFortran(handle, uplo, transA, diag, m, k, & A, lda, x, incx) & bind(c, name='hipblasCtbmvFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbmvFortran type(c_ptr), value :: handle @@ -5631,7 +5631,7 @@ function hipblasZtbmvFortran(handle, uplo, transA, diag, m, k, & A, lda, x, incx) & bind(c, name='hipblasZtbmvFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbmvFortran type(c_ptr), value :: handle @@ -5654,7 +5654,7 @@ function hipblasStbmvBatchedFortran(handle, uplo, transA, diag, m, k, & A, lda, x, incx, batch_count) & bind(c, name='hipblasStbmvBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbmvBatchedFortran type(c_ptr), value :: handle @@ -5677,7 +5677,7 @@ function hipblasDtbmvBatchedFortran(handle, uplo, transA, diag, m, k, & A, lda, x, incx, batch_count) & bind(c, name='hipblasDtbmvBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbmvBatchedFortran type(c_ptr), value :: handle @@ -5700,7 +5700,7 @@ function hipblasCtbmvBatchedFortran(handle, uplo, transA, diag, m, k, & A, lda, x, incx, batch_count) & bind(c, name='hipblasCtbmvBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbmvBatchedFortran type(c_ptr), value :: handle @@ -5723,7 +5723,7 @@ function hipblasZtbmvBatchedFortran(handle, uplo, transA, diag, m, k, & A, lda, x, incx, batch_count) & bind(c, name='hipblasZtbmvBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbmvBatchedFortran type(c_ptr), value :: handle @@ -5747,7 +5747,7 @@ function hipblasStbmvStridedBatchedFortran(handle, uplo, transA, diag, m, k, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='hipblasStbmvStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbmvStridedBatchedFortran type(c_ptr), value :: handle @@ -5772,7 +5772,7 @@ function hipblasDtbmvStridedBatchedFortran(handle, uplo, transA, diag, m, k, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='hipblasDtbmvStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbmvStridedBatchedFortran type(c_ptr), value :: handle @@ -5797,7 +5797,7 @@ function hipblasCtbmvStridedBatchedFortran(handle, uplo, transA, diag, m, k, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='hipblasCtbmvStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbmvStridedBatchedFortran type(c_ptr), value :: handle @@ -5822,7 +5822,7 @@ function hipblasZtbmvStridedBatchedFortran(handle, uplo, transA, diag, m, k, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='hipblasZtbmvStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbmvStridedBatchedFortran type(c_ptr), value :: handle @@ -5848,7 +5848,7 @@ function hipblasStbsvFortran(handle, uplo, transA, diag, n, k, & A, lda, x, incx) & bind(c, name='hipblasStbsvFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbsvFortran type(c_ptr), value :: handle @@ -5870,7 +5870,7 @@ function hipblasDtbsvFortran(handle, uplo, transA, diag, n, k, & A, lda, x, incx) & bind(c, name='hipblasDtbsvFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbsvFortran type(c_ptr), value :: handle @@ -5892,7 +5892,7 @@ function hipblasCtbsvFortran(handle, uplo, transA, diag, n, k, & A, lda, x, incx) & bind(c, name='hipblasCtbsvFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbsvFortran type(c_ptr), value :: handle @@ -5914,7 +5914,7 @@ function hipblasZtbsvFortran(handle, uplo, transA, diag, n, k, & A, lda, x, incx) & bind(c, name='hipblasZtbsvFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbsvFortran type(c_ptr), value :: handle @@ -5937,7 +5937,7 @@ function hipblasStbsvBatchedFortran(handle, uplo, transA, diag, n, k, & A, lda, x, incx, batch_count) & bind(c, name='hipblasStbsvBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbsvBatchedFortran type(c_ptr), value :: handle @@ -5960,7 +5960,7 @@ function hipblasDtbsvBatchedFortran(handle, uplo, transA, diag, n, k, & A, lda, x, incx, batch_count) & bind(c, name='hipblasDtbsvBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbsvBatchedFortran type(c_ptr), value :: handle @@ -5983,7 +5983,7 @@ function hipblasCtbsvBatchedFortran(handle, uplo, transA, diag, n, k, & A, lda, x, incx, batch_count) & bind(c, name='hipblasCtbsvBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbsvBatchedFortran type(c_ptr), value :: handle @@ -6006,7 +6006,7 @@ function hipblasZtbsvBatchedFortran(handle, uplo, transA, diag, n, k, & A, lda, x, incx, batch_count) & bind(c, name='hipblasZtbsvBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbsvBatchedFortran type(c_ptr), value :: handle @@ -6030,7 +6030,7 @@ function hipblasStbsvStridedBatchedFortran(handle, uplo, transA, diag, n, k, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='hipblasStbsvStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbsvStridedBatchedFortran type(c_ptr), value :: handle @@ -6055,7 +6055,7 @@ function hipblasDtbsvStridedBatchedFortran(handle, uplo, transA, diag, n, k, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='hipblasDtbsvStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbsvStridedBatchedFortran type(c_ptr), value :: handle @@ -6080,7 +6080,7 @@ function hipblasCtbsvStridedBatchedFortran(handle, uplo, transA, diag, n, k, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='hipblasCtbsvStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbsvStridedBatchedFortran type(c_ptr), value :: handle @@ -6105,7 +6105,7 @@ function hipblasZtbsvStridedBatchedFortran(handle, uplo, transA, diag, n, k, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='hipblasZtbsvStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbsvStridedBatchedFortran type(c_ptr), value :: handle @@ -6131,7 +6131,7 @@ function hipblasStpsvFortran(handle, uplo, transA, diag, n, & AP, x, incx) & bind(c, name='hipblasStpsvFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpsvFortran type(c_ptr), value :: handle @@ -6151,7 +6151,7 @@ function hipblasDtpsvFortran(handle, uplo, transA, diag, n, & AP, x, incx) & bind(c, name='hipblasDtpsvFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpsvFortran type(c_ptr), value :: handle @@ -6171,7 +6171,7 @@ function hipblasCtpsvFortran(handle, uplo, transA, diag, n, & AP, x, incx) & bind(c, name='hipblasCtpsvFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpsvFortran type(c_ptr), value :: handle @@ -6191,7 +6191,7 @@ function hipblasZtpsvFortran(handle, uplo, transA, diag, n, & AP, x, incx) & bind(c, name='hipblasZtpsvFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpsvFortran type(c_ptr), value :: handle @@ -6212,7 +6212,7 @@ function hipblasStpsvBatchedFortran(handle, uplo, transA, diag, n, & AP, x, incx, batch_count) & bind(c, name='hipblasStpsvBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpsvBatchedFortran type(c_ptr), value :: handle @@ -6233,7 +6233,7 @@ function hipblasDtpsvBatchedFortran(handle, uplo, transA, diag, n, & AP, x, incx, batch_count) & bind(c, name='hipblasDtpsvBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpsvBatchedFortran type(c_ptr), value :: handle @@ -6254,7 +6254,7 @@ function hipblasCtpsvBatchedFortran(handle, uplo, transA, diag, n, & AP, x, incx, batch_count) & bind(c, name='hipblasCtpsvBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpsvBatchedFortran type(c_ptr), value :: handle @@ -6275,7 +6275,7 @@ function hipblasZtpsvBatchedFortran(handle, uplo, transA, diag, n, & AP, x, incx, batch_count) & bind(c, name='hipblasZtpsvBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpsvBatchedFortran type(c_ptr), value :: handle @@ -6297,7 +6297,7 @@ function hipblasStpsvStridedBatchedFortran(handle, uplo, transA, diag, n, & AP, stride_AP, x, incx, stride_x, batch_count) & bind(c, name='hipblasStpsvStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpsvStridedBatchedFortran type(c_ptr), value :: handle @@ -6320,7 +6320,7 @@ function hipblasDtpsvStridedBatchedFortran(handle, uplo, transA, diag, n, & AP, stride_AP, x, incx, stride_x, batch_count) & bind(c, name='hipblasDtpsvStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpsvStridedBatchedFortran type(c_ptr), value :: handle @@ -6343,7 +6343,7 @@ function hipblasCtpsvStridedBatchedFortran(handle, uplo, transA, diag, n, & AP, stride_AP, x, incx, stride_x, batch_count) & bind(c, name='hipblasCtpsvStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpsvStridedBatchedFortran type(c_ptr), value :: handle @@ -6366,7 +6366,7 @@ function hipblasZtpsvStridedBatchedFortran(handle, uplo, transA, diag, n, & AP, stride_AP, x, incx, stride_x, batch_count) & bind(c, name='hipblasZtpsvStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpsvStridedBatchedFortran type(c_ptr), value :: handle @@ -6390,7 +6390,7 @@ function hipblasSsymvFortran(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='hipblasSsymvFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymvFortran type(c_ptr), value :: handle @@ -6413,7 +6413,7 @@ function hipblasDsymvFortran(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='hipblasDsymvFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymvFortran type(c_ptr), value :: handle @@ -6436,7 +6436,7 @@ function hipblasCsymvFortran(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='hipblasCsymvFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymvFortran type(c_ptr), value :: handle @@ -6459,7 +6459,7 @@ function hipblasZsymvFortran(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='hipblasZsymvFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymvFortran type(c_ptr), value :: handle @@ -6483,7 +6483,7 @@ function hipblasSsymvBatchedFortran(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasSsymvBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymvBatchedFortran type(c_ptr), value :: handle @@ -6507,7 +6507,7 @@ function hipblasDsymvBatchedFortran(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasDsymvBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymvBatchedFortran type(c_ptr), value :: handle @@ -6531,7 +6531,7 @@ function hipblasCsymvBatchedFortran(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasCsymvBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymvBatchedFortran type(c_ptr), value :: handle @@ -6555,7 +6555,7 @@ function hipblasZsymvBatchedFortran(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasZsymvBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymvBatchedFortran type(c_ptr), value :: handle @@ -6580,7 +6580,7 @@ function hipblasSsymvStridedBatchedFortran(handle, uplo, n, alpha, A, lda, strid x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasSsymvStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymvStridedBatchedFortran type(c_ptr), value :: handle @@ -6607,7 +6607,7 @@ function hipblasDsymvStridedBatchedFortran(handle, uplo, n, alpha, A, lda, strid x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasDsymvStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymvStridedBatchedFortran type(c_ptr), value :: handle @@ -6634,7 +6634,7 @@ function hipblasCsymvStridedBatchedFortran(handle, uplo, n, alpha, A, lda, strid x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasCsymvStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymvStridedBatchedFortran type(c_ptr), value :: handle @@ -6661,7 +6661,7 @@ function hipblasZsymvStridedBatchedFortran(handle, uplo, n, alpha, A, lda, strid x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasZsymvStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymvStridedBatchedFortran type(c_ptr), value :: handle @@ -6689,7 +6689,7 @@ function hipblasSspmvFortran(handle, uplo, n, alpha, AP, & x, incx, beta, y, incy) & bind(c, name='hipblasSspmvFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmvFortran type(c_ptr), value :: handle @@ -6711,7 +6711,7 @@ function hipblasDspmvFortran(handle, uplo, n, alpha, AP, & x, incx, beta, y, incy) & bind(c, name='hipblasDspmvFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmvFortran type(c_ptr), value :: handle @@ -6734,7 +6734,7 @@ function hipblasSspmvBatchedFortran(handle, uplo, n, alpha, AP, & x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasSspmvBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmvBatchedFortran type(c_ptr), value :: handle @@ -6757,7 +6757,7 @@ function hipblasDspmvBatchedFortran(handle, uplo, n, alpha, AP, & x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasDspmvBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmvBatchedFortran type(c_ptr), value :: handle @@ -6781,7 +6781,7 @@ function hipblasSspmvStridedBatchedFortran(handle, uplo, n, alpha, AP, stride_AP x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasSspmvStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmvStridedBatchedFortran type(c_ptr), value :: handle @@ -6807,7 +6807,7 @@ function hipblasDspmvStridedBatchedFortran(handle, uplo, n, alpha, AP, stride_AP x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasDspmvStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmvStridedBatchedFortran type(c_ptr), value :: handle @@ -6834,7 +6834,7 @@ function hipblasSsbmvFortran(handle, uplo, n, k, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='hipblasSsbmvFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmvFortran type(c_ptr), value :: handle @@ -6858,7 +6858,7 @@ function hipblasDsbmvFortran(handle, uplo, n, k, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='hipblasDsbmvFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmvFortran type(c_ptr), value :: handle @@ -6883,7 +6883,7 @@ function hipblasSsbmvBatchedFortran(handle, uplo, n, k, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasSsbmvBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmvBatchedFortran type(c_ptr), value :: handle @@ -6908,7 +6908,7 @@ function hipblasDsbmvBatchedFortran(handle, uplo, n, k, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasDsbmvBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmvBatchedFortran type(c_ptr), value :: handle @@ -6934,7 +6934,7 @@ function hipblasSsbmvStridedBatchedFortran(handle, uplo, n, k, alpha, A, lda, st x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasSsbmvStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmvStridedBatchedFortran type(c_ptr), value :: handle @@ -6962,7 +6962,7 @@ function hipblasDsbmvStridedBatchedFortran(handle, uplo, n, k, alpha, A, lda, st x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasDsbmvStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmvStridedBatchedFortran type(c_ptr), value :: handle @@ -6991,7 +6991,7 @@ function hipblasSgerFortran(handle, m, n, alpha, x, incx, & y, incy, A, lda) & bind(c, name='hipblasSgerFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgerFortran type(c_ptr), value :: handle @@ -7013,7 +7013,7 @@ function hipblasDgerFortran(handle, m, n, alpha, x, incx, & y, incy, A, lda) & bind(c, name='hipblasDgerFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgerFortran type(c_ptr), value :: handle @@ -7035,7 +7035,7 @@ function hipblasCgeruFortran(handle, m, n, alpha, x, incx, & y, incy, A, lda) & bind(c, name='hipblasCgeruFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeruFortran type(c_ptr), value :: handle @@ -7057,7 +7057,7 @@ function hipblasCgercFortran(handle, m, n, alpha, x, incx, & y, incy, A, lda) & bind(c, name='hipblasCgercFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgercFortran type(c_ptr), value :: handle @@ -7079,7 +7079,7 @@ function hipblasZgeruFortran(handle, m, n, alpha, x, incx, & y, incy, A, lda) & bind(c, name='hipblasZgeruFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeruFortran type(c_ptr), value :: handle @@ -7101,7 +7101,7 @@ function hipblasZgercFortran(handle, m, n, alpha, x, incx, & y, incy, A, lda) & bind(c, name='hipblasZgercFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgercFortran type(c_ptr), value :: handle @@ -7124,7 +7124,7 @@ function hipblasSgerBatchedFortran(handle, m, n, alpha, x, incx, & y, incy, A, lda, batch_count) & bind(c, name='hipblasSgerBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgerBatchedFortran type(c_ptr), value :: handle @@ -7147,7 +7147,7 @@ function hipblasDgerBatchedFortran(handle, m, n, alpha, x, incx, & y, incy, A, lda, batch_count) & bind(c, name='hipblasDgerBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgerBatchedFortran type(c_ptr), value :: handle @@ -7170,7 +7170,7 @@ function hipblasCgeruBatchedFortran(handle, m, n, alpha, x, incx, & y, incy, A, lda, batch_count) & bind(c, name='hipblasCgeruBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeruBatchedFortran type(c_ptr), value :: handle @@ -7193,7 +7193,7 @@ function hipblasCgercBatchedFortran(handle, m, n, alpha, x, incx, & y, incy, A, lda, batch_count) & bind(c, name='hipblasCgercBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgercBatchedFortran type(c_ptr), value :: handle @@ -7216,7 +7216,7 @@ function hipblasZgeruBatchedFortran(handle, m, n, alpha, x, incx, & y, incy, A, lda, batch_count) & bind(c, name='hipblasZgeruBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeruBatchedFortran type(c_ptr), value :: handle @@ -7239,7 +7239,7 @@ function hipblasZgercBatchedFortran(handle, m, n, alpha, x, incx, & y, incy, A, lda, batch_count) & bind(c, name='hipblasZgercBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgercBatchedFortran type(c_ptr), value :: handle @@ -7263,7 +7263,7 @@ function hipblasSgerStridedBatchedFortran(handle, m, n, alpha, x, incx, stride_x y, incy, stride_y, A, lda, stride_A, batch_count) & bind(c, name='hipblasSgerStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgerStridedBatchedFortran type(c_ptr), value :: handle @@ -7289,7 +7289,7 @@ function hipblasDgerStridedBatchedFortran(handle, m, n, alpha, x, incx, stride_x y, incy, stride_y, A, lda, stride_A, batch_count) & bind(c, name='hipblasDgerStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgerStridedBatchedFortran type(c_ptr), value :: handle @@ -7315,7 +7315,7 @@ function hipblasCgeruStridedBatchedFortran(handle, m, n, alpha, x, incx, stride_ y, incy, stride_y, A, lda, stride_A, batch_count) & bind(c, name='hipblasCgeruStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeruStridedBatchedFortran type(c_ptr), value :: handle @@ -7341,7 +7341,7 @@ function hipblasCgercStridedBatchedFortran(handle, m, n, alpha, x, incx, stride_ y, incy, stride_y, A, lda, stride_A, batch_count) & bind(c, name='hipblasCgercStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgercStridedBatchedFortran type(c_ptr), value :: handle @@ -7367,7 +7367,7 @@ function hipblasZgeruStridedBatchedFortran(handle, m, n, alpha, x, incx, stride_ y, incy, stride_y, A, lda, stride_A, batch_count) & bind(c, name='hipblasZgeruStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeruStridedBatchedFortran type(c_ptr), value :: handle @@ -7393,7 +7393,7 @@ function hipblasZgercStridedBatchedFortran(handle, m, n, alpha, x, incx, stride_ y, incy, stride_y, A, lda, stride_A, batch_count) & bind(c, name='hipblasZgercStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgercStridedBatchedFortran type(c_ptr), value :: handle @@ -7419,7 +7419,7 @@ end function hipblasZgercStridedBatchedFortran function hipblasSsprFortran(handle, uplo, n, alpha, x, incx, AP) & bind(c, name='hipblasSsprFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsprFortran type(c_ptr), value :: handle @@ -7437,7 +7437,7 @@ end function hipblasSsprFortran function hipblasDsprFortran(handle, uplo, n, alpha, x, incx, AP) & bind(c, name='hipblasDsprFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsprFortran type(c_ptr), value :: handle @@ -7455,7 +7455,7 @@ end function hipblasDsprFortran function hipblasCsprFortran(handle, uplo, n, alpha, x, incx, AP) & bind(c, name='hipblasCsprFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsprFortran type(c_ptr), value :: handle @@ -7473,7 +7473,7 @@ end function hipblasCsprFortran function hipblasZsprFortran(handle, uplo, n, alpha, x, incx, AP) & bind(c, name='hipblasZsprFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsprFortran type(c_ptr), value :: handle @@ -7492,7 +7492,7 @@ end function hipblasZsprFortran function hipblasSsprBatchedFortran(handle, uplo, n, alpha, x, incx, AP, batch_count) & bind(c, name='hipblasSsprBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsprBatchedFortran type(c_ptr), value :: handle @@ -7511,7 +7511,7 @@ end function hipblasSsprBatchedFortran function hipblasDsprBatchedFortran(handle, uplo, n, alpha, x, incx, AP, batch_count) & bind(c, name='hipblasDsprBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsprBatchedFortran type(c_ptr), value :: handle @@ -7530,7 +7530,7 @@ end function hipblasDsprBatchedFortran function hipblasCsprBatchedFortran(handle, uplo, n, alpha, x, incx, AP, batch_count) & bind(c, name='hipblasCsprBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsprBatchedFortran type(c_ptr), value :: handle @@ -7549,7 +7549,7 @@ end function hipblasCsprBatchedFortran function hipblasZsprBatchedFortran(handle, uplo, n, alpha, x, incx, AP, batch_count) & bind(c, name='hipblasZsprBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsprBatchedFortran type(c_ptr), value :: handle @@ -7570,7 +7570,7 @@ function hipblasSsprStridedBatchedFortran(handle, uplo, n, alpha, x, incx, strid AP, stride_AP, batch_count) & bind(c, name='hipblasSsprStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsprStridedBatchedFortran type(c_ptr), value :: handle @@ -7592,7 +7592,7 @@ function hipblasDsprStridedBatchedFortran(handle, uplo, n, alpha, x, incx, strid AP, stride_AP, batch_count) & bind(c, name='hipblasDsprStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsprStridedBatchedFortran type(c_ptr), value :: handle @@ -7614,7 +7614,7 @@ function hipblasCsprStridedBatchedFortran(handle, uplo, n, alpha, x, incx, strid AP, stride_AP, batch_count) & bind(c, name='hipblasCsprStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsprStridedBatchedFortran type(c_ptr), value :: handle @@ -7636,7 +7636,7 @@ function hipblasZsprStridedBatchedFortran(handle, uplo, n, alpha, x, incx, strid AP, stride_AP, batch_count) & bind(c, name='hipblasZsprStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsprStridedBatchedFortran type(c_ptr), value :: handle @@ -7659,7 +7659,7 @@ function hipblasSspr2Fortran(handle, uplo, n, alpha, x, incx, & y, incy, AP) & bind(c, name='hipblasSspr2Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2Fortran type(c_ptr), value :: handle @@ -7680,7 +7680,7 @@ function hipblasDspr2Fortran(handle, uplo, n, alpha, x, incx, & y, incy, AP) & bind(c, name='hipblasDspr2Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2Fortran type(c_ptr), value :: handle @@ -7702,7 +7702,7 @@ function hipblasSspr2BatchedFortran(handle, uplo, n, alpha, x, incx, & y, incy, AP, batch_count) & bind(c, name='hipblasSspr2BatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2BatchedFortran type(c_ptr), value :: handle @@ -7724,7 +7724,7 @@ function hipblasDspr2BatchedFortran(handle, uplo, n, alpha, x, incx, & y, incy, AP, batch_count) & bind(c, name='hipblasDspr2BatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2BatchedFortran type(c_ptr), value :: handle @@ -7747,7 +7747,7 @@ function hipblasSspr2StridedBatchedFortran(handle, uplo, n, alpha, x, incx, stri y, incy, stride_y, AP, stride_AP, batch_count) & bind(c, name='hipblasSspr2StridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2StridedBatchedFortran type(c_ptr), value :: handle @@ -7772,7 +7772,7 @@ function hipblasDspr2StridedBatchedFortran(handle, uplo, n, alpha, x, incx, stri y, incy, stride_y, AP, stride_AP, batch_count) & bind(c, name='hipblasDspr2StridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2StridedBatchedFortran type(c_ptr), value :: handle @@ -7797,7 +7797,7 @@ end function hipblasDspr2StridedBatchedFortran function hipblasSsyrFortran(handle, uplo, n, alpha, x, incx, A, lda) & bind(c, name='hipblasSsyrFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrFortran type(c_ptr), value :: handle @@ -7816,7 +7816,7 @@ end function hipblasSsyrFortran function hipblasDsyrFortran(handle, uplo, n, alpha, x, incx, A, lda) & bind(c, name='hipblasDsyrFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrFortran type(c_ptr), value :: handle @@ -7835,7 +7835,7 @@ end function hipblasDsyrFortran function hipblasCsyrFortran(handle, uplo, n, alpha, x, incx, A, lda) & bind(c, name='hipblasCsyrFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrFortran type(c_ptr), value :: handle @@ -7854,7 +7854,7 @@ end function hipblasCsyrFortran function hipblasZsyrFortran(handle, uplo, n, alpha, x, incx, A, lda) & bind(c, name='hipblasZsyrFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrFortran type(c_ptr), value :: handle @@ -7874,7 +7874,7 @@ end function hipblasZsyrFortran function hipblasSsyrBatchedFortran(handle, uplo, n, alpha, x, incx, A, lda, batch_count) & bind(c, name='hipblasSsyrBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrBatchedFortran type(c_ptr), value :: handle @@ -7894,7 +7894,7 @@ end function hipblasSsyrBatchedFortran function hipblasDsyrBatchedFortran(handle, uplo, n, alpha, x, incx, A, lda, batch_count) & bind(c, name='hipblasDsyrBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrBatchedFortran type(c_ptr), value :: handle @@ -7914,7 +7914,7 @@ end function hipblasDsyrBatchedFortran function hipblasCsyrBatchedFortran(handle, uplo, n, alpha, x, incx, A, lda, batch_count) & bind(c, name='hipblasCsyrBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrBatchedFortran type(c_ptr), value :: handle @@ -7934,7 +7934,7 @@ end function hipblasCsyrBatchedFortran function hipblasZsyrBatchedFortran(handle, uplo, n, alpha, x, incx, A, lda, batch_count) & bind(c, name='hipblasZsyrBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrBatchedFortran type(c_ptr), value :: handle @@ -7956,7 +7956,7 @@ function hipblasSsyrStridedBatchedFortran(handle, uplo, n, alpha, x, incx, strid A, lda, stride_A, batch_count) & bind(c, name='hipblasSsyrStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrStridedBatchedFortran type(c_ptr), value :: handle @@ -7979,7 +7979,7 @@ function hipblasDsyrStridedBatchedFortran(handle, uplo, n, alpha, x, incx, strid A, lda, stride_A, batch_count) & bind(c, name='hipblasDsyrStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrStridedBatchedFortran type(c_ptr), value :: handle @@ -8002,7 +8002,7 @@ function hipblasCsyrStridedBatchedFortran(handle, uplo, n, alpha, x, incx, strid A, lda, stride_A, batch_count) & bind(c, name='hipblasCsyrStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrStridedBatchedFortran type(c_ptr), value :: handle @@ -8025,7 +8025,7 @@ function hipblasZsyrStridedBatchedFortran(handle, uplo, n, alpha, x, incx, strid A, lda, stride_A, batch_count) & bind(c, name='hipblasZsyrStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrStridedBatchedFortran type(c_ptr), value :: handle @@ -8049,7 +8049,7 @@ function hipblasSsyr2Fortran(handle, uplo, n, alpha, x, incx, & y, incy, A, lda) & bind(c, name='hipblasSsyr2Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2Fortran type(c_ptr), value :: handle @@ -8071,7 +8071,7 @@ function hipblasDsyr2Fortran(handle, uplo, n, alpha, x, incx, & y, incy, A, lda) & bind(c, name='hipblasDsyr2Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2Fortran type(c_ptr), value :: handle @@ -8093,7 +8093,7 @@ function hipblasCsyr2Fortran(handle, uplo, n, alpha, x, incx, & y, incy, A, lda) & bind(c, name='hipblasCsyr2Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2Fortran type(c_ptr), value :: handle @@ -8115,7 +8115,7 @@ function hipblasZsyr2Fortran(handle, uplo, n, alpha, x, incx, & y, incy, A, lda) & bind(c, name='hipblasZsyr2Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2Fortran type(c_ptr), value :: handle @@ -8138,7 +8138,7 @@ function hipblasSsyr2BatchedFortran(handle, uplo, n, alpha, x, incx, & y, incy, A, lda, batch_count) & bind(c, name='hipblasSsyr2BatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2BatchedFortran type(c_ptr), value :: handle @@ -8161,7 +8161,7 @@ function hipblasDsyr2BatchedFortran(handle, uplo, n, alpha, x, incx, & y, incy, A, lda, batch_count) & bind(c, name='hipblasDsyr2BatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2BatchedFortran type(c_ptr), value :: handle @@ -8184,7 +8184,7 @@ function hipblasCsyr2BatchedFortran(handle, uplo, n, alpha, x, incx, & y, incy, A, lda, batch_count) & bind(c, name='hipblasCsyr2BatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2BatchedFortran type(c_ptr), value :: handle @@ -8207,7 +8207,7 @@ function hipblasZsyr2BatchedFortran(handle, uplo, n, alpha, x, incx, & y, incy, A, lda, batch_count) & bind(c, name='hipblasZsyr2BatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2BatchedFortran type(c_ptr), value :: handle @@ -8231,7 +8231,7 @@ function hipblasSsyr2StridedBatchedFortran(handle, uplo, n, alpha, x, incx, stri y, incy, stride_y, A, lda, stride_A, batch_count) & bind(c, name='hipblasSsyr2StridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2StridedBatchedFortran type(c_ptr), value :: handle @@ -8257,7 +8257,7 @@ function hipblasDsyr2StridedBatchedFortran(handle, uplo, n, alpha, x, incx, stri y, incy, stride_y, A, lda, stride_A, batch_count) & bind(c, name='hipblasDsyr2StridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2StridedBatchedFortran type(c_ptr), value :: handle @@ -8283,7 +8283,7 @@ function hipblasCsyr2StridedBatchedFortran(handle, uplo, n, alpha, x, incx, stri y, incy, stride_y, A, lda, stride_A, batch_count) & bind(c, name='hipblasCsyr2StridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2StridedBatchedFortran type(c_ptr), value :: handle @@ -8309,7 +8309,7 @@ function hipblasZsyr2StridedBatchedFortran(handle, uplo, n, alpha, x, incx, stri y, incy, stride_y, A, lda, stride_A, batch_count) & bind(c, name='hipblasZsyr2StridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2StridedBatchedFortran type(c_ptr), value :: handle @@ -8336,7 +8336,7 @@ function hipblasStrsvFortran(handle, uplo, transA, diag, m, & A, lda, x, incx) & bind(c, name='hipblasStrsvFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsvFortran type(c_ptr), value :: handle @@ -8357,7 +8357,7 @@ function hipblasDtrsvFortran(handle, uplo, transA, diag, m, & A, lda, x, incx) & bind(c, name='hipblasDtrsvFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsvFortran type(c_ptr), value :: handle @@ -8378,7 +8378,7 @@ function hipblasCtrsvFortran(handle, uplo, transA, diag, m, & A, lda, x, incx) & bind(c, name='hipblasCtrsvFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsvFortran type(c_ptr), value :: handle @@ -8399,7 +8399,7 @@ function hipblasZtrsvFortran(handle, uplo, transA, diag, m, & A, lda, x, incx) & bind(c, name='hipblasZtrsvFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsvFortran type(c_ptr), value :: handle @@ -8421,7 +8421,7 @@ function hipblasStrsvBatchedFortran(handle, uplo, transA, diag, m, & A, lda, x, incx, batch_count) & bind(c, name='hipblasStrsvBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsvBatchedFortran type(c_ptr), value :: handle @@ -8443,7 +8443,7 @@ function hipblasDtrsvBatchedFortran(handle, uplo, transA, diag, m, & A, lda, x, incx, batch_count) & bind(c, name='hipblasDtrsvBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsvBatchedFortran type(c_ptr), value :: handle @@ -8465,7 +8465,7 @@ function hipblasCtrsvBatchedFortran(handle, uplo, transA, diag, m, & A, lda, x, incx, batch_count) & bind(c, name='hipblasCtrsvBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsvBatchedFortran type(c_ptr), value :: handle @@ -8487,7 +8487,7 @@ function hipblasZtrsvBatchedFortran(handle, uplo, transA, diag, m, & A, lda, x, incx, batch_count) & bind(c, name='hipblasZtrsvBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsvBatchedFortran type(c_ptr), value :: handle @@ -8510,7 +8510,7 @@ function hipblasStrsvStridedBatchedFortran(handle, uplo, transA, diag, m, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='hipblasStrsvStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsvStridedBatchedFortran type(c_ptr), value :: handle @@ -8534,7 +8534,7 @@ function hipblasDtrsvStridedBatchedFortran(handle, uplo, transA, diag, m, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='hipblasDtrsvStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsvStridedBatchedFortran type(c_ptr), value :: handle @@ -8558,7 +8558,7 @@ function hipblasCtrsvStridedBatchedFortran(handle, uplo, transA, diag, m, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='hipblasCtrsvStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsvStridedBatchedFortran type(c_ptr), value :: handle @@ -8582,7 +8582,7 @@ function hipblasZtrsvStridedBatchedFortran(handle, uplo, transA, diag, m, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='hipblasZtrsvStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsvStridedBatchedFortran type(c_ptr), value :: handle @@ -8611,7 +8611,7 @@ function hipblasChemmFortran(handle, side, uplo, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasChemmFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemmFortran type(c_ptr), value :: handle @@ -8636,7 +8636,7 @@ function hipblasZhemmFortran(handle, side, uplo, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasZhemmFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemmFortran type(c_ptr), value :: handle @@ -8662,7 +8662,7 @@ function hipblasChemmBatchedFortran(handle, side, uplo, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasChemmBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemmBatchedFortran type(c_ptr), value :: handle @@ -8688,7 +8688,7 @@ function hipblasZhemmBatchedFortran(handle, side, uplo, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasZhemmBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemmBatchedFortran type(c_ptr), value :: handle @@ -8715,7 +8715,7 @@ function hipblasChemmStridedBatchedFortran(handle, side, uplo, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasChemmStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemmStridedBatchedFortran type(c_ptr), value :: handle @@ -8744,7 +8744,7 @@ function hipblasZhemmStridedBatchedFortran(handle, side, uplo, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasZhemmStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemmStridedBatchedFortran type(c_ptr), value :: handle @@ -8774,7 +8774,7 @@ function hipblasCherkFortran(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc) & bind(c, name='hipblasCherkFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkFortran type(c_ptr), value :: handle @@ -8797,7 +8797,7 @@ function hipblasZherkFortran(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc) & bind(c, name='hipblasZherkFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkFortran type(c_ptr), value :: handle @@ -8821,7 +8821,7 @@ function hipblasCherkBatchedFortran(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc, batch_count) & bind(c, name='hipblasCherkBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkBatchedFortran type(c_ptr), value :: handle @@ -8845,7 +8845,7 @@ function hipblasZherkBatchedFortran(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc, batch_count) & bind(c, name='hipblasZherkBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkBatchedFortran type(c_ptr), value :: handle @@ -8870,7 +8870,7 @@ function hipblasCherkStridedBatchedFortran(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasCherkStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkStridedBatchedFortran type(c_ptr), value :: handle @@ -8896,7 +8896,7 @@ function hipblasZherkStridedBatchedFortran(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasZherkStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkStridedBatchedFortran type(c_ptr), value :: handle @@ -8923,7 +8923,7 @@ function hipblasCher2kFortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasCher2kFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2kFortran type(c_ptr), value :: handle @@ -8948,7 +8948,7 @@ function hipblasZher2kFortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasZher2kFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2kFortran type(c_ptr), value :: handle @@ -8974,7 +8974,7 @@ function hipblasCher2kBatchedFortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasCher2kBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2kBatchedFortran type(c_ptr), value :: handle @@ -9000,7 +9000,7 @@ function hipblasZher2kBatchedFortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasZher2kBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2kBatchedFortran type(c_ptr), value :: handle @@ -9027,7 +9027,7 @@ function hipblasCher2kStridedBatchedFortran(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasCher2kStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2kStridedBatchedFortran type(c_ptr), value :: handle @@ -9056,7 +9056,7 @@ function hipblasZher2kStridedBatchedFortran(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasZher2kStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2kStridedBatchedFortran type(c_ptr), value :: handle @@ -9086,7 +9086,7 @@ function hipblasCherkxFortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasCherkxFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkxFortran type(c_ptr), value :: handle @@ -9111,7 +9111,7 @@ function hipblasZherkxFortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasZherkxFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkxFortran type(c_ptr), value :: handle @@ -9137,7 +9137,7 @@ function hipblasCherkxBatchedFortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasCherkxBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkxBatchedFortran type(c_ptr), value :: handle @@ -9163,7 +9163,7 @@ function hipblasZherkxBatchedFortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasZherkxBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkxBatchedFortran type(c_ptr), value :: handle @@ -9190,7 +9190,7 @@ function hipblasCherkxStridedBatchedFortran(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasCherkxStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkxStridedBatchedFortran type(c_ptr), value :: handle @@ -9219,7 +9219,7 @@ function hipblasZherkxStridedBatchedFortran(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasZherkxStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkxStridedBatchedFortran type(c_ptr), value :: handle @@ -9249,7 +9249,7 @@ function hipblasSsymmFortran(handle, side, uplo, m, n, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasSsymmFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymmFortran type(c_ptr), value :: handle @@ -9274,7 +9274,7 @@ function hipblasDsymmFortran(handle, side, uplo, m, n, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasDsymmFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymmFortran type(c_ptr), value :: handle @@ -9299,7 +9299,7 @@ function hipblasCsymmFortran(handle, side, uplo, m, n, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasCsymmFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymmFortran type(c_ptr), value :: handle @@ -9324,7 +9324,7 @@ function hipblasZsymmFortran(handle, side, uplo, m, n, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasZsymmFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymmFortran type(c_ptr), value :: handle @@ -9350,7 +9350,7 @@ function hipblasSsymmBatchedFortran(handle, side, uplo, m, n, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasSsymmBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymmBatchedFortran type(c_ptr), value :: handle @@ -9376,7 +9376,7 @@ function hipblasDsymmBatchedFortran(handle, side, uplo, m, n, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasDsymmBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymmBatchedFortran type(c_ptr), value :: handle @@ -9402,7 +9402,7 @@ function hipblasCsymmBatchedFortran(handle, side, uplo, m, n, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasCsymmBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymmBatchedFortran type(c_ptr), value :: handle @@ -9428,7 +9428,7 @@ function hipblasZsymmBatchedFortran(handle, side, uplo, m, n, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasZsymmBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymmBatchedFortran type(c_ptr), value :: handle @@ -9455,7 +9455,7 @@ function hipblasSsymmStridedBatchedFortran(handle, side, uplo, m, n, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasSsymmStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymmStridedBatchedFortran type(c_ptr), value :: handle @@ -9484,7 +9484,7 @@ function hipblasDsymmStridedBatchedFortran(handle, side, uplo, m, n, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasDsymmStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymmStridedBatchedFortran type(c_ptr), value :: handle @@ -9513,7 +9513,7 @@ function hipblasCsymmStridedBatchedFortran(handle, side, uplo, m, n, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasCsymmStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymmStridedBatchedFortran type(c_ptr), value :: handle @@ -9542,7 +9542,7 @@ function hipblasZsymmStridedBatchedFortran(handle, side, uplo, m, n, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasZsymmStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymmStridedBatchedFortran type(c_ptr), value :: handle @@ -9572,7 +9572,7 @@ function hipblasSsyrkFortran(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc) & bind(c, name='hipblasSsyrkFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkFortran type(c_ptr), value :: handle @@ -9595,7 +9595,7 @@ function hipblasDsyrkFortran(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc) & bind(c, name='hipblasDsyrkFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkFortran type(c_ptr), value :: handle @@ -9618,7 +9618,7 @@ function hipblasCsyrkFortran(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc) & bind(c, name='hipblasCsyrkFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkFortran type(c_ptr), value :: handle @@ -9641,7 +9641,7 @@ function hipblasZsyrkFortran(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc) & bind(c, name='hipblasZsyrkFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkFortran type(c_ptr), value :: handle @@ -9665,7 +9665,7 @@ function hipblasSsyrkBatchedFortran(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc, batch_count) & bind(c, name='hipblasSsyrkBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkBatchedFortran type(c_ptr), value :: handle @@ -9689,7 +9689,7 @@ function hipblasDsyrkBatchedFortran(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc, batch_count) & bind(c, name='hipblasDsyrkBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkBatchedFortran type(c_ptr), value :: handle @@ -9713,7 +9713,7 @@ function hipblasCsyrkBatchedFortran(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc, batch_count) & bind(c, name='hipblasCsyrkBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkBatchedFortran type(c_ptr), value :: handle @@ -9737,7 +9737,7 @@ function hipblasZsyrkBatchedFortran(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc, batch_count) & bind(c, name='hipblasZsyrkBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkBatchedFortran type(c_ptr), value :: handle @@ -9762,7 +9762,7 @@ function hipblasSsyrkStridedBatchedFortran(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasSsyrkStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkStridedBatchedFortran type(c_ptr), value :: handle @@ -9788,7 +9788,7 @@ function hipblasDsyrkStridedBatchedFortran(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasDsyrkStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkStridedBatchedFortran type(c_ptr), value :: handle @@ -9814,7 +9814,7 @@ function hipblasCsyrkStridedBatchedFortran(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasCsyrkStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkStridedBatchedFortran type(c_ptr), value :: handle @@ -9840,7 +9840,7 @@ function hipblasZsyrkStridedBatchedFortran(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasZsyrkStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkStridedBatchedFortran type(c_ptr), value :: handle @@ -9867,7 +9867,7 @@ function hipblasSsyr2kFortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasSsyr2kFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2kFortran type(c_ptr), value :: handle @@ -9892,7 +9892,7 @@ function hipblasDsyr2kFortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasDsyr2kFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2kFortran type(c_ptr), value :: handle @@ -9917,7 +9917,7 @@ function hipblasCsyr2kFortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasCsyr2kFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2kFortran type(c_ptr), value :: handle @@ -9942,7 +9942,7 @@ function hipblasZsyr2kFortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasZsyr2kFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2kFortran type(c_ptr), value :: handle @@ -9968,7 +9968,7 @@ function hipblasSsyr2kBatchedFortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasSsyr2kBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2kBatchedFortran type(c_ptr), value :: handle @@ -9994,7 +9994,7 @@ function hipblasDsyr2kBatchedFortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasDsyr2kBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2kBatchedFortran type(c_ptr), value :: handle @@ -10020,7 +10020,7 @@ function hipblasCsyr2kBatchedFortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasCsyr2kBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2kBatchedFortran type(c_ptr), value :: handle @@ -10046,7 +10046,7 @@ function hipblasZsyr2kBatchedFortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasZsyr2kBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2kBatchedFortran type(c_ptr), value :: handle @@ -10073,7 +10073,7 @@ function hipblasSsyr2kStridedBatchedFortran(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasSsyr2kStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2kStridedBatchedFortran type(c_ptr), value :: handle @@ -10102,7 +10102,7 @@ function hipblasDsyr2kStridedBatchedFortran(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasDsyr2kStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2kStridedBatchedFortran type(c_ptr), value :: handle @@ -10131,7 +10131,7 @@ function hipblasCsyr2kStridedBatchedFortran(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasCsyr2kStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2kStridedBatchedFortran type(c_ptr), value :: handle @@ -10160,7 +10160,7 @@ function hipblasZsyr2kStridedBatchedFortran(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasZsyr2kStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2kStridedBatchedFortran type(c_ptr), value :: handle @@ -10190,7 +10190,7 @@ function hipblasSsyrkxFortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasSsyrkxFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkxFortran type(c_ptr), value :: handle @@ -10215,7 +10215,7 @@ function hipblasDsyrkxFortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasDsyrkxFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkxFortran type(c_ptr), value :: handle @@ -10240,7 +10240,7 @@ function hipblasCsyrkxFortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasCsyrkxFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkxFortran type(c_ptr), value :: handle @@ -10265,7 +10265,7 @@ function hipblasZsyrkxFortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasZsyrkxFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkxFortran type(c_ptr), value :: handle @@ -10291,7 +10291,7 @@ function hipblasSsyrkxBatchedFortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasSsyrkxBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkxBatchedFortran type(c_ptr), value :: handle @@ -10317,7 +10317,7 @@ function hipblasDsyrkxBatchedFortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasDsyrkxBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkxBatchedFortran type(c_ptr), value :: handle @@ -10343,7 +10343,7 @@ function hipblasCsyrkxBatchedFortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasCsyrkxBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkxBatchedFortran type(c_ptr), value :: handle @@ -10369,7 +10369,7 @@ function hipblasZsyrkxBatchedFortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasZsyrkxBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkxBatchedFortran type(c_ptr), value :: handle @@ -10396,7 +10396,7 @@ function hipblasSsyrkxStridedBatchedFortran(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasSsyrkxStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkxStridedBatchedFortran type(c_ptr), value :: handle @@ -10425,7 +10425,7 @@ function hipblasDsyrkxStridedBatchedFortran(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasDsyrkxStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkxStridedBatchedFortran type(c_ptr), value :: handle @@ -10454,7 +10454,7 @@ function hipblasCsyrkxStridedBatchedFortran(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasCsyrkxStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkxStridedBatchedFortran type(c_ptr), value :: handle @@ -10483,7 +10483,7 @@ function hipblasZsyrkxStridedBatchedFortran(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasZsyrkxStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkxStridedBatchedFortran type(c_ptr), value :: handle @@ -10513,7 +10513,7 @@ function hipblasStrmmFortran(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb, C, ldc) & bind(c, name='hipblasStrmmFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmmFortran type(c_ptr), value :: handle @@ -10539,7 +10539,7 @@ function hipblasDtrmmFortran(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb, C, ldc) & bind(c, name='hipblasDtrmmFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmmFortran type(c_ptr), value :: handle @@ -10565,7 +10565,7 @@ function hipblasCtrmmFortran(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb, C, ldc) & bind(c, name='hipblasCtrmmFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmmFortran type(c_ptr), value :: handle @@ -10591,7 +10591,7 @@ function hipblasZtrmmFortran(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb, C, ldc) & bind(c, name='hipblasZtrmmFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmmFortran type(c_ptr), value :: handle @@ -10618,7 +10618,7 @@ function hipblasStrmmBatchedFortran(handle, side, uplo, transA, diag, m, n, alph A, lda, B, ldb, C, ldc, batch_count) & bind(c, name='hipblasStrmmBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmmBatchedFortran type(c_ptr), value :: handle @@ -10645,7 +10645,7 @@ function hipblasDtrmmBatchedFortran(handle, side, uplo, transA, diag, m, n, alph A, lda, B, ldb, C, ldc, batch_count) & bind(c, name='hipblasDtrmmBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmmBatchedFortran type(c_ptr), value :: handle @@ -10672,7 +10672,7 @@ function hipblasCtrmmBatchedFortran(handle, side, uplo, transA, diag, m, n, alph A, lda, B, ldb, C, ldc, batch_count) & bind(c, name='hipblasCtrmmBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmmBatchedFortran type(c_ptr), value :: handle @@ -10699,7 +10699,7 @@ function hipblasZtrmmBatchedFortran(handle, side, uplo, transA, diag, m, n, alph A, lda, B, ldb, C, ldc, batch_count) & bind(c, name='hipblasZtrmmBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmmBatchedFortran type(c_ptr), value :: handle @@ -10727,7 +10727,7 @@ function hipblasStrmmStridedBatchedFortran(handle, side, uplo, transA, diag, m, A, lda, stride_A, B, ldb, stride_B, C, ldc, stride_C, batch_count) & bind(c, name='hipblasStrmmStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmmStridedBatchedFortran type(c_ptr), value :: handle @@ -10757,7 +10757,7 @@ function hipblasDtrmmStridedBatchedFortran(handle, side, uplo, transA, diag, m, A, lda, stride_A, B, ldb, stride_B, C, ldc, stride_C, batch_count) & bind(c, name='hipblasDtrmmStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmmStridedBatchedFortran type(c_ptr), value :: handle @@ -10787,7 +10787,7 @@ function hipblasCtrmmStridedBatchedFortran(handle, side, uplo, transA, diag, m, A, lda, stride_A, B, ldb, stride_B, C, ldc, stride_C, batch_count) & bind(c, name='hipblasCtrmmStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmmStridedBatchedFortran type(c_ptr), value :: handle @@ -10817,7 +10817,7 @@ function hipblasZtrmmStridedBatchedFortran(handle, side, uplo, transA, diag, m, A, lda, stride_A, B, ldb, stride_B, C, ldc, stride_C, batch_count) & bind(c, name='hipblasZtrmmStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmmStridedBatchedFortran type(c_ptr), value :: handle @@ -10848,7 +10848,7 @@ function hipblasStrtriFortran(handle, uplo, diag, n, & A, lda, invA, ldinvA) & bind(c, name='hipblasStrtriFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrtriFortran type(c_ptr), value :: handle @@ -10868,7 +10868,7 @@ function hipblasDtrtriFortran(handle, uplo, diag, n, & A, lda, invA, ldinvA) & bind(c, name='hipblasDtrtriFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrtriFortran type(c_ptr), value :: handle @@ -10888,7 +10888,7 @@ function hipblasCtrtriFortran(handle, uplo, diag, n, & A, lda, invA, ldinvA) & bind(c, name='hipblasCtrtriFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrtriFortran type(c_ptr), value :: handle @@ -10908,7 +10908,7 @@ function hipblasZtrtriFortran(handle, uplo, diag, n, & A, lda, invA, ldinvA) & bind(c, name='hipblasZtrtriFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrtriFortran type(c_ptr), value :: handle @@ -10929,7 +10929,7 @@ function hipblasStrtriBatchedFortran(handle, uplo, diag, n, & A, lda, invA, ldinvA, batch_count) & bind(c, name='hipblasStrtriBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrtriBatchedFortran type(c_ptr), value :: handle @@ -10950,7 +10950,7 @@ function hipblasDtrtriBatchedFortran(handle, uplo, diag, n, & A, lda, invA, ldinvA, batch_count) & bind(c, name='hipblasDtrtriBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrtriBatchedFortran type(c_ptr), value :: handle @@ -10971,7 +10971,7 @@ function hipblasCtrtriBatchedFortran(handle, uplo, diag, n, & A, lda, invA, ldinvA, batch_count) & bind(c, name='hipblasCtrtriBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrtriBatchedFortran type(c_ptr), value :: handle @@ -10992,7 +10992,7 @@ function hipblasZtrtriBatchedFortran(handle, uplo, diag, n, & A, lda, invA, ldinvA, batch_count) & bind(c, name='hipblasZtrtriBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrtriBatchedFortran type(c_ptr), value :: handle @@ -11014,7 +11014,7 @@ function hipblasStrtriStridedBatchedFortran(handle, uplo, diag, n, & A, lda, stride_A, invA, ldinvA, stride_invA, batch_count) & bind(c, name='hipblasStrtriStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrtriStridedBatchedFortran type(c_ptr), value :: handle @@ -11037,7 +11037,7 @@ function hipblasDtrtriStridedBatchedFortran(handle, uplo, diag, n, & A, lda, stride_A, invA, ldinvA, stride_invA, batch_count) & bind(c, name='hipblasDtrtriStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrtriStridedBatchedFortran type(c_ptr), value :: handle @@ -11060,7 +11060,7 @@ function hipblasCtrtriStridedBatchedFortran(handle, uplo, diag, n, & A, lda, stride_A, invA, ldinvA, stride_invA, batch_count) & bind(c, name='hipblasCtrtriStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrtriStridedBatchedFortran type(c_ptr), value :: handle @@ -11083,7 +11083,7 @@ function hipblasZtrtriStridedBatchedFortran(handle, uplo, diag, n, & A, lda, stride_A, invA, ldinvA, stride_invA, batch_count) & bind(c, name='hipblasZtrtriStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrtriStridedBatchedFortran type(c_ptr), value :: handle @@ -11107,7 +11107,7 @@ function hipblasStrsmFortran(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb) & bind(c, name='hipblasStrsmFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsmFortran type(c_ptr), value :: handle @@ -11131,7 +11131,7 @@ function hipblasDtrsmFortran(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb) & bind(c, name='hipblasDtrsmFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsmFortran type(c_ptr), value :: handle @@ -11155,7 +11155,7 @@ function hipblasCtrsmFortran(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb) & bind(c, name='hipblasCtrsmFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsmFortran type(c_ptr), value :: handle @@ -11179,7 +11179,7 @@ function hipblasZtrsmFortran(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb) & bind(c, name='hipblasZtrsmFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsmFortran type(c_ptr), value :: handle @@ -11204,7 +11204,7 @@ function hipblasStrsmBatchedFortran(handle, side, uplo, transA, diag, m, n, alph A, lda, B, ldb, batch_count) & bind(c, name='hipblasStrsmBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsmBatchedFortran type(c_ptr), value :: handle @@ -11229,7 +11229,7 @@ function hipblasDtrsmBatchedFortran(handle, side, uplo, transA, diag, m, n, alph A, lda, B, ldb, batch_count) & bind(c, name='hipblasDtrsmBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsmBatchedFortran type(c_ptr), value :: handle @@ -11254,7 +11254,7 @@ function hipblasCtrsmBatchedFortran(handle, side, uplo, transA, diag, m, n, alph A, lda, B, ldb, batch_count) & bind(c, name='hipblasCtrsmBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsmBatchedFortran type(c_ptr), value :: handle @@ -11279,7 +11279,7 @@ function hipblasZtrsmBatchedFortran(handle, side, uplo, transA, diag, m, n, alph A, lda, B, ldb, batch_count) & bind(c, name='hipblasZtrsmBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsmBatchedFortran type(c_ptr), value :: handle @@ -11305,7 +11305,7 @@ function hipblasStrsmStridedBatchedFortran(handle, side, uplo, transA, diag, m, A, lda, stride_A, B, ldb, stride_B, batch_count) & bind(c, name='hipblasStrsmStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsmStridedBatchedFortran type(c_ptr), value :: handle @@ -11332,7 +11332,7 @@ function hipblasDtrsmStridedBatchedFortran(handle, side, uplo, transA, diag, m, A, lda, stride_A, B, ldb, stride_B, batch_count) & bind(c, name='hipblasDtrsmStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsmStridedBatchedFortran type(c_ptr), value :: handle @@ -11359,7 +11359,7 @@ function hipblasCtrsmStridedBatchedFortran(handle, side, uplo, transA, diag, m, A, lda, stride_A, B, ldb, stride_B, batch_count) & bind(c, name='hipblasCtrsmStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsmStridedBatchedFortran type(c_ptr), value :: handle @@ -11386,7 +11386,7 @@ function hipblasZtrsmStridedBatchedFortran(handle, side, uplo, transA, diag, m, A, lda, stride_A, B, ldb, stride_B, batch_count) & bind(c, name='hipblasZtrsmStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsmStridedBatchedFortran type(c_ptr), value :: handle @@ -11414,7 +11414,7 @@ function hipblasHgemmFortran(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasHgemmFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHgemmFortran type(c_ptr), value :: handle @@ -11440,7 +11440,7 @@ function hipblasSgemmFortran(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasSgemmFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmFortran type(c_ptr), value :: handle @@ -11466,7 +11466,7 @@ function hipblasDgemmFortran(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasDgemmFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmFortran type(c_ptr), value :: handle @@ -11492,7 +11492,7 @@ function hipblasCgemmFortran(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasCgemmFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemmFortran type(c_ptr), value :: handle @@ -11518,7 +11518,7 @@ function hipblasZgemmFortran(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasZgemmFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemmFortran type(c_ptr), value :: handle @@ -11545,7 +11545,7 @@ function hipblasHgemmBatchedFortran(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasHgemmBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHgemmBatchedFortran type(c_ptr), value :: handle @@ -11572,7 +11572,7 @@ function hipblasSgemmBatchedFortran(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasSgemmBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmBatchedFortran type(c_ptr), value :: handle @@ -11599,7 +11599,7 @@ function hipblasDgemmBatchedFortran(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasDgemmBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmBatchedFortran type(c_ptr), value :: handle @@ -11626,7 +11626,7 @@ function hipblasCgemmBatchedFortran(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasCgemmBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemmBatchedFortran type(c_ptr), value :: handle @@ -11653,7 +11653,7 @@ function hipblasZgemmBatchedFortran(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasZgemmBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemmBatchedFortran type(c_ptr), value :: handle @@ -11682,7 +11682,7 @@ function hipblasSgemmGroupedBatchedFortran(handle, transA_array, transB_array, m Carray, ldc_array, group_count, group_size) & bind(c, name='hipblasSgemmGroupedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmGroupedBatchedFortran type(c_ptr), value :: handle @@ -11712,7 +11712,7 @@ function hipblasDgemmGroupedBatchedFortran(handle, transA_array, transB_array, m Carray, ldc_array, group_count, group_size) & bind(c, name='hipblasDgemmGroupedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmGroupedBatchedFortran type(c_ptr), value :: handle @@ -11742,7 +11742,7 @@ function hipblasHgemmStridedBatchedFortran(handle, transA, transB, m, n, k, alph A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasHgemmStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHgemmStridedBatchedFortran type(c_ptr), value :: handle @@ -11772,7 +11772,7 @@ function hipblasSgemmStridedBatchedFortran(handle, transA, transB, m, n, k, alph A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasSgemmStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmStridedBatchedFortran type(c_ptr), value :: handle @@ -11802,7 +11802,7 @@ function hipblasDgemmStridedBatchedFortran(handle, transA, transB, m, n, k, alph A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasDgemmStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmStridedBatchedFortran type(c_ptr), value :: handle @@ -11832,7 +11832,7 @@ function hipblasCgemmStridedBatchedFortran(handle, transA, transB, m, n, k, alph A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasCgemmStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemmStridedBatchedFortran type(c_ptr), value :: handle @@ -11862,7 +11862,7 @@ function hipblasZgemmStridedBatchedFortran(handle, transA, transB, m, n, k, alph A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasZgemmStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemmStridedBatchedFortran type(c_ptr), value :: handle @@ -11893,7 +11893,7 @@ function hipblasSdgmmFortran(handle, side, m, n, & A, lda, x, incx, C, ldc) & bind(c, name='hipblasSdgmmFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdgmmFortran type(c_ptr), value :: handle @@ -11915,7 +11915,7 @@ function hipblasDdgmmFortran(handle, side, m, n, & A, lda, x, incx, C, ldc) & bind(c, name='hipblasDdgmmFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdgmmFortran type(c_ptr), value :: handle @@ -11937,7 +11937,7 @@ function hipblasCdgmmFortran(handle, side, m, n, & A, lda, x, incx, C, ldc) & bind(c, name='hipblasCdgmmFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdgmmFortran type(c_ptr), value :: handle @@ -11959,7 +11959,7 @@ function hipblasZdgmmFortran(handle, side, m, n, & A, lda, x, incx, C, ldc) & bind(c, name='hipblasZdgmmFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdgmmFortran type(c_ptr), value :: handle @@ -11982,7 +11982,7 @@ function hipblasSdgmmBatchedFortran(handle, side, m, n, & A, lda, x, incx, C, ldc, batch_count) & bind(c, name='hipblasSdgmmBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdgmmBatchedFortran type(c_ptr), value :: handle @@ -12005,7 +12005,7 @@ function hipblasDdgmmBatchedFortran(handle, side, m, n, & A, lda, x, incx, C, ldc, batch_count) & bind(c, name='hipblasDdgmmBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdgmmBatchedFortran type(c_ptr), value :: handle @@ -12028,7 +12028,7 @@ function hipblasCdgmmBatchedFortran(handle, side, m, n, & A, lda, x, incx, C, ldc, batch_count) & bind(c, name='hipblasCdgmmBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdgmmBatchedFortran type(c_ptr), value :: handle @@ -12051,7 +12051,7 @@ function hipblasZdgmmBatchedFortran(handle, side, m, n, & A, lda, x, incx, C, ldc, batch_count) & bind(c, name='hipblasZdgmmBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdgmmBatchedFortran type(c_ptr), value :: handle @@ -12075,7 +12075,7 @@ function hipblasSdgmmStridedBatchedFortran(handle, side, m, n, & A, lda, stride_A, x, incx, stride_x, C, ldc, stride_C, batch_count) & bind(c, name='hipblasSdgmmStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdgmmStridedBatchedFortran type(c_ptr), value :: handle @@ -12101,7 +12101,7 @@ function hipblasDdgmmStridedBatchedFortran(handle, side, m, n, & A, lda, stride_A, x, incx, stride_x, C, ldc, stride_C, batch_count) & bind(c, name='hipblasDdgmmStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdgmmStridedBatchedFortran type(c_ptr), value :: handle @@ -12127,7 +12127,7 @@ function hipblasCdgmmStridedBatchedFortran(handle, side, m, n, & A, lda, stride_A, x, incx, stride_x, C, ldc, stride_C, batch_count) & bind(c, name='hipblasCdgmmStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdgmmStridedBatchedFortran type(c_ptr), value :: handle @@ -12153,7 +12153,7 @@ function hipblasZdgmmStridedBatchedFortran(handle, side, m, n, & A, lda, stride_A, x, incx, stride_x, C, ldc, stride_C, batch_count) & bind(c, name='hipblasZdgmmStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdgmmStridedBatchedFortran type(c_ptr), value :: handle @@ -12180,7 +12180,7 @@ function hipblasSgeamFortran(handle, transA, transB, m, n, alpha, & A, lda, beta, B, ldb, C, ldc) & bind(c, name='hipblasSgeamFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeamFortran type(c_ptr), value :: handle @@ -12205,7 +12205,7 @@ function hipblasDgeamFortran(handle, transA, transB, m, n, alpha, & A, lda, beta, B, ldb, C, ldc) & bind(c, name='hipblasDgeamFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeamFortran type(c_ptr), value :: handle @@ -12230,7 +12230,7 @@ function hipblasCgeamFortran(handle, transA, transB, m, n, alpha, & A, lda, beta, B, ldb, C, ldc) & bind(c, name='hipblasCgeamFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeamFortran type(c_ptr), value :: handle @@ -12255,7 +12255,7 @@ function hipblasZgeamFortran(handle, transA, transB, m, n, alpha, & A, lda, beta, B, ldb, C, ldc) & bind(c, name='hipblasZgeamFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeamFortran type(c_ptr), value :: handle @@ -12281,7 +12281,7 @@ function hipblasSgeamBatchedFortran(handle, transA, transB, m, n, alpha, & A, lda, beta, B, ldb, C, ldc, batch_count) & bind(c, name='hipblasSgeamBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeamBatchedFortran type(c_ptr), value :: handle @@ -12307,7 +12307,7 @@ function hipblasDgeamBatchedFortran(handle, transA, transB, m, n, alpha, & A, lda, beta, B, ldb, C, ldc, batch_count) & bind(c, name='hipblasDgeamBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeamBatchedFortran type(c_ptr), value :: handle @@ -12333,7 +12333,7 @@ function hipblasCgeamBatchedFortran(handle, transA, transB, m, n, alpha, & A, lda, beta, B, ldb, C, ldc, batch_count) & bind(c, name='hipblasCgeamBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeamBatchedFortran type(c_ptr), value :: handle @@ -12359,7 +12359,7 @@ function hipblasZgeamBatchedFortran(handle, transA, transB, m, n, alpha, & A, lda, beta, B, ldb, C, ldc, batch_count) & bind(c, name='hipblasZgeamBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeamBatchedFortran type(c_ptr), value :: handle @@ -12386,7 +12386,7 @@ function hipblasSgeamStridedBatchedFortran(handle, transA, transB, m, n, alpha, A, lda, stride_A, beta, B, ldb, stride_B, C, ldc, stride_C, batch_count) & bind(c, name='hipblasSgeamStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeamStridedBatchedFortran type(c_ptr), value :: handle @@ -12415,7 +12415,7 @@ function hipblasDgeamStridedBatchedFortran(handle, transA, transB, m, n, alpha, A, lda, stride_A, beta, B, ldb, stride_B, C, ldc, stride_C, batch_count) & bind(c, name='hipblasDgeamStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeamStridedBatchedFortran type(c_ptr), value :: handle @@ -12444,7 +12444,7 @@ function hipblasCgeamStridedBatchedFortran(handle, transA, transB, m, n, alpha, A, lda, stride_A, beta, B, ldb, stride_B, C, ldc, stride_C, batch_count) & bind(c, name='hipblasCgeamStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeamStridedBatchedFortran type(c_ptr), value :: handle @@ -12473,7 +12473,7 @@ function hipblasZgeamStridedBatchedFortran(handle, transA, transB, m, n, alpha, A, lda, stride_A, beta, B, ldb, stride_B, C, ldc, stride_C, batch_count) & bind(c, name='hipblasZgeamStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeamStridedBatchedFortran type(c_ptr), value :: handle @@ -12508,8 +12508,7 @@ function hipblasGemmExFortran(handle, transA, transB, m, n, k, alpha, a, a_type, compute_type, algo) & bind(c, name='hipblasGemmExFortran') use iso_c_binding - use hipblas - use hip + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmExFortran type(c_ptr), value :: handle @@ -12542,8 +12541,7 @@ function hipblasGemmBatchedExFortran(handle, transA, transB, m, n, k, alpha, a, batch_count, compute_type, algo) & bind(c, name='hipblasGemmBatchedExFortran') use iso_c_binding - use hipblas - use hip + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmBatchedExFortran type(c_ptr), value :: handle @@ -12577,8 +12575,7 @@ function hipblasGemmStridedBatchedExFortran(handle, transA, transB, m, n, k, alp batch_count, compute_type, algo) & bind(c, name='hipblasGemmStridedBatchedExFortran') use iso_c_binding - use hipblas - use hip + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmStridedBatchedExFortran type(c_ptr), value :: handle @@ -12615,8 +12612,7 @@ function hipblasGemmExWithFlagsFortran(handle, transA, transB, m, n, k, alpha, a compute_type, algo, flags) & bind(c, name='hipblasGemmExWithFlagsFortran') use iso_c_binding - use hipblas - use hip + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmExWithFlagsFortran type(c_ptr), value :: handle @@ -12650,8 +12646,7 @@ function hipblasGemmBatchedExWithFlagsFortran(handle, transA, transB, m, n, k, a batch_count, compute_type, algo, flags) & bind(c, name='hipblasGemmBatchedExWithFlagsFortran') use iso_c_binding - use hipblas - use hip + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmBatchedExWithFlagsFortran type(c_ptr), value :: handle @@ -12687,8 +12682,7 @@ function hipblasGemmGroupedBatchedExFortran(handle, transA_array, transB_array, ldd_array, group_count, group_size, compute_type, algo) & bind(c, name='hipblasGemmGroupedBatchedExFortran') use iso_c_binding - use hipblas - use hip + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmGroupedBatchedExFortran type(c_ptr), value :: handle @@ -12728,8 +12722,7 @@ function hipblasGemmGroupedBatchedExWithFlagsFortran(handle, transA_array, trans ldd_array, group_count, group_size, compute_type, algo, flags) & bind(c, name='hipblasGemmGroupedBatchedExWithFlagsFortran') use iso_c_binding - use hipblas - use hip + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmGroupedBatchedExWithFlagsFortran type(c_ptr), value :: handle @@ -12769,8 +12762,7 @@ function hipblasGemmStridedBatchedExWithFlagsFortran(handle, transA, transB, m, batch_count, compute_type, algo, flags) & bind(c, name='hipblasGemmStridedBatchedExWithFlagsFortran') use iso_c_binding - use hipblas - use hip + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmStridedBatchedExWithFlagsFortran type(c_ptr), value :: handle @@ -12805,11 +12797,10 @@ end function hipblasGemmStridedBatchedExWithFlagsFortran ! syrkEx function hipblasSyrkExFortran(handle, uplo, transA, n, k, alpha, a, a_type, lda, & - beta, c, c_type, ldc, compute_type) & + beta, c, c_type, ldc) & bind(c, name='hipblasSyrkExFortran') use iso_c_binding - use hipblas - use hip + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSyrkExFortran type(c_ptr), value :: handle @@ -12825,10 +12816,9 @@ function hipblasSyrkExFortran(handle, uplo, transA, n, k, alpha, a, a_type, lda, type(c_ptr), value :: c integer(kind(HIP_R_16F)), value :: c_type integer(c_int), value :: ldc - integer(kind(HIP_R_16F)), value :: compute_type hipblasSyrkExFortran = & hipblasSyrkEx(handle, uplo, transA, n, k, alpha, & - a, a_type, lda, beta, c, c_type, ldc, compute_type) + a, a_type, lda, beta, c, c_type, ldc) end function hipblasSyrkExFortran ! herkEx @@ -12836,8 +12826,7 @@ function hipblasHerkExFortran(handle, uplo, transA, n, k, alpha, a, a_type, lda, beta, c, c_type, ldc, compute_type) & bind(c, name='hipblasHerkExFortran') use iso_c_binding - use hipblas - use hip + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHerkExFortran type(c_ptr), value :: handle @@ -12864,8 +12853,7 @@ function hipblasTrsmExFortran(handle, side, uplo, transA, diag, m, n, alpha, A, B, ldb, invA, invA_size, compute_type) & bind(c, name='hipblasTrsmExFortran') use iso_c_binding - use hipblas - use hip + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasTrsmExFortran type(c_ptr), value :: handle @@ -12892,8 +12880,7 @@ function hipblasTrsmBatchedExFortran(handle, side, uplo, transA, diag, m, n, alp B, ldb, batch_count, invA, invA_size, compute_type) & bind(c, name='hipblasTrsmBatchedExFortran') use iso_c_binding - use hipblas - use hip + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasTrsmBatchedExFortran type(c_ptr), value :: handle @@ -12921,8 +12908,7 @@ function hipblasTrsmStridedBatchedExFortran(handle, side, uplo, transA, diag, m, B, ldb, stride_B, batch_count, invA, invA_size, stride_invA, compute_type) & bind(c, name='hipblasTrsmStridedBatchedExFortran') use iso_c_binding - use hipblas - use hip + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasTrsmStridedBatchedExFortran type(c_ptr), value :: handle @@ -12953,8 +12939,7 @@ end function hipblasTrsmStridedBatchedExFortran function hipblasAxpyExFortran(handle, n, alpha, alphaType, x, xType, incx, y, yType, incy, executionType) & bind(c, name='hipblasAxpyExFortran') use iso_c_binding - use hipblas - use hip + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasAxpyExFortran type(c_ptr), value :: handle @@ -12976,8 +12961,7 @@ end function hipblasAxpyExFortran function hipblasAxpyBatchedExFortran(handle, n, alpha, alphaType, x, xType, incx, y, yType, incy, batch_count, executionType) & bind(c, name='hipblasAxpyBatchedExFortran') use iso_c_binding - use hipblas - use hip + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasAxpyBatchedExFortran type(c_ptr), value :: handle @@ -13001,8 +12985,7 @@ function hipblasAxpyStridedBatchedExFortran(handle, n, alpha, alphaType, x, xTyp y, yType, incy, stridey, batch_count, executionType) & bind(c, name='hipblasAxpyStridedBatchedExFortran') use iso_c_binding - use hipblas - use hip + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasAxpyStridedBatchedExFortran type(c_ptr), value :: handle @@ -13030,8 +13013,7 @@ function hipblasDotExFortran(handle, n, x, xType, incx, y, yType, incy, result, resultType, executionType) & bind(c, name='hipblasDotExFortran') use iso_c_binding - use hipblas - use hip + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDotExFortran type(c_ptr), value :: handle @@ -13054,8 +13036,7 @@ function hipblasDotcExFortran(handle, n, x, xType, incx, y, yType, incy, result, resultType, executionType) & bind(c, name='hipblasDotcExFortran') use iso_c_binding - use hipblas - use hip + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDotcExFortran type(c_ptr), value :: handle @@ -13078,8 +13059,7 @@ function hipblasDotBatchedExFortran(handle, n, x, xType, incx, y, yType, incy, b resultType, executionType) & bind(c, name='hipblasDotBatchedExFortran') use iso_c_binding - use hipblas - use hip + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDotBatchedExFortran type(c_ptr), value :: handle @@ -13103,8 +13083,7 @@ function hipblasDotcBatchedExFortran(handle, n, x, xType, incx, y, yType, incy, resultType, executionType) & bind(c, name='hipblasDotcBatchedExFortran') use iso_c_binding - use hipblas - use hip + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDotcBatchedExFortran type(c_ptr), value :: handle @@ -13128,8 +13107,7 @@ function hipblasDotStridedBatchedExFortran(handle, n, x, xType, incx, stridex, & y, yType, incy, stridey, batch_count, result, resultType, executionType) & bind(c, name='hipblasDotStridedBatchedExFortran') use iso_c_binding - use hipblas - use hip + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDotStridedBatchedExFortran type(c_ptr), value :: handle @@ -13156,8 +13134,7 @@ function hipblasDotcStridedBatchedExFortran(handle, n, x, xType, incx, stridex, y, yType, incy, stridey, batch_count, result, resultType, executionType) & bind(c, name='hipblasDotcStridedBatchedExFortran') use iso_c_binding - use hipblas - use hip + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDotcStridedBatchedExFortran type(c_ptr), value :: handle @@ -13184,8 +13161,7 @@ end function hipblasDotcStridedBatchedExFortran function hipblasNrm2ExFortran(handle, n, x, xType, incx, result, resultType, executionType) & bind(c, name='hipblasNrm2ExFortran') use iso_c_binding - use hipblas - use hip + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasNrm2ExFortran type(c_ptr), value :: handle @@ -13204,8 +13180,7 @@ end function hipblasNrm2ExFortran function hipblasNrm2BatchedExFortran(handle, n, x, xType, incx, batch_count, result, resultType, executionType) & bind(c, name='hipblasNrm2BatchedExFortran') use iso_c_binding - use hipblas - use hip + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasNrm2BatchedExFortran type(c_ptr), value :: handle @@ -13226,8 +13201,7 @@ function hipblasNrm2StridedBatchedExFortran(handle, n, x, xType, incx, stridex, batch_count, result, resultType, executionType) & bind(c, name='hipblasNrm2StridedBatchedExFortran') use iso_c_binding - use hipblas - use hip + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasNrm2StridedBatchedExFortran type(c_ptr), value :: handle @@ -13251,8 +13225,7 @@ function hipblasRotExFortran(handle, n, x, xType, incx, y, yType, incy, c, s, & csType, executionType) & bind(c, name='hipblasRotExFortran') use iso_c_binding - use hipblas - use hip + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasRotExFortran type(c_ptr), value :: handle @@ -13276,8 +13249,7 @@ function hipblasRotBatchedExFortran(handle, n, x, xType, incx, y, yType, incy, c csType, batch_count, executionType) & bind(c, name='hipblasRotBatchedExFortran') use iso_c_binding - use hipblas - use hip + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasRotBatchedExFortran type(c_ptr), value :: handle @@ -13302,8 +13274,7 @@ function hipblasRotStridedBatchedExFortran(handle, n, x, xType, incx, stridex, & y, yType, incy, stridey, c, s, csType, batch_count, executionType) & bind(c, name='hipblasRotStridedBatchedExFortran') use iso_c_binding - use hipblas - use hip + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasRotStridedBatchedExFortran type(c_ptr), value :: handle @@ -13331,8 +13302,7 @@ end function hipblasRotStridedBatchedExFortran function hipblasScalExFortran(handle, n, alpha, alphaType, x, xType, incx, executionType) & bind(c, name='hipblasScalExFortran') use iso_c_binding - use hipblas - use hip + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScalExFortran type(c_ptr), value :: handle @@ -13351,8 +13321,7 @@ end function hipblasScalExFortran function hipblasScalBatchedExFortran(handle, n, alpha, alphaType, x, xType, incx, batch_count, executionType) & bind(c, name='hipblasScalBatchedExFortran') use iso_c_binding - use hipblas - use hip + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScalBatchedExFortran type(c_ptr), value :: handle @@ -13373,8 +13342,7 @@ function hipblasScalStridedBatchedExFortran(handle, n, alpha, alphaType, x, xTyp batch_count, executionType) & bind(c, name='hipblasScalStridedBatchedExFortran') use iso_c_binding - use hipblas - use hip + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScalStridedBatchedExFortran type(c_ptr), value :: handle @@ -13397,7 +13365,7 @@ end function hipblasScalStridedBatchedExFortran ! function hipblasCsyrkExFortran(handle, uplo, trans, n, k, alpha, A, Atype, lda, beta, C, Ctype, ldc) & ! bind(c, name = 'hipblasCsyrkExFortran') ! use iso_c_binding -! use hipblas +! use hipblas_enums ! implicit none ! integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkExFortran ! type(c_ptr), value :: handle @@ -13420,7 +13388,7 @@ end function hipblasScalStridedBatchedExFortran ! function hipblasCherkExFortran(handle, uplo, trans, n, k, alpha, A, Atype, lda, beta, C, Ctype, ldc) & ! bind(c, name = 'hipblasCherkExFortran') ! use iso_c_binding -! use hipblas +! use hipblas_enums ! implicit none ! integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkExFortran ! type(c_ptr), value :: handle diff --git a/projects/hipblas/clients/include/hipblas_fortran_blas_64.f90 b/projects/hipblas/clients/include/hipblas_fortran_blas_64.f90 index 9ed9711c0d48..93970cf1b711 100644 --- a/projects/hipblas/clients/include/hipblas_fortran_blas_64.f90 +++ b/projects/hipblas/clients/include/hipblas_fortran_blas_64.f90 @@ -29,7 +29,7 @@ function hipblasIsamax_64Fortran(handle, n, x, incx, result) & bind(c, name='hipblasIsamax_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamax_64Fortran type(c_ptr), value :: handle @@ -45,7 +45,7 @@ end function hipblasIsamax_64Fortran function hipblasIdamax_64Fortran(handle, n, x, incx, result) & bind(c, name='hipblasIdamax_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamax_64Fortran type(c_ptr), value :: handle @@ -61,7 +61,7 @@ end function hipblasIdamax_64Fortran function hipblasIcamax_64Fortran(handle, n, x, incx, result) & bind(c, name='hipblasIcamax_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamax_64Fortran type(c_ptr), value :: handle @@ -77,7 +77,7 @@ end function hipblasIcamax_64Fortran function hipblasIzamax_64Fortran(handle, n, x, incx, result) & bind(c, name='hipblasIzamax_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamax_64Fortran type(c_ptr), value :: handle @@ -94,7 +94,7 @@ end function hipblasIzamax_64Fortran function hipblasIsamaxBatched_64Fortran(handle, n, x, incx, batch_count, result) & bind(c, name='hipblasIsamaxBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamaxBatched_64Fortran type(c_ptr), value :: handle @@ -111,7 +111,7 @@ end function hipblasIsamaxBatched_64Fortran function hipblasIdamaxBatched_64Fortran(handle, n, x, incx, batch_count, result) & bind(c, name='hipblasIdamaxBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamaxBatched_64Fortran type(c_ptr), value :: handle @@ -128,7 +128,7 @@ end function hipblasIdamaxBatched_64Fortran function hipblasIcamaxBatched_64Fortran(handle, n, x, incx, batch_count, result) & bind(c, name='hipblasIcamaxBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamaxBatched_64Fortran type(c_ptr), value :: handle @@ -145,7 +145,7 @@ end function hipblasIcamaxBatched_64Fortran function hipblasIzamaxBatched_64Fortran(handle, n, x, incx, batch_count, result) & bind(c, name='hipblasIzamaxBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamaxBatched_64Fortran type(c_ptr), value :: handle @@ -163,7 +163,7 @@ end function hipblasIzamaxBatched_64Fortran function hipblasIsamaxStridedBatched_64Fortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='hipblasIsamaxStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamaxStridedBatched_64Fortran type(c_ptr), value :: handle @@ -181,7 +181,7 @@ end function hipblasIsamaxStridedBatched_64Fortran function hipblasIdamaxStridedBatched_64Fortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='hipblasIdamaxStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamaxStridedBatched_64Fortran type(c_ptr), value :: handle @@ -199,7 +199,7 @@ end function hipblasIdamaxStridedBatched_64Fortran function hipblasIcamaxStridedBatched_64Fortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='hipblasIcamaxStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamaxStridedBatched_64Fortran type(c_ptr), value :: handle @@ -217,7 +217,7 @@ end function hipblasIcamaxStridedBatched_64Fortran function hipblasIzamaxStridedBatched_64Fortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='hipblasIzamaxStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamaxStridedBatched_64Fortran type(c_ptr), value :: handle @@ -236,7 +236,7 @@ end function hipblasIzamaxStridedBatched_64Fortran function hipblasIsamin_64Fortran(handle, n, x, incx, result) & bind(c, name='hipblasIsamin_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamin_64Fortran type(c_ptr), value :: handle @@ -252,7 +252,7 @@ end function hipblasIsamin_64Fortran function hipblasIdamin_64Fortran(handle, n, x, incx, result) & bind(c, name='hipblasIdamin_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamin_64Fortran type(c_ptr), value :: handle @@ -268,7 +268,7 @@ end function hipblasIdamin_64Fortran function hipblasIcamin_64Fortran(handle, n, x, incx, result) & bind(c, name='hipblasIcamin_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamin_64Fortran type(c_ptr), value :: handle @@ -284,7 +284,7 @@ end function hipblasIcamin_64Fortran function hipblasIzamin_64Fortran(handle, n, x, incx, result) & bind(c, name='hipblasIzamin_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamin_64Fortran type(c_ptr), value :: handle @@ -301,7 +301,7 @@ end function hipblasIzamin_64Fortran function hipblasIsaminBatched_64Fortran(handle, n, x, incx, batch_count, result) & bind(c, name='hipblasIsaminBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsaminBatched_64Fortran type(c_ptr), value :: handle @@ -318,7 +318,7 @@ end function hipblasIsaminBatched_64Fortran function hipblasIdaminBatched_64Fortran(handle, n, x, incx, batch_count, result) & bind(c, name='hipblasIdaminBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdaminBatched_64Fortran type(c_ptr), value :: handle @@ -335,7 +335,7 @@ end function hipblasIdaminBatched_64Fortran function hipblasIcaminBatched_64Fortran(handle, n, x, incx, batch_count, result) & bind(c, name='hipblasIcaminBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcaminBatched_64Fortran type(c_ptr), value :: handle @@ -352,7 +352,7 @@ end function hipblasIcaminBatched_64Fortran function hipblasIzaminBatched_64Fortran(handle, n, x, incx, batch_count, result) & bind(c, name='hipblasIzaminBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzaminBatched_64Fortran type(c_ptr), value :: handle @@ -370,7 +370,7 @@ end function hipblasIzaminBatched_64Fortran function hipblasIsaminStridedBatched_64Fortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='hipblasIsaminStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsaminStridedBatched_64Fortran type(c_ptr), value :: handle @@ -388,7 +388,7 @@ end function hipblasIsaminStridedBatched_64Fortran function hipblasIdaminStridedBatched_64Fortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='hipblasIdaminStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdaminStridedBatched_64Fortran type(c_ptr), value :: handle @@ -406,7 +406,7 @@ end function hipblasIdaminStridedBatched_64Fortran function hipblasIcaminStridedBatched_64Fortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='hipblasIcaminStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcaminStridedBatched_64Fortran type(c_ptr), value :: handle @@ -424,7 +424,7 @@ end function hipblasIcaminStridedBatched_64Fortran function hipblasIzaminStridedBatched_64Fortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='hipblasIzaminStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzaminStridedBatched_64Fortran type(c_ptr), value :: handle @@ -443,7 +443,7 @@ end function hipblasIzaminStridedBatched_64Fortran function hipblasSasum_64Fortran(handle, n, x, incx, result) & bind(c, name='hipblasSasum_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasum_64Fortran type(c_ptr), value :: handle @@ -459,7 +459,7 @@ end function hipblasSasum_64Fortran function hipblasDasum_64Fortran(handle, n, x, incx, result) & bind(c, name='hipblasDasum_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasum_64Fortran type(c_ptr), value :: handle @@ -475,7 +475,7 @@ end function hipblasDasum_64Fortran function hipblasScasum_64Fortran(handle, n, x, incx, result) & bind(c, name='hipblasScasum_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasum_64Fortran type(c_ptr), value :: handle @@ -491,7 +491,7 @@ end function hipblasScasum_64Fortran function hipblasDzasum_64Fortran(handle, n, x, incx, result) & bind(c, name='hipblasDzasum_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasum_64Fortran type(c_ptr), value :: handle @@ -508,7 +508,7 @@ end function hipblasDzasum_64Fortran function hipblasSasumBatched_64Fortran(handle, n, x, incx, batch_count, result) & bind(c, name='hipblasSasumBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasumBatched_64Fortran type(c_ptr), value :: handle @@ -525,7 +525,7 @@ end function hipblasSasumBatched_64Fortran function hipblasDasumBatched_64Fortran(handle, n, x, incx, batch_count, result) & bind(c, name='hipblasDasumBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasumBatched_64Fortran type(c_ptr), value :: handle @@ -542,7 +542,7 @@ end function hipblasDasumBatched_64Fortran function hipblasScasumBatched_64Fortran(handle, n, x, incx, batch_count, result) & bind(c, name='hipblasScasumBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasumBatched_64Fortran type(c_ptr), value :: handle @@ -559,7 +559,7 @@ end function hipblasScasumBatched_64Fortran function hipblasDzasumBatched_64Fortran(handle, n, x, incx, batch_count, result) & bind(c, name='hipblasDzasumBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasumBatched_64Fortran type(c_ptr), value :: handle @@ -577,7 +577,7 @@ end function hipblasDzasumBatched_64Fortran function hipblasSasumStridedBatched_64Fortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='hipblasSasumStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasumStridedBatched_64Fortran type(c_ptr), value :: handle @@ -595,7 +595,7 @@ end function hipblasSasumStridedBatched_64Fortran function hipblasDasumStridedBatched_64Fortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='hipblasDasumStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasumStridedBatched_64Fortran type(c_ptr), value :: handle @@ -613,7 +613,7 @@ end function hipblasDasumStridedBatched_64Fortran function hipblasScasumStridedBatched_64Fortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='hipblasScasumStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasumStridedBatched_64Fortran type(c_ptr), value :: handle @@ -631,7 +631,7 @@ end function hipblasScasumStridedBatched_64Fortran function hipblasDzasumStridedBatched_64Fortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='hipblasDzasumStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasumStridedBatched_64Fortran type(c_ptr), value :: handle @@ -650,7 +650,7 @@ end function hipblasDzasumStridedBatched_64Fortran function hipblasHaxpy_64Fortran(handle, n, alpha, x, incx, y, incy) & bind(c, name='hipblasHaxpy_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHaxpy_64Fortran type(c_ptr), value :: handle @@ -668,7 +668,7 @@ end function hipblasHaxpy_64Fortran function hipblasSaxpy_64Fortran(handle, n, alpha, x, incx, y, incy) & bind(c, name='hipblasSaxpy_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpy_64Fortran type(c_ptr), value :: handle @@ -686,7 +686,7 @@ end function hipblasSaxpy_64Fortran function hipblasDaxpy_64Fortran(handle, n, alpha, x, incx, y, incy) & bind(c, name='hipblasDaxpy_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpy_64Fortran type(c_ptr), value :: handle @@ -704,7 +704,7 @@ end function hipblasDaxpy_64Fortran function hipblasCaxpy_64Fortran(handle, n, alpha, x, incx, y, incy) & bind(c, name='hipblasCaxpy_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpy_64Fortran type(c_ptr), value :: handle @@ -722,7 +722,7 @@ end function hipblasCaxpy_64Fortran function hipblasZaxpy_64Fortran(handle, n, alpha, x, incx, y, incy) & bind(c, name='hipblasZaxpy_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpy_64Fortran type(c_ptr), value :: handle @@ -741,7 +741,7 @@ end function hipblasZaxpy_64Fortran function hipblasHaxpyBatched_64Fortran(handle, n, alpha, x, incx, y, incy, batch_count) & bind(c, name='hipblasHaxpyBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHaxpyBatched_64Fortran type(c_ptr), value :: handle @@ -760,7 +760,7 @@ end function hipblasHaxpyBatched_64Fortran function hipblasSaxpyBatched_64Fortran(handle, n, alpha, x, incx, y, incy, batch_count) & bind(c, name='hipblasSaxpyBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpyBatched_64Fortran type(c_ptr), value :: handle @@ -779,7 +779,7 @@ end function hipblasSaxpyBatched_64Fortran function hipblasDaxpyBatched_64Fortran(handle, n, alpha, x, incx, y, incy, batch_count) & bind(c, name='hipblasDaxpyBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpyBatched_64Fortran type(c_ptr), value :: handle @@ -798,7 +798,7 @@ end function hipblasDaxpyBatched_64Fortran function hipblasCaxpyBatched_64Fortran(handle, n, alpha, x, incx, y, incy, batch_count) & bind(c, name='hipblasCaxpyBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpyBatched_64Fortran type(c_ptr), value :: handle @@ -817,7 +817,7 @@ end function hipblasCaxpyBatched_64Fortran function hipblasZaxpyBatched_64Fortran(handle, n, alpha, x, incx, y, incy, batch_count) & bind(c, name='hipblasZaxpyBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpyBatched_64Fortran type(c_ptr), value :: handle @@ -837,7 +837,7 @@ end function hipblasZaxpyBatched_64Fortran function hipblasHaxpyStridedBatched_64Fortran(handle, n, alpha, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='hipblasHaxpyStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHaxpyStridedBatched_64Fortran type(c_ptr), value :: handle @@ -858,7 +858,7 @@ end function hipblasHaxpyStridedBatched_64Fortran function hipblasSaxpyStridedBatched_64Fortran(handle, n, alpha, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='hipblasSaxpyStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpyStridedBatched_64Fortran type(c_ptr), value :: handle @@ -879,7 +879,7 @@ end function hipblasSaxpyStridedBatched_64Fortran function hipblasDaxpyStridedBatched_64Fortran(handle, n, alpha, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='hipblasDaxpyStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpyStridedBatched_64Fortran type(c_ptr), value :: handle @@ -900,7 +900,7 @@ end function hipblasDaxpyStridedBatched_64Fortran function hipblasCaxpyStridedBatched_64Fortran(handle, n, alpha, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='hipblasCaxpyStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpyStridedBatched_64Fortran type(c_ptr), value :: handle @@ -921,7 +921,7 @@ end function hipblasCaxpyStridedBatched_64Fortran function hipblasZaxpyStridedBatched_64Fortran(handle, n, alpha, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='hipblasZaxpyStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpyStridedBatched_64Fortran type(c_ptr), value :: handle @@ -943,7 +943,7 @@ end function hipblasZaxpyStridedBatched_64Fortran function hipblasScopy_64Fortran(handle, n, x, incx, y, incy) & bind(c, name='hipblasScopy_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScopy_64Fortran type(c_ptr), value :: handle @@ -960,7 +960,7 @@ end function hipblasScopy_64Fortran function hipblasDcopy_64Fortran(handle, n, x, incx, y, incy) & bind(c, name='hipblasDcopy_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDcopy_64Fortran type(c_ptr), value :: handle @@ -977,7 +977,7 @@ end function hipblasDcopy_64Fortran function hipblasCcopy_64Fortran(handle, n, x, incx, y, incy) & bind(c, name='hipblasCcopy_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCcopy_64Fortran type(c_ptr), value :: handle @@ -994,7 +994,7 @@ end function hipblasCcopy_64Fortran function hipblasZcopy_64Fortran(handle, n, x, incx, y, incy) & bind(c, name='hipblasZcopy_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZcopy_64Fortran type(c_ptr), value :: handle @@ -1012,7 +1012,7 @@ end function hipblasZcopy_64Fortran function hipblasScopyBatched_64Fortran(handle, n, x, incx, y, incy, batch_count) & bind(c, name='hipblasScopyBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScopyBatched_64Fortran type(c_ptr), value :: handle @@ -1030,7 +1030,7 @@ end function hipblasScopyBatched_64Fortran function hipblasDcopyBatched_64Fortran(handle, n, x, incx, y, incy, batch_count) & bind(c, name='hipblasDcopyBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDcopyBatched_64Fortran type(c_ptr), value :: handle @@ -1048,7 +1048,7 @@ end function hipblasDcopyBatched_64Fortran function hipblasCcopyBatched_64Fortran(handle, n, x, incx, y, incy, batch_count) & bind(c, name='hipblasCcopyBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCcopyBatched_64Fortran type(c_ptr), value :: handle @@ -1066,7 +1066,7 @@ end function hipblasCcopyBatched_64Fortran function hipblasZcopyBatched_64Fortran(handle, n, x, incx, y, incy, batch_count) & bind(c, name='hipblasZcopyBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZcopyBatched_64Fortran type(c_ptr), value :: handle @@ -1085,7 +1085,7 @@ end function hipblasZcopyBatched_64Fortran function hipblasScopyStridedBatched_64Fortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='hipblasScopyStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScopyStridedBatched_64Fortran type(c_ptr), value :: handle @@ -1105,7 +1105,7 @@ end function hipblasScopyStridedBatched_64Fortran function hipblasDcopyStridedBatched_64Fortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='hipblasDcopyStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDcopyStridedBatched_64Fortran type(c_ptr), value :: handle @@ -1125,7 +1125,7 @@ end function hipblasDcopyStridedBatched_64Fortran function hipblasCcopyStridedBatched_64Fortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='hipblasCcopyStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCcopyStridedBatched_64Fortran type(c_ptr), value :: handle @@ -1145,7 +1145,7 @@ end function hipblasCcopyStridedBatched_64Fortran function hipblasZcopyStridedBatched_64Fortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='hipblasZcopyStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZcopyStridedBatched_64Fortran type(c_ptr), value :: handle @@ -1166,7 +1166,7 @@ end function hipblasZcopyStridedBatched_64Fortran function hipblasSdot_64Fortran(handle, n, x, incx, y, incy, result) & bind(c, name='hipblasSdot_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdot_64Fortran type(c_ptr), value :: handle @@ -1184,7 +1184,7 @@ end function hipblasSdot_64Fortran function hipblasDdot_64Fortran(handle, n, x, incx, y, incy, result) & bind(c, name='hipblasDdot_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdot_64Fortran type(c_ptr), value :: handle @@ -1202,7 +1202,7 @@ end function hipblasDdot_64Fortran function hipblasHdot_64Fortran(handle, n, x, incx, y, incy, result) & bind(c, name='hipblasHdot_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHdot_64Fortran type(c_ptr), value :: handle @@ -1220,7 +1220,7 @@ end function hipblasHdot_64Fortran function hipblasBfdot_64Fortran(handle, n, x, incx, y, incy, result) & bind(c, name='hipblasBfdot_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasBfdot_64Fortran type(c_ptr), value :: handle @@ -1238,7 +1238,7 @@ end function hipblasBfdot_64Fortran function hipblasCdotu_64Fortran(handle, n, x, incx, y, incy, result) & bind(c, name='hipblasCdotu_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotu_64Fortran type(c_ptr), value :: handle @@ -1256,7 +1256,7 @@ end function hipblasCdotu_64Fortran function hipblasCdotc_64Fortran(handle, n, x, incx, y, incy, result) & bind(c, name='hipblasCdotc_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotc_64Fortran type(c_ptr), value :: handle @@ -1274,7 +1274,7 @@ end function hipblasCdotc_64Fortran function hipblasZdotu_64Fortran(handle, n, x, incx, y, incy, result) & bind(c, name='hipblasZdotu_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotu_64Fortran type(c_ptr), value :: handle @@ -1292,7 +1292,7 @@ end function hipblasZdotu_64Fortran function hipblasZdotc_64Fortran(handle, n, x, incx, y, incy, result) & bind(c, name='hipblasZdotc_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotc_64Fortran type(c_ptr), value :: handle @@ -1311,7 +1311,7 @@ end function hipblasZdotc_64Fortran function hipblasSdotBatched_64Fortran(handle, n, x, incx, y, incy, batch_count, result) & bind(c, name='hipblasSdotBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdotBatched_64Fortran type(c_ptr), value :: handle @@ -1330,7 +1330,7 @@ end function hipblasSdotBatched_64Fortran function hipblasDdotBatched_64Fortran(handle, n, x, incx, y, incy, batch_count, result) & bind(c, name='hipblasDdotBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdotBatched_64Fortran type(c_ptr), value :: handle @@ -1349,7 +1349,7 @@ end function hipblasDdotBatched_64Fortran function hipblasHdotBatched_64Fortran(handle, n, x, incx, y, incy, batch_count, result) & bind(c, name='hipblasHdotBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHdotBatched_64Fortran type(c_ptr), value :: handle @@ -1368,7 +1368,7 @@ end function hipblasHdotBatched_64Fortran function hipblasBfdotBatched_64Fortran(handle, n, x, incx, y, incy, batch_count, result) & bind(c, name='hipblasBfdotBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasBfdotBatched_64Fortran type(c_ptr), value :: handle @@ -1387,7 +1387,7 @@ end function hipblasBfdotBatched_64Fortran function hipblasCdotuBatched_64Fortran(handle, n, x, incx, y, incy, batch_count, result) & bind(c, name='hipblasCdotuBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotuBatched_64Fortran type(c_ptr), value :: handle @@ -1406,7 +1406,7 @@ end function hipblasCdotuBatched_64Fortran function hipblasCdotcBatched_64Fortran(handle, n, x, incx, y, incy, batch_count, result) & bind(c, name='hipblasCdotcBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotcBatched_64Fortran type(c_ptr), value :: handle @@ -1425,7 +1425,7 @@ end function hipblasCdotcBatched_64Fortran function hipblasZdotuBatched_64Fortran(handle, n, x, incx, y, incy, batch_count, result) & bind(c, name='hipblasZdotuBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotuBatched_64Fortran type(c_ptr), value :: handle @@ -1444,7 +1444,7 @@ end function hipblasZdotuBatched_64Fortran function hipblasZdotcBatched_64Fortran(handle, n, x, incx, y, incy, batch_count, result) & bind(c, name='hipblasZdotcBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotcBatched_64Fortran type(c_ptr), value :: handle @@ -1464,7 +1464,7 @@ end function hipblasZdotcBatched_64Fortran function hipblasSdotStridedBatched_64Fortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & bind(c, name='hipblasSdotStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdotStridedBatched_64Fortran type(c_ptr), value :: handle @@ -1485,7 +1485,7 @@ end function hipblasSdotStridedBatched_64Fortran function hipblasDdotStridedBatched_64Fortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & bind(c, name='hipblasDdotStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdotStridedBatched_64Fortran type(c_ptr), value :: handle @@ -1506,7 +1506,7 @@ end function hipblasDdotStridedBatched_64Fortran function hipblasHdotStridedBatched_64Fortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & bind(c, name='hipblasHdotStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHdotStridedBatched_64Fortran type(c_ptr), value :: handle @@ -1527,7 +1527,7 @@ end function hipblasHdotStridedBatched_64Fortran function hipblasBfdotStridedBatched_64Fortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & bind(c, name='hipblasBfdotStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasBfdotStridedBatched_64Fortran type(c_ptr), value :: handle @@ -1548,7 +1548,7 @@ end function hipblasBfdotStridedBatched_64Fortran function hipblasCdotuStridedBatched_64Fortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & bind(c, name='hipblasCdotuStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotuStridedBatched_64Fortran type(c_ptr), value :: handle @@ -1569,7 +1569,7 @@ end function hipblasCdotuStridedBatched_64Fortran function hipblasCdotcStridedBatched_64Fortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & bind(c, name='hipblasCdotcStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotcStridedBatched_64Fortran type(c_ptr), value :: handle @@ -1590,7 +1590,7 @@ end function hipblasCdotcStridedBatched_64Fortran function hipblasZdotuStridedBatched_64Fortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & bind(c, name='hipblasZdotuStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotuStridedBatched_64Fortran type(c_ptr), value :: handle @@ -1611,7 +1611,7 @@ end function hipblasZdotuStridedBatched_64Fortran function hipblasZdotcStridedBatched_64Fortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & bind(c, name='hipblasZdotcStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotcStridedBatched_64Fortran type(c_ptr), value :: handle @@ -1633,7 +1633,7 @@ end function hipblasZdotcStridedBatched_64Fortran function hipblasSnrm2_64Fortran(handle, n, x, incx, result) & bind(c, name='hipblasSnrm2_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2_64Fortran type(c_ptr), value :: handle @@ -1649,7 +1649,7 @@ end function hipblasSnrm2_64Fortran function hipblasDnrm2_64Fortran(handle, n, x, incx, result) & bind(c, name='hipblasDnrm2_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2_64Fortran type(c_ptr), value :: handle @@ -1665,7 +1665,7 @@ end function hipblasDnrm2_64Fortran function hipblasScnrm2_64Fortran(handle, n, x, incx, result) & bind(c, name='hipblasScnrm2_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2_64Fortran type(c_ptr), value :: handle @@ -1681,7 +1681,7 @@ end function hipblasScnrm2_64Fortran function hipblasDznrm2_64Fortran(handle, n, x, incx, result) & bind(c, name='hipblasDznrm2_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2_64Fortran type(c_ptr), value :: handle @@ -1698,7 +1698,7 @@ end function hipblasDznrm2_64Fortran function hipblasSnrm2Batched_64Fortran(handle, n, x, incx, batch_count, result) & bind(c, name='hipblasSnrm2Batched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2Batched_64Fortran type(c_ptr), value :: handle @@ -1715,7 +1715,7 @@ end function hipblasSnrm2Batched_64Fortran function hipblasDnrm2Batched_64Fortran(handle, n, x, incx, batch_count, result) & bind(c, name='hipblasDnrm2Batched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2Batched_64Fortran type(c_ptr), value :: handle @@ -1732,7 +1732,7 @@ end function hipblasDnrm2Batched_64Fortran function hipblasScnrm2Batched_64Fortran(handle, n, x, incx, batch_count, result) & bind(c, name='hipblasScnrm2Batched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2Batched_64Fortran type(c_ptr), value :: handle @@ -1749,7 +1749,7 @@ end function hipblasScnrm2Batched_64Fortran function hipblasDznrm2Batched_64Fortran(handle, n, x, incx, batch_count, result) & bind(c, name='hipblasDznrm2Batched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2Batched_64Fortran type(c_ptr), value :: handle @@ -1767,7 +1767,7 @@ end function hipblasDznrm2Batched_64Fortran function hipblasSnrm2StridedBatched_64Fortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='hipblasSnrm2StridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2StridedBatched_64Fortran type(c_ptr), value :: handle @@ -1785,7 +1785,7 @@ end function hipblasSnrm2StridedBatched_64Fortran function hipblasDnrm2StridedBatched_64Fortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='hipblasDnrm2StridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2StridedBatched_64Fortran type(c_ptr), value :: handle @@ -1803,7 +1803,7 @@ end function hipblasDnrm2StridedBatched_64Fortran function hipblasScnrm2StridedBatched_64Fortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='hipblasScnrm2StridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2StridedBatched_64Fortran type(c_ptr), value :: handle @@ -1821,7 +1821,7 @@ end function hipblasScnrm2StridedBatched_64Fortran function hipblasDznrm2StridedBatched_64Fortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='hipblasDznrm2StridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2StridedBatched_64Fortran type(c_ptr), value :: handle @@ -1840,7 +1840,7 @@ end function hipblasDznrm2StridedBatched_64Fortran function hipblasSrot_64Fortran(handle, n, x, incx, y, incy, c, s) & bind(c, name='hipblasSrot_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrot_64Fortran type(c_ptr), value :: handle @@ -1859,7 +1859,7 @@ end function hipblasSrot_64Fortran function hipblasDrot_64Fortran(handle, n, x, incx, y, incy, c, s) & bind(c, name='hipblasDrot_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrot_64Fortran type(c_ptr), value :: handle @@ -1878,7 +1878,7 @@ end function hipblasDrot_64Fortran function hipblasCrot_64Fortran(handle, n, x, incx, y, incy, c, s) & bind(c, name='hipblasCrot_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrot_64Fortran type(c_ptr), value :: handle @@ -1897,7 +1897,7 @@ end function hipblasCrot_64Fortran function hipblasCsrot_64Fortran(handle, n, x, incx, y, incy, c, s) & bind(c, name='hipblasCsrot_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrot_64Fortran type(c_ptr), value :: handle @@ -1916,7 +1916,7 @@ end function hipblasCsrot_64Fortran function hipblasZrot_64Fortran(handle, n, x, incx, y, incy, c, s) & bind(c, name='hipblasZrot_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrot_64Fortran type(c_ptr), value :: handle @@ -1935,7 +1935,7 @@ end function hipblasZrot_64Fortran function hipblasZdrot_64Fortran(handle, n, x, incx, y, incy, c, s) & bind(c, name='hipblasZdrot_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrot_64Fortran type(c_ptr), value :: handle @@ -1955,7 +1955,7 @@ end function hipblasZdrot_64Fortran function hipblasSrotBatched_64Fortran(handle, n, x, incx, y, incy, c, s, batch_count) & bind(c, name='hipblasSrotBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotBatched_64Fortran type(c_ptr), value :: handle @@ -1975,7 +1975,7 @@ end function hipblasSrotBatched_64Fortran function hipblasDrotBatched_64Fortran(handle, n, x, incx, y, incy, c, s, batch_count) & bind(c, name='hipblasDrotBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotBatched_64Fortran type(c_ptr), value :: handle @@ -1995,7 +1995,7 @@ end function hipblasDrotBatched_64Fortran function hipblasCrotBatched_64Fortran(handle, n, x, incx, y, incy, c, s, batch_count) & bind(c, name='hipblasCrotBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotBatched_64Fortran type(c_ptr), value :: handle @@ -2015,7 +2015,7 @@ end function hipblasCrotBatched_64Fortran function hipblasCsrotBatched_64Fortran(handle, n, x, incx, y, incy, c, s, batch_count) & bind(c, name='hipblasCsrotBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrotBatched_64Fortran type(c_ptr), value :: handle @@ -2035,7 +2035,7 @@ end function hipblasCsrotBatched_64Fortran function hipblasZrotBatched_64Fortran(handle, n, x, incx, y, incy, c, s, batch_count) & bind(c, name='hipblasZrotBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotBatched_64Fortran type(c_ptr), value :: handle @@ -2055,7 +2055,7 @@ end function hipblasZrotBatched_64Fortran function hipblasZdrotBatched_64Fortran(handle, n, x, incx, y, incy, c, s, batch_count) & bind(c, name='hipblasZdrotBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrotBatched_64Fortran type(c_ptr), value :: handle @@ -2076,7 +2076,7 @@ end function hipblasZdrotBatched_64Fortran function hipblasSrotStridedBatched_64Fortran(handle, n, x, incx, stride_x, y, incy, stride_y, c, s, batch_count) & bind(c, name='hipblasSrotStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotStridedBatched_64Fortran type(c_ptr), value :: handle @@ -2098,7 +2098,7 @@ end function hipblasSrotStridedBatched_64Fortran function hipblasDrotStridedBatched_64Fortran(handle, n, x, incx, stride_x, y, incy, stride_y, c, s, batch_count) & bind(c, name='hipblasDrotStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotStridedBatched_64Fortran type(c_ptr), value :: handle @@ -2120,7 +2120,7 @@ end function hipblasDrotStridedBatched_64Fortran function hipblasCrotStridedBatched_64Fortran(handle, n, x, incx, stride_x, y, incy, stride_y, c, s, batch_count) & bind(c, name='hipblasCrotStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotStridedBatched_64Fortran type(c_ptr), value :: handle @@ -2142,7 +2142,7 @@ end function hipblasCrotStridedBatched_64Fortran function hipblasCsrotStridedBatched_64Fortran(handle, n, x, incx, stride_x, y, incy, stride_y, c, s, batch_count) & bind(c, name='hipblasCsrotStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrotStridedBatched_64Fortran type(c_ptr), value :: handle @@ -2164,7 +2164,7 @@ end function hipblasCsrotStridedBatched_64Fortran function hipblasZrotStridedBatched_64Fortran(handle, n, x, incx, stride_x, y, incy, stride_y, c, s, batch_count) & bind(c, name='hipblasZrotStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotStridedBatched_64Fortran type(c_ptr), value :: handle @@ -2186,7 +2186,7 @@ end function hipblasZrotStridedBatched_64Fortran function hipblasZdrotStridedBatched_64Fortran(handle, n, x, incx, stride_x, y, incy, stride_y, c, s, batch_count) & bind(c, name='hipblasZdrotStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrotStridedBatched_64Fortran type(c_ptr), value :: handle @@ -2209,7 +2209,7 @@ end function hipblasZdrotStridedBatched_64Fortran function hipblasSrotg_64Fortran(handle, a, b, c, s) & bind(c, name='hipblasSrotg_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotg_64Fortran type(c_ptr), value :: handle @@ -2225,7 +2225,7 @@ end function hipblasSrotg_64Fortran function hipblasDrotg_64Fortran(handle, a, b, c, s) & bind(c, name='hipblasDrotg_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotg_64Fortran type(c_ptr), value :: handle @@ -2241,7 +2241,7 @@ end function hipblasDrotg_64Fortran function hipblasCrotg_64Fortran(handle, a, b, c, s) & bind(c, name='hipblasCrotg_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotg_64Fortran type(c_ptr), value :: handle @@ -2257,7 +2257,7 @@ end function hipblasCrotg_64Fortran function hipblasZrotg_64Fortran(handle, a, b, c, s) & bind(c, name='hipblasZrotg_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotg_64Fortran type(c_ptr), value :: handle @@ -2274,7 +2274,7 @@ end function hipblasZrotg_64Fortran function hipblasSrotgBatched_64Fortran(handle, a, b, c, s, batch_count) & bind(c, name='hipblasSrotgBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotgBatched_64Fortran type(c_ptr), value :: handle @@ -2291,7 +2291,7 @@ end function hipblasSrotgBatched_64Fortran function hipblasDrotgBatched_64Fortran(handle, a, b, c, s, batch_count) & bind(c, name='hipblasDrotgBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotgBatched_64Fortran type(c_ptr), value :: handle @@ -2308,7 +2308,7 @@ end function hipblasDrotgBatched_64Fortran function hipblasCrotgBatched_64Fortran(handle, a, b, c, s, batch_count) & bind(c, name='hipblasCrotgBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotgBatched_64Fortran type(c_ptr), value :: handle @@ -2325,7 +2325,7 @@ end function hipblasCrotgBatched_64Fortran function hipblasZrotgBatched_64Fortran(handle, a, b, c, s, batch_count) & bind(c, name='hipblasZrotgBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotgBatched_64Fortran type(c_ptr), value :: handle @@ -2343,7 +2343,7 @@ end function hipblasZrotgBatched_64Fortran function hipblasSrotgStridedBatched_64Fortran(handle, a, stride_a, b, stride_b, c, stride_c, s, stride_s, batch_count) & bind(c, name='hipblasSrotgStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotgStridedBatched_64Fortran type(c_ptr), value :: handle @@ -2364,7 +2364,7 @@ end function hipblasSrotgStridedBatched_64Fortran function hipblasDrotgStridedBatched_64Fortran(handle, a, stride_a, b, stride_b, c, stride_c, s, stride_s, batch_count) & bind(c, name='hipblasDrotgStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotgStridedBatched_64Fortran type(c_ptr), value :: handle @@ -2385,7 +2385,7 @@ end function hipblasDrotgStridedBatched_64Fortran function hipblasCrotgStridedBatched_64Fortran(handle, a, stride_a, b, stride_b, c, stride_c, s, stride_s, batch_count) & bind(c, name='hipblasCrotgStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotgStridedBatched_64Fortran type(c_ptr), value :: handle @@ -2406,7 +2406,7 @@ end function hipblasCrotgStridedBatched_64Fortran function hipblasZrotgStridedBatched_64Fortran(handle, a, stride_a, b, stride_b, c, stride_c, s, stride_s, batch_count) & bind(c, name='hipblasZrotgStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotgStridedBatched_64Fortran type(c_ptr), value :: handle @@ -2428,7 +2428,7 @@ end function hipblasZrotgStridedBatched_64Fortran function hipblasSrotm_64Fortran(handle, n, x, incx, y, incy, param) & bind(c, name='hipblasSrotm_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotm_64Fortran type(c_ptr), value :: handle @@ -2446,7 +2446,7 @@ end function hipblasSrotm_64Fortran function hipblasDrotm_64Fortran(handle, n, x, incx, y, incy, param) & bind(c, name='hipblasDrotm_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotm_64Fortran type(c_ptr), value :: handle @@ -2465,7 +2465,7 @@ end function hipblasDrotm_64Fortran function hipblasSrotmBatched_64Fortran(handle, n, x, incx, y, incy, param, batch_count) & bind(c, name='hipblasSrotmBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmBatched_64Fortran type(c_ptr), value :: handle @@ -2484,7 +2484,7 @@ end function hipblasSrotmBatched_64Fortran function hipblasDrotmBatched_64Fortran(handle, n, x, incx, y, incy, param, batch_count) & bind(c, name='hipblasDrotmBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmBatched_64Fortran type(c_ptr), value :: handle @@ -2505,7 +2505,7 @@ function hipblasSrotmStridedBatched_64Fortran(handle, n, x, incx, stride_x, y, i stride_param, batch_count) & bind(c, name='hipblasSrotmStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmStridedBatched_64Fortran type(c_ptr), value :: handle @@ -2529,7 +2529,7 @@ function hipblasDrotmStridedBatched_64Fortran(handle, n, x, incx, stride_x, y, i stride_param, batch_count) & bind(c, name='hipblasDrotmStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmStridedBatched_64Fortran type(c_ptr), value :: handle @@ -2553,7 +2553,7 @@ end function hipblasDrotmStridedBatched_64Fortran function hipblasSrotmg_64Fortran(handle, d1, d2, x1, y1, param) & bind(c, name='hipblasSrotmg_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmg_64Fortran type(c_ptr), value :: handle @@ -2570,7 +2570,7 @@ end function hipblasSrotmg_64Fortran function hipblasDrotmg_64Fortran(handle, d1, d2, x1, y1, param) & bind(c, name='hipblasDrotmg_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmg_64Fortran type(c_ptr), value :: handle @@ -2588,7 +2588,7 @@ end function hipblasDrotmg_64Fortran function hipblasSrotmgBatched_64Fortran(handle, d1, d2, x1, y1, param, batch_count) & bind(c, name='hipblasSrotmgBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmgBatched_64Fortran type(c_ptr), value :: handle @@ -2606,7 +2606,7 @@ end function hipblasSrotmgBatched_64Fortran function hipblasDrotmgBatched_64Fortran(handle, d1, d2, x1, y1, param, batch_count) & bind(c, name='hipblasDrotmgBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmgBatched_64Fortran type(c_ptr), value :: handle @@ -2626,7 +2626,7 @@ function hipblasSrotmgStridedBatched_64Fortran(handle, d1, stride_d1, d2, stride y1, stride_y1, param, stride_param, batch_count) & bind(c, name='hipblasSrotmgStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmgStridedBatched_64Fortran type(c_ptr), value :: handle @@ -2651,7 +2651,7 @@ function hipblasDrotmgStridedBatched_64Fortran(handle, d1, stride_d1, d2, stride y1, stride_y1, param, stride_param, batch_count) & bind(c, name='hipblasDrotmgStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmgStridedBatched_64Fortran type(c_ptr), value :: handle @@ -2676,7 +2676,7 @@ end function hipblasDrotmgStridedBatched_64Fortran function hipblasSscal_64Fortran(handle, n, alpha, x, incx) & bind(c, name='hipblasSscal_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscal_64Fortran type(c_ptr), value :: handle @@ -2692,7 +2692,7 @@ end function hipblasSscal_64Fortran function hipblasDscal_64Fortran(handle, n, alpha, x, incx) & bind(c, name='hipblasDscal_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscal_64Fortran type(c_ptr), value :: handle @@ -2708,7 +2708,7 @@ end function hipblasDscal_64Fortran function hipblasCscal_64Fortran(handle, n, alpha, x, incx) & bind(c, name='hipblasCscal_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscal_64Fortran type(c_ptr), value :: handle @@ -2724,7 +2724,7 @@ end function hipblasCscal_64Fortran function hipblasZscal_64Fortran(handle, n, alpha, x, incx) & bind(c, name='hipblasZscal_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscal_64Fortran type(c_ptr), value :: handle @@ -2740,7 +2740,7 @@ end function hipblasZscal_64Fortran function hipblasCsscal_64Fortran(handle, n, alpha, x, incx) & bind(c, name='hipblasCsscal_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscal_64Fortran type(c_ptr), value :: handle @@ -2756,7 +2756,7 @@ end function hipblasCsscal_64Fortran function hipblasZdscal_64Fortran(handle, n, alpha, x, incx) & bind(c, name='hipblasZdscal_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscal_64Fortran type(c_ptr), value :: handle @@ -2773,7 +2773,7 @@ end function hipblasZdscal_64Fortran function hipblasSscalBatched_64Fortran(handle, n, alpha, x, incx, batch_count) & bind(c, name='hipblasSscalBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscalBatched_64Fortran type(c_ptr), value :: handle @@ -2790,7 +2790,7 @@ end function hipblasSscalBatched_64Fortran function hipblasDscalBatched_64Fortran(handle, n, alpha, x, incx, batch_count) & bind(c, name='hipblasDscalBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscalBatched_64Fortran type(c_ptr), value :: handle @@ -2807,7 +2807,7 @@ end function hipblasDscalBatched_64Fortran function hipblasCscalBatched_64Fortran(handle, n, alpha, x, incx, batch_count) & bind(c, name='hipblasCscalBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscalBatched_64Fortran type(c_ptr), value :: handle @@ -2824,7 +2824,7 @@ end function hipblasCscalBatched_64Fortran function hipblasZscalBatched_64Fortran(handle, n, alpha, x, incx, batch_count) & bind(c, name='hipblasZscalBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscalBatched_64Fortran type(c_ptr), value :: handle @@ -2841,7 +2841,7 @@ end function hipblasZscalBatched_64Fortran function hipblasCsscalBatched_64Fortran(handle, n, alpha, x, incx, batch_count) & bind(c, name='hipblasCsscalBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscalBatched_64Fortran type(c_ptr), value :: handle @@ -2858,7 +2858,7 @@ end function hipblasCsscalBatched_64Fortran function hipblasZdscalBatched_64Fortran(handle, n, alpha, x, incx, batch_count) & bind(c, name='hipblasZdscalBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscalBatched_64Fortran type(c_ptr), value :: handle @@ -2876,7 +2876,7 @@ end function hipblasZdscalBatched_64Fortran function hipblasSscalStridedBatched_64Fortran(handle, n, alpha, x, incx, stride_x, batch_count) & bind(c, name='hipblasSscalStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscalStridedBatched_64Fortran type(c_ptr), value :: handle @@ -2894,7 +2894,7 @@ end function hipblasSscalStridedBatched_64Fortran function hipblasDscalStridedBatched_64Fortran(handle, n, alpha, x, incx, stride_x, batch_count) & bind(c, name='hipblasDscalStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscalStridedBatched_64Fortran type(c_ptr), value :: handle @@ -2912,7 +2912,7 @@ end function hipblasDscalStridedBatched_64Fortran function hipblasCscalStridedBatched_64Fortran(handle, n, alpha, x, incx, stride_x, batch_count) & bind(c, name='hipblasCscalStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscalStridedBatched_64Fortran type(c_ptr), value :: handle @@ -2930,7 +2930,7 @@ end function hipblasCscalStridedBatched_64Fortran function hipblasZscalStridedBatched_64Fortran(handle, n, alpha, x, incx, stride_x, batch_count) & bind(c, name='hipblasZscalStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscalStridedBatched_64Fortran type(c_ptr), value :: handle @@ -2948,7 +2948,7 @@ end function hipblasZscalStridedBatched_64Fortran function hipblasCsscalStridedBatched_64Fortran(handle, n, alpha, x, incx, stride_x, batch_count) & bind(c, name='hipblasCsscalStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscalStridedBatched_64Fortran type(c_ptr), value :: handle @@ -2966,7 +2966,7 @@ end function hipblasCsscalStridedBatched_64Fortran function hipblasZdscalStridedBatched_64Fortran(handle, n, alpha, x, incx, stride_x, batch_count) & bind(c, name='hipblasZdscalStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscalStridedBatched_64Fortran type(c_ptr), value :: handle @@ -2985,7 +2985,7 @@ end function hipblasZdscalStridedBatched_64Fortran function hipblasSswap_64Fortran(handle, n, x, incx, y, incy) & bind(c, name='hipblasSswap_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSswap_64Fortran type(c_ptr), value :: handle @@ -3002,7 +3002,7 @@ end function hipblasSswap_64Fortran function hipblasDswap_64Fortran(handle, n, x, incx, y, incy) & bind(c, name='hipblasDswap_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDswap_64Fortran type(c_ptr), value :: handle @@ -3019,7 +3019,7 @@ end function hipblasDswap_64Fortran function hipblasCswap_64Fortran(handle, n, x, incx, y, incy) & bind(c, name='hipblasCswap_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCswap_64Fortran type(c_ptr), value :: handle @@ -3036,7 +3036,7 @@ end function hipblasCswap_64Fortran function hipblasZswap_64Fortran(handle, n, x, incx, y, incy) & bind(c, name='hipblasZswap_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZswap_64Fortran type(c_ptr), value :: handle @@ -3054,7 +3054,7 @@ end function hipblasZswap_64Fortran function hipblasSswapBatched_64Fortran(handle, n, x, incx, y, incy, batch_count) & bind(c, name='hipblasSswapBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSswapBatched_64Fortran type(c_ptr), value :: handle @@ -3072,7 +3072,7 @@ end function hipblasSswapBatched_64Fortran function hipblasDswapBatched_64Fortran(handle, n, x, incx, y, incy, batch_count) & bind(c, name='hipblasDswapBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDswapBatched_64Fortran type(c_ptr), value :: handle @@ -3090,7 +3090,7 @@ end function hipblasDswapBatched_64Fortran function hipblasCswapBatched_64Fortran(handle, n, x, incx, y, incy, batch_count) & bind(c, name='hipblasCswapBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCswapBatched_64Fortran type(c_ptr), value :: handle @@ -3108,7 +3108,7 @@ end function hipblasCswapBatched_64Fortran function hipblasZswapBatched_64Fortran(handle, n, x, incx, y, incy, batch_count) & bind(c, name='hipblasZswapBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZswapBatched_64Fortran type(c_ptr), value :: handle @@ -3127,7 +3127,7 @@ end function hipblasZswapBatched_64Fortran function hipblasSswapStridedBatched_64Fortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='hipblasSswapStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSswapStridedBatched_64Fortran type(c_ptr), value :: handle @@ -3147,7 +3147,7 @@ end function hipblasSswapStridedBatched_64Fortran function hipblasDswapStridedBatched_64Fortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='hipblasDswapStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDswapStridedBatched_64Fortran type(c_ptr), value :: handle @@ -3167,7 +3167,7 @@ end function hipblasDswapStridedBatched_64Fortran function hipblasCswapStridedBatched_64Fortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='hipblasCswapStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCswapStridedBatched_64Fortran type(c_ptr), value :: handle @@ -3187,7 +3187,7 @@ end function hipblasCswapStridedBatched_64Fortran function hipblasZswapStridedBatched_64Fortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='hipblasZswapStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZswapStridedBatched_64Fortran type(c_ptr), value :: handle @@ -3212,7 +3212,7 @@ end function hipblasZswapStridedBatched_64Fortran function hipblasSgbmv_64Fortran(handle, trans, m, n, kl, ku, alpha, A, lda, x, incx, beta, y, incy) & bind(c, name='hipblasSgbmv_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmv_64Fortran type(c_ptr), value :: handle @@ -3236,7 +3236,7 @@ end function hipblasSgbmv_64Fortran function hipblasDgbmv_64Fortran(handle, trans, m, n, kl, ku, alpha, A, lda, x, incx, beta, y, incy) & bind(c, name='hipblasDgbmv_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmv_64Fortran type(c_ptr), value :: handle @@ -3260,7 +3260,7 @@ end function hipblasDgbmv_64Fortran function hipblasCgbmv_64Fortran(handle, trans, m, n, kl, ku, alpha, A, lda, x, incx, beta, y, incy) & bind(c, name='hipblasCgbmv_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmv_64Fortran type(c_ptr), value :: handle @@ -3284,7 +3284,7 @@ end function hipblasCgbmv_64Fortran function hipblasZgbmv_64Fortran(handle, trans, m, n, kl, ku, alpha, A, lda, x, incx, beta, y, incy) & bind(c, name='hipblasZgbmv_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmv_64Fortran type(c_ptr), value :: handle @@ -3310,7 +3310,7 @@ function hipblasSgbmvBatched_64Fortran(handle, trans, m, n, kl, ku, alpha, A, ld x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasSgbmvBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmvBatched_64Fortran type(c_ptr), value :: handle @@ -3337,7 +3337,7 @@ function hipblasDgbmvBatched_64Fortran(handle, trans, m, n, kl, ku, alpha, A, ld x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasDgbmvBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmvBatched_64Fortran type(c_ptr), value :: handle @@ -3364,7 +3364,7 @@ function hipblasCgbmvBatched_64Fortran(handle, trans, m, n, kl, ku, alpha, A, ld x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasCgbmvBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmvBatched_64Fortran type(c_ptr), value :: handle @@ -3391,7 +3391,7 @@ function hipblasZgbmvBatched_64Fortran(handle, trans, m, n, kl, ku, alpha, A, ld x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasZgbmvBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmvBatched_64Fortran type(c_ptr), value :: handle @@ -3419,7 +3419,7 @@ function hipblasSgbmvStridedBatched_64Fortran(handle, trans, m, n, kl, ku, alpha x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasSgbmvStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -3449,7 +3449,7 @@ function hipblasDgbmvStridedBatched_64Fortran(handle, trans, m, n, kl, ku, alpha x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasDgbmvStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -3479,7 +3479,7 @@ function hipblasCgbmvStridedBatched_64Fortran(handle, trans, m, n, kl, ku, alpha x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasCgbmvStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -3509,7 +3509,7 @@ function hipblasZgbmvStridedBatched_64Fortran(handle, trans, m, n, kl, ku, alpha x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasZgbmvStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -3540,7 +3540,7 @@ function hipblasSgemv_64Fortran(handle, trans, m, n, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='hipblasSgemv_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemv_64Fortran type(c_ptr), value :: handle @@ -3563,7 +3563,7 @@ function hipblasDgemv_64Fortran(handle, trans, m, n, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='hipblasDgemv_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemv_64Fortran type(c_ptr), value :: handle @@ -3586,7 +3586,7 @@ function hipblasCgemv_64Fortran(handle, trans, m, n, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='hipblasCgemv_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemv_64Fortran type(c_ptr), value :: handle @@ -3609,7 +3609,7 @@ function hipblasZgemv_64Fortran(handle, trans, m, n, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='hipblasZgemv_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemv_64Fortran type(c_ptr), value :: handle @@ -3633,7 +3633,7 @@ function hipblasSgemvBatched_64Fortran(handle, trans, m, n, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasSgemvBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemvBatched_64Fortran type(c_ptr), value :: handle @@ -3657,7 +3657,7 @@ function hipblasDgemvBatched_64Fortran(handle, trans, m, n, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasDgemvBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemvBatched_64Fortran type(c_ptr), value :: handle @@ -3681,7 +3681,7 @@ function hipblasCgemvBatched_64Fortran(handle, trans, m, n, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasCgemvBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemvBatched_64Fortran type(c_ptr), value :: handle @@ -3705,7 +3705,7 @@ function hipblasZgemvBatched_64Fortran(handle, trans, m, n, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasZgemvBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemvBatched_64Fortran type(c_ptr), value :: handle @@ -3730,7 +3730,7 @@ function hipblasSgemvStridedBatched_64Fortran(handle, trans, m, n, alpha, A, lda x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasSgemvStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -3758,7 +3758,7 @@ function hipblasDgemvStridedBatched_64Fortran(handle, trans, m, n, alpha, A, lda x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasDgemvStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -3786,7 +3786,7 @@ function hipblasCgemvStridedBatched_64Fortran(handle, trans, m, n, alpha, A, lda x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasCgemvStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -3814,7 +3814,7 @@ function hipblasZgemvStridedBatched_64Fortran(handle, trans, m, n, alpha, A, lda x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasZgemvStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -3843,7 +3843,7 @@ function hipblasSger_64Fortran(handle, m, n, alpha, x, incx, & y, incy, A, lda) & bind(c, name='hipblasSger_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSger_64Fortran type(c_ptr), value :: handle @@ -3865,7 +3865,7 @@ function hipblasDger_64Fortran(handle, m, n, alpha, x, incx, & y, incy, A, lda) & bind(c, name='hipblasDger_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDger_64Fortran type(c_ptr), value :: handle @@ -3887,7 +3887,7 @@ function hipblasCgeru_64Fortran(handle, m, n, alpha, x, incx, & y, incy, A, lda) & bind(c, name='hipblasCgeru_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeru_64Fortran type(c_ptr), value :: handle @@ -3909,7 +3909,7 @@ function hipblasCgerc_64Fortran(handle, m, n, alpha, x, incx, & y, incy, A, lda) & bind(c, name='hipblasCgerc_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgerc_64Fortran type(c_ptr), value :: handle @@ -3931,7 +3931,7 @@ function hipblasZgeru_64Fortran(handle, m, n, alpha, x, incx, & y, incy, A, lda) & bind(c, name='hipblasZgeru_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeru_64Fortran type(c_ptr), value :: handle @@ -3953,7 +3953,7 @@ function hipblasZgerc_64Fortran(handle, m, n, alpha, x, incx, & y, incy, A, lda) & bind(c, name='hipblasZgerc_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgerc_64Fortran type(c_ptr), value :: handle @@ -3976,7 +3976,7 @@ function hipblasSgerBatched_64Fortran(handle, m, n, alpha, x, incx, & y, incy, A, lda, batch_count) & bind(c, name='hipblasSgerBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgerBatched_64Fortran type(c_ptr), value :: handle @@ -3999,7 +3999,7 @@ function hipblasDgerBatched_64Fortran(handle, m, n, alpha, x, incx, & y, incy, A, lda, batch_count) & bind(c, name='hipblasDgerBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgerBatched_64Fortran type(c_ptr), value :: handle @@ -4022,7 +4022,7 @@ function hipblasCgeruBatched_64Fortran(handle, m, n, alpha, x, incx, & y, incy, A, lda, batch_count) & bind(c, name='hipblasCgeruBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeruBatched_64Fortran type(c_ptr), value :: handle @@ -4045,7 +4045,7 @@ function hipblasCgercBatched_64Fortran(handle, m, n, alpha, x, incx, & y, incy, A, lda, batch_count) & bind(c, name='hipblasCgercBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgercBatched_64Fortran type(c_ptr), value :: handle @@ -4068,7 +4068,7 @@ function hipblasZgeruBatched_64Fortran(handle, m, n, alpha, x, incx, & y, incy, A, lda, batch_count) & bind(c, name='hipblasZgeruBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeruBatched_64Fortran type(c_ptr), value :: handle @@ -4091,7 +4091,7 @@ function hipblasZgercBatched_64Fortran(handle, m, n, alpha, x, incx, & y, incy, A, lda, batch_count) & bind(c, name='hipblasZgercBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgercBatched_64Fortran type(c_ptr), value :: handle @@ -4115,7 +4115,7 @@ function hipblasSgerStridedBatched_64Fortran(handle, m, n, alpha, x, incx, strid y, incy, stride_y, A, lda, stride_A, batch_count) & bind(c, name='hipblasSgerStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgerStridedBatched_64Fortran type(c_ptr), value :: handle @@ -4141,7 +4141,7 @@ function hipblasDgerStridedBatched_64Fortran(handle, m, n, alpha, x, incx, strid y, incy, stride_y, A, lda, stride_A, batch_count) & bind(c, name='hipblasDgerStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgerStridedBatched_64Fortran type(c_ptr), value :: handle @@ -4167,7 +4167,7 @@ function hipblasCgeruStridedBatched_64Fortran(handle, m, n, alpha, x, incx, stri y, incy, stride_y, A, lda, stride_A, batch_count) & bind(c, name='hipblasCgeruStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeruStridedBatched_64Fortran type(c_ptr), value :: handle @@ -4193,7 +4193,7 @@ function hipblasCgercStridedBatched_64Fortran(handle, m, n, alpha, x, incx, stri y, incy, stride_y, A, lda, stride_A, batch_count) & bind(c, name='hipblasCgercStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgercStridedBatched_64Fortran type(c_ptr), value :: handle @@ -4219,7 +4219,7 @@ function hipblasZgeruStridedBatched_64Fortran(handle, m, n, alpha, x, incx, stri y, incy, stride_y, A, lda, stride_A, batch_count) & bind(c, name='hipblasZgeruStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeruStridedBatched_64Fortran type(c_ptr), value :: handle @@ -4245,7 +4245,7 @@ function hipblasZgercStridedBatched_64Fortran(handle, m, n, alpha, x, incx, stri y, incy, stride_y, A, lda, stride_A, batch_count) & bind(c, name='hipblasZgercStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgercStridedBatched_64Fortran type(c_ptr), value :: handle @@ -4272,7 +4272,7 @@ function hipblasCher_64Fortran(handle, uplo, n, alpha, & x, incx, A, lda) & bind(c, name='hipblasCher_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher_64Fortran type(c_ptr), value :: handle @@ -4291,7 +4291,7 @@ function hipblasZher_64Fortran(handle, uplo, n, alpha, & x, incx, A, lda) & bind(c, name='hipblasZher_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher_64Fortran type(c_ptr), value :: handle @@ -4311,7 +4311,7 @@ function hipblasCherBatched_64Fortran(handle, uplo, n, alpha, & x, incx, A, lda, batch_count) & bind(c, name='hipblasCherBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherBatched_64Fortran type(c_ptr), value :: handle @@ -4331,7 +4331,7 @@ function hipblasZherBatched_64Fortran(handle, uplo, n, alpha, & x, incx, A, lda, batch_count) & bind(c, name='hipblasZherBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherBatched_64Fortran type(c_ptr), value :: handle @@ -4352,7 +4352,7 @@ function hipblasCherStridedBatched_64Fortran(handle, uplo, n, alpha, & x, incx, stride_x, A, lda, stride_A, batch_count) & bind(c, name='hipblasCherStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherStridedBatched_64Fortran type(c_ptr), value :: handle @@ -4375,7 +4375,7 @@ function hipblasZherStridedBatched_64Fortran(handle, uplo, n, alpha, & x, incx, stride_x, A, lda, stride_A, batch_count) & bind(c, name='hipblasZherStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherStridedBatched_64Fortran type(c_ptr), value :: handle @@ -4399,7 +4399,7 @@ function hipblasCher2_64Fortran(handle, uplo, n, alpha, & x, incx, y, incy, A, lda) & bind(c, name='hipblasCher2_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2_64Fortran type(c_ptr), value :: handle @@ -4421,7 +4421,7 @@ function hipblasZher2_64Fortran(handle, uplo, n, alpha, & x, incx, y, incy, A, lda) & bind(c, name='hipblasZher2_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2_64Fortran type(c_ptr), value :: handle @@ -4444,7 +4444,7 @@ function hipblasCher2Batched_64Fortran(handle, uplo, n, alpha, & x, incx, y, incy, A, lda, batch_count) & bind(c, name='hipblasCher2Batched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2Batched_64Fortran type(c_ptr), value :: handle @@ -4467,7 +4467,7 @@ function hipblasZher2Batched_64Fortran(handle, uplo, n, alpha, & x, incx, y, incy, A, lda, batch_count) & bind(c, name='hipblasZher2Batched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2Batched_64Fortran type(c_ptr), value :: handle @@ -4491,7 +4491,7 @@ function hipblasCher2StridedBatched_64Fortran(handle, uplo, n, alpha, & x, incx, stride_x, y, incy, stride_y, A, lda, stride_A, batch_count) & bind(c, name='hipblasCher2StridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2StridedBatched_64Fortran type(c_ptr), value :: handle @@ -4517,7 +4517,7 @@ function hipblasZher2StridedBatched_64Fortran(handle, uplo, n, alpha, & x, incx, stride_x, y, incy, stride_y, A, lda, stride_A, batch_count) & bind(c, name='hipblasZher2StridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2StridedBatched_64Fortran type(c_ptr), value :: handle @@ -4544,7 +4544,7 @@ function hipblasChbmv_64Fortran(handle, uplo, n, k, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='hipblasChbmv_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmv_64Fortran type(c_ptr), value :: handle @@ -4567,7 +4567,7 @@ function hipblasZhbmv_64Fortran(handle, uplo, n, k, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='hipblasZhbmv_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmv_64Fortran type(c_ptr), value :: handle @@ -4591,7 +4591,7 @@ function hipblasChbmvBatched_64Fortran(handle, uplo, n, k, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasChbmvBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmvBatched_64Fortran type(c_ptr), value :: handle @@ -4616,7 +4616,7 @@ function hipblasZhbmvBatched_64Fortran(handle, uplo, n, k, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasZhbmvBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmvBatched_64Fortran type(c_ptr), value :: handle @@ -4642,7 +4642,7 @@ function hipblasChbmvStridedBatched_64Fortran(handle, uplo, n, k, alpha, A, lda, x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasChbmvStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -4670,7 +4670,7 @@ function hipblasZhbmvStridedBatched_64Fortran(handle, uplo, n, k, alpha, A, lda, x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasZhbmvStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -4699,7 +4699,7 @@ function hipblasChemv_64Fortran(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='hipblasChemv_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemv_64Fortran type(c_ptr), value :: handle @@ -4721,7 +4721,7 @@ function hipblasZhemv_64Fortran(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='hipblasZhemv_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemv_64Fortran type(c_ptr), value :: handle @@ -4744,7 +4744,7 @@ function hipblasChemvBatched_64Fortran(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasChemvBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemvBatched_64Fortran type(c_ptr), value :: handle @@ -4768,7 +4768,7 @@ function hipblasZhemvBatched_64Fortran(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasZhemvBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemvBatched_64Fortran type(c_ptr), value :: handle @@ -4793,7 +4793,7 @@ function hipblasChemvStridedBatched_64Fortran(handle, uplo, n, alpha, A, lda, st x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasChemvStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -4820,7 +4820,7 @@ function hipblasZhemvStridedBatched_64Fortran(handle, uplo, n, alpha, A, lda, st x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasZhemvStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -4848,7 +4848,7 @@ function hipblasChpmv_64Fortran(handle, uplo, n, alpha, AP, & x, incx, beta, y, incy) & bind(c, name='hipblasChpmv_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmv_64Fortran type(c_ptr), value :: handle @@ -4870,7 +4870,7 @@ function hipblasZhpmv_64Fortran(handle, uplo, n, alpha, AP, & x, incx, beta, y, incy) & bind(c, name='hipblasZhpmv_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmv_64Fortran type(c_ptr), value :: handle @@ -4893,7 +4893,7 @@ function hipblasChpmvBatched_64Fortran(handle, uplo, n, alpha, AP, & x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasChpmvBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmvBatched_64Fortran type(c_ptr), value :: handle @@ -4916,7 +4916,7 @@ function hipblasZhpmvBatched_64Fortran(handle, uplo, n, alpha, AP, & x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasZhpmvBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmvBatched_64Fortran type(c_ptr), value :: handle @@ -4940,7 +4940,7 @@ function hipblasChpmvStridedBatched_64Fortran(handle, uplo, n, alpha, AP, stride x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasChpmvStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -4966,7 +4966,7 @@ function hipblasZhpmvStridedBatched_64Fortran(handle, uplo, n, alpha, AP, stride x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasZhpmvStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -4993,7 +4993,7 @@ function hipblasChpr_64Fortran(handle, uplo, n, alpha, & x, incx, AP) & bind(c, name='hipblasChpr_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr_64Fortran type(c_ptr), value :: handle @@ -5011,7 +5011,7 @@ function hipblasZhpr_64Fortran(handle, uplo, n, alpha, & x, incx, AP) & bind(c, name='hipblasZhpr_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr_64Fortran type(c_ptr), value :: handle @@ -5030,7 +5030,7 @@ function hipblasChprBatched_64Fortran(handle, uplo, n, alpha, & x, incx, AP, batch_count) & bind(c, name='hipblasChprBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChprBatched_64Fortran type(c_ptr), value :: handle @@ -5049,7 +5049,7 @@ function hipblasZhprBatched_64Fortran(handle, uplo, n, alpha, & x, incx, AP, batch_count) & bind(c, name='hipblasZhprBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhprBatched_64Fortran type(c_ptr), value :: handle @@ -5069,7 +5069,7 @@ function hipblasChprStridedBatched_64Fortran(handle, uplo, n, alpha, & x, incx, stride_x, AP, stride_AP, batch_count) & bind(c, name='hipblasChprStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChprStridedBatched_64Fortran type(c_ptr), value :: handle @@ -5091,7 +5091,7 @@ function hipblasZhprStridedBatched_64Fortran(handle, uplo, n, alpha, & x, incx, stride_x, AP, stride_AP, batch_count) & bind(c, name='hipblasZhprStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhprStridedBatched_64Fortran type(c_ptr), value :: handle @@ -5114,7 +5114,7 @@ function hipblasChpr2_64Fortran(handle, uplo, n, alpha, & x, incx, y, incy, AP) & bind(c, name='hipblasChpr2_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2_64Fortran type(c_ptr), value :: handle @@ -5135,7 +5135,7 @@ function hipblasZhpr2_64Fortran(handle, uplo, n, alpha, & x, incx, y, incy, AP) & bind(c, name='hipblasZhpr2_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2_64Fortran type(c_ptr), value :: handle @@ -5157,7 +5157,7 @@ function hipblasChpr2Batched_64Fortran(handle, uplo, n, alpha, & x, incx, y, incy, AP, batch_count) & bind(c, name='hipblasChpr2Batched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2Batched_64Fortran type(c_ptr), value :: handle @@ -5179,7 +5179,7 @@ function hipblasZhpr2Batched_64Fortran(handle, uplo, n, alpha, & x, incx, y, incy, AP, batch_count) & bind(c, name='hipblasZhpr2Batched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2Batched_64Fortran type(c_ptr), value :: handle @@ -5202,7 +5202,7 @@ function hipblasChpr2StridedBatched_64Fortran(handle, uplo, n, alpha, & x, incx, stride_x, y, incy, stride_y, AP, stride_AP, batch_count) & bind(c, name='hipblasChpr2StridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2StridedBatched_64Fortran type(c_ptr), value :: handle @@ -5227,7 +5227,7 @@ function hipblasZhpr2StridedBatched_64Fortran(handle, uplo, n, alpha, & x, incx, stride_x, y, incy, stride_y, AP, stride_AP, batch_count) & bind(c, name='hipblasZhpr2StridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2StridedBatched_64Fortran type(c_ptr), value :: handle @@ -5252,7 +5252,7 @@ end function hipblasZhpr2StridedBatched_64Fortran function hipblasSspr_64Fortran(handle, uplo, n, alpha, x, incx, AP) & bind(c, name='hipblasSspr_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr_64Fortran type(c_ptr), value :: handle @@ -5270,7 +5270,7 @@ end function hipblasSspr_64Fortran function hipblasDspr_64Fortran(handle, uplo, n, alpha, x, incx, AP) & bind(c, name='hipblasDspr_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr_64Fortran type(c_ptr), value :: handle @@ -5288,7 +5288,7 @@ end function hipblasDspr_64Fortran function hipblasCspr_64Fortran(handle, uplo, n, alpha, x, incx, AP) & bind(c, name='hipblasCspr_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCspr_64Fortran type(c_ptr), value :: handle @@ -5306,7 +5306,7 @@ end function hipblasCspr_64Fortran function hipblasZspr_64Fortran(handle, uplo, n, alpha, x, incx, AP) & bind(c, name='hipblasZspr_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZspr_64Fortran type(c_ptr), value :: handle @@ -5325,7 +5325,7 @@ end function hipblasZspr_64Fortran function hipblasSsprBatched_64Fortran(handle, uplo, n, alpha, x, incx, AP, batch_count) & bind(c, name='hipblasSsprBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsprBatched_64Fortran type(c_ptr), value :: handle @@ -5344,7 +5344,7 @@ end function hipblasSsprBatched_64Fortran function hipblasDsprBatched_64Fortran(handle, uplo, n, alpha, x, incx, AP, batch_count) & bind(c, name='hipblasDsprBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsprBatched_64Fortran type(c_ptr), value :: handle @@ -5363,7 +5363,7 @@ end function hipblasDsprBatched_64Fortran function hipblasCsprBatched_64Fortran(handle, uplo, n, alpha, x, incx, AP, batch_count) & bind(c, name='hipblasCsprBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsprBatched_64Fortran type(c_ptr), value :: handle @@ -5382,7 +5382,7 @@ end function hipblasCsprBatched_64Fortran function hipblasZsprBatched_64Fortran(handle, uplo, n, alpha, x, incx, AP, batch_count) & bind(c, name='hipblasZsprBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsprBatched_64Fortran type(c_ptr), value :: handle @@ -5403,7 +5403,7 @@ function hipblasSsprStridedBatched_64Fortran(handle, uplo, n, alpha, x, incx, st AP, stride_AP, batch_count) & bind(c, name='hipblasSsprStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsprStridedBatched_64Fortran type(c_ptr), value :: handle @@ -5425,7 +5425,7 @@ function hipblasDsprStridedBatched_64Fortran(handle, uplo, n, alpha, x, incx, st AP, stride_AP, batch_count) & bind(c, name='hipblasDsprStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsprStridedBatched_64Fortran type(c_ptr), value :: handle @@ -5447,7 +5447,7 @@ function hipblasCsprStridedBatched_64Fortran(handle, uplo, n, alpha, x, incx, st AP, stride_AP, batch_count) & bind(c, name='hipblasCsprStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsprStridedBatched_64Fortran type(c_ptr), value :: handle @@ -5469,7 +5469,7 @@ function hipblasZsprStridedBatched_64Fortran(handle, uplo, n, alpha, x, incx, st AP, stride_AP, batch_count) & bind(c, name='hipblasZsprStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsprStridedBatched_64Fortran type(c_ptr), value :: handle @@ -5492,7 +5492,7 @@ function hipblasSspr2_64Fortran(handle, uplo, n, alpha, x, incx, & y, incy, AP) & bind(c, name='hipblasSspr2_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2_64Fortran type(c_ptr), value :: handle @@ -5513,7 +5513,7 @@ function hipblasDspr2_64Fortran(handle, uplo, n, alpha, x, incx, & y, incy, AP) & bind(c, name='hipblasDspr2_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2_64Fortran type(c_ptr), value :: handle @@ -5535,7 +5535,7 @@ function hipblasSspr2Batched_64Fortran(handle, uplo, n, alpha, x, incx, & y, incy, AP, batch_count) & bind(c, name='hipblasSspr2Batched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2Batched_64Fortran type(c_ptr), value :: handle @@ -5557,7 +5557,7 @@ function hipblasDspr2Batched_64Fortran(handle, uplo, n, alpha, x, incx, & y, incy, AP, batch_count) & bind(c, name='hipblasDspr2Batched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2Batched_64Fortran type(c_ptr), value :: handle @@ -5580,7 +5580,7 @@ function hipblasSspr2StridedBatched_64Fortran(handle, uplo, n, alpha, x, incx, s y, incy, stride_y, AP, stride_AP, batch_count) & bind(c, name='hipblasSspr2StridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2StridedBatched_64Fortran type(c_ptr), value :: handle @@ -5605,7 +5605,7 @@ function hipblasDspr2StridedBatched_64Fortran(handle, uplo, n, alpha, x, incx, s y, incy, stride_y, AP, stride_AP, batch_count) & bind(c, name='hipblasDspr2StridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2StridedBatched_64Fortran type(c_ptr), value :: handle @@ -5631,7 +5631,7 @@ function hipblasSsbmv_64Fortran(handle, uplo, n, k, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='hipblasSsbmv_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmv_64Fortran type(c_ptr), value :: handle @@ -5655,7 +5655,7 @@ function hipblasDsbmv_64Fortran(handle, uplo, n, k, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='hipblasDsbmv_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmv_64Fortran type(c_ptr), value :: handle @@ -5680,7 +5680,7 @@ function hipblasSsbmvBatched_64Fortran(handle, uplo, n, k, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasSsbmvBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmvBatched_64Fortran type(c_ptr), value :: handle @@ -5705,7 +5705,7 @@ function hipblasDsbmvBatched_64Fortran(handle, uplo, n, k, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasDsbmvBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmvBatched_64Fortran type(c_ptr), value :: handle @@ -5731,7 +5731,7 @@ function hipblasSsbmvStridedBatched_64Fortran(handle, uplo, n, k, alpha, A, lda, x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasSsbmvStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -5759,7 +5759,7 @@ function hipblasDsbmvStridedBatched_64Fortran(handle, uplo, n, k, alpha, A, lda, x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasDsbmvStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -5788,7 +5788,7 @@ function hipblasSspmv_64Fortran(handle, uplo, n, alpha, AP, & x, incx, beta, y, incy) & bind(c, name='hipblasSspmv_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmv_64Fortran type(c_ptr), value :: handle @@ -5810,7 +5810,7 @@ function hipblasDspmv_64Fortran(handle, uplo, n, alpha, AP, & x, incx, beta, y, incy) & bind(c, name='hipblasDspmv_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmv_64Fortran type(c_ptr), value :: handle @@ -5833,7 +5833,7 @@ function hipblasSspmvBatched_64Fortran(handle, uplo, n, alpha, AP, & x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasSspmvBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmvBatched_64Fortran type(c_ptr), value :: handle @@ -5856,7 +5856,7 @@ function hipblasDspmvBatched_64Fortran(handle, uplo, n, alpha, AP, & x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasDspmvBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmvBatched_64Fortran type(c_ptr), value :: handle @@ -5880,7 +5880,7 @@ function hipblasSspmvStridedBatched_64Fortran(handle, uplo, n, alpha, AP, stride x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasSspmvStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -5906,7 +5906,7 @@ function hipblasDspmvStridedBatched_64Fortran(handle, uplo, n, alpha, AP, stride x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasDspmvStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -5933,7 +5933,7 @@ function hipblasSsymv_64Fortran(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='hipblasSsymv_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymv_64Fortran type(c_ptr), value :: handle @@ -5956,7 +5956,7 @@ function hipblasDsymv_64Fortran(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='hipblasDsymv_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymv_64Fortran type(c_ptr), value :: handle @@ -5979,7 +5979,7 @@ function hipblasCsymv_64Fortran(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='hipblasCsymv_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymv_64Fortran type(c_ptr), value :: handle @@ -6002,7 +6002,7 @@ function hipblasZsymv_64Fortran(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='hipblasZsymv_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymv_64Fortran type(c_ptr), value :: handle @@ -6026,7 +6026,7 @@ function hipblasSsymvBatched_64Fortran(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasSsymvBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymvBatched_64Fortran type(c_ptr), value :: handle @@ -6050,7 +6050,7 @@ function hipblasDsymvBatched_64Fortran(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasDsymvBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymvBatched_64Fortran type(c_ptr), value :: handle @@ -6074,7 +6074,7 @@ function hipblasCsymvBatched_64Fortran(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasCsymvBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymvBatched_64Fortran type(c_ptr), value :: handle @@ -6098,7 +6098,7 @@ function hipblasZsymvBatched_64Fortran(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='hipblasZsymvBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymvBatched_64Fortran type(c_ptr), value :: handle @@ -6123,7 +6123,7 @@ function hipblasSsymvStridedBatched_64Fortran(handle, uplo, n, alpha, A, lda, st x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasSsymvStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -6150,7 +6150,7 @@ function hipblasDsymvStridedBatched_64Fortran(handle, uplo, n, alpha, A, lda, st x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasDsymvStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -6177,7 +6177,7 @@ function hipblasCsymvStridedBatched_64Fortran(handle, uplo, n, alpha, A, lda, st x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasCsymvStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -6204,7 +6204,7 @@ function hipblasZsymvStridedBatched_64Fortran(handle, uplo, n, alpha, A, lda, st x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='hipblasZsymvStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -6231,7 +6231,7 @@ end function hipblasZsymvStridedBatched_64Fortran function hipblasSsyr_64Fortran(handle, uplo, n, alpha, x, incx, A, lda) & bind(c, name='hipblasSsyr_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr_64Fortran type(c_ptr), value :: handle @@ -6250,7 +6250,7 @@ end function hipblasSsyr_64Fortran function hipblasDsyr_64Fortran(handle, uplo, n, alpha, x, incx, A, lda) & bind(c, name='hipblasDsyr_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr_64Fortran type(c_ptr), value :: handle @@ -6269,7 +6269,7 @@ end function hipblasDsyr_64Fortran function hipblasCsyr_64Fortran(handle, uplo, n, alpha, x, incx, A, lda) & bind(c, name='hipblasCsyr_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr_64Fortran type(c_ptr), value :: handle @@ -6288,7 +6288,7 @@ end function hipblasCsyr_64Fortran function hipblasZsyr_64Fortran(handle, uplo, n, alpha, x, incx, A, lda) & bind(c, name='hipblasZsyr_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr_64Fortran type(c_ptr), value :: handle @@ -6308,7 +6308,7 @@ end function hipblasZsyr_64Fortran function hipblasSsyrBatched_64Fortran(handle, uplo, n, alpha, x, incx, A, lda, batch_count) & bind(c, name='hipblasSsyrBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrBatched_64Fortran type(c_ptr), value :: handle @@ -6328,7 +6328,7 @@ end function hipblasSsyrBatched_64Fortran function hipblasDsyrBatched_64Fortran(handle, uplo, n, alpha, x, incx, A, lda, batch_count) & bind(c, name='hipblasDsyrBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrBatched_64Fortran type(c_ptr), value :: handle @@ -6348,7 +6348,7 @@ end function hipblasDsyrBatched_64Fortran function hipblasCsyrBatched_64Fortran(handle, uplo, n, alpha, x, incx, A, lda, batch_count) & bind(c, name='hipblasCsyrBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrBatched_64Fortran type(c_ptr), value :: handle @@ -6368,7 +6368,7 @@ end function hipblasCsyrBatched_64Fortran function hipblasZsyrBatched_64Fortran(handle, uplo, n, alpha, x, incx, A, lda, batch_count) & bind(c, name='hipblasZsyrBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrBatched_64Fortran type(c_ptr), value :: handle @@ -6390,7 +6390,7 @@ function hipblasSsyrStridedBatched_64Fortran(handle, uplo, n, alpha, x, incx, st A, lda, stride_A, batch_count) & bind(c, name='hipblasSsyrStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrStridedBatched_64Fortran type(c_ptr), value :: handle @@ -6413,7 +6413,7 @@ function hipblasDsyrStridedBatched_64Fortran(handle, uplo, n, alpha, x, incx, st A, lda, stride_A, batch_count) & bind(c, name='hipblasDsyrStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrStridedBatched_64Fortran type(c_ptr), value :: handle @@ -6436,7 +6436,7 @@ function hipblasCsyrStridedBatched_64Fortran(handle, uplo, n, alpha, x, incx, st A, lda, stride_A, batch_count) & bind(c, name='hipblasCsyrStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrStridedBatched_64Fortran type(c_ptr), value :: handle @@ -6459,7 +6459,7 @@ function hipblasZsyrStridedBatched_64Fortran(handle, uplo, n, alpha, x, incx, st A, lda, stride_A, batch_count) & bind(c, name='hipblasZsyrStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrStridedBatched_64Fortran type(c_ptr), value :: handle @@ -6483,7 +6483,7 @@ function hipblasSsyr2_64Fortran(handle, uplo, n, alpha, x, incx, & y, incy, A, lda) & bind(c, name='hipblasSsyr2_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2_64Fortran type(c_ptr), value :: handle @@ -6505,7 +6505,7 @@ function hipblasDsyr2_64Fortran(handle, uplo, n, alpha, x, incx, & y, incy, A, lda) & bind(c, name='hipblasDsyr2_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2_64Fortran type(c_ptr), value :: handle @@ -6527,7 +6527,7 @@ function hipblasCsyr2_64Fortran(handle, uplo, n, alpha, x, incx, & y, incy, A, lda) & bind(c, name='hipblasCsyr2_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2_64Fortran type(c_ptr), value :: handle @@ -6549,7 +6549,7 @@ function hipblasZsyr2_64Fortran(handle, uplo, n, alpha, x, incx, & y, incy, A, lda) & bind(c, name='hipblasZsyr2_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2_64Fortran type(c_ptr), value :: handle @@ -6572,7 +6572,7 @@ function hipblasSsyr2Batched_64Fortran(handle, uplo, n, alpha, x, incx, & y, incy, A, lda, batch_count) & bind(c, name='hipblasSsyr2Batched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2Batched_64Fortran type(c_ptr), value :: handle @@ -6595,7 +6595,7 @@ function hipblasDsyr2Batched_64Fortran(handle, uplo, n, alpha, x, incx, & y, incy, A, lda, batch_count) & bind(c, name='hipblasDsyr2Batched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2Batched_64Fortran type(c_ptr), value :: handle @@ -6618,7 +6618,7 @@ function hipblasCsyr2Batched_64Fortran(handle, uplo, n, alpha, x, incx, & y, incy, A, lda, batch_count) & bind(c, name='hipblasCsyr2Batched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2Batched_64Fortran type(c_ptr), value :: handle @@ -6641,7 +6641,7 @@ function hipblasZsyr2Batched_64Fortran(handle, uplo, n, alpha, x, incx, & y, incy, A, lda, batch_count) & bind(c, name='hipblasZsyr2Batched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2Batched_64Fortran type(c_ptr), value :: handle @@ -6665,7 +6665,7 @@ function hipblasSsyr2StridedBatched_64Fortran(handle, uplo, n, alpha, x, incx, s y, incy, stride_y, A, lda, stride_A, batch_count) & bind(c, name='hipblasSsyr2StridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2StridedBatched_64Fortran type(c_ptr), value :: handle @@ -6691,7 +6691,7 @@ function hipblasDsyr2StridedBatched_64Fortran(handle, uplo, n, alpha, x, incx, s y, incy, stride_y, A, lda, stride_A, batch_count) & bind(c, name='hipblasDsyr2StridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2StridedBatched_64Fortran type(c_ptr), value :: handle @@ -6717,7 +6717,7 @@ function hipblasCsyr2StridedBatched_64Fortran(handle, uplo, n, alpha, x, incx, s y, incy, stride_y, A, lda, stride_A, batch_count) & bind(c, name='hipblasCsyr2StridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2StridedBatched_64Fortran type(c_ptr), value :: handle @@ -6743,7 +6743,7 @@ function hipblasZsyr2StridedBatched_64Fortran(handle, uplo, n, alpha, x, incx, s y, incy, stride_y, A, lda, stride_A, batch_count) & bind(c, name='hipblasZsyr2StridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2StridedBatched_64Fortran type(c_ptr), value :: handle @@ -6770,7 +6770,7 @@ function hipblasStbmv_64Fortran(handle, uplo, transA, diag, m, k, & A, lda, x, incx) & bind(c, name='hipblasStbmv_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbmv_64Fortran type(c_ptr), value :: handle @@ -6792,7 +6792,7 @@ function hipblasDtbmv_64Fortran(handle, uplo, transA, diag, m, k, & A, lda, x, incx) & bind(c, name='hipblasDtbmv_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbmv_64Fortran type(c_ptr), value :: handle @@ -6814,7 +6814,7 @@ function hipblasCtbmv_64Fortran(handle, uplo, transA, diag, m, k, & A, lda, x, incx) & bind(c, name='hipblasCtbmv_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbmv_64Fortran type(c_ptr), value :: handle @@ -6836,7 +6836,7 @@ function hipblasZtbmv_64Fortran(handle, uplo, transA, diag, m, k, & A, lda, x, incx) & bind(c, name='hipblasZtbmv_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbmv_64Fortran type(c_ptr), value :: handle @@ -6859,7 +6859,7 @@ function hipblasStbmvBatched_64Fortran(handle, uplo, transA, diag, m, k, & A, lda, x, incx, batch_count) & bind(c, name='hipblasStbmvBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbmvBatched_64Fortran type(c_ptr), value :: handle @@ -6882,7 +6882,7 @@ function hipblasDtbmvBatched_64Fortran(handle, uplo, transA, diag, m, k, & A, lda, x, incx, batch_count) & bind(c, name='hipblasDtbmvBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbmvBatched_64Fortran type(c_ptr), value :: handle @@ -6905,7 +6905,7 @@ function hipblasCtbmvBatched_64Fortran(handle, uplo, transA, diag, m, k, & A, lda, x, incx, batch_count) & bind(c, name='hipblasCtbmvBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbmvBatched_64Fortran type(c_ptr), value :: handle @@ -6928,7 +6928,7 @@ function hipblasZtbmvBatched_64Fortran(handle, uplo, transA, diag, m, k, & A, lda, x, incx, batch_count) & bind(c, name='hipblasZtbmvBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbmvBatched_64Fortran type(c_ptr), value :: handle @@ -6952,7 +6952,7 @@ function hipblasStbmvStridedBatched_64Fortran(handle, uplo, transA, diag, m, k, A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='hipblasStbmvStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbmvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -6977,7 +6977,7 @@ function hipblasDtbmvStridedBatched_64Fortran(handle, uplo, transA, diag, m, k, A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='hipblasDtbmvStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbmvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -7002,7 +7002,7 @@ function hipblasCtbmvStridedBatched_64Fortran(handle, uplo, transA, diag, m, k, A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='hipblasCtbmvStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbmvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -7027,7 +7027,7 @@ function hipblasZtbmvStridedBatched_64Fortran(handle, uplo, transA, diag, m, k, A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='hipblasZtbmvStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbmvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -7053,7 +7053,7 @@ function hipblasStpmv_64Fortran(handle, uplo, transA, diag, m, & AP, x, incx) & bind(c, name='hipblasStpmv_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpmv_64Fortran type(c_ptr), value :: handle @@ -7073,7 +7073,7 @@ function hipblasDtpmv_64Fortran(handle, uplo, transA, diag, m, & AP, x, incx) & bind(c, name='hipblasDtpmv_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpmv_64Fortran type(c_ptr), value :: handle @@ -7093,7 +7093,7 @@ function hipblasCtpmv_64Fortran(handle, uplo, transA, diag, m, & AP, x, incx) & bind(c, name='hipblasCtpmv_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpmv_64Fortran type(c_ptr), value :: handle @@ -7113,7 +7113,7 @@ function hipblasZtpmv_64Fortran(handle, uplo, transA, diag, m, & AP, x, incx) & bind(c, name='hipblasZtpmv_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpmv_64Fortran type(c_ptr), value :: handle @@ -7134,7 +7134,7 @@ function hipblasStpmvBatched_64Fortran(handle, uplo, transA, diag, m, & AP, x, incx, batch_count) & bind(c, name='hipblasStpmvBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpmvBatched_64Fortran type(c_ptr), value :: handle @@ -7155,7 +7155,7 @@ function hipblasDtpmvBatched_64Fortran(handle, uplo, transA, diag, m, & AP, x, incx, batch_count) & bind(c, name='hipblasDtpmvBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpmvBatched_64Fortran type(c_ptr), value :: handle @@ -7176,7 +7176,7 @@ function hipblasCtpmvBatched_64Fortran(handle, uplo, transA, diag, m, & AP, x, incx, batch_count) & bind(c, name='hipblasCtpmvBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpmvBatched_64Fortran type(c_ptr), value :: handle @@ -7197,7 +7197,7 @@ function hipblasZtpmvBatched_64Fortran(handle, uplo, transA, diag, m, & AP, x, incx, batch_count) & bind(c, name='hipblasZtpmvBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpmvBatched_64Fortran type(c_ptr), value :: handle @@ -7219,7 +7219,7 @@ function hipblasStpmvStridedBatched_64Fortran(handle, uplo, transA, diag, m, & AP, stride_AP, x, incx, stride_x, batch_count) & bind(c, name='hipblasStpmvStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpmvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -7242,7 +7242,7 @@ function hipblasDtpmvStridedBatched_64Fortran(handle, uplo, transA, diag, m, & AP, stride_AP, x, incx, stride_x, batch_count) & bind(c, name='hipblasDtpmvStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpmvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -7265,7 +7265,7 @@ function hipblasCtpmvStridedBatched_64Fortran(handle, uplo, transA, diag, m, & AP, stride_AP, x, incx, stride_x, batch_count) & bind(c, name='hipblasCtpmvStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpmvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -7288,7 +7288,7 @@ function hipblasZtpmvStridedBatched_64Fortran(handle, uplo, transA, diag, m, & AP, stride_AP, x, incx, stride_x, batch_count) & bind(c, name='hipblasZtpmvStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpmvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -7312,7 +7312,7 @@ function hipblasStrmv_64Fortran(handle, uplo, transA, diag, m, & A, lda, x, incx) & bind(c, name='hipblasStrmv_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmv_64Fortran type(c_ptr), value :: handle @@ -7333,7 +7333,7 @@ function hipblasDtrmv_64Fortran(handle, uplo, transA, diag, m, & A, lda, x, incx) & bind(c, name='hipblasDtrmv_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmv_64Fortran type(c_ptr), value :: handle @@ -7354,7 +7354,7 @@ function hipblasCtrmv_64Fortran(handle, uplo, transA, diag, m, & A, lda, x, incx) & bind(c, name='hipblasCtrmv_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmv_64Fortran type(c_ptr), value :: handle @@ -7375,7 +7375,7 @@ function hipblasZtrmv_64Fortran(handle, uplo, transA, diag, m, & A, lda, x, incx) & bind(c, name='hipblasZtrmv_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmv_64Fortran type(c_ptr), value :: handle @@ -7397,7 +7397,7 @@ function hipblasStrmvBatched_64Fortran(handle, uplo, transA, diag, m, & A, lda, x, incx, batch_count) & bind(c, name='hipblasStrmvBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmvBatched_64Fortran type(c_ptr), value :: handle @@ -7419,7 +7419,7 @@ function hipblasDtrmvBatched_64Fortran(handle, uplo, transA, diag, m, & A, lda, x, incx, batch_count) & bind(c, name='hipblasDtrmvBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmvBatched_64Fortran type(c_ptr), value :: handle @@ -7441,7 +7441,7 @@ function hipblasCtrmvBatched_64Fortran(handle, uplo, transA, diag, m, & A, lda, x, incx, batch_count) & bind(c, name='hipblasCtrmvBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmvBatched_64Fortran type(c_ptr), value :: handle @@ -7463,7 +7463,7 @@ function hipblasZtrmvBatched_64Fortran(handle, uplo, transA, diag, m, & A, lda, x, incx, batch_count) & bind(c, name='hipblasZtrmvBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmvBatched_64Fortran type(c_ptr), value :: handle @@ -7486,7 +7486,7 @@ function hipblasStrmvStridedBatched_64Fortran(handle, uplo, transA, diag, m, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='hipblasStrmvStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -7510,7 +7510,7 @@ function hipblasDtrmvStridedBatched_64Fortran(handle, uplo, transA, diag, m, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='hipblasDtrmvStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -7534,7 +7534,7 @@ function hipblasCtrmvStridedBatched_64Fortran(handle, uplo, transA, diag, m, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='hipblasCtrmvStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -7558,7 +7558,7 @@ function hipblasZtrmvStridedBatched_64Fortran(handle, uplo, transA, diag, m, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='hipblasZtrmvStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -7583,7 +7583,7 @@ function hipblasStbsv_64Fortran(handle, uplo, transA, diag, n, k, & A, lda, x, incx) & bind(c, name='hipblasStbsv_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbsv_64Fortran type(c_ptr), value :: handle @@ -7605,7 +7605,7 @@ function hipblasDtbsv_64Fortran(handle, uplo, transA, diag, n, k, & A, lda, x, incx) & bind(c, name='hipblasDtbsv_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbsv_64Fortran type(c_ptr), value :: handle @@ -7627,7 +7627,7 @@ function hipblasCtbsv_64Fortran(handle, uplo, transA, diag, n, k, & A, lda, x, incx) & bind(c, name='hipblasCtbsv_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbsv_64Fortran type(c_ptr), value :: handle @@ -7649,7 +7649,7 @@ function hipblasZtbsv_64Fortran(handle, uplo, transA, diag, n, k, & A, lda, x, incx) & bind(c, name='hipblasZtbsv_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbsv_64Fortran type(c_ptr), value :: handle @@ -7672,7 +7672,7 @@ function hipblasStbsvBatched_64Fortran(handle, uplo, transA, diag, n, k, & A, lda, x, incx, batch_count) & bind(c, name='hipblasStbsvBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbsvBatched_64Fortran type(c_ptr), value :: handle @@ -7695,7 +7695,7 @@ function hipblasDtbsvBatched_64Fortran(handle, uplo, transA, diag, n, k, & A, lda, x, incx, batch_count) & bind(c, name='hipblasDtbsvBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbsvBatched_64Fortran type(c_ptr), value :: handle @@ -7718,7 +7718,7 @@ function hipblasCtbsvBatched_64Fortran(handle, uplo, transA, diag, n, k, & A, lda, x, incx, batch_count) & bind(c, name='hipblasCtbsvBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbsvBatched_64Fortran type(c_ptr), value :: handle @@ -7741,7 +7741,7 @@ function hipblasZtbsvBatched_64Fortran(handle, uplo, transA, diag, n, k, & A, lda, x, incx, batch_count) & bind(c, name='hipblasZtbsvBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbsvBatched_64Fortran type(c_ptr), value :: handle @@ -7765,7 +7765,7 @@ function hipblasStbsvStridedBatched_64Fortran(handle, uplo, transA, diag, n, k, A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='hipblasStbsvStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbsvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -7790,7 +7790,7 @@ function hipblasDtbsvStridedBatched_64Fortran(handle, uplo, transA, diag, n, k, A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='hipblasDtbsvStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbsvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -7815,7 +7815,7 @@ function hipblasCtbsvStridedBatched_64Fortran(handle, uplo, transA, diag, n, k, A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='hipblasCtbsvStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbsvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -7840,7 +7840,7 @@ function hipblasZtbsvStridedBatched_64Fortran(handle, uplo, transA, diag, n, k, A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='hipblasZtbsvStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbsvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -7866,7 +7866,7 @@ function hipblasStpsv_64Fortran(handle, uplo, transA, diag, n, & AP, x, incx) & bind(c, name='hipblasStpsv_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpsv_64Fortran type(c_ptr), value :: handle @@ -7886,7 +7886,7 @@ function hipblasDtpsv_64Fortran(handle, uplo, transA, diag, n, & AP, x, incx) & bind(c, name='hipblasDtpsv_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpsv_64Fortran type(c_ptr), value :: handle @@ -7906,7 +7906,7 @@ function hipblasCtpsv_64Fortran(handle, uplo, transA, diag, n, & AP, x, incx) & bind(c, name='hipblasCtpsv_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpsv_64Fortran type(c_ptr), value :: handle @@ -7926,7 +7926,7 @@ function hipblasZtpsv_64Fortran(handle, uplo, transA, diag, n, & AP, x, incx) & bind(c, name='hipblasZtpsv_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpsv_64Fortran type(c_ptr), value :: handle @@ -7947,7 +7947,7 @@ function hipblasStpsvBatched_64Fortran(handle, uplo, transA, diag, n, & AP, x, incx, batch_count) & bind(c, name='hipblasStpsvBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpsvBatched_64Fortran type(c_ptr), value :: handle @@ -7968,7 +7968,7 @@ function hipblasDtpsvBatched_64Fortran(handle, uplo, transA, diag, n, & AP, x, incx, batch_count) & bind(c, name='hipblasDtpsvBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpsvBatched_64Fortran type(c_ptr), value :: handle @@ -7989,7 +7989,7 @@ function hipblasCtpsvBatched_64Fortran(handle, uplo, transA, diag, n, & AP, x, incx, batch_count) & bind(c, name='hipblasCtpsvBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpsvBatched_64Fortran type(c_ptr), value :: handle @@ -8010,7 +8010,7 @@ function hipblasZtpsvBatched_64Fortran(handle, uplo, transA, diag, n, & AP, x, incx, batch_count) & bind(c, name='hipblasZtpsvBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpsvBatched_64Fortran type(c_ptr), value :: handle @@ -8032,7 +8032,7 @@ function hipblasStpsvStridedBatched_64Fortran(handle, uplo, transA, diag, n, & AP, stride_AP, x, incx, stride_x, batch_count) & bind(c, name='hipblasStpsvStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpsvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -8055,7 +8055,7 @@ function hipblasDtpsvStridedBatched_64Fortran(handle, uplo, transA, diag, n, & AP, stride_AP, x, incx, stride_x, batch_count) & bind(c, name='hipblasDtpsvStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpsvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -8078,7 +8078,7 @@ function hipblasCtpsvStridedBatched_64Fortran(handle, uplo, transA, diag, n, & AP, stride_AP, x, incx, stride_x, batch_count) & bind(c, name='hipblasCtpsvStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpsvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -8101,7 +8101,7 @@ function hipblasZtpsvStridedBatched_64Fortran(handle, uplo, transA, diag, n, & AP, stride_AP, x, incx, stride_x, batch_count) & bind(c, name='hipblasZtpsvStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpsvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -8125,7 +8125,7 @@ function hipblasStrsv_64Fortran(handle, uplo, transA, diag, m, & A, lda, x, incx) & bind(c, name='hipblasStrsv_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsv_64Fortran type(c_ptr), value :: handle @@ -8146,7 +8146,7 @@ function hipblasDtrsv_64Fortran(handle, uplo, transA, diag, m, & A, lda, x, incx) & bind(c, name='hipblasDtrsv_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsv_64Fortran type(c_ptr), value :: handle @@ -8167,7 +8167,7 @@ function hipblasCtrsv_64Fortran(handle, uplo, transA, diag, m, & A, lda, x, incx) & bind(c, name='hipblasCtrsv_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsv_64Fortran type(c_ptr), value :: handle @@ -8188,7 +8188,7 @@ function hipblasZtrsv_64Fortran(handle, uplo, transA, diag, m, & A, lda, x, incx) & bind(c, name='hipblasZtrsv_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsv_64Fortran type(c_ptr), value :: handle @@ -8210,7 +8210,7 @@ function hipblasStrsvBatched_64Fortran(handle, uplo, transA, diag, m, & A, lda, x, incx, batch_count) & bind(c, name='hipblasStrsvBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsvBatched_64Fortran type(c_ptr), value :: handle @@ -8232,7 +8232,7 @@ function hipblasDtrsvBatched_64Fortran(handle, uplo, transA, diag, m, & A, lda, x, incx, batch_count) & bind(c, name='hipblasDtrsvBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsvBatched_64Fortran type(c_ptr), value :: handle @@ -8254,7 +8254,7 @@ function hipblasCtrsvBatched_64Fortran(handle, uplo, transA, diag, m, & A, lda, x, incx, batch_count) & bind(c, name='hipblasCtrsvBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsvBatched_64Fortran type(c_ptr), value :: handle @@ -8276,7 +8276,7 @@ function hipblasZtrsvBatched_64Fortran(handle, uplo, transA, diag, m, & A, lda, x, incx, batch_count) & bind(c, name='hipblasZtrsvBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsvBatched_64Fortran type(c_ptr), value :: handle @@ -8299,7 +8299,7 @@ function hipblasStrsvStridedBatched_64Fortran(handle, uplo, transA, diag, m, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='hipblasStrsvStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -8323,7 +8323,7 @@ function hipblasDtrsvStridedBatched_64Fortran(handle, uplo, transA, diag, m, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='hipblasDtrsvStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -8347,7 +8347,7 @@ function hipblasCtrsvStridedBatched_64Fortran(handle, uplo, transA, diag, m, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='hipblasCtrsvStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -8371,7 +8371,7 @@ function hipblasZtrsvStridedBatched_64Fortran(handle, uplo, transA, diag, m, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='hipblasZtrsvStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsvStridedBatched_64Fortran type(c_ptr), value :: handle @@ -8400,7 +8400,7 @@ function hipblasChemm_64Fortran(handle, side, uplo, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasChemm_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemm_64Fortran type(c_ptr), value :: handle @@ -8425,7 +8425,7 @@ function hipblasZhemm_64Fortran(handle, side, uplo, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasZhemm_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemm_64Fortran type(c_ptr), value :: handle @@ -8451,7 +8451,7 @@ function hipblasChemmBatched_64Fortran(handle, side, uplo, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasChemmBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemmBatched_64Fortran type(c_ptr), value :: handle @@ -8477,7 +8477,7 @@ function hipblasZhemmBatched_64Fortran(handle, side, uplo, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasZhemmBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemmBatched_64Fortran type(c_ptr), value :: handle @@ -8504,7 +8504,7 @@ function hipblasChemmStridedBatched_64Fortran(handle, side, uplo, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasChemmStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemmStridedBatched_64Fortran type(c_ptr), value :: handle @@ -8533,7 +8533,7 @@ function hipblasZhemmStridedBatched_64Fortran(handle, side, uplo, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasZhemmStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemmStridedBatched_64Fortran type(c_ptr), value :: handle @@ -8563,7 +8563,7 @@ function hipblasCherk_64Fortran(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc) & bind(c, name='hipblasCherk_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherk_64Fortran type(c_ptr), value :: handle @@ -8586,7 +8586,7 @@ function hipblasZherk_64Fortran(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc) & bind(c, name='hipblasZherk_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherk_64Fortran type(c_ptr), value :: handle @@ -8610,7 +8610,7 @@ function hipblasCherkBatched_64Fortran(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc, batch_count) & bind(c, name='hipblasCherkBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkBatched_64Fortran type(c_ptr), value :: handle @@ -8634,7 +8634,7 @@ function hipblasZherkBatched_64Fortran(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc, batch_count) & bind(c, name='hipblasZherkBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkBatched_64Fortran type(c_ptr), value :: handle @@ -8659,7 +8659,7 @@ function hipblasCherkStridedBatched_64Fortran(handle, uplo, transA, n, k, alpha, A, lda, stride_A, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasCherkStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkStridedBatched_64Fortran type(c_ptr), value :: handle @@ -8685,7 +8685,7 @@ function hipblasZherkStridedBatched_64Fortran(handle, uplo, transA, n, k, alpha, A, lda, stride_A, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasZherkStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkStridedBatched_64Fortran type(c_ptr), value :: handle @@ -8712,7 +8712,7 @@ function hipblasCher2k_64Fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasCher2k_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2k_64Fortran type(c_ptr), value :: handle @@ -8737,7 +8737,7 @@ function hipblasZher2k_64Fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasZher2k_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2k_64Fortran type(c_ptr), value :: handle @@ -8763,7 +8763,7 @@ function hipblasCher2kBatched_64Fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasCher2kBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2kBatched_64Fortran type(c_ptr), value :: handle @@ -8789,7 +8789,7 @@ function hipblasZher2kBatched_64Fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasZher2kBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2kBatched_64Fortran type(c_ptr), value :: handle @@ -8816,7 +8816,7 @@ function hipblasCher2kStridedBatched_64Fortran(handle, uplo, transA, n, k, alpha A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasCher2kStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2kStridedBatched_64Fortran type(c_ptr), value :: handle @@ -8845,7 +8845,7 @@ function hipblasZher2kStridedBatched_64Fortran(handle, uplo, transA, n, k, alpha A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasZher2kStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2kStridedBatched_64Fortran type(c_ptr), value :: handle @@ -8875,7 +8875,7 @@ function hipblasCherkx_64Fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasCherkx_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkx_64Fortran type(c_ptr), value :: handle @@ -8900,7 +8900,7 @@ function hipblasZherkx_64Fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasZherkx_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkx_64Fortran type(c_ptr), value :: handle @@ -8926,7 +8926,7 @@ function hipblasCherkxBatched_64Fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasCherkxBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkxBatched_64Fortran type(c_ptr), value :: handle @@ -8952,7 +8952,7 @@ function hipblasZherkxBatched_64Fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasZherkxBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkxBatched_64Fortran type(c_ptr), value :: handle @@ -8979,7 +8979,7 @@ function hipblasCherkxStridedBatched_64Fortran(handle, uplo, transA, n, k, alpha A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasCherkxStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkxStridedBatched_64Fortran type(c_ptr), value :: handle @@ -9008,7 +9008,7 @@ function hipblasZherkxStridedBatched_64Fortran(handle, uplo, transA, n, k, alpha A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasZherkxStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkxStridedBatched_64Fortran type(c_ptr), value :: handle @@ -9038,7 +9038,7 @@ function hipblasSsymm_64Fortran(handle, side, uplo, m, n, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasSsymm_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymm_64Fortran type(c_ptr), value :: handle @@ -9063,7 +9063,7 @@ function hipblasDsymm_64Fortran(handle, side, uplo, m, n, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasDsymm_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymm_64Fortran type(c_ptr), value :: handle @@ -9088,7 +9088,7 @@ function hipblasCsymm_64Fortran(handle, side, uplo, m, n, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasCsymm_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymm_64Fortran type(c_ptr), value :: handle @@ -9113,7 +9113,7 @@ function hipblasZsymm_64Fortran(handle, side, uplo, m, n, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasZsymm_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymm_64Fortran type(c_ptr), value :: handle @@ -9139,7 +9139,7 @@ function hipblasSsymmBatched_64Fortran(handle, side, uplo, m, n, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasSsymmBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymmBatched_64Fortran type(c_ptr), value :: handle @@ -9165,7 +9165,7 @@ function hipblasDsymmBatched_64Fortran(handle, side, uplo, m, n, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasDsymmBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymmBatched_64Fortran type(c_ptr), value :: handle @@ -9191,7 +9191,7 @@ function hipblasCsymmBatched_64Fortran(handle, side, uplo, m, n, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasCsymmBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymmBatched_64Fortran type(c_ptr), value :: handle @@ -9217,7 +9217,7 @@ function hipblasZsymmBatched_64Fortran(handle, side, uplo, m, n, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasZsymmBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymmBatched_64Fortran type(c_ptr), value :: handle @@ -9244,7 +9244,7 @@ function hipblasSsymmStridedBatched_64Fortran(handle, side, uplo, m, n, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasSsymmStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymmStridedBatched_64Fortran type(c_ptr), value :: handle @@ -9273,7 +9273,7 @@ function hipblasDsymmStridedBatched_64Fortran(handle, side, uplo, m, n, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasDsymmStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymmStridedBatched_64Fortran type(c_ptr), value :: handle @@ -9302,7 +9302,7 @@ function hipblasCsymmStridedBatched_64Fortran(handle, side, uplo, m, n, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasCsymmStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymmStridedBatched_64Fortran type(c_ptr), value :: handle @@ -9331,7 +9331,7 @@ function hipblasZsymmStridedBatched_64Fortran(handle, side, uplo, m, n, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasZsymmStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymmStridedBatched_64Fortran type(c_ptr), value :: handle @@ -9361,7 +9361,7 @@ function hipblasSsyrk_64Fortran(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc) & bind(c, name='hipblasSsyrk_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrk_64Fortran type(c_ptr), value :: handle @@ -9384,7 +9384,7 @@ function hipblasDsyrk_64Fortran(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc) & bind(c, name='hipblasDsyrk_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrk_64Fortran type(c_ptr), value :: handle @@ -9407,7 +9407,7 @@ function hipblasCsyrk_64Fortran(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc) & bind(c, name='hipblasCsyrk_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrk_64Fortran type(c_ptr), value :: handle @@ -9430,7 +9430,7 @@ function hipblasZsyrk_64Fortran(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc) & bind(c, name='hipblasZsyrk_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrk_64Fortran type(c_ptr), value :: handle @@ -9454,7 +9454,7 @@ function hipblasSsyrkBatched_64Fortran(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc, batch_count) & bind(c, name='hipblasSsyrkBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkBatched_64Fortran type(c_ptr), value :: handle @@ -9478,7 +9478,7 @@ function hipblasDsyrkBatched_64Fortran(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc, batch_count) & bind(c, name='hipblasDsyrkBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkBatched_64Fortran type(c_ptr), value :: handle @@ -9502,7 +9502,7 @@ function hipblasCsyrkBatched_64Fortran(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc, batch_count) & bind(c, name='hipblasCsyrkBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkBatched_64Fortran type(c_ptr), value :: handle @@ -9526,7 +9526,7 @@ function hipblasZsyrkBatched_64Fortran(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc, batch_count) & bind(c, name='hipblasZsyrkBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkBatched_64Fortran type(c_ptr), value :: handle @@ -9551,7 +9551,7 @@ function hipblasSsyrkStridedBatched_64Fortran(handle, uplo, transA, n, k, alpha, A, lda, stride_A, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasSsyrkStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkStridedBatched_64Fortran type(c_ptr), value :: handle @@ -9577,7 +9577,7 @@ function hipblasDsyrkStridedBatched_64Fortran(handle, uplo, transA, n, k, alpha, A, lda, stride_A, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasDsyrkStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkStridedBatched_64Fortran type(c_ptr), value :: handle @@ -9603,7 +9603,7 @@ function hipblasCsyrkStridedBatched_64Fortran(handle, uplo, transA, n, k, alpha, A, lda, stride_A, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasCsyrkStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkStridedBatched_64Fortran type(c_ptr), value :: handle @@ -9629,7 +9629,7 @@ function hipblasZsyrkStridedBatched_64Fortran(handle, uplo, transA, n, k, alpha, A, lda, stride_A, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasZsyrkStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkStridedBatched_64Fortran type(c_ptr), value :: handle @@ -9656,7 +9656,7 @@ function hipblasSsyr2k_64Fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasSsyr2k_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2k_64Fortran type(c_ptr), value :: handle @@ -9681,7 +9681,7 @@ function hipblasDsyr2k_64Fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasDsyr2k_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2k_64Fortran type(c_ptr), value :: handle @@ -9706,7 +9706,7 @@ function hipblasCsyr2k_64Fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasCsyr2k_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2k_64Fortran type(c_ptr), value :: handle @@ -9731,7 +9731,7 @@ function hipblasZsyr2k_64Fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasZsyr2k_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2k_64Fortran type(c_ptr), value :: handle @@ -9757,7 +9757,7 @@ function hipblasSsyr2kBatched_64Fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasSsyr2kBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2kBatched_64Fortran type(c_ptr), value :: handle @@ -9783,7 +9783,7 @@ function hipblasDsyr2kBatched_64Fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasDsyr2kBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2kBatched_64Fortran type(c_ptr), value :: handle @@ -9809,7 +9809,7 @@ function hipblasCsyr2kBatched_64Fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasCsyr2kBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2kBatched_64Fortran type(c_ptr), value :: handle @@ -9835,7 +9835,7 @@ function hipblasZsyr2kBatched_64Fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasZsyr2kBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2kBatched_64Fortran type(c_ptr), value :: handle @@ -9862,7 +9862,7 @@ function hipblasSsyr2kStridedBatched_64Fortran(handle, uplo, transA, n, k, alpha A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasSsyr2kStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2kStridedBatched_64Fortran type(c_ptr), value :: handle @@ -9891,7 +9891,7 @@ function hipblasDsyr2kStridedBatched_64Fortran(handle, uplo, transA, n, k, alpha A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasDsyr2kStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2kStridedBatched_64Fortran type(c_ptr), value :: handle @@ -9920,7 +9920,7 @@ function hipblasCsyr2kStridedBatched_64Fortran(handle, uplo, transA, n, k, alpha A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasCsyr2kStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2kStridedBatched_64Fortran type(c_ptr), value :: handle @@ -9949,7 +9949,7 @@ function hipblasZsyr2kStridedBatched_64Fortran(handle, uplo, transA, n, k, alpha A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasZsyr2kStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2kStridedBatched_64Fortran type(c_ptr), value :: handle @@ -9979,7 +9979,7 @@ function hipblasSsyrkx_64Fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasSsyrkx_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkx_64Fortran type(c_ptr), value :: handle @@ -10004,7 +10004,7 @@ function hipblasDsyrkx_64Fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasDsyrkx_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkx_64Fortran type(c_ptr), value :: handle @@ -10029,7 +10029,7 @@ function hipblasCsyrkx_64Fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasCsyrkx_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkx_64Fortran type(c_ptr), value :: handle @@ -10054,7 +10054,7 @@ function hipblasZsyrkx_64Fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasZsyrkx_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkx_64Fortran type(c_ptr), value :: handle @@ -10080,7 +10080,7 @@ function hipblasSsyrkxBatched_64Fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasSsyrkxBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkxBatched_64Fortran type(c_ptr), value :: handle @@ -10106,7 +10106,7 @@ function hipblasDsyrkxBatched_64Fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasDsyrkxBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkxBatched_64Fortran type(c_ptr), value :: handle @@ -10132,7 +10132,7 @@ function hipblasCsyrkxBatched_64Fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasCsyrkxBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkxBatched_64Fortran type(c_ptr), value :: handle @@ -10158,7 +10158,7 @@ function hipblasZsyrkxBatched_64Fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasZsyrkxBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkxBatched_64Fortran type(c_ptr), value :: handle @@ -10185,7 +10185,7 @@ function hipblasSsyrkxStridedBatched_64Fortran(handle, uplo, transA, n, k, alpha A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasSsyrkxStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkxStridedBatched_64Fortran type(c_ptr), value :: handle @@ -10214,7 +10214,7 @@ function hipblasDsyrkxStridedBatched_64Fortran(handle, uplo, transA, n, k, alpha A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasDsyrkxStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkxStridedBatched_64Fortran type(c_ptr), value :: handle @@ -10243,7 +10243,7 @@ function hipblasCsyrkxStridedBatched_64Fortran(handle, uplo, transA, n, k, alpha A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasCsyrkxStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkxStridedBatched_64Fortran type(c_ptr), value :: handle @@ -10272,7 +10272,7 @@ function hipblasZsyrkxStridedBatched_64Fortran(handle, uplo, transA, n, k, alpha A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasZsyrkxStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkxStridedBatched_64Fortran type(c_ptr), value :: handle @@ -10302,7 +10302,7 @@ function hipblasStrmm_64Fortran(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb, C, ldc) & bind(c, name='hipblasStrmm_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmm_64Fortran type(c_ptr), value :: handle @@ -10328,7 +10328,7 @@ function hipblasDtrmm_64Fortran(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb, C, ldc) & bind(c, name='hipblasDtrmm_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmm_64Fortran type(c_ptr), value :: handle @@ -10354,7 +10354,7 @@ function hipblasCtrmm_64Fortran(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb, C, ldc) & bind(c, name='hipblasCtrmm_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmm_64Fortran type(c_ptr), value :: handle @@ -10380,7 +10380,7 @@ function hipblasZtrmm_64Fortran(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb, C, ldc) & bind(c, name='hipblasZtrmm_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmm_64Fortran type(c_ptr), value :: handle @@ -10407,7 +10407,7 @@ function hipblasStrmmBatched_64Fortran(handle, side, uplo, transA, diag, m, n, a A, lda, B, ldb, C, ldc, batch_count) & bind(c, name='hipblasStrmmBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmmBatched_64Fortran type(c_ptr), value :: handle @@ -10434,7 +10434,7 @@ function hipblasDtrmmBatched_64Fortran(handle, side, uplo, transA, diag, m, n, a A, lda, B, ldb, C, ldc, batch_count) & bind(c, name='hipblasDtrmmBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmmBatched_64Fortran type(c_ptr), value :: handle @@ -10461,7 +10461,7 @@ function hipblasCtrmmBatched_64Fortran(handle, side, uplo, transA, diag, m, n, a A, lda, B, ldb, C, ldc, batch_count) & bind(c, name='hipblasCtrmmBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmmBatched_64Fortran type(c_ptr), value :: handle @@ -10488,7 +10488,7 @@ function hipblasZtrmmBatched_64Fortran(handle, side, uplo, transA, diag, m, n, a A, lda, B, ldb, C, ldc, batch_count) & bind(c, name='hipblasZtrmmBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmmBatched_64Fortran type(c_ptr), value :: handle @@ -10516,7 +10516,7 @@ function hipblasStrmmStridedBatched_64Fortran(handle, side, uplo, transA, diag, A, lda, stride_A, B, ldb, stride_B, C, ldc, stride_C, batch_count) & bind(c, name='hipblasStrmmStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmmStridedBatched_64Fortran type(c_ptr), value :: handle @@ -10546,7 +10546,7 @@ function hipblasDtrmmStridedBatched_64Fortran(handle, side, uplo, transA, diag, A, lda, stride_A, B, ldb, stride_B, C, ldc, stride_C, batch_count) & bind(c, name='hipblasDtrmmStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmmStridedBatched_64Fortran type(c_ptr), value :: handle @@ -10576,7 +10576,7 @@ function hipblasCtrmmStridedBatched_64Fortran(handle, side, uplo, transA, diag, A, lda, stride_A, B, ldb, stride_B, C, ldc, stride_C, batch_count) & bind(c, name='hipblasCtrmmStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmmStridedBatched_64Fortran type(c_ptr), value :: handle @@ -10606,7 +10606,7 @@ function hipblasZtrmmStridedBatched_64Fortran(handle, side, uplo, transA, diag, A, lda, stride_A, B, ldb, stride_B, C, ldc, stride_C, batch_count) & bind(c, name='hipblasZtrmmStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmmStridedBatched_64Fortran type(c_ptr), value :: handle @@ -10637,7 +10637,7 @@ function hipblasStrsm_64Fortran(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb) & bind(c, name='hipblasStrsm_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsm_64Fortran type(c_ptr), value :: handle @@ -10661,7 +10661,7 @@ function hipblasDtrsm_64Fortran(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb) & bind(c, name='hipblasDtrsm_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsm_64Fortran type(c_ptr), value :: handle @@ -10685,7 +10685,7 @@ function hipblasCtrsm_64Fortran(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb) & bind(c, name='hipblasCtrsm_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsm_64Fortran type(c_ptr), value :: handle @@ -10709,7 +10709,7 @@ function hipblasZtrsm_64Fortran(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb) & bind(c, name='hipblasZtrsm_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsm_64Fortran type(c_ptr), value :: handle @@ -10734,7 +10734,7 @@ function hipblasStrsmBatched_64Fortran(handle, side, uplo, transA, diag, m, n, a A, lda, B, ldb, batch_count) & bind(c, name='hipblasStrsmBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsmBatched_64Fortran type(c_ptr), value :: handle @@ -10759,7 +10759,7 @@ function hipblasDtrsmBatched_64Fortran(handle, side, uplo, transA, diag, m, n, a A, lda, B, ldb, batch_count) & bind(c, name='hipblasDtrsmBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsmBatched_64Fortran type(c_ptr), value :: handle @@ -10784,7 +10784,7 @@ function hipblasCtrsmBatched_64Fortran(handle, side, uplo, transA, diag, m, n, a A, lda, B, ldb, batch_count) & bind(c, name='hipblasCtrsmBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsmBatched_64Fortran type(c_ptr), value :: handle @@ -10809,7 +10809,7 @@ function hipblasZtrsmBatched_64Fortran(handle, side, uplo, transA, diag, m, n, a A, lda, B, ldb, batch_count) & bind(c, name='hipblasZtrsmBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsmBatched_64Fortran type(c_ptr), value :: handle @@ -10835,7 +10835,7 @@ function hipblasStrsmStridedBatched_64Fortran(handle, side, uplo, transA, diag, A, lda, stride_A, B, ldb, stride_B, batch_count) & bind(c, name='hipblasStrsmStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsmStridedBatched_64Fortran type(c_ptr), value :: handle @@ -10862,7 +10862,7 @@ function hipblasDtrsmStridedBatched_64Fortran(handle, side, uplo, transA, diag, A, lda, stride_A, B, ldb, stride_B, batch_count) & bind(c, name='hipblasDtrsmStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsmStridedBatched_64Fortran type(c_ptr), value :: handle @@ -10889,7 +10889,7 @@ function hipblasCtrsmStridedBatched_64Fortran(handle, side, uplo, transA, diag, A, lda, stride_A, B, ldb, stride_B, batch_count) & bind(c, name='hipblasCtrsmStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsmStridedBatched_64Fortran type(c_ptr), value :: handle @@ -10916,7 +10916,7 @@ function hipblasZtrsmStridedBatched_64Fortran(handle, side, uplo, transA, diag, A, lda, stride_A, B, ldb, stride_B, batch_count) & bind(c, name='hipblasZtrsmStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsmStridedBatched_64Fortran type(c_ptr), value :: handle @@ -10944,7 +10944,7 @@ function hipblasHgemm_64Fortran(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasHgemm_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHgemm_64Fortran type(c_ptr), value :: handle @@ -10970,7 +10970,7 @@ function hipblasSgemm_64Fortran(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasSgemm_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemm_64Fortran type(c_ptr), value :: handle @@ -10996,7 +10996,7 @@ function hipblasDgemm_64Fortran(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasDgemm_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemm_64Fortran type(c_ptr), value :: handle @@ -11022,7 +11022,7 @@ function hipblasCgemm_64Fortran(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasCgemm_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemm_64Fortran type(c_ptr), value :: handle @@ -11048,7 +11048,7 @@ function hipblasZgemm_64Fortran(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='hipblasZgemm_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemm_64Fortran type(c_ptr), value :: handle @@ -11075,7 +11075,7 @@ function hipblasHgemmBatched_64Fortran(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasHgemmBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHgemmBatched_64Fortran type(c_ptr), value :: handle @@ -11102,7 +11102,7 @@ function hipblasSgemmBatched_64Fortran(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasSgemmBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmBatched_64Fortran type(c_ptr), value :: handle @@ -11129,7 +11129,7 @@ function hipblasDgemmBatched_64Fortran(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasDgemmBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmBatched_64Fortran type(c_ptr), value :: handle @@ -11156,7 +11156,7 @@ function hipblasCgemmBatched_64Fortran(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasCgemmBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemmBatched_64Fortran type(c_ptr), value :: handle @@ -11183,7 +11183,7 @@ function hipblasZgemmBatched_64Fortran(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='hipblasZgemmBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemmBatched_64Fortran type(c_ptr), value :: handle @@ -11212,7 +11212,7 @@ function hipblasSgemmGroupedBatched_64Fortran(handle, transA_array, transB_array Carray, ldc_array, group_count, group_size) & bind(c, name='hipblasSgemmGroupedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmGroupedBatched_64Fortran type(c_ptr), value :: handle @@ -11242,7 +11242,7 @@ function hipblasDgemmGroupedBatched_64Fortran(handle, transA_array, transB_array Carray, ldc_array, group_count, group_size) & bind(c, name='hipblasDgemmGroupedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmGroupedBatched_64Fortran type(c_ptr), value :: handle @@ -11272,7 +11272,7 @@ function hipblasHgemmStridedBatched_64Fortran(handle, transA, transB, m, n, k, a A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasHgemmStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHgemmStridedBatched_64Fortran type(c_ptr), value :: handle @@ -11302,7 +11302,7 @@ function hipblasSgemmStridedBatched_64Fortran(handle, transA, transB, m, n, k, a A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasSgemmStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmStridedBatched_64Fortran type(c_ptr), value :: handle @@ -11332,7 +11332,7 @@ function hipblasDgemmStridedBatched_64Fortran(handle, transA, transB, m, n, k, a A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasDgemmStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmStridedBatched_64Fortran type(c_ptr), value :: handle @@ -11362,7 +11362,7 @@ function hipblasCgemmStridedBatched_64Fortran(handle, transA, transB, m, n, k, a A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasCgemmStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemmStridedBatched_64Fortran type(c_ptr), value :: handle @@ -11392,7 +11392,7 @@ function hipblasZgemmStridedBatched_64Fortran(handle, transA, transB, m, n, k, a A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='hipblasZgemmStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemmStridedBatched_64Fortran type(c_ptr), value :: handle @@ -11423,7 +11423,7 @@ function hipblasSdgmm_64Fortran(handle, side, m, n, & A, lda, x, incx, C, ldc) & bind(c, name='hipblasSdgmm_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdgmm_64Fortran type(c_ptr), value :: handle @@ -11445,7 +11445,7 @@ function hipblasDdgmm_64Fortran(handle, side, m, n, & A, lda, x, incx, C, ldc) & bind(c, name='hipblasDdgmm_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdgmm_64Fortran type(c_ptr), value :: handle @@ -11467,7 +11467,7 @@ function hipblasCdgmm_64Fortran(handle, side, m, n, & A, lda, x, incx, C, ldc) & bind(c, name='hipblasCdgmm_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdgmm_64Fortran type(c_ptr), value :: handle @@ -11489,7 +11489,7 @@ function hipblasZdgmm_64Fortran(handle, side, m, n, & A, lda, x, incx, C, ldc) & bind(c, name='hipblasZdgmm_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdgmm_64Fortran type(c_ptr), value :: handle @@ -11512,7 +11512,7 @@ function hipblasSdgmmBatched_64Fortran(handle, side, m, n, & A, lda, x, incx, C, ldc, batch_count) & bind(c, name='hipblasSdgmmBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdgmmBatched_64Fortran type(c_ptr), value :: handle @@ -11535,7 +11535,7 @@ function hipblasDdgmmBatched_64Fortran(handle, side, m, n, & A, lda, x, incx, C, ldc, batch_count) & bind(c, name='hipblasDdgmmBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdgmmBatched_64Fortran type(c_ptr), value :: handle @@ -11558,7 +11558,7 @@ function hipblasCdgmmBatched_64Fortran(handle, side, m, n, & A, lda, x, incx, C, ldc, batch_count) & bind(c, name='hipblasCdgmmBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdgmmBatched_64Fortran type(c_ptr), value :: handle @@ -11581,7 +11581,7 @@ function hipblasZdgmmBatched_64Fortran(handle, side, m, n, & A, lda, x, incx, C, ldc, batch_count) & bind(c, name='hipblasZdgmmBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdgmmBatched_64Fortran type(c_ptr), value :: handle @@ -11605,7 +11605,7 @@ function hipblasSdgmmStridedBatched_64Fortran(handle, side, m, n, & A, lda, stride_A, x, incx, stride_x, C, ldc, stride_C, batch_count) & bind(c, name='hipblasSdgmmStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdgmmStridedBatched_64Fortran type(c_ptr), value :: handle @@ -11631,7 +11631,7 @@ function hipblasDdgmmStridedBatched_64Fortran(handle, side, m, n, & A, lda, stride_A, x, incx, stride_x, C, ldc, stride_C, batch_count) & bind(c, name='hipblasDdgmmStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdgmmStridedBatched_64Fortran type(c_ptr), value :: handle @@ -11657,7 +11657,7 @@ function hipblasCdgmmStridedBatched_64Fortran(handle, side, m, n, & A, lda, stride_A, x, incx, stride_x, C, ldc, stride_C, batch_count) & bind(c, name='hipblasCdgmmStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdgmmStridedBatched_64Fortran type(c_ptr), value :: handle @@ -11683,7 +11683,7 @@ function hipblasZdgmmStridedBatched_64Fortran(handle, side, m, n, & A, lda, stride_A, x, incx, stride_x, C, ldc, stride_C, batch_count) & bind(c, name='hipblasZdgmmStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdgmmStridedBatched_64Fortran type(c_ptr), value :: handle @@ -11710,7 +11710,7 @@ function hipblasSgeam_64Fortran(handle, transA, transB, m, n, alpha, & A, lda, beta, B, ldb, C, ldc) & bind(c, name='hipblasSgeam_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeam_64Fortran type(c_ptr), value :: handle @@ -11735,7 +11735,7 @@ function hipblasDgeam_64Fortran(handle, transA, transB, m, n, alpha, & A, lda, beta, B, ldb, C, ldc) & bind(c, name='hipblasDgeam_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeam_64Fortran type(c_ptr), value :: handle @@ -11760,7 +11760,7 @@ function hipblasCgeam_64Fortran(handle, transA, transB, m, n, alpha, & A, lda, beta, B, ldb, C, ldc) & bind(c, name='hipblasCgeam_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeam_64Fortran type(c_ptr), value :: handle @@ -11785,7 +11785,7 @@ function hipblasZgeam_64Fortran(handle, transA, transB, m, n, alpha, & A, lda, beta, B, ldb, C, ldc) & bind(c, name='hipblasZgeam_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeam_64Fortran type(c_ptr), value :: handle @@ -11811,7 +11811,7 @@ function hipblasSgeamBatched_64Fortran(handle, transA, transB, m, n, alpha, & A, lda, beta, B, ldb, C, ldc, batch_count) & bind(c, name='hipblasSgeamBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeamBatched_64Fortran type(c_ptr), value :: handle @@ -11837,7 +11837,7 @@ function hipblasDgeamBatched_64Fortran(handle, transA, transB, m, n, alpha, & A, lda, beta, B, ldb, C, ldc, batch_count) & bind(c, name='hipblasDgeamBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeamBatched_64Fortran type(c_ptr), value :: handle @@ -11863,7 +11863,7 @@ function hipblasCgeamBatched_64Fortran(handle, transA, transB, m, n, alpha, & A, lda, beta, B, ldb, C, ldc, batch_count) & bind(c, name='hipblasCgeamBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeamBatched_64Fortran type(c_ptr), value :: handle @@ -11889,7 +11889,7 @@ function hipblasZgeamBatched_64Fortran(handle, transA, transB, m, n, alpha, & A, lda, beta, B, ldb, C, ldc, batch_count) & bind(c, name='hipblasZgeamBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeamBatched_64Fortran type(c_ptr), value :: handle @@ -11916,7 +11916,7 @@ function hipblasSgeamStridedBatched_64Fortran(handle, transA, transB, m, n, alph A, lda, stride_A, beta, B, ldb, stride_B, C, ldc, stride_C, batch_count) & bind(c, name='hipblasSgeamStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeamStridedBatched_64Fortran type(c_ptr), value :: handle @@ -11945,7 +11945,7 @@ function hipblasDgeamStridedBatched_64Fortran(handle, transA, transB, m, n, alph A, lda, stride_A, beta, B, ldb, stride_B, C, ldc, stride_C, batch_count) & bind(c, name='hipblasDgeamStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeamStridedBatched_64Fortran type(c_ptr), value :: handle @@ -11974,7 +11974,7 @@ function hipblasCgeamStridedBatched_64Fortran(handle, transA, transB, m, n, alph A, lda, stride_A, beta, B, ldb, stride_B, C, ldc, stride_C, batch_count) & bind(c, name='hipblasCgeamStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeamStridedBatched_64Fortran type(c_ptr), value :: handle @@ -12003,7 +12003,7 @@ function hipblasZgeamStridedBatched_64Fortran(handle, transA, transB, m, n, alph A, lda, stride_A, beta, B, ldb, stride_B, C, ldc, stride_C, batch_count) & bind(c, name='hipblasZgeamStridedBatched_64Fortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeamStridedBatched_64Fortran type(c_ptr), value :: handle @@ -12036,8 +12036,7 @@ end function hipblasZgeamStridedBatched_64Fortran function hipblasAxpyEx_64Fortran(handle, n, alpha, alphaType, x, xType, incx, y, yType, incy, executionType) & bind(c, name='hipblasAxpyEx_64Fortran') use iso_c_binding - use hipblas - use hip + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasAxpyEx_64Fortran type(c_ptr), value :: handle @@ -12059,8 +12058,7 @@ end function hipblasAxpyEx_64Fortran function hipblasAxpyBatchedEx_64Fortran(handle, n, alpha, alphaType, x, xType, incx, y, yType, incy, batch_count, executionType) & bind(c, name='hipblasAxpyBatchedEx_64Fortran') use iso_c_binding - use hipblas - use hip + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasAxpyBatchedEx_64Fortran type(c_ptr), value :: handle @@ -12084,8 +12082,7 @@ function hipblasAxpyStridedBatchedEx_64Fortran(handle, n, alpha, alphaType, x, x y, yType, incy, stridey, batch_count, executionType) & bind(c, name='hipblasAxpyStridedBatchedEx_64Fortran') use iso_c_binding - use hipblas - use hip + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasAxpyStridedBatchedEx_64Fortran type(c_ptr), value :: handle @@ -12113,8 +12110,7 @@ function hipblasDotEx_64Fortran(handle, n, x, xType, incx, y, yType, incy, resul resultType, executionType) & bind(c, name='hipblasDotEx_64Fortran') use iso_c_binding - use hipblas - use hip + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDotEx_64Fortran type(c_ptr), value :: handle @@ -12137,8 +12133,7 @@ function hipblasDotcEx_64Fortran(handle, n, x, xType, incx, y, yType, incy, resu resultType, executionType) & bind(c, name='hipblasDotcEx_64Fortran') use iso_c_binding - use hipblas - use hip + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDotcEx_64Fortran type(c_ptr), value :: handle @@ -12161,8 +12156,7 @@ function hipblasDotBatchedEx_64Fortran(handle, n, x, xType, incx, y, yType, incy resultType, executionType) & bind(c, name='hipblasDotBatchedEx_64Fortran') use iso_c_binding - use hipblas - use hip + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDotBatchedEx_64Fortran type(c_ptr), value :: handle @@ -12186,8 +12180,7 @@ function hipblasDotcBatchedEx_64Fortran(handle, n, x, xType, incx, y, yType, inc resultType, executionType) & bind(c, name='hipblasDotcBatchedEx_64Fortran') use iso_c_binding - use hipblas - use hip + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDotcBatchedEx_64Fortran type(c_ptr), value :: handle @@ -12211,8 +12204,7 @@ function hipblasDotStridedBatchedEx_64Fortran(handle, n, x, xType, incx, stridex y, yType, incy, stridey, batch_count, result, resultType, executionType) & bind(c, name='hipblasDotStridedBatchedEx_64Fortran') use iso_c_binding - use hipblas - use hip + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDotStridedBatchedEx_64Fortran type(c_ptr), value :: handle @@ -12239,8 +12231,7 @@ function hipblasDotcStridedBatchedEx_64Fortran(handle, n, x, xType, incx, stride y, yType, incy, stridey, batch_count, result, resultType, executionType) & bind(c, name='hipblasDotcStridedBatchedEx_64Fortran') use iso_c_binding - use hipblas - use hip + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDotcStridedBatchedEx_64Fortran type(c_ptr), value :: handle @@ -12267,8 +12258,7 @@ end function hipblasDotcStridedBatchedEx_64Fortran function hipblasNrm2Ex_64Fortran(handle, n, x, xType, incx, result, resultType, executionType) & bind(c, name='hipblasNrm2Ex_64Fortran') use iso_c_binding - use hipblas - use hip + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasNrm2Ex_64Fortran type(c_ptr), value :: handle @@ -12287,8 +12277,7 @@ end function hipblasNrm2Ex_64Fortran function hipblasNrm2BatchedEx_64Fortran(handle, n, x, xType, incx, batch_count, result, resultType, executionType) & bind(c, name='hipblasNrm2BatchedEx_64Fortran') use iso_c_binding - use hipblas - use hip + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasNrm2BatchedEx_64Fortran type(c_ptr), value :: handle @@ -12309,8 +12298,7 @@ function hipblasNrm2StridedBatchedEx_64Fortran(handle, n, x, xType, incx, stride batch_count, result, resultType, executionType) & bind(c, name='hipblasNrm2StridedBatchedEx_64Fortran') use iso_c_binding - use hipblas - use hip + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasNrm2StridedBatchedEx_64Fortran type(c_ptr), value :: handle @@ -12334,8 +12322,7 @@ function hipblasRotEx_64Fortran(handle, n, x, xType, incx, y, yType, incy, c, s, csType, executionType) & bind(c, name='hipblasRotEx_64Fortran') use iso_c_binding - use hipblas - use hip + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasRotEx_64Fortran type(c_ptr), value :: handle @@ -12359,8 +12346,7 @@ function hipblasRotBatchedEx_64Fortran(handle, n, x, xType, incx, y, yType, incy csType, batch_count, executionType) & bind(c, name='hipblasRotBatchedEx_64Fortran') use iso_c_binding - use hipblas - use hip + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasRotBatchedEx_64Fortran type(c_ptr), value :: handle @@ -12385,8 +12371,7 @@ function hipblasRotStridedBatchedEx_64Fortran(handle, n, x, xType, incx, stridex y, yType, incy, stridey, c, s, csType, batch_count, executionType) & bind(c, name='hipblasRotStridedBatchedEx_64Fortran') use iso_c_binding - use hipblas - use hip + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasRotStridedBatchedEx_64Fortran type(c_ptr), value :: handle @@ -12414,8 +12399,7 @@ end function hipblasRotStridedBatchedEx_64Fortran function hipblasScalEx_64Fortran(handle, n, alpha, alphaType, x, xType, incx, executionType) & bind(c, name='hipblasScalEx_64Fortran') use iso_c_binding - use hipblas - use hip + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScalEx_64Fortran type(c_ptr), value :: handle @@ -12434,8 +12418,7 @@ end function hipblasScalEx_64Fortran function hipblasScalBatchedEx_64Fortran(handle, n, alpha, alphaType, x, xType, incx, batch_count, executionType) & bind(c, name='hipblasScalBatchedEx_64Fortran') use iso_c_binding - use hipblas - use hip + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScalBatchedEx_64Fortran type(c_ptr), value :: handle @@ -12456,8 +12439,7 @@ function hipblasScalStridedBatchedEx_64Fortran(handle, n, alpha, alphaType, x, x batch_count, executionType) & bind(c, name='hipblasScalStridedBatchedEx_64Fortran') use iso_c_binding - use hipblas - use hip + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScalStridedBatchedEx_64Fortran type(c_ptr), value :: handle @@ -12482,8 +12464,7 @@ function hipblasGemmEx_64Fortran(handle, transA, transB, m, n, k, alpha, a, a_ty compute_type, algo) & bind(c, name='hipblasGemmEx_64Fortran') use iso_c_binding - use hipblas - use hip + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmEx_64Fortran type(c_ptr), value :: handle @@ -12516,8 +12497,7 @@ function hipblasGemmBatchedEx_64Fortran(handle, transA, transB, m, n, k, alpha, batch_count, compute_type, algo) & bind(c, name='hipblasGemmBatchedEx_64Fortran') use iso_c_binding - use hipblas - use hip + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmBatchedEx_64Fortran type(c_ptr), value :: handle @@ -12551,8 +12531,7 @@ function hipblasGemmStridedBatchedEx_64Fortran(handle, transA, transB, m, n, k, batch_count, compute_type, algo) & bind(c, name='hipblasGemmStridedBatchedEx_64Fortran') use iso_c_binding - use hipblas - use hip + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmStridedBatchedEx_64Fortran type(c_ptr), value :: handle @@ -12589,8 +12568,7 @@ function hipblasGemmExWithFlags_64Fortran(handle, transA, transB, m, n, k, alpha compute_type, algo, flags) & bind(c, name='hipblasGemmExWithFlags_64Fortran') use iso_c_binding - use hipblas - use hip + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmExWithFlags_64Fortran type(c_ptr), value :: handle @@ -12624,8 +12602,7 @@ function hipblasGemmBatchedExWithFlags_64Fortran(handle, transA, transB, m, n, k batch_count, compute_type, algo, flags) & bind(c, name='hipblasGemmBatchedExWithFlags_64Fortran') use iso_c_binding - use hipblas - use hip + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmBatchedExWithFlags_64Fortran type(c_ptr), value :: handle @@ -12661,8 +12638,7 @@ function hipblasGemmGroupedBatchedEx_64Fortran(handle, transA_array, transB_arra ldd_array, group_count, group_size, compute_type, algo) & bind(c, name='hipblasGemmGroupedBatchedEx_64Fortran') use iso_c_binding - use hipblas - use hip + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmGroupedBatchedEx_64Fortran type(c_ptr), value :: handle @@ -12702,8 +12678,7 @@ function hipblasGemmGroupedBatchedExWithFlags_64Fortran(handle, transA_array, tr ldd_array, group_count, group_size, compute_type, algo, flags) & bind(c, name='hipblasGemmGroupedBatchedExWithFlags_64Fortran') use iso_c_binding - use hipblas - use hip + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmGroupedBatchedExWithFlags_64Fortran type(c_ptr), value :: handle @@ -12743,8 +12718,7 @@ function hipblasGemmStridedBatchedExWithFlags_64Fortran(handle, transA, transB, batch_count, compute_type, algo, flags) & bind(c, name='hipblasGemmStridedBatchedExWithFlags_64Fortran') use iso_c_binding - use hipblas - use hip + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmStridedBatchedExWithFlags_64Fortran type(c_ptr), value :: handle diff --git a/projects/hipblas/clients/include/hipblas_fortran_solver.f90 b/projects/hipblas/clients/include/hipblas_fortran_solver.f90 index ff4c352d7a47..a0b7ef3936e4 100644 --- a/projects/hipblas/clients/include/hipblas_fortran_solver.f90 +++ b/projects/hipblas/clients/include/hipblas_fortran_solver.f90 @@ -29,7 +29,7 @@ function hipblasSgetrfFortran(handle, n, A, lda, ipiv, info) & bind(c, name='hipblasSgetrfFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrfFortran type(c_ptr), value :: handle @@ -45,7 +45,7 @@ end function hipblasSgetrfFortran function hipblasDgetrfFortran(handle, n, A, lda, ipiv, info) & bind(c, name='hipblasDgetrfFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrfFortran type(c_ptr), value :: handle @@ -61,7 +61,7 @@ end function hipblasDgetrfFortran function hipblasCgetrfFortran(handle, n, A, lda, ipiv, info) & bind(c, name='hipblasCgetrfFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrfFortran type(c_ptr), value :: handle @@ -77,7 +77,7 @@ end function hipblasCgetrfFortran function hipblasZgetrfFortran(handle, n, A, lda, ipiv, info) & bind(c, name='hipblasZgetrfFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrfFortran type(c_ptr), value :: handle @@ -94,7 +94,7 @@ end function hipblasZgetrfFortran function hipblasSgetrfBatchedFortran(handle, n, A, lda, ipiv, info, batch_count) & bind(c, name='hipblasSgetrfBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrfBatchedFortran type(c_ptr), value :: handle @@ -111,7 +111,7 @@ end function hipblasSgetrfBatchedFortran function hipblasDgetrfBatchedFortran(handle, n, A, lda, ipiv, info, batch_count) & bind(c, name='hipblasDgetrfBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrfBatchedFortran type(c_ptr), value :: handle @@ -128,7 +128,7 @@ end function hipblasDgetrfBatchedFortran function hipblasCgetrfBatchedFortran(handle, n, A, lda, ipiv, info, batch_count) & bind(c, name='hipblasCgetrfBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrfBatchedFortran type(c_ptr), value :: handle @@ -145,7 +145,7 @@ end function hipblasCgetrfBatchedFortran function hipblasZgetrfBatchedFortran(handle, n, A, lda, ipiv, info, batch_count) & bind(c, name='hipblasZgetrfBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrfBatchedFortran type(c_ptr), value :: handle @@ -164,16 +164,16 @@ function hipblasSgetrfStridedBatchedFortran(handle, n, A, lda, stride_A, & ipiv, stride_P, info, batch_count) & bind(c, name='hipblasSgetrfStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrfStridedBatchedFortran type(c_ptr), value :: handle integer(c_int), value :: n type(c_ptr), value :: A integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A + integer(c_int), value :: stride_A type(c_ptr), value :: ipiv - integer(c_int64_t), value :: stride_P + integer(c_int), value :: stride_P type(c_ptr), value :: info integer(c_int), value :: batch_count hipblasSgetrfStridedBatchedFortran = & @@ -185,16 +185,16 @@ function hipblasDgetrfStridedBatchedFortran(handle, n, A, lda, stride_A, & ipiv, stride_P, info, batch_count) & bind(c, name='hipblasDgetrfStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrfStridedBatchedFortran type(c_ptr), value :: handle integer(c_int), value :: n type(c_ptr), value :: A integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A + integer(c_int), value :: stride_A type(c_ptr), value :: ipiv - integer(c_int64_t), value :: stride_P + integer(c_int), value :: stride_P type(c_ptr), value :: info integer(c_int), value :: batch_count hipblasDgetrfStridedBatchedFortran = & @@ -206,16 +206,16 @@ function hipblasCgetrfStridedBatchedFortran(handle, n, A, lda, stride_A, & ipiv, stride_P, info, batch_count) & bind(c, name='hipblasCgetrfStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrfStridedBatchedFortran type(c_ptr), value :: handle integer(c_int), value :: n type(c_ptr), value :: A integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A + integer(c_int), value :: stride_A type(c_ptr), value :: ipiv - integer(c_int64_t), value :: stride_P + integer(c_int), value :: stride_P type(c_ptr), value :: info integer(c_int), value :: batch_count hipblasCgetrfStridedBatchedFortran = & @@ -227,16 +227,16 @@ function hipblasZgetrfStridedBatchedFortran(handle, n, A, lda, stride_A, & ipiv, stride_P, info, batch_count) & bind(c, name='hipblasZgetrfStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrfStridedBatchedFortran type(c_ptr), value :: handle integer(c_int), value :: n type(c_ptr), value :: A integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A + integer(c_int), value :: stride_A type(c_ptr), value :: ipiv - integer(c_int64_t), value :: stride_P + integer(c_int), value :: stride_P type(c_ptr), value :: info integer(c_int), value :: batch_count hipblasZgetrfStridedBatchedFortran = & @@ -249,7 +249,7 @@ function hipblasSgetrsFortran(handle, trans, n, nrhs, A, lda, ipiv, & B, ldb, info) & bind(c, name='hipblasSgetrsFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrsFortran type(c_ptr), value :: handle @@ -271,7 +271,7 @@ function hipblasDgetrsFortran(handle, trans, n, nrhs, A, lda, ipiv, & B, ldb, info) & bind(c, name='hipblasDgetrsFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrsFortran type(c_ptr), value :: handle @@ -293,7 +293,7 @@ function hipblasCgetrsFortran(handle, trans, n, nrhs, A, lda, ipiv, & B, ldb, info) & bind(c, name='hipblasCgetrsFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrsFortran type(c_ptr), value :: handle @@ -315,7 +315,7 @@ function hipblasZgetrsFortran(handle, trans, n, nrhs, A, lda, ipiv, & B, ldb, info) & bind(c, name='hipblasZgetrsFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrsFortran type(c_ptr), value :: handle @@ -338,7 +338,7 @@ function hipblasSgetrsBatchedFortran(handle, trans, n, nrhs, A, lda, ipiv, & B, ldb, info, batch_count) & bind(c, name='hipblasSgetrsBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrsBatchedFortran type(c_ptr), value :: handle @@ -361,7 +361,7 @@ function hipblasDgetrsBatchedFortran(handle, trans, n, nrhs, A, lda, ipiv, & B, ldb, info, batch_count) & bind(c, name='hipblasDgetrsBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrsBatchedFortran type(c_ptr), value :: handle @@ -384,7 +384,7 @@ function hipblasCgetrsBatchedFortran(handle, trans, n, nrhs, A, lda, ipiv, & B, ldb, info, batch_count) & bind(c, name='hipblasCgetrsBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrsBatchedFortran type(c_ptr), value :: handle @@ -407,7 +407,7 @@ function hipblasZgetrsBatchedFortran(handle, trans, n, nrhs, A, lda, ipiv, & B, ldb, info, batch_count) & bind(c, name='hipblasZgetrsBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrsBatchedFortran type(c_ptr), value :: handle @@ -431,7 +431,7 @@ function hipblasSgetrsStridedBatchedFortran(handle, trans, n, nrhs, A, lda, stri stride_P, B, ldb, stride_B, info, batch_count) & bind(c, name='hipblasSgetrsStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrsStridedBatchedFortran type(c_ptr), value :: handle @@ -440,12 +440,12 @@ function hipblasSgetrsStridedBatchedFortran(handle, trans, n, nrhs, A, lda, stri integer(c_int), value :: nrhs type(c_ptr), value :: A integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A + integer(c_int), value :: stride_A type(c_ptr), value :: ipiv - integer(c_int64_t), value :: stride_P + integer(c_int), value :: stride_P type(c_ptr), value :: B integer(c_int), value :: ldb - integer(c_int64_t), value :: stride_B + integer(c_int), value :: stride_B type(c_ptr), value :: info integer(c_int), value :: batch_count hipblasSgetrsStridedBatchedFortran = & @@ -457,7 +457,7 @@ function hipblasDgetrsStridedBatchedFortran(handle, trans, n, nrhs, A, lda, stri stride_P, B, ldb, stride_B, info, batch_count) & bind(c, name='hipblasDgetrsStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrsStridedBatchedFortran type(c_ptr), value :: handle @@ -466,12 +466,12 @@ function hipblasDgetrsStridedBatchedFortran(handle, trans, n, nrhs, A, lda, stri integer(c_int), value :: nrhs type(c_ptr), value :: A integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A + integer(c_int), value :: stride_A type(c_ptr), value :: ipiv - integer(c_int64_t), value :: stride_P + integer(c_int), value :: stride_P type(c_ptr), value :: B integer(c_int), value :: ldb - integer(c_int64_t), value :: stride_B + integer(c_int), value :: stride_B type(c_ptr), value :: info integer(c_int), value :: batch_count hipblasDgetrsStridedBatchedFortran = & @@ -483,7 +483,7 @@ function hipblasCgetrsStridedBatchedFortran(handle, trans, n, nrhs, A, lda, stri stride_P, B, ldb, stride_B, info, batch_count) & bind(c, name='hipblasCgetrsStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrsStridedBatchedFortran type(c_ptr), value :: handle @@ -492,12 +492,12 @@ function hipblasCgetrsStridedBatchedFortran(handle, trans, n, nrhs, A, lda, stri integer(c_int), value :: nrhs type(c_ptr), value :: A integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A + integer(c_int), value :: stride_A type(c_ptr), value :: ipiv - integer(c_int64_t), value :: stride_P + integer(c_int), value :: stride_P type(c_ptr), value :: B integer(c_int), value :: ldb - integer(c_int64_t), value :: stride_B + integer(c_int), value :: stride_B type(c_ptr), value :: info integer(c_int), value :: batch_count hipblasCgetrsStridedBatchedFortran = & @@ -509,7 +509,7 @@ function hipblasZgetrsStridedBatchedFortran(handle, trans, n, nrhs, A, lda, stri stride_P, B, ldb, stride_B, info, batch_count) & bind(c, name='hipblasZgetrsStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrsStridedBatchedFortran type(c_ptr), value :: handle @@ -518,12 +518,12 @@ function hipblasZgetrsStridedBatchedFortran(handle, trans, n, nrhs, A, lda, stri integer(c_int), value :: nrhs type(c_ptr), value :: A integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A + integer(c_int), value :: stride_A type(c_ptr), value :: ipiv - integer(c_int64_t), value :: stride_P + integer(c_int), value :: stride_P type(c_ptr), value :: B integer(c_int), value :: ldb - integer(c_int64_t), value :: stride_B + integer(c_int), value :: stride_B type(c_ptr), value :: info integer(c_int), value :: batch_count hipblasZgetrsStridedBatchedFortran = & @@ -535,7 +535,7 @@ end function hipblasZgetrsStridedBatchedFortran function hipblasSgetriBatchedFortran(handle, n, A, lda, ipiv, C, ldc, info, batch_count) & bind(c, name='hipblasSgetriBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetriBatchedFortran type(c_ptr), value :: handle @@ -554,7 +554,7 @@ end function hipblasSgetriBatchedFortran function hipblasDgetriBatchedFortran(handle, n, A, lda, ipiv, C, ldc, info, batch_count) & bind(c, name='hipblasDgetriBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetriBatchedFortran type(c_ptr), value :: handle @@ -573,7 +573,7 @@ end function hipblasDgetriBatchedFortran function hipblasCgetriBatchedFortran(handle, n, A, lda, ipiv, C, ldc, info, batch_count) & bind(c, name='hipblasCgetriBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetriBatchedFortran type(c_ptr), value :: handle @@ -592,7 +592,7 @@ end function hipblasCgetriBatchedFortran function hipblasZgetriBatchedFortran(handle, n, A, lda, ipiv, C, ldc, info, batch_count) & bind(c, name='hipblasZgetriBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetriBatchedFortran type(c_ptr), value :: handle @@ -612,7 +612,7 @@ end function hipblasZgetriBatchedFortran function hipblasSgeqrfFortran(handle, m, n, A, lda, tau, info) & bind(c, name='hipblasSgeqrfFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeqrfFortran type(c_ptr), value :: handle @@ -629,7 +629,7 @@ end function hipblasSgeqrfFortran function hipblasDgeqrfFortran(handle, m, n, A, lda, tau, info) & bind(c, name='hipblasDgeqrfFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeqrfFortran type(c_ptr), value :: handle @@ -646,7 +646,7 @@ end function hipblasDgeqrfFortran function hipblasCgeqrfFortran(handle, m, n, A, lda, tau, info) & bind(c, name='hipblasCgeqrfFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeqrfFortran type(c_ptr), value :: handle @@ -663,7 +663,7 @@ end function hipblasCgeqrfFortran function hipblasZgeqrfFortran(handle, m, n, A, lda, tau, info) & bind(c, name='hipblasZgeqrfFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeqrfFortran type(c_ptr), value :: handle @@ -681,7 +681,7 @@ end function hipblasZgeqrfFortran function hipblasSgeqrfBatchedFortran(handle, m, n, A, lda, tau, info, batch_count) & bind(c, name='hipblasSgeqrfBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeqrfBatchedFortran type(c_ptr), value :: handle @@ -699,7 +699,7 @@ end function hipblasSgeqrfBatchedFortran function hipblasDgeqrfBatchedFortran(handle, m, n, A, lda, tau, info, batch_count) & bind(c, name='hipblasDgeqrfBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeqrfBatchedFortran type(c_ptr), value :: handle @@ -717,7 +717,7 @@ end function hipblasDgeqrfBatchedFortran function hipblasCgeqrfBatchedFortran(handle, m, n, A, lda, tau, info, batch_count) & bind(c, name='hipblasCgeqrfBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeqrfBatchedFortran type(c_ptr), value :: handle @@ -735,7 +735,7 @@ end function hipblasCgeqrfBatchedFortran function hipblasZgeqrfBatchedFortran(handle, m, n, A, lda, tau, info, batch_count) & bind(c, name='hipblasZgeqrfBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeqrfBatchedFortran type(c_ptr), value :: handle @@ -755,7 +755,7 @@ function hipblasSgeqrfStridedBatchedFortran(handle, m, n, A, lda, stride_A, & tau, stride_T, info, batch_count) & bind(c, name='hipblasSgeqrfStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeqrfStridedBatchedFortran type(c_ptr), value :: handle @@ -763,9 +763,9 @@ function hipblasSgeqrfStridedBatchedFortran(handle, m, n, A, lda, stride_A, & integer(c_int), value :: n type(c_ptr), value :: A integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A + integer(c_int), value :: stride_A type(c_ptr), value :: tau - integer(c_int64_t), value :: stride_T + integer(c_int), value :: stride_T type(c_ptr), value :: info integer(c_int), value :: batch_count hipblasSgeqrfStridedBatchedFortran = & @@ -777,7 +777,7 @@ function hipblasDgeqrfStridedBatchedFortran(handle, m, n, A, lda, stride_A, & tau, stride_T, info, batch_count) & bind(c, name='hipblasDgeqrfStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeqrfStridedBatchedFortran type(c_ptr), value :: handle @@ -785,9 +785,9 @@ function hipblasDgeqrfStridedBatchedFortran(handle, m, n, A, lda, stride_A, & integer(c_int), value :: n type(c_ptr), value :: A integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A + integer(c_int), value :: stride_A type(c_ptr), value :: tau - integer(c_int64_t), value :: stride_T + integer(c_int), value :: stride_T type(c_ptr), value :: info integer(c_int), value :: batch_count hipblasDgeqrfStridedBatchedFortran = & @@ -799,7 +799,7 @@ function hipblasCgeqrfStridedBatchedFortran(handle, m, n, A, lda, stride_A, & tau, stride_T, info, batch_count) & bind(c, name='hipblasCgeqrfStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeqrfStridedBatchedFortran type(c_ptr), value :: handle @@ -807,9 +807,9 @@ function hipblasCgeqrfStridedBatchedFortran(handle, m, n, A, lda, stride_A, & integer(c_int), value :: n type(c_ptr), value :: A integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A + integer(c_int), value :: stride_A type(c_ptr), value :: tau - integer(c_int64_t), value :: stride_T + integer(c_int), value :: stride_T type(c_ptr), value :: info integer(c_int), value :: batch_count hipblasCgeqrfStridedBatchedFortran = & @@ -821,7 +821,7 @@ function hipblasZgeqrfStridedBatchedFortran(handle, m, n, A, lda, stride_A, & tau, stride_T, info, batch_count) & bind(c, name='hipblasZgeqrfStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeqrfStridedBatchedFortran type(c_ptr), value :: handle @@ -829,9 +829,9 @@ function hipblasZgeqrfStridedBatchedFortran(handle, m, n, A, lda, stride_A, & integer(c_int), value :: n type(c_ptr), value :: A integer(c_int), value :: lda - integer(c_int64_t), value :: stride_A + integer(c_int), value :: stride_A type(c_ptr), value :: tau - integer(c_int64_t), value :: stride_T + integer(c_int), value :: stride_T type(c_ptr), value :: info integer(c_int), value :: batch_count hipblasZgeqrfStridedBatchedFortran = & @@ -843,7 +843,7 @@ end function hipblasZgeqrfStridedBatchedFortran function hipblasSgelsFortran(handle, trans, m, n, nrhs, A, lda, B, ldb, info, deviceInfo) & bind(c, name='hipblasSgelsFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgelsFortran type(c_ptr), value :: handle @@ -864,7 +864,7 @@ end function hipblasSgelsFortran function hipblasDgelsFortran(handle, trans, m, n, nrhs, A, lda, B, ldb, info, deviceInfo) & bind(c, name='hipblasDgelsFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgelsFortran type(c_ptr), value :: handle @@ -885,7 +885,7 @@ end function hipblasDgelsFortran function hipblasCgelsFortran(handle, trans, m, n, nrhs, A, lda, B, ldb, info, deviceInfo) & bind(c, name='hipblasCgelsFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgelsFortran type(c_ptr), value :: handle @@ -906,7 +906,7 @@ end function hipblasCgelsFortran function hipblasZgelsFortran(handle, trans, m, n, nrhs, A, lda, B, ldb, info, deviceInfo) & bind(c, name='hipblasZgelsFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgelsFortran type(c_ptr), value :: handle @@ -929,7 +929,7 @@ function hipblasSgelsBatchedFortran(handle, trans, m, n, nrhs, A, & lda, B, ldb, info, deviceInfo, batchCount) & bind(c, name = 'hipblasSgelsBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgelsBatchedFortran type(c_ptr), value :: handle @@ -952,7 +952,7 @@ function hipblasDgelsBatchedFortran(handle, trans, m, n, nrhs, A, & lda, B, ldb, info, deviceInfo, batchCount) & bind(c, name = 'hipblasDgelsBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgelsBatchedFortran type(c_ptr), value :: handle @@ -975,7 +975,7 @@ function hipblasCgelsBatchedFortran(handle, trans, m, n, nrhs, A, & lda, B, ldb, info, deviceInfo, batchCount) & bind(c, name = 'hipblasCgelsBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgelsBatchedFortran type(c_ptr), value :: handle @@ -998,7 +998,7 @@ function hipblasZgelsBatchedFortran(handle, trans, m, n, nrhs, A, & lda, B, ldb, info, deviceInfo, batchCount) & bind(c, name = 'hipblasZgelsBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgelsBatchedFortran type(c_ptr), value :: handle @@ -1022,7 +1022,7 @@ function hipblasSgelsStridedBatchedFortran(handle, trans, m, n, nrhs, A, & lda, strideA, B, ldb, strideB, info, deviceInfo, batchCount) & bind(c, name = 'hipblasSgelsStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgelsStridedBatchedFortran type(c_ptr), value :: handle @@ -1048,7 +1048,7 @@ function hipblasDgelsStridedBatchedFortran(handle, trans, m, n, nrhs, A, & lda, strideA, B, ldb, strideB, info, deviceInfo, batchCount) & bind(c, name = 'hipblasDgelsStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgelsStridedBatchedFortran type(c_ptr), value :: handle @@ -1074,7 +1074,7 @@ function hipblasCgelsStridedBatchedFortran(handle, trans, m, n, nrhs, A, & lda, strideA, B, ldb, strideB, info, deviceInfo, batchCount) & bind(c, name = 'hipblasCgelsStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgelsStridedBatchedFortran type(c_ptr), value :: handle @@ -1100,7 +1100,7 @@ function hipblasZgelsStridedBatchedFortran(handle, trans, m, n, nrhs, A, & lda, strideA, B, ldb, strideB, info, deviceInfo, batchCount) & bind(c, name = 'hipblasZgelsStridedBatchedFortran') use iso_c_binding - use hipblas + use hipblas_enums implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgelsStridedBatchedFortran type(c_ptr), value :: handle diff --git a/projects/hipblas/clients/samples/CMakeLists.txt b/projects/hipblas/clients/samples/CMakeLists.txt index 38edfec2af5f..3effd27d306e 100644 --- a/projects/hipblas/clients/samples/CMakeLists.txt +++ b/projects/hipblas/clients/samples/CMakeLists.txt @@ -35,16 +35,11 @@ if( CMAKE_CXX_COMPILER MATCHES ".*/hipcc$" OR CMAKE_CXX_COMPILER MATCHES ".*/amd add_executable( hipblas-example-hgemm example_hgemm.cpp ${hipblas_samples_common} ) endif( ) -# hipblas_fortran_client exists only under BUILD_FORTRAN_CLIENTS. -if(BUILD_FORTRAN_CLIENTS AND NOT WIN32) - add_executable( hipblas-example-sscal-fortran example_sscal_fortran.F90 ) - add_executable( hipblas-example-gemmEx-fortran example_gemm_ex_fortran.F90 ) +if(NOT WIN32) + add_executable( hipblas-example-sscal-fortran example_sscal_fortran.F90 $) + add_executable( hipblas-example-gemmEx-fortran example_gemm_ex_fortran.F90 $) set( sample_list_fortran hipblas-example-sscal-fortran hipblas-example-gemmEx-fortran ) - - foreach( exe ${sample_list_fortran} ) - target_link_libraries( ${exe} PRIVATE hipblas_fortran_client ) - endforeach() endif() if(NOT USE_CUDA) @@ -97,7 +92,7 @@ foreach( exe IN LISTS hipblas-example-executables) target_compile_options( ${exe} PRIVATE -DHIPBLAS_BFLOAT16_CLASS ) if(CMAKE_SYSTEM_PROCESSOR MATCHES "x86_64") - target_compile_options( ${exe} PRIVATE $<$:-mf16c> ) + target_compile_options( ${exe} PRIVATE -mf16c ) endif() target_compile_definitions( ${exe} PRIVATE HIPBLAS_NO_DEPRECATED_WARNINGS ) diff --git a/projects/hipblas/clients/samples/example_gemm_ex_fortran.F90 b/projects/hipblas/clients/samples/example_gemm_ex_fortran.F90 index e9beb6042a51..cd7a9ab9635c 100644 --- a/projects/hipblas/clients/samples/example_gemm_ex_fortran.F90 +++ b/projects/hipblas/clients/samples/example_gemm_ex_fortran.F90 @@ -51,8 +51,7 @@ end subroutine HIPBLAS_CHECK program example_fortran_gemm_ex use iso_c_binding use hipblas - ! HIP_R_32F is a hipDataType: it comes from HIP, not hipBLAS. - use hip + use hipblas_enums implicit none @@ -158,8 +157,8 @@ end function hipDeviceReset integer(c_int) :: i, element ! Create hipBLAS handle - type(c_ptr) :: handle - call HIPBLAS_CHECK(hipblasCreate(handle)) + type(c_ptr), target :: handle + call HIPBLAS_CHECK(hipblasCreate(c_loc(handle))) ! transA = transB = N lda = m diff --git a/projects/hipblas/clients/samples/example_sscal_fortran.F90 b/projects/hipblas/clients/samples/example_sscal_fortran.F90 index d93346a717c7..c371d3731665 100644 --- a/projects/hipblas/clients/samples/example_sscal_fortran.F90 +++ b/projects/hipblas/clients/samples/example_sscal_fortran.F90 @@ -138,8 +138,8 @@ end function hipDeviceReset integer(c_int) :: i, element ! Create hipBLAS handle - type(c_ptr) :: handle - call HIPBLAS_CHECK(hipblasCreate(handle)) + type(c_ptr), target :: handle + call HIPBLAS_CHECK(hipblasCreate(c_loc(handle))) ! Allocate host-side memory allocate(hx(n)) diff --git a/projects/hipblas/library/src/CMakeLists.txt b/projects/hipblas/library/src/CMakeLists.txt index 42b315c250eb..463f10cf9a87 100755 --- a/projects/hipblas/library/src/CMakeLists.txt +++ b/projects/hipblas/library/src/CMakeLists.txt @@ -197,3 +197,7 @@ else( ) INCLUDE "${PROJECT_SOURCE_DIR}/cmake/hipblas-cuda-dependencies.cmake" ) endif( ) + +# Force installation of .f90 module files +rocm_install(FILES "hipblas_module.f90" + DESTINATION "${CMAKE_INSTALL_INCLUDEDIR}/hipblas") diff --git a/projects/hipblas/library/src/hipblas_module.f90 b/projects/hipblas/library/src/hipblas_module.f90 new file mode 100644 index 000000000000..3948204cf656 --- /dev/null +++ b/projects/hipblas/library/src/hipblas_module.f90 @@ -0,0 +1,26261 @@ +! ************************************************************************ +! Copyright (C) 2016-2020 Advanced Micro Devices, Inc. All rights reserved. +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +! ************************************************************************ + +module hipblas_enums + use iso_c_binding + + !!!!!!!!!!!!!!!!!!!!!!! + ! hipBLAS types ! + !!!!!!!!!!!!!!!!!!!!!!! + enum, bind(c) + enumerator :: HIPBLAS_OP_N = 111 + enumerator :: HIPBLAS_OP_T = 112 + enumerator :: HIPBLAS_OP_C = 113 + end enum + + enum, bind(c) + enumerator :: HIPBLAS_FILL_MODE_UPPER = 121 + enumerator :: HIPBLAS_FILL_MODE_LOWER = 122 + enumerator :: HIPBLAS_FILL_MODE_FULL = 123 + end enum + + enum, bind(c) + enumerator :: HIPBLAS_DIAG_NON_UNIT = 131 + enumerator :: HIPBLAS_DIAG_UNIT = 132 + end enum + + enum, bind(c) + enumerator :: HIPBLAS_SIDE_LEFT = 141 + enumerator :: HIPBLAS_SIDE_RIGHT = 142 + enumerator :: HIPBLAS_SIDE_BOTH = 143 + end enum + + enum, bind(c) + enumerator :: HIPBLAS_STATUS_SUCCESS = 0 + enumerator :: HIPBLAS_STATUS_NOT_INITIALIZED = 1 + enumerator :: HIPBLAS_STATUS_ALLOC_FAILED = 2 + enumerator :: HIPBLAS_STATUS_INVALID_VALUE = 3 + enumerator :: HIPBLAS_STATUS_MAPPING_ERROR = 4 + enumerator :: HIPBLAS_STATUS_EXECUTION_FAILED = 5 + enumerator :: HIPBLAS_STATUS_INTERNAL_ERROR = 6 + enumerator :: HIPBLAS_STATUS_NOT_SUPPORTED = 7 + enumerator :: HIPBLAS_STATUS_ARCH_MISMATCH = 8 + enumerator :: HIPBLAS_STATUS_HANDLE_IS_NULLPTR = 9 + enumerator :: HIPBLAS_STATUS_INVALID_ENUM = 10 + enumerator :: HIPBLAS_STATUS_UNKNOWN = 11 + end enum + + enum, bind(c) + enumerator :: HIP_R_32F = 0 + enumerator :: HIP_R_64F = 1 + enumerator :: HIP_R_16F = 2 + enumerator :: HIP_R_8I = 3 + enumerator :: HIP_C_32F = 4 + enumerator :: HIP_C_64F = 5 + enumerator :: HIP_C_16F = 6 + enumerator :: HIP_C_8I = 7 + enumerator :: HIP_R_8U = 8 + enumerator :: HIP_C_8U = 9 + enumerator :: HIP_R_32I = 10 + enumerator :: HIP_C_32I = 11 + enumerator :: HIP_R_32U = 12 + enumerator :: HIP_C_32U = 13 + enumerator :: HIP_R_16BF = 14 + enumerator :: HIP_C_16BF = 15 + enumerator :: HIP_R_4I = 16 + enumerator :: HIP_C_4I = 17 + enumerator :: HIP_R_4U = 18 + enumerator :: HIP_C_4U = 19 + enumerator :: HIP_R_16I = 20 + enumerator :: HIP_C_16I = 21 + enumerator :: HIP_R_16U = 22 + enumerator :: HIP_C_16U = 23 + enumerator :: HIP_R_64I = 24 + enumerator :: HIP_C_64I = 25 + enumerator :: HIP_R_64U = 26 + enumerator :: HIP_C_64U = 27 + end enum + + enum, bind(c) + enumerator :: HIPBLAS_COMPUTE_16F = 0 + enumerator :: HIPBLAS_COMPUTE_16F_PEDANTIC = 1 + enumerator :: HIPBLAS_COMPUTE_32F = 2 + enumerator :: HIPBLAS_COMPUTE_32F_PEDANTIC = 3 + enumerator :: HIPBLAS_COMPUTE_32F_FAST_16F = 4 + enumerator :: HIPBLAS_COMPUTE_32F_FAST_16BF = 5 + enumerator :: HIPBLAS_COMPUTE_32F_FAST_TF32 = 6 + enumerator :: HIPBLAS_COMPUTE_64F = 7 + enumerator :: HIPBLAS_COMPUTE_64F_PEDANTIC = 8 + enumerator :: HIPBLAS_COMPUTE_32I = 9 + enumerator :: HIPBLAS_COMPUTE_32I_PEDANTIC = 10 + enumerator :: HIPBLAS_COMPUTE_32F_FAST_8F_FNUZ = 100 + enumerator :: HIPBLAS_COMPUTE_32F_FAST_8BF_FNUZ = 101 + enumerator :: HIPBLAS_COMPUTE_32F_FAST_8F8BF_FNUZ = 102 + enumerator :: HIPBLAS_COMPUTE_32F_FAST_8BF8F_FNUZ = 103 + end enum + + enum, bind(c) + enumerator :: HIPBLAS_POINTER_MODE_HOST = 0 + enumerator :: HIPBLAS_POINTER_MODE_DEVICE = 1 + end enum + + enum, bind(c) + enumerator :: HIPBLAS_GEMM_DEFAULT = 160 + end enum + + enum, bind(c) + enumerator :: HIPBLAS_ATOMICS_NOT_ALLOWED = 0 + enumerator :: HIPBLAS_ATOMICS_ALLOWED = 1 + end enum + + enum, bind(c) + enumerator :: HIPBLAS_GEMM_FLAGS_NONE = 0 + enumerator :: HIPBLAS_GEMM_FLAGS_USE_CU_EFFICIENCY = 2 + enumerator :: HIPBLAS_GEMM_FLAGS_FP16_ALT_IMPL = 4 + enumerator :: HIPBLAS_GEMM_FLAGS_CHECK_SOLUTION_INDEX = 8 + enumerator :: HIPBLAS_GEMM_FLAGS_FP16_ALT_IMPL_RNZ = 16 + end enum + +end module hipblas_enums + +module hipblas + use iso_c_binding + + !--------! + ! Aux ! + !--------! + interface + function hipblasCreate(handle) & + bind(c, name='hipblasCreate') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCreate + type(c_ptr), value :: handle + end function hipblasCreate + end interface + + interface + function hipblasDestroy(handle) & + bind(c, name='hipblasDestroy') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDestroy + type(c_ptr), value :: handle + end function hipblasDestroy + end interface + + interface + function hipblasSetStream(handle, streamId) & + bind(c, name='hipblasSetStream') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSetStream + type(c_ptr), value :: handle + type(c_ptr), value :: streamId + end function hipblasSetStream + end interface + + interface + function hipblasGetStream(handle, streamId) & + bind(c, name='hipblasGetStream') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGetStream + type(c_ptr), value :: handle + type(c_ptr), value :: streamId + end function hipblasGetStream + end interface + + interface + function hipblasSetPointerMode(handle, mode) & + bind(c, name='hipblasSetPointerMode') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSetPointerMode + type(c_ptr), value :: handle + integer(c_int), value :: mode + end function hipblasSetPointerMode + end interface + + interface + function hipblasGetPointerMode(handle, mode) & + bind(c, name='hipblasGetPointerMode') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGetPointerMode + type(c_ptr), value :: handle + type(c_ptr), value :: mode + end function hipblasGetPointerMode + end interface + + interface + function hipblasSetVector(n, elemSize, x, incx, y, incy) & + bind(c, name='hipblasSetVector') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSetVector + integer(c_int), value :: n + integer(c_int), value :: elemSize + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + end function hipblasSetVector + end interface + + interface + function hipblasGetVector(n, elemSize, x, incx, y, incy) & + bind(c, name='hipblasGetVector') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGetVector + integer(c_int), value :: n + integer(c_int), value :: elemSize + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + end function hipblasGetVector + end interface + + interface + function hipblasSetMatrix(rows, cols, elemSize, A, lda, B, ldb) & + bind(c, name='hipblasSetMatrix') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSetMatrix + integer(c_int), value :: rows + integer(c_int), value :: cols + integer(c_int), value :: elemSize + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + end function hipblasSetMatrix + end interface + + interface + function hipblasGetMatrix(rows, cols, elemSize, A, lda, B, ldb) & + bind(c, name='hipblasGetMatrix') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGetMatrix + integer(c_int), value :: rows + integer(c_int), value :: cols + integer(c_int), value :: elemSize + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + end function hipblasGetMatrix + end interface + + interface + function hipblasSetVectorAsync(n, elemSize, x, incx, y, incy, stream) & + bind(c, name='hipblasSetVectorAsync') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSetVectorAsync + integer(c_int), value :: n + integer(c_int), value :: elemSize + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + type(c_ptr), value :: stream + end function hipblasSetVectorAsync + end interface + + interface + function hipblasGetVectorAsync(n, elemSize, x, incx, y, incy, stream) & + bind(c, name='hipblasGetVectorAsync') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGetVectorAsync + integer(c_int), value :: n + integer(c_int), value :: elemSize + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + type(c_ptr), value :: stream + end function hipblasGetVectorAsync + end interface + + interface + function hipblasSetMatrixAsync(rows, cols, elemSize, A, lda, B, ldb, stream) & + bind(c, name='hipblasSetMatrixAsync') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSetMatrixAsync + integer(c_int), value :: rows + integer(c_int), value :: cols + integer(c_int), value :: elemSize + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: stream + end function hipblasSetMatrixAsync + end interface + + interface + function hipblasGetMatrixAsync(rows, cols, elemSize, A, lda, B, ldb, stream) & + bind(c, name='hipblasGetMatrixAsync') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGetMatrixAsync + integer(c_int), value :: rows + integer(c_int), value :: cols + integer(c_int), value :: elemSize + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: stream + end function hipblasGetMatrixAsync + end interface + + ! atomics mode + interface + function hipblasSetAtomicsMode(handle, atomics_mode) & + bind(c, name='hipblasSetAtomicsMode') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSetAtomicsMode + type(c_ptr), value :: handle + integer(kind(HIPBLAS_ATOMICS_ALLOWED)), value :: atomics_mode + end function hipblasSetAtomicsMode + end interface + + interface + function hipblasGetAtomicsMode(handle, atomics_mode) & + bind(c, name='hipblasGetAtomicsMode') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGetAtomicsMode + type(c_ptr), value :: handle + type(c_ptr), value :: atomics_mode + end function hipblasGetAtomicsMode + end interface + + ! batch alpha/beta stride + interface + function hipblasSetBatchAlphaStride(handle, alpha_stride) & + bind(c, name='hipblasSetBatchAlphaStride') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSetBatchAlphaStride + type(c_ptr), value :: handle + integer(c_int64_t), value :: alpha_stride + end function hipblasSetBatchAlphaStride + end interface + + interface + function hipblasGetBatchAlphaStride(handle, alpha_stride) & + bind(c, name='hipblasGetBatchAlphaStride') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGetBatchAlphaStride + type(c_ptr), value :: handle + type(c_ptr), value :: alpha_stride + end function hipblasGetBatchAlphaStride + end interface + + interface + function hipblasSetBatchBetaStride(handle, beta_stride) & + bind(c, name='hipblasSetBatchBetaStride') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSetBatchBetaStride + type(c_ptr), value :: handle + integer(c_int64_t), value :: beta_stride + end function hipblasSetBatchBetaStride + end interface + + interface + function hipblasGetBatchBetaStride(handle, beta_stride) & + bind(c, name='hipblasGetBatchBetaStride') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGetBatchBetaStride + type(c_ptr), value :: handle + type(c_ptr), value :: beta_stride + end function hipblasGetBatchBetaStride + end interface + + !--------! + ! blas 1 ! + !--------! + + ! scal + interface + function hipblasSscal(handle, n, alpha, x, incx) & + bind(c, name='hipblasSscal') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscal + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + end function hipblasSscal + end interface + + interface + function hipblasDscal(handle, n, alpha, x, incx) & + bind(c, name='hipblasDscal') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscal + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + end function hipblasDscal + end interface + + interface + function hipblasCscal(handle, n, alpha, x, incx) & + bind(c, name='hipblasCscal') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscal + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + end function hipblasCscal + end interface + + interface + function hipblasZscal(handle, n, alpha, x, incx) & + bind(c, name='hipblasZscal') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscal + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + end function hipblasZscal + end interface + + interface + function hipblasCsscal(handle, n, alpha, x, incx) & + bind(c, name='hipblasCsscal') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscal + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + end function hipblasCsscal + end interface + + interface + function hipblasZdscal(handle, n, alpha, x, incx) & + bind(c, name='hipblasZdscal') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscal + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + end function hipblasZdscal + end interface + + ! scal_64 + interface + function hipblasSscal_64(handle, n, alpha, x, incx) & + bind(c, name='hipblasSscal_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscal_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + end function hipblasSscal_64 + end interface + + interface + function hipblasDscal_64(handle, n, alpha, x, incx) & + bind(c, name='hipblasDscal_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscal_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + end function hipblasDscal_64 + end interface + + interface + function hipblasCscal_64(handle, n, alpha, x, incx) & + bind(c, name='hipblasCscal_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscal_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + end function hipblasCscal_64 + end interface + + interface + function hipblasZscal_64(handle, n, alpha, x, incx) & + bind(c, name='hipblasZscal_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscal_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + end function hipblasZscal_64 + end interface + + interface + function hipblasCsscal_64(handle, n, alpha, x, incx) & + bind(c, name='hipblasCsscal_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscal_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + end function hipblasCsscal_64 + end interface + + interface + function hipblasZdscal_64(handle, n, alpha, x, incx) & + bind(c, name='hipblasZdscal_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscal_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + end function hipblasZdscal_64 + end interface + + ! scalBatched + interface + function hipblasSscalBatched(handle, n, alpha, x, incx, batch_count) & + bind(c, name='hipblasSscalBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscalBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int), value :: batch_count + end function hipblasSscalBatched + end interface + + interface + function hipblasDscalBatched(handle, n, alpha, x, incx, batch_count) & + bind(c, name='hipblasDscalBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscalBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int), value :: batch_count + end function hipblasDscalBatched + end interface + + interface + function hipblasCscalBatched(handle, n, alpha, x, incx, batch_count) & + bind(c, name='hipblasCscalBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscalBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int), value :: batch_count + end function hipblasCscalBatched + end interface + + interface + function hipblasZscalBatched(handle, n, alpha, x, incx, batch_count) & + bind(c, name='hipblasZscalBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscalBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int), value :: batch_count + end function hipblasZscalBatched + end interface + + interface + function hipblasCsscalBatched(handle, n, alpha, x, incx, batch_count) & + bind(c, name='hipblasCsscalBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscalBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int), value :: batch_count + end function hipblasCsscalBatched + end interface + + interface + function hipblasZdscalBatched(handle, n, alpha, x, incx, batch_count) & + bind(c, name='hipblasZdscalBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscalBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int), value :: batch_count + end function hipblasZdscalBatched + end interface + + ! scalBatched_64 + interface + function hipblasSscalBatched_64(handle, n, alpha, x, incx, batch_count) & + bind(c, name='hipblasSscalBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscalBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: batch_count + end function hipblasSscalBatched_64 + end interface + + interface + function hipblasDscalBatched_64(handle, n, alpha, x, incx, batch_count) & + bind(c, name='hipblasDscalBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscalBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: batch_count + end function hipblasDscalBatched_64 + end interface + + interface + function hipblasCscalBatched_64(handle, n, alpha, x, incx, batch_count) & + bind(c, name='hipblasCscalBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscalBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: batch_count + end function hipblasCscalBatched_64 + end interface + + interface + function hipblasZscalBatched_64(handle, n, alpha, x, incx, batch_count) & + bind(c, name='hipblasZscalBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscalBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: batch_count + end function hipblasZscalBatched_64 + end interface + + interface + function hipblasCsscalBatched_64(handle, n, alpha, x, incx, batch_count) & + bind(c, name='hipblasCsscalBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscalBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: batch_count + end function hipblasCsscalBatched_64 + end interface + + interface + function hipblasZdscalBatched_64(handle, n, alpha, x, incx, batch_count) & + bind(c, name='hipblasZdscalBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscalBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: batch_count + end function hipblasZdscalBatched_64 + end interface + + ! scalStridedBatched + interface + function hipblasSscalStridedBatched(handle, n, alpha, x, incx, stride_x, batch_count) & + bind(c, name='hipblasSscalStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscalStridedBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int), value :: batch_count + end function hipblasSscalStridedBatched + end interface + + interface + function hipblasDscalStridedBatched(handle, n, alpha, x, incx, stride_x, batch_count) & + bind(c, name='hipblasDscalStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscalStridedBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int), value :: batch_count + end function hipblasDscalStridedBatched + end interface + + interface + function hipblasCscalStridedBatched(handle, n, alpha, x, incx, stride_x, batch_count) & + bind(c, name='hipblasCscalStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscalStridedBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int), value :: batch_count + end function hipblasCscalStridedBatched + end interface + + interface + function hipblasZscalStridedBatched(handle, n, alpha, x, incx, stride_x, batch_count) & + bind(c, name='hipblasZscalStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscalStridedBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int), value :: batch_count + end function hipblasZscalStridedBatched + end interface + + interface + function hipblasCsscalStridedBatched(handle, n, alpha, x, incx, stride_x, batch_count) & + bind(c, name='hipblasCsscalStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscalStridedBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int), value :: batch_count + end function hipblasCsscalStridedBatched + end interface + + interface + function hipblasZdscalStridedBatched(handle, n, alpha, x, incx, stride_x, batch_count) & + bind(c, name='hipblasZdscalStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscalStridedBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int), value :: batch_count + end function hipblasZdscalStridedBatched + end interface + + ! scalStridedBatched_64 + interface + function hipblasSscalStridedBatched_64(handle, n, alpha, x, incx, stride_x, batch_count) & + bind(c, name='hipblasSscalStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscalStridedBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int64_t), value :: batch_count + end function hipblasSscalStridedBatched_64 + end interface + + interface + function hipblasDscalStridedBatched_64(handle, n, alpha, x, incx, stride_x, batch_count) & + bind(c, name='hipblasDscalStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscalStridedBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int64_t), value :: batch_count + end function hipblasDscalStridedBatched_64 + end interface + + interface + function hipblasCscalStridedBatched_64(handle, n, alpha, x, incx, stride_x, batch_count) & + bind(c, name='hipblasCscalStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscalStridedBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int64_t), value :: batch_count + end function hipblasCscalStridedBatched_64 + end interface + + interface + function hipblasZscalStridedBatched_64(handle, n, alpha, x, incx, stride_x, batch_count) & + bind(c, name='hipblasZscalStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscalStridedBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int64_t), value :: batch_count + end function hipblasZscalStridedBatched_64 + end interface + + interface + function hipblasCsscalStridedBatched_64(handle, n, alpha, x, incx, stride_x, batch_count) & + bind(c, name='hipblasCsscalStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscalStridedBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int64_t), value :: batch_count + end function hipblasCsscalStridedBatched_64 + end interface + + interface + function hipblasZdscalStridedBatched_64(handle, n, alpha, x, incx, stride_x, batch_count) & + bind(c, name='hipblasZdscalStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscalStridedBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int64_t), value :: batch_count + end function hipblasZdscalStridedBatched_64 + end interface + + ! copy + interface + function hipblasScopy(handle, n, x, incx, y, incy) & + bind(c, name='hipblasScopy') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScopy + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + end function hipblasScopy + end interface + + interface + function hipblasDcopy(handle, n, x, incx, y, incy) & + bind(c, name='hipblasDcopy') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDcopy + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + end function hipblasDcopy + end interface + + interface + function hipblasCcopy(handle, n, x, incx, y, incy) & + bind(c, name='hipblasCcopy') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCcopy + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + end function hipblasCcopy + end interface + + interface + function hipblasZcopy(handle, n, x, incx, y, incy) & + bind(c, name='hipblasZcopy') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZcopy + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + end function hipblasZcopy + end interface + + ! copy 64-bit + interface + function hipblasScopy_64(handle, n, x, incx, y, incy) & + bind(c, name='hipblasScopy_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScopy_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + end function hipblasScopy_64 + end interface + + interface + function hipblasDcopy_64(handle, n, x, incx, y, incy) & + bind(c, name='hipblasDcopy_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDcopy_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + end function hipblasDcopy_64 + end interface + + interface + function hipblasCcopy_64(handle, n, x, incx, y, incy) & + bind(c, name='hipblasCcopy_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCcopy_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + end function hipblasCcopy_64 + end interface + + interface + function hipblasZcopy_64(handle, n, x, incx, y, incy) & + bind(c, name='hipblasZcopy_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZcopy_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + end function hipblasZcopy_64 + end interface + + ! copyBatched + interface + function hipblasScopyBatched(handle, n, x, incx, y, incy, batch_count) & + bind(c, name='hipblasScopyBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScopyBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int), value :: batch_count + end function hipblasScopyBatched + end interface + + interface + function hipblasDcopyBatched(handle, n, x, incx, y, incy, batch_count) & + bind(c, name='hipblasDcopyBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDcopyBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int), value :: batch_count + end function hipblasDcopyBatched + end interface + + interface + function hipblasCcopyBatched(handle, n, x, incx, y, incy, batch_count) & + bind(c, name='hipblasCcopyBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCcopyBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int), value :: batch_count + end function hipblasCcopyBatched + end interface + + interface + function hipblasZcopyBatched(handle, n, x, incx, y, incy, batch_count) & + bind(c, name='hipblasZcopyBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZcopyBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int), value :: batch_count + end function hipblasZcopyBatched + end interface + + ! copyBatched 64-bit + interface + function hipblasScopyBatched_64(handle, n, x, incx, y, incy, batch_count) & + bind(c, name='hipblasScopyBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScopyBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: batch_count + end function hipblasScopyBatched_64 + end interface + + interface + function hipblasDcopyBatched_64(handle, n, x, incx, y, incy, batch_count) & + bind(c, name='hipblasDcopyBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDcopyBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: batch_count + end function hipblasDcopyBatched_64 + end interface + + interface + function hipblasCcopyBatched_64(handle, n, x, incx, y, incy, batch_count) & + bind(c, name='hipblasCcopyBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCcopyBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: batch_count + end function hipblasCcopyBatched_64 + end interface + + interface + function hipblasZcopyBatched_64(handle, n, x, incx, y, incy, batch_count) & + bind(c, name='hipblasZcopyBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZcopyBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: batch_count + end function hipblasZcopyBatched_64 + end interface + + ! copyStridedBatched + interface + function hipblasScopyStridedBatched(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & + bind(c, name='hipblasScopyStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScopyStridedBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int), value :: batch_count + end function hipblasScopyStridedBatched + end interface + + interface + function hipblasDcopyStridedBatched(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & + bind(c, name='hipblasDcopyStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDcopyStridedBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int), value :: batch_count + end function hipblasDcopyStridedBatched + end interface + + interface + function hipblasCcopyStridedBatched(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & + bind(c, name='hipblasCcopyStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCcopyStridedBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int), value :: batch_count + end function hipblasCcopyStridedBatched + end interface + + interface + function hipblasZcopyStridedBatched(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & + bind(c, name='hipblasZcopyStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZcopyStridedBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int), value :: batch_count + end function hipblasZcopyStridedBatched + end interface + + ! copyStridedBatched 64-bit + interface + function hipblasScopyStridedBatched_64(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & + bind(c, name='hipblasScopyStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScopyStridedBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int64_t), value :: batch_count + end function hipblasScopyStridedBatched_64 + end interface + + interface + function hipblasDcopyStridedBatched_64(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & + bind(c, name='hipblasDcopyStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDcopyStridedBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int64_t), value :: batch_count + end function hipblasDcopyStridedBatched_64 + end interface + + interface + function hipblasCcopyStridedBatched_64(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & + bind(c, name='hipblasCcopyStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCcopyStridedBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int64_t), value :: batch_count + end function hipblasCcopyStridedBatched_64 + end interface + + interface + function hipblasZcopyStridedBatched_64(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & + bind(c, name='hipblasZcopyStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZcopyStridedBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int64_t), value :: batch_count + end function hipblasZcopyStridedBatched_64 + end interface + + ! dot + interface + function hipblasSdot(handle, n, x, incx, y, incy, result) & + bind(c, name='hipblasSdot') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdot + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + type(c_ptr), value :: result + end function hipblasSdot + end interface + + interface + function hipblasDdot(handle, n, x, incx, y, incy, result) & + bind(c, name='hipblasDdot') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdot + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + type(c_ptr), value :: result + end function hipblasDdot + end interface + + interface + function hipblasHdot(handle, n, x, incx, y, incy, result) & + bind(c, name='hipblasHdot') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHdot + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + type(c_ptr), value :: result + end function hipblasHdot + end interface + + interface + function hipblasBfdot(handle, n, x, incx, y, incy, result) & + bind(c, name='hipblasBfdot') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasBfdot + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + type(c_ptr), value :: result + end function hipblasBfdot + end interface + + interface + function hipblasCdotu(handle, n, x, incx, y, incy, result) & + bind(c, name='hipblasCdotu') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotu + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + type(c_ptr), value :: result + end function hipblasCdotu + end interface + + interface + function hipblasCdotc(handle, n, x, incx, y, incy, result) & + bind(c, name='hipblasCdotc') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotc + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + type(c_ptr), value :: result + end function hipblasCdotc + end interface + + interface + function hipblasZdotu(handle, n, x, incx, y, incy, result) & + bind(c, name='hipblasZdotu') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotu + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + type(c_ptr), value :: result + end function hipblasZdotu + end interface + + interface + function hipblasZdotc(handle, n, x, incx, y, incy, result) & + bind(c, name='hipblasZdotc') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotc + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + type(c_ptr), value :: result + end function hipblasZdotc + end interface + + ! 64-bit interface + interface + function hipblasSdot_64(handle, n, x, incx, y, incy, result) & + bind(c, name='hipblasSdot_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdot_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + type(c_ptr), value :: result + end function hipblasSdot_64 + end interface + + interface + function hipblasDdot_64(handle, n, x, incx, y, incy, result) & + bind(c, name='hipblasDdot_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdot_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + type(c_ptr), value :: result + end function hipblasDdot_64 + end interface + + interface + function hipblasHdot_64(handle, n, x, incx, y, incy, result) & + bind(c, name='hipblasHdot_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHdot_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + type(c_ptr), value :: result + end function hipblasHdot_64 + end interface + + interface + function hipblasBfdot_64(handle, n, x, incx, y, incy, result) & + bind(c, name='hipblasBfdot_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasBfdot_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + type(c_ptr), value :: result + end function hipblasBfdot_64 + end interface + + interface + function hipblasCdotu_64(handle, n, x, incx, y, incy, result) & + bind(c, name='hipblasCdotu_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotu_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + type(c_ptr), value :: result + end function hipblasCdotu_64 + end interface + + interface + function hipblasCdotc_64(handle, n, x, incx, y, incy, result) & + bind(c, name='hipblasCdotc_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotc_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + type(c_ptr), value :: result + end function hipblasCdotc_64 + end interface + + interface + function hipblasZdotu_64(handle, n, x, incx, y, incy, result) & + bind(c, name='hipblasZdotu_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotu_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + type(c_ptr), value :: result + end function hipblasZdotu_64 + end interface + + interface + function hipblasZdotc_64(handle, n, x, incx, y, incy, result) & + bind(c, name='hipblasZdotc_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotc_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + type(c_ptr), value :: result + end function hipblasZdotc_64 + end interface + + ! dotBatched + interface + function hipblasSdotBatched(handle, n, x, incx, y, incy, batch_count, result) & + bind(c, name='hipblasSdotBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdotBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int), value :: batch_count + type(c_ptr), value :: result + end function hipblasSdotBatched + end interface + + interface + function hipblasDdotBatched(handle, n, x, incx, y, incy, batch_count, result) & + bind(c, name='hipblasDdotBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdotBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int), value :: batch_count + type(c_ptr), value :: result + end function hipblasDdotBatched + end interface + + interface + function hipblasHdotBatched(handle, n, x, incx, y, incy, batch_count, result) & + bind(c, name='hipblasHdotBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHdotBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int), value :: batch_count + type(c_ptr), value :: result + end function hipblasHdotBatched + end interface + + interface + function hipblasBfdotBatched(handle, n, x, incx, y, incy, batch_count, result) & + bind(c, name='hipblasBfdotBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasBfdotBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int), value :: batch_count + type(c_ptr), value :: result + end function hipblasBfdotBatched + end interface + + interface + function hipblasCdotuBatched(handle, n, x, incx, y, incy, batch_count, result) & + bind(c, name='hipblasCdotuBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotuBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int), value :: batch_count + type(c_ptr), value :: result + end function hipblasCdotuBatched + end interface + + interface + function hipblasCdotcBatched(handle, n, x, incx, y, incy, batch_count, result) & + bind(c, name='hipblasCdotcBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotcBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int), value :: batch_count + type(c_ptr), value :: result + end function hipblasCdotcBatched + end interface + + interface + function hipblasZdotuBatched(handle, n, x, incx, y, incy, batch_count, result) & + bind(c, name='hipblasZdotuBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotuBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int), value :: batch_count + type(c_ptr), value :: result + end function hipblasZdotuBatched + end interface + + interface + function hipblasZdotcBatched(handle, n, x, incx, y, incy, batch_count, result) & + bind(c, name='hipblasZdotcBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotcBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int), value :: batch_count + type(c_ptr), value :: result + end function hipblasZdotcBatched + end interface + + ! 64-bit interface + interface + function hipblasSdotBatched_64(handle, n, x, incx, y, incy, batch_count, result) & + bind(c, name='hipblasSdotBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdotBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: batch_count + type(c_ptr), value :: result + end function hipblasSdotBatched_64 + end interface + + interface + function hipblasDdotBatched_64(handle, n, x, incx, y, incy, batch_count, result) & + bind(c, name='hipblasDdotBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdotBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: batch_count + type(c_ptr), value :: result + end function hipblasDdotBatched_64 + end interface + + interface + function hipblasHdotBatched_64(handle, n, x, incx, y, incy, batch_count, result) & + bind(c, name='hipblasHdotBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHdotBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: batch_count + type(c_ptr), value :: result + end function hipblasHdotBatched_64 + end interface + + interface + function hipblasBfdotBatched_64(handle, n, x, incx, y, incy, batch_count, result) & + bind(c, name='hipblasBfdotBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasBfdotBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: batch_count + type(c_ptr), value :: result + end function hipblasBfdotBatched_64 + end interface + + interface + function hipblasCdotuBatched_64(handle, n, x, incx, y, incy, batch_count, result) & + bind(c, name='hipblasCdotuBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotuBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: batch_count + type(c_ptr), value :: result + end function hipblasCdotuBatched_64 + end interface + + interface + function hipblasCdotcBatched_64(handle, n, x, incx, y, incy, batch_count, result) & + bind(c, name='hipblasCdotcBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotcBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: batch_count + type(c_ptr), value :: result + end function hipblasCdotcBatched_64 + end interface + + interface + function hipblasZdotuBatched_64(handle, n, x, incx, y, incy, batch_count, result) & + bind(c, name='hipblasZdotuBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotuBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: batch_count + type(c_ptr), value :: result + end function hipblasZdotuBatched_64 + end interface + + interface + function hipblasZdotcBatched_64(handle, n, x, incx, y, incy, batch_count, result) & + bind(c, name='hipblasZdotcBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotcBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: batch_count + type(c_ptr), value :: result + end function hipblasZdotcBatched_64 + end interface + + ! dotStridedBatched + interface + function hipblasSdotStridedBatched(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & + bind(c, name='hipblasSdotStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdotStridedBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int), value :: batch_count + type(c_ptr), value :: result + end function hipblasSdotStridedBatched + end interface + + interface + function hipblasDdotStridedBatched(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & + bind(c, name='hipblasDdotStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdotStridedBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int), value :: batch_count + type(c_ptr), value :: result + end function hipblasDdotStridedBatched + end interface + + interface + function hipblasHdotStridedBatched(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & + bind(c, name='hipblasHdotStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHdotStridedBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int), value :: batch_count + type(c_ptr), value :: result + end function hipblasHdotStridedBatched + end interface + + interface + function hipblasBfdotStridedBatched(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & + bind(c, name='hipblasBfdotStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasBfdotStridedBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int), value :: batch_count + type(c_ptr), value :: result + end function hipblasBfdotStridedBatched + end interface + + interface + function hipblasCdotuStridedBatched(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & + bind(c, name='hipblasCdotuStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotuStridedBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int), value :: batch_count + type(c_ptr), value :: result + end function hipblasCdotuStridedBatched + end interface + + interface + function hipblasCdotcStridedBatched(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & + bind(c, name='hipblasCdotcStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotcStridedBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int), value :: batch_count + type(c_ptr), value :: result + end function hipblasCdotcStridedBatched + end interface + + interface + function hipblasZdotuStridedBatched(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & + bind(c, name='hipblasZdotuStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotuStridedBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int), value :: batch_count + type(c_ptr), value :: result + end function hipblasZdotuStridedBatched + end interface + + interface + function hipblasZdotcStridedBatched(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & + bind(c, name='hipblasZdotcStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotcStridedBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int), value :: batch_count + type(c_ptr), value :: result + end function hipblasZdotcStridedBatched + end interface + + ! 64-bit interface + interface + function hipblasSdotStridedBatched_64(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & + bind(c, name='hipblasSdotStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdotStridedBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int64_t), value :: batch_count + type(c_ptr), value :: result + end function hipblasSdotStridedBatched_64 + end interface + + interface + function hipblasDdotStridedBatched_64(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & + bind(c, name='hipblasDdotStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdotStridedBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int64_t), value :: batch_count + type(c_ptr), value :: result + end function hipblasDdotStridedBatched_64 + end interface + + interface + function hipblasHdotStridedBatched_64(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & + bind(c, name='hipblasHdotStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHdotStridedBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int64_t), value :: batch_count + type(c_ptr), value :: result + end function hipblasHdotStridedBatched_64 + end interface + + interface + function hipblasBfdotStridedBatched_64(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & + bind(c, name='hipblasBfdotStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasBfdotStridedBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int64_t), value :: batch_count + type(c_ptr), value :: result + end function hipblasBfdotStridedBatched_64 + end interface + + interface + function hipblasCdotuStridedBatched_64(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & + bind(c, name='hipblasCdotuStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotuStridedBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int64_t), value :: batch_count + type(c_ptr), value :: result + end function hipblasCdotuStridedBatched_64 + end interface + + interface + function hipblasCdotcStridedBatched_64(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & + bind(c, name='hipblasCdotcStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotcStridedBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int64_t), value :: batch_count + type(c_ptr), value :: result + end function hipblasCdotcStridedBatched_64 + end interface + + interface + function hipblasZdotuStridedBatched_64(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & + bind(c, name='hipblasZdotuStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotuStridedBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int64_t), value :: batch_count + type(c_ptr), value :: result + end function hipblasZdotuStridedBatched_64 + end interface + + interface + function hipblasZdotcStridedBatched_64(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & + bind(c, name='hipblasZdotcStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotcStridedBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int64_t), value :: batch_count + type(c_ptr), value :: result + end function hipblasZdotcStridedBatched_64 + end interface + + ! swap + interface + function hipblasSswap(handle, n, x, incx, y, incy) & + bind(c, name='hipblasSswap') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSswap + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + end function hipblasSswap + end interface + + interface + function hipblasDswap(handle, n, x, incx, y, incy) & + bind(c, name='hipblasDswap') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDswap + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + end function hipblasDswap + end interface + + interface + function hipblasCswap(handle, n, x, incx, y, incy) & + bind(c, name='hipblasCswap') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCswap + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + end function hipblasCswap + end interface + + interface + function hipblasZswap(handle, n, x, incx, y, incy) & + bind(c, name='hipblasZswap') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZswap + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + end function hipblasZswap + end interface + + ! swap_64 + interface + function hipblasSswap_64(handle, n, x, incx, y, incy) & + bind(c, name='hipblasSswap_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSswap_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + end function hipblasSswap_64 + end interface + + interface + function hipblasDswap_64(handle, n, x, incx, y, incy) & + bind(c, name='hipblasDswap_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDswap_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + end function hipblasDswap_64 + end interface + + interface + function hipblasCswap_64(handle, n, x, incx, y, incy) & + bind(c, name='hipblasCswap_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCswap_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + end function hipblasCswap_64 + end interface + + interface + function hipblasZswap_64(handle, n, x, incx, y, incy) & + bind(c, name='hipblasZswap_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZswap_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + end function hipblasZswap_64 + end interface + + ! swapBatched + interface + function hipblasSswapBatched(handle, n, x, incx, y, incy, batch_count) & + bind(c, name='hipblasSswapBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSswapBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int), value :: batch_count + end function hipblasSswapBatched + end interface + + interface + function hipblasDswapBatched(handle, n, x, incx, y, incy, batch_count) & + bind(c, name='hipblasDswapBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDswapBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int), value :: batch_count + end function hipblasDswapBatched + end interface + + interface + function hipblasCswapBatched(handle, n, x, incx, y, incy, batch_count) & + bind(c, name='hipblasCswapBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCswapBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int), value :: batch_count + end function hipblasCswapBatched + end interface + + interface + function hipblasZswapBatched(handle, n, x, incx, y, incy, batch_count) & + bind(c, name='hipblasZswapBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZswapBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int), value :: batch_count + end function hipblasZswapBatched + end interface + + ! swapBatched_64 + interface + function hipblasSswapBatched_64(handle, n, x, incx, y, incy, batch_count) & + bind(c, name='hipblasSswapBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSswapBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: batch_count + end function hipblasSswapBatched_64 + end interface + + interface + function hipblasDswapBatched_64(handle, n, x, incx, y, incy, batch_count) & + bind(c, name='hipblasDswapBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDswapBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: batch_count + end function hipblasDswapBatched_64 + end interface + + interface + function hipblasCswapBatched_64(handle, n, x, incx, y, incy, batch_count) & + bind(c, name='hipblasCswapBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCswapBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: batch_count + end function hipblasCswapBatched_64 + end interface + + interface + function hipblasZswapBatched_64(handle, n, x, incx, y, incy, batch_count) & + bind(c, name='hipblasZswapBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZswapBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: batch_count + end function hipblasZswapBatched_64 + end interface + + ! swapStridedBatched + interface + function hipblasSswapStridedBatched(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & + bind(c, name='hipblasSswapStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSswapStridedBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int), value :: batch_count + end function hipblasSswapStridedBatched + end interface + + interface + function hipblasDswapStridedBatched(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & + bind(c, name='hipblasDswapStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDswapStridedBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int), value :: batch_count + end function hipblasDswapStridedBatched + end interface + + interface + function hipblasCswapStridedBatched(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & + bind(c, name='hipblasCswapStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCswapStridedBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int), value :: batch_count + end function hipblasCswapStridedBatched + end interface + + interface + function hipblasZswapStridedBatched(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & + bind(c, name='hipblasZswapStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZswapStridedBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int), value :: batch_count + end function hipblasZswapStridedBatched + end interface + + ! swapStridedBatched_64 + interface + function hipblasSswapStridedBatched_64(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & + bind(c, name='hipblasSswapStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSswapStridedBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int64_t), value :: batch_count + end function hipblasSswapStridedBatched_64 + end interface + + interface + function hipblasDswapStridedBatched_64(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & + bind(c, name='hipblasDswapStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDswapStridedBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int64_t), value :: batch_count + end function hipblasDswapStridedBatched_64 + end interface + + interface + function hipblasCswapStridedBatched_64(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & + bind(c, name='hipblasCswapStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCswapStridedBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int64_t), value :: batch_count + end function hipblasCswapStridedBatched_64 + end interface + + interface + function hipblasZswapStridedBatched_64(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & + bind(c, name='hipblasZswapStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZswapStridedBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int64_t), value :: batch_count + end function hipblasZswapStridedBatched_64 + end interface + + ! axpy + interface + function hipblasHaxpy(handle, n, alpha, x, incx, y, incy) & + bind(c, name='hipblasHaxpy') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHaxpy + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + end function hipblasHaxpy + end interface + + interface + function hipblasSaxpy(handle, n, alpha, x, incx, y, incy) & + bind(c, name='hipblasSaxpy') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpy + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + end function hipblasSaxpy + end interface + + interface + function hipblasDaxpy(handle, n, alpha, x, incx, y, incy) & + bind(c, name='hipblasDaxpy') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpy + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + end function hipblasDaxpy + end interface + + interface + function hipblasCaxpy(handle, n, alpha, x, incx, y, incy) & + bind(c, name='hipblasCaxpy') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpy + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + end function hipblasCaxpy + end interface + + interface + function hipblasZaxpy(handle, n, alpha, x, incx, y, incy) & + bind(c, name='hipblasZaxpy') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpy + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + end function hipblasZaxpy + end interface + + ! axpy 64-bit + interface + function hipblasHaxpy_64(handle, n, alpha, x, incx, y, incy) & + bind(c, name='hipblasHaxpy_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHaxpy_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + end function hipblasHaxpy_64 + end interface + + interface + function hipblasSaxpy_64(handle, n, alpha, x, incx, y, incy) & + bind(c, name='hipblasSaxpy_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpy_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + end function hipblasSaxpy_64 + end interface + + interface + function hipblasDaxpy_64(handle, n, alpha, x, incx, y, incy) & + bind(c, name='hipblasDaxpy_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpy_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + end function hipblasDaxpy_64 + end interface + + interface + function hipblasCaxpy_64(handle, n, alpha, x, incx, y, incy) & + bind(c, name='hipblasCaxpy_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpy_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + end function hipblasCaxpy_64 + end interface + + interface + function hipblasZaxpy_64(handle, n, alpha, x, incx, y, incy) & + bind(c, name='hipblasZaxpy_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpy_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + end function hipblasZaxpy_64 + end interface + + ! axpyBatched + interface + function hipblasHaxpyBatched(handle, n, alpha, x, incx, y, incy, batch_count) & + bind(c, name='hipblasHaxpyBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHaxpyBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int), value :: batch_count + end function hipblasHaxpyBatched + end interface + + interface + function hipblasSaxpyBatched(handle, n, alpha, x, incx, y, incy, batch_count) & + bind(c, name='hipblasSaxpyBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpyBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int), value :: batch_count + end function hipblasSaxpyBatched + end interface + + interface + function hipblasDaxpyBatched(handle, n, alpha, x, incx, y, incy, batch_count) & + bind(c, name='hipblasDaxpyBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpyBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int), value :: batch_count + end function hipblasDaxpyBatched + end interface + + interface + function hipblasCaxpyBatched(handle, n, alpha, x, incx, y, incy, batch_count) & + bind(c, name='hipblasCaxpyBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpyBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int), value :: batch_count + end function hipblasCaxpyBatched + end interface + + interface + function hipblasZaxpyBatched(handle, n, alpha, x, incx, y, incy, batch_count) & + bind(c, name='hipblasZaxpyBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpyBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int), value :: batch_count + end function hipblasZaxpyBatched + end interface + + ! axpyBatched 64-bit + interface + function hipblasHaxpyBatched_64(handle, n, alpha, x, incx, y, incy, batch_count) & + bind(c, name='hipblasHaxpyBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHaxpyBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: batch_count + end function hipblasHaxpyBatched_64 + end interface + + interface + function hipblasSaxpyBatched_64(handle, n, alpha, x, incx, y, incy, batch_count) & + bind(c, name='hipblasSaxpyBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpyBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: batch_count + end function hipblasSaxpyBatched_64 + end interface + + interface + function hipblasDaxpyBatched_64(handle, n, alpha, x, incx, y, incy, batch_count) & + bind(c, name='hipblasDaxpyBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpyBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: batch_count + end function hipblasDaxpyBatched_64 + end interface + + interface + function hipblasCaxpyBatched_64(handle, n, alpha, x, incx, y, incy, batch_count) & + bind(c, name='hipblasCaxpyBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpyBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: batch_count + end function hipblasCaxpyBatched_64 + end interface + + interface + function hipblasZaxpyBatched_64(handle, n, alpha, x, incx, y, incy, batch_count) & + bind(c, name='hipblasZaxpyBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpyBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: batch_count + end function hipblasZaxpyBatched_64 + end interface + + ! axpyStridedBatched + interface + function hipblasHaxpyStridedBatched(handle, n, alpha, x, incx, stride_x, y, incy, stride_y, batch_count) & + bind(c, name='hipblasHaxpyStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHaxpyStridedBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int), value :: batch_count + end function hipblasHaxpyStridedBatched + end interface + + interface + function hipblasSaxpyStridedBatched(handle, n, alpha, x, incx, stride_x, y, incy, stride_y, batch_count) & + bind(c, name='hipblasSaxpyStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpyStridedBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int), value :: batch_count + end function hipblasSaxpyStridedBatched + end interface + + interface + function hipblasDaxpyStridedBatched(handle, n, alpha, x, incx, stride_x, y, incy, stride_y, batch_count) & + bind(c, name='hipblasDaxpyStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpyStridedBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int), value :: batch_count + end function hipblasDaxpyStridedBatched + end interface + + interface + function hipblasCaxpyStridedBatched(handle, n, alpha, x, incx, stride_x, y, incy, stride_y, batch_count) & + bind(c, name='hipblasCaxpyStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpyStridedBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int), value :: batch_count + end function hipblasCaxpyStridedBatched + end interface + + interface + function hipblasZaxpyStridedBatched(handle, n, alpha, x, incx, stride_x, y, incy, stride_y, batch_count) & + bind(c, name='hipblasZaxpyStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpyStridedBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int), value :: batch_count + end function hipblasZaxpyStridedBatched + end interface + + ! axpyStridedBatched_64 64-bit + interface + function hipblasHaxpyStridedBatched_64(handle, n, alpha, x, incx, stride_x, y, incy, stride_y, batch_count) & + bind(c, name='hipblasHaxpyStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHaxpyStridedBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int64_t), value :: batch_count + end function hipblasHaxpyStridedBatched_64 + end interface + + interface + function hipblasSaxpyStridedBatched_64(handle, n, alpha, x, incx, stride_x, y, incy, stride_y, batch_count) & + bind(c, name='hipblasSaxpyStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpyStridedBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int64_t), value :: batch_count + end function hipblasSaxpyStridedBatched_64 + end interface + + interface + function hipblasDaxpyStridedBatched_64(handle, n, alpha, x, incx, stride_x, y, incy, stride_y, batch_count) & + bind(c, name='hipblasDaxpyStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpyStridedBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int64_t), value :: batch_count + end function hipblasDaxpyStridedBatched_64 + end interface + + interface + function hipblasCaxpyStridedBatched_64(handle, n, alpha, x, incx, stride_x, y, incy, stride_y, batch_count) & + bind(c, name='hipblasCaxpyStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpyStridedBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int64_t), value :: batch_count + end function hipblasCaxpyStridedBatched_64 + end interface + + interface + function hipblasZaxpyStridedBatched_64(handle, n, alpha, x, incx, stride_x, y, incy, stride_y, batch_count) & + bind(c, name='hipblasZaxpyStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpyStridedBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int64_t), value :: batch_count + end function hipblasZaxpyStridedBatched_64 + end interface + + ! asum + interface + function hipblasSasum(handle, n, x, incx, result) & + bind(c, name='hipblasSasum') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasum + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: result + end function hipblasSasum + end interface + + interface + function hipblasDasum(handle, n, x, incx, result) & + bind(c, name='hipblasDasum') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasum + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: result + end function hipblasDasum + end interface + + interface + function hipblasScasum(handle, n, x, incx, result) & + bind(c, name='hipblasScasum') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasum + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: result + end function hipblasScasum + end interface + + interface + function hipblasDzasum(handle, n, x, incx, result) & + bind(c, name='hipblasDzasum') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasum + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: result + end function hipblasDzasum + end interface + + ! 64-bit interface + interface + function hipblasSasum_64(handle, n, x, incx, result) & + bind(c, name='hipblasSasum_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasum_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: result + end function hipblasSasum_64 + end interface + + interface + function hipblasDasum_64(handle, n, x, incx, result) & + bind(c, name='hipblasDasum_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasum_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: result + end function hipblasDasum_64 + end interface + + interface + function hipblasScasum_64(handle, n, x, incx, result) & + bind(c, name='hipblasScasum_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasum_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: result + end function hipblasScasum_64 + end interface + + interface + function hipblasDzasum_64(handle, n, x, incx, result) & + bind(c, name='hipblasDzasum_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasum_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: result + end function hipblasDzasum_64 + end interface + + ! asumBatched + interface + function hipblasSasumBatched(handle, n, x, incx, batch_count, result) & + bind(c, name='hipblasSasumBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasumBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int), value :: batch_count + type(c_ptr), value :: result + end function hipblasSasumBatched + end interface + + interface + function hipblasDasumBatched(handle, n, x, incx, batch_count, result) & + bind(c, name='hipblasDasumBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasumBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int), value :: batch_count + type(c_ptr), value :: result + end function hipblasDasumBatched + end interface + + interface + function hipblasScasumBatched(handle, n, x, incx, batch_count, result) & + bind(c, name='hipblasScasumBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasumBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int), value :: batch_count + type(c_ptr), value :: result + end function hipblasScasumBatched + end interface + + interface + function hipblasDzasumBatched(handle, n, x, incx, batch_count, result) & + bind(c, name='hipblasDzasumBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasumBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int), value :: batch_count + type(c_ptr), value :: result + end function hipblasDzasumBatched + end interface + + ! 64-bit interface + interface + function hipblasSasumBatched_64(handle, n, x, incx, batch_count, result) & + bind(c, name='hipblasSasumBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasumBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: batch_count + type(c_ptr), value :: result + end function hipblasSasumBatched_64 + end interface + + interface + function hipblasDasumBatched_64(handle, n, x, incx, batch_count, result) & + bind(c, name='hipblasDasumBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasumBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: batch_count + type(c_ptr), value :: result + end function hipblasDasumBatched_64 + end interface + + interface + function hipblasScasumBatched_64(handle, n, x, incx, batch_count, result) & + bind(c, name='hipblasScasumBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasumBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: batch_count + type(c_ptr), value :: result + end function hipblasScasumBatched_64 + end interface + + interface + function hipblasDzasumBatched_64(handle, n, x, incx, batch_count, result) & + bind(c, name='hipblasDzasumBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasumBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: batch_count + type(c_ptr), value :: result + end function hipblasDzasumBatched_64 + end interface + + ! asumStridedBatched + interface + function hipblasSasumStridedBatched(handle, n, x, incx, stride_x, batch_count, result) & + bind(c, name='hipblasSasumStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasumStridedBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int), value :: batch_count + type(c_ptr), value :: result + end function hipblasSasumStridedBatched + end interface + + interface + function hipblasDasumStridedBatched(handle, n, x, incx, stride_x, batch_count, result) & + bind(c, name='hipblasDasumStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasumStridedBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int), value :: batch_count + type(c_ptr), value :: result + end function hipblasDasumStridedBatched + end interface + + interface + function hipblasScasumStridedBatched(handle, n, x, incx, stride_x, batch_count, result) & + bind(c, name='hipblasScasumStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasumStridedBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int), value :: batch_count + type(c_ptr), value :: result + end function hipblasScasumStridedBatched + end interface + + interface + function hipblasDzasumStridedBatched(handle, n, x, incx, stride_x, batch_count, result) & + bind(c, name='hipblasDzasumStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasumStridedBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int), value :: batch_count + type(c_ptr), value :: result + end function hipblasDzasumStridedBatched + end interface + + ! 64-bit interface + interface + function hipblasSasumStridedBatched_64(handle, n, x, incx, stride_x, batch_count, result) & + bind(c, name='hipblasSasumStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasumStridedBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int64_t), value :: batch_count + type(c_ptr), value :: result + end function hipblasSasumStridedBatched_64 + end interface + + interface + function hipblasDasumStridedBatched_64(handle, n, x, incx, stride_x, batch_count, result) & + bind(c, name='hipblasDasumStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasumStridedBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int64_t), value :: batch_count + type(c_ptr), value :: result + end function hipblasDasumStridedBatched_64 + end interface + + interface + function hipblasScasumStridedBatched_64(handle, n, x, incx, stride_x, batch_count, result) & + bind(c, name='hipblasScasumStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasumStridedBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int64_t), value :: batch_count + type(c_ptr), value :: result + end function hipblasScasumStridedBatched_64 + end interface + + interface + function hipblasDzasumStridedBatched_64(handle, n, x, incx, stride_x, batch_count, result) & + bind(c, name='hipblasDzasumStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasumStridedBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int64_t), value :: batch_count + type(c_ptr), value :: result + end function hipblasDzasumStridedBatched_64 + end interface + + ! nrm2 + interface + function hipblasSnrm2(handle, n, x, incx, result) & + bind(c, name='hipblasSnrm2') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2 + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: result + end function hipblasSnrm2 + end interface + + interface + function hipblasDnrm2(handle, n, x, incx, result) & + bind(c, name='hipblasDnrm2') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2 + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: result + end function hipblasDnrm2 + end interface + + interface + function hipblasScnrm2(handle, n, x, incx, result) & + bind(c, name='hipblasScnrm2') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2 + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: result + end function hipblasScnrm2 + end interface + + interface + function hipblasDznrm2(handle, n, x, incx, result) & + bind(c, name='hipblasDznrm2') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2 + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: result + end function hipblasDznrm2 + end interface + + ! nrm2_64 + interface + function hipblasSnrm2_64(handle, n, x, incx, result) & + bind(c, name='hipblasSnrm2_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: result + end function hipblasSnrm2_64 + end interface + + interface + function hipblasDnrm2_64(handle, n, x, incx, result) & + bind(c, name='hipblasDnrm2_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: result + end function hipblasDnrm2_64 + end interface + + interface + function hipblasScnrm2_64(handle, n, x, incx, result) & + bind(c, name='hipblasScnrm2_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: result + end function hipblasScnrm2_64 + end interface + + interface + function hipblasDznrm2_64(handle, n, x, incx, result) & + bind(c, name='hipblasDznrm2_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: result + end function hipblasDznrm2_64 + end interface + + ! nrm2Batched + interface + function hipblasSnrm2Batched(handle, n, x, incx, batch_count, result) & + bind(c, name='hipblasSnrm2Batched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2Batched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int), value :: batch_count + type(c_ptr), value :: result + end function hipblasSnrm2Batched + end interface + + interface + function hipblasDnrm2Batched(handle, n, x, incx, batch_count, result) & + bind(c, name='hipblasDnrm2Batched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2Batched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int), value :: batch_count + type(c_ptr), value :: result + end function hipblasDnrm2Batched + end interface + + interface + function hipblasScnrm2Batched(handle, n, x, incx, batch_count, result) & + bind(c, name='hipblasScnrm2Batched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2Batched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int), value :: batch_count + type(c_ptr), value :: result + end function hipblasScnrm2Batched + end interface + + interface + function hipblasDznrm2Batched(handle, n, x, incx, batch_count, result) & + bind(c, name='hipblasDznrm2Batched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2Batched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int), value :: batch_count + type(c_ptr), value :: result + end function hipblasDznrm2Batched + end interface + + ! nrm2Batched_64 + interface + function hipblasSnrm2Batched_64(handle, n, x, incx, batch_count, result) & + bind(c, name='hipblasSnrm2Batched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2Batched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: batch_count + type(c_ptr), value :: result + end function hipblasSnrm2Batched_64 + end interface + + interface + function hipblasDnrm2Batched_64(handle, n, x, incx, batch_count, result) & + bind(c, name='hipblasDnrm2Batched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2Batched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: batch_count + type(c_ptr), value :: result + end function hipblasDnrm2Batched_64 + end interface + + interface + function hipblasScnrm2Batched_64(handle, n, x, incx, batch_count, result) & + bind(c, name='hipblasScnrm2Batched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2Batched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: batch_count + type(c_ptr), value :: result + end function hipblasScnrm2Batched_64 + end interface + + interface + function hipblasDznrm2Batched_64(handle, n, x, incx, batch_count, result) & + bind(c, name='hipblasDznrm2Batched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2Batched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: batch_count + type(c_ptr), value :: result + end function hipblasDznrm2Batched_64 + end interface + + ! nrm2StridedBatched + interface + function hipblasSnrm2StridedBatched(handle, n, x, incx, stride_x, batch_count, result) & + bind(c, name='hipblasSnrm2StridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2StridedBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int), value :: batch_count + type(c_ptr), value :: result + end function hipblasSnrm2StridedBatched + end interface + + interface + function hipblasDnrm2StridedBatched(handle, n, x, incx, stride_x, batch_count, result) & + bind(c, name='hipblasDnrm2StridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2StridedBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int), value :: batch_count + type(c_ptr), value :: result + end function hipblasDnrm2StridedBatched + end interface + + interface + function hipblasScnrm2StridedBatched(handle, n, x, incx, stride_x, batch_count, result) & + bind(c, name='hipblasScnrm2StridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2StridedBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int), value :: batch_count + type(c_ptr), value :: result + end function hipblasScnrm2StridedBatched + end interface + + interface + function hipblasDznrm2StridedBatched(handle, n, x, incx, stride_x, batch_count, result) & + bind(c, name='hipblasDznrm2StridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2StridedBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int), value :: batch_count + type(c_ptr), value :: result + end function hipblasDznrm2StridedBatched + end interface + + ! nrm2StridedBatched_64 + interface + function hipblasSnrm2StridedBatched_64(handle, n, x, incx, stride_x, batch_count, result) & + bind(c, name='hipblasSnrm2StridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2StridedBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int64_t), value :: batch_count + type(c_ptr), value :: result + end function hipblasSnrm2StridedBatched_64 + end interface + + interface + function hipblasDnrm2StridedBatched_64(handle, n, x, incx, stride_x, batch_count, result) & + bind(c, name='hipblasDnrm2StridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2StridedBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int64_t), value :: batch_count + type(c_ptr), value :: result + end function hipblasDnrm2StridedBatched_64 + end interface + + interface + function hipblasScnrm2StridedBatched_64(handle, n, x, incx, stride_x, batch_count, result) & + bind(c, name='hipblasScnrm2StridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2StridedBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int64_t), value :: batch_count + type(c_ptr), value :: result + end function hipblasScnrm2StridedBatched_64 + end interface + + interface + function hipblasDznrm2StridedBatched_64(handle, n, x, incx, stride_x, batch_count, result) & + bind(c, name='hipblasDznrm2StridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2StridedBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int64_t), value :: batch_count + type(c_ptr), value :: result + end function hipblasDznrm2StridedBatched_64 + end interface + + ! amax + interface + function hipblasIsamax(handle, n, x, incx, result) & + bind(c, name='hipblasIsamax') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamax + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: result + end function hipblasIsamax + end interface + + interface + function hipblasIdamax(handle, n, x, incx, result) & + bind(c, name='hipblasIdamax') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamax + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: result + end function hipblasIdamax + end interface + + interface + function hipblasIcamax(handle, n, x, incx, result) & + bind(c, name='hipblasIcamax') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamax + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: result + end function hipblasIcamax + end interface + + interface + function hipblasIzamax(handle, n, x, incx, result) & + bind(c, name='hipblasIzamax') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamax + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: result + end function hipblasIzamax + end interface + + ! amax_64 + interface + function hipblasIsamax_64(handle, n, x, incx, result) & + bind(c, name='hipblasIsamax_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamax_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: result + end function hipblasIsamax_64 + end interface + + interface + function hipblasIdamax_64(handle, n, x, incx, result) & + bind(c, name='hipblasIdamax_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamax_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: result + end function hipblasIdamax_64 + end interface + + interface + function hipblasIcamax_64(handle, n, x, incx, result) & + bind(c, name='hipblasIcamax_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamax_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: result + end function hipblasIcamax_64 + end interface + + interface + function hipblasIzamax_64(handle, n, x, incx, result) & + bind(c, name='hipblasIzamax_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamax_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: result + end function hipblasIzamax_64 + end interface + + ! amaxBatched + interface + function hipblasIsamaxBatched(handle, n, x, incx, batch_count, result) & + bind(c, name='hipblasIsamaxBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamaxBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int), value :: batch_count + type(c_ptr), value :: result + end function hipblasIsamaxBatched + end interface + + interface + function hipblasIdamaxBatched(handle, n, x, incx, batch_count, result) & + bind(c, name='hipblasIdamaxBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamaxBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int), value :: batch_count + type(c_ptr), value :: result + end function hipblasIdamaxBatched + end interface + + interface + function hipblasIcamaxBatched(handle, n, x, incx, batch_count, result) & + bind(c, name='hipblasIcamaxBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamaxBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int), value :: batch_count + type(c_ptr), value :: result + end function hipblasIcamaxBatched + end interface + + interface + function hipblasIzamaxBatched(handle, n, x, incx, batch_count, result) & + bind(c, name='hipblasIzamaxBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamaxBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int), value :: batch_count + type(c_ptr), value :: result + end function hipblasIzamaxBatched + end interface + + ! amaxBatched_64 + interface + function hipblasIsamaxBatched_64(handle, n, x, incx, batch_count, result) & + bind(c, name='hipblasIsamaxBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamaxBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: batch_count + type(c_ptr), value :: result + end function hipblasIsamaxBatched_64 + end interface + + interface + function hipblasIdamaxBatched_64(handle, n, x, incx, batch_count, result) & + bind(c, name='hipblasIdamaxBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamaxBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: batch_count + type(c_ptr), value :: result + end function hipblasIdamaxBatched_64 + end interface + + interface + function hipblasIcamaxBatched_64(handle, n, x, incx, batch_count, result) & + bind(c, name='hipblasIcamaxBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamaxBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: batch_count + type(c_ptr), value :: result + end function hipblasIcamaxBatched_64 + end interface + + interface + function hipblasIzamaxBatched_64(handle, n, x, incx, batch_count, result) & + bind(c, name='hipblasIzamaxBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamaxBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: batch_count + type(c_ptr), value :: result + end function hipblasIzamaxBatched_64 + end interface + + ! amaxStridedBatched + interface + function hipblasIsamaxStridedBatched(handle, n, x, incx, stride_x, batch_count, result) & + bind(c, name='hipblasIsamaxStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamaxStridedBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int), value :: batch_count + type(c_ptr), value :: result + end function hipblasIsamaxStridedBatched + end interface + + interface + function hipblasIdamaxStridedBatched(handle, n, x, incx, stride_x, batch_count, result) & + bind(c, name='hipblasIdamaxStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamaxStridedBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int), value :: batch_count + type(c_ptr), value :: result + end function hipblasIdamaxStridedBatched + end interface + + interface + function hipblasIcamaxStridedBatched(handle, n, x, incx, stride_x, batch_count, result) & + bind(c, name='hipblasIcamaxStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamaxStridedBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int), value :: batch_count + type(c_ptr), value :: result + end function hipblasIcamaxStridedBatched + end interface + + interface + function hipblasIzamaxStridedBatched(handle, n, x, incx, stride_x, batch_count, result) & + bind(c, name='hipblasIzamaxStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamaxStridedBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int), value :: batch_count + type(c_ptr), value :: result + end function hipblasIzamaxStridedBatched + end interface + + ! amaxStridedBatched_64 + interface + function hipblasIsamaxStridedBatched_64(handle, n, x, incx, stride_x, batch_count, result) & + bind(c, name='hipblasIsamaxStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamaxStridedBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int64_t), value :: batch_count + type(c_ptr), value :: result + end function hipblasIsamaxStridedBatched_64 + end interface + + interface + function hipblasIdamaxStridedBatched_64(handle, n, x, incx, stride_x, batch_count, result) & + bind(c, name='hipblasIdamaxStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamaxStridedBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int64_t), value :: batch_count + type(c_ptr), value :: result + end function hipblasIdamaxStridedBatched_64 + end interface + + interface + function hipblasIcamaxStridedBatched_64(handle, n, x, incx, stride_x, batch_count, result) & + bind(c, name='hipblasIcamaxStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamaxStridedBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int64_t), value :: batch_count + type(c_ptr), value :: result + end function hipblasIcamaxStridedBatched_64 + end interface + + interface + function hipblasIzamaxStridedBatched_64(handle, n, x, incx, stride_x, batch_count, result) & + bind(c, name='hipblasIzamaxStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamaxStridedBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int64_t), value :: batch_count + type(c_ptr), value :: result + end function hipblasIzamaxStridedBatched_64 + end interface + + ! amin + interface + function hipblasIsamin(handle, n, x, incx, result) & + bind(c, name='hipblasIsamin') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamin + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: result + end function hipblasIsamin + end interface + + interface + function hipblasIdamin(handle, n, x, incx, result) & + bind(c, name='hipblasIdamin') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamin + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: result + end function hipblasIdamin + end interface + + interface + function hipblasIcamin(handle, n, x, incx, result) & + bind(c, name='hipblasIcamin') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamin + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: result + end function hipblasIcamin + end interface + + interface + function hipblasIzamin(handle, n, x, incx, result) & + bind(c, name='hipblasIzamin') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamin + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: result + end function hipblasIzamin + end interface + + ! amin_64 + interface + function hipblasIsamin_64(handle, n, x, incx, result) & + bind(c, name='hipblasIsamin_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamin_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: result + end function hipblasIsamin_64 + end interface + + interface + function hipblasIdamin_64(handle, n, x, incx, result) & + bind(c, name='hipblasIdamin_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamin_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: result + end function hipblasIdamin_64 + end interface + + interface + function hipblasIcamin_64(handle, n, x, incx, result) & + bind(c, name='hipblasIcamin_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamin_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: result + end function hipblasIcamin_64 + end interface + + interface + function hipblasIzamin_64(handle, n, x, incx, result) & + bind(c, name='hipblasIzamin_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamin_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: result + end function hipblasIzamin_64 + end interface + + ! aminBatched + interface + function hipblasIsaminBatched(handle, n, x, incx, batch_count, result) & + bind(c, name='hipblasIsaminBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsaminBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int), value :: batch_count + type(c_ptr), value :: result + end function hipblasIsaminBatched + end interface + + interface + function hipblasIdaminBatched(handle, n, x, incx, batch_count, result) & + bind(c, name='hipblasIdaminBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdaminBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int), value :: batch_count + type(c_ptr), value :: result + end function hipblasIdaminBatched + end interface + + interface + function hipblasIcaminBatched(handle, n, x, incx, batch_count, result) & + bind(c, name='hipblasIcaminBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcaminBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int), value :: batch_count + type(c_ptr), value :: result + end function hipblasIcaminBatched + end interface + + interface + function hipblasIzaminBatched(handle, n, x, incx, batch_count, result) & + bind(c, name='hipblasIzaminBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzaminBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int), value :: batch_count + type(c_ptr), value :: result + end function hipblasIzaminBatched + end interface + + ! aminBatched_64 + interface + function hipblasIsaminBatched_64(handle, n, x, incx, batch_count, result) & + bind(c, name='hipblasIsaminBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsaminBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: batch_count + type(c_ptr), value :: result + end function hipblasIsaminBatched_64 + end interface + + interface + function hipblasIdaminBatched_64(handle, n, x, incx, batch_count, result) & + bind(c, name='hipblasIdaminBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdaminBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: batch_count + type(c_ptr), value :: result + end function hipblasIdaminBatched_64 + end interface + + interface + function hipblasIcaminBatched_64(handle, n, x, incx, batch_count, result) & + bind(c, name='hipblasIcaminBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcaminBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: batch_count + type(c_ptr), value :: result + end function hipblasIcaminBatched_64 + end interface + + interface + function hipblasIzaminBatched_64(handle, n, x, incx, batch_count, result) & + bind(c, name='hipblasIzaminBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzaminBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: batch_count + type(c_ptr), value :: result + end function hipblasIzaminBatched_64 + end interface + + ! aminStridedBatched + interface + function hipblasIsaminStridedBatched(handle, n, x, incx, stride_x, batch_count, result) & + bind(c, name='hipblasIsaminStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsaminStridedBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int), value :: batch_count + type(c_ptr), value :: result + end function hipblasIsaminStridedBatched + end interface + + interface + function hipblasIdaminStridedBatched(handle, n, x, incx, stride_x, batch_count, result) & + bind(c, name='hipblasIdaminStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdaminStridedBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int), value :: batch_count + type(c_ptr), value :: result + end function hipblasIdaminStridedBatched + end interface + + interface + function hipblasIcaminStridedBatched(handle, n, x, incx, stride_x, batch_count, result) & + bind(c, name='hipblasIcaminStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcaminStridedBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int), value :: batch_count + type(c_ptr), value :: result + end function hipblasIcaminStridedBatched + end interface + + interface + function hipblasIzaminStridedBatched(handle, n, x, incx, stride_x, batch_count, result) & + bind(c, name='hipblasIzaminStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzaminStridedBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int), value :: batch_count + type(c_ptr), value :: result + end function hipblasIzaminStridedBatched + end interface + + ! aminStridedBatched_64 + interface + function hipblasIsaminStridedBatched_64(handle, n, x, incx, stride_x, batch_count, result) & + bind(c, name='hipblasIsaminStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsaminStridedBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int64_t), value :: batch_count + type(c_ptr), value :: result + end function hipblasIsaminStridedBatched_64 + end interface + + interface + function hipblasIdaminStridedBatched_64(handle, n, x, incx, stride_x, batch_count, result) & + bind(c, name='hipblasIdaminStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdaminStridedBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int64_t), value :: batch_count + type(c_ptr), value :: result + end function hipblasIdaminStridedBatched_64 + end interface + + interface + function hipblasIcaminStridedBatched_64(handle, n, x, incx, stride_x, batch_count, result) & + bind(c, name='hipblasIcaminStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcaminStridedBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int64_t), value :: batch_count + type(c_ptr), value :: result + end function hipblasIcaminStridedBatched_64 + end interface + + interface + function hipblasIzaminStridedBatched_64(handle, n, x, incx, stride_x, batch_count, result) & + bind(c, name='hipblasIzaminStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzaminStridedBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int64_t), value :: batch_count + type(c_ptr), value :: result + end function hipblasIzaminStridedBatched_64 + end interface + + ! rot + interface + function hipblasSrot(handle, n, x, incx, y, incy, c, s) & + bind(c, name='hipblasSrot') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrot + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + type(c_ptr), value :: c + type(c_ptr), value :: s + end function hipblasSrot + end interface + + interface + function hipblasDrot(handle, n, x, incx, y, incy, c, s) & + bind(c, name='hipblasDrot') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrot + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + type(c_ptr), value :: c + type(c_ptr), value :: s + end function hipblasDrot + end interface + + interface + function hipblasCrot(handle, n, x, incx, y, incy, c, s) & + bind(c, name='hipblasCrot') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrot + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + type(c_ptr), value :: c + type(c_ptr), value :: s + end function hipblasCrot + end interface + + interface + function hipblasCsrot(handle, n, x, incx, y, incy, c, s) & + bind(c, name='hipblasCsrot') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrot + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + type(c_ptr), value :: c + type(c_ptr), value :: s + end function hipblasCsrot + end interface + + interface + function hipblasZrot(handle, n, x, incx, y, incy, c, s) & + bind(c, name='hipblasZrot') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrot + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + type(c_ptr), value :: c + type(c_ptr), value :: s + end function hipblasZrot + end interface + + interface + function hipblasZdrot(handle, n, x, incx, y, incy, c, s) & + bind(c, name='hipblasZdrot') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrot + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + type(c_ptr), value :: c + type(c_ptr), value :: s + end function hipblasZdrot + end interface + + ! rot_64 + interface + function hipblasSrot_64(handle, n, x, incx, y, incy, c, s) & + bind(c, name='hipblasSrot_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrot_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + type(c_ptr), value :: c + type(c_ptr), value :: s + end function hipblasSrot_64 + end interface + + interface + function hipblasDrot_64(handle, n, x, incx, y, incy, c, s) & + bind(c, name='hipblasDrot_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrot_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + type(c_ptr), value :: c + type(c_ptr), value :: s + end function hipblasDrot_64 + end interface + + interface + function hipblasCrot_64(handle, n, x, incx, y, incy, c, s) & + bind(c, name='hipblasCrot_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrot_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + type(c_ptr), value :: c + type(c_ptr), value :: s + end function hipblasCrot_64 + end interface + + interface + function hipblasCsrot_64(handle, n, x, incx, y, incy, c, s) & + bind(c, name='hipblasCsrot_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrot_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + type(c_ptr), value :: c + type(c_ptr), value :: s + end function hipblasCsrot_64 + end interface + + interface + function hipblasZrot_64(handle, n, x, incx, y, incy, c, s) & + bind(c, name='hipblasZrot_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrot_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + type(c_ptr), value :: c + type(c_ptr), value :: s + end function hipblasZrot_64 + end interface + + interface + function hipblasZdrot_64(handle, n, x, incx, y, incy, c, s) & + bind(c, name='hipblasZdrot_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrot_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + type(c_ptr), value :: c + type(c_ptr), value :: s + end function hipblasZdrot_64 + end interface + + ! rotBatched + interface + function hipblasSrotBatched(handle, n, x, incx, y, incy, c, s, batch_count) & + bind(c, name='hipblasSrotBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + type(c_ptr), value :: c + type(c_ptr), value :: s + integer(c_int), value :: batch_count + end function hipblasSrotBatched + end interface + + interface + function hipblasDrotBatched(handle, n, x, incx, y, incy, c, s, batch_count) & + bind(c, name='hipblasDrotBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + type(c_ptr), value :: c + type(c_ptr), value :: s + integer(c_int), value :: batch_count + end function hipblasDrotBatched + end interface + + interface + function hipblasCrotBatched(handle, n, x, incx, y, incy, c, s, batch_count) & + bind(c, name='hipblasCrotBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + type(c_ptr), value :: c + type(c_ptr), value :: s + integer(c_int), value :: batch_count + end function hipblasCrotBatched + end interface + + interface + function hipblasCsrotBatched(handle, n, x, incx, y, incy, c, s, batch_count) & + bind(c, name='hipblasCsrotBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrotBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + type(c_ptr), value :: c + type(c_ptr), value :: s + integer(c_int), value :: batch_count + end function hipblasCsrotBatched + end interface + + interface + function hipblasZrotBatched(handle, n, x, incx, y, incy, c, s, batch_count) & + bind(c, name='hipblasZrotBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + type(c_ptr), value :: c + type(c_ptr), value :: s + integer(c_int), value :: batch_count + end function hipblasZrotBatched + end interface + + interface + function hipblasZdrotBatched(handle, n, x, incx, y, incy, c, s, batch_count) & + bind(c, name='hipblasZdrotBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrotBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + type(c_ptr), value :: c + type(c_ptr), value :: s + integer(c_int), value :: batch_count + end function hipblasZdrotBatched + end interface + + ! rotBatched_64 + interface + function hipblasSrotBatched_64(handle, n, x, incx, y, incy, c, s, batch_count) & + bind(c, name='hipblasSrotBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + type(c_ptr), value :: c + type(c_ptr), value :: s + integer(c_int64_t), value :: batch_count + end function hipblasSrotBatched_64 + end interface + + interface + function hipblasDrotBatched_64(handle, n, x, incx, y, incy, c, s, batch_count) & + bind(c, name='hipblasDrotBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + type(c_ptr), value :: c + type(c_ptr), value :: s + integer(c_int64_t), value :: batch_count + end function hipblasDrotBatched_64 + end interface + + interface + function hipblasCrotBatched_64(handle, n, x, incx, y, incy, c, s, batch_count) & + bind(c, name='hipblasCrotBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + type(c_ptr), value :: c + type(c_ptr), value :: s + integer(c_int64_t), value :: batch_count + end function hipblasCrotBatched_64 + end interface + + interface + function hipblasCsrotBatched_64(handle, n, x, incx, y, incy, c, s, batch_count) & + bind(c, name='hipblasCsrotBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrotBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + type(c_ptr), value :: c + type(c_ptr), value :: s + integer(c_int64_t), value :: batch_count + end function hipblasCsrotBatched_64 + end interface + + interface + function hipblasZrotBatched_64(handle, n, x, incx, y, incy, c, s, batch_count) & + bind(c, name='hipblasZrotBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + type(c_ptr), value :: c + type(c_ptr), value :: s + integer(c_int64_t), value :: batch_count + end function hipblasZrotBatched_64 + end interface + + interface + function hipblasZdrotBatched_64(handle, n, x, incx, y, incy, c, s, batch_count) & + bind(c, name='hipblasZdrotBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrotBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + type(c_ptr), value :: c + type(c_ptr), value :: s + integer(c_int64_t), value :: batch_count + end function hipblasZdrotBatched_64 + end interface + + ! rotStridedBatched + interface + function hipblasSrotStridedBatched(handle, n, x, incx, stride_x, y, incy, stride_y, c, s, batch_count) & + bind(c, name='hipblasSrotStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotStridedBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int64_t), value :: stride_y + type(c_ptr), value :: c + type(c_ptr), value :: s + integer(c_int), value :: batch_count + end function hipblasSrotStridedBatched + end interface + + interface + function hipblasDrotStridedBatched(handle, n, x, incx, stride_x, y, incy, stride_y, c, s, batch_count) & + bind(c, name='hipblasDrotStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotStridedBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int64_t), value :: stride_y + type(c_ptr), value :: c + type(c_ptr), value :: s + integer(c_int), value :: batch_count + end function hipblasDrotStridedBatched + end interface + + interface + function hipblasCrotStridedBatched(handle, n, x, incx, stride_x, y, incy, stride_y, c, s, batch_count) & + bind(c, name='hipblasCrotStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotStridedBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int64_t), value :: stride_y + type(c_ptr), value :: c + type(c_ptr), value :: s + integer(c_int), value :: batch_count + end function hipblasCrotStridedBatched + end interface + + interface + function hipblasCsrotStridedBatched(handle, n, x, incx, stride_x, y, incy, stride_y, c, s, batch_count) & + bind(c, name='hipblasCsrotStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrotStridedBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int64_t), value :: stride_y + type(c_ptr), value :: c + type(c_ptr), value :: s + integer(c_int), value :: batch_count + end function hipblasCsrotStridedBatched + end interface + + interface + function hipblasZrotStridedBatched(handle, n, x, incx, stride_x, y, incy, stride_y, c, s, batch_count) & + bind(c, name='hipblasZrotStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotStridedBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int64_t), value :: stride_y + type(c_ptr), value :: c + type(c_ptr), value :: s + integer(c_int), value :: batch_count + end function hipblasZrotStridedBatched + end interface + + interface + function hipblasZdrotStridedBatched(handle, n, x, incx, stride_x, y, incy, stride_y, c, s, batch_count) & + bind(c, name='hipblasZdrotStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrotStridedBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int64_t), value :: stride_y + type(c_ptr), value :: c + type(c_ptr), value :: s + integer(c_int), value :: batch_count + end function hipblasZdrotStridedBatched + end interface + + ! rotStridedBatched_64 + interface + function hipblasSrotStridedBatched_64(handle, n, x, incx, stride_x, y, incy, stride_y, c, s, batch_count) & + bind(c, name='hipblasSrotStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotStridedBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: stride_y + type(c_ptr), value :: c + type(c_ptr), value :: s + integer(c_int64_t), value :: batch_count + end function hipblasSrotStridedBatched_64 + end interface + + interface + function hipblasDrotStridedBatched_64(handle, n, x, incx, stride_x, y, incy, stride_y, c, s, batch_count) & + bind(c, name='hipblasDrotStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotStridedBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: stride_y + type(c_ptr), value :: c + type(c_ptr), value :: s + integer(c_int64_t), value :: batch_count + end function hipblasDrotStridedBatched_64 + end interface + + interface + function hipblasCrotStridedBatched_64(handle, n, x, incx, stride_x, y, incy, stride_y, c, s, batch_count) & + bind(c, name='hipblasCrotStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotStridedBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: stride_y + type(c_ptr), value :: c + type(c_ptr), value :: s + integer(c_int64_t), value :: batch_count + end function hipblasCrotStridedBatched_64 + end interface + + interface + function hipblasCsrotStridedBatched_64(handle, n, x, incx, stride_x, y, incy, stride_y, c, s, batch_count) & + bind(c, name='hipblasCsrotStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrotStridedBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: stride_y + type(c_ptr), value :: c + type(c_ptr), value :: s + integer(c_int64_t), value :: batch_count + end function hipblasCsrotStridedBatched_64 + end interface + + interface + function hipblasZrotStridedBatched_64(handle, n, x, incx, stride_x, y, incy, stride_y, c, s, batch_count) & + bind(c, name='hipblasZrotStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotStridedBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: stride_y + type(c_ptr), value :: c + type(c_ptr), value :: s + integer(c_int64_t), value :: batch_count + end function hipblasZrotStridedBatched_64 + end interface + + interface + function hipblasZdrotStridedBatched_64(handle, n, x, incx, stride_x, y, incy, stride_y, c, s, batch_count) & + bind(c, name='hipblasZdrotStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrotStridedBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: stride_y + type(c_ptr), value :: c + type(c_ptr), value :: s + integer(c_int64_t), value :: batch_count + end function hipblasZdrotStridedBatched_64 + end interface + + ! rotg + interface + function hipblasSrotg(handle, a, b, c, s) & + bind(c, name='hipblasSrotg') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotg + type(c_ptr), value :: handle + type(c_ptr), value :: a + type(c_ptr), value :: b + type(c_ptr), value :: c + type(c_ptr), value :: s + end function hipblasSrotg + end interface + + interface + function hipblasDrotg(handle, a, b, c, s) & + bind(c, name='hipblasDrotg') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotg + type(c_ptr), value :: handle + type(c_ptr), value :: a + type(c_ptr), value :: b + type(c_ptr), value :: c + type(c_ptr), value :: s + end function hipblasDrotg + end interface + + interface + function hipblasCrotg(handle, a, b, c, s) & + bind(c, name='hipblasCrotg') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotg + type(c_ptr), value :: handle + type(c_ptr), value :: a + type(c_ptr), value :: b + type(c_ptr), value :: c + type(c_ptr), value :: s + end function hipblasCrotg + end interface + + interface + function hipblasZrotg(handle, a, b, c, s) & + bind(c, name='hipblasZrotg') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotg + type(c_ptr), value :: handle + type(c_ptr), value :: a + type(c_ptr), value :: b + type(c_ptr), value :: c + type(c_ptr), value :: s + end function hipblasZrotg + end interface + + ! rotg_64 + interface + function hipblasSrotg_64(handle, a, b, c, s) & + bind(c, name='hipblasSrotg_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotg_64 + type(c_ptr), value :: handle + type(c_ptr), value :: a + type(c_ptr), value :: b + type(c_ptr), value :: c + type(c_ptr), value :: s + end function hipblasSrotg_64 + end interface + + interface + function hipblasDrotg_64(handle, a, b, c, s) & + bind(c, name='hipblasDrotg_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotg_64 + type(c_ptr), value :: handle + type(c_ptr), value :: a + type(c_ptr), value :: b + type(c_ptr), value :: c + type(c_ptr), value :: s + end function hipblasDrotg_64 + end interface + + interface + function hipblasCrotg_64(handle, a, b, c, s) & + bind(c, name='hipblasCrotg_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotg_64 + type(c_ptr), value :: handle + type(c_ptr), value :: a + type(c_ptr), value :: b + type(c_ptr), value :: c + type(c_ptr), value :: s + end function hipblasCrotg_64 + end interface + + interface + function hipblasZrotg_64(handle, a, b, c, s) & + bind(c, name='hipblasZrotg_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotg_64 + type(c_ptr), value :: handle + type(c_ptr), value :: a + type(c_ptr), value :: b + type(c_ptr), value :: c + type(c_ptr), value :: s + end function hipblasZrotg_64 + end interface + + ! rotgBatched + interface + function hipblasSrotgBatched(handle, a, b, c, s, batch_count) & + bind(c, name='hipblasSrotgBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotgBatched + type(c_ptr), value :: handle + type(c_ptr), value :: a + type(c_ptr), value :: b + type(c_ptr), value :: c + type(c_ptr), value :: s + integer(c_int), value :: batch_count + end function hipblasSrotgBatched + end interface + + interface + function hipblasDrotgBatched(handle, a, b, c, s, batch_count) & + bind(c, name='hipblasDrotgBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotgBatched + type(c_ptr), value :: handle + type(c_ptr), value :: a + type(c_ptr), value :: b + type(c_ptr), value :: c + type(c_ptr), value :: s + integer(c_int), value :: batch_count + end function hipblasDrotgBatched + end interface + + interface + function hipblasCrotgBatched(handle, a, b, c, s, batch_count) & + bind(c, name='hipblasCrotgBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotgBatched + type(c_ptr), value :: handle + type(c_ptr), value :: a + type(c_ptr), value :: b + type(c_ptr), value :: c + type(c_ptr), value :: s + integer(c_int), value :: batch_count + end function hipblasCrotgBatched + end interface + + interface + function hipblasZrotgBatched(handle, a, b, c, s, batch_count) & + bind(c, name='hipblasZrotgBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotgBatched + type(c_ptr), value :: handle + type(c_ptr), value :: a + type(c_ptr), value :: b + type(c_ptr), value :: c + type(c_ptr), value :: s + integer(c_int), value :: batch_count + end function hipblasZrotgBatched + end interface + + ! rotgBatched_64 + interface + function hipblasSrotgBatched_64(handle, a, b, c, s, batch_count) & + bind(c, name='hipblasSrotgBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotgBatched_64 + type(c_ptr), value :: handle + type(c_ptr), value :: a + type(c_ptr), value :: b + type(c_ptr), value :: c + type(c_ptr), value :: s + integer(c_int64_t), value :: batch_count + end function hipblasSrotgBatched_64 + end interface + + interface + function hipblasDrotgBatched_64(handle, a, b, c, s, batch_count) & + bind(c, name='hipblasDrotgBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotgBatched_64 + type(c_ptr), value :: handle + type(c_ptr), value :: a + type(c_ptr), value :: b + type(c_ptr), value :: c + type(c_ptr), value :: s + integer(c_int64_t), value :: batch_count + end function hipblasDrotgBatched_64 + end interface + + interface + function hipblasCrotgBatched_64(handle, a, b, c, s, batch_count) & + bind(c, name='hipblasCrotgBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotgBatched_64 + type(c_ptr), value :: handle + type(c_ptr), value :: a + type(c_ptr), value :: b + type(c_ptr), value :: c + type(c_ptr), value :: s + integer(c_int64_t), value :: batch_count + end function hipblasCrotgBatched_64 + end interface + + interface + function hipblasZrotgBatched_64(handle, a, b, c, s, batch_count) & + bind(c, name='hipblasZrotgBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotgBatched_64 + type(c_ptr), value :: handle + type(c_ptr), value :: a + type(c_ptr), value :: b + type(c_ptr), value :: c + type(c_ptr), value :: s + integer(c_int64_t), value :: batch_count + end function hipblasZrotgBatched_64 + end interface + + ! rotgStridedBatched + interface + function hipblasSrotgStridedBatched(handle, a, stride_a, b, stride_b, c, stride_c, s, stride_s, batch_count) & + bind(c, name='hipblasSrotgStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotgStridedBatched + type(c_ptr), value :: handle + type(c_ptr), value :: a + integer(c_int64_t), value :: stride_a + type(c_ptr), value :: b + integer(c_int64_t), value :: stride_b + type(c_ptr), value :: c + integer(c_int64_t), value :: stride_c + type(c_ptr), value :: s + integer(c_int64_t), value :: stride_s + integer(c_int), value :: batch_count + end function hipblasSrotgStridedBatched + end interface + + interface + function hipblasDrotgStridedBatched(handle, a, stride_a, b, stride_b, c, stride_c, s, stride_s, batch_count) & + bind(c, name='hipblasDrotgStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotgStridedBatched + type(c_ptr), value :: handle + type(c_ptr), value :: a + integer(c_int64_t), value :: stride_a + type(c_ptr), value :: b + integer(c_int64_t), value :: stride_b + type(c_ptr), value :: c + integer(c_int64_t), value :: stride_c + type(c_ptr), value :: s + integer(c_int64_t), value :: stride_s + integer(c_int), value :: batch_count + end function hipblasDrotgStridedBatched + end interface + + interface + function hipblasCrotgStridedBatched(handle, a, stride_a, b, stride_b, c, stride_c, s, stride_s, batch_count) & + bind(c, name='hipblasCrotgStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotgStridedBatched + type(c_ptr), value :: handle + type(c_ptr), value :: a + integer(c_int64_t), value :: stride_a + type(c_ptr), value :: b + integer(c_int64_t), value :: stride_b + type(c_ptr), value :: c + integer(c_int64_t), value :: stride_c + type(c_ptr), value :: s + integer(c_int64_t), value :: stride_s + integer(c_int), value :: batch_count + end function hipblasCrotgStridedBatched + end interface + + interface + function hipblasZrotgStridedBatched(handle, a, stride_a, b, stride_b, c, stride_c, s, stride_s, batch_count) & + bind(c, name='hipblasZrotgStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotgStridedBatched + type(c_ptr), value :: handle + type(c_ptr), value :: a + integer(c_int64_t), value :: stride_a + type(c_ptr), value :: b + integer(c_int64_t), value :: stride_b + type(c_ptr), value :: c + integer(c_int64_t), value :: stride_c + type(c_ptr), value :: s + integer(c_int64_t), value :: stride_s + integer(c_int), value :: batch_count + end function hipblasZrotgStridedBatched + end interface + + ! rotgStridedBatched_64 + interface + function hipblasSrotgStridedBatched_64(handle, a, stride_a, b, stride_b, c, stride_c, s, stride_s, batch_count) & + bind(c, name='hipblasSrotgStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotgStridedBatched_64 + type(c_ptr), value :: handle + type(c_ptr), value :: a + integer(c_int64_t), value :: stride_a + type(c_ptr), value :: b + integer(c_int64_t), value :: stride_b + type(c_ptr), value :: c + integer(c_int64_t), value :: stride_c + type(c_ptr), value :: s + integer(c_int64_t), value :: stride_s + integer(c_int64_t), value :: batch_count + end function hipblasSrotgStridedBatched_64 + end interface + + interface + function hipblasDrotgStridedBatched_64(handle, a, stride_a, b, stride_b, c, stride_c, s, stride_s, batch_count) & + bind(c, name='hipblasDrotgStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotgStridedBatched_64 + type(c_ptr), value :: handle + type(c_ptr), value :: a + integer(c_int64_t), value :: stride_a + type(c_ptr), value :: b + integer(c_int64_t), value :: stride_b + type(c_ptr), value :: c + integer(c_int64_t), value :: stride_c + type(c_ptr), value :: s + integer(c_int64_t), value :: stride_s + integer(c_int64_t), value :: batch_count + end function hipblasDrotgStridedBatched_64 + end interface + + interface + function hipblasCrotgStridedBatched_64(handle, a, stride_a, b, stride_b, c, stride_c, s, stride_s, batch_count) & + bind(c, name='hipblasCrotgStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotgStridedBatched_64 + type(c_ptr), value :: handle + type(c_ptr), value :: a + integer(c_int64_t), value :: stride_a + type(c_ptr), value :: b + integer(c_int64_t), value :: stride_b + type(c_ptr), value :: c + integer(c_int64_t), value :: stride_c + type(c_ptr), value :: s + integer(c_int64_t), value :: stride_s + integer(c_int64_t), value :: batch_count + end function hipblasCrotgStridedBatched_64 + end interface + + interface + function hipblasZrotgStridedBatched_64(handle, a, stride_a, b, stride_b, c, stride_c, s, stride_s, batch_count) & + bind(c, name='hipblasZrotgStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotgStridedBatched_64 + type(c_ptr), value :: handle + type(c_ptr), value :: a + integer(c_int64_t), value :: stride_a + type(c_ptr), value :: b + integer(c_int64_t), value :: stride_b + type(c_ptr), value :: c + integer(c_int64_t), value :: stride_c + type(c_ptr), value :: s + integer(c_int64_t), value :: stride_s + integer(c_int64_t), value :: batch_count + end function hipblasZrotgStridedBatched_64 + end interface + + ! rotm + interface + function hipblasSrotm(handle, n, x, incx, y, incy, param) & + bind(c, name='hipblasSrotm') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotm + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + type(c_ptr), value :: param + end function hipblasSrotm + end interface + + interface + function hipblasDrotm(handle, n, x, incx, y, incy, param) & + bind(c, name='hipblasDrotm') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotm + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + type(c_ptr), value :: param + end function hipblasDrotm + end interface + + ! rotm_64 + interface + function hipblasSrotm_64(handle, n, x, incx, y, incy, param) & + bind(c, name='hipblasSrotm_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotm_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + type(c_ptr), value :: param + end function hipblasSrotm_64 + end interface + + interface + function hipblasDrotm_64(handle, n, x, incx, y, incy, param) & + bind(c, name='hipblasDrotm_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotm_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + type(c_ptr), value :: param + end function hipblasDrotm_64 + end interface + + ! rotmBatched + interface + function hipblasSrotmBatched(handle, n, x, incx, y, incy, param, batch_count) & + bind(c, name='hipblasSrotmBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + type(c_ptr), value :: param + integer(c_int), value :: batch_count + end function hipblasSrotmBatched + end interface + + interface + function hipblasDrotmBatched(handle, n, x, incx, y, incy, param, batch_count) & + bind(c, name='hipblasDrotmBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + type(c_ptr), value :: param + integer(c_int), value :: batch_count + end function hipblasDrotmBatched + end interface + + ! rotmBatched_64 + interface + function hipblasSrotmBatched_64(handle, n, x, incx, y, incy, param, batch_count) & + bind(c, name='hipblasSrotmBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + type(c_ptr), value :: param + integer(c_int64_t), value :: batch_count + end function hipblasSrotmBatched_64 + end interface + + interface + function hipblasDrotmBatched_64(handle, n, x, incx, y, incy, param, batch_count) & + bind(c, name='hipblasDrotmBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + type(c_ptr), value :: param + integer(c_int64_t), value :: batch_count + end function hipblasDrotmBatched_64 + end interface + + ! rotmStridedBatched + interface + function hipblasSrotmStridedBatched(handle, n, x, incx, stride_x, y, incy, stride_y, param, stride_param, batch_count) & + bind(c, name='hipblasSrotmStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmStridedBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int64_t), value :: stride_y + type(c_ptr), value :: param + integer(c_int64_t), value :: stride_param + integer(c_int), value :: batch_count + end function hipblasSrotmStridedBatched + end interface + + interface + function hipblasDrotmStridedBatched(handle, n, x, incx, stride_x, y, incy, stride_y, param, stride_param, batch_count) & + bind(c, name='hipblasDrotmStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmStridedBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int64_t), value :: stride_y + type(c_ptr), value :: param + integer(c_int64_t), value :: stride_param + integer(c_int), value :: batch_count + end function hipblasDrotmStridedBatched + end interface + + ! rotmStridedBatched_64 + interface + function hipblasSrotmStridedBatched_64(handle, n, x, incx, stride_x, y, incy, stride_y, param, stride_param, batch_count) & + bind(c, name='hipblasSrotmStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmStridedBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: stride_y + type(c_ptr), value :: param + integer(c_int64_t), value :: stride_param + integer(c_int64_t), value :: batch_count + end function hipblasSrotmStridedBatched_64 + end interface + + interface + function hipblasDrotmStridedBatched_64(handle, n, x, incx, stride_x, y, incy, stride_y, param, stride_param, batch_count) & + bind(c, name='hipblasDrotmStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmStridedBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: stride_y + type(c_ptr), value :: param + integer(c_int64_t), value :: stride_param + integer(c_int64_t), value :: batch_count + end function hipblasDrotmStridedBatched_64 + end interface + + ! rotmg + interface + function hipblasSrotmg(handle, d1, d2, x1, y1, param) & + bind(c, name='hipblasSrotmg') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmg + type(c_ptr), value :: handle + type(c_ptr), value :: d1 + type(c_ptr), value :: d2 + type(c_ptr), value :: x1 + type(c_ptr), value :: y1 + type(c_ptr), value :: param + end function hipblasSrotmg + end interface + + interface + function hipblasDrotmg(handle, d1, d2, x1, y1, param) & + bind(c, name='hipblasDrotmg') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmg + type(c_ptr), value :: handle + type(c_ptr), value :: d1 + type(c_ptr), value :: d2 + type(c_ptr), value :: x1 + type(c_ptr), value :: y1 + type(c_ptr), value :: param + end function hipblasDrotmg + end interface + + ! rotmg_64 + interface + function hipblasSrotmg_64(handle, d1, d2, x1, y1, param) & + bind(c, name='hipblasSrotmg_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmg_64 + type(c_ptr), value :: handle + type(c_ptr), value :: d1 + type(c_ptr), value :: d2 + type(c_ptr), value :: x1 + type(c_ptr), value :: y1 + type(c_ptr), value :: param + end function hipblasSrotmg_64 + end interface + + interface + function hipblasDrotmg_64(handle, d1, d2, x1, y1, param) & + bind(c, name='hipblasDrotmg_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmg_64 + type(c_ptr), value :: handle + type(c_ptr), value :: d1 + type(c_ptr), value :: d2 + type(c_ptr), value :: x1 + type(c_ptr), value :: y1 + type(c_ptr), value :: param + end function hipblasDrotmg_64 + end interface + + ! rotmgBatched + interface + function hipblasSrotmgBatched(handle, d1, d2, x1, y1, param, batch_count) & + bind(c, name='hipblasSrotmgBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmgBatched + type(c_ptr), value :: handle + type(c_ptr), value :: d1 + type(c_ptr), value :: d2 + type(c_ptr), value :: x1 + type(c_ptr), value :: y1 + type(c_ptr), value :: param + integer(c_int), value :: batch_count + end function hipblasSrotmgBatched + end interface + + interface + function hipblasDrotmgBatched(handle, d1, d2, x1, y1, param, batch_count) & + bind(c, name='hipblasDrotmgBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmgBatched + type(c_ptr), value :: handle + type(c_ptr), value :: d1 + type(c_ptr), value :: d2 + type(c_ptr), value :: x1 + type(c_ptr), value :: y1 + type(c_ptr), value :: param + integer(c_int), value :: batch_count + end function hipblasDrotmgBatched + end interface + + ! rotmgBatched_64 + interface + function hipblasSrotmgBatched_64(handle, d1, d2, x1, y1, param, batch_count) & + bind(c, name='hipblasSrotmgBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmgBatched_64 + type(c_ptr), value :: handle + type(c_ptr), value :: d1 + type(c_ptr), value :: d2 + type(c_ptr), value :: x1 + type(c_ptr), value :: y1 + type(c_ptr), value :: param + integer(c_int64_t), value :: batch_count + end function hipblasSrotmgBatched_64 + end interface + + interface + function hipblasDrotmgBatched_64(handle, d1, d2, x1, y1, param, batch_count) & + bind(c, name='hipblasDrotmgBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmgBatched_64 + type(c_ptr), value :: handle + type(c_ptr), value :: d1 + type(c_ptr), value :: d2 + type(c_ptr), value :: x1 + type(c_ptr), value :: y1 + type(c_ptr), value :: param + integer(c_int64_t), value :: batch_count + end function hipblasDrotmgBatched_64 + end interface + + ! rotmgStridedBatched + interface + function hipblasSrotmgStridedBatched(handle, d1, stride_d1, d2, stride_d2, x1, stride_x1, & + y1, stride_y1, param, stride_param, batch_count) & + bind(c, name='hipblasSrotmgStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmgStridedBatched + type(c_ptr), value :: handle + type(c_ptr), value :: d1 + integer(c_int64_t), value :: stride_d1 + type(c_ptr), value :: d2 + integer(c_int64_t), value :: stride_d2 + type(c_ptr), value :: x1 + integer(c_int64_t), value :: stride_x1 + type(c_ptr), value :: y1 + integer(c_int64_t), value :: stride_y1 + type(c_ptr), value :: param + integer(c_int64_t), value :: stride_param + integer(c_int), value :: batch_count + end function hipblasSrotmgStridedBatched + end interface + + interface + function hipblasDrotmgStridedBatched(handle, d1, stride_d1, d2, stride_d2, x1, stride_x1, & + y1, stride_y1, param, stride_param, batch_count) & + bind(c, name='hipblasDrotmgStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmgStridedBatched + type(c_ptr), value :: handle + type(c_ptr), value :: d1 + integer(c_int64_t), value :: stride_d1 + type(c_ptr), value :: d2 + integer(c_int64_t), value :: stride_d2 + type(c_ptr), value :: x1 + integer(c_int64_t), value :: stride_x1 + type(c_ptr), value :: y1 + integer(c_int64_t), value :: stride_y1 + type(c_ptr), value :: param + integer(c_int64_t), value :: stride_param + integer(c_int), value :: batch_count + end function hipblasDrotmgStridedBatched + end interface + + ! rotmgStridedBatched_64 + interface + function hipblasSrotmgStridedBatched_64(handle, d1, stride_d1, d2, stride_d2, x1, stride_x1, & + y1, stride_y1, param, stride_param, batch_count) & + bind(c, name='hipblasSrotmgStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmgStridedBatched_64 + type(c_ptr), value :: handle + type(c_ptr), value :: d1 + integer(c_int64_t), value :: stride_d1 + type(c_ptr), value :: d2 + integer(c_int64_t), value :: stride_d2 + type(c_ptr), value :: x1 + integer(c_int64_t), value :: stride_x1 + type(c_ptr), value :: y1 + integer(c_int64_t), value :: stride_y1 + type(c_ptr), value :: param + integer(c_int64_t), value :: stride_param + integer(c_int64_t), value :: batch_count + end function hipblasSrotmgStridedBatched_64 + end interface + + interface + function hipblasDrotmgStridedBatched_64(handle, d1, stride_d1, d2, stride_d2, x1, stride_x1, & + y1, stride_y1, param, stride_param, batch_count) & + bind(c, name='hipblasDrotmgStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmgStridedBatched_64 + type(c_ptr), value :: handle + type(c_ptr), value :: d1 + integer(c_int64_t), value :: stride_d1 + type(c_ptr), value :: d2 + integer(c_int64_t), value :: stride_d2 + type(c_ptr), value :: x1 + integer(c_int64_t), value :: stride_x1 + type(c_ptr), value :: y1 + integer(c_int64_t), value :: stride_y1 + type(c_ptr), value :: param + integer(c_int64_t), value :: stride_param + integer(c_int64_t), value :: batch_count + end function hipblasDrotmgStridedBatched_64 + end interface + + !--------! + ! blas 2 ! + !--------! + + ! gbmv + interface + function hipblasSgbmv(handle, trans, m, n, kl, ku, alpha, A, lda, x, incx, beta, y, incy) & + bind(c, name='hipblasSgbmv') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmv + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: trans + integer(c_int), value :: m + integer(c_int), value :: n + integer(c_int), value :: kl + integer(c_int), value :: ku + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int), value :: incy + end function hipblasSgbmv + end interface + + interface + function hipblasDgbmv(handle, trans, m, n, kl, ku, alpha, A, lda, x, incx, beta, y, incy) & + bind(c, name='hipblasDgbmv') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmv + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: trans + integer(c_int), value :: m + integer(c_int), value :: n + integer(c_int), value :: kl + integer(c_int), value :: ku + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int), value :: incy + end function hipblasDgbmv + end interface + + interface + function hipblasCgbmv(handle, trans, m, n, kl, ku, alpha, A, lda, x, incx, beta, y, incy) & + bind(c, name='hipblasCgbmv') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmv + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: trans + integer(c_int), value :: m + integer(c_int), value :: n + integer(c_int), value :: kl + integer(c_int), value :: ku + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int), value :: incy + end function hipblasCgbmv + end interface + + interface + function hipblasZgbmv(handle, trans, m, n, kl, ku, alpha, A, lda, x, incx, beta, y, incy) & + bind(c, name='hipblasZgbmv') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmv + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: trans + integer(c_int), value :: m + integer(c_int), value :: n + integer(c_int), value :: kl + integer(c_int), value :: ku + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int), value :: incy + end function hipblasZgbmv + end interface + + ! gbmv_64 + interface + function hipblasSgbmv_64(handle, trans, m, n, kl, ku, alpha, A, lda, x, incx, beta, y, incy) & + bind(c, name='hipblasSgbmv_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmv_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: trans + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + integer(c_int64_t), value :: kl + integer(c_int64_t), value :: ku + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + end function hipblasSgbmv_64 + end interface + + interface + function hipblasDgbmv_64(handle, trans, m, n, kl, ku, alpha, A, lda, x, incx, beta, y, incy) & + bind(c, name='hipblasDgbmv_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmv_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: trans + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + integer(c_int64_t), value :: kl + integer(c_int64_t), value :: ku + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + end function hipblasDgbmv_64 + end interface + + interface + function hipblasCgbmv_64(handle, trans, m, n, kl, ku, alpha, A, lda, x, incx, beta, y, incy) & + bind(c, name='hipblasCgbmv_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmv_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: trans + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + integer(c_int64_t), value :: kl + integer(c_int64_t), value :: ku + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + end function hipblasCgbmv_64 + end interface + + interface + function hipblasZgbmv_64(handle, trans, m, n, kl, ku, alpha, A, lda, x, incx, beta, y, incy) & + bind(c, name='hipblasZgbmv_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmv_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: trans + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + integer(c_int64_t), value :: kl + integer(c_int64_t), value :: ku + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + end function hipblasZgbmv_64 + end interface + + ! gbmvBatched + interface + function hipblasSgbmvBatched(handle, trans, m, n, kl, ku, alpha, A, lda, & + x, incx, beta, y, incy, batch_count) & + bind(c, name='hipblasSgbmvBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmvBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: trans + integer(c_int), value :: m + integer(c_int), value :: n + integer(c_int), value :: kl + integer(c_int), value :: ku + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int), value :: batch_count + end function hipblasSgbmvBatched + end interface + + interface + function hipblasDgbmvBatched(handle, trans, m, n, kl, ku, alpha, A, lda, & + x, incx, beta, y, incy, batch_count) & + bind(c, name='hipblasDgbmvBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmvBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: trans + integer(c_int), value :: m + integer(c_int), value :: n + integer(c_int), value :: kl + integer(c_int), value :: ku + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int), value :: batch_count + end function hipblasDgbmvBatched + end interface + + interface + function hipblasCgbmvBatched(handle, trans, m, n, kl, ku, alpha, A, lda, & + x, incx, beta, y, incy, batch_count) & + bind(c, name='hipblasCgbmvBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmvBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: trans + integer(c_int), value :: m + integer(c_int), value :: n + integer(c_int), value :: kl + integer(c_int), value :: ku + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int), value :: batch_count + end function hipblasCgbmvBatched + end interface + + interface + function hipblasZgbmvBatched(handle, trans, m, n, kl, ku, alpha, A, lda, & + x, incx, beta, y, incy, batch_count) & + bind(c, name='hipblasZgbmvBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmvBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: trans + integer(c_int), value :: m + integer(c_int), value :: n + integer(c_int), value :: kl + integer(c_int), value :: ku + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int), value :: batch_count + end function hipblasZgbmvBatched + end interface + + ! gbmvBatched_64 + interface + function hipblasSgbmvBatched_64(handle, trans, m, n, kl, ku, alpha, A, lda, & + x, incx, beta, y, incy, batch_count) & + bind(c, name='hipblasSgbmvBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmvBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: trans + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + integer(c_int64_t), value :: kl + integer(c_int64_t), value :: ku + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: batch_count + end function hipblasSgbmvBatched_64 + end interface + + interface + function hipblasDgbmvBatched_64(handle, trans, m, n, kl, ku, alpha, A, lda, & + x, incx, beta, y, incy, batch_count) & + bind(c, name='hipblasDgbmvBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmvBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: trans + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + integer(c_int64_t), value :: kl + integer(c_int64_t), value :: ku + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: batch_count + end function hipblasDgbmvBatched_64 + end interface + + interface + function hipblasCgbmvBatched_64(handle, trans, m, n, kl, ku, alpha, A, lda, & + x, incx, beta, y, incy, batch_count) & + bind(c, name='hipblasCgbmvBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmvBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: trans + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + integer(c_int64_t), value :: kl + integer(c_int64_t), value :: ku + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: batch_count + end function hipblasCgbmvBatched_64 + end interface + + interface + function hipblasZgbmvBatched_64(handle, trans, m, n, kl, ku, alpha, A, lda, & + x, incx, beta, y, incy, batch_count) & + bind(c, name='hipblasZgbmvBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmvBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: trans + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + integer(c_int64_t), value :: kl + integer(c_int64_t), value :: ku + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: batch_count + end function hipblasZgbmvBatched_64 + end interface + + ! gbmvStridedBatched + interface + function hipblasSgbmvStridedBatched(handle, trans, m, n, kl, ku, alpha, A, lda, stride_A, & + x, incx, stride_x, beta, y, incy, stride_y, batch_count) & + bind(c, name='hipblasSgbmvStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmvStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: trans + integer(c_int), value :: m + integer(c_int), value :: n + integer(c_int), value :: kl + integer(c_int), value :: ku + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int), value :: batch_count + end function hipblasSgbmvStridedBatched + end interface + + interface + function hipblasDgbmvStridedBatched(handle, trans, m, n, kl, ku, alpha, A, lda, stride_A, & + x, incx, stride_x, beta, y, incy, stride_y, batch_count) & + bind(c, name='hipblasDgbmvStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmvStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: trans + integer(c_int), value :: m + integer(c_int), value :: n + integer(c_int), value :: kl + integer(c_int), value :: ku + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int), value :: batch_count + end function hipblasDgbmvStridedBatched + end interface + + interface + function hipblasCgbmvStridedBatched(handle, trans, m, n, kl, ku, alpha, A, lda, stride_A, & + x, incx, stride_x, beta, y, incy, stride_y, batch_count) & + bind(c, name='hipblasCgbmvStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmvStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: trans + integer(c_int), value :: m + integer(c_int), value :: n + integer(c_int), value :: kl + integer(c_int), value :: ku + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int), value :: batch_count + end function hipblasCgbmvStridedBatched + end interface + + interface + function hipblasZgbmvStridedBatched(handle, trans, m, n, kl, ku, alpha, A, lda, stride_A, & + x, incx, stride_x, beta, y, incy, stride_y, batch_count) & + bind(c, name='hipblasZgbmvStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmvStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: trans + integer(c_int), value :: m + integer(c_int), value :: n + integer(c_int), value :: kl + integer(c_int), value :: ku + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int), value :: batch_count + end function hipblasZgbmvStridedBatched + end interface + + ! gbmvStridedBatched_64 + interface + function hipblasSgbmvStridedBatched_64(handle, trans, m, n, kl, ku, alpha, A, lda, stride_A, & + x, incx, stride_x, beta, y, incy, stride_y, batch_count) & + bind(c, name='hipblasSgbmvStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmvStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: trans + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + integer(c_int64_t), value :: kl + integer(c_int64_t), value :: ku + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int64_t), value :: batch_count + end function hipblasSgbmvStridedBatched_64 + end interface + + interface + function hipblasDgbmvStridedBatched_64(handle, trans, m, n, kl, ku, alpha, A, lda, stride_A, & + x, incx, stride_x, beta, y, incy, stride_y, batch_count) & + bind(c, name='hipblasDgbmvStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmvStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: trans + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + integer(c_int64_t), value :: kl + integer(c_int64_t), value :: ku + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int64_t), value :: batch_count + end function hipblasDgbmvStridedBatched_64 + end interface + + interface + function hipblasCgbmvStridedBatched_64(handle, trans, m, n, kl, ku, alpha, A, lda, stride_A, & + x, incx, stride_x, beta, y, incy, stride_y, batch_count) & + bind(c, name='hipblasCgbmvStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmvStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: trans + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + integer(c_int64_t), value :: kl + integer(c_int64_t), value :: ku + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int64_t), value :: batch_count + end function hipblasCgbmvStridedBatched_64 + end interface + + interface + function hipblasZgbmvStridedBatched_64(handle, trans, m, n, kl, ku, alpha, A, lda, stride_A, & + x, incx, stride_x, beta, y, incy, stride_y, batch_count) & + bind(c, name='hipblasZgbmvStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmvStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: trans + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + integer(c_int64_t), value :: kl + integer(c_int64_t), value :: ku + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int64_t), value :: batch_count + end function hipblasZgbmvStridedBatched_64 + end interface + + ! gemv + interface + function hipblasSgemv(handle, trans, m, n, alpha, A, lda, & + x, incx, beta, y, incy) & + bind(c, name='hipblasSgemv') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemv + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: trans + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int), value :: incy + end function hipblasSgemv + end interface + + interface + function hipblasDgemv(handle, trans, m, n, alpha, A, lda, & + x, incx, beta, y, incy) & + bind(c, name='hipblasDgemv') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemv + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: trans + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int), value :: incy + end function hipblasDgemv + end interface + + interface + function hipblasCgemv(handle, trans, m, n, alpha, A, lda, & + x, incx, beta, y, incy) & + bind(c, name='hipblasCgemv') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemv + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: trans + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int), value :: incy + end function hipblasCgemv + end interface + + interface + function hipblasZgemv(handle, trans, m, n, alpha, A, lda, & + x, incx, beta, y, incy) & + bind(c, name='hipblasZgemv') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemv + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: trans + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int), value :: incy + end function hipblasZgemv + end interface + + ! gemv_64 + interface + function hipblasSgemv_64(handle, trans, m, n, alpha, A, lda, & + x, incx, beta, y, incy) & + bind(c, name='hipblasSgemv_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemv_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: trans + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + end function hipblasSgemv_64 + end interface + + interface + function hipblasDgemv_64(handle, trans, m, n, alpha, A, lda, & + x, incx, beta, y, incy) & + bind(c, name='hipblasDgemv_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemv_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: trans + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + end function hipblasDgemv_64 + end interface + + interface + function hipblasCgemv_64(handle, trans, m, n, alpha, A, lda, & + x, incx, beta, y, incy) & + bind(c, name='hipblasCgemv_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemv_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: trans + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + end function hipblasCgemv_64 + end interface + + interface + function hipblasZgemv_64(handle, trans, m, n, alpha, A, lda, & + x, incx, beta, y, incy) & + bind(c, name='hipblasZgemv_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemv_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: trans + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + end function hipblasZgemv_64 + end interface + + ! gemvBatched + interface + function hipblasSgemvBatched(handle, trans, m, n, alpha, A, lda, & + x, incx, beta, y, incy, batch_count) & + bind(c, name='hipblasSgemvBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemvBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: trans + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int), value :: batch_count + end function hipblasSgemvBatched + end interface + + interface + function hipblasDgemvBatched(handle, trans, m, n, alpha, A, lda, & + x, incx, beta, y, incy, batch_count) & + bind(c, name='hipblasDgemvBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemvBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: trans + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int), value :: batch_count + end function hipblasDgemvBatched + end interface + + interface + function hipblasCgemvBatched(handle, trans, m, n, alpha, A, lda, & + x, incx, beta, y, incy, batch_count) & + bind(c, name='hipblasCgemvBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemvBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: trans + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int), value :: batch_count + end function hipblasCgemvBatched + end interface + + interface + function hipblasZgemvBatched(handle, trans, m, n, alpha, A, lda, & + x, incx, beta, y, incy, batch_count) & + bind(c, name='hipblasZgemvBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemvBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: trans + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int), value :: batch_count + end function hipblasZgemvBatched + end interface + + ! gemvBatched_64 + interface + function hipblasSgemvBatched_64(handle, trans, m, n, alpha, A, lda, & + x, incx, beta, y, incy, batch_count) & + bind(c, name='hipblasSgemvBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemvBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: trans + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: batch_count + end function hipblasSgemvBatched_64 + end interface + + interface + function hipblasDgemvBatched_64(handle, trans, m, n, alpha, A, lda, & + x, incx, beta, y, incy, batch_count) & + bind(c, name='hipblasDgemvBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemvBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: trans + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: batch_count + end function hipblasDgemvBatched_64 + end interface + + interface + function hipblasCgemvBatched_64(handle, trans, m, n, alpha, A, lda, & + x, incx, beta, y, incy, batch_count) & + bind(c, name='hipblasCgemvBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemvBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: trans + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: batch_count + end function hipblasCgemvBatched_64 + end interface + + interface + function hipblasZgemvBatched_64(handle, trans, m, n, alpha, A, lda, & + x, incx, beta, y, incy, batch_count) & + bind(c, name='hipblasZgemvBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemvBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: trans + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: batch_count + end function hipblasZgemvBatched_64 + end interface + + ! gemvStridedBatched + interface + function hipblasSgemvStridedBatched(handle, trans, m, n, alpha, A, lda, stride_A, & + x, incx, stride_x, beta, y, incy, stride_y, batch_count) & + bind(c, name='hipblasSgemvStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemvStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: trans + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int), value :: batch_count + end function hipblasSgemvStridedBatched + end interface + + interface + function hipblasDgemvStridedBatched(handle, trans, m, n, alpha, A, lda, stride_A, & + x, incx, stride_x, beta, y, incy, stride_y, batch_count) & + bind(c, name='hipblasDgemvStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemvStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: trans + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int), value :: batch_count + end function hipblasDgemvStridedBatched + end interface + + interface + function hipblasCgemvStridedBatched(handle, trans, m, n, alpha, A, lda, stride_A, & + x, incx, stride_x, beta, y, incy, stride_y, batch_count) & + bind(c, name='hipblasCgemvStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemvStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: trans + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int), value :: batch_count + end function hipblasCgemvStridedBatched + end interface + + interface + function hipblasZgemvStridedBatched(handle, trans, m, n, alpha, A, lda, stride_A, & + x, incx, stride_x, beta, y, incy, stride_y, batch_count) & + bind(c, name='hipblasZgemvStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemvStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: trans + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int), value :: batch_count + end function hipblasZgemvStridedBatched + end interface + + ! gemvStridedBatched_64 + interface + function hipblasSgemvStridedBatched_64(handle, trans, m, n, alpha, A, lda, stride_A, & + x, incx, stride_x, beta, y, incy, stride_y, batch_count) & + bind(c, name='hipblasSgemvStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemvStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: trans + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int64_t), value :: batch_count + end function hipblasSgemvStridedBatched_64 + end interface + + interface + function hipblasDgemvStridedBatched_64(handle, trans, m, n, alpha, A, lda, stride_A, & + x, incx, stride_x, beta, y, incy, stride_y, batch_count) & + bind(c, name='hipblasDgemvStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemvStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: trans + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int64_t), value :: batch_count + end function hipblasDgemvStridedBatched_64 + end interface + + interface + function hipblasCgemvStridedBatched_64(handle, trans, m, n, alpha, A, lda, stride_A, & + x, incx, stride_x, beta, y, incy, stride_y, batch_count) & + bind(c, name='hipblasCgemvStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemvStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: trans + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int64_t), value :: batch_count + end function hipblasCgemvStridedBatched_64 + end interface + + interface + function hipblasZgemvStridedBatched_64(handle, trans, m, n, alpha, A, lda, stride_A, & + x, incx, stride_x, beta, y, incy, stride_y, batch_count) & + bind(c, name='hipblasZgemvStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemvStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: trans + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int64_t), value :: batch_count + end function hipblasZgemvStridedBatched_64 + end interface + + ! hbmv + interface + function hipblasChbmv(handle, uplo, n, k, alpha, A, lda, & + x, incx, beta, y, incy) & + bind(c, name='hipblasChbmv') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmv + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int), value :: incy + end function hipblasChbmv + end interface + + interface + function hipblasZhbmv(handle, uplo, n, k, alpha, A, lda, & + x, incx, beta, y, incy) & + bind(c, name='hipblasZhbmv') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmv + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int), value :: incy + end function hipblasZhbmv + end interface + + ! hbmvBatched + interface + function hipblasChbmvBatched(handle, uplo, n, k, alpha, A, lda, & + x, incx, beta, y, incy, batch_count) & + bind(c, name='hipblasChbmvBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmvBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int), value :: batch_count + end function hipblasChbmvBatched + end interface + + interface + function hipblasZhbmvBatched(handle, uplo, n, k, alpha, A, lda, & + x, incx, beta, y, incy, batch_count) & + bind(c, name='hipblasZhbmvBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmvBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int), value :: batch_count + end function hipblasZhbmvBatched + end interface + + ! hbmvStridedBatched + interface + function hipblasChbmvStridedBatched(handle, uplo, n, k, alpha, A, lda, stride_A, & + x, incx, stride_x, beta, y, incy, stride_y, batch_count) & + bind(c, name='hipblasChbmvStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmvStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int), value :: batch_count + end function hipblasChbmvStridedBatched + end interface + + interface + function hipblasZhbmvStridedBatched(handle, uplo, n, k, alpha, A, lda, stride_A, & + x, incx, stride_x, beta, y, incy, stride_y, batch_count) & + bind(c, name='hipblasZhbmvStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmvStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int), value :: batch_count + end function hipblasZhbmvStridedBatched + end interface + + ! hbmv_64 + interface + function hipblasChbmv_64(handle, uplo, n, k, alpha, A, lda, & + x, incx, beta, y, incy) & + bind(c, name='hipblasChbmv_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmv_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + end function hipblasChbmv_64 + end interface + + interface + function hipblasZhbmv_64(handle, uplo, n, k, alpha, A, lda, & + x, incx, beta, y, incy) & + bind(c, name='hipblasZhbmv_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmv_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + end function hipblasZhbmv_64 + end interface + + ! hbmvBatched_64 + interface + function hipblasChbmvBatched_64(handle, uplo, n, k, alpha, A, lda, & + x, incx, beta, y, incy, batch_count) & + bind(c, name='hipblasChbmvBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmvBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: batch_count + end function hipblasChbmvBatched_64 + end interface + + interface + function hipblasZhbmvBatched_64(handle, uplo, n, k, alpha, A, lda, & + x, incx, beta, y, incy, batch_count) & + bind(c, name='hipblasZhbmvBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmvBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: batch_count + end function hipblasZhbmvBatched_64 + end interface + + ! hbmvStridedBatched_64 + interface + function hipblasChbmvStridedBatched_64(handle, uplo, n, k, alpha, A, lda, stride_A, & + x, incx, stride_x, beta, y, incy, stride_y, batch_count) & + bind(c, name='hipblasChbmvStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmvStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int64_t), value :: batch_count + end function hipblasChbmvStridedBatched_64 + end interface + + interface + function hipblasZhbmvStridedBatched_64(handle, uplo, n, k, alpha, A, lda, stride_A, & + x, incx, stride_x, beta, y, incy, stride_y, batch_count) & + bind(c, name='hipblasZhbmvStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmvStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int64_t), value :: batch_count + end function hipblasZhbmvStridedBatched_64 + end interface + + ! hemv + interface + function hipblasChemv(handle, uplo, n, alpha, A, lda, & + x, incx, beta, y, incy) & + bind(c, name='hipblasChemv') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemv + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int), value :: incy + end function hipblasChemv + end interface + + interface + function hipblasZhemv(handle, uplo, n, alpha, A, lda, & + x, incx, beta, y, incy) & + bind(c, name='hipblasZhemv') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemv + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int), value :: incy + end function hipblasZhemv + end interface + + ! hemvBatched + interface + function hipblasChemvBatched(handle, uplo, n, alpha, A, lda, & + x, incx, beta, y, incy, batch_count) & + bind(c, name='hipblasChemvBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemvBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int), value :: batch_count + end function hipblasChemvBatched + end interface + + interface + function hipblasZhemvBatched(handle, uplo, n, alpha, A, lda, & + x, incx, beta, y, incy, batch_count) & + bind(c, name='hipblasZhemvBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemvBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int), value :: batch_count + end function hipblasZhemvBatched + end interface + + ! hemvStridedBatched + interface + function hipblasChemvStridedBatched(handle, uplo, n, alpha, A, lda, stride_A, & + x, incx, stride_x, beta, y, incy, stride_y, batch_count) & + bind(c, name='hipblasChemvStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemvStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int), value :: batch_count + end function hipblasChemvStridedBatched + end interface + + interface + function hipblasZhemvStridedBatched(handle, uplo, n, alpha, A, lda, stride_A, & + x, incx, stride_x, beta, y, incy, stride_y, batch_count) & + bind(c, name='hipblasZhemvStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemvStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int), value :: batch_count + end function hipblasZhemvStridedBatched + end interface + + ! hemv_64 + interface + function hipblasChemv_64(handle, uplo, n, alpha, A, lda, & + x, incx, beta, y, incy) & + bind(c, name='hipblasChemv_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemv_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + end function hipblasChemv_64 + end interface + + interface + function hipblasZhemv_64(handle, uplo, n, alpha, A, lda, & + x, incx, beta, y, incy) & + bind(c, name='hipblasZhemv_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemv_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + end function hipblasZhemv_64 + end interface + + ! hemvBatched + interface + function hipblasChemvBatched_64(handle, uplo, n, alpha, A, lda, & + x, incx, beta, y, incy, batch_count) & + bind(c, name='hipblasChemvBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemvBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: batch_count + end function hipblasChemvBatched_64 + end interface + + interface + function hipblasZhemvBatched_64(handle, uplo, n, alpha, A, lda, & + x, incx, beta, y, incy, batch_count) & + bind(c, name='hipblasZhemvBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemvBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: batch_count + end function hipblasZhemvBatched_64 + end interface + + ! hemvStridedBatched_64 + interface + function hipblasChemvStridedBatched_64(handle, uplo, n, alpha, A, lda, stride_A, & + x, incx, stride_x, beta, y, incy, stride_y, batch_count) & + bind(c, name='hipblasChemvStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemvStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int64_t), value :: batch_count + end function hipblasChemvStridedBatched_64 + end interface + + interface + function hipblasZhemvStridedBatched_64(handle, uplo, n, alpha, A, lda, stride_A, & + x, incx, stride_x, beta, y, incy, stride_y, batch_count) & + bind(c, name='hipblasZhemvStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemvStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int64_t), value :: batch_count + end function hipblasZhemvStridedBatched_64 + end interface + + ! her + interface + function hipblasCher(handle, uplo, n, alpha, & + x, incx, A, lda) & + bind(c, name='hipblasCher') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: A + integer(c_int), value :: lda + end function hipblasCher + end interface + + interface + function hipblasZher(handle, uplo, n, alpha, & + x, incx, A, lda) & + bind(c, name='hipblasZher') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: A + integer(c_int), value :: lda + end function hipblasZher + end interface + + ! her_64 + interface + function hipblasCher_64(handle, uplo, n, alpha, & + x, incx, A, lda) & + bind(c, name='hipblasCher_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + end function hipblasCher_64 + end interface + + interface + function hipblasZher_64(handle, uplo, n, alpha, & + x, incx, A, lda) & + bind(c, name='hipblasZher_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + end function hipblasZher_64 + end interface + + ! herBatched + interface + function hipblasCherBatched(handle, uplo, n, alpha, & + x, incx, A, lda, batch_count) & + bind(c, name='hipblasCherBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int), value :: batch_count + end function hipblasCherBatched + end interface + + interface + function hipblasZherBatched(handle, uplo, n, alpha, & + x, incx, A, lda, batch_count) & + bind(c, name='hipblasZherBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int), value :: batch_count + end function hipblasZherBatched + end interface + + ! herBatched_64 + interface + function hipblasCherBatched_64(handle, uplo, n, alpha, & + x, incx, A, lda, batch_count) & + bind(c, name='hipblasCherBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: batch_count + end function hipblasCherBatched_64 + end interface + + interface + function hipblasZherBatched_64(handle, uplo, n, alpha, & + x, incx, A, lda, batch_count) & + bind(c, name='hipblasZherBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: batch_count + end function hipblasZherBatched_64 + end interface + + ! herStridedBatched + interface + function hipblasCherStridedBatched(handle, uplo, n, alpha, & + x, incx, stride_x, A, lda, stride_A, batch_count) & + bind(c, name='hipblasCherStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + integer(c_int), value :: batch_count + end function hipblasCherStridedBatched + end interface + + interface + function hipblasZherStridedBatched(handle, uplo, n, alpha, & + x, incx, stride_x, A, lda, stride_A, batch_count) & + bind(c, name='hipblasZherStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + integer(c_int), value :: batch_count + end function hipblasZherStridedBatched + end interface + + ! herStridedBatched_64 + interface + function hipblasCherStridedBatched_64(handle, uplo, n, alpha, & + x, incx, stride_x, A, lda, stride_A, batch_count) & + bind(c, name='hipblasCherStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + integer(c_int64_t), value :: batch_count + end function hipblasCherStridedBatched_64 + end interface + + interface + function hipblasZherStridedBatched_64(handle, uplo, n, alpha, & + x, incx, stride_x, A, lda, stride_A, batch_count) & + bind(c, name='hipblasZherStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + integer(c_int64_t), value :: batch_count + end function hipblasZherStridedBatched_64 + end interface + + ! her2 + interface + function hipblasCher2(handle, uplo, n, alpha, & + x, incx, y, incy, A, lda) & + bind(c, name='hipblasCher2') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + type(c_ptr), value :: A + integer(c_int), value :: lda + end function hipblasCher2 + end interface + + interface + function hipblasZher2(handle, uplo, n, alpha, & + x, incx, y, incy, A, lda) & + bind(c, name='hipblasZher2') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + type(c_ptr), value :: A + integer(c_int), value :: lda + end function hipblasZher2 + end interface + + ! her2_64 + interface + function hipblasCher2_64(handle, uplo, n, alpha, & + x, incx, y, incy, A, lda) & + bind(c, name='hipblasCher2_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + end function hipblasCher2_64 + end interface + + interface + function hipblasZher2_64(handle, uplo, n, alpha, & + x, incx, y, incy, A, lda) & + bind(c, name='hipblasZher2_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + end function hipblasZher2_64 + end interface + + ! her2Batched + interface + function hipblasCher2Batched(handle, uplo, n, alpha, & + x, incx, y, incy, A, lda, batch_count) & + bind(c, name='hipblasCher2Batched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2Batched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int), value :: batch_count + end function hipblasCher2Batched + end interface + + interface + function hipblasZher2Batched(handle, uplo, n, alpha, & + x, incx, y, incy, A, lda, batch_count) & + bind(c, name='hipblasZher2Batched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2Batched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int), value :: batch_count + end function hipblasZher2Batched + end interface + + ! her2Batched_64 + interface + function hipblasCher2Batched_64(handle, uplo, n, alpha, & + x, incx, y, incy, A, lda, batch_count) & + bind(c, name='hipblasCher2Batched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2Batched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: batch_count + end function hipblasCher2Batched_64 + end interface + + interface + function hipblasZher2Batched_64(handle, uplo, n, alpha, & + x, incx, y, incy, A, lda, batch_count) & + bind(c, name='hipblasZher2Batched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2Batched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: batch_count + end function hipblasZher2Batched_64 + end interface + + ! her2StridedBatched + interface + function hipblasCher2StridedBatched(handle, uplo, n, alpha, & + x, incx, stride_x, y, incy, stride_y, A, lda, stride_A, batch_count) & + bind(c, name='hipblasCher2StridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2StridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int64_t), value :: stride_y + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + integer(c_int), value :: batch_count + end function hipblasCher2StridedBatched + end interface + + interface + function hipblasZher2StridedBatched(handle, uplo, n, alpha, & + x, incx, stride_x, y, incy, stride_y, A, lda, stride_A, batch_count) & + bind(c, name='hipblasZher2StridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2StridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int64_t), value :: stride_y + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + integer(c_int), value :: batch_count + end function hipblasZher2StridedBatched + end interface + + ! her2StridedBatched_64 + interface + function hipblasCher2StridedBatched_64(handle, uplo, n, alpha, & + x, incx, stride_x, y, incy, stride_y, A, lda, stride_A, batch_count) & + bind(c, name='hipblasCher2StridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2StridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: stride_y + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + integer(c_int64_t), value :: batch_count + end function hipblasCher2StridedBatched_64 + end interface + + interface + function hipblasZher2StridedBatched_64(handle, uplo, n, alpha, & + x, incx, stride_x, y, incy, stride_y, A, lda, stride_A, batch_count) & + bind(c, name='hipblasZher2StridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2StridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: stride_y + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + integer(c_int64_t), value :: batch_count + end function hipblasZher2StridedBatched_64 + end interface + + ! hpmv + interface + function hipblasChpmv(handle, uplo, n, alpha, AP, & + x, incx, beta, y, incy) & + bind(c, name='hipblasChpmv') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmv + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: AP + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int), value :: incy + end function hipblasChpmv + end interface + + interface + function hipblasZhpmv(handle, uplo, n, alpha, AP, & + x, incx, beta, y, incy) & + bind(c, name='hipblasZhpmv') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmv + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: AP + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int), value :: incy + end function hipblasZhpmv + end interface + + ! hpmvBatched + interface + function hipblasChpmvBatched(handle, uplo, n, alpha, AP, & + x, incx, beta, y, incy, batch_count) & + bind(c, name='hipblasChpmvBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmvBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: AP + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int), value :: batch_count + end function hipblasChpmvBatched + end interface + + interface + function hipblasZhpmvBatched(handle, uplo, n, alpha, AP, & + x, incx, beta, y, incy, batch_count) & + bind(c, name='hipblasZhpmvBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmvBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: AP + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int), value :: batch_count + end function hipblasZhpmvBatched + end interface + + ! hpmvStridedBatched + interface + function hipblasChpmvStridedBatched(handle, uplo, n, alpha, AP, stride_AP, & + x, incx, stride_x, beta, y, incy, stride_y, batch_count) & + bind(c, name='hipblasChpmvStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmvStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: AP + integer(c_int64_t), value :: stride_AP + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int), value :: batch_count + end function hipblasChpmvStridedBatched + end interface + + interface + function hipblasZhpmvStridedBatched(handle, uplo, n, alpha, AP, stride_AP, & + x, incx, stride_x, beta, y, incy, stride_y, batch_count) & + bind(c, name='hipblasZhpmvStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmvStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: AP + integer(c_int64_t), value :: stride_AP + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int), value :: batch_count + end function hipblasZhpmvStridedBatched + end interface + + ! hpmv_64 + interface + function hipblasChpmv_64(handle, uplo, n, alpha, AP, & + x, incx, beta, y, incy) & + bind(c, name='hipblasChpmv_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmv_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: AP + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + end function hipblasChpmv_64 + end interface + + interface + function hipblasZhpmv_64(handle, uplo, n, alpha, AP, & + x, incx, beta, y, incy) & + bind(c, name='hipblasZhpmv_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmv_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: AP + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + end function hipblasZhpmv_64 + end interface + + ! hpmvBatched_64 + interface + function hipblasChpmvBatched_64(handle, uplo, n, alpha, AP, & + x, incx, beta, y, incy, batch_count) & + bind(c, name='hipblasChpmvBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmvBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: AP + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: batch_count + end function hipblasChpmvBatched_64 + end interface + + interface + function hipblasZhpmvBatched_64(handle, uplo, n, alpha, AP, & + x, incx, beta, y, incy, batch_count) & + bind(c, name='hipblasZhpmvBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmvBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: AP + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: batch_count + end function hipblasZhpmvBatched_64 + end interface + + ! hpmvStridedBatched_64 + interface + function hipblasChpmvStridedBatched_64(handle, uplo, n, alpha, AP, stride_AP, & + x, incx, stride_x, beta, y, incy, stride_y, batch_count) & + bind(c, name='hipblasChpmvStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmvStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: AP + integer(c_int64_t), value :: stride_AP + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int64_t), value :: batch_count + end function hipblasChpmvStridedBatched_64 + end interface + + interface + function hipblasZhpmvStridedBatched_64(handle, uplo, n, alpha, AP, stride_AP, & + x, incx, stride_x, beta, y, incy, stride_y, batch_count) & + bind(c, name='hipblasZhpmvStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmvStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: AP + integer(c_int64_t), value :: stride_AP + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int64_t), value :: batch_count + end function hipblasZhpmvStridedBatched_64 + end interface + + ! hpr + interface + function hipblasChpr(handle, uplo, n, alpha, & + x, incx, AP) & + bind(c, name='hipblasChpr') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: AP + end function hipblasChpr + end interface + + interface + function hipblasZhpr(handle, uplo, n, alpha, & + x, incx, AP) & + bind(c, name='hipblasZhpr') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: AP + end function hipblasZhpr + end interface + + ! hprBatched + interface + function hipblasChprBatched(handle, uplo, n, alpha, & + x, incx, AP, batch_count) & + bind(c, name='hipblasChprBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChprBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: AP + integer(c_int), value :: batch_count + end function hipblasChprBatched + end interface + + interface + function hipblasZhprBatched(handle, uplo, n, alpha, & + x, incx, AP, batch_count) & + bind(c, name='hipblasZhprBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhprBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: AP + integer(c_int), value :: batch_count + end function hipblasZhprBatched + end interface + + ! hprStridedBatched + interface + function hipblasChprStridedBatched(handle, uplo, n, alpha, & + x, incx, stride_x, AP, stride_AP, batch_count) & + bind(c, name='hipblasChprStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChprStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: AP + integer(c_int64_t), value :: stride_AP + integer(c_int), value :: batch_count + end function hipblasChprStridedBatched + end interface + + interface + function hipblasZhprStridedBatched(handle, uplo, n, alpha, & + x, incx, stride_x, AP, stride_AP, batch_count) & + bind(c, name='hipblasZhprStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhprStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: AP + integer(c_int64_t), value :: stride_AP + integer(c_int), value :: batch_count + end function hipblasZhprStridedBatched + end interface + + ! hpr_64 + interface + function hipblasChpr_64(handle, uplo, n, alpha, & + x, incx, AP) & + bind(c, name='hipblasChpr_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: AP + end function hipblasChpr_64 + end interface + + interface + function hipblasZhpr_64(handle, uplo, n, alpha, & + x, incx, AP) & + bind(c, name='hipblasZhpr_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: AP + end function hipblasZhpr_64 + end interface + + ! hprBatched_64 + interface + function hipblasChprBatched_64(handle, uplo, n, alpha, & + x, incx, AP, batch_count) & + bind(c, name='hipblasChprBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChprBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: AP + integer(c_int64_t), value :: batch_count + end function hipblasChprBatched_64 + end interface + + interface + function hipblasZhprBatched_64(handle, uplo, n, alpha, & + x, incx, AP, batch_count) & + bind(c, name='hipblasZhprBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhprBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: AP + integer(c_int64_t), value :: batch_count + end function hipblasZhprBatched_64 + end interface + + ! hprStridedBatched_64 + interface + function hipblasChprStridedBatched_64(handle, uplo, n, alpha, & + x, incx, stride_x, AP, stride_AP, batch_count) & + bind(c, name='hipblasChprStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChprStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: AP + integer(c_int64_t), value :: stride_AP + integer(c_int64_t), value :: batch_count + end function hipblasChprStridedBatched_64 + end interface + + interface + function hipblasZhprStridedBatched_64(handle, uplo, n, alpha, & + x, incx, stride_x, AP, stride_AP, batch_count) & + bind(c, name='hipblasZhprStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhprStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: AP + integer(c_int64_t), value :: stride_AP + integer(c_int64_t), value :: batch_count + end function hipblasZhprStridedBatched_64 + end interface + + ! hpr2 + interface + function hipblasChpr2(handle, uplo, n, alpha, & + x, incx, y, incy, AP) & + bind(c, name='hipblasChpr2') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + type(c_ptr), value :: AP + end function hipblasChpr2 + end interface + + interface + function hipblasZhpr2(handle, uplo, n, alpha, & + x, incx, y, incy, AP) & + bind(c, name='hipblasZhpr2') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + type(c_ptr), value :: AP + end function hipblasZhpr2 + end interface + + ! hpr2Batched + interface + function hipblasChpr2Batched(handle, uplo, n, alpha, & + x, incx, y, incy, AP, batch_count) & + bind(c, name='hipblasChpr2Batched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2Batched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + type(c_ptr), value :: AP + integer(c_int), value :: batch_count + end function hipblasChpr2Batched + end interface + + interface + function hipblasZhpr2Batched(handle, uplo, n, alpha, & + x, incx, y, incy, AP, batch_count) & + bind(c, name='hipblasZhpr2Batched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2Batched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + type(c_ptr), value :: AP + integer(c_int), value :: batch_count + end function hipblasZhpr2Batched + end interface + + ! hpr2StridedBatched + interface + function hipblasChpr2StridedBatched(handle, uplo, n, alpha, & + x, incx, stride_x, y, incy, stride_y, AP, stride_AP, batch_count) & + bind(c, name='hipblasChpr2StridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2StridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int64_t), value :: stride_y + type(c_ptr), value :: AP + integer(c_int64_t), value :: stride_AP + integer(c_int), value :: batch_count + end function hipblasChpr2StridedBatched + end interface + + interface + function hipblasZhpr2StridedBatched(handle, uplo, n, alpha, & + x, incx, stride_x, y, incy, stride_y, AP, stride_AP, batch_count) & + bind(c, name='hipblasZhpr2StridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2StridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int64_t), value :: stride_y + type(c_ptr), value :: AP + integer(c_int64_t), value :: stride_AP + integer(c_int), value :: batch_count + end function hipblasZhpr2StridedBatched + end interface + + ! hpr2_64 + interface + function hipblasChpr2_64(handle, uplo, n, alpha, & + x, incx, y, incy, AP) & + bind(c, name='hipblasChpr2_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + type(c_ptr), value :: AP + end function hipblasChpr2_64 + end interface + + interface + function hipblasZhpr2_64(handle, uplo, n, alpha, & + x, incx, y, incy, AP) & + bind(c, name='hipblasZhpr2_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + type(c_ptr), value :: AP + end function hipblasZhpr2_64 + end interface + + ! hpr2Batched_64 + interface + function hipblasChpr2Batched_64(handle, uplo, n, alpha, & + x, incx, y, incy, AP, batch_count) & + bind(c, name='hipblasChpr2Batched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2Batched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + type(c_ptr), value :: AP + integer(c_int64_t), value :: batch_count + end function hipblasChpr2Batched_64 + end interface + + interface + function hipblasZhpr2Batched_64(handle, uplo, n, alpha, & + x, incx, y, incy, AP, batch_count) & + bind(c, name='hipblasZhpr2Batched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2Batched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + type(c_ptr), value :: AP + integer(c_int64_t), value :: batch_count + end function hipblasZhpr2Batched_64 + end interface + + ! hpr2StridedBatched_64 + interface + function hipblasChpr2StridedBatched_64(handle, uplo, n, alpha, & + x, incx, stride_x, y, incy, stride_y, AP, stride_AP, batch_count) & + bind(c, name='hipblasChpr2StridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2StridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: stride_y + type(c_ptr), value :: AP + integer(c_int64_t), value :: stride_AP + integer(c_int64_t), value :: batch_count + end function hipblasChpr2StridedBatched_64 + end interface + + interface + function hipblasZhpr2StridedBatched_64(handle, uplo, n, alpha, & + x, incx, stride_x, y, incy, stride_y, AP, stride_AP, batch_count) & + bind(c, name='hipblasZhpr2StridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2StridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: stride_y + type(c_ptr), value :: AP + integer(c_int64_t), value :: stride_AP + integer(c_int64_t), value :: batch_count + end function hipblasZhpr2StridedBatched_64 + end interface + + ! trmv + interface + function hipblasStrmv(handle, uplo, transA, diag, m, & + A, lda, x, incx) & + bind(c, name='hipblasStrmv') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmv + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int), value :: m + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + end function hipblasStrmv + end interface + + interface + function hipblasDtrmv(handle, uplo, transA, diag, m, & + A, lda, x, incx) & + bind(c, name='hipblasDtrmv') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmv + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int), value :: m + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + end function hipblasDtrmv + end interface + + interface + function hipblasCtrmv(handle, uplo, transA, diag, m, & + A, lda, x, incx) & + bind(c, name='hipblasCtrmv') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmv + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int), value :: m + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + end function hipblasCtrmv + end interface + + interface + function hipblasZtrmv(handle, uplo, transA, diag, m, & + A, lda, x, incx) & + bind(c, name='hipblasZtrmv') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmv + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int), value :: m + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + end function hipblasZtrmv + end interface + + ! trmv_64 + interface + function hipblasStrmv_64(handle, uplo, transA, diag, m, & + A, lda, x, incx) & + bind(c, name='hipblasStrmv_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmv_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int64_t), value :: m + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + end function hipblasStrmv_64 + end interface + + interface + function hipblasDtrmv_64(handle, uplo, transA, diag, m, & + A, lda, x, incx) & + bind(c, name='hipblasDtrmv_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmv_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int64_t), value :: m + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + end function hipblasDtrmv_64 + end interface + + interface + function hipblasCtrmv_64(handle, uplo, transA, diag, m, & + A, lda, x, incx) & + bind(c, name='hipblasCtrmv_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmv_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int64_t), value :: m + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + end function hipblasCtrmv_64 + end interface + + interface + function hipblasZtrmv_64(handle, uplo, transA, diag, m, & + A, lda, x, incx) & + bind(c, name='hipblasZtrmv_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmv_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int64_t), value :: m + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + end function hipblasZtrmv_64 + end interface + + ! trmvBatched + interface + function hipblasStrmvBatched(handle, uplo, transA, diag, m, & + A, lda, x, incx, batch_count) & + bind(c, name='hipblasStrmvBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmvBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int), value :: m + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int), value :: batch_count + end function hipblasStrmvBatched + end interface + + interface + function hipblasDtrmvBatched(handle, uplo, transA, diag, m, & + A, lda, x, incx, batch_count) & + bind(c, name='hipblasDtrmvBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmvBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int), value :: m + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int), value :: batch_count + end function hipblasDtrmvBatched + end interface + + interface + function hipblasCtrmvBatched(handle, uplo, transA, diag, m, & + A, lda, x, incx, batch_count) & + bind(c, name='hipblasCtrmvBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmvBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int), value :: m + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int), value :: batch_count + end function hipblasCtrmvBatched + end interface + + interface + function hipblasZtrmvBatched(handle, uplo, transA, diag, m, & + A, lda, x, incx, batch_count) & + bind(c, name='hipblasZtrmvBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmvBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int), value :: m + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int), value :: batch_count + end function hipblasZtrmvBatched + end interface + + ! trmvBatched_64 + interface + function hipblasStrmvBatched_64(handle, uplo, transA, diag, m, & + A, lda, x, incx, batch_count) & + bind(c, name='hipblasStrmvBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmvBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int64_t), value :: m + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: batch_count + end function hipblasStrmvBatched_64 + end interface + + interface + function hipblasDtrmvBatched_64(handle, uplo, transA, diag, m, & + A, lda, x, incx, batch_count) & + bind(c, name='hipblasDtrmvBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmvBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int64_t), value :: m + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: batch_count + end function hipblasDtrmvBatched_64 + end interface + + interface + function hipblasCtrmvBatched_64(handle, uplo, transA, diag, m, & + A, lda, x, incx, batch_count) & + bind(c, name='hipblasCtrmvBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmvBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int64_t), value :: m + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: batch_count + end function hipblasCtrmvBatched_64 + end interface + + interface + function hipblasZtrmvBatched_64(handle, uplo, transA, diag, m, & + A, lda, x, incx, batch_count) & + bind(c, name='hipblasZtrmvBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmvBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int64_t), value :: m + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: batch_count + end function hipblasZtrmvBatched_64 + end interface + + ! trmvStridedBatched + interface + function hipblasStrmvStridedBatched(handle, uplo, transA, diag, m, & + A, lda, stride_A, x, incx, stride_x, batch_count) & + bind(c, name='hipblasStrmvStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmvStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int), value :: m + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int), value :: batch_count + end function hipblasStrmvStridedBatched + end interface + + interface + function hipblasDtrmvStridedBatched(handle, uplo, transA, diag, m, & + A, lda, stride_A, x, incx, stride_x, batch_count) & + bind(c, name='hipblasDtrmvStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmvStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int), value :: m + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int), value :: batch_count + end function hipblasDtrmvStridedBatched + end interface + + interface + function hipblasCtrmvStridedBatched(handle, uplo, transA, diag, m, & + A, lda, stride_A, x, incx, stride_x, batch_count) & + bind(c, name='hipblasCtrmvStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmvStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int), value :: m + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int), value :: batch_count + end function hipblasCtrmvStridedBatched + end interface + + interface + function hipblasZtrmvStridedBatched(handle, uplo, transA, diag, m, & + A, lda, stride_A, x, incx, stride_x, batch_count) & + bind(c, name='hipblasZtrmvStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmvStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int), value :: m + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int), value :: batch_count + end function hipblasZtrmvStridedBatched + end interface + + ! trmvStridedBatched_64 + interface + function hipblasStrmvStridedBatched_64(handle, uplo, transA, diag, m, & + A, lda, stride_A, x, incx, stride_x, batch_count) & + bind(c, name='hipblasStrmvStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmvStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int64_t), value :: m + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int64_t), value :: batch_count + end function hipblasStrmvStridedBatched_64 + end interface + + interface + function hipblasDtrmvStridedBatched_64(handle, uplo, transA, diag, m, & + A, lda, stride_A, x, incx, stride_x, batch_count) & + bind(c, name='hipblasDtrmvStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmvStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int64_t), value :: m + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int64_t), value :: batch_count + end function hipblasDtrmvStridedBatched_64 + end interface + + interface + function hipblasCtrmvStridedBatched_64(handle, uplo, transA, diag, m, & + A, lda, stride_A, x, incx, stride_x, batch_count) & + bind(c, name='hipblasCtrmvStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmvStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int64_t), value :: m + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int64_t), value :: batch_count + end function hipblasCtrmvStridedBatched_64 + end interface + + interface + function hipblasZtrmvStridedBatched_64(handle, uplo, transA, diag, m, & + A, lda, stride_A, x, incx, stride_x, batch_count) & + bind(c, name='hipblasZtrmvStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmvStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int64_t), value :: m + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int64_t), value :: batch_count + end function hipblasZtrmvStridedBatched_64 + end interface + + ! tpmv + interface + function hipblasStpmv(handle, uplo, transA, diag, m, & + AP, x, incx) & + bind(c, name='hipblasStpmv') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpmv + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int), value :: m + type(c_ptr), value :: AP + type(c_ptr), value :: x + integer(c_int), value :: incx + end function hipblasStpmv + end interface + + interface + function hipblasDtpmv(handle, uplo, transA, diag, m, & + AP, x, incx) & + bind(c, name='hipblasDtpmv') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpmv + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int), value :: m + type(c_ptr), value :: AP + type(c_ptr), value :: x + integer(c_int), value :: incx + end function hipblasDtpmv + end interface + + interface + function hipblasCtpmv(handle, uplo, transA, diag, m, & + AP, x, incx) & + bind(c, name='hipblasCtpmv') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpmv + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int), value :: m + type(c_ptr), value :: AP + type(c_ptr), value :: x + integer(c_int), value :: incx + end function hipblasCtpmv + end interface + + interface + function hipblasZtpmv(handle, uplo, transA, diag, m, & + AP, x, incx) & + bind(c, name='hipblasZtpmv') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpmv + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int), value :: m + type(c_ptr), value :: AP + type(c_ptr), value :: x + integer(c_int), value :: incx + end function hipblasZtpmv + end interface + + ! tpmv_64 + interface + function hipblasStpmv_64(handle, uplo, transA, diag, m, & + AP, x, incx) & + bind(c, name='hipblasStpmv_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpmv_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int64_t), value :: m + type(c_ptr), value :: AP + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + end function hipblasStpmv_64 + end interface + + interface + function hipblasDtpmv_64(handle, uplo, transA, diag, m, & + AP, x, incx) & + bind(c, name='hipblasDtpmv_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpmv_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int64_t), value :: m + type(c_ptr), value :: AP + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + end function hipblasDtpmv_64 + end interface + + interface + function hipblasCtpmv_64(handle, uplo, transA, diag, m, & + AP, x, incx) & + bind(c, name='hipblasCtpmv_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpmv_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int64_t), value :: m + type(c_ptr), value :: AP + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + end function hipblasCtpmv_64 + end interface + + interface + function hipblasZtpmv_64(handle, uplo, transA, diag, m, & + AP, x, incx) & + bind(c, name='hipblasZtpmv_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpmv_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int64_t), value :: m + type(c_ptr), value :: AP + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + end function hipblasZtpmv_64 + end interface + + ! tpmvBatched + interface + function hipblasStpmvBatched(handle, uplo, transA, diag, m, & + AP, x, incx, batch_count) & + bind(c, name='hipblasStpmvBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpmvBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int), value :: m + type(c_ptr), value :: AP + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int), value :: batch_count + end function hipblasStpmvBatched + end interface + + interface + function hipblasDtpmvBatched(handle, uplo, transA, diag, m, & + AP, x, incx, batch_count) & + bind(c, name='hipblasDtpmvBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpmvBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int), value :: m + type(c_ptr), value :: AP + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int), value :: batch_count + end function hipblasDtpmvBatched + end interface + + interface + function hipblasCtpmvBatched(handle, uplo, transA, diag, m, & + AP, x, incx, batch_count) & + bind(c, name='hipblasCtpmvBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpmvBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int), value :: m + type(c_ptr), value :: AP + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int), value :: batch_count + end function hipblasCtpmvBatched + end interface + + interface + function hipblasZtpmvBatched(handle, uplo, transA, diag, m, & + AP, x, incx, batch_count) & + bind(c, name='hipblasZtpmvBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpmvBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int), value :: m + type(c_ptr), value :: AP + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int), value :: batch_count + end function hipblasZtpmvBatched + end interface + + ! tpmvBatched_64 + interface + function hipblasStpmvBatched_64(handle, uplo, transA, diag, m, & + AP, x, incx, batch_count) & + bind(c, name='hipblasStpmvBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpmvBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int64_t), value :: m + type(c_ptr), value :: AP + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: batch_count + end function hipblasStpmvBatched_64 + end interface + + interface + function hipblasDtpmvBatched_64(handle, uplo, transA, diag, m, & + AP, x, incx, batch_count) & + bind(c, name='hipblasDtpmvBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpmvBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int64_t), value :: m + type(c_ptr), value :: AP + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: batch_count + end function hipblasDtpmvBatched_64 + end interface + + interface + function hipblasCtpmvBatched_64(handle, uplo, transA, diag, m, & + AP, x, incx, batch_count) & + bind(c, name='hipblasCtpmvBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpmvBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int64_t), value :: m + type(c_ptr), value :: AP + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: batch_count + end function hipblasCtpmvBatched_64 + end interface + + interface + function hipblasZtpmvBatched_64(handle, uplo, transA, diag, m, & + AP, x, incx, batch_count) & + bind(c, name='hipblasZtpmvBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpmvBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int64_t), value :: m + type(c_ptr), value :: AP + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: batch_count + end function hipblasZtpmvBatched_64 + end interface + + ! tpmvStridedBatched + interface + function hipblasStpmvStridedBatched(handle, uplo, transA, diag, m, & + AP, stride_AP, x, incx, stride_x, batch_count) & + bind(c, name='hipblasStpmvStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpmvStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int), value :: m + type(c_ptr), value :: AP + integer(c_int64_t), value :: stride_AP + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int), value :: batch_count + end function hipblasStpmvStridedBatched + end interface + + interface + function hipblasDtpmvStridedBatched(handle, uplo, transA, diag, m, & + AP, stride_AP, x, incx, stride_x, batch_count) & + bind(c, name='hipblasDtpmvStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpmvStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int), value :: m + type(c_ptr), value :: AP + integer(c_int64_t), value :: stride_AP + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int), value :: batch_count + end function hipblasDtpmvStridedBatched + end interface + + interface + function hipblasCtpmvStridedBatched(handle, uplo, transA, diag, m, & + AP, stride_AP, x, incx, stride_x, batch_count) & + bind(c, name='hipblasCtpmvStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpmvStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int), value :: m + type(c_ptr), value :: AP + integer(c_int64_t), value :: stride_AP + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int), value :: batch_count + end function hipblasCtpmvStridedBatched + end interface + + interface + function hipblasZtpmvStridedBatched(handle, uplo, transA, diag, m, & + AP, stride_AP, x, incx, stride_x, batch_count) & + bind(c, name='hipblasZtpmvStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpmvStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int), value :: m + type(c_ptr), value :: AP + integer(c_int64_t), value :: stride_AP + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int), value :: batch_count + end function hipblasZtpmvStridedBatched + end interface + + ! tpmvStridedBatched_64 + interface + function hipblasStpmvStridedBatched_64(handle, uplo, transA, diag, m, & + AP, stride_AP, x, incx, stride_x, batch_count) & + bind(c, name='hipblasStpmvStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpmvStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int64_t), value :: m + type(c_ptr), value :: AP + integer(c_int64_t), value :: stride_AP + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int64_t), value :: batch_count + end function hipblasStpmvStridedBatched_64 + end interface + + interface + function hipblasDtpmvStridedBatched_64(handle, uplo, transA, diag, m, & + AP, stride_AP, x, incx, stride_x, batch_count) & + bind(c, name='hipblasDtpmvStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpmvStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int64_t), value :: m + type(c_ptr), value :: AP + integer(c_int64_t), value :: stride_AP + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int64_t), value :: batch_count + end function hipblasDtpmvStridedBatched_64 + end interface + + interface + function hipblasCtpmvStridedBatched_64(handle, uplo, transA, diag, m, & + AP, stride_AP, x, incx, stride_x, batch_count) & + bind(c, name='hipblasCtpmvStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpmvStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int64_t), value :: m + type(c_ptr), value :: AP + integer(c_int64_t), value :: stride_AP + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int64_t), value :: batch_count + end function hipblasCtpmvStridedBatched_64 + end interface + + interface + function hipblasZtpmvStridedBatched_64(handle, uplo, transA, diag, m, & + AP, stride_AP, x, incx, stride_x, batch_count) & + bind(c, name='hipblasZtpmvStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpmvStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int64_t), value :: m + type(c_ptr), value :: AP + integer(c_int64_t), value :: stride_AP + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int64_t), value :: batch_count + end function hipblasZtpmvStridedBatched_64 + end interface + + ! tbmv + interface + function hipblasStbmv(handle, uplo, transA, diag, m, k, & + A, lda, x, incx) & + bind(c, name='hipblasStbmv') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbmv + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int), value :: m + integer(c_int), value :: k + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + end function hipblasStbmv + end interface + + interface + function hipblasDtbmv(handle, uplo, transA, diag, m, k, & + A, lda, x, incx) & + bind(c, name='hipblasDtbmv') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbmv + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int), value :: m + integer(c_int), value :: k + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + end function hipblasDtbmv + end interface + + interface + function hipblasCtbmv(handle, uplo, transA, diag, m, k, & + A, lda, x, incx) & + bind(c, name='hipblasCtbmv') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbmv + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int), value :: m + integer(c_int), value :: k + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + end function hipblasCtbmv + end interface + + interface + function hipblasZtbmv(handle, uplo, transA, diag, m, k, & + A, lda, x, incx) & + bind(c, name='hipblasZtbmv') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbmv + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int), value :: m + integer(c_int), value :: k + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + end function hipblasZtbmv + end interface + + ! tbmv_64 + interface + function hipblasStbmv_64(handle, uplo, transA, diag, m, k, & + A, lda, x, incx) & + bind(c, name='hipblasStbmv_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbmv_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int64_t), value :: m + integer(c_int64_t), value :: k + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + end function hipblasStbmv_64 + end interface + + interface + function hipblasDtbmv_64(handle, uplo, transA, diag, m, k, & + A, lda, x, incx) & + bind(c, name='hipblasDtbmv_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbmv_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int64_t), value :: m + integer(c_int64_t), value :: k + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + end function hipblasDtbmv_64 + end interface + + interface + function hipblasCtbmv_64(handle, uplo, transA, diag, m, k, & + A, lda, x, incx) & + bind(c, name='hipblasCtbmv_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbmv_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int64_t), value :: m + integer(c_int64_t), value :: k + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + end function hipblasCtbmv_64 + end interface + + interface + function hipblasZtbmv_64(handle, uplo, transA, diag, m, k, & + A, lda, x, incx) & + bind(c, name='hipblasZtbmv_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbmv_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int64_t), value :: m + integer(c_int64_t), value :: k + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + end function hipblasZtbmv_64 + end interface + + ! tbmvBatched + interface + function hipblasStbmvBatched(handle, uplo, transA, diag, m, k, & + A, lda, x, incx, batch_count) & + bind(c, name='hipblasStbmvBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbmvBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int), value :: m + integer(c_int), value :: k + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int), value :: batch_count + end function hipblasStbmvBatched + end interface + + interface + function hipblasDtbmvBatched(handle, uplo, transA, diag, m, k, & + A, lda, x, incx, batch_count) & + bind(c, name='hipblasDtbmvBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbmvBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int), value :: m + integer(c_int), value :: k + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int), value :: batch_count + end function hipblasDtbmvBatched + end interface + + interface + function hipblasCtbmvBatched(handle, uplo, transA, diag, m, k, & + A, lda, x, incx, batch_count) & + bind(c, name='hipblasCtbmvBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbmvBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int), value :: m + integer(c_int), value :: k + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int), value :: batch_count + end function hipblasCtbmvBatched + end interface + + interface + function hipblasZtbmvBatched(handle, uplo, transA, diag, m, k, & + A, lda, x, incx, batch_count) & + bind(c, name='hipblasZtbmvBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbmvBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int), value :: m + integer(c_int), value :: k + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int), value :: batch_count + end function hipblasZtbmvBatched + end interface + + ! tbmvBatched_64 + interface + function hipblasStbmvBatched_64(handle, uplo, transA, diag, m, k, & + A, lda, x, incx, batch_count) & + bind(c, name='hipblasStbmvBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbmvBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int64_t), value :: m + integer(c_int64_t), value :: k + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: batch_count + end function hipblasStbmvBatched_64 + end interface + + interface + function hipblasDtbmvBatched_64(handle, uplo, transA, diag, m, k, & + A, lda, x, incx, batch_count) & + bind(c, name='hipblasDtbmvBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbmvBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int64_t), value :: m + integer(c_int64_t), value :: k + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: batch_count + end function hipblasDtbmvBatched_64 + end interface + + interface + function hipblasCtbmvBatched_64(handle, uplo, transA, diag, m, k, & + A, lda, x, incx, batch_count) & + bind(c, name='hipblasCtbmvBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbmvBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int64_t), value :: m + integer(c_int64_t), value :: k + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: batch_count + end function hipblasCtbmvBatched_64 + end interface + + interface + function hipblasZtbmvBatched_64(handle, uplo, transA, diag, m, k, & + A, lda, x, incx, batch_count) & + bind(c, name='hipblasZtbmvBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbmvBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int64_t), value :: m + integer(c_int64_t), value :: k + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: batch_count + end function hipblasZtbmvBatched_64 + end interface + + ! tbmvStridedBatched + interface + function hipblasStbmvStridedBatched(handle, uplo, transA, diag, m, k, & + A, lda, stride_A, x, incx, stride_x, batch_count) & + bind(c, name='hipblasStbmvStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbmvStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int), value :: m + integer(c_int), value :: k + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int), value :: batch_count + end function hipblasStbmvStridedBatched + end interface + + interface + function hipblasDtbmvStridedBatched(handle, uplo, transA, diag, m, k, & + A, lda, stride_A, x, incx, stride_x, batch_count) & + bind(c, name='hipblasDtbmvStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbmvStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int), value :: m + integer(c_int), value :: k + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int), value :: batch_count + end function hipblasDtbmvStridedBatched + end interface + + interface + function hipblasCtbmvStridedBatched(handle, uplo, transA, diag, m, k, & + A, lda, stride_A, x, incx, stride_x, batch_count) & + bind(c, name='hipblasCtbmvStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbmvStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int), value :: m + integer(c_int), value :: k + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int), value :: batch_count + end function hipblasCtbmvStridedBatched + end interface + + interface + function hipblasZtbmvStridedBatched(handle, uplo, transA, diag, m, k, & + A, lda, stride_A, x, incx, stride_x, batch_count) & + bind(c, name='hipblasZtbmvStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbmvStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int), value :: m + integer(c_int), value :: k + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int), value :: batch_count + end function hipblasZtbmvStridedBatched + end interface + + ! tbmvStridedBatched_64 + interface + function hipblasStbmvStridedBatched_64(handle, uplo, transA, diag, m, k, & + A, lda, stride_A, x, incx, stride_x, batch_count) & + bind(c, name='hipblasStbmvStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbmvStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int64_t), value :: m + integer(c_int64_t), value :: k + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int64_t), value :: batch_count + end function hipblasStbmvStridedBatched_64 + end interface + + interface + function hipblasDtbmvStridedBatched_64(handle, uplo, transA, diag, m, k, & + A, lda, stride_A, x, incx, stride_x, batch_count) & + bind(c, name='hipblasDtbmvStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbmvStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int64_t), value :: m + integer(c_int64_t), value :: k + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int64_t), value :: batch_count + end function hipblasDtbmvStridedBatched_64 + end interface + + interface + function hipblasCtbmvStridedBatched_64(handle, uplo, transA, diag, m, k, & + A, lda, stride_A, x, incx, stride_x, batch_count) & + bind(c, name='hipblasCtbmvStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbmvStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int64_t), value :: m + integer(c_int64_t), value :: k + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int64_t), value :: batch_count + end function hipblasCtbmvStridedBatched_64 + end interface + + interface + function hipblasZtbmvStridedBatched_64(handle, uplo, transA, diag, m, k, & + A, lda, stride_A, x, incx, stride_x, batch_count) & + bind(c, name='hipblasZtbmvStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbmvStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int64_t), value :: m + integer(c_int64_t), value :: k + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int64_t), value :: batch_count + end function hipblasZtbmvStridedBatched_64 + end interface + + ! tbsv + interface + function hipblasStbsv(handle, uplo, transA, diag, n, k, & + A, lda, x, incx) & + bind(c, name='hipblasStbsv') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbsv + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + end function hipblasStbsv + end interface + + interface + function hipblasDtbsv(handle, uplo, transA, diag, n, k, & + A, lda, x, incx) & + bind(c, name='hipblasDtbsv') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbsv + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + end function hipblasDtbsv + end interface + + interface + function hipblasCtbsv(handle, uplo, transA, diag, n, k, & + A, lda, x, incx) & + bind(c, name='hipblasCtbsv') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbsv + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + end function hipblasCtbsv + end interface + + interface + function hipblasZtbsv(handle, uplo, transA, diag, n, k, & + A, lda, x, incx) & + bind(c, name='hipblasZtbsv') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbsv + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + end function hipblasZtbsv + end interface + + ! tbsv_64 + interface + function hipblasStbsv_64(handle, uplo, transA, diag, n, k, & + A, lda, x, incx) & + bind(c, name='hipblasStbsv_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbsv_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + end function hipblasStbsv_64 + end interface + + interface + function hipblasDtbsv_64(handle, uplo, transA, diag, n, k, & + A, lda, x, incx) & + bind(c, name='hipblasDtbsv_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbsv_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + end function hipblasDtbsv_64 + end interface + + interface + function hipblasCtbsv_64(handle, uplo, transA, diag, n, k, & + A, lda, x, incx) & + bind(c, name='hipblasCtbsv_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbsv_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + end function hipblasCtbsv_64 + end interface + + interface + function hipblasZtbsv_64(handle, uplo, transA, diag, n, k, & + A, lda, x, incx) & + bind(c, name='hipblasZtbsv_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbsv_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + end function hipblasZtbsv_64 + end interface + + ! tbsvBatched + interface + function hipblasStbsvBatched(handle, uplo, transA, diag, n, k, & + A, lda, x, incx, batch_count) & + bind(c, name='hipblasStbsvBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbsvBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int), value :: batch_count + end function hipblasStbsvBatched + end interface + + interface + function hipblasDtbsvBatched(handle, uplo, transA, diag, n, k, & + A, lda, x, incx, batch_count) & + bind(c, name='hipblasDtbsvBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbsvBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int), value :: batch_count + end function hipblasDtbsvBatched + end interface + + interface + function hipblasCtbsvBatched(handle, uplo, transA, diag, n, k, & + A, lda, x, incx, batch_count) & + bind(c, name='hipblasCtbsvBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbsvBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int), value :: batch_count + end function hipblasCtbsvBatched + end interface + + interface + function hipblasZtbsvBatched(handle, uplo, transA, diag, n, k, & + A, lda, x, incx, batch_count) & + bind(c, name='hipblasZtbsvBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbsvBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int), value :: batch_count + end function hipblasZtbsvBatched + end interface + + ! tbsvBatched_64 + interface + function hipblasStbsvBatched_64(handle, uplo, transA, diag, n, k, & + A, lda, x, incx, batch_count) & + bind(c, name='hipblasStbsvBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbsvBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: batch_count + end function hipblasStbsvBatched_64 + end interface + + interface + function hipblasDtbsvBatched_64(handle, uplo, transA, diag, n, k, & + A, lda, x, incx, batch_count) & + bind(c, name='hipblasDtbsvBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbsvBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: batch_count + end function hipblasDtbsvBatched_64 + end interface + + interface + function hipblasCtbsvBatched_64(handle, uplo, transA, diag, n, k, & + A, lda, x, incx, batch_count) & + bind(c, name='hipblasCtbsvBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbsvBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: batch_count + end function hipblasCtbsvBatched_64 + end interface + + interface + function hipblasZtbsvBatched_64(handle, uplo, transA, diag, n, k, & + A, lda, x, incx, batch_count) & + bind(c, name='hipblasZtbsvBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbsvBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: batch_count + end function hipblasZtbsvBatched_64 + end interface + + ! tbsvStridedBatched + interface + function hipblasStbsvStridedBatched(handle, uplo, transA, diag, n, k, & + A, lda, stride_A, x, incx, stride_x, batch_count) & + bind(c, name='hipblasStbsvStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbsvStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int), value :: batch_count + end function hipblasStbsvStridedBatched + end interface + + interface + function hipblasDtbsvStridedBatched(handle, uplo, transA, diag, n, k, & + A, lda, stride_A, x, incx, stride_x, batch_count) & + bind(c, name='hipblasDtbsvStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbsvStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int), value :: batch_count + end function hipblasDtbsvStridedBatched + end interface + + interface + function hipblasCtbsvStridedBatched(handle, uplo, transA, diag, n, k, & + A, lda, stride_A, x, incx, stride_x, batch_count) & + bind(c, name='hipblasCtbsvStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbsvStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int), value :: batch_count + end function hipblasCtbsvStridedBatched + end interface + + interface + function hipblasZtbsvStridedBatched(handle, uplo, transA, diag, n, k, & + A, lda, stride_A, x, incx, stride_x, batch_count) & + bind(c, name='hipblasZtbsvStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbsvStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int), value :: batch_count + end function hipblasZtbsvStridedBatched + end interface + + ! tbsvStridedBatched_64 + interface + function hipblasStbsvStridedBatched_64(handle, uplo, transA, diag, n, k, & + A, lda, stride_A, x, incx, stride_x, batch_count) & + bind(c, name='hipblasStbsvStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbsvStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int64_t), value :: batch_count + end function hipblasStbsvStridedBatched_64 + end interface + + interface + function hipblasDtbsvStridedBatched_64(handle, uplo, transA, diag, n, k, & + A, lda, stride_A, x, incx, stride_x, batch_count) & + bind(c, name='hipblasDtbsvStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbsvStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int64_t), value :: batch_count + end function hipblasDtbsvStridedBatched_64 + end interface + + interface + function hipblasCtbsvStridedBatched_64(handle, uplo, transA, diag, n, k, & + A, lda, stride_A, x, incx, stride_x, batch_count) & + bind(c, name='hipblasCtbsvStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbsvStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int64_t), value :: batch_count + end function hipblasCtbsvStridedBatched_64 + end interface + + interface + function hipblasZtbsvStridedBatched_64(handle, uplo, transA, diag, n, k, & + A, lda, stride_A, x, incx, stride_x, batch_count) & + bind(c, name='hipblasZtbsvStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbsvStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int64_t), value :: batch_count + end function hipblasZtbsvStridedBatched_64 + end interface + + ! trsv + interface + function hipblasStrsv(handle, uplo, transA, diag, m, & + A, lda, x, incx) & + bind(c, name='hipblasStrsv') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsv + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int), value :: m + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + end function hipblasStrsv + end interface + + interface + function hipblasDtrsv(handle, uplo, transA, diag, m, & + A, lda, x, incx) & + bind(c, name='hipblasDtrsv') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsv + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int), value :: m + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + end function hipblasDtrsv + end interface + + interface + function hipblasCtrsv(handle, uplo, transA, diag, m, & + A, lda, x, incx) & + bind(c, name='hipblasCtrsv') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsv + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int), value :: m + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + end function hipblasCtrsv + end interface + + interface + function hipblasZtrsv(handle, uplo, transA, diag, m, & + A, lda, x, incx) & + bind(c, name='hipblasZtrsv') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsv + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int), value :: m + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + end function hipblasZtrsv + end interface + + ! trsv_64 + interface + function hipblasStrsv_64(handle, uplo, transA, diag, m, & + A, lda, x, incx) & + bind(c, name='hipblasStrsv_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsv_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int64_t), value :: m + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + end function hipblasStrsv_64 + end interface + + interface + function hipblasDtrsv_64(handle, uplo, transA, diag, m, & + A, lda, x, incx) & + bind(c, name='hipblasDtrsv_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsv_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int64_t), value :: m + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + end function hipblasDtrsv_64 + end interface + + interface + function hipblasCtrsv_64(handle, uplo, transA, diag, m, & + A, lda, x, incx) & + bind(c, name='hipblasCtrsv_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsv_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int64_t), value :: m + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + end function hipblasCtrsv_64 + end interface + + interface + function hipblasZtrsv_64(handle, uplo, transA, diag, m, & + A, lda, x, incx) & + bind(c, name='hipblasZtrsv_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsv_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int64_t), value :: m + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + end function hipblasZtrsv_64 + end interface + + ! trsvBatched + interface + function hipblasStrsvBatched(handle, uplo, transA, diag, m, & + A, lda, x, incx, batch_count) & + bind(c, name='hipblasStrsvBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsvBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int), value :: m + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int), value :: batch_count + end function hipblasStrsvBatched + end interface + + interface + function hipblasDtrsvBatched(handle, uplo, transA, diag, m, & + A, lda, x, incx, batch_count) & + bind(c, name='hipblasDtrsvBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsvBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int), value :: m + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int), value :: batch_count + end function hipblasDtrsvBatched + end interface + + interface + function hipblasCtrsvBatched(handle, uplo, transA, diag, m, & + A, lda, x, incx, batch_count) & + bind(c, name='hipblasCtrsvBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsvBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int), value :: m + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int), value :: batch_count + end function hipblasCtrsvBatched + end interface + + interface + function hipblasZtrsvBatched(handle, uplo, transA, diag, m, & + A, lda, x, incx, batch_count) & + bind(c, name='hipblasZtrsvBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsvBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int), value :: m + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int), value :: batch_count + end function hipblasZtrsvBatched + end interface + + ! trsvBatched_64 + interface + function hipblasStrsvBatched_64(handle, uplo, transA, diag, m, & + A, lda, x, incx, batch_count) & + bind(c, name='hipblasStrsvBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsvBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int64_t), value :: m + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: batch_count + end function hipblasStrsvBatched_64 + end interface + + interface + function hipblasDtrsvBatched_64(handle, uplo, transA, diag, m, & + A, lda, x, incx, batch_count) & + bind(c, name='hipblasDtrsvBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsvBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int64_t), value :: m + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: batch_count + end function hipblasDtrsvBatched_64 + end interface + + interface + function hipblasCtrsvBatched_64(handle, uplo, transA, diag, m, & + A, lda, x, incx, batch_count) & + bind(c, name='hipblasCtrsvBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsvBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int64_t), value :: m + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: batch_count + end function hipblasCtrsvBatched_64 + end interface + + interface + function hipblasZtrsvBatched_64(handle, uplo, transA, diag, m, & + A, lda, x, incx, batch_count) & + bind(c, name='hipblasZtrsvBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsvBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int64_t), value :: m + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: batch_count + end function hipblasZtrsvBatched_64 + end interface + + ! trsvStridedBatched + interface + function hipblasStrsvStridedBatched(handle, uplo, transA, diag, m, & + A, lda, stride_A, x, incx, stride_x, batch_count) & + bind(c, name='hipblasStrsvStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsvStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int), value :: m + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int), value :: batch_count + end function hipblasStrsvStridedBatched + end interface + + interface + function hipblasDtrsvStridedBatched(handle, uplo, transA, diag, m, & + A, lda, stride_A, x, incx, stride_x, batch_count) & + bind(c, name='hipblasDtrsvStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsvStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int), value :: m + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int), value :: batch_count + end function hipblasDtrsvStridedBatched + end interface + + interface + function hipblasCtrsvStridedBatched(handle, uplo, transA, diag, m, & + A, lda, stride_A, x, incx, stride_x, batch_count) & + bind(c, name='hipblasCtrsvStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsvStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int), value :: m + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int), value :: batch_count + end function hipblasCtrsvStridedBatched + end interface + + interface + function hipblasZtrsvStridedBatched(handle, uplo, transA, diag, m, & + A, lda, stride_A, x, incx, stride_x, batch_count) & + bind(c, name='hipblasZtrsvStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsvStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int), value :: m + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int), value :: batch_count + end function hipblasZtrsvStridedBatched + end interface + + ! trsvStridedBatched_64 + interface + function hipblasStrsvStridedBatched_64(handle, uplo, transA, diag, m, & + A, lda, stride_A, x, incx, stride_x, batch_count) & + bind(c, name='hipblasStrsvStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsvStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int64_t), value :: m + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int64_t), value :: batch_count + end function hipblasStrsvStridedBatched_64 + end interface + + interface + function hipblasDtrsvStridedBatched_64(handle, uplo, transA, diag, m, & + A, lda, stride_A, x, incx, stride_x, batch_count) & + bind(c, name='hipblasDtrsvStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsvStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int64_t), value :: m + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int64_t), value :: batch_count + end function hipblasDtrsvStridedBatched_64 + end interface + + interface + function hipblasCtrsvStridedBatched_64(handle, uplo, transA, diag, m, & + A, lda, stride_A, x, incx, stride_x, batch_count) & + bind(c, name='hipblasCtrsvStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsvStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int64_t), value :: m + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int64_t), value :: batch_count + end function hipblasCtrsvStridedBatched_64 + end interface + + interface + function hipblasZtrsvStridedBatched_64(handle, uplo, transA, diag, m, & + A, lda, stride_A, x, incx, stride_x, batch_count) & + bind(c, name='hipblasZtrsvStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsvStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int64_t), value :: m + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int64_t), value :: batch_count + end function hipblasZtrsvStridedBatched_64 + end interface + + ! tpsv + interface + function hipblasStpsv(handle, uplo, transA, diag, n, & + AP, x, incx) & + bind(c, name='hipblasStpsv') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpsv + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int), value :: n + type(c_ptr), value :: AP + type(c_ptr), value :: x + integer(c_int), value :: incx + end function hipblasStpsv + end interface + + interface + function hipblasDtpsv(handle, uplo, transA, diag, n, & + AP, x, incx) & + bind(c, name='hipblasDtpsv') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpsv + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int), value :: n + type(c_ptr), value :: AP + type(c_ptr), value :: x + integer(c_int), value :: incx + end function hipblasDtpsv + end interface + + interface + function hipblasCtpsv(handle, uplo, transA, diag, n, & + AP, x, incx) & + bind(c, name='hipblasCtpsv') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpsv + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int), value :: n + type(c_ptr), value :: AP + type(c_ptr), value :: x + integer(c_int), value :: incx + end function hipblasCtpsv + end interface + + interface + function hipblasZtpsv(handle, uplo, transA, diag, n, & + AP, x, incx) & + bind(c, name='hipblasZtpsv') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpsv + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int), value :: n + type(c_ptr), value :: AP + type(c_ptr), value :: x + integer(c_int), value :: incx + end function hipblasZtpsv + end interface + + ! tpsv_64 + interface + function hipblasStpsv_64(handle, uplo, transA, diag, n, & + AP, x, incx) & + bind(c, name='hipblasStpsv_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpsv_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int64_t), value :: n + type(c_ptr), value :: AP + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + end function hipblasStpsv_64 + end interface + + interface + function hipblasDtpsv_64(handle, uplo, transA, diag, n, & + AP, x, incx) & + bind(c, name='hipblasDtpsv_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpsv_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int64_t), value :: n + type(c_ptr), value :: AP + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + end function hipblasDtpsv_64 + end interface + + interface + function hipblasCtpsv_64(handle, uplo, transA, diag, n, & + AP, x, incx) & + bind(c, name='hipblasCtpsv_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpsv_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int64_t), value :: n + type(c_ptr), value :: AP + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + end function hipblasCtpsv_64 + end interface + + interface + function hipblasZtpsv_64(handle, uplo, transA, diag, n, & + AP, x, incx) & + bind(c, name='hipblasZtpsv_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpsv_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int64_t), value :: n + type(c_ptr), value :: AP + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + end function hipblasZtpsv_64 + end interface + + ! tpsvBatched + interface + function hipblasStpsvBatched(handle, uplo, transA, diag, n, & + AP, x, incx, batch_count) & + bind(c, name='hipblasStpsvBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpsvBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int), value :: n + type(c_ptr), value :: AP + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int), value :: batch_count + end function hipblasStpsvBatched + end interface + + interface + function hipblasDtpsvBatched(handle, uplo, transA, diag, n, & + AP, x, incx, batch_count) & + bind(c, name='hipblasDtpsvBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpsvBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int), value :: n + type(c_ptr), value :: AP + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int), value :: batch_count + end function hipblasDtpsvBatched + end interface + + interface + function hipblasCtpsvBatched(handle, uplo, transA, diag, n, & + AP, x, incx, batch_count) & + bind(c, name='hipblasCtpsvBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpsvBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int), value :: n + type(c_ptr), value :: AP + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int), value :: batch_count + end function hipblasCtpsvBatched + end interface + + interface + function hipblasZtpsvBatched(handle, uplo, transA, diag, n, & + AP, x, incx, batch_count) & + bind(c, name='hipblasZtpsvBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpsvBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int), value :: n + type(c_ptr), value :: AP + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int), value :: batch_count + end function hipblasZtpsvBatched + end interface + + ! tpsvBatched_64 + interface + function hipblasStpsvBatched_64(handle, uplo, transA, diag, n, & + AP, x, incx, batch_count) & + bind(c, name='hipblasStpsvBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpsvBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int64_t), value :: n + type(c_ptr), value :: AP + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: batch_count + end function hipblasStpsvBatched_64 + end interface + + interface + function hipblasDtpsvBatched_64(handle, uplo, transA, diag, n, & + AP, x, incx, batch_count) & + bind(c, name='hipblasDtpsvBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpsvBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int64_t), value :: n + type(c_ptr), value :: AP + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: batch_count + end function hipblasDtpsvBatched_64 + end interface + + interface + function hipblasCtpsvBatched_64(handle, uplo, transA, diag, n, & + AP, x, incx, batch_count) & + bind(c, name='hipblasCtpsvBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpsvBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int64_t), value :: n + type(c_ptr), value :: AP + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: batch_count + end function hipblasCtpsvBatched_64 + end interface + + interface + function hipblasZtpsvBatched_64(handle, uplo, transA, diag, n, & + AP, x, incx, batch_count) & + bind(c, name='hipblasZtpsvBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpsvBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int64_t), value :: n + type(c_ptr), value :: AP + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: batch_count + end function hipblasZtpsvBatched_64 + end interface + + ! tpsvStridedBatched + interface + function hipblasStpsvStridedBatched(handle, uplo, transA, diag, n, & + AP, stride_AP, x, incx, stride_x, batch_count) & + bind(c, name='hipblasStpsvStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpsvStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int), value :: n + type(c_ptr), value :: AP + integer(c_int64_t), value :: stride_AP + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int), value :: batch_count + end function hipblasStpsvStridedBatched + end interface + + interface + function hipblasDtpsvStridedBatched(handle, uplo, transA, diag, n, & + AP, stride_AP, x, incx, stride_x, batch_count) & + bind(c, name='hipblasDtpsvStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpsvStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int), value :: n + type(c_ptr), value :: AP + integer(c_int64_t), value :: stride_AP + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int), value :: batch_count + end function hipblasDtpsvStridedBatched + end interface + + interface + function hipblasCtpsvStridedBatched(handle, uplo, transA, diag, n, & + AP, stride_AP, x, incx, stride_x, batch_count) & + bind(c, name='hipblasCtpsvStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpsvStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int), value :: n + type(c_ptr), value :: AP + integer(c_int64_t), value :: stride_AP + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int), value :: batch_count + end function hipblasCtpsvStridedBatched + end interface + + interface + function hipblasZtpsvStridedBatched(handle, uplo, transA, diag, n, & + AP, stride_AP, x, incx, stride_x, batch_count) & + bind(c, name='hipblasZtpsvStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpsvStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int), value :: n + type(c_ptr), value :: AP + integer(c_int64_t), value :: stride_AP + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int), value :: batch_count + end function hipblasZtpsvStridedBatched + end interface + + ! tpsvStridedBatched_64 + interface + function hipblasStpsvStridedBatched_64(handle, uplo, transA, diag, n, & + AP, stride_AP, x, incx, stride_x, batch_count) & + bind(c, name='hipblasStpsvStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpsvStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int64_t), value :: n + type(c_ptr), value :: AP + integer(c_int64_t), value :: stride_AP + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int64_t), value :: batch_count + end function hipblasStpsvStridedBatched_64 + end interface + + interface + function hipblasDtpsvStridedBatched_64(handle, uplo, transA, diag, n, & + AP, stride_AP, x, incx, stride_x, batch_count) & + bind(c, name='hipblasDtpsvStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpsvStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int64_t), value :: n + type(c_ptr), value :: AP + integer(c_int64_t), value :: stride_AP + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int64_t), value :: batch_count + end function hipblasDtpsvStridedBatched_64 + end interface + + interface + function hipblasCtpsvStridedBatched_64(handle, uplo, transA, diag, n, & + AP, stride_AP, x, incx, stride_x, batch_count) & + bind(c, name='hipblasCtpsvStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpsvStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int64_t), value :: n + type(c_ptr), value :: AP + integer(c_int64_t), value :: stride_AP + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int64_t), value :: batch_count + end function hipblasCtpsvStridedBatched_64 + end interface + + interface + function hipblasZtpsvStridedBatched_64(handle, uplo, transA, diag, n, & + AP, stride_AP, x, incx, stride_x, batch_count) & + bind(c, name='hipblasZtpsvStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpsvStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)), value :: diag + integer(c_int64_t), value :: n + type(c_ptr), value :: AP + integer(c_int64_t), value :: stride_AP + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + integer(c_int64_t), value :: batch_count + end function hipblasZtpsvStridedBatched_64 + end interface + + ! symv + interface + function hipblasSsymv(handle, uplo, n, alpha, A, lda, & + x, incx, beta, y, incy) & + bind(c, name='hipblasSsymv') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymv + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int), value :: incy + end function hipblasSsymv + end interface + + interface + function hipblasDsymv(handle, uplo, n, alpha, A, lda, & + x, incx, beta, y, incy) & + bind(c, name='hipblasDsymv') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymv + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int), value :: incy + end function hipblasDsymv + end interface + + interface + function hipblasCsymv(handle, uplo, n, alpha, A, lda, & + x, incx, beta, y, incy) & + bind(c, name='hipblasCsymv') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymv + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int), value :: incy + end function hipblasCsymv + end interface + + interface + function hipblasZsymv(handle, uplo, n, alpha, A, lda, & + x, incx, beta, y, incy) & + bind(c, name='hipblasZsymv') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymv + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int), value :: incy + end function hipblasZsymv + end interface + + ! symv_64 + interface + function hipblasSsymv_64(handle, uplo, n, alpha, A, lda, & + x, incx, beta, y, incy) & + bind(c, name='hipblasSsymv_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymv_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + end function hipblasSsymv_64 + end interface + + interface + function hipblasDsymv_64(handle, uplo, n, alpha, A, lda, & + x, incx, beta, y, incy) & + bind(c, name='hipblasDsymv_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymv_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + end function hipblasDsymv_64 + end interface + + interface + function hipblasCsymv_64(handle, uplo, n, alpha, A, lda, & + x, incx, beta, y, incy) & + bind(c, name='hipblasCsymv_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymv_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + end function hipblasCsymv_64 + end interface + + interface + function hipblasZsymv_64(handle, uplo, n, alpha, A, lda, & + x, incx, beta, y, incy) & + bind(c, name='hipblasZsymv_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymv_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + end function hipblasZsymv_64 + end interface + + ! symvBatched + interface + function hipblasSsymvBatched(handle, uplo, n, alpha, A, lda, & + x, incx, beta, y, incy, batch_count) & + bind(c, name='hipblasSsymvBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymvBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int), value :: batch_count + end function hipblasSsymvBatched + end interface + + interface + function hipblasDsymvBatched(handle, uplo, n, alpha, A, lda, & + x, incx, beta, y, incy, batch_count) & + bind(c, name='hipblasDsymvBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymvBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int), value :: batch_count + end function hipblasDsymvBatched + end interface + + interface + function hipblasCsymvBatched(handle, uplo, n, alpha, A, lda, & + x, incx, beta, y, incy, batch_count) & + bind(c, name='hipblasCsymvBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymvBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int), value :: batch_count + end function hipblasCsymvBatched + end interface + + interface + function hipblasZsymvBatched(handle, uplo, n, alpha, A, lda, & + x, incx, beta, y, incy, batch_count) & + bind(c, name='hipblasZsymvBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymvBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int), value :: batch_count + end function hipblasZsymvBatched + end interface + + ! symvBatched_64 + interface + function hipblasSsymvBatched_64(handle, uplo, n, alpha, A, lda, & + x, incx, beta, y, incy, batch_count) & + bind(c, name='hipblasSsymvBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymvBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: batch_count + end function hipblasSsymvBatched_64 + end interface + + interface + function hipblasDsymvBatched_64(handle, uplo, n, alpha, A, lda, & + x, incx, beta, y, incy, batch_count) & + bind(c, name='hipblasDsymvBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymvBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: batch_count + end function hipblasDsymvBatched_64 + end interface + + interface + function hipblasCsymvBatched_64(handle, uplo, n, alpha, A, lda, & + x, incx, beta, y, incy, batch_count) & + bind(c, name='hipblasCsymvBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymvBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: batch_count + end function hipblasCsymvBatched_64 + end interface + + interface + function hipblasZsymvBatched_64(handle, uplo, n, alpha, A, lda, & + x, incx, beta, y, incy, batch_count) & + bind(c, name='hipblasZsymvBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymvBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: batch_count + end function hipblasZsymvBatched_64 + end interface + + ! symvStridedBatched + interface + function hipblasSsymvStridedBatched(handle, uplo, n, alpha, A, lda, stride_A, & + x, incx, stride_x, beta, y, incy, stride_y, batch_count) & + bind(c, name='hipblasSsymvStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymvStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int), value :: batch_count + end function hipblasSsymvStridedBatched + end interface + + interface + function hipblasDsymvStridedBatched(handle, uplo, n, alpha, A, lda, stride_A, & + x, incx, stride_x, beta, y, incy, stride_y, batch_count) & + bind(c, name='hipblasDsymvStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymvStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int), value :: batch_count + end function hipblasDsymvStridedBatched + end interface + + interface + function hipblasCsymvStridedBatched(handle, uplo, n, alpha, A, lda, stride_A, & + x, incx, stride_x, beta, y, incy, stride_y, batch_count) & + bind(c, name='hipblasCsymvStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymvStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int), value :: batch_count + end function hipblasCsymvStridedBatched + end interface + + interface + function hipblasZsymvStridedBatched(handle, uplo, n, alpha, A, lda, stride_A, & + x, incx, stride_x, beta, y, incy, stride_y, batch_count) & + bind(c, name='hipblasZsymvStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymvStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int), value :: batch_count + end function hipblasZsymvStridedBatched + end interface + + ! symvStridedBatched_64 + interface + function hipblasSsymvStridedBatched_64(handle, uplo, n, alpha, A, lda, stride_A, & + x, incx, stride_x, beta, y, incy, stride_y, batch_count) & + bind(c, name='hipblasSsymvStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymvStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int64_t), value :: batch_count + end function hipblasSsymvStridedBatched_64 + end interface + + interface + function hipblasDsymvStridedBatched_64(handle, uplo, n, alpha, A, lda, stride_A, & + x, incx, stride_x, beta, y, incy, stride_y, batch_count) & + bind(c, name='hipblasDsymvStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymvStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int64_t), value :: batch_count + end function hipblasDsymvStridedBatched_64 + end interface + + interface + function hipblasCsymvStridedBatched_64(handle, uplo, n, alpha, A, lda, stride_A, & + x, incx, stride_x, beta, y, incy, stride_y, batch_count) & + bind(c, name='hipblasCsymvStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymvStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int64_t), value :: batch_count + end function hipblasCsymvStridedBatched_64 + end interface + + interface + function hipblasZsymvStridedBatched_64(handle, uplo, n, alpha, A, lda, stride_A, & + x, incx, stride_x, beta, y, incy, stride_y, batch_count) & + bind(c, name='hipblasZsymvStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymvStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int64_t), value :: batch_count + end function hipblasZsymvStridedBatched_64 + end interface + + ! spmv + interface + function hipblasSspmv(handle, uplo, n, alpha, AP, & + x, incx, beta, y, incy) & + bind(c, name='hipblasSspmv') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmv + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: AP + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int), value :: incy + end function hipblasSspmv + end interface + + interface + function hipblasDspmv(handle, uplo, n, alpha, AP, & + x, incx, beta, y, incy) & + bind(c, name='hipblasDspmv') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmv + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: AP + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int), value :: incy + end function hipblasDspmv + end interface + + ! spmv_64 + interface + function hipblasSspmv_64(handle, uplo, n, alpha, AP, & + x, incx, beta, y, incy) & + bind(c, name='hipblasSspmv_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmv_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: AP + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + end function hipblasSspmv_64 + end interface + + interface + function hipblasDspmv_64(handle, uplo, n, alpha, AP, & + x, incx, beta, y, incy) & + bind(c, name='hipblasDspmv_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmv_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: AP + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + end function hipblasDspmv_64 + end interface + + ! spmvBatched + interface + function hipblasSspmvBatched(handle, uplo, n, alpha, AP, & + x, incx, beta, y, incy, batch_count) & + bind(c, name='hipblasSspmvBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmvBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: AP + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int), value :: batch_count + end function hipblasSspmvBatched + end interface + + interface + function hipblasDspmvBatched(handle, uplo, n, alpha, AP, & + x, incx, beta, y, incy, batch_count) & + bind(c, name='hipblasDspmvBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmvBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: AP + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int), value :: batch_count + end function hipblasDspmvBatched + end interface + + ! spmvBatched_64 + interface + function hipblasSspmvBatched_64(handle, uplo, n, alpha, AP, & + x, incx, beta, y, incy, batch_count) & + bind(c, name='hipblasSspmvBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmvBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: AP + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: batch_count + end function hipblasSspmvBatched_64 + end interface + + interface + function hipblasDspmvBatched_64(handle, uplo, n, alpha, AP, & + x, incx, beta, y, incy, batch_count) & + bind(c, name='hipblasDspmvBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmvBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: AP + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: batch_count + end function hipblasDspmvBatched_64 + end interface + + ! spmvStridedBatched + interface + function hipblasSspmvStridedBatched(handle, uplo, n, alpha, AP, stride_AP, & + x, incx, stride_x, beta, y, incy, stride_y, batch_count) & + bind(c, name='hipblasSspmvStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmvStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: AP + integer(c_int64_t), value :: stride_AP + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int), value :: batch_count + end function hipblasSspmvStridedBatched + end interface + + interface + function hipblasDspmvStridedBatched(handle, uplo, n, alpha, AP, stride_AP, & + x, incx, stride_x, beta, y, incy, stride_y, batch_count) & + bind(c, name='hipblasDspmvStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmvStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: AP + integer(c_int64_t), value :: stride_AP + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int), value :: batch_count + end function hipblasDspmvStridedBatched + end interface + + ! spmvStridedBatched_64 + interface + function hipblasSspmvStridedBatched_64(handle, uplo, n, alpha, AP, stride_AP, & + x, incx, stride_x, beta, y, incy, stride_y, batch_count) & + bind(c, name='hipblasSspmvStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmvStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: AP + integer(c_int64_t), value :: stride_AP + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int64_t), value :: batch_count + end function hipblasSspmvStridedBatched_64 + end interface + + interface + function hipblasDspmvStridedBatched_64(handle, uplo, n, alpha, AP, stride_AP, & + x, incx, stride_x, beta, y, incy, stride_y, batch_count) & + bind(c, name='hipblasDspmvStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmvStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: AP + integer(c_int64_t), value :: stride_AP + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int64_t), value :: batch_count + end function hipblasDspmvStridedBatched_64 + end interface + + ! sbmv + interface + function hipblasSsbmv(handle, uplo, n, k, alpha, A, lda, & + x, incx, beta, y, incy) & + bind(c, name='hipblasSsbmv') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmv + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int), value :: incy + end function hipblasSsbmv + end interface + + interface + function hipblasDsbmv(handle, uplo, n, k, alpha, A, lda, & + x, incx, beta, y, incy) & + bind(c, name='hipblasDsbmv') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmv + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int), value :: incy + end function hipblasDsbmv + end interface + + ! sbmv_64 + interface + function hipblasSsbmv_64(handle, uplo, n, k, alpha, A, lda, & + x, incx, beta, y, incy) & + bind(c, name='hipblasSsbmv_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmv_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + end function hipblasSsbmv_64 + end interface + + interface + function hipblasDsbmv_64(handle, uplo, n, k, alpha, A, lda, & + x, incx, beta, y, incy) & + bind(c, name='hipblasDsbmv_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmv_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + end function hipblasDsbmv_64 + end interface + + ! sbmvBatched + interface + function hipblasSsbmvBatched(handle, uplo, n, k, alpha, A, lda, & + x, incx, beta, y, incy, batch_count) & + bind(c, name='hipblasSsbmvBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmvBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int), value :: batch_count + end function hipblasSsbmvBatched + end interface + + interface + function hipblasDsbmvBatched(handle, uplo, n, k, alpha, A, lda, & + x, incx, beta, y, incy, batch_count) & + bind(c, name='hipblasDsbmvBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmvBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int), value :: batch_count + end function hipblasDsbmvBatched + end interface + + ! sbmvBatched_64 + interface + function hipblasSsbmvBatched_64(handle, uplo, n, k, alpha, A, lda, & + x, incx, beta, y, incy, batch_count) & + bind(c, name='hipblasSsbmvBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmvBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: batch_count + end function hipblasSsbmvBatched_64 + end interface + + interface + function hipblasDsbmvBatched_64(handle, uplo, n, k, alpha, A, lda, & + x, incx, beta, y, incy, batch_count) & + bind(c, name='hipblasDsbmvBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmvBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: batch_count + end function hipblasDsbmvBatched_64 + end interface + + ! sbmvStridedBatched + interface + function hipblasSsbmvStridedBatched(handle, uplo, n, k, alpha, A, lda, stride_A, & + x, incx, stride_x, beta, y, incy, stride_y, batch_count) & + bind(c, name='hipblasSsbmvStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmvStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int), value :: batch_count + end function hipblasSsbmvStridedBatched + end interface + + interface + function hipblasDsbmvStridedBatched(handle, uplo, n, k, alpha, A, lda, stride_A, & + x, incx, stride_x, beta, y, incy, stride_y, batch_count) & + bind(c, name='hipblasDsbmvStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmvStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int), value :: batch_count + end function hipblasDsbmvStridedBatched + end interface + + ! sbmvStridedBatched_64 + interface + function hipblasSsbmvStridedBatched_64(handle, uplo, n, k, alpha, A, lda, stride_A, & + x, incx, stride_x, beta, y, incy, stride_y, batch_count) & + bind(c, name='hipblasSsbmvStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmvStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int64_t), value :: batch_count + end function hipblasSsbmvStridedBatched_64 + end interface + + interface + function hipblasDsbmvStridedBatched_64(handle, uplo, n, k, alpha, A, lda, stride_A, & + x, incx, stride_x, beta, y, incy, stride_y, batch_count) & + bind(c, name='hipblasDsbmvStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmvStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: beta + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: stride_y + integer(c_int64_t), value :: batch_count + end function hipblasDsbmvStridedBatched_64 + end interface + + ! ger + interface + function hipblasSger(handle, m, n, alpha, x, incx, & + y, incy, A, lda) & + bind(c, name='hipblasSger') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSger + type(c_ptr), value :: handle + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + type(c_ptr), value :: A + integer(c_int), value :: lda + end function hipblasSger + end interface + + interface + function hipblasDger(handle, m, n, alpha, x, incx, & + y, incy, A, lda) & + bind(c, name='hipblasDger') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDger + type(c_ptr), value :: handle + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + type(c_ptr), value :: A + integer(c_int), value :: lda + end function hipblasDger + end interface + + interface + function hipblasCgeru(handle, m, n, alpha, x, incx, & + y, incy, A, lda) & + bind(c, name='hipblasCgeru') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeru + type(c_ptr), value :: handle + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + type(c_ptr), value :: A + integer(c_int), value :: lda + end function hipblasCgeru + end interface + + interface + function hipblasCgerc(handle, m, n, alpha, x, incx, & + y, incy, A, lda) & + bind(c, name='hipblasCgerc') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgerc + type(c_ptr), value :: handle + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + type(c_ptr), value :: A + integer(c_int), value :: lda + end function hipblasCgerc + end interface + + interface + function hipblasZgeru(handle, m, n, alpha, x, incx, & + y, incy, A, lda) & + bind(c, name='hipblasZgeru') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeru + type(c_ptr), value :: handle + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + type(c_ptr), value :: A + integer(c_int), value :: lda + end function hipblasZgeru + end interface + + interface + function hipblasZgerc(handle, m, n, alpha, x, incx, & + y, incy, A, lda) & + bind(c, name='hipblasZgerc') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgerc + type(c_ptr), value :: handle + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + type(c_ptr), value :: A + integer(c_int), value :: lda + end function hipblasZgerc + end interface + + ! ger_64 + interface + function hipblasSger_64(handle, m, n, alpha, x, incx, & + y, incy, A, lda) & + bind(c, name='hipblasSger_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSger_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + end function hipblasSger_64 + end interface + + interface + function hipblasDger_64(handle, m, n, alpha, x, incx, & + y, incy, A, lda) & + bind(c, name='hipblasDger_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDger_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + end function hipblasDger_64 + end interface + + interface + function hipblasCgeru_64(handle, m, n, alpha, x, incx, & + y, incy, A, lda) & + bind(c, name='hipblasCgeru_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeru_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + end function hipblasCgeru_64 + end interface + + interface + function hipblasCgerc_64(handle, m, n, alpha, x, incx, & + y, incy, A, lda) & + bind(c, name='hipblasCgerc_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgerc_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + end function hipblasCgerc_64 + end interface + + interface + function hipblasZgeru_64(handle, m, n, alpha, x, incx, & + y, incy, A, lda) & + bind(c, name='hipblasZgeru_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeru_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + end function hipblasZgeru_64 + end interface + + interface + function hipblasZgerc_64(handle, m, n, alpha, x, incx, & + y, incy, A, lda) & + bind(c, name='hipblasZgerc_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgerc_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + end function hipblasZgerc_64 + end interface + + ! gerBatched + interface + function hipblasSgerBatched(handle, m, n, alpha, x, incx, & + y, incy, A, lda, batch_count) & + bind(c, name='hipblasSgerBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgerBatched + type(c_ptr), value :: handle + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int), value :: batch_count + end function hipblasSgerBatched + end interface + + interface + function hipblasDgerBatched(handle, m, n, alpha, x, incx, & + y, incy, A, lda, batch_count) & + bind(c, name='hipblasDgerBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgerBatched + type(c_ptr), value :: handle + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int), value :: batch_count + end function hipblasDgerBatched + end interface + + interface + function hipblasCgeruBatched(handle, m, n, alpha, x, incx, & + y, incy, A, lda, batch_count) & + bind(c, name='hipblasCgeruBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeruBatched + type(c_ptr), value :: handle + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int), value :: batch_count + end function hipblasCgeruBatched + end interface + + interface + function hipblasCgercBatched(handle, m, n, alpha, x, incx, & + y, incy, A, lda, batch_count) & + bind(c, name='hipblasCgercBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgercBatched + type(c_ptr), value :: handle + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int), value :: batch_count + end function hipblasCgercBatched + end interface + + interface + function hipblasZgeruBatched(handle, m, n, alpha, x, incx, & + y, incy, A, lda, batch_count) & + bind(c, name='hipblasZgeruBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeruBatched + type(c_ptr), value :: handle + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int), value :: batch_count + end function hipblasZgeruBatched + end interface + + interface + function hipblasZgercBatched(handle, m, n, alpha, x, incx, & + y, incy, A, lda, batch_count) & + bind(c, name='hipblasZgercBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgercBatched + type(c_ptr), value :: handle + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int), value :: batch_count + end function hipblasZgercBatched + end interface + + ! gerBatched_64 + interface + function hipblasSgerBatched_64(handle, m, n, alpha, x, incx, & + y, incy, A, lda, batch_count) & + bind(c, name='hipblasSgerBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgerBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: batch_count + end function hipblasSgerBatched_64 + end interface + + interface + function hipblasDgerBatched_64(handle, m, n, alpha, x, incx, & + y, incy, A, lda, batch_count) & + bind(c, name='hipblasDgerBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgerBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: batch_count + end function hipblasDgerBatched_64 + end interface + + interface + function hipblasCgeruBatched_64(handle, m, n, alpha, x, incx, & + y, incy, A, lda, batch_count) & + bind(c, name='hipblasCgeruBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeruBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: batch_count + end function hipblasCgeruBatched_64 + end interface + + interface + function hipblasCgercBatched_64(handle, m, n, alpha, x, incx, & + y, incy, A, lda, batch_count) & + bind(c, name='hipblasCgercBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgercBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: batch_count + end function hipblasCgercBatched_64 + end interface + + interface + function hipblasZgeruBatched_64(handle, m, n, alpha, x, incx, & + y, incy, A, lda, batch_count) & + bind(c, name='hipblasZgeruBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeruBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: batch_count + end function hipblasZgeruBatched_64 + end interface + + interface + function hipblasZgercBatched_64(handle, m, n, alpha, x, incx, & + y, incy, A, lda, batch_count) & + bind(c, name='hipblasZgercBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgercBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: batch_count + end function hipblasZgercBatched_64 + end interface + + ! gerStridedBatched + interface + function hipblasSgerStridedBatched(handle, m, n, alpha, x, incx, stride_x, & + y, incy, stride_y, A, lda, stride_A, batch_count) & + bind(c, name='hipblasSgerStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgerStridedBatched + type(c_ptr), value :: handle + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int64_t), value :: stride_y + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + integer(c_int), value :: batch_count + end function hipblasSgerStridedBatched + end interface + + interface + function hipblasDgerStridedBatched(handle, m, n, alpha, x, incx, stride_x, & + y, incy, stride_y, A, lda, stride_A, batch_count) & + bind(c, name='hipblasDgerStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgerStridedBatched + type(c_ptr), value :: handle + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int64_t), value :: stride_y + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + integer(c_int), value :: batch_count + end function hipblasDgerStridedBatched + end interface + + interface + function hipblasCgeruStridedBatched(handle, m, n, alpha, x, incx, stride_x, & + y, incy, stride_y, A, lda, stride_A, batch_count) & + bind(c, name='hipblasCgeruStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeruStridedBatched + type(c_ptr), value :: handle + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int64_t), value :: stride_y + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + integer(c_int), value :: batch_count + end function hipblasCgeruStridedBatched + end interface + + interface + function hipblasCgercStridedBatched(handle, m, n, alpha, x, incx, stride_x, & + y, incy, stride_y, A, lda, stride_A, batch_count) & + bind(c, name='hipblasCgercStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgercStridedBatched + type(c_ptr), value :: handle + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int64_t), value :: stride_y + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + integer(c_int), value :: batch_count + end function hipblasCgercStridedBatched + end interface + + interface + function hipblasZgeruStridedBatched(handle, m, n, alpha, x, incx, stride_x, & + y, incy, stride_y, A, lda, stride_A, batch_count) & + bind(c, name='hipblasZgeruStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeruStridedBatched + type(c_ptr), value :: handle + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int64_t), value :: stride_y + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + integer(c_int), value :: batch_count + end function hipblasZgeruStridedBatched + end interface + + interface + function hipblasZgercStridedBatched(handle, m, n, alpha, x, incx, stride_x, & + y, incy, stride_y, A, lda, stride_A, batch_count) & + bind(c, name='hipblasZgercStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgercStridedBatched + type(c_ptr), value :: handle + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int64_t), value :: stride_y + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + integer(c_int), value :: batch_count + end function hipblasZgercStridedBatched + end interface + + ! gerStridedBatched_64 + interface + function hipblasSgerStridedBatched_64(handle, m, n, alpha, x, incx, stride_x, & + y, incy, stride_y, A, lda, stride_A, batch_count) & + bind(c, name='hipblasSgerStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgerStridedBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: stride_y + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + integer(c_int64_t), value :: batch_count + end function hipblasSgerStridedBatched_64 + end interface + + interface + function hipblasDgerStridedBatched_64(handle, m, n, alpha, x, incx, stride_x, & + y, incy, stride_y, A, lda, stride_A, batch_count) & + bind(c, name='hipblasDgerStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgerStridedBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: stride_y + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + integer(c_int64_t), value :: batch_count + end function hipblasDgerStridedBatched_64 + end interface + + interface + function hipblasCgeruStridedBatched_64(handle, m, n, alpha, x, incx, stride_x, & + y, incy, stride_y, A, lda, stride_A, batch_count) & + bind(c, name='hipblasCgeruStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeruStridedBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: stride_y + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + integer(c_int64_t), value :: batch_count + end function hipblasCgeruStridedBatched_64 + end interface + + interface + function hipblasCgercStridedBatched_64(handle, m, n, alpha, x, incx, stride_x, & + y, incy, stride_y, A, lda, stride_A, batch_count) & + bind(c, name='hipblasCgercStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgercStridedBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: stride_y + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + integer(c_int64_t), value :: batch_count + end function hipblasCgercStridedBatched_64 + end interface + + interface + function hipblasZgeruStridedBatched_64(handle, m, n, alpha, x, incx, stride_x, & + y, incy, stride_y, A, lda, stride_A, batch_count) & + bind(c, name='hipblasZgeruStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeruStridedBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: stride_y + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + integer(c_int64_t), value :: batch_count + end function hipblasZgeruStridedBatched_64 + end interface + + interface + function hipblasZgercStridedBatched_64(handle, m, n, alpha, x, incx, stride_x, & + y, incy, stride_y, A, lda, stride_A, batch_count) & + bind(c, name='hipblasZgercStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgercStridedBatched_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: stride_y + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + integer(c_int64_t), value :: batch_count + end function hipblasZgercStridedBatched_64 + end interface + + ! spr + interface + function hipblasSspr(handle, uplo, n, alpha, x, incx, AP) & + bind(c, name='hipblasSspr') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: AP + end function hipblasSspr + end interface + + interface + function hipblasDspr(handle, uplo, n, alpha, x, incx, AP) & + bind(c, name='hipblasDspr') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: AP + end function hipblasDspr + end interface + + interface + function hipblasCspr(handle, uplo, n, alpha, x, incx, AP) & + bind(c, name='hipblasCspr') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCspr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: AP + end function hipblasCspr + end interface + + interface + function hipblasZspr(handle, uplo, n, alpha, x, incx, AP) & + bind(c, name='hipblasZspr') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZspr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: AP + end function hipblasZspr + end interface + + ! spr_64 + interface + function hipblasSspr_64(handle, uplo, n, alpha, x, incx, AP) & + bind(c, name='hipblasSspr_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: AP + end function hipblasSspr_64 + end interface + + interface + function hipblasDspr_64(handle, uplo, n, alpha, x, incx, AP) & + bind(c, name='hipblasDspr_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: AP + end function hipblasDspr_64 + end interface + + interface + function hipblasCspr_64(handle, uplo, n, alpha, x, incx, AP) & + bind(c, name='hipblasCspr_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCspr_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: AP + end function hipblasCspr_64 + end interface + + interface + function hipblasZspr_64(handle, uplo, n, alpha, x, incx, AP) & + bind(c, name='hipblasZspr_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZspr_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: AP + end function hipblasZspr_64 + end interface + + ! sprBatched + interface + function hipblasSsprBatched(handle, uplo, n, alpha, x, incx, AP, batch_count) & + bind(c, name='hipblasSsprBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsprBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: AP + integer(c_int), value :: batch_count + end function hipblasSsprBatched + end interface + + interface + function hipblasDsprBatched(handle, uplo, n, alpha, x, incx, AP, batch_count) & + bind(c, name='hipblasDsprBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsprBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: AP + integer(c_int), value :: batch_count + end function hipblasDsprBatched + end interface + + interface + function hipblasCsprBatched(handle, uplo, n, alpha, x, incx, AP, batch_count) & + bind(c, name='hipblasCsprBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsprBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: AP + integer(c_int), value :: batch_count + end function hipblasCsprBatched + end interface + + interface + function hipblasZsprBatched(handle, uplo, n, alpha, x, incx, AP, batch_count) & + bind(c, name='hipblasZsprBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsprBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: AP + integer(c_int), value :: batch_count + end function hipblasZsprBatched + end interface + + ! sprBatched_64 + interface + function hipblasSsprBatched_64(handle, uplo, n, alpha, x, incx, AP, batch_count) & + bind(c, name='hipblasSsprBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsprBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: AP + integer(c_int64_t), value :: batch_count + end function hipblasSsprBatched_64 + end interface + + interface + function hipblasDsprBatched_64(handle, uplo, n, alpha, x, incx, AP, batch_count) & + bind(c, name='hipblasDsprBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsprBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: AP + integer(c_int64_t), value :: batch_count + end function hipblasDsprBatched_64 + end interface + + interface + function hipblasCsprBatched_64(handle, uplo, n, alpha, x, incx, AP, batch_count) & + bind(c, name='hipblasCsprBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsprBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: AP + integer(c_int64_t), value :: batch_count + end function hipblasCsprBatched_64 + end interface + + interface + function hipblasZsprBatched_64(handle, uplo, n, alpha, x, incx, AP, batch_count) & + bind(c, name='hipblasZsprBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsprBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: AP + integer(c_int64_t), value :: batch_count + end function hipblasZsprBatched_64 + end interface + + ! sprStridedBatched + interface + function hipblasSsprStridedBatched(handle, uplo, n, alpha, x, incx, stride_x, & + AP, stride_AP, batch_count) & + bind(c, name='hipblasSsprStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsprStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: AP + integer(c_int64_t), value :: stride_AP + integer(c_int), value :: batch_count + end function hipblasSsprStridedBatched + end interface + + interface + function hipblasDsprStridedBatched(handle, uplo, n, alpha, x, incx, stride_x, & + AP, stride_AP, batch_count) & + bind(c, name='hipblasDsprStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsprStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: AP + integer(c_int64_t), value :: stride_AP + integer(c_int), value :: batch_count + end function hipblasDsprStridedBatched + end interface + + interface + function hipblasCsprStridedBatched(handle, uplo, n, alpha, x, incx, stride_x, & + AP, stride_AP, batch_count) & + bind(c, name='hipblasCsprStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsprStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: AP + integer(c_int64_t), value :: stride_AP + integer(c_int), value :: batch_count + end function hipblasCsprStridedBatched + end interface + + interface + function hipblasZsprStridedBatched(handle, uplo, n, alpha, x, incx, stride_x, & + AP, stride_AP, batch_count) & + bind(c, name='hipblasZsprStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsprStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: AP + integer(c_int64_t), value :: stride_AP + integer(c_int), value :: batch_count + end function hipblasZsprStridedBatched + end interface + + ! sprStridedBatched_64 + interface + function hipblasSsprStridedBatched_64(handle, uplo, n, alpha, x, incx, stride_x, & + AP, stride_AP, batch_count) & + bind(c, name='hipblasSsprStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsprStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: AP + integer(c_int64_t), value :: stride_AP + integer(c_int64_t), value :: batch_count + end function hipblasSsprStridedBatched_64 + end interface + + interface + function hipblasDsprStridedBatched_64(handle, uplo, n, alpha, x, incx, stride_x, & + AP, stride_AP, batch_count) & + bind(c, name='hipblasDsprStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsprStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: AP + integer(c_int64_t), value :: stride_AP + integer(c_int64_t), value :: batch_count + end function hipblasDsprStridedBatched_64 + end interface + + interface + function hipblasCsprStridedBatched_64(handle, uplo, n, alpha, x, incx, stride_x, & + AP, stride_AP, batch_count) & + bind(c, name='hipblasCsprStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsprStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: AP + integer(c_int64_t), value :: stride_AP + integer(c_int64_t), value :: batch_count + end function hipblasCsprStridedBatched_64 + end interface + + interface + function hipblasZsprStridedBatched_64(handle, uplo, n, alpha, x, incx, stride_x, & + AP, stride_AP, batch_count) & + bind(c, name='hipblasZsprStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsprStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: AP + integer(c_int64_t), value :: stride_AP + integer(c_int64_t), value :: batch_count + end function hipblasZsprStridedBatched_64 + end interface + + ! spr2 + interface + function hipblasSspr2(handle, uplo, n, alpha, x, incx, & + y, incy, AP) & + bind(c, name='hipblasSspr2') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + type(c_ptr), value :: AP + end function hipblasSspr2 + end interface + + interface + function hipblasDspr2(handle, uplo, n, alpha, x, incx, & + y, incy, AP) & + bind(c, name='hipblasDspr2') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + type(c_ptr), value :: AP + end function hipblasDspr2 + end interface + + ! spr2_64 + interface + function hipblasSspr2_64(handle, uplo, n, alpha, x, incx, & + y, incy, AP) & + bind(c, name='hipblasSspr2_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + type(c_ptr), value :: AP + end function hipblasSspr2_64 + end interface + + interface + function hipblasDspr2_64(handle, uplo, n, alpha, x, incx, & + y, incy, AP) & + bind(c, name='hipblasDspr2_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + type(c_ptr), value :: AP + end function hipblasDspr2_64 + end interface + + ! spr2Batched + interface + function hipblasSspr2Batched(handle, uplo, n, alpha, x, incx, & + y, incy, AP, batch_count) & + bind(c, name='hipblasSspr2Batched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2Batched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + type(c_ptr), value :: AP + integer(c_int), value :: batch_count + end function hipblasSspr2Batched + end interface + + interface + function hipblasDspr2Batched(handle, uplo, n, alpha, x, incx, & + y, incy, AP, batch_count) & + bind(c, name='hipblasDspr2Batched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2Batched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + type(c_ptr), value :: AP + integer(c_int), value :: batch_count + end function hipblasDspr2Batched + end interface + + ! spr2Batched_64 + interface + function hipblasSspr2Batched_64(handle, uplo, n, alpha, x, incx, & + y, incy, AP, batch_count) & + bind(c, name='hipblasSspr2Batched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2Batched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + type(c_ptr), value :: AP + integer(c_int64_t), value :: batch_count + end function hipblasSspr2Batched_64 + end interface + + interface + function hipblasDspr2Batched_64(handle, uplo, n, alpha, x, incx, & + y, incy, AP, batch_count) & + bind(c, name='hipblasDspr2Batched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2Batched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + type(c_ptr), value :: AP + integer(c_int64_t), value :: batch_count + end function hipblasDspr2Batched_64 + end interface + + ! spr2StridedBatched + interface + function hipblasSspr2StridedBatched(handle, uplo, n, alpha, x, incx, stride_x, & + y, incy, stride_y, AP, stride_AP, batch_count) & + bind(c, name='hipblasSspr2StridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2StridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int64_t), value :: stride_y + type(c_ptr), value :: AP + integer(c_int64_t), value :: stride_AP + integer(c_int), value :: batch_count + end function hipblasSspr2StridedBatched + end interface + + interface + function hipblasDspr2StridedBatched(handle, uplo, n, alpha, x, incx, stride_x, & + y, incy, stride_y, AP, stride_AP, batch_count) & + bind(c, name='hipblasDspr2StridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2StridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int64_t), value :: stride_y + type(c_ptr), value :: AP + integer(c_int64_t), value :: stride_AP + integer(c_int), value :: batch_count + end function hipblasDspr2StridedBatched + end interface + + ! spr2StridedBatched_64 + interface + function hipblasSspr2StridedBatched_64(handle, uplo, n, alpha, x, incx, stride_x, & + y, incy, stride_y, AP, stride_AP, batch_count) & + bind(c, name='hipblasSspr2StridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2StridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: stride_y + type(c_ptr), value :: AP + integer(c_int64_t), value :: stride_AP + integer(c_int64_t), value :: batch_count + end function hipblasSspr2StridedBatched_64 + end interface + + interface + function hipblasDspr2StridedBatched_64(handle, uplo, n, alpha, x, incx, stride_x, & + y, incy, stride_y, AP, stride_AP, batch_count) & + bind(c, name='hipblasDspr2StridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2StridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: stride_y + type(c_ptr), value :: AP + integer(c_int64_t), value :: stride_AP + integer(c_int64_t), value :: batch_count + end function hipblasDspr2StridedBatched_64 + end interface + + ! syr + interface + function hipblasSsyr(handle, uplo, n, alpha, x, incx, A, lda) & + bind(c, name='hipblasSsyr') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: A + integer(c_int), value :: lda + end function hipblasSsyr + end interface + + interface + function hipblasDsyr(handle, uplo, n, alpha, x, incx, A, lda) & + bind(c, name='hipblasDsyr') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: A + integer(c_int), value :: lda + end function hipblasDsyr + end interface + + interface + function hipblasCsyr(handle, uplo, n, alpha, x, incx, A, lda) & + bind(c, name='hipblasCsyr') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: A + integer(c_int), value :: lda + end function hipblasCsyr + end interface + + interface + function hipblasZsyr(handle, uplo, n, alpha, x, incx, A, lda) & + bind(c, name='hipblasZsyr') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: A + integer(c_int), value :: lda + end function hipblasZsyr + end interface + + ! syr_64 + interface + function hipblasSsyr_64(handle, uplo, n, alpha, x, incx, A, lda) & + bind(c, name='hipblasSsyr_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + end function hipblasSsyr_64 + end interface + + interface + function hipblasDsyr_64(handle, uplo, n, alpha, x, incx, A, lda) & + bind(c, name='hipblasDsyr_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + end function hipblasDsyr_64 + end interface + + interface + function hipblasCsyr_64(handle, uplo, n, alpha, x, incx, A, lda) & + bind(c, name='hipblasCsyr_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + end function hipblasCsyr_64 + end interface + + interface + function hipblasZsyr_64(handle, uplo, n, alpha, x, incx, A, lda) & + bind(c, name='hipblasZsyr_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + end function hipblasZsyr_64 + end interface + + ! syrBatched + interface + function hipblasSsyrBatched(handle, uplo, n, alpha, x, incx, A, lda, batch_count) & + bind(c, name='hipblasSsyrBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int), value :: batch_count + end function hipblasSsyrBatched + end interface + + interface + function hipblasDsyrBatched(handle, uplo, n, alpha, x, incx, A, lda, batch_count) & + bind(c, name='hipblasDsyrBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int), value :: batch_count + end function hipblasDsyrBatched + end interface + + interface + function hipblasCsyrBatched(handle, uplo, n, alpha, x, incx, A, lda, batch_count) & + bind(c, name='hipblasCsyrBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int), value :: batch_count + end function hipblasCsyrBatched + end interface + + interface + function hipblasZsyrBatched(handle, uplo, n, alpha, x, incx, A, lda, batch_count) & + bind(c, name='hipblasZsyrBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int), value :: batch_count + end function hipblasZsyrBatched + end interface + + ! syrBatched_64 + interface + function hipblasSsyrBatched_64(handle, uplo, n, alpha, x, incx, A, lda, batch_count) & + bind(c, name='hipblasSsyrBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: batch_count + end function hipblasSsyrBatched_64 + end interface + + interface + function hipblasDsyrBatched_64(handle, uplo, n, alpha, x, incx, A, lda, batch_count) & + bind(c, name='hipblasDsyrBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: batch_count + end function hipblasDsyrBatched_64 + end interface + + interface + function hipblasCsyrBatched_64(handle, uplo, n, alpha, x, incx, A, lda, batch_count) & + bind(c, name='hipblasCsyrBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: batch_count + end function hipblasCsyrBatched_64 + end interface + + interface + function hipblasZsyrBatched_64(handle, uplo, n, alpha, x, incx, A, lda, batch_count) & + bind(c, name='hipblasZsyrBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: batch_count + end function hipblasZsyrBatched_64 + end interface + + ! syrStridedBatched + interface + function hipblasSsyrStridedBatched(handle, uplo, n, alpha, x, incx, stride_x, & + A, lda, stride_A, batch_count) & + bind(c, name='hipblasSsyrStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + integer(c_int), value :: batch_count + end function hipblasSsyrStridedBatched + end interface + + interface + function hipblasDsyrStridedBatched(handle, uplo, n, alpha, x, incx, stride_x, & + A, lda, stride_A, batch_count) & + bind(c, name='hipblasDsyrStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + integer(c_int), value :: batch_count + end function hipblasDsyrStridedBatched + end interface + + interface + function hipblasCsyrStridedBatched(handle, uplo, n, alpha, x, incx, stride_x, & + A, lda, stride_A, batch_count) & + bind(c, name='hipblasCsyrStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + integer(c_int), value :: batch_count + end function hipblasCsyrStridedBatched + end interface + + interface + function hipblasZsyrStridedBatched(handle, uplo, n, alpha, x, incx, stride_x, & + A, lda, stride_A, batch_count) & + bind(c, name='hipblasZsyrStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + integer(c_int), value :: batch_count + end function hipblasZsyrStridedBatched + end interface + + ! syrStridedBatched_64 + interface + function hipblasSsyrStridedBatched_64(handle, uplo, n, alpha, x, incx, stride_x, & + A, lda, stride_A, batch_count) & + bind(c, name='hipblasSsyrStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + integer(c_int64_t), value :: batch_count + end function hipblasSsyrStridedBatched_64 + end interface + + interface + function hipblasDsyrStridedBatched_64(handle, uplo, n, alpha, x, incx, stride_x, & + A, lda, stride_A, batch_count) & + bind(c, name='hipblasDsyrStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + integer(c_int64_t), value :: batch_count + end function hipblasDsyrStridedBatched_64 + end interface + + interface + function hipblasCsyrStridedBatched_64(handle, uplo, n, alpha, x, incx, stride_x, & + A, lda, stride_A, batch_count) & + bind(c, name='hipblasCsyrStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + integer(c_int64_t), value :: batch_count + end function hipblasCsyrStridedBatched_64 + end interface + + interface + function hipblasZsyrStridedBatched_64(handle, uplo, n, alpha, x, incx, stride_x, & + A, lda, stride_A, batch_count) & + bind(c, name='hipblasZsyrStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + integer(c_int64_t), value :: batch_count + end function hipblasZsyrStridedBatched_64 + end interface + + ! syr2 + interface + function hipblasSsyr2(handle, uplo, n, alpha, x, incx, & + y, incy, A, lda) & + bind(c, name='hipblasSsyr2') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + type(c_ptr), value :: A + integer(c_int), value :: lda + end function hipblasSsyr2 + end interface + + interface + function hipblasDsyr2(handle, uplo, n, alpha, x, incx, & + y, incy, A, lda) & + bind(c, name='hipblasDsyr2') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + type(c_ptr), value :: A + integer(c_int), value :: lda + end function hipblasDsyr2 + end interface + + interface + function hipblasCsyr2(handle, uplo, n, alpha, x, incx, & + y, incy, A, lda) & + bind(c, name='hipblasCsyr2') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + type(c_ptr), value :: A + integer(c_int), value :: lda + end function hipblasCsyr2 + end interface + + interface + function hipblasZsyr2(handle, uplo, n, alpha, x, incx, & + y, incy, A, lda) & + bind(c, name='hipblasZsyr2') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + type(c_ptr), value :: A + integer(c_int), value :: lda + end function hipblasZsyr2 + end interface + + ! syr2_64 + interface + function hipblasSsyr2_64(handle, uplo, n, alpha, x, incx, & + y, incy, A, lda) & + bind(c, name='hipblasSsyr2_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + end function hipblasSsyr2_64 + end interface + + interface + function hipblasDsyr2_64(handle, uplo, n, alpha, x, incx, & + y, incy, A, lda) & + bind(c, name='hipblasDsyr2_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + end function hipblasDsyr2_64 + end interface + + interface + function hipblasCsyr2_64(handle, uplo, n, alpha, x, incx, & + y, incy, A, lda) & + bind(c, name='hipblasCsyr2_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + end function hipblasCsyr2_64 + end interface + + interface + function hipblasZsyr2_64(handle, uplo, n, alpha, x, incx, & + y, incy, A, lda) & + bind(c, name='hipblasZsyr2_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + end function hipblasZsyr2_64 + end interface + + ! syr2Batched + interface + function hipblasSsyr2Batched(handle, uplo, n, alpha, x, incx, & + y, incy, A, lda, batch_count) & + bind(c, name='hipblasSsyr2Batched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2Batched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int), value :: batch_count + end function hipblasSsyr2Batched + end interface + + interface + function hipblasDsyr2Batched(handle, uplo, n, alpha, x, incx, & + y, incy, A, lda, batch_count) & + bind(c, name='hipblasDsyr2Batched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2Batched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int), value :: batch_count + end function hipblasDsyr2Batched + end interface + + interface + function hipblasCsyr2Batched(handle, uplo, n, alpha, x, incx, & + y, incy, A, lda, batch_count) & + bind(c, name='hipblasCsyr2Batched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2Batched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int), value :: batch_count + end function hipblasCsyr2Batched + end interface + + interface + function hipblasZsyr2Batched(handle, uplo, n, alpha, x, incx, & + y, incy, A, lda, batch_count) & + bind(c, name='hipblasZsyr2Batched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2Batched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(c_int), value :: incy + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int), value :: batch_count + end function hipblasZsyr2Batched + end interface + + ! syr2Batched_64 + interface + function hipblasSsyr2Batched_64(handle, uplo, n, alpha, x, incx, & + y, incy, A, lda, batch_count) & + bind(c, name='hipblasSsyr2Batched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2Batched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: batch_count + end function hipblasSsyr2Batched_64 + end interface + + interface + function hipblasDsyr2Batched_64(handle, uplo, n, alpha, x, incx, & + y, incy, A, lda, batch_count) & + bind(c, name='hipblasDsyr2Batched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2Batched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: batch_count + end function hipblasDsyr2Batched_64 + end interface + + interface + function hipblasCsyr2Batched_64(handle, uplo, n, alpha, x, incx, & + y, incy, A, lda, batch_count) & + bind(c, name='hipblasCsyr2Batched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2Batched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: batch_count + end function hipblasCsyr2Batched_64 + end interface + + interface + function hipblasZsyr2Batched_64(handle, uplo, n, alpha, x, incx, & + y, incy, A, lda, batch_count) & + bind(c, name='hipblasZsyr2Batched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2Batched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: batch_count + end function hipblasZsyr2Batched_64 + end interface + + ! syr2StridedBatched + interface + function hipblasSsyr2StridedBatched(handle, uplo, n, alpha, x, incx, stride_x, & + y, incy, stride_y, A, lda, stride_A, batch_count) & + bind(c, name='hipblasSsyr2StridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2StridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int64_t), value :: stride_y + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + integer(c_int), value :: batch_count + end function hipblasSsyr2StridedBatched + end interface + + interface + function hipblasDsyr2StridedBatched(handle, uplo, n, alpha, x, incx, stride_x, & + y, incy, stride_y, A, lda, stride_A, batch_count) & + bind(c, name='hipblasDsyr2StridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2StridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int64_t), value :: stride_y + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + integer(c_int), value :: batch_count + end function hipblasDsyr2StridedBatched + end interface + + interface + function hipblasCsyr2StridedBatched(handle, uplo, n, alpha, x, incx, stride_x, & + y, incy, stride_y, A, lda, stride_A, batch_count) & + bind(c, name='hipblasCsyr2StridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2StridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int64_t), value :: stride_y + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + integer(c_int), value :: batch_count + end function hipblasCsyr2StridedBatched + end interface + + interface + function hipblasZsyr2StridedBatched(handle, uplo, n, alpha, x, incx, stride_x, & + y, incy, stride_y, A, lda, stride_A, batch_count) & + bind(c, name='hipblasZsyr2StridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2StridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int), value :: incy + integer(c_int64_t), value :: stride_y + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + integer(c_int), value :: batch_count + end function hipblasZsyr2StridedBatched + end interface + + ! syr2StridedBatched_64 + interface + function hipblasSsyr2StridedBatched_64(handle, uplo, n, alpha, x, incx, stride_x, & + y, incy, stride_y, A, lda, stride_A, batch_count) & + bind(c, name='hipblasSsyr2StridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2StridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: stride_y + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + integer(c_int64_t), value :: batch_count + end function hipblasSsyr2StridedBatched_64 + end interface + + interface + function hipblasDsyr2StridedBatched_64(handle, uplo, n, alpha, x, incx, stride_x, & + y, incy, stride_y, A, lda, stride_A, batch_count) & + bind(c, name='hipblasDsyr2StridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2StridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: stride_y + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + integer(c_int64_t), value :: batch_count + end function hipblasDsyr2StridedBatched_64 + end interface + + interface + function hipblasCsyr2StridedBatched_64(handle, uplo, n, alpha, x, incx, stride_x, & + y, incy, stride_y, A, lda, stride_A, batch_count) & + bind(c, name='hipblasCsyr2StridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2StridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: stride_y + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + integer(c_int64_t), value :: batch_count + end function hipblasCsyr2StridedBatched_64 + end interface + + interface + function hipblasZsyr2StridedBatched_64(handle, uplo, n, alpha, x, incx, stride_x, & + y, incy, stride_y, A, lda, stride_A, batch_count) & + bind(c, name='hipblasZsyr2StridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2StridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: y + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: stride_y + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + integer(c_int64_t), value :: batch_count + end function hipblasZsyr2StridedBatched_64 + end interface + + !--------! + ! blas 3 ! + !--------! + + ! hemm + interface + function hipblasChemm(handle, side, uplo, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc) & + bind(c, name='hipblasChemm') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemm + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + end function hipblasChemm + end interface + + interface + function hipblasZhemm(handle, side, uplo, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc) & + bind(c, name='hipblasZhemm') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemm + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + end function hipblasZhemm + end interface + + ! hemm_64 + interface + function hipblasChemm_64(handle, side, uplo, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc) & + bind(c, name='hipblasChemm_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemm_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + end function hipblasChemm_64 + end interface + + interface + function hipblasZhemm_64(handle, side, uplo, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc) & + bind(c, name='hipblasZhemm_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemm_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + end function hipblasZhemm_64 + end interface + + ! hemmBatched + interface + function hipblasChemmBatched(handle, side, uplo, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc, batch_count) & + bind(c, name='hipblasChemmBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemmBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int), value :: batch_count + end function hipblasChemmBatched + end interface + + interface + function hipblasZhemmBatched(handle, side, uplo, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc, batch_count) & + bind(c, name='hipblasZhemmBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemmBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int), value :: batch_count + end function hipblasZhemmBatched + end interface + + ! hemmBatched_64 + interface + function hipblasChemmBatched_64(handle, side, uplo, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc, batch_count) & + bind(c, name='hipblasChemmBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemmBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: batch_count + end function hipblasChemmBatched_64 + end interface + + interface + function hipblasZhemmBatched_64(handle, side, uplo, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc, batch_count) & + bind(c, name='hipblasZhemmBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemmBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: batch_count + end function hipblasZhemmBatched_64 + end interface + + ! hemmStridedBatched + interface + function hipblasChemmStridedBatched(handle, side, uplo, n, k, alpha, & + A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasChemmStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemmStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: B + integer(c_int), value :: ldb + integer(c_int64_t), value :: stride_B + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int), value :: batch_count + end function hipblasChemmStridedBatched + end interface + + interface + function hipblasZhemmStridedBatched(handle, side, uplo, n, k, alpha, & + A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasZhemmStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemmStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: B + integer(c_int), value :: ldb + integer(c_int64_t), value :: stride_B + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int), value :: batch_count + end function hipblasZhemmStridedBatched + end interface + + ! hemmStridedBatched_64 + interface + function hipblasChemmStridedBatched_64(handle, side, uplo, n, k, alpha, & + A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasChemmStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemmStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + integer(c_int64_t), value :: stride_B + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int64_t), value :: batch_count + end function hipblasChemmStridedBatched_64 + end interface + + interface + function hipblasZhemmStridedBatched_64(handle, side, uplo, n, k, alpha, & + A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasZhemmStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemmStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + integer(c_int64_t), value :: stride_B + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int64_t), value :: batch_count + end function hipblasZhemmStridedBatched_64 + end interface + + ! herk + interface + function hipblasCherk(handle, uplo, transA, n, k, alpha, & + A, lda, beta, C, ldc) & + bind(c, name='hipblasCherk') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherk + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + end function hipblasCherk + end interface + + interface + function hipblasZherk(handle, uplo, transA, n, k, alpha, & + A, lda, beta, C, ldc) & + bind(c, name='hipblasZherk') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherk + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + end function hipblasZherk + end interface + + ! herk_64 + interface + function hipblasCherk_64(handle, uplo, transA, n, k, alpha, & + A, lda, beta, C, ldc) & + bind(c, name='hipblasCherk_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherk_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + end function hipblasCherk_64 + end interface + + interface + function hipblasZherk_64(handle, uplo, transA, n, k, alpha, & + A, lda, beta, C, ldc) & + bind(c, name='hipblasZherk_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherk_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + end function hipblasZherk_64 + end interface + + ! herkBatched + interface + function hipblasCherkBatched(handle, uplo, transA, n, k, alpha, & + A, lda, beta, C, ldc, batch_count) & + bind(c, name='hipblasCherkBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int), value :: batch_count + end function hipblasCherkBatched + end interface + + interface + function hipblasZherkBatched(handle, uplo, transA, n, k, alpha, & + A, lda, beta, C, ldc, batch_count) & + bind(c, name='hipblasZherkBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int), value :: batch_count + end function hipblasZherkBatched + end interface + + ! herkBatched_64 + interface + function hipblasCherkBatched_64(handle, uplo, transA, n, k, alpha, & + A, lda, beta, C, ldc, batch_count) & + bind(c, name='hipblasCherkBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: batch_count + end function hipblasCherkBatched_64 + end interface + + interface + function hipblasZherkBatched_64(handle, uplo, transA, n, k, alpha, & + A, lda, beta, C, ldc, batch_count) & + bind(c, name='hipblasZherkBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: batch_count + end function hipblasZherkBatched_64 + end interface + + ! herkStridedBatched + interface + function hipblasCherkStridedBatched(handle, uplo, transA, n, k, alpha, & + A, lda, stride_A, beta, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasCherkStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int), value :: batch_count + end function hipblasCherkStridedBatched + end interface + + interface + function hipblasZherkStridedBatched(handle, uplo, transA, n, k, alpha, & + A, lda, stride_A, beta, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasZherkStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int), value :: batch_count + end function hipblasZherkStridedBatched + end interface + + ! herkStridedBatched_64 + interface + function hipblasCherkStridedBatched_64(handle, uplo, transA, n, k, alpha, & + A, lda, stride_A, beta, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasCherkStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int64_t), value :: batch_count + end function hipblasCherkStridedBatched_64 + end interface + + interface + function hipblasZherkStridedBatched_64(handle, uplo, transA, n, k, alpha, & + A, lda, stride_A, beta, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasZherkStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int64_t), value :: batch_count + end function hipblasZherkStridedBatched_64 + end interface + + ! her2k + interface + function hipblasCher2k(handle, uplo, transA, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc) & + bind(c, name='hipblasCher2k') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2k + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + end function hipblasCher2k + end interface + + interface + function hipblasZher2k(handle, uplo, transA, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc) & + bind(c, name='hipblasZher2k') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2k + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + end function hipblasZher2k + end interface + + ! her2k_64 + interface + function hipblasCher2k_64(handle, uplo, transA, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc) & + bind(c, name='hipblasCher2k_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2k_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + end function hipblasCher2k_64 + end interface + + interface + function hipblasZher2k_64(handle, uplo, transA, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc) & + bind(c, name='hipblasZher2k_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2k_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + end function hipblasZher2k_64 + end interface + + ! her2kBatched + interface + function hipblasCher2kBatched(handle, uplo, transA, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc, batch_count) & + bind(c, name='hipblasCher2kBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2kBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int), value :: batch_count + end function hipblasCher2kBatched + end interface + + interface + function hipblasZher2kBatched(handle, uplo, transA, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc, batch_count) & + bind(c, name='hipblasZher2kBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2kBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int), value :: batch_count + end function hipblasZher2kBatched + end interface + + ! her2kBatched_64 + interface + function hipblasCher2kBatched_64(handle, uplo, transA, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc, batch_count) & + bind(c, name='hipblasCher2kBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2kBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: batch_count + end function hipblasCher2kBatched_64 + end interface + + interface + function hipblasZher2kBatched_64(handle, uplo, transA, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc, batch_count) & + bind(c, name='hipblasZher2kBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2kBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: batch_count + end function hipblasZher2kBatched_64 + end interface + + ! her2kStridedBatched + interface + function hipblasCher2kStridedBatched(handle, uplo, transA, n, k, alpha, & + A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasCher2kStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2kStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: B + integer(c_int), value :: ldb + integer(c_int64_t), value :: stride_B + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int), value :: batch_count + end function hipblasCher2kStridedBatched + end interface + + interface + function hipblasZher2kStridedBatched(handle, uplo, transA, n, k, alpha, & + A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasZher2kStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2kStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: B + integer(c_int), value :: ldb + integer(c_int64_t), value :: stride_B + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int), value :: batch_count + end function hipblasZher2kStridedBatched + end interface + + ! her2kStridedBatched_64 + interface + function hipblasCher2kStridedBatched_64(handle, uplo, transA, n, k, alpha, & + A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasCher2kStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2kStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + integer(c_int64_t), value :: stride_B + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int64_t), value :: batch_count + end function hipblasCher2kStridedBatched_64 + end interface + + interface + function hipblasZher2kStridedBatched_64(handle, uplo, transA, n, k, alpha, & + A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasZher2kStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2kStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + integer(c_int64_t), value :: stride_B + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int64_t), value :: batch_count + end function hipblasZher2kStridedBatched_64 + end interface + + ! herkx + interface + function hipblasCherkx(handle, uplo, transA, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc) & + bind(c, name='hipblasCherkx') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkx + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + end function hipblasCherkx + end interface + + interface + function hipblasZherkx(handle, uplo, transA, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc) & + bind(c, name='hipblasZherkx') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkx + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + end function hipblasZherkx + end interface + + ! herkx_64 + interface + function hipblasCherkx_64(handle, uplo, transA, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc) & + bind(c, name='hipblasCherkx_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkx_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + end function hipblasCherkx_64 + end interface + + interface + function hipblasZherkx_64(handle, uplo, transA, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc) & + bind(c, name='hipblasZherkx_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkx_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + end function hipblasZherkx_64 + end interface + + ! herkxBatched + interface + function hipblasCherkxBatched(handle, uplo, transA, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc, batch_count) & + bind(c, name='hipblasCherkxBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkxBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int), value :: batch_count + end function hipblasCherkxBatched + end interface + + interface + function hipblasZherkxBatched(handle, uplo, transA, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc, batch_count) & + bind(c, name='hipblasZherkxBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkxBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int), value :: batch_count + end function hipblasZherkxBatched + end interface + + ! herkxBatched_64 + interface + function hipblasCherkxBatched_64(handle, uplo, transA, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc, batch_count) & + bind(c, name='hipblasCherkxBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkxBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: batch_count + end function hipblasCherkxBatched_64 + end interface + + interface + function hipblasZherkxBatched_64(handle, uplo, transA, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc, batch_count) & + bind(c, name='hipblasZherkxBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkxBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: batch_count + end function hipblasZherkxBatched_64 + end interface + + ! herkxStridedBatched + interface + function hipblasCherkxStridedBatched(handle, uplo, transA, n, k, alpha, & + A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasCherkxStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkxStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: B + integer(c_int), value :: ldb + integer(c_int64_t), value :: stride_B + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int), value :: batch_count + end function hipblasCherkxStridedBatched + end interface + + interface + function hipblasZherkxStridedBatched(handle, uplo, transA, n, k, alpha, & + A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasZherkxStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkxStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: B + integer(c_int), value :: ldb + integer(c_int64_t), value :: stride_B + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int), value :: batch_count + end function hipblasZherkxStridedBatched + end interface + + ! herkxStridedBatched_64 + interface + function hipblasCherkxStridedBatched_64(handle, uplo, transA, n, k, alpha, & + A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasCherkxStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkxStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + integer(c_int64_t), value :: stride_B + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int64_t), value :: batch_count + end function hipblasCherkxStridedBatched_64 + end interface + + interface + function hipblasZherkxStridedBatched_64(handle, uplo, transA, n, k, alpha, & + A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasZherkxStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkxStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + integer(c_int64_t), value :: stride_B + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int64_t), value :: batch_count + end function hipblasZherkxStridedBatched_64 + end interface + + ! symm + interface + function hipblasSsymm(handle, side, uplo, m, n, alpha, & + A, lda, B, ldb, beta, C, ldc) & + bind(c, name='hipblasSsymm') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymm + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + end function hipblasSsymm + end interface + + interface + function hipblasDsymm(handle, side, uplo, m, n, alpha, & + A, lda, B, ldb, beta, C, ldc) & + bind(c, name='hipblasDsymm') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymm + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + end function hipblasDsymm + end interface + + interface + function hipblasCsymm(handle, side, uplo, m, n, alpha, & + A, lda, B, ldb, beta, C, ldc) & + bind(c, name='hipblasCsymm') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymm + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + end function hipblasCsymm + end interface + + interface + function hipblasZsymm(handle, side, uplo, m, n, alpha, & + A, lda, B, ldb, beta, C, ldc) & + bind(c, name='hipblasZsymm') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymm + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + end function hipblasZsymm + end interface + + ! symm_64 + interface + function hipblasSsymm_64(handle, side, uplo, m, n, alpha, & + A, lda, B, ldb, beta, C, ldc) & + bind(c, name='hipblasSsymm_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymm_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + end function hipblasSsymm_64 + end interface + + interface + function hipblasDsymm_64(handle, side, uplo, m, n, alpha, & + A, lda, B, ldb, beta, C, ldc) & + bind(c, name='hipblasDsymm_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymm_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + end function hipblasDsymm_64 + end interface + + interface + function hipblasCsymm_64(handle, side, uplo, m, n, alpha, & + A, lda, B, ldb, beta, C, ldc) & + bind(c, name='hipblasCsymm_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymm_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + end function hipblasCsymm_64 + end interface + + interface + function hipblasZsymm_64(handle, side, uplo, m, n, alpha, & + A, lda, B, ldb, beta, C, ldc) & + bind(c, name='hipblasZsymm_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymm_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + end function hipblasZsymm_64 + end interface + + ! symmBatched + interface + function hipblasSsymmBatched(handle, side, uplo, m, n, alpha, & + A, lda, B, ldb, beta, C, ldc, batch_count) & + bind(c, name='hipblasSsymmBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymmBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int), value :: batch_count + end function hipblasSsymmBatched + end interface + + interface + function hipblasDsymmBatched(handle, side, uplo, m, n, alpha, & + A, lda, B, ldb, beta, C, ldc, batch_count) & + bind(c, name='hipblasDsymmBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymmBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int), value :: batch_count + end function hipblasDsymmBatched + end interface + + interface + function hipblasCsymmBatched(handle, side, uplo, m, n, alpha, & + A, lda, B, ldb, beta, C, ldc, batch_count) & + bind(c, name='hipblasCsymmBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymmBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int), value :: batch_count + end function hipblasCsymmBatched + end interface + + interface + function hipblasZsymmBatched(handle, side, uplo, m, n, alpha, & + A, lda, B, ldb, beta, C, ldc, batch_count) & + bind(c, name='hipblasZsymmBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymmBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int), value :: batch_count + end function hipblasZsymmBatched + end interface + + ! symmBatched_64 + interface + function hipblasSsymmBatched_64(handle, side, uplo, m, n, alpha, & + A, lda, B, ldb, beta, C, ldc, batch_count) & + bind(c, name='hipblasSsymmBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymmBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: batch_count + end function hipblasSsymmBatched_64 + end interface + + interface + function hipblasDsymmBatched_64(handle, side, uplo, m, n, alpha, & + A, lda, B, ldb, beta, C, ldc, batch_count) & + bind(c, name='hipblasDsymmBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymmBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: batch_count + end function hipblasDsymmBatched_64 + end interface + + interface + function hipblasCsymmBatched_64(handle, side, uplo, m, n, alpha, & + A, lda, B, ldb, beta, C, ldc, batch_count) & + bind(c, name='hipblasCsymmBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymmBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: batch_count + end function hipblasCsymmBatched_64 + end interface + + interface + function hipblasZsymmBatched_64(handle, side, uplo, m, n, alpha, & + A, lda, B, ldb, beta, C, ldc, batch_count) & + bind(c, name='hipblasZsymmBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymmBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: batch_count + end function hipblasZsymmBatched_64 + end interface + + ! symmStridedBatched + interface + function hipblasSsymmStridedBatched(handle, side, uplo, m, n, alpha, & + A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasSsymmStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymmStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: B + integer(c_int), value :: ldb + integer(c_int64_t), value :: stride_B + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int), value :: batch_count + end function hipblasSsymmStridedBatched + end interface + + interface + function hipblasDsymmStridedBatched(handle, side, uplo, m, n, alpha, & + A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasDsymmStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymmStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: B + integer(c_int), value :: ldb + integer(c_int64_t), value :: stride_B + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int), value :: batch_count + end function hipblasDsymmStridedBatched + end interface + + interface + function hipblasCsymmStridedBatched(handle, side, uplo, m, n, alpha, & + A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasCsymmStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymmStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: B + integer(c_int), value :: ldb + integer(c_int64_t), value :: stride_B + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int), value :: batch_count + end function hipblasCsymmStridedBatched + end interface + + interface + function hipblasZsymmStridedBatched(handle, side, uplo, m, n, alpha, & + A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasZsymmStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymmStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: B + integer(c_int), value :: ldb + integer(c_int64_t), value :: stride_B + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int), value :: batch_count + end function hipblasZsymmStridedBatched + end interface + + ! symmStridedBatched_64 + interface + function hipblasSsymmStridedBatched_64(handle, side, uplo, m, n, alpha, & + A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasSsymmStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymmStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + integer(c_int64_t), value :: stride_B + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int64_t), value :: batch_count + end function hipblasSsymmStridedBatched_64 + end interface + + interface + function hipblasDsymmStridedBatched_64(handle, side, uplo, m, n, alpha, & + A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasDsymmStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymmStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + integer(c_int64_t), value :: stride_B + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int64_t), value :: batch_count + end function hipblasDsymmStridedBatched_64 + end interface + + interface + function hipblasCsymmStridedBatched_64(handle, side, uplo, m, n, alpha, & + A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasCsymmStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymmStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + integer(c_int64_t), value :: stride_B + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int64_t), value :: batch_count + end function hipblasCsymmStridedBatched_64 + end interface + + interface + function hipblasZsymmStridedBatched_64(handle, side, uplo, m, n, alpha, & + A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasZsymmStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymmStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + integer(c_int64_t), value :: stride_B + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int64_t), value :: batch_count + end function hipblasZsymmStridedBatched_64 + end interface + + ! syrk + interface + function hipblasSsyrk(handle, uplo, transA, n, k, alpha, & + A, lda, beta, C, ldc) & + bind(c, name='hipblasSsyrk') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrk + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + end function hipblasSsyrk + end interface + + interface + function hipblasDsyrk(handle, uplo, transA, n, k, alpha, & + A, lda, beta, C, ldc) & + bind(c, name='hipblasDsyrk') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrk + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + end function hipblasDsyrk + end interface + + interface + function hipblasCsyrk(handle, uplo, transA, n, k, alpha, & + A, lda, beta, C, ldc) & + bind(c, name='hipblasCsyrk') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrk + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + end function hipblasCsyrk + end interface + + interface + function hipblasZsyrk(handle, uplo, transA, n, k, alpha, & + A, lda, beta, C, ldc) & + bind(c, name='hipblasZsyrk') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrk + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + end function hipblasZsyrk + end interface + + ! syrk_64 + interface + function hipblasSsyrk_64(handle, uplo, transA, n, k, alpha, & + A, lda, beta, C, ldc) & + bind(c, name='hipblasSsyrk_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrk_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + end function hipblasSsyrk_64 + end interface + + interface + function hipblasDsyrk_64(handle, uplo, transA, n, k, alpha, & + A, lda, beta, C, ldc) & + bind(c, name='hipblasDsyrk_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrk_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + end function hipblasDsyrk_64 + end interface + + interface + function hipblasCsyrk_64(handle, uplo, transA, n, k, alpha, & + A, lda, beta, C, ldc) & + bind(c, name='hipblasCsyrk_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrk_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + end function hipblasCsyrk_64 + end interface + + interface + function hipblasZsyrk_64(handle, uplo, transA, n, k, alpha, & + A, lda, beta, C, ldc) & + bind(c, name='hipblasZsyrk_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrk_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + end function hipblasZsyrk_64 + end interface + + ! syrkBatched + interface + function hipblasSsyrkBatched(handle, uplo, transA, n, k, alpha, & + A, lda, beta, C, ldc, batch_count) & + bind(c, name='hipblasSsyrkBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int), value :: batch_count + end function hipblasSsyrkBatched + end interface + + interface + function hipblasDsyrkBatched(handle, uplo, transA, n, k, alpha, & + A, lda, beta, C, ldc, batch_count) & + bind(c, name='hipblasDsyrkBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int), value :: batch_count + end function hipblasDsyrkBatched + end interface + + interface + function hipblasCsyrkBatched(handle, uplo, transA, n, k, alpha, & + A, lda, beta, C, ldc, batch_count) & + bind(c, name='hipblasCsyrkBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int), value :: batch_count + end function hipblasCsyrkBatched + end interface + + interface + function hipblasZsyrkBatched(handle, uplo, transA, n, k, alpha, & + A, lda, beta, C, ldc, batch_count) & + bind(c, name='hipblasZsyrkBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int), value :: batch_count + end function hipblasZsyrkBatched + end interface + + ! syrkBatched_64 + interface + function hipblasSsyrkBatched_64(handle, uplo, transA, n, k, alpha, & + A, lda, beta, C, ldc, batch_count) & + bind(c, name='hipblasSsyrkBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: batch_count + end function hipblasSsyrkBatched_64 + end interface + + interface + function hipblasDsyrkBatched_64(handle, uplo, transA, n, k, alpha, & + A, lda, beta, C, ldc, batch_count) & + bind(c, name='hipblasDsyrkBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: batch_count + end function hipblasDsyrkBatched_64 + end interface + + interface + function hipblasCsyrkBatched_64(handle, uplo, transA, n, k, alpha, & + A, lda, beta, C, ldc, batch_count) & + bind(c, name='hipblasCsyrkBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: batch_count + end function hipblasCsyrkBatched_64 + end interface + + interface + function hipblasZsyrkBatched_64(handle, uplo, transA, n, k, alpha, & + A, lda, beta, C, ldc, batch_count) & + bind(c, name='hipblasZsyrkBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: batch_count + end function hipblasZsyrkBatched_64 + end interface + + ! syrkStridedBatched + interface + function hipblasSsyrkStridedBatched(handle, uplo, transA, n, k, alpha, & + A, lda, stride_A, beta, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasSsyrkStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int), value :: batch_count + end function hipblasSsyrkStridedBatched + end interface + + interface + function hipblasDsyrkStridedBatched(handle, uplo, transA, n, k, alpha, & + A, lda, stride_A, beta, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasDsyrkStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int), value :: batch_count + end function hipblasDsyrkStridedBatched + end interface + + interface + function hipblasCsyrkStridedBatched(handle, uplo, transA, n, k, alpha, & + A, lda, stride_A, beta, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasCsyrkStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int), value :: batch_count + end function hipblasCsyrkStridedBatched + end interface + + interface + function hipblasZsyrkStridedBatched(handle, uplo, transA, n, k, alpha, & + A, lda, stride_A, beta, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasZsyrkStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int), value :: batch_count + end function hipblasZsyrkStridedBatched + end interface + + ! syrkStridedBatched_64 + interface + function hipblasSsyrkStridedBatched_64(handle, uplo, transA, n, k, alpha, & + A, lda, stride_A, beta, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasSsyrkStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int64_t), value :: batch_count + end function hipblasSsyrkStridedBatched_64 + end interface + + interface + function hipblasDsyrkStridedBatched_64(handle, uplo, transA, n, k, alpha, & + A, lda, stride_A, beta, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasDsyrkStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int64_t), value :: batch_count + end function hipblasDsyrkStridedBatched_64 + end interface + + interface + function hipblasCsyrkStridedBatched_64(handle, uplo, transA, n, k, alpha, & + A, lda, stride_A, beta, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasCsyrkStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int64_t), value :: batch_count + end function hipblasCsyrkStridedBatched_64 + end interface + + interface + function hipblasZsyrkStridedBatched_64(handle, uplo, transA, n, k, alpha, & + A, lda, stride_A, beta, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasZsyrkStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int64_t), value :: batch_count + end function hipblasZsyrkStridedBatched_64 + end interface + + ! syr2k + interface + function hipblasSsyr2k(handle, uplo, transA, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc) & + bind(c, name='hipblasSsyr2k') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2k + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + end function hipblasSsyr2k + end interface + + interface + function hipblasDsyr2k(handle, uplo, transA, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc) & + bind(c, name='hipblasDsyr2k') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2k + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + end function hipblasDsyr2k + end interface + + interface + function hipblasCsyr2k(handle, uplo, transA, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc) & + bind(c, name='hipblasCsyr2k') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2k + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + end function hipblasCsyr2k + end interface + + interface + function hipblasZsyr2k(handle, uplo, transA, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc) & + bind(c, name='hipblasZsyr2k') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2k + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + end function hipblasZsyr2k + end interface + + ! syr2k_64 + interface + function hipblasSsyr2k_64(handle, uplo, transA, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc) & + bind(c, name='hipblasSsyr2k_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2k_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + end function hipblasSsyr2k_64 + end interface + + interface + function hipblasDsyr2k_64(handle, uplo, transA, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc) & + bind(c, name='hipblasDsyr2k_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2k_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + end function hipblasDsyr2k_64 + end interface + + interface + function hipblasCsyr2k_64(handle, uplo, transA, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc) & + bind(c, name='hipblasCsyr2k_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2k_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + end function hipblasCsyr2k_64 + end interface + + interface + function hipblasZsyr2k_64(handle, uplo, transA, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc) & + bind(c, name='hipblasZsyr2k_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2k_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + end function hipblasZsyr2k_64 + end interface + + ! syr2kBatched + interface + function hipblasSsyr2kBatched(handle, uplo, transA, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc, batch_count) & + bind(c, name='hipblasSsyr2kBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2kBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int), value :: batch_count + end function hipblasSsyr2kBatched + end interface + + interface + function hipblasDsyr2kBatched(handle, uplo, transA, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc, batch_count) & + bind(c, name='hipblasDsyr2kBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2kBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int), value :: batch_count + end function hipblasDsyr2kBatched + end interface + + interface + function hipblasCsyr2kBatched(handle, uplo, transA, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc, batch_count) & + bind(c, name='hipblasCsyr2kBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2kBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int), value :: batch_count + end function hipblasCsyr2kBatched + end interface + + interface + function hipblasZsyr2kBatched(handle, uplo, transA, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc, batch_count) & + bind(c, name='hipblasZsyr2kBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2kBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int), value :: batch_count + end function hipblasZsyr2kBatched + end interface + + ! syr2kBatched_64 + interface + function hipblasSsyr2kBatched_64(handle, uplo, transA, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc, batch_count) & + bind(c, name='hipblasSsyr2kBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2kBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: batch_count + end function hipblasSsyr2kBatched_64 + end interface + + interface + function hipblasDsyr2kBatched_64(handle, uplo, transA, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc, batch_count) & + bind(c, name='hipblasDsyr2kBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2kBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: batch_count + end function hipblasDsyr2kBatched_64 + end interface + + interface + function hipblasCsyr2kBatched_64(handle, uplo, transA, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc, batch_count) & + bind(c, name='hipblasCsyr2kBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2kBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: batch_count + end function hipblasCsyr2kBatched_64 + end interface + + interface + function hipblasZsyr2kBatched_64(handle, uplo, transA, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc, batch_count) & + bind(c, name='hipblasZsyr2kBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2kBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: batch_count + end function hipblasZsyr2kBatched_64 + end interface + + ! syr2kStridedBatched + interface + function hipblasSsyr2kStridedBatched(handle, uplo, transA, n, k, alpha, & + A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasSsyr2kStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2kStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: B + integer(c_int), value :: ldb + integer(c_int64_t), value :: stride_B + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int), value :: batch_count + end function hipblasSsyr2kStridedBatched + end interface + + interface + function hipblasDsyr2kStridedBatched(handle, uplo, transA, n, k, alpha, & + A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasDsyr2kStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2kStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: B + integer(c_int), value :: ldb + integer(c_int64_t), value :: stride_B + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int), value :: batch_count + end function hipblasDsyr2kStridedBatched + end interface + + interface + function hipblasCsyr2kStridedBatched(handle, uplo, transA, n, k, alpha, & + A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasCsyr2kStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2kStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: B + integer(c_int), value :: ldb + integer(c_int64_t), value :: stride_B + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int), value :: batch_count + end function hipblasCsyr2kStridedBatched + end interface + + interface + function hipblasZsyr2kStridedBatched(handle, uplo, transA, n, k, alpha, & + A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasZsyr2kStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2kStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: B + integer(c_int), value :: ldb + integer(c_int64_t), value :: stride_B + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int), value :: batch_count + end function hipblasZsyr2kStridedBatched + end interface + + ! syr2kStridedBatched_64 + interface + function hipblasSsyr2kStridedBatched_64(handle, uplo, transA, n, k, alpha, & + A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasSsyr2kStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2kStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + integer(c_int64_t), value :: stride_B + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int64_t), value :: batch_count + end function hipblasSsyr2kStridedBatched_64 + end interface + + interface + function hipblasDsyr2kStridedBatched_64(handle, uplo, transA, n, k, alpha, & + A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasDsyr2kStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2kStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + integer(c_int64_t), value :: stride_B + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int64_t), value :: batch_count + end function hipblasDsyr2kStridedBatched_64 + end interface + + interface + function hipblasCsyr2kStridedBatched_64(handle, uplo, transA, n, k, alpha, & + A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasCsyr2kStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2kStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + integer(c_int64_t), value :: stride_B + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int64_t), value :: batch_count + end function hipblasCsyr2kStridedBatched_64 + end interface + + interface + function hipblasZsyr2kStridedBatched_64(handle, uplo, transA, n, k, alpha, & + A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasZsyr2kStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2kStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + integer(c_int64_t), value :: stride_B + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int64_t), value :: batch_count + end function hipblasZsyr2kStridedBatched_64 + end interface + + ! syrkx + interface + function hipblasSsyrkx(handle, uplo, transA, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc) & + bind(c, name='hipblasSsyrkx') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkx + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + end function hipblasSsyrkx + end interface + + interface + function hipblasDsyrkx(handle, uplo, transA, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc) & + bind(c, name='hipblasDsyrkx') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkx + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + end function hipblasDsyrkx + end interface + + interface + function hipblasCsyrkx(handle, uplo, transA, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc) & + bind(c, name='hipblasCsyrkx') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkx + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + end function hipblasCsyrkx + end interface + + interface + function hipblasZsyrkx(handle, uplo, transA, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc) & + bind(c, name='hipblasZsyrkx') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkx + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + end function hipblasZsyrkx + end interface + + ! syrkx_64 + interface + function hipblasSsyrkx_64(handle, uplo, transA, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc) & + bind(c, name='hipblasSsyrkx_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkx_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + end function hipblasSsyrkx_64 + end interface + + interface + function hipblasDsyrkx_64(handle, uplo, transA, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc) & + bind(c, name='hipblasDsyrkx_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkx_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + end function hipblasDsyrkx_64 + end interface + + interface + function hipblasCsyrkx_64(handle, uplo, transA, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc) & + bind(c, name='hipblasCsyrkx_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkx_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + end function hipblasCsyrkx_64 + end interface + + interface + function hipblasZsyrkx_64(handle, uplo, transA, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc) & + bind(c, name='hipblasZsyrkx_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkx_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + end function hipblasZsyrkx_64 + end interface + + ! syrkxBatched + interface + function hipblasSsyrkxBatched(handle, uplo, transA, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc, batch_count) & + bind(c, name='hipblasSsyrkxBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkxBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int), value :: batch_count + end function hipblasSsyrkxBatched + end interface + + interface + function hipblasDsyrkxBatched(handle, uplo, transA, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc, batch_count) & + bind(c, name='hipblasDsyrkxBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkxBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int), value :: batch_count + end function hipblasDsyrkxBatched + end interface + + interface + function hipblasCsyrkxBatched(handle, uplo, transA, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc, batch_count) & + bind(c, name='hipblasCsyrkxBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkxBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int), value :: batch_count + end function hipblasCsyrkxBatched + end interface + + interface + function hipblasZsyrkxBatched(handle, uplo, transA, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc, batch_count) & + bind(c, name='hipblasZsyrkxBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkxBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int), value :: batch_count + end function hipblasZsyrkxBatched + end interface + + ! syrkxBatched_64 + interface + function hipblasSsyrkxBatched_64(handle, uplo, transA, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc, batch_count) & + bind(c, name='hipblasSsyrkxBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkxBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: batch_count + end function hipblasSsyrkxBatched_64 + end interface + + interface + function hipblasDsyrkxBatched_64(handle, uplo, transA, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc, batch_count) & + bind(c, name='hipblasDsyrkxBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkxBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: batch_count + end function hipblasDsyrkxBatched_64 + end interface + + interface + function hipblasCsyrkxBatched_64(handle, uplo, transA, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc, batch_count) & + bind(c, name='hipblasCsyrkxBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkxBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: batch_count + end function hipblasCsyrkxBatched_64 + end interface + + interface + function hipblasZsyrkxBatched_64(handle, uplo, transA, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc, batch_count) & + bind(c, name='hipblasZsyrkxBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkxBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: batch_count + end function hipblasZsyrkxBatched_64 + end interface + + ! syrkxStridedBatched + interface + function hipblasSsyrkxStridedBatched(handle, uplo, transA, n, k, alpha, & + A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasSsyrkxStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkxStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: B + integer(c_int), value :: ldb + integer(c_int64_t), value :: stride_B + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int), value :: batch_count + end function hipblasSsyrkxStridedBatched + end interface + + interface + function hipblasDsyrkxStridedBatched(handle, uplo, transA, n, k, alpha, & + A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasDsyrkxStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkxStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: B + integer(c_int), value :: ldb + integer(c_int64_t), value :: stride_B + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int), value :: batch_count + end function hipblasDsyrkxStridedBatched + end interface + + interface + function hipblasCsyrkxStridedBatched(handle, uplo, transA, n, k, alpha, & + A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasCsyrkxStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkxStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: B + integer(c_int), value :: ldb + integer(c_int64_t), value :: stride_B + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int), value :: batch_count + end function hipblasCsyrkxStridedBatched + end interface + + interface + function hipblasZsyrkxStridedBatched(handle, uplo, transA, n, k, alpha, & + A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasZsyrkxStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkxStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: B + integer(c_int), value :: ldb + integer(c_int64_t), value :: stride_B + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int), value :: batch_count + end function hipblasZsyrkxStridedBatched + end interface + + ! syrkxStridedBatched_64 + interface + function hipblasSsyrkxStridedBatched_64(handle, uplo, transA, n, k, alpha, & + A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasSsyrkxStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkxStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + integer(c_int64_t), value :: stride_B + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int64_t), value :: batch_count + end function hipblasSsyrkxStridedBatched_64 + end interface + + interface + function hipblasDsyrkxStridedBatched_64(handle, uplo, transA, n, k, alpha, & + A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasDsyrkxStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkxStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + integer(c_int64_t), value :: stride_B + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int64_t), value :: batch_count + end function hipblasDsyrkxStridedBatched_64 + end interface + + interface + function hipblasCsyrkxStridedBatched_64(handle, uplo, transA, n, k, alpha, & + A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasCsyrkxStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkxStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + integer(c_int64_t), value :: stride_B + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int64_t), value :: batch_count + end function hipblasCsyrkxStridedBatched_64 + end interface + + interface + function hipblasZsyrkxStridedBatched_64(handle, uplo, transA, n, k, alpha, & + A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasZsyrkxStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkxStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + integer(c_int64_t), value :: stride_B + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int64_t), value :: batch_count + end function hipblasZsyrkxStridedBatched_64 + end interface + + ! trmm + interface + function hipblasStrmm(handle, side, uplo, transA, diag, m, n, alpha, & + A, lda, B, ldb, C, ldc) & + bind(c, name='hipblasStrmm') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmm + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: C + integer(c_int), value :: ldc + end function hipblasStrmm + end interface + + interface + function hipblasDtrmm(handle, side, uplo, transA, diag, m, n, alpha, & + A, lda, B, ldb, C, ldc) & + bind(c, name='hipblasDtrmm') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmm + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: C + integer(c_int), value :: ldc + end function hipblasDtrmm + end interface + + interface + function hipblasCtrmm(handle, side, uplo, transA, diag, m, n, alpha, & + A, lda, B, ldb, C, ldc) & + bind(c, name='hipblasCtrmm') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmm + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: C + integer(c_int), value :: ldc + end function hipblasCtrmm + end interface + + interface + function hipblasZtrmm(handle, side, uplo, transA, diag, m, n, alpha, & + A, lda, B, ldb, C, ldc) & + bind(c, name='hipblasZtrmm') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmm + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: C + integer(c_int), value :: ldc + end function hipblasZtrmm + end interface + + ! trmm_64 + interface + function hipblasStrmm_64(handle, side, uplo, transA, diag, m, n, alpha, & + A, lda, B, ldb, C, ldc) & + bind(c, name='hipblasStrmm_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmm_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + end function hipblasStrmm_64 + end interface + + interface + function hipblasDtrmm_64(handle, side, uplo, transA, diag, m, n, alpha, & + A, lda, B, ldb, C, ldc) & + bind(c, name='hipblasDtrmm_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmm_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + end function hipblasDtrmm_64 + end interface + + interface + function hipblasCtrmm_64(handle, side, uplo, transA, diag, m, n, alpha, & + A, lda, B, ldb, C, ldc) & + bind(c, name='hipblasCtrmm_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmm_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + end function hipblasCtrmm_64 + end interface + + interface + function hipblasZtrmm_64(handle, side, uplo, transA, diag, m, n, alpha, & + A, lda, B, ldb, C, ldc) & + bind(c, name='hipblasZtrmm_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmm_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + end function hipblasZtrmm_64 + end interface + + ! trmmBatched + interface + function hipblasStrmmBatched(handle, side, uplo, transA, diag, m, n, alpha, & + A, lda, B, ldb, C, ldc, batch_count) & + bind(c, name='hipblasStrmmBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmmBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int), value :: batch_count + end function hipblasStrmmBatched + end interface + + interface + function hipblasDtrmmBatched(handle, side, uplo, transA, diag, m, n, alpha, & + A, lda, B, ldb, C, ldc, batch_count) & + bind(c, name='hipblasDtrmmBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmmBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int), value :: batch_count + end function hipblasDtrmmBatched + end interface + + interface + function hipblasCtrmmBatched(handle, side, uplo, transA, diag, m, n, alpha, & + A, lda, B, ldb, C, ldc, batch_count) & + bind(c, name='hipblasCtrmmBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmmBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int), value :: batch_count + end function hipblasCtrmmBatched + end interface + + interface + function hipblasZtrmmBatched(handle, side, uplo, transA, diag, m, n, alpha, & + A, lda, B, ldb, C, ldc, batch_count) & + bind(c, name='hipblasZtrmmBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmmBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int), value :: batch_count + end function hipblasZtrmmBatched + end interface + + ! trmmBatched_64 + interface + function hipblasStrmmBatched_64(handle, side, uplo, transA, diag, m, n, alpha, & + A, lda, B, ldb, C, ldc, batch_count) & + bind(c, name='hipblasStrmmBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmmBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: batch_count + end function hipblasStrmmBatched_64 + end interface + + interface + function hipblasDtrmmBatched_64(handle, side, uplo, transA, diag, m, n, alpha, & + A, lda, B, ldb, C, ldc, batch_count) & + bind(c, name='hipblasDtrmmBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmmBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: batch_count + end function hipblasDtrmmBatched_64 + end interface + + interface + function hipblasCtrmmBatched_64(handle, side, uplo, transA, diag, m, n, alpha, & + A, lda, B, ldb, C, ldc, batch_count) & + bind(c, name='hipblasCtrmmBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmmBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: batch_count + end function hipblasCtrmmBatched_64 + end interface + + interface + function hipblasZtrmmBatched_64(handle, side, uplo, transA, diag, m, n, alpha, & + A, lda, B, ldb, C, ldc, batch_count) & + bind(c, name='hipblasZtrmmBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmmBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: batch_count + end function hipblasZtrmmBatched_64 + end interface + + ! trmmStridedBatched + interface + function hipblasStrmmStridedBatched(handle, side, uplo, transA, diag, m, n, alpha, & + A, lda, stride_A, B, ldb, stride_B, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasStrmmStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmmStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: B + integer(c_int), value :: ldb + integer(c_int64_t), value :: stride_B + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int), value :: batch_count + end function hipblasStrmmStridedBatched + end interface + + interface + function hipblasDtrmmStridedBatched(handle, side, uplo, transA, diag, m, n, alpha, & + A, lda, stride_A, B, ldb, stride_B, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasDtrmmStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmmStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: B + integer(c_int), value :: ldb + integer(c_int64_t), value :: stride_B + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int), value :: batch_count + end function hipblasDtrmmStridedBatched + end interface + + interface + function hipblasCtrmmStridedBatched(handle, side, uplo, transA, diag, m, n, alpha, & + A, lda, stride_A, B, ldb, stride_B, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasCtrmmStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmmStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: B + integer(c_int), value :: ldb + integer(c_int64_t), value :: stride_B + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int), value :: batch_count + end function hipblasCtrmmStridedBatched + end interface + + interface + function hipblasZtrmmStridedBatched(handle, side, uplo, transA, diag, m, n, alpha, & + A, lda, stride_A, B, ldb, stride_B, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasZtrmmStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmmStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: B + integer(c_int), value :: ldb + integer(c_int64_t), value :: stride_B + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int), value :: batch_count + end function hipblasZtrmmStridedBatched + end interface + + ! trmmStridedBatched_64 + interface + function hipblasStrmmStridedBatched_64(handle, side, uplo, transA, diag, m, n, alpha, & + A, lda, stride_A, B, ldb, stride_B, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasStrmmStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmmStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + integer(c_int64_t), value :: stride_B + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int64_t), value :: batch_count + end function hipblasStrmmStridedBatched_64 + end interface + + interface + function hipblasDtrmmStridedBatched_64(handle, side, uplo, transA, diag, m, n, alpha, & + A, lda, stride_A, B, ldb, stride_B, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasDtrmmStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmmStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + integer(c_int64_t), value :: stride_B + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int64_t), value :: batch_count + end function hipblasDtrmmStridedBatched_64 + end interface + + interface + function hipblasCtrmmStridedBatched_64(handle, side, uplo, transA, diag, m, n, alpha, & + A, lda, stride_A, B, ldb, stride_B, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasCtrmmStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmmStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + integer(c_int64_t), value :: stride_B + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int64_t), value :: batch_count + end function hipblasCtrmmStridedBatched_64 + end interface + + interface + function hipblasZtrmmStridedBatched_64(handle, side, uplo, transA, diag, m, n, alpha, & + A, lda, stride_A, B, ldb, stride_B, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasZtrmmStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmmStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + integer(c_int64_t), value :: stride_B + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int64_t), value :: batch_count + end function hipblasZtrmmStridedBatched_64 + end interface + + ! trtri + interface + function hipblasStrtri(handle, uplo, diag, n, & + A, lda, invA, ldinvA) & + bind(c, name='hipblasStrtri') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrtri + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag + integer(c_int), value :: n + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: invA + integer(c_int), value :: ldinvA + end function hipblasStrtri + end interface + + interface + function hipblasDtrtri(handle, uplo, diag, n, & + A, lda, invA, ldinvA) & + bind(c, name='hipblasDtrtri') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrtri + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag + integer(c_int), value :: n + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: invA + integer(c_int), value :: ldinvA + end function hipblasDtrtri + end interface + + interface + function hipblasCtrtri(handle, uplo, diag, n, & + A, lda, invA, ldinvA) & + bind(c, name='hipblasCtrtri') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrtri + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag + integer(c_int), value :: n + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: invA + integer(c_int), value :: ldinvA + end function hipblasCtrtri + end interface + + interface + function hipblasZtrtri(handle, uplo, diag, n, & + A, lda, invA, ldinvA) & + bind(c, name='hipblasZtrtri') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrtri + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag + integer(c_int), value :: n + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: invA + integer(c_int), value :: ldinvA + end function hipblasZtrtri + end interface + + ! trtriBatched + interface + function hipblasStrtriBatched(handle, uplo, diag, n, & + A, lda, invA, ldinvA, batch_count) & + bind(c, name='hipblasStrtriBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrtriBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag + integer(c_int), value :: n + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: invA + integer(c_int), value :: ldinvA + integer(c_int), value :: batch_count + end function hipblasStrtriBatched + end interface + + interface + function hipblasDtrtriBatched(handle, uplo, diag, n, & + A, lda, invA, ldinvA, batch_count) & + bind(c, name='hipblasDtrtriBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrtriBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag + integer(c_int), value :: n + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: invA + integer(c_int), value :: ldinvA + integer(c_int), value :: batch_count + end function hipblasDtrtriBatched + end interface + + interface + function hipblasCtrtriBatched(handle, uplo, diag, n, & + A, lda, invA, ldinvA, batch_count) & + bind(c, name='hipblasCtrtriBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrtriBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag + integer(c_int), value :: n + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: invA + integer(c_int), value :: ldinvA + integer(c_int), value :: batch_count + end function hipblasCtrtriBatched + end interface + + interface + function hipblasZtrtriBatched(handle, uplo, diag, n, & + A, lda, invA, ldinvA, batch_count) & + bind(c, name='hipblasZtrtriBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrtriBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag + integer(c_int), value :: n + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: invA + integer(c_int), value :: ldinvA + integer(c_int), value :: batch_count + end function hipblasZtrtriBatched + end interface + + ! trtriStridedBatched + interface + function hipblasStrtriStridedBatched(handle, uplo, diag, n, & + A, lda, stride_A, invA, ldinvA, stride_invA, batch_count) & + bind(c, name='hipblasStrtriStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrtriStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag + integer(c_int), value :: n + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: invA + integer(c_int), value :: ldinvA + integer(c_int64_t), value :: stride_invA + integer(c_int), value :: batch_count + end function hipblasStrtriStridedBatched + end interface + + interface + function hipblasDtrtriStridedBatched(handle, uplo, diag, n, & + A, lda, stride_A, invA, ldinvA, stride_invA, batch_count) & + bind(c, name='hipblasDtrtriStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrtriStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag + integer(c_int), value :: n + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: invA + integer(c_int), value :: ldinvA + integer(c_int64_t), value :: stride_invA + integer(c_int), value :: batch_count + end function hipblasDtrtriStridedBatched + end interface + + interface + function hipblasCtrtriStridedBatched(handle, uplo, diag, n, & + A, lda, stride_A, invA, ldinvA, stride_invA, batch_count) & + bind(c, name='hipblasCtrtriStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrtriStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag + integer(c_int), value :: n + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: invA + integer(c_int), value :: ldinvA + integer(c_int64_t), value :: stride_invA + integer(c_int), value :: batch_count + end function hipblasCtrtriStridedBatched + end interface + + interface + function hipblasZtrtriStridedBatched(handle, uplo, diag, n, & + A, lda, stride_A, invA, ldinvA, stride_invA, batch_count) & + bind(c, name='hipblasZtrtriStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrtriStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag + integer(c_int), value :: n + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: invA + integer(c_int), value :: ldinvA + integer(c_int64_t), value :: stride_invA + integer(c_int), value :: batch_count + end function hipblasZtrtriStridedBatched + end interface + + ! trsm + interface + function hipblasStrsm(handle, side, uplo, transA, diag, m, n, alpha, & + A, lda, B, ldb) & + bind(c, name='hipblasStrsm') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsm + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + end function hipblasStrsm + end interface + + interface + function hipblasDtrsm(handle, side, uplo, transA, diag, m, n, alpha, & + A, lda, B, ldb) & + bind(c, name='hipblasDtrsm') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsm + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + end function hipblasDtrsm + end interface + + interface + function hipblasCtrsm(handle, side, uplo, transA, diag, m, n, alpha, & + A, lda, B, ldb) & + bind(c, name='hipblasCtrsm') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsm + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + end function hipblasCtrsm + end interface + + interface + function hipblasZtrsm(handle, side, uplo, transA, diag, m, n, alpha, & + A, lda, B, ldb) & + bind(c, name='hipblasZtrsm') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsm + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + end function hipblasZtrsm + end interface + + ! trsm_64 + interface + function hipblasStrsm_64(handle, side, uplo, transA, diag, m, n, alpha, & + A, lda, B, ldb) & + bind(c, name='hipblasStrsm_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsm_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + end function hipblasStrsm_64 + end interface + + interface + function hipblasDtrsm_64(handle, side, uplo, transA, diag, m, n, alpha, & + A, lda, B, ldb) & + bind(c, name='hipblasDtrsm_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsm_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + end function hipblasDtrsm_64 + end interface + + interface + function hipblasCtrsm_64(handle, side, uplo, transA, diag, m, n, alpha, & + A, lda, B, ldb) & + bind(c, name='hipblasCtrsm_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsm_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + end function hipblasCtrsm_64 + end interface + + interface + function hipblasZtrsm_64(handle, side, uplo, transA, diag, m, n, alpha, & + A, lda, B, ldb) & + bind(c, name='hipblasZtrsm_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsm_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + end function hipblasZtrsm_64 + end interface + + ! trsmBatched + interface + function hipblasStrsmBatched(handle, side, uplo, transA, diag, m, n, alpha, & + A, lda, B, ldb, batch_count) & + bind(c, name='hipblasStrsmBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsmBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + integer(c_int), value :: batch_count + end function hipblasStrsmBatched + end interface + + interface + function hipblasDtrsmBatched(handle, side, uplo, transA, diag, m, n, alpha, & + A, lda, B, ldb, batch_count) & + bind(c, name='hipblasDtrsmBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsmBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + integer(c_int), value :: batch_count + end function hipblasDtrsmBatched + end interface + + interface + function hipblasCtrsmBatched(handle, side, uplo, transA, diag, m, n, alpha, & + A, lda, B, ldb, batch_count) & + bind(c, name='hipblasCtrsmBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsmBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + integer(c_int), value :: batch_count + end function hipblasCtrsmBatched + end interface + + interface + function hipblasZtrsmBatched(handle, side, uplo, transA, diag, m, n, alpha, & + A, lda, B, ldb, batch_count) & + bind(c, name='hipblasZtrsmBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsmBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + integer(c_int), value :: batch_count + end function hipblasZtrsmBatched + end interface + + ! trsmBatched_64 + interface + function hipblasStrsmBatched_64(handle, side, uplo, transA, diag, m, n, alpha, & + A, lda, B, ldb, batch_count) & + bind(c, name='hipblasStrsmBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsmBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + integer(c_int64_t), value :: batch_count + end function hipblasStrsmBatched_64 + end interface + + interface + function hipblasDtrsmBatched_64(handle, side, uplo, transA, diag, m, n, alpha, & + A, lda, B, ldb, batch_count) & + bind(c, name='hipblasDtrsmBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsmBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + integer(c_int64_t), value :: batch_count + end function hipblasDtrsmBatched_64 + end interface + + interface + function hipblasCtrsmBatched_64(handle, side, uplo, transA, diag, m, n, alpha, & + A, lda, B, ldb, batch_count) & + bind(c, name='hipblasCtrsmBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsmBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + integer(c_int64_t), value :: batch_count + end function hipblasCtrsmBatched_64 + end interface + + interface + function hipblasZtrsmBatched_64(handle, side, uplo, transA, diag, m, n, alpha, & + A, lda, B, ldb, batch_count) & + bind(c, name='hipblasZtrsmBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsmBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + integer(c_int64_t), value :: batch_count + end function hipblasZtrsmBatched_64 + end interface + + ! trsmStridedBatched + interface + function hipblasStrsmStridedBatched(handle, side, uplo, transA, diag, m, n, alpha, & + A, lda, stride_A, B, ldb, stride_B, batch_count) & + bind(c, name='hipblasStrsmStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsmStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: B + integer(c_int), value :: ldb + integer(c_int64_t), value :: stride_B + integer(c_int), value :: batch_count + end function hipblasStrsmStridedBatched + end interface + + interface + function hipblasDtrsmStridedBatched(handle, side, uplo, transA, diag, m, n, alpha, & + A, lda, stride_A, B, ldb, stride_B, batch_count) & + bind(c, name='hipblasDtrsmStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsmStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: B + integer(c_int), value :: ldb + integer(c_int64_t), value :: stride_B + integer(c_int), value :: batch_count + end function hipblasDtrsmStridedBatched + end interface + + interface + function hipblasCtrsmStridedBatched(handle, side, uplo, transA, diag, m, n, alpha, & + A, lda, stride_A, B, ldb, stride_B, batch_count) & + bind(c, name='hipblasCtrsmStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsmStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: B + integer(c_int), value :: ldb + integer(c_int64_t), value :: stride_B + integer(c_int), value :: batch_count + end function hipblasCtrsmStridedBatched + end interface + + interface + function hipblasZtrsmStridedBatched(handle, side, uplo, transA, diag, m, n, alpha, & + A, lda, stride_A, B, ldb, stride_B, batch_count) & + bind(c, name='hipblasZtrsmStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsmStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: B + integer(c_int), value :: ldb + integer(c_int64_t), value :: stride_B + integer(c_int), value :: batch_count + end function hipblasZtrsmStridedBatched + end interface + + ! trsmStridedBatched_64 + interface + function hipblasStrsmStridedBatched_64(handle, side, uplo, transA, diag, m, n, alpha, & + A, lda, stride_A, B, ldb, stride_B, batch_count) & + bind(c, name='hipblasStrsmStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsmStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + integer(c_int64_t), value :: stride_B + integer(c_int64_t), value :: batch_count + end function hipblasStrsmStridedBatched_64 + end interface + + interface + function hipblasDtrsmStridedBatched_64(handle, side, uplo, transA, diag, m, n, alpha, & + A, lda, stride_A, B, ldb, stride_B, batch_count) & + bind(c, name='hipblasDtrsmStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsmStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + integer(c_int64_t), value :: stride_B + integer(c_int64_t), value :: batch_count + end function hipblasDtrsmStridedBatched_64 + end interface + + interface + function hipblasCtrsmStridedBatched_64(handle, side, uplo, transA, diag, m, n, alpha, & + A, lda, stride_A, B, ldb, stride_B, batch_count) & + bind(c, name='hipblasCtrsmStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsmStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + integer(c_int64_t), value :: stride_B + integer(c_int64_t), value :: batch_count + end function hipblasCtrsmStridedBatched_64 + end interface + + interface + function hipblasZtrsmStridedBatched_64(handle, side, uplo, transA, diag, m, n, alpha, & + A, lda, stride_A, B, ldb, stride_B, batch_count) & + bind(c, name='hipblasZtrsmStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsmStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + integer(c_int64_t), value :: stride_B + integer(c_int64_t), value :: batch_count + end function hipblasZtrsmStridedBatched_64 + end interface + + ! gemm + interface + function hipblasHgemm(handle, transA, transB, m, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc) & + bind(c, name='hipblasHgemm') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHgemm + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_OP_N)), value :: transB + integer(c_int), value :: m + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + end function hipblasHgemm + end interface + + interface + function hipblasSgemm(handle, transA, transB, m, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc) & + bind(c, name='hipblasSgemm') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemm + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_OP_N)), value :: transB + integer(c_int), value :: m + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + end function hipblasSgemm + end interface + + interface + function hipblasDgemm(handle, transA, transB, m, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc) & + bind(c, name='hipblasDgemm') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemm + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_OP_N)), value :: transB + integer(c_int), value :: m + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + end function hipblasDgemm + end interface + + interface + function hipblasCgemm(handle, transA, transB, m, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc) & + bind(c, name='hipblasCgemm') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemm + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_OP_N)), value :: transB + integer(c_int), value :: m + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + end function hipblasCgemm + end interface + + interface + function hipblasZgemm(handle, transA, transB, m, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc) & + bind(c, name='hipblasZgemm') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemm + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_OP_N)), value :: transB + integer(c_int), value :: m + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + end function hipblasZgemm + end interface + + ! gemm_64 + interface + function hipblasHgemm_64(handle, transA, transB, m, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc) & + bind(c, name='hipblasHgemm_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHgemm_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_OP_N)), value :: transB + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + end function hipblasHgemm_64 + end interface + + interface + function hipblasSgemm_64(handle, transA, transB, m, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc) & + bind(c, name='hipblasSgemm_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemm_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_OP_N)), value :: transB + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + end function hipblasSgemm_64 + end interface + + interface + function hipblasDgemm_64(handle, transA, transB, m, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc) & + bind(c, name='hipblasDgemm_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemm_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_OP_N)), value :: transB + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + end function hipblasDgemm_64 + end interface + + interface + function hipblasCgemm_64(handle, transA, transB, m, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc) & + bind(c, name='hipblasCgemm_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemm_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_OP_N)), value :: transB + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + end function hipblasCgemm_64 + end interface + + interface + function hipblasZgemm_64(handle, transA, transB, m, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc) & + bind(c, name='hipblasZgemm_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemm_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_OP_N)), value :: transB + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + end function hipblasZgemm_64 + end interface + + ! gemmBatched + interface + function hipblasHgemmBatched(handle, transA, transB, m, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc, batch_count) & + bind(c, name='hipblasHgemmBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHgemmBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_OP_N)), value :: transB + integer(c_int), value :: m + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int), value :: batch_count + end function hipblasHgemmBatched + end interface + + interface + function hipblasSgemmBatched(handle, transA, transB, m, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc, batch_count) & + bind(c, name='hipblasSgemmBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_OP_N)), value :: transB + integer(c_int), value :: m + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int), value :: batch_count + end function hipblasSgemmBatched + end interface + + interface + function hipblasDgemmBatched(handle, transA, transB, m, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc, batch_count) & + bind(c, name='hipblasDgemmBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_OP_N)), value :: transB + integer(c_int), value :: m + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int), value :: batch_count + end function hipblasDgemmBatched + end interface + + interface + function hipblasCgemmBatched(handle, transA, transB, m, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc, batch_count) & + bind(c, name='hipblasCgemmBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemmBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_OP_N)), value :: transB + integer(c_int), value :: m + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int), value :: batch_count + end function hipblasCgemmBatched + end interface + + interface + function hipblasZgemmBatched(handle, transA, transB, m, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc, batch_count) & + bind(c, name='hipblasZgemmBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemmBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_OP_N)), value :: transB + integer(c_int), value :: m + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int), value :: batch_count + end function hipblasZgemmBatched + end interface + + ! gemmBatched_64 + interface + function hipblasHgemmBatched_64(handle, transA, transB, m, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc, batch_count) & + bind(c, name='hipblasHgemmBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHgemmBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_OP_N)), value :: transB + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: batch_count + end function hipblasHgemmBatched_64 + end interface + + interface + function hipblasSgemmBatched_64(handle, transA, transB, m, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc, batch_count) & + bind(c, name='hipblasSgemmBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_OP_N)), value :: transB + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: batch_count + end function hipblasSgemmBatched_64 + end interface + + interface + function hipblasDgemmBatched_64(handle, transA, transB, m, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc, batch_count) & + bind(c, name='hipblasDgemmBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_OP_N)), value :: transB + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: batch_count + end function hipblasDgemmBatched_64 + end interface + + interface + function hipblasCgemmBatched_64(handle, transA, transB, m, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc, batch_count) & + bind(c, name='hipblasCgemmBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemmBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_OP_N)), value :: transB + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: batch_count + end function hipblasCgemmBatched_64 + end interface + + interface + function hipblasZgemmBatched_64(handle, transA, transB, m, n, k, alpha, & + A, lda, B, ldb, beta, C, ldc, batch_count) & + bind(c, name='hipblasZgemmBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemmBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_OP_N)), value :: transB + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: batch_count + end function hipblasZgemmBatched_64 + end interface + + ! gemmGroupedBatched + interface + function hipblasSgemmGroupedBatched(handle, transA_array, transB_array, m_array, n_array, k_array, & + alpha_array, Aarray, lda_array, Barray, ldb_array, beta_array, & + Carray, ldc_array, group_count, group_size) & + bind(c, name='hipblasSgemmGroupedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmGroupedBatched + type(c_ptr), value :: handle + type(c_ptr), value :: transA_array + type(c_ptr), value :: transB_array + type(c_ptr), value :: m_array + type(c_ptr), value :: n_array + type(c_ptr), value :: k_array + type(c_ptr), value :: alpha_array + type(c_ptr), value :: Aarray + type(c_ptr), value :: lda_array + type(c_ptr), value :: Barray + type(c_ptr), value :: ldb_array + type(c_ptr), value :: beta_array + type(c_ptr), value :: Carray + type(c_ptr), value :: ldc_array + integer(c_int), value :: group_count + type(c_ptr), value :: group_size + end function hipblasSgemmGroupedBatched + end interface + + interface + function hipblasDgemmGroupedBatched(handle, transA_array, transB_array, m_array, n_array, k_array, & + alpha_array, Aarray, lda_array, Barray, ldb_array, beta_array, & + Carray, ldc_array, group_count, group_size) & + bind(c, name='hipblasDgemmGroupedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmGroupedBatched + type(c_ptr), value :: handle + type(c_ptr), value :: transA_array + type(c_ptr), value :: transB_array + type(c_ptr), value :: m_array + type(c_ptr), value :: n_array + type(c_ptr), value :: k_array + type(c_ptr), value :: alpha_array + type(c_ptr), value :: Aarray + type(c_ptr), value :: lda_array + type(c_ptr), value :: Barray + type(c_ptr), value :: ldb_array + type(c_ptr), value :: beta_array + type(c_ptr), value :: Carray + type(c_ptr), value :: ldc_array + integer(c_int), value :: group_count + type(c_ptr), value :: group_size + end function hipblasDgemmGroupedBatched + end interface + + interface + function hipblasSgemmGroupedBatched_64(handle, transA_array, transB_array, m_array, n_array, k_array, & + alpha_array, Aarray, lda_array, Barray, ldb_array, beta_array, & + Carray, ldc_array, group_count, group_size) & + bind(c, name='hipblasSgemmGroupedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmGroupedBatched_64 + type(c_ptr), value :: handle + type(c_ptr), value :: transA_array + type(c_ptr), value :: transB_array + type(c_ptr), value :: m_array + type(c_ptr), value :: n_array + type(c_ptr), value :: k_array + type(c_ptr), value :: alpha_array + type(c_ptr), value :: Aarray + type(c_ptr), value :: lda_array + type(c_ptr), value :: Barray + type(c_ptr), value :: ldb_array + type(c_ptr), value :: beta_array + type(c_ptr), value :: Carray + type(c_ptr), value :: ldc_array + integer(c_int64_t), value :: group_count + type(c_ptr), value :: group_size + end function hipblasSgemmGroupedBatched_64 + end interface + + interface + function hipblasDgemmGroupedBatched_64(handle, transA_array, transB_array, m_array, n_array, k_array, & + alpha_array, Aarray, lda_array, Barray, ldb_array, beta_array, & + Carray, ldc_array, group_count, group_size) & + bind(c, name='hipblasDgemmGroupedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmGroupedBatched_64 + type(c_ptr), value :: handle + type(c_ptr), value :: transA_array + type(c_ptr), value :: transB_array + type(c_ptr), value :: m_array + type(c_ptr), value :: n_array + type(c_ptr), value :: k_array + type(c_ptr), value :: alpha_array + type(c_ptr), value :: Aarray + type(c_ptr), value :: lda_array + type(c_ptr), value :: Barray + type(c_ptr), value :: ldb_array + type(c_ptr), value :: beta_array + type(c_ptr), value :: Carray + type(c_ptr), value :: ldc_array + integer(c_int64_t), value :: group_count + type(c_ptr), value :: group_size + end function hipblasDgemmGroupedBatched_64 + end interface + + ! gemmStridedBatched + interface + function hipblasHgemmStridedBatched(handle, transA, transB, m, n, k, alpha, & + A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasHgemmStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHgemmStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_OP_N)), value :: transB + integer(c_int), value :: m + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: B + integer(c_int), value :: ldb + integer(c_int64_t), value :: stride_B + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int), value :: batch_count + end function hipblasHgemmStridedBatched + end interface + + interface + function hipblasSgemmStridedBatched(handle, transA, transB, m, n, k, alpha, & + A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasSgemmStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_OP_N)), value :: transB + integer(c_int), value :: m + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: B + integer(c_int), value :: ldb + integer(c_int64_t), value :: stride_B + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int), value :: batch_count + end function hipblasSgemmStridedBatched + end interface + + interface + function hipblasDgemmStridedBatched(handle, transA, transB, m, n, k, alpha, & + A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasDgemmStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_OP_N)), value :: transB + integer(c_int), value :: m + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: B + integer(c_int), value :: ldb + integer(c_int64_t), value :: stride_B + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int), value :: batch_count + end function hipblasDgemmStridedBatched + end interface + + interface + function hipblasCgemmStridedBatched(handle, transA, transB, m, n, k, alpha, & + A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasCgemmStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemmStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_OP_N)), value :: transB + integer(c_int), value :: m + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: B + integer(c_int), value :: ldb + integer(c_int64_t), value :: stride_B + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int), value :: batch_count + end function hipblasCgemmStridedBatched + end interface + + interface + function hipblasZgemmStridedBatched(handle, transA, transB, m, n, k, alpha, & + A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasZgemmStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemmStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_OP_N)), value :: transB + integer(c_int), value :: m + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: B + integer(c_int), value :: ldb + integer(c_int64_t), value :: stride_B + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int), value :: batch_count + end function hipblasZgemmStridedBatched + end interface + + ! gemmStridedBatched_64 + interface + function hipblasHgemmStridedBatched_64(handle, transA, transB, m, n, k, alpha, & + A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasHgemmStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHgemmStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_OP_N)), value :: transB + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + integer(c_int64_t), value :: stride_B + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int64_t), value :: batch_count + end function hipblasHgemmStridedBatched_64 + end interface + + interface + function hipblasSgemmStridedBatched_64(handle, transA, transB, m, n, k, alpha, & + A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasSgemmStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_OP_N)), value :: transB + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + integer(c_int64_t), value :: stride_B + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int64_t), value :: batch_count + end function hipblasSgemmStridedBatched_64 + end interface + + interface + function hipblasDgemmStridedBatched_64(handle, transA, transB, m, n, k, alpha, & + A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasDgemmStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_OP_N)), value :: transB + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + integer(c_int64_t), value :: stride_B + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int64_t), value :: batch_count + end function hipblasDgemmStridedBatched_64 + end interface + + interface + function hipblasCgemmStridedBatched_64(handle, transA, transB, m, n, k, alpha, & + A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasCgemmStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemmStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_OP_N)), value :: transB + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + integer(c_int64_t), value :: stride_B + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int64_t), value :: batch_count + end function hipblasCgemmStridedBatched_64 + end interface + + interface + function hipblasZgemmStridedBatched_64(handle, transA, transB, m, n, k, alpha, & + A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasZgemmStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemmStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_OP_N)), value :: transB + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + integer(c_int64_t), value :: stride_B + type(c_ptr), value :: beta + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int64_t), value :: batch_count + end function hipblasZgemmStridedBatched_64 + end interface + + ! dgmm + interface + function hipblasSdgmm(handle, side, m, n, & + A, lda, x, incx, C, ldc) & + bind(c, name='hipblasSdgmm') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdgmm + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: C + integer(c_int), value :: ldc + end function hipblasSdgmm + end interface + + interface + function hipblasDdgmm(handle, side, m, n, & + A, lda, x, incx, C, ldc) & + bind(c, name='hipblasDdgmm') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdgmm + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: C + integer(c_int), value :: ldc + end function hipblasDdgmm + end interface + + interface + function hipblasCdgmm(handle, side, m, n, & + A, lda, x, incx, C, ldc) & + bind(c, name='hipblasCdgmm') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdgmm + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: C + integer(c_int), value :: ldc + end function hipblasCdgmm + end interface + + interface + function hipblasZdgmm(handle, side, m, n, & + A, lda, x, incx, C, ldc) & + bind(c, name='hipblasZdgmm') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdgmm + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: C + integer(c_int), value :: ldc + end function hipblasZdgmm + end interface + + ! dgmm_64 + interface + function hipblasSdgmm_64(handle, side, m, n, & + A, lda, x, incx, C, ldc) & + bind(c, name='hipblasSdgmm_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdgmm_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + end function hipblasSdgmm_64 + end interface + + interface + function hipblasDdgmm_64(handle, side, m, n, & + A, lda, x, incx, C, ldc) & + bind(c, name='hipblasDdgmm_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdgmm_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + end function hipblasDdgmm_64 + end interface + + interface + function hipblasCdgmm_64(handle, side, m, n, & + A, lda, x, incx, C, ldc) & + bind(c, name='hipblasCdgmm_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdgmm_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + end function hipblasCdgmm_64 + end interface + + interface + function hipblasZdgmm_64(handle, side, m, n, & + A, lda, x, incx, C, ldc) & + bind(c, name='hipblasZdgmm_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdgmm_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + end function hipblasZdgmm_64 + end interface + + ! dgmmBatched + interface + function hipblasSdgmmBatched(handle, side, m, n, & + A, lda, x, incx, C, ldc, batch_count) & + bind(c, name='hipblasSdgmmBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdgmmBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int), value :: batch_count + end function hipblasSdgmmBatched + end interface + + interface + function hipblasDdgmmBatched(handle, side, m, n, & + A, lda, x, incx, C, ldc, batch_count) & + bind(c, name='hipblasDdgmmBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdgmmBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int), value :: batch_count + end function hipblasDdgmmBatched + end interface + + interface + function hipblasCdgmmBatched(handle, side, m, n, & + A, lda, x, incx, C, ldc, batch_count) & + bind(c, name='hipblasCdgmmBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdgmmBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int), value :: batch_count + end function hipblasCdgmmBatched + end interface + + interface + function hipblasZdgmmBatched(handle, side, m, n, & + A, lda, x, incx, C, ldc, batch_count) & + bind(c, name='hipblasZdgmmBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdgmmBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: x + integer(c_int), value :: incx + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int), value :: batch_count + end function hipblasZdgmmBatched + end interface + + ! dgmmBatched_64 + interface + function hipblasSdgmmBatched_64(handle, side, m, n, & + A, lda, x, incx, C, ldc, batch_count) & + bind(c, name='hipblasSdgmmBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdgmmBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: batch_count + end function hipblasSdgmmBatched_64 + end interface + + interface + function hipblasDdgmmBatched_64(handle, side, m, n, & + A, lda, x, incx, C, ldc, batch_count) & + bind(c, name='hipblasDdgmmBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdgmmBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: batch_count + end function hipblasDdgmmBatched_64 + end interface + + interface + function hipblasCdgmmBatched_64(handle, side, m, n, & + A, lda, x, incx, C, ldc, batch_count) & + bind(c, name='hipblasCdgmmBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdgmmBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: batch_count + end function hipblasCdgmmBatched_64 + end interface + + interface + function hipblasZdgmmBatched_64(handle, side, m, n, & + A, lda, x, incx, C, ldc, batch_count) & + bind(c, name='hipblasZdgmmBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdgmmBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: batch_count + end function hipblasZdgmmBatched_64 + end interface + + ! dgmmStridedBatched + interface + function hipblasSdgmmStridedBatched(handle, side, m, n, & + A, lda, stride_A, x, incx, stride_x, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasSdgmmStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdgmmStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int), value :: batch_count + end function hipblasSdgmmStridedBatched + end interface + + interface + function hipblasDdgmmStridedBatched(handle, side, m, n, & + A, lda, stride_A, x, incx, stride_x, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasDdgmmStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdgmmStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int), value :: batch_count + end function hipblasDdgmmStridedBatched + end interface + + interface + function hipblasCdgmmStridedBatched(handle, side, m, n, & + A, lda, stride_A, x, incx, stride_x, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasCdgmmStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdgmmStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int), value :: batch_count + end function hipblasCdgmmStridedBatched + end interface + + interface + function hipblasZdgmmStridedBatched(handle, side, m, n, & + A, lda, stride_A, x, incx, stride_x, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasZdgmmStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdgmmStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int), value :: batch_count + end function hipblasZdgmmStridedBatched + end interface + + ! dgmmStridedBatched_64 + interface + function hipblasSdgmmStridedBatched_64(handle, side, m, n, & + A, lda, stride_A, x, incx, stride_x, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasSdgmmStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdgmmStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int64_t), value :: batch_count + end function hipblasSdgmmStridedBatched_64 + end interface + + interface + function hipblasDdgmmStridedBatched_64(handle, side, m, n, & + A, lda, stride_A, x, incx, stride_x, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasDdgmmStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdgmmStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int64_t), value :: batch_count + end function hipblasDdgmmStridedBatched_64 + end interface + + interface + function hipblasCdgmmStridedBatched_64(handle, side, m, n, & + A, lda, stride_A, x, incx, stride_x, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasCdgmmStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdgmmStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int64_t), value :: batch_count + end function hipblasCdgmmStridedBatched_64 + end interface + + interface + function hipblasZdgmmStridedBatched_64(handle, side, m, n, & + A, lda, stride_A, x, incx, stride_x, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasZdgmmStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdgmmStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: x + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stride_x + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int64_t), value :: batch_count + end function hipblasZdgmmStridedBatched_64 + end interface + + ! geam + interface + function hipblasSgeam(handle, transA, transB, m, n, alpha, & + A, lda, beta, B, ldb, C, ldc) & + bind(c, name='hipblasSgeam') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeam + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_OP_N)), value :: transB + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: beta + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: C + integer(c_int), value :: ldc + end function hipblasSgeam + end interface + + interface + function hipblasDgeam(handle, transA, transB, m, n, alpha, & + A, lda, beta, B, ldb, C, ldc) & + bind(c, name='hipblasDgeam') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeam + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_OP_N)), value :: transB + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: beta + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: C + integer(c_int), value :: ldc + end function hipblasDgeam + end interface + + interface + function hipblasCgeam(handle, transA, transB, m, n, alpha, & + A, lda, beta, B, ldb, C, ldc) & + bind(c, name='hipblasCgeam') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeam + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_OP_N)), value :: transB + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: beta + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: C + integer(c_int), value :: ldc + end function hipblasCgeam + end interface + + interface + function hipblasZgeam(handle, transA, transB, m, n, alpha, & + A, lda, beta, B, ldb, C, ldc) & + bind(c, name='hipblasZgeam') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeam + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_OP_N)), value :: transB + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: beta + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: C + integer(c_int), value :: ldc + end function hipblasZgeam + end interface + + ! geam_64 + interface + function hipblasSgeam_64(handle, transA, transB, m, n, alpha, & + A, lda, beta, B, ldb, C, ldc) & + bind(c, name='hipblasSgeam_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeam_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_OP_N)), value :: transB + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: beta + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + end function hipblasSgeam_64 + end interface + + interface + function hipblasDgeam_64(handle, transA, transB, m, n, alpha, & + A, lda, beta, B, ldb, C, ldc) & + bind(c, name='hipblasDgeam_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeam_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_OP_N)), value :: transB + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: beta + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + end function hipblasDgeam_64 + end interface + + interface + function hipblasCgeam_64(handle, transA, transB, m, n, alpha, & + A, lda, beta, B, ldb, C, ldc) & + bind(c, name='hipblasCgeam_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeam_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_OP_N)), value :: transB + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: beta + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + end function hipblasCgeam_64 + end interface + + interface + function hipblasZgeam_64(handle, transA, transB, m, n, alpha, & + A, lda, beta, B, ldb, C, ldc) & + bind(c, name='hipblasZgeam_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeam_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_OP_N)), value :: transB + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: beta + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + end function hipblasZgeam_64 + end interface + + ! geamBatched + interface + function hipblasSgeamBatched(handle, transA, transB, m, n, alpha, & + A, lda, beta, B, ldb, C, ldc, batch_count) & + bind(c, name='hipblasSgeamBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeamBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_OP_N)), value :: transB + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: beta + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int), value :: batch_count + end function hipblasSgeamBatched + end interface + + interface + function hipblasDgeamBatched(handle, transA, transB, m, n, alpha, & + A, lda, beta, B, ldb, C, ldc, batch_count) & + bind(c, name='hipblasDgeamBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeamBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_OP_N)), value :: transB + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: beta + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int), value :: batch_count + end function hipblasDgeamBatched + end interface + + interface + function hipblasCgeamBatched(handle, transA, transB, m, n, alpha, & + A, lda, beta, B, ldb, C, ldc, batch_count) & + bind(c, name='hipblasCgeamBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeamBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_OP_N)), value :: transB + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: beta + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int), value :: batch_count + end function hipblasCgeamBatched + end interface + + interface + function hipblasZgeamBatched(handle, transA, transB, m, n, alpha, & + A, lda, beta, B, ldb, C, ldc, batch_count) & + bind(c, name='hipblasZgeamBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeamBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_OP_N)), value :: transB + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: beta + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int), value :: batch_count + end function hipblasZgeamBatched + end interface + + ! geamBatched_64 + interface + function hipblasSgeamBatched_64(handle, transA, transB, m, n, alpha, & + A, lda, beta, B, ldb, C, ldc, batch_count) & + bind(c, name='hipblasSgeamBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeamBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_OP_N)), value :: transB + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: beta + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: batch_count + end function hipblasSgeamBatched_64 + end interface + + interface + function hipblasDgeamBatched_64(handle, transA, transB, m, n, alpha, & + A, lda, beta, B, ldb, C, ldc, batch_count) & + bind(c, name='hipblasDgeamBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeamBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_OP_N)), value :: transB + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: beta + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: batch_count + end function hipblasDgeamBatched_64 + end interface + + interface + function hipblasCgeamBatched_64(handle, transA, transB, m, n, alpha, & + A, lda, beta, B, ldb, C, ldc, batch_count) & + bind(c, name='hipblasCgeamBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeamBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_OP_N)), value :: transB + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: beta + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: batch_count + end function hipblasCgeamBatched_64 + end interface + + interface + function hipblasZgeamBatched_64(handle, transA, transB, m, n, alpha, & + A, lda, beta, B, ldb, C, ldc, batch_count) & + bind(c, name='hipblasZgeamBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeamBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_OP_N)), value :: transB + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + type(c_ptr), value :: beta + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: batch_count + end function hipblasZgeamBatched_64 + end interface + + ! geamStridedBatched + interface + function hipblasSgeamStridedBatched(handle, transA, transB, m, n, alpha, & + A, lda, stride_A, beta, B, ldb, stride_B, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasSgeamStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeamStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_OP_N)), value :: transB + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: beta + type(c_ptr), value :: B + integer(c_int), value :: ldb + integer(c_int64_t), value :: stride_B + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int), value :: batch_count + end function hipblasSgeamStridedBatched + end interface + + interface + function hipblasDgeamStridedBatched(handle, transA, transB, m, n, alpha, & + A, lda, stride_A, beta, B, ldb, stride_B, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasDgeamStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeamStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_OP_N)), value :: transB + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: beta + type(c_ptr), value :: B + integer(c_int), value :: ldb + integer(c_int64_t), value :: stride_B + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int), value :: batch_count + end function hipblasDgeamStridedBatched + end interface + + interface + function hipblasCgeamStridedBatched(handle, transA, transB, m, n, alpha, & + A, lda, stride_A, beta, B, ldb, stride_B, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasCgeamStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeamStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_OP_N)), value :: transB + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: beta + type(c_ptr), value :: B + integer(c_int), value :: ldb + integer(c_int64_t), value :: stride_B + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int), value :: batch_count + end function hipblasCgeamStridedBatched + end interface + + interface + function hipblasZgeamStridedBatched(handle, transA, transB, m, n, alpha, & + A, lda, stride_A, beta, B, ldb, stride_B, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasZgeamStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeamStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_OP_N)), value :: transB + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: beta + type(c_ptr), value :: B + integer(c_int), value :: ldb + integer(c_int64_t), value :: stride_B + type(c_ptr), value :: C + integer(c_int), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int), value :: batch_count + end function hipblasZgeamStridedBatched + end interface + + ! geamStridedBatched_64 + interface + function hipblasSgeamStridedBatched_64(handle, transA, transB, m, n, alpha, & + A, lda, stride_A, beta, B, ldb, stride_B, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasSgeamStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeamStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_OP_N)), value :: transB + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: beta + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + integer(c_int64_t), value :: stride_B + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int64_t), value :: batch_count + end function hipblasSgeamStridedBatched_64 + end interface + + interface + function hipblasDgeamStridedBatched_64(handle, transA, transB, m, n, alpha, & + A, lda, stride_A, beta, B, ldb, stride_B, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasDgeamStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeamStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_OP_N)), value :: transB + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: beta + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + integer(c_int64_t), value :: stride_B + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int64_t), value :: batch_count + end function hipblasDgeamStridedBatched_64 + end interface + + interface + function hipblasCgeamStridedBatched_64(handle, transA, transB, m, n, alpha, & + A, lda, stride_A, beta, B, ldb, stride_B, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasCgeamStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeamStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_OP_N)), value :: transB + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: beta + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + integer(c_int64_t), value :: stride_B + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int64_t), value :: batch_count + end function hipblasCgeamStridedBatched_64 + end interface + + interface + function hipblasZgeamStridedBatched_64(handle, transA, transB, m, n, alpha, & + A, lda, stride_A, beta, B, ldb, stride_B, C, ldc, stride_C, batch_count) & + bind(c, name='hipblasZgeamStridedBatched_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeamStridedBatched_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_OP_N)), value :: transB + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: beta + type(c_ptr), value :: B + integer(c_int64_t), value :: ldb + integer(c_int64_t), value :: stride_B + type(c_ptr), value :: C + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: stride_C + integer(c_int64_t), value :: batch_count + end function hipblasZgeamStridedBatched_64 + end interface + + !-----------------! + ! blas Extensions ! + !-----------------! + + ! gemmEx + interface + function hipblasGemmEx(handle, transA, transB, m, n, k, alpha, a, a_type, lda, & + b, b_type, ldb, beta, c, c_type, ldc, & + compute_type, algo) & + bind(c, name='hipblasGemmEx') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmEx + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_OP_N)), value :: transB + integer(c_int), value :: m + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: a + integer(kind(HIP_R_16F)), value :: a_type + integer(c_int), value :: lda + type(c_ptr), value :: b + integer(kind(HIP_R_16F)), value :: b_type + integer(c_int), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: c + integer(kind(HIP_R_16F)), value :: c_type + integer(c_int), value :: ldc + integer(kind(HIPBLAS_COMPUTE_16F)), value :: compute_type + integer(kind(HIPBLAS_GEMM_DEFAULT)), value :: algo + end function hipblasGemmEx + end interface + + interface + function hipblasGemmExWithFlags(handle, transA, transB, m, n, k, alpha, a, a_type, lda, & + b, b_type, ldb, beta, c, c_type, ldc, & + compute_type, algo, flags) & + bind(c, name='hipblasGemmExWithFlags') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmExWithFlags + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_OP_N)), value :: transB + integer(c_int), value :: m + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: a + integer(kind(HIP_R_16F)), value :: a_type + integer(c_int), value :: lda + type(c_ptr), value :: b + integer(kind(HIP_R_16F)), value :: b_type + integer(c_int), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: c + integer(kind(HIP_R_16F)), value :: c_type + integer(c_int), value :: ldc + integer(kind(HIPBLAS_COMPUTE_16F)), value :: compute_type + integer(kind(HIPBLAS_GEMM_DEFAULT)), value :: algo + integer(kind(HIPBLAS_GEMM_FLAGS_NONE)), value :: flags + end function hipblasGemmExWithFlags + end interface + + interface + function hipblasGemmBatchedEx(handle, transA, transB, m, n, k, alpha, a, a_type, lda, & + b, b_type, ldb, beta, c, c_type, ldc, & + batch_count, compute_type, algo) & + bind(c, name='hipblasGemmBatchedEx') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmBatchedEx + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_OP_N)), value :: transB + integer(c_int), value :: m + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: a + integer(kind(HIP_R_16F)), value :: a_type + integer(c_int), value :: lda + type(c_ptr), value :: b + integer(kind(HIP_R_16F)), value :: b_type + integer(c_int), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: c + integer(kind(HIP_R_16F)), value :: c_type + integer(c_int), value :: ldc + integer(c_int), value :: batch_count + integer(kind(HIPBLAS_COMPUTE_16F)), value :: compute_type + integer(kind(HIPBLAS_GEMM_DEFAULT)), value :: algo + end function hipblasGemmBatchedEx + end interface + + interface + function hipblasGemmBatchedExWithFlags(handle, transA, transB, m, n, k, alpha, a, a_type, lda, & + b, b_type, ldb, beta, c, c_type, ldc, & + batch_count, compute_type, algo, flags) & + bind(c, name='hipblasGemmBatchedExWithFlags') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmBatchedExWithFlags + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_OP_N)), value :: transB + integer(c_int), value :: m + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: a + integer(kind(HIP_R_16F)), value :: a_type + integer(c_int), value :: lda + type(c_ptr), value :: b + integer(kind(HIP_R_16F)), value :: b_type + integer(c_int), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: c + integer(kind(HIP_R_16F)), value :: c_type + integer(c_int), value :: ldc + integer(c_int), value :: batch_count + integer(kind(HIPBLAS_COMPUTE_16F)), value :: compute_type + integer(kind(HIPBLAS_GEMM_DEFAULT)), value :: algo + integer(kind(HIPBLAS_GEMM_FLAGS_NONE)), value :: flags + end function hipblasGemmBatchedExWithFlags + end interface + + interface + function hipblasGemmStridedBatchedEx(handle, transA, transB, m, n, k, alpha, a, a_type, lda, stride_a, & + b, b_type, ldb, stride_b, beta, c, c_type, ldc, stride_c, & + batch_count, compute_type, algo) & + bind(c, name='hipblasGemmStridedBatchedEx') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmStridedBatchedEx + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_OP_N)), value :: transB + integer(c_int), value :: m + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: a + integer(kind(HIP_R_16F)), value :: a_type + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_a + type(c_ptr), value :: b + integer(kind(HIP_R_16F)), value :: b_type + integer(c_int), value :: ldb + integer(c_int64_t), value :: stride_b + type(c_ptr), value :: beta + type(c_ptr), value :: c + integer(kind(HIP_R_16F)), value :: c_type + integer(c_int), value :: ldc + integer(c_int64_t), value :: stride_c + integer(c_int), value :: batch_count + integer(kind(HIPBLAS_COMPUTE_16F)), value :: compute_type + integer(kind(HIPBLAS_GEMM_DEFAULT)), value :: algo + end function hipblasGemmStridedBatchedEx + end interface + + interface + function hipblasGemmStridedBatchedExWithFlags(handle, transA, transB, m, n, k, alpha, a, a_type, lda, stride_a, & + b, b_type, ldb, stride_b, beta, c, c_type, ldc, stride_c, & + batch_count, compute_type, algo, flags) & + bind(c, name='hipblasGemmStridedBatchedExWithFlags') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmStridedBatchedExWithFlags + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_OP_N)), value :: transB + integer(c_int), value :: m + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: a + integer(kind(HIP_R_16F)), value :: a_type + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_a + type(c_ptr), value :: b + integer(kind(HIP_R_16F)), value :: b_type + integer(c_int), value :: ldb + integer(c_int64_t), value :: stride_b + type(c_ptr), value :: beta + type(c_ptr), value :: c + integer(kind(HIP_R_16F)), value :: c_type + integer(c_int), value :: ldc + integer(c_int64_t), value :: stride_c + integer(c_int), value :: batch_count + integer(kind(HIPBLAS_COMPUTE_16F)), value :: compute_type + integer(kind(HIPBLAS_GEMM_DEFAULT)), value :: algo + integer(kind(HIPBLAS_GEMM_FLAGS_NONE)), value :: flags + end function hipblasGemmStridedBatchedExWithFlags + end interface + + ! gemmEx_64 + interface + function hipblasGemmEx_64(handle, transA, transB, m, n, k, alpha, a, a_type, lda, & + b, b_type, ldb, beta, c, c_type, ldc, & + compute_type, algo) & + bind(c, name='hipblasGemmEx_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmEx_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_OP_N)), value :: transB + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: a + integer(kind(HIP_R_16F)), value :: a_type + integer(c_int64_t), value :: lda + type(c_ptr), value :: b + integer(kind(HIP_R_16F)), value :: b_type + integer(c_int64_t), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: c + integer(kind(HIP_R_16F)), value :: c_type + integer(c_int64_t), value :: ldc + integer(kind(HIPBLAS_COMPUTE_16F)), value :: compute_type + integer(kind(HIPBLAS_GEMM_DEFAULT)), value :: algo + end function hipblasGemmEx_64 + end interface + + interface + function hipblasGemmExWithFlags_64(handle, transA, transB, m, n, k, alpha, a, a_type, lda, & + b, b_type, ldb, beta, c, c_type, ldc, & + compute_type, algo, flags) & + bind(c, name='hipblasGemmExWithFlags_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmExWithFlags_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_OP_N)), value :: transB + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: a + integer(kind(HIP_R_16F)), value :: a_type + integer(c_int64_t), value :: lda + type(c_ptr), value :: b + integer(kind(HIP_R_16F)), value :: b_type + integer(c_int64_t), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: c + integer(kind(HIP_R_16F)), value :: c_type + integer(c_int64_t), value :: ldc + integer(kind(HIPBLAS_COMPUTE_16F)), value :: compute_type + integer(kind(HIPBLAS_GEMM_DEFAULT)), value :: algo + integer(kind(HIPBLAS_GEMM_FLAGS_NONE)), value :: flags + end function hipblasGemmExWithFlags_64 + end interface + + interface + function hipblasGemmBatchedEx_64(handle, transA, transB, m, n, k, alpha, a, a_type, lda, & + b, b_type, ldb, beta, c, c_type, ldc, & + batch_count, compute_type, algo) & + bind(c, name='hipblasGemmBatchedEx_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmBatchedEx_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_OP_N)), value :: transB + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: a + integer(kind(HIP_R_16F)), value :: a_type + integer(c_int64_t), value :: lda + type(c_ptr), value :: b + integer(kind(HIP_R_16F)), value :: b_type + integer(c_int64_t), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: c + integer(kind(HIP_R_16F)), value :: c_type + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: batch_count + integer(kind(HIPBLAS_COMPUTE_16F)), value :: compute_type + integer(kind(HIPBLAS_GEMM_DEFAULT)), value :: algo + end function hipblasGemmBatchedEx_64 + end interface + + interface + function hipblasGemmBatchedExWithFlags_64(handle, transA, transB, m, n, k, alpha, a, a_type, lda, & + b, b_type, ldb, beta, c, c_type, ldc, & + batch_count, compute_type, algo, flags) & + bind(c, name='hipblasGemmBatchedExWithFlags_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmBatchedExWithFlags_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_OP_N)), value :: transB + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: a + integer(kind(HIP_R_16F)), value :: a_type + integer(c_int64_t), value :: lda + type(c_ptr), value :: b + integer(kind(HIP_R_16F)), value :: b_type + integer(c_int64_t), value :: ldb + type(c_ptr), value :: beta + type(c_ptr), value :: c + integer(kind(HIP_R_16F)), value :: c_type + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: batch_count + integer(kind(HIPBLAS_COMPUTE_16F)), value :: compute_type + integer(kind(HIPBLAS_GEMM_DEFAULT)), value :: algo + integer(kind(HIPBLAS_GEMM_FLAGS_NONE)), value :: flags + end function hipblasGemmBatchedExWithFlags_64 + end interface + + interface + function hipblasGemmGroupedBatchedEx(handle, transA_array, transB_array, m_array, n_array, k_array, & + alpha_array, Aarray, a_type, lda_array, Barray, b_type, & + ldb_array, beta_array, Carray, c_type, ldc_array, Darray, d_type, & + ldd_array, group_count, group_size, compute_type, algo) & + bind(c, name='hipblasGemmGroupedBatchedEx') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmGroupedBatchedEx + type(c_ptr), value :: handle + type(c_ptr), value :: transA_array + type(c_ptr), value :: transB_array + type(c_ptr), value :: m_array + type(c_ptr), value :: n_array + type(c_ptr), value :: k_array + type(c_ptr), value :: alpha_array + type(c_ptr), value :: Aarray + integer(kind(HIP_R_16F)), value :: a_type + type(c_ptr), value :: lda_array + type(c_ptr), value :: Barray + integer(kind(HIP_R_16F)), value :: b_type + type(c_ptr), value :: ldb_array + type(c_ptr), value :: beta_array + type(c_ptr), value :: Carray + integer(kind(HIP_R_16F)), value :: c_type + type(c_ptr), value :: ldc_array + type(c_ptr), value :: Darray + integer(kind(HIP_R_16F)), value :: d_type + type(c_ptr), value :: ldd_array + integer(c_int), value :: group_count + type(c_ptr), value :: group_size + integer(kind(HIPBLAS_COMPUTE_16F)), value :: compute_type + integer(kind(HIPBLAS_GEMM_DEFAULT)), value :: algo + end function hipblasGemmGroupedBatchedEx + end interface + + interface + function hipblasGemmGroupedBatchedExWithFlags(handle, transA_array, transB_array, m_array, n_array, k_array, & + alpha_array, Aarray, a_type, lda_array, Barray, b_type, & + ldb_array, beta_array, Carray, c_type, ldc_array, Darray, d_type, & + ldd_array, group_count, group_size, compute_type, algo, flags) & + bind(c, name='hipblasGemmGroupedBatchedExWithFlags') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmGroupedBatchedExWithFlags + type(c_ptr), value :: handle + type(c_ptr), value :: transA_array + type(c_ptr), value :: transB_array + type(c_ptr), value :: m_array + type(c_ptr), value :: n_array + type(c_ptr), value :: k_array + type(c_ptr), value :: alpha_array + type(c_ptr), value :: Aarray + integer(kind(HIP_R_16F)), value :: a_type + type(c_ptr), value :: lda_array + type(c_ptr), value :: Barray + integer(kind(HIP_R_16F)), value :: b_type + type(c_ptr), value :: ldb_array + type(c_ptr), value :: beta_array + type(c_ptr), value :: Carray + integer(kind(HIP_R_16F)), value :: c_type + type(c_ptr), value :: ldc_array + type(c_ptr), value :: Darray + integer(kind(HIP_R_16F)), value :: d_type + type(c_ptr), value :: ldd_array + integer(c_int), value :: group_count + type(c_ptr), value :: group_size + integer(kind(HIPBLAS_COMPUTE_16F)), value :: compute_type + integer(kind(HIPBLAS_GEMM_DEFAULT)), value :: algo + integer(kind(HIPBLAS_GEMM_FLAGS_NONE)), value :: flags + end function hipblasGemmGroupedBatchedExWithFlags + end interface + + interface + function hipblasGemmGroupedBatchedEx_64(handle, transA_array, transB_array, m_array, n_array, k_array, & + alpha_array, Aarray, a_type, lda_array, Barray, b_type, & + ldb_array, beta_array, Carray, c_type, ldc_array, Darray, d_type, & + ldd_array, group_count, group_size, compute_type, algo) & + bind(c, name='hipblasGemmGroupedBatchedEx_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmGroupedBatchedEx_64 + type(c_ptr), value :: handle + type(c_ptr), value :: transA_array + type(c_ptr), value :: transB_array + type(c_ptr), value :: m_array + type(c_ptr), value :: n_array + type(c_ptr), value :: k_array + type(c_ptr), value :: alpha_array + type(c_ptr), value :: Aarray + integer(kind(HIP_R_16F)), value :: a_type + type(c_ptr), value :: lda_array + type(c_ptr), value :: Barray + integer(kind(HIP_R_16F)), value :: b_type + type(c_ptr), value :: ldb_array + type(c_ptr), value :: beta_array + type(c_ptr), value :: Carray + integer(kind(HIP_R_16F)), value :: c_type + type(c_ptr), value :: ldc_array + type(c_ptr), value :: Darray + integer(kind(HIP_R_16F)), value :: d_type + type(c_ptr), value :: ldd_array + integer(c_int64_t), value :: group_count + type(c_ptr), value :: group_size + integer(kind(HIPBLAS_COMPUTE_16F)), value :: compute_type + integer(kind(HIPBLAS_GEMM_DEFAULT)), value :: algo + end function hipblasGemmGroupedBatchedEx_64 + end interface + + interface + function hipblasGemmGroupedBatchedExWithFlags_64(handle, transA_array, transB_array, m_array, n_array, k_array, & + alpha_array, Aarray, a_type, lda_array, Barray, b_type, & + ldb_array, beta_array, Carray, c_type, ldc_array, Darray, d_type, & + ldd_array, group_count, group_size, compute_type, algo, flags) & + bind(c, name='hipblasGemmGroupedBatchedExWithFlags_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmGroupedBatchedExWithFlags_64 + type(c_ptr), value :: handle + type(c_ptr), value :: transA_array + type(c_ptr), value :: transB_array + type(c_ptr), value :: m_array + type(c_ptr), value :: n_array + type(c_ptr), value :: k_array + type(c_ptr), value :: alpha_array + type(c_ptr), value :: Aarray + integer(kind(HIP_R_16F)), value :: a_type + type(c_ptr), value :: lda_array + type(c_ptr), value :: Barray + integer(kind(HIP_R_16F)), value :: b_type + type(c_ptr), value :: ldb_array + type(c_ptr), value :: beta_array + type(c_ptr), value :: Carray + integer(kind(HIP_R_16F)), value :: c_type + type(c_ptr), value :: ldc_array + type(c_ptr), value :: Darray + integer(kind(HIP_R_16F)), value :: d_type + type(c_ptr), value :: ldd_array + integer(c_int64_t), value :: group_count + type(c_ptr), value :: group_size + integer(kind(HIPBLAS_COMPUTE_16F)), value :: compute_type + integer(kind(HIPBLAS_GEMM_DEFAULT)), value :: algo + integer(kind(HIPBLAS_GEMM_FLAGS_NONE)), value :: flags + end function hipblasGemmGroupedBatchedExWithFlags_64 + end interface + + interface + function hipblasGemmStridedBatchedEx_64(handle, transA, transB, m, n, k, alpha, a, a_type, lda, stride_a, & + b, b_type, ldb, stride_b, beta, c, c_type, ldc, stride_c, & + batch_count, compute_type, algo) & + bind(c, name='hipblasGemmStridedBatchedEx_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmStridedBatchedEx_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_OP_N)), value :: transB + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: a + integer(kind(HIP_R_16F)), value :: a_type + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_a + type(c_ptr), value :: b + integer(kind(HIP_R_16F)), value :: b_type + integer(c_int64_t), value :: ldb + integer(c_int64_t), value :: stride_b + type(c_ptr), value :: beta + type(c_ptr), value :: c + integer(kind(HIP_R_16F)), value :: c_type + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: stride_c + integer(c_int64_t), value :: batch_count + integer(kind(HIPBLAS_COMPUTE_16F)), value :: compute_type + integer(kind(HIPBLAS_GEMM_DEFAULT)), value :: algo + end function hipblasGemmStridedBatchedEx_64 + end interface + + interface + function hipblasGemmStridedBatchedExWithFlags_64(handle, transA, transB, m, n, k, alpha, a, a_type, lda, stride_a, & + b, b_type, ldb, stride_b, beta, c, c_type, ldc, stride_c, & + batch_count, compute_type, algo, flags) & + bind(c, name='hipblasGemmStridedBatchedExWithFlags_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmStridedBatchedExWithFlags_64 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_OP_N)), value :: transB + integer(c_int64_t), value :: m + integer(c_int64_t), value :: n + integer(c_int64_t), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: a + integer(kind(HIP_R_16F)), value :: a_type + integer(c_int64_t), value :: lda + integer(c_int64_t), value :: stride_a + type(c_ptr), value :: b + integer(kind(HIP_R_16F)), value :: b_type + integer(c_int64_t), value :: ldb + integer(c_int64_t), value :: stride_b + type(c_ptr), value :: beta + type(c_ptr), value :: c + integer(kind(HIP_R_16F)), value :: c_type + integer(c_int64_t), value :: ldc + integer(c_int64_t), value :: stride_c + integer(c_int64_t), value :: batch_count + integer(kind(HIPBLAS_COMPUTE_16F)), value :: compute_type + integer(kind(HIPBLAS_GEMM_DEFAULT)), value :: algo + integer(kind(HIPBLAS_GEMM_FLAGS_NONE)), value :: flags + end function hipblasGemmStridedBatchedExWithFlags_64 + end interface + + ! syrkEx + interface + function hipblasSyrkEx(handle, uplo, transA, n, k, alpha, a, a_type, lda, & + beta, c, c_type, ldc) & + bind(c, name='hipblasSyrkEx') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSyrkEx + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: a + integer(kind(HIP_R_16F)), value :: a_type + integer(c_int), value :: lda + type(c_ptr), value :: beta + type(c_ptr), value :: c + integer(kind(HIP_R_16F)), value :: c_type + integer(c_int), value :: ldc + end function hipblasSyrkEx + end interface + + ! herkEx + interface + function hipblasHerkEx(handle, uplo, transA, n, k, alpha, a, a_type, lda, & + beta, c, c_type, ldc, compute_type) & + bind(c, name='hipblasHerkEx') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasHerkEx + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(c_int), value :: n + integer(c_int), value :: k + type(c_ptr), value :: alpha + type(c_ptr), value :: a + integer(kind(HIP_R_16F)), value :: a_type + integer(c_int), value :: lda + type(c_ptr), value :: beta + type(c_ptr), value :: c + integer(kind(HIP_R_16F)), value :: c_type + integer(c_int), value :: ldc + integer(kind(HIP_R_16F)), value :: compute_type + end function hipblasHerkEx + end interface + + ! trsmEx + interface + function hipblasTrsmEx(handle, side, uplo, transA, diag, m, n, alpha, A, lda, & + B, ldb, invA, invA_size, compute_type) & + bind(c, name='hipblasTrsmEx') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasTrsmEx + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: invA + integer(c_int), value :: invA_size + integer(kind(HIP_R_16F)), value :: compute_type + end function hipblasTrsmEx + end interface + + interface + function hipblasTrsmBatchedEx(handle, side, uplo, transA, diag, m, n, alpha, A, lda, & + B, ldb, batch_count, invA, invA_size, compute_type) & + bind(c, name='hipblasTrsmBatchedEx') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasTrsmBatchedEx + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + integer(c_int), value :: batch_count + type(c_ptr), value :: invA + integer(c_int), value :: invA_size + integer(kind(HIP_R_16F)), value :: compute_type + end function hipblasTrsmBatchedEx + end interface + + interface + function hipblasTrsmStridedBatchedEx(handle, side, uplo, transA, diag, m, n, alpha, A, lda, stride_A, & + B, ldb, stride_B, batch_count, invA, invA_size, stride_invA, compute_type) & + bind(c, name='hipblasTrsmStridedBatchedEx') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasTrsmStridedBatchedEx + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)), value :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)), value :: uplo + integer(kind(HIPBLAS_OP_N)), value :: transA + integer(kind(HIPBLAS_DIAG_UNIT)), value :: diag + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: alpha + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: stride_A + type(c_ptr), value :: B + integer(c_int), value :: ldb + integer(c_int64_t), value :: stride_B + integer(c_int), value :: batch_count + type(c_ptr), value :: invA + integer(c_int), value :: invA_size + integer(c_int64_t), value :: stride_invA + integer(kind(HIP_R_16F)), value :: compute_type + end function hipblasTrsmStridedBatchedEx + end interface + + ! ! syrkEx + ! interface + ! function hipblasCsyrkEx(handle, uplo, trans, n, k, alpha, A, Atype, lda, beta, C, Ctype, ldc) & + ! ! bind(c, name = 'hipblasCsyrkEx') + ! use iso_c_binding + ! use hipblas_enums + ! implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkEx + ! type(c_ptr), value :: handle + ! integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + ! integer(kind(HIPBLAS_OP_N)), value :: trans + ! integer(c_int), value :: n + ! integer(c_int), value :: k + ! type(c_ptr), value :: alpha + ! type(c_ptr), value :: A + ! integer(kind(HIP_R_16F)), value :: Atype + ! integer(c_int), value :: lda + ! type(c_ptr), value :: beta + ! type(c_ptr), value:: C + ! integer(kind(HIP_R_16F)), value :: Ctype + ! integer(c_int), value :: ldc + ! end function hipblasCsyrkEx + ! end interface + + ! ! herkEx + ! interface + ! function hipblasCherkEx(handle, uplo, trans, n, k, alpha, A, Atype, lda, beta, C, Ctype, ldc) & + ! ! bind(c, name = 'hipblasCherkEx') + ! use iso_c_binding + ! use hipblas_enums + ! implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkEx + ! type(c_ptr), value :: handle + ! integer(kind(HIPBLAS_FILL_MODE_FULL)), value :: uplo + ! integer(kind(HIPBLAS_OP_N)), value :: trans + ! integer(c_int), value :: n + ! integer(c_int), value :: k + ! type(c_ptr), value :: alpha + ! type(c_ptr), value :: A + ! integer(kind(HIP_R_16F)), value :: Atype + ! integer(c_int), value :: lda + ! type(c_ptr), value :: beta + ! type(c_ptr), value:: C + ! integer(kind(HIP_R_16F)), value :: Ctype + ! integer(c_int), value :: ldc + ! end function hipblasCherkEx + ! end interface + + ! axpyEx + interface + function hipblasAxpyEx(handle, n, alpha, alphaType, x, xType, incx, y, yType, incy, executionType) & + bind(c, name='hipblasAxpyEx') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasAxpyEx + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: alpha + integer(kind(HIP_R_16F)), value :: alphaType + type(c_ptr), value :: x + integer(kind(HIP_R_16F)), value :: xType + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(kind(HIP_R_16F)), value :: yType + integer(c_int), value :: incy + integer(kind(HIP_R_16F)), value :: executionType + end function hipblasAxpyEx + end interface + + interface + function hipblasAxpyBatchedEx(handle, n, alpha, alphaType, x, xType, incx, & + y, yType, incy, batch_count, executionType) & + bind(c, name='hipblasAxpyBatchedEx') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasAxpyBatchedEx + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: alpha + integer(kind(HIP_R_16F)), value :: alphaType + type(c_ptr), value :: x + integer(kind(HIP_R_16F)), value :: xType + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(kind(HIP_R_16F)), value :: yType + integer(c_int), value :: incy + integer(c_int), value :: batch_count + integer(kind(HIP_R_16F)), value :: executionType + end function hipblasAxpyBatchedEx + end interface + + interface + function hipblasAxpyStridedBatchedEx(handle, n, alpha, alphaType, x, xType, incx, stridex, & + y, yType, incy, stridey, batch_count, executionType) & + bind(c, name='hipblasAxpyStridedBatchedEx') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasAxpyStridedBatchedEx + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: alpha + integer(kind(HIP_R_16F)), value :: alphaType + type(c_ptr), value :: x + integer(kind(HIP_R_16F)), value :: xType + integer(c_int), value :: incx + integer(c_int64_t), value :: stridex + type(c_ptr), value :: y + integer(kind(HIP_R_16F)), value :: yType + integer(c_int), value :: incy + integer(c_int64_t), value :: stridey + integer(c_int), value :: batch_count + integer(kind(HIP_R_16F)), value :: executionType + end function hipblasAxpyStridedBatchedEx + end interface + + ! axpyEx_64 + interface + function hipblasAxpyEx_64(handle, n, alpha, alphaType, x, xType, incx, y, yType, incy, executionType) & + bind(c, name='hipblasAxpyEx_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasAxpyEx_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + integer(kind(HIP_R_16F)), value :: alphaType + type(c_ptr), value :: x + integer(kind(HIP_R_16F)), value :: xType + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(kind(HIP_R_16F)), value :: yType + integer(c_int64_t), value :: incy + integer(kind(HIP_R_16F)), value :: executionType + end function hipblasAxpyEx_64 + end interface + + interface + function hipblasAxpyBatchedEx_64(handle, n, alpha, alphaType, x, xType, incx, & + y, yType, incy, batch_count, executionType) & + bind(c, name='hipblasAxpyBatchedEx_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasAxpyBatchedEx_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + integer(kind(HIP_R_16F)), value :: alphaType + type(c_ptr), value :: x + integer(kind(HIP_R_16F)), value :: xType + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(kind(HIP_R_16F)), value :: yType + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: batch_count + integer(kind(HIP_R_16F)), value :: executionType + end function hipblasAxpyBatchedEx_64 + end interface + + interface + function hipblasAxpyStridedBatchedEx_64(handle, n, alpha, alphaType, x, xType, incx, stridex, & + y, yType, incy, stridey, batch_count, executionType) & + bind(c, name='hipblasAxpyStridedBatchedEx_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasAxpyStridedBatchedEx_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + integer(kind(HIP_R_16F)), value :: alphaType + type(c_ptr), value :: x + integer(kind(HIP_R_16F)), value :: xType + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stridex + type(c_ptr), value :: y + integer(kind(HIP_R_16F)), value :: yType + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: stridey + integer(c_int64_t), value :: batch_count + integer(kind(HIP_R_16F)), value :: executionType + end function hipblasAxpyStridedBatchedEx_64 + end interface + + ! dotEx + interface + function hipblasDotEx(handle, n, x, xType, incx, y, yType, incy, result, resultType, executionType) & + bind(c, name='hipblasDotEx') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDotEx + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(kind(HIP_R_16F)), value :: xType + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(kind(HIP_R_16F)), value :: yType + integer(c_int), value :: incy + type(c_ptr), value :: result + integer(kind(HIP_R_16F)), value :: resultType + integer(kind(HIP_R_16F)), value :: executionType + end function hipblasDotEx + end interface + + interface + function hipblasDotcEx(handle, n, x, xType, incx, y, yType, incy, result, resultType, executionType) & + bind(c, name='hipblasDotcEx') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDotcEx + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(kind(HIP_R_16F)), value :: xType + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(kind(HIP_R_16F)), value :: yType + integer(c_int), value :: incy + type(c_ptr), value :: result + integer(kind(HIP_R_16F)), value :: resultType + integer(kind(HIP_R_16F)), value :: executionType + end function hipblasDotcEx + end interface + + interface + function hipblasDotBatchedEx(handle, n, x, xType, incx, & + y, yType, incy, batch_count, result, resultType, executionType) & + bind(c, name='hipblasDotBatchedEx') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDotBatchedEx + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(kind(HIP_R_16F)), value :: xType + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(kind(HIP_R_16F)), value :: yType + integer(c_int), value :: incy + integer(c_int), value :: batch_count + type(c_ptr), value :: result + integer(kind(HIP_R_16F)), value :: resultType + integer(kind(HIP_R_16F)), value :: executionType + end function hipblasDotBatchedEx + end interface + + interface + function hipblasDotcBatchedEx(handle, n, x, xType, incx, & + y, yType, incy, batch_count, result, resultType, executionType) & + bind(c, name='hipblasDotcBatchedEx') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDotcBatchedEx + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(kind(HIP_R_16F)), value :: xType + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(kind(HIP_R_16F)), value :: yType + integer(c_int), value :: incy + integer(c_int), value :: batch_count + type(c_ptr), value :: result + integer(kind(HIP_R_16F)), value :: resultType + integer(kind(HIP_R_16F)), value :: executionType + end function hipblasDotcBatchedEx + end interface + + interface + function hipblasDotStridedBatchedEx(handle, n, x, xType, incx, stridex, & + y, yType, incy, stridey, batch_count, result, resultType, executionType) & + bind(c, name='hipblasDotStridedBatchedEx') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDotStridedBatchedEx + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(kind(HIP_R_16F)), value :: xType + integer(c_int), value :: incx + integer(c_int64_t), value :: stridex + type(c_ptr), value :: y + integer(kind(HIP_R_16F)), value :: yType + integer(c_int), value :: incy + integer(c_int64_t), value :: stridey + integer(c_int), value :: batch_count + type(c_ptr), value :: result + integer(kind(HIP_R_16F)), value :: resultType + integer(kind(HIP_R_16F)), value :: executionType + end function hipblasDotStridedBatchedEx + end interface + + interface + function hipblasDotcStridedBatchedEx(handle, n, x, xType, incx, stridex, & + y, yType, incy, stridey, batch_count, result, resultType, executionType) & + bind(c, name='hipblasDotcStridedBatchedEx') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDotcStridedBatchedEx + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(kind(HIP_R_16F)), value :: xType + integer(c_int), value :: incx + integer(c_int64_t), value :: stridex + type(c_ptr), value :: y + integer(kind(HIP_R_16F)), value :: yType + integer(c_int), value :: incy + integer(c_int64_t), value :: stridey + integer(c_int), value :: batch_count + type(c_ptr), value :: result + integer(kind(HIP_R_16F)), value :: resultType + integer(kind(HIP_R_16F)), value :: executionType + end function hipblasDotcStridedBatchedEx + end interface + + ! dotEx_64 + interface + function hipblasDotEx_64(handle, n, x, xType, incx, y, yType, incy, result, resultType, executionType) & + bind(c, name='hipblasDotEx_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDotEx_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(kind(HIP_R_16F)), value :: xType + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(kind(HIP_R_16F)), value :: yType + integer(c_int64_t), value :: incy + type(c_ptr), value :: result + integer(kind(HIP_R_16F)), value :: resultType + integer(kind(HIP_R_16F)), value :: executionType + end function hipblasDotEx_64 + end interface + + interface + function hipblasDotcEx_64(handle, n, x, xType, incx, y, yType, incy, result, resultType, executionType) & + bind(c, name='hipblasDotcEx_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDotcEx_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(kind(HIP_R_16F)), value :: xType + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(kind(HIP_R_16F)), value :: yType + integer(c_int64_t), value :: incy + type(c_ptr), value :: result + integer(kind(HIP_R_16F)), value :: resultType + integer(kind(HIP_R_16F)), value :: executionType + end function hipblasDotcEx_64 + end interface + + interface + function hipblasDotBatchedEx_64(handle, n, x, xType, incx, & + y, yType, incy, batch_count, result, resultType, executionType) & + bind(c, name='hipblasDotBatchedEx_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDotBatchedEx_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(kind(HIP_R_16F)), value :: xType + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(kind(HIP_R_16F)), value :: yType + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: batch_count + type(c_ptr), value :: result + integer(kind(HIP_R_16F)), value :: resultType + integer(kind(HIP_R_16F)), value :: executionType + end function hipblasDotBatchedEx_64 + end interface + + interface + function hipblasDotcBatchedEx_64(handle, n, x, xType, incx, & + y, yType, incy, batch_count, result, resultType, executionType) & + bind(c, name='hipblasDotcBatchedEx_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDotcBatchedEx_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(kind(HIP_R_16F)), value :: xType + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(kind(HIP_R_16F)), value :: yType + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: batch_count + type(c_ptr), value :: result + integer(kind(HIP_R_16F)), value :: resultType + integer(kind(HIP_R_16F)), value :: executionType + end function hipblasDotcBatchedEx_64 + end interface + + interface + function hipblasDotStridedBatchedEx_64(handle, n, x, xType, incx, stridex, & + y, yType, incy, stridey, batch_count, result, resultType, executionType) & + bind(c, name='hipblasDotStridedBatchedEx_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDotStridedBatchedEx_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(kind(HIP_R_16F)), value :: xType + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stridex + type(c_ptr), value :: y + integer(kind(HIP_R_16F)), value :: yType + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: stridey + integer(c_int64_t), value :: batch_count + type(c_ptr), value :: result + integer(kind(HIP_R_16F)), value :: resultType + integer(kind(HIP_R_16F)), value :: executionType + end function hipblasDotStridedBatchedEx_64 + end interface + + interface + function hipblasDotcStridedBatchedEx_64(handle, n, x, xType, incx, stridex, & + y, yType, incy, stridey, batch_count, result, resultType, executionType) & + bind(c, name='hipblasDotcStridedBatchedEx_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDotcStridedBatchedEx_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(kind(HIP_R_16F)), value :: xType + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stridex + type(c_ptr), value :: y + integer(kind(HIP_R_16F)), value :: yType + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: stridey + integer(c_int64_t), value :: batch_count + type(c_ptr), value :: result + integer(kind(HIP_R_16F)), value :: resultType + integer(kind(HIP_R_16F)), value :: executionType + end function hipblasDotcStridedBatchedEx_64 + end interface + + ! nrm2Ex + interface + function hipblasNrm2Ex(handle, n, x, xType, incx, result, resultType, executionType) & + bind(c, name='hipblasNrm2Ex') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasNrm2Ex + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(kind(HIP_R_16F)), value :: xType + integer(c_int), value :: incx + type(c_ptr), value :: result + integer(kind(HIP_R_16F)), value :: resultType + integer(kind(HIP_R_16F)), value :: executionType + end function hipblasNrm2Ex + end interface + + interface + function hipblasNrm2BatchedEx(handle, n, x, xType, incx, & + batch_count, result, resultType, executionType) & + bind(c, name='hipblasNrm2BatchedEx') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasNrm2BatchedEx + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(kind(HIP_R_16F)), value :: xType + integer(c_int), value :: incx + integer(c_int), value :: batch_count + type(c_ptr), value :: result + integer(kind(HIP_R_16F)), value :: resultType + integer(kind(HIP_R_16F)), value :: executionType + end function hipblasNrm2BatchedEx + end interface + + interface + function hipblasNrm2StridedBatchedEx(handle, n, x, xType, incx, stridex, & + batch_count, result, resultType, executionType) & + bind(c, name='hipblasNrm2StridedBatchedEx') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasNrm2StridedBatchedEx + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(kind(HIP_R_16F)), value :: xType + integer(c_int), value :: incx + integer(c_int64_t), value :: stridex + integer(c_int), value :: batch_count + type(c_ptr), value :: result + integer(kind(HIP_R_16F)), value :: resultType + integer(kind(HIP_R_16F)), value :: executionType + end function hipblasNrm2StridedBatchedEx + end interface + + ! nrm2Ex_64 + interface + function hipblasNrm2Ex_64(handle, n, x, xType, incx, result, resultType, executionType) & + bind(c, name='hipblasNrm2Ex_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasNrm2Ex_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(kind(HIP_R_16F)), value :: xType + integer(c_int64_t), value :: incx + type(c_ptr), value :: result + integer(kind(HIP_R_16F)), value :: resultType + integer(kind(HIP_R_16F)), value :: executionType + end function hipblasNrm2Ex_64 + end interface + + interface + function hipblasNrm2BatchedEx_64(handle, n, x, xType, incx, & + batch_count, result, resultType, executionType) & + bind(c, name='hipblasNrm2BatchedEx_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasNrm2BatchedEx_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(kind(HIP_R_16F)), value :: xType + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: batch_count + type(c_ptr), value :: result + integer(kind(HIP_R_16F)), value :: resultType + integer(kind(HIP_R_16F)), value :: executionType + end function hipblasNrm2BatchedEx_64 + end interface + + interface + function hipblasNrm2StridedBatchedEx_64(handle, n, x, xType, incx, stridex, & + batch_count, result, resultType, executionType) & + bind(c, name='hipblasNrm2StridedBatchedEx_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasNrm2StridedBatchedEx_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(kind(HIP_R_16F)), value :: xType + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stridex + integer(c_int64_t), value :: batch_count + type(c_ptr), value :: result + integer(kind(HIP_R_16F)), value :: resultType + integer(kind(HIP_R_16F)), value :: executionType + end function hipblasNrm2StridedBatchedEx_64 + end interface + + ! rotEx + interface + function hipblasRotEx(handle, n, x, xType, incx, y, yType, incy, c, s, csType, executionType) & + bind(c, name='hipblasRotEx') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasRotEx + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(kind(HIP_R_16F)), value :: xType + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(kind(HIP_R_16F)), value :: yType + integer(c_int), value :: incy + type(c_ptr), value :: c + type(c_ptr), value :: s + integer(kind(HIP_R_16F)), value :: csType + integer(kind(HIP_R_16F)), value :: executionType + end function hipblasRotEx + end interface + + interface + function hipblasRotBatchedEx(handle, n, x, xType, incx, & + y, yType, incy, c, s, csType, batch_count, executionType) & + bind(c, name='hipblasRotBatchedEx') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasRotBatchedEx + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(kind(HIP_R_16F)), value :: xType + integer(c_int), value :: incx + type(c_ptr), value :: y + integer(kind(HIP_R_16F)), value :: yType + integer(c_int), value :: incy + type(c_ptr), value :: c + type(c_ptr), value :: s + integer(kind(HIP_R_16F)), value :: csType + integer(c_int), value :: batch_count + integer(kind(HIP_R_16F)), value :: executionType + end function hipblasRotBatchedEx + end interface + + interface + function hipblasRotStridedBatchedEx(handle, n, x, xType, incx, stridex, & + y, yType, incy, stridey, c, s, csType, batch_count, executionType) & + bind(c, name='hipblasRotStridedBatchedEx') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasRotStridedBatchedEx + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: x + integer(kind(HIP_R_16F)), value :: xType + integer(c_int), value :: incx + integer(c_int64_t), value :: stridex + type(c_ptr), value :: y + integer(kind(HIP_R_16F)), value :: yType + integer(c_int), value :: incy + integer(c_int64_t), value :: stridey + type(c_ptr), value :: c + type(c_ptr), value :: s + integer(kind(HIP_R_16F)), value :: csType + integer(c_int), value :: batch_count + integer(kind(HIP_R_16F)), value :: executionType + end function hipblasRotStridedBatchedEx + end interface + + ! rotEx_64 + interface + function hipblasRotEx_64(handle, n, x, xType, incx, y, yType, incy, c, s, csType, executionType) & + bind(c, name='hipblasRotEx_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasRotEx_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(kind(HIP_R_16F)), value :: xType + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(kind(HIP_R_16F)), value :: yType + integer(c_int64_t), value :: incy + type(c_ptr), value :: c + type(c_ptr), value :: s + integer(kind(HIP_R_16F)), value :: csType + integer(kind(HIP_R_16F)), value :: executionType + end function hipblasRotEx_64 + end interface + + interface + function hipblasRotBatchedEx_64(handle, n, x, xType, incx, & + y, yType, incy, c, s, csType, batch_count, executionType) & + bind(c, name='hipblasRotBatchedEx_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasRotBatchedEx_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(kind(HIP_R_16F)), value :: xType + integer(c_int64_t), value :: incx + type(c_ptr), value :: y + integer(kind(HIP_R_16F)), value :: yType + integer(c_int64_t), value :: incy + type(c_ptr), value :: c + type(c_ptr), value :: s + integer(kind(HIP_R_16F)), value :: csType + integer(c_int64_t), value :: batch_count + integer(kind(HIP_R_16F)), value :: executionType + end function hipblasRotBatchedEx_64 + end interface + + interface + function hipblasRotStridedBatchedEx_64(handle, n, x, xType, incx, stridex, & + y, yType, incy, stridey, c, s, csType, batch_count, executionType) & + bind(c, name='hipblasRotStridedBatchedEx_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasRotStridedBatchedEx_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: x + integer(kind(HIP_R_16F)), value :: xType + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stridex + type(c_ptr), value :: y + integer(kind(HIP_R_16F)), value :: yType + integer(c_int64_t), value :: incy + integer(c_int64_t), value :: stridey + type(c_ptr), value :: c + type(c_ptr), value :: s + integer(kind(HIP_R_16F)), value :: csType + integer(c_int64_t), value :: batch_count + integer(kind(HIP_R_16F)), value :: executionType + end function hipblasRotStridedBatchedEx_64 + end interface + + ! scalEx + interface + function hipblasScalEx(handle, n, alpha, alphaType, x, xType, incx, executionType) & + bind(c, name='hipblasScalEx') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScalEx + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: alpha + integer(kind(HIP_R_16F)), value :: alphaType + type(c_ptr), value :: x + integer(kind(HIP_R_16F)), value :: xType + integer(c_int), value :: incx + integer(kind(HIP_R_16F)), value :: executionType + end function hipblasScalEx + end interface + + interface + function hipblasScalBatchedEx(handle, n, alpha, alphaType, x, xType, incx, & + batch_count, executionType) & + bind(c, name='hipblasScalBatchedEx') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScalBatchedEx + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: alpha + integer(kind(HIP_R_16F)), value :: alphaType + type(c_ptr), value :: x + integer(kind(HIP_R_16F)), value :: xType + integer(c_int), value :: incx + integer(c_int), value :: batch_count + integer(kind(HIP_R_16F)), value :: executionType + end function hipblasScalBatchedEx + end interface + + interface + function hipblasScalStridedBatchedEx(handle, n, alpha, alphaType, x, xType, incx, stridex, & + batch_count, executionType) & + bind(c, name='hipblasScalStridedBatchedEx') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScalStridedBatchedEx + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: alpha + integer(kind(HIP_R_16F)), value :: alphaType + type(c_ptr), value :: x + integer(kind(HIP_R_16F)), value :: xType + integer(c_int), value :: incx + integer(c_int64_t), value :: stridex + integer(c_int), value :: batch_count + integer(kind(HIP_R_16F)), value :: executionType + end function hipblasScalStridedBatchedEx + end interface + + ! scalEx_64 + interface + function hipblasScalEx_64(handle, n, alpha, alphaType, x, xType, incx, executionType) & + bind(c, name='hipblasScalEx_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScalEx_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + integer(kind(HIP_R_16F)), value :: alphaType + type(c_ptr), value :: x + integer(kind(HIP_R_16F)), value :: xType + integer(c_int64_t), value :: incx + integer(kind(HIP_R_16F)), value :: executionType + end function hipblasScalEx_64 + end interface + + interface + function hipblasScalBatchedEx_64(handle, n, alpha, alphaType, x, xType, incx, & + batch_count, executionType) & + bind(c, name='hipblasScalBatchedEx_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScalBatchedEx_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + integer(kind(HIP_R_16F)), value :: alphaType + type(c_ptr), value :: x + integer(kind(HIP_R_16F)), value :: xType + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: batch_count + integer(kind(HIP_R_16F)), value :: executionType + end function hipblasScalBatchedEx_64 + end interface + + interface + function hipblasScalStridedBatchedEx_64(handle, n, alpha, alphaType, x, xType, incx, stridex, & + batch_count, executionType) & + bind(c, name='hipblasScalStridedBatchedEx_64') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScalStridedBatchedEx_64 + type(c_ptr), value :: handle + integer(c_int64_t), value :: n + type(c_ptr), value :: alpha + integer(kind(HIP_R_16F)), value :: alphaType + type(c_ptr), value :: x + integer(kind(HIP_R_16F)), value :: xType + integer(c_int64_t), value :: incx + integer(c_int64_t), value :: stridex + integer(c_int64_t), value :: batch_count + integer(kind(HIP_R_16F)), value :: executionType + end function hipblasScalStridedBatchedEx_64 + end interface + + !--------! + ! Solver ! + !--------! + + ! getrf + interface + function hipblasSgetrf(handle, n, A, lda, ipiv, info) & + bind(c, name='hipblasSgetrf') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrf + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: ipiv + type(c_ptr), value :: info + end function hipblasSgetrf + end interface + + interface + function hipblasDgetrf(handle, n, A, lda, ipiv, info) & + bind(c, name='hipblasDgetrf') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrf + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: ipiv + type(c_ptr), value :: info + end function hipblasDgetrf + end interface + + interface + function hipblasCgetrf(handle, n, A, lda, ipiv, info) & + bind(c, name='hipblasCgetrf') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrf + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: ipiv + type(c_ptr), value :: info + end function hipblasCgetrf + end interface + + interface + function hipblasZgetrf(handle, n, A, lda, ipiv, info) & + bind(c, name='hipblasZgetrf') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrf + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: ipiv + type(c_ptr), value :: info + end function hipblasZgetrf + end interface + + ! getrf_batched + interface + function hipblasSgetrfBatched(handle, n, A, lda, ipiv, info, batch_count) & + bind(c, name='hipblasSgetrfBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrfBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: ipiv + type(c_ptr), value :: info + integer(c_int), value :: batch_count + end function hipblasSgetrfBatched + end interface + + interface + function hipblasDgetrfBatched(handle, n, A, lda, ipiv, info, batch_count) & + bind(c, name='hipblasDgetrfBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrfBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: ipiv + type(c_ptr), value :: info + integer(c_int), value :: batch_count + end function hipblasDgetrfBatched + end interface + + interface + function hipblasCgetrfBatched(handle, n, A, lda, ipiv, info, batch_count) & + bind(c, name='hipblasCgetrfBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrfBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: ipiv + type(c_ptr), value :: info + integer(c_int), value :: batch_count + end function hipblasCgetrfBatched + end interface + + interface + function hipblasZgetrfBatched(handle, n, A, lda, ipiv, info, batch_count) & + bind(c, name='hipblasZgetrfBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrfBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: ipiv + type(c_ptr), value :: info + integer(c_int), value :: batch_count + end function hipblasZgetrfBatched + end interface + + ! getrf_strided_batched + interface + function hipblasSgetrfStridedBatched(handle, n, A, lda, stride_A, & + ipiv, stride_P, info, batch_count) & + bind(c, name='hipblasSgetrfStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrfStridedBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int), value :: stride_A + type(c_ptr), value :: ipiv + integer(c_int), value :: stride_P + type(c_ptr), value :: info + integer(c_int), value :: batch_count + end function hipblasSgetrfStridedBatched + end interface + + interface + function hipblasDgetrfStridedBatched(handle, n, A, lda, stride_A, & + ipiv, stride_P, info, batch_count) & + bind(c, name='hipblasDgetrfStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrfStridedBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int), value :: stride_A + type(c_ptr), value :: ipiv + integer(c_int), value :: stride_P + type(c_ptr), value :: info + integer(c_int), value :: batch_count + end function hipblasDgetrfStridedBatched + end interface + + interface + function hipblasCgetrfStridedBatched(handle, n, A, lda, stride_A, & + ipiv, stride_P, info, batch_count) & + bind(c, name='hipblasCgetrfStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrfStridedBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int), value :: stride_A + type(c_ptr), value :: ipiv + integer(c_int), value :: stride_P + type(c_ptr), value :: info + integer(c_int), value :: batch_count + end function hipblasCgetrfStridedBatched + end interface + + interface + function hipblasZgetrfStridedBatched(handle, n, A, lda, stride_A, & + ipiv, stride_P, info, batch_count) & + bind(c, name='hipblasZgetrfStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrfStridedBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int), value :: stride_A + type(c_ptr), value :: ipiv + integer(c_int), value :: stride_P + type(c_ptr), value :: info + integer(c_int), value :: batch_count + end function hipblasZgetrfStridedBatched + end interface + + ! getrs + interface + function hipblasSgetrs(handle, trans, n, nrhs, A, lda, ipiv, & + B, ldb, info) & + bind(c, name='hipblasSgetrs') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrs + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: trans + integer(c_int), value :: n + integer(c_int), value :: nrhs + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: ipiv + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: info + end function hipblasSgetrs + end interface + + interface + function hipblasDgetrs(handle, trans, n, nrhs, A, lda, ipiv, & + B, ldb, info) & + bind(c, name='hipblasDgetrs') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrs + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: trans + integer(c_int), value :: n + integer(c_int), value :: nrhs + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: ipiv + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: info + end function hipblasDgetrs + end interface + + interface + function hipblasCgetrs(handle, trans, n, nrhs, A, lda, ipiv, & + B, ldb, info) & + bind(c, name='hipblasCgetrs') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrs + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: trans + integer(c_int), value :: n + integer(c_int), value :: nrhs + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: ipiv + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: info + end function hipblasCgetrs + end interface + + interface + function hipblasZgetrs(handle, trans, n, nrhs, A, lda, ipiv, & + B, ldb, info) & + bind(c, name='hipblasZgetrs') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrs + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: trans + integer(c_int), value :: n + integer(c_int), value :: nrhs + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: ipiv + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: info + end function hipblasZgetrs + end interface + + ! getrs_batched + interface + function hipblasSgetrsBatched(handle, trans, n, nrhs, A, lda, ipiv, & + B, ldb, info, batch_count) & + bind(c, name='hipblasSgetrsBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrsBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: trans + integer(c_int), value :: n + integer(c_int), value :: nrhs + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: ipiv + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: info + integer(c_int), value :: batch_count + end function hipblasSgetrsBatched + end interface + + interface + function hipblasDgetrsBatched(handle, trans, n, nrhs, A, lda, ipiv, & + B, ldb, info, batch_count) & + bind(c, name='hipblasDgetrsBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrsBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: trans + integer(c_int), value :: n + integer(c_int), value :: nrhs + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: ipiv + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: info + integer(c_int), value :: batch_count + end function hipblasDgetrsBatched + end interface + + interface + function hipblasCgetrsBatched(handle, trans, n, nrhs, A, lda, ipiv, & + B, ldb, info, batch_count) & + bind(c, name='hipblasCgetrsBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrsBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: trans + integer(c_int), value :: n + integer(c_int), value :: nrhs + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: ipiv + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: info + integer(c_int), value :: batch_count + end function hipblasCgetrsBatched + end interface + + interface + function hipblasZgetrsBatched(handle, trans, n, nrhs, A, lda, ipiv, & + B, ldb, info, batch_count) & + bind(c, name='hipblasZgetrsBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrsBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: trans + integer(c_int), value :: n + integer(c_int), value :: nrhs + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: ipiv + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: info + integer(c_int), value :: batch_count + end function hipblasZgetrsBatched + end interface + + ! getrs_strided_batched + interface + function hipblasSgetrsStridedBatched(handle, trans, n, nrhs, A, lda, stride_A, ipiv, & + stride_P, B, ldb, stride_B, info, batch_count) & + bind(c, name='hipblasSgetrsStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrsStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: trans + integer(c_int), value :: n + integer(c_int), value :: nrhs + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int), value :: stride_A + type(c_ptr), value :: ipiv + integer(c_int), value :: stride_P + type(c_ptr), value :: B + integer(c_int), value :: ldb + integer(c_int), value :: stride_B + type(c_ptr), value :: info + integer(c_int), value :: batch_count + end function hipblasSgetrsStridedBatched + end interface + + interface + function hipblasDgetrsStridedBatched(handle, trans, n, nrhs, A, lda, stride_A, ipiv, & + stride_P, B, ldb, stride_B, info, batch_count) & + bind(c, name='hipblasDgetrsStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrsStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: trans + integer(c_int), value :: n + integer(c_int), value :: nrhs + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int), value :: stride_A + type(c_ptr), value :: ipiv + integer(c_int), value :: stride_P + type(c_ptr), value :: B + integer(c_int), value :: ldb + integer(c_int), value :: stride_B + type(c_ptr), value :: info + integer(c_int), value :: batch_count + end function hipblasDgetrsStridedBatched + end interface + + interface + function hipblasCgetrsStridedBatched(handle, trans, n, nrhs, A, lda, stride_A, ipiv, & + stride_P, B, ldb, stride_B, info, batch_count) & + bind(c, name='hipblasCgetrsStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrsStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: trans + integer(c_int), value :: n + integer(c_int), value :: nrhs + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int), value :: stride_A + type(c_ptr), value :: ipiv + integer(c_int), value :: stride_P + type(c_ptr), value :: B + integer(c_int), value :: ldb + integer(c_int), value :: stride_B + type(c_ptr), value :: info + integer(c_int), value :: batch_count + end function hipblasCgetrsStridedBatched + end interface + + interface + function hipblasZgetrsStridedBatched(handle, trans, n, nrhs, A, lda, stride_A, ipiv, & + stride_P, B, ldb, stride_B, info, batch_count) & + bind(c, name='hipblasZgetrsStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrsStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: trans + integer(c_int), value :: n + integer(c_int), value :: nrhs + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int), value :: stride_A + type(c_ptr), value :: ipiv + integer(c_int), value :: stride_P + type(c_ptr), value :: B + integer(c_int), value :: ldb + integer(c_int), value :: stride_B + type(c_ptr), value :: info + integer(c_int), value :: batch_count + end function hipblasZgetrsStridedBatched + end interface + + ! getri_batched + interface + function hipblasSgetriBatched(handle, n, A, lda, ipiv, C, ldc, info, batch_count) & + bind(c, name='hipblasSgetriBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetriBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: ipiv + type(c_ptr), value :: C + integer(c_int), value :: ldc + type(c_ptr), value :: info + integer(c_int), value :: batch_count + end function hipblasSgetriBatched + end interface + + interface + function hipblasDgetriBatched(handle, n, A, lda, ipiv, C, ldc, info, batch_count) & + bind(c, name='hipblasDgetriBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetriBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: ipiv + type(c_ptr), value :: C + integer(c_int), value :: ldc + type(c_ptr), value :: info + integer(c_int), value :: batch_count + end function hipblasDgetriBatched + end interface + + interface + function hipblasCgetriBatched(handle, n, A, lda, ipiv, C, ldc, info, batch_count) & + bind(c, name='hipblasCgetriBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetriBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: ipiv + type(c_ptr), value :: C + integer(c_int), value :: ldc + type(c_ptr), value :: info + integer(c_int), value :: batch_count + end function hipblasCgetriBatched + end interface + + interface + function hipblasZgetriBatched(handle, n, A, lda, ipiv, C, ldc, info, batch_count) & + bind(c, name='hipblasZgetriBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetriBatched + type(c_ptr), value :: handle + integer(c_int), value :: n + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: ipiv + type(c_ptr), value :: C + integer(c_int), value :: ldc + type(c_ptr), value :: info + integer(c_int), value :: batch_count + end function hipblasZgetriBatched + end interface + + ! geqrf + interface + function hipblasSgeqrf(handle, m, n, A, lda, tau, info) & + bind(c, name='hipblasSgeqrf') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeqrf + type(c_ptr), value :: handle + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: tau + type(c_ptr), value :: info + end function hipblasSgeqrf + end interface + + interface + function hipblasDgeqrf(handle, m, n, A, lda, tau, info) & + bind(c, name='hipblasDgeqrf') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeqrf + type(c_ptr), value :: handle + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: tau + type(c_ptr), value :: info + end function hipblasDgeqrf + end interface + + interface + function hipblasCgeqrf(handle, m, n, A, lda, tau, info) & + bind(c, name='hipblasCgeqrf') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeqrf + type(c_ptr), value :: handle + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: tau + type(c_ptr), value :: info + end function hipblasCgeqrf + end interface + + interface + function hipblasZgeqrf(handle, m, n, A, lda, tau, info) & + bind(c, name='hipblasZgeqrf') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeqrf + type(c_ptr), value :: handle + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: tau + type(c_ptr), value :: info + end function hipblasZgeqrf + end interface + + ! geqrf_batched + interface + function hipblasSgeqrfBatched(handle, m, n, A, lda, tau, info, batch_count) & + bind(c, name='hipblasSgeqrfBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeqrfBatched + type(c_ptr), value :: handle + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: tau + type(c_ptr), value :: info + integer(c_int), value :: batch_count + end function hipblasSgeqrfBatched + end interface + + interface + function hipblasDgeqrfBatched(handle, m, n, A, lda, tau, info, batch_count) & + bind(c, name='hipblasDgeqrfBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeqrfBatched + type(c_ptr), value :: handle + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: tau + type(c_ptr), value :: info + integer(c_int), value :: batch_count + end function hipblasDgeqrfBatched + end interface + + interface + function hipblasCgeqrfBatched(handle, m, n, A, lda, tau, info, batch_count) & + bind(c, name='hipblasCgeqrfBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeqrfBatched + type(c_ptr), value :: handle + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: tau + type(c_ptr), value :: info + integer(c_int), value :: batch_count + end function hipblasCgeqrfBatched + end interface + + interface + function hipblasZgeqrfBatched(handle, m, n, A, lda, tau, info, batch_count) & + bind(c, name='hipblasZgeqrfBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeqrfBatched + type(c_ptr), value :: handle + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: tau + type(c_ptr), value :: info + integer(c_int), value :: batch_count + end function hipblasZgeqrfBatched + end interface + + ! geqrf_strided_batched + interface + function hipblasSgeqrfStridedBatched(handle, m, n, A, lda, stride_A, & + tau, stride_T, info, batch_count) & + bind(c, name='hipblasSgeqrfStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeqrfStridedBatched + type(c_ptr), value :: handle + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int), value :: stride_A + type(c_ptr), value :: tau + integer(c_int), value :: stride_T + type(c_ptr), value :: info + integer(c_int), value :: batch_count + end function hipblasSgeqrfStridedBatched + end interface + + interface + function hipblasDgeqrfStridedBatched(handle, m, n, A, lda, stride_A, & + tau, stride_T, info, batch_count) & + bind(c, name='hipblasDgeqrfStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeqrfStridedBatched + type(c_ptr), value :: handle + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int), value :: stride_A + type(c_ptr), value :: tau + integer(c_int), value :: stride_T + type(c_ptr), value :: info + integer(c_int), value :: batch_count + end function hipblasDgeqrfStridedBatched + end interface + + interface + function hipblasCgeqrfStridedBatched(handle, m, n, A, lda, stride_A, & + tau, stride_T, info, batch_count) & + bind(c, name='hipblasCgeqrfStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeqrfStridedBatched + type(c_ptr), value :: handle + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int), value :: stride_A + type(c_ptr), value :: tau + integer(c_int), value :: stride_T + type(c_ptr), value :: info + integer(c_int), value :: batch_count + end function hipblasCgeqrfStridedBatched + end interface + + interface + function hipblasZgeqrfStridedBatched(handle, m, n, A, lda, stride_A, & + tau, stride_T, info, batch_count) & + bind(c, name='hipblasZgeqrfStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeqrfStridedBatched + type(c_ptr), value :: handle + integer(c_int), value :: m + integer(c_int), value :: n + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int), value :: stride_A + type(c_ptr), value :: tau + integer(c_int), value :: stride_T + type(c_ptr), value :: info + integer(c_int), value :: batch_count + end function hipblasZgeqrfStridedBatched + end interface + + ! gels + interface + function hipblasSgels(handle, m, n, nrhs, trans, A, lda, B, ldb, info, deviceInfo) & + bind(c, name = 'hipblasSgels') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgels + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: trans + integer(c_int), value :: m + integer(c_int), value :: n + integer(c_int), value :: nrhs + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: info + type(c_ptr), value :: deviceInfo + end function hipblasSgels + end interface + + interface + function hipblasDgels(handle, m, n, nrhs, trans, A, lda, B, ldb, info, deviceInfo) & + bind(c, name = 'hipblasDgels') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgels + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: trans + integer(c_int), value :: m + integer(c_int), value :: n + integer(c_int), value :: nrhs + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: info + type(c_ptr), value :: deviceInfo + end function hipblasDgels + end interface + + interface + function hipblasCgels(handle, m, n, nrhs, trans, A, lda, B, ldb, info, deviceInfo) & + bind(c, name = 'hipblasCgels') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgels + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: trans + integer(c_int), value :: m + integer(c_int), value :: n + integer(c_int), value :: nrhs + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: info + type(c_ptr), value :: deviceInfo + end function hipblasCgels + end interface + + interface + function hipblasZgels(handle, m, n, nrhs, trans, A, lda, B, ldb, info, deviceInfo) & + bind(c, name = 'hipblasZgels') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgels + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: trans + integer(c_int), value :: m + integer(c_int), value :: n + integer(c_int), value :: nrhs + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: info + type(c_ptr), value :: deviceInfo + end function hipblasZgels + end interface + + ! gelsBatched + interface + function hipblasSgelsBatched(handle, m, n, nrhs, trans, A, lda, B, ldb, info, deviceInfo, batchCount) & + bind(c, name = 'hipblasSgelsBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgelsBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: trans + integer(c_int), value :: m + integer(c_int), value :: n + integer(c_int), value :: nrhs + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: info + type(c_ptr), value :: deviceInfo + integer(c_int), value :: batchCount + end function hipblasSgelsBatched + end interface + + interface + function hipblasDgelsBatched(handle, m, n, nrhs, trans, A, lda, B, ldb, info, deviceInfo, batchCount) & + bind(c, name = 'hipblasDgelsBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgelsBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: trans + integer(c_int), value :: m + integer(c_int), value :: n + integer(c_int), value :: nrhs + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: info + type(c_ptr), value :: deviceInfo + integer(c_int), value :: batchCount + end function hipblasDgelsBatched + end interface + + interface + function hipblasCgelsBatched(handle, m, n, nrhs, trans, A, lda, B, ldb, info, deviceInfo, batchCount) & + bind(c, name = 'hipblasCgelsBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgelsBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: trans + integer(c_int), value :: m + integer(c_int), value :: n + integer(c_int), value :: nrhs + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: info + type(c_ptr), value :: deviceInfo + integer(c_int), value :: batchCount + end function hipblasCgelsBatched + end interface + + interface + function hipblasZgelsBatched(handle, m, n, nrhs, trans, A, lda, B, ldb, info, deviceInfo, batchCount) & + bind(c, name = 'hipblasZgelsBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgelsBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: trans + integer(c_int), value :: m + integer(c_int), value :: n + integer(c_int), value :: nrhs + type(c_ptr), value :: A + integer(c_int), value :: lda + type(c_ptr), value :: B + integer(c_int), value :: ldb + type(c_ptr), value :: info + type(c_ptr), value :: deviceInfo + integer(c_int), value :: batchCount + end function hipblasZgelsBatched + end interface + + ! gelsStridedBatched + interface + function hipblasSgelsStridedBatched(handle, m, n, nrhs, trans, A, lda, strideA, & + B, ldb, strideB, info, deviceInfo, batchCount) & + bind(c, name = 'hipblasSgelsStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgelsStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: trans + integer(c_int), value :: m + integer(c_int), value :: n + integer(c_int), value :: nrhs + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: strideA + type(c_ptr), value :: B + integer(c_int), value :: ldb + integer(c_int64_t), value :: strideB + type(c_ptr), value :: info + type(c_ptr), value :: deviceInfo + integer(c_int), value :: batchCount + end function hipblasSgelsStridedBatched + end interface + + interface + function hipblasDgelsStridedBatched(handle, m, n, nrhs, trans, A, lda, strideA, & + B, ldb, strideB, info, deviceInfo, batchCount) & + bind(c, name = 'hipblasDgelsStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgelsStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: trans + integer(c_int), value :: m + integer(c_int), value :: n + integer(c_int), value :: nrhs + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: strideA + type(c_ptr), value :: B + integer(c_int), value :: ldb + integer(c_int64_t), value :: strideB + type(c_ptr), value :: info + type(c_ptr), value :: deviceInfo + integer(c_int), value :: batchCount + end function hipblasDgelsStridedBatched + end interface + + interface + function hipblasCgelsStridedBatched(handle, m, n, nrhs, trans, A, lda, strideA, & + B, ldb, strideB, info, deviceInfo, batchCount) & + bind(c, name = 'hipblasCgelsStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgelsStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: trans + integer(c_int), value :: m + integer(c_int), value :: n + integer(c_int), value :: nrhs + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: strideA + type(c_ptr), value :: B + integer(c_int), value :: ldb + integer(c_int64_t), value :: strideB + type(c_ptr), value :: info + type(c_ptr), value :: deviceInfo + integer(c_int), value :: batchCount + end function hipblasCgelsStridedBatched + end interface + + interface + function hipblasZgelsStridedBatched(handle, m, n, nrhs, trans, A, lda, strideA, & + B, ldb, strideB, info, deviceInfo, batchCount) & + bind(c, name = 'hipblasZgelsStridedBatched') + use iso_c_binding + use hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgelsStridedBatched + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)), value :: trans + integer(c_int), value :: m + integer(c_int), value :: n + integer(c_int), value :: nrhs + type(c_ptr), value :: A + integer(c_int), value :: lda + integer(c_int64_t), value :: strideA + type(c_ptr), value :: B + integer(c_int), value :: ldb + integer(c_int64_t), value :: strideB + type(c_ptr), value :: info + type(c_ptr), value :: deviceInfo + integer(c_int), value :: batchCount + end function hipblasZgelsStridedBatched + end interface + +end module hipblas diff --git a/projects/hipblas/toolchain-linux.cmake b/projects/hipblas/toolchain-linux.cmake index 7cf4a716b366..84c7ce6b6a2c 100644 --- a/projects/hipblas/toolchain-linux.cmake +++ b/projects/hipblas/toolchain-linux.cmake @@ -15,24 +15,8 @@ if (NOT DEFINED ENV{CXX} AND NOT CMAKE_CXX_COMPILER) set(CMAKE_CXX_COMPILER "${rocm_bin}/amdclang++") endif() -# Prefer ROCm's amdflang; fall back to gfortran only when ROCm ships none. if (NOT DEFINED ENV{FC} AND NOT CMAKE_Fortran_COMPILER) - set(_rocm_fc_hints) - foreach(_rocm_fc_root "${ROCM_PATH}" "$ENV{ROCM_PATH}" "/opt/rocm") - if (_rocm_fc_root) - list(APPEND _rocm_fc_hints "${_rocm_fc_root}/bin" "${_rocm_fc_root}/lib/llvm/bin") - endif() - endforeach() - unset(_rocm_amdflang CACHE) - find_program(_rocm_amdflang NAMES amdflang HINTS ${_rocm_fc_hints} NO_DEFAULT_PATH) - if (_rocm_amdflang) - set(CMAKE_Fortran_COMPILER "${_rocm_amdflang}") - else() - set(CMAKE_Fortran_COMPILER "gfortran") - endif() - unset(_rocm_amdflang CACHE) - unset(_rocm_fc_hints) - unset(_rocm_fc_root) + set(CMAKE_Fortran_COMPILER "gfortran") endif() if (CONFIG_NO_COMPILER_CHECKS) From 5a1f20ab0fd203dbfd5b250a3b341d127fda2b0d Mon Sep 17 00:00:00 2001 From: Alexis Montoison Date: Tue, 3 Nov 2026 16:58:11 -0600 Subject: [PATCH 4/8] chore(hipblas): regenerate the Fortran binding, add its metadata and tests - regenerate bindings/fortran/hipblas with rocm-fortran-generator 9c8b3e4 - commit its metadata in bindings/fortran/hipblas/metadata/, where the generator reads it from a checkout - add the binding's tests in test/, under BUILD_FORTRAN_CLIENTS, ported from hipFORT's hipBLAS tests: the library's own clients still test the hand-written module while it is deprecated, so they did not test the binding - drop hip_datatypes_stub.F90, a stand-in for the HIP module that the library's clients used and nothing builds any more --- bindings/fortran/hipblas/CMakeLists.txt | 17 + bindings/fortran/hipblas/hipblas.F90 | 127995 ++++++++++----- .../fortran/hipblas/metadata/hipblas.toml | 111 + bindings/fortran/hipblas/test/CMakeLists.txt | 302 + bindings/fortran/hipblas/test/caxpy.f03 | 99 + bindings/fortran/hipblas/test/caxpy.f08 | 90 + .../fortran/hipblas/test/caxpy_devptr.f03 | 109 + bindings/fortran/hipblas/test/cdotc.f03 | 75 + bindings/fortran/hipblas/test/cdotc.f08 | 72 + bindings/fortran/hipblas/test/cdotu.f03 | 75 + bindings/fortran/hipblas/test/cdotu.f08 | 72 + bindings/fortran/hipblas/test/cgeam.f03 | 85 + bindings/fortran/hipblas/test/cgeam.f08 | 83 + .../fortran/hipblas/test/cgeam_devptr.f03 | 99 + bindings/fortran/hipblas/test/cgemm.f03 | 123 + bindings/fortran/hipblas/test/cgemm.f08 | 104 + .../fortran/hipblas/test/cgemm_batched.f03 | 136 + .../fortran/hipblas/test/cgemm_batched.f08 | 143 + .../hipblas/test/cgemm_batched_devptr.f03 | 150 + .../fortran/hipblas/test/cgemm_devptr.f03 | 137 + .../hipblas/test/cgemm_strided_batched.f03 | 122 + .../hipblas/test/cgemm_strided_batched.f08 | 115 + .../test/cgemm_strided_batched_devptr.f03 | 136 + bindings/fortran/hipblas/test/cgemm_trans.f03 | 150 + bindings/fortran/hipblas/test/cgemm_trans.f08 | 145 + bindings/fortran/hipblas/test/cgemv.f03 | 82 + bindings/fortran/hipblas/test/cgemv.f08 | 78 + .../fortran/hipblas/test/cgemv_devptr.f03 | 96 + bindings/fortran/hipblas/test/cgemv_trans.f03 | 141 + bindings/fortran/hipblas/test/cgemv_trans.f08 | 137 + bindings/fortran/hipblas/test/csymm.f03 | 96 + bindings/fortran/hipblas/test/csymm.f08 | 93 + .../fortran/hipblas/test/csymm_devptr.f03 | 110 + bindings/fortran/hipblas/test/csyrk.f03 | 81 + bindings/fortran/hipblas/test/csyrk.f08 | 79 + .../fortran/hipblas/test/csyrk_devptr.f03 | 95 + bindings/fortran/hipblas/test/ctrmm.f03 | 97 + bindings/fortran/hipblas/test/ctrmm.f08 | 94 + .../fortran/hipblas/test/ctrmm_devptr.f03 | 107 + bindings/fortran/hipblas/test/ctrsm.f03 | 92 + bindings/fortran/hipblas/test/ctrsm.f08 | 88 + .../fortran/hipblas/test/ctrsm_devptr.f03 | 102 + bindings/fortran/hipblas/test/ctrsv.f03 | 88 + bindings/fortran/hipblas/test/ctrsv.f08 | 84 + bindings/fortran/hipblas/test/dasum.f03 | 72 + bindings/fortran/hipblas/test/dasum.f08 | 70 + bindings/fortran/hipblas/test/daxpy.f03 | 99 + bindings/fortran/hipblas/test/daxpy.f08 | 90 + .../fortran/hipblas/test/daxpy_devptr.f03 | 109 + bindings/fortran/hipblas/test/ddot.f03 | 74 + bindings/fortran/hipblas/test/ddot.f08 | 71 + bindings/fortran/hipblas/test/dgeam.f03 | 85 + bindings/fortran/hipblas/test/dgeam.f08 | 83 + .../fortran/hipblas/test/dgeam_devptr.f03 | 99 + bindings/fortran/hipblas/test/dgemm.f03 | 121 + bindings/fortran/hipblas/test/dgemm.f08 | 96 + .../fortran/hipblas/test/dgemm_batched.f03 | 135 + .../fortran/hipblas/test/dgemm_batched.f08 | 142 + .../hipblas/test/dgemm_batched_devptr.f03 | 149 + .../fortran/hipblas/test/dgemm_devptr.f03 | 135 + .../hipblas/test/dgemm_strided_batched.f03 | 121 + .../hipblas/test/dgemm_strided_batched.f08 | 114 + .../test/dgemm_strided_batched_devptr.f03 | 135 + bindings/fortran/hipblas/test/dgemm_trans.f03 | 147 + bindings/fortran/hipblas/test/dgemm_trans.f08 | 142 + bindings/fortran/hipblas/test/dgemv.f03 | 81 + bindings/fortran/hipblas/test/dgemv.f08 | 77 + .../fortran/hipblas/test/dgemv_devptr.f03 | 95 + bindings/fortran/hipblas/test/dgemv_trans.f03 | 139 + bindings/fortran/hipblas/test/dgemv_trans.f08 | 135 + bindings/fortran/hipblas/test/dger.f03 | 97 + bindings/fortran/hipblas/test/dger.f08 | 97 + bindings/fortran/hipblas/test/dger_devptr.f03 | 107 + bindings/fortran/hipblas/test/dnrm2.f03 | 72 + bindings/fortran/hipblas/test/dnrm2.f08 | 70 + bindings/fortran/hipblas/test/dscal.f03 | 92 + bindings/fortran/hipblas/test/dscal.f08 | 89 + .../fortran/hipblas/test/dscal_devptr.f03 | 102 + bindings/fortran/hipblas/test/dsymm.f03 | 95 + bindings/fortran/hipblas/test/dsymm.f08 | 92 + .../fortran/hipblas/test/dsymm_devptr.f03 | 109 + bindings/fortran/hipblas/test/dsyrk.f03 | 81 + bindings/fortran/hipblas/test/dsyrk.f08 | 79 + .../fortran/hipblas/test/dsyrk_devptr.f03 | 95 + bindings/fortran/hipblas/test/dtrmm.f03 | 96 + bindings/fortran/hipblas/test/dtrmm.f08 | 93 + .../fortran/hipblas/test/dtrmm_devptr.f03 | 106 + bindings/fortran/hipblas/test/dtrsm.f03 | 92 + bindings/fortran/hipblas/test/dtrsm.f08 | 88 + .../fortran/hipblas/test/dtrsm_devptr.f03 | 102 + bindings/fortran/hipblas/test/dtrsv.f03 | 88 + bindings/fortran/hipblas/test/dtrsv.f08 | 84 + bindings/fortran/hipblas/test/dzasum.f03 | 72 + bindings/fortran/hipblas/test/dzasum.f08 | 70 + bindings/fortran/hipblas/test/dznrm2.f03 | 72 + bindings/fortran/hipblas/test/dznrm2.f08 | 70 + bindings/fortran/hipblas/test/gemmex.f03 | 91 + bindings/fortran/hipblas/test/gemmex.f08 | 87 + .../fortran/hipblas/test/gemmex_devptr.f03 | 105 + .../hipblas/test/hipblas_handle_state.f03 | 160 + .../hipblas/test/hipblas_handle_state.f08 | 160 + .../hipblas/test/hipblas_pointer_mode.f03 | 137 + .../hipblas/test/hipblas_pointer_mode.f08 | 136 + .../fortran/hipblas/test/hipblas_version.f03 | 105 + .../fortran/hipblas/test/hipblas_version.f08 | 105 + bindings/fortran/hipblas/test/icamax.f03 | 70 + bindings/fortran/hipblas/test/icamax.f08 | 68 + bindings/fortran/hipblas/test/idamax.f03 | 70 + bindings/fortran/hipblas/test/idamax.f08 | 68 + bindings/fortran/hipblas/test/isamax.f03 | 70 + .../isamax.f08} | 68 +- bindings/fortran/hipblas/test/izamax.f03 | 70 + bindings/fortran/hipblas/test/izamax.f08 | 68 + bindings/fortran/hipblas/test/sasum.f03 | 72 + bindings/fortran/hipblas/test/sasum.f08 | 70 + bindings/fortran/hipblas/test/saxpy.f03 | 100 + bindings/fortran/hipblas/test/saxpy.f08 | 91 + .../fortran/hipblas/test/saxpy_devptr.f03 | 110 + bindings/fortran/hipblas/test/scasum.f03 | 72 + bindings/fortran/hipblas/test/scasum.f08 | 70 + bindings/fortran/hipblas/test/scnrm2.f03 | 72 + bindings/fortran/hipblas/test/scnrm2.f08 | 70 + bindings/fortran/hipblas/test/scopy.f03 | 96 + bindings/fortran/hipblas/test/scopy.f08 | 90 + bindings/fortran/hipblas/test/sdot.f03 | 74 + bindings/fortran/hipblas/test/sdot.f08 | 71 + bindings/fortran/hipblas/test/sgeam.f03 | 85 + bindings/fortran/hipblas/test/sgeam.f08 | 83 + .../fortran/hipblas/test/sgeam_devptr.f03 | 99 + bindings/fortran/hipblas/test/sgemm.f03 | 121 + bindings/fortran/hipblas/test/sgemm.f08 | 96 + .../fortran/hipblas/test/sgemm_batched.f03 | 135 + .../fortran/hipblas/test/sgemm_batched.f08 | 142 + .../hipblas/test/sgemm_batched_devptr.f03 | 149 + .../fortran/hipblas/test/sgemm_devptr.f03 | 148 + .../hipblas/test/sgemm_strided_batched.f03 | 121 + .../hipblas/test/sgemm_strided_batched.f08 | 114 + .../test/sgemm_strided_batched_devptr.f03 | 135 + bindings/fortran/hipblas/test/sgemm_trans.f03 | 147 + bindings/fortran/hipblas/test/sgemm_trans.f08 | 142 + bindings/fortran/hipblas/test/sgemm_typed.f03 | 125 + bindings/fortran/hipblas/test/sgemv.f03 | 100 + bindings/fortran/hipblas/test/sgemv.f08 | 87 + .../fortran/hipblas/test/sgemv_devptr.f03 | 114 + bindings/fortran/hipblas/test/sgemv_trans.f03 | 139 + bindings/fortran/hipblas/test/sgemv_trans.f08 | 135 + .../fortran/hipblas/test/sgeqrf_info_host.f08 | 104 + bindings/fortran/hipblas/test/sger.f03 | 126 + bindings/fortran/hipblas/test/sger.f08 | 126 + bindings/fortran/hipblas/test/sger_devptr.f03 | 136 + .../test/sgetrf_strided_batched_info.f08 | 133 + bindings/fortran/hipblas/test/snrm2.f03 | 72 + bindings/fortran/hipblas/test/snrm2.f08 | 70 + bindings/fortran/hipblas/test/snrm2_typed.f03 | 76 + .../hipblas/test/srot_strided_batched_cs.f08 | 104 + bindings/fortran/hipblas/test/sswap.f03 | 95 + bindings/fortran/hipblas/test/sswap.f08 | 86 + bindings/fortran/hipblas/test/ssymm.f03 | 95 + bindings/fortran/hipblas/test/ssymm.f08 | 92 + .../fortran/hipblas/test/ssymm_devptr.f03 | 109 + bindings/fortran/hipblas/test/ssyrk.f03 | 81 + bindings/fortran/hipblas/test/ssyrk.f08 | 79 + .../fortran/hipblas/test/ssyrk_devptr.f03 | 95 + bindings/fortran/hipblas/test/stpsv.f08 | 94 + bindings/fortran/hipblas/test/strmm.f03 | 96 + bindings/fortran/hipblas/test/strmm.f08 | 93 + .../fortran/hipblas/test/strmm_devptr.f03 | 106 + bindings/fortran/hipblas/test/strsm.f03 | 92 + bindings/fortran/hipblas/test/strsm.f08 | 88 + .../fortran/hipblas/test/strsm_devptr.f03 | 102 + bindings/fortran/hipblas/test/strsv.f03 | 88 + bindings/fortran/hipblas/test/strsv.f08 | 84 + bindings/fortran/hipblas/test/zaxpy.f03 | 104 + bindings/fortran/hipblas/test/zaxpy.f08 | 94 + .../fortran/hipblas/test/zaxpy_devptr.f03 | 114 + bindings/fortran/hipblas/test/zaxpy_typed.f03 | 103 + bindings/fortran/hipblas/test/zdotc.f03 | 78 + bindings/fortran/hipblas/test/zdotc.f08 | 75 + bindings/fortran/hipblas/test/zdotu.f03 | 78 + bindings/fortran/hipblas/test/zdotu.f08 | 75 + bindings/fortran/hipblas/test/zgeam.f03 | 92 + bindings/fortran/hipblas/test/zgeam.f08 | 90 + .../fortran/hipblas/test/zgeam_devptr.f03 | 107 + bindings/fortran/hipblas/test/zgemm.f03 | 129 + bindings/fortran/hipblas/test/zgemm.f08 | 108 + .../fortran/hipblas/test/zgemm_batched.f03 | 142 + .../fortran/hipblas/test/zgemm_batched.f08 | 149 + .../hipblas/test/zgemm_batched_devptr.f03 | 156 + .../fortran/hipblas/test/zgemm_devptr.f03 | 143 + .../hipblas/test/zgemm_strided_batched.f03 | 128 + .../hipblas/test/zgemm_strided_batched.f08 | 121 + .../test/zgemm_strided_batched_devptr.f03 | 142 + bindings/fortran/hipblas/test/zgemm_trans.f03 | 157 + bindings/fortran/hipblas/test/zgemm_trans.f08 | 152 + bindings/fortran/hipblas/test/zgemv.f03 | 87 + bindings/fortran/hipblas/test/zgemv.f08 | 83 + .../fortran/hipblas/test/zgemv_devptr.f03 | 101 + bindings/fortran/hipblas/test/zgemv_trans.f03 | 148 + bindings/fortran/hipblas/test/zgemv_trans.f08 | 144 + bindings/fortran/hipblas/test/zsymm.f03 | 103 + bindings/fortran/hipblas/test/zsymm.f08 | 100 + .../fortran/hipblas/test/zsymm_devptr.f03 | 118 + bindings/fortran/hipblas/test/zsyrk.f03 | 88 + bindings/fortran/hipblas/test/zsyrk.f08 | 86 + .../fortran/hipblas/test/zsyrk_devptr.f03 | 103 + bindings/fortran/hipblas/test/ztrmm.f03 | 103 + bindings/fortran/hipblas/test/ztrmm.f08 | 100 + .../fortran/hipblas/test/ztrmm_devptr.f03 | 114 + bindings/fortran/hipblas/test/ztrsm.f03 | 96 + bindings/fortran/hipblas/test/ztrsm.f08 | 92 + .../fortran/hipblas/test/ztrsm_devptr.f03 | 106 + bindings/fortran/hipblas/test/ztrsv.f03 | 88 + bindings/fortran/hipblas/test/ztrsv.f08 | 84 + 213 files changed, 112797 insertions(+), 37030 deletions(-) create mode 100644 bindings/fortran/hipblas/metadata/hipblas.toml create mode 100644 bindings/fortran/hipblas/test/CMakeLists.txt create mode 100644 bindings/fortran/hipblas/test/caxpy.f03 create mode 100644 bindings/fortran/hipblas/test/caxpy.f08 create mode 100644 bindings/fortran/hipblas/test/caxpy_devptr.f03 create mode 100644 bindings/fortran/hipblas/test/cdotc.f03 create mode 100644 bindings/fortran/hipblas/test/cdotc.f08 create mode 100644 bindings/fortran/hipblas/test/cdotu.f03 create mode 100644 bindings/fortran/hipblas/test/cdotu.f08 create mode 100644 bindings/fortran/hipblas/test/cgeam.f03 create mode 100644 bindings/fortran/hipblas/test/cgeam.f08 create mode 100644 bindings/fortran/hipblas/test/cgeam_devptr.f03 create mode 100644 bindings/fortran/hipblas/test/cgemm.f03 create mode 100644 bindings/fortran/hipblas/test/cgemm.f08 create mode 100644 bindings/fortran/hipblas/test/cgemm_batched.f03 create mode 100644 bindings/fortran/hipblas/test/cgemm_batched.f08 create mode 100644 bindings/fortran/hipblas/test/cgemm_batched_devptr.f03 create mode 100644 bindings/fortran/hipblas/test/cgemm_devptr.f03 create mode 100644 bindings/fortran/hipblas/test/cgemm_strided_batched.f03 create mode 100644 bindings/fortran/hipblas/test/cgemm_strided_batched.f08 create mode 100644 bindings/fortran/hipblas/test/cgemm_strided_batched_devptr.f03 create mode 100644 bindings/fortran/hipblas/test/cgemm_trans.f03 create mode 100644 bindings/fortran/hipblas/test/cgemm_trans.f08 create mode 100644 bindings/fortran/hipblas/test/cgemv.f03 create mode 100644 bindings/fortran/hipblas/test/cgemv.f08 create mode 100644 bindings/fortran/hipblas/test/cgemv_devptr.f03 create mode 100644 bindings/fortran/hipblas/test/cgemv_trans.f03 create mode 100644 bindings/fortran/hipblas/test/cgemv_trans.f08 create mode 100644 bindings/fortran/hipblas/test/csymm.f03 create mode 100644 bindings/fortran/hipblas/test/csymm.f08 create mode 100644 bindings/fortran/hipblas/test/csymm_devptr.f03 create mode 100644 bindings/fortran/hipblas/test/csyrk.f03 create mode 100644 bindings/fortran/hipblas/test/csyrk.f08 create mode 100644 bindings/fortran/hipblas/test/csyrk_devptr.f03 create mode 100644 bindings/fortran/hipblas/test/ctrmm.f03 create mode 100644 bindings/fortran/hipblas/test/ctrmm.f08 create mode 100644 bindings/fortran/hipblas/test/ctrmm_devptr.f03 create mode 100644 bindings/fortran/hipblas/test/ctrsm.f03 create mode 100644 bindings/fortran/hipblas/test/ctrsm.f08 create mode 100644 bindings/fortran/hipblas/test/ctrsm_devptr.f03 create mode 100644 bindings/fortran/hipblas/test/ctrsv.f03 create mode 100644 bindings/fortran/hipblas/test/ctrsv.f08 create mode 100644 bindings/fortran/hipblas/test/dasum.f03 create mode 100644 bindings/fortran/hipblas/test/dasum.f08 create mode 100644 bindings/fortran/hipblas/test/daxpy.f03 create mode 100644 bindings/fortran/hipblas/test/daxpy.f08 create mode 100644 bindings/fortran/hipblas/test/daxpy_devptr.f03 create mode 100644 bindings/fortran/hipblas/test/ddot.f03 create mode 100644 bindings/fortran/hipblas/test/ddot.f08 create mode 100644 bindings/fortran/hipblas/test/dgeam.f03 create mode 100644 bindings/fortran/hipblas/test/dgeam.f08 create mode 100644 bindings/fortran/hipblas/test/dgeam_devptr.f03 create mode 100644 bindings/fortran/hipblas/test/dgemm.f03 create mode 100644 bindings/fortran/hipblas/test/dgemm.f08 create mode 100644 bindings/fortran/hipblas/test/dgemm_batched.f03 create mode 100644 bindings/fortran/hipblas/test/dgemm_batched.f08 create mode 100644 bindings/fortran/hipblas/test/dgemm_batched_devptr.f03 create mode 100644 bindings/fortran/hipblas/test/dgemm_devptr.f03 create mode 100644 bindings/fortran/hipblas/test/dgemm_strided_batched.f03 create mode 100644 bindings/fortran/hipblas/test/dgemm_strided_batched.f08 create mode 100644 bindings/fortran/hipblas/test/dgemm_strided_batched_devptr.f03 create mode 100644 bindings/fortran/hipblas/test/dgemm_trans.f03 create mode 100644 bindings/fortran/hipblas/test/dgemm_trans.f08 create mode 100644 bindings/fortran/hipblas/test/dgemv.f03 create mode 100644 bindings/fortran/hipblas/test/dgemv.f08 create mode 100644 bindings/fortran/hipblas/test/dgemv_devptr.f03 create mode 100644 bindings/fortran/hipblas/test/dgemv_trans.f03 create mode 100644 bindings/fortran/hipblas/test/dgemv_trans.f08 create mode 100644 bindings/fortran/hipblas/test/dger.f03 create mode 100644 bindings/fortran/hipblas/test/dger.f08 create mode 100644 bindings/fortran/hipblas/test/dger_devptr.f03 create mode 100644 bindings/fortran/hipblas/test/dnrm2.f03 create mode 100644 bindings/fortran/hipblas/test/dnrm2.f08 create mode 100644 bindings/fortran/hipblas/test/dscal.f03 create mode 100644 bindings/fortran/hipblas/test/dscal.f08 create mode 100644 bindings/fortran/hipblas/test/dscal_devptr.f03 create mode 100644 bindings/fortran/hipblas/test/dsymm.f03 create mode 100644 bindings/fortran/hipblas/test/dsymm.f08 create mode 100644 bindings/fortran/hipblas/test/dsymm_devptr.f03 create mode 100644 bindings/fortran/hipblas/test/dsyrk.f03 create mode 100644 bindings/fortran/hipblas/test/dsyrk.f08 create mode 100644 bindings/fortran/hipblas/test/dsyrk_devptr.f03 create mode 100644 bindings/fortran/hipblas/test/dtrmm.f03 create mode 100644 bindings/fortran/hipblas/test/dtrmm.f08 create mode 100644 bindings/fortran/hipblas/test/dtrmm_devptr.f03 create mode 100644 bindings/fortran/hipblas/test/dtrsm.f03 create mode 100644 bindings/fortran/hipblas/test/dtrsm.f08 create mode 100644 bindings/fortran/hipblas/test/dtrsm_devptr.f03 create mode 100644 bindings/fortran/hipblas/test/dtrsv.f03 create mode 100644 bindings/fortran/hipblas/test/dtrsv.f08 create mode 100644 bindings/fortran/hipblas/test/dzasum.f03 create mode 100644 bindings/fortran/hipblas/test/dzasum.f08 create mode 100644 bindings/fortran/hipblas/test/dznrm2.f03 create mode 100644 bindings/fortran/hipblas/test/dznrm2.f08 create mode 100644 bindings/fortran/hipblas/test/gemmex.f03 create mode 100644 bindings/fortran/hipblas/test/gemmex.f08 create mode 100644 bindings/fortran/hipblas/test/gemmex_devptr.f03 create mode 100644 bindings/fortran/hipblas/test/hipblas_handle_state.f03 create mode 100644 bindings/fortran/hipblas/test/hipblas_handle_state.f08 create mode 100644 bindings/fortran/hipblas/test/hipblas_pointer_mode.f03 create mode 100644 bindings/fortran/hipblas/test/hipblas_pointer_mode.f08 create mode 100644 bindings/fortran/hipblas/test/hipblas_version.f03 create mode 100644 bindings/fortran/hipblas/test/hipblas_version.f08 create mode 100644 bindings/fortran/hipblas/test/icamax.f03 create mode 100644 bindings/fortran/hipblas/test/icamax.f08 create mode 100644 bindings/fortran/hipblas/test/idamax.f03 create mode 100644 bindings/fortran/hipblas/test/idamax.f08 create mode 100644 bindings/fortran/hipblas/test/isamax.f03 rename bindings/fortran/hipblas/{hip_datatypes_stub.F90 => test/isamax.f08} (56%) create mode 100644 bindings/fortran/hipblas/test/izamax.f03 create mode 100644 bindings/fortran/hipblas/test/izamax.f08 create mode 100644 bindings/fortran/hipblas/test/sasum.f03 create mode 100644 bindings/fortran/hipblas/test/sasum.f08 create mode 100644 bindings/fortran/hipblas/test/saxpy.f03 create mode 100644 bindings/fortran/hipblas/test/saxpy.f08 create mode 100644 bindings/fortran/hipblas/test/saxpy_devptr.f03 create mode 100644 bindings/fortran/hipblas/test/scasum.f03 create mode 100644 bindings/fortran/hipblas/test/scasum.f08 create mode 100644 bindings/fortran/hipblas/test/scnrm2.f03 create mode 100644 bindings/fortran/hipblas/test/scnrm2.f08 create mode 100644 bindings/fortran/hipblas/test/scopy.f03 create mode 100644 bindings/fortran/hipblas/test/scopy.f08 create mode 100644 bindings/fortran/hipblas/test/sdot.f03 create mode 100644 bindings/fortran/hipblas/test/sdot.f08 create mode 100644 bindings/fortran/hipblas/test/sgeam.f03 create mode 100644 bindings/fortran/hipblas/test/sgeam.f08 create mode 100644 bindings/fortran/hipblas/test/sgeam_devptr.f03 create mode 100644 bindings/fortran/hipblas/test/sgemm.f03 create mode 100644 bindings/fortran/hipblas/test/sgemm.f08 create mode 100644 bindings/fortran/hipblas/test/sgemm_batched.f03 create mode 100644 bindings/fortran/hipblas/test/sgemm_batched.f08 create mode 100644 bindings/fortran/hipblas/test/sgemm_batched_devptr.f03 create mode 100644 bindings/fortran/hipblas/test/sgemm_devptr.f03 create mode 100644 bindings/fortran/hipblas/test/sgemm_strided_batched.f03 create mode 100644 bindings/fortran/hipblas/test/sgemm_strided_batched.f08 create mode 100644 bindings/fortran/hipblas/test/sgemm_strided_batched_devptr.f03 create mode 100644 bindings/fortran/hipblas/test/sgemm_trans.f03 create mode 100644 bindings/fortran/hipblas/test/sgemm_trans.f08 create mode 100644 bindings/fortran/hipblas/test/sgemm_typed.f03 create mode 100644 bindings/fortran/hipblas/test/sgemv.f03 create mode 100644 bindings/fortran/hipblas/test/sgemv.f08 create mode 100644 bindings/fortran/hipblas/test/sgemv_devptr.f03 create mode 100644 bindings/fortran/hipblas/test/sgemv_trans.f03 create mode 100644 bindings/fortran/hipblas/test/sgemv_trans.f08 create mode 100644 bindings/fortran/hipblas/test/sgeqrf_info_host.f08 create mode 100644 bindings/fortran/hipblas/test/sger.f03 create mode 100644 bindings/fortran/hipblas/test/sger.f08 create mode 100644 bindings/fortran/hipblas/test/sger_devptr.f03 create mode 100644 bindings/fortran/hipblas/test/sgetrf_strided_batched_info.f08 create mode 100644 bindings/fortran/hipblas/test/snrm2.f03 create mode 100644 bindings/fortran/hipblas/test/snrm2.f08 create mode 100644 bindings/fortran/hipblas/test/snrm2_typed.f03 create mode 100644 bindings/fortran/hipblas/test/srot_strided_batched_cs.f08 create mode 100644 bindings/fortran/hipblas/test/sswap.f03 create mode 100644 bindings/fortran/hipblas/test/sswap.f08 create mode 100644 bindings/fortran/hipblas/test/ssymm.f03 create mode 100644 bindings/fortran/hipblas/test/ssymm.f08 create mode 100644 bindings/fortran/hipblas/test/ssymm_devptr.f03 create mode 100644 bindings/fortran/hipblas/test/ssyrk.f03 create mode 100644 bindings/fortran/hipblas/test/ssyrk.f08 create mode 100644 bindings/fortran/hipblas/test/ssyrk_devptr.f03 create mode 100644 bindings/fortran/hipblas/test/stpsv.f08 create mode 100644 bindings/fortran/hipblas/test/strmm.f03 create mode 100644 bindings/fortran/hipblas/test/strmm.f08 create mode 100644 bindings/fortran/hipblas/test/strmm_devptr.f03 create mode 100644 bindings/fortran/hipblas/test/strsm.f03 create mode 100644 bindings/fortran/hipblas/test/strsm.f08 create mode 100644 bindings/fortran/hipblas/test/strsm_devptr.f03 create mode 100644 bindings/fortran/hipblas/test/strsv.f03 create mode 100644 bindings/fortran/hipblas/test/strsv.f08 create mode 100644 bindings/fortran/hipblas/test/zaxpy.f03 create mode 100644 bindings/fortran/hipblas/test/zaxpy.f08 create mode 100644 bindings/fortran/hipblas/test/zaxpy_devptr.f03 create mode 100644 bindings/fortran/hipblas/test/zaxpy_typed.f03 create mode 100644 bindings/fortran/hipblas/test/zdotc.f03 create mode 100644 bindings/fortran/hipblas/test/zdotc.f08 create mode 100644 bindings/fortran/hipblas/test/zdotu.f03 create mode 100644 bindings/fortran/hipblas/test/zdotu.f08 create mode 100644 bindings/fortran/hipblas/test/zgeam.f03 create mode 100644 bindings/fortran/hipblas/test/zgeam.f08 create mode 100644 bindings/fortran/hipblas/test/zgeam_devptr.f03 create mode 100644 bindings/fortran/hipblas/test/zgemm.f03 create mode 100644 bindings/fortran/hipblas/test/zgemm.f08 create mode 100644 bindings/fortran/hipblas/test/zgemm_batched.f03 create mode 100644 bindings/fortran/hipblas/test/zgemm_batched.f08 create mode 100644 bindings/fortran/hipblas/test/zgemm_batched_devptr.f03 create mode 100644 bindings/fortran/hipblas/test/zgemm_devptr.f03 create mode 100644 bindings/fortran/hipblas/test/zgemm_strided_batched.f03 create mode 100644 bindings/fortran/hipblas/test/zgemm_strided_batched.f08 create mode 100644 bindings/fortran/hipblas/test/zgemm_strided_batched_devptr.f03 create mode 100644 bindings/fortran/hipblas/test/zgemm_trans.f03 create mode 100644 bindings/fortran/hipblas/test/zgemm_trans.f08 create mode 100644 bindings/fortran/hipblas/test/zgemv.f03 create mode 100644 bindings/fortran/hipblas/test/zgemv.f08 create mode 100644 bindings/fortran/hipblas/test/zgemv_devptr.f03 create mode 100644 bindings/fortran/hipblas/test/zgemv_trans.f03 create mode 100644 bindings/fortran/hipblas/test/zgemv_trans.f08 create mode 100644 bindings/fortran/hipblas/test/zsymm.f03 create mode 100644 bindings/fortran/hipblas/test/zsymm.f08 create mode 100644 bindings/fortran/hipblas/test/zsymm_devptr.f03 create mode 100644 bindings/fortran/hipblas/test/zsyrk.f03 create mode 100644 bindings/fortran/hipblas/test/zsyrk.f08 create mode 100644 bindings/fortran/hipblas/test/zsyrk_devptr.f03 create mode 100644 bindings/fortran/hipblas/test/ztrmm.f03 create mode 100644 bindings/fortran/hipblas/test/ztrmm.f08 create mode 100644 bindings/fortran/hipblas/test/ztrmm_devptr.f03 create mode 100644 bindings/fortran/hipblas/test/ztrsm.f03 create mode 100644 bindings/fortran/hipblas/test/ztrsm.f08 create mode 100644 bindings/fortran/hipblas/test/ztrsm_devptr.f03 create mode 100644 bindings/fortran/hipblas/test/ztrsv.f03 create mode 100644 bindings/fortran/hipblas/test/ztrsv.f08 diff --git a/bindings/fortran/hipblas/CMakeLists.txt b/bindings/fortran/hipblas/CMakeLists.txt index 8798d9b51333..00e0fad039d3 100644 --- a/bindings/fortran/hipblas/CMakeLists.txt +++ b/bindings/fortran/hipblas/CMakeLists.txt @@ -58,6 +58,11 @@ if(DEFINED HIPBLAS_BUILD_FORTRAN_BINDINGS) set(BUILD_FORTRAN_BINDINGS ${HIPBLAS_BUILD_FORTRAN_BINDINGS}) endif() +option(BUILD_FORTRAN_CLIENTS "Build the hipBLAS Fortran binding tests" ON) +if(DEFINED HIPBLAS_BUILD_FORTRAN_CLIENTS) + set(BUILD_FORTRAN_CLIENTS ${HIPBLAS_BUILD_FORTRAN_CLIENTS}) +endif() + set(FORTRAN_ARRAY_INTERFACES "assumed-shape" CACHE STRING "Array-argument overloads to expose: none, assumed-shape, or assumed-rank") set_property(CACHE FORTRAN_ARRAY_INTERFACES PROPERTY STRINGS @@ -244,6 +249,18 @@ if(NOT CMAKE_SOURCE_DIR STREQUAL CMAKE_CURRENT_SOURCE_DIR) set(HIPBLAS_FORTRAN_COMPILER_ID "${CMAKE_Fortran_COMPILER_ID}" PARENT_SCOPE) endif() +# The uninstrumented Fortran executables cannot link an ASan libhipblas. +if(BUILD_FORTRAN_CLIENTS AND BUILD_ADDRESS_SANITIZER) + message(STATUS + "hipBLAS: address sanitizer is enabled, skipping the Fortran binding tests.") + set(BUILD_FORTRAN_CLIENTS OFF) +endif() + +if(BUILD_FORTRAN_CLIENTS) + enable_testing() + add_subdirectory(test) +endif() + include(CMakePackageConfigHelpers) # Beside hipblas-config.cmake, so one CMAKE_PREFIX_PATH entry finds both halves. diff --git a/bindings/fortran/hipblas/hipblas.F90 b/bindings/fortran/hipblas/hipblas.F90 index a8f41d3e1619..97d17a499483 100644 --- a/bindings/fortran/hipblas/hipblas.F90 +++ b/bindings/fortran/hipblas/hipblas.F90 @@ -141,7 +141,6 @@ module hipblas interface hipblasCreate function hipblasCreate_(handle) bind(c, name="hipblasCreate") - use iso_c_binding import implicit none integer(c_int) :: hipblasCreate_ @@ -151,7 +150,6 @@ function hipblasCreate_(handle) bind(c, name="hipblasCreate") interface hipblasDestroy function hipblasDestroy_(handle) bind(c, name="hipblasDestroy") - use iso_c_binding import implicit none integer(c_int) :: hipblasDestroy_ @@ -161,7 +159,6 @@ function hipblasDestroy_(handle) bind(c, name="hipblasDestroy") interface hipblasGetVersion function hipblasGetVersion_(handle,version) bind(c, name="hipblasGetVersion") - use iso_c_binding import implicit none integer(c_int) :: hipblasGetVersion_ @@ -174,7 +171,6 @@ function hipblasGetVersion_(handle,version) bind(c, name="hipblasGetVersion") interface hipblasGetProperty function hipblasGetProperty_(myType,myValue) bind(c, name="hipblasGetProperty") - use iso_c_binding import implicit none integer(c_int) :: hipblasGetProperty_ @@ -187,7 +183,6 @@ function hipblasGetProperty_(myType,myValue) bind(c, name="hipblasGetProperty") interface hipblasSetStream function hipblasSetStream_(handle,streamId) bind(c, name="hipblasSetStream") - use iso_c_binding import implicit none integer(c_int) :: hipblasSetStream_ @@ -198,7 +193,6 @@ function hipblasSetStream_(handle,streamId) bind(c, name="hipblasSetStream") interface hipblasGetStream function hipblasGetStream_(handle,streamId) bind(c, name="hipblasGetStream") - use iso_c_binding import implicit none integer(c_int) :: hipblasGetStream_ @@ -209,7 +203,6 @@ function hipblasGetStream_(handle,streamId) bind(c, name="hipblasGetStream") interface hipblasSetPointerMode function hipblasSetPointerMode_(handle,mode) bind(c, name="hipblasSetPointerMode") - use iso_c_binding import implicit none integer(c_int) :: hipblasSetPointerMode_ @@ -220,7 +213,6 @@ function hipblasSetPointerMode_(handle,mode) bind(c, name="hipblasSetPointerMode interface hipblasGetPointerMode function hipblasGetPointerMode_(handle,mode) bind(c, name="hipblasGetPointerMode") - use iso_c_binding import implicit none integer(c_int) :: hipblasGetPointerMode_ @@ -233,7 +225,6 @@ function hipblasGetPointerMode_(handle,mode) bind(c, name="hipblasGetPointerMode interface hipblasSetMathMode function hipblasSetMathMode_(handle,mode) bind(c, name="hipblasSetMathMode") - use iso_c_binding import implicit none integer(c_int) :: hipblasSetMathMode_ @@ -244,7 +235,6 @@ function hipblasSetMathMode_(handle,mode) bind(c, name="hipblasSetMathMode") interface hipblasGetMathMode function hipblasGetMathMode_(handle,mode) bind(c, name="hipblasGetMathMode") - use iso_c_binding import implicit none integer(c_int) :: hipblasGetMathMode_ @@ -258,7 +248,6 @@ function hipblasGetMathMode_(handle,mode) bind(c, name="hipblasGetMathMode") interface hipblasSetWorkspace function hipblasSetWorkspace_(handle,workspace,workspaceSizeInBytes) & bind(c, name="hipblasSetWorkspace") - use iso_c_binding import implicit none integer(c_int) :: hipblasSetWorkspace_ @@ -270,7 +259,6 @@ function hipblasSetWorkspace_(handle,workspace,workspaceSizeInBytes) & interface hipblasSetVector function hipblasSetVector_(n,elemSize,x,incx,y,incy) bind(c, name="hipblasSetVector") - use iso_c_binding import implicit none integer(c_int) :: hipblasSetVector_ @@ -314,7 +302,6 @@ function hipblasSetVector_(n,elemSize,x,incx,y,incy) bind(c, name="hipblasSetVec interface hipblasGetVector function hipblasGetVector_(n,elemSize,x,incx,y,incy) bind(c, name="hipblasGetVector") - use iso_c_binding import implicit none integer(c_int) :: hipblasGetVector_ @@ -358,7 +345,6 @@ function hipblasGetVector_(n,elemSize,x,incx,y,incy) bind(c, name="hipblasGetVec interface hipblasSetMatrix function hipblasSetMatrix_(rows,cols,elemSize,AP,lda,BP,ldb) bind(c, name="hipblasSetMatrix") - use iso_c_binding import implicit none integer(c_int) :: hipblasSetMatrix_ @@ -410,7 +396,6 @@ function hipblasSetMatrix_(rows,cols,elemSize,AP,lda,BP,ldb) bind(c, name="hipbl interface hipblasGetMatrix function hipblasGetMatrix_(rows,cols,elemSize,AP,lda,BP,ldb) bind(c, name="hipblasGetMatrix") - use iso_c_binding import implicit none integer(c_int) :: hipblasGetMatrix_ @@ -463,7 +448,6 @@ function hipblasGetMatrix_(rows,cols,elemSize,AP,lda,BP,ldb) bind(c, name="hipbl interface hipblasSetVectorAsync function hipblasSetVectorAsync_(n,elemSize,x,incx,y,incy,stream) & bind(c, name="hipblasSetVectorAsync") - use iso_c_binding import implicit none integer(c_int) :: hipblasSetVectorAsync_ @@ -509,7 +493,6 @@ function hipblasSetVectorAsync_(n,elemSize,x,incx,y,incy,stream) & interface hipblasGetVectorAsync function hipblasGetVectorAsync_(n,elemSize,x,incx,y,incy,stream) & bind(c, name="hipblasGetVectorAsync") - use iso_c_binding import implicit none integer(c_int) :: hipblasGetVectorAsync_ @@ -555,7 +538,6 @@ function hipblasGetVectorAsync_(n,elemSize,x,incx,y,incy,stream) & interface hipblasSetMatrixAsync function hipblasSetMatrixAsync_(rows,cols,elemSize,AP,lda,BP,ldb,stream) & bind(c, name="hipblasSetMatrixAsync") - use iso_c_binding import implicit none integer(c_int) :: hipblasSetMatrixAsync_ @@ -609,7 +591,6 @@ function hipblasSetMatrixAsync_(rows,cols,elemSize,AP,lda,BP,ldb,stream) & interface hipblasGetMatrixAsync function hipblasGetMatrixAsync_(rows,cols,elemSize,AP,lda,BP,ldb,stream) & bind(c, name="hipblasGetMatrixAsync") - use iso_c_binding import implicit none integer(c_int) :: hipblasGetMatrixAsync_ @@ -662,7 +643,6 @@ function hipblasGetMatrixAsync_(rows,cols,elemSize,AP,lda,BP,ldb,stream) & interface hipblasSetAtomicsMode function hipblasSetAtomicsMode_(handle,atomics_mode) bind(c, name="hipblasSetAtomicsMode") - use iso_c_binding import implicit none integer(c_int) :: hipblasSetAtomicsMode_ @@ -673,7 +653,6 @@ function hipblasSetAtomicsMode_(handle,atomics_mode) bind(c, name="hipblasSetAto interface hipblasGetAtomicsMode function hipblasGetAtomicsMode_(handle,atomics_mode) bind(c, name="hipblasGetAtomicsMode") - use iso_c_binding import implicit none integer(c_int) :: hipblasGetAtomicsMode_ @@ -687,7 +666,6 @@ function hipblasGetAtomicsMode_(handle,atomics_mode) bind(c, name="hipblasGetAto interface hipblasSetBatchAlphaStride function hipblasSetBatchAlphaStride_(handle,alpha_stride) & bind(c, name="hipblasSetBatchAlphaStride") - use iso_c_binding import implicit none integer(c_int) :: hipblasSetBatchAlphaStride_ @@ -699,7 +677,6 @@ function hipblasSetBatchAlphaStride_(handle,alpha_stride) & interface hipblasGetBatchAlphaStride function hipblasGetBatchAlphaStride_(handle,alpha_stride) & bind(c, name="hipblasGetBatchAlphaStride") - use iso_c_binding import implicit none integer(c_int) :: hipblasGetBatchAlphaStride_ @@ -713,7 +690,6 @@ function hipblasGetBatchAlphaStride_(handle,alpha_stride) & interface hipblasSetBatchBetaStride function hipblasSetBatchBetaStride_(handle,beta_stride) & bind(c, name="hipblasSetBatchBetaStride") - use iso_c_binding import implicit none integer(c_int) :: hipblasSetBatchBetaStride_ @@ -725,7 +701,6 @@ function hipblasSetBatchBetaStride_(handle,beta_stride) & interface hipblasGetBatchBetaStride function hipblasGetBatchBetaStride_(handle,beta_stride) & bind(c, name="hipblasGetBatchBetaStride") - use iso_c_binding import implicit none integer(c_int) :: hipblasGetBatchBetaStride_ @@ -738,7 +713,6 @@ function hipblasGetBatchBetaStride_(handle,beta_stride) & interface hipblasIsamax function hipblasIsamax_(handle,n,x,incx,myResult) bind(c, name="hipblasIsamax") - use iso_c_binding import implicit none integer(c_int) :: hipblasIsamax_ @@ -768,7 +742,6 @@ function hipblasIsamax_(handle,n,x,incx,myResult) bind(c, name="hipblasIsamax") interface hipblasIdamax function hipblasIdamax_(handle,n,x,incx,myResult) bind(c, name="hipblasIdamax") - use iso_c_binding import implicit none integer(c_int) :: hipblasIdamax_ @@ -798,7 +771,6 @@ function hipblasIdamax_(handle,n,x,incx,myResult) bind(c, name="hipblasIdamax") interface hipblasIcamax function hipblasIcamax_(handle,n,x,incx,myResult) bind(c, name="hipblasIcamax") - use iso_c_binding import implicit none integer(c_int) :: hipblasIcamax_ @@ -828,7 +800,6 @@ function hipblasIcamax_(handle,n,x,incx,myResult) bind(c, name="hipblasIcamax") interface hipblasIzamax function hipblasIzamax_(handle,n,x,incx,myResult) bind(c, name="hipblasIzamax") - use iso_c_binding import implicit none integer(c_int) :: hipblasIzamax_ @@ -858,7 +829,6 @@ function hipblasIzamax_(handle,n,x,incx,myResult) bind(c, name="hipblasIzamax") interface hipblasIsamax_64 function hipblasIsamax_64_(handle,n,x,incx,myResult) bind(c, name="hipblasIsamax_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasIsamax_64_ @@ -888,7 +858,6 @@ function hipblasIsamax_64_(handle,n,x,incx,myResult) bind(c, name="hipblasIsamax interface hipblasIdamax_64 function hipblasIdamax_64_(handle,n,x,incx,myResult) bind(c, name="hipblasIdamax_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasIdamax_64_ @@ -918,7 +887,6 @@ function hipblasIdamax_64_(handle,n,x,incx,myResult) bind(c, name="hipblasIdamax interface hipblasIcamax_64 function hipblasIcamax_64_(handle,n,x,incx,myResult) bind(c, name="hipblasIcamax_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasIcamax_64_ @@ -948,7 +916,6 @@ function hipblasIcamax_64_(handle,n,x,incx,myResult) bind(c, name="hipblasIcamax interface hipblasIzamax_64 function hipblasIzamax_64_(handle,n,x,incx,myResult) bind(c, name="hipblasIzamax_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasIzamax_64_ @@ -979,7 +946,6 @@ function hipblasIzamax_64_(handle,n,x,incx,myResult) bind(c, name="hipblasIzamax interface hipblasIsamaxBatched function hipblasIsamaxBatched_(handle,n,x,incx,batchCount,myResult) & bind(c, name="hipblasIsamaxBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasIsamaxBatched_ @@ -990,12 +956,21 @@ function hipblasIsamaxBatched_(handle,n,x,incx,batchCount,myResult) & integer(c_int),value :: batchCount type(c_ptr),value :: myResult end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasIsamaxBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasIsamaxBatched_rank_0,& + hipblasIsamaxBatched_rank_1 +#endif +#endif end interface interface hipblasIdamaxBatched function hipblasIdamaxBatched_(handle,n,x,incx,batchCount,myResult) & bind(c, name="hipblasIdamaxBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasIdamaxBatched_ @@ -1006,12 +981,21 @@ function hipblasIdamaxBatched_(handle,n,x,incx,batchCount,myResult) & integer(c_int),value :: batchCount type(c_ptr),value :: myResult end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasIdamaxBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasIdamaxBatched_rank_0,& + hipblasIdamaxBatched_rank_1 +#endif +#endif end interface interface hipblasIcamaxBatched function hipblasIcamaxBatched_(handle,n,x,incx,batchCount,myResult) & bind(c, name="hipblasIcamaxBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasIcamaxBatched_ @@ -1022,12 +1006,21 @@ function hipblasIcamaxBatched_(handle,n,x,incx,batchCount,myResult) & integer(c_int),value :: batchCount type(c_ptr),value :: myResult end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasIcamaxBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasIcamaxBatched_rank_0,& + hipblasIcamaxBatched_rank_1 +#endif +#endif end interface interface hipblasIzamaxBatched function hipblasIzamaxBatched_(handle,n,x,incx,batchCount,myResult) & bind(c, name="hipblasIzamaxBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasIzamaxBatched_ @@ -1038,12 +1031,21 @@ function hipblasIzamaxBatched_(handle,n,x,incx,batchCount,myResult) & integer(c_int),value :: batchCount type(c_ptr),value :: myResult end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasIzamaxBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasIzamaxBatched_rank_0,& + hipblasIzamaxBatched_rank_1 +#endif +#endif end interface interface hipblasIsamaxBatched_64 function hipblasIsamaxBatched_64_(handle,n,x,incx,batchCount,myResult) & bind(c, name="hipblasIsamaxBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasIsamaxBatched_64_ @@ -1054,12 +1056,21 @@ function hipblasIsamaxBatched_64_(handle,n,x,incx,batchCount,myResult) & integer(c_int64_t),value :: batchCount type(c_ptr),value :: myResult end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasIsamaxBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasIsamaxBatched_64_rank_0,& + hipblasIsamaxBatched_64_rank_1 +#endif +#endif end interface interface hipblasIdamaxBatched_64 function hipblasIdamaxBatched_64_(handle,n,x,incx,batchCount,myResult) & bind(c, name="hipblasIdamaxBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasIdamaxBatched_64_ @@ -1070,12 +1081,21 @@ function hipblasIdamaxBatched_64_(handle,n,x,incx,batchCount,myResult) & integer(c_int64_t),value :: batchCount type(c_ptr),value :: myResult end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasIdamaxBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasIdamaxBatched_64_rank_0,& + hipblasIdamaxBatched_64_rank_1 +#endif +#endif end interface interface hipblasIcamaxBatched_64 function hipblasIcamaxBatched_64_(handle,n,x,incx,batchCount,myResult) & bind(c, name="hipblasIcamaxBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasIcamaxBatched_64_ @@ -1086,12 +1106,21 @@ function hipblasIcamaxBatched_64_(handle,n,x,incx,batchCount,myResult) & integer(c_int64_t),value :: batchCount type(c_ptr),value :: myResult end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasIcamaxBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasIcamaxBatched_64_rank_0,& + hipblasIcamaxBatched_64_rank_1 +#endif +#endif end interface interface hipblasIzamaxBatched_64 function hipblasIzamaxBatched_64_(handle,n,x,incx,batchCount,myResult) & bind(c, name="hipblasIzamaxBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasIzamaxBatched_64_ @@ -1102,12 +1131,21 @@ function hipblasIzamaxBatched_64_(handle,n,x,incx,batchCount,myResult) & integer(c_int64_t),value :: batchCount type(c_ptr),value :: myResult end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasIzamaxBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasIzamaxBatched_64_rank_0,& + hipblasIzamaxBatched_64_rank_1 +#endif +#endif end interface interface hipblasIsamaxStridedBatched function hipblasIsamaxStridedBatched_(handle,n,x,incx,stridex,batchCount,myResult) & bind(c, name="hipblasIsamaxStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasIsamaxStridedBatched_ @@ -1121,12 +1159,18 @@ function hipblasIsamaxStridedBatched_(handle,n,x,incx,stridex,batchCount,myResul end function #ifdef USE_ASSUMED_RANK - module procedure hipblasIsamaxStridedBatched_assumed_rank + module procedure & + hipblasIsamaxStridedBatched_assumed_rank,& + hipblasIsamaxStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasIsamaxStridedBatched_rank_0,& - hipblasIsamaxStridedBatched_rank_1 + hipblasIsamaxStridedBatched_rank_0_devptr,& + hipblasIsamaxStridedBatched_rank_1,& + hipblasIsamaxStridedBatched_rank_1_devptr,& + hipblasIsamaxStridedBatched_strided_rank,& + hipblasIsamaxStridedBatched_strided_rank_devptr #endif #endif end interface @@ -1134,7 +1178,6 @@ function hipblasIsamaxStridedBatched_(handle,n,x,incx,stridex,batchCount,myResul interface hipblasIdamaxStridedBatched function hipblasIdamaxStridedBatched_(handle,n,x,incx,stridex,batchCount,myResult) & bind(c, name="hipblasIdamaxStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasIdamaxStridedBatched_ @@ -1148,12 +1191,18 @@ function hipblasIdamaxStridedBatched_(handle,n,x,incx,stridex,batchCount,myResul end function #ifdef USE_ASSUMED_RANK - module procedure hipblasIdamaxStridedBatched_assumed_rank + module procedure & + hipblasIdamaxStridedBatched_assumed_rank,& + hipblasIdamaxStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasIdamaxStridedBatched_rank_0,& - hipblasIdamaxStridedBatched_rank_1 + hipblasIdamaxStridedBatched_rank_0_devptr,& + hipblasIdamaxStridedBatched_rank_1,& + hipblasIdamaxStridedBatched_rank_1_devptr,& + hipblasIdamaxStridedBatched_strided_rank,& + hipblasIdamaxStridedBatched_strided_rank_devptr #endif #endif end interface @@ -1161,7 +1210,6 @@ function hipblasIdamaxStridedBatched_(handle,n,x,incx,stridex,batchCount,myResul interface hipblasIcamaxStridedBatched function hipblasIcamaxStridedBatched_(handle,n,x,incx,stridex,batchCount,myResult) & bind(c, name="hipblasIcamaxStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasIcamaxStridedBatched_ @@ -1175,12 +1223,18 @@ function hipblasIcamaxStridedBatched_(handle,n,x,incx,stridex,batchCount,myResul end function #ifdef USE_ASSUMED_RANK - module procedure hipblasIcamaxStridedBatched_assumed_rank + module procedure & + hipblasIcamaxStridedBatched_assumed_rank,& + hipblasIcamaxStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasIcamaxStridedBatched_rank_0,& - hipblasIcamaxStridedBatched_rank_1 + hipblasIcamaxStridedBatched_rank_0_devptr,& + hipblasIcamaxStridedBatched_rank_1,& + hipblasIcamaxStridedBatched_rank_1_devptr,& + hipblasIcamaxStridedBatched_strided_rank,& + hipblasIcamaxStridedBatched_strided_rank_devptr #endif #endif end interface @@ -1188,7 +1242,6 @@ function hipblasIcamaxStridedBatched_(handle,n,x,incx,stridex,batchCount,myResul interface hipblasIzamaxStridedBatched function hipblasIzamaxStridedBatched_(handle,n,x,incx,stridex,batchCount,myResult) & bind(c, name="hipblasIzamaxStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasIzamaxStridedBatched_ @@ -1202,12 +1255,18 @@ function hipblasIzamaxStridedBatched_(handle,n,x,incx,stridex,batchCount,myResul end function #ifdef USE_ASSUMED_RANK - module procedure hipblasIzamaxStridedBatched_assumed_rank + module procedure & + hipblasIzamaxStridedBatched_assumed_rank,& + hipblasIzamaxStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasIzamaxStridedBatched_rank_0,& - hipblasIzamaxStridedBatched_rank_1 + hipblasIzamaxStridedBatched_rank_0_devptr,& + hipblasIzamaxStridedBatched_rank_1,& + hipblasIzamaxStridedBatched_rank_1_devptr,& + hipblasIzamaxStridedBatched_strided_rank,& + hipblasIzamaxStridedBatched_strided_rank_devptr #endif #endif end interface @@ -1215,7 +1274,6 @@ function hipblasIzamaxStridedBatched_(handle,n,x,incx,stridex,batchCount,myResul interface hipblasIsamaxStridedBatched_64 function hipblasIsamaxStridedBatched_64_(handle,n,x,incx,stridex,batchCount,myResult) & bind(c, name="hipblasIsamaxStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasIsamaxStridedBatched_64_ @@ -1229,12 +1287,18 @@ function hipblasIsamaxStridedBatched_64_(handle,n,x,incx,stridex,batchCount,myRe end function #ifdef USE_ASSUMED_RANK - module procedure hipblasIsamaxStridedBatched_64_assumed_rank + module procedure & + hipblasIsamaxStridedBatched_64_assumed_rank,& + hipblasIsamaxStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasIsamaxStridedBatched_64_rank_0,& - hipblasIsamaxStridedBatched_64_rank_1 + hipblasIsamaxStridedBatched_64_rank_0_devptr,& + hipblasIsamaxStridedBatched_64_rank_1,& + hipblasIsamaxStridedBatched_64_rank_1_devptr,& + hipblasIsamaxStridedBatched_64_strided_rank,& + hipblasIsamaxStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -1242,7 +1306,6 @@ function hipblasIsamaxStridedBatched_64_(handle,n,x,incx,stridex,batchCount,myRe interface hipblasIdamaxStridedBatched_64 function hipblasIdamaxStridedBatched_64_(handle,n,x,incx,stridex,batchCount,myResult) & bind(c, name="hipblasIdamaxStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasIdamaxStridedBatched_64_ @@ -1256,12 +1319,18 @@ function hipblasIdamaxStridedBatched_64_(handle,n,x,incx,stridex,batchCount,myRe end function #ifdef USE_ASSUMED_RANK - module procedure hipblasIdamaxStridedBatched_64_assumed_rank + module procedure & + hipblasIdamaxStridedBatched_64_assumed_rank,& + hipblasIdamaxStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasIdamaxStridedBatched_64_rank_0,& - hipblasIdamaxStridedBatched_64_rank_1 + hipblasIdamaxStridedBatched_64_rank_0_devptr,& + hipblasIdamaxStridedBatched_64_rank_1,& + hipblasIdamaxStridedBatched_64_rank_1_devptr,& + hipblasIdamaxStridedBatched_64_strided_rank,& + hipblasIdamaxStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -1269,7 +1338,6 @@ function hipblasIdamaxStridedBatched_64_(handle,n,x,incx,stridex,batchCount,myRe interface hipblasIcamaxStridedBatched_64 function hipblasIcamaxStridedBatched_64_(handle,n,x,incx,stridex,batchCount,myResult) & bind(c, name="hipblasIcamaxStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasIcamaxStridedBatched_64_ @@ -1283,12 +1351,18 @@ function hipblasIcamaxStridedBatched_64_(handle,n,x,incx,stridex,batchCount,myRe end function #ifdef USE_ASSUMED_RANK - module procedure hipblasIcamaxStridedBatched_64_assumed_rank + module procedure & + hipblasIcamaxStridedBatched_64_assumed_rank,& + hipblasIcamaxStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasIcamaxStridedBatched_64_rank_0,& - hipblasIcamaxStridedBatched_64_rank_1 + hipblasIcamaxStridedBatched_64_rank_0_devptr,& + hipblasIcamaxStridedBatched_64_rank_1,& + hipblasIcamaxStridedBatched_64_rank_1_devptr,& + hipblasIcamaxStridedBatched_64_strided_rank,& + hipblasIcamaxStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -1296,7 +1370,6 @@ function hipblasIcamaxStridedBatched_64_(handle,n,x,incx,stridex,batchCount,myRe interface hipblasIzamaxStridedBatched_64 function hipblasIzamaxStridedBatched_64_(handle,n,x,incx,stridex,batchCount,myResult) & bind(c, name="hipblasIzamaxStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasIzamaxStridedBatched_64_ @@ -1310,19 +1383,24 @@ function hipblasIzamaxStridedBatched_64_(handle,n,x,incx,stridex,batchCount,myRe end function #ifdef USE_ASSUMED_RANK - module procedure hipblasIzamaxStridedBatched_64_assumed_rank + module procedure & + hipblasIzamaxStridedBatched_64_assumed_rank,& + hipblasIzamaxStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasIzamaxStridedBatched_64_rank_0,& - hipblasIzamaxStridedBatched_64_rank_1 + hipblasIzamaxStridedBatched_64_rank_0_devptr,& + hipblasIzamaxStridedBatched_64_rank_1,& + hipblasIzamaxStridedBatched_64_rank_1_devptr,& + hipblasIzamaxStridedBatched_64_strided_rank,& + hipblasIzamaxStridedBatched_64_strided_rank_devptr #endif #endif end interface interface hipblasIsamin function hipblasIsamin_(handle,n,x,incx,myResult) bind(c, name="hipblasIsamin") - use iso_c_binding import implicit none integer(c_int) :: hipblasIsamin_ @@ -1352,7 +1430,6 @@ function hipblasIsamin_(handle,n,x,incx,myResult) bind(c, name="hipblasIsamin") interface hipblasIdamin function hipblasIdamin_(handle,n,x,incx,myResult) bind(c, name="hipblasIdamin") - use iso_c_binding import implicit none integer(c_int) :: hipblasIdamin_ @@ -1382,7 +1459,6 @@ function hipblasIdamin_(handle,n,x,incx,myResult) bind(c, name="hipblasIdamin") interface hipblasIcamin function hipblasIcamin_(handle,n,x,incx,myResult) bind(c, name="hipblasIcamin") - use iso_c_binding import implicit none integer(c_int) :: hipblasIcamin_ @@ -1412,7 +1488,6 @@ function hipblasIcamin_(handle,n,x,incx,myResult) bind(c, name="hipblasIcamin") interface hipblasIzamin function hipblasIzamin_(handle,n,x,incx,myResult) bind(c, name="hipblasIzamin") - use iso_c_binding import implicit none integer(c_int) :: hipblasIzamin_ @@ -1442,7 +1517,6 @@ function hipblasIzamin_(handle,n,x,incx,myResult) bind(c, name="hipblasIzamin") interface hipblasIsamin_64 function hipblasIsamin_64_(handle,n,x,incx,myResult) bind(c, name="hipblasIsamin_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasIsamin_64_ @@ -1472,7 +1546,6 @@ function hipblasIsamin_64_(handle,n,x,incx,myResult) bind(c, name="hipblasIsamin interface hipblasIdamin_64 function hipblasIdamin_64_(handle,n,x,incx,myResult) bind(c, name="hipblasIdamin_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasIdamin_64_ @@ -1502,7 +1575,6 @@ function hipblasIdamin_64_(handle,n,x,incx,myResult) bind(c, name="hipblasIdamin interface hipblasIcamin_64 function hipblasIcamin_64_(handle,n,x,incx,myResult) bind(c, name="hipblasIcamin_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasIcamin_64_ @@ -1532,7 +1604,6 @@ function hipblasIcamin_64_(handle,n,x,incx,myResult) bind(c, name="hipblasIcamin interface hipblasIzamin_64 function hipblasIzamin_64_(handle,n,x,incx,myResult) bind(c, name="hipblasIzamin_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasIzamin_64_ @@ -1563,7 +1634,6 @@ function hipblasIzamin_64_(handle,n,x,incx,myResult) bind(c, name="hipblasIzamin interface hipblasIsaminBatched function hipblasIsaminBatched_(handle,n,x,incx,batchCount,myResult) & bind(c, name="hipblasIsaminBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasIsaminBatched_ @@ -1574,12 +1644,21 @@ function hipblasIsaminBatched_(handle,n,x,incx,batchCount,myResult) & integer(c_int),value :: batchCount type(c_ptr),value :: myResult end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasIsaminBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasIsaminBatched_rank_0,& + hipblasIsaminBatched_rank_1 +#endif +#endif end interface interface hipblasIdaminBatched function hipblasIdaminBatched_(handle,n,x,incx,batchCount,myResult) & bind(c, name="hipblasIdaminBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasIdaminBatched_ @@ -1590,12 +1669,21 @@ function hipblasIdaminBatched_(handle,n,x,incx,batchCount,myResult) & integer(c_int),value :: batchCount type(c_ptr),value :: myResult end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasIdaminBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasIdaminBatched_rank_0,& + hipblasIdaminBatched_rank_1 +#endif +#endif end interface interface hipblasIcaminBatched function hipblasIcaminBatched_(handle,n,x,incx,batchCount,myResult) & bind(c, name="hipblasIcaminBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasIcaminBatched_ @@ -1606,12 +1694,21 @@ function hipblasIcaminBatched_(handle,n,x,incx,batchCount,myResult) & integer(c_int),value :: batchCount type(c_ptr),value :: myResult end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasIcaminBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasIcaminBatched_rank_0,& + hipblasIcaminBatched_rank_1 +#endif +#endif end interface interface hipblasIzaminBatched function hipblasIzaminBatched_(handle,n,x,incx,batchCount,myResult) & bind(c, name="hipblasIzaminBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasIzaminBatched_ @@ -1622,12 +1719,21 @@ function hipblasIzaminBatched_(handle,n,x,incx,batchCount,myResult) & integer(c_int),value :: batchCount type(c_ptr),value :: myResult end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasIzaminBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasIzaminBatched_rank_0,& + hipblasIzaminBatched_rank_1 +#endif +#endif end interface interface hipblasIsaminBatched_64 function hipblasIsaminBatched_64_(handle,n,x,incx,batchCount,myResult) & bind(c, name="hipblasIsaminBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasIsaminBatched_64_ @@ -1638,12 +1744,21 @@ function hipblasIsaminBatched_64_(handle,n,x,incx,batchCount,myResult) & integer(c_int64_t),value :: batchCount type(c_ptr),value :: myResult end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasIsaminBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasIsaminBatched_64_rank_0,& + hipblasIsaminBatched_64_rank_1 +#endif +#endif end interface interface hipblasIdaminBatched_64 function hipblasIdaminBatched_64_(handle,n,x,incx,batchCount,myResult) & bind(c, name="hipblasIdaminBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasIdaminBatched_64_ @@ -1654,12 +1769,21 @@ function hipblasIdaminBatched_64_(handle,n,x,incx,batchCount,myResult) & integer(c_int64_t),value :: batchCount type(c_ptr),value :: myResult end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasIdaminBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasIdaminBatched_64_rank_0,& + hipblasIdaminBatched_64_rank_1 +#endif +#endif end interface interface hipblasIcaminBatched_64 function hipblasIcaminBatched_64_(handle,n,x,incx,batchCount,myResult) & bind(c, name="hipblasIcaminBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasIcaminBatched_64_ @@ -1670,12 +1794,21 @@ function hipblasIcaminBatched_64_(handle,n,x,incx,batchCount,myResult) & integer(c_int64_t),value :: batchCount type(c_ptr),value :: myResult end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasIcaminBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasIcaminBatched_64_rank_0,& + hipblasIcaminBatched_64_rank_1 +#endif +#endif end interface interface hipblasIzaminBatched_64 function hipblasIzaminBatched_64_(handle,n,x,incx,batchCount,myResult) & bind(c, name="hipblasIzaminBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasIzaminBatched_64_ @@ -1686,12 +1819,21 @@ function hipblasIzaminBatched_64_(handle,n,x,incx,batchCount,myResult) & integer(c_int64_t),value :: batchCount type(c_ptr),value :: myResult end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasIzaminBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasIzaminBatched_64_rank_0,& + hipblasIzaminBatched_64_rank_1 +#endif +#endif end interface interface hipblasIsaminStridedBatched function hipblasIsaminStridedBatched_(handle,n,x,incx,stridex,batchCount,myResult) & bind(c, name="hipblasIsaminStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasIsaminStridedBatched_ @@ -1705,12 +1847,18 @@ function hipblasIsaminStridedBatched_(handle,n,x,incx,stridex,batchCount,myResul end function #ifdef USE_ASSUMED_RANK - module procedure hipblasIsaminStridedBatched_assumed_rank + module procedure & + hipblasIsaminStridedBatched_assumed_rank,& + hipblasIsaminStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasIsaminStridedBatched_rank_0,& - hipblasIsaminStridedBatched_rank_1 + hipblasIsaminStridedBatched_rank_0_devptr,& + hipblasIsaminStridedBatched_rank_1,& + hipblasIsaminStridedBatched_rank_1_devptr,& + hipblasIsaminStridedBatched_strided_rank,& + hipblasIsaminStridedBatched_strided_rank_devptr #endif #endif end interface @@ -1718,7 +1866,6 @@ function hipblasIsaminStridedBatched_(handle,n,x,incx,stridex,batchCount,myResul interface hipblasIdaminStridedBatched function hipblasIdaminStridedBatched_(handle,n,x,incx,stridex,batchCount,myResult) & bind(c, name="hipblasIdaminStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasIdaminStridedBatched_ @@ -1732,12 +1879,18 @@ function hipblasIdaminStridedBatched_(handle,n,x,incx,stridex,batchCount,myResul end function #ifdef USE_ASSUMED_RANK - module procedure hipblasIdaminStridedBatched_assumed_rank + module procedure & + hipblasIdaminStridedBatched_assumed_rank,& + hipblasIdaminStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasIdaminStridedBatched_rank_0,& - hipblasIdaminStridedBatched_rank_1 + hipblasIdaminStridedBatched_rank_0_devptr,& + hipblasIdaminStridedBatched_rank_1,& + hipblasIdaminStridedBatched_rank_1_devptr,& + hipblasIdaminStridedBatched_strided_rank,& + hipblasIdaminStridedBatched_strided_rank_devptr #endif #endif end interface @@ -1745,7 +1898,6 @@ function hipblasIdaminStridedBatched_(handle,n,x,incx,stridex,batchCount,myResul interface hipblasIcaminStridedBatched function hipblasIcaminStridedBatched_(handle,n,x,incx,stridex,batchCount,myResult) & bind(c, name="hipblasIcaminStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasIcaminStridedBatched_ @@ -1759,12 +1911,18 @@ function hipblasIcaminStridedBatched_(handle,n,x,incx,stridex,batchCount,myResul end function #ifdef USE_ASSUMED_RANK - module procedure hipblasIcaminStridedBatched_assumed_rank + module procedure & + hipblasIcaminStridedBatched_assumed_rank,& + hipblasIcaminStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasIcaminStridedBatched_rank_0,& - hipblasIcaminStridedBatched_rank_1 + hipblasIcaminStridedBatched_rank_0_devptr,& + hipblasIcaminStridedBatched_rank_1,& + hipblasIcaminStridedBatched_rank_1_devptr,& + hipblasIcaminStridedBatched_strided_rank,& + hipblasIcaminStridedBatched_strided_rank_devptr #endif #endif end interface @@ -1772,7 +1930,6 @@ function hipblasIcaminStridedBatched_(handle,n,x,incx,stridex,batchCount,myResul interface hipblasIzaminStridedBatched function hipblasIzaminStridedBatched_(handle,n,x,incx,stridex,batchCount,myResult) & bind(c, name="hipblasIzaminStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasIzaminStridedBatched_ @@ -1786,12 +1943,18 @@ function hipblasIzaminStridedBatched_(handle,n,x,incx,stridex,batchCount,myResul end function #ifdef USE_ASSUMED_RANK - module procedure hipblasIzaminStridedBatched_assumed_rank + module procedure & + hipblasIzaminStridedBatched_assumed_rank,& + hipblasIzaminStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasIzaminStridedBatched_rank_0,& - hipblasIzaminStridedBatched_rank_1 + hipblasIzaminStridedBatched_rank_0_devptr,& + hipblasIzaminStridedBatched_rank_1,& + hipblasIzaminStridedBatched_rank_1_devptr,& + hipblasIzaminStridedBatched_strided_rank,& + hipblasIzaminStridedBatched_strided_rank_devptr #endif #endif end interface @@ -1799,7 +1962,6 @@ function hipblasIzaminStridedBatched_(handle,n,x,incx,stridex,batchCount,myResul interface hipblasIsaminStridedBatched_64 function hipblasIsaminStridedBatched_64_(handle,n,x,incx,stridex,batchCount,myResult) & bind(c, name="hipblasIsaminStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasIsaminStridedBatched_64_ @@ -1813,12 +1975,18 @@ function hipblasIsaminStridedBatched_64_(handle,n,x,incx,stridex,batchCount,myRe end function #ifdef USE_ASSUMED_RANK - module procedure hipblasIsaminStridedBatched_64_assumed_rank + module procedure & + hipblasIsaminStridedBatched_64_assumed_rank,& + hipblasIsaminStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasIsaminStridedBatched_64_rank_0,& - hipblasIsaminStridedBatched_64_rank_1 + hipblasIsaminStridedBatched_64_rank_0_devptr,& + hipblasIsaminStridedBatched_64_rank_1,& + hipblasIsaminStridedBatched_64_rank_1_devptr,& + hipblasIsaminStridedBatched_64_strided_rank,& + hipblasIsaminStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -1826,7 +1994,6 @@ function hipblasIsaminStridedBatched_64_(handle,n,x,incx,stridex,batchCount,myRe interface hipblasIdaminStridedBatched_64 function hipblasIdaminStridedBatched_64_(handle,n,x,incx,stridex,batchCount,myResult) & bind(c, name="hipblasIdaminStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasIdaminStridedBatched_64_ @@ -1840,12 +2007,18 @@ function hipblasIdaminStridedBatched_64_(handle,n,x,incx,stridex,batchCount,myRe end function #ifdef USE_ASSUMED_RANK - module procedure hipblasIdaminStridedBatched_64_assumed_rank + module procedure & + hipblasIdaminStridedBatched_64_assumed_rank,& + hipblasIdaminStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasIdaminStridedBatched_64_rank_0,& - hipblasIdaminStridedBatched_64_rank_1 + hipblasIdaminStridedBatched_64_rank_0_devptr,& + hipblasIdaminStridedBatched_64_rank_1,& + hipblasIdaminStridedBatched_64_rank_1_devptr,& + hipblasIdaminStridedBatched_64_strided_rank,& + hipblasIdaminStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -1853,7 +2026,6 @@ function hipblasIdaminStridedBatched_64_(handle,n,x,incx,stridex,batchCount,myRe interface hipblasIcaminStridedBatched_64 function hipblasIcaminStridedBatched_64_(handle,n,x,incx,stridex,batchCount,myResult) & bind(c, name="hipblasIcaminStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasIcaminStridedBatched_64_ @@ -1867,12 +2039,18 @@ function hipblasIcaminStridedBatched_64_(handle,n,x,incx,stridex,batchCount,myRe end function #ifdef USE_ASSUMED_RANK - module procedure hipblasIcaminStridedBatched_64_assumed_rank + module procedure & + hipblasIcaminStridedBatched_64_assumed_rank,& + hipblasIcaminStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasIcaminStridedBatched_64_rank_0,& - hipblasIcaminStridedBatched_64_rank_1 + hipblasIcaminStridedBatched_64_rank_0_devptr,& + hipblasIcaminStridedBatched_64_rank_1,& + hipblasIcaminStridedBatched_64_rank_1_devptr,& + hipblasIcaminStridedBatched_64_strided_rank,& + hipblasIcaminStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -1880,7 +2058,6 @@ function hipblasIcaminStridedBatched_64_(handle,n,x,incx,stridex,batchCount,myRe interface hipblasIzaminStridedBatched_64 function hipblasIzaminStridedBatched_64_(handle,n,x,incx,stridex,batchCount,myResult) & bind(c, name="hipblasIzaminStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasIzaminStridedBatched_64_ @@ -1894,19 +2071,24 @@ function hipblasIzaminStridedBatched_64_(handle,n,x,incx,stridex,batchCount,myRe end function #ifdef USE_ASSUMED_RANK - module procedure hipblasIzaminStridedBatched_64_assumed_rank + module procedure & + hipblasIzaminStridedBatched_64_assumed_rank,& + hipblasIzaminStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasIzaminStridedBatched_64_rank_0,& - hipblasIzaminStridedBatched_64_rank_1 + hipblasIzaminStridedBatched_64_rank_0_devptr,& + hipblasIzaminStridedBatched_64_rank_1,& + hipblasIzaminStridedBatched_64_rank_1_devptr,& + hipblasIzaminStridedBatched_64_strided_rank,& + hipblasIzaminStridedBatched_64_strided_rank_devptr #endif #endif end interface interface hipblasSasum function hipblasSasum_(handle,n,x,incx,myResult) bind(c, name="hipblasSasum") - use iso_c_binding import implicit none integer(c_int) :: hipblasSasum_ @@ -1936,7 +2118,6 @@ function hipblasSasum_(handle,n,x,incx,myResult) bind(c, name="hipblasSasum") interface hipblasDasum function hipblasDasum_(handle,n,x,incx,myResult) bind(c, name="hipblasDasum") - use iso_c_binding import implicit none integer(c_int) :: hipblasDasum_ @@ -1966,7 +2147,6 @@ function hipblasDasum_(handle,n,x,incx,myResult) bind(c, name="hipblasDasum") interface hipblasScasum function hipblasScasum_(handle,n,x,incx,myResult) bind(c, name="hipblasScasum") - use iso_c_binding import implicit none integer(c_int) :: hipblasScasum_ @@ -1996,7 +2176,6 @@ function hipblasScasum_(handle,n,x,incx,myResult) bind(c, name="hipblasScasum") interface hipblasDzasum function hipblasDzasum_(handle,n,x,incx,myResult) bind(c, name="hipblasDzasum") - use iso_c_binding import implicit none integer(c_int) :: hipblasDzasum_ @@ -2026,7 +2205,6 @@ function hipblasDzasum_(handle,n,x,incx,myResult) bind(c, name="hipblasDzasum") interface hipblasSasum_64 function hipblasSasum_64_(handle,n,x,incx,myResult) bind(c, name="hipblasSasum_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSasum_64_ @@ -2056,7 +2234,6 @@ function hipblasSasum_64_(handle,n,x,incx,myResult) bind(c, name="hipblasSasum_6 interface hipblasDasum_64 function hipblasDasum_64_(handle,n,x,incx,myResult) bind(c, name="hipblasDasum_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDasum_64_ @@ -2086,7 +2263,6 @@ function hipblasDasum_64_(handle,n,x,incx,myResult) bind(c, name="hipblasDasum_6 interface hipblasScasum_64 function hipblasScasum_64_(handle,n,x,incx,myResult) bind(c, name="hipblasScasum_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasScasum_64_ @@ -2116,7 +2292,6 @@ function hipblasScasum_64_(handle,n,x,incx,myResult) bind(c, name="hipblasScasum interface hipblasDzasum_64 function hipblasDzasum_64_(handle,n,x,incx,myResult) bind(c, name="hipblasDzasum_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDzasum_64_ @@ -2147,7 +2322,6 @@ function hipblasDzasum_64_(handle,n,x,incx,myResult) bind(c, name="hipblasDzasum interface hipblasSasumBatched function hipblasSasumBatched_(handle,n,x,incx,batchCount,myResult) & bind(c, name="hipblasSasumBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasSasumBatched_ @@ -2158,12 +2332,21 @@ function hipblasSasumBatched_(handle,n,x,incx,batchCount,myResult) & integer(c_int),value :: batchCount type(c_ptr),value :: myResult end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSasumBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSasumBatched_rank_0,& + hipblasSasumBatched_rank_1 +#endif +#endif end interface interface hipblasDasumBatched function hipblasDasumBatched_(handle,n,x,incx,batchCount,myResult) & bind(c, name="hipblasDasumBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDasumBatched_ @@ -2174,12 +2357,21 @@ function hipblasDasumBatched_(handle,n,x,incx,batchCount,myResult) & integer(c_int),value :: batchCount type(c_ptr),value :: myResult end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDasumBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDasumBatched_rank_0,& + hipblasDasumBatched_rank_1 +#endif +#endif end interface interface hipblasScasumBatched function hipblasScasumBatched_(handle,n,x,incx,batchCount,myResult) & bind(c, name="hipblasScasumBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasScasumBatched_ @@ -2190,12 +2382,21 @@ function hipblasScasumBatched_(handle,n,x,incx,batchCount,myResult) & integer(c_int),value :: batchCount type(c_ptr),value :: myResult end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasScasumBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasScasumBatched_rank_0,& + hipblasScasumBatched_rank_1 +#endif +#endif end interface interface hipblasDzasumBatched function hipblasDzasumBatched_(handle,n,x,incx,batchCount,myResult) & bind(c, name="hipblasDzasumBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDzasumBatched_ @@ -2206,12 +2407,21 @@ function hipblasDzasumBatched_(handle,n,x,incx,batchCount,myResult) & integer(c_int),value :: batchCount type(c_ptr),value :: myResult end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDzasumBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDzasumBatched_rank_0,& + hipblasDzasumBatched_rank_1 +#endif +#endif end interface interface hipblasSasumBatched_64 function hipblasSasumBatched_64_(handle,n,x,incx,batchCount,myResult) & bind(c, name="hipblasSasumBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSasumBatched_64_ @@ -2222,12 +2432,21 @@ function hipblasSasumBatched_64_(handle,n,x,incx,batchCount,myResult) & integer(c_int64_t),value :: batchCount type(c_ptr),value :: myResult end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSasumBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSasumBatched_64_rank_0,& + hipblasSasumBatched_64_rank_1 +#endif +#endif end interface interface hipblasDasumBatched_64 function hipblasDasumBatched_64_(handle,n,x,incx,batchCount,myResult) & bind(c, name="hipblasDasumBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDasumBatched_64_ @@ -2238,12 +2457,21 @@ function hipblasDasumBatched_64_(handle,n,x,incx,batchCount,myResult) & integer(c_int64_t),value :: batchCount type(c_ptr),value :: myResult end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDasumBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDasumBatched_64_rank_0,& + hipblasDasumBatched_64_rank_1 +#endif +#endif end interface interface hipblasScasumBatched_64 function hipblasScasumBatched_64_(handle,n,x,incx,batchCount,myResult) & bind(c, name="hipblasScasumBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasScasumBatched_64_ @@ -2254,12 +2482,21 @@ function hipblasScasumBatched_64_(handle,n,x,incx,batchCount,myResult) & integer(c_int64_t),value :: batchCount type(c_ptr),value :: myResult end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasScasumBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasScasumBatched_64_rank_0,& + hipblasScasumBatched_64_rank_1 +#endif +#endif end interface interface hipblasDzasumBatched_64 function hipblasDzasumBatched_64_(handle,n,x,incx,batchCount,myResult) & bind(c, name="hipblasDzasumBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDzasumBatched_64_ @@ -2270,12 +2507,21 @@ function hipblasDzasumBatched_64_(handle,n,x,incx,batchCount,myResult) & integer(c_int64_t),value :: batchCount type(c_ptr),value :: myResult end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDzasumBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDzasumBatched_64_rank_0,& + hipblasDzasumBatched_64_rank_1 +#endif +#endif end interface interface hipblasSasumStridedBatched function hipblasSasumStridedBatched_(handle,n,x,incx,stridex,batchCount,myResult) & bind(c, name="hipblasSasumStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasSasumStridedBatched_ @@ -2289,12 +2535,18 @@ function hipblasSasumStridedBatched_(handle,n,x,incx,stridex,batchCount,myResult end function #ifdef USE_ASSUMED_RANK - module procedure hipblasSasumStridedBatched_assumed_rank + module procedure & + hipblasSasumStridedBatched_assumed_rank,& + hipblasSasumStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSasumStridedBatched_rank_0,& - hipblasSasumStridedBatched_rank_1 + hipblasSasumStridedBatched_rank_0_devptr,& + hipblasSasumStridedBatched_rank_1,& + hipblasSasumStridedBatched_rank_1_devptr,& + hipblasSasumStridedBatched_strided_rank,& + hipblasSasumStridedBatched_strided_rank_devptr #endif #endif end interface @@ -2302,7 +2554,6 @@ function hipblasSasumStridedBatched_(handle,n,x,incx,stridex,batchCount,myResult interface hipblasDasumStridedBatched function hipblasDasumStridedBatched_(handle,n,x,incx,stridex,batchCount,myResult) & bind(c, name="hipblasDasumStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDasumStridedBatched_ @@ -2316,12 +2567,18 @@ function hipblasDasumStridedBatched_(handle,n,x,incx,stridex,batchCount,myResult end function #ifdef USE_ASSUMED_RANK - module procedure hipblasDasumStridedBatched_assumed_rank + module procedure & + hipblasDasumStridedBatched_assumed_rank,& + hipblasDasumStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDasumStridedBatched_rank_0,& - hipblasDasumStridedBatched_rank_1 + hipblasDasumStridedBatched_rank_0_devptr,& + hipblasDasumStridedBatched_rank_1,& + hipblasDasumStridedBatched_rank_1_devptr,& + hipblasDasumStridedBatched_strided_rank,& + hipblasDasumStridedBatched_strided_rank_devptr #endif #endif end interface @@ -2329,7 +2586,6 @@ function hipblasDasumStridedBatched_(handle,n,x,incx,stridex,batchCount,myResult interface hipblasScasumStridedBatched function hipblasScasumStridedBatched_(handle,n,x,incx,stridex,batchCount,myResult) & bind(c, name="hipblasScasumStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasScasumStridedBatched_ @@ -2343,12 +2599,18 @@ function hipblasScasumStridedBatched_(handle,n,x,incx,stridex,batchCount,myResul end function #ifdef USE_ASSUMED_RANK - module procedure hipblasScasumStridedBatched_assumed_rank + module procedure & + hipblasScasumStridedBatched_assumed_rank,& + hipblasScasumStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasScasumStridedBatched_rank_0,& - hipblasScasumStridedBatched_rank_1 + hipblasScasumStridedBatched_rank_0_devptr,& + hipblasScasumStridedBatched_rank_1,& + hipblasScasumStridedBatched_rank_1_devptr,& + hipblasScasumStridedBatched_strided_rank,& + hipblasScasumStridedBatched_strided_rank_devptr #endif #endif end interface @@ -2356,7 +2618,6 @@ function hipblasScasumStridedBatched_(handle,n,x,incx,stridex,batchCount,myResul interface hipblasDzasumStridedBatched function hipblasDzasumStridedBatched_(handle,n,x,incx,stridex,batchCount,myResult) & bind(c, name="hipblasDzasumStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDzasumStridedBatched_ @@ -2370,12 +2631,18 @@ function hipblasDzasumStridedBatched_(handle,n,x,incx,stridex,batchCount,myResul end function #ifdef USE_ASSUMED_RANK - module procedure hipblasDzasumStridedBatched_assumed_rank + module procedure & + hipblasDzasumStridedBatched_assumed_rank,& + hipblasDzasumStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDzasumStridedBatched_rank_0,& - hipblasDzasumStridedBatched_rank_1 + hipblasDzasumStridedBatched_rank_0_devptr,& + hipblasDzasumStridedBatched_rank_1,& + hipblasDzasumStridedBatched_rank_1_devptr,& + hipblasDzasumStridedBatched_strided_rank,& + hipblasDzasumStridedBatched_strided_rank_devptr #endif #endif end interface @@ -2383,7 +2650,6 @@ function hipblasDzasumStridedBatched_(handle,n,x,incx,stridex,batchCount,myResul interface hipblasSasumStridedBatched_64 function hipblasSasumStridedBatched_64_(handle,n,x,incx,stridex,batchCount,myResult) & bind(c, name="hipblasSasumStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSasumStridedBatched_64_ @@ -2397,12 +2663,18 @@ function hipblasSasumStridedBatched_64_(handle,n,x,incx,stridex,batchCount,myRes end function #ifdef USE_ASSUMED_RANK - module procedure hipblasSasumStridedBatched_64_assumed_rank + module procedure & + hipblasSasumStridedBatched_64_assumed_rank,& + hipblasSasumStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSasumStridedBatched_64_rank_0,& - hipblasSasumStridedBatched_64_rank_1 + hipblasSasumStridedBatched_64_rank_0_devptr,& + hipblasSasumStridedBatched_64_rank_1,& + hipblasSasumStridedBatched_64_rank_1_devptr,& + hipblasSasumStridedBatched_64_strided_rank,& + hipblasSasumStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -2410,7 +2682,6 @@ function hipblasSasumStridedBatched_64_(handle,n,x,incx,stridex,batchCount,myRes interface hipblasDasumStridedBatched_64 function hipblasDasumStridedBatched_64_(handle,n,x,incx,stridex,batchCount,myResult) & bind(c, name="hipblasDasumStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDasumStridedBatched_64_ @@ -2424,12 +2695,18 @@ function hipblasDasumStridedBatched_64_(handle,n,x,incx,stridex,batchCount,myRes end function #ifdef USE_ASSUMED_RANK - module procedure hipblasDasumStridedBatched_64_assumed_rank + module procedure & + hipblasDasumStridedBatched_64_assumed_rank,& + hipblasDasumStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDasumStridedBatched_64_rank_0,& - hipblasDasumStridedBatched_64_rank_1 + hipblasDasumStridedBatched_64_rank_0_devptr,& + hipblasDasumStridedBatched_64_rank_1,& + hipblasDasumStridedBatched_64_rank_1_devptr,& + hipblasDasumStridedBatched_64_strided_rank,& + hipblasDasumStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -2437,7 +2714,6 @@ function hipblasDasumStridedBatched_64_(handle,n,x,incx,stridex,batchCount,myRes interface hipblasScasumStridedBatched_64 function hipblasScasumStridedBatched_64_(handle,n,x,incx,stridex,batchCount,myResult) & bind(c, name="hipblasScasumStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasScasumStridedBatched_64_ @@ -2451,12 +2727,18 @@ function hipblasScasumStridedBatched_64_(handle,n,x,incx,stridex,batchCount,myRe end function #ifdef USE_ASSUMED_RANK - module procedure hipblasScasumStridedBatched_64_assumed_rank + module procedure & + hipblasScasumStridedBatched_64_assumed_rank,& + hipblasScasumStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasScasumStridedBatched_64_rank_0,& - hipblasScasumStridedBatched_64_rank_1 + hipblasScasumStridedBatched_64_rank_0_devptr,& + hipblasScasumStridedBatched_64_rank_1,& + hipblasScasumStridedBatched_64_rank_1_devptr,& + hipblasScasumStridedBatched_64_strided_rank,& + hipblasScasumStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -2464,7 +2746,6 @@ function hipblasScasumStridedBatched_64_(handle,n,x,incx,stridex,batchCount,myRe interface hipblasDzasumStridedBatched_64 function hipblasDzasumStridedBatched_64_(handle,n,x,incx,stridex,batchCount,myResult) & bind(c, name="hipblasDzasumStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDzasumStridedBatched_64_ @@ -2478,19 +2759,24 @@ function hipblasDzasumStridedBatched_64_(handle,n,x,incx,stridex,batchCount,myRe end function #ifdef USE_ASSUMED_RANK - module procedure hipblasDzasumStridedBatched_64_assumed_rank + module procedure & + hipblasDzasumStridedBatched_64_assumed_rank,& + hipblasDzasumStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDzasumStridedBatched_64_rank_0,& - hipblasDzasumStridedBatched_64_rank_1 + hipblasDzasumStridedBatched_64_rank_0_devptr,& + hipblasDzasumStridedBatched_64_rank_1,& + hipblasDzasumStridedBatched_64_rank_1_devptr,& + hipblasDzasumStridedBatched_64_strided_rank,& + hipblasDzasumStridedBatched_64_strided_rank_devptr #endif #endif end interface interface hipblasHaxpy function hipblasHaxpy_(handle,n,alpha,x,incx,y,incy) bind(c, name="hipblasHaxpy") - use iso_c_binding import implicit none integer(c_int) :: hipblasHaxpy_ @@ -2506,7 +2792,6 @@ function hipblasHaxpy_(handle,n,alpha,x,incx,y,incy) bind(c, name="hipblasHaxpy" interface hipblasSaxpy function hipblasSaxpy_(handle,n,alpha,x,incx,y,incy) bind(c, name="hipblasSaxpy") - use iso_c_binding import implicit none integer(c_int) :: hipblasSaxpy_ @@ -2522,19 +2807,22 @@ function hipblasSaxpy_(handle,n,alpha,x,incx,y,incy) bind(c, name="hipblasSaxpy" module procedure hipblasSaxpy_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasSaxpy_assumed_rank + module procedure & + hipblasSaxpy_assumed_rank,& + hipblasSaxpy_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSaxpy_rank_0,& - hipblasSaxpy_rank_1 + hipblasSaxpy_rank_0_devptr,& + hipblasSaxpy_rank_1,& + hipblasSaxpy_rank_1_devptr #endif #endif end interface interface hipblasDaxpy function hipblasDaxpy_(handle,n,alpha,x,incx,y,incy) bind(c, name="hipblasDaxpy") - use iso_c_binding import implicit none integer(c_int) :: hipblasDaxpy_ @@ -2550,19 +2838,22 @@ function hipblasDaxpy_(handle,n,alpha,x,incx,y,incy) bind(c, name="hipblasDaxpy" module procedure hipblasDaxpy_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDaxpy_assumed_rank + module procedure & + hipblasDaxpy_assumed_rank,& + hipblasDaxpy_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDaxpy_rank_0,& - hipblasDaxpy_rank_1 + hipblasDaxpy_rank_0_devptr,& + hipblasDaxpy_rank_1,& + hipblasDaxpy_rank_1_devptr #endif #endif end interface interface hipblasCaxpy function hipblasCaxpy_(handle,n,alpha,x,incx,y,incy) bind(c, name="hipblasCaxpy") - use iso_c_binding import implicit none integer(c_int) :: hipblasCaxpy_ @@ -2578,19 +2869,22 @@ function hipblasCaxpy_(handle,n,alpha,x,incx,y,incy) bind(c, name="hipblasCaxpy" module procedure hipblasCaxpy_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCaxpy_assumed_rank + module procedure & + hipblasCaxpy_assumed_rank,& + hipblasCaxpy_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCaxpy_rank_0,& - hipblasCaxpy_rank_1 + hipblasCaxpy_rank_0_devptr,& + hipblasCaxpy_rank_1,& + hipblasCaxpy_rank_1_devptr #endif #endif end interface interface hipblasZaxpy function hipblasZaxpy_(handle,n,alpha,x,incx,y,incy) bind(c, name="hipblasZaxpy") - use iso_c_binding import implicit none integer(c_int) :: hipblasZaxpy_ @@ -2606,19 +2900,22 @@ function hipblasZaxpy_(handle,n,alpha,x,incx,y,incy) bind(c, name="hipblasZaxpy" module procedure hipblasZaxpy_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZaxpy_assumed_rank + module procedure & + hipblasZaxpy_assumed_rank,& + hipblasZaxpy_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZaxpy_rank_0,& - hipblasZaxpy_rank_1 + hipblasZaxpy_rank_0_devptr,& + hipblasZaxpy_rank_1,& + hipblasZaxpy_rank_1_devptr #endif #endif end interface interface hipblasHaxpy_64 function hipblasHaxpy_64_(handle,n,alpha,x,incx,y,incy) bind(c, name="hipblasHaxpy_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasHaxpy_64_ @@ -2634,7 +2931,6 @@ function hipblasHaxpy_64_(handle,n,alpha,x,incx,y,incy) bind(c, name="hipblasHax interface hipblasSaxpy_64 function hipblasSaxpy_64_(handle,n,alpha,x,incx,y,incy) bind(c, name="hipblasSaxpy_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSaxpy_64_ @@ -2650,19 +2946,22 @@ function hipblasSaxpy_64_(handle,n,alpha,x,incx,y,incy) bind(c, name="hipblasSax module procedure hipblasSaxpy_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasSaxpy_64_assumed_rank + module procedure & + hipblasSaxpy_64_assumed_rank,& + hipblasSaxpy_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSaxpy_64_rank_0,& - hipblasSaxpy_64_rank_1 + hipblasSaxpy_64_rank_0_devptr,& + hipblasSaxpy_64_rank_1,& + hipblasSaxpy_64_rank_1_devptr #endif #endif end interface interface hipblasDaxpy_64 function hipblasDaxpy_64_(handle,n,alpha,x,incx,y,incy) bind(c, name="hipblasDaxpy_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDaxpy_64_ @@ -2678,19 +2977,22 @@ function hipblasDaxpy_64_(handle,n,alpha,x,incx,y,incy) bind(c, name="hipblasDax module procedure hipblasDaxpy_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDaxpy_64_assumed_rank + module procedure & + hipblasDaxpy_64_assumed_rank,& + hipblasDaxpy_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDaxpy_64_rank_0,& - hipblasDaxpy_64_rank_1 + hipblasDaxpy_64_rank_0_devptr,& + hipblasDaxpy_64_rank_1,& + hipblasDaxpy_64_rank_1_devptr #endif #endif end interface interface hipblasCaxpy_64 function hipblasCaxpy_64_(handle,n,alpha,x,incx,y,incy) bind(c, name="hipblasCaxpy_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCaxpy_64_ @@ -2706,19 +3008,22 @@ function hipblasCaxpy_64_(handle,n,alpha,x,incx,y,incy) bind(c, name="hipblasCax module procedure hipblasCaxpy_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCaxpy_64_assumed_rank + module procedure & + hipblasCaxpy_64_assumed_rank,& + hipblasCaxpy_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCaxpy_64_rank_0,& - hipblasCaxpy_64_rank_1 + hipblasCaxpy_64_rank_0_devptr,& + hipblasCaxpy_64_rank_1,& + hipblasCaxpy_64_rank_1_devptr #endif #endif end interface interface hipblasZaxpy_64 function hipblasZaxpy_64_(handle,n,alpha,x,incx,y,incy) bind(c, name="hipblasZaxpy_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZaxpy_64_ @@ -2734,12 +3039,16 @@ function hipblasZaxpy_64_(handle,n,alpha,x,incx,y,incy) bind(c, name="hipblasZax module procedure hipblasZaxpy_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZaxpy_64_assumed_rank + module procedure & + hipblasZaxpy_64_assumed_rank,& + hipblasZaxpy_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZaxpy_64_rank_0,& - hipblasZaxpy_64_rank_1 + hipblasZaxpy_64_rank_0_devptr,& + hipblasZaxpy_64_rank_1,& + hipblasZaxpy_64_rank_1_devptr #endif #endif end interface @@ -2747,7 +3056,6 @@ function hipblasZaxpy_64_(handle,n,alpha,x,incx,y,incy) bind(c, name="hipblasZax interface hipblasHaxpyBatched function hipblasHaxpyBatched_(handle,n,alpha,x,incx,y,incy,batchCount) & bind(c, name="hipblasHaxpyBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasHaxpyBatched_ @@ -2765,7 +3073,6 @@ function hipblasHaxpyBatched_(handle,n,alpha,x,incx,y,incy,batchCount) & interface hipblasSaxpyBatched function hipblasSaxpyBatched_(handle,n,alpha,x,incx,y,incy,batchCount) & bind(c, name="hipblasSaxpyBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasSaxpyBatched_ @@ -2785,7 +3092,6 @@ function hipblasSaxpyBatched_(handle,n,alpha,x,incx,y,incy,batchCount) & interface hipblasDaxpyBatched function hipblasDaxpyBatched_(handle,n,alpha,x,incx,y,incy,batchCount) & bind(c, name="hipblasDaxpyBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDaxpyBatched_ @@ -2805,7 +3111,6 @@ function hipblasDaxpyBatched_(handle,n,alpha,x,incx,y,incy,batchCount) & interface hipblasCaxpyBatched function hipblasCaxpyBatched_(handle,n,alpha,x,incx,y,incy,batchCount) & bind(c, name="hipblasCaxpyBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCaxpyBatched_ @@ -2825,7 +3130,6 @@ function hipblasCaxpyBatched_(handle,n,alpha,x,incx,y,incy,batchCount) & interface hipblasZaxpyBatched function hipblasZaxpyBatched_(handle,n,alpha,x,incx,y,incy,batchCount) & bind(c, name="hipblasZaxpyBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZaxpyBatched_ @@ -2845,7 +3149,6 @@ function hipblasZaxpyBatched_(handle,n,alpha,x,incx,y,incy,batchCount) & interface hipblasHaxpyBatched_64 function hipblasHaxpyBatched_64_(handle,n,alpha,x,incx,y,incy,batchCount) & bind(c, name="hipblasHaxpyBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasHaxpyBatched_64_ @@ -2863,7 +3166,6 @@ function hipblasHaxpyBatched_64_(handle,n,alpha,x,incx,y,incy,batchCount) & interface hipblasSaxpyBatched_64 function hipblasSaxpyBatched_64_(handle,n,alpha,x,incx,y,incy,batchCount) & bind(c, name="hipblasSaxpyBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSaxpyBatched_64_ @@ -2883,7 +3185,6 @@ function hipblasSaxpyBatched_64_(handle,n,alpha,x,incx,y,incy,batchCount) & interface hipblasDaxpyBatched_64 function hipblasDaxpyBatched_64_(handle,n,alpha,x,incx,y,incy,batchCount) & bind(c, name="hipblasDaxpyBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDaxpyBatched_64_ @@ -2903,7 +3204,6 @@ function hipblasDaxpyBatched_64_(handle,n,alpha,x,incx,y,incy,batchCount) & interface hipblasCaxpyBatched_64 function hipblasCaxpyBatched_64_(handle,n,alpha,x,incx,y,incy,batchCount) & bind(c, name="hipblasCaxpyBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCaxpyBatched_64_ @@ -2923,7 +3223,6 @@ function hipblasCaxpyBatched_64_(handle,n,alpha,x,incx,y,incy,batchCount) & interface hipblasZaxpyBatched_64 function hipblasZaxpyBatched_64_(handle,n,alpha,x,incx,y,incy,batchCount) & bind(c, name="hipblasZaxpyBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZaxpyBatched_64_ @@ -2943,7 +3242,6 @@ function hipblasZaxpyBatched_64_(handle,n,alpha,x,incx,y,incy,batchCount) & interface hipblasHaxpyStridedBatched function hipblasHaxpyStridedBatched_(handle,n,alpha,x,incx,stridex,y,incy,stridey,batchCount) & bind(c, name="hipblasHaxpyStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasHaxpyStridedBatched_ @@ -2963,7 +3261,6 @@ function hipblasHaxpyStridedBatched_(handle,n,alpha,x,incx,stridex,y,incy,stride interface hipblasSaxpyStridedBatched function hipblasSaxpyStridedBatched_(handle,n,alpha,x,incx,stridex,y,incy,stridey,batchCount) & bind(c, name="hipblasSaxpyStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasSaxpyStridedBatched_ @@ -2982,12 +3279,18 @@ function hipblasSaxpyStridedBatched_(handle,n,alpha,x,incx,stridex,y,incy,stride module procedure hipblasSaxpyStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasSaxpyStridedBatched_assumed_rank + module procedure & + hipblasSaxpyStridedBatched_assumed_rank,& + hipblasSaxpyStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSaxpyStridedBatched_rank_0,& - hipblasSaxpyStridedBatched_rank_1 + hipblasSaxpyStridedBatched_rank_0_devptr,& + hipblasSaxpyStridedBatched_rank_1,& + hipblasSaxpyStridedBatched_rank_1_devptr,& + hipblasSaxpyStridedBatched_strided_rank,& + hipblasSaxpyStridedBatched_strided_rank_devptr #endif #endif end interface @@ -2995,7 +3298,6 @@ function hipblasSaxpyStridedBatched_(handle,n,alpha,x,incx,stridex,y,incy,stride interface hipblasDaxpyStridedBatched function hipblasDaxpyStridedBatched_(handle,n,alpha,x,incx,stridex,y,incy,stridey,batchCount) & bind(c, name="hipblasDaxpyStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDaxpyStridedBatched_ @@ -3014,12 +3316,18 @@ function hipblasDaxpyStridedBatched_(handle,n,alpha,x,incx,stridex,y,incy,stride module procedure hipblasDaxpyStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDaxpyStridedBatched_assumed_rank + module procedure & + hipblasDaxpyStridedBatched_assumed_rank,& + hipblasDaxpyStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDaxpyStridedBatched_rank_0,& - hipblasDaxpyStridedBatched_rank_1 + hipblasDaxpyStridedBatched_rank_0_devptr,& + hipblasDaxpyStridedBatched_rank_1,& + hipblasDaxpyStridedBatched_rank_1_devptr,& + hipblasDaxpyStridedBatched_strided_rank,& + hipblasDaxpyStridedBatched_strided_rank_devptr #endif #endif end interface @@ -3027,7 +3335,6 @@ function hipblasDaxpyStridedBatched_(handle,n,alpha,x,incx,stridex,y,incy,stride interface hipblasCaxpyStridedBatched function hipblasCaxpyStridedBatched_(handle,n,alpha,x,incx,stridex,y,incy,stridey,batchCount) & bind(c, name="hipblasCaxpyStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCaxpyStridedBatched_ @@ -3046,12 +3353,18 @@ function hipblasCaxpyStridedBatched_(handle,n,alpha,x,incx,stridex,y,incy,stride module procedure hipblasCaxpyStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCaxpyStridedBatched_assumed_rank + module procedure & + hipblasCaxpyStridedBatched_assumed_rank,& + hipblasCaxpyStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCaxpyStridedBatched_rank_0,& - hipblasCaxpyStridedBatched_rank_1 + hipblasCaxpyStridedBatched_rank_0_devptr,& + hipblasCaxpyStridedBatched_rank_1,& + hipblasCaxpyStridedBatched_rank_1_devptr,& + hipblasCaxpyStridedBatched_strided_rank,& + hipblasCaxpyStridedBatched_strided_rank_devptr #endif #endif end interface @@ -3059,7 +3372,6 @@ function hipblasCaxpyStridedBatched_(handle,n,alpha,x,incx,stridex,y,incy,stride interface hipblasZaxpyStridedBatched function hipblasZaxpyStridedBatched_(handle,n,alpha,x,incx,stridex,y,incy,stridey,batchCount) & bind(c, name="hipblasZaxpyStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZaxpyStridedBatched_ @@ -3078,12 +3390,18 @@ function hipblasZaxpyStridedBatched_(handle,n,alpha,x,incx,stridex,y,incy,stride module procedure hipblasZaxpyStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZaxpyStridedBatched_assumed_rank + module procedure & + hipblasZaxpyStridedBatched_assumed_rank,& + hipblasZaxpyStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZaxpyStridedBatched_rank_0,& - hipblasZaxpyStridedBatched_rank_1 + hipblasZaxpyStridedBatched_rank_0_devptr,& + hipblasZaxpyStridedBatched_rank_1,& + hipblasZaxpyStridedBatched_rank_1_devptr,& + hipblasZaxpyStridedBatched_strided_rank,& + hipblasZaxpyStridedBatched_strided_rank_devptr #endif #endif end interface @@ -3092,7 +3410,6 @@ function hipblasZaxpyStridedBatched_(handle,n,alpha,x,incx,stridex,y,incy,stride function hipblasHaxpyStridedBatched_64_(handle,n,alpha,x,incx,stridex,y,incy,stridey, & batchCount) & bind(c, name="hipblasHaxpyStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasHaxpyStridedBatched_64_ @@ -3113,7 +3430,6 @@ function hipblasHaxpyStridedBatched_64_(handle,n,alpha,x,incx,stridex,y,incy,str function hipblasSaxpyStridedBatched_64_(handle,n,alpha,x,incx,stridex,y,incy,stridey, & batchCount) & bind(c, name="hipblasSaxpyStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSaxpyStridedBatched_64_ @@ -3132,12 +3448,18 @@ function hipblasSaxpyStridedBatched_64_(handle,n,alpha,x,incx,stridex,y,incy,str module procedure hipblasSaxpyStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasSaxpyStridedBatched_64_assumed_rank + module procedure & + hipblasSaxpyStridedBatched_64_assumed_rank,& + hipblasSaxpyStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSaxpyStridedBatched_64_rank_0,& - hipblasSaxpyStridedBatched_64_rank_1 + hipblasSaxpyStridedBatched_64_rank_0_devptr,& + hipblasSaxpyStridedBatched_64_rank_1,& + hipblasSaxpyStridedBatched_64_rank_1_devptr,& + hipblasSaxpyStridedBatched_64_strided_rank,& + hipblasSaxpyStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -3146,7 +3468,6 @@ function hipblasSaxpyStridedBatched_64_(handle,n,alpha,x,incx,stridex,y,incy,str function hipblasDaxpyStridedBatched_64_(handle,n,alpha,x,incx,stridex,y,incy,stridey, & batchCount) & bind(c, name="hipblasDaxpyStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDaxpyStridedBatched_64_ @@ -3165,12 +3486,18 @@ function hipblasDaxpyStridedBatched_64_(handle,n,alpha,x,incx,stridex,y,incy,str module procedure hipblasDaxpyStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDaxpyStridedBatched_64_assumed_rank + module procedure & + hipblasDaxpyStridedBatched_64_assumed_rank,& + hipblasDaxpyStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDaxpyStridedBatched_64_rank_0,& - hipblasDaxpyStridedBatched_64_rank_1 + hipblasDaxpyStridedBatched_64_rank_0_devptr,& + hipblasDaxpyStridedBatched_64_rank_1,& + hipblasDaxpyStridedBatched_64_rank_1_devptr,& + hipblasDaxpyStridedBatched_64_strided_rank,& + hipblasDaxpyStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -3179,7 +3506,6 @@ function hipblasDaxpyStridedBatched_64_(handle,n,alpha,x,incx,stridex,y,incy,str function hipblasCaxpyStridedBatched_64_(handle,n,alpha,x,incx,stridex,y,incy,stridey, & batchCount) & bind(c, name="hipblasCaxpyStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCaxpyStridedBatched_64_ @@ -3198,12 +3524,18 @@ function hipblasCaxpyStridedBatched_64_(handle,n,alpha,x,incx,stridex,y,incy,str module procedure hipblasCaxpyStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCaxpyStridedBatched_64_assumed_rank + module procedure & + hipblasCaxpyStridedBatched_64_assumed_rank,& + hipblasCaxpyStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCaxpyStridedBatched_64_rank_0,& - hipblasCaxpyStridedBatched_64_rank_1 + hipblasCaxpyStridedBatched_64_rank_0_devptr,& + hipblasCaxpyStridedBatched_64_rank_1,& + hipblasCaxpyStridedBatched_64_rank_1_devptr,& + hipblasCaxpyStridedBatched_64_strided_rank,& + hipblasCaxpyStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -3212,7 +3544,6 @@ function hipblasCaxpyStridedBatched_64_(handle,n,alpha,x,incx,stridex,y,incy,str function hipblasZaxpyStridedBatched_64_(handle,n,alpha,x,incx,stridex,y,incy,stridey, & batchCount) & bind(c, name="hipblasZaxpyStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZaxpyStridedBatched_64_ @@ -3231,19 +3562,24 @@ function hipblasZaxpyStridedBatched_64_(handle,n,alpha,x,incx,stridex,y,incy,str module procedure hipblasZaxpyStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZaxpyStridedBatched_64_assumed_rank + module procedure & + hipblasZaxpyStridedBatched_64_assumed_rank,& + hipblasZaxpyStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZaxpyStridedBatched_64_rank_0,& - hipblasZaxpyStridedBatched_64_rank_1 + hipblasZaxpyStridedBatched_64_rank_0_devptr,& + hipblasZaxpyStridedBatched_64_rank_1,& + hipblasZaxpyStridedBatched_64_rank_1_devptr,& + hipblasZaxpyStridedBatched_64_strided_rank,& + hipblasZaxpyStridedBatched_64_strided_rank_devptr #endif #endif end interface interface hipblasScopy function hipblasScopy_(handle,n,x,incx,y,incy) bind(c, name="hipblasScopy") - use iso_c_binding import implicit none integer(c_int) :: hipblasScopy_ @@ -3268,7 +3604,6 @@ function hipblasScopy_(handle,n,x,incx,y,incy) bind(c, name="hipblasScopy") interface hipblasDcopy function hipblasDcopy_(handle,n,x,incx,y,incy) bind(c, name="hipblasDcopy") - use iso_c_binding import implicit none integer(c_int) :: hipblasDcopy_ @@ -3293,7 +3628,6 @@ function hipblasDcopy_(handle,n,x,incx,y,incy) bind(c, name="hipblasDcopy") interface hipblasCcopy function hipblasCcopy_(handle,n,x,incx,y,incy) bind(c, name="hipblasCcopy") - use iso_c_binding import implicit none integer(c_int) :: hipblasCcopy_ @@ -3318,7 +3652,6 @@ function hipblasCcopy_(handle,n,x,incx,y,incy) bind(c, name="hipblasCcopy") interface hipblasZcopy function hipblasZcopy_(handle,n,x,incx,y,incy) bind(c, name="hipblasZcopy") - use iso_c_binding import implicit none integer(c_int) :: hipblasZcopy_ @@ -3343,7 +3676,6 @@ function hipblasZcopy_(handle,n,x,incx,y,incy) bind(c, name="hipblasZcopy") interface hipblasScopy_64 function hipblasScopy_64_(handle,n,x,incx,y,incy) bind(c, name="hipblasScopy_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasScopy_64_ @@ -3368,7 +3700,6 @@ function hipblasScopy_64_(handle,n,x,incx,y,incy) bind(c, name="hipblasScopy_64" interface hipblasDcopy_64 function hipblasDcopy_64_(handle,n,x,incx,y,incy) bind(c, name="hipblasDcopy_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDcopy_64_ @@ -3393,7 +3724,6 @@ function hipblasDcopy_64_(handle,n,x,incx,y,incy) bind(c, name="hipblasDcopy_64" interface hipblasCcopy_64 function hipblasCcopy_64_(handle,n,x,incx,y,incy) bind(c, name="hipblasCcopy_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCcopy_64_ @@ -3418,7 +3748,6 @@ function hipblasCcopy_64_(handle,n,x,incx,y,incy) bind(c, name="hipblasCcopy_64" interface hipblasZcopy_64 function hipblasZcopy_64_(handle,n,x,incx,y,incy) bind(c, name="hipblasZcopy_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZcopy_64_ @@ -3444,7 +3773,6 @@ function hipblasZcopy_64_(handle,n,x,incx,y,incy) bind(c, name="hipblasZcopy_64" interface hipblasScopyBatched function hipblasScopyBatched_(handle,n,x,incx,y,incy,batchCount) & bind(c, name="hipblasScopyBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasScopyBatched_ @@ -3461,7 +3789,6 @@ function hipblasScopyBatched_(handle,n,x,incx,y,incy,batchCount) & interface hipblasDcopyBatched function hipblasDcopyBatched_(handle,n,x,incx,y,incy,batchCount) & bind(c, name="hipblasDcopyBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDcopyBatched_ @@ -3478,7 +3805,6 @@ function hipblasDcopyBatched_(handle,n,x,incx,y,incy,batchCount) & interface hipblasCcopyBatched function hipblasCcopyBatched_(handle,n,x,incx,y,incy,batchCount) & bind(c, name="hipblasCcopyBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCcopyBatched_ @@ -3495,7 +3821,6 @@ function hipblasCcopyBatched_(handle,n,x,incx,y,incy,batchCount) & interface hipblasZcopyBatched function hipblasZcopyBatched_(handle,n,x,incx,y,incy,batchCount) & bind(c, name="hipblasZcopyBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZcopyBatched_ @@ -3512,7 +3837,6 @@ function hipblasZcopyBatched_(handle,n,x,incx,y,incy,batchCount) & interface hipblasScopyBatched_64 function hipblasScopyBatched_64_(handle,n,x,incx,y,incy,batchCount) & bind(c, name="hipblasScopyBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasScopyBatched_64_ @@ -3529,7 +3853,6 @@ function hipblasScopyBatched_64_(handle,n,x,incx,y,incy,batchCount) & interface hipblasDcopyBatched_64 function hipblasDcopyBatched_64_(handle,n,x,incx,y,incy,batchCount) & bind(c, name="hipblasDcopyBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDcopyBatched_64_ @@ -3546,7 +3869,6 @@ function hipblasDcopyBatched_64_(handle,n,x,incx,y,incy,batchCount) & interface hipblasCcopyBatched_64 function hipblasCcopyBatched_64_(handle,n,x,incx,y,incy,batchCount) & bind(c, name="hipblasCcopyBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCcopyBatched_64_ @@ -3563,7 +3885,6 @@ function hipblasCcopyBatched_64_(handle,n,x,incx,y,incy,batchCount) & interface hipblasZcopyBatched_64 function hipblasZcopyBatched_64_(handle,n,x,incx,y,incy,batchCount) & bind(c, name="hipblasZcopyBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZcopyBatched_64_ @@ -3580,7 +3901,6 @@ function hipblasZcopyBatched_64_(handle,n,x,incx,y,incy,batchCount) & interface hipblasScopyStridedBatched function hipblasScopyStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,batchCount) & bind(c, name="hipblasScopyStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasScopyStridedBatched_ @@ -3601,7 +3921,8 @@ function hipblasScopyStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,batc #ifdef USE_ASSUMED_SHAPE module procedure & hipblasScopyStridedBatched_rank_0,& - hipblasScopyStridedBatched_rank_1 + hipblasScopyStridedBatched_rank_1,& + hipblasScopyStridedBatched_strided_rank #endif #endif end interface @@ -3609,7 +3930,6 @@ function hipblasScopyStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,batc interface hipblasDcopyStridedBatched function hipblasDcopyStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,batchCount) & bind(c, name="hipblasDcopyStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDcopyStridedBatched_ @@ -3630,7 +3950,8 @@ function hipblasDcopyStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,batc #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDcopyStridedBatched_rank_0,& - hipblasDcopyStridedBatched_rank_1 + hipblasDcopyStridedBatched_rank_1,& + hipblasDcopyStridedBatched_strided_rank #endif #endif end interface @@ -3638,7 +3959,6 @@ function hipblasDcopyStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,batc interface hipblasCcopyStridedBatched function hipblasCcopyStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,batchCount) & bind(c, name="hipblasCcopyStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCcopyStridedBatched_ @@ -3659,7 +3979,8 @@ function hipblasCcopyStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,batc #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCcopyStridedBatched_rank_0,& - hipblasCcopyStridedBatched_rank_1 + hipblasCcopyStridedBatched_rank_1,& + hipblasCcopyStridedBatched_strided_rank #endif #endif end interface @@ -3667,7 +3988,6 @@ function hipblasCcopyStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,batc interface hipblasZcopyStridedBatched function hipblasZcopyStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,batchCount) & bind(c, name="hipblasZcopyStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZcopyStridedBatched_ @@ -3688,7 +4008,8 @@ function hipblasZcopyStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,batc #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZcopyStridedBatched_rank_0,& - hipblasZcopyStridedBatched_rank_1 + hipblasZcopyStridedBatched_rank_1,& + hipblasZcopyStridedBatched_strided_rank #endif #endif end interface @@ -3696,7 +4017,6 @@ function hipblasZcopyStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,batc interface hipblasScopyStridedBatched_64 function hipblasScopyStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,batchCount) & bind(c, name="hipblasScopyStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasScopyStridedBatched_64_ @@ -3717,7 +4037,8 @@ function hipblasScopyStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,b #ifdef USE_ASSUMED_SHAPE module procedure & hipblasScopyStridedBatched_64_rank_0,& - hipblasScopyStridedBatched_64_rank_1 + hipblasScopyStridedBatched_64_rank_1,& + hipblasScopyStridedBatched_64_strided_rank #endif #endif end interface @@ -3725,7 +4046,6 @@ function hipblasScopyStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,b interface hipblasDcopyStridedBatched_64 function hipblasDcopyStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,batchCount) & bind(c, name="hipblasDcopyStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDcopyStridedBatched_64_ @@ -3746,7 +4066,8 @@ function hipblasDcopyStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,b #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDcopyStridedBatched_64_rank_0,& - hipblasDcopyStridedBatched_64_rank_1 + hipblasDcopyStridedBatched_64_rank_1,& + hipblasDcopyStridedBatched_64_strided_rank #endif #endif end interface @@ -3754,7 +4075,6 @@ function hipblasDcopyStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,b interface hipblasCcopyStridedBatched_64 function hipblasCcopyStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,batchCount) & bind(c, name="hipblasCcopyStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCcopyStridedBatched_64_ @@ -3775,7 +4095,8 @@ function hipblasCcopyStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,b #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCcopyStridedBatched_64_rank_0,& - hipblasCcopyStridedBatched_64_rank_1 + hipblasCcopyStridedBatched_64_rank_1,& + hipblasCcopyStridedBatched_64_strided_rank #endif #endif end interface @@ -3783,7 +4104,6 @@ function hipblasCcopyStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,b interface hipblasZcopyStridedBatched_64 function hipblasZcopyStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,batchCount) & bind(c, name="hipblasZcopyStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZcopyStridedBatched_64_ @@ -3804,14 +4124,14 @@ function hipblasZcopyStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,b #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZcopyStridedBatched_64_rank_0,& - hipblasZcopyStridedBatched_64_rank_1 + hipblasZcopyStridedBatched_64_rank_1,& + hipblasZcopyStridedBatched_64_strided_rank #endif #endif end interface interface hipblasHdot function hipblasHdot_(handle,n,x,incx,y,incy,myResult) bind(c, name="hipblasHdot") - use iso_c_binding import implicit none integer(c_int) :: hipblasHdot_ @@ -3827,7 +4147,6 @@ function hipblasHdot_(handle,n,x,incx,y,incy,myResult) bind(c, name="hipblasHdot interface hipblasBfdot function hipblasBfdot_(handle,n,x,incx,y,incy,myResult) bind(c, name="hipblasBfdot") - use iso_c_binding import implicit none integer(c_int) :: hipblasBfdot_ @@ -3839,11 +4158,26 @@ function hipblasBfdot_(handle,n,x,incx,y,incy,myResult) bind(c, name="hipblasBfd integer(c_int),value :: incy type(c_ptr),value :: myResult end function + + module procedure hipblasBfdot_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasBfdot_assumed_rank,& + hipblasBfdot_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasBfdot_rank_0,& + hipblasBfdot_rank_0_devptr,& + hipblasBfdot_rank_1,& + hipblasBfdot_rank_1_devptr +#endif +#endif end interface interface hipblasSdot function hipblasSdot_(handle,n,x,incx,y,incy,myResult) bind(c, name="hipblasSdot") - use iso_c_binding import implicit none integer(c_int) :: hipblasSdot_ @@ -3875,7 +4209,6 @@ function hipblasSdot_(handle,n,x,incx,y,incy,myResult) bind(c, name="hipblasSdot interface hipblasDdot function hipblasDdot_(handle,n,x,incx,y,incy,myResult) bind(c, name="hipblasDdot") - use iso_c_binding import implicit none integer(c_int) :: hipblasDdot_ @@ -3907,7 +4240,6 @@ function hipblasDdot_(handle,n,x,incx,y,incy,myResult) bind(c, name="hipblasDdot interface hipblasCdotc function hipblasCdotc_(handle,n,x,incx,y,incy,myResult) bind(c, name="hipblasCdotc") - use iso_c_binding import implicit none integer(c_int) :: hipblasCdotc_ @@ -3939,7 +4271,6 @@ function hipblasCdotc_(handle,n,x,incx,y,incy,myResult) bind(c, name="hipblasCdo interface hipblasCdotu function hipblasCdotu_(handle,n,x,incx,y,incy,myResult) bind(c, name="hipblasCdotu") - use iso_c_binding import implicit none integer(c_int) :: hipblasCdotu_ @@ -3971,7 +4302,6 @@ function hipblasCdotu_(handle,n,x,incx,y,incy,myResult) bind(c, name="hipblasCdo interface hipblasZdotc function hipblasZdotc_(handle,n,x,incx,y,incy,myResult) bind(c, name="hipblasZdotc") - use iso_c_binding import implicit none integer(c_int) :: hipblasZdotc_ @@ -4003,7 +4333,6 @@ function hipblasZdotc_(handle,n,x,incx,y,incy,myResult) bind(c, name="hipblasZdo interface hipblasZdotu function hipblasZdotu_(handle,n,x,incx,y,incy,myResult) bind(c, name="hipblasZdotu") - use iso_c_binding import implicit none integer(c_int) :: hipblasZdotu_ @@ -4035,7 +4364,6 @@ function hipblasZdotu_(handle,n,x,incx,y,incy,myResult) bind(c, name="hipblasZdo interface hipblasHdot_64 function hipblasHdot_64_(handle,n,x,incx,y,incy,myResult) bind(c, name="hipblasHdot_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasHdot_64_ @@ -4051,7 +4379,6 @@ function hipblasHdot_64_(handle,n,x,incx,y,incy,myResult) bind(c, name="hipblasH interface hipblasBfdot_64 function hipblasBfdot_64_(handle,n,x,incx,y,incy,myResult) bind(c, name="hipblasBfdot_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasBfdot_64_ @@ -4063,11 +4390,26 @@ function hipblasBfdot_64_(handle,n,x,incx,y,incy,myResult) bind(c, name="hipblas integer(c_int64_t),value :: incy type(c_ptr),value :: myResult end function + + module procedure hipblasBfdot_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasBfdot_64_assumed_rank,& + hipblasBfdot_64_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasBfdot_64_rank_0,& + hipblasBfdot_64_rank_0_devptr,& + hipblasBfdot_64_rank_1,& + hipblasBfdot_64_rank_1_devptr +#endif +#endif end interface interface hipblasSdot_64 function hipblasSdot_64_(handle,n,x,incx,y,incy,myResult) bind(c, name="hipblasSdot_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSdot_64_ @@ -4099,7 +4441,6 @@ function hipblasSdot_64_(handle,n,x,incx,y,incy,myResult) bind(c, name="hipblasS interface hipblasDdot_64 function hipblasDdot_64_(handle,n,x,incx,y,incy,myResult) bind(c, name="hipblasDdot_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDdot_64_ @@ -4131,7 +4472,6 @@ function hipblasDdot_64_(handle,n,x,incx,y,incy,myResult) bind(c, name="hipblasD interface hipblasCdotc_64 function hipblasCdotc_64_(handle,n,x,incx,y,incy,myResult) bind(c, name="hipblasCdotc_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCdotc_64_ @@ -4163,7 +4503,6 @@ function hipblasCdotc_64_(handle,n,x,incx,y,incy,myResult) bind(c, name="hipblas interface hipblasCdotu_64 function hipblasCdotu_64_(handle,n,x,incx,y,incy,myResult) bind(c, name="hipblasCdotu_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCdotu_64_ @@ -4195,7 +4534,6 @@ function hipblasCdotu_64_(handle,n,x,incx,y,incy,myResult) bind(c, name="hipblas interface hipblasZdotc_64 function hipblasZdotc_64_(handle,n,x,incx,y,incy,myResult) bind(c, name="hipblasZdotc_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZdotc_64_ @@ -4227,7 +4565,6 @@ function hipblasZdotc_64_(handle,n,x,incx,y,incy,myResult) bind(c, name="hipblas interface hipblasZdotu_64 function hipblasZdotu_64_(handle,n,x,incx,y,incy,myResult) bind(c, name="hipblasZdotu_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZdotu_64_ @@ -4260,7 +4597,6 @@ function hipblasZdotu_64_(handle,n,x,incx,y,incy,myResult) bind(c, name="hipblas interface hipblasHdotBatched function hipblasHdotBatched_(handle,n,x,incx,y,incy,batchCount,myResult) & bind(c, name="hipblasHdotBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasHdotBatched_ @@ -4278,7 +4614,6 @@ function hipblasHdotBatched_(handle,n,x,incx,y,incy,batchCount,myResult) & interface hipblasBfdotBatched function hipblasBfdotBatched_(handle,n,x,incx,y,incy,batchCount,myResult) & bind(c, name="hipblasBfdotBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasBfdotBatched_ @@ -4291,12 +4626,21 @@ function hipblasBfdotBatched_(handle,n,x,incx,y,incy,batchCount,myResult) & integer(c_int),value :: batchCount type(c_ptr),value :: myResult end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasBfdotBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasBfdotBatched_rank_0,& + hipblasBfdotBatched_rank_1 +#endif +#endif end interface interface hipblasSdotBatched function hipblasSdotBatched_(handle,n,x,incx,y,incy,batchCount,myResult) & bind(c, name="hipblasSdotBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasSdotBatched_ @@ -4309,12 +4653,21 @@ function hipblasSdotBatched_(handle,n,x,incx,y,incy,batchCount,myResult) & integer(c_int),value :: batchCount type(c_ptr),value :: myResult end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSdotBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSdotBatched_rank_0,& + hipblasSdotBatched_rank_1 +#endif +#endif end interface interface hipblasDdotBatched function hipblasDdotBatched_(handle,n,x,incx,y,incy,batchCount,myResult) & bind(c, name="hipblasDdotBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDdotBatched_ @@ -4327,12 +4680,21 @@ function hipblasDdotBatched_(handle,n,x,incx,y,incy,batchCount,myResult) & integer(c_int),value :: batchCount type(c_ptr),value :: myResult end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDdotBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDdotBatched_rank_0,& + hipblasDdotBatched_rank_1 +#endif +#endif end interface interface hipblasCdotcBatched function hipblasCdotcBatched_(handle,n,x,incx,y,incy,batchCount,myResult) & bind(c, name="hipblasCdotcBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCdotcBatched_ @@ -4345,12 +4707,21 @@ function hipblasCdotcBatched_(handle,n,x,incx,y,incy,batchCount,myResult) & integer(c_int),value :: batchCount type(c_ptr),value :: myResult end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCdotcBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCdotcBatched_rank_0,& + hipblasCdotcBatched_rank_1 +#endif +#endif end interface interface hipblasCdotuBatched function hipblasCdotuBatched_(handle,n,x,incx,y,incy,batchCount,myResult) & bind(c, name="hipblasCdotuBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCdotuBatched_ @@ -4363,12 +4734,21 @@ function hipblasCdotuBatched_(handle,n,x,incx,y,incy,batchCount,myResult) & integer(c_int),value :: batchCount type(c_ptr),value :: myResult end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCdotuBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCdotuBatched_rank_0,& + hipblasCdotuBatched_rank_1 +#endif +#endif end interface interface hipblasZdotcBatched function hipblasZdotcBatched_(handle,n,x,incx,y,incy,batchCount,myResult) & bind(c, name="hipblasZdotcBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZdotcBatched_ @@ -4381,12 +4761,21 @@ function hipblasZdotcBatched_(handle,n,x,incx,y,incy,batchCount,myResult) & integer(c_int),value :: batchCount type(c_ptr),value :: myResult end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZdotcBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZdotcBatched_rank_0,& + hipblasZdotcBatched_rank_1 +#endif +#endif end interface interface hipblasZdotuBatched function hipblasZdotuBatched_(handle,n,x,incx,y,incy,batchCount,myResult) & bind(c, name="hipblasZdotuBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZdotuBatched_ @@ -4399,12 +4788,21 @@ function hipblasZdotuBatched_(handle,n,x,incx,y,incy,batchCount,myResult) & integer(c_int),value :: batchCount type(c_ptr),value :: myResult end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZdotuBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZdotuBatched_rank_0,& + hipblasZdotuBatched_rank_1 +#endif +#endif end interface interface hipblasHdotBatched_64 function hipblasHdotBatched_64_(handle,n,x,incx,y,incy,batchCount,myResult) & bind(c, name="hipblasHdotBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasHdotBatched_64_ @@ -4422,7 +4820,6 @@ function hipblasHdotBatched_64_(handle,n,x,incx,y,incy,batchCount,myResult) & interface hipblasBfdotBatched_64 function hipblasBfdotBatched_64_(handle,n,x,incx,y,incy,batchCount,myResult) & bind(c, name="hipblasBfdotBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasBfdotBatched_64_ @@ -4435,12 +4832,21 @@ function hipblasBfdotBatched_64_(handle,n,x,incx,y,incy,batchCount,myResult) & integer(c_int64_t),value :: batchCount type(c_ptr),value :: myResult end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasBfdotBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasBfdotBatched_64_rank_0,& + hipblasBfdotBatched_64_rank_1 +#endif +#endif end interface interface hipblasSdotBatched_64 function hipblasSdotBatched_64_(handle,n,x,incx,y,incy,batchCount,myResult) & bind(c, name="hipblasSdotBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSdotBatched_64_ @@ -4453,12 +4859,21 @@ function hipblasSdotBatched_64_(handle,n,x,incx,y,incy,batchCount,myResult) & integer(c_int64_t),value :: batchCount type(c_ptr),value :: myResult end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSdotBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSdotBatched_64_rank_0,& + hipblasSdotBatched_64_rank_1 +#endif +#endif end interface interface hipblasDdotBatched_64 function hipblasDdotBatched_64_(handle,n,x,incx,y,incy,batchCount,myResult) & bind(c, name="hipblasDdotBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDdotBatched_64_ @@ -4471,12 +4886,21 @@ function hipblasDdotBatched_64_(handle,n,x,incx,y,incy,batchCount,myResult) & integer(c_int64_t),value :: batchCount type(c_ptr),value :: myResult end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDdotBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDdotBatched_64_rank_0,& + hipblasDdotBatched_64_rank_1 +#endif +#endif end interface interface hipblasCdotcBatched_64 function hipblasCdotcBatched_64_(handle,n,x,incx,y,incy,batchCount,myResult) & bind(c, name="hipblasCdotcBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCdotcBatched_64_ @@ -4489,12 +4913,21 @@ function hipblasCdotcBatched_64_(handle,n,x,incx,y,incy,batchCount,myResult) & integer(c_int64_t),value :: batchCount type(c_ptr),value :: myResult end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCdotcBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCdotcBatched_64_rank_0,& + hipblasCdotcBatched_64_rank_1 +#endif +#endif end interface interface hipblasCdotuBatched_64 function hipblasCdotuBatched_64_(handle,n,x,incx,y,incy,batchCount,myResult) & bind(c, name="hipblasCdotuBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCdotuBatched_64_ @@ -4507,12 +4940,21 @@ function hipblasCdotuBatched_64_(handle,n,x,incx,y,incy,batchCount,myResult) & integer(c_int64_t),value :: batchCount type(c_ptr),value :: myResult end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCdotuBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCdotuBatched_64_rank_0,& + hipblasCdotuBatched_64_rank_1 +#endif +#endif end interface interface hipblasZdotcBatched_64 function hipblasZdotcBatched_64_(handle,n,x,incx,y,incy,batchCount,myResult) & bind(c, name="hipblasZdotcBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZdotcBatched_64_ @@ -4525,12 +4967,21 @@ function hipblasZdotcBatched_64_(handle,n,x,incx,y,incy,batchCount,myResult) & integer(c_int64_t),value :: batchCount type(c_ptr),value :: myResult end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZdotcBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZdotcBatched_64_rank_0,& + hipblasZdotcBatched_64_rank_1 +#endif +#endif end interface interface hipblasZdotuBatched_64 function hipblasZdotuBatched_64_(handle,n,x,incx,y,incy,batchCount,myResult) & bind(c, name="hipblasZdotuBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZdotuBatched_64_ @@ -4543,13 +4994,22 @@ function hipblasZdotuBatched_64_(handle,n,x,incx,y,incy,batchCount,myResult) & integer(c_int64_t),value :: batchCount type(c_ptr),value :: myResult end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZdotuBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZdotuBatched_64_rank_0,& + hipblasZdotuBatched_64_rank_1 +#endif +#endif end interface interface hipblasHdotStridedBatched function hipblasHdotStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,batchCount, & myResult) & bind(c, name="hipblasHdotStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasHdotStridedBatched_ @@ -4570,7 +5030,6 @@ function hipblasHdotStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,batch function hipblasBfdotStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,batchCount, & myResult) & bind(c, name="hipblasBfdotStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasBfdotStridedBatched_ @@ -4585,13 +5044,23 @@ function hipblasBfdotStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,batc integer(c_int),value :: batchCount type(c_ptr),value :: myResult end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasBfdotStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasBfdotStridedBatched_rank_0,& + hipblasBfdotStridedBatched_rank_1,& + hipblasBfdotStridedBatched_strided_rank +#endif +#endif end interface interface hipblasSdotStridedBatched function hipblasSdotStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,batchCount, & myResult) & bind(c, name="hipblasSdotStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasSdotStridedBatched_ @@ -4608,12 +5077,18 @@ function hipblasSdotStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,batch end function #ifdef USE_ASSUMED_RANK - module procedure hipblasSdotStridedBatched_assumed_rank + module procedure & + hipblasSdotStridedBatched_assumed_rank,& + hipblasSdotStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSdotStridedBatched_rank_0,& - hipblasSdotStridedBatched_rank_1 + hipblasSdotStridedBatched_rank_0_devptr,& + hipblasSdotStridedBatched_rank_1,& + hipblasSdotStridedBatched_rank_1_devptr,& + hipblasSdotStridedBatched_strided_rank,& + hipblasSdotStridedBatched_strided_rank_devptr #endif #endif end interface @@ -4622,7 +5097,6 @@ function hipblasSdotStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,batch function hipblasDdotStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,batchCount, & myResult) & bind(c, name="hipblasDdotStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDdotStridedBatched_ @@ -4639,12 +5113,18 @@ function hipblasDdotStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,batch end function #ifdef USE_ASSUMED_RANK - module procedure hipblasDdotStridedBatched_assumed_rank + module procedure & + hipblasDdotStridedBatched_assumed_rank,& + hipblasDdotStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDdotStridedBatched_rank_0,& - hipblasDdotStridedBatched_rank_1 + hipblasDdotStridedBatched_rank_0_devptr,& + hipblasDdotStridedBatched_rank_1,& + hipblasDdotStridedBatched_rank_1_devptr,& + hipblasDdotStridedBatched_strided_rank,& + hipblasDdotStridedBatched_strided_rank_devptr #endif #endif end interface @@ -4653,7 +5133,6 @@ function hipblasDdotStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,batch function hipblasCdotcStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,batchCount, & myResult) & bind(c, name="hipblasCdotcStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCdotcStridedBatched_ @@ -4670,12 +5149,18 @@ function hipblasCdotcStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,batc end function #ifdef USE_ASSUMED_RANK - module procedure hipblasCdotcStridedBatched_assumed_rank + module procedure & + hipblasCdotcStridedBatched_assumed_rank,& + hipblasCdotcStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCdotcStridedBatched_rank_0,& - hipblasCdotcStridedBatched_rank_1 + hipblasCdotcStridedBatched_rank_0_devptr,& + hipblasCdotcStridedBatched_rank_1,& + hipblasCdotcStridedBatched_rank_1_devptr,& + hipblasCdotcStridedBatched_strided_rank,& + hipblasCdotcStridedBatched_strided_rank_devptr #endif #endif end interface @@ -4684,7 +5169,6 @@ function hipblasCdotcStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,batc function hipblasCdotuStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,batchCount, & myResult) & bind(c, name="hipblasCdotuStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCdotuStridedBatched_ @@ -4701,12 +5185,18 @@ function hipblasCdotuStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,batc end function #ifdef USE_ASSUMED_RANK - module procedure hipblasCdotuStridedBatched_assumed_rank + module procedure & + hipblasCdotuStridedBatched_assumed_rank,& + hipblasCdotuStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCdotuStridedBatched_rank_0,& - hipblasCdotuStridedBatched_rank_1 + hipblasCdotuStridedBatched_rank_0_devptr,& + hipblasCdotuStridedBatched_rank_1,& + hipblasCdotuStridedBatched_rank_1_devptr,& + hipblasCdotuStridedBatched_strided_rank,& + hipblasCdotuStridedBatched_strided_rank_devptr #endif #endif end interface @@ -4715,7 +5205,6 @@ function hipblasCdotuStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,batc function hipblasZdotcStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,batchCount, & myResult) & bind(c, name="hipblasZdotcStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZdotcStridedBatched_ @@ -4732,12 +5221,18 @@ function hipblasZdotcStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,batc end function #ifdef USE_ASSUMED_RANK - module procedure hipblasZdotcStridedBatched_assumed_rank + module procedure & + hipblasZdotcStridedBatched_assumed_rank,& + hipblasZdotcStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZdotcStridedBatched_rank_0,& - hipblasZdotcStridedBatched_rank_1 + hipblasZdotcStridedBatched_rank_0_devptr,& + hipblasZdotcStridedBatched_rank_1,& + hipblasZdotcStridedBatched_rank_1_devptr,& + hipblasZdotcStridedBatched_strided_rank,& + hipblasZdotcStridedBatched_strided_rank_devptr #endif #endif end interface @@ -4746,7 +5241,6 @@ function hipblasZdotcStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,batc function hipblasZdotuStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,batchCount, & myResult) & bind(c, name="hipblasZdotuStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZdotuStridedBatched_ @@ -4763,12 +5257,18 @@ function hipblasZdotuStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,batc end function #ifdef USE_ASSUMED_RANK - module procedure hipblasZdotuStridedBatched_assumed_rank + module procedure & + hipblasZdotuStridedBatched_assumed_rank,& + hipblasZdotuStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZdotuStridedBatched_rank_0,& - hipblasZdotuStridedBatched_rank_1 + hipblasZdotuStridedBatched_rank_0_devptr,& + hipblasZdotuStridedBatched_rank_1,& + hipblasZdotuStridedBatched_rank_1_devptr,& + hipblasZdotuStridedBatched_strided_rank,& + hipblasZdotuStridedBatched_strided_rank_devptr #endif #endif end interface @@ -4777,7 +5277,6 @@ function hipblasZdotuStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,batc function hipblasHdotStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,batchCount, & myResult) & bind(c, name="hipblasHdotStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasHdotStridedBatched_64_ @@ -4798,7 +5297,6 @@ function hipblasHdotStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,ba function hipblasBfdotStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,batchCount, & myResult) & bind(c, name="hipblasBfdotStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasBfdotStridedBatched_64_ @@ -4813,13 +5311,23 @@ function hipblasBfdotStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,b integer(c_int64_t),value :: batchCount type(c_ptr),value :: myResult end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasBfdotStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasBfdotStridedBatched_64_rank_0,& + hipblasBfdotStridedBatched_64_rank_1,& + hipblasBfdotStridedBatched_64_strided_rank +#endif +#endif end interface interface hipblasSdotStridedBatched_64 function hipblasSdotStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,batchCount, & myResult) & bind(c, name="hipblasSdotStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSdotStridedBatched_64_ @@ -4836,12 +5344,18 @@ function hipblasSdotStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,ba end function #ifdef USE_ASSUMED_RANK - module procedure hipblasSdotStridedBatched_64_assumed_rank + module procedure & + hipblasSdotStridedBatched_64_assumed_rank,& + hipblasSdotStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSdotStridedBatched_64_rank_0,& - hipblasSdotStridedBatched_64_rank_1 + hipblasSdotStridedBatched_64_rank_0_devptr,& + hipblasSdotStridedBatched_64_rank_1,& + hipblasSdotStridedBatched_64_rank_1_devptr,& + hipblasSdotStridedBatched_64_strided_rank,& + hipblasSdotStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -4850,7 +5364,6 @@ function hipblasSdotStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,ba function hipblasDdotStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,batchCount, & myResult) & bind(c, name="hipblasDdotStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDdotStridedBatched_64_ @@ -4867,12 +5380,18 @@ function hipblasDdotStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,ba end function #ifdef USE_ASSUMED_RANK - module procedure hipblasDdotStridedBatched_64_assumed_rank + module procedure & + hipblasDdotStridedBatched_64_assumed_rank,& + hipblasDdotStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDdotStridedBatched_64_rank_0,& - hipblasDdotStridedBatched_64_rank_1 + hipblasDdotStridedBatched_64_rank_0_devptr,& + hipblasDdotStridedBatched_64_rank_1,& + hipblasDdotStridedBatched_64_rank_1_devptr,& + hipblasDdotStridedBatched_64_strided_rank,& + hipblasDdotStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -4881,7 +5400,6 @@ function hipblasDdotStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,ba function hipblasCdotcStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,batchCount, & myResult) & bind(c, name="hipblasCdotcStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCdotcStridedBatched_64_ @@ -4898,12 +5416,18 @@ function hipblasCdotcStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,b end function #ifdef USE_ASSUMED_RANK - module procedure hipblasCdotcStridedBatched_64_assumed_rank + module procedure & + hipblasCdotcStridedBatched_64_assumed_rank,& + hipblasCdotcStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCdotcStridedBatched_64_rank_0,& - hipblasCdotcStridedBatched_64_rank_1 + hipblasCdotcStridedBatched_64_rank_0_devptr,& + hipblasCdotcStridedBatched_64_rank_1,& + hipblasCdotcStridedBatched_64_rank_1_devptr,& + hipblasCdotcStridedBatched_64_strided_rank,& + hipblasCdotcStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -4912,7 +5436,6 @@ function hipblasCdotcStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,b function hipblasCdotuStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,batchCount, & myResult) & bind(c, name="hipblasCdotuStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCdotuStridedBatched_64_ @@ -4929,12 +5452,18 @@ function hipblasCdotuStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,b end function #ifdef USE_ASSUMED_RANK - module procedure hipblasCdotuStridedBatched_64_assumed_rank + module procedure & + hipblasCdotuStridedBatched_64_assumed_rank,& + hipblasCdotuStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCdotuStridedBatched_64_rank_0,& - hipblasCdotuStridedBatched_64_rank_1 + hipblasCdotuStridedBatched_64_rank_0_devptr,& + hipblasCdotuStridedBatched_64_rank_1,& + hipblasCdotuStridedBatched_64_rank_1_devptr,& + hipblasCdotuStridedBatched_64_strided_rank,& + hipblasCdotuStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -4943,7 +5472,6 @@ function hipblasCdotuStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,b function hipblasZdotcStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,batchCount, & myResult) & bind(c, name="hipblasZdotcStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZdotcStridedBatched_64_ @@ -4960,12 +5488,18 @@ function hipblasZdotcStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,b end function #ifdef USE_ASSUMED_RANK - module procedure hipblasZdotcStridedBatched_64_assumed_rank + module procedure & + hipblasZdotcStridedBatched_64_assumed_rank,& + hipblasZdotcStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZdotcStridedBatched_64_rank_0,& - hipblasZdotcStridedBatched_64_rank_1 + hipblasZdotcStridedBatched_64_rank_0_devptr,& + hipblasZdotcStridedBatched_64_rank_1,& + hipblasZdotcStridedBatched_64_rank_1_devptr,& + hipblasZdotcStridedBatched_64_strided_rank,& + hipblasZdotcStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -4974,7 +5508,6 @@ function hipblasZdotcStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,b function hipblasZdotuStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,batchCount, & myResult) & bind(c, name="hipblasZdotuStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZdotuStridedBatched_64_ @@ -4991,19 +5524,24 @@ function hipblasZdotuStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,b end function #ifdef USE_ASSUMED_RANK - module procedure hipblasZdotuStridedBatched_64_assumed_rank + module procedure & + hipblasZdotuStridedBatched_64_assumed_rank,& + hipblasZdotuStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZdotuStridedBatched_64_rank_0,& - hipblasZdotuStridedBatched_64_rank_1 + hipblasZdotuStridedBatched_64_rank_0_devptr,& + hipblasZdotuStridedBatched_64_rank_1,& + hipblasZdotuStridedBatched_64_rank_1_devptr,& + hipblasZdotuStridedBatched_64_strided_rank,& + hipblasZdotuStridedBatched_64_strided_rank_devptr #endif #endif end interface interface hipblasSnrm2 function hipblasSnrm2_(handle,n,x,incx,myResult) bind(c, name="hipblasSnrm2") - use iso_c_binding import implicit none integer(c_int) :: hipblasSnrm2_ @@ -5033,7 +5571,6 @@ function hipblasSnrm2_(handle,n,x,incx,myResult) bind(c, name="hipblasSnrm2") interface hipblasDnrm2 function hipblasDnrm2_(handle,n,x,incx,myResult) bind(c, name="hipblasDnrm2") - use iso_c_binding import implicit none integer(c_int) :: hipblasDnrm2_ @@ -5063,7 +5600,6 @@ function hipblasDnrm2_(handle,n,x,incx,myResult) bind(c, name="hipblasDnrm2") interface hipblasScnrm2 function hipblasScnrm2_(handle,n,x,incx,myResult) bind(c, name="hipblasScnrm2") - use iso_c_binding import implicit none integer(c_int) :: hipblasScnrm2_ @@ -5093,7 +5629,6 @@ function hipblasScnrm2_(handle,n,x,incx,myResult) bind(c, name="hipblasScnrm2") interface hipblasDznrm2 function hipblasDznrm2_(handle,n,x,incx,myResult) bind(c, name="hipblasDznrm2") - use iso_c_binding import implicit none integer(c_int) :: hipblasDznrm2_ @@ -5123,7 +5658,6 @@ function hipblasDznrm2_(handle,n,x,incx,myResult) bind(c, name="hipblasDznrm2") interface hipblasSnrm2_64 function hipblasSnrm2_64_(handle,n,x,incx,myResult) bind(c, name="hipblasSnrm2_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSnrm2_64_ @@ -5153,7 +5687,6 @@ function hipblasSnrm2_64_(handle,n,x,incx,myResult) bind(c, name="hipblasSnrm2_6 interface hipblasDnrm2_64 function hipblasDnrm2_64_(handle,n,x,incx,myResult) bind(c, name="hipblasDnrm2_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDnrm2_64_ @@ -5183,7 +5716,6 @@ function hipblasDnrm2_64_(handle,n,x,incx,myResult) bind(c, name="hipblasDnrm2_6 interface hipblasScnrm2_64 function hipblasScnrm2_64_(handle,n,x,incx,myResult) bind(c, name="hipblasScnrm2_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasScnrm2_64_ @@ -5213,7 +5745,6 @@ function hipblasScnrm2_64_(handle,n,x,incx,myResult) bind(c, name="hipblasScnrm2 interface hipblasDznrm2_64 function hipblasDznrm2_64_(handle,n,x,incx,myResult) bind(c, name="hipblasDznrm2_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDznrm2_64_ @@ -5244,7 +5775,6 @@ function hipblasDznrm2_64_(handle,n,x,incx,myResult) bind(c, name="hipblasDznrm2 interface hipblasSnrm2Batched function hipblasSnrm2Batched_(handle,n,x,incx,batchCount,myResult) & bind(c, name="hipblasSnrm2Batched") - use iso_c_binding import implicit none integer(c_int) :: hipblasSnrm2Batched_ @@ -5255,12 +5785,21 @@ function hipblasSnrm2Batched_(handle,n,x,incx,batchCount,myResult) & integer(c_int),value :: batchCount type(c_ptr),value :: myResult end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSnrm2Batched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSnrm2Batched_rank_0,& + hipblasSnrm2Batched_rank_1 +#endif +#endif end interface interface hipblasDnrm2Batched function hipblasDnrm2Batched_(handle,n,x,incx,batchCount,myResult) & bind(c, name="hipblasDnrm2Batched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDnrm2Batched_ @@ -5271,12 +5810,21 @@ function hipblasDnrm2Batched_(handle,n,x,incx,batchCount,myResult) & integer(c_int),value :: batchCount type(c_ptr),value :: myResult end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDnrm2Batched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDnrm2Batched_rank_0,& + hipblasDnrm2Batched_rank_1 +#endif +#endif end interface interface hipblasScnrm2Batched function hipblasScnrm2Batched_(handle,n,x,incx,batchCount,myResult) & bind(c, name="hipblasScnrm2Batched") - use iso_c_binding import implicit none integer(c_int) :: hipblasScnrm2Batched_ @@ -5287,12 +5835,21 @@ function hipblasScnrm2Batched_(handle,n,x,incx,batchCount,myResult) & integer(c_int),value :: batchCount type(c_ptr),value :: myResult end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasScnrm2Batched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasScnrm2Batched_rank_0,& + hipblasScnrm2Batched_rank_1 +#endif +#endif end interface interface hipblasDznrm2Batched function hipblasDznrm2Batched_(handle,n,x,incx,batchCount,myResult) & bind(c, name="hipblasDznrm2Batched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDznrm2Batched_ @@ -5303,12 +5860,21 @@ function hipblasDznrm2Batched_(handle,n,x,incx,batchCount,myResult) & integer(c_int),value :: batchCount type(c_ptr),value :: myResult end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDznrm2Batched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDznrm2Batched_rank_0,& + hipblasDznrm2Batched_rank_1 +#endif +#endif end interface interface hipblasSnrm2Batched_64 function hipblasSnrm2Batched_64_(handle,n,x,incx,batchCount,myResult) & bind(c, name="hipblasSnrm2Batched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSnrm2Batched_64_ @@ -5319,12 +5885,21 @@ function hipblasSnrm2Batched_64_(handle,n,x,incx,batchCount,myResult) & integer(c_int64_t),value :: batchCount type(c_ptr),value :: myResult end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSnrm2Batched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSnrm2Batched_64_rank_0,& + hipblasSnrm2Batched_64_rank_1 +#endif +#endif end interface interface hipblasDnrm2Batched_64 function hipblasDnrm2Batched_64_(handle,n,x,incx,batchCount,myResult) & bind(c, name="hipblasDnrm2Batched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDnrm2Batched_64_ @@ -5335,12 +5910,21 @@ function hipblasDnrm2Batched_64_(handle,n,x,incx,batchCount,myResult) & integer(c_int64_t),value :: batchCount type(c_ptr),value :: myResult end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDnrm2Batched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDnrm2Batched_64_rank_0,& + hipblasDnrm2Batched_64_rank_1 +#endif +#endif end interface interface hipblasScnrm2Batched_64 function hipblasScnrm2Batched_64_(handle,n,x,incx,batchCount,myResult) & bind(c, name="hipblasScnrm2Batched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasScnrm2Batched_64_ @@ -5351,12 +5935,21 @@ function hipblasScnrm2Batched_64_(handle,n,x,incx,batchCount,myResult) & integer(c_int64_t),value :: batchCount type(c_ptr),value :: myResult end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasScnrm2Batched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasScnrm2Batched_64_rank_0,& + hipblasScnrm2Batched_64_rank_1 +#endif +#endif end interface interface hipblasDznrm2Batched_64 function hipblasDznrm2Batched_64_(handle,n,x,incx,batchCount,myResult) & bind(c, name="hipblasDznrm2Batched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDznrm2Batched_64_ @@ -5367,12 +5960,21 @@ function hipblasDznrm2Batched_64_(handle,n,x,incx,batchCount,myResult) & integer(c_int64_t),value :: batchCount type(c_ptr),value :: myResult end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDznrm2Batched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDznrm2Batched_64_rank_0,& + hipblasDznrm2Batched_64_rank_1 +#endif +#endif end interface interface hipblasSnrm2StridedBatched function hipblasSnrm2StridedBatched_(handle,n,x,incx,stridex,batchCount,myResult) & bind(c, name="hipblasSnrm2StridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasSnrm2StridedBatched_ @@ -5386,12 +5988,18 @@ function hipblasSnrm2StridedBatched_(handle,n,x,incx,stridex,batchCount,myResult end function #ifdef USE_ASSUMED_RANK - module procedure hipblasSnrm2StridedBatched_assumed_rank + module procedure & + hipblasSnrm2StridedBatched_assumed_rank,& + hipblasSnrm2StridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSnrm2StridedBatched_rank_0,& - hipblasSnrm2StridedBatched_rank_1 + hipblasSnrm2StridedBatched_rank_0_devptr,& + hipblasSnrm2StridedBatched_rank_1,& + hipblasSnrm2StridedBatched_rank_1_devptr,& + hipblasSnrm2StridedBatched_strided_rank,& + hipblasSnrm2StridedBatched_strided_rank_devptr #endif #endif end interface @@ -5399,7 +6007,6 @@ function hipblasSnrm2StridedBatched_(handle,n,x,incx,stridex,batchCount,myResult interface hipblasDnrm2StridedBatched function hipblasDnrm2StridedBatched_(handle,n,x,incx,stridex,batchCount,myResult) & bind(c, name="hipblasDnrm2StridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDnrm2StridedBatched_ @@ -5413,12 +6020,18 @@ function hipblasDnrm2StridedBatched_(handle,n,x,incx,stridex,batchCount,myResult end function #ifdef USE_ASSUMED_RANK - module procedure hipblasDnrm2StridedBatched_assumed_rank + module procedure & + hipblasDnrm2StridedBatched_assumed_rank,& + hipblasDnrm2StridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDnrm2StridedBatched_rank_0,& - hipblasDnrm2StridedBatched_rank_1 + hipblasDnrm2StridedBatched_rank_0_devptr,& + hipblasDnrm2StridedBatched_rank_1,& + hipblasDnrm2StridedBatched_rank_1_devptr,& + hipblasDnrm2StridedBatched_strided_rank,& + hipblasDnrm2StridedBatched_strided_rank_devptr #endif #endif end interface @@ -5426,7 +6039,6 @@ function hipblasDnrm2StridedBatched_(handle,n,x,incx,stridex,batchCount,myResult interface hipblasScnrm2StridedBatched function hipblasScnrm2StridedBatched_(handle,n,x,incx,stridex,batchCount,myResult) & bind(c, name="hipblasScnrm2StridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasScnrm2StridedBatched_ @@ -5440,12 +6052,18 @@ function hipblasScnrm2StridedBatched_(handle,n,x,incx,stridex,batchCount,myResul end function #ifdef USE_ASSUMED_RANK - module procedure hipblasScnrm2StridedBatched_assumed_rank + module procedure & + hipblasScnrm2StridedBatched_assumed_rank,& + hipblasScnrm2StridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasScnrm2StridedBatched_rank_0,& - hipblasScnrm2StridedBatched_rank_1 + hipblasScnrm2StridedBatched_rank_0_devptr,& + hipblasScnrm2StridedBatched_rank_1,& + hipblasScnrm2StridedBatched_rank_1_devptr,& + hipblasScnrm2StridedBatched_strided_rank,& + hipblasScnrm2StridedBatched_strided_rank_devptr #endif #endif end interface @@ -5453,7 +6071,6 @@ function hipblasScnrm2StridedBatched_(handle,n,x,incx,stridex,batchCount,myResul interface hipblasDznrm2StridedBatched function hipblasDznrm2StridedBatched_(handle,n,x,incx,stridex,batchCount,myResult) & bind(c, name="hipblasDznrm2StridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDznrm2StridedBatched_ @@ -5467,12 +6084,18 @@ function hipblasDznrm2StridedBatched_(handle,n,x,incx,stridex,batchCount,myResul end function #ifdef USE_ASSUMED_RANK - module procedure hipblasDznrm2StridedBatched_assumed_rank + module procedure & + hipblasDznrm2StridedBatched_assumed_rank,& + hipblasDznrm2StridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDznrm2StridedBatched_rank_0,& - hipblasDznrm2StridedBatched_rank_1 + hipblasDznrm2StridedBatched_rank_0_devptr,& + hipblasDznrm2StridedBatched_rank_1,& + hipblasDznrm2StridedBatched_rank_1_devptr,& + hipblasDznrm2StridedBatched_strided_rank,& + hipblasDznrm2StridedBatched_strided_rank_devptr #endif #endif end interface @@ -5480,7 +6103,6 @@ function hipblasDznrm2StridedBatched_(handle,n,x,incx,stridex,batchCount,myResul interface hipblasSnrm2StridedBatched_64 function hipblasSnrm2StridedBatched_64_(handle,n,x,incx,stridex,batchCount,myResult) & bind(c, name="hipblasSnrm2StridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSnrm2StridedBatched_64_ @@ -5494,12 +6116,18 @@ function hipblasSnrm2StridedBatched_64_(handle,n,x,incx,stridex,batchCount,myRes end function #ifdef USE_ASSUMED_RANK - module procedure hipblasSnrm2StridedBatched_64_assumed_rank + module procedure & + hipblasSnrm2StridedBatched_64_assumed_rank,& + hipblasSnrm2StridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSnrm2StridedBatched_64_rank_0,& - hipblasSnrm2StridedBatched_64_rank_1 + hipblasSnrm2StridedBatched_64_rank_0_devptr,& + hipblasSnrm2StridedBatched_64_rank_1,& + hipblasSnrm2StridedBatched_64_rank_1_devptr,& + hipblasSnrm2StridedBatched_64_strided_rank,& + hipblasSnrm2StridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -5507,7 +6135,6 @@ function hipblasSnrm2StridedBatched_64_(handle,n,x,incx,stridex,batchCount,myRes interface hipblasDnrm2StridedBatched_64 function hipblasDnrm2StridedBatched_64_(handle,n,x,incx,stridex,batchCount,myResult) & bind(c, name="hipblasDnrm2StridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDnrm2StridedBatched_64_ @@ -5521,12 +6148,18 @@ function hipblasDnrm2StridedBatched_64_(handle,n,x,incx,stridex,batchCount,myRes end function #ifdef USE_ASSUMED_RANK - module procedure hipblasDnrm2StridedBatched_64_assumed_rank + module procedure & + hipblasDnrm2StridedBatched_64_assumed_rank,& + hipblasDnrm2StridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDnrm2StridedBatched_64_rank_0,& - hipblasDnrm2StridedBatched_64_rank_1 + hipblasDnrm2StridedBatched_64_rank_0_devptr,& + hipblasDnrm2StridedBatched_64_rank_1,& + hipblasDnrm2StridedBatched_64_rank_1_devptr,& + hipblasDnrm2StridedBatched_64_strided_rank,& + hipblasDnrm2StridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -5534,7 +6167,6 @@ function hipblasDnrm2StridedBatched_64_(handle,n,x,incx,stridex,batchCount,myRes interface hipblasScnrm2StridedBatched_64 function hipblasScnrm2StridedBatched_64_(handle,n,x,incx,stridex,batchCount,myResult) & bind(c, name="hipblasScnrm2StridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasScnrm2StridedBatched_64_ @@ -5548,12 +6180,18 @@ function hipblasScnrm2StridedBatched_64_(handle,n,x,incx,stridex,batchCount,myRe end function #ifdef USE_ASSUMED_RANK - module procedure hipblasScnrm2StridedBatched_64_assumed_rank + module procedure & + hipblasScnrm2StridedBatched_64_assumed_rank,& + hipblasScnrm2StridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasScnrm2StridedBatched_64_rank_0,& - hipblasScnrm2StridedBatched_64_rank_1 + hipblasScnrm2StridedBatched_64_rank_0_devptr,& + hipblasScnrm2StridedBatched_64_rank_1,& + hipblasScnrm2StridedBatched_64_rank_1_devptr,& + hipblasScnrm2StridedBatched_64_strided_rank,& + hipblasScnrm2StridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -5561,7 +6199,6 @@ function hipblasScnrm2StridedBatched_64_(handle,n,x,incx,stridex,batchCount,myRe interface hipblasDznrm2StridedBatched_64 function hipblasDznrm2StridedBatched_64_(handle,n,x,incx,stridex,batchCount,myResult) & bind(c, name="hipblasDznrm2StridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDznrm2StridedBatched_64_ @@ -5575,19 +6212,24 @@ function hipblasDznrm2StridedBatched_64_(handle,n,x,incx,stridex,batchCount,myRe end function #ifdef USE_ASSUMED_RANK - module procedure hipblasDznrm2StridedBatched_64_assumed_rank + module procedure & + hipblasDznrm2StridedBatched_64_assumed_rank,& + hipblasDznrm2StridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDznrm2StridedBatched_64_rank_0,& - hipblasDznrm2StridedBatched_64_rank_1 + hipblasDznrm2StridedBatched_64_rank_0_devptr,& + hipblasDznrm2StridedBatched_64_rank_1,& + hipblasDznrm2StridedBatched_64_rank_1_devptr,& + hipblasDznrm2StridedBatched_64_strided_rank,& + hipblasDznrm2StridedBatched_64_strided_rank_devptr #endif #endif end interface interface hipblasSrot function hipblasSrot_(handle,n,x,incx,y,incy,c,s) bind(c, name="hipblasSrot") - use iso_c_binding import implicit none integer(c_int) :: hipblasSrot_ @@ -5620,7 +6262,6 @@ function hipblasSrot_(handle,n,x,incx,y,incy,c,s) bind(c, name="hipblasSrot") interface hipblasDrot function hipblasDrot_(handle,n,x,incx,y,incy,c,s) bind(c, name="hipblasDrot") - use iso_c_binding import implicit none integer(c_int) :: hipblasDrot_ @@ -5653,7 +6294,6 @@ function hipblasDrot_(handle,n,x,incx,y,incy,c,s) bind(c, name="hipblasDrot") interface hipblasCrot function hipblasCrot_(handle,n,x,incx,y,incy,c,s) bind(c, name="hipblasCrot") - use iso_c_binding import implicit none integer(c_int) :: hipblasCrot_ @@ -5686,7 +6326,6 @@ function hipblasCrot_(handle,n,x,incx,y,incy,c,s) bind(c, name="hipblasCrot") interface hipblasCsrot function hipblasCsrot_(handle,n,x,incx,y,incy,c,s) bind(c, name="hipblasCsrot") - use iso_c_binding import implicit none integer(c_int) :: hipblasCsrot_ @@ -5719,7 +6358,6 @@ function hipblasCsrot_(handle,n,x,incx,y,incy,c,s) bind(c, name="hipblasCsrot") interface hipblasZrot function hipblasZrot_(handle,n,x,incx,y,incy,c,s) bind(c, name="hipblasZrot") - use iso_c_binding import implicit none integer(c_int) :: hipblasZrot_ @@ -5752,7 +6390,6 @@ function hipblasZrot_(handle,n,x,incx,y,incy,c,s) bind(c, name="hipblasZrot") interface hipblasZdrot function hipblasZdrot_(handle,n,x,incx,y,incy,c,s) bind(c, name="hipblasZdrot") - use iso_c_binding import implicit none integer(c_int) :: hipblasZdrot_ @@ -5785,7 +6422,6 @@ function hipblasZdrot_(handle,n,x,incx,y,incy,c,s) bind(c, name="hipblasZdrot") interface hipblasSrot_64 function hipblasSrot_64_(handle,n,x,incx,y,incy,c,s) bind(c, name="hipblasSrot_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSrot_64_ @@ -5818,7 +6454,6 @@ function hipblasSrot_64_(handle,n,x,incx,y,incy,c,s) bind(c, name="hipblasSrot_6 interface hipblasDrot_64 function hipblasDrot_64_(handle,n,x,incx,y,incy,c,s) bind(c, name="hipblasDrot_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDrot_64_ @@ -5851,7 +6486,6 @@ function hipblasDrot_64_(handle,n,x,incx,y,incy,c,s) bind(c, name="hipblasDrot_6 interface hipblasCrot_64 function hipblasCrot_64_(handle,n,x,incx,y,incy,c,s) bind(c, name="hipblasCrot_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCrot_64_ @@ -5884,7 +6518,6 @@ function hipblasCrot_64_(handle,n,x,incx,y,incy,c,s) bind(c, name="hipblasCrot_6 interface hipblasCsrot_64 function hipblasCsrot_64_(handle,n,x,incx,y,incy,c,s) bind(c, name="hipblasCsrot_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCsrot_64_ @@ -5917,7 +6550,6 @@ function hipblasCsrot_64_(handle,n,x,incx,y,incy,c,s) bind(c, name="hipblasCsrot interface hipblasZrot_64 function hipblasZrot_64_(handle,n,x,incx,y,incy,c,s) bind(c, name="hipblasZrot_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZrot_64_ @@ -5950,7 +6582,6 @@ function hipblasZrot_64_(handle,n,x,incx,y,incy,c,s) bind(c, name="hipblasZrot_6 interface hipblasZdrot_64 function hipblasZdrot_64_(handle,n,x,incx,y,incy,c,s) bind(c, name="hipblasZdrot_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZdrot_64_ @@ -5984,7 +6615,6 @@ function hipblasZdrot_64_(handle,n,x,incx,y,incy,c,s) bind(c, name="hipblasZdrot interface hipblasSrotBatched function hipblasSrotBatched_(handle,n,x,incx,y,incy,c,s,batchCount) & bind(c, name="hipblasSrotBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasSrotBatched_ @@ -5998,12 +6628,13 @@ function hipblasSrotBatched_(handle,n,x,incx,y,incy,c,s,batchCount) & type(c_ptr),value :: s integer(c_int),value :: batchCount end function + + module procedure hipblasSrotBatched_typed end interface interface hipblasDrotBatched function hipblasDrotBatched_(handle,n,x,incx,y,incy,c,s,batchCount) & bind(c, name="hipblasDrotBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDrotBatched_ @@ -6017,12 +6648,13 @@ function hipblasDrotBatched_(handle,n,x,incx,y,incy,c,s,batchCount) & type(c_ptr),value :: s integer(c_int),value :: batchCount end function + + module procedure hipblasDrotBatched_typed end interface interface hipblasCrotBatched function hipblasCrotBatched_(handle,n,x,incx,y,incy,c,s,batchCount) & bind(c, name="hipblasCrotBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCrotBatched_ @@ -6036,12 +6668,13 @@ function hipblasCrotBatched_(handle,n,x,incx,y,incy,c,s,batchCount) & type(c_ptr),value :: s integer(c_int),value :: batchCount end function + + module procedure hipblasCrotBatched_typed end interface interface hipblasCsrotBatched function hipblasCsrotBatched_(handle,n,x,incx,y,incy,c,s,batchCount) & bind(c, name="hipblasCsrotBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCsrotBatched_ @@ -6055,12 +6688,13 @@ function hipblasCsrotBatched_(handle,n,x,incx,y,incy,c,s,batchCount) & type(c_ptr),value :: s integer(c_int),value :: batchCount end function + + module procedure hipblasCsrotBatched_typed end interface interface hipblasZrotBatched function hipblasZrotBatched_(handle,n,x,incx,y,incy,c,s,batchCount) & bind(c, name="hipblasZrotBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZrotBatched_ @@ -6074,12 +6708,13 @@ function hipblasZrotBatched_(handle,n,x,incx,y,incy,c,s,batchCount) & type(c_ptr),value :: s integer(c_int),value :: batchCount end function + + module procedure hipblasZrotBatched_typed end interface interface hipblasZdrotBatched function hipblasZdrotBatched_(handle,n,x,incx,y,incy,c,s,batchCount) & bind(c, name="hipblasZdrotBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZdrotBatched_ @@ -6093,12 +6728,13 @@ function hipblasZdrotBatched_(handle,n,x,incx,y,incy,c,s,batchCount) & type(c_ptr),value :: s integer(c_int),value :: batchCount end function + + module procedure hipblasZdrotBatched_typed end interface interface hipblasSrotBatched_64 function hipblasSrotBatched_64_(handle,n,x,incx,y,incy,c,s,batchCount) & bind(c, name="hipblasSrotBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSrotBatched_64_ @@ -6112,12 +6748,13 @@ function hipblasSrotBatched_64_(handle,n,x,incx,y,incy,c,s,batchCount) & type(c_ptr),value :: s integer(c_int64_t),value :: batchCount end function + + module procedure hipblasSrotBatched_64_typed end interface interface hipblasDrotBatched_64 function hipblasDrotBatched_64_(handle,n,x,incx,y,incy,c,s,batchCount) & bind(c, name="hipblasDrotBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDrotBatched_64_ @@ -6131,12 +6768,13 @@ function hipblasDrotBatched_64_(handle,n,x,incx,y,incy,c,s,batchCount) & type(c_ptr),value :: s integer(c_int64_t),value :: batchCount end function + + module procedure hipblasDrotBatched_64_typed end interface interface hipblasCrotBatched_64 function hipblasCrotBatched_64_(handle,n,x,incx,y,incy,c,s,batchCount) & bind(c, name="hipblasCrotBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCrotBatched_64_ @@ -6150,12 +6788,13 @@ function hipblasCrotBatched_64_(handle,n,x,incx,y,incy,c,s,batchCount) & type(c_ptr),value :: s integer(c_int64_t),value :: batchCount end function + + module procedure hipblasCrotBatched_64_typed end interface interface hipblasCsrotBatched_64 function hipblasCsrotBatched_64_(handle,n,x,incx,y,incy,c,s,batchCount) & bind(c, name="hipblasCsrotBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCsrotBatched_64_ @@ -6169,12 +6808,13 @@ function hipblasCsrotBatched_64_(handle,n,x,incx,y,incy,c,s,batchCount) & type(c_ptr),value :: s integer(c_int64_t),value :: batchCount end function + + module procedure hipblasCsrotBatched_64_typed end interface interface hipblasZrotBatched_64 function hipblasZrotBatched_64_(handle,n,x,incx,y,incy,c,s,batchCount) & bind(c, name="hipblasZrotBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZrotBatched_64_ @@ -6188,12 +6828,13 @@ function hipblasZrotBatched_64_(handle,n,x,incx,y,incy,c,s,batchCount) & type(c_ptr),value :: s integer(c_int64_t),value :: batchCount end function + + module procedure hipblasZrotBatched_64_typed end interface interface hipblasZdrotBatched_64 function hipblasZdrotBatched_64_(handle,n,x,incx,y,incy,c,s,batchCount) & bind(c, name="hipblasZdrotBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZdrotBatched_64_ @@ -6207,12 +6848,13 @@ function hipblasZdrotBatched_64_(handle,n,x,incx,y,incy,c,s,batchCount) & type(c_ptr),value :: s integer(c_int64_t),value :: batchCount end function + + module procedure hipblasZdrotBatched_64_typed end interface interface hipblasSrotStridedBatched function hipblasSrotStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,c,s,batchCount) & bind(c, name="hipblasSrotStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasSrotStridedBatched_ @@ -6229,13 +6871,21 @@ function hipblasSrotStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,c,s,b integer(c_int),value :: batchCount end function + module procedure hipblasSrotStridedBatched_typed + #ifdef USE_ASSUMED_RANK - module procedure hipblasSrotStridedBatched_assumed_rank + module procedure & + hipblasSrotStridedBatched_assumed_rank,& + hipblasSrotStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSrotStridedBatched_rank_0,& - hipblasSrotStridedBatched_rank_1 + hipblasSrotStridedBatched_rank_0_devptr,& + hipblasSrotStridedBatched_rank_1,& + hipblasSrotStridedBatched_rank_1_devptr,& + hipblasSrotStridedBatched_strided_rank,& + hipblasSrotStridedBatched_strided_rank_devptr #endif #endif end interface @@ -6243,7 +6893,6 @@ function hipblasSrotStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,c,s,b interface hipblasDrotStridedBatched function hipblasDrotStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,c,s,batchCount) & bind(c, name="hipblasDrotStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDrotStridedBatched_ @@ -6260,13 +6909,21 @@ function hipblasDrotStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,c,s,b integer(c_int),value :: batchCount end function + module procedure hipblasDrotStridedBatched_typed + #ifdef USE_ASSUMED_RANK - module procedure hipblasDrotStridedBatched_assumed_rank + module procedure & + hipblasDrotStridedBatched_assumed_rank,& + hipblasDrotStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDrotStridedBatched_rank_0,& - hipblasDrotStridedBatched_rank_1 + hipblasDrotStridedBatched_rank_0_devptr,& + hipblasDrotStridedBatched_rank_1,& + hipblasDrotStridedBatched_rank_1_devptr,& + hipblasDrotStridedBatched_strided_rank,& + hipblasDrotStridedBatched_strided_rank_devptr #endif #endif end interface @@ -6274,7 +6931,6 @@ function hipblasDrotStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,c,s,b interface hipblasCrotStridedBatched function hipblasCrotStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,c,s,batchCount) & bind(c, name="hipblasCrotStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCrotStridedBatched_ @@ -6291,13 +6947,21 @@ function hipblasCrotStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,c,s,b integer(c_int),value :: batchCount end function + module procedure hipblasCrotStridedBatched_typed + #ifdef USE_ASSUMED_RANK - module procedure hipblasCrotStridedBatched_assumed_rank + module procedure & + hipblasCrotStridedBatched_assumed_rank,& + hipblasCrotStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCrotStridedBatched_rank_0,& - hipblasCrotStridedBatched_rank_1 + hipblasCrotStridedBatched_rank_0_devptr,& + hipblasCrotStridedBatched_rank_1,& + hipblasCrotStridedBatched_rank_1_devptr,& + hipblasCrotStridedBatched_strided_rank,& + hipblasCrotStridedBatched_strided_rank_devptr #endif #endif end interface @@ -6305,7 +6969,6 @@ function hipblasCrotStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,c,s,b interface hipblasCsrotStridedBatched function hipblasCsrotStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,c,s,batchCount) & bind(c, name="hipblasCsrotStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCsrotStridedBatched_ @@ -6322,13 +6985,21 @@ function hipblasCsrotStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,c,s, integer(c_int),value :: batchCount end function + module procedure hipblasCsrotStridedBatched_typed + #ifdef USE_ASSUMED_RANK - module procedure hipblasCsrotStridedBatched_assumed_rank + module procedure & + hipblasCsrotStridedBatched_assumed_rank,& + hipblasCsrotStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCsrotStridedBatched_rank_0,& - hipblasCsrotStridedBatched_rank_1 + hipblasCsrotStridedBatched_rank_0_devptr,& + hipblasCsrotStridedBatched_rank_1,& + hipblasCsrotStridedBatched_rank_1_devptr,& + hipblasCsrotStridedBatched_strided_rank,& + hipblasCsrotStridedBatched_strided_rank_devptr #endif #endif end interface @@ -6336,7 +7007,6 @@ function hipblasCsrotStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,c,s, interface hipblasZrotStridedBatched function hipblasZrotStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,c,s,batchCount) & bind(c, name="hipblasZrotStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZrotStridedBatched_ @@ -6353,13 +7023,21 @@ function hipblasZrotStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,c,s,b integer(c_int),value :: batchCount end function + module procedure hipblasZrotStridedBatched_typed + #ifdef USE_ASSUMED_RANK - module procedure hipblasZrotStridedBatched_assumed_rank + module procedure & + hipblasZrotStridedBatched_assumed_rank,& + hipblasZrotStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZrotStridedBatched_rank_0,& - hipblasZrotStridedBatched_rank_1 + hipblasZrotStridedBatched_rank_0_devptr,& + hipblasZrotStridedBatched_rank_1,& + hipblasZrotStridedBatched_rank_1_devptr,& + hipblasZrotStridedBatched_strided_rank,& + hipblasZrotStridedBatched_strided_rank_devptr #endif #endif end interface @@ -6367,7 +7045,6 @@ function hipblasZrotStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,c,s,b interface hipblasZdrotStridedBatched function hipblasZdrotStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,c,s,batchCount) & bind(c, name="hipblasZdrotStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZdrotStridedBatched_ @@ -6384,13 +7061,21 @@ function hipblasZdrotStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,c,s, integer(c_int),value :: batchCount end function + module procedure hipblasZdrotStridedBatched_typed + #ifdef USE_ASSUMED_RANK - module procedure hipblasZdrotStridedBatched_assumed_rank + module procedure & + hipblasZdrotStridedBatched_assumed_rank,& + hipblasZdrotStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZdrotStridedBatched_rank_0,& - hipblasZdrotStridedBatched_rank_1 + hipblasZdrotStridedBatched_rank_0_devptr,& + hipblasZdrotStridedBatched_rank_1,& + hipblasZdrotStridedBatched_rank_1_devptr,& + hipblasZdrotStridedBatched_strided_rank,& + hipblasZdrotStridedBatched_strided_rank_devptr #endif #endif end interface @@ -6398,7 +7083,6 @@ function hipblasZdrotStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,c,s, interface hipblasSrotStridedBatched_64 function hipblasSrotStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,c,s,batchCount) & bind(c, name="hipblasSrotStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSrotStridedBatched_64_ @@ -6415,13 +7099,21 @@ function hipblasSrotStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,c, integer(c_int64_t),value :: batchCount end function + module procedure hipblasSrotStridedBatched_64_typed + #ifdef USE_ASSUMED_RANK - module procedure hipblasSrotStridedBatched_64_assumed_rank + module procedure & + hipblasSrotStridedBatched_64_assumed_rank,& + hipblasSrotStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSrotStridedBatched_64_rank_0,& - hipblasSrotStridedBatched_64_rank_1 + hipblasSrotStridedBatched_64_rank_0_devptr,& + hipblasSrotStridedBatched_64_rank_1,& + hipblasSrotStridedBatched_64_rank_1_devptr,& + hipblasSrotStridedBatched_64_strided_rank,& + hipblasSrotStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -6429,7 +7121,6 @@ function hipblasSrotStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,c, interface hipblasDrotStridedBatched_64 function hipblasDrotStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,c,s,batchCount) & bind(c, name="hipblasDrotStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDrotStridedBatched_64_ @@ -6446,13 +7137,21 @@ function hipblasDrotStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,c, integer(c_int64_t),value :: batchCount end function + module procedure hipblasDrotStridedBatched_64_typed + #ifdef USE_ASSUMED_RANK - module procedure hipblasDrotStridedBatched_64_assumed_rank + module procedure & + hipblasDrotStridedBatched_64_assumed_rank,& + hipblasDrotStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDrotStridedBatched_64_rank_0,& - hipblasDrotStridedBatched_64_rank_1 + hipblasDrotStridedBatched_64_rank_0_devptr,& + hipblasDrotStridedBatched_64_rank_1,& + hipblasDrotStridedBatched_64_rank_1_devptr,& + hipblasDrotStridedBatched_64_strided_rank,& + hipblasDrotStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -6460,7 +7159,6 @@ function hipblasDrotStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,c, interface hipblasCrotStridedBatched_64 function hipblasCrotStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,c,s,batchCount) & bind(c, name="hipblasCrotStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCrotStridedBatched_64_ @@ -6477,13 +7175,21 @@ function hipblasCrotStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,c, integer(c_int64_t),value :: batchCount end function + module procedure hipblasCrotStridedBatched_64_typed + #ifdef USE_ASSUMED_RANK - module procedure hipblasCrotStridedBatched_64_assumed_rank + module procedure & + hipblasCrotStridedBatched_64_assumed_rank,& + hipblasCrotStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCrotStridedBatched_64_rank_0,& - hipblasCrotStridedBatched_64_rank_1 + hipblasCrotStridedBatched_64_rank_0_devptr,& + hipblasCrotStridedBatched_64_rank_1,& + hipblasCrotStridedBatched_64_rank_1_devptr,& + hipblasCrotStridedBatched_64_strided_rank,& + hipblasCrotStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -6491,7 +7197,6 @@ function hipblasCrotStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,c, interface hipblasCsrotStridedBatched_64 function hipblasCsrotStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,c,s,batchCount) & bind(c, name="hipblasCsrotStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCsrotStridedBatched_64_ @@ -6508,13 +7213,21 @@ function hipblasCsrotStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,c integer(c_int64_t),value :: batchCount end function + module procedure hipblasCsrotStridedBatched_64_typed + #ifdef USE_ASSUMED_RANK - module procedure hipblasCsrotStridedBatched_64_assumed_rank + module procedure & + hipblasCsrotStridedBatched_64_assumed_rank,& + hipblasCsrotStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCsrotStridedBatched_64_rank_0,& - hipblasCsrotStridedBatched_64_rank_1 + hipblasCsrotStridedBatched_64_rank_0_devptr,& + hipblasCsrotStridedBatched_64_rank_1,& + hipblasCsrotStridedBatched_64_rank_1_devptr,& + hipblasCsrotStridedBatched_64_strided_rank,& + hipblasCsrotStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -6522,7 +7235,6 @@ function hipblasCsrotStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,c interface hipblasZrotStridedBatched_64 function hipblasZrotStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,c,s,batchCount) & bind(c, name="hipblasZrotStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZrotStridedBatched_64_ @@ -6539,13 +7251,21 @@ function hipblasZrotStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,c, integer(c_int64_t),value :: batchCount end function + module procedure hipblasZrotStridedBatched_64_typed + #ifdef USE_ASSUMED_RANK - module procedure hipblasZrotStridedBatched_64_assumed_rank + module procedure & + hipblasZrotStridedBatched_64_assumed_rank,& + hipblasZrotStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZrotStridedBatched_64_rank_0,& - hipblasZrotStridedBatched_64_rank_1 + hipblasZrotStridedBatched_64_rank_0_devptr,& + hipblasZrotStridedBatched_64_rank_1,& + hipblasZrotStridedBatched_64_rank_1_devptr,& + hipblasZrotStridedBatched_64_strided_rank,& + hipblasZrotStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -6553,7 +7273,6 @@ function hipblasZrotStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,c, interface hipblasZdrotStridedBatched_64 function hipblasZdrotStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,c,s,batchCount) & bind(c, name="hipblasZdrotStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZdrotStridedBatched_64_ @@ -6570,20 +7289,27 @@ function hipblasZdrotStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,c integer(c_int64_t),value :: batchCount end function + module procedure hipblasZdrotStridedBatched_64_typed + #ifdef USE_ASSUMED_RANK - module procedure hipblasZdrotStridedBatched_64_assumed_rank + module procedure & + hipblasZdrotStridedBatched_64_assumed_rank,& + hipblasZdrotStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZdrotStridedBatched_64_rank_0,& - hipblasZdrotStridedBatched_64_rank_1 + hipblasZdrotStridedBatched_64_rank_0_devptr,& + hipblasZdrotStridedBatched_64_rank_1,& + hipblasZdrotStridedBatched_64_rank_1_devptr,& + hipblasZdrotStridedBatched_64_strided_rank,& + hipblasZdrotStridedBatched_64_strided_rank_devptr #endif #endif end interface interface hipblasSrotg function hipblasSrotg_(handle,a,b,c,s) bind(c, name="hipblasSrotg") - use iso_c_binding import implicit none integer(c_int) :: hipblasSrotg_ @@ -6599,7 +7325,6 @@ function hipblasSrotg_(handle,a,b,c,s) bind(c, name="hipblasSrotg") interface hipblasDrotg function hipblasDrotg_(handle,a,b,c,s) bind(c, name="hipblasDrotg") - use iso_c_binding import implicit none integer(c_int) :: hipblasDrotg_ @@ -6615,7 +7340,6 @@ function hipblasDrotg_(handle,a,b,c,s) bind(c, name="hipblasDrotg") interface hipblasCrotg function hipblasCrotg_(handle,a,b,c,s) bind(c, name="hipblasCrotg") - use iso_c_binding import implicit none integer(c_int) :: hipblasCrotg_ @@ -6631,7 +7355,6 @@ function hipblasCrotg_(handle,a,b,c,s) bind(c, name="hipblasCrotg") interface hipblasZrotg function hipblasZrotg_(handle,a,b,c,s) bind(c, name="hipblasZrotg") - use iso_c_binding import implicit none integer(c_int) :: hipblasZrotg_ @@ -6647,7 +7370,6 @@ function hipblasZrotg_(handle,a,b,c,s) bind(c, name="hipblasZrotg") interface hipblasSrotg_64 function hipblasSrotg_64_(handle,a,b,c,s) bind(c, name="hipblasSrotg_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSrotg_64_ @@ -6663,7 +7385,6 @@ function hipblasSrotg_64_(handle,a,b,c,s) bind(c, name="hipblasSrotg_64") interface hipblasDrotg_64 function hipblasDrotg_64_(handle,a,b,c,s) bind(c, name="hipblasDrotg_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDrotg_64_ @@ -6679,7 +7400,6 @@ function hipblasDrotg_64_(handle,a,b,c,s) bind(c, name="hipblasDrotg_64") interface hipblasCrotg_64 function hipblasCrotg_64_(handle,a,b,c,s) bind(c, name="hipblasCrotg_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCrotg_64_ @@ -6695,7 +7415,6 @@ function hipblasCrotg_64_(handle,a,b,c,s) bind(c, name="hipblasCrotg_64") interface hipblasZrotg_64 function hipblasZrotg_64_(handle,a,b,c,s) bind(c, name="hipblasZrotg_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZrotg_64_ @@ -6711,7 +7430,6 @@ function hipblasZrotg_64_(handle,a,b,c,s) bind(c, name="hipblasZrotg_64") interface hipblasSrotgBatched function hipblasSrotgBatched_(handle,a,b,c,s,batchCount) bind(c, name="hipblasSrotgBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasSrotgBatched_ @@ -6726,7 +7444,6 @@ function hipblasSrotgBatched_(handle,a,b,c,s,batchCount) bind(c, name="hipblasSr interface hipblasDrotgBatched function hipblasDrotgBatched_(handle,a,b,c,s,batchCount) bind(c, name="hipblasDrotgBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDrotgBatched_ @@ -6741,7 +7458,6 @@ function hipblasDrotgBatched_(handle,a,b,c,s,batchCount) bind(c, name="hipblasDr interface hipblasCrotgBatched function hipblasCrotgBatched_(handle,a,b,c,s,batchCount) bind(c, name="hipblasCrotgBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCrotgBatched_ @@ -6756,7 +7472,6 @@ function hipblasCrotgBatched_(handle,a,b,c,s,batchCount) bind(c, name="hipblasCr interface hipblasZrotgBatched function hipblasZrotgBatched_(handle,a,b,c,s,batchCount) bind(c, name="hipblasZrotgBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZrotgBatched_ @@ -6772,7 +7487,6 @@ function hipblasZrotgBatched_(handle,a,b,c,s,batchCount) bind(c, name="hipblasZr interface hipblasSrotgBatched_64 function hipblasSrotgBatched_64_(handle,a,b,c,s,batchCount) & bind(c, name="hipblasSrotgBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSrotgBatched_64_ @@ -6788,7 +7502,6 @@ function hipblasSrotgBatched_64_(handle,a,b,c,s,batchCount) & interface hipblasDrotgBatched_64 function hipblasDrotgBatched_64_(handle,a,b,c,s,batchCount) & bind(c, name="hipblasDrotgBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDrotgBatched_64_ @@ -6804,7 +7517,6 @@ function hipblasDrotgBatched_64_(handle,a,b,c,s,batchCount) & interface hipblasCrotgBatched_64 function hipblasCrotgBatched_64_(handle,a,b,c,s,batchCount) & bind(c, name="hipblasCrotgBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCrotgBatched_64_ @@ -6820,7 +7532,6 @@ function hipblasCrotgBatched_64_(handle,a,b,c,s,batchCount) & interface hipblasZrotgBatched_64 function hipblasZrotgBatched_64_(handle,a,b,c,s,batchCount) & bind(c, name="hipblasZrotgBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZrotgBatched_64_ @@ -6837,7 +7548,6 @@ function hipblasZrotgBatched_64_(handle,a,b,c,s,batchCount) & function hipblasSrotgStridedBatched_(handle,a,stridea,b,strideb,c,stridec,s,strides, & batchCount) & bind(c, name="hipblasSrotgStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasSrotgStridedBatched_ @@ -6852,13 +7562,22 @@ function hipblasSrotgStridedBatched_(handle,a,stridea,b,strideb,c,stridec,s,stri integer(c_int64_t),value :: strides integer(c_int),value :: batchCount end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSrotgStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSrotgStridedBatched_rank_0,& + hipblasSrotgStridedBatched_rank_1 +#endif +#endif end interface interface hipblasDrotgStridedBatched function hipblasDrotgStridedBatched_(handle,a,stridea,b,strideb,c,stridec,s,strides, & batchCount) & bind(c, name="hipblasDrotgStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDrotgStridedBatched_ @@ -6873,13 +7592,22 @@ function hipblasDrotgStridedBatched_(handle,a,stridea,b,strideb,c,stridec,s,stri integer(c_int64_t),value :: strides integer(c_int),value :: batchCount end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDrotgStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDrotgStridedBatched_rank_0,& + hipblasDrotgStridedBatched_rank_1 +#endif +#endif end interface interface hipblasCrotgStridedBatched function hipblasCrotgStridedBatched_(handle,a,stridea,b,strideb,c,stridec,s,strides, & batchCount) & bind(c, name="hipblasCrotgStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCrotgStridedBatched_ @@ -6894,13 +7622,22 @@ function hipblasCrotgStridedBatched_(handle,a,stridea,b,strideb,c,stridec,s,stri integer(c_int64_t),value :: strides integer(c_int),value :: batchCount end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCrotgStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCrotgStridedBatched_rank_0,& + hipblasCrotgStridedBatched_rank_1 +#endif +#endif end interface interface hipblasZrotgStridedBatched function hipblasZrotgStridedBatched_(handle,a,stridea,b,strideb,c,stridec,s,strides, & batchCount) & bind(c, name="hipblasZrotgStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZrotgStridedBatched_ @@ -6915,13 +7652,22 @@ function hipblasZrotgStridedBatched_(handle,a,stridea,b,strideb,c,stridec,s,stri integer(c_int64_t),value :: strides integer(c_int),value :: batchCount end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZrotgStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZrotgStridedBatched_rank_0,& + hipblasZrotgStridedBatched_rank_1 +#endif +#endif end interface interface hipblasSrotgStridedBatched_64 function hipblasSrotgStridedBatched_64_(handle,a,stridea,b,strideb,c,stridec,s,strides, & batchCount) & bind(c, name="hipblasSrotgStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSrotgStridedBatched_64_ @@ -6936,13 +7682,22 @@ function hipblasSrotgStridedBatched_64_(handle,a,stridea,b,strideb,c,stridec,s,s integer(c_int64_t),value :: strides integer(c_int64_t),value :: batchCount end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSrotgStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSrotgStridedBatched_64_rank_0,& + hipblasSrotgStridedBatched_64_rank_1 +#endif +#endif end interface interface hipblasDrotgStridedBatched_64 function hipblasDrotgStridedBatched_64_(handle,a,stridea,b,strideb,c,stridec,s,strides, & batchCount) & bind(c, name="hipblasDrotgStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDrotgStridedBatched_64_ @@ -6957,13 +7712,22 @@ function hipblasDrotgStridedBatched_64_(handle,a,stridea,b,strideb,c,stridec,s,s integer(c_int64_t),value :: strides integer(c_int64_t),value :: batchCount end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDrotgStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDrotgStridedBatched_64_rank_0,& + hipblasDrotgStridedBatched_64_rank_1 +#endif +#endif end interface interface hipblasCrotgStridedBatched_64 function hipblasCrotgStridedBatched_64_(handle,a,stridea,b,strideb,c,stridec,s,strides, & batchCount) & bind(c, name="hipblasCrotgStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCrotgStridedBatched_64_ @@ -6978,13 +7742,22 @@ function hipblasCrotgStridedBatched_64_(handle,a,stridea,b,strideb,c,stridec,s,s integer(c_int64_t),value :: strides integer(c_int64_t),value :: batchCount end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCrotgStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCrotgStridedBatched_64_rank_0,& + hipblasCrotgStridedBatched_64_rank_1 +#endif +#endif end interface interface hipblasZrotgStridedBatched_64 function hipblasZrotgStridedBatched_64_(handle,a,stridea,b,strideb,c,stridec,s,strides, & batchCount) & bind(c, name="hipblasZrotgStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZrotgStridedBatched_64_ @@ -6999,11 +7772,20 @@ function hipblasZrotgStridedBatched_64_(handle,a,stridea,b,strideb,c,stridec,s,s integer(c_int64_t),value :: strides integer(c_int64_t),value :: batchCount end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZrotgStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZrotgStridedBatched_64_rank_0,& + hipblasZrotgStridedBatched_64_rank_1 +#endif +#endif end interface interface hipblasSrotm function hipblasSrotm_(handle,n,x,incx,y,incy,param) bind(c, name="hipblasSrotm") - use iso_c_binding import implicit none integer(c_int) :: hipblasSrotm_ @@ -7017,19 +7799,22 @@ function hipblasSrotm_(handle,n,x,incx,y,incy,param) bind(c, name="hipblasSrotm" end function #ifdef USE_ASSUMED_RANK - module procedure hipblasSrotm_assumed_rank + module procedure & + hipblasSrotm_assumed_rank,& + hipblasSrotm_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSrotm_rank_0,& - hipblasSrotm_rank_1 + hipblasSrotm_rank_0_devptr,& + hipblasSrotm_rank_1,& + hipblasSrotm_rank_1_devptr #endif #endif end interface interface hipblasDrotm function hipblasDrotm_(handle,n,x,incx,y,incy,param) bind(c, name="hipblasDrotm") - use iso_c_binding import implicit none integer(c_int) :: hipblasDrotm_ @@ -7043,19 +7828,22 @@ function hipblasDrotm_(handle,n,x,incx,y,incy,param) bind(c, name="hipblasDrotm" end function #ifdef USE_ASSUMED_RANK - module procedure hipblasDrotm_assumed_rank + module procedure & + hipblasDrotm_assumed_rank,& + hipblasDrotm_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDrotm_rank_0,& - hipblasDrotm_rank_1 + hipblasDrotm_rank_0_devptr,& + hipblasDrotm_rank_1,& + hipblasDrotm_rank_1_devptr #endif #endif end interface interface hipblasSrotm_64 function hipblasSrotm_64_(handle,n,x,incx,y,incy,param) bind(c, name="hipblasSrotm_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSrotm_64_ @@ -7069,19 +7857,22 @@ function hipblasSrotm_64_(handle,n,x,incx,y,incy,param) bind(c, name="hipblasSro end function #ifdef USE_ASSUMED_RANK - module procedure hipblasSrotm_64_assumed_rank + module procedure & + hipblasSrotm_64_assumed_rank,& + hipblasSrotm_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSrotm_64_rank_0,& - hipblasSrotm_64_rank_1 + hipblasSrotm_64_rank_0_devptr,& + hipblasSrotm_64_rank_1,& + hipblasSrotm_64_rank_1_devptr #endif #endif end interface interface hipblasDrotm_64 function hipblasDrotm_64_(handle,n,x,incx,y,incy,param) bind(c, name="hipblasDrotm_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDrotm_64_ @@ -7095,12 +7886,16 @@ function hipblasDrotm_64_(handle,n,x,incx,y,incy,param) bind(c, name="hipblasDro end function #ifdef USE_ASSUMED_RANK - module procedure hipblasDrotm_64_assumed_rank + module procedure & + hipblasDrotm_64_assumed_rank,& + hipblasDrotm_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDrotm_64_rank_0,& - hipblasDrotm_64_rank_1 + hipblasDrotm_64_rank_0_devptr,& + hipblasDrotm_64_rank_1,& + hipblasDrotm_64_rank_1_devptr #endif #endif end interface @@ -7108,7 +7903,6 @@ function hipblasDrotm_64_(handle,n,x,incx,y,incy,param) bind(c, name="hipblasDro interface hipblasSrotmBatched function hipblasSrotmBatched_(handle,n,x,incx,y,incy,param,batchCount) & bind(c, name="hipblasSrotmBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasSrotmBatched_ @@ -7126,7 +7920,6 @@ function hipblasSrotmBatched_(handle,n,x,incx,y,incy,param,batchCount) & interface hipblasDrotmBatched function hipblasDrotmBatched_(handle,n,x,incx,y,incy,param,batchCount) & bind(c, name="hipblasDrotmBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDrotmBatched_ @@ -7144,7 +7937,6 @@ function hipblasDrotmBatched_(handle,n,x,incx,y,incy,param,batchCount) & interface hipblasSrotmBatched_64 function hipblasSrotmBatched_64_(handle,n,x,incx,y,incy,param,batchCount) & bind(c, name="hipblasSrotmBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSrotmBatched_64_ @@ -7162,7 +7954,6 @@ function hipblasSrotmBatched_64_(handle,n,x,incx,y,incy,param,batchCount) & interface hipblasDrotmBatched_64 function hipblasDrotmBatched_64_(handle,n,x,incx,y,incy,param,batchCount) & bind(c, name="hipblasDrotmBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDrotmBatched_64_ @@ -7181,7 +7972,6 @@ function hipblasDrotmBatched_64_(handle,n,x,incx,y,incy,param,batchCount) & function hipblasSrotmStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,param,strideParam, & batchCount) & bind(c, name="hipblasSrotmStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasSrotmStridedBatched_ @@ -7199,12 +7989,18 @@ function hipblasSrotmStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,para end function #ifdef USE_ASSUMED_RANK - module procedure hipblasSrotmStridedBatched_assumed_rank + module procedure & + hipblasSrotmStridedBatched_assumed_rank,& + hipblasSrotmStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSrotmStridedBatched_rank_0,& - hipblasSrotmStridedBatched_rank_1 + hipblasSrotmStridedBatched_rank_0_devptr,& + hipblasSrotmStridedBatched_rank_1,& + hipblasSrotmStridedBatched_rank_1_devptr,& + hipblasSrotmStridedBatched_strided_rank,& + hipblasSrotmStridedBatched_strided_rank_devptr #endif #endif end interface @@ -7213,7 +8009,6 @@ function hipblasSrotmStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,para function hipblasDrotmStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,param,strideParam, & batchCount) & bind(c, name="hipblasDrotmStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDrotmStridedBatched_ @@ -7231,12 +8026,18 @@ function hipblasDrotmStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,para end function #ifdef USE_ASSUMED_RANK - module procedure hipblasDrotmStridedBatched_assumed_rank + module procedure & + hipblasDrotmStridedBatched_assumed_rank,& + hipblasDrotmStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDrotmStridedBatched_rank_0,& - hipblasDrotmStridedBatched_rank_1 + hipblasDrotmStridedBatched_rank_0_devptr,& + hipblasDrotmStridedBatched_rank_1,& + hipblasDrotmStridedBatched_rank_1_devptr,& + hipblasDrotmStridedBatched_strided_rank,& + hipblasDrotmStridedBatched_strided_rank_devptr #endif #endif end interface @@ -7245,7 +8046,6 @@ function hipblasDrotmStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,para function hipblasSrotmStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,param, & strideParam,batchCount) & bind(c, name="hipblasSrotmStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSrotmStridedBatched_64_ @@ -7263,12 +8063,18 @@ function hipblasSrotmStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,p end function #ifdef USE_ASSUMED_RANK - module procedure hipblasSrotmStridedBatched_64_assumed_rank + module procedure & + hipblasSrotmStridedBatched_64_assumed_rank,& + hipblasSrotmStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSrotmStridedBatched_64_rank_0,& - hipblasSrotmStridedBatched_64_rank_1 + hipblasSrotmStridedBatched_64_rank_0_devptr,& + hipblasSrotmStridedBatched_64_rank_1,& + hipblasSrotmStridedBatched_64_rank_1_devptr,& + hipblasSrotmStridedBatched_64_strided_rank,& + hipblasSrotmStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -7277,7 +8083,6 @@ function hipblasSrotmStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,p function hipblasDrotmStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,param, & strideParam,batchCount) & bind(c, name="hipblasDrotmStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDrotmStridedBatched_64_ @@ -7295,19 +8100,24 @@ function hipblasDrotmStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,p end function #ifdef USE_ASSUMED_RANK - module procedure hipblasDrotmStridedBatched_64_assumed_rank + module procedure & + hipblasDrotmStridedBatched_64_assumed_rank,& + hipblasDrotmStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDrotmStridedBatched_64_rank_0,& - hipblasDrotmStridedBatched_64_rank_1 + hipblasDrotmStridedBatched_64_rank_0_devptr,& + hipblasDrotmStridedBatched_64_rank_1,& + hipblasDrotmStridedBatched_64_rank_1_devptr,& + hipblasDrotmStridedBatched_64_strided_rank,& + hipblasDrotmStridedBatched_64_strided_rank_devptr #endif #endif end interface interface hipblasSrotmg function hipblasSrotmg_(handle,d1,d2,x1,y1,param) bind(c, name="hipblasSrotmg") - use iso_c_binding import implicit none integer(c_int) :: hipblasSrotmg_ @@ -7320,11 +8130,24 @@ function hipblasSrotmg_(handle,d1,d2,x1,y1,param) bind(c, name="hipblasSrotmg") end function module procedure hipblasSrotmg_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasSrotmg_assumed_rank,& + hipblasSrotmg_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSrotmg_rank_0,& + hipblasSrotmg_rank_0_devptr,& + hipblasSrotmg_rank_1,& + hipblasSrotmg_rank_1_devptr +#endif +#endif end interface interface hipblasDrotmg function hipblasDrotmg_(handle,d1,d2,x1,y1,param) bind(c, name="hipblasDrotmg") - use iso_c_binding import implicit none integer(c_int) :: hipblasDrotmg_ @@ -7337,11 +8160,24 @@ function hipblasDrotmg_(handle,d1,d2,x1,y1,param) bind(c, name="hipblasDrotmg") end function module procedure hipblasDrotmg_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasDrotmg_assumed_rank,& + hipblasDrotmg_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDrotmg_rank_0,& + hipblasDrotmg_rank_0_devptr,& + hipblasDrotmg_rank_1,& + hipblasDrotmg_rank_1_devptr +#endif +#endif end interface interface hipblasSrotmg_64 function hipblasSrotmg_64_(handle,d1,d2,x1,y1,param) bind(c, name="hipblasSrotmg_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSrotmg_64_ @@ -7354,11 +8190,24 @@ function hipblasSrotmg_64_(handle,d1,d2,x1,y1,param) bind(c, name="hipblasSrotmg end function module procedure hipblasSrotmg_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasSrotmg_64_assumed_rank,& + hipblasSrotmg_64_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSrotmg_64_rank_0,& + hipblasSrotmg_64_rank_0_devptr,& + hipblasSrotmg_64_rank_1,& + hipblasSrotmg_64_rank_1_devptr +#endif +#endif end interface interface hipblasDrotmg_64 function hipblasDrotmg_64_(handle,d1,d2,x1,y1,param) bind(c, name="hipblasDrotmg_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDrotmg_64_ @@ -7371,12 +8220,25 @@ function hipblasDrotmg_64_(handle,d1,d2,x1,y1,param) bind(c, name="hipblasDrotmg end function module procedure hipblasDrotmg_64_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasDrotmg_64_assumed_rank,& + hipblasDrotmg_64_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDrotmg_64_rank_0,& + hipblasDrotmg_64_rank_0_devptr,& + hipblasDrotmg_64_rank_1,& + hipblasDrotmg_64_rank_1_devptr +#endif +#endif end interface interface hipblasSrotmgBatched function hipblasSrotmgBatched_(handle,d1,d2,x1,y1,param,batchCount) & bind(c, name="hipblasSrotmgBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasSrotmgBatched_ @@ -7393,7 +8255,6 @@ function hipblasSrotmgBatched_(handle,d1,d2,x1,y1,param,batchCount) & interface hipblasDrotmgBatched function hipblasDrotmgBatched_(handle,d1,d2,x1,y1,param,batchCount) & bind(c, name="hipblasDrotmgBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDrotmgBatched_ @@ -7410,7 +8271,6 @@ function hipblasDrotmgBatched_(handle,d1,d2,x1,y1,param,batchCount) & interface hipblasSrotmgBatched_64 function hipblasSrotmgBatched_64_(handle,d1,d2,x1,y1,param,batchCount) & bind(c, name="hipblasSrotmgBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSrotmgBatched_64_ @@ -7427,7 +8287,6 @@ function hipblasSrotmgBatched_64_(handle,d1,d2,x1,y1,param,batchCount) & interface hipblasDrotmgBatched_64 function hipblasDrotmgBatched_64_(handle,d1,d2,x1,y1,param,batchCount) & bind(c, name="hipblasDrotmgBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDrotmgBatched_64_ @@ -7445,7 +8304,6 @@ function hipblasDrotmgBatched_64_(handle,d1,d2,x1,y1,param,batchCount) & function hipblasSrotmgStridedBatched_(handle,d1,strided1,d2,strided2,x1,stridex1,y1,stridey1, & param,strideParam,batchCount) & bind(c, name="hipblasSrotmgStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasSrotmgStridedBatched_ @@ -7462,13 +8320,23 @@ function hipblasSrotmgStridedBatched_(handle,d1,strided1,d2,strided2,x1,stridex1 integer(c_int64_t),value :: strideParam integer(c_int),value :: batchCount end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSrotmgStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSrotmgStridedBatched_rank_0,& + hipblasSrotmgStridedBatched_rank_1,& + hipblasSrotmgStridedBatched_strided_rank +#endif +#endif end interface interface hipblasDrotmgStridedBatched function hipblasDrotmgStridedBatched_(handle,d1,strided1,d2,strided2,x1,stridex1,y1,stridey1, & param,strideParam,batchCount) & bind(c, name="hipblasDrotmgStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDrotmgStridedBatched_ @@ -7485,13 +8353,23 @@ function hipblasDrotmgStridedBatched_(handle,d1,strided1,d2,strided2,x1,stridex1 integer(c_int64_t),value :: strideParam integer(c_int),value :: batchCount end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDrotmgStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDrotmgStridedBatched_rank_0,& + hipblasDrotmgStridedBatched_rank_1,& + hipblasDrotmgStridedBatched_strided_rank +#endif +#endif end interface interface hipblasSrotmgStridedBatched_64 function hipblasSrotmgStridedBatched_64_(handle,d1,strided1,d2,strided2,x1,stridex1,y1, & stridey1,param,strideParam,batchCount) & bind(c, name="hipblasSrotmgStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSrotmgStridedBatched_64_ @@ -7508,13 +8386,23 @@ function hipblasSrotmgStridedBatched_64_(handle,d1,strided1,d2,strided2,x1,strid integer(c_int64_t),value :: strideParam integer(c_int64_t),value :: batchCount end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSrotmgStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSrotmgStridedBatched_64_rank_0,& + hipblasSrotmgStridedBatched_64_rank_1,& + hipblasSrotmgStridedBatched_64_strided_rank +#endif +#endif end interface interface hipblasDrotmgStridedBatched_64 function hipblasDrotmgStridedBatched_64_(handle,d1,strided1,d2,strided2,x1,stridex1,y1, & stridey1,param,strideParam,batchCount) & bind(c, name="hipblasDrotmgStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDrotmgStridedBatched_64_ @@ -7531,11 +8419,21 @@ function hipblasDrotmgStridedBatched_64_(handle,d1,strided1,d2,strided2,x1,strid integer(c_int64_t),value :: strideParam integer(c_int64_t),value :: batchCount end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDrotmgStridedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDrotmgStridedBatched_64_rank_0,& + hipblasDrotmgStridedBatched_64_rank_1,& + hipblasDrotmgStridedBatched_64_strided_rank +#endif +#endif end interface interface hipblasSscal function hipblasSscal_(handle,n,alpha,x,incx) bind(c, name="hipblasSscal") - use iso_c_binding import implicit none integer(c_int) :: hipblasSscal_ @@ -7549,19 +8447,22 @@ function hipblasSscal_(handle,n,alpha,x,incx) bind(c, name="hipblasSscal") module procedure hipblasSscal_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasSscal_assumed_rank + module procedure & + hipblasSscal_assumed_rank,& + hipblasSscal_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSscal_rank_0,& - hipblasSscal_rank_1 + hipblasSscal_rank_0_devptr,& + hipblasSscal_rank_1,& + hipblasSscal_rank_1_devptr #endif #endif end interface interface hipblasDscal function hipblasDscal_(handle,n,alpha,x,incx) bind(c, name="hipblasDscal") - use iso_c_binding import implicit none integer(c_int) :: hipblasDscal_ @@ -7575,19 +8476,22 @@ function hipblasDscal_(handle,n,alpha,x,incx) bind(c, name="hipblasDscal") module procedure hipblasDscal_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDscal_assumed_rank + module procedure & + hipblasDscal_assumed_rank,& + hipblasDscal_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDscal_rank_0,& - hipblasDscal_rank_1 + hipblasDscal_rank_0_devptr,& + hipblasDscal_rank_1,& + hipblasDscal_rank_1_devptr #endif #endif end interface interface hipblasCscal function hipblasCscal_(handle,n,alpha,x,incx) bind(c, name="hipblasCscal") - use iso_c_binding import implicit none integer(c_int) :: hipblasCscal_ @@ -7601,19 +8505,22 @@ function hipblasCscal_(handle,n,alpha,x,incx) bind(c, name="hipblasCscal") module procedure hipblasCscal_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCscal_assumed_rank + module procedure & + hipblasCscal_assumed_rank,& + hipblasCscal_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCscal_rank_0,& - hipblasCscal_rank_1 + hipblasCscal_rank_0_devptr,& + hipblasCscal_rank_1,& + hipblasCscal_rank_1_devptr #endif #endif end interface interface hipblasCsscal function hipblasCsscal_(handle,n,alpha,x,incx) bind(c, name="hipblasCsscal") - use iso_c_binding import implicit none integer(c_int) :: hipblasCsscal_ @@ -7627,19 +8534,22 @@ function hipblasCsscal_(handle,n,alpha,x,incx) bind(c, name="hipblasCsscal") module procedure hipblasCsscal_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCsscal_assumed_rank + module procedure & + hipblasCsscal_assumed_rank,& + hipblasCsscal_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCsscal_rank_0,& - hipblasCsscal_rank_1 + hipblasCsscal_rank_0_devptr,& + hipblasCsscal_rank_1,& + hipblasCsscal_rank_1_devptr #endif #endif end interface interface hipblasZscal function hipblasZscal_(handle,n,alpha,x,incx) bind(c, name="hipblasZscal") - use iso_c_binding import implicit none integer(c_int) :: hipblasZscal_ @@ -7653,19 +8563,22 @@ function hipblasZscal_(handle,n,alpha,x,incx) bind(c, name="hipblasZscal") module procedure hipblasZscal_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZscal_assumed_rank + module procedure & + hipblasZscal_assumed_rank,& + hipblasZscal_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZscal_rank_0,& - hipblasZscal_rank_1 + hipblasZscal_rank_0_devptr,& + hipblasZscal_rank_1,& + hipblasZscal_rank_1_devptr #endif #endif end interface interface hipblasZdscal function hipblasZdscal_(handle,n,alpha,x,incx) bind(c, name="hipblasZdscal") - use iso_c_binding import implicit none integer(c_int) :: hipblasZdscal_ @@ -7679,19 +8592,22 @@ function hipblasZdscal_(handle,n,alpha,x,incx) bind(c, name="hipblasZdscal") module procedure hipblasZdscal_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZdscal_assumed_rank + module procedure & + hipblasZdscal_assumed_rank,& + hipblasZdscal_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZdscal_rank_0,& - hipblasZdscal_rank_1 + hipblasZdscal_rank_0_devptr,& + hipblasZdscal_rank_1,& + hipblasZdscal_rank_1_devptr #endif #endif end interface interface hipblasSscal_64 function hipblasSscal_64_(handle,n,alpha,x,incx) bind(c, name="hipblasSscal_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSscal_64_ @@ -7705,19 +8621,22 @@ function hipblasSscal_64_(handle,n,alpha,x,incx) bind(c, name="hipblasSscal_64") module procedure hipblasSscal_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasSscal_64_assumed_rank + module procedure & + hipblasSscal_64_assumed_rank,& + hipblasSscal_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSscal_64_rank_0,& - hipblasSscal_64_rank_1 + hipblasSscal_64_rank_0_devptr,& + hipblasSscal_64_rank_1,& + hipblasSscal_64_rank_1_devptr #endif #endif end interface interface hipblasDscal_64 function hipblasDscal_64_(handle,n,alpha,x,incx) bind(c, name="hipblasDscal_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDscal_64_ @@ -7731,19 +8650,22 @@ function hipblasDscal_64_(handle,n,alpha,x,incx) bind(c, name="hipblasDscal_64") module procedure hipblasDscal_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDscal_64_assumed_rank + module procedure & + hipblasDscal_64_assumed_rank,& + hipblasDscal_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDscal_64_rank_0,& - hipblasDscal_64_rank_1 + hipblasDscal_64_rank_0_devptr,& + hipblasDscal_64_rank_1,& + hipblasDscal_64_rank_1_devptr #endif #endif end interface interface hipblasCscal_64 function hipblasCscal_64_(handle,n,alpha,x,incx) bind(c, name="hipblasCscal_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCscal_64_ @@ -7757,19 +8679,22 @@ function hipblasCscal_64_(handle,n,alpha,x,incx) bind(c, name="hipblasCscal_64") module procedure hipblasCscal_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCscal_64_assumed_rank + module procedure & + hipblasCscal_64_assumed_rank,& + hipblasCscal_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCscal_64_rank_0,& - hipblasCscal_64_rank_1 + hipblasCscal_64_rank_0_devptr,& + hipblasCscal_64_rank_1,& + hipblasCscal_64_rank_1_devptr #endif #endif end interface interface hipblasCsscal_64 function hipblasCsscal_64_(handle,n,alpha,x,incx) bind(c, name="hipblasCsscal_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCsscal_64_ @@ -7783,19 +8708,22 @@ function hipblasCsscal_64_(handle,n,alpha,x,incx) bind(c, name="hipblasCsscal_64 module procedure hipblasCsscal_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCsscal_64_assumed_rank + module procedure & + hipblasCsscal_64_assumed_rank,& + hipblasCsscal_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCsscal_64_rank_0,& - hipblasCsscal_64_rank_1 + hipblasCsscal_64_rank_0_devptr,& + hipblasCsscal_64_rank_1,& + hipblasCsscal_64_rank_1_devptr #endif #endif end interface interface hipblasZscal_64 function hipblasZscal_64_(handle,n,alpha,x,incx) bind(c, name="hipblasZscal_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZscal_64_ @@ -7809,19 +8737,22 @@ function hipblasZscal_64_(handle,n,alpha,x,incx) bind(c, name="hipblasZscal_64") module procedure hipblasZscal_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZscal_64_assumed_rank + module procedure & + hipblasZscal_64_assumed_rank,& + hipblasZscal_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZscal_64_rank_0,& - hipblasZscal_64_rank_1 + hipblasZscal_64_rank_0_devptr,& + hipblasZscal_64_rank_1,& + hipblasZscal_64_rank_1_devptr #endif #endif end interface interface hipblasZdscal_64 function hipblasZdscal_64_(handle,n,alpha,x,incx) bind(c, name="hipblasZdscal_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZdscal_64_ @@ -7835,12 +8766,16 @@ function hipblasZdscal_64_(handle,n,alpha,x,incx) bind(c, name="hipblasZdscal_64 module procedure hipblasZdscal_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZdscal_64_assumed_rank + module procedure & + hipblasZdscal_64_assumed_rank,& + hipblasZdscal_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZdscal_64_rank_0,& - hipblasZdscal_64_rank_1 + hipblasZdscal_64_rank_0_devptr,& + hipblasZdscal_64_rank_1,& + hipblasZdscal_64_rank_1_devptr #endif #endif end interface @@ -7848,7 +8783,6 @@ function hipblasZdscal_64_(handle,n,alpha,x,incx) bind(c, name="hipblasZdscal_64 interface hipblasSscalBatched function hipblasSscalBatched_(handle,n,alpha,x,incx,batchCount) & bind(c, name="hipblasSscalBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasSscalBatched_ @@ -7866,7 +8800,6 @@ function hipblasSscalBatched_(handle,n,alpha,x,incx,batchCount) & interface hipblasDscalBatched function hipblasDscalBatched_(handle,n,alpha,x,incx,batchCount) & bind(c, name="hipblasDscalBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDscalBatched_ @@ -7884,7 +8817,6 @@ function hipblasDscalBatched_(handle,n,alpha,x,incx,batchCount) & interface hipblasCscalBatched function hipblasCscalBatched_(handle,n,alpha,x,incx,batchCount) & bind(c, name="hipblasCscalBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCscalBatched_ @@ -7902,7 +8834,6 @@ function hipblasCscalBatched_(handle,n,alpha,x,incx,batchCount) & interface hipblasZscalBatched function hipblasZscalBatched_(handle,n,alpha,x,incx,batchCount) & bind(c, name="hipblasZscalBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZscalBatched_ @@ -7920,7 +8851,6 @@ function hipblasZscalBatched_(handle,n,alpha,x,incx,batchCount) & interface hipblasCsscalBatched function hipblasCsscalBatched_(handle,n,alpha,x,incx,batchCount) & bind(c, name="hipblasCsscalBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCsscalBatched_ @@ -7938,7 +8868,6 @@ function hipblasCsscalBatched_(handle,n,alpha,x,incx,batchCount) & interface hipblasZdscalBatched function hipblasZdscalBatched_(handle,n,alpha,x,incx,batchCount) & bind(c, name="hipblasZdscalBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZdscalBatched_ @@ -7956,7 +8885,6 @@ function hipblasZdscalBatched_(handle,n,alpha,x,incx,batchCount) & interface hipblasSscalBatched_64 function hipblasSscalBatched_64_(handle,n,alpha,x,incx,batchCount) & bind(c, name="hipblasSscalBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSscalBatched_64_ @@ -7974,7 +8902,6 @@ function hipblasSscalBatched_64_(handle,n,alpha,x,incx,batchCount) & interface hipblasDscalBatched_64 function hipblasDscalBatched_64_(handle,n,alpha,x,incx,batchCount) & bind(c, name="hipblasDscalBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDscalBatched_64_ @@ -7992,7 +8919,6 @@ function hipblasDscalBatched_64_(handle,n,alpha,x,incx,batchCount) & interface hipblasCscalBatched_64 function hipblasCscalBatched_64_(handle,n,alpha,x,incx,batchCount) & bind(c, name="hipblasCscalBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCscalBatched_64_ @@ -8010,7 +8936,6 @@ function hipblasCscalBatched_64_(handle,n,alpha,x,incx,batchCount) & interface hipblasZscalBatched_64 function hipblasZscalBatched_64_(handle,n,alpha,x,incx,batchCount) & bind(c, name="hipblasZscalBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZscalBatched_64_ @@ -8028,7 +8953,6 @@ function hipblasZscalBatched_64_(handle,n,alpha,x,incx,batchCount) & interface hipblasCsscalBatched_64 function hipblasCsscalBatched_64_(handle,n,alpha,x,incx,batchCount) & bind(c, name="hipblasCsscalBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCsscalBatched_64_ @@ -8046,7 +8970,6 @@ function hipblasCsscalBatched_64_(handle,n,alpha,x,incx,batchCount) & interface hipblasZdscalBatched_64 function hipblasZdscalBatched_64_(handle,n,alpha,x,incx,batchCount) & bind(c, name="hipblasZdscalBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZdscalBatched_64_ @@ -8064,7 +8987,6 @@ function hipblasZdscalBatched_64_(handle,n,alpha,x,incx,batchCount) & interface hipblasSscalStridedBatched function hipblasSscalStridedBatched_(handle,n,alpha,x,incx,stridex,batchCount) & bind(c, name="hipblasSscalStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasSscalStridedBatched_ @@ -8080,12 +9002,18 @@ function hipblasSscalStridedBatched_(handle,n,alpha,x,incx,stridex,batchCount) & module procedure hipblasSscalStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasSscalStridedBatched_assumed_rank + module procedure & + hipblasSscalStridedBatched_assumed_rank,& + hipblasSscalStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSscalStridedBatched_rank_0,& - hipblasSscalStridedBatched_rank_1 + hipblasSscalStridedBatched_rank_0_devptr,& + hipblasSscalStridedBatched_rank_1,& + hipblasSscalStridedBatched_rank_1_devptr,& + hipblasSscalStridedBatched_strided_rank,& + hipblasSscalStridedBatched_strided_rank_devptr #endif #endif end interface @@ -8093,7 +9021,6 @@ function hipblasSscalStridedBatched_(handle,n,alpha,x,incx,stridex,batchCount) & interface hipblasDscalStridedBatched function hipblasDscalStridedBatched_(handle,n,alpha,x,incx,stridex,batchCount) & bind(c, name="hipblasDscalStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDscalStridedBatched_ @@ -8109,12 +9036,18 @@ function hipblasDscalStridedBatched_(handle,n,alpha,x,incx,stridex,batchCount) & module procedure hipblasDscalStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDscalStridedBatched_assumed_rank + module procedure & + hipblasDscalStridedBatched_assumed_rank,& + hipblasDscalStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDscalStridedBatched_rank_0,& - hipblasDscalStridedBatched_rank_1 + hipblasDscalStridedBatched_rank_0_devptr,& + hipblasDscalStridedBatched_rank_1,& + hipblasDscalStridedBatched_rank_1_devptr,& + hipblasDscalStridedBatched_strided_rank,& + hipblasDscalStridedBatched_strided_rank_devptr #endif #endif end interface @@ -8122,7 +9055,6 @@ function hipblasDscalStridedBatched_(handle,n,alpha,x,incx,stridex,batchCount) & interface hipblasCscalStridedBatched function hipblasCscalStridedBatched_(handle,n,alpha,x,incx,stridex,batchCount) & bind(c, name="hipblasCscalStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCscalStridedBatched_ @@ -8138,12 +9070,18 @@ function hipblasCscalStridedBatched_(handle,n,alpha,x,incx,stridex,batchCount) & module procedure hipblasCscalStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCscalStridedBatched_assumed_rank + module procedure & + hipblasCscalStridedBatched_assumed_rank,& + hipblasCscalStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCscalStridedBatched_rank_0,& - hipblasCscalStridedBatched_rank_1 + hipblasCscalStridedBatched_rank_0_devptr,& + hipblasCscalStridedBatched_rank_1,& + hipblasCscalStridedBatched_rank_1_devptr,& + hipblasCscalStridedBatched_strided_rank,& + hipblasCscalStridedBatched_strided_rank_devptr #endif #endif end interface @@ -8151,7 +9089,6 @@ function hipblasCscalStridedBatched_(handle,n,alpha,x,incx,stridex,batchCount) & interface hipblasZscalStridedBatched function hipblasZscalStridedBatched_(handle,n,alpha,x,incx,stridex,batchCount) & bind(c, name="hipblasZscalStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZscalStridedBatched_ @@ -8167,12 +9104,18 @@ function hipblasZscalStridedBatched_(handle,n,alpha,x,incx,stridex,batchCount) & module procedure hipblasZscalStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZscalStridedBatched_assumed_rank + module procedure & + hipblasZscalStridedBatched_assumed_rank,& + hipblasZscalStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZscalStridedBatched_rank_0,& - hipblasZscalStridedBatched_rank_1 + hipblasZscalStridedBatched_rank_0_devptr,& + hipblasZscalStridedBatched_rank_1,& + hipblasZscalStridedBatched_rank_1_devptr,& + hipblasZscalStridedBatched_strided_rank,& + hipblasZscalStridedBatched_strided_rank_devptr #endif #endif end interface @@ -8180,7 +9123,6 @@ function hipblasZscalStridedBatched_(handle,n,alpha,x,incx,stridex,batchCount) & interface hipblasCsscalStridedBatched function hipblasCsscalStridedBatched_(handle,n,alpha,x,incx,stridex,batchCount) & bind(c, name="hipblasCsscalStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCsscalStridedBatched_ @@ -8196,12 +9138,18 @@ function hipblasCsscalStridedBatched_(handle,n,alpha,x,incx,stridex,batchCount) module procedure hipblasCsscalStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCsscalStridedBatched_assumed_rank + module procedure & + hipblasCsscalStridedBatched_assumed_rank,& + hipblasCsscalStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCsscalStridedBatched_rank_0,& - hipblasCsscalStridedBatched_rank_1 + hipblasCsscalStridedBatched_rank_0_devptr,& + hipblasCsscalStridedBatched_rank_1,& + hipblasCsscalStridedBatched_rank_1_devptr,& + hipblasCsscalStridedBatched_strided_rank,& + hipblasCsscalStridedBatched_strided_rank_devptr #endif #endif end interface @@ -8209,7 +9157,6 @@ function hipblasCsscalStridedBatched_(handle,n,alpha,x,incx,stridex,batchCount) interface hipblasZdscalStridedBatched function hipblasZdscalStridedBatched_(handle,n,alpha,x,incx,stridex,batchCount) & bind(c, name="hipblasZdscalStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZdscalStridedBatched_ @@ -8225,12 +9172,18 @@ function hipblasZdscalStridedBatched_(handle,n,alpha,x,incx,stridex,batchCount) module procedure hipblasZdscalStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZdscalStridedBatched_assumed_rank + module procedure & + hipblasZdscalStridedBatched_assumed_rank,& + hipblasZdscalStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZdscalStridedBatched_rank_0,& - hipblasZdscalStridedBatched_rank_1 + hipblasZdscalStridedBatched_rank_0_devptr,& + hipblasZdscalStridedBatched_rank_1,& + hipblasZdscalStridedBatched_rank_1_devptr,& + hipblasZdscalStridedBatched_strided_rank,& + hipblasZdscalStridedBatched_strided_rank_devptr #endif #endif end interface @@ -8238,7 +9191,6 @@ function hipblasZdscalStridedBatched_(handle,n,alpha,x,incx,stridex,batchCount) interface hipblasSscalStridedBatched_64 function hipblasSscalStridedBatched_64_(handle,n,alpha,x,incx,stridex,batchCount) & bind(c, name="hipblasSscalStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSscalStridedBatched_64_ @@ -8254,12 +9206,18 @@ function hipblasSscalStridedBatched_64_(handle,n,alpha,x,incx,stridex,batchCount module procedure hipblasSscalStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasSscalStridedBatched_64_assumed_rank + module procedure & + hipblasSscalStridedBatched_64_assumed_rank,& + hipblasSscalStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSscalStridedBatched_64_rank_0,& - hipblasSscalStridedBatched_64_rank_1 + hipblasSscalStridedBatched_64_rank_0_devptr,& + hipblasSscalStridedBatched_64_rank_1,& + hipblasSscalStridedBatched_64_rank_1_devptr,& + hipblasSscalStridedBatched_64_strided_rank,& + hipblasSscalStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -8267,7 +9225,6 @@ function hipblasSscalStridedBatched_64_(handle,n,alpha,x,incx,stridex,batchCount interface hipblasDscalStridedBatched_64 function hipblasDscalStridedBatched_64_(handle,n,alpha,x,incx,stridex,batchCount) & bind(c, name="hipblasDscalStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDscalStridedBatched_64_ @@ -8283,12 +9240,18 @@ function hipblasDscalStridedBatched_64_(handle,n,alpha,x,incx,stridex,batchCount module procedure hipblasDscalStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDscalStridedBatched_64_assumed_rank + module procedure & + hipblasDscalStridedBatched_64_assumed_rank,& + hipblasDscalStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDscalStridedBatched_64_rank_0,& - hipblasDscalStridedBatched_64_rank_1 + hipblasDscalStridedBatched_64_rank_0_devptr,& + hipblasDscalStridedBatched_64_rank_1,& + hipblasDscalStridedBatched_64_rank_1_devptr,& + hipblasDscalStridedBatched_64_strided_rank,& + hipblasDscalStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -8296,7 +9259,6 @@ function hipblasDscalStridedBatched_64_(handle,n,alpha,x,incx,stridex,batchCount interface hipblasCscalStridedBatched_64 function hipblasCscalStridedBatched_64_(handle,n,alpha,x,incx,stridex,batchCount) & bind(c, name="hipblasCscalStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCscalStridedBatched_64_ @@ -8312,12 +9274,18 @@ function hipblasCscalStridedBatched_64_(handle,n,alpha,x,incx,stridex,batchCount module procedure hipblasCscalStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCscalStridedBatched_64_assumed_rank + module procedure & + hipblasCscalStridedBatched_64_assumed_rank,& + hipblasCscalStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCscalStridedBatched_64_rank_0,& - hipblasCscalStridedBatched_64_rank_1 + hipblasCscalStridedBatched_64_rank_0_devptr,& + hipblasCscalStridedBatched_64_rank_1,& + hipblasCscalStridedBatched_64_rank_1_devptr,& + hipblasCscalStridedBatched_64_strided_rank,& + hipblasCscalStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -8325,7 +9293,6 @@ function hipblasCscalStridedBatched_64_(handle,n,alpha,x,incx,stridex,batchCount interface hipblasZscalStridedBatched_64 function hipblasZscalStridedBatched_64_(handle,n,alpha,x,incx,stridex,batchCount) & bind(c, name="hipblasZscalStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZscalStridedBatched_64_ @@ -8341,12 +9308,18 @@ function hipblasZscalStridedBatched_64_(handle,n,alpha,x,incx,stridex,batchCount module procedure hipblasZscalStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZscalStridedBatched_64_assumed_rank + module procedure & + hipblasZscalStridedBatched_64_assumed_rank,& + hipblasZscalStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZscalStridedBatched_64_rank_0,& - hipblasZscalStridedBatched_64_rank_1 + hipblasZscalStridedBatched_64_rank_0_devptr,& + hipblasZscalStridedBatched_64_rank_1,& + hipblasZscalStridedBatched_64_rank_1_devptr,& + hipblasZscalStridedBatched_64_strided_rank,& + hipblasZscalStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -8354,7 +9327,6 @@ function hipblasZscalStridedBatched_64_(handle,n,alpha,x,incx,stridex,batchCount interface hipblasCsscalStridedBatched_64 function hipblasCsscalStridedBatched_64_(handle,n,alpha,x,incx,stridex,batchCount) & bind(c, name="hipblasCsscalStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCsscalStridedBatched_64_ @@ -8370,12 +9342,18 @@ function hipblasCsscalStridedBatched_64_(handle,n,alpha,x,incx,stridex,batchCoun module procedure hipblasCsscalStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCsscalStridedBatched_64_assumed_rank + module procedure & + hipblasCsscalStridedBatched_64_assumed_rank,& + hipblasCsscalStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCsscalStridedBatched_64_rank_0,& - hipblasCsscalStridedBatched_64_rank_1 + hipblasCsscalStridedBatched_64_rank_0_devptr,& + hipblasCsscalStridedBatched_64_rank_1,& + hipblasCsscalStridedBatched_64_rank_1_devptr,& + hipblasCsscalStridedBatched_64_strided_rank,& + hipblasCsscalStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -8383,7 +9361,6 @@ function hipblasCsscalStridedBatched_64_(handle,n,alpha,x,incx,stridex,batchCoun interface hipblasZdscalStridedBatched_64 function hipblasZdscalStridedBatched_64_(handle,n,alpha,x,incx,stridex,batchCount) & bind(c, name="hipblasZdscalStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZdscalStridedBatched_64_ @@ -8399,19 +9376,24 @@ function hipblasZdscalStridedBatched_64_(handle,n,alpha,x,incx,stridex,batchCoun module procedure hipblasZdscalStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZdscalStridedBatched_64_assumed_rank + module procedure & + hipblasZdscalStridedBatched_64_assumed_rank,& + hipblasZdscalStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZdscalStridedBatched_64_rank_0,& - hipblasZdscalStridedBatched_64_rank_1 + hipblasZdscalStridedBatched_64_rank_0_devptr,& + hipblasZdscalStridedBatched_64_rank_1,& + hipblasZdscalStridedBatched_64_rank_1_devptr,& + hipblasZdscalStridedBatched_64_strided_rank,& + hipblasZdscalStridedBatched_64_strided_rank_devptr #endif #endif end interface interface hipblasSswap function hipblasSswap_(handle,n,x,incx,y,incy) bind(c, name="hipblasSswap") - use iso_c_binding import implicit none integer(c_int) :: hipblasSswap_ @@ -8436,7 +9418,6 @@ function hipblasSswap_(handle,n,x,incx,y,incy) bind(c, name="hipblasSswap") interface hipblasDswap function hipblasDswap_(handle,n,x,incx,y,incy) bind(c, name="hipblasDswap") - use iso_c_binding import implicit none integer(c_int) :: hipblasDswap_ @@ -8461,7 +9442,6 @@ function hipblasDswap_(handle,n,x,incx,y,incy) bind(c, name="hipblasDswap") interface hipblasCswap function hipblasCswap_(handle,n,x,incx,y,incy) bind(c, name="hipblasCswap") - use iso_c_binding import implicit none integer(c_int) :: hipblasCswap_ @@ -8486,7 +9466,6 @@ function hipblasCswap_(handle,n,x,incx,y,incy) bind(c, name="hipblasCswap") interface hipblasZswap function hipblasZswap_(handle,n,x,incx,y,incy) bind(c, name="hipblasZswap") - use iso_c_binding import implicit none integer(c_int) :: hipblasZswap_ @@ -8511,7 +9490,6 @@ function hipblasZswap_(handle,n,x,incx,y,incy) bind(c, name="hipblasZswap") interface hipblasSswap_64 function hipblasSswap_64_(handle,n,x,incx,y,incy) bind(c, name="hipblasSswap_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSswap_64_ @@ -8536,7 +9514,6 @@ function hipblasSswap_64_(handle,n,x,incx,y,incy) bind(c, name="hipblasSswap_64" interface hipblasDswap_64 function hipblasDswap_64_(handle,n,x,incx,y,incy) bind(c, name="hipblasDswap_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDswap_64_ @@ -8561,7 +9538,6 @@ function hipblasDswap_64_(handle,n,x,incx,y,incy) bind(c, name="hipblasDswap_64" interface hipblasCswap_64 function hipblasCswap_64_(handle,n,x,incx,y,incy) bind(c, name="hipblasCswap_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCswap_64_ @@ -8586,7 +9562,6 @@ function hipblasCswap_64_(handle,n,x,incx,y,incy) bind(c, name="hipblasCswap_64" interface hipblasZswap_64 function hipblasZswap_64_(handle,n,x,incx,y,incy) bind(c, name="hipblasZswap_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZswap_64_ @@ -8612,7 +9587,6 @@ function hipblasZswap_64_(handle,n,x,incx,y,incy) bind(c, name="hipblasZswap_64" interface hipblasSswapBatched function hipblasSswapBatched_(handle,n,x,incx,y,incy,batchCount) & bind(c, name="hipblasSswapBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasSswapBatched_ @@ -8629,7 +9603,6 @@ function hipblasSswapBatched_(handle,n,x,incx,y,incy,batchCount) & interface hipblasDswapBatched function hipblasDswapBatched_(handle,n,x,incx,y,incy,batchCount) & bind(c, name="hipblasDswapBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDswapBatched_ @@ -8646,7 +9619,6 @@ function hipblasDswapBatched_(handle,n,x,incx,y,incy,batchCount) & interface hipblasCswapBatched function hipblasCswapBatched_(handle,n,x,incx,y,incy,batchCount) & bind(c, name="hipblasCswapBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCswapBatched_ @@ -8663,7 +9635,6 @@ function hipblasCswapBatched_(handle,n,x,incx,y,incy,batchCount) & interface hipblasZswapBatched function hipblasZswapBatched_(handle,n,x,incx,y,incy,batchCount) & bind(c, name="hipblasZswapBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZswapBatched_ @@ -8680,7 +9651,6 @@ function hipblasZswapBatched_(handle,n,x,incx,y,incy,batchCount) & interface hipblasSswapBatched_64 function hipblasSswapBatched_64_(handle,n,x,incx,y,incy,batchCount) & bind(c, name="hipblasSswapBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSswapBatched_64_ @@ -8697,7 +9667,6 @@ function hipblasSswapBatched_64_(handle,n,x,incx,y,incy,batchCount) & interface hipblasDswapBatched_64 function hipblasDswapBatched_64_(handle,n,x,incx,y,incy,batchCount) & bind(c, name="hipblasDswapBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDswapBatched_64_ @@ -8714,7 +9683,6 @@ function hipblasDswapBatched_64_(handle,n,x,incx,y,incy,batchCount) & interface hipblasCswapBatched_64 function hipblasCswapBatched_64_(handle,n,x,incx,y,incy,batchCount) & bind(c, name="hipblasCswapBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCswapBatched_64_ @@ -8731,7 +9699,6 @@ function hipblasCswapBatched_64_(handle,n,x,incx,y,incy,batchCount) & interface hipblasZswapBatched_64 function hipblasZswapBatched_64_(handle,n,x,incx,y,incy,batchCount) & bind(c, name="hipblasZswapBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZswapBatched_64_ @@ -8748,7 +9715,6 @@ function hipblasZswapBatched_64_(handle,n,x,incx,y,incy,batchCount) & interface hipblasSswapStridedBatched function hipblasSswapStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,batchCount) & bind(c, name="hipblasSswapStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasSswapStridedBatched_ @@ -8769,7 +9735,8 @@ function hipblasSswapStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,batc #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSswapStridedBatched_rank_0,& - hipblasSswapStridedBatched_rank_1 + hipblasSswapStridedBatched_rank_1,& + hipblasSswapStridedBatched_strided_rank #endif #endif end interface @@ -8777,7 +9744,6 @@ function hipblasSswapStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,batc interface hipblasDswapStridedBatched function hipblasDswapStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,batchCount) & bind(c, name="hipblasDswapStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDswapStridedBatched_ @@ -8798,7 +9764,8 @@ function hipblasDswapStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,batc #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDswapStridedBatched_rank_0,& - hipblasDswapStridedBatched_rank_1 + hipblasDswapStridedBatched_rank_1,& + hipblasDswapStridedBatched_strided_rank #endif #endif end interface @@ -8806,7 +9773,6 @@ function hipblasDswapStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,batc interface hipblasCswapStridedBatched function hipblasCswapStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,batchCount) & bind(c, name="hipblasCswapStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCswapStridedBatched_ @@ -8827,7 +9793,8 @@ function hipblasCswapStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,batc #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCswapStridedBatched_rank_0,& - hipblasCswapStridedBatched_rank_1 + hipblasCswapStridedBatched_rank_1,& + hipblasCswapStridedBatched_strided_rank #endif #endif end interface @@ -8835,7 +9802,6 @@ function hipblasCswapStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,batc interface hipblasZswapStridedBatched function hipblasZswapStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,batchCount) & bind(c, name="hipblasZswapStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZswapStridedBatched_ @@ -8856,7 +9822,8 @@ function hipblasZswapStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,batc #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZswapStridedBatched_rank_0,& - hipblasZswapStridedBatched_rank_1 + hipblasZswapStridedBatched_rank_1,& + hipblasZswapStridedBatched_strided_rank #endif #endif end interface @@ -8864,7 +9831,6 @@ function hipblasZswapStridedBatched_(handle,n,x,incx,stridex,y,incy,stridey,batc interface hipblasSswapStridedBatched_64 function hipblasSswapStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,batchCount) & bind(c, name="hipblasSswapStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSswapStridedBatched_64_ @@ -8885,7 +9851,8 @@ function hipblasSswapStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,b #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSswapStridedBatched_64_rank_0,& - hipblasSswapStridedBatched_64_rank_1 + hipblasSswapStridedBatched_64_rank_1,& + hipblasSswapStridedBatched_64_strided_rank #endif #endif end interface @@ -8893,7 +9860,6 @@ function hipblasSswapStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,b interface hipblasDswapStridedBatched_64 function hipblasDswapStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,batchCount) & bind(c, name="hipblasDswapStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDswapStridedBatched_64_ @@ -8914,7 +9880,8 @@ function hipblasDswapStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,b #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDswapStridedBatched_64_rank_0,& - hipblasDswapStridedBatched_64_rank_1 + hipblasDswapStridedBatched_64_rank_1,& + hipblasDswapStridedBatched_64_strided_rank #endif #endif end interface @@ -8922,7 +9889,6 @@ function hipblasDswapStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,b interface hipblasCswapStridedBatched_64 function hipblasCswapStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,batchCount) & bind(c, name="hipblasCswapStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCswapStridedBatched_64_ @@ -8943,7 +9909,8 @@ function hipblasCswapStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,b #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCswapStridedBatched_64_rank_0,& - hipblasCswapStridedBatched_64_rank_1 + hipblasCswapStridedBatched_64_rank_1,& + hipblasCswapStridedBatched_64_strided_rank #endif #endif end interface @@ -8951,7 +9918,6 @@ function hipblasCswapStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,b interface hipblasZswapStridedBatched_64 function hipblasZswapStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,batchCount) & bind(c, name="hipblasZswapStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZswapStridedBatched_64_ @@ -8972,7 +9938,8 @@ function hipblasZswapStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,b #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZswapStridedBatched_64_rank_0,& - hipblasZswapStridedBatched_64_rank_1 + hipblasZswapStridedBatched_64_rank_1,& + hipblasZswapStridedBatched_64_strided_rank #endif #endif end interface @@ -8980,7 +9947,6 @@ function hipblasZswapStridedBatched_64_(handle,n,x,incx,stridex,y,incy,stridey,b interface hipblasSgbmv function hipblasSgbmv_(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) & bind(c, name="hipblasSgbmv") - use iso_c_binding import implicit none integer(c_int) :: hipblasSgbmv_ @@ -9003,13 +9969,18 @@ function hipblasSgbmv_(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) & module procedure hipblasSgbmv_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasSgbmv_assumed_rank + module procedure & + hipblasSgbmv_assumed_rank,& + hipblasSgbmv_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSgbmv_rank_0,& + hipblasSgbmv_rank_0_devptr,& hipblasSgbmv_rank_1,& - hipblasSgbmv_full_rank + hipblasSgbmv_rank_1_devptr,& + hipblasSgbmv_full_rank,& + hipblasSgbmv_full_rank_devptr #endif #endif end interface @@ -9017,7 +9988,6 @@ function hipblasSgbmv_(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) & interface hipblasDgbmv function hipblasDgbmv_(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) & bind(c, name="hipblasDgbmv") - use iso_c_binding import implicit none integer(c_int) :: hipblasDgbmv_ @@ -9040,13 +10010,18 @@ function hipblasDgbmv_(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) & module procedure hipblasDgbmv_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDgbmv_assumed_rank + module procedure & + hipblasDgbmv_assumed_rank,& + hipblasDgbmv_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDgbmv_rank_0,& + hipblasDgbmv_rank_0_devptr,& hipblasDgbmv_rank_1,& - hipblasDgbmv_full_rank + hipblasDgbmv_rank_1_devptr,& + hipblasDgbmv_full_rank,& + hipblasDgbmv_full_rank_devptr #endif #endif end interface @@ -9054,7 +10029,6 @@ function hipblasDgbmv_(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) & interface hipblasCgbmv function hipblasCgbmv_(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) & bind(c, name="hipblasCgbmv") - use iso_c_binding import implicit none integer(c_int) :: hipblasCgbmv_ @@ -9077,13 +10051,18 @@ function hipblasCgbmv_(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) & module procedure hipblasCgbmv_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCgbmv_assumed_rank + module procedure & + hipblasCgbmv_assumed_rank,& + hipblasCgbmv_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCgbmv_rank_0,& + hipblasCgbmv_rank_0_devptr,& hipblasCgbmv_rank_1,& - hipblasCgbmv_full_rank + hipblasCgbmv_rank_1_devptr,& + hipblasCgbmv_full_rank,& + hipblasCgbmv_full_rank_devptr #endif #endif end interface @@ -9091,7 +10070,6 @@ function hipblasCgbmv_(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) & interface hipblasZgbmv function hipblasZgbmv_(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) & bind(c, name="hipblasZgbmv") - use iso_c_binding import implicit none integer(c_int) :: hipblasZgbmv_ @@ -9114,13 +10092,18 @@ function hipblasZgbmv_(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) & module procedure hipblasZgbmv_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZgbmv_assumed_rank + module procedure & + hipblasZgbmv_assumed_rank,& + hipblasZgbmv_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZgbmv_rank_0,& + hipblasZgbmv_rank_0_devptr,& hipblasZgbmv_rank_1,& - hipblasZgbmv_full_rank + hipblasZgbmv_rank_1_devptr,& + hipblasZgbmv_full_rank,& + hipblasZgbmv_full_rank_devptr #endif #endif end interface @@ -9128,7 +10111,6 @@ function hipblasZgbmv_(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) & interface hipblasSgbmv_64 function hipblasSgbmv_64_(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) & bind(c, name="hipblasSgbmv_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSgbmv_64_ @@ -9151,13 +10133,18 @@ function hipblasSgbmv_64_(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy module procedure hipblasSgbmv_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasSgbmv_64_assumed_rank + module procedure & + hipblasSgbmv_64_assumed_rank,& + hipblasSgbmv_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSgbmv_64_rank_0,& + hipblasSgbmv_64_rank_0_devptr,& hipblasSgbmv_64_rank_1,& - hipblasSgbmv_64_full_rank + hipblasSgbmv_64_rank_1_devptr,& + hipblasSgbmv_64_full_rank,& + hipblasSgbmv_64_full_rank_devptr #endif #endif end interface @@ -9165,7 +10152,6 @@ function hipblasSgbmv_64_(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy interface hipblasDgbmv_64 function hipblasDgbmv_64_(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) & bind(c, name="hipblasDgbmv_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDgbmv_64_ @@ -9188,13 +10174,18 @@ function hipblasDgbmv_64_(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy module procedure hipblasDgbmv_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDgbmv_64_assumed_rank + module procedure & + hipblasDgbmv_64_assumed_rank,& + hipblasDgbmv_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDgbmv_64_rank_0,& + hipblasDgbmv_64_rank_0_devptr,& hipblasDgbmv_64_rank_1,& - hipblasDgbmv_64_full_rank + hipblasDgbmv_64_rank_1_devptr,& + hipblasDgbmv_64_full_rank,& + hipblasDgbmv_64_full_rank_devptr #endif #endif end interface @@ -9202,7 +10193,6 @@ function hipblasDgbmv_64_(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy interface hipblasCgbmv_64 function hipblasCgbmv_64_(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) & bind(c, name="hipblasCgbmv_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCgbmv_64_ @@ -9225,13 +10215,18 @@ function hipblasCgbmv_64_(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy module procedure hipblasCgbmv_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCgbmv_64_assumed_rank + module procedure & + hipblasCgbmv_64_assumed_rank,& + hipblasCgbmv_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCgbmv_64_rank_0,& + hipblasCgbmv_64_rank_0_devptr,& hipblasCgbmv_64_rank_1,& - hipblasCgbmv_64_full_rank + hipblasCgbmv_64_rank_1_devptr,& + hipblasCgbmv_64_full_rank,& + hipblasCgbmv_64_full_rank_devptr #endif #endif end interface @@ -9239,7 +10234,6 @@ function hipblasCgbmv_64_(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy interface hipblasZgbmv_64 function hipblasZgbmv_64_(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) & bind(c, name="hipblasZgbmv_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZgbmv_64_ @@ -9262,13 +10256,18 @@ function hipblasZgbmv_64_(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy module procedure hipblasZgbmv_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZgbmv_64_assumed_rank + module procedure & + hipblasZgbmv_64_assumed_rank,& + hipblasZgbmv_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZgbmv_64_rank_0,& + hipblasZgbmv_64_rank_0_devptr,& hipblasZgbmv_64_rank_1,& - hipblasZgbmv_64_full_rank + hipblasZgbmv_64_rank_1_devptr,& + hipblasZgbmv_64_full_rank,& + hipblasZgbmv_64_full_rank_devptr #endif #endif end interface @@ -9277,7 +10276,6 @@ function hipblasZgbmv_64_(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy function hipblasSgbmvBatched_(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy, & batchCount) & bind(c, name="hipblasSgbmvBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasSgbmvBatched_ @@ -9305,7 +10303,6 @@ function hipblasSgbmvBatched_(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y, function hipblasDgbmvBatched_(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy, & batchCount) & bind(c, name="hipblasDgbmvBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDgbmvBatched_ @@ -9333,7 +10330,6 @@ function hipblasDgbmvBatched_(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y, function hipblasCgbmvBatched_(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy, & batchCount) & bind(c, name="hipblasCgbmvBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCgbmvBatched_ @@ -9361,7 +10357,6 @@ function hipblasCgbmvBatched_(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y, function hipblasZgbmvBatched_(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy, & batchCount) & bind(c, name="hipblasZgbmvBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZgbmvBatched_ @@ -9389,7 +10384,6 @@ function hipblasZgbmvBatched_(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y, function hipblasSgbmvBatched_64_(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy, & batchCount) & bind(c, name="hipblasSgbmvBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSgbmvBatched_64_ @@ -9417,7 +10411,6 @@ function hipblasSgbmvBatched_64_(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta function hipblasDgbmvBatched_64_(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy, & batchCount) & bind(c, name="hipblasDgbmvBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDgbmvBatched_64_ @@ -9445,7 +10438,6 @@ function hipblasDgbmvBatched_64_(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta function hipblasCgbmvBatched_64_(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy, & batchCount) & bind(c, name="hipblasCgbmvBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCgbmvBatched_64_ @@ -9473,7 +10465,6 @@ function hipblasCgbmvBatched_64_(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta function hipblasZgbmvBatched_64_(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy, & batchCount) & bind(c, name="hipblasZgbmvBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZgbmvBatched_64_ @@ -9501,7 +10492,6 @@ function hipblasZgbmvBatched_64_(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta function hipblasSgbmvStridedBatched_(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x,incx, & stridex,beta,y,incy,stridey,batchCount) & bind(c, name="hipblasSgbmvStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasSgbmvStridedBatched_ @@ -9528,13 +10518,20 @@ function hipblasSgbmvStridedBatched_(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA module procedure hipblasSgbmvStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasSgbmvStridedBatched_assumed_rank + module procedure & + hipblasSgbmvStridedBatched_assumed_rank,& + hipblasSgbmvStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSgbmvStridedBatched_rank_0,& + hipblasSgbmvStridedBatched_rank_0_devptr,& hipblasSgbmvStridedBatched_rank_1,& - hipblasSgbmvStridedBatched_full_rank + hipblasSgbmvStridedBatched_rank_1_devptr,& + hipblasSgbmvStridedBatched_full_rank,& + hipblasSgbmvStridedBatched_full_rank_devptr,& + hipblasSgbmvStridedBatched_strided_rank,& + hipblasSgbmvStridedBatched_strided_rank_devptr #endif #endif end interface @@ -9543,7 +10540,6 @@ function hipblasSgbmvStridedBatched_(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA function hipblasDgbmvStridedBatched_(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x,incx, & stridex,beta,y,incy,stridey,batchCount) & bind(c, name="hipblasDgbmvStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDgbmvStridedBatched_ @@ -9570,13 +10566,20 @@ function hipblasDgbmvStridedBatched_(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA module procedure hipblasDgbmvStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDgbmvStridedBatched_assumed_rank + module procedure & + hipblasDgbmvStridedBatched_assumed_rank,& + hipblasDgbmvStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDgbmvStridedBatched_rank_0,& + hipblasDgbmvStridedBatched_rank_0_devptr,& hipblasDgbmvStridedBatched_rank_1,& - hipblasDgbmvStridedBatched_full_rank + hipblasDgbmvStridedBatched_rank_1_devptr,& + hipblasDgbmvStridedBatched_full_rank,& + hipblasDgbmvStridedBatched_full_rank_devptr,& + hipblasDgbmvStridedBatched_strided_rank,& + hipblasDgbmvStridedBatched_strided_rank_devptr #endif #endif end interface @@ -9585,7 +10588,6 @@ function hipblasDgbmvStridedBatched_(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA function hipblasCgbmvStridedBatched_(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x,incx, & stridex,beta,y,incy,stridey,batchCount) & bind(c, name="hipblasCgbmvStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCgbmvStridedBatched_ @@ -9612,13 +10614,20 @@ function hipblasCgbmvStridedBatched_(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA module procedure hipblasCgbmvStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCgbmvStridedBatched_assumed_rank + module procedure & + hipblasCgbmvStridedBatched_assumed_rank,& + hipblasCgbmvStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCgbmvStridedBatched_rank_0,& + hipblasCgbmvStridedBatched_rank_0_devptr,& hipblasCgbmvStridedBatched_rank_1,& - hipblasCgbmvStridedBatched_full_rank + hipblasCgbmvStridedBatched_rank_1_devptr,& + hipblasCgbmvStridedBatched_full_rank,& + hipblasCgbmvStridedBatched_full_rank_devptr,& + hipblasCgbmvStridedBatched_strided_rank,& + hipblasCgbmvStridedBatched_strided_rank_devptr #endif #endif end interface @@ -9627,7 +10636,6 @@ function hipblasCgbmvStridedBatched_(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA function hipblasZgbmvStridedBatched_(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x,incx, & stridex,beta,y,incy,stridey,batchCount) & bind(c, name="hipblasZgbmvStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZgbmvStridedBatched_ @@ -9654,13 +10662,20 @@ function hipblasZgbmvStridedBatched_(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA module procedure hipblasZgbmvStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZgbmvStridedBatched_assumed_rank + module procedure & + hipblasZgbmvStridedBatched_assumed_rank,& + hipblasZgbmvStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZgbmvStridedBatched_rank_0,& + hipblasZgbmvStridedBatched_rank_0_devptr,& hipblasZgbmvStridedBatched_rank_1,& - hipblasZgbmvStridedBatched_full_rank + hipblasZgbmvStridedBatched_rank_1_devptr,& + hipblasZgbmvStridedBatched_full_rank,& + hipblasZgbmvStridedBatched_full_rank_devptr,& + hipblasZgbmvStridedBatched_strided_rank,& + hipblasZgbmvStridedBatched_strided_rank_devptr #endif #endif end interface @@ -9669,7 +10684,6 @@ function hipblasZgbmvStridedBatched_(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA function hipblasSgbmvStridedBatched_64_(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x,incx, & stridex,beta,y,incy,stridey,batchCount) & bind(c, name="hipblasSgbmvStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSgbmvStridedBatched_64_ @@ -9696,13 +10710,20 @@ function hipblasSgbmvStridedBatched_64_(handle,trans,m,n,kl,ku,alpha,AP,lda,stri module procedure hipblasSgbmvStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasSgbmvStridedBatched_64_assumed_rank + module procedure & + hipblasSgbmvStridedBatched_64_assumed_rank,& + hipblasSgbmvStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSgbmvStridedBatched_64_rank_0,& + hipblasSgbmvStridedBatched_64_rank_0_devptr,& hipblasSgbmvStridedBatched_64_rank_1,& - hipblasSgbmvStridedBatched_64_full_rank + hipblasSgbmvStridedBatched_64_rank_1_devptr,& + hipblasSgbmvStridedBatched_64_full_rank,& + hipblasSgbmvStridedBatched_64_full_rank_devptr,& + hipblasSgbmvStridedBatched_64_strided_rank,& + hipblasSgbmvStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -9711,7 +10732,6 @@ function hipblasSgbmvStridedBatched_64_(handle,trans,m,n,kl,ku,alpha,AP,lda,stri function hipblasDgbmvStridedBatched_64_(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x,incx, & stridex,beta,y,incy,stridey,batchCount) & bind(c, name="hipblasDgbmvStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDgbmvStridedBatched_64_ @@ -9738,13 +10758,20 @@ function hipblasDgbmvStridedBatched_64_(handle,trans,m,n,kl,ku,alpha,AP,lda,stri module procedure hipblasDgbmvStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDgbmvStridedBatched_64_assumed_rank + module procedure & + hipblasDgbmvStridedBatched_64_assumed_rank,& + hipblasDgbmvStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDgbmvStridedBatched_64_rank_0,& + hipblasDgbmvStridedBatched_64_rank_0_devptr,& hipblasDgbmvStridedBatched_64_rank_1,& - hipblasDgbmvStridedBatched_64_full_rank + hipblasDgbmvStridedBatched_64_rank_1_devptr,& + hipblasDgbmvStridedBatched_64_full_rank,& + hipblasDgbmvStridedBatched_64_full_rank_devptr,& + hipblasDgbmvStridedBatched_64_strided_rank,& + hipblasDgbmvStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -9753,7 +10780,6 @@ function hipblasDgbmvStridedBatched_64_(handle,trans,m,n,kl,ku,alpha,AP,lda,stri function hipblasCgbmvStridedBatched_64_(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x,incx, & stridex,beta,y,incy,stridey,batchCount) & bind(c, name="hipblasCgbmvStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCgbmvStridedBatched_64_ @@ -9780,13 +10806,20 @@ function hipblasCgbmvStridedBatched_64_(handle,trans,m,n,kl,ku,alpha,AP,lda,stri module procedure hipblasCgbmvStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCgbmvStridedBatched_64_assumed_rank + module procedure & + hipblasCgbmvStridedBatched_64_assumed_rank,& + hipblasCgbmvStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCgbmvStridedBatched_64_rank_0,& + hipblasCgbmvStridedBatched_64_rank_0_devptr,& hipblasCgbmvStridedBatched_64_rank_1,& - hipblasCgbmvStridedBatched_64_full_rank + hipblasCgbmvStridedBatched_64_rank_1_devptr,& + hipblasCgbmvStridedBatched_64_full_rank,& + hipblasCgbmvStridedBatched_64_full_rank_devptr,& + hipblasCgbmvStridedBatched_64_strided_rank,& + hipblasCgbmvStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -9795,7 +10828,6 @@ function hipblasCgbmvStridedBatched_64_(handle,trans,m,n,kl,ku,alpha,AP,lda,stri function hipblasZgbmvStridedBatched_64_(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x,incx, & stridex,beta,y,incy,stridey,batchCount) & bind(c, name="hipblasZgbmvStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZgbmvStridedBatched_64_ @@ -9822,13 +10854,20 @@ function hipblasZgbmvStridedBatched_64_(handle,trans,m,n,kl,ku,alpha,AP,lda,stri module procedure hipblasZgbmvStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZgbmvStridedBatched_64_assumed_rank + module procedure & + hipblasZgbmvStridedBatched_64_assumed_rank,& + hipblasZgbmvStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZgbmvStridedBatched_64_rank_0,& + hipblasZgbmvStridedBatched_64_rank_0_devptr,& hipblasZgbmvStridedBatched_64_rank_1,& - hipblasZgbmvStridedBatched_64_full_rank + hipblasZgbmvStridedBatched_64_rank_1_devptr,& + hipblasZgbmvStridedBatched_64_full_rank,& + hipblasZgbmvStridedBatched_64_full_rank_devptr,& + hipblasZgbmvStridedBatched_64_strided_rank,& + hipblasZgbmvStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -9836,7 +10875,6 @@ function hipblasZgbmvStridedBatched_64_(handle,trans,m,n,kl,ku,alpha,AP,lda,stri interface hipblasSgemv function hipblasSgemv_(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) & bind(c, name="hipblasSgemv") - use iso_c_binding import implicit none integer(c_int) :: hipblasSgemv_ @@ -9857,13 +10895,18 @@ function hipblasSgemv_(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) & module procedure hipblasSgemv_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasSgemv_assumed_rank + module procedure & + hipblasSgemv_assumed_rank,& + hipblasSgemv_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSgemv_rank_0,& + hipblasSgemv_rank_0_devptr,& hipblasSgemv_rank_1,& - hipblasSgemv_full_rank + hipblasSgemv_rank_1_devptr,& + hipblasSgemv_full_rank,& + hipblasSgemv_full_rank_devptr #endif #endif end interface @@ -9871,7 +10914,6 @@ function hipblasSgemv_(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) & interface hipblasDgemv function hipblasDgemv_(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) & bind(c, name="hipblasDgemv") - use iso_c_binding import implicit none integer(c_int) :: hipblasDgemv_ @@ -9892,13 +10934,18 @@ function hipblasDgemv_(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) & module procedure hipblasDgemv_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDgemv_assumed_rank + module procedure & + hipblasDgemv_assumed_rank,& + hipblasDgemv_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDgemv_rank_0,& + hipblasDgemv_rank_0_devptr,& hipblasDgemv_rank_1,& - hipblasDgemv_full_rank + hipblasDgemv_rank_1_devptr,& + hipblasDgemv_full_rank,& + hipblasDgemv_full_rank_devptr #endif #endif end interface @@ -9906,7 +10953,6 @@ function hipblasDgemv_(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) & interface hipblasCgemv function hipblasCgemv_(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) & bind(c, name="hipblasCgemv") - use iso_c_binding import implicit none integer(c_int) :: hipblasCgemv_ @@ -9927,13 +10973,18 @@ function hipblasCgemv_(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) & module procedure hipblasCgemv_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCgemv_assumed_rank + module procedure & + hipblasCgemv_assumed_rank,& + hipblasCgemv_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCgemv_rank_0,& + hipblasCgemv_rank_0_devptr,& hipblasCgemv_rank_1,& - hipblasCgemv_full_rank + hipblasCgemv_rank_1_devptr,& + hipblasCgemv_full_rank,& + hipblasCgemv_full_rank_devptr #endif #endif end interface @@ -9941,7 +10992,6 @@ function hipblasCgemv_(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) & interface hipblasZgemv function hipblasZgemv_(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) & bind(c, name="hipblasZgemv") - use iso_c_binding import implicit none integer(c_int) :: hipblasZgemv_ @@ -9962,13 +11012,18 @@ function hipblasZgemv_(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) & module procedure hipblasZgemv_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZgemv_assumed_rank + module procedure & + hipblasZgemv_assumed_rank,& + hipblasZgemv_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZgemv_rank_0,& + hipblasZgemv_rank_0_devptr,& hipblasZgemv_rank_1,& - hipblasZgemv_full_rank + hipblasZgemv_rank_1_devptr,& + hipblasZgemv_full_rank,& + hipblasZgemv_full_rank_devptr #endif #endif end interface @@ -9976,7 +11031,6 @@ function hipblasZgemv_(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) & interface hipblasSgemv_64 function hipblasSgemv_64_(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) & bind(c, name="hipblasSgemv_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSgemv_64_ @@ -9997,13 +11051,18 @@ function hipblasSgemv_64_(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) & module procedure hipblasSgemv_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasSgemv_64_assumed_rank + module procedure & + hipblasSgemv_64_assumed_rank,& + hipblasSgemv_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSgemv_64_rank_0,& + hipblasSgemv_64_rank_0_devptr,& hipblasSgemv_64_rank_1,& - hipblasSgemv_64_full_rank + hipblasSgemv_64_rank_1_devptr,& + hipblasSgemv_64_full_rank,& + hipblasSgemv_64_full_rank_devptr #endif #endif end interface @@ -10011,7 +11070,6 @@ function hipblasSgemv_64_(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) & interface hipblasDgemv_64 function hipblasDgemv_64_(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) & bind(c, name="hipblasDgemv_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDgemv_64_ @@ -10032,13 +11090,18 @@ function hipblasDgemv_64_(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) & module procedure hipblasDgemv_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDgemv_64_assumed_rank + module procedure & + hipblasDgemv_64_assumed_rank,& + hipblasDgemv_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDgemv_64_rank_0,& + hipblasDgemv_64_rank_0_devptr,& hipblasDgemv_64_rank_1,& - hipblasDgemv_64_full_rank + hipblasDgemv_64_rank_1_devptr,& + hipblasDgemv_64_full_rank,& + hipblasDgemv_64_full_rank_devptr #endif #endif end interface @@ -10046,7 +11109,6 @@ function hipblasDgemv_64_(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) & interface hipblasCgemv_64 function hipblasCgemv_64_(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) & bind(c, name="hipblasCgemv_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCgemv_64_ @@ -10067,13 +11129,18 @@ function hipblasCgemv_64_(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) & module procedure hipblasCgemv_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCgemv_64_assumed_rank + module procedure & + hipblasCgemv_64_assumed_rank,& + hipblasCgemv_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCgemv_64_rank_0,& + hipblasCgemv_64_rank_0_devptr,& hipblasCgemv_64_rank_1,& - hipblasCgemv_64_full_rank + hipblasCgemv_64_rank_1_devptr,& + hipblasCgemv_64_full_rank,& + hipblasCgemv_64_full_rank_devptr #endif #endif end interface @@ -10081,7 +11148,6 @@ function hipblasCgemv_64_(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) & interface hipblasZgemv_64 function hipblasZgemv_64_(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) & bind(c, name="hipblasZgemv_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZgemv_64_ @@ -10102,13 +11168,18 @@ function hipblasZgemv_64_(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) & module procedure hipblasZgemv_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZgemv_64_assumed_rank + module procedure & + hipblasZgemv_64_assumed_rank,& + hipblasZgemv_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZgemv_64_rank_0,& + hipblasZgemv_64_rank_0_devptr,& hipblasZgemv_64_rank_1,& - hipblasZgemv_64_full_rank + hipblasZgemv_64_rank_1_devptr,& + hipblasZgemv_64_full_rank,& + hipblasZgemv_64_full_rank_devptr #endif #endif end interface @@ -10116,7 +11187,6 @@ function hipblasZgemv_64_(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) & interface hipblasSgemvBatched function hipblasSgemvBatched_(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy,batchCount) & bind(c, name="hipblasSgemvBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasSgemvBatched_ @@ -10141,7 +11211,6 @@ function hipblasSgemvBatched_(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy,b interface hipblasDgemvBatched function hipblasDgemvBatched_(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy,batchCount) & bind(c, name="hipblasDgemvBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDgemvBatched_ @@ -10166,7 +11235,6 @@ function hipblasDgemvBatched_(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy,b interface hipblasCgemvBatched function hipblasCgemvBatched_(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy,batchCount) & bind(c, name="hipblasCgemvBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCgemvBatched_ @@ -10191,7 +11259,6 @@ function hipblasCgemvBatched_(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy,b interface hipblasZgemvBatched function hipblasZgemvBatched_(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy,batchCount) & bind(c, name="hipblasZgemvBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZgemvBatched_ @@ -10216,7 +11283,6 @@ function hipblasZgemvBatched_(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy,b interface hipblasSgemvBatched_64 function hipblasSgemvBatched_64_(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy,batchCount) & bind(c, name="hipblasSgemvBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSgemvBatched_64_ @@ -10241,7 +11307,6 @@ function hipblasSgemvBatched_64_(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,inc interface hipblasDgemvBatched_64 function hipblasDgemvBatched_64_(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy,batchCount) & bind(c, name="hipblasDgemvBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDgemvBatched_64_ @@ -10266,7 +11331,6 @@ function hipblasDgemvBatched_64_(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,inc interface hipblasCgemvBatched_64 function hipblasCgemvBatched_64_(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy,batchCount) & bind(c, name="hipblasCgemvBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCgemvBatched_64_ @@ -10291,7 +11355,6 @@ function hipblasCgemvBatched_64_(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,inc interface hipblasZgemvBatched_64 function hipblasZgemvBatched_64_(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy,batchCount) & bind(c, name="hipblasZgemvBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZgemvBatched_64_ @@ -10317,7 +11380,6 @@ function hipblasZgemvBatched_64_(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,inc function hipblasSgemvStridedBatched_(handle,transA,m,n,alpha,AP,lda,strideA,x,incx,stridex, & beta,y,incy,stridey,batchCount) & bind(c, name="hipblasSgemvStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasSgemvStridedBatched_ @@ -10342,13 +11404,20 @@ function hipblasSgemvStridedBatched_(handle,transA,m,n,alpha,AP,lda,strideA,x,in module procedure hipblasSgemvStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasSgemvStridedBatched_assumed_rank + module procedure & + hipblasSgemvStridedBatched_assumed_rank,& + hipblasSgemvStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSgemvStridedBatched_rank_0,& + hipblasSgemvStridedBatched_rank_0_devptr,& hipblasSgemvStridedBatched_rank_1,& - hipblasSgemvStridedBatched_full_rank + hipblasSgemvStridedBatched_rank_1_devptr,& + hipblasSgemvStridedBatched_full_rank,& + hipblasSgemvStridedBatched_full_rank_devptr,& + hipblasSgemvStridedBatched_strided_rank,& + hipblasSgemvStridedBatched_strided_rank_devptr #endif #endif end interface @@ -10357,7 +11426,6 @@ function hipblasSgemvStridedBatched_(handle,transA,m,n,alpha,AP,lda,strideA,x,in function hipblasDgemvStridedBatched_(handle,transA,m,n,alpha,AP,lda,strideA,x,incx,stridex, & beta,y,incy,stridey,batchCount) & bind(c, name="hipblasDgemvStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDgemvStridedBatched_ @@ -10382,13 +11450,20 @@ function hipblasDgemvStridedBatched_(handle,transA,m,n,alpha,AP,lda,strideA,x,in module procedure hipblasDgemvStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDgemvStridedBatched_assumed_rank + module procedure & + hipblasDgemvStridedBatched_assumed_rank,& + hipblasDgemvStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDgemvStridedBatched_rank_0,& + hipblasDgemvStridedBatched_rank_0_devptr,& hipblasDgemvStridedBatched_rank_1,& - hipblasDgemvStridedBatched_full_rank + hipblasDgemvStridedBatched_rank_1_devptr,& + hipblasDgemvStridedBatched_full_rank,& + hipblasDgemvStridedBatched_full_rank_devptr,& + hipblasDgemvStridedBatched_strided_rank,& + hipblasDgemvStridedBatched_strided_rank_devptr #endif #endif end interface @@ -10397,7 +11472,6 @@ function hipblasDgemvStridedBatched_(handle,transA,m,n,alpha,AP,lda,strideA,x,in function hipblasCgemvStridedBatched_(handle,transA,m,n,alpha,AP,lda,strideA,x,incx,stridex, & beta,y,incy,stridey,batchCount) & bind(c, name="hipblasCgemvStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCgemvStridedBatched_ @@ -10422,13 +11496,20 @@ function hipblasCgemvStridedBatched_(handle,transA,m,n,alpha,AP,lda,strideA,x,in module procedure hipblasCgemvStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCgemvStridedBatched_assumed_rank + module procedure & + hipblasCgemvStridedBatched_assumed_rank,& + hipblasCgemvStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCgemvStridedBatched_rank_0,& + hipblasCgemvStridedBatched_rank_0_devptr,& hipblasCgemvStridedBatched_rank_1,& - hipblasCgemvStridedBatched_full_rank + hipblasCgemvStridedBatched_rank_1_devptr,& + hipblasCgemvStridedBatched_full_rank,& + hipblasCgemvStridedBatched_full_rank_devptr,& + hipblasCgemvStridedBatched_strided_rank,& + hipblasCgemvStridedBatched_strided_rank_devptr #endif #endif end interface @@ -10437,7 +11518,6 @@ function hipblasCgemvStridedBatched_(handle,transA,m,n,alpha,AP,lda,strideA,x,in function hipblasZgemvStridedBatched_(handle,transA,m,n,alpha,AP,lda,strideA,x,incx,stridex, & beta,y,incy,stridey,batchCount) & bind(c, name="hipblasZgemvStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZgemvStridedBatched_ @@ -10462,13 +11542,20 @@ function hipblasZgemvStridedBatched_(handle,transA,m,n,alpha,AP,lda,strideA,x,in module procedure hipblasZgemvStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZgemvStridedBatched_assumed_rank + module procedure & + hipblasZgemvStridedBatched_assumed_rank,& + hipblasZgemvStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZgemvStridedBatched_rank_0,& + hipblasZgemvStridedBatched_rank_0_devptr,& hipblasZgemvStridedBatched_rank_1,& - hipblasZgemvStridedBatched_full_rank + hipblasZgemvStridedBatched_rank_1_devptr,& + hipblasZgemvStridedBatched_full_rank,& + hipblasZgemvStridedBatched_full_rank_devptr,& + hipblasZgemvStridedBatched_strided_rank,& + hipblasZgemvStridedBatched_strided_rank_devptr #endif #endif end interface @@ -10477,7 +11564,6 @@ function hipblasZgemvStridedBatched_(handle,transA,m,n,alpha,AP,lda,strideA,x,in function hipblasSgemvStridedBatched_64_(handle,transA,m,n,alpha,AP,lda,strideA,x,incx,stridex, & beta,y,incy,stridey,batchCount) & bind(c, name="hipblasSgemvStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSgemvStridedBatched_64_ @@ -10502,13 +11588,20 @@ function hipblasSgemvStridedBatched_64_(handle,transA,m,n,alpha,AP,lda,strideA,x module procedure hipblasSgemvStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasSgemvStridedBatched_64_assumed_rank + module procedure & + hipblasSgemvStridedBatched_64_assumed_rank,& + hipblasSgemvStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSgemvStridedBatched_64_rank_0,& + hipblasSgemvStridedBatched_64_rank_0_devptr,& hipblasSgemvStridedBatched_64_rank_1,& - hipblasSgemvStridedBatched_64_full_rank + hipblasSgemvStridedBatched_64_rank_1_devptr,& + hipblasSgemvStridedBatched_64_full_rank,& + hipblasSgemvStridedBatched_64_full_rank_devptr,& + hipblasSgemvStridedBatched_64_strided_rank,& + hipblasSgemvStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -10517,7 +11610,6 @@ function hipblasSgemvStridedBatched_64_(handle,transA,m,n,alpha,AP,lda,strideA,x function hipblasDgemvStridedBatched_64_(handle,transA,m,n,alpha,AP,lda,strideA,x,incx,stridex, & beta,y,incy,stridey,batchCount) & bind(c, name="hipblasDgemvStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDgemvStridedBatched_64_ @@ -10542,13 +11634,20 @@ function hipblasDgemvStridedBatched_64_(handle,transA,m,n,alpha,AP,lda,strideA,x module procedure hipblasDgemvStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDgemvStridedBatched_64_assumed_rank + module procedure & + hipblasDgemvStridedBatched_64_assumed_rank,& + hipblasDgemvStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDgemvStridedBatched_64_rank_0,& + hipblasDgemvStridedBatched_64_rank_0_devptr,& hipblasDgemvStridedBatched_64_rank_1,& - hipblasDgemvStridedBatched_64_full_rank + hipblasDgemvStridedBatched_64_rank_1_devptr,& + hipblasDgemvStridedBatched_64_full_rank,& + hipblasDgemvStridedBatched_64_full_rank_devptr,& + hipblasDgemvStridedBatched_64_strided_rank,& + hipblasDgemvStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -10557,7 +11656,6 @@ function hipblasDgemvStridedBatched_64_(handle,transA,m,n,alpha,AP,lda,strideA,x function hipblasCgemvStridedBatched_64_(handle,transA,m,n,alpha,AP,lda,strideA,x,incx,stridex, & beta,y,incy,stridey,batchCount) & bind(c, name="hipblasCgemvStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCgemvStridedBatched_64_ @@ -10582,13 +11680,20 @@ function hipblasCgemvStridedBatched_64_(handle,transA,m,n,alpha,AP,lda,strideA,x module procedure hipblasCgemvStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCgemvStridedBatched_64_assumed_rank + module procedure & + hipblasCgemvStridedBatched_64_assumed_rank,& + hipblasCgemvStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCgemvStridedBatched_64_rank_0,& + hipblasCgemvStridedBatched_64_rank_0_devptr,& hipblasCgemvStridedBatched_64_rank_1,& - hipblasCgemvStridedBatched_64_full_rank + hipblasCgemvStridedBatched_64_rank_1_devptr,& + hipblasCgemvStridedBatched_64_full_rank,& + hipblasCgemvStridedBatched_64_full_rank_devptr,& + hipblasCgemvStridedBatched_64_strided_rank,& + hipblasCgemvStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -10597,7 +11702,6 @@ function hipblasCgemvStridedBatched_64_(handle,transA,m,n,alpha,AP,lda,strideA,x function hipblasZgemvStridedBatched_64_(handle,transA,m,n,alpha,AP,lda,strideA,x,incx,stridex, & beta,y,incy,stridey,batchCount) & bind(c, name="hipblasZgemvStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZgemvStridedBatched_64_ @@ -10622,20 +11726,26 @@ function hipblasZgemvStridedBatched_64_(handle,transA,m,n,alpha,AP,lda,strideA,x module procedure hipblasZgemvStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZgemvStridedBatched_64_assumed_rank + module procedure & + hipblasZgemvStridedBatched_64_assumed_rank,& + hipblasZgemvStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZgemvStridedBatched_64_rank_0,& + hipblasZgemvStridedBatched_64_rank_0_devptr,& hipblasZgemvStridedBatched_64_rank_1,& - hipblasZgemvStridedBatched_64_full_rank + hipblasZgemvStridedBatched_64_rank_1_devptr,& + hipblasZgemvStridedBatched_64_full_rank,& + hipblasZgemvStridedBatched_64_full_rank_devptr,& + hipblasZgemvStridedBatched_64_strided_rank,& + hipblasZgemvStridedBatched_64_strided_rank_devptr #endif #endif end interface interface hipblasSger function hipblasSger_(handle,m,n,alpha,x,incx,y,incy,AP,lda) bind(c, name="hipblasSger") - use iso_c_binding import implicit none integer(c_int) :: hipblasSger_ @@ -10654,20 +11764,24 @@ function hipblasSger_(handle,m,n,alpha,x,incx,y,incy,AP,lda) bind(c, name="hipbl module procedure hipblasSger_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasSger_assumed_rank + module procedure & + hipblasSger_assumed_rank,& + hipblasSger_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSger_rank_0,& + hipblasSger_rank_0_devptr,& hipblasSger_rank_1,& - hipblasSger_full_rank + hipblasSger_rank_1_devptr,& + hipblasSger_full_rank,& + hipblasSger_full_rank_devptr #endif #endif end interface interface hipblasDger function hipblasDger_(handle,m,n,alpha,x,incx,y,incy,AP,lda) bind(c, name="hipblasDger") - use iso_c_binding import implicit none integer(c_int) :: hipblasDger_ @@ -10686,20 +11800,24 @@ function hipblasDger_(handle,m,n,alpha,x,incx,y,incy,AP,lda) bind(c, name="hipbl module procedure hipblasDger_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDger_assumed_rank + module procedure & + hipblasDger_assumed_rank,& + hipblasDger_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDger_rank_0,& + hipblasDger_rank_0_devptr,& hipblasDger_rank_1,& - hipblasDger_full_rank + hipblasDger_rank_1_devptr,& + hipblasDger_full_rank,& + hipblasDger_full_rank_devptr #endif #endif end interface interface hipblasCgeru function hipblasCgeru_(handle,m,n,alpha,x,incx,y,incy,AP,lda) bind(c, name="hipblasCgeru") - use iso_c_binding import implicit none integer(c_int) :: hipblasCgeru_ @@ -10718,20 +11836,24 @@ function hipblasCgeru_(handle,m,n,alpha,x,incx,y,incy,AP,lda) bind(c, name="hipb module procedure hipblasCgeru_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCgeru_assumed_rank + module procedure & + hipblasCgeru_assumed_rank,& + hipblasCgeru_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCgeru_rank_0,& + hipblasCgeru_rank_0_devptr,& hipblasCgeru_rank_1,& - hipblasCgeru_full_rank + hipblasCgeru_rank_1_devptr,& + hipblasCgeru_full_rank,& + hipblasCgeru_full_rank_devptr #endif #endif end interface interface hipblasCgerc function hipblasCgerc_(handle,m,n,alpha,x,incx,y,incy,AP,lda) bind(c, name="hipblasCgerc") - use iso_c_binding import implicit none integer(c_int) :: hipblasCgerc_ @@ -10750,20 +11872,24 @@ function hipblasCgerc_(handle,m,n,alpha,x,incx,y,incy,AP,lda) bind(c, name="hipb module procedure hipblasCgerc_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCgerc_assumed_rank + module procedure & + hipblasCgerc_assumed_rank,& + hipblasCgerc_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCgerc_rank_0,& + hipblasCgerc_rank_0_devptr,& hipblasCgerc_rank_1,& - hipblasCgerc_full_rank + hipblasCgerc_rank_1_devptr,& + hipblasCgerc_full_rank,& + hipblasCgerc_full_rank_devptr #endif #endif end interface interface hipblasZgeru function hipblasZgeru_(handle,m,n,alpha,x,incx,y,incy,AP,lda) bind(c, name="hipblasZgeru") - use iso_c_binding import implicit none integer(c_int) :: hipblasZgeru_ @@ -10782,20 +11908,24 @@ function hipblasZgeru_(handle,m,n,alpha,x,incx,y,incy,AP,lda) bind(c, name="hipb module procedure hipblasZgeru_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZgeru_assumed_rank + module procedure & + hipblasZgeru_assumed_rank,& + hipblasZgeru_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZgeru_rank_0,& + hipblasZgeru_rank_0_devptr,& hipblasZgeru_rank_1,& - hipblasZgeru_full_rank + hipblasZgeru_rank_1_devptr,& + hipblasZgeru_full_rank,& + hipblasZgeru_full_rank_devptr #endif #endif end interface interface hipblasZgerc function hipblasZgerc_(handle,m,n,alpha,x,incx,y,incy,AP,lda) bind(c, name="hipblasZgerc") - use iso_c_binding import implicit none integer(c_int) :: hipblasZgerc_ @@ -10814,20 +11944,24 @@ function hipblasZgerc_(handle,m,n,alpha,x,incx,y,incy,AP,lda) bind(c, name="hipb module procedure hipblasZgerc_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZgerc_assumed_rank + module procedure & + hipblasZgerc_assumed_rank,& + hipblasZgerc_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZgerc_rank_0,& + hipblasZgerc_rank_0_devptr,& hipblasZgerc_rank_1,& - hipblasZgerc_full_rank + hipblasZgerc_rank_1_devptr,& + hipblasZgerc_full_rank,& + hipblasZgerc_full_rank_devptr #endif #endif end interface interface hipblasSger_64 function hipblasSger_64_(handle,m,n,alpha,x,incx,y,incy,AP,lda) bind(c, name="hipblasSger_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSger_64_ @@ -10846,20 +11980,24 @@ function hipblasSger_64_(handle,m,n,alpha,x,incx,y,incy,AP,lda) bind(c, name="hi module procedure hipblasSger_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasSger_64_assumed_rank + module procedure & + hipblasSger_64_assumed_rank,& + hipblasSger_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSger_64_rank_0,& + hipblasSger_64_rank_0_devptr,& hipblasSger_64_rank_1,& - hipblasSger_64_full_rank + hipblasSger_64_rank_1_devptr,& + hipblasSger_64_full_rank,& + hipblasSger_64_full_rank_devptr #endif #endif end interface interface hipblasDger_64 function hipblasDger_64_(handle,m,n,alpha,x,incx,y,incy,AP,lda) bind(c, name="hipblasDger_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDger_64_ @@ -10878,20 +12016,24 @@ function hipblasDger_64_(handle,m,n,alpha,x,incx,y,incy,AP,lda) bind(c, name="hi module procedure hipblasDger_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDger_64_assumed_rank + module procedure & + hipblasDger_64_assumed_rank,& + hipblasDger_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDger_64_rank_0,& + hipblasDger_64_rank_0_devptr,& hipblasDger_64_rank_1,& - hipblasDger_64_full_rank + hipblasDger_64_rank_1_devptr,& + hipblasDger_64_full_rank,& + hipblasDger_64_full_rank_devptr #endif #endif end interface interface hipblasCgeru_64 function hipblasCgeru_64_(handle,m,n,alpha,x,incx,y,incy,AP,lda) bind(c, name="hipblasCgeru_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCgeru_64_ @@ -10910,20 +12052,24 @@ function hipblasCgeru_64_(handle,m,n,alpha,x,incx,y,incy,AP,lda) bind(c, name="h module procedure hipblasCgeru_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCgeru_64_assumed_rank + module procedure & + hipblasCgeru_64_assumed_rank,& + hipblasCgeru_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCgeru_64_rank_0,& + hipblasCgeru_64_rank_0_devptr,& hipblasCgeru_64_rank_1,& - hipblasCgeru_64_full_rank + hipblasCgeru_64_rank_1_devptr,& + hipblasCgeru_64_full_rank,& + hipblasCgeru_64_full_rank_devptr #endif #endif end interface interface hipblasCgerc_64 function hipblasCgerc_64_(handle,m,n,alpha,x,incx,y,incy,AP,lda) bind(c, name="hipblasCgerc_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCgerc_64_ @@ -10942,20 +12088,24 @@ function hipblasCgerc_64_(handle,m,n,alpha,x,incx,y,incy,AP,lda) bind(c, name="h module procedure hipblasCgerc_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCgerc_64_assumed_rank + module procedure & + hipblasCgerc_64_assumed_rank,& + hipblasCgerc_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCgerc_64_rank_0,& + hipblasCgerc_64_rank_0_devptr,& hipblasCgerc_64_rank_1,& - hipblasCgerc_64_full_rank + hipblasCgerc_64_rank_1_devptr,& + hipblasCgerc_64_full_rank,& + hipblasCgerc_64_full_rank_devptr #endif #endif end interface interface hipblasZgeru_64 function hipblasZgeru_64_(handle,m,n,alpha,x,incx,y,incy,AP,lda) bind(c, name="hipblasZgeru_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZgeru_64_ @@ -10974,20 +12124,24 @@ function hipblasZgeru_64_(handle,m,n,alpha,x,incx,y,incy,AP,lda) bind(c, name="h module procedure hipblasZgeru_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZgeru_64_assumed_rank + module procedure & + hipblasZgeru_64_assumed_rank,& + hipblasZgeru_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZgeru_64_rank_0,& + hipblasZgeru_64_rank_0_devptr,& hipblasZgeru_64_rank_1,& - hipblasZgeru_64_full_rank + hipblasZgeru_64_rank_1_devptr,& + hipblasZgeru_64_full_rank,& + hipblasZgeru_64_full_rank_devptr #endif #endif end interface interface hipblasZgerc_64 function hipblasZgerc_64_(handle,m,n,alpha,x,incx,y,incy,AP,lda) bind(c, name="hipblasZgerc_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZgerc_64_ @@ -11006,13 +12160,18 @@ function hipblasZgerc_64_(handle,m,n,alpha,x,incx,y,incy,AP,lda) bind(c, name="h module procedure hipblasZgerc_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZgerc_64_assumed_rank + module procedure & + hipblasZgerc_64_assumed_rank,& + hipblasZgerc_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZgerc_64_rank_0,& + hipblasZgerc_64_rank_0_devptr,& hipblasZgerc_64_rank_1,& - hipblasZgerc_64_full_rank + hipblasZgerc_64_rank_1_devptr,& + hipblasZgerc_64_full_rank,& + hipblasZgerc_64_full_rank_devptr #endif #endif end interface @@ -11020,7 +12179,6 @@ function hipblasZgerc_64_(handle,m,n,alpha,x,incx,y,incy,AP,lda) bind(c, name="h interface hipblasSgerBatched function hipblasSgerBatched_(handle,m,n,alpha,x,incx,y,incy,AP,lda,batchCount) & bind(c, name="hipblasSgerBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasSgerBatched_ @@ -11043,7 +12201,6 @@ function hipblasSgerBatched_(handle,m,n,alpha,x,incx,y,incy,AP,lda,batchCount) & interface hipblasDgerBatched function hipblasDgerBatched_(handle,m,n,alpha,x,incx,y,incy,AP,lda,batchCount) & bind(c, name="hipblasDgerBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDgerBatched_ @@ -11066,7 +12223,6 @@ function hipblasDgerBatched_(handle,m,n,alpha,x,incx,y,incy,AP,lda,batchCount) & interface hipblasCgeruBatched function hipblasCgeruBatched_(handle,m,n,alpha,x,incx,y,incy,AP,lda,batchCount) & bind(c, name="hipblasCgeruBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCgeruBatched_ @@ -11089,7 +12245,6 @@ function hipblasCgeruBatched_(handle,m,n,alpha,x,incx,y,incy,AP,lda,batchCount) interface hipblasCgercBatched function hipblasCgercBatched_(handle,m,n,alpha,x,incx,y,incy,AP,lda,batchCount) & bind(c, name="hipblasCgercBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCgercBatched_ @@ -11112,7 +12267,6 @@ function hipblasCgercBatched_(handle,m,n,alpha,x,incx,y,incy,AP,lda,batchCount) interface hipblasZgeruBatched function hipblasZgeruBatched_(handle,m,n,alpha,x,incx,y,incy,AP,lda,batchCount) & bind(c, name="hipblasZgeruBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZgeruBatched_ @@ -11135,7 +12289,6 @@ function hipblasZgeruBatched_(handle,m,n,alpha,x,incx,y,incy,AP,lda,batchCount) interface hipblasZgercBatched function hipblasZgercBatched_(handle,m,n,alpha,x,incx,y,incy,AP,lda,batchCount) & bind(c, name="hipblasZgercBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZgercBatched_ @@ -11158,7 +12311,6 @@ function hipblasZgercBatched_(handle,m,n,alpha,x,incx,y,incy,AP,lda,batchCount) interface hipblasSgerBatched_64 function hipblasSgerBatched_64_(handle,m,n,alpha,x,incx,y,incy,AP,lda,batchCount) & bind(c, name="hipblasSgerBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSgerBatched_64_ @@ -11181,7 +12333,6 @@ function hipblasSgerBatched_64_(handle,m,n,alpha,x,incx,y,incy,AP,lda,batchCount interface hipblasDgerBatched_64 function hipblasDgerBatched_64_(handle,m,n,alpha,x,incx,y,incy,AP,lda,batchCount) & bind(c, name="hipblasDgerBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDgerBatched_64_ @@ -11204,7 +12355,6 @@ function hipblasDgerBatched_64_(handle,m,n,alpha,x,incx,y,incy,AP,lda,batchCount interface hipblasCgeruBatched_64 function hipblasCgeruBatched_64_(handle,m,n,alpha,x,incx,y,incy,AP,lda,batchCount) & bind(c, name="hipblasCgeruBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCgeruBatched_64_ @@ -11227,7 +12377,6 @@ function hipblasCgeruBatched_64_(handle,m,n,alpha,x,incx,y,incy,AP,lda,batchCoun interface hipblasCgercBatched_64 function hipblasCgercBatched_64_(handle,m,n,alpha,x,incx,y,incy,AP,lda,batchCount) & bind(c, name="hipblasCgercBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCgercBatched_64_ @@ -11250,7 +12399,6 @@ function hipblasCgercBatched_64_(handle,m,n,alpha,x,incx,y,incy,AP,lda,batchCoun interface hipblasZgeruBatched_64 function hipblasZgeruBatched_64_(handle,m,n,alpha,x,incx,y,incy,AP,lda,batchCount) & bind(c, name="hipblasZgeruBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZgeruBatched_64_ @@ -11273,7 +12421,6 @@ function hipblasZgeruBatched_64_(handle,m,n,alpha,x,incx,y,incy,AP,lda,batchCoun interface hipblasZgercBatched_64 function hipblasZgercBatched_64_(handle,m,n,alpha,x,incx,y,incy,AP,lda,batchCount) & bind(c, name="hipblasZgercBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZgercBatched_64_ @@ -11297,7 +12444,6 @@ function hipblasZgercBatched_64_(handle,m,n,alpha,x,incx,y,incy,AP,lda,batchCoun function hipblasSgerStridedBatched_(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP,lda, & strideA,batchCount) & bind(c, name="hipblasSgerStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasSgerStridedBatched_ @@ -11320,13 +12466,20 @@ function hipblasSgerStridedBatched_(handle,m,n,alpha,x,incx,stridex,y,incy,strid module procedure hipblasSgerStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasSgerStridedBatched_assumed_rank + module procedure & + hipblasSgerStridedBatched_assumed_rank,& + hipblasSgerStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSgerStridedBatched_rank_0,& + hipblasSgerStridedBatched_rank_0_devptr,& hipblasSgerStridedBatched_rank_1,& - hipblasSgerStridedBatched_full_rank + hipblasSgerStridedBatched_rank_1_devptr,& + hipblasSgerStridedBatched_full_rank,& + hipblasSgerStridedBatched_full_rank_devptr,& + hipblasSgerStridedBatched_strided_rank,& + hipblasSgerStridedBatched_strided_rank_devptr #endif #endif end interface @@ -11335,7 +12488,6 @@ function hipblasSgerStridedBatched_(handle,m,n,alpha,x,incx,stridex,y,incy,strid function hipblasDgerStridedBatched_(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP,lda, & strideA,batchCount) & bind(c, name="hipblasDgerStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDgerStridedBatched_ @@ -11358,13 +12510,20 @@ function hipblasDgerStridedBatched_(handle,m,n,alpha,x,incx,stridex,y,incy,strid module procedure hipblasDgerStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDgerStridedBatched_assumed_rank + module procedure & + hipblasDgerStridedBatched_assumed_rank,& + hipblasDgerStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDgerStridedBatched_rank_0,& + hipblasDgerStridedBatched_rank_0_devptr,& hipblasDgerStridedBatched_rank_1,& - hipblasDgerStridedBatched_full_rank + hipblasDgerStridedBatched_rank_1_devptr,& + hipblasDgerStridedBatched_full_rank,& + hipblasDgerStridedBatched_full_rank_devptr,& + hipblasDgerStridedBatched_strided_rank,& + hipblasDgerStridedBatched_strided_rank_devptr #endif #endif end interface @@ -11373,7 +12532,6 @@ function hipblasDgerStridedBatched_(handle,m,n,alpha,x,incx,stridex,y,incy,strid function hipblasCgeruStridedBatched_(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP,lda, & strideA,batchCount) & bind(c, name="hipblasCgeruStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCgeruStridedBatched_ @@ -11396,13 +12554,20 @@ function hipblasCgeruStridedBatched_(handle,m,n,alpha,x,incx,stridex,y,incy,stri module procedure hipblasCgeruStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCgeruStridedBatched_assumed_rank + module procedure & + hipblasCgeruStridedBatched_assumed_rank,& + hipblasCgeruStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCgeruStridedBatched_rank_0,& + hipblasCgeruStridedBatched_rank_0_devptr,& hipblasCgeruStridedBatched_rank_1,& - hipblasCgeruStridedBatched_full_rank + hipblasCgeruStridedBatched_rank_1_devptr,& + hipblasCgeruStridedBatched_full_rank,& + hipblasCgeruStridedBatched_full_rank_devptr,& + hipblasCgeruStridedBatched_strided_rank,& + hipblasCgeruStridedBatched_strided_rank_devptr #endif #endif end interface @@ -11411,7 +12576,6 @@ function hipblasCgeruStridedBatched_(handle,m,n,alpha,x,incx,stridex,y,incy,stri function hipblasCgercStridedBatched_(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP,lda, & strideA,batchCount) & bind(c, name="hipblasCgercStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCgercStridedBatched_ @@ -11434,13 +12598,20 @@ function hipblasCgercStridedBatched_(handle,m,n,alpha,x,incx,stridex,y,incy,stri module procedure hipblasCgercStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCgercStridedBatched_assumed_rank + module procedure & + hipblasCgercStridedBatched_assumed_rank,& + hipblasCgercStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCgercStridedBatched_rank_0,& + hipblasCgercStridedBatched_rank_0_devptr,& hipblasCgercStridedBatched_rank_1,& - hipblasCgercStridedBatched_full_rank + hipblasCgercStridedBatched_rank_1_devptr,& + hipblasCgercStridedBatched_full_rank,& + hipblasCgercStridedBatched_full_rank_devptr,& + hipblasCgercStridedBatched_strided_rank,& + hipblasCgercStridedBatched_strided_rank_devptr #endif #endif end interface @@ -11449,7 +12620,6 @@ function hipblasCgercStridedBatched_(handle,m,n,alpha,x,incx,stridex,y,incy,stri function hipblasZgeruStridedBatched_(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP,lda, & strideA,batchCount) & bind(c, name="hipblasZgeruStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZgeruStridedBatched_ @@ -11472,13 +12642,20 @@ function hipblasZgeruStridedBatched_(handle,m,n,alpha,x,incx,stridex,y,incy,stri module procedure hipblasZgeruStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZgeruStridedBatched_assumed_rank + module procedure & + hipblasZgeruStridedBatched_assumed_rank,& + hipblasZgeruStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZgeruStridedBatched_rank_0,& + hipblasZgeruStridedBatched_rank_0_devptr,& hipblasZgeruStridedBatched_rank_1,& - hipblasZgeruStridedBatched_full_rank + hipblasZgeruStridedBatched_rank_1_devptr,& + hipblasZgeruStridedBatched_full_rank,& + hipblasZgeruStridedBatched_full_rank_devptr,& + hipblasZgeruStridedBatched_strided_rank,& + hipblasZgeruStridedBatched_strided_rank_devptr #endif #endif end interface @@ -11487,7 +12664,6 @@ function hipblasZgeruStridedBatched_(handle,m,n,alpha,x,incx,stridex,y,incy,stri function hipblasZgercStridedBatched_(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP,lda, & strideA,batchCount) & bind(c, name="hipblasZgercStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZgercStridedBatched_ @@ -11510,13 +12686,20 @@ function hipblasZgercStridedBatched_(handle,m,n,alpha,x,incx,stridex,y,incy,stri module procedure hipblasZgercStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZgercStridedBatched_assumed_rank + module procedure & + hipblasZgercStridedBatched_assumed_rank,& + hipblasZgercStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZgercStridedBatched_rank_0,& + hipblasZgercStridedBatched_rank_0_devptr,& hipblasZgercStridedBatched_rank_1,& - hipblasZgercStridedBatched_full_rank + hipblasZgercStridedBatched_rank_1_devptr,& + hipblasZgercStridedBatched_full_rank,& + hipblasZgercStridedBatched_full_rank_devptr,& + hipblasZgercStridedBatched_strided_rank,& + hipblasZgercStridedBatched_strided_rank_devptr #endif #endif end interface @@ -11525,7 +12708,6 @@ function hipblasZgercStridedBatched_(handle,m,n,alpha,x,incx,stridex,y,incy,stri function hipblasSgerStridedBatched_64_(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP,lda, & strideA,batchCount) & bind(c, name="hipblasSgerStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSgerStridedBatched_64_ @@ -11548,13 +12730,20 @@ function hipblasSgerStridedBatched_64_(handle,m,n,alpha,x,incx,stridex,y,incy,st module procedure hipblasSgerStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasSgerStridedBatched_64_assumed_rank + module procedure & + hipblasSgerStridedBatched_64_assumed_rank,& + hipblasSgerStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSgerStridedBatched_64_rank_0,& + hipblasSgerStridedBatched_64_rank_0_devptr,& hipblasSgerStridedBatched_64_rank_1,& - hipblasSgerStridedBatched_64_full_rank + hipblasSgerStridedBatched_64_rank_1_devptr,& + hipblasSgerStridedBatched_64_full_rank,& + hipblasSgerStridedBatched_64_full_rank_devptr,& + hipblasSgerStridedBatched_64_strided_rank,& + hipblasSgerStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -11563,7 +12752,6 @@ function hipblasSgerStridedBatched_64_(handle,m,n,alpha,x,incx,stridex,y,incy,st function hipblasDgerStridedBatched_64_(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP,lda, & strideA,batchCount) & bind(c, name="hipblasDgerStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDgerStridedBatched_64_ @@ -11586,13 +12774,20 @@ function hipblasDgerStridedBatched_64_(handle,m,n,alpha,x,incx,stridex,y,incy,st module procedure hipblasDgerStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDgerStridedBatched_64_assumed_rank + module procedure & + hipblasDgerStridedBatched_64_assumed_rank,& + hipblasDgerStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDgerStridedBatched_64_rank_0,& + hipblasDgerStridedBatched_64_rank_0_devptr,& hipblasDgerStridedBatched_64_rank_1,& - hipblasDgerStridedBatched_64_full_rank + hipblasDgerStridedBatched_64_rank_1_devptr,& + hipblasDgerStridedBatched_64_full_rank,& + hipblasDgerStridedBatched_64_full_rank_devptr,& + hipblasDgerStridedBatched_64_strided_rank,& + hipblasDgerStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -11601,7 +12796,6 @@ function hipblasDgerStridedBatched_64_(handle,m,n,alpha,x,incx,stridex,y,incy,st function hipblasCgeruStridedBatched_64_(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP,lda, & strideA,batchCount) & bind(c, name="hipblasCgeruStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCgeruStridedBatched_64_ @@ -11624,13 +12818,20 @@ function hipblasCgeruStridedBatched_64_(handle,m,n,alpha,x,incx,stridex,y,incy,s module procedure hipblasCgeruStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCgeruStridedBatched_64_assumed_rank + module procedure & + hipblasCgeruStridedBatched_64_assumed_rank,& + hipblasCgeruStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCgeruStridedBatched_64_rank_0,& + hipblasCgeruStridedBatched_64_rank_0_devptr,& hipblasCgeruStridedBatched_64_rank_1,& - hipblasCgeruStridedBatched_64_full_rank + hipblasCgeruStridedBatched_64_rank_1_devptr,& + hipblasCgeruStridedBatched_64_full_rank,& + hipblasCgeruStridedBatched_64_full_rank_devptr,& + hipblasCgeruStridedBatched_64_strided_rank,& + hipblasCgeruStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -11639,7 +12840,6 @@ function hipblasCgeruStridedBatched_64_(handle,m,n,alpha,x,incx,stridex,y,incy,s function hipblasCgercStridedBatched_64_(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP,lda, & strideA,batchCount) & bind(c, name="hipblasCgercStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCgercStridedBatched_64_ @@ -11662,13 +12862,20 @@ function hipblasCgercStridedBatched_64_(handle,m,n,alpha,x,incx,stridex,y,incy,s module procedure hipblasCgercStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCgercStridedBatched_64_assumed_rank + module procedure & + hipblasCgercStridedBatched_64_assumed_rank,& + hipblasCgercStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCgercStridedBatched_64_rank_0,& + hipblasCgercStridedBatched_64_rank_0_devptr,& hipblasCgercStridedBatched_64_rank_1,& - hipblasCgercStridedBatched_64_full_rank + hipblasCgercStridedBatched_64_rank_1_devptr,& + hipblasCgercStridedBatched_64_full_rank,& + hipblasCgercStridedBatched_64_full_rank_devptr,& + hipblasCgercStridedBatched_64_strided_rank,& + hipblasCgercStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -11677,7 +12884,6 @@ function hipblasCgercStridedBatched_64_(handle,m,n,alpha,x,incx,stridex,y,incy,s function hipblasZgeruStridedBatched_64_(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP,lda, & strideA,batchCount) & bind(c, name="hipblasZgeruStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZgeruStridedBatched_64_ @@ -11700,13 +12906,20 @@ function hipblasZgeruStridedBatched_64_(handle,m,n,alpha,x,incx,stridex,y,incy,s module procedure hipblasZgeruStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZgeruStridedBatched_64_assumed_rank + module procedure & + hipblasZgeruStridedBatched_64_assumed_rank,& + hipblasZgeruStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZgeruStridedBatched_64_rank_0,& + hipblasZgeruStridedBatched_64_rank_0_devptr,& hipblasZgeruStridedBatched_64_rank_1,& - hipblasZgeruStridedBatched_64_full_rank + hipblasZgeruStridedBatched_64_rank_1_devptr,& + hipblasZgeruStridedBatched_64_full_rank,& + hipblasZgeruStridedBatched_64_full_rank_devptr,& + hipblasZgeruStridedBatched_64_strided_rank,& + hipblasZgeruStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -11715,7 +12928,6 @@ function hipblasZgeruStridedBatched_64_(handle,m,n,alpha,x,incx,stridex,y,incy,s function hipblasZgercStridedBatched_64_(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP,lda, & strideA,batchCount) & bind(c, name="hipblasZgercStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZgercStridedBatched_64_ @@ -11738,13 +12950,20 @@ function hipblasZgercStridedBatched_64_(handle,m,n,alpha,x,incx,stridex,y,incy,s module procedure hipblasZgercStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZgercStridedBatched_64_assumed_rank + module procedure & + hipblasZgercStridedBatched_64_assumed_rank,& + hipblasZgercStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZgercStridedBatched_64_rank_0,& + hipblasZgercStridedBatched_64_rank_0_devptr,& hipblasZgercStridedBatched_64_rank_1,& - hipblasZgercStridedBatched_64_full_rank + hipblasZgercStridedBatched_64_rank_1_devptr,& + hipblasZgercStridedBatched_64_full_rank,& + hipblasZgercStridedBatched_64_full_rank_devptr,& + hipblasZgercStridedBatched_64_strided_rank,& + hipblasZgercStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -11752,7 +12971,6 @@ function hipblasZgercStridedBatched_64_(handle,m,n,alpha,x,incx,stridex,y,incy,s interface hipblasChbmv function hipblasChbmv_(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) & bind(c, name="hipblasChbmv") - use iso_c_binding import implicit none integer(c_int) :: hipblasChbmv_ @@ -11773,13 +12991,18 @@ function hipblasChbmv_(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) & module procedure hipblasChbmv_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasChbmv_assumed_rank + module procedure & + hipblasChbmv_assumed_rank,& + hipblasChbmv_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasChbmv_rank_0,& + hipblasChbmv_rank_0_devptr,& hipblasChbmv_rank_1,& - hipblasChbmv_full_rank + hipblasChbmv_rank_1_devptr,& + hipblasChbmv_full_rank,& + hipblasChbmv_full_rank_devptr #endif #endif end interface @@ -11787,7 +13010,6 @@ function hipblasChbmv_(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) & interface hipblasZhbmv function hipblasZhbmv_(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) & bind(c, name="hipblasZhbmv") - use iso_c_binding import implicit none integer(c_int) :: hipblasZhbmv_ @@ -11808,13 +13030,18 @@ function hipblasZhbmv_(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) & module procedure hipblasZhbmv_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZhbmv_assumed_rank + module procedure & + hipblasZhbmv_assumed_rank,& + hipblasZhbmv_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZhbmv_rank_0,& + hipblasZhbmv_rank_0_devptr,& hipblasZhbmv_rank_1,& - hipblasZhbmv_full_rank + hipblasZhbmv_rank_1_devptr,& + hipblasZhbmv_full_rank,& + hipblasZhbmv_full_rank_devptr #endif #endif end interface @@ -11822,7 +13049,6 @@ function hipblasZhbmv_(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) & interface hipblasChbmv_64 function hipblasChbmv_64_(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) & bind(c, name="hipblasChbmv_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasChbmv_64_ @@ -11843,13 +13069,18 @@ function hipblasChbmv_64_(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) & module procedure hipblasChbmv_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasChbmv_64_assumed_rank + module procedure & + hipblasChbmv_64_assumed_rank,& + hipblasChbmv_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasChbmv_64_rank_0,& + hipblasChbmv_64_rank_0_devptr,& hipblasChbmv_64_rank_1,& - hipblasChbmv_64_full_rank + hipblasChbmv_64_rank_1_devptr,& + hipblasChbmv_64_full_rank,& + hipblasChbmv_64_full_rank_devptr #endif #endif end interface @@ -11857,7 +13088,6 @@ function hipblasChbmv_64_(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) & interface hipblasZhbmv_64 function hipblasZhbmv_64_(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) & bind(c, name="hipblasZhbmv_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZhbmv_64_ @@ -11878,13 +13108,18 @@ function hipblasZhbmv_64_(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) & module procedure hipblasZhbmv_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZhbmv_64_assumed_rank + module procedure & + hipblasZhbmv_64_assumed_rank,& + hipblasZhbmv_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZhbmv_64_rank_0,& + hipblasZhbmv_64_rank_0_devptr,& hipblasZhbmv_64_rank_1,& - hipblasZhbmv_64_full_rank + hipblasZhbmv_64_rank_1_devptr,& + hipblasZhbmv_64_full_rank,& + hipblasZhbmv_64_full_rank_devptr #endif #endif end interface @@ -11892,7 +13127,6 @@ function hipblasZhbmv_64_(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) & interface hipblasChbmvBatched function hipblasChbmvBatched_(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy,batchCount) & bind(c, name="hipblasChbmvBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasChbmvBatched_ @@ -11917,7 +13151,6 @@ function hipblasChbmvBatched_(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy,ba interface hipblasZhbmvBatched function hipblasZhbmvBatched_(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy,batchCount) & bind(c, name="hipblasZhbmvBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZhbmvBatched_ @@ -11942,7 +13175,6 @@ function hipblasZhbmvBatched_(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy,ba interface hipblasChbmvBatched_64 function hipblasChbmvBatched_64_(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy,batchCount) & bind(c, name="hipblasChbmvBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasChbmvBatched_64_ @@ -11967,7 +13199,6 @@ function hipblasChbmvBatched_64_(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy interface hipblasZhbmvBatched_64 function hipblasZhbmvBatched_64_(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy,batchCount) & bind(c, name="hipblasZhbmvBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZhbmvBatched_64_ @@ -11993,7 +13224,6 @@ function hipblasZhbmvBatched_64_(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy function hipblasChbmvStridedBatched_(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx,stridex,beta, & y,incy,stridey,batchCount) & bind(c, name="hipblasChbmvStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasChbmvStridedBatched_ @@ -12018,13 +13248,20 @@ function hipblasChbmvStridedBatched_(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx module procedure hipblasChbmvStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasChbmvStridedBatched_assumed_rank + module procedure & + hipblasChbmvStridedBatched_assumed_rank,& + hipblasChbmvStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasChbmvStridedBatched_rank_0,& + hipblasChbmvStridedBatched_rank_0_devptr,& hipblasChbmvStridedBatched_rank_1,& - hipblasChbmvStridedBatched_full_rank + hipblasChbmvStridedBatched_rank_1_devptr,& + hipblasChbmvStridedBatched_full_rank,& + hipblasChbmvStridedBatched_full_rank_devptr,& + hipblasChbmvStridedBatched_strided_rank,& + hipblasChbmvStridedBatched_strided_rank_devptr #endif #endif end interface @@ -12033,7 +13270,6 @@ function hipblasChbmvStridedBatched_(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx function hipblasZhbmvStridedBatched_(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx,stridex,beta, & y,incy,stridey,batchCount) & bind(c, name="hipblasZhbmvStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZhbmvStridedBatched_ @@ -12058,13 +13294,20 @@ function hipblasZhbmvStridedBatched_(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx module procedure hipblasZhbmvStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZhbmvStridedBatched_assumed_rank + module procedure & + hipblasZhbmvStridedBatched_assumed_rank,& + hipblasZhbmvStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZhbmvStridedBatched_rank_0,& + hipblasZhbmvStridedBatched_rank_0_devptr,& hipblasZhbmvStridedBatched_rank_1,& - hipblasZhbmvStridedBatched_full_rank + hipblasZhbmvStridedBatched_rank_1_devptr,& + hipblasZhbmvStridedBatched_full_rank,& + hipblasZhbmvStridedBatched_full_rank_devptr,& + hipblasZhbmvStridedBatched_strided_rank,& + hipblasZhbmvStridedBatched_strided_rank_devptr #endif #endif end interface @@ -12073,7 +13316,6 @@ function hipblasZhbmvStridedBatched_(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx function hipblasChbmvStridedBatched_64_(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx,stridex, & beta,y,incy,stridey,batchCount) & bind(c, name="hipblasChbmvStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasChbmvStridedBatched_64_ @@ -12098,13 +13340,20 @@ function hipblasChbmvStridedBatched_64_(handle,uplo,n,k,alpha,AP,lda,strideA,x,i module procedure hipblasChbmvStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasChbmvStridedBatched_64_assumed_rank + module procedure & + hipblasChbmvStridedBatched_64_assumed_rank,& + hipblasChbmvStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasChbmvStridedBatched_64_rank_0,& + hipblasChbmvStridedBatched_64_rank_0_devptr,& hipblasChbmvStridedBatched_64_rank_1,& - hipblasChbmvStridedBatched_64_full_rank + hipblasChbmvStridedBatched_64_rank_1_devptr,& + hipblasChbmvStridedBatched_64_full_rank,& + hipblasChbmvStridedBatched_64_full_rank_devptr,& + hipblasChbmvStridedBatched_64_strided_rank,& + hipblasChbmvStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -12113,7 +13362,6 @@ function hipblasChbmvStridedBatched_64_(handle,uplo,n,k,alpha,AP,lda,strideA,x,i function hipblasZhbmvStridedBatched_64_(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx,stridex, & beta,y,incy,stridey,batchCount) & bind(c, name="hipblasZhbmvStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZhbmvStridedBatched_64_ @@ -12138,13 +13386,20 @@ function hipblasZhbmvStridedBatched_64_(handle,uplo,n,k,alpha,AP,lda,strideA,x,i module procedure hipblasZhbmvStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZhbmvStridedBatched_64_assumed_rank + module procedure & + hipblasZhbmvStridedBatched_64_assumed_rank,& + hipblasZhbmvStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZhbmvStridedBatched_64_rank_0,& + hipblasZhbmvStridedBatched_64_rank_0_devptr,& hipblasZhbmvStridedBatched_64_rank_1,& - hipblasZhbmvStridedBatched_64_full_rank + hipblasZhbmvStridedBatched_64_rank_1_devptr,& + hipblasZhbmvStridedBatched_64_full_rank,& + hipblasZhbmvStridedBatched_64_full_rank_devptr,& + hipblasZhbmvStridedBatched_64_strided_rank,& + hipblasZhbmvStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -12152,7 +13407,6 @@ function hipblasZhbmvStridedBatched_64_(handle,uplo,n,k,alpha,AP,lda,strideA,x,i interface hipblasChemv function hipblasChemv_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) & bind(c, name="hipblasChemv") - use iso_c_binding import implicit none integer(c_int) :: hipblasChemv_ @@ -12172,13 +13426,18 @@ function hipblasChemv_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) & module procedure hipblasChemv_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasChemv_assumed_rank + module procedure & + hipblasChemv_assumed_rank,& + hipblasChemv_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasChemv_rank_0,& + hipblasChemv_rank_0_devptr,& hipblasChemv_rank_1,& - hipblasChemv_full_rank + hipblasChemv_rank_1_devptr,& + hipblasChemv_full_rank,& + hipblasChemv_full_rank_devptr #endif #endif end interface @@ -12186,7 +13445,6 @@ function hipblasChemv_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) & interface hipblasZhemv function hipblasZhemv_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) & bind(c, name="hipblasZhemv") - use iso_c_binding import implicit none integer(c_int) :: hipblasZhemv_ @@ -12206,13 +13464,18 @@ function hipblasZhemv_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) & module procedure hipblasZhemv_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZhemv_assumed_rank + module procedure & + hipblasZhemv_assumed_rank,& + hipblasZhemv_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZhemv_rank_0,& + hipblasZhemv_rank_0_devptr,& hipblasZhemv_rank_1,& - hipblasZhemv_full_rank + hipblasZhemv_rank_1_devptr,& + hipblasZhemv_full_rank,& + hipblasZhemv_full_rank_devptr #endif #endif end interface @@ -12220,7 +13483,6 @@ function hipblasZhemv_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) & interface hipblasChemv_64 function hipblasChemv_64_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) & bind(c, name="hipblasChemv_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasChemv_64_ @@ -12240,13 +13502,18 @@ function hipblasChemv_64_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) & module procedure hipblasChemv_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasChemv_64_assumed_rank + module procedure & + hipblasChemv_64_assumed_rank,& + hipblasChemv_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasChemv_64_rank_0,& + hipblasChemv_64_rank_0_devptr,& hipblasChemv_64_rank_1,& - hipblasChemv_64_full_rank + hipblasChemv_64_rank_1_devptr,& + hipblasChemv_64_full_rank,& + hipblasChemv_64_full_rank_devptr #endif #endif end interface @@ -12254,7 +13521,6 @@ function hipblasChemv_64_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) & interface hipblasZhemv_64 function hipblasZhemv_64_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) & bind(c, name="hipblasZhemv_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZhemv_64_ @@ -12274,13 +13540,18 @@ function hipblasZhemv_64_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) & module procedure hipblasZhemv_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZhemv_64_assumed_rank + module procedure & + hipblasZhemv_64_assumed_rank,& + hipblasZhemv_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZhemv_64_rank_0,& + hipblasZhemv_64_rank_0_devptr,& hipblasZhemv_64_rank_1,& - hipblasZhemv_64_full_rank + hipblasZhemv_64_rank_1_devptr,& + hipblasZhemv_64_full_rank,& + hipblasZhemv_64_full_rank_devptr #endif #endif end interface @@ -12288,7 +13559,6 @@ function hipblasZhemv_64_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) & interface hipblasChemvBatched function hipblasChemvBatched_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy,batchCount) & bind(c, name="hipblasChemvBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasChemvBatched_ @@ -12312,7 +13582,6 @@ function hipblasChemvBatched_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy,batc interface hipblasZhemvBatched function hipblasZhemvBatched_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy,batchCount) & bind(c, name="hipblasZhemvBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZhemvBatched_ @@ -12336,7 +13605,6 @@ function hipblasZhemvBatched_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy,batc interface hipblasChemvBatched_64 function hipblasChemvBatched_64_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy,batchCount) & bind(c, name="hipblasChemvBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasChemvBatched_64_ @@ -12360,7 +13628,6 @@ function hipblasChemvBatched_64_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy,b interface hipblasZhemvBatched_64 function hipblasZhemvBatched_64_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy,batchCount) & bind(c, name="hipblasZhemvBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZhemvBatched_64_ @@ -12385,7 +13652,6 @@ function hipblasZhemvBatched_64_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy,b function hipblasChemvStridedBatched_(handle,uplo,n,alpha,AP,lda,strideA,x,incx,stridex,beta,y, & incy,stridey,batchCount) & bind(c, name="hipblasChemvStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasChemvStridedBatched_ @@ -12409,13 +13675,20 @@ function hipblasChemvStridedBatched_(handle,uplo,n,alpha,AP,lda,strideA,x,incx,s module procedure hipblasChemvStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasChemvStridedBatched_assumed_rank + module procedure & + hipblasChemvStridedBatched_assumed_rank,& + hipblasChemvStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasChemvStridedBatched_rank_0,& + hipblasChemvStridedBatched_rank_0_devptr,& hipblasChemvStridedBatched_rank_1,& - hipblasChemvStridedBatched_full_rank + hipblasChemvStridedBatched_rank_1_devptr,& + hipblasChemvStridedBatched_full_rank,& + hipblasChemvStridedBatched_full_rank_devptr,& + hipblasChemvStridedBatched_strided_rank,& + hipblasChemvStridedBatched_strided_rank_devptr #endif #endif end interface @@ -12424,7 +13697,6 @@ function hipblasChemvStridedBatched_(handle,uplo,n,alpha,AP,lda,strideA,x,incx,s function hipblasZhemvStridedBatched_(handle,uplo,n,alpha,AP,lda,strideA,x,incx,stridex,beta,y, & incy,stridey,batchCount) & bind(c, name="hipblasZhemvStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZhemvStridedBatched_ @@ -12448,13 +13720,20 @@ function hipblasZhemvStridedBatched_(handle,uplo,n,alpha,AP,lda,strideA,x,incx,s module procedure hipblasZhemvStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZhemvStridedBatched_assumed_rank + module procedure & + hipblasZhemvStridedBatched_assumed_rank,& + hipblasZhemvStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZhemvStridedBatched_rank_0,& + hipblasZhemvStridedBatched_rank_0_devptr,& hipblasZhemvStridedBatched_rank_1,& - hipblasZhemvStridedBatched_full_rank + hipblasZhemvStridedBatched_rank_1_devptr,& + hipblasZhemvStridedBatched_full_rank,& + hipblasZhemvStridedBatched_full_rank_devptr,& + hipblasZhemvStridedBatched_strided_rank,& + hipblasZhemvStridedBatched_strided_rank_devptr #endif #endif end interface @@ -12463,7 +13742,6 @@ function hipblasZhemvStridedBatched_(handle,uplo,n,alpha,AP,lda,strideA,x,incx,s function hipblasChemvStridedBatched_64_(handle,uplo,n,alpha,AP,lda,strideA,x,incx,stridex, & beta,y,incy,stridey,batchCount) & bind(c, name="hipblasChemvStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasChemvStridedBatched_64_ @@ -12487,13 +13765,20 @@ function hipblasChemvStridedBatched_64_(handle,uplo,n,alpha,AP,lda,strideA,x,inc module procedure hipblasChemvStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasChemvStridedBatched_64_assumed_rank + module procedure & + hipblasChemvStridedBatched_64_assumed_rank,& + hipblasChemvStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasChemvStridedBatched_64_rank_0,& + hipblasChemvStridedBatched_64_rank_0_devptr,& hipblasChemvStridedBatched_64_rank_1,& - hipblasChemvStridedBatched_64_full_rank + hipblasChemvStridedBatched_64_rank_1_devptr,& + hipblasChemvStridedBatched_64_full_rank,& + hipblasChemvStridedBatched_64_full_rank_devptr,& + hipblasChemvStridedBatched_64_strided_rank,& + hipblasChemvStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -12502,7 +13787,6 @@ function hipblasChemvStridedBatched_64_(handle,uplo,n,alpha,AP,lda,strideA,x,inc function hipblasZhemvStridedBatched_64_(handle,uplo,n,alpha,AP,lda,strideA,x,incx,stridex, & beta,y,incy,stridey,batchCount) & bind(c, name="hipblasZhemvStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZhemvStridedBatched_64_ @@ -12526,20 +13810,26 @@ function hipblasZhemvStridedBatched_64_(handle,uplo,n,alpha,AP,lda,strideA,x,inc module procedure hipblasZhemvStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZhemvStridedBatched_64_assumed_rank + module procedure & + hipblasZhemvStridedBatched_64_assumed_rank,& + hipblasZhemvStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZhemvStridedBatched_64_rank_0,& + hipblasZhemvStridedBatched_64_rank_0_devptr,& hipblasZhemvStridedBatched_64_rank_1,& - hipblasZhemvStridedBatched_64_full_rank + hipblasZhemvStridedBatched_64_rank_1_devptr,& + hipblasZhemvStridedBatched_64_full_rank,& + hipblasZhemvStridedBatched_64_full_rank_devptr,& + hipblasZhemvStridedBatched_64_strided_rank,& + hipblasZhemvStridedBatched_64_strided_rank_devptr #endif #endif end interface interface hipblasCher function hipblasCher_(handle,uplo,n,alpha,x,incx,AP,lda) bind(c, name="hipblasCher") - use iso_c_binding import implicit none integer(c_int) :: hipblasCher_ @@ -12556,20 +13846,24 @@ function hipblasCher_(handle,uplo,n,alpha,x,incx,AP,lda) bind(c, name="hipblasCh module procedure hipblasCher_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCher_assumed_rank + module procedure & + hipblasCher_assumed_rank,& + hipblasCher_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCher_rank_0,& + hipblasCher_rank_0_devptr,& hipblasCher_rank_1,& - hipblasCher_full_rank + hipblasCher_rank_1_devptr,& + hipblasCher_full_rank,& + hipblasCher_full_rank_devptr #endif #endif end interface interface hipblasZher function hipblasZher_(handle,uplo,n,alpha,x,incx,AP,lda) bind(c, name="hipblasZher") - use iso_c_binding import implicit none integer(c_int) :: hipblasZher_ @@ -12586,20 +13880,24 @@ function hipblasZher_(handle,uplo,n,alpha,x,incx,AP,lda) bind(c, name="hipblasZh module procedure hipblasZher_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZher_assumed_rank + module procedure & + hipblasZher_assumed_rank,& + hipblasZher_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZher_rank_0,& + hipblasZher_rank_0_devptr,& hipblasZher_rank_1,& - hipblasZher_full_rank + hipblasZher_rank_1_devptr,& + hipblasZher_full_rank,& + hipblasZher_full_rank_devptr #endif #endif end interface interface hipblasCher_64 function hipblasCher_64_(handle,uplo,n,alpha,x,incx,AP,lda) bind(c, name="hipblasCher_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCher_64_ @@ -12616,20 +13914,24 @@ function hipblasCher_64_(handle,uplo,n,alpha,x,incx,AP,lda) bind(c, name="hipbla module procedure hipblasCher_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCher_64_assumed_rank + module procedure & + hipblasCher_64_assumed_rank,& + hipblasCher_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCher_64_rank_0,& + hipblasCher_64_rank_0_devptr,& hipblasCher_64_rank_1,& - hipblasCher_64_full_rank + hipblasCher_64_rank_1_devptr,& + hipblasCher_64_full_rank,& + hipblasCher_64_full_rank_devptr #endif #endif end interface interface hipblasZher_64 function hipblasZher_64_(handle,uplo,n,alpha,x,incx,AP,lda) bind(c, name="hipblasZher_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZher_64_ @@ -12646,13 +13948,18 @@ function hipblasZher_64_(handle,uplo,n,alpha,x,incx,AP,lda) bind(c, name="hipbla module procedure hipblasZher_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZher_64_assumed_rank + module procedure & + hipblasZher_64_assumed_rank,& + hipblasZher_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZher_64_rank_0,& + hipblasZher_64_rank_0_devptr,& hipblasZher_64_rank_1,& - hipblasZher_64_full_rank + hipblasZher_64_rank_1_devptr,& + hipblasZher_64_full_rank,& + hipblasZher_64_full_rank_devptr #endif #endif end interface @@ -12660,7 +13967,6 @@ function hipblasZher_64_(handle,uplo,n,alpha,x,incx,AP,lda) bind(c, name="hipbla interface hipblasCherBatched function hipblasCherBatched_(handle,uplo,n,alpha,x,incx,AP,lda,batchCount) & bind(c, name="hipblasCherBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCherBatched_ @@ -12681,7 +13987,6 @@ function hipblasCherBatched_(handle,uplo,n,alpha,x,incx,AP,lda,batchCount) & interface hipblasZherBatched function hipblasZherBatched_(handle,uplo,n,alpha,x,incx,AP,lda,batchCount) & bind(c, name="hipblasZherBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZherBatched_ @@ -12702,7 +14007,6 @@ function hipblasZherBatched_(handle,uplo,n,alpha,x,incx,AP,lda,batchCount) & interface hipblasCherBatched_64 function hipblasCherBatched_64_(handle,uplo,n,alpha,x,incx,AP,lda,batchCount) & bind(c, name="hipblasCherBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCherBatched_64_ @@ -12723,7 +14027,6 @@ function hipblasCherBatched_64_(handle,uplo,n,alpha,x,incx,AP,lda,batchCount) & interface hipblasZherBatched_64 function hipblasZherBatched_64_(handle,uplo,n,alpha,x,incx,AP,lda,batchCount) & bind(c, name="hipblasZherBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZherBatched_64_ @@ -12745,7 +14048,6 @@ function hipblasZherBatched_64_(handle,uplo,n,alpha,x,incx,AP,lda,batchCount) & function hipblasCherStridedBatched_(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & batchCount) & bind(c, name="hipblasCherStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCherStridedBatched_ @@ -12765,13 +14067,20 @@ function hipblasCherStridedBatched_(handle,uplo,n,alpha,x,incx,stridex,AP,lda,st module procedure hipblasCherStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCherStridedBatched_assumed_rank + module procedure & + hipblasCherStridedBatched_assumed_rank,& + hipblasCherStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCherStridedBatched_rank_0,& + hipblasCherStridedBatched_rank_0_devptr,& hipblasCherStridedBatched_rank_1,& - hipblasCherStridedBatched_full_rank + hipblasCherStridedBatched_rank_1_devptr,& + hipblasCherStridedBatched_full_rank,& + hipblasCherStridedBatched_full_rank_devptr,& + hipblasCherStridedBatched_strided_rank,& + hipblasCherStridedBatched_strided_rank_devptr #endif #endif end interface @@ -12780,7 +14089,6 @@ function hipblasCherStridedBatched_(handle,uplo,n,alpha,x,incx,stridex,AP,lda,st function hipblasZherStridedBatched_(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & batchCount) & bind(c, name="hipblasZherStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZherStridedBatched_ @@ -12800,13 +14108,20 @@ function hipblasZherStridedBatched_(handle,uplo,n,alpha,x,incx,stridex,AP,lda,st module procedure hipblasZherStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZherStridedBatched_assumed_rank + module procedure & + hipblasZherStridedBatched_assumed_rank,& + hipblasZherStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZherStridedBatched_rank_0,& + hipblasZherStridedBatched_rank_0_devptr,& hipblasZherStridedBatched_rank_1,& - hipblasZherStridedBatched_full_rank + hipblasZherStridedBatched_rank_1_devptr,& + hipblasZherStridedBatched_full_rank,& + hipblasZherStridedBatched_full_rank_devptr,& + hipblasZherStridedBatched_strided_rank,& + hipblasZherStridedBatched_strided_rank_devptr #endif #endif end interface @@ -12815,7 +14130,6 @@ function hipblasZherStridedBatched_(handle,uplo,n,alpha,x,incx,stridex,AP,lda,st function hipblasCherStridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & batchCount) & bind(c, name="hipblasCherStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCherStridedBatched_64_ @@ -12835,13 +14149,20 @@ function hipblasCherStridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,AP,lda module procedure hipblasCherStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCherStridedBatched_64_assumed_rank + module procedure & + hipblasCherStridedBatched_64_assumed_rank,& + hipblasCherStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCherStridedBatched_64_rank_0,& + hipblasCherStridedBatched_64_rank_0_devptr,& hipblasCherStridedBatched_64_rank_1,& - hipblasCherStridedBatched_64_full_rank + hipblasCherStridedBatched_64_rank_1_devptr,& + hipblasCherStridedBatched_64_full_rank,& + hipblasCherStridedBatched_64_full_rank_devptr,& + hipblasCherStridedBatched_64_strided_rank,& + hipblasCherStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -12850,7 +14171,6 @@ function hipblasCherStridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,AP,lda function hipblasZherStridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & batchCount) & bind(c, name="hipblasZherStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZherStridedBatched_64_ @@ -12870,20 +14190,26 @@ function hipblasZherStridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,AP,lda module procedure hipblasZherStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZherStridedBatched_64_assumed_rank + module procedure & + hipblasZherStridedBatched_64_assumed_rank,& + hipblasZherStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZherStridedBatched_64_rank_0,& + hipblasZherStridedBatched_64_rank_0_devptr,& hipblasZherStridedBatched_64_rank_1,& - hipblasZherStridedBatched_64_full_rank + hipblasZherStridedBatched_64_rank_1_devptr,& + hipblasZherStridedBatched_64_full_rank,& + hipblasZherStridedBatched_64_full_rank_devptr,& + hipblasZherStridedBatched_64_strided_rank,& + hipblasZherStridedBatched_64_strided_rank_devptr #endif #endif end interface interface hipblasCher2 function hipblasCher2_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) bind(c, name="hipblasCher2") - use iso_c_binding import implicit none integer(c_int) :: hipblasCher2_ @@ -12902,20 +14228,24 @@ function hipblasCher2_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) bind(c, name="h module procedure hipblasCher2_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCher2_assumed_rank + module procedure & + hipblasCher2_assumed_rank,& + hipblasCher2_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCher2_rank_0,& + hipblasCher2_rank_0_devptr,& hipblasCher2_rank_1,& - hipblasCher2_full_rank + hipblasCher2_rank_1_devptr,& + hipblasCher2_full_rank,& + hipblasCher2_full_rank_devptr #endif #endif end interface interface hipblasZher2 function hipblasZher2_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) bind(c, name="hipblasZher2") - use iso_c_binding import implicit none integer(c_int) :: hipblasZher2_ @@ -12934,13 +14264,18 @@ function hipblasZher2_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) bind(c, name="h module procedure hipblasZher2_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZher2_assumed_rank + module procedure & + hipblasZher2_assumed_rank,& + hipblasZher2_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZher2_rank_0,& + hipblasZher2_rank_0_devptr,& hipblasZher2_rank_1,& - hipblasZher2_full_rank + hipblasZher2_rank_1_devptr,& + hipblasZher2_full_rank,& + hipblasZher2_full_rank_devptr #endif #endif end interface @@ -12948,7 +14283,6 @@ function hipblasZher2_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) bind(c, name="h interface hipblasCher2_64 function hipblasCher2_64_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) & bind(c, name="hipblasCher2_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCher2_64_ @@ -12967,13 +14301,18 @@ function hipblasCher2_64_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) & module procedure hipblasCher2_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCher2_64_assumed_rank + module procedure & + hipblasCher2_64_assumed_rank,& + hipblasCher2_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCher2_64_rank_0,& + hipblasCher2_64_rank_0_devptr,& hipblasCher2_64_rank_1,& - hipblasCher2_64_full_rank + hipblasCher2_64_rank_1_devptr,& + hipblasCher2_64_full_rank,& + hipblasCher2_64_full_rank_devptr #endif #endif end interface @@ -12981,7 +14320,6 @@ function hipblasCher2_64_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) & interface hipblasZher2_64 function hipblasZher2_64_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) & bind(c, name="hipblasZher2_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZher2_64_ @@ -13000,13 +14338,18 @@ function hipblasZher2_64_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) & module procedure hipblasZher2_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZher2_64_assumed_rank + module procedure & + hipblasZher2_64_assumed_rank,& + hipblasZher2_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZher2_64_rank_0,& + hipblasZher2_64_rank_0_devptr,& hipblasZher2_64_rank_1,& - hipblasZher2_64_full_rank + hipblasZher2_64_rank_1_devptr,& + hipblasZher2_64_full_rank,& + hipblasZher2_64_full_rank_devptr #endif #endif end interface @@ -13014,7 +14357,6 @@ function hipblasZher2_64_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) & interface hipblasCher2Batched function hipblasCher2Batched_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda,batchCount) & bind(c, name="hipblasCher2Batched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCher2Batched_ @@ -13037,7 +14379,6 @@ function hipblasCher2Batched_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda,batchCoun interface hipblasZher2Batched function hipblasZher2Batched_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda,batchCount) & bind(c, name="hipblasZher2Batched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZher2Batched_ @@ -13060,7 +14401,6 @@ function hipblasZher2Batched_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda,batchCoun interface hipblasCher2Batched_64 function hipblasCher2Batched_64_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda,batchCount) & bind(c, name="hipblasCher2Batched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCher2Batched_64_ @@ -13083,7 +14423,6 @@ function hipblasCher2Batched_64_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda,batchC interface hipblasZher2Batched_64 function hipblasZher2Batched_64_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda,batchCount) & bind(c, name="hipblasZher2Batched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZher2Batched_64_ @@ -13107,7 +14446,6 @@ function hipblasZher2Batched_64_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda,batchC function hipblasCher2StridedBatched_(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey,AP,lda, & strideA,batchCount) & bind(c, name="hipblasCher2StridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCher2StridedBatched_ @@ -13130,13 +14468,20 @@ function hipblasCher2StridedBatched_(handle,uplo,n,alpha,x,incx,stridex,y,incy,s module procedure hipblasCher2StridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCher2StridedBatched_assumed_rank + module procedure & + hipblasCher2StridedBatched_assumed_rank,& + hipblasCher2StridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCher2StridedBatched_rank_0,& + hipblasCher2StridedBatched_rank_0_devptr,& hipblasCher2StridedBatched_rank_1,& - hipblasCher2StridedBatched_full_rank + hipblasCher2StridedBatched_rank_1_devptr,& + hipblasCher2StridedBatched_full_rank,& + hipblasCher2StridedBatched_full_rank_devptr,& + hipblasCher2StridedBatched_strided_rank,& + hipblasCher2StridedBatched_strided_rank_devptr #endif #endif end interface @@ -13145,7 +14490,6 @@ function hipblasCher2StridedBatched_(handle,uplo,n,alpha,x,incx,stridex,y,incy,s function hipblasZher2StridedBatched_(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey,AP,lda, & strideA,batchCount) & bind(c, name="hipblasZher2StridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZher2StridedBatched_ @@ -13168,13 +14512,20 @@ function hipblasZher2StridedBatched_(handle,uplo,n,alpha,x,incx,stridex,y,incy,s module procedure hipblasZher2StridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZher2StridedBatched_assumed_rank + module procedure & + hipblasZher2StridedBatched_assumed_rank,& + hipblasZher2StridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZher2StridedBatched_rank_0,& + hipblasZher2StridedBatched_rank_0_devptr,& hipblasZher2StridedBatched_rank_1,& - hipblasZher2StridedBatched_full_rank + hipblasZher2StridedBatched_rank_1_devptr,& + hipblasZher2StridedBatched_full_rank,& + hipblasZher2StridedBatched_full_rank_devptr,& + hipblasZher2StridedBatched_strided_rank,& + hipblasZher2StridedBatched_strided_rank_devptr #endif #endif end interface @@ -13183,7 +14534,6 @@ function hipblasZher2StridedBatched_(handle,uplo,n,alpha,x,incx,stridex,y,incy,s function hipblasCher2StridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey,AP, & lda,strideA,batchCount) & bind(c, name="hipblasCher2StridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCher2StridedBatched_64_ @@ -13206,13 +14556,20 @@ function hipblasCher2StridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,y,inc module procedure hipblasCher2StridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCher2StridedBatched_64_assumed_rank + module procedure & + hipblasCher2StridedBatched_64_assumed_rank,& + hipblasCher2StridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCher2StridedBatched_64_rank_0,& + hipblasCher2StridedBatched_64_rank_0_devptr,& hipblasCher2StridedBatched_64_rank_1,& - hipblasCher2StridedBatched_64_full_rank + hipblasCher2StridedBatched_64_rank_1_devptr,& + hipblasCher2StridedBatched_64_full_rank,& + hipblasCher2StridedBatched_64_full_rank_devptr,& + hipblasCher2StridedBatched_64_strided_rank,& + hipblasCher2StridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -13221,7 +14578,6 @@ function hipblasCher2StridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,y,inc function hipblasZher2StridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey,AP, & lda,strideA,batchCount) & bind(c, name="hipblasZher2StridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZher2StridedBatched_64_ @@ -13244,20 +14600,26 @@ function hipblasZher2StridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,y,inc module procedure hipblasZher2StridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZher2StridedBatched_64_assumed_rank + module procedure & + hipblasZher2StridedBatched_64_assumed_rank,& + hipblasZher2StridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZher2StridedBatched_64_rank_0,& + hipblasZher2StridedBatched_64_rank_0_devptr,& hipblasZher2StridedBatched_64_rank_1,& - hipblasZher2StridedBatched_64_full_rank + hipblasZher2StridedBatched_64_rank_1_devptr,& + hipblasZher2StridedBatched_64_full_rank,& + hipblasZher2StridedBatched_64_full_rank_devptr,& + hipblasZher2StridedBatched_64_strided_rank,& + hipblasZher2StridedBatched_64_strided_rank_devptr #endif #endif end interface interface hipblasChpmv function hipblasChpmv_(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) bind(c, name="hipblasChpmv") - use iso_c_binding import implicit none integer(c_int) :: hipblasChpmv_ @@ -13276,19 +14638,22 @@ function hipblasChpmv_(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) bind(c, name=" module procedure hipblasChpmv_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasChpmv_assumed_rank + module procedure & + hipblasChpmv_assumed_rank,& + hipblasChpmv_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasChpmv_rank_0,& - hipblasChpmv_rank_1 + hipblasChpmv_rank_0_devptr,& + hipblasChpmv_rank_1,& + hipblasChpmv_rank_1_devptr #endif #endif end interface interface hipblasZhpmv function hipblasZhpmv_(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) bind(c, name="hipblasZhpmv") - use iso_c_binding import implicit none integer(c_int) :: hipblasZhpmv_ @@ -13307,12 +14672,16 @@ function hipblasZhpmv_(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) bind(c, name=" module procedure hipblasZhpmv_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZhpmv_assumed_rank + module procedure & + hipblasZhpmv_assumed_rank,& + hipblasZhpmv_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZhpmv_rank_0,& - hipblasZhpmv_rank_1 + hipblasZhpmv_rank_0_devptr,& + hipblasZhpmv_rank_1,& + hipblasZhpmv_rank_1_devptr #endif #endif end interface @@ -13320,7 +14689,6 @@ function hipblasZhpmv_(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) bind(c, name=" interface hipblasChpmv_64 function hipblasChpmv_64_(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) & bind(c, name="hipblasChpmv_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasChpmv_64_ @@ -13339,12 +14707,16 @@ function hipblasChpmv_64_(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) & module procedure hipblasChpmv_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasChpmv_64_assumed_rank + module procedure & + hipblasChpmv_64_assumed_rank,& + hipblasChpmv_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasChpmv_64_rank_0,& - hipblasChpmv_64_rank_1 + hipblasChpmv_64_rank_0_devptr,& + hipblasChpmv_64_rank_1,& + hipblasChpmv_64_rank_1_devptr #endif #endif end interface @@ -13352,7 +14724,6 @@ function hipblasChpmv_64_(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) & interface hipblasZhpmv_64 function hipblasZhpmv_64_(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) & bind(c, name="hipblasZhpmv_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZhpmv_64_ @@ -13371,12 +14742,16 @@ function hipblasZhpmv_64_(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) & module procedure hipblasZhpmv_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZhpmv_64_assumed_rank + module procedure & + hipblasZhpmv_64_assumed_rank,& + hipblasZhpmv_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZhpmv_64_rank_0,& - hipblasZhpmv_64_rank_1 + hipblasZhpmv_64_rank_0_devptr,& + hipblasZhpmv_64_rank_1,& + hipblasZhpmv_64_rank_1_devptr #endif #endif end interface @@ -13384,7 +14759,6 @@ function hipblasZhpmv_64_(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) & interface hipblasChpmvBatched function hipblasChpmvBatched_(handle,uplo,n,alpha,AP,x,incx,beta,y,incy,batchCount) & bind(c, name="hipblasChpmvBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasChpmvBatched_ @@ -13407,7 +14781,6 @@ function hipblasChpmvBatched_(handle,uplo,n,alpha,AP,x,incx,beta,y,incy,batchCou interface hipblasZhpmvBatched function hipblasZhpmvBatched_(handle,uplo,n,alpha,AP,x,incx,beta,y,incy,batchCount) & bind(c, name="hipblasZhpmvBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZhpmvBatched_ @@ -13430,7 +14803,6 @@ function hipblasZhpmvBatched_(handle,uplo,n,alpha,AP,x,incx,beta,y,incy,batchCou interface hipblasChpmvBatched_64 function hipblasChpmvBatched_64_(handle,uplo,n,alpha,AP,x,incx,beta,y,incy,batchCount) & bind(c, name="hipblasChpmvBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasChpmvBatched_64_ @@ -13453,7 +14825,6 @@ function hipblasChpmvBatched_64_(handle,uplo,n,alpha,AP,x,incx,beta,y,incy,batch interface hipblasZhpmvBatched_64 function hipblasZhpmvBatched_64_(handle,uplo,n,alpha,AP,x,incx,beta,y,incy,batchCount) & bind(c, name="hipblasZhpmvBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZhpmvBatched_64_ @@ -13477,7 +14848,6 @@ function hipblasZhpmvBatched_64_(handle,uplo,n,alpha,AP,x,incx,beta,y,incy,batch function hipblasChpmvStridedBatched_(handle,uplo,n,alpha,AP,strideA,x,incx,stridex,beta,y, & incy,stridey,batchCount) & bind(c, name="hipblasChpmvStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasChpmvStridedBatched_ @@ -13500,12 +14870,18 @@ function hipblasChpmvStridedBatched_(handle,uplo,n,alpha,AP,strideA,x,incx,strid module procedure hipblasChpmvStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasChpmvStridedBatched_assumed_rank + module procedure & + hipblasChpmvStridedBatched_assumed_rank,& + hipblasChpmvStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasChpmvStridedBatched_rank_0,& - hipblasChpmvStridedBatched_rank_1 + hipblasChpmvStridedBatched_rank_0_devptr,& + hipblasChpmvStridedBatched_rank_1,& + hipblasChpmvStridedBatched_rank_1_devptr,& + hipblasChpmvStridedBatched_strided_rank,& + hipblasChpmvStridedBatched_strided_rank_devptr #endif #endif end interface @@ -13514,7 +14890,6 @@ function hipblasChpmvStridedBatched_(handle,uplo,n,alpha,AP,strideA,x,incx,strid function hipblasZhpmvStridedBatched_(handle,uplo,n,alpha,AP,strideA,x,incx,stridex,beta,y, & incy,stridey,batchCount) & bind(c, name="hipblasZhpmvStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZhpmvStridedBatched_ @@ -13537,12 +14912,18 @@ function hipblasZhpmvStridedBatched_(handle,uplo,n,alpha,AP,strideA,x,incx,strid module procedure hipblasZhpmvStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZhpmvStridedBatched_assumed_rank + module procedure & + hipblasZhpmvStridedBatched_assumed_rank,& + hipblasZhpmvStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZhpmvStridedBatched_rank_0,& - hipblasZhpmvStridedBatched_rank_1 + hipblasZhpmvStridedBatched_rank_0_devptr,& + hipblasZhpmvStridedBatched_rank_1,& + hipblasZhpmvStridedBatched_rank_1_devptr,& + hipblasZhpmvStridedBatched_strided_rank,& + hipblasZhpmvStridedBatched_strided_rank_devptr #endif #endif end interface @@ -13551,7 +14932,6 @@ function hipblasZhpmvStridedBatched_(handle,uplo,n,alpha,AP,strideA,x,incx,strid function hipblasChpmvStridedBatched_64_(handle,uplo,n,alpha,AP,strideA,x,incx,stridex,beta,y, & incy,stridey,batchCount) & bind(c, name="hipblasChpmvStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasChpmvStridedBatched_64_ @@ -13574,12 +14954,18 @@ function hipblasChpmvStridedBatched_64_(handle,uplo,n,alpha,AP,strideA,x,incx,st module procedure hipblasChpmvStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasChpmvStridedBatched_64_assumed_rank + module procedure & + hipblasChpmvStridedBatched_64_assumed_rank,& + hipblasChpmvStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasChpmvStridedBatched_64_rank_0,& - hipblasChpmvStridedBatched_64_rank_1 + hipblasChpmvStridedBatched_64_rank_0_devptr,& + hipblasChpmvStridedBatched_64_rank_1,& + hipblasChpmvStridedBatched_64_rank_1_devptr,& + hipblasChpmvStridedBatched_64_strided_rank,& + hipblasChpmvStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -13588,7 +14974,6 @@ function hipblasChpmvStridedBatched_64_(handle,uplo,n,alpha,AP,strideA,x,incx,st function hipblasZhpmvStridedBatched_64_(handle,uplo,n,alpha,AP,strideA,x,incx,stridex,beta,y, & incy,stridey,batchCount) & bind(c, name="hipblasZhpmvStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZhpmvStridedBatched_64_ @@ -13611,19 +14996,24 @@ function hipblasZhpmvStridedBatched_64_(handle,uplo,n,alpha,AP,strideA,x,incx,st module procedure hipblasZhpmvStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZhpmvStridedBatched_64_assumed_rank + module procedure & + hipblasZhpmvStridedBatched_64_assumed_rank,& + hipblasZhpmvStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZhpmvStridedBatched_64_rank_0,& - hipblasZhpmvStridedBatched_64_rank_1 + hipblasZhpmvStridedBatched_64_rank_0_devptr,& + hipblasZhpmvStridedBatched_64_rank_1,& + hipblasZhpmvStridedBatched_64_rank_1_devptr,& + hipblasZhpmvStridedBatched_64_strided_rank,& + hipblasZhpmvStridedBatched_64_strided_rank_devptr #endif #endif end interface interface hipblasChpr function hipblasChpr_(handle,uplo,n,alpha,x,incx,AP) bind(c, name="hipblasChpr") - use iso_c_binding import implicit none integer(c_int) :: hipblasChpr_ @@ -13639,19 +15029,22 @@ function hipblasChpr_(handle,uplo,n,alpha,x,incx,AP) bind(c, name="hipblasChpr") module procedure hipblasChpr_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasChpr_assumed_rank + module procedure & + hipblasChpr_assumed_rank,& + hipblasChpr_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasChpr_rank_0,& - hipblasChpr_rank_1 + hipblasChpr_rank_0_devptr,& + hipblasChpr_rank_1,& + hipblasChpr_rank_1_devptr #endif #endif end interface interface hipblasZhpr function hipblasZhpr_(handle,uplo,n,alpha,x,incx,AP) bind(c, name="hipblasZhpr") - use iso_c_binding import implicit none integer(c_int) :: hipblasZhpr_ @@ -13667,19 +15060,22 @@ function hipblasZhpr_(handle,uplo,n,alpha,x,incx,AP) bind(c, name="hipblasZhpr") module procedure hipblasZhpr_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZhpr_assumed_rank + module procedure & + hipblasZhpr_assumed_rank,& + hipblasZhpr_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZhpr_rank_0,& - hipblasZhpr_rank_1 + hipblasZhpr_rank_0_devptr,& + hipblasZhpr_rank_1,& + hipblasZhpr_rank_1_devptr #endif #endif end interface interface hipblasChpr_64 function hipblasChpr_64_(handle,uplo,n,alpha,x,incx,AP) bind(c, name="hipblasChpr_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasChpr_64_ @@ -13695,19 +15091,22 @@ function hipblasChpr_64_(handle,uplo,n,alpha,x,incx,AP) bind(c, name="hipblasChp module procedure hipblasChpr_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasChpr_64_assumed_rank + module procedure & + hipblasChpr_64_assumed_rank,& + hipblasChpr_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasChpr_64_rank_0,& - hipblasChpr_64_rank_1 + hipblasChpr_64_rank_0_devptr,& + hipblasChpr_64_rank_1,& + hipblasChpr_64_rank_1_devptr #endif #endif end interface interface hipblasZhpr_64 function hipblasZhpr_64_(handle,uplo,n,alpha,x,incx,AP) bind(c, name="hipblasZhpr_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZhpr_64_ @@ -13723,12 +15122,16 @@ function hipblasZhpr_64_(handle,uplo,n,alpha,x,incx,AP) bind(c, name="hipblasZhp module procedure hipblasZhpr_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZhpr_64_assumed_rank + module procedure & + hipblasZhpr_64_assumed_rank,& + hipblasZhpr_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZhpr_64_rank_0,& - hipblasZhpr_64_rank_1 + hipblasZhpr_64_rank_0_devptr,& + hipblasZhpr_64_rank_1,& + hipblasZhpr_64_rank_1_devptr #endif #endif end interface @@ -13736,7 +15139,6 @@ function hipblasZhpr_64_(handle,uplo,n,alpha,x,incx,AP) bind(c, name="hipblasZhp interface hipblasChprBatched function hipblasChprBatched_(handle,uplo,n,alpha,x,incx,AP,batchCount) & bind(c, name="hipblasChprBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasChprBatched_ @@ -13756,7 +15158,6 @@ function hipblasChprBatched_(handle,uplo,n,alpha,x,incx,AP,batchCount) & interface hipblasZhprBatched function hipblasZhprBatched_(handle,uplo,n,alpha,x,incx,AP,batchCount) & bind(c, name="hipblasZhprBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZhprBatched_ @@ -13776,7 +15177,6 @@ function hipblasZhprBatched_(handle,uplo,n,alpha,x,incx,AP,batchCount) & interface hipblasChprBatched_64 function hipblasChprBatched_64_(handle,uplo,n,alpha,x,incx,AP,batchCount) & bind(c, name="hipblasChprBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasChprBatched_64_ @@ -13796,7 +15196,6 @@ function hipblasChprBatched_64_(handle,uplo,n,alpha,x,incx,AP,batchCount) & interface hipblasZhprBatched_64 function hipblasZhprBatched_64_(handle,uplo,n,alpha,x,incx,AP,batchCount) & bind(c, name="hipblasZhprBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZhprBatched_64_ @@ -13816,7 +15215,6 @@ function hipblasZhprBatched_64_(handle,uplo,n,alpha,x,incx,AP,batchCount) & interface hipblasChprStridedBatched function hipblasChprStridedBatched_(handle,uplo,n,alpha,x,incx,stridex,AP,strideA,batchCount) & bind(c, name="hipblasChprStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasChprStridedBatched_ @@ -13835,12 +15233,18 @@ function hipblasChprStridedBatched_(handle,uplo,n,alpha,x,incx,stridex,AP,stride module procedure hipblasChprStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasChprStridedBatched_assumed_rank + module procedure & + hipblasChprStridedBatched_assumed_rank,& + hipblasChprStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasChprStridedBatched_rank_0,& - hipblasChprStridedBatched_rank_1 + hipblasChprStridedBatched_rank_0_devptr,& + hipblasChprStridedBatched_rank_1,& + hipblasChprStridedBatched_rank_1_devptr,& + hipblasChprStridedBatched_strided_rank,& + hipblasChprStridedBatched_strided_rank_devptr #endif #endif end interface @@ -13848,7 +15252,6 @@ function hipblasChprStridedBatched_(handle,uplo,n,alpha,x,incx,stridex,AP,stride interface hipblasZhprStridedBatched function hipblasZhprStridedBatched_(handle,uplo,n,alpha,x,incx,stridex,AP,strideA,batchCount) & bind(c, name="hipblasZhprStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZhprStridedBatched_ @@ -13867,12 +15270,18 @@ function hipblasZhprStridedBatched_(handle,uplo,n,alpha,x,incx,stridex,AP,stride module procedure hipblasZhprStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZhprStridedBatched_assumed_rank + module procedure & + hipblasZhprStridedBatched_assumed_rank,& + hipblasZhprStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZhprStridedBatched_rank_0,& - hipblasZhprStridedBatched_rank_1 + hipblasZhprStridedBatched_rank_0_devptr,& + hipblasZhprStridedBatched_rank_1,& + hipblasZhprStridedBatched_rank_1_devptr,& + hipblasZhprStridedBatched_strided_rank,& + hipblasZhprStridedBatched_strided_rank_devptr #endif #endif end interface @@ -13881,7 +15290,6 @@ function hipblasZhprStridedBatched_(handle,uplo,n,alpha,x,incx,stridex,AP,stride function hipblasChprStridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & batchCount) & bind(c, name="hipblasChprStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasChprStridedBatched_64_ @@ -13900,12 +15308,18 @@ function hipblasChprStridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,AP,str module procedure hipblasChprStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasChprStridedBatched_64_assumed_rank + module procedure & + hipblasChprStridedBatched_64_assumed_rank,& + hipblasChprStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasChprStridedBatched_64_rank_0,& - hipblasChprStridedBatched_64_rank_1 + hipblasChprStridedBatched_64_rank_0_devptr,& + hipblasChprStridedBatched_64_rank_1,& + hipblasChprStridedBatched_64_rank_1_devptr,& + hipblasChprStridedBatched_64_strided_rank,& + hipblasChprStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -13914,7 +15328,6 @@ function hipblasChprStridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,AP,str function hipblasZhprStridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & batchCount) & bind(c, name="hipblasZhprStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZhprStridedBatched_64_ @@ -13933,19 +15346,24 @@ function hipblasZhprStridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,AP,str module procedure hipblasZhprStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZhprStridedBatched_64_assumed_rank + module procedure & + hipblasZhprStridedBatched_64_assumed_rank,& + hipblasZhprStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZhprStridedBatched_64_rank_0,& - hipblasZhprStridedBatched_64_rank_1 + hipblasZhprStridedBatched_64_rank_0_devptr,& + hipblasZhprStridedBatched_64_rank_1,& + hipblasZhprStridedBatched_64_rank_1_devptr,& + hipblasZhprStridedBatched_64_strided_rank,& + hipblasZhprStridedBatched_64_strided_rank_devptr #endif #endif end interface interface hipblasChpr2 function hipblasChpr2_(handle,uplo,n,alpha,x,incx,y,incy,AP) bind(c, name="hipblasChpr2") - use iso_c_binding import implicit none integer(c_int) :: hipblasChpr2_ @@ -13963,19 +15381,22 @@ function hipblasChpr2_(handle,uplo,n,alpha,x,incx,y,incy,AP) bind(c, name="hipbl module procedure hipblasChpr2_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasChpr2_assumed_rank + module procedure & + hipblasChpr2_assumed_rank,& + hipblasChpr2_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasChpr2_rank_0,& - hipblasChpr2_rank_1 + hipblasChpr2_rank_0_devptr,& + hipblasChpr2_rank_1,& + hipblasChpr2_rank_1_devptr #endif #endif end interface interface hipblasZhpr2 function hipblasZhpr2_(handle,uplo,n,alpha,x,incx,y,incy,AP) bind(c, name="hipblasZhpr2") - use iso_c_binding import implicit none integer(c_int) :: hipblasZhpr2_ @@ -13993,19 +15414,22 @@ function hipblasZhpr2_(handle,uplo,n,alpha,x,incx,y,incy,AP) bind(c, name="hipbl module procedure hipblasZhpr2_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZhpr2_assumed_rank + module procedure & + hipblasZhpr2_assumed_rank,& + hipblasZhpr2_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZhpr2_rank_0,& - hipblasZhpr2_rank_1 + hipblasZhpr2_rank_0_devptr,& + hipblasZhpr2_rank_1,& + hipblasZhpr2_rank_1_devptr #endif #endif end interface interface hipblasChpr2_64 function hipblasChpr2_64_(handle,uplo,n,alpha,x,incx,y,incy,AP) bind(c, name="hipblasChpr2_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasChpr2_64_ @@ -14023,19 +15447,22 @@ function hipblasChpr2_64_(handle,uplo,n,alpha,x,incx,y,incy,AP) bind(c, name="hi module procedure hipblasChpr2_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasChpr2_64_assumed_rank + module procedure & + hipblasChpr2_64_assumed_rank,& + hipblasChpr2_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasChpr2_64_rank_0,& - hipblasChpr2_64_rank_1 + hipblasChpr2_64_rank_0_devptr,& + hipblasChpr2_64_rank_1,& + hipblasChpr2_64_rank_1_devptr #endif #endif end interface interface hipblasZhpr2_64 function hipblasZhpr2_64_(handle,uplo,n,alpha,x,incx,y,incy,AP) bind(c, name="hipblasZhpr2_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZhpr2_64_ @@ -14053,12 +15480,16 @@ function hipblasZhpr2_64_(handle,uplo,n,alpha,x,incx,y,incy,AP) bind(c, name="hi module procedure hipblasZhpr2_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZhpr2_64_assumed_rank + module procedure & + hipblasZhpr2_64_assumed_rank,& + hipblasZhpr2_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZhpr2_64_rank_0,& - hipblasZhpr2_64_rank_1 + hipblasZhpr2_64_rank_0_devptr,& + hipblasZhpr2_64_rank_1,& + hipblasZhpr2_64_rank_1_devptr #endif #endif end interface @@ -14066,7 +15497,6 @@ function hipblasZhpr2_64_(handle,uplo,n,alpha,x,incx,y,incy,AP) bind(c, name="hi interface hipblasChpr2Batched function hipblasChpr2Batched_(handle,uplo,n,alpha,x,incx,y,incy,AP,batchCount) & bind(c, name="hipblasChpr2Batched") - use iso_c_binding import implicit none integer(c_int) :: hipblasChpr2Batched_ @@ -14088,7 +15518,6 @@ function hipblasChpr2Batched_(handle,uplo,n,alpha,x,incx,y,incy,AP,batchCount) & interface hipblasZhpr2Batched function hipblasZhpr2Batched_(handle,uplo,n,alpha,x,incx,y,incy,AP,batchCount) & bind(c, name="hipblasZhpr2Batched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZhpr2Batched_ @@ -14110,7 +15539,6 @@ function hipblasZhpr2Batched_(handle,uplo,n,alpha,x,incx,y,incy,AP,batchCount) & interface hipblasChpr2Batched_64 function hipblasChpr2Batched_64_(handle,uplo,n,alpha,x,incx,y,incy,AP,batchCount) & bind(c, name="hipblasChpr2Batched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasChpr2Batched_64_ @@ -14132,7 +15560,6 @@ function hipblasChpr2Batched_64_(handle,uplo,n,alpha,x,incx,y,incy,AP,batchCount interface hipblasZhpr2Batched_64 function hipblasZhpr2Batched_64_(handle,uplo,n,alpha,x,incx,y,incy,AP,batchCount) & bind(c, name="hipblasZhpr2Batched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZhpr2Batched_64_ @@ -14155,7 +15582,6 @@ function hipblasZhpr2Batched_64_(handle,uplo,n,alpha,x,incx,y,incy,AP,batchCount function hipblasChpr2StridedBatched_(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey,AP, & strideA,batchCount) & bind(c, name="hipblasChpr2StridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasChpr2StridedBatched_ @@ -14177,12 +15603,18 @@ function hipblasChpr2StridedBatched_(handle,uplo,n,alpha,x,incx,stridex,y,incy,s module procedure hipblasChpr2StridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasChpr2StridedBatched_assumed_rank + module procedure & + hipblasChpr2StridedBatched_assumed_rank,& + hipblasChpr2StridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasChpr2StridedBatched_rank_0,& - hipblasChpr2StridedBatched_rank_1 + hipblasChpr2StridedBatched_rank_0_devptr,& + hipblasChpr2StridedBatched_rank_1,& + hipblasChpr2StridedBatched_rank_1_devptr,& + hipblasChpr2StridedBatched_strided_rank,& + hipblasChpr2StridedBatched_strided_rank_devptr #endif #endif end interface @@ -14191,7 +15623,6 @@ function hipblasChpr2StridedBatched_(handle,uplo,n,alpha,x,incx,stridex,y,incy,s function hipblasZhpr2StridedBatched_(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey,AP, & strideA,batchCount) & bind(c, name="hipblasZhpr2StridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZhpr2StridedBatched_ @@ -14213,12 +15644,18 @@ function hipblasZhpr2StridedBatched_(handle,uplo,n,alpha,x,incx,stridex,y,incy,s module procedure hipblasZhpr2StridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZhpr2StridedBatched_assumed_rank + module procedure & + hipblasZhpr2StridedBatched_assumed_rank,& + hipblasZhpr2StridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZhpr2StridedBatched_rank_0,& - hipblasZhpr2StridedBatched_rank_1 + hipblasZhpr2StridedBatched_rank_0_devptr,& + hipblasZhpr2StridedBatched_rank_1,& + hipblasZhpr2StridedBatched_rank_1_devptr,& + hipblasZhpr2StridedBatched_strided_rank,& + hipblasZhpr2StridedBatched_strided_rank_devptr #endif #endif end interface @@ -14227,7 +15664,6 @@ function hipblasZhpr2StridedBatched_(handle,uplo,n,alpha,x,incx,stridex,y,incy,s function hipblasChpr2StridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey,AP, & strideA,batchCount) & bind(c, name="hipblasChpr2StridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasChpr2StridedBatched_64_ @@ -14249,12 +15685,18 @@ function hipblasChpr2StridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,y,inc module procedure hipblasChpr2StridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasChpr2StridedBatched_64_assumed_rank + module procedure & + hipblasChpr2StridedBatched_64_assumed_rank,& + hipblasChpr2StridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasChpr2StridedBatched_64_rank_0,& - hipblasChpr2StridedBatched_64_rank_1 + hipblasChpr2StridedBatched_64_rank_0_devptr,& + hipblasChpr2StridedBatched_64_rank_1,& + hipblasChpr2StridedBatched_64_rank_1_devptr,& + hipblasChpr2StridedBatched_64_strided_rank,& + hipblasChpr2StridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -14263,7 +15705,6 @@ function hipblasChpr2StridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,y,inc function hipblasZhpr2StridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey,AP, & strideA,batchCount) & bind(c, name="hipblasZhpr2StridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZhpr2StridedBatched_64_ @@ -14285,12 +15726,18 @@ function hipblasZhpr2StridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,y,inc module procedure hipblasZhpr2StridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZhpr2StridedBatched_64_assumed_rank + module procedure & + hipblasZhpr2StridedBatched_64_assumed_rank,& + hipblasZhpr2StridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZhpr2StridedBatched_64_rank_0,& - hipblasZhpr2StridedBatched_64_rank_1 + hipblasZhpr2StridedBatched_64_rank_0_devptr,& + hipblasZhpr2StridedBatched_64_rank_1,& + hipblasZhpr2StridedBatched_64_rank_1_devptr,& + hipblasZhpr2StridedBatched_64_strided_rank,& + hipblasZhpr2StridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -14298,7 +15745,6 @@ function hipblasZhpr2StridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,y,inc interface hipblasSsbmv function hipblasSsbmv_(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) & bind(c, name="hipblasSsbmv") - use iso_c_binding import implicit none integer(c_int) :: hipblasSsbmv_ @@ -14319,13 +15765,18 @@ function hipblasSsbmv_(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) & module procedure hipblasSsbmv_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasSsbmv_assumed_rank + module procedure & + hipblasSsbmv_assumed_rank,& + hipblasSsbmv_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSsbmv_rank_0,& + hipblasSsbmv_rank_0_devptr,& hipblasSsbmv_rank_1,& - hipblasSsbmv_full_rank + hipblasSsbmv_rank_1_devptr,& + hipblasSsbmv_full_rank,& + hipblasSsbmv_full_rank_devptr #endif #endif end interface @@ -14333,7 +15784,6 @@ function hipblasSsbmv_(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) & interface hipblasDsbmv function hipblasDsbmv_(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) & bind(c, name="hipblasDsbmv") - use iso_c_binding import implicit none integer(c_int) :: hipblasDsbmv_ @@ -14354,13 +15804,18 @@ function hipblasDsbmv_(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) & module procedure hipblasDsbmv_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDsbmv_assumed_rank + module procedure & + hipblasDsbmv_assumed_rank,& + hipblasDsbmv_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDsbmv_rank_0,& + hipblasDsbmv_rank_0_devptr,& hipblasDsbmv_rank_1,& - hipblasDsbmv_full_rank + hipblasDsbmv_rank_1_devptr,& + hipblasDsbmv_full_rank,& + hipblasDsbmv_full_rank_devptr #endif #endif end interface @@ -14368,7 +15823,6 @@ function hipblasDsbmv_(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) & interface hipblasSsbmv_64 function hipblasSsbmv_64_(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) & bind(c, name="hipblasSsbmv_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSsbmv_64_ @@ -14389,13 +15843,18 @@ function hipblasSsbmv_64_(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) & module procedure hipblasSsbmv_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasSsbmv_64_assumed_rank + module procedure & + hipblasSsbmv_64_assumed_rank,& + hipblasSsbmv_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSsbmv_64_rank_0,& + hipblasSsbmv_64_rank_0_devptr,& hipblasSsbmv_64_rank_1,& - hipblasSsbmv_64_full_rank + hipblasSsbmv_64_rank_1_devptr,& + hipblasSsbmv_64_full_rank,& + hipblasSsbmv_64_full_rank_devptr #endif #endif end interface @@ -14403,7 +15862,6 @@ function hipblasSsbmv_64_(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) & interface hipblasDsbmv_64 function hipblasDsbmv_64_(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) & bind(c, name="hipblasDsbmv_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDsbmv_64_ @@ -14424,13 +15882,18 @@ function hipblasDsbmv_64_(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) & module procedure hipblasDsbmv_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDsbmv_64_assumed_rank + module procedure & + hipblasDsbmv_64_assumed_rank,& + hipblasDsbmv_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDsbmv_64_rank_0,& + hipblasDsbmv_64_rank_0_devptr,& hipblasDsbmv_64_rank_1,& - hipblasDsbmv_64_full_rank + hipblasDsbmv_64_rank_1_devptr,& + hipblasDsbmv_64_full_rank,& + hipblasDsbmv_64_full_rank_devptr #endif #endif end interface @@ -14438,7 +15901,6 @@ function hipblasDsbmv_64_(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) & interface hipblasSsbmvBatched function hipblasSsbmvBatched_(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy,batchCount) & bind(c, name="hipblasSsbmvBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasSsbmvBatched_ @@ -14463,7 +15925,6 @@ function hipblasSsbmvBatched_(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy,ba interface hipblasDsbmvBatched function hipblasDsbmvBatched_(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy,batchCount) & bind(c, name="hipblasDsbmvBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDsbmvBatched_ @@ -14488,7 +15949,6 @@ function hipblasDsbmvBatched_(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy,ba interface hipblasSsbmvBatched_64 function hipblasSsbmvBatched_64_(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy,batchCount) & bind(c, name="hipblasSsbmvBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSsbmvBatched_64_ @@ -14513,7 +15973,6 @@ function hipblasSsbmvBatched_64_(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy interface hipblasDsbmvBatched_64 function hipblasDsbmvBatched_64_(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy,batchCount) & bind(c, name="hipblasDsbmvBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDsbmvBatched_64_ @@ -14539,7 +15998,6 @@ function hipblasDsbmvBatched_64_(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy function hipblasSsbmvStridedBatched_(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx,stridex,beta, & y,incy,stridey,batchCount) & bind(c, name="hipblasSsbmvStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasSsbmvStridedBatched_ @@ -14564,13 +16022,20 @@ function hipblasSsbmvStridedBatched_(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx module procedure hipblasSsbmvStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasSsbmvStridedBatched_assumed_rank + module procedure & + hipblasSsbmvStridedBatched_assumed_rank,& + hipblasSsbmvStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSsbmvStridedBatched_rank_0,& + hipblasSsbmvStridedBatched_rank_0_devptr,& hipblasSsbmvStridedBatched_rank_1,& - hipblasSsbmvStridedBatched_full_rank + hipblasSsbmvStridedBatched_rank_1_devptr,& + hipblasSsbmvStridedBatched_full_rank,& + hipblasSsbmvStridedBatched_full_rank_devptr,& + hipblasSsbmvStridedBatched_strided_rank,& + hipblasSsbmvStridedBatched_strided_rank_devptr #endif #endif end interface @@ -14579,7 +16044,6 @@ function hipblasSsbmvStridedBatched_(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx function hipblasDsbmvStridedBatched_(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx,stridex,beta, & y,incy,stridey,batchCount) & bind(c, name="hipblasDsbmvStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDsbmvStridedBatched_ @@ -14604,13 +16068,20 @@ function hipblasDsbmvStridedBatched_(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx module procedure hipblasDsbmvStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDsbmvStridedBatched_assumed_rank + module procedure & + hipblasDsbmvStridedBatched_assumed_rank,& + hipblasDsbmvStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDsbmvStridedBatched_rank_0,& + hipblasDsbmvStridedBatched_rank_0_devptr,& hipblasDsbmvStridedBatched_rank_1,& - hipblasDsbmvStridedBatched_full_rank + hipblasDsbmvStridedBatched_rank_1_devptr,& + hipblasDsbmvStridedBatched_full_rank,& + hipblasDsbmvStridedBatched_full_rank_devptr,& + hipblasDsbmvStridedBatched_strided_rank,& + hipblasDsbmvStridedBatched_strided_rank_devptr #endif #endif end interface @@ -14619,7 +16090,6 @@ function hipblasDsbmvStridedBatched_(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx function hipblasSsbmvStridedBatched_64_(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx,stridex, & beta,y,incy,stridey,batchCount) & bind(c, name="hipblasSsbmvStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSsbmvStridedBatched_64_ @@ -14644,13 +16114,20 @@ function hipblasSsbmvStridedBatched_64_(handle,uplo,n,k,alpha,AP,lda,strideA,x,i module procedure hipblasSsbmvStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasSsbmvStridedBatched_64_assumed_rank + module procedure & + hipblasSsbmvStridedBatched_64_assumed_rank,& + hipblasSsbmvStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSsbmvStridedBatched_64_rank_0,& + hipblasSsbmvStridedBatched_64_rank_0_devptr,& hipblasSsbmvStridedBatched_64_rank_1,& - hipblasSsbmvStridedBatched_64_full_rank + hipblasSsbmvStridedBatched_64_rank_1_devptr,& + hipblasSsbmvStridedBatched_64_full_rank,& + hipblasSsbmvStridedBatched_64_full_rank_devptr,& + hipblasSsbmvStridedBatched_64_strided_rank,& + hipblasSsbmvStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -14659,7 +16136,6 @@ function hipblasSsbmvStridedBatched_64_(handle,uplo,n,k,alpha,AP,lda,strideA,x,i function hipblasDsbmvStridedBatched_64_(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx,stridex, & beta,y,incy,stridey,batchCount) & bind(c, name="hipblasDsbmvStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDsbmvStridedBatched_64_ @@ -14684,20 +16160,26 @@ function hipblasDsbmvStridedBatched_64_(handle,uplo,n,k,alpha,AP,lda,strideA,x,i module procedure hipblasDsbmvStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDsbmvStridedBatched_64_assumed_rank + module procedure & + hipblasDsbmvStridedBatched_64_assumed_rank,& + hipblasDsbmvStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDsbmvStridedBatched_64_rank_0,& + hipblasDsbmvStridedBatched_64_rank_0_devptr,& hipblasDsbmvStridedBatched_64_rank_1,& - hipblasDsbmvStridedBatched_64_full_rank + hipblasDsbmvStridedBatched_64_rank_1_devptr,& + hipblasDsbmvStridedBatched_64_full_rank,& + hipblasDsbmvStridedBatched_64_full_rank_devptr,& + hipblasDsbmvStridedBatched_64_strided_rank,& + hipblasDsbmvStridedBatched_64_strided_rank_devptr #endif #endif end interface interface hipblasSspmv function hipblasSspmv_(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) bind(c, name="hipblasSspmv") - use iso_c_binding import implicit none integer(c_int) :: hipblasSspmv_ @@ -14716,19 +16198,22 @@ function hipblasSspmv_(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) bind(c, name=" module procedure hipblasSspmv_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasSspmv_assumed_rank + module procedure & + hipblasSspmv_assumed_rank,& + hipblasSspmv_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSspmv_rank_0,& - hipblasSspmv_rank_1 + hipblasSspmv_rank_0_devptr,& + hipblasSspmv_rank_1,& + hipblasSspmv_rank_1_devptr #endif #endif end interface interface hipblasDspmv function hipblasDspmv_(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) bind(c, name="hipblasDspmv") - use iso_c_binding import implicit none integer(c_int) :: hipblasDspmv_ @@ -14747,12 +16232,16 @@ function hipblasDspmv_(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) bind(c, name=" module procedure hipblasDspmv_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDspmv_assumed_rank + module procedure & + hipblasDspmv_assumed_rank,& + hipblasDspmv_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDspmv_rank_0,& - hipblasDspmv_rank_1 + hipblasDspmv_rank_0_devptr,& + hipblasDspmv_rank_1,& + hipblasDspmv_rank_1_devptr #endif #endif end interface @@ -14760,7 +16249,6 @@ function hipblasDspmv_(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) bind(c, name=" interface hipblasSspmv_64 function hipblasSspmv_64_(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) & bind(c, name="hipblasSspmv_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSspmv_64_ @@ -14779,12 +16267,16 @@ function hipblasSspmv_64_(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) & module procedure hipblasSspmv_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasSspmv_64_assumed_rank + module procedure & + hipblasSspmv_64_assumed_rank,& + hipblasSspmv_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSspmv_64_rank_0,& - hipblasSspmv_64_rank_1 + hipblasSspmv_64_rank_0_devptr,& + hipblasSspmv_64_rank_1,& + hipblasSspmv_64_rank_1_devptr #endif #endif end interface @@ -14792,7 +16284,6 @@ function hipblasSspmv_64_(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) & interface hipblasDspmv_64 function hipblasDspmv_64_(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) & bind(c, name="hipblasDspmv_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDspmv_64_ @@ -14811,12 +16302,16 @@ function hipblasDspmv_64_(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) & module procedure hipblasDspmv_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDspmv_64_assumed_rank + module procedure & + hipblasDspmv_64_assumed_rank,& + hipblasDspmv_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDspmv_64_rank_0,& - hipblasDspmv_64_rank_1 + hipblasDspmv_64_rank_0_devptr,& + hipblasDspmv_64_rank_1,& + hipblasDspmv_64_rank_1_devptr #endif #endif end interface @@ -14824,7 +16319,6 @@ function hipblasDspmv_64_(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) & interface hipblasSspmvBatched function hipblasSspmvBatched_(handle,uplo,n,alpha,AP,x,incx,beta,y,incy,batchCount) & bind(c, name="hipblasSspmvBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasSspmvBatched_ @@ -14847,7 +16341,6 @@ function hipblasSspmvBatched_(handle,uplo,n,alpha,AP,x,incx,beta,y,incy,batchCou interface hipblasDspmvBatched function hipblasDspmvBatched_(handle,uplo,n,alpha,AP,x,incx,beta,y,incy,batchCount) & bind(c, name="hipblasDspmvBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDspmvBatched_ @@ -14870,7 +16363,6 @@ function hipblasDspmvBatched_(handle,uplo,n,alpha,AP,x,incx,beta,y,incy,batchCou interface hipblasSspmvBatched_64 function hipblasSspmvBatched_64_(handle,uplo,n,alpha,AP,x,incx,beta,y,incy,batchCount) & bind(c, name="hipblasSspmvBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSspmvBatched_64_ @@ -14893,7 +16385,6 @@ function hipblasSspmvBatched_64_(handle,uplo,n,alpha,AP,x,incx,beta,y,incy,batch interface hipblasDspmvBatched_64 function hipblasDspmvBatched_64_(handle,uplo,n,alpha,AP,x,incx,beta,y,incy,batchCount) & bind(c, name="hipblasDspmvBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDspmvBatched_64_ @@ -14917,7 +16408,6 @@ function hipblasDspmvBatched_64_(handle,uplo,n,alpha,AP,x,incx,beta,y,incy,batch function hipblasSspmvStridedBatched_(handle,uplo,n,alpha,AP,strideA,x,incx,stridex,beta,y, & incy,stridey,batchCount) & bind(c, name="hipblasSspmvStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasSspmvStridedBatched_ @@ -14940,12 +16430,18 @@ function hipblasSspmvStridedBatched_(handle,uplo,n,alpha,AP,strideA,x,incx,strid module procedure hipblasSspmvStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasSspmvStridedBatched_assumed_rank + module procedure & + hipblasSspmvStridedBatched_assumed_rank,& + hipblasSspmvStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSspmvStridedBatched_rank_0,& - hipblasSspmvStridedBatched_rank_1 + hipblasSspmvStridedBatched_rank_0_devptr,& + hipblasSspmvStridedBatched_rank_1,& + hipblasSspmvStridedBatched_rank_1_devptr,& + hipblasSspmvStridedBatched_strided_rank,& + hipblasSspmvStridedBatched_strided_rank_devptr #endif #endif end interface @@ -14954,7 +16450,6 @@ function hipblasSspmvStridedBatched_(handle,uplo,n,alpha,AP,strideA,x,incx,strid function hipblasDspmvStridedBatched_(handle,uplo,n,alpha,AP,strideA,x,incx,stridex,beta,y, & incy,stridey,batchCount) & bind(c, name="hipblasDspmvStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDspmvStridedBatched_ @@ -14977,12 +16472,18 @@ function hipblasDspmvStridedBatched_(handle,uplo,n,alpha,AP,strideA,x,incx,strid module procedure hipblasDspmvStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDspmvStridedBatched_assumed_rank + module procedure & + hipblasDspmvStridedBatched_assumed_rank,& + hipblasDspmvStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDspmvStridedBatched_rank_0,& - hipblasDspmvStridedBatched_rank_1 + hipblasDspmvStridedBatched_rank_0_devptr,& + hipblasDspmvStridedBatched_rank_1,& + hipblasDspmvStridedBatched_rank_1_devptr,& + hipblasDspmvStridedBatched_strided_rank,& + hipblasDspmvStridedBatched_strided_rank_devptr #endif #endif end interface @@ -14991,7 +16492,6 @@ function hipblasDspmvStridedBatched_(handle,uplo,n,alpha,AP,strideA,x,incx,strid function hipblasSspmvStridedBatched_64_(handle,uplo,n,alpha,AP,strideA,x,incx,stridex,beta,y, & incy,stridey,batchCount) & bind(c, name="hipblasSspmvStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSspmvStridedBatched_64_ @@ -15014,12 +16514,18 @@ function hipblasSspmvStridedBatched_64_(handle,uplo,n,alpha,AP,strideA,x,incx,st module procedure hipblasSspmvStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasSspmvStridedBatched_64_assumed_rank + module procedure & + hipblasSspmvStridedBatched_64_assumed_rank,& + hipblasSspmvStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSspmvStridedBatched_64_rank_0,& - hipblasSspmvStridedBatched_64_rank_1 + hipblasSspmvStridedBatched_64_rank_0_devptr,& + hipblasSspmvStridedBatched_64_rank_1,& + hipblasSspmvStridedBatched_64_rank_1_devptr,& + hipblasSspmvStridedBatched_64_strided_rank,& + hipblasSspmvStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -15028,7 +16534,6 @@ function hipblasSspmvStridedBatched_64_(handle,uplo,n,alpha,AP,strideA,x,incx,st function hipblasDspmvStridedBatched_64_(handle,uplo,n,alpha,AP,strideA,x,incx,stridex,beta,y, & incy,stridey,batchCount) & bind(c, name="hipblasDspmvStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDspmvStridedBatched_64_ @@ -15051,19 +16556,24 @@ function hipblasDspmvStridedBatched_64_(handle,uplo,n,alpha,AP,strideA,x,incx,st module procedure hipblasDspmvStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDspmvStridedBatched_64_assumed_rank + module procedure & + hipblasDspmvStridedBatched_64_assumed_rank,& + hipblasDspmvStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDspmvStridedBatched_64_rank_0,& - hipblasDspmvStridedBatched_64_rank_1 + hipblasDspmvStridedBatched_64_rank_0_devptr,& + hipblasDspmvStridedBatched_64_rank_1,& + hipblasDspmvStridedBatched_64_rank_1_devptr,& + hipblasDspmvStridedBatched_64_strided_rank,& + hipblasDspmvStridedBatched_64_strided_rank_devptr #endif #endif end interface interface hipblasSspr function hipblasSspr_(handle,uplo,n,alpha,x,incx,AP) bind(c, name="hipblasSspr") - use iso_c_binding import implicit none integer(c_int) :: hipblasSspr_ @@ -15079,19 +16589,22 @@ function hipblasSspr_(handle,uplo,n,alpha,x,incx,AP) bind(c, name="hipblasSspr") module procedure hipblasSspr_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasSspr_assumed_rank + module procedure & + hipblasSspr_assumed_rank,& + hipblasSspr_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSspr_rank_0,& - hipblasSspr_rank_1 + hipblasSspr_rank_0_devptr,& + hipblasSspr_rank_1,& + hipblasSspr_rank_1_devptr #endif #endif end interface interface hipblasDspr function hipblasDspr_(handle,uplo,n,alpha,x,incx,AP) bind(c, name="hipblasDspr") - use iso_c_binding import implicit none integer(c_int) :: hipblasDspr_ @@ -15107,19 +16620,22 @@ function hipblasDspr_(handle,uplo,n,alpha,x,incx,AP) bind(c, name="hipblasDspr") module procedure hipblasDspr_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDspr_assumed_rank + module procedure & + hipblasDspr_assumed_rank,& + hipblasDspr_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDspr_rank_0,& - hipblasDspr_rank_1 + hipblasDspr_rank_0_devptr,& + hipblasDspr_rank_1,& + hipblasDspr_rank_1_devptr #endif #endif end interface interface hipblasCspr function hipblasCspr_(handle,uplo,n,alpha,x,incx,AP) bind(c, name="hipblasCspr") - use iso_c_binding import implicit none integer(c_int) :: hipblasCspr_ @@ -15135,19 +16651,22 @@ function hipblasCspr_(handle,uplo,n,alpha,x,incx,AP) bind(c, name="hipblasCspr") module procedure hipblasCspr_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCspr_assumed_rank + module procedure & + hipblasCspr_assumed_rank,& + hipblasCspr_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCspr_rank_0,& - hipblasCspr_rank_1 + hipblasCspr_rank_0_devptr,& + hipblasCspr_rank_1,& + hipblasCspr_rank_1_devptr #endif #endif end interface interface hipblasZspr function hipblasZspr_(handle,uplo,n,alpha,x,incx,AP) bind(c, name="hipblasZspr") - use iso_c_binding import implicit none integer(c_int) :: hipblasZspr_ @@ -15163,19 +16682,22 @@ function hipblasZspr_(handle,uplo,n,alpha,x,incx,AP) bind(c, name="hipblasZspr") module procedure hipblasZspr_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZspr_assumed_rank + module procedure & + hipblasZspr_assumed_rank,& + hipblasZspr_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZspr_rank_0,& - hipblasZspr_rank_1 + hipblasZspr_rank_0_devptr,& + hipblasZspr_rank_1,& + hipblasZspr_rank_1_devptr #endif #endif end interface interface hipblasSspr_64 function hipblasSspr_64_(handle,uplo,n,alpha,x,incx,AP) bind(c, name="hipblasSspr_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSspr_64_ @@ -15191,19 +16713,22 @@ function hipblasSspr_64_(handle,uplo,n,alpha,x,incx,AP) bind(c, name="hipblasSsp module procedure hipblasSspr_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasSspr_64_assumed_rank + module procedure & + hipblasSspr_64_assumed_rank,& + hipblasSspr_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSspr_64_rank_0,& - hipblasSspr_64_rank_1 + hipblasSspr_64_rank_0_devptr,& + hipblasSspr_64_rank_1,& + hipblasSspr_64_rank_1_devptr #endif #endif end interface interface hipblasDspr_64 function hipblasDspr_64_(handle,uplo,n,alpha,x,incx,AP) bind(c, name="hipblasDspr_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDspr_64_ @@ -15219,19 +16744,22 @@ function hipblasDspr_64_(handle,uplo,n,alpha,x,incx,AP) bind(c, name="hipblasDsp module procedure hipblasDspr_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDspr_64_assumed_rank + module procedure & + hipblasDspr_64_assumed_rank,& + hipblasDspr_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDspr_64_rank_0,& - hipblasDspr_64_rank_1 + hipblasDspr_64_rank_0_devptr,& + hipblasDspr_64_rank_1,& + hipblasDspr_64_rank_1_devptr #endif #endif end interface interface hipblasCspr_64 function hipblasCspr_64_(handle,uplo,n,alpha,x,incx,AP) bind(c, name="hipblasCspr_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCspr_64_ @@ -15247,19 +16775,22 @@ function hipblasCspr_64_(handle,uplo,n,alpha,x,incx,AP) bind(c, name="hipblasCsp module procedure hipblasCspr_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCspr_64_assumed_rank + module procedure & + hipblasCspr_64_assumed_rank,& + hipblasCspr_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCspr_64_rank_0,& - hipblasCspr_64_rank_1 + hipblasCspr_64_rank_0_devptr,& + hipblasCspr_64_rank_1,& + hipblasCspr_64_rank_1_devptr #endif #endif end interface interface hipblasZspr_64 function hipblasZspr_64_(handle,uplo,n,alpha,x,incx,AP) bind(c, name="hipblasZspr_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZspr_64_ @@ -15275,12 +16806,16 @@ function hipblasZspr_64_(handle,uplo,n,alpha,x,incx,AP) bind(c, name="hipblasZsp module procedure hipblasZspr_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZspr_64_assumed_rank + module procedure & + hipblasZspr_64_assumed_rank,& + hipblasZspr_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZspr_64_rank_0,& - hipblasZspr_64_rank_1 + hipblasZspr_64_rank_0_devptr,& + hipblasZspr_64_rank_1,& + hipblasZspr_64_rank_1_devptr #endif #endif end interface @@ -15288,7 +16823,6 @@ function hipblasZspr_64_(handle,uplo,n,alpha,x,incx,AP) bind(c, name="hipblasZsp interface hipblasSsprBatched function hipblasSsprBatched_(handle,uplo,n,alpha,x,incx,AP,batchCount) & bind(c, name="hipblasSsprBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasSsprBatched_ @@ -15308,7 +16842,6 @@ function hipblasSsprBatched_(handle,uplo,n,alpha,x,incx,AP,batchCount) & interface hipblasDsprBatched function hipblasDsprBatched_(handle,uplo,n,alpha,x,incx,AP,batchCount) & bind(c, name="hipblasDsprBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDsprBatched_ @@ -15328,7 +16861,6 @@ function hipblasDsprBatched_(handle,uplo,n,alpha,x,incx,AP,batchCount) & interface hipblasCsprBatched function hipblasCsprBatched_(handle,uplo,n,alpha,x,incx,AP,batchCount) & bind(c, name="hipblasCsprBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCsprBatched_ @@ -15348,7 +16880,6 @@ function hipblasCsprBatched_(handle,uplo,n,alpha,x,incx,AP,batchCount) & interface hipblasZsprBatched function hipblasZsprBatched_(handle,uplo,n,alpha,x,incx,AP,batchCount) & bind(c, name="hipblasZsprBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZsprBatched_ @@ -15368,7 +16899,6 @@ function hipblasZsprBatched_(handle,uplo,n,alpha,x,incx,AP,batchCount) & interface hipblasSsprBatched_64 function hipblasSsprBatched_64_(handle,uplo,n,alpha,x,incx,AP,batchCount) & bind(c, name="hipblasSsprBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSsprBatched_64_ @@ -15388,7 +16918,6 @@ function hipblasSsprBatched_64_(handle,uplo,n,alpha,x,incx,AP,batchCount) & interface hipblasDsprBatched_64 function hipblasDsprBatched_64_(handle,uplo,n,alpha,x,incx,AP,batchCount) & bind(c, name="hipblasDsprBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDsprBatched_64_ @@ -15408,7 +16937,6 @@ function hipblasDsprBatched_64_(handle,uplo,n,alpha,x,incx,AP,batchCount) & interface hipblasCsprBatched_64 function hipblasCsprBatched_64_(handle,uplo,n,alpha,x,incx,AP,batchCount) & bind(c, name="hipblasCsprBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCsprBatched_64_ @@ -15428,7 +16956,6 @@ function hipblasCsprBatched_64_(handle,uplo,n,alpha,x,incx,AP,batchCount) & interface hipblasZsprBatched_64 function hipblasZsprBatched_64_(handle,uplo,n,alpha,x,incx,AP,batchCount) & bind(c, name="hipblasZsprBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZsprBatched_64_ @@ -15448,7 +16975,6 @@ function hipblasZsprBatched_64_(handle,uplo,n,alpha,x,incx,AP,batchCount) & interface hipblasSsprStridedBatched function hipblasSsprStridedBatched_(handle,uplo,n,alpha,x,incx,stridex,AP,strideA,batchCount) & bind(c, name="hipblasSsprStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasSsprStridedBatched_ @@ -15467,12 +16993,18 @@ function hipblasSsprStridedBatched_(handle,uplo,n,alpha,x,incx,stridex,AP,stride module procedure hipblasSsprStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasSsprStridedBatched_assumed_rank + module procedure & + hipblasSsprStridedBatched_assumed_rank,& + hipblasSsprStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSsprStridedBatched_rank_0,& - hipblasSsprStridedBatched_rank_1 + hipblasSsprStridedBatched_rank_0_devptr,& + hipblasSsprStridedBatched_rank_1,& + hipblasSsprStridedBatched_rank_1_devptr,& + hipblasSsprStridedBatched_strided_rank,& + hipblasSsprStridedBatched_strided_rank_devptr #endif #endif end interface @@ -15480,7 +17012,6 @@ function hipblasSsprStridedBatched_(handle,uplo,n,alpha,x,incx,stridex,AP,stride interface hipblasDsprStridedBatched function hipblasDsprStridedBatched_(handle,uplo,n,alpha,x,incx,stridex,AP,strideA,batchCount) & bind(c, name="hipblasDsprStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDsprStridedBatched_ @@ -15499,12 +17030,18 @@ function hipblasDsprStridedBatched_(handle,uplo,n,alpha,x,incx,stridex,AP,stride module procedure hipblasDsprStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDsprStridedBatched_assumed_rank + module procedure & + hipblasDsprStridedBatched_assumed_rank,& + hipblasDsprStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDsprStridedBatched_rank_0,& - hipblasDsprStridedBatched_rank_1 + hipblasDsprStridedBatched_rank_0_devptr,& + hipblasDsprStridedBatched_rank_1,& + hipblasDsprStridedBatched_rank_1_devptr,& + hipblasDsprStridedBatched_strided_rank,& + hipblasDsprStridedBatched_strided_rank_devptr #endif #endif end interface @@ -15512,7 +17049,6 @@ function hipblasDsprStridedBatched_(handle,uplo,n,alpha,x,incx,stridex,AP,stride interface hipblasCsprStridedBatched function hipblasCsprStridedBatched_(handle,uplo,n,alpha,x,incx,stridex,AP,strideA,batchCount) & bind(c, name="hipblasCsprStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCsprStridedBatched_ @@ -15531,12 +17067,18 @@ function hipblasCsprStridedBatched_(handle,uplo,n,alpha,x,incx,stridex,AP,stride module procedure hipblasCsprStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCsprStridedBatched_assumed_rank + module procedure & + hipblasCsprStridedBatched_assumed_rank,& + hipblasCsprStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCsprStridedBatched_rank_0,& - hipblasCsprStridedBatched_rank_1 + hipblasCsprStridedBatched_rank_0_devptr,& + hipblasCsprStridedBatched_rank_1,& + hipblasCsprStridedBatched_rank_1_devptr,& + hipblasCsprStridedBatched_strided_rank,& + hipblasCsprStridedBatched_strided_rank_devptr #endif #endif end interface @@ -15544,7 +17086,6 @@ function hipblasCsprStridedBatched_(handle,uplo,n,alpha,x,incx,stridex,AP,stride interface hipblasZsprStridedBatched function hipblasZsprStridedBatched_(handle,uplo,n,alpha,x,incx,stridex,AP,strideA,batchCount) & bind(c, name="hipblasZsprStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZsprStridedBatched_ @@ -15563,12 +17104,18 @@ function hipblasZsprStridedBatched_(handle,uplo,n,alpha,x,incx,stridex,AP,stride module procedure hipblasZsprStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZsprStridedBatched_assumed_rank + module procedure & + hipblasZsprStridedBatched_assumed_rank,& + hipblasZsprStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZsprStridedBatched_rank_0,& - hipblasZsprStridedBatched_rank_1 + hipblasZsprStridedBatched_rank_0_devptr,& + hipblasZsprStridedBatched_rank_1,& + hipblasZsprStridedBatched_rank_1_devptr,& + hipblasZsprStridedBatched_strided_rank,& + hipblasZsprStridedBatched_strided_rank_devptr #endif #endif end interface @@ -15577,7 +17124,6 @@ function hipblasZsprStridedBatched_(handle,uplo,n,alpha,x,incx,stridex,AP,stride function hipblasSsprStridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & batchCount) & bind(c, name="hipblasSsprStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSsprStridedBatched_64_ @@ -15596,12 +17142,18 @@ function hipblasSsprStridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,AP,str module procedure hipblasSsprStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasSsprStridedBatched_64_assumed_rank + module procedure & + hipblasSsprStridedBatched_64_assumed_rank,& + hipblasSsprStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSsprStridedBatched_64_rank_0,& - hipblasSsprStridedBatched_64_rank_1 + hipblasSsprStridedBatched_64_rank_0_devptr,& + hipblasSsprStridedBatched_64_rank_1,& + hipblasSsprStridedBatched_64_rank_1_devptr,& + hipblasSsprStridedBatched_64_strided_rank,& + hipblasSsprStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -15610,7 +17162,6 @@ function hipblasSsprStridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,AP,str function hipblasDsprStridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & batchCount) & bind(c, name="hipblasDsprStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDsprStridedBatched_64_ @@ -15629,12 +17180,18 @@ function hipblasDsprStridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,AP,str module procedure hipblasDsprStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDsprStridedBatched_64_assumed_rank + module procedure & + hipblasDsprStridedBatched_64_assumed_rank,& + hipblasDsprStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDsprStridedBatched_64_rank_0,& - hipblasDsprStridedBatched_64_rank_1 + hipblasDsprStridedBatched_64_rank_0_devptr,& + hipblasDsprStridedBatched_64_rank_1,& + hipblasDsprStridedBatched_64_rank_1_devptr,& + hipblasDsprStridedBatched_64_strided_rank,& + hipblasDsprStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -15643,7 +17200,6 @@ function hipblasDsprStridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,AP,str function hipblasCsprStridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & batchCount) & bind(c, name="hipblasCsprStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCsprStridedBatched_64_ @@ -15662,12 +17218,18 @@ function hipblasCsprStridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,AP,str module procedure hipblasCsprStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCsprStridedBatched_64_assumed_rank + module procedure & + hipblasCsprStridedBatched_64_assumed_rank,& + hipblasCsprStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCsprStridedBatched_64_rank_0,& - hipblasCsprStridedBatched_64_rank_1 + hipblasCsprStridedBatched_64_rank_0_devptr,& + hipblasCsprStridedBatched_64_rank_1,& + hipblasCsprStridedBatched_64_rank_1_devptr,& + hipblasCsprStridedBatched_64_strided_rank,& + hipblasCsprStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -15676,7 +17238,6 @@ function hipblasCsprStridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,AP,str function hipblasZsprStridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & batchCount) & bind(c, name="hipblasZsprStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZsprStridedBatched_64_ @@ -15695,19 +17256,24 @@ function hipblasZsprStridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,AP,str module procedure hipblasZsprStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZsprStridedBatched_64_assumed_rank + module procedure & + hipblasZsprStridedBatched_64_assumed_rank,& + hipblasZsprStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZsprStridedBatched_64_rank_0,& - hipblasZsprStridedBatched_64_rank_1 + hipblasZsprStridedBatched_64_rank_0_devptr,& + hipblasZsprStridedBatched_64_rank_1,& + hipblasZsprStridedBatched_64_rank_1_devptr,& + hipblasZsprStridedBatched_64_strided_rank,& + hipblasZsprStridedBatched_64_strided_rank_devptr #endif #endif end interface interface hipblasSspr2 function hipblasSspr2_(handle,uplo,n,alpha,x,incx,y,incy,AP) bind(c, name="hipblasSspr2") - use iso_c_binding import implicit none integer(c_int) :: hipblasSspr2_ @@ -15725,19 +17291,22 @@ function hipblasSspr2_(handle,uplo,n,alpha,x,incx,y,incy,AP) bind(c, name="hipbl module procedure hipblasSspr2_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasSspr2_assumed_rank + module procedure & + hipblasSspr2_assumed_rank,& + hipblasSspr2_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSspr2_rank_0,& - hipblasSspr2_rank_1 + hipblasSspr2_rank_0_devptr,& + hipblasSspr2_rank_1,& + hipblasSspr2_rank_1_devptr #endif #endif end interface interface hipblasDspr2 function hipblasDspr2_(handle,uplo,n,alpha,x,incx,y,incy,AP) bind(c, name="hipblasDspr2") - use iso_c_binding import implicit none integer(c_int) :: hipblasDspr2_ @@ -15755,19 +17324,22 @@ function hipblasDspr2_(handle,uplo,n,alpha,x,incx,y,incy,AP) bind(c, name="hipbl module procedure hipblasDspr2_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDspr2_assumed_rank + module procedure & + hipblasDspr2_assumed_rank,& + hipblasDspr2_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDspr2_rank_0,& - hipblasDspr2_rank_1 + hipblasDspr2_rank_0_devptr,& + hipblasDspr2_rank_1,& + hipblasDspr2_rank_1_devptr #endif #endif end interface interface hipblasSspr2_64 function hipblasSspr2_64_(handle,uplo,n,alpha,x,incx,y,incy,AP) bind(c, name="hipblasSspr2_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSspr2_64_ @@ -15785,19 +17357,22 @@ function hipblasSspr2_64_(handle,uplo,n,alpha,x,incx,y,incy,AP) bind(c, name="hi module procedure hipblasSspr2_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasSspr2_64_assumed_rank + module procedure & + hipblasSspr2_64_assumed_rank,& + hipblasSspr2_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSspr2_64_rank_0,& - hipblasSspr2_64_rank_1 + hipblasSspr2_64_rank_0_devptr,& + hipblasSspr2_64_rank_1,& + hipblasSspr2_64_rank_1_devptr #endif #endif end interface interface hipblasDspr2_64 function hipblasDspr2_64_(handle,uplo,n,alpha,x,incx,y,incy,AP) bind(c, name="hipblasDspr2_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDspr2_64_ @@ -15815,12 +17390,16 @@ function hipblasDspr2_64_(handle,uplo,n,alpha,x,incx,y,incy,AP) bind(c, name="hi module procedure hipblasDspr2_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDspr2_64_assumed_rank + module procedure & + hipblasDspr2_64_assumed_rank,& + hipblasDspr2_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDspr2_64_rank_0,& - hipblasDspr2_64_rank_1 + hipblasDspr2_64_rank_0_devptr,& + hipblasDspr2_64_rank_1,& + hipblasDspr2_64_rank_1_devptr #endif #endif end interface @@ -15828,7 +17407,6 @@ function hipblasDspr2_64_(handle,uplo,n,alpha,x,incx,y,incy,AP) bind(c, name="hi interface hipblasSspr2Batched function hipblasSspr2Batched_(handle,uplo,n,alpha,x,incx,y,incy,AP,batchCount) & bind(c, name="hipblasSspr2Batched") - use iso_c_binding import implicit none integer(c_int) :: hipblasSspr2Batched_ @@ -15850,7 +17428,6 @@ function hipblasSspr2Batched_(handle,uplo,n,alpha,x,incx,y,incy,AP,batchCount) & interface hipblasDspr2Batched function hipblasDspr2Batched_(handle,uplo,n,alpha,x,incx,y,incy,AP,batchCount) & bind(c, name="hipblasDspr2Batched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDspr2Batched_ @@ -15872,7 +17449,6 @@ function hipblasDspr2Batched_(handle,uplo,n,alpha,x,incx,y,incy,AP,batchCount) & interface hipblasSspr2Batched_64 function hipblasSspr2Batched_64_(handle,uplo,n,alpha,x,incx,y,incy,AP,batchCount) & bind(c, name="hipblasSspr2Batched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSspr2Batched_64_ @@ -15894,7 +17470,6 @@ function hipblasSspr2Batched_64_(handle,uplo,n,alpha,x,incx,y,incy,AP,batchCount interface hipblasDspr2Batched_64 function hipblasDspr2Batched_64_(handle,uplo,n,alpha,x,incx,y,incy,AP,batchCount) & bind(c, name="hipblasDspr2Batched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDspr2Batched_64_ @@ -15917,7 +17492,6 @@ function hipblasDspr2Batched_64_(handle,uplo,n,alpha,x,incx,y,incy,AP,batchCount function hipblasSspr2StridedBatched_(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey,AP, & strideA,batchCount) & bind(c, name="hipblasSspr2StridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasSspr2StridedBatched_ @@ -15939,12 +17513,18 @@ function hipblasSspr2StridedBatched_(handle,uplo,n,alpha,x,incx,stridex,y,incy,s module procedure hipblasSspr2StridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasSspr2StridedBatched_assumed_rank + module procedure & + hipblasSspr2StridedBatched_assumed_rank,& + hipblasSspr2StridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSspr2StridedBatched_rank_0,& - hipblasSspr2StridedBatched_rank_1 + hipblasSspr2StridedBatched_rank_0_devptr,& + hipblasSspr2StridedBatched_rank_1,& + hipblasSspr2StridedBatched_rank_1_devptr,& + hipblasSspr2StridedBatched_strided_rank,& + hipblasSspr2StridedBatched_strided_rank_devptr #endif #endif end interface @@ -15953,7 +17533,6 @@ function hipblasSspr2StridedBatched_(handle,uplo,n,alpha,x,incx,stridex,y,incy,s function hipblasDspr2StridedBatched_(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey,AP, & strideA,batchCount) & bind(c, name="hipblasDspr2StridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDspr2StridedBatched_ @@ -15975,12 +17554,18 @@ function hipblasDspr2StridedBatched_(handle,uplo,n,alpha,x,incx,stridex,y,incy,s module procedure hipblasDspr2StridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDspr2StridedBatched_assumed_rank + module procedure & + hipblasDspr2StridedBatched_assumed_rank,& + hipblasDspr2StridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDspr2StridedBatched_rank_0,& - hipblasDspr2StridedBatched_rank_1 + hipblasDspr2StridedBatched_rank_0_devptr,& + hipblasDspr2StridedBatched_rank_1,& + hipblasDspr2StridedBatched_rank_1_devptr,& + hipblasDspr2StridedBatched_strided_rank,& + hipblasDspr2StridedBatched_strided_rank_devptr #endif #endif end interface @@ -15989,7 +17574,6 @@ function hipblasDspr2StridedBatched_(handle,uplo,n,alpha,x,incx,stridex,y,incy,s function hipblasSspr2StridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey,AP, & strideA,batchCount) & bind(c, name="hipblasSspr2StridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSspr2StridedBatched_64_ @@ -16011,12 +17595,18 @@ function hipblasSspr2StridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,y,inc module procedure hipblasSspr2StridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasSspr2StridedBatched_64_assumed_rank + module procedure & + hipblasSspr2StridedBatched_64_assumed_rank,& + hipblasSspr2StridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSspr2StridedBatched_64_rank_0,& - hipblasSspr2StridedBatched_64_rank_1 + hipblasSspr2StridedBatched_64_rank_0_devptr,& + hipblasSspr2StridedBatched_64_rank_1,& + hipblasSspr2StridedBatched_64_rank_1_devptr,& + hipblasSspr2StridedBatched_64_strided_rank,& + hipblasSspr2StridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -16025,7 +17615,6 @@ function hipblasSspr2StridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,y,inc function hipblasDspr2StridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey,AP, & strideA,batchCount) & bind(c, name="hipblasDspr2StridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDspr2StridedBatched_64_ @@ -16047,12 +17636,18 @@ function hipblasDspr2StridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,y,inc module procedure hipblasDspr2StridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDspr2StridedBatched_64_assumed_rank + module procedure & + hipblasDspr2StridedBatched_64_assumed_rank,& + hipblasDspr2StridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDspr2StridedBatched_64_rank_0,& - hipblasDspr2StridedBatched_64_rank_1 + hipblasDspr2StridedBatched_64_rank_0_devptr,& + hipblasDspr2StridedBatched_64_rank_1,& + hipblasDspr2StridedBatched_64_rank_1_devptr,& + hipblasDspr2StridedBatched_64_strided_rank,& + hipblasDspr2StridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -16060,7 +17655,6 @@ function hipblasDspr2StridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,y,inc interface hipblasSsymv function hipblasSsymv_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) & bind(c, name="hipblasSsymv") - use iso_c_binding import implicit none integer(c_int) :: hipblasSsymv_ @@ -16080,13 +17674,18 @@ function hipblasSsymv_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) & module procedure hipblasSsymv_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasSsymv_assumed_rank + module procedure & + hipblasSsymv_assumed_rank,& + hipblasSsymv_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSsymv_rank_0,& + hipblasSsymv_rank_0_devptr,& hipblasSsymv_rank_1,& - hipblasSsymv_full_rank + hipblasSsymv_rank_1_devptr,& + hipblasSsymv_full_rank,& + hipblasSsymv_full_rank_devptr #endif #endif end interface @@ -16094,7 +17693,6 @@ function hipblasSsymv_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) & interface hipblasDsymv function hipblasDsymv_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) & bind(c, name="hipblasDsymv") - use iso_c_binding import implicit none integer(c_int) :: hipblasDsymv_ @@ -16114,13 +17712,18 @@ function hipblasDsymv_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) & module procedure hipblasDsymv_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDsymv_assumed_rank + module procedure & + hipblasDsymv_assumed_rank,& + hipblasDsymv_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDsymv_rank_0,& + hipblasDsymv_rank_0_devptr,& hipblasDsymv_rank_1,& - hipblasDsymv_full_rank + hipblasDsymv_rank_1_devptr,& + hipblasDsymv_full_rank,& + hipblasDsymv_full_rank_devptr #endif #endif end interface @@ -16128,7 +17731,6 @@ function hipblasDsymv_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) & interface hipblasCsymv function hipblasCsymv_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) & bind(c, name="hipblasCsymv") - use iso_c_binding import implicit none integer(c_int) :: hipblasCsymv_ @@ -16148,13 +17750,18 @@ function hipblasCsymv_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) & module procedure hipblasCsymv_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCsymv_assumed_rank + module procedure & + hipblasCsymv_assumed_rank,& + hipblasCsymv_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCsymv_rank_0,& + hipblasCsymv_rank_0_devptr,& hipblasCsymv_rank_1,& - hipblasCsymv_full_rank + hipblasCsymv_rank_1_devptr,& + hipblasCsymv_full_rank,& + hipblasCsymv_full_rank_devptr #endif #endif end interface @@ -16162,7 +17769,6 @@ function hipblasCsymv_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) & interface hipblasZsymv function hipblasZsymv_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) & bind(c, name="hipblasZsymv") - use iso_c_binding import implicit none integer(c_int) :: hipblasZsymv_ @@ -16182,13 +17788,18 @@ function hipblasZsymv_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) & module procedure hipblasZsymv_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZsymv_assumed_rank + module procedure & + hipblasZsymv_assumed_rank,& + hipblasZsymv_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZsymv_rank_0,& + hipblasZsymv_rank_0_devptr,& hipblasZsymv_rank_1,& - hipblasZsymv_full_rank + hipblasZsymv_rank_1_devptr,& + hipblasZsymv_full_rank,& + hipblasZsymv_full_rank_devptr #endif #endif end interface @@ -16196,7 +17807,6 @@ function hipblasZsymv_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) & interface hipblasSsymv_64 function hipblasSsymv_64_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) & bind(c, name="hipblasSsymv_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSsymv_64_ @@ -16216,13 +17826,18 @@ function hipblasSsymv_64_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) & module procedure hipblasSsymv_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasSsymv_64_assumed_rank + module procedure & + hipblasSsymv_64_assumed_rank,& + hipblasSsymv_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSsymv_64_rank_0,& + hipblasSsymv_64_rank_0_devptr,& hipblasSsymv_64_rank_1,& - hipblasSsymv_64_full_rank + hipblasSsymv_64_rank_1_devptr,& + hipblasSsymv_64_full_rank,& + hipblasSsymv_64_full_rank_devptr #endif #endif end interface @@ -16230,7 +17845,6 @@ function hipblasSsymv_64_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) & interface hipblasDsymv_64 function hipblasDsymv_64_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) & bind(c, name="hipblasDsymv_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDsymv_64_ @@ -16250,13 +17864,18 @@ function hipblasDsymv_64_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) & module procedure hipblasDsymv_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDsymv_64_assumed_rank + module procedure & + hipblasDsymv_64_assumed_rank,& + hipblasDsymv_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDsymv_64_rank_0,& + hipblasDsymv_64_rank_0_devptr,& hipblasDsymv_64_rank_1,& - hipblasDsymv_64_full_rank + hipblasDsymv_64_rank_1_devptr,& + hipblasDsymv_64_full_rank,& + hipblasDsymv_64_full_rank_devptr #endif #endif end interface @@ -16264,7 +17883,6 @@ function hipblasDsymv_64_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) & interface hipblasCsymv_64 function hipblasCsymv_64_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) & bind(c, name="hipblasCsymv_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCsymv_64_ @@ -16284,13 +17902,18 @@ function hipblasCsymv_64_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) & module procedure hipblasCsymv_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCsymv_64_assumed_rank + module procedure & + hipblasCsymv_64_assumed_rank,& + hipblasCsymv_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCsymv_64_rank_0,& + hipblasCsymv_64_rank_0_devptr,& hipblasCsymv_64_rank_1,& - hipblasCsymv_64_full_rank + hipblasCsymv_64_rank_1_devptr,& + hipblasCsymv_64_full_rank,& + hipblasCsymv_64_full_rank_devptr #endif #endif end interface @@ -16298,7 +17921,6 @@ function hipblasCsymv_64_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) & interface hipblasZsymv_64 function hipblasZsymv_64_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) & bind(c, name="hipblasZsymv_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZsymv_64_ @@ -16318,13 +17940,18 @@ function hipblasZsymv_64_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) & module procedure hipblasZsymv_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZsymv_64_assumed_rank + module procedure & + hipblasZsymv_64_assumed_rank,& + hipblasZsymv_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZsymv_64_rank_0,& + hipblasZsymv_64_rank_0_devptr,& hipblasZsymv_64_rank_1,& - hipblasZsymv_64_full_rank + hipblasZsymv_64_rank_1_devptr,& + hipblasZsymv_64_full_rank,& + hipblasZsymv_64_full_rank_devptr #endif #endif end interface @@ -16332,7 +17959,6 @@ function hipblasZsymv_64_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) & interface hipblasSsymvBatched function hipblasSsymvBatched_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy,batchCount) & bind(c, name="hipblasSsymvBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasSsymvBatched_ @@ -16356,7 +17982,6 @@ function hipblasSsymvBatched_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy,batc interface hipblasDsymvBatched function hipblasDsymvBatched_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy,batchCount) & bind(c, name="hipblasDsymvBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDsymvBatched_ @@ -16380,7 +18005,6 @@ function hipblasDsymvBatched_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy,batc interface hipblasCsymvBatched function hipblasCsymvBatched_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy,batchCount) & bind(c, name="hipblasCsymvBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCsymvBatched_ @@ -16404,7 +18028,6 @@ function hipblasCsymvBatched_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy,batc interface hipblasZsymvBatched function hipblasZsymvBatched_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy,batchCount) & bind(c, name="hipblasZsymvBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZsymvBatched_ @@ -16428,7 +18051,6 @@ function hipblasZsymvBatched_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy,batc interface hipblasSsymvBatched_64 function hipblasSsymvBatched_64_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy,batchCount) & bind(c, name="hipblasSsymvBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSsymvBatched_64_ @@ -16452,7 +18074,6 @@ function hipblasSsymvBatched_64_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy,b interface hipblasDsymvBatched_64 function hipblasDsymvBatched_64_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy,batchCount) & bind(c, name="hipblasDsymvBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDsymvBatched_64_ @@ -16476,7 +18097,6 @@ function hipblasDsymvBatched_64_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy,b interface hipblasCsymvBatched_64 function hipblasCsymvBatched_64_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy,batchCount) & bind(c, name="hipblasCsymvBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCsymvBatched_64_ @@ -16500,7 +18120,6 @@ function hipblasCsymvBatched_64_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy,b interface hipblasZsymvBatched_64 function hipblasZsymvBatched_64_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy,batchCount) & bind(c, name="hipblasZsymvBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZsymvBatched_64_ @@ -16525,7 +18144,6 @@ function hipblasZsymvBatched_64_(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy,b function hipblasSsymvStridedBatched_(handle,uplo,n,alpha,AP,lda,strideA,x,incx,stridex,beta,y, & incy,stridey,batchCount) & bind(c, name="hipblasSsymvStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasSsymvStridedBatched_ @@ -16549,13 +18167,20 @@ function hipblasSsymvStridedBatched_(handle,uplo,n,alpha,AP,lda,strideA,x,incx,s module procedure hipblasSsymvStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasSsymvStridedBatched_assumed_rank + module procedure & + hipblasSsymvStridedBatched_assumed_rank,& + hipblasSsymvStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSsymvStridedBatched_rank_0,& + hipblasSsymvStridedBatched_rank_0_devptr,& hipblasSsymvStridedBatched_rank_1,& - hipblasSsymvStridedBatched_full_rank + hipblasSsymvStridedBatched_rank_1_devptr,& + hipblasSsymvStridedBatched_full_rank,& + hipblasSsymvStridedBatched_full_rank_devptr,& + hipblasSsymvStridedBatched_strided_rank,& + hipblasSsymvStridedBatched_strided_rank_devptr #endif #endif end interface @@ -16564,7 +18189,6 @@ function hipblasSsymvStridedBatched_(handle,uplo,n,alpha,AP,lda,strideA,x,incx,s function hipblasDsymvStridedBatched_(handle,uplo,n,alpha,AP,lda,strideA,x,incx,stridex,beta,y, & incy,stridey,batchCount) & bind(c, name="hipblasDsymvStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDsymvStridedBatched_ @@ -16588,13 +18212,20 @@ function hipblasDsymvStridedBatched_(handle,uplo,n,alpha,AP,lda,strideA,x,incx,s module procedure hipblasDsymvStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDsymvStridedBatched_assumed_rank + module procedure & + hipblasDsymvStridedBatched_assumed_rank,& + hipblasDsymvStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDsymvStridedBatched_rank_0,& + hipblasDsymvStridedBatched_rank_0_devptr,& hipblasDsymvStridedBatched_rank_1,& - hipblasDsymvStridedBatched_full_rank + hipblasDsymvStridedBatched_rank_1_devptr,& + hipblasDsymvStridedBatched_full_rank,& + hipblasDsymvStridedBatched_full_rank_devptr,& + hipblasDsymvStridedBatched_strided_rank,& + hipblasDsymvStridedBatched_strided_rank_devptr #endif #endif end interface @@ -16603,7 +18234,6 @@ function hipblasDsymvStridedBatched_(handle,uplo,n,alpha,AP,lda,strideA,x,incx,s function hipblasCsymvStridedBatched_(handle,uplo,n,alpha,AP,lda,strideA,x,incx,stridex,beta,y, & incy,stridey,batchCount) & bind(c, name="hipblasCsymvStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCsymvStridedBatched_ @@ -16627,13 +18257,20 @@ function hipblasCsymvStridedBatched_(handle,uplo,n,alpha,AP,lda,strideA,x,incx,s module procedure hipblasCsymvStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCsymvStridedBatched_assumed_rank + module procedure & + hipblasCsymvStridedBatched_assumed_rank,& + hipblasCsymvStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCsymvStridedBatched_rank_0,& + hipblasCsymvStridedBatched_rank_0_devptr,& hipblasCsymvStridedBatched_rank_1,& - hipblasCsymvStridedBatched_full_rank + hipblasCsymvStridedBatched_rank_1_devptr,& + hipblasCsymvStridedBatched_full_rank,& + hipblasCsymvStridedBatched_full_rank_devptr,& + hipblasCsymvStridedBatched_strided_rank,& + hipblasCsymvStridedBatched_strided_rank_devptr #endif #endif end interface @@ -16642,7 +18279,6 @@ function hipblasCsymvStridedBatched_(handle,uplo,n,alpha,AP,lda,strideA,x,incx,s function hipblasZsymvStridedBatched_(handle,uplo,n,alpha,AP,lda,strideA,x,incx,stridex,beta,y, & incy,stridey,batchCount) & bind(c, name="hipblasZsymvStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZsymvStridedBatched_ @@ -16666,13 +18302,20 @@ function hipblasZsymvStridedBatched_(handle,uplo,n,alpha,AP,lda,strideA,x,incx,s module procedure hipblasZsymvStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZsymvStridedBatched_assumed_rank + module procedure & + hipblasZsymvStridedBatched_assumed_rank,& + hipblasZsymvStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZsymvStridedBatched_rank_0,& + hipblasZsymvStridedBatched_rank_0_devptr,& hipblasZsymvStridedBatched_rank_1,& - hipblasZsymvStridedBatched_full_rank + hipblasZsymvStridedBatched_rank_1_devptr,& + hipblasZsymvStridedBatched_full_rank,& + hipblasZsymvStridedBatched_full_rank_devptr,& + hipblasZsymvStridedBatched_strided_rank,& + hipblasZsymvStridedBatched_strided_rank_devptr #endif #endif end interface @@ -16681,7 +18324,6 @@ function hipblasZsymvStridedBatched_(handle,uplo,n,alpha,AP,lda,strideA,x,incx,s function hipblasSsymvStridedBatched_64_(handle,uplo,n,alpha,AP,lda,strideA,x,incx,stridex, & beta,y,incy,stridey,batchCount) & bind(c, name="hipblasSsymvStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSsymvStridedBatched_64_ @@ -16705,13 +18347,20 @@ function hipblasSsymvStridedBatched_64_(handle,uplo,n,alpha,AP,lda,strideA,x,inc module procedure hipblasSsymvStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasSsymvStridedBatched_64_assumed_rank + module procedure & + hipblasSsymvStridedBatched_64_assumed_rank,& + hipblasSsymvStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSsymvStridedBatched_64_rank_0,& + hipblasSsymvStridedBatched_64_rank_0_devptr,& hipblasSsymvStridedBatched_64_rank_1,& - hipblasSsymvStridedBatched_64_full_rank + hipblasSsymvStridedBatched_64_rank_1_devptr,& + hipblasSsymvStridedBatched_64_full_rank,& + hipblasSsymvStridedBatched_64_full_rank_devptr,& + hipblasSsymvStridedBatched_64_strided_rank,& + hipblasSsymvStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -16720,7 +18369,6 @@ function hipblasSsymvStridedBatched_64_(handle,uplo,n,alpha,AP,lda,strideA,x,inc function hipblasDsymvStridedBatched_64_(handle,uplo,n,alpha,AP,lda,strideA,x,incx,stridex, & beta,y,incy,stridey,batchCount) & bind(c, name="hipblasDsymvStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDsymvStridedBatched_64_ @@ -16744,13 +18392,20 @@ function hipblasDsymvStridedBatched_64_(handle,uplo,n,alpha,AP,lda,strideA,x,inc module procedure hipblasDsymvStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDsymvStridedBatched_64_assumed_rank + module procedure & + hipblasDsymvStridedBatched_64_assumed_rank,& + hipblasDsymvStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDsymvStridedBatched_64_rank_0,& + hipblasDsymvStridedBatched_64_rank_0_devptr,& hipblasDsymvStridedBatched_64_rank_1,& - hipblasDsymvStridedBatched_64_full_rank + hipblasDsymvStridedBatched_64_rank_1_devptr,& + hipblasDsymvStridedBatched_64_full_rank,& + hipblasDsymvStridedBatched_64_full_rank_devptr,& + hipblasDsymvStridedBatched_64_strided_rank,& + hipblasDsymvStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -16759,7 +18414,6 @@ function hipblasDsymvStridedBatched_64_(handle,uplo,n,alpha,AP,lda,strideA,x,inc function hipblasCsymvStridedBatched_64_(handle,uplo,n,alpha,AP,lda,strideA,x,incx,stridex, & beta,y,incy,stridey,batchCount) & bind(c, name="hipblasCsymvStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCsymvStridedBatched_64_ @@ -16783,13 +18437,20 @@ function hipblasCsymvStridedBatched_64_(handle,uplo,n,alpha,AP,lda,strideA,x,inc module procedure hipblasCsymvStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCsymvStridedBatched_64_assumed_rank + module procedure & + hipblasCsymvStridedBatched_64_assumed_rank,& + hipblasCsymvStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCsymvStridedBatched_64_rank_0,& + hipblasCsymvStridedBatched_64_rank_0_devptr,& hipblasCsymvStridedBatched_64_rank_1,& - hipblasCsymvStridedBatched_64_full_rank + hipblasCsymvStridedBatched_64_rank_1_devptr,& + hipblasCsymvStridedBatched_64_full_rank,& + hipblasCsymvStridedBatched_64_full_rank_devptr,& + hipblasCsymvStridedBatched_64_strided_rank,& + hipblasCsymvStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -16798,7 +18459,6 @@ function hipblasCsymvStridedBatched_64_(handle,uplo,n,alpha,AP,lda,strideA,x,inc function hipblasZsymvStridedBatched_64_(handle,uplo,n,alpha,AP,lda,strideA,x,incx,stridex, & beta,y,incy,stridey,batchCount) & bind(c, name="hipblasZsymvStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZsymvStridedBatched_64_ @@ -16822,20 +18482,26 @@ function hipblasZsymvStridedBatched_64_(handle,uplo,n,alpha,AP,lda,strideA,x,inc module procedure hipblasZsymvStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZsymvStridedBatched_64_assumed_rank + module procedure & + hipblasZsymvStridedBatched_64_assumed_rank,& + hipblasZsymvStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZsymvStridedBatched_64_rank_0,& + hipblasZsymvStridedBatched_64_rank_0_devptr,& hipblasZsymvStridedBatched_64_rank_1,& - hipblasZsymvStridedBatched_64_full_rank + hipblasZsymvStridedBatched_64_rank_1_devptr,& + hipblasZsymvStridedBatched_64_full_rank,& + hipblasZsymvStridedBatched_64_full_rank_devptr,& + hipblasZsymvStridedBatched_64_strided_rank,& + hipblasZsymvStridedBatched_64_strided_rank_devptr #endif #endif end interface interface hipblasSsyr function hipblasSsyr_(handle,uplo,n,alpha,x,incx,AP,lda) bind(c, name="hipblasSsyr") - use iso_c_binding import implicit none integer(c_int) :: hipblasSsyr_ @@ -16852,20 +18518,24 @@ function hipblasSsyr_(handle,uplo,n,alpha,x,incx,AP,lda) bind(c, name="hipblasSs module procedure hipblasSsyr_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasSsyr_assumed_rank + module procedure & + hipblasSsyr_assumed_rank,& + hipblasSsyr_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSsyr_rank_0,& + hipblasSsyr_rank_0_devptr,& hipblasSsyr_rank_1,& - hipblasSsyr_full_rank + hipblasSsyr_rank_1_devptr,& + hipblasSsyr_full_rank,& + hipblasSsyr_full_rank_devptr #endif #endif end interface interface hipblasDsyr function hipblasDsyr_(handle,uplo,n,alpha,x,incx,AP,lda) bind(c, name="hipblasDsyr") - use iso_c_binding import implicit none integer(c_int) :: hipblasDsyr_ @@ -16882,20 +18552,24 @@ function hipblasDsyr_(handle,uplo,n,alpha,x,incx,AP,lda) bind(c, name="hipblasDs module procedure hipblasDsyr_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDsyr_assumed_rank + module procedure & + hipblasDsyr_assumed_rank,& + hipblasDsyr_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDsyr_rank_0,& + hipblasDsyr_rank_0_devptr,& hipblasDsyr_rank_1,& - hipblasDsyr_full_rank + hipblasDsyr_rank_1_devptr,& + hipblasDsyr_full_rank,& + hipblasDsyr_full_rank_devptr #endif #endif end interface interface hipblasCsyr function hipblasCsyr_(handle,uplo,n,alpha,x,incx,AP,lda) bind(c, name="hipblasCsyr") - use iso_c_binding import implicit none integer(c_int) :: hipblasCsyr_ @@ -16912,20 +18586,24 @@ function hipblasCsyr_(handle,uplo,n,alpha,x,incx,AP,lda) bind(c, name="hipblasCs module procedure hipblasCsyr_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCsyr_assumed_rank + module procedure & + hipblasCsyr_assumed_rank,& + hipblasCsyr_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCsyr_rank_0,& + hipblasCsyr_rank_0_devptr,& hipblasCsyr_rank_1,& - hipblasCsyr_full_rank + hipblasCsyr_rank_1_devptr,& + hipblasCsyr_full_rank,& + hipblasCsyr_full_rank_devptr #endif #endif end interface interface hipblasZsyr function hipblasZsyr_(handle,uplo,n,alpha,x,incx,AP,lda) bind(c, name="hipblasZsyr") - use iso_c_binding import implicit none integer(c_int) :: hipblasZsyr_ @@ -16942,20 +18620,24 @@ function hipblasZsyr_(handle,uplo,n,alpha,x,incx,AP,lda) bind(c, name="hipblasZs module procedure hipblasZsyr_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZsyr_assumed_rank + module procedure & + hipblasZsyr_assumed_rank,& + hipblasZsyr_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZsyr_rank_0,& + hipblasZsyr_rank_0_devptr,& hipblasZsyr_rank_1,& - hipblasZsyr_full_rank + hipblasZsyr_rank_1_devptr,& + hipblasZsyr_full_rank,& + hipblasZsyr_full_rank_devptr #endif #endif end interface interface hipblasSsyr_64 function hipblasSsyr_64_(handle,uplo,n,alpha,x,incx,AP,lda) bind(c, name="hipblasSsyr_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSsyr_64_ @@ -16972,20 +18654,24 @@ function hipblasSsyr_64_(handle,uplo,n,alpha,x,incx,AP,lda) bind(c, name="hipbla module procedure hipblasSsyr_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasSsyr_64_assumed_rank + module procedure & + hipblasSsyr_64_assumed_rank,& + hipblasSsyr_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSsyr_64_rank_0,& + hipblasSsyr_64_rank_0_devptr,& hipblasSsyr_64_rank_1,& - hipblasSsyr_64_full_rank + hipblasSsyr_64_rank_1_devptr,& + hipblasSsyr_64_full_rank,& + hipblasSsyr_64_full_rank_devptr #endif #endif end interface interface hipblasDsyr_64 function hipblasDsyr_64_(handle,uplo,n,alpha,x,incx,AP,lda) bind(c, name="hipblasDsyr_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDsyr_64_ @@ -17002,20 +18688,24 @@ function hipblasDsyr_64_(handle,uplo,n,alpha,x,incx,AP,lda) bind(c, name="hipbla module procedure hipblasDsyr_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDsyr_64_assumed_rank + module procedure & + hipblasDsyr_64_assumed_rank,& + hipblasDsyr_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDsyr_64_rank_0,& + hipblasDsyr_64_rank_0_devptr,& hipblasDsyr_64_rank_1,& - hipblasDsyr_64_full_rank + hipblasDsyr_64_rank_1_devptr,& + hipblasDsyr_64_full_rank,& + hipblasDsyr_64_full_rank_devptr #endif #endif end interface interface hipblasCsyr_64 function hipblasCsyr_64_(handle,uplo,n,alpha,x,incx,AP,lda) bind(c, name="hipblasCsyr_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCsyr_64_ @@ -17032,20 +18722,24 @@ function hipblasCsyr_64_(handle,uplo,n,alpha,x,incx,AP,lda) bind(c, name="hipbla module procedure hipblasCsyr_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCsyr_64_assumed_rank + module procedure & + hipblasCsyr_64_assumed_rank,& + hipblasCsyr_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCsyr_64_rank_0,& + hipblasCsyr_64_rank_0_devptr,& hipblasCsyr_64_rank_1,& - hipblasCsyr_64_full_rank + hipblasCsyr_64_rank_1_devptr,& + hipblasCsyr_64_full_rank,& + hipblasCsyr_64_full_rank_devptr #endif #endif end interface interface hipblasZsyr_64 function hipblasZsyr_64_(handle,uplo,n,alpha,x,incx,AP,lda) bind(c, name="hipblasZsyr_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZsyr_64_ @@ -17062,13 +18756,18 @@ function hipblasZsyr_64_(handle,uplo,n,alpha,x,incx,AP,lda) bind(c, name="hipbla module procedure hipblasZsyr_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZsyr_64_assumed_rank + module procedure & + hipblasZsyr_64_assumed_rank,& + hipblasZsyr_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZsyr_64_rank_0,& + hipblasZsyr_64_rank_0_devptr,& hipblasZsyr_64_rank_1,& - hipblasZsyr_64_full_rank + hipblasZsyr_64_rank_1_devptr,& + hipblasZsyr_64_full_rank,& + hipblasZsyr_64_full_rank_devptr #endif #endif end interface @@ -17076,7 +18775,6 @@ function hipblasZsyr_64_(handle,uplo,n,alpha,x,incx,AP,lda) bind(c, name="hipbla interface hipblasSsyrBatched function hipblasSsyrBatched_(handle,uplo,n,alpha,x,incx,AP,lda,batchCount) & bind(c, name="hipblasSsyrBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasSsyrBatched_ @@ -17097,7 +18795,6 @@ function hipblasSsyrBatched_(handle,uplo,n,alpha,x,incx,AP,lda,batchCount) & interface hipblasDsyrBatched function hipblasDsyrBatched_(handle,uplo,n,alpha,x,incx,AP,lda,batchCount) & bind(c, name="hipblasDsyrBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDsyrBatched_ @@ -17118,7 +18815,6 @@ function hipblasDsyrBatched_(handle,uplo,n,alpha,x,incx,AP,lda,batchCount) & interface hipblasCsyrBatched function hipblasCsyrBatched_(handle,uplo,n,alpha,x,incx,AP,lda,batchCount) & bind(c, name="hipblasCsyrBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCsyrBatched_ @@ -17139,7 +18835,6 @@ function hipblasCsyrBatched_(handle,uplo,n,alpha,x,incx,AP,lda,batchCount) & interface hipblasZsyrBatched function hipblasZsyrBatched_(handle,uplo,n,alpha,x,incx,AP,lda,batchCount) & bind(c, name="hipblasZsyrBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZsyrBatched_ @@ -17160,7 +18855,6 @@ function hipblasZsyrBatched_(handle,uplo,n,alpha,x,incx,AP,lda,batchCount) & interface hipblasSsyrBatched_64 function hipblasSsyrBatched_64_(handle,uplo,n,alpha,x,incx,AP,lda,batchCount) & bind(c, name="hipblasSsyrBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSsyrBatched_64_ @@ -17181,7 +18875,6 @@ function hipblasSsyrBatched_64_(handle,uplo,n,alpha,x,incx,AP,lda,batchCount) & interface hipblasDsyrBatched_64 function hipblasDsyrBatched_64_(handle,uplo,n,alpha,x,incx,AP,lda,batchCount) & bind(c, name="hipblasDsyrBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDsyrBatched_64_ @@ -17202,7 +18895,6 @@ function hipblasDsyrBatched_64_(handle,uplo,n,alpha,x,incx,AP,lda,batchCount) & interface hipblasCsyrBatched_64 function hipblasCsyrBatched_64_(handle,uplo,n,alpha,x,incx,AP,lda,batchCount) & bind(c, name="hipblasCsyrBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCsyrBatched_64_ @@ -17223,7 +18915,6 @@ function hipblasCsyrBatched_64_(handle,uplo,n,alpha,x,incx,AP,lda,batchCount) & interface hipblasZsyrBatched_64 function hipblasZsyrBatched_64_(handle,uplo,n,alpha,x,incx,AP,lda,batchCount) & bind(c, name="hipblasZsyrBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZsyrBatched_64_ @@ -17245,7 +18936,6 @@ function hipblasZsyrBatched_64_(handle,uplo,n,alpha,x,incx,AP,lda,batchCount) & function hipblasSsyrStridedBatched_(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & batchCount) & bind(c, name="hipblasSsyrStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasSsyrStridedBatched_ @@ -17265,13 +18955,20 @@ function hipblasSsyrStridedBatched_(handle,uplo,n,alpha,x,incx,stridex,AP,lda,st module procedure hipblasSsyrStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasSsyrStridedBatched_assumed_rank + module procedure & + hipblasSsyrStridedBatched_assumed_rank,& + hipblasSsyrStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSsyrStridedBatched_rank_0,& + hipblasSsyrStridedBatched_rank_0_devptr,& hipblasSsyrStridedBatched_rank_1,& - hipblasSsyrStridedBatched_full_rank + hipblasSsyrStridedBatched_rank_1_devptr,& + hipblasSsyrStridedBatched_full_rank,& + hipblasSsyrStridedBatched_full_rank_devptr,& + hipblasSsyrStridedBatched_strided_rank,& + hipblasSsyrStridedBatched_strided_rank_devptr #endif #endif end interface @@ -17280,7 +18977,6 @@ function hipblasSsyrStridedBatched_(handle,uplo,n,alpha,x,incx,stridex,AP,lda,st function hipblasDsyrStridedBatched_(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & batchCount) & bind(c, name="hipblasDsyrStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDsyrStridedBatched_ @@ -17300,13 +18996,20 @@ function hipblasDsyrStridedBatched_(handle,uplo,n,alpha,x,incx,stridex,AP,lda,st module procedure hipblasDsyrStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDsyrStridedBatched_assumed_rank + module procedure & + hipblasDsyrStridedBatched_assumed_rank,& + hipblasDsyrStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDsyrStridedBatched_rank_0,& + hipblasDsyrStridedBatched_rank_0_devptr,& hipblasDsyrStridedBatched_rank_1,& - hipblasDsyrStridedBatched_full_rank + hipblasDsyrStridedBatched_rank_1_devptr,& + hipblasDsyrStridedBatched_full_rank,& + hipblasDsyrStridedBatched_full_rank_devptr,& + hipblasDsyrStridedBatched_strided_rank,& + hipblasDsyrStridedBatched_strided_rank_devptr #endif #endif end interface @@ -17315,7 +19018,6 @@ function hipblasDsyrStridedBatched_(handle,uplo,n,alpha,x,incx,stridex,AP,lda,st function hipblasCsyrStridedBatched_(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & batchCount) & bind(c, name="hipblasCsyrStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCsyrStridedBatched_ @@ -17335,13 +19037,20 @@ function hipblasCsyrStridedBatched_(handle,uplo,n,alpha,x,incx,stridex,AP,lda,st module procedure hipblasCsyrStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCsyrStridedBatched_assumed_rank + module procedure & + hipblasCsyrStridedBatched_assumed_rank,& + hipblasCsyrStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCsyrStridedBatched_rank_0,& + hipblasCsyrStridedBatched_rank_0_devptr,& hipblasCsyrStridedBatched_rank_1,& - hipblasCsyrStridedBatched_full_rank + hipblasCsyrStridedBatched_rank_1_devptr,& + hipblasCsyrStridedBatched_full_rank,& + hipblasCsyrStridedBatched_full_rank_devptr,& + hipblasCsyrStridedBatched_strided_rank,& + hipblasCsyrStridedBatched_strided_rank_devptr #endif #endif end interface @@ -17350,7 +19059,6 @@ function hipblasCsyrStridedBatched_(handle,uplo,n,alpha,x,incx,stridex,AP,lda,st function hipblasZsyrStridedBatched_(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & batchCount) & bind(c, name="hipblasZsyrStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZsyrStridedBatched_ @@ -17370,13 +19078,20 @@ function hipblasZsyrStridedBatched_(handle,uplo,n,alpha,x,incx,stridex,AP,lda,st module procedure hipblasZsyrStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZsyrStridedBatched_assumed_rank + module procedure & + hipblasZsyrStridedBatched_assumed_rank,& + hipblasZsyrStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZsyrStridedBatched_rank_0,& + hipblasZsyrStridedBatched_rank_0_devptr,& hipblasZsyrStridedBatched_rank_1,& - hipblasZsyrStridedBatched_full_rank + hipblasZsyrStridedBatched_rank_1_devptr,& + hipblasZsyrStridedBatched_full_rank,& + hipblasZsyrStridedBatched_full_rank_devptr,& + hipblasZsyrStridedBatched_strided_rank,& + hipblasZsyrStridedBatched_strided_rank_devptr #endif #endif end interface @@ -17385,7 +19100,6 @@ function hipblasZsyrStridedBatched_(handle,uplo,n,alpha,x,incx,stridex,AP,lda,st function hipblasSsyrStridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & batchCount) & bind(c, name="hipblasSsyrStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSsyrStridedBatched_64_ @@ -17405,13 +19119,20 @@ function hipblasSsyrStridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,AP,lda module procedure hipblasSsyrStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasSsyrStridedBatched_64_assumed_rank + module procedure & + hipblasSsyrStridedBatched_64_assumed_rank,& + hipblasSsyrStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSsyrStridedBatched_64_rank_0,& + hipblasSsyrStridedBatched_64_rank_0_devptr,& hipblasSsyrStridedBatched_64_rank_1,& - hipblasSsyrStridedBatched_64_full_rank + hipblasSsyrStridedBatched_64_rank_1_devptr,& + hipblasSsyrStridedBatched_64_full_rank,& + hipblasSsyrStridedBatched_64_full_rank_devptr,& + hipblasSsyrStridedBatched_64_strided_rank,& + hipblasSsyrStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -17420,7 +19141,6 @@ function hipblasSsyrStridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,AP,lda function hipblasDsyrStridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & batchCount) & bind(c, name="hipblasDsyrStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDsyrStridedBatched_64_ @@ -17440,13 +19160,20 @@ function hipblasDsyrStridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,AP,lda module procedure hipblasDsyrStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDsyrStridedBatched_64_assumed_rank + module procedure & + hipblasDsyrStridedBatched_64_assumed_rank,& + hipblasDsyrStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDsyrStridedBatched_64_rank_0,& + hipblasDsyrStridedBatched_64_rank_0_devptr,& hipblasDsyrStridedBatched_64_rank_1,& - hipblasDsyrStridedBatched_64_full_rank + hipblasDsyrStridedBatched_64_rank_1_devptr,& + hipblasDsyrStridedBatched_64_full_rank,& + hipblasDsyrStridedBatched_64_full_rank_devptr,& + hipblasDsyrStridedBatched_64_strided_rank,& + hipblasDsyrStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -17455,7 +19182,6 @@ function hipblasDsyrStridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,AP,lda function hipblasCsyrStridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & batchCount) & bind(c, name="hipblasCsyrStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCsyrStridedBatched_64_ @@ -17475,13 +19201,20 @@ function hipblasCsyrStridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,AP,lda module procedure hipblasCsyrStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCsyrStridedBatched_64_assumed_rank + module procedure & + hipblasCsyrStridedBatched_64_assumed_rank,& + hipblasCsyrStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCsyrStridedBatched_64_rank_0,& + hipblasCsyrStridedBatched_64_rank_0_devptr,& hipblasCsyrStridedBatched_64_rank_1,& - hipblasCsyrStridedBatched_64_full_rank + hipblasCsyrStridedBatched_64_rank_1_devptr,& + hipblasCsyrStridedBatched_64_full_rank,& + hipblasCsyrStridedBatched_64_full_rank_devptr,& + hipblasCsyrStridedBatched_64_strided_rank,& + hipblasCsyrStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -17490,7 +19223,6 @@ function hipblasCsyrStridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,AP,lda function hipblasZsyrStridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & batchCount) & bind(c, name="hipblasZsyrStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZsyrStridedBatched_64_ @@ -17510,20 +19242,26 @@ function hipblasZsyrStridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,AP,lda module procedure hipblasZsyrStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZsyrStridedBatched_64_assumed_rank + module procedure & + hipblasZsyrStridedBatched_64_assumed_rank,& + hipblasZsyrStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZsyrStridedBatched_64_rank_0,& + hipblasZsyrStridedBatched_64_rank_0_devptr,& hipblasZsyrStridedBatched_64_rank_1,& - hipblasZsyrStridedBatched_64_full_rank + hipblasZsyrStridedBatched_64_rank_1_devptr,& + hipblasZsyrStridedBatched_64_full_rank,& + hipblasZsyrStridedBatched_64_full_rank_devptr,& + hipblasZsyrStridedBatched_64_strided_rank,& + hipblasZsyrStridedBatched_64_strided_rank_devptr #endif #endif end interface interface hipblasSsyr2 function hipblasSsyr2_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) bind(c, name="hipblasSsyr2") - use iso_c_binding import implicit none integer(c_int) :: hipblasSsyr2_ @@ -17542,20 +19280,24 @@ function hipblasSsyr2_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) bind(c, name="h module procedure hipblasSsyr2_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasSsyr2_assumed_rank + module procedure & + hipblasSsyr2_assumed_rank,& + hipblasSsyr2_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSsyr2_rank_0,& + hipblasSsyr2_rank_0_devptr,& hipblasSsyr2_rank_1,& - hipblasSsyr2_full_rank + hipblasSsyr2_rank_1_devptr,& + hipblasSsyr2_full_rank,& + hipblasSsyr2_full_rank_devptr #endif #endif end interface interface hipblasDsyr2 function hipblasDsyr2_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) bind(c, name="hipblasDsyr2") - use iso_c_binding import implicit none integer(c_int) :: hipblasDsyr2_ @@ -17574,20 +19316,24 @@ function hipblasDsyr2_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) bind(c, name="h module procedure hipblasDsyr2_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDsyr2_assumed_rank + module procedure & + hipblasDsyr2_assumed_rank,& + hipblasDsyr2_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDsyr2_rank_0,& + hipblasDsyr2_rank_0_devptr,& hipblasDsyr2_rank_1,& - hipblasDsyr2_full_rank + hipblasDsyr2_rank_1_devptr,& + hipblasDsyr2_full_rank,& + hipblasDsyr2_full_rank_devptr #endif #endif end interface interface hipblasCsyr2 function hipblasCsyr2_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) bind(c, name="hipblasCsyr2") - use iso_c_binding import implicit none integer(c_int) :: hipblasCsyr2_ @@ -17606,20 +19352,24 @@ function hipblasCsyr2_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) bind(c, name="h module procedure hipblasCsyr2_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCsyr2_assumed_rank + module procedure & + hipblasCsyr2_assumed_rank,& + hipblasCsyr2_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCsyr2_rank_0,& + hipblasCsyr2_rank_0_devptr,& hipblasCsyr2_rank_1,& - hipblasCsyr2_full_rank + hipblasCsyr2_rank_1_devptr,& + hipblasCsyr2_full_rank,& + hipblasCsyr2_full_rank_devptr #endif #endif end interface interface hipblasZsyr2 function hipblasZsyr2_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) bind(c, name="hipblasZsyr2") - use iso_c_binding import implicit none integer(c_int) :: hipblasZsyr2_ @@ -17638,13 +19388,18 @@ function hipblasZsyr2_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) bind(c, name="h module procedure hipblasZsyr2_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZsyr2_assumed_rank + module procedure & + hipblasZsyr2_assumed_rank,& + hipblasZsyr2_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZsyr2_rank_0,& + hipblasZsyr2_rank_0_devptr,& hipblasZsyr2_rank_1,& - hipblasZsyr2_full_rank + hipblasZsyr2_rank_1_devptr,& + hipblasZsyr2_full_rank,& + hipblasZsyr2_full_rank_devptr #endif #endif end interface @@ -17652,7 +19407,6 @@ function hipblasZsyr2_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) bind(c, name="h interface hipblasSsyr2_64 function hipblasSsyr2_64_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) & bind(c, name="hipblasSsyr2_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSsyr2_64_ @@ -17671,13 +19425,18 @@ function hipblasSsyr2_64_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) & module procedure hipblasSsyr2_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasSsyr2_64_assumed_rank + module procedure & + hipblasSsyr2_64_assumed_rank,& + hipblasSsyr2_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSsyr2_64_rank_0,& + hipblasSsyr2_64_rank_0_devptr,& hipblasSsyr2_64_rank_1,& - hipblasSsyr2_64_full_rank + hipblasSsyr2_64_rank_1_devptr,& + hipblasSsyr2_64_full_rank,& + hipblasSsyr2_64_full_rank_devptr #endif #endif end interface @@ -17685,7 +19444,6 @@ function hipblasSsyr2_64_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) & interface hipblasDsyr2_64 function hipblasDsyr2_64_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) & bind(c, name="hipblasDsyr2_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDsyr2_64_ @@ -17704,13 +19462,18 @@ function hipblasDsyr2_64_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) & module procedure hipblasDsyr2_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDsyr2_64_assumed_rank + module procedure & + hipblasDsyr2_64_assumed_rank,& + hipblasDsyr2_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDsyr2_64_rank_0,& + hipblasDsyr2_64_rank_0_devptr,& hipblasDsyr2_64_rank_1,& - hipblasDsyr2_64_full_rank + hipblasDsyr2_64_rank_1_devptr,& + hipblasDsyr2_64_full_rank,& + hipblasDsyr2_64_full_rank_devptr #endif #endif end interface @@ -17718,7 +19481,6 @@ function hipblasDsyr2_64_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) & interface hipblasCsyr2_64 function hipblasCsyr2_64_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) & bind(c, name="hipblasCsyr2_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCsyr2_64_ @@ -17737,13 +19499,18 @@ function hipblasCsyr2_64_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) & module procedure hipblasCsyr2_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCsyr2_64_assumed_rank + module procedure & + hipblasCsyr2_64_assumed_rank,& + hipblasCsyr2_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCsyr2_64_rank_0,& + hipblasCsyr2_64_rank_0_devptr,& hipblasCsyr2_64_rank_1,& - hipblasCsyr2_64_full_rank + hipblasCsyr2_64_rank_1_devptr,& + hipblasCsyr2_64_full_rank,& + hipblasCsyr2_64_full_rank_devptr #endif #endif end interface @@ -17751,7 +19518,6 @@ function hipblasCsyr2_64_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) & interface hipblasZsyr2_64 function hipblasZsyr2_64_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) & bind(c, name="hipblasZsyr2_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZsyr2_64_ @@ -17770,13 +19536,18 @@ function hipblasZsyr2_64_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) & module procedure hipblasZsyr2_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZsyr2_64_assumed_rank + module procedure & + hipblasZsyr2_64_assumed_rank,& + hipblasZsyr2_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZsyr2_64_rank_0,& + hipblasZsyr2_64_rank_0_devptr,& hipblasZsyr2_64_rank_1,& - hipblasZsyr2_64_full_rank + hipblasZsyr2_64_rank_1_devptr,& + hipblasZsyr2_64_full_rank,& + hipblasZsyr2_64_full_rank_devptr #endif #endif end interface @@ -17784,7 +19555,6 @@ function hipblasZsyr2_64_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) & interface hipblasSsyr2Batched function hipblasSsyr2Batched_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda,batchCount) & bind(c, name="hipblasSsyr2Batched") - use iso_c_binding import implicit none integer(c_int) :: hipblasSsyr2Batched_ @@ -17807,7 +19577,6 @@ function hipblasSsyr2Batched_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda,batchCoun interface hipblasDsyr2Batched function hipblasDsyr2Batched_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda,batchCount) & bind(c, name="hipblasDsyr2Batched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDsyr2Batched_ @@ -17830,7 +19599,6 @@ function hipblasDsyr2Batched_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda,batchCoun interface hipblasCsyr2Batched function hipblasCsyr2Batched_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda,batchCount) & bind(c, name="hipblasCsyr2Batched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCsyr2Batched_ @@ -17853,7 +19621,6 @@ function hipblasCsyr2Batched_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda,batchCoun interface hipblasZsyr2Batched function hipblasZsyr2Batched_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda,batchCount) & bind(c, name="hipblasZsyr2Batched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZsyr2Batched_ @@ -17876,7 +19643,6 @@ function hipblasZsyr2Batched_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda,batchCoun interface hipblasSsyr2Batched_64 function hipblasSsyr2Batched_64_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda,batchCount) & bind(c, name="hipblasSsyr2Batched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSsyr2Batched_64_ @@ -17899,7 +19665,6 @@ function hipblasSsyr2Batched_64_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda,batchC interface hipblasDsyr2Batched_64 function hipblasDsyr2Batched_64_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda,batchCount) & bind(c, name="hipblasDsyr2Batched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDsyr2Batched_64_ @@ -17922,7 +19687,6 @@ function hipblasDsyr2Batched_64_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda,batchC interface hipblasCsyr2Batched_64 function hipblasCsyr2Batched_64_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda,batchCount) & bind(c, name="hipblasCsyr2Batched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCsyr2Batched_64_ @@ -17945,7 +19709,6 @@ function hipblasCsyr2Batched_64_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda,batchC interface hipblasZsyr2Batched_64 function hipblasZsyr2Batched_64_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda,batchCount) & bind(c, name="hipblasZsyr2Batched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZsyr2Batched_64_ @@ -17969,7 +19732,6 @@ function hipblasZsyr2Batched_64_(handle,uplo,n,alpha,x,incx,y,incy,AP,lda,batchC function hipblasSsyr2StridedBatched_(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey,AP,lda, & strideA,batchCount) & bind(c, name="hipblasSsyr2StridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasSsyr2StridedBatched_ @@ -17992,13 +19754,20 @@ function hipblasSsyr2StridedBatched_(handle,uplo,n,alpha,x,incx,stridex,y,incy,s module procedure hipblasSsyr2StridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasSsyr2StridedBatched_assumed_rank + module procedure & + hipblasSsyr2StridedBatched_assumed_rank,& + hipblasSsyr2StridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSsyr2StridedBatched_rank_0,& + hipblasSsyr2StridedBatched_rank_0_devptr,& hipblasSsyr2StridedBatched_rank_1,& - hipblasSsyr2StridedBatched_full_rank + hipblasSsyr2StridedBatched_rank_1_devptr,& + hipblasSsyr2StridedBatched_full_rank,& + hipblasSsyr2StridedBatched_full_rank_devptr,& + hipblasSsyr2StridedBatched_strided_rank,& + hipblasSsyr2StridedBatched_strided_rank_devptr #endif #endif end interface @@ -18007,7 +19776,6 @@ function hipblasSsyr2StridedBatched_(handle,uplo,n,alpha,x,incx,stridex,y,incy,s function hipblasDsyr2StridedBatched_(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey,AP,lda, & strideA,batchCount) & bind(c, name="hipblasDsyr2StridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDsyr2StridedBatched_ @@ -18030,13 +19798,20 @@ function hipblasDsyr2StridedBatched_(handle,uplo,n,alpha,x,incx,stridex,y,incy,s module procedure hipblasDsyr2StridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDsyr2StridedBatched_assumed_rank + module procedure & + hipblasDsyr2StridedBatched_assumed_rank,& + hipblasDsyr2StridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDsyr2StridedBatched_rank_0,& + hipblasDsyr2StridedBatched_rank_0_devptr,& hipblasDsyr2StridedBatched_rank_1,& - hipblasDsyr2StridedBatched_full_rank + hipblasDsyr2StridedBatched_rank_1_devptr,& + hipblasDsyr2StridedBatched_full_rank,& + hipblasDsyr2StridedBatched_full_rank_devptr,& + hipblasDsyr2StridedBatched_strided_rank,& + hipblasDsyr2StridedBatched_strided_rank_devptr #endif #endif end interface @@ -18045,7 +19820,6 @@ function hipblasDsyr2StridedBatched_(handle,uplo,n,alpha,x,incx,stridex,y,incy,s function hipblasCsyr2StridedBatched_(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey,AP,lda, & strideA,batchCount) & bind(c, name="hipblasCsyr2StridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCsyr2StridedBatched_ @@ -18068,13 +19842,20 @@ function hipblasCsyr2StridedBatched_(handle,uplo,n,alpha,x,incx,stridex,y,incy,s module procedure hipblasCsyr2StridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCsyr2StridedBatched_assumed_rank + module procedure & + hipblasCsyr2StridedBatched_assumed_rank,& + hipblasCsyr2StridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCsyr2StridedBatched_rank_0,& + hipblasCsyr2StridedBatched_rank_0_devptr,& hipblasCsyr2StridedBatched_rank_1,& - hipblasCsyr2StridedBatched_full_rank + hipblasCsyr2StridedBatched_rank_1_devptr,& + hipblasCsyr2StridedBatched_full_rank,& + hipblasCsyr2StridedBatched_full_rank_devptr,& + hipblasCsyr2StridedBatched_strided_rank,& + hipblasCsyr2StridedBatched_strided_rank_devptr #endif #endif end interface @@ -18083,7 +19864,6 @@ function hipblasCsyr2StridedBatched_(handle,uplo,n,alpha,x,incx,stridex,y,incy,s function hipblasZsyr2StridedBatched_(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey,AP,lda, & strideA,batchCount) & bind(c, name="hipblasZsyr2StridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZsyr2StridedBatched_ @@ -18106,13 +19886,20 @@ function hipblasZsyr2StridedBatched_(handle,uplo,n,alpha,x,incx,stridex,y,incy,s module procedure hipblasZsyr2StridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZsyr2StridedBatched_assumed_rank + module procedure & + hipblasZsyr2StridedBatched_assumed_rank,& + hipblasZsyr2StridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZsyr2StridedBatched_rank_0,& + hipblasZsyr2StridedBatched_rank_0_devptr,& hipblasZsyr2StridedBatched_rank_1,& - hipblasZsyr2StridedBatched_full_rank + hipblasZsyr2StridedBatched_rank_1_devptr,& + hipblasZsyr2StridedBatched_full_rank,& + hipblasZsyr2StridedBatched_full_rank_devptr,& + hipblasZsyr2StridedBatched_strided_rank,& + hipblasZsyr2StridedBatched_strided_rank_devptr #endif #endif end interface @@ -18121,7 +19908,6 @@ function hipblasZsyr2StridedBatched_(handle,uplo,n,alpha,x,incx,stridex,y,incy,s function hipblasSsyr2StridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey,AP, & lda,strideA,batchCount) & bind(c, name="hipblasSsyr2StridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSsyr2StridedBatched_64_ @@ -18144,13 +19930,20 @@ function hipblasSsyr2StridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,y,inc module procedure hipblasSsyr2StridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasSsyr2StridedBatched_64_assumed_rank + module procedure & + hipblasSsyr2StridedBatched_64_assumed_rank,& + hipblasSsyr2StridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSsyr2StridedBatched_64_rank_0,& + hipblasSsyr2StridedBatched_64_rank_0_devptr,& hipblasSsyr2StridedBatched_64_rank_1,& - hipblasSsyr2StridedBatched_64_full_rank + hipblasSsyr2StridedBatched_64_rank_1_devptr,& + hipblasSsyr2StridedBatched_64_full_rank,& + hipblasSsyr2StridedBatched_64_full_rank_devptr,& + hipblasSsyr2StridedBatched_64_strided_rank,& + hipblasSsyr2StridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -18159,7 +19952,6 @@ function hipblasSsyr2StridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,y,inc function hipblasDsyr2StridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey,AP, & lda,strideA,batchCount) & bind(c, name="hipblasDsyr2StridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDsyr2StridedBatched_64_ @@ -18182,13 +19974,20 @@ function hipblasDsyr2StridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,y,inc module procedure hipblasDsyr2StridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDsyr2StridedBatched_64_assumed_rank + module procedure & + hipblasDsyr2StridedBatched_64_assumed_rank,& + hipblasDsyr2StridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDsyr2StridedBatched_64_rank_0,& + hipblasDsyr2StridedBatched_64_rank_0_devptr,& hipblasDsyr2StridedBatched_64_rank_1,& - hipblasDsyr2StridedBatched_64_full_rank + hipblasDsyr2StridedBatched_64_rank_1_devptr,& + hipblasDsyr2StridedBatched_64_full_rank,& + hipblasDsyr2StridedBatched_64_full_rank_devptr,& + hipblasDsyr2StridedBatched_64_strided_rank,& + hipblasDsyr2StridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -18197,7 +19996,6 @@ function hipblasDsyr2StridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,y,inc function hipblasCsyr2StridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey,AP, & lda,strideA,batchCount) & bind(c, name="hipblasCsyr2StridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCsyr2StridedBatched_64_ @@ -18220,13 +20018,20 @@ function hipblasCsyr2StridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,y,inc module procedure hipblasCsyr2StridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCsyr2StridedBatched_64_assumed_rank + module procedure & + hipblasCsyr2StridedBatched_64_assumed_rank,& + hipblasCsyr2StridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCsyr2StridedBatched_64_rank_0,& + hipblasCsyr2StridedBatched_64_rank_0_devptr,& hipblasCsyr2StridedBatched_64_rank_1,& - hipblasCsyr2StridedBatched_64_full_rank + hipblasCsyr2StridedBatched_64_rank_1_devptr,& + hipblasCsyr2StridedBatched_64_full_rank,& + hipblasCsyr2StridedBatched_64_full_rank_devptr,& + hipblasCsyr2StridedBatched_64_strided_rank,& + hipblasCsyr2StridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -18235,7 +20040,6 @@ function hipblasCsyr2StridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,y,inc function hipblasZsyr2StridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey,AP, & lda,strideA,batchCount) & bind(c, name="hipblasZsyr2StridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZsyr2StridedBatched_64_ @@ -18258,20 +20062,26 @@ function hipblasZsyr2StridedBatched_64_(handle,uplo,n,alpha,x,incx,stridex,y,inc module procedure hipblasZsyr2StridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZsyr2StridedBatched_64_assumed_rank + module procedure & + hipblasZsyr2StridedBatched_64_assumed_rank,& + hipblasZsyr2StridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZsyr2StridedBatched_64_rank_0,& + hipblasZsyr2StridedBatched_64_rank_0_devptr,& hipblasZsyr2StridedBatched_64_rank_1,& - hipblasZsyr2StridedBatched_64_full_rank + hipblasZsyr2StridedBatched_64_rank_1_devptr,& + hipblasZsyr2StridedBatched_64_full_rank,& + hipblasZsyr2StridedBatched_64_full_rank_devptr,& + hipblasZsyr2StridedBatched_64_strided_rank,& + hipblasZsyr2StridedBatched_64_strided_rank_devptr #endif #endif end interface interface hipblasStbmv function hipblasStbmv_(handle,uplo,transA,diag,n,k,AP,lda,x,incx) bind(c, name="hipblasStbmv") - use iso_c_binding import implicit none integer(c_int) :: hipblasStbmv_ @@ -18301,7 +20111,6 @@ function hipblasStbmv_(handle,uplo,transA,diag,n,k,AP,lda,x,incx) bind(c, name=" interface hipblasDtbmv function hipblasDtbmv_(handle,uplo,transA,diag,n,k,AP,lda,x,incx) bind(c, name="hipblasDtbmv") - use iso_c_binding import implicit none integer(c_int) :: hipblasDtbmv_ @@ -18331,7 +20140,6 @@ function hipblasDtbmv_(handle,uplo,transA,diag,n,k,AP,lda,x,incx) bind(c, name=" interface hipblasCtbmv function hipblasCtbmv_(handle,uplo,transA,diag,n,k,AP,lda,x,incx) bind(c, name="hipblasCtbmv") - use iso_c_binding import implicit none integer(c_int) :: hipblasCtbmv_ @@ -18361,7 +20169,6 @@ function hipblasCtbmv_(handle,uplo,transA,diag,n,k,AP,lda,x,incx) bind(c, name=" interface hipblasZtbmv function hipblasZtbmv_(handle,uplo,transA,diag,n,k,AP,lda,x,incx) bind(c, name="hipblasZtbmv") - use iso_c_binding import implicit none integer(c_int) :: hipblasZtbmv_ @@ -18392,7 +20199,6 @@ function hipblasZtbmv_(handle,uplo,transA,diag,n,k,AP,lda,x,incx) bind(c, name=" interface hipblasStbmv_64 function hipblasStbmv_64_(handle,uplo,transA,diag,n,k,AP,lda,x,incx) & bind(c, name="hipblasStbmv_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasStbmv_64_ @@ -18423,7 +20229,6 @@ function hipblasStbmv_64_(handle,uplo,transA,diag,n,k,AP,lda,x,incx) & interface hipblasDtbmv_64 function hipblasDtbmv_64_(handle,uplo,transA,diag,n,k,AP,lda,x,incx) & bind(c, name="hipblasDtbmv_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDtbmv_64_ @@ -18454,7 +20259,6 @@ function hipblasDtbmv_64_(handle,uplo,transA,diag,n,k,AP,lda,x,incx) & interface hipblasCtbmv_64 function hipblasCtbmv_64_(handle,uplo,transA,diag,n,k,AP,lda,x,incx) & bind(c, name="hipblasCtbmv_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCtbmv_64_ @@ -18485,7 +20289,6 @@ function hipblasCtbmv_64_(handle,uplo,transA,diag,n,k,AP,lda,x,incx) & interface hipblasZtbmv_64 function hipblasZtbmv_64_(handle,uplo,transA,diag,n,k,AP,lda,x,incx) & bind(c, name="hipblasZtbmv_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZtbmv_64_ @@ -18516,7 +20319,6 @@ function hipblasZtbmv_64_(handle,uplo,transA,diag,n,k,AP,lda,x,incx) & interface hipblasStbmvBatched function hipblasStbmvBatched_(handle,uplo,transA,diag,n,k,AP,lda,x,incx,batchCount) & bind(c, name="hipblasStbmvBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasStbmvBatched_ @@ -18537,7 +20339,6 @@ function hipblasStbmvBatched_(handle,uplo,transA,diag,n,k,AP,lda,x,incx,batchCou interface hipblasDtbmvBatched function hipblasDtbmvBatched_(handle,uplo,transA,diag,n,k,AP,lda,x,incx,batchCount) & bind(c, name="hipblasDtbmvBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDtbmvBatched_ @@ -18558,7 +20359,6 @@ function hipblasDtbmvBatched_(handle,uplo,transA,diag,n,k,AP,lda,x,incx,batchCou interface hipblasCtbmvBatched function hipblasCtbmvBatched_(handle,uplo,transA,diag,n,k,AP,lda,x,incx,batchCount) & bind(c, name="hipblasCtbmvBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCtbmvBatched_ @@ -18579,7 +20379,6 @@ function hipblasCtbmvBatched_(handle,uplo,transA,diag,n,k,AP,lda,x,incx,batchCou interface hipblasZtbmvBatched function hipblasZtbmvBatched_(handle,uplo,transA,diag,n,k,AP,lda,x,incx,batchCount) & bind(c, name="hipblasZtbmvBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZtbmvBatched_ @@ -18600,7 +20399,6 @@ function hipblasZtbmvBatched_(handle,uplo,transA,diag,n,k,AP,lda,x,incx,batchCou interface hipblasStbmvBatched_64 function hipblasStbmvBatched_64_(handle,uplo,transA,diag,n,k,AP,lda,x,incx,batchCount) & bind(c, name="hipblasStbmvBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasStbmvBatched_64_ @@ -18621,7 +20419,6 @@ function hipblasStbmvBatched_64_(handle,uplo,transA,diag,n,k,AP,lda,x,incx,batch interface hipblasDtbmvBatched_64 function hipblasDtbmvBatched_64_(handle,uplo,transA,diag,n,k,AP,lda,x,incx,batchCount) & bind(c, name="hipblasDtbmvBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDtbmvBatched_64_ @@ -18642,7 +20439,6 @@ function hipblasDtbmvBatched_64_(handle,uplo,transA,diag,n,k,AP,lda,x,incx,batch interface hipblasCtbmvBatched_64 function hipblasCtbmvBatched_64_(handle,uplo,transA,diag,n,k,AP,lda,x,incx,batchCount) & bind(c, name="hipblasCtbmvBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCtbmvBatched_64_ @@ -18663,7 +20459,6 @@ function hipblasCtbmvBatched_64_(handle,uplo,transA,diag,n,k,AP,lda,x,incx,batch interface hipblasZtbmvBatched_64 function hipblasZtbmvBatched_64_(handle,uplo,transA,diag,n,k,AP,lda,x,incx,batchCount) & bind(c, name="hipblasZtbmvBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZtbmvBatched_64_ @@ -18685,7 +20480,6 @@ function hipblasZtbmvBatched_64_(handle,uplo,transA,diag,n,k,AP,lda,x,incx,batch function hipblasStbmvStridedBatched_(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & stridex,batchCount) & bind(c, name="hipblasStbmvStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasStbmvStridedBatched_ @@ -18711,7 +20505,8 @@ function hipblasStbmvStridedBatched_(handle,uplo,transA,diag,n,k,AP,lda,strideA, module procedure & hipblasStbmvStridedBatched_rank_0,& hipblasStbmvStridedBatched_rank_1,& - hipblasStbmvStridedBatched_full_rank + hipblasStbmvStridedBatched_full_rank,& + hipblasStbmvStridedBatched_strided_rank #endif #endif end interface @@ -18720,7 +20515,6 @@ function hipblasStbmvStridedBatched_(handle,uplo,transA,diag,n,k,AP,lda,strideA, function hipblasDtbmvStridedBatched_(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & stridex,batchCount) & bind(c, name="hipblasDtbmvStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDtbmvStridedBatched_ @@ -18746,7 +20540,8 @@ function hipblasDtbmvStridedBatched_(handle,uplo,transA,diag,n,k,AP,lda,strideA, module procedure & hipblasDtbmvStridedBatched_rank_0,& hipblasDtbmvStridedBatched_rank_1,& - hipblasDtbmvStridedBatched_full_rank + hipblasDtbmvStridedBatched_full_rank,& + hipblasDtbmvStridedBatched_strided_rank #endif #endif end interface @@ -18755,7 +20550,6 @@ function hipblasDtbmvStridedBatched_(handle,uplo,transA,diag,n,k,AP,lda,strideA, function hipblasCtbmvStridedBatched_(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & stridex,batchCount) & bind(c, name="hipblasCtbmvStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCtbmvStridedBatched_ @@ -18781,7 +20575,8 @@ function hipblasCtbmvStridedBatched_(handle,uplo,transA,diag,n,k,AP,lda,strideA, module procedure & hipblasCtbmvStridedBatched_rank_0,& hipblasCtbmvStridedBatched_rank_1,& - hipblasCtbmvStridedBatched_full_rank + hipblasCtbmvStridedBatched_full_rank,& + hipblasCtbmvStridedBatched_strided_rank #endif #endif end interface @@ -18790,7 +20585,6 @@ function hipblasCtbmvStridedBatched_(handle,uplo,transA,diag,n,k,AP,lda,strideA, function hipblasZtbmvStridedBatched_(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & stridex,batchCount) & bind(c, name="hipblasZtbmvStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZtbmvStridedBatched_ @@ -18816,7 +20610,8 @@ function hipblasZtbmvStridedBatched_(handle,uplo,transA,diag,n,k,AP,lda,strideA, module procedure & hipblasZtbmvStridedBatched_rank_0,& hipblasZtbmvStridedBatched_rank_1,& - hipblasZtbmvStridedBatched_full_rank + hipblasZtbmvStridedBatched_full_rank,& + hipblasZtbmvStridedBatched_strided_rank #endif #endif end interface @@ -18825,7 +20620,6 @@ function hipblasZtbmvStridedBatched_(handle,uplo,transA,diag,n,k,AP,lda,strideA, function hipblasStbmvStridedBatched_64_(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & stridex,batchCount) & bind(c, name="hipblasStbmvStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasStbmvStridedBatched_64_ @@ -18851,7 +20645,8 @@ function hipblasStbmvStridedBatched_64_(handle,uplo,transA,diag,n,k,AP,lda,strid module procedure & hipblasStbmvStridedBatched_64_rank_0,& hipblasStbmvStridedBatched_64_rank_1,& - hipblasStbmvStridedBatched_64_full_rank + hipblasStbmvStridedBatched_64_full_rank,& + hipblasStbmvStridedBatched_64_strided_rank #endif #endif end interface @@ -18860,7 +20655,6 @@ function hipblasStbmvStridedBatched_64_(handle,uplo,transA,diag,n,k,AP,lda,strid function hipblasDtbmvStridedBatched_64_(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & stridex,batchCount) & bind(c, name="hipblasDtbmvStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDtbmvStridedBatched_64_ @@ -18886,7 +20680,8 @@ function hipblasDtbmvStridedBatched_64_(handle,uplo,transA,diag,n,k,AP,lda,strid module procedure & hipblasDtbmvStridedBatched_64_rank_0,& hipblasDtbmvStridedBatched_64_rank_1,& - hipblasDtbmvStridedBatched_64_full_rank + hipblasDtbmvStridedBatched_64_full_rank,& + hipblasDtbmvStridedBatched_64_strided_rank #endif #endif end interface @@ -18895,7 +20690,6 @@ function hipblasDtbmvStridedBatched_64_(handle,uplo,transA,diag,n,k,AP,lda,strid function hipblasCtbmvStridedBatched_64_(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & stridex,batchCount) & bind(c, name="hipblasCtbmvStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCtbmvStridedBatched_64_ @@ -18921,7 +20715,8 @@ function hipblasCtbmvStridedBatched_64_(handle,uplo,transA,diag,n,k,AP,lda,strid module procedure & hipblasCtbmvStridedBatched_64_rank_0,& hipblasCtbmvStridedBatched_64_rank_1,& - hipblasCtbmvStridedBatched_64_full_rank + hipblasCtbmvStridedBatched_64_full_rank,& + hipblasCtbmvStridedBatched_64_strided_rank #endif #endif end interface @@ -18930,7 +20725,6 @@ function hipblasCtbmvStridedBatched_64_(handle,uplo,transA,diag,n,k,AP,lda,strid function hipblasZtbmvStridedBatched_64_(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & stridex,batchCount) & bind(c, name="hipblasZtbmvStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZtbmvStridedBatched_64_ @@ -18956,14 +20750,14 @@ function hipblasZtbmvStridedBatched_64_(handle,uplo,transA,diag,n,k,AP,lda,strid module procedure & hipblasZtbmvStridedBatched_64_rank_0,& hipblasZtbmvStridedBatched_64_rank_1,& - hipblasZtbmvStridedBatched_64_full_rank + hipblasZtbmvStridedBatched_64_full_rank,& + hipblasZtbmvStridedBatched_64_strided_rank #endif #endif end interface interface hipblasStbsv function hipblasStbsv_(handle,uplo,transA,diag,n,k,AP,lda,x,incx) bind(c, name="hipblasStbsv") - use iso_c_binding import implicit none integer(c_int) :: hipblasStbsv_ @@ -18993,7 +20787,6 @@ function hipblasStbsv_(handle,uplo,transA,diag,n,k,AP,lda,x,incx) bind(c, name=" interface hipblasDtbsv function hipblasDtbsv_(handle,uplo,transA,diag,n,k,AP,lda,x,incx) bind(c, name="hipblasDtbsv") - use iso_c_binding import implicit none integer(c_int) :: hipblasDtbsv_ @@ -19023,7 +20816,6 @@ function hipblasDtbsv_(handle,uplo,transA,diag,n,k,AP,lda,x,incx) bind(c, name=" interface hipblasCtbsv function hipblasCtbsv_(handle,uplo,transA,diag,n,k,AP,lda,x,incx) bind(c, name="hipblasCtbsv") - use iso_c_binding import implicit none integer(c_int) :: hipblasCtbsv_ @@ -19053,7 +20845,6 @@ function hipblasCtbsv_(handle,uplo,transA,diag,n,k,AP,lda,x,incx) bind(c, name=" interface hipblasZtbsv function hipblasZtbsv_(handle,uplo,transA,diag,n,k,AP,lda,x,incx) bind(c, name="hipblasZtbsv") - use iso_c_binding import implicit none integer(c_int) :: hipblasZtbsv_ @@ -19084,7 +20875,6 @@ function hipblasZtbsv_(handle,uplo,transA,diag,n,k,AP,lda,x,incx) bind(c, name=" interface hipblasStbsv_64 function hipblasStbsv_64_(handle,uplo,transA,diag,n,k,AP,lda,x,incx) & bind(c, name="hipblasStbsv_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasStbsv_64_ @@ -19115,7 +20905,6 @@ function hipblasStbsv_64_(handle,uplo,transA,diag,n,k,AP,lda,x,incx) & interface hipblasDtbsv_64 function hipblasDtbsv_64_(handle,uplo,transA,diag,n,k,AP,lda,x,incx) & bind(c, name="hipblasDtbsv_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDtbsv_64_ @@ -19146,7 +20935,6 @@ function hipblasDtbsv_64_(handle,uplo,transA,diag,n,k,AP,lda,x,incx) & interface hipblasCtbsv_64 function hipblasCtbsv_64_(handle,uplo,transA,diag,n,k,AP,lda,x,incx) & bind(c, name="hipblasCtbsv_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCtbsv_64_ @@ -19177,7 +20965,6 @@ function hipblasCtbsv_64_(handle,uplo,transA,diag,n,k,AP,lda,x,incx) & interface hipblasZtbsv_64 function hipblasZtbsv_64_(handle,uplo,transA,diag,n,k,AP,lda,x,incx) & bind(c, name="hipblasZtbsv_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZtbsv_64_ @@ -19208,7 +20995,6 @@ function hipblasZtbsv_64_(handle,uplo,transA,diag,n,k,AP,lda,x,incx) & interface hipblasStbsvBatched function hipblasStbsvBatched_(handle,uplo,transA,diag,n,k,AP,lda,x,incx,batchCount) & bind(c, name="hipblasStbsvBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasStbsvBatched_ @@ -19229,7 +21015,6 @@ function hipblasStbsvBatched_(handle,uplo,transA,diag,n,k,AP,lda,x,incx,batchCou interface hipblasDtbsvBatched function hipblasDtbsvBatched_(handle,uplo,transA,diag,n,k,AP,lda,x,incx,batchCount) & bind(c, name="hipblasDtbsvBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDtbsvBatched_ @@ -19250,7 +21035,6 @@ function hipblasDtbsvBatched_(handle,uplo,transA,diag,n,k,AP,lda,x,incx,batchCou interface hipblasCtbsvBatched function hipblasCtbsvBatched_(handle,uplo,transA,diag,n,k,AP,lda,x,incx,batchCount) & bind(c, name="hipblasCtbsvBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCtbsvBatched_ @@ -19271,7 +21055,6 @@ function hipblasCtbsvBatched_(handle,uplo,transA,diag,n,k,AP,lda,x,incx,batchCou interface hipblasZtbsvBatched function hipblasZtbsvBatched_(handle,uplo,transA,diag,n,k,AP,lda,x,incx,batchCount) & bind(c, name="hipblasZtbsvBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZtbsvBatched_ @@ -19292,7 +21075,6 @@ function hipblasZtbsvBatched_(handle,uplo,transA,diag,n,k,AP,lda,x,incx,batchCou interface hipblasStbsvBatched_64 function hipblasStbsvBatched_64_(handle,uplo,transA,diag,n,k,AP,lda,x,incx,batchCount) & bind(c, name="hipblasStbsvBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasStbsvBatched_64_ @@ -19313,7 +21095,6 @@ function hipblasStbsvBatched_64_(handle,uplo,transA,diag,n,k,AP,lda,x,incx,batch interface hipblasDtbsvBatched_64 function hipblasDtbsvBatched_64_(handle,uplo,transA,diag,n,k,AP,lda,x,incx,batchCount) & bind(c, name="hipblasDtbsvBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDtbsvBatched_64_ @@ -19334,7 +21115,6 @@ function hipblasDtbsvBatched_64_(handle,uplo,transA,diag,n,k,AP,lda,x,incx,batch interface hipblasCtbsvBatched_64 function hipblasCtbsvBatched_64_(handle,uplo,transA,diag,n,k,AP,lda,x,incx,batchCount) & bind(c, name="hipblasCtbsvBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCtbsvBatched_64_ @@ -19355,7 +21135,6 @@ function hipblasCtbsvBatched_64_(handle,uplo,transA,diag,n,k,AP,lda,x,incx,batch interface hipblasZtbsvBatched_64 function hipblasZtbsvBatched_64_(handle,uplo,transA,diag,n,k,AP,lda,x,incx,batchCount) & bind(c, name="hipblasZtbsvBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZtbsvBatched_64_ @@ -19377,7 +21156,6 @@ function hipblasZtbsvBatched_64_(handle,uplo,transA,diag,n,k,AP,lda,x,incx,batch function hipblasStbsvStridedBatched_(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & stridex,batchCount) & bind(c, name="hipblasStbsvStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasStbsvStridedBatched_ @@ -19403,7 +21181,8 @@ function hipblasStbsvStridedBatched_(handle,uplo,transA,diag,n,k,AP,lda,strideA, module procedure & hipblasStbsvStridedBatched_rank_0,& hipblasStbsvStridedBatched_rank_1,& - hipblasStbsvStridedBatched_full_rank + hipblasStbsvStridedBatched_full_rank,& + hipblasStbsvStridedBatched_strided_rank #endif #endif end interface @@ -19412,7 +21191,6 @@ function hipblasStbsvStridedBatched_(handle,uplo,transA,diag,n,k,AP,lda,strideA, function hipblasDtbsvStridedBatched_(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & stridex,batchCount) & bind(c, name="hipblasDtbsvStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDtbsvStridedBatched_ @@ -19438,7 +21216,8 @@ function hipblasDtbsvStridedBatched_(handle,uplo,transA,diag,n,k,AP,lda,strideA, module procedure & hipblasDtbsvStridedBatched_rank_0,& hipblasDtbsvStridedBatched_rank_1,& - hipblasDtbsvStridedBatched_full_rank + hipblasDtbsvStridedBatched_full_rank,& + hipblasDtbsvStridedBatched_strided_rank #endif #endif end interface @@ -19447,7 +21226,6 @@ function hipblasDtbsvStridedBatched_(handle,uplo,transA,diag,n,k,AP,lda,strideA, function hipblasCtbsvStridedBatched_(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & stridex,batchCount) & bind(c, name="hipblasCtbsvStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCtbsvStridedBatched_ @@ -19473,7 +21251,8 @@ function hipblasCtbsvStridedBatched_(handle,uplo,transA,diag,n,k,AP,lda,strideA, module procedure & hipblasCtbsvStridedBatched_rank_0,& hipblasCtbsvStridedBatched_rank_1,& - hipblasCtbsvStridedBatched_full_rank + hipblasCtbsvStridedBatched_full_rank,& + hipblasCtbsvStridedBatched_strided_rank #endif #endif end interface @@ -19482,7 +21261,6 @@ function hipblasCtbsvStridedBatched_(handle,uplo,transA,diag,n,k,AP,lda,strideA, function hipblasZtbsvStridedBatched_(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & stridex,batchCount) & bind(c, name="hipblasZtbsvStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZtbsvStridedBatched_ @@ -19508,7 +21286,8 @@ function hipblasZtbsvStridedBatched_(handle,uplo,transA,diag,n,k,AP,lda,strideA, module procedure & hipblasZtbsvStridedBatched_rank_0,& hipblasZtbsvStridedBatched_rank_1,& - hipblasZtbsvStridedBatched_full_rank + hipblasZtbsvStridedBatched_full_rank,& + hipblasZtbsvStridedBatched_strided_rank #endif #endif end interface @@ -19517,7 +21296,6 @@ function hipblasZtbsvStridedBatched_(handle,uplo,transA,diag,n,k,AP,lda,strideA, function hipblasStbsvStridedBatched_64_(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & stridex,batchCount) & bind(c, name="hipblasStbsvStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasStbsvStridedBatched_64_ @@ -19543,7 +21321,8 @@ function hipblasStbsvStridedBatched_64_(handle,uplo,transA,diag,n,k,AP,lda,strid module procedure & hipblasStbsvStridedBatched_64_rank_0,& hipblasStbsvStridedBatched_64_rank_1,& - hipblasStbsvStridedBatched_64_full_rank + hipblasStbsvStridedBatched_64_full_rank,& + hipblasStbsvStridedBatched_64_strided_rank #endif #endif end interface @@ -19552,7 +21331,6 @@ function hipblasStbsvStridedBatched_64_(handle,uplo,transA,diag,n,k,AP,lda,strid function hipblasDtbsvStridedBatched_64_(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & stridex,batchCount) & bind(c, name="hipblasDtbsvStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDtbsvStridedBatched_64_ @@ -19578,7 +21356,8 @@ function hipblasDtbsvStridedBatched_64_(handle,uplo,transA,diag,n,k,AP,lda,strid module procedure & hipblasDtbsvStridedBatched_64_rank_0,& hipblasDtbsvStridedBatched_64_rank_1,& - hipblasDtbsvStridedBatched_64_full_rank + hipblasDtbsvStridedBatched_64_full_rank,& + hipblasDtbsvStridedBatched_64_strided_rank #endif #endif end interface @@ -19587,7 +21366,6 @@ function hipblasDtbsvStridedBatched_64_(handle,uplo,transA,diag,n,k,AP,lda,strid function hipblasCtbsvStridedBatched_64_(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & stridex,batchCount) & bind(c, name="hipblasCtbsvStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCtbsvStridedBatched_64_ @@ -19613,7 +21391,8 @@ function hipblasCtbsvStridedBatched_64_(handle,uplo,transA,diag,n,k,AP,lda,strid module procedure & hipblasCtbsvStridedBatched_64_rank_0,& hipblasCtbsvStridedBatched_64_rank_1,& - hipblasCtbsvStridedBatched_64_full_rank + hipblasCtbsvStridedBatched_64_full_rank,& + hipblasCtbsvStridedBatched_64_strided_rank #endif #endif end interface @@ -19622,7 +21401,6 @@ function hipblasCtbsvStridedBatched_64_(handle,uplo,transA,diag,n,k,AP,lda,strid function hipblasZtbsvStridedBatched_64_(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & stridex,batchCount) & bind(c, name="hipblasZtbsvStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZtbsvStridedBatched_64_ @@ -19648,14 +21426,14 @@ function hipblasZtbsvStridedBatched_64_(handle,uplo,transA,diag,n,k,AP,lda,strid module procedure & hipblasZtbsvStridedBatched_64_rank_0,& hipblasZtbsvStridedBatched_64_rank_1,& - hipblasZtbsvStridedBatched_64_full_rank + hipblasZtbsvStridedBatched_64_full_rank,& + hipblasZtbsvStridedBatched_64_strided_rank #endif #endif end interface interface hipblasStpmv function hipblasStpmv_(handle,uplo,transA,diag,n,AP,x,incx) bind(c, name="hipblasStpmv") - use iso_c_binding import implicit none integer(c_int) :: hipblasStpmv_ @@ -19682,7 +21460,6 @@ function hipblasStpmv_(handle,uplo,transA,diag,n,AP,x,incx) bind(c, name="hipbla interface hipblasDtpmv function hipblasDtpmv_(handle,uplo,transA,diag,n,AP,x,incx) bind(c, name="hipblasDtpmv") - use iso_c_binding import implicit none integer(c_int) :: hipblasDtpmv_ @@ -19709,7 +21486,6 @@ function hipblasDtpmv_(handle,uplo,transA,diag,n,AP,x,incx) bind(c, name="hipbla interface hipblasCtpmv function hipblasCtpmv_(handle,uplo,transA,diag,n,AP,x,incx) bind(c, name="hipblasCtpmv") - use iso_c_binding import implicit none integer(c_int) :: hipblasCtpmv_ @@ -19736,7 +21512,6 @@ function hipblasCtpmv_(handle,uplo,transA,diag,n,AP,x,incx) bind(c, name="hipbla interface hipblasZtpmv function hipblasZtpmv_(handle,uplo,transA,diag,n,AP,x,incx) bind(c, name="hipblasZtpmv") - use iso_c_binding import implicit none integer(c_int) :: hipblasZtpmv_ @@ -19763,7 +21538,6 @@ function hipblasZtpmv_(handle,uplo,transA,diag,n,AP,x,incx) bind(c, name="hipbla interface hipblasStpmv_64 function hipblasStpmv_64_(handle,uplo,transA,diag,n,AP,x,incx) bind(c, name="hipblasStpmv_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasStpmv_64_ @@ -19790,7 +21564,6 @@ function hipblasStpmv_64_(handle,uplo,transA,diag,n,AP,x,incx) bind(c, name="hip interface hipblasDtpmv_64 function hipblasDtpmv_64_(handle,uplo,transA,diag,n,AP,x,incx) bind(c, name="hipblasDtpmv_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDtpmv_64_ @@ -19817,7 +21590,6 @@ function hipblasDtpmv_64_(handle,uplo,transA,diag,n,AP,x,incx) bind(c, name="hip interface hipblasCtpmv_64 function hipblasCtpmv_64_(handle,uplo,transA,diag,n,AP,x,incx) bind(c, name="hipblasCtpmv_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCtpmv_64_ @@ -19844,7 +21616,6 @@ function hipblasCtpmv_64_(handle,uplo,transA,diag,n,AP,x,incx) bind(c, name="hip interface hipblasZtpmv_64 function hipblasZtpmv_64_(handle,uplo,transA,diag,n,AP,x,incx) bind(c, name="hipblasZtpmv_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZtpmv_64_ @@ -19872,7 +21643,6 @@ function hipblasZtpmv_64_(handle,uplo,transA,diag,n,AP,x,incx) bind(c, name="hip interface hipblasStpmvBatched function hipblasStpmvBatched_(handle,uplo,transA,diag,n,AP,x,incx,batchCount) & bind(c, name="hipblasStpmvBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasStpmvBatched_ @@ -19891,7 +21661,6 @@ function hipblasStpmvBatched_(handle,uplo,transA,diag,n,AP,x,incx,batchCount) & interface hipblasDtpmvBatched function hipblasDtpmvBatched_(handle,uplo,transA,diag,n,AP,x,incx,batchCount) & bind(c, name="hipblasDtpmvBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDtpmvBatched_ @@ -19910,7 +21679,6 @@ function hipblasDtpmvBatched_(handle,uplo,transA,diag,n,AP,x,incx,batchCount) & interface hipblasCtpmvBatched function hipblasCtpmvBatched_(handle,uplo,transA,diag,n,AP,x,incx,batchCount) & bind(c, name="hipblasCtpmvBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCtpmvBatched_ @@ -19929,7 +21697,6 @@ function hipblasCtpmvBatched_(handle,uplo,transA,diag,n,AP,x,incx,batchCount) & interface hipblasZtpmvBatched function hipblasZtpmvBatched_(handle,uplo,transA,diag,n,AP,x,incx,batchCount) & bind(c, name="hipblasZtpmvBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZtpmvBatched_ @@ -19948,7 +21715,6 @@ function hipblasZtpmvBatched_(handle,uplo,transA,diag,n,AP,x,incx,batchCount) & interface hipblasStpmvBatched_64 function hipblasStpmvBatched_64_(handle,uplo,transA,diag,n,AP,x,incx,batchCount) & bind(c, name="hipblasStpmvBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasStpmvBatched_64_ @@ -19967,7 +21733,6 @@ function hipblasStpmvBatched_64_(handle,uplo,transA,diag,n,AP,x,incx,batchCount) interface hipblasDtpmvBatched_64 function hipblasDtpmvBatched_64_(handle,uplo,transA,diag,n,AP,x,incx,batchCount) & bind(c, name="hipblasDtpmvBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDtpmvBatched_64_ @@ -19986,7 +21751,6 @@ function hipblasDtpmvBatched_64_(handle,uplo,transA,diag,n,AP,x,incx,batchCount) interface hipblasCtpmvBatched_64 function hipblasCtpmvBatched_64_(handle,uplo,transA,diag,n,AP,x,incx,batchCount) & bind(c, name="hipblasCtpmvBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCtpmvBatched_64_ @@ -20005,7 +21769,6 @@ function hipblasCtpmvBatched_64_(handle,uplo,transA,diag,n,AP,x,incx,batchCount) interface hipblasZtpmvBatched_64 function hipblasZtpmvBatched_64_(handle,uplo,transA,diag,n,AP,x,incx,batchCount) & bind(c, name="hipblasZtpmvBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZtpmvBatched_64_ @@ -20025,7 +21788,6 @@ function hipblasZtpmvBatched_64_(handle,uplo,transA,diag,n,AP,x,incx,batchCount) function hipblasStpmvStridedBatched_(handle,uplo,transA,diag,n,AP,strideA,x,incx,stridex, & batchCount) & bind(c, name="hipblasStpmvStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasStpmvStridedBatched_ @@ -20048,7 +21810,8 @@ function hipblasStpmvStridedBatched_(handle,uplo,transA,diag,n,AP,strideA,x,incx #ifdef USE_ASSUMED_SHAPE module procedure & hipblasStpmvStridedBatched_rank_0,& - hipblasStpmvStridedBatched_rank_1 + hipblasStpmvStridedBatched_rank_1,& + hipblasStpmvStridedBatched_strided_rank #endif #endif end interface @@ -20057,7 +21820,6 @@ function hipblasStpmvStridedBatched_(handle,uplo,transA,diag,n,AP,strideA,x,incx function hipblasDtpmvStridedBatched_(handle,uplo,transA,diag,n,AP,strideA,x,incx,stridex, & batchCount) & bind(c, name="hipblasDtpmvStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDtpmvStridedBatched_ @@ -20080,7 +21842,8 @@ function hipblasDtpmvStridedBatched_(handle,uplo,transA,diag,n,AP,strideA,x,incx #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDtpmvStridedBatched_rank_0,& - hipblasDtpmvStridedBatched_rank_1 + hipblasDtpmvStridedBatched_rank_1,& + hipblasDtpmvStridedBatched_strided_rank #endif #endif end interface @@ -20089,7 +21852,6 @@ function hipblasDtpmvStridedBatched_(handle,uplo,transA,diag,n,AP,strideA,x,incx function hipblasCtpmvStridedBatched_(handle,uplo,transA,diag,n,AP,strideA,x,incx,stridex, & batchCount) & bind(c, name="hipblasCtpmvStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCtpmvStridedBatched_ @@ -20112,7 +21874,8 @@ function hipblasCtpmvStridedBatched_(handle,uplo,transA,diag,n,AP,strideA,x,incx #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCtpmvStridedBatched_rank_0,& - hipblasCtpmvStridedBatched_rank_1 + hipblasCtpmvStridedBatched_rank_1,& + hipblasCtpmvStridedBatched_strided_rank #endif #endif end interface @@ -20121,7 +21884,6 @@ function hipblasCtpmvStridedBatched_(handle,uplo,transA,diag,n,AP,strideA,x,incx function hipblasZtpmvStridedBatched_(handle,uplo,transA,diag,n,AP,strideA,x,incx,stridex, & batchCount) & bind(c, name="hipblasZtpmvStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZtpmvStridedBatched_ @@ -20144,7 +21906,8 @@ function hipblasZtpmvStridedBatched_(handle,uplo,transA,diag,n,AP,strideA,x,incx #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZtpmvStridedBatched_rank_0,& - hipblasZtpmvStridedBatched_rank_1 + hipblasZtpmvStridedBatched_rank_1,& + hipblasZtpmvStridedBatched_strided_rank #endif #endif end interface @@ -20153,7 +21916,6 @@ function hipblasZtpmvStridedBatched_(handle,uplo,transA,diag,n,AP,strideA,x,incx function hipblasStpmvStridedBatched_64_(handle,uplo,transA,diag,n,AP,strideA,x,incx,stridex, & batchCount) & bind(c, name="hipblasStpmvStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasStpmvStridedBatched_64_ @@ -20176,7 +21938,8 @@ function hipblasStpmvStridedBatched_64_(handle,uplo,transA,diag,n,AP,strideA,x,i #ifdef USE_ASSUMED_SHAPE module procedure & hipblasStpmvStridedBatched_64_rank_0,& - hipblasStpmvStridedBatched_64_rank_1 + hipblasStpmvStridedBatched_64_rank_1,& + hipblasStpmvStridedBatched_64_strided_rank #endif #endif end interface @@ -20185,7 +21948,6 @@ function hipblasStpmvStridedBatched_64_(handle,uplo,transA,diag,n,AP,strideA,x,i function hipblasDtpmvStridedBatched_64_(handle,uplo,transA,diag,n,AP,strideA,x,incx,stridex, & batchCount) & bind(c, name="hipblasDtpmvStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDtpmvStridedBatched_64_ @@ -20208,7 +21970,8 @@ function hipblasDtpmvStridedBatched_64_(handle,uplo,transA,diag,n,AP,strideA,x,i #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDtpmvStridedBatched_64_rank_0,& - hipblasDtpmvStridedBatched_64_rank_1 + hipblasDtpmvStridedBatched_64_rank_1,& + hipblasDtpmvStridedBatched_64_strided_rank #endif #endif end interface @@ -20217,7 +21980,6 @@ function hipblasDtpmvStridedBatched_64_(handle,uplo,transA,diag,n,AP,strideA,x,i function hipblasCtpmvStridedBatched_64_(handle,uplo,transA,diag,n,AP,strideA,x,incx,stridex, & batchCount) & bind(c, name="hipblasCtpmvStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCtpmvStridedBatched_64_ @@ -20240,7 +22002,8 @@ function hipblasCtpmvStridedBatched_64_(handle,uplo,transA,diag,n,AP,strideA,x,i #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCtpmvStridedBatched_64_rank_0,& - hipblasCtpmvStridedBatched_64_rank_1 + hipblasCtpmvStridedBatched_64_rank_1,& + hipblasCtpmvStridedBatched_64_strided_rank #endif #endif end interface @@ -20249,7 +22012,6 @@ function hipblasCtpmvStridedBatched_64_(handle,uplo,transA,diag,n,AP,strideA,x,i function hipblasZtpmvStridedBatched_64_(handle,uplo,transA,diag,n,AP,strideA,x,incx,stridex, & batchCount) & bind(c, name="hipblasZtpmvStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZtpmvStridedBatched_64_ @@ -20272,14 +22034,14 @@ function hipblasZtpmvStridedBatched_64_(handle,uplo,transA,diag,n,AP,strideA,x,i #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZtpmvStridedBatched_64_rank_0,& - hipblasZtpmvStridedBatched_64_rank_1 + hipblasZtpmvStridedBatched_64_rank_1,& + hipblasZtpmvStridedBatched_64_strided_rank #endif #endif end interface interface hipblasStpsv function hipblasStpsv_(handle,uplo,transA,diag,n,AP,x,incx) bind(c, name="hipblasStpsv") - use iso_c_binding import implicit none integer(c_int) :: hipblasStpsv_ @@ -20306,7 +22068,6 @@ function hipblasStpsv_(handle,uplo,transA,diag,n,AP,x,incx) bind(c, name="hipbla interface hipblasDtpsv function hipblasDtpsv_(handle,uplo,transA,diag,n,AP,x,incx) bind(c, name="hipblasDtpsv") - use iso_c_binding import implicit none integer(c_int) :: hipblasDtpsv_ @@ -20333,7 +22094,6 @@ function hipblasDtpsv_(handle,uplo,transA,diag,n,AP,x,incx) bind(c, name="hipbla interface hipblasCtpsv function hipblasCtpsv_(handle,uplo,transA,diag,n,AP,x,incx) bind(c, name="hipblasCtpsv") - use iso_c_binding import implicit none integer(c_int) :: hipblasCtpsv_ @@ -20360,7 +22120,6 @@ function hipblasCtpsv_(handle,uplo,transA,diag,n,AP,x,incx) bind(c, name="hipbla interface hipblasZtpsv function hipblasZtpsv_(handle,uplo,transA,diag,n,AP,x,incx) bind(c, name="hipblasZtpsv") - use iso_c_binding import implicit none integer(c_int) :: hipblasZtpsv_ @@ -20387,7 +22146,6 @@ function hipblasZtpsv_(handle,uplo,transA,diag,n,AP,x,incx) bind(c, name="hipbla interface hipblasStpsv_64 function hipblasStpsv_64_(handle,uplo,transA,diag,n,AP,x,incx) bind(c, name="hipblasStpsv_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasStpsv_64_ @@ -20414,7 +22172,6 @@ function hipblasStpsv_64_(handle,uplo,transA,diag,n,AP,x,incx) bind(c, name="hip interface hipblasDtpsv_64 function hipblasDtpsv_64_(handle,uplo,transA,diag,n,AP,x,incx) bind(c, name="hipblasDtpsv_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDtpsv_64_ @@ -20441,7 +22198,6 @@ function hipblasDtpsv_64_(handle,uplo,transA,diag,n,AP,x,incx) bind(c, name="hip interface hipblasCtpsv_64 function hipblasCtpsv_64_(handle,uplo,transA,diag,n,AP,x,incx) bind(c, name="hipblasCtpsv_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCtpsv_64_ @@ -20468,7 +22224,6 @@ function hipblasCtpsv_64_(handle,uplo,transA,diag,n,AP,x,incx) bind(c, name="hip interface hipblasZtpsv_64 function hipblasZtpsv_64_(handle,uplo,transA,diag,n,AP,x,incx) bind(c, name="hipblasZtpsv_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZtpsv_64_ @@ -20496,7 +22251,6 @@ function hipblasZtpsv_64_(handle,uplo,transA,diag,n,AP,x,incx) bind(c, name="hip interface hipblasStpsvBatched function hipblasStpsvBatched_(handle,uplo,transA,diag,n,AP,x,incx,batchCount) & bind(c, name="hipblasStpsvBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasStpsvBatched_ @@ -20515,7 +22269,6 @@ function hipblasStpsvBatched_(handle,uplo,transA,diag,n,AP,x,incx,batchCount) & interface hipblasDtpsvBatched function hipblasDtpsvBatched_(handle,uplo,transA,diag,n,AP,x,incx,batchCount) & bind(c, name="hipblasDtpsvBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDtpsvBatched_ @@ -20534,7 +22287,6 @@ function hipblasDtpsvBatched_(handle,uplo,transA,diag,n,AP,x,incx,batchCount) & interface hipblasCtpsvBatched function hipblasCtpsvBatched_(handle,uplo,transA,diag,n,AP,x,incx,batchCount) & bind(c, name="hipblasCtpsvBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCtpsvBatched_ @@ -20553,7 +22305,6 @@ function hipblasCtpsvBatched_(handle,uplo,transA,diag,n,AP,x,incx,batchCount) & interface hipblasZtpsvBatched function hipblasZtpsvBatched_(handle,uplo,transA,diag,n,AP,x,incx,batchCount) & bind(c, name="hipblasZtpsvBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZtpsvBatched_ @@ -20572,7 +22323,6 @@ function hipblasZtpsvBatched_(handle,uplo,transA,diag,n,AP,x,incx,batchCount) & interface hipblasStpsvBatched_64 function hipblasStpsvBatched_64_(handle,uplo,transA,diag,n,AP,x,incx,batchCount) & bind(c, name="hipblasStpsvBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasStpsvBatched_64_ @@ -20591,7 +22341,6 @@ function hipblasStpsvBatched_64_(handle,uplo,transA,diag,n,AP,x,incx,batchCount) interface hipblasDtpsvBatched_64 function hipblasDtpsvBatched_64_(handle,uplo,transA,diag,n,AP,x,incx,batchCount) & bind(c, name="hipblasDtpsvBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDtpsvBatched_64_ @@ -20610,7 +22359,6 @@ function hipblasDtpsvBatched_64_(handle,uplo,transA,diag,n,AP,x,incx,batchCount) interface hipblasCtpsvBatched_64 function hipblasCtpsvBatched_64_(handle,uplo,transA,diag,n,AP,x,incx,batchCount) & bind(c, name="hipblasCtpsvBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCtpsvBatched_64_ @@ -20629,7 +22377,6 @@ function hipblasCtpsvBatched_64_(handle,uplo,transA,diag,n,AP,x,incx,batchCount) interface hipblasZtpsvBatched_64 function hipblasZtpsvBatched_64_(handle,uplo,transA,diag,n,AP,x,incx,batchCount) & bind(c, name="hipblasZtpsvBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZtpsvBatched_64_ @@ -20649,7 +22396,6 @@ function hipblasZtpsvBatched_64_(handle,uplo,transA,diag,n,AP,x,incx,batchCount) function hipblasStpsvStridedBatched_(handle,uplo,transA,diag,n,AP,strideA,x,incx,stridex, & batchCount) & bind(c, name="hipblasStpsvStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasStpsvStridedBatched_ @@ -20672,7 +22418,8 @@ function hipblasStpsvStridedBatched_(handle,uplo,transA,diag,n,AP,strideA,x,incx #ifdef USE_ASSUMED_SHAPE module procedure & hipblasStpsvStridedBatched_rank_0,& - hipblasStpsvStridedBatched_rank_1 + hipblasStpsvStridedBatched_rank_1,& + hipblasStpsvStridedBatched_strided_rank #endif #endif end interface @@ -20681,7 +22428,6 @@ function hipblasStpsvStridedBatched_(handle,uplo,transA,diag,n,AP,strideA,x,incx function hipblasDtpsvStridedBatched_(handle,uplo,transA,diag,n,AP,strideA,x,incx,stridex, & batchCount) & bind(c, name="hipblasDtpsvStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDtpsvStridedBatched_ @@ -20704,7 +22450,8 @@ function hipblasDtpsvStridedBatched_(handle,uplo,transA,diag,n,AP,strideA,x,incx #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDtpsvStridedBatched_rank_0,& - hipblasDtpsvStridedBatched_rank_1 + hipblasDtpsvStridedBatched_rank_1,& + hipblasDtpsvStridedBatched_strided_rank #endif #endif end interface @@ -20713,7 +22460,6 @@ function hipblasDtpsvStridedBatched_(handle,uplo,transA,diag,n,AP,strideA,x,incx function hipblasCtpsvStridedBatched_(handle,uplo,transA,diag,n,AP,strideA,x,incx,stridex, & batchCount) & bind(c, name="hipblasCtpsvStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCtpsvStridedBatched_ @@ -20736,7 +22482,8 @@ function hipblasCtpsvStridedBatched_(handle,uplo,transA,diag,n,AP,strideA,x,incx #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCtpsvStridedBatched_rank_0,& - hipblasCtpsvStridedBatched_rank_1 + hipblasCtpsvStridedBatched_rank_1,& + hipblasCtpsvStridedBatched_strided_rank #endif #endif end interface @@ -20745,7 +22492,6 @@ function hipblasCtpsvStridedBatched_(handle,uplo,transA,diag,n,AP,strideA,x,incx function hipblasZtpsvStridedBatched_(handle,uplo,transA,diag,n,AP,strideA,x,incx,stridex, & batchCount) & bind(c, name="hipblasZtpsvStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZtpsvStridedBatched_ @@ -20768,7 +22514,8 @@ function hipblasZtpsvStridedBatched_(handle,uplo,transA,diag,n,AP,strideA,x,incx #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZtpsvStridedBatched_rank_0,& - hipblasZtpsvStridedBatched_rank_1 + hipblasZtpsvStridedBatched_rank_1,& + hipblasZtpsvStridedBatched_strided_rank #endif #endif end interface @@ -20777,7 +22524,6 @@ function hipblasZtpsvStridedBatched_(handle,uplo,transA,diag,n,AP,strideA,x,incx function hipblasStpsvStridedBatched_64_(handle,uplo,transA,diag,n,AP,strideA,x,incx,stridex, & batchCount) & bind(c, name="hipblasStpsvStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasStpsvStridedBatched_64_ @@ -20800,7 +22546,8 @@ function hipblasStpsvStridedBatched_64_(handle,uplo,transA,diag,n,AP,strideA,x,i #ifdef USE_ASSUMED_SHAPE module procedure & hipblasStpsvStridedBatched_64_rank_0,& - hipblasStpsvStridedBatched_64_rank_1 + hipblasStpsvStridedBatched_64_rank_1,& + hipblasStpsvStridedBatched_64_strided_rank #endif #endif end interface @@ -20809,7 +22556,6 @@ function hipblasStpsvStridedBatched_64_(handle,uplo,transA,diag,n,AP,strideA,x,i function hipblasDtpsvStridedBatched_64_(handle,uplo,transA,diag,n,AP,strideA,x,incx,stridex, & batchCount) & bind(c, name="hipblasDtpsvStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDtpsvStridedBatched_64_ @@ -20832,7 +22578,8 @@ function hipblasDtpsvStridedBatched_64_(handle,uplo,transA,diag,n,AP,strideA,x,i #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDtpsvStridedBatched_64_rank_0,& - hipblasDtpsvStridedBatched_64_rank_1 + hipblasDtpsvStridedBatched_64_rank_1,& + hipblasDtpsvStridedBatched_64_strided_rank #endif #endif end interface @@ -20841,7 +22588,6 @@ function hipblasDtpsvStridedBatched_64_(handle,uplo,transA,diag,n,AP,strideA,x,i function hipblasCtpsvStridedBatched_64_(handle,uplo,transA,diag,n,AP,strideA,x,incx,stridex, & batchCount) & bind(c, name="hipblasCtpsvStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCtpsvStridedBatched_64_ @@ -20864,7 +22610,8 @@ function hipblasCtpsvStridedBatched_64_(handle,uplo,transA,diag,n,AP,strideA,x,i #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCtpsvStridedBatched_64_rank_0,& - hipblasCtpsvStridedBatched_64_rank_1 + hipblasCtpsvStridedBatched_64_rank_1,& + hipblasCtpsvStridedBatched_64_strided_rank #endif #endif end interface @@ -20873,7 +22620,6 @@ function hipblasCtpsvStridedBatched_64_(handle,uplo,transA,diag,n,AP,strideA,x,i function hipblasZtpsvStridedBatched_64_(handle,uplo,transA,diag,n,AP,strideA,x,incx,stridex, & batchCount) & bind(c, name="hipblasZtpsvStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZtpsvStridedBatched_64_ @@ -20896,14 +22642,14 @@ function hipblasZtpsvStridedBatched_64_(handle,uplo,transA,diag,n,AP,strideA,x,i #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZtpsvStridedBatched_64_rank_0,& - hipblasZtpsvStridedBatched_64_rank_1 + hipblasZtpsvStridedBatched_64_rank_1,& + hipblasZtpsvStridedBatched_64_strided_rank #endif #endif end interface interface hipblasStrmv function hipblasStrmv_(handle,uplo,transA,diag,n,AP,lda,x,incx) bind(c, name="hipblasStrmv") - use iso_c_binding import implicit none integer(c_int) :: hipblasStrmv_ @@ -20932,7 +22678,6 @@ function hipblasStrmv_(handle,uplo,transA,diag,n,AP,lda,x,incx) bind(c, name="hi interface hipblasDtrmv function hipblasDtrmv_(handle,uplo,transA,diag,n,AP,lda,x,incx) bind(c, name="hipblasDtrmv") - use iso_c_binding import implicit none integer(c_int) :: hipblasDtrmv_ @@ -20961,7 +22706,6 @@ function hipblasDtrmv_(handle,uplo,transA,diag,n,AP,lda,x,incx) bind(c, name="hi interface hipblasCtrmv function hipblasCtrmv_(handle,uplo,transA,diag,n,AP,lda,x,incx) bind(c, name="hipblasCtrmv") - use iso_c_binding import implicit none integer(c_int) :: hipblasCtrmv_ @@ -20990,7 +22734,6 @@ function hipblasCtrmv_(handle,uplo,transA,diag,n,AP,lda,x,incx) bind(c, name="hi interface hipblasZtrmv function hipblasZtrmv_(handle,uplo,transA,diag,n,AP,lda,x,incx) bind(c, name="hipblasZtrmv") - use iso_c_binding import implicit none integer(c_int) :: hipblasZtrmv_ @@ -21020,7 +22763,6 @@ function hipblasZtrmv_(handle,uplo,transA,diag,n,AP,lda,x,incx) bind(c, name="hi interface hipblasStrmv_64 function hipblasStrmv_64_(handle,uplo,transA,diag,n,AP,lda,x,incx) & bind(c, name="hipblasStrmv_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasStrmv_64_ @@ -21050,7 +22792,6 @@ function hipblasStrmv_64_(handle,uplo,transA,diag,n,AP,lda,x,incx) & interface hipblasDtrmv_64 function hipblasDtrmv_64_(handle,uplo,transA,diag,n,AP,lda,x,incx) & bind(c, name="hipblasDtrmv_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDtrmv_64_ @@ -21080,7 +22821,6 @@ function hipblasDtrmv_64_(handle,uplo,transA,diag,n,AP,lda,x,incx) & interface hipblasCtrmv_64 function hipblasCtrmv_64_(handle,uplo,transA,diag,n,AP,lda,x,incx) & bind(c, name="hipblasCtrmv_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCtrmv_64_ @@ -21110,7 +22850,6 @@ function hipblasCtrmv_64_(handle,uplo,transA,diag,n,AP,lda,x,incx) & interface hipblasZtrmv_64 function hipblasZtrmv_64_(handle,uplo,transA,diag,n,AP,lda,x,incx) & bind(c, name="hipblasZtrmv_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZtrmv_64_ @@ -21140,7 +22879,6 @@ function hipblasZtrmv_64_(handle,uplo,transA,diag,n,AP,lda,x,incx) & interface hipblasStrmvBatched function hipblasStrmvBatched_(handle,uplo,transA,diag,n,AP,lda,x,incx,batchCount) & bind(c, name="hipblasStrmvBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasStrmvBatched_ @@ -21160,7 +22898,6 @@ function hipblasStrmvBatched_(handle,uplo,transA,diag,n,AP,lda,x,incx,batchCount interface hipblasDtrmvBatched function hipblasDtrmvBatched_(handle,uplo,transA,diag,n,AP,lda,x,incx,batchCount) & bind(c, name="hipblasDtrmvBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDtrmvBatched_ @@ -21180,7 +22917,6 @@ function hipblasDtrmvBatched_(handle,uplo,transA,diag,n,AP,lda,x,incx,batchCount interface hipblasCtrmvBatched function hipblasCtrmvBatched_(handle,uplo,transA,diag,n,AP,lda,x,incx,batchCount) & bind(c, name="hipblasCtrmvBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCtrmvBatched_ @@ -21200,7 +22936,6 @@ function hipblasCtrmvBatched_(handle,uplo,transA,diag,n,AP,lda,x,incx,batchCount interface hipblasZtrmvBatched function hipblasZtrmvBatched_(handle,uplo,transA,diag,n,AP,lda,x,incx,batchCount) & bind(c, name="hipblasZtrmvBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZtrmvBatched_ @@ -21220,7 +22955,6 @@ function hipblasZtrmvBatched_(handle,uplo,transA,diag,n,AP,lda,x,incx,batchCount interface hipblasStrmvBatched_64 function hipblasStrmvBatched_64_(handle,uplo,transA,diag,n,AP,lda,x,incx,batchCount) & bind(c, name="hipblasStrmvBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasStrmvBatched_64_ @@ -21240,7 +22974,6 @@ function hipblasStrmvBatched_64_(handle,uplo,transA,diag,n,AP,lda,x,incx,batchCo interface hipblasDtrmvBatched_64 function hipblasDtrmvBatched_64_(handle,uplo,transA,diag,n,AP,lda,x,incx,batchCount) & bind(c, name="hipblasDtrmvBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDtrmvBatched_64_ @@ -21260,7 +22993,6 @@ function hipblasDtrmvBatched_64_(handle,uplo,transA,diag,n,AP,lda,x,incx,batchCo interface hipblasCtrmvBatched_64 function hipblasCtrmvBatched_64_(handle,uplo,transA,diag,n,AP,lda,x,incx,batchCount) & bind(c, name="hipblasCtrmvBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCtrmvBatched_64_ @@ -21280,7 +23012,6 @@ function hipblasCtrmvBatched_64_(handle,uplo,transA,diag,n,AP,lda,x,incx,batchCo interface hipblasZtrmvBatched_64 function hipblasZtrmvBatched_64_(handle,uplo,transA,diag,n,AP,lda,x,incx,batchCount) & bind(c, name="hipblasZtrmvBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZtrmvBatched_64_ @@ -21301,7 +23032,6 @@ function hipblasZtrmvBatched_64_(handle,uplo,transA,diag,n,AP,lda,x,incx,batchCo function hipblasStrmvStridedBatched_(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx,stridex, & batchCount) & bind(c, name="hipblasStrmvStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasStrmvStridedBatched_ @@ -21326,7 +23056,8 @@ function hipblasStrmvStridedBatched_(handle,uplo,transA,diag,n,AP,lda,strideA,x, module procedure & hipblasStrmvStridedBatched_rank_0,& hipblasStrmvStridedBatched_rank_1,& - hipblasStrmvStridedBatched_full_rank + hipblasStrmvStridedBatched_full_rank,& + hipblasStrmvStridedBatched_strided_rank #endif #endif end interface @@ -21335,7 +23066,6 @@ function hipblasStrmvStridedBatched_(handle,uplo,transA,diag,n,AP,lda,strideA,x, function hipblasDtrmvStridedBatched_(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx,stridex, & batchCount) & bind(c, name="hipblasDtrmvStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDtrmvStridedBatched_ @@ -21360,7 +23090,8 @@ function hipblasDtrmvStridedBatched_(handle,uplo,transA,diag,n,AP,lda,strideA,x, module procedure & hipblasDtrmvStridedBatched_rank_0,& hipblasDtrmvStridedBatched_rank_1,& - hipblasDtrmvStridedBatched_full_rank + hipblasDtrmvStridedBatched_full_rank,& + hipblasDtrmvStridedBatched_strided_rank #endif #endif end interface @@ -21369,7 +23100,6 @@ function hipblasDtrmvStridedBatched_(handle,uplo,transA,diag,n,AP,lda,strideA,x, function hipblasCtrmvStridedBatched_(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx,stridex, & batchCount) & bind(c, name="hipblasCtrmvStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCtrmvStridedBatched_ @@ -21394,7 +23124,8 @@ function hipblasCtrmvStridedBatched_(handle,uplo,transA,diag,n,AP,lda,strideA,x, module procedure & hipblasCtrmvStridedBatched_rank_0,& hipblasCtrmvStridedBatched_rank_1,& - hipblasCtrmvStridedBatched_full_rank + hipblasCtrmvStridedBatched_full_rank,& + hipblasCtrmvStridedBatched_strided_rank #endif #endif end interface @@ -21403,7 +23134,6 @@ function hipblasCtrmvStridedBatched_(handle,uplo,transA,diag,n,AP,lda,strideA,x, function hipblasZtrmvStridedBatched_(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx,stridex, & batchCount) & bind(c, name="hipblasZtrmvStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZtrmvStridedBatched_ @@ -21428,7 +23158,8 @@ function hipblasZtrmvStridedBatched_(handle,uplo,transA,diag,n,AP,lda,strideA,x, module procedure & hipblasZtrmvStridedBatched_rank_0,& hipblasZtrmvStridedBatched_rank_1,& - hipblasZtrmvStridedBatched_full_rank + hipblasZtrmvStridedBatched_full_rank,& + hipblasZtrmvStridedBatched_strided_rank #endif #endif end interface @@ -21437,7 +23168,6 @@ function hipblasZtrmvStridedBatched_(handle,uplo,transA,diag,n,AP,lda,strideA,x, function hipblasStrmvStridedBatched_64_(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & stridex,batchCount) & bind(c, name="hipblasStrmvStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasStrmvStridedBatched_64_ @@ -21462,7 +23192,8 @@ function hipblasStrmvStridedBatched_64_(handle,uplo,transA,diag,n,AP,lda,strideA module procedure & hipblasStrmvStridedBatched_64_rank_0,& hipblasStrmvStridedBatched_64_rank_1,& - hipblasStrmvStridedBatched_64_full_rank + hipblasStrmvStridedBatched_64_full_rank,& + hipblasStrmvStridedBatched_64_strided_rank #endif #endif end interface @@ -21471,7 +23202,6 @@ function hipblasStrmvStridedBatched_64_(handle,uplo,transA,diag,n,AP,lda,strideA function hipblasDtrmvStridedBatched_64_(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & stridex,batchCount) & bind(c, name="hipblasDtrmvStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDtrmvStridedBatched_64_ @@ -21496,7 +23226,8 @@ function hipblasDtrmvStridedBatched_64_(handle,uplo,transA,diag,n,AP,lda,strideA module procedure & hipblasDtrmvStridedBatched_64_rank_0,& hipblasDtrmvStridedBatched_64_rank_1,& - hipblasDtrmvStridedBatched_64_full_rank + hipblasDtrmvStridedBatched_64_full_rank,& + hipblasDtrmvStridedBatched_64_strided_rank #endif #endif end interface @@ -21505,7 +23236,6 @@ function hipblasDtrmvStridedBatched_64_(handle,uplo,transA,diag,n,AP,lda,strideA function hipblasCtrmvStridedBatched_64_(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & stridex,batchCount) & bind(c, name="hipblasCtrmvStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCtrmvStridedBatched_64_ @@ -21530,7 +23260,8 @@ function hipblasCtrmvStridedBatched_64_(handle,uplo,transA,diag,n,AP,lda,strideA module procedure & hipblasCtrmvStridedBatched_64_rank_0,& hipblasCtrmvStridedBatched_64_rank_1,& - hipblasCtrmvStridedBatched_64_full_rank + hipblasCtrmvStridedBatched_64_full_rank,& + hipblasCtrmvStridedBatched_64_strided_rank #endif #endif end interface @@ -21539,7 +23270,6 @@ function hipblasCtrmvStridedBatched_64_(handle,uplo,transA,diag,n,AP,lda,strideA function hipblasZtrmvStridedBatched_64_(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & stridex,batchCount) & bind(c, name="hipblasZtrmvStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZtrmvStridedBatched_64_ @@ -21564,14 +23294,14 @@ function hipblasZtrmvStridedBatched_64_(handle,uplo,transA,diag,n,AP,lda,strideA module procedure & hipblasZtrmvStridedBatched_64_rank_0,& hipblasZtrmvStridedBatched_64_rank_1,& - hipblasZtrmvStridedBatched_64_full_rank + hipblasZtrmvStridedBatched_64_full_rank,& + hipblasZtrmvStridedBatched_64_strided_rank #endif #endif end interface interface hipblasStrsv function hipblasStrsv_(handle,uplo,transA,diag,n,AP,lda,x,incx) bind(c, name="hipblasStrsv") - use iso_c_binding import implicit none integer(c_int) :: hipblasStrsv_ @@ -21600,7 +23330,6 @@ function hipblasStrsv_(handle,uplo,transA,diag,n,AP,lda,x,incx) bind(c, name="hi interface hipblasDtrsv function hipblasDtrsv_(handle,uplo,transA,diag,n,AP,lda,x,incx) bind(c, name="hipblasDtrsv") - use iso_c_binding import implicit none integer(c_int) :: hipblasDtrsv_ @@ -21629,7 +23358,6 @@ function hipblasDtrsv_(handle,uplo,transA,diag,n,AP,lda,x,incx) bind(c, name="hi interface hipblasCtrsv function hipblasCtrsv_(handle,uplo,transA,diag,n,AP,lda,x,incx) bind(c, name="hipblasCtrsv") - use iso_c_binding import implicit none integer(c_int) :: hipblasCtrsv_ @@ -21658,7 +23386,6 @@ function hipblasCtrsv_(handle,uplo,transA,diag,n,AP,lda,x,incx) bind(c, name="hi interface hipblasZtrsv function hipblasZtrsv_(handle,uplo,transA,diag,n,AP,lda,x,incx) bind(c, name="hipblasZtrsv") - use iso_c_binding import implicit none integer(c_int) :: hipblasZtrsv_ @@ -21688,7 +23415,6 @@ function hipblasZtrsv_(handle,uplo,transA,diag,n,AP,lda,x,incx) bind(c, name="hi interface hipblasStrsv_64 function hipblasStrsv_64_(handle,uplo,transA,diag,n,AP,lda,x,incx) & bind(c, name="hipblasStrsv_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasStrsv_64_ @@ -21718,7 +23444,6 @@ function hipblasStrsv_64_(handle,uplo,transA,diag,n,AP,lda,x,incx) & interface hipblasDtrsv_64 function hipblasDtrsv_64_(handle,uplo,transA,diag,n,AP,lda,x,incx) & bind(c, name="hipblasDtrsv_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDtrsv_64_ @@ -21748,7 +23473,6 @@ function hipblasDtrsv_64_(handle,uplo,transA,diag,n,AP,lda,x,incx) & interface hipblasCtrsv_64 function hipblasCtrsv_64_(handle,uplo,transA,diag,n,AP,lda,x,incx) & bind(c, name="hipblasCtrsv_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCtrsv_64_ @@ -21778,7 +23502,6 @@ function hipblasCtrsv_64_(handle,uplo,transA,diag,n,AP,lda,x,incx) & interface hipblasZtrsv_64 function hipblasZtrsv_64_(handle,uplo,transA,diag,n,AP,lda,x,incx) & bind(c, name="hipblasZtrsv_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZtrsv_64_ @@ -21808,7 +23531,6 @@ function hipblasZtrsv_64_(handle,uplo,transA,diag,n,AP,lda,x,incx) & interface hipblasStrsvBatched function hipblasStrsvBatched_(handle,uplo,transA,diag,n,AP,lda,x,incx,batchCount) & bind(c, name="hipblasStrsvBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasStrsvBatched_ @@ -21828,7 +23550,6 @@ function hipblasStrsvBatched_(handle,uplo,transA,diag,n,AP,lda,x,incx,batchCount interface hipblasDtrsvBatched function hipblasDtrsvBatched_(handle,uplo,transA,diag,n,AP,lda,x,incx,batchCount) & bind(c, name="hipblasDtrsvBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDtrsvBatched_ @@ -21848,7 +23569,6 @@ function hipblasDtrsvBatched_(handle,uplo,transA,diag,n,AP,lda,x,incx,batchCount interface hipblasCtrsvBatched function hipblasCtrsvBatched_(handle,uplo,transA,diag,n,AP,lda,x,incx,batchCount) & bind(c, name="hipblasCtrsvBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCtrsvBatched_ @@ -21868,7 +23588,6 @@ function hipblasCtrsvBatched_(handle,uplo,transA,diag,n,AP,lda,x,incx,batchCount interface hipblasZtrsvBatched function hipblasZtrsvBatched_(handle,uplo,transA,diag,n,AP,lda,x,incx,batchCount) & bind(c, name="hipblasZtrsvBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZtrsvBatched_ @@ -21888,7 +23607,6 @@ function hipblasZtrsvBatched_(handle,uplo,transA,diag,n,AP,lda,x,incx,batchCount interface hipblasStrsvBatched_64 function hipblasStrsvBatched_64_(handle,uplo,transA,diag,n,AP,lda,x,incx,batchCount) & bind(c, name="hipblasStrsvBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasStrsvBatched_64_ @@ -21908,7 +23626,6 @@ function hipblasStrsvBatched_64_(handle,uplo,transA,diag,n,AP,lda,x,incx,batchCo interface hipblasDtrsvBatched_64 function hipblasDtrsvBatched_64_(handle,uplo,transA,diag,n,AP,lda,x,incx,batchCount) & bind(c, name="hipblasDtrsvBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDtrsvBatched_64_ @@ -21928,7 +23645,6 @@ function hipblasDtrsvBatched_64_(handle,uplo,transA,diag,n,AP,lda,x,incx,batchCo interface hipblasCtrsvBatched_64 function hipblasCtrsvBatched_64_(handle,uplo,transA,diag,n,AP,lda,x,incx,batchCount) & bind(c, name="hipblasCtrsvBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCtrsvBatched_64_ @@ -21948,7 +23664,6 @@ function hipblasCtrsvBatched_64_(handle,uplo,transA,diag,n,AP,lda,x,incx,batchCo interface hipblasZtrsvBatched_64 function hipblasZtrsvBatched_64_(handle,uplo,transA,diag,n,AP,lda,x,incx,batchCount) & bind(c, name="hipblasZtrsvBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZtrsvBatched_64_ @@ -21969,7 +23684,6 @@ function hipblasZtrsvBatched_64_(handle,uplo,transA,diag,n,AP,lda,x,incx,batchCo function hipblasStrsvStridedBatched_(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx,stridex, & batchCount) & bind(c, name="hipblasStrsvStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasStrsvStridedBatched_ @@ -21994,7 +23708,8 @@ function hipblasStrsvStridedBatched_(handle,uplo,transA,diag,n,AP,lda,strideA,x, module procedure & hipblasStrsvStridedBatched_rank_0,& hipblasStrsvStridedBatched_rank_1,& - hipblasStrsvStridedBatched_full_rank + hipblasStrsvStridedBatched_full_rank,& + hipblasStrsvStridedBatched_strided_rank #endif #endif end interface @@ -22003,7 +23718,6 @@ function hipblasStrsvStridedBatched_(handle,uplo,transA,diag,n,AP,lda,strideA,x, function hipblasDtrsvStridedBatched_(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx,stridex, & batchCount) & bind(c, name="hipblasDtrsvStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDtrsvStridedBatched_ @@ -22028,7 +23742,8 @@ function hipblasDtrsvStridedBatched_(handle,uplo,transA,diag,n,AP,lda,strideA,x, module procedure & hipblasDtrsvStridedBatched_rank_0,& hipblasDtrsvStridedBatched_rank_1,& - hipblasDtrsvStridedBatched_full_rank + hipblasDtrsvStridedBatched_full_rank,& + hipblasDtrsvStridedBatched_strided_rank #endif #endif end interface @@ -22037,7 +23752,6 @@ function hipblasDtrsvStridedBatched_(handle,uplo,transA,diag,n,AP,lda,strideA,x, function hipblasCtrsvStridedBatched_(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx,stridex, & batchCount) & bind(c, name="hipblasCtrsvStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCtrsvStridedBatched_ @@ -22062,7 +23776,8 @@ function hipblasCtrsvStridedBatched_(handle,uplo,transA,diag,n,AP,lda,strideA,x, module procedure & hipblasCtrsvStridedBatched_rank_0,& hipblasCtrsvStridedBatched_rank_1,& - hipblasCtrsvStridedBatched_full_rank + hipblasCtrsvStridedBatched_full_rank,& + hipblasCtrsvStridedBatched_strided_rank #endif #endif end interface @@ -22071,7 +23786,6 @@ function hipblasCtrsvStridedBatched_(handle,uplo,transA,diag,n,AP,lda,strideA,x, function hipblasZtrsvStridedBatched_(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx,stridex, & batchCount) & bind(c, name="hipblasZtrsvStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZtrsvStridedBatched_ @@ -22096,7 +23810,8 @@ function hipblasZtrsvStridedBatched_(handle,uplo,transA,diag,n,AP,lda,strideA,x, module procedure & hipblasZtrsvStridedBatched_rank_0,& hipblasZtrsvStridedBatched_rank_1,& - hipblasZtrsvStridedBatched_full_rank + hipblasZtrsvStridedBatched_full_rank,& + hipblasZtrsvStridedBatched_strided_rank #endif #endif end interface @@ -22105,7 +23820,6 @@ function hipblasZtrsvStridedBatched_(handle,uplo,transA,diag,n,AP,lda,strideA,x, function hipblasStrsvStridedBatched_64_(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & stridex,batchCount) & bind(c, name="hipblasStrsvStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasStrsvStridedBatched_64_ @@ -22130,7 +23844,8 @@ function hipblasStrsvStridedBatched_64_(handle,uplo,transA,diag,n,AP,lda,strideA module procedure & hipblasStrsvStridedBatched_64_rank_0,& hipblasStrsvStridedBatched_64_rank_1,& - hipblasStrsvStridedBatched_64_full_rank + hipblasStrsvStridedBatched_64_full_rank,& + hipblasStrsvStridedBatched_64_strided_rank #endif #endif end interface @@ -22139,7 +23854,6 @@ function hipblasStrsvStridedBatched_64_(handle,uplo,transA,diag,n,AP,lda,strideA function hipblasDtrsvStridedBatched_64_(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & stridex,batchCount) & bind(c, name="hipblasDtrsvStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDtrsvStridedBatched_64_ @@ -22164,7 +23878,8 @@ function hipblasDtrsvStridedBatched_64_(handle,uplo,transA,diag,n,AP,lda,strideA module procedure & hipblasDtrsvStridedBatched_64_rank_0,& hipblasDtrsvStridedBatched_64_rank_1,& - hipblasDtrsvStridedBatched_64_full_rank + hipblasDtrsvStridedBatched_64_full_rank,& + hipblasDtrsvStridedBatched_64_strided_rank #endif #endif end interface @@ -22173,7 +23888,6 @@ function hipblasDtrsvStridedBatched_64_(handle,uplo,transA,diag,n,AP,lda,strideA function hipblasCtrsvStridedBatched_64_(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & stridex,batchCount) & bind(c, name="hipblasCtrsvStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCtrsvStridedBatched_64_ @@ -22198,7 +23912,8 @@ function hipblasCtrsvStridedBatched_64_(handle,uplo,transA,diag,n,AP,lda,strideA module procedure & hipblasCtrsvStridedBatched_64_rank_0,& hipblasCtrsvStridedBatched_64_rank_1,& - hipblasCtrsvStridedBatched_64_full_rank + hipblasCtrsvStridedBatched_64_full_rank,& + hipblasCtrsvStridedBatched_64_strided_rank #endif #endif end interface @@ -22207,7 +23922,6 @@ function hipblasCtrsvStridedBatched_64_(handle,uplo,transA,diag,n,AP,lda,strideA function hipblasZtrsvStridedBatched_64_(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & stridex,batchCount) & bind(c, name="hipblasZtrsvStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZtrsvStridedBatched_64_ @@ -22232,7 +23946,8 @@ function hipblasZtrsvStridedBatched_64_(handle,uplo,transA,diag,n,AP,lda,strideA module procedure & hipblasZtrsvStridedBatched_64_rank_0,& hipblasZtrsvStridedBatched_64_rank_1,& - hipblasZtrsvStridedBatched_64_full_rank + hipblasZtrsvStridedBatched_64_full_rank,& + hipblasZtrsvStridedBatched_64_strided_rank #endif #endif end interface @@ -22240,7 +23955,6 @@ function hipblasZtrsvStridedBatched_64_(handle,uplo,transA,diag,n,AP,lda,strideA interface hipblasHgemm function hipblasHgemm_(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & bind(c, name="hipblasHgemm") - use iso_c_binding import implicit none integer(c_int) :: hipblasHgemm_ @@ -22264,7 +23978,6 @@ function hipblasHgemm_(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ld interface hipblasSgemm function hipblasSgemm_(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & bind(c, name="hipblasSgemm") - use iso_c_binding import implicit none integer(c_int) :: hipblasSgemm_ @@ -22287,13 +24000,18 @@ function hipblasSgemm_(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ld module procedure hipblasSgemm_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasSgemm_assumed_rank + module procedure & + hipblasSgemm_assumed_rank,& + hipblasSgemm_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSgemm_rank_0,& + hipblasSgemm_rank_0_devptr,& hipblasSgemm_rank_1,& - hipblasSgemm_full_rank + hipblasSgemm_rank_1_devptr,& + hipblasSgemm_full_rank,& + hipblasSgemm_full_rank_devptr #endif #endif end interface @@ -22301,7 +24019,6 @@ function hipblasSgemm_(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ld interface hipblasDgemm function hipblasDgemm_(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & bind(c, name="hipblasDgemm") - use iso_c_binding import implicit none integer(c_int) :: hipblasDgemm_ @@ -22324,13 +24041,18 @@ function hipblasDgemm_(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ld module procedure hipblasDgemm_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDgemm_assumed_rank + module procedure & + hipblasDgemm_assumed_rank,& + hipblasDgemm_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDgemm_rank_0,& + hipblasDgemm_rank_0_devptr,& hipblasDgemm_rank_1,& - hipblasDgemm_full_rank + hipblasDgemm_rank_1_devptr,& + hipblasDgemm_full_rank,& + hipblasDgemm_full_rank_devptr #endif #endif end interface @@ -22338,7 +24060,6 @@ function hipblasDgemm_(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ld interface hipblasCgemm function hipblasCgemm_(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & bind(c, name="hipblasCgemm") - use iso_c_binding import implicit none integer(c_int) :: hipblasCgemm_ @@ -22361,13 +24082,18 @@ function hipblasCgemm_(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ld module procedure hipblasCgemm_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCgemm_assumed_rank + module procedure & + hipblasCgemm_assumed_rank,& + hipblasCgemm_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCgemm_rank_0,& + hipblasCgemm_rank_0_devptr,& hipblasCgemm_rank_1,& - hipblasCgemm_full_rank + hipblasCgemm_rank_1_devptr,& + hipblasCgemm_full_rank,& + hipblasCgemm_full_rank_devptr #endif #endif end interface @@ -22375,7 +24101,6 @@ function hipblasCgemm_(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ld interface hipblasZgemm function hipblasZgemm_(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & bind(c, name="hipblasZgemm") - use iso_c_binding import implicit none integer(c_int) :: hipblasZgemm_ @@ -22398,13 +24123,18 @@ function hipblasZgemm_(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ld module procedure hipblasZgemm_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZgemm_assumed_rank + module procedure & + hipblasZgemm_assumed_rank,& + hipblasZgemm_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZgemm_rank_0,& + hipblasZgemm_rank_0_devptr,& hipblasZgemm_rank_1,& - hipblasZgemm_full_rank + hipblasZgemm_rank_1_devptr,& + hipblasZgemm_full_rank,& + hipblasZgemm_full_rank_devptr #endif #endif end interface @@ -22412,7 +24142,6 @@ function hipblasZgemm_(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ld interface hipblasHgemm_64 function hipblasHgemm_64_(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & bind(c, name="hipblasHgemm_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasHgemm_64_ @@ -22436,7 +24165,6 @@ function hipblasHgemm_64_(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP interface hipblasSgemm_64 function hipblasSgemm_64_(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & bind(c, name="hipblasSgemm_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSgemm_64_ @@ -22459,13 +24187,18 @@ function hipblasSgemm_64_(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP module procedure hipblasSgemm_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasSgemm_64_assumed_rank + module procedure & + hipblasSgemm_64_assumed_rank,& + hipblasSgemm_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSgemm_64_rank_0,& + hipblasSgemm_64_rank_0_devptr,& hipblasSgemm_64_rank_1,& - hipblasSgemm_64_full_rank + hipblasSgemm_64_rank_1_devptr,& + hipblasSgemm_64_full_rank,& + hipblasSgemm_64_full_rank_devptr #endif #endif end interface @@ -22473,7 +24206,6 @@ function hipblasSgemm_64_(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP interface hipblasDgemm_64 function hipblasDgemm_64_(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & bind(c, name="hipblasDgemm_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDgemm_64_ @@ -22496,13 +24228,18 @@ function hipblasDgemm_64_(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP module procedure hipblasDgemm_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDgemm_64_assumed_rank + module procedure & + hipblasDgemm_64_assumed_rank,& + hipblasDgemm_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDgemm_64_rank_0,& + hipblasDgemm_64_rank_0_devptr,& hipblasDgemm_64_rank_1,& - hipblasDgemm_64_full_rank + hipblasDgemm_64_rank_1_devptr,& + hipblasDgemm_64_full_rank,& + hipblasDgemm_64_full_rank_devptr #endif #endif end interface @@ -22510,7 +24247,6 @@ function hipblasDgemm_64_(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP interface hipblasCgemm_64 function hipblasCgemm_64_(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & bind(c, name="hipblasCgemm_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCgemm_64_ @@ -22533,13 +24269,18 @@ function hipblasCgemm_64_(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP module procedure hipblasCgemm_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCgemm_64_assumed_rank + module procedure & + hipblasCgemm_64_assumed_rank,& + hipblasCgemm_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCgemm_64_rank_0,& + hipblasCgemm_64_rank_0_devptr,& hipblasCgemm_64_rank_1,& - hipblasCgemm_64_full_rank + hipblasCgemm_64_rank_1_devptr,& + hipblasCgemm_64_full_rank,& + hipblasCgemm_64_full_rank_devptr #endif #endif end interface @@ -22547,7 +24288,6 @@ function hipblasCgemm_64_(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP interface hipblasZgemm_64 function hipblasZgemm_64_(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & bind(c, name="hipblasZgemm_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZgemm_64_ @@ -22570,13 +24310,18 @@ function hipblasZgemm_64_(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP module procedure hipblasZgemm_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZgemm_64_assumed_rank + module procedure & + hipblasZgemm_64_assumed_rank,& + hipblasZgemm_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZgemm_64_rank_0,& + hipblasZgemm_64_rank_0_devptr,& hipblasZgemm_64_rank_1,& - hipblasZgemm_64_full_rank + hipblasZgemm_64_rank_1_devptr,& + hipblasZgemm_64_full_rank,& + hipblasZgemm_64_full_rank_devptr #endif #endif end interface @@ -22585,7 +24330,6 @@ function hipblasZgemm_64_(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP function hipblasHgemmBatched_(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) & bind(c, name="hipblasHgemmBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasHgemmBatched_ @@ -22611,7 +24355,6 @@ function hipblasHgemmBatched_(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,bet function hipblasSgemmBatched_(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) & bind(c, name="hipblasSgemmBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasSgemmBatched_ @@ -22639,7 +24382,6 @@ function hipblasSgemmBatched_(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,bet function hipblasDgemmBatched_(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) & bind(c, name="hipblasDgemmBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDgemmBatched_ @@ -22667,7 +24409,6 @@ function hipblasDgemmBatched_(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,bet function hipblasCgemmBatched_(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) & bind(c, name="hipblasCgemmBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCgemmBatched_ @@ -22695,7 +24436,6 @@ function hipblasCgemmBatched_(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,bet function hipblasZgemmBatched_(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) & bind(c, name="hipblasZgemmBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZgemmBatched_ @@ -22723,7 +24463,6 @@ function hipblasZgemmBatched_(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,bet function hipblasHgemmBatched_64_(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) & bind(c, name="hipblasHgemmBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasHgemmBatched_64_ @@ -22749,7 +24488,6 @@ function hipblasHgemmBatched_64_(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb, function hipblasSgemmBatched_64_(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) & bind(c, name="hipblasSgemmBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSgemmBatched_64_ @@ -22777,7 +24515,6 @@ function hipblasSgemmBatched_64_(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb, function hipblasDgemmBatched_64_(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) & bind(c, name="hipblasDgemmBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDgemmBatched_64_ @@ -22805,7 +24542,6 @@ function hipblasDgemmBatched_64_(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb, function hipblasCgemmBatched_64_(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) & bind(c, name="hipblasCgemmBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCgemmBatched_64_ @@ -22833,7 +24569,6 @@ function hipblasCgemmBatched_64_(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb, function hipblasZgemmBatched_64_(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) & bind(c, name="hipblasZgemmBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZgemmBatched_64_ @@ -22862,7 +24597,6 @@ function hipblasSgemmGroupedBatched_(handle,transA_array,transB_array,m_array,n_ alpha_array,Aarray,lda_array,Barray,ldb_array,beta_array,Carray,ldc_array,group_count, & group_size) & bind(c, name="hipblasSgemmGroupedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasSgemmGroupedBatched_ @@ -22883,6 +24617,16 @@ function hipblasSgemmGroupedBatched_(handle,transA_array,transB_array,m_array,n_ integer(c_int),value :: group_count type(c_ptr),value :: group_size end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSgemmGroupedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSgemmGroupedBatched_rank_0,& + hipblasSgemmGroupedBatched_rank_1 +#endif +#endif end interface interface hipblasDgemmGroupedBatched @@ -22890,7 +24634,6 @@ function hipblasDgemmGroupedBatched_(handle,transA_array,transB_array,m_array,n_ alpha_array,Aarray,lda_array,Barray,ldb_array,beta_array,Carray,ldc_array,group_count, & group_size) & bind(c, name="hipblasDgemmGroupedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDgemmGroupedBatched_ @@ -22911,6 +24654,16 @@ function hipblasDgemmGroupedBatched_(handle,transA_array,transB_array,m_array,n_ integer(c_int),value :: group_count type(c_ptr),value :: group_size end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDgemmGroupedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDgemmGroupedBatched_rank_0,& + hipblasDgemmGroupedBatched_rank_1 +#endif +#endif end interface interface hipblasSgemmGroupedBatched_64 @@ -22918,7 +24671,6 @@ function hipblasSgemmGroupedBatched_64_(handle,transA_array,transB_array,m_array k_array,alpha_array,Aarray,lda_array,Barray,ldb_array,beta_array,Carray,ldc_array, & group_count,group_size) & bind(c, name="hipblasSgemmGroupedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSgemmGroupedBatched_64_ @@ -22939,6 +24691,16 @@ function hipblasSgemmGroupedBatched_64_(handle,transA_array,transB_array,m_array integer(c_int64_t),value :: group_count type(c_ptr),value :: group_size end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSgemmGroupedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSgemmGroupedBatched_64_rank_0,& + hipblasSgemmGroupedBatched_64_rank_1 +#endif +#endif end interface interface hipblasDgemmGroupedBatched_64 @@ -22946,7 +24708,6 @@ function hipblasDgemmGroupedBatched_64_(handle,transA_array,transB_array,m_array k_array,alpha_array,Aarray,lda_array,Barray,ldb_array,beta_array,Carray,ldc_array, & group_count,group_size) & bind(c, name="hipblasDgemmGroupedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDgemmGroupedBatched_64_ @@ -22967,13 +24728,22 @@ function hipblasDgemmGroupedBatched_64_(handle,transA_array,transB_array,m_array integer(c_int64_t),value :: group_count type(c_ptr),value :: group_size end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDgemmGroupedBatched_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDgemmGroupedBatched_64_rank_0,& + hipblasDgemmGroupedBatched_64_rank_1 +#endif +#endif end interface interface hipblasHgemmStridedBatched function hipblasHgemmStridedBatched_(handle,transA,transB,m,n,k,alpha,AP,lda,strideA,BP,ldb, & strideB,beta,CP,ldc,strideC,batchCount) & bind(c, name="hipblasHgemmStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasHgemmStridedBatched_ @@ -23002,7 +24772,6 @@ function hipblasHgemmStridedBatched_(handle,transA,transB,m,n,k,alpha,AP,lda,str function hipblasSgemmStridedBatched_(handle,transA,transB,m,n,k,alpha,AP,lda,strideA,BP,ldb, & strideB,beta,CP,ldc,strideC,batchCount) & bind(c, name="hipblasSgemmStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasSgemmStridedBatched_ @@ -23029,13 +24798,20 @@ function hipblasSgemmStridedBatched_(handle,transA,transB,m,n,k,alpha,AP,lda,str module procedure hipblasSgemmStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasSgemmStridedBatched_assumed_rank + module procedure & + hipblasSgemmStridedBatched_assumed_rank,& + hipblasSgemmStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSgemmStridedBatched_rank_0,& + hipblasSgemmStridedBatched_rank_0_devptr,& hipblasSgemmStridedBatched_rank_1,& - hipblasSgemmStridedBatched_full_rank + hipblasSgemmStridedBatched_rank_1_devptr,& + hipblasSgemmStridedBatched_full_rank,& + hipblasSgemmStridedBatched_full_rank_devptr,& + hipblasSgemmStridedBatched_strided_rank,& + hipblasSgemmStridedBatched_strided_rank_devptr #endif #endif end interface @@ -23044,7 +24820,6 @@ function hipblasSgemmStridedBatched_(handle,transA,transB,m,n,k,alpha,AP,lda,str function hipblasDgemmStridedBatched_(handle,transA,transB,m,n,k,alpha,AP,lda,strideA,BP,ldb, & strideB,beta,CP,ldc,strideC,batchCount) & bind(c, name="hipblasDgemmStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDgemmStridedBatched_ @@ -23071,13 +24846,20 @@ function hipblasDgemmStridedBatched_(handle,transA,transB,m,n,k,alpha,AP,lda,str module procedure hipblasDgemmStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDgemmStridedBatched_assumed_rank + module procedure & + hipblasDgemmStridedBatched_assumed_rank,& + hipblasDgemmStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDgemmStridedBatched_rank_0,& + hipblasDgemmStridedBatched_rank_0_devptr,& hipblasDgemmStridedBatched_rank_1,& - hipblasDgemmStridedBatched_full_rank + hipblasDgemmStridedBatched_rank_1_devptr,& + hipblasDgemmStridedBatched_full_rank,& + hipblasDgemmStridedBatched_full_rank_devptr,& + hipblasDgemmStridedBatched_strided_rank,& + hipblasDgemmStridedBatched_strided_rank_devptr #endif #endif end interface @@ -23086,7 +24868,6 @@ function hipblasDgemmStridedBatched_(handle,transA,transB,m,n,k,alpha,AP,lda,str function hipblasCgemmStridedBatched_(handle,transA,transB,m,n,k,alpha,AP,lda,strideA,BP,ldb, & strideB,beta,CP,ldc,strideC,batchCount) & bind(c, name="hipblasCgemmStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCgemmStridedBatched_ @@ -23113,13 +24894,20 @@ function hipblasCgemmStridedBatched_(handle,transA,transB,m,n,k,alpha,AP,lda,str module procedure hipblasCgemmStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCgemmStridedBatched_assumed_rank + module procedure & + hipblasCgemmStridedBatched_assumed_rank,& + hipblasCgemmStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCgemmStridedBatched_rank_0,& + hipblasCgemmStridedBatched_rank_0_devptr,& hipblasCgemmStridedBatched_rank_1,& - hipblasCgemmStridedBatched_full_rank + hipblasCgemmStridedBatched_rank_1_devptr,& + hipblasCgemmStridedBatched_full_rank,& + hipblasCgemmStridedBatched_full_rank_devptr,& + hipblasCgemmStridedBatched_strided_rank,& + hipblasCgemmStridedBatched_strided_rank_devptr #endif #endif end interface @@ -23128,7 +24916,6 @@ function hipblasCgemmStridedBatched_(handle,transA,transB,m,n,k,alpha,AP,lda,str function hipblasZgemmStridedBatched_(handle,transA,transB,m,n,k,alpha,AP,lda,strideA,BP,ldb, & strideB,beta,CP,ldc,strideC,batchCount) & bind(c, name="hipblasZgemmStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZgemmStridedBatched_ @@ -23155,13 +24942,20 @@ function hipblasZgemmStridedBatched_(handle,transA,transB,m,n,k,alpha,AP,lda,str module procedure hipblasZgemmStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZgemmStridedBatched_assumed_rank + module procedure & + hipblasZgemmStridedBatched_assumed_rank,& + hipblasZgemmStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZgemmStridedBatched_rank_0,& + hipblasZgemmStridedBatched_rank_0_devptr,& hipblasZgemmStridedBatched_rank_1,& - hipblasZgemmStridedBatched_full_rank + hipblasZgemmStridedBatched_rank_1_devptr,& + hipblasZgemmStridedBatched_full_rank,& + hipblasZgemmStridedBatched_full_rank_devptr,& + hipblasZgemmStridedBatched_strided_rank,& + hipblasZgemmStridedBatched_strided_rank_devptr #endif #endif end interface @@ -23170,7 +24964,6 @@ function hipblasZgemmStridedBatched_(handle,transA,transB,m,n,k,alpha,AP,lda,str function hipblasHgemmStridedBatched_64_(handle,transA,transB,m,n,k,alpha,AP,lda,strideA,BP, & ldb,strideB,beta,CP,ldc,strideC,batchCount) & bind(c, name="hipblasHgemmStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasHgemmStridedBatched_64_ @@ -23199,7 +24992,6 @@ function hipblasHgemmStridedBatched_64_(handle,transA,transB,m,n,k,alpha,AP,lda, function hipblasSgemmStridedBatched_64_(handle,transA,transB,m,n,k,alpha,AP,lda,strideA,BP, & ldb,strideB,beta,CP,ldc,strideC,batchCount) & bind(c, name="hipblasSgemmStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSgemmStridedBatched_64_ @@ -23226,13 +25018,20 @@ function hipblasSgemmStridedBatched_64_(handle,transA,transB,m,n,k,alpha,AP,lda, module procedure hipblasSgemmStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasSgemmStridedBatched_64_assumed_rank + module procedure & + hipblasSgemmStridedBatched_64_assumed_rank,& + hipblasSgemmStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSgemmStridedBatched_64_rank_0,& + hipblasSgemmStridedBatched_64_rank_0_devptr,& hipblasSgemmStridedBatched_64_rank_1,& - hipblasSgemmStridedBatched_64_full_rank + hipblasSgemmStridedBatched_64_rank_1_devptr,& + hipblasSgemmStridedBatched_64_full_rank,& + hipblasSgemmStridedBatched_64_full_rank_devptr,& + hipblasSgemmStridedBatched_64_strided_rank,& + hipblasSgemmStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -23241,7 +25040,6 @@ function hipblasSgemmStridedBatched_64_(handle,transA,transB,m,n,k,alpha,AP,lda, function hipblasDgemmStridedBatched_64_(handle,transA,transB,m,n,k,alpha,AP,lda,strideA,BP, & ldb,strideB,beta,CP,ldc,strideC,batchCount) & bind(c, name="hipblasDgemmStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDgemmStridedBatched_64_ @@ -23268,13 +25066,20 @@ function hipblasDgemmStridedBatched_64_(handle,transA,transB,m,n,k,alpha,AP,lda, module procedure hipblasDgemmStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDgemmStridedBatched_64_assumed_rank + module procedure & + hipblasDgemmStridedBatched_64_assumed_rank,& + hipblasDgemmStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDgemmStridedBatched_64_rank_0,& + hipblasDgemmStridedBatched_64_rank_0_devptr,& hipblasDgemmStridedBatched_64_rank_1,& - hipblasDgemmStridedBatched_64_full_rank + hipblasDgemmStridedBatched_64_rank_1_devptr,& + hipblasDgemmStridedBatched_64_full_rank,& + hipblasDgemmStridedBatched_64_full_rank_devptr,& + hipblasDgemmStridedBatched_64_strided_rank,& + hipblasDgemmStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -23283,7 +25088,6 @@ function hipblasDgemmStridedBatched_64_(handle,transA,transB,m,n,k,alpha,AP,lda, function hipblasCgemmStridedBatched_64_(handle,transA,transB,m,n,k,alpha,AP,lda,strideA,BP, & ldb,strideB,beta,CP,ldc,strideC,batchCount) & bind(c, name="hipblasCgemmStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCgemmStridedBatched_64_ @@ -23310,13 +25114,20 @@ function hipblasCgemmStridedBatched_64_(handle,transA,transB,m,n,k,alpha,AP,lda, module procedure hipblasCgemmStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCgemmStridedBatched_64_assumed_rank + module procedure & + hipblasCgemmStridedBatched_64_assumed_rank,& + hipblasCgemmStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCgemmStridedBatched_64_rank_0,& + hipblasCgemmStridedBatched_64_rank_0_devptr,& hipblasCgemmStridedBatched_64_rank_1,& - hipblasCgemmStridedBatched_64_full_rank + hipblasCgemmStridedBatched_64_rank_1_devptr,& + hipblasCgemmStridedBatched_64_full_rank,& + hipblasCgemmStridedBatched_64_full_rank_devptr,& + hipblasCgemmStridedBatched_64_strided_rank,& + hipblasCgemmStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -23325,7 +25136,6 @@ function hipblasCgemmStridedBatched_64_(handle,transA,transB,m,n,k,alpha,AP,lda, function hipblasZgemmStridedBatched_64_(handle,transA,transB,m,n,k,alpha,AP,lda,strideA,BP, & ldb,strideB,beta,CP,ldc,strideC,batchCount) & bind(c, name="hipblasZgemmStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZgemmStridedBatched_64_ @@ -23352,13 +25162,20 @@ function hipblasZgemmStridedBatched_64_(handle,transA,transB,m,n,k,alpha,AP,lda, module procedure hipblasZgemmStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZgemmStridedBatched_64_assumed_rank + module procedure & + hipblasZgemmStridedBatched_64_assumed_rank,& + hipblasZgemmStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZgemmStridedBatched_64_rank_0,& + hipblasZgemmStridedBatched_64_rank_0_devptr,& hipblasZgemmStridedBatched_64_rank_1,& - hipblasZgemmStridedBatched_64_full_rank + hipblasZgemmStridedBatched_64_rank_1_devptr,& + hipblasZgemmStridedBatched_64_full_rank,& + hipblasZgemmStridedBatched_64_full_rank_devptr,& + hipblasZgemmStridedBatched_64_strided_rank,& + hipblasZgemmStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -23366,7 +25183,6 @@ function hipblasZgemmStridedBatched_64_(handle,transA,transB,m,n,k,alpha,AP,lda, interface hipblasCherk function hipblasCherk_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) & bind(c, name="hipblasCherk") - use iso_c_binding import implicit none integer(c_int) :: hipblasCherk_ @@ -23386,13 +25202,18 @@ function hipblasCherk_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) & module procedure hipblasCherk_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCherk_assumed_rank + module procedure & + hipblasCherk_assumed_rank,& + hipblasCherk_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCherk_rank_0,& + hipblasCherk_rank_0_devptr,& hipblasCherk_rank_1,& - hipblasCherk_full_rank + hipblasCherk_rank_1_devptr,& + hipblasCherk_full_rank,& + hipblasCherk_full_rank_devptr #endif #endif end interface @@ -23400,7 +25221,6 @@ function hipblasCherk_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) & interface hipblasZherk function hipblasZherk_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) & bind(c, name="hipblasZherk") - use iso_c_binding import implicit none integer(c_int) :: hipblasZherk_ @@ -23420,13 +25240,18 @@ function hipblasZherk_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) & module procedure hipblasZherk_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZherk_assumed_rank + module procedure & + hipblasZherk_assumed_rank,& + hipblasZherk_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZherk_rank_0,& + hipblasZherk_rank_0_devptr,& hipblasZherk_rank_1,& - hipblasZherk_full_rank + hipblasZherk_rank_1_devptr,& + hipblasZherk_full_rank,& + hipblasZherk_full_rank_devptr #endif #endif end interface @@ -23434,7 +25259,6 @@ function hipblasZherk_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) & interface hipblasCherk_64 function hipblasCherk_64_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) & bind(c, name="hipblasCherk_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCherk_64_ @@ -23454,13 +25278,18 @@ function hipblasCherk_64_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) & module procedure hipblasCherk_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCherk_64_assumed_rank + module procedure & + hipblasCherk_64_assumed_rank,& + hipblasCherk_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCherk_64_rank_0,& + hipblasCherk_64_rank_0_devptr,& hipblasCherk_64_rank_1,& - hipblasCherk_64_full_rank + hipblasCherk_64_rank_1_devptr,& + hipblasCherk_64_full_rank,& + hipblasCherk_64_full_rank_devptr #endif #endif end interface @@ -23468,7 +25297,6 @@ function hipblasCherk_64_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) & interface hipblasZherk_64 function hipblasZherk_64_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) & bind(c, name="hipblasZherk_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZherk_64_ @@ -23488,13 +25316,18 @@ function hipblasZherk_64_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) & module procedure hipblasZherk_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZherk_64_assumed_rank + module procedure & + hipblasZherk_64_assumed_rank,& + hipblasZherk_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZherk_64_rank_0,& + hipblasZherk_64_rank_0_devptr,& hipblasZherk_64_rank_1,& - hipblasZherk_64_full_rank + hipblasZherk_64_rank_1_devptr,& + hipblasZherk_64_full_rank,& + hipblasZherk_64_full_rank_devptr #endif #endif end interface @@ -23502,7 +25335,6 @@ function hipblasZherk_64_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) & interface hipblasCherkBatched function hipblasCherkBatched_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc,batchCount) & bind(c, name="hipblasCherkBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCherkBatched_ @@ -23526,7 +25358,6 @@ function hipblasCherkBatched_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc,ba interface hipblasZherkBatched function hipblasZherkBatched_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc,batchCount) & bind(c, name="hipblasZherkBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZherkBatched_ @@ -23550,7 +25381,6 @@ function hipblasZherkBatched_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc,ba interface hipblasCherkBatched_64 function hipblasCherkBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc,batchCount) & bind(c, name="hipblasCherkBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCherkBatched_64_ @@ -23574,7 +25404,6 @@ function hipblasCherkBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc interface hipblasZherkBatched_64 function hipblasZherkBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc,batchCount) & bind(c, name="hipblasZherkBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZherkBatched_64_ @@ -23599,7 +25428,6 @@ function hipblasZherkBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc function hipblasCherkStridedBatched_(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta,CP,ldc, & strideC,batchCount) & bind(c, name="hipblasCherkStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCherkStridedBatched_ @@ -23622,13 +25450,20 @@ function hipblasCherkStridedBatched_(handle,uplo,transA,n,k,alpha,AP,lda,strideA module procedure hipblasCherkStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCherkStridedBatched_assumed_rank + module procedure & + hipblasCherkStridedBatched_assumed_rank,& + hipblasCherkStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCherkStridedBatched_rank_0,& + hipblasCherkStridedBatched_rank_0_devptr,& hipblasCherkStridedBatched_rank_1,& - hipblasCherkStridedBatched_full_rank + hipblasCherkStridedBatched_rank_1_devptr,& + hipblasCherkStridedBatched_full_rank,& + hipblasCherkStridedBatched_full_rank_devptr,& + hipblasCherkStridedBatched_strided_rank,& + hipblasCherkStridedBatched_strided_rank_devptr #endif #endif end interface @@ -23637,7 +25472,6 @@ function hipblasCherkStridedBatched_(handle,uplo,transA,n,k,alpha,AP,lda,strideA function hipblasZherkStridedBatched_(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta,CP,ldc, & strideC,batchCount) & bind(c, name="hipblasZherkStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZherkStridedBatched_ @@ -23660,13 +25494,20 @@ function hipblasZherkStridedBatched_(handle,uplo,transA,n,k,alpha,AP,lda,strideA module procedure hipblasZherkStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZherkStridedBatched_assumed_rank + module procedure & + hipblasZherkStridedBatched_assumed_rank,& + hipblasZherkStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZherkStridedBatched_rank_0,& + hipblasZherkStridedBatched_rank_0_devptr,& hipblasZherkStridedBatched_rank_1,& - hipblasZherkStridedBatched_full_rank + hipblasZherkStridedBatched_rank_1_devptr,& + hipblasZherkStridedBatched_full_rank,& + hipblasZherkStridedBatched_full_rank_devptr,& + hipblasZherkStridedBatched_strided_rank,& + hipblasZherkStridedBatched_strided_rank_devptr #endif #endif end interface @@ -23675,7 +25516,6 @@ function hipblasZherkStridedBatched_(handle,uplo,transA,n,k,alpha,AP,lda,strideA function hipblasCherkStridedBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta,CP, & ldc,strideC,batchCount) & bind(c, name="hipblasCherkStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCherkStridedBatched_64_ @@ -23698,13 +25538,20 @@ function hipblasCherkStridedBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,stri module procedure hipblasCherkStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCherkStridedBatched_64_assumed_rank + module procedure & + hipblasCherkStridedBatched_64_assumed_rank,& + hipblasCherkStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCherkStridedBatched_64_rank_0,& + hipblasCherkStridedBatched_64_rank_0_devptr,& hipblasCherkStridedBatched_64_rank_1,& - hipblasCherkStridedBatched_64_full_rank + hipblasCherkStridedBatched_64_rank_1_devptr,& + hipblasCherkStridedBatched_64_full_rank,& + hipblasCherkStridedBatched_64_full_rank_devptr,& + hipblasCherkStridedBatched_64_strided_rank,& + hipblasCherkStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -23713,7 +25560,6 @@ function hipblasCherkStridedBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,stri function hipblasZherkStridedBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta,CP, & ldc,strideC,batchCount) & bind(c, name="hipblasZherkStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZherkStridedBatched_64_ @@ -23736,13 +25582,20 @@ function hipblasZherkStridedBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,stri module procedure hipblasZherkStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZherkStridedBatched_64_assumed_rank + module procedure & + hipblasZherkStridedBatched_64_assumed_rank,& + hipblasZherkStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZherkStridedBatched_64_rank_0,& + hipblasZherkStridedBatched_64_rank_0_devptr,& hipblasZherkStridedBatched_64_rank_1,& - hipblasZherkStridedBatched_64_full_rank + hipblasZherkStridedBatched_64_rank_1_devptr,& + hipblasZherkStridedBatched_64_full_rank,& + hipblasZherkStridedBatched_64_full_rank_devptr,& + hipblasZherkStridedBatched_64_strided_rank,& + hipblasZherkStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -23750,7 +25603,6 @@ function hipblasZherkStridedBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,stri interface hipblasCherkx function hipblasCherkx_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & bind(c, name="hipblasCherkx") - use iso_c_binding import implicit none integer(c_int) :: hipblasCherkx_ @@ -23772,13 +25624,18 @@ function hipblasCherkx_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) module procedure hipblasCherkx_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCherkx_assumed_rank + module procedure & + hipblasCherkx_assumed_rank,& + hipblasCherkx_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCherkx_rank_0,& + hipblasCherkx_rank_0_devptr,& hipblasCherkx_rank_1,& - hipblasCherkx_full_rank + hipblasCherkx_rank_1_devptr,& + hipblasCherkx_full_rank,& + hipblasCherkx_full_rank_devptr #endif #endif end interface @@ -23786,7 +25643,6 @@ function hipblasCherkx_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) interface hipblasZherkx function hipblasZherkx_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & bind(c, name="hipblasZherkx") - use iso_c_binding import implicit none integer(c_int) :: hipblasZherkx_ @@ -23808,13 +25664,18 @@ function hipblasZherkx_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) module procedure hipblasZherkx_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZherkx_assumed_rank + module procedure & + hipblasZherkx_assumed_rank,& + hipblasZherkx_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZherkx_rank_0,& + hipblasZherkx_rank_0_devptr,& hipblasZherkx_rank_1,& - hipblasZherkx_full_rank + hipblasZherkx_rank_1_devptr,& + hipblasZherkx_full_rank,& + hipblasZherkx_full_rank_devptr #endif #endif end interface @@ -23822,7 +25683,6 @@ function hipblasZherkx_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) interface hipblasCherkx_64 function hipblasCherkx_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & bind(c, name="hipblasCherkx_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCherkx_64_ @@ -23844,13 +25704,18 @@ function hipblasCherkx_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ld module procedure hipblasCherkx_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCherkx_64_assumed_rank + module procedure & + hipblasCherkx_64_assumed_rank,& + hipblasCherkx_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCherkx_64_rank_0,& + hipblasCherkx_64_rank_0_devptr,& hipblasCherkx_64_rank_1,& - hipblasCherkx_64_full_rank + hipblasCherkx_64_rank_1_devptr,& + hipblasCherkx_64_full_rank,& + hipblasCherkx_64_full_rank_devptr #endif #endif end interface @@ -23858,7 +25723,6 @@ function hipblasCherkx_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ld interface hipblasZherkx_64 function hipblasZherkx_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & bind(c, name="hipblasZherkx_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZherkx_64_ @@ -23880,13 +25744,18 @@ function hipblasZherkx_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ld module procedure hipblasZherkx_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZherkx_64_assumed_rank + module procedure & + hipblasZherkx_64_assumed_rank,& + hipblasZherkx_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZherkx_64_rank_0,& + hipblasZherkx_64_rank_0_devptr,& hipblasZherkx_64_rank_1,& - hipblasZherkx_64_full_rank + hipblasZherkx_64_rank_1_devptr,& + hipblasZherkx_64_full_rank,& + hipblasZherkx_64_full_rank_devptr #endif #endif end interface @@ -23895,7 +25764,6 @@ function hipblasZherkx_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ld function hipblasCherkxBatched_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) & bind(c, name="hipblasCherkxBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCherkxBatched_ @@ -23922,7 +25790,6 @@ function hipblasCherkxBatched_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,C function hipblasZherkxBatched_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) & bind(c, name="hipblasZherkxBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZherkxBatched_ @@ -23949,7 +25816,6 @@ function hipblasZherkxBatched_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,C function hipblasCherkxBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) & bind(c, name="hipblasCherkxBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCherkxBatched_64_ @@ -23976,7 +25842,6 @@ function hipblasCherkxBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,bet function hipblasZherkxBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) & bind(c, name="hipblasZherkxBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZherkxBatched_64_ @@ -24003,7 +25868,6 @@ function hipblasZherkxBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,bet function hipblasCherkxStridedBatched_(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP,ldb, & strideB,beta,CP,ldc,strideC,batchCount) & bind(c, name="hipblasCherkxStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCherkxStridedBatched_ @@ -24029,13 +25893,20 @@ function hipblasCherkxStridedBatched_(handle,uplo,transA,n,k,alpha,AP,lda,stride module procedure hipblasCherkxStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCherkxStridedBatched_assumed_rank + module procedure & + hipblasCherkxStridedBatched_assumed_rank,& + hipblasCherkxStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCherkxStridedBatched_rank_0,& + hipblasCherkxStridedBatched_rank_0_devptr,& hipblasCherkxStridedBatched_rank_1,& - hipblasCherkxStridedBatched_full_rank + hipblasCherkxStridedBatched_rank_1_devptr,& + hipblasCherkxStridedBatched_full_rank,& + hipblasCherkxStridedBatched_full_rank_devptr,& + hipblasCherkxStridedBatched_strided_rank,& + hipblasCherkxStridedBatched_strided_rank_devptr #endif #endif end interface @@ -24044,7 +25915,6 @@ function hipblasCherkxStridedBatched_(handle,uplo,transA,n,k,alpha,AP,lda,stride function hipblasZherkxStridedBatched_(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP,ldb, & strideB,beta,CP,ldc,strideC,batchCount) & bind(c, name="hipblasZherkxStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZherkxStridedBatched_ @@ -24070,13 +25940,20 @@ function hipblasZherkxStridedBatched_(handle,uplo,transA,n,k,alpha,AP,lda,stride module procedure hipblasZherkxStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZherkxStridedBatched_assumed_rank + module procedure & + hipblasZherkxStridedBatched_assumed_rank,& + hipblasZherkxStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZherkxStridedBatched_rank_0,& + hipblasZherkxStridedBatched_rank_0_devptr,& hipblasZherkxStridedBatched_rank_1,& - hipblasZherkxStridedBatched_full_rank + hipblasZherkxStridedBatched_rank_1_devptr,& + hipblasZherkxStridedBatched_full_rank,& + hipblasZherkxStridedBatched_full_rank_devptr,& + hipblasZherkxStridedBatched_strided_rank,& + hipblasZherkxStridedBatched_strided_rank_devptr #endif #endif end interface @@ -24085,7 +25962,6 @@ function hipblasZherkxStridedBatched_(handle,uplo,transA,n,k,alpha,AP,lda,stride function hipblasCherkxStridedBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP,ldb, & strideB,beta,CP,ldc,strideC,batchCount) & bind(c, name="hipblasCherkxStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCherkxStridedBatched_64_ @@ -24111,13 +25987,20 @@ function hipblasCherkxStridedBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,str module procedure hipblasCherkxStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCherkxStridedBatched_64_assumed_rank + module procedure & + hipblasCherkxStridedBatched_64_assumed_rank,& + hipblasCherkxStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCherkxStridedBatched_64_rank_0,& + hipblasCherkxStridedBatched_64_rank_0_devptr,& hipblasCherkxStridedBatched_64_rank_1,& - hipblasCherkxStridedBatched_64_full_rank + hipblasCherkxStridedBatched_64_rank_1_devptr,& + hipblasCherkxStridedBatched_64_full_rank,& + hipblasCherkxStridedBatched_64_full_rank_devptr,& + hipblasCherkxStridedBatched_64_strided_rank,& + hipblasCherkxStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -24126,7 +26009,6 @@ function hipblasCherkxStridedBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,str function hipblasZherkxStridedBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP,ldb, & strideB,beta,CP,ldc,strideC,batchCount) & bind(c, name="hipblasZherkxStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZherkxStridedBatched_64_ @@ -24152,13 +26034,20 @@ function hipblasZherkxStridedBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,str module procedure hipblasZherkxStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZherkxStridedBatched_64_assumed_rank + module procedure & + hipblasZherkxStridedBatched_64_assumed_rank,& + hipblasZherkxStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZherkxStridedBatched_64_rank_0,& + hipblasZherkxStridedBatched_64_rank_0_devptr,& hipblasZherkxStridedBatched_64_rank_1,& - hipblasZherkxStridedBatched_64_full_rank + hipblasZherkxStridedBatched_64_rank_1_devptr,& + hipblasZherkxStridedBatched_64_full_rank,& + hipblasZherkxStridedBatched_64_full_rank_devptr,& + hipblasZherkxStridedBatched_64_strided_rank,& + hipblasZherkxStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -24166,7 +26055,6 @@ function hipblasZherkxStridedBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,str interface hipblasCher2k function hipblasCher2k_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & bind(c, name="hipblasCher2k") - use iso_c_binding import implicit none integer(c_int) :: hipblasCher2k_ @@ -24188,13 +26076,18 @@ function hipblasCher2k_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) module procedure hipblasCher2k_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCher2k_assumed_rank + module procedure & + hipblasCher2k_assumed_rank,& + hipblasCher2k_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCher2k_rank_0,& + hipblasCher2k_rank_0_devptr,& hipblasCher2k_rank_1,& - hipblasCher2k_full_rank + hipblasCher2k_rank_1_devptr,& + hipblasCher2k_full_rank,& + hipblasCher2k_full_rank_devptr #endif #endif end interface @@ -24202,7 +26095,6 @@ function hipblasCher2k_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) interface hipblasZher2k function hipblasZher2k_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & bind(c, name="hipblasZher2k") - use iso_c_binding import implicit none integer(c_int) :: hipblasZher2k_ @@ -24224,13 +26116,18 @@ function hipblasZher2k_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) module procedure hipblasZher2k_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZher2k_assumed_rank + module procedure & + hipblasZher2k_assumed_rank,& + hipblasZher2k_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZher2k_rank_0,& + hipblasZher2k_rank_0_devptr,& hipblasZher2k_rank_1,& - hipblasZher2k_full_rank + hipblasZher2k_rank_1_devptr,& + hipblasZher2k_full_rank,& + hipblasZher2k_full_rank_devptr #endif #endif end interface @@ -24238,7 +26135,6 @@ function hipblasZher2k_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) interface hipblasCher2k_64 function hipblasCher2k_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & bind(c, name="hipblasCher2k_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCher2k_64_ @@ -24260,13 +26156,18 @@ function hipblasCher2k_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ld module procedure hipblasCher2k_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCher2k_64_assumed_rank + module procedure & + hipblasCher2k_64_assumed_rank,& + hipblasCher2k_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCher2k_64_rank_0,& + hipblasCher2k_64_rank_0_devptr,& hipblasCher2k_64_rank_1,& - hipblasCher2k_64_full_rank + hipblasCher2k_64_rank_1_devptr,& + hipblasCher2k_64_full_rank,& + hipblasCher2k_64_full_rank_devptr #endif #endif end interface @@ -24274,7 +26175,6 @@ function hipblasCher2k_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ld interface hipblasZher2k_64 function hipblasZher2k_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & bind(c, name="hipblasZher2k_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZher2k_64_ @@ -24296,13 +26196,18 @@ function hipblasZher2k_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ld module procedure hipblasZher2k_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZher2k_64_assumed_rank + module procedure & + hipblasZher2k_64_assumed_rank,& + hipblasZher2k_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZher2k_64_rank_0,& + hipblasZher2k_64_rank_0_devptr,& hipblasZher2k_64_rank_1,& - hipblasZher2k_64_full_rank + hipblasZher2k_64_rank_1_devptr,& + hipblasZher2k_64_full_rank,& + hipblasZher2k_64_full_rank_devptr #endif #endif end interface @@ -24311,7 +26216,6 @@ function hipblasZher2k_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ld function hipblasCher2kBatched_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) & bind(c, name="hipblasCher2kBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCher2kBatched_ @@ -24338,7 +26242,6 @@ function hipblasCher2kBatched_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,C function hipblasZher2kBatched_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) & bind(c, name="hipblasZher2kBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZher2kBatched_ @@ -24365,7 +26268,6 @@ function hipblasZher2kBatched_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,C function hipblasCher2kBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) & bind(c, name="hipblasCher2kBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCher2kBatched_64_ @@ -24392,7 +26294,6 @@ function hipblasCher2kBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,bet function hipblasZher2kBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) & bind(c, name="hipblasZher2kBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZher2kBatched_64_ @@ -24419,7 +26320,6 @@ function hipblasZher2kBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,bet function hipblasCher2kStridedBatched_(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP,ldb, & strideB,beta,CP,ldc,strideC,batchCount) & bind(c, name="hipblasCher2kStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCher2kStridedBatched_ @@ -24445,13 +26345,20 @@ function hipblasCher2kStridedBatched_(handle,uplo,transA,n,k,alpha,AP,lda,stride module procedure hipblasCher2kStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCher2kStridedBatched_assumed_rank + module procedure & + hipblasCher2kStridedBatched_assumed_rank,& + hipblasCher2kStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCher2kStridedBatched_rank_0,& + hipblasCher2kStridedBatched_rank_0_devptr,& hipblasCher2kStridedBatched_rank_1,& - hipblasCher2kStridedBatched_full_rank + hipblasCher2kStridedBatched_rank_1_devptr,& + hipblasCher2kStridedBatched_full_rank,& + hipblasCher2kStridedBatched_full_rank_devptr,& + hipblasCher2kStridedBatched_strided_rank,& + hipblasCher2kStridedBatched_strided_rank_devptr #endif #endif end interface @@ -24460,7 +26367,6 @@ function hipblasCher2kStridedBatched_(handle,uplo,transA,n,k,alpha,AP,lda,stride function hipblasZher2kStridedBatched_(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP,ldb, & strideB,beta,CP,ldc,strideC,batchCount) & bind(c, name="hipblasZher2kStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZher2kStridedBatched_ @@ -24486,13 +26392,20 @@ function hipblasZher2kStridedBatched_(handle,uplo,transA,n,k,alpha,AP,lda,stride module procedure hipblasZher2kStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZher2kStridedBatched_assumed_rank + module procedure & + hipblasZher2kStridedBatched_assumed_rank,& + hipblasZher2kStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZher2kStridedBatched_rank_0,& + hipblasZher2kStridedBatched_rank_0_devptr,& hipblasZher2kStridedBatched_rank_1,& - hipblasZher2kStridedBatched_full_rank + hipblasZher2kStridedBatched_rank_1_devptr,& + hipblasZher2kStridedBatched_full_rank,& + hipblasZher2kStridedBatched_full_rank_devptr,& + hipblasZher2kStridedBatched_strided_rank,& + hipblasZher2kStridedBatched_strided_rank_devptr #endif #endif end interface @@ -24501,7 +26414,6 @@ function hipblasZher2kStridedBatched_(handle,uplo,transA,n,k,alpha,AP,lda,stride function hipblasCher2kStridedBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP,ldb, & strideB,beta,CP,ldc,strideC,batchCount) & bind(c, name="hipblasCher2kStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCher2kStridedBatched_64_ @@ -24527,13 +26439,20 @@ function hipblasCher2kStridedBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,str module procedure hipblasCher2kStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCher2kStridedBatched_64_assumed_rank + module procedure & + hipblasCher2kStridedBatched_64_assumed_rank,& + hipblasCher2kStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCher2kStridedBatched_64_rank_0,& + hipblasCher2kStridedBatched_64_rank_0_devptr,& hipblasCher2kStridedBatched_64_rank_1,& - hipblasCher2kStridedBatched_64_full_rank + hipblasCher2kStridedBatched_64_rank_1_devptr,& + hipblasCher2kStridedBatched_64_full_rank,& + hipblasCher2kStridedBatched_64_full_rank_devptr,& + hipblasCher2kStridedBatched_64_strided_rank,& + hipblasCher2kStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -24542,7 +26461,6 @@ function hipblasCher2kStridedBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,str function hipblasZher2kStridedBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP,ldb, & strideB,beta,CP,ldc,strideC,batchCount) & bind(c, name="hipblasZher2kStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZher2kStridedBatched_64_ @@ -24568,13 +26486,20 @@ function hipblasZher2kStridedBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,str module procedure hipblasZher2kStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZher2kStridedBatched_64_assumed_rank + module procedure & + hipblasZher2kStridedBatched_64_assumed_rank,& + hipblasZher2kStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZher2kStridedBatched_64_rank_0,& + hipblasZher2kStridedBatched_64_rank_0_devptr,& hipblasZher2kStridedBatched_64_rank_1,& - hipblasZher2kStridedBatched_64_full_rank + hipblasZher2kStridedBatched_64_rank_1_devptr,& + hipblasZher2kStridedBatched_64_full_rank,& + hipblasZher2kStridedBatched_64_full_rank_devptr,& + hipblasZher2kStridedBatched_64_strided_rank,& + hipblasZher2kStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -24582,7 +26507,6 @@ function hipblasZher2kStridedBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,str interface hipblasSsymm function hipblasSsymm_(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) & bind(c, name="hipblasSsymm") - use iso_c_binding import implicit none integer(c_int) :: hipblasSsymm_ @@ -24604,13 +26528,18 @@ function hipblasSsymm_(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) & module procedure hipblasSsymm_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasSsymm_assumed_rank + module procedure & + hipblasSsymm_assumed_rank,& + hipblasSsymm_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSsymm_rank_0,& + hipblasSsymm_rank_0_devptr,& hipblasSsymm_rank_1,& - hipblasSsymm_full_rank + hipblasSsymm_rank_1_devptr,& + hipblasSsymm_full_rank,& + hipblasSsymm_full_rank_devptr #endif #endif end interface @@ -24618,7 +26547,6 @@ function hipblasSsymm_(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) & interface hipblasDsymm function hipblasDsymm_(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) & bind(c, name="hipblasDsymm") - use iso_c_binding import implicit none integer(c_int) :: hipblasDsymm_ @@ -24640,13 +26568,18 @@ function hipblasDsymm_(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) & module procedure hipblasDsymm_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDsymm_assumed_rank + module procedure & + hipblasDsymm_assumed_rank,& + hipblasDsymm_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDsymm_rank_0,& + hipblasDsymm_rank_0_devptr,& hipblasDsymm_rank_1,& - hipblasDsymm_full_rank + hipblasDsymm_rank_1_devptr,& + hipblasDsymm_full_rank,& + hipblasDsymm_full_rank_devptr #endif #endif end interface @@ -24654,7 +26587,6 @@ function hipblasDsymm_(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) & interface hipblasCsymm function hipblasCsymm_(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) & bind(c, name="hipblasCsymm") - use iso_c_binding import implicit none integer(c_int) :: hipblasCsymm_ @@ -24676,13 +26608,18 @@ function hipblasCsymm_(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) & module procedure hipblasCsymm_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCsymm_assumed_rank + module procedure & + hipblasCsymm_assumed_rank,& + hipblasCsymm_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCsymm_rank_0,& + hipblasCsymm_rank_0_devptr,& hipblasCsymm_rank_1,& - hipblasCsymm_full_rank + hipblasCsymm_rank_1_devptr,& + hipblasCsymm_full_rank,& + hipblasCsymm_full_rank_devptr #endif #endif end interface @@ -24690,7 +26627,6 @@ function hipblasCsymm_(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) & interface hipblasZsymm function hipblasZsymm_(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) & bind(c, name="hipblasZsymm") - use iso_c_binding import implicit none integer(c_int) :: hipblasZsymm_ @@ -24712,13 +26648,18 @@ function hipblasZsymm_(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) & module procedure hipblasZsymm_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZsymm_assumed_rank + module procedure & + hipblasZsymm_assumed_rank,& + hipblasZsymm_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZsymm_rank_0,& + hipblasZsymm_rank_0_devptr,& hipblasZsymm_rank_1,& - hipblasZsymm_full_rank + hipblasZsymm_rank_1_devptr,& + hipblasZsymm_full_rank,& + hipblasZsymm_full_rank_devptr #endif #endif end interface @@ -24726,7 +26667,6 @@ function hipblasZsymm_(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) & interface hipblasSsymm_64 function hipblasSsymm_64_(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) & bind(c, name="hipblasSsymm_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSsymm_64_ @@ -24748,13 +26688,18 @@ function hipblasSsymm_64_(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) module procedure hipblasSsymm_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasSsymm_64_assumed_rank + module procedure & + hipblasSsymm_64_assumed_rank,& + hipblasSsymm_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSsymm_64_rank_0,& + hipblasSsymm_64_rank_0_devptr,& hipblasSsymm_64_rank_1,& - hipblasSsymm_64_full_rank + hipblasSsymm_64_rank_1_devptr,& + hipblasSsymm_64_full_rank,& + hipblasSsymm_64_full_rank_devptr #endif #endif end interface @@ -24762,7 +26707,6 @@ function hipblasSsymm_64_(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) interface hipblasDsymm_64 function hipblasDsymm_64_(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) & bind(c, name="hipblasDsymm_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDsymm_64_ @@ -24784,13 +26728,18 @@ function hipblasDsymm_64_(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) module procedure hipblasDsymm_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDsymm_64_assumed_rank + module procedure & + hipblasDsymm_64_assumed_rank,& + hipblasDsymm_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDsymm_64_rank_0,& + hipblasDsymm_64_rank_0_devptr,& hipblasDsymm_64_rank_1,& - hipblasDsymm_64_full_rank + hipblasDsymm_64_rank_1_devptr,& + hipblasDsymm_64_full_rank,& + hipblasDsymm_64_full_rank_devptr #endif #endif end interface @@ -24798,7 +26747,6 @@ function hipblasDsymm_64_(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) interface hipblasCsymm_64 function hipblasCsymm_64_(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) & bind(c, name="hipblasCsymm_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCsymm_64_ @@ -24820,13 +26768,18 @@ function hipblasCsymm_64_(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) module procedure hipblasCsymm_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCsymm_64_assumed_rank + module procedure & + hipblasCsymm_64_assumed_rank,& + hipblasCsymm_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCsymm_64_rank_0,& + hipblasCsymm_64_rank_0_devptr,& hipblasCsymm_64_rank_1,& - hipblasCsymm_64_full_rank + hipblasCsymm_64_rank_1_devptr,& + hipblasCsymm_64_full_rank,& + hipblasCsymm_64_full_rank_devptr #endif #endif end interface @@ -24834,7 +26787,6 @@ function hipblasCsymm_64_(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) interface hipblasZsymm_64 function hipblasZsymm_64_(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) & bind(c, name="hipblasZsymm_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZsymm_64_ @@ -24856,13 +26808,18 @@ function hipblasZsymm_64_(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) module procedure hipblasZsymm_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZsymm_64_assumed_rank + module procedure & + hipblasZsymm_64_assumed_rank,& + hipblasZsymm_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZsymm_64_rank_0,& + hipblasZsymm_64_rank_0_devptr,& hipblasZsymm_64_rank_1,& - hipblasZsymm_64_full_rank + hipblasZsymm_64_rank_1_devptr,& + hipblasZsymm_64_full_rank,& + hipblasZsymm_64_full_rank_devptr #endif #endif end interface @@ -24870,7 +26827,6 @@ function hipblasZsymm_64_(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) interface hipblasSsymmBatched function hipblasSsymmBatched_(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc,batchCount) & bind(c, name="hipblasSsymmBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasSsymmBatched_ @@ -24896,7 +26852,6 @@ function hipblasSsymmBatched_(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,l interface hipblasDsymmBatched function hipblasDsymmBatched_(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc,batchCount) & bind(c, name="hipblasDsymmBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDsymmBatched_ @@ -24922,7 +26877,6 @@ function hipblasDsymmBatched_(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,l interface hipblasCsymmBatched function hipblasCsymmBatched_(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc,batchCount) & bind(c, name="hipblasCsymmBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCsymmBatched_ @@ -24948,7 +26902,6 @@ function hipblasCsymmBatched_(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,l interface hipblasZsymmBatched function hipblasZsymmBatched_(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc,batchCount) & bind(c, name="hipblasZsymmBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZsymmBatched_ @@ -24975,7 +26928,6 @@ function hipblasZsymmBatched_(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,l function hipblasSsymmBatched_64_(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) & bind(c, name="hipblasSsymmBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSsymmBatched_64_ @@ -25002,7 +26954,6 @@ function hipblasSsymmBatched_64_(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,C function hipblasDsymmBatched_64_(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) & bind(c, name="hipblasDsymmBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDsymmBatched_64_ @@ -25029,7 +26980,6 @@ function hipblasDsymmBatched_64_(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,C function hipblasCsymmBatched_64_(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) & bind(c, name="hipblasCsymmBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCsymmBatched_64_ @@ -25056,7 +27006,6 @@ function hipblasCsymmBatched_64_(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,C function hipblasZsymmBatched_64_(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) & bind(c, name="hipblasZsymmBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZsymmBatched_64_ @@ -25083,7 +27032,6 @@ function hipblasZsymmBatched_64_(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,C function hipblasSsymmStridedBatched_(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP,ldb,strideB, & beta,CP,ldc,strideC,batchCount) & bind(c, name="hipblasSsymmStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasSsymmStridedBatched_ @@ -25109,13 +27057,20 @@ function hipblasSsymmStridedBatched_(handle,side,uplo,m,n,alpha,AP,lda,strideA,B module procedure hipblasSsymmStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasSsymmStridedBatched_assumed_rank + module procedure & + hipblasSsymmStridedBatched_assumed_rank,& + hipblasSsymmStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSsymmStridedBatched_rank_0,& + hipblasSsymmStridedBatched_rank_0_devptr,& hipblasSsymmStridedBatched_rank_1,& - hipblasSsymmStridedBatched_full_rank + hipblasSsymmStridedBatched_rank_1_devptr,& + hipblasSsymmStridedBatched_full_rank,& + hipblasSsymmStridedBatched_full_rank_devptr,& + hipblasSsymmStridedBatched_strided_rank,& + hipblasSsymmStridedBatched_strided_rank_devptr #endif #endif end interface @@ -25124,7 +27079,6 @@ function hipblasSsymmStridedBatched_(handle,side,uplo,m,n,alpha,AP,lda,strideA,B function hipblasDsymmStridedBatched_(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP,ldb,strideB, & beta,CP,ldc,strideC,batchCount) & bind(c, name="hipblasDsymmStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDsymmStridedBatched_ @@ -25150,13 +27104,20 @@ function hipblasDsymmStridedBatched_(handle,side,uplo,m,n,alpha,AP,lda,strideA,B module procedure hipblasDsymmStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDsymmStridedBatched_assumed_rank + module procedure & + hipblasDsymmStridedBatched_assumed_rank,& + hipblasDsymmStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDsymmStridedBatched_rank_0,& + hipblasDsymmStridedBatched_rank_0_devptr,& hipblasDsymmStridedBatched_rank_1,& - hipblasDsymmStridedBatched_full_rank + hipblasDsymmStridedBatched_rank_1_devptr,& + hipblasDsymmStridedBatched_full_rank,& + hipblasDsymmStridedBatched_full_rank_devptr,& + hipblasDsymmStridedBatched_strided_rank,& + hipblasDsymmStridedBatched_strided_rank_devptr #endif #endif end interface @@ -25165,7 +27126,6 @@ function hipblasDsymmStridedBatched_(handle,side,uplo,m,n,alpha,AP,lda,strideA,B function hipblasCsymmStridedBatched_(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP,ldb,strideB, & beta,CP,ldc,strideC,batchCount) & bind(c, name="hipblasCsymmStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCsymmStridedBatched_ @@ -25191,13 +27151,20 @@ function hipblasCsymmStridedBatched_(handle,side,uplo,m,n,alpha,AP,lda,strideA,B module procedure hipblasCsymmStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCsymmStridedBatched_assumed_rank + module procedure & + hipblasCsymmStridedBatched_assumed_rank,& + hipblasCsymmStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCsymmStridedBatched_rank_0,& + hipblasCsymmStridedBatched_rank_0_devptr,& hipblasCsymmStridedBatched_rank_1,& - hipblasCsymmStridedBatched_full_rank + hipblasCsymmStridedBatched_rank_1_devptr,& + hipblasCsymmStridedBatched_full_rank,& + hipblasCsymmStridedBatched_full_rank_devptr,& + hipblasCsymmStridedBatched_strided_rank,& + hipblasCsymmStridedBatched_strided_rank_devptr #endif #endif end interface @@ -25206,7 +27173,6 @@ function hipblasCsymmStridedBatched_(handle,side,uplo,m,n,alpha,AP,lda,strideA,B function hipblasZsymmStridedBatched_(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP,ldb,strideB, & beta,CP,ldc,strideC,batchCount) & bind(c, name="hipblasZsymmStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZsymmStridedBatched_ @@ -25232,13 +27198,20 @@ function hipblasZsymmStridedBatched_(handle,side,uplo,m,n,alpha,AP,lda,strideA,B module procedure hipblasZsymmStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZsymmStridedBatched_assumed_rank + module procedure & + hipblasZsymmStridedBatched_assumed_rank,& + hipblasZsymmStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZsymmStridedBatched_rank_0,& + hipblasZsymmStridedBatched_rank_0_devptr,& hipblasZsymmStridedBatched_rank_1,& - hipblasZsymmStridedBatched_full_rank + hipblasZsymmStridedBatched_rank_1_devptr,& + hipblasZsymmStridedBatched_full_rank,& + hipblasZsymmStridedBatched_full_rank_devptr,& + hipblasZsymmStridedBatched_strided_rank,& + hipblasZsymmStridedBatched_strided_rank_devptr #endif #endif end interface @@ -25247,7 +27220,6 @@ function hipblasZsymmStridedBatched_(handle,side,uplo,m,n,alpha,AP,lda,strideA,B function hipblasSsymmStridedBatched_64_(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP,ldb, & strideB,beta,CP,ldc,strideC,batchCount) & bind(c, name="hipblasSsymmStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSsymmStridedBatched_64_ @@ -25273,13 +27245,20 @@ function hipblasSsymmStridedBatched_64_(handle,side,uplo,m,n,alpha,AP,lda,stride module procedure hipblasSsymmStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasSsymmStridedBatched_64_assumed_rank + module procedure & + hipblasSsymmStridedBatched_64_assumed_rank,& + hipblasSsymmStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSsymmStridedBatched_64_rank_0,& + hipblasSsymmStridedBatched_64_rank_0_devptr,& hipblasSsymmStridedBatched_64_rank_1,& - hipblasSsymmStridedBatched_64_full_rank + hipblasSsymmStridedBatched_64_rank_1_devptr,& + hipblasSsymmStridedBatched_64_full_rank,& + hipblasSsymmStridedBatched_64_full_rank_devptr,& + hipblasSsymmStridedBatched_64_strided_rank,& + hipblasSsymmStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -25288,7 +27267,6 @@ function hipblasSsymmStridedBatched_64_(handle,side,uplo,m,n,alpha,AP,lda,stride function hipblasDsymmStridedBatched_64_(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP,ldb, & strideB,beta,CP,ldc,strideC,batchCount) & bind(c, name="hipblasDsymmStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDsymmStridedBatched_64_ @@ -25314,13 +27292,20 @@ function hipblasDsymmStridedBatched_64_(handle,side,uplo,m,n,alpha,AP,lda,stride module procedure hipblasDsymmStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDsymmStridedBatched_64_assumed_rank + module procedure & + hipblasDsymmStridedBatched_64_assumed_rank,& + hipblasDsymmStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDsymmStridedBatched_64_rank_0,& + hipblasDsymmStridedBatched_64_rank_0_devptr,& hipblasDsymmStridedBatched_64_rank_1,& - hipblasDsymmStridedBatched_64_full_rank + hipblasDsymmStridedBatched_64_rank_1_devptr,& + hipblasDsymmStridedBatched_64_full_rank,& + hipblasDsymmStridedBatched_64_full_rank_devptr,& + hipblasDsymmStridedBatched_64_strided_rank,& + hipblasDsymmStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -25329,7 +27314,6 @@ function hipblasDsymmStridedBatched_64_(handle,side,uplo,m,n,alpha,AP,lda,stride function hipblasCsymmStridedBatched_64_(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP,ldb, & strideB,beta,CP,ldc,strideC,batchCount) & bind(c, name="hipblasCsymmStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCsymmStridedBatched_64_ @@ -25355,13 +27339,20 @@ function hipblasCsymmStridedBatched_64_(handle,side,uplo,m,n,alpha,AP,lda,stride module procedure hipblasCsymmStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCsymmStridedBatched_64_assumed_rank + module procedure & + hipblasCsymmStridedBatched_64_assumed_rank,& + hipblasCsymmStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCsymmStridedBatched_64_rank_0,& + hipblasCsymmStridedBatched_64_rank_0_devptr,& hipblasCsymmStridedBatched_64_rank_1,& - hipblasCsymmStridedBatched_64_full_rank + hipblasCsymmStridedBatched_64_rank_1_devptr,& + hipblasCsymmStridedBatched_64_full_rank,& + hipblasCsymmStridedBatched_64_full_rank_devptr,& + hipblasCsymmStridedBatched_64_strided_rank,& + hipblasCsymmStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -25370,7 +27361,6 @@ function hipblasCsymmStridedBatched_64_(handle,side,uplo,m,n,alpha,AP,lda,stride function hipblasZsymmStridedBatched_64_(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP,ldb, & strideB,beta,CP,ldc,strideC,batchCount) & bind(c, name="hipblasZsymmStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZsymmStridedBatched_64_ @@ -25396,13 +27386,20 @@ function hipblasZsymmStridedBatched_64_(handle,side,uplo,m,n,alpha,AP,lda,stride module procedure hipblasZsymmStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZsymmStridedBatched_64_assumed_rank + module procedure & + hipblasZsymmStridedBatched_64_assumed_rank,& + hipblasZsymmStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZsymmStridedBatched_64_rank_0,& + hipblasZsymmStridedBatched_64_rank_0_devptr,& hipblasZsymmStridedBatched_64_rank_1,& - hipblasZsymmStridedBatched_64_full_rank + hipblasZsymmStridedBatched_64_rank_1_devptr,& + hipblasZsymmStridedBatched_64_full_rank,& + hipblasZsymmStridedBatched_64_full_rank_devptr,& + hipblasZsymmStridedBatched_64_strided_rank,& + hipblasZsymmStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -25410,7 +27407,6 @@ function hipblasZsymmStridedBatched_64_(handle,side,uplo,m,n,alpha,AP,lda,stride interface hipblasSsyrk function hipblasSsyrk_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) & bind(c, name="hipblasSsyrk") - use iso_c_binding import implicit none integer(c_int) :: hipblasSsyrk_ @@ -25430,13 +27426,18 @@ function hipblasSsyrk_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) & module procedure hipblasSsyrk_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasSsyrk_assumed_rank + module procedure & + hipblasSsyrk_assumed_rank,& + hipblasSsyrk_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSsyrk_rank_0,& + hipblasSsyrk_rank_0_devptr,& hipblasSsyrk_rank_1,& - hipblasSsyrk_full_rank + hipblasSsyrk_rank_1_devptr,& + hipblasSsyrk_full_rank,& + hipblasSsyrk_full_rank_devptr #endif #endif end interface @@ -25444,7 +27445,6 @@ function hipblasSsyrk_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) & interface hipblasDsyrk function hipblasDsyrk_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) & bind(c, name="hipblasDsyrk") - use iso_c_binding import implicit none integer(c_int) :: hipblasDsyrk_ @@ -25464,13 +27464,18 @@ function hipblasDsyrk_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) & module procedure hipblasDsyrk_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDsyrk_assumed_rank + module procedure & + hipblasDsyrk_assumed_rank,& + hipblasDsyrk_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDsyrk_rank_0,& + hipblasDsyrk_rank_0_devptr,& hipblasDsyrk_rank_1,& - hipblasDsyrk_full_rank + hipblasDsyrk_rank_1_devptr,& + hipblasDsyrk_full_rank,& + hipblasDsyrk_full_rank_devptr #endif #endif end interface @@ -25478,7 +27483,6 @@ function hipblasDsyrk_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) & interface hipblasCsyrk function hipblasCsyrk_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) & bind(c, name="hipblasCsyrk") - use iso_c_binding import implicit none integer(c_int) :: hipblasCsyrk_ @@ -25498,13 +27502,18 @@ function hipblasCsyrk_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) & module procedure hipblasCsyrk_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCsyrk_assumed_rank + module procedure & + hipblasCsyrk_assumed_rank,& + hipblasCsyrk_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCsyrk_rank_0,& + hipblasCsyrk_rank_0_devptr,& hipblasCsyrk_rank_1,& - hipblasCsyrk_full_rank + hipblasCsyrk_rank_1_devptr,& + hipblasCsyrk_full_rank,& + hipblasCsyrk_full_rank_devptr #endif #endif end interface @@ -25512,7 +27521,6 @@ function hipblasCsyrk_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) & interface hipblasZsyrk function hipblasZsyrk_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) & bind(c, name="hipblasZsyrk") - use iso_c_binding import implicit none integer(c_int) :: hipblasZsyrk_ @@ -25532,13 +27540,18 @@ function hipblasZsyrk_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) & module procedure hipblasZsyrk_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZsyrk_assumed_rank + module procedure & + hipblasZsyrk_assumed_rank,& + hipblasZsyrk_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZsyrk_rank_0,& + hipblasZsyrk_rank_0_devptr,& hipblasZsyrk_rank_1,& - hipblasZsyrk_full_rank + hipblasZsyrk_rank_1_devptr,& + hipblasZsyrk_full_rank,& + hipblasZsyrk_full_rank_devptr #endif #endif end interface @@ -25546,7 +27559,6 @@ function hipblasZsyrk_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) & interface hipblasSsyrk_64 function hipblasSsyrk_64_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) & bind(c, name="hipblasSsyrk_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSsyrk_64_ @@ -25566,13 +27578,18 @@ function hipblasSsyrk_64_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) & module procedure hipblasSsyrk_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasSsyrk_64_assumed_rank + module procedure & + hipblasSsyrk_64_assumed_rank,& + hipblasSsyrk_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSsyrk_64_rank_0,& + hipblasSsyrk_64_rank_0_devptr,& hipblasSsyrk_64_rank_1,& - hipblasSsyrk_64_full_rank + hipblasSsyrk_64_rank_1_devptr,& + hipblasSsyrk_64_full_rank,& + hipblasSsyrk_64_full_rank_devptr #endif #endif end interface @@ -25580,7 +27597,6 @@ function hipblasSsyrk_64_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) & interface hipblasDsyrk_64 function hipblasDsyrk_64_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) & bind(c, name="hipblasDsyrk_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDsyrk_64_ @@ -25600,13 +27616,18 @@ function hipblasDsyrk_64_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) & module procedure hipblasDsyrk_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDsyrk_64_assumed_rank + module procedure & + hipblasDsyrk_64_assumed_rank,& + hipblasDsyrk_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDsyrk_64_rank_0,& + hipblasDsyrk_64_rank_0_devptr,& hipblasDsyrk_64_rank_1,& - hipblasDsyrk_64_full_rank + hipblasDsyrk_64_rank_1_devptr,& + hipblasDsyrk_64_full_rank,& + hipblasDsyrk_64_full_rank_devptr #endif #endif end interface @@ -25614,7 +27635,6 @@ function hipblasDsyrk_64_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) & interface hipblasCsyrk_64 function hipblasCsyrk_64_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) & bind(c, name="hipblasCsyrk_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCsyrk_64_ @@ -25634,13 +27654,18 @@ function hipblasCsyrk_64_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) & module procedure hipblasCsyrk_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCsyrk_64_assumed_rank + module procedure & + hipblasCsyrk_64_assumed_rank,& + hipblasCsyrk_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCsyrk_64_rank_0,& + hipblasCsyrk_64_rank_0_devptr,& hipblasCsyrk_64_rank_1,& - hipblasCsyrk_64_full_rank + hipblasCsyrk_64_rank_1_devptr,& + hipblasCsyrk_64_full_rank,& + hipblasCsyrk_64_full_rank_devptr #endif #endif end interface @@ -25648,7 +27673,6 @@ function hipblasCsyrk_64_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) & interface hipblasZsyrk_64 function hipblasZsyrk_64_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) & bind(c, name="hipblasZsyrk_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZsyrk_64_ @@ -25668,13 +27692,18 @@ function hipblasZsyrk_64_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) & module procedure hipblasZsyrk_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZsyrk_64_assumed_rank + module procedure & + hipblasZsyrk_64_assumed_rank,& + hipblasZsyrk_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZsyrk_64_rank_0,& + hipblasZsyrk_64_rank_0_devptr,& hipblasZsyrk_64_rank_1,& - hipblasZsyrk_64_full_rank + hipblasZsyrk_64_rank_1_devptr,& + hipblasZsyrk_64_full_rank,& + hipblasZsyrk_64_full_rank_devptr #endif #endif end interface @@ -25682,7 +27711,6 @@ function hipblasZsyrk_64_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) & interface hipblasSsyrkBatched function hipblasSsyrkBatched_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc,batchCount) & bind(c, name="hipblasSsyrkBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasSsyrkBatched_ @@ -25706,7 +27734,6 @@ function hipblasSsyrkBatched_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc,ba interface hipblasDsyrkBatched function hipblasDsyrkBatched_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc,batchCount) & bind(c, name="hipblasDsyrkBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDsyrkBatched_ @@ -25730,7 +27757,6 @@ function hipblasDsyrkBatched_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc,ba interface hipblasCsyrkBatched function hipblasCsyrkBatched_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc,batchCount) & bind(c, name="hipblasCsyrkBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCsyrkBatched_ @@ -25754,7 +27780,6 @@ function hipblasCsyrkBatched_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc,ba interface hipblasZsyrkBatched function hipblasZsyrkBatched_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc,batchCount) & bind(c, name="hipblasZsyrkBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZsyrkBatched_ @@ -25778,7 +27803,6 @@ function hipblasZsyrkBatched_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc,ba interface hipblasSsyrkBatched_64 function hipblasSsyrkBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc,batchCount) & bind(c, name="hipblasSsyrkBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSsyrkBatched_64_ @@ -25802,7 +27826,6 @@ function hipblasSsyrkBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc interface hipblasDsyrkBatched_64 function hipblasDsyrkBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc,batchCount) & bind(c, name="hipblasDsyrkBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDsyrkBatched_64_ @@ -25826,7 +27849,6 @@ function hipblasDsyrkBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc interface hipblasCsyrkBatched_64 function hipblasCsyrkBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc,batchCount) & bind(c, name="hipblasCsyrkBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCsyrkBatched_64_ @@ -25850,7 +27872,6 @@ function hipblasCsyrkBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc interface hipblasZsyrkBatched_64 function hipblasZsyrkBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc,batchCount) & bind(c, name="hipblasZsyrkBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZsyrkBatched_64_ @@ -25875,7 +27896,6 @@ function hipblasZsyrkBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc function hipblasSsyrkStridedBatched_(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta,CP,ldc, & strideC,batchCount) & bind(c, name="hipblasSsyrkStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasSsyrkStridedBatched_ @@ -25898,13 +27918,20 @@ function hipblasSsyrkStridedBatched_(handle,uplo,transA,n,k,alpha,AP,lda,strideA module procedure hipblasSsyrkStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasSsyrkStridedBatched_assumed_rank + module procedure & + hipblasSsyrkStridedBatched_assumed_rank,& + hipblasSsyrkStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSsyrkStridedBatched_rank_0,& + hipblasSsyrkStridedBatched_rank_0_devptr,& hipblasSsyrkStridedBatched_rank_1,& - hipblasSsyrkStridedBatched_full_rank + hipblasSsyrkStridedBatched_rank_1_devptr,& + hipblasSsyrkStridedBatched_full_rank,& + hipblasSsyrkStridedBatched_full_rank_devptr,& + hipblasSsyrkStridedBatched_strided_rank,& + hipblasSsyrkStridedBatched_strided_rank_devptr #endif #endif end interface @@ -25913,7 +27940,6 @@ function hipblasSsyrkStridedBatched_(handle,uplo,transA,n,k,alpha,AP,lda,strideA function hipblasDsyrkStridedBatched_(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta,CP,ldc, & strideC,batchCount) & bind(c, name="hipblasDsyrkStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDsyrkStridedBatched_ @@ -25936,13 +27962,20 @@ function hipblasDsyrkStridedBatched_(handle,uplo,transA,n,k,alpha,AP,lda,strideA module procedure hipblasDsyrkStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDsyrkStridedBatched_assumed_rank + module procedure & + hipblasDsyrkStridedBatched_assumed_rank,& + hipblasDsyrkStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDsyrkStridedBatched_rank_0,& + hipblasDsyrkStridedBatched_rank_0_devptr,& hipblasDsyrkStridedBatched_rank_1,& - hipblasDsyrkStridedBatched_full_rank + hipblasDsyrkStridedBatched_rank_1_devptr,& + hipblasDsyrkStridedBatched_full_rank,& + hipblasDsyrkStridedBatched_full_rank_devptr,& + hipblasDsyrkStridedBatched_strided_rank,& + hipblasDsyrkStridedBatched_strided_rank_devptr #endif #endif end interface @@ -25951,7 +27984,6 @@ function hipblasDsyrkStridedBatched_(handle,uplo,transA,n,k,alpha,AP,lda,strideA function hipblasCsyrkStridedBatched_(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta,CP,ldc, & strideC,batchCount) & bind(c, name="hipblasCsyrkStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCsyrkStridedBatched_ @@ -25974,13 +28006,20 @@ function hipblasCsyrkStridedBatched_(handle,uplo,transA,n,k,alpha,AP,lda,strideA module procedure hipblasCsyrkStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCsyrkStridedBatched_assumed_rank + module procedure & + hipblasCsyrkStridedBatched_assumed_rank,& + hipblasCsyrkStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCsyrkStridedBatched_rank_0,& + hipblasCsyrkStridedBatched_rank_0_devptr,& hipblasCsyrkStridedBatched_rank_1,& - hipblasCsyrkStridedBatched_full_rank + hipblasCsyrkStridedBatched_rank_1_devptr,& + hipblasCsyrkStridedBatched_full_rank,& + hipblasCsyrkStridedBatched_full_rank_devptr,& + hipblasCsyrkStridedBatched_strided_rank,& + hipblasCsyrkStridedBatched_strided_rank_devptr #endif #endif end interface @@ -25989,7 +28028,6 @@ function hipblasCsyrkStridedBatched_(handle,uplo,transA,n,k,alpha,AP,lda,strideA function hipblasZsyrkStridedBatched_(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta,CP,ldc, & strideC,batchCount) & bind(c, name="hipblasZsyrkStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZsyrkStridedBatched_ @@ -26012,13 +28050,20 @@ function hipblasZsyrkStridedBatched_(handle,uplo,transA,n,k,alpha,AP,lda,strideA module procedure hipblasZsyrkStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZsyrkStridedBatched_assumed_rank + module procedure & + hipblasZsyrkStridedBatched_assumed_rank,& + hipblasZsyrkStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZsyrkStridedBatched_rank_0,& + hipblasZsyrkStridedBatched_rank_0_devptr,& hipblasZsyrkStridedBatched_rank_1,& - hipblasZsyrkStridedBatched_full_rank + hipblasZsyrkStridedBatched_rank_1_devptr,& + hipblasZsyrkStridedBatched_full_rank,& + hipblasZsyrkStridedBatched_full_rank_devptr,& + hipblasZsyrkStridedBatched_strided_rank,& + hipblasZsyrkStridedBatched_strided_rank_devptr #endif #endif end interface @@ -26027,7 +28072,6 @@ function hipblasZsyrkStridedBatched_(handle,uplo,transA,n,k,alpha,AP,lda,strideA function hipblasSsyrkStridedBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta,CP, & ldc,strideC,batchCount) & bind(c, name="hipblasSsyrkStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSsyrkStridedBatched_64_ @@ -26050,13 +28094,20 @@ function hipblasSsyrkStridedBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,stri module procedure hipblasSsyrkStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasSsyrkStridedBatched_64_assumed_rank + module procedure & + hipblasSsyrkStridedBatched_64_assumed_rank,& + hipblasSsyrkStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSsyrkStridedBatched_64_rank_0,& + hipblasSsyrkStridedBatched_64_rank_0_devptr,& hipblasSsyrkStridedBatched_64_rank_1,& - hipblasSsyrkStridedBatched_64_full_rank + hipblasSsyrkStridedBatched_64_rank_1_devptr,& + hipblasSsyrkStridedBatched_64_full_rank,& + hipblasSsyrkStridedBatched_64_full_rank_devptr,& + hipblasSsyrkStridedBatched_64_strided_rank,& + hipblasSsyrkStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -26065,7 +28116,6 @@ function hipblasSsyrkStridedBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,stri function hipblasDsyrkStridedBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta,CP, & ldc,strideC,batchCount) & bind(c, name="hipblasDsyrkStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDsyrkStridedBatched_64_ @@ -26088,13 +28138,20 @@ function hipblasDsyrkStridedBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,stri module procedure hipblasDsyrkStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDsyrkStridedBatched_64_assumed_rank + module procedure & + hipblasDsyrkStridedBatched_64_assumed_rank,& + hipblasDsyrkStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDsyrkStridedBatched_64_rank_0,& + hipblasDsyrkStridedBatched_64_rank_0_devptr,& hipblasDsyrkStridedBatched_64_rank_1,& - hipblasDsyrkStridedBatched_64_full_rank + hipblasDsyrkStridedBatched_64_rank_1_devptr,& + hipblasDsyrkStridedBatched_64_full_rank,& + hipblasDsyrkStridedBatched_64_full_rank_devptr,& + hipblasDsyrkStridedBatched_64_strided_rank,& + hipblasDsyrkStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -26103,7 +28160,6 @@ function hipblasDsyrkStridedBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,stri function hipblasCsyrkStridedBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta,CP, & ldc,strideC,batchCount) & bind(c, name="hipblasCsyrkStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCsyrkStridedBatched_64_ @@ -26126,13 +28182,20 @@ function hipblasCsyrkStridedBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,stri module procedure hipblasCsyrkStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCsyrkStridedBatched_64_assumed_rank + module procedure & + hipblasCsyrkStridedBatched_64_assumed_rank,& + hipblasCsyrkStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCsyrkStridedBatched_64_rank_0,& + hipblasCsyrkStridedBatched_64_rank_0_devptr,& hipblasCsyrkStridedBatched_64_rank_1,& - hipblasCsyrkStridedBatched_64_full_rank + hipblasCsyrkStridedBatched_64_rank_1_devptr,& + hipblasCsyrkStridedBatched_64_full_rank,& + hipblasCsyrkStridedBatched_64_full_rank_devptr,& + hipblasCsyrkStridedBatched_64_strided_rank,& + hipblasCsyrkStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -26141,7 +28204,6 @@ function hipblasCsyrkStridedBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,stri function hipblasZsyrkStridedBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta,CP, & ldc,strideC,batchCount) & bind(c, name="hipblasZsyrkStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZsyrkStridedBatched_64_ @@ -26164,13 +28226,20 @@ function hipblasZsyrkStridedBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,stri module procedure hipblasZsyrkStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZsyrkStridedBatched_64_assumed_rank + module procedure & + hipblasZsyrkStridedBatched_64_assumed_rank,& + hipblasZsyrkStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZsyrkStridedBatched_64_rank_0,& + hipblasZsyrkStridedBatched_64_rank_0_devptr,& hipblasZsyrkStridedBatched_64_rank_1,& - hipblasZsyrkStridedBatched_64_full_rank + hipblasZsyrkStridedBatched_64_rank_1_devptr,& + hipblasZsyrkStridedBatched_64_full_rank,& + hipblasZsyrkStridedBatched_64_full_rank_devptr,& + hipblasZsyrkStridedBatched_64_strided_rank,& + hipblasZsyrkStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -26178,7 +28247,6 @@ function hipblasZsyrkStridedBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,stri interface hipblasSsyr2k function hipblasSsyr2k_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & bind(c, name="hipblasSsyr2k") - use iso_c_binding import implicit none integer(c_int) :: hipblasSsyr2k_ @@ -26200,13 +28268,18 @@ function hipblasSsyr2k_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) module procedure hipblasSsyr2k_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasSsyr2k_assumed_rank + module procedure & + hipblasSsyr2k_assumed_rank,& + hipblasSsyr2k_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSsyr2k_rank_0,& + hipblasSsyr2k_rank_0_devptr,& hipblasSsyr2k_rank_1,& - hipblasSsyr2k_full_rank + hipblasSsyr2k_rank_1_devptr,& + hipblasSsyr2k_full_rank,& + hipblasSsyr2k_full_rank_devptr #endif #endif end interface @@ -26214,7 +28287,6 @@ function hipblasSsyr2k_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) interface hipblasDsyr2k function hipblasDsyr2k_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & bind(c, name="hipblasDsyr2k") - use iso_c_binding import implicit none integer(c_int) :: hipblasDsyr2k_ @@ -26236,13 +28308,18 @@ function hipblasDsyr2k_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) module procedure hipblasDsyr2k_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDsyr2k_assumed_rank + module procedure & + hipblasDsyr2k_assumed_rank,& + hipblasDsyr2k_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDsyr2k_rank_0,& + hipblasDsyr2k_rank_0_devptr,& hipblasDsyr2k_rank_1,& - hipblasDsyr2k_full_rank + hipblasDsyr2k_rank_1_devptr,& + hipblasDsyr2k_full_rank,& + hipblasDsyr2k_full_rank_devptr #endif #endif end interface @@ -26250,7 +28327,6 @@ function hipblasDsyr2k_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) interface hipblasCsyr2k function hipblasCsyr2k_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & bind(c, name="hipblasCsyr2k") - use iso_c_binding import implicit none integer(c_int) :: hipblasCsyr2k_ @@ -26272,13 +28348,18 @@ function hipblasCsyr2k_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) module procedure hipblasCsyr2k_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCsyr2k_assumed_rank + module procedure & + hipblasCsyr2k_assumed_rank,& + hipblasCsyr2k_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCsyr2k_rank_0,& + hipblasCsyr2k_rank_0_devptr,& hipblasCsyr2k_rank_1,& - hipblasCsyr2k_full_rank + hipblasCsyr2k_rank_1_devptr,& + hipblasCsyr2k_full_rank,& + hipblasCsyr2k_full_rank_devptr #endif #endif end interface @@ -26286,7 +28367,6 @@ function hipblasCsyr2k_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) interface hipblasZsyr2k function hipblasZsyr2k_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & bind(c, name="hipblasZsyr2k") - use iso_c_binding import implicit none integer(c_int) :: hipblasZsyr2k_ @@ -26308,13 +28388,18 @@ function hipblasZsyr2k_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) module procedure hipblasZsyr2k_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZsyr2k_assumed_rank + module procedure & + hipblasZsyr2k_assumed_rank,& + hipblasZsyr2k_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZsyr2k_rank_0,& + hipblasZsyr2k_rank_0_devptr,& hipblasZsyr2k_rank_1,& - hipblasZsyr2k_full_rank + hipblasZsyr2k_rank_1_devptr,& + hipblasZsyr2k_full_rank,& + hipblasZsyr2k_full_rank_devptr #endif #endif end interface @@ -26322,7 +28407,6 @@ function hipblasZsyr2k_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) interface hipblasSsyr2k_64 function hipblasSsyr2k_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & bind(c, name="hipblasSsyr2k_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSsyr2k_64_ @@ -26344,13 +28428,18 @@ function hipblasSsyr2k_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ld module procedure hipblasSsyr2k_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasSsyr2k_64_assumed_rank + module procedure & + hipblasSsyr2k_64_assumed_rank,& + hipblasSsyr2k_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSsyr2k_64_rank_0,& + hipblasSsyr2k_64_rank_0_devptr,& hipblasSsyr2k_64_rank_1,& - hipblasSsyr2k_64_full_rank + hipblasSsyr2k_64_rank_1_devptr,& + hipblasSsyr2k_64_full_rank,& + hipblasSsyr2k_64_full_rank_devptr #endif #endif end interface @@ -26358,7 +28447,6 @@ function hipblasSsyr2k_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ld interface hipblasDsyr2k_64 function hipblasDsyr2k_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & bind(c, name="hipblasDsyr2k_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDsyr2k_64_ @@ -26380,13 +28468,18 @@ function hipblasDsyr2k_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ld module procedure hipblasDsyr2k_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDsyr2k_64_assumed_rank + module procedure & + hipblasDsyr2k_64_assumed_rank,& + hipblasDsyr2k_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDsyr2k_64_rank_0,& + hipblasDsyr2k_64_rank_0_devptr,& hipblasDsyr2k_64_rank_1,& - hipblasDsyr2k_64_full_rank + hipblasDsyr2k_64_rank_1_devptr,& + hipblasDsyr2k_64_full_rank,& + hipblasDsyr2k_64_full_rank_devptr #endif #endif end interface @@ -26394,7 +28487,6 @@ function hipblasDsyr2k_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ld interface hipblasCsyr2k_64 function hipblasCsyr2k_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & bind(c, name="hipblasCsyr2k_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCsyr2k_64_ @@ -26416,13 +28508,18 @@ function hipblasCsyr2k_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ld module procedure hipblasCsyr2k_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCsyr2k_64_assumed_rank + module procedure & + hipblasCsyr2k_64_assumed_rank,& + hipblasCsyr2k_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCsyr2k_64_rank_0,& + hipblasCsyr2k_64_rank_0_devptr,& hipblasCsyr2k_64_rank_1,& - hipblasCsyr2k_64_full_rank + hipblasCsyr2k_64_rank_1_devptr,& + hipblasCsyr2k_64_full_rank,& + hipblasCsyr2k_64_full_rank_devptr #endif #endif end interface @@ -26430,7 +28527,6 @@ function hipblasCsyr2k_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ld interface hipblasZsyr2k_64 function hipblasZsyr2k_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & bind(c, name="hipblasZsyr2k_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZsyr2k_64_ @@ -26452,13 +28548,18 @@ function hipblasZsyr2k_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ld module procedure hipblasZsyr2k_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZsyr2k_64_assumed_rank + module procedure & + hipblasZsyr2k_64_assumed_rank,& + hipblasZsyr2k_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZsyr2k_64_rank_0,& + hipblasZsyr2k_64_rank_0_devptr,& hipblasZsyr2k_64_rank_1,& - hipblasZsyr2k_64_full_rank + hipblasZsyr2k_64_rank_1_devptr,& + hipblasZsyr2k_64_full_rank,& + hipblasZsyr2k_64_full_rank_devptr #endif #endif end interface @@ -26467,7 +28568,6 @@ function hipblasZsyr2k_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ld function hipblasSsyr2kBatched_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) & bind(c, name="hipblasSsyr2kBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasSsyr2kBatched_ @@ -26494,7 +28594,6 @@ function hipblasSsyr2kBatched_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,C function hipblasDsyr2kBatched_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) & bind(c, name="hipblasDsyr2kBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDsyr2kBatched_ @@ -26521,7 +28620,6 @@ function hipblasDsyr2kBatched_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,C function hipblasCsyr2kBatched_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) & bind(c, name="hipblasCsyr2kBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCsyr2kBatched_ @@ -26548,7 +28646,6 @@ function hipblasCsyr2kBatched_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,C function hipblasZsyr2kBatched_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) & bind(c, name="hipblasZsyr2kBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZsyr2kBatched_ @@ -26575,7 +28672,6 @@ function hipblasZsyr2kBatched_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,C function hipblasSsyr2kBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) & bind(c, name="hipblasSsyr2kBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSsyr2kBatched_64_ @@ -26602,7 +28698,6 @@ function hipblasSsyr2kBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,bet function hipblasDsyr2kBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) & bind(c, name="hipblasDsyr2kBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDsyr2kBatched_64_ @@ -26629,7 +28724,6 @@ function hipblasDsyr2kBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,bet function hipblasCsyr2kBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) & bind(c, name="hipblasCsyr2kBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCsyr2kBatched_64_ @@ -26656,7 +28750,6 @@ function hipblasCsyr2kBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,bet function hipblasZsyr2kBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) & bind(c, name="hipblasZsyr2kBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZsyr2kBatched_64_ @@ -26683,7 +28776,6 @@ function hipblasZsyr2kBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,bet function hipblasSsyr2kStridedBatched_(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP,ldb, & strideB,beta,CP,ldc,strideC,batchCount) & bind(c, name="hipblasSsyr2kStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasSsyr2kStridedBatched_ @@ -26709,13 +28801,20 @@ function hipblasSsyr2kStridedBatched_(handle,uplo,transA,n,k,alpha,AP,lda,stride module procedure hipblasSsyr2kStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasSsyr2kStridedBatched_assumed_rank + module procedure & + hipblasSsyr2kStridedBatched_assumed_rank,& + hipblasSsyr2kStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSsyr2kStridedBatched_rank_0,& + hipblasSsyr2kStridedBatched_rank_0_devptr,& hipblasSsyr2kStridedBatched_rank_1,& - hipblasSsyr2kStridedBatched_full_rank + hipblasSsyr2kStridedBatched_rank_1_devptr,& + hipblasSsyr2kStridedBatched_full_rank,& + hipblasSsyr2kStridedBatched_full_rank_devptr,& + hipblasSsyr2kStridedBatched_strided_rank,& + hipblasSsyr2kStridedBatched_strided_rank_devptr #endif #endif end interface @@ -26724,7 +28823,6 @@ function hipblasSsyr2kStridedBatched_(handle,uplo,transA,n,k,alpha,AP,lda,stride function hipblasDsyr2kStridedBatched_(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP,ldb, & strideB,beta,CP,ldc,strideC,batchCount) & bind(c, name="hipblasDsyr2kStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDsyr2kStridedBatched_ @@ -26750,13 +28848,20 @@ function hipblasDsyr2kStridedBatched_(handle,uplo,transA,n,k,alpha,AP,lda,stride module procedure hipblasDsyr2kStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDsyr2kStridedBatched_assumed_rank + module procedure & + hipblasDsyr2kStridedBatched_assumed_rank,& + hipblasDsyr2kStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDsyr2kStridedBatched_rank_0,& + hipblasDsyr2kStridedBatched_rank_0_devptr,& hipblasDsyr2kStridedBatched_rank_1,& - hipblasDsyr2kStridedBatched_full_rank + hipblasDsyr2kStridedBatched_rank_1_devptr,& + hipblasDsyr2kStridedBatched_full_rank,& + hipblasDsyr2kStridedBatched_full_rank_devptr,& + hipblasDsyr2kStridedBatched_strided_rank,& + hipblasDsyr2kStridedBatched_strided_rank_devptr #endif #endif end interface @@ -26765,7 +28870,6 @@ function hipblasDsyr2kStridedBatched_(handle,uplo,transA,n,k,alpha,AP,lda,stride function hipblasCsyr2kStridedBatched_(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP,ldb, & strideB,beta,CP,ldc,strideC,batchCount) & bind(c, name="hipblasCsyr2kStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCsyr2kStridedBatched_ @@ -26791,13 +28895,20 @@ function hipblasCsyr2kStridedBatched_(handle,uplo,transA,n,k,alpha,AP,lda,stride module procedure hipblasCsyr2kStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCsyr2kStridedBatched_assumed_rank + module procedure & + hipblasCsyr2kStridedBatched_assumed_rank,& + hipblasCsyr2kStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCsyr2kStridedBatched_rank_0,& + hipblasCsyr2kStridedBatched_rank_0_devptr,& hipblasCsyr2kStridedBatched_rank_1,& - hipblasCsyr2kStridedBatched_full_rank + hipblasCsyr2kStridedBatched_rank_1_devptr,& + hipblasCsyr2kStridedBatched_full_rank,& + hipblasCsyr2kStridedBatched_full_rank_devptr,& + hipblasCsyr2kStridedBatched_strided_rank,& + hipblasCsyr2kStridedBatched_strided_rank_devptr #endif #endif end interface @@ -26806,7 +28917,6 @@ function hipblasCsyr2kStridedBatched_(handle,uplo,transA,n,k,alpha,AP,lda,stride function hipblasZsyr2kStridedBatched_(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP,ldb, & strideB,beta,CP,ldc,strideC,batchCount) & bind(c, name="hipblasZsyr2kStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZsyr2kStridedBatched_ @@ -26832,13 +28942,20 @@ function hipblasZsyr2kStridedBatched_(handle,uplo,transA,n,k,alpha,AP,lda,stride module procedure hipblasZsyr2kStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZsyr2kStridedBatched_assumed_rank + module procedure & + hipblasZsyr2kStridedBatched_assumed_rank,& + hipblasZsyr2kStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZsyr2kStridedBatched_rank_0,& + hipblasZsyr2kStridedBatched_rank_0_devptr,& hipblasZsyr2kStridedBatched_rank_1,& - hipblasZsyr2kStridedBatched_full_rank + hipblasZsyr2kStridedBatched_rank_1_devptr,& + hipblasZsyr2kStridedBatched_full_rank,& + hipblasZsyr2kStridedBatched_full_rank_devptr,& + hipblasZsyr2kStridedBatched_strided_rank,& + hipblasZsyr2kStridedBatched_strided_rank_devptr #endif #endif end interface @@ -26847,7 +28964,6 @@ function hipblasZsyr2kStridedBatched_(handle,uplo,transA,n,k,alpha,AP,lda,stride function hipblasSsyr2kStridedBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP,ldb, & strideB,beta,CP,ldc,strideC,batchCount) & bind(c, name="hipblasSsyr2kStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSsyr2kStridedBatched_64_ @@ -26873,13 +28989,20 @@ function hipblasSsyr2kStridedBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,str module procedure hipblasSsyr2kStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasSsyr2kStridedBatched_64_assumed_rank + module procedure & + hipblasSsyr2kStridedBatched_64_assumed_rank,& + hipblasSsyr2kStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSsyr2kStridedBatched_64_rank_0,& + hipblasSsyr2kStridedBatched_64_rank_0_devptr,& hipblasSsyr2kStridedBatched_64_rank_1,& - hipblasSsyr2kStridedBatched_64_full_rank + hipblasSsyr2kStridedBatched_64_rank_1_devptr,& + hipblasSsyr2kStridedBatched_64_full_rank,& + hipblasSsyr2kStridedBatched_64_full_rank_devptr,& + hipblasSsyr2kStridedBatched_64_strided_rank,& + hipblasSsyr2kStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -26888,7 +29011,6 @@ function hipblasSsyr2kStridedBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,str function hipblasDsyr2kStridedBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP,ldb, & strideB,beta,CP,ldc,strideC,batchCount) & bind(c, name="hipblasDsyr2kStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDsyr2kStridedBatched_64_ @@ -26914,13 +29036,20 @@ function hipblasDsyr2kStridedBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,str module procedure hipblasDsyr2kStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDsyr2kStridedBatched_64_assumed_rank + module procedure & + hipblasDsyr2kStridedBatched_64_assumed_rank,& + hipblasDsyr2kStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDsyr2kStridedBatched_64_rank_0,& + hipblasDsyr2kStridedBatched_64_rank_0_devptr,& hipblasDsyr2kStridedBatched_64_rank_1,& - hipblasDsyr2kStridedBatched_64_full_rank + hipblasDsyr2kStridedBatched_64_rank_1_devptr,& + hipblasDsyr2kStridedBatched_64_full_rank,& + hipblasDsyr2kStridedBatched_64_full_rank_devptr,& + hipblasDsyr2kStridedBatched_64_strided_rank,& + hipblasDsyr2kStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -26929,7 +29058,6 @@ function hipblasDsyr2kStridedBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,str function hipblasCsyr2kStridedBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP,ldb, & strideB,beta,CP,ldc,strideC,batchCount) & bind(c, name="hipblasCsyr2kStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCsyr2kStridedBatched_64_ @@ -26955,13 +29083,20 @@ function hipblasCsyr2kStridedBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,str module procedure hipblasCsyr2kStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCsyr2kStridedBatched_64_assumed_rank + module procedure & + hipblasCsyr2kStridedBatched_64_assumed_rank,& + hipblasCsyr2kStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCsyr2kStridedBatched_64_rank_0,& + hipblasCsyr2kStridedBatched_64_rank_0_devptr,& hipblasCsyr2kStridedBatched_64_rank_1,& - hipblasCsyr2kStridedBatched_64_full_rank + hipblasCsyr2kStridedBatched_64_rank_1_devptr,& + hipblasCsyr2kStridedBatched_64_full_rank,& + hipblasCsyr2kStridedBatched_64_full_rank_devptr,& + hipblasCsyr2kStridedBatched_64_strided_rank,& + hipblasCsyr2kStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -26970,7 +29105,6 @@ function hipblasCsyr2kStridedBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,str function hipblasZsyr2kStridedBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP,ldb, & strideB,beta,CP,ldc,strideC,batchCount) & bind(c, name="hipblasZsyr2kStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZsyr2kStridedBatched_64_ @@ -26996,13 +29130,20 @@ function hipblasZsyr2kStridedBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,str module procedure hipblasZsyr2kStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZsyr2kStridedBatched_64_assumed_rank + module procedure & + hipblasZsyr2kStridedBatched_64_assumed_rank,& + hipblasZsyr2kStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZsyr2kStridedBatched_64_rank_0,& + hipblasZsyr2kStridedBatched_64_rank_0_devptr,& hipblasZsyr2kStridedBatched_64_rank_1,& - hipblasZsyr2kStridedBatched_64_full_rank + hipblasZsyr2kStridedBatched_64_rank_1_devptr,& + hipblasZsyr2kStridedBatched_64_full_rank,& + hipblasZsyr2kStridedBatched_64_full_rank_devptr,& + hipblasZsyr2kStridedBatched_64_strided_rank,& + hipblasZsyr2kStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -27010,7 +29151,6 @@ function hipblasZsyr2kStridedBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,str interface hipblasSsyrkx function hipblasSsyrkx_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & bind(c, name="hipblasSsyrkx") - use iso_c_binding import implicit none integer(c_int) :: hipblasSsyrkx_ @@ -27032,13 +29172,18 @@ function hipblasSsyrkx_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) module procedure hipblasSsyrkx_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasSsyrkx_assumed_rank + module procedure & + hipblasSsyrkx_assumed_rank,& + hipblasSsyrkx_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSsyrkx_rank_0,& + hipblasSsyrkx_rank_0_devptr,& hipblasSsyrkx_rank_1,& - hipblasSsyrkx_full_rank + hipblasSsyrkx_rank_1_devptr,& + hipblasSsyrkx_full_rank,& + hipblasSsyrkx_full_rank_devptr #endif #endif end interface @@ -27046,7 +29191,6 @@ function hipblasSsyrkx_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) interface hipblasDsyrkx function hipblasDsyrkx_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & bind(c, name="hipblasDsyrkx") - use iso_c_binding import implicit none integer(c_int) :: hipblasDsyrkx_ @@ -27068,13 +29212,18 @@ function hipblasDsyrkx_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) module procedure hipblasDsyrkx_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDsyrkx_assumed_rank + module procedure & + hipblasDsyrkx_assumed_rank,& + hipblasDsyrkx_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDsyrkx_rank_0,& + hipblasDsyrkx_rank_0_devptr,& hipblasDsyrkx_rank_1,& - hipblasDsyrkx_full_rank + hipblasDsyrkx_rank_1_devptr,& + hipblasDsyrkx_full_rank,& + hipblasDsyrkx_full_rank_devptr #endif #endif end interface @@ -27082,7 +29231,6 @@ function hipblasDsyrkx_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) interface hipblasCsyrkx function hipblasCsyrkx_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & bind(c, name="hipblasCsyrkx") - use iso_c_binding import implicit none integer(c_int) :: hipblasCsyrkx_ @@ -27104,13 +29252,18 @@ function hipblasCsyrkx_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) module procedure hipblasCsyrkx_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCsyrkx_assumed_rank + module procedure & + hipblasCsyrkx_assumed_rank,& + hipblasCsyrkx_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCsyrkx_rank_0,& + hipblasCsyrkx_rank_0_devptr,& hipblasCsyrkx_rank_1,& - hipblasCsyrkx_full_rank + hipblasCsyrkx_rank_1_devptr,& + hipblasCsyrkx_full_rank,& + hipblasCsyrkx_full_rank_devptr #endif #endif end interface @@ -27118,7 +29271,6 @@ function hipblasCsyrkx_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) interface hipblasZsyrkx function hipblasZsyrkx_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & bind(c, name="hipblasZsyrkx") - use iso_c_binding import implicit none integer(c_int) :: hipblasZsyrkx_ @@ -27140,13 +29292,18 @@ function hipblasZsyrkx_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) module procedure hipblasZsyrkx_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZsyrkx_assumed_rank + module procedure & + hipblasZsyrkx_assumed_rank,& + hipblasZsyrkx_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZsyrkx_rank_0,& + hipblasZsyrkx_rank_0_devptr,& hipblasZsyrkx_rank_1,& - hipblasZsyrkx_full_rank + hipblasZsyrkx_rank_1_devptr,& + hipblasZsyrkx_full_rank,& + hipblasZsyrkx_full_rank_devptr #endif #endif end interface @@ -27154,7 +29311,6 @@ function hipblasZsyrkx_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) interface hipblasSsyrkx_64 function hipblasSsyrkx_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & bind(c, name="hipblasSsyrkx_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSsyrkx_64_ @@ -27176,13 +29332,18 @@ function hipblasSsyrkx_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ld module procedure hipblasSsyrkx_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasSsyrkx_64_assumed_rank + module procedure & + hipblasSsyrkx_64_assumed_rank,& + hipblasSsyrkx_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSsyrkx_64_rank_0,& + hipblasSsyrkx_64_rank_0_devptr,& hipblasSsyrkx_64_rank_1,& - hipblasSsyrkx_64_full_rank + hipblasSsyrkx_64_rank_1_devptr,& + hipblasSsyrkx_64_full_rank,& + hipblasSsyrkx_64_full_rank_devptr #endif #endif end interface @@ -27190,7 +29351,6 @@ function hipblasSsyrkx_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ld interface hipblasDsyrkx_64 function hipblasDsyrkx_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & bind(c, name="hipblasDsyrkx_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDsyrkx_64_ @@ -27212,13 +29372,18 @@ function hipblasDsyrkx_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ld module procedure hipblasDsyrkx_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDsyrkx_64_assumed_rank + module procedure & + hipblasDsyrkx_64_assumed_rank,& + hipblasDsyrkx_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDsyrkx_64_rank_0,& + hipblasDsyrkx_64_rank_0_devptr,& hipblasDsyrkx_64_rank_1,& - hipblasDsyrkx_64_full_rank + hipblasDsyrkx_64_rank_1_devptr,& + hipblasDsyrkx_64_full_rank,& + hipblasDsyrkx_64_full_rank_devptr #endif #endif end interface @@ -27226,7 +29391,6 @@ function hipblasDsyrkx_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ld interface hipblasCsyrkx_64 function hipblasCsyrkx_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & bind(c, name="hipblasCsyrkx_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCsyrkx_64_ @@ -27248,13 +29412,18 @@ function hipblasCsyrkx_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ld module procedure hipblasCsyrkx_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCsyrkx_64_assumed_rank + module procedure & + hipblasCsyrkx_64_assumed_rank,& + hipblasCsyrkx_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCsyrkx_64_rank_0,& + hipblasCsyrkx_64_rank_0_devptr,& hipblasCsyrkx_64_rank_1,& - hipblasCsyrkx_64_full_rank + hipblasCsyrkx_64_rank_1_devptr,& + hipblasCsyrkx_64_full_rank,& + hipblasCsyrkx_64_full_rank_devptr #endif #endif end interface @@ -27262,7 +29431,6 @@ function hipblasCsyrkx_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ld interface hipblasZsyrkx_64 function hipblasZsyrkx_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & bind(c, name="hipblasZsyrkx_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZsyrkx_64_ @@ -27284,13 +29452,18 @@ function hipblasZsyrkx_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ld module procedure hipblasZsyrkx_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZsyrkx_64_assumed_rank + module procedure & + hipblasZsyrkx_64_assumed_rank,& + hipblasZsyrkx_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZsyrkx_64_rank_0,& + hipblasZsyrkx_64_rank_0_devptr,& hipblasZsyrkx_64_rank_1,& - hipblasZsyrkx_64_full_rank + hipblasZsyrkx_64_rank_1_devptr,& + hipblasZsyrkx_64_full_rank,& + hipblasZsyrkx_64_full_rank_devptr #endif #endif end interface @@ -27299,7 +29472,6 @@ function hipblasZsyrkx_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ld function hipblasSsyrkxBatched_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) & bind(c, name="hipblasSsyrkxBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasSsyrkxBatched_ @@ -27326,7 +29498,6 @@ function hipblasSsyrkxBatched_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,C function hipblasDsyrkxBatched_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) & bind(c, name="hipblasDsyrkxBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDsyrkxBatched_ @@ -27353,7 +29524,6 @@ function hipblasDsyrkxBatched_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,C function hipblasCsyrkxBatched_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) & bind(c, name="hipblasCsyrkxBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCsyrkxBatched_ @@ -27380,7 +29550,6 @@ function hipblasCsyrkxBatched_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,C function hipblasZsyrkxBatched_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) & bind(c, name="hipblasZsyrkxBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZsyrkxBatched_ @@ -27407,7 +29576,6 @@ function hipblasZsyrkxBatched_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,C function hipblasSsyrkxBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) & bind(c, name="hipblasSsyrkxBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSsyrkxBatched_64_ @@ -27434,7 +29602,6 @@ function hipblasSsyrkxBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,bet function hipblasDsyrkxBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) & bind(c, name="hipblasDsyrkxBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDsyrkxBatched_64_ @@ -27461,7 +29628,6 @@ function hipblasDsyrkxBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,bet function hipblasCsyrkxBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) & bind(c, name="hipblasCsyrkxBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCsyrkxBatched_64_ @@ -27488,7 +29654,6 @@ function hipblasCsyrkxBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,bet function hipblasZsyrkxBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) & bind(c, name="hipblasZsyrkxBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZsyrkxBatched_64_ @@ -27515,7 +29680,6 @@ function hipblasZsyrkxBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,bet function hipblasSsyrkxStridedBatched_(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP,ldb, & strideB,beta,CP,ldc,strideC,batchCount) & bind(c, name="hipblasSsyrkxStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasSsyrkxStridedBatched_ @@ -27541,13 +29705,20 @@ function hipblasSsyrkxStridedBatched_(handle,uplo,transA,n,k,alpha,AP,lda,stride module procedure hipblasSsyrkxStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasSsyrkxStridedBatched_assumed_rank + module procedure & + hipblasSsyrkxStridedBatched_assumed_rank,& + hipblasSsyrkxStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSsyrkxStridedBatched_rank_0,& + hipblasSsyrkxStridedBatched_rank_0_devptr,& hipblasSsyrkxStridedBatched_rank_1,& - hipblasSsyrkxStridedBatched_full_rank + hipblasSsyrkxStridedBatched_rank_1_devptr,& + hipblasSsyrkxStridedBatched_full_rank,& + hipblasSsyrkxStridedBatched_full_rank_devptr,& + hipblasSsyrkxStridedBatched_strided_rank,& + hipblasSsyrkxStridedBatched_strided_rank_devptr #endif #endif end interface @@ -27556,7 +29727,6 @@ function hipblasSsyrkxStridedBatched_(handle,uplo,transA,n,k,alpha,AP,lda,stride function hipblasDsyrkxStridedBatched_(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP,ldb, & strideB,beta,CP,ldc,strideC,batchCount) & bind(c, name="hipblasDsyrkxStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDsyrkxStridedBatched_ @@ -27582,13 +29752,20 @@ function hipblasDsyrkxStridedBatched_(handle,uplo,transA,n,k,alpha,AP,lda,stride module procedure hipblasDsyrkxStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDsyrkxStridedBatched_assumed_rank + module procedure & + hipblasDsyrkxStridedBatched_assumed_rank,& + hipblasDsyrkxStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDsyrkxStridedBatched_rank_0,& + hipblasDsyrkxStridedBatched_rank_0_devptr,& hipblasDsyrkxStridedBatched_rank_1,& - hipblasDsyrkxStridedBatched_full_rank + hipblasDsyrkxStridedBatched_rank_1_devptr,& + hipblasDsyrkxStridedBatched_full_rank,& + hipblasDsyrkxStridedBatched_full_rank_devptr,& + hipblasDsyrkxStridedBatched_strided_rank,& + hipblasDsyrkxStridedBatched_strided_rank_devptr #endif #endif end interface @@ -27597,7 +29774,6 @@ function hipblasDsyrkxStridedBatched_(handle,uplo,transA,n,k,alpha,AP,lda,stride function hipblasCsyrkxStridedBatched_(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP,ldb, & strideB,beta,CP,ldc,strideC,batchCount) & bind(c, name="hipblasCsyrkxStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCsyrkxStridedBatched_ @@ -27623,13 +29799,20 @@ function hipblasCsyrkxStridedBatched_(handle,uplo,transA,n,k,alpha,AP,lda,stride module procedure hipblasCsyrkxStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCsyrkxStridedBatched_assumed_rank + module procedure & + hipblasCsyrkxStridedBatched_assumed_rank,& + hipblasCsyrkxStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCsyrkxStridedBatched_rank_0,& + hipblasCsyrkxStridedBatched_rank_0_devptr,& hipblasCsyrkxStridedBatched_rank_1,& - hipblasCsyrkxStridedBatched_full_rank + hipblasCsyrkxStridedBatched_rank_1_devptr,& + hipblasCsyrkxStridedBatched_full_rank,& + hipblasCsyrkxStridedBatched_full_rank_devptr,& + hipblasCsyrkxStridedBatched_strided_rank,& + hipblasCsyrkxStridedBatched_strided_rank_devptr #endif #endif end interface @@ -27638,7 +29821,6 @@ function hipblasCsyrkxStridedBatched_(handle,uplo,transA,n,k,alpha,AP,lda,stride function hipblasZsyrkxStridedBatched_(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP,ldb, & strideB,beta,CP,ldc,strideC,batchCount) & bind(c, name="hipblasZsyrkxStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZsyrkxStridedBatched_ @@ -27664,13 +29846,20 @@ function hipblasZsyrkxStridedBatched_(handle,uplo,transA,n,k,alpha,AP,lda,stride module procedure hipblasZsyrkxStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZsyrkxStridedBatched_assumed_rank + module procedure & + hipblasZsyrkxStridedBatched_assumed_rank,& + hipblasZsyrkxStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZsyrkxStridedBatched_rank_0,& + hipblasZsyrkxStridedBatched_rank_0_devptr,& hipblasZsyrkxStridedBatched_rank_1,& - hipblasZsyrkxStridedBatched_full_rank + hipblasZsyrkxStridedBatched_rank_1_devptr,& + hipblasZsyrkxStridedBatched_full_rank,& + hipblasZsyrkxStridedBatched_full_rank_devptr,& + hipblasZsyrkxStridedBatched_strided_rank,& + hipblasZsyrkxStridedBatched_strided_rank_devptr #endif #endif end interface @@ -27679,7 +29868,6 @@ function hipblasZsyrkxStridedBatched_(handle,uplo,transA,n,k,alpha,AP,lda,stride function hipblasSsyrkxStridedBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP,ldb, & strideB,beta,CP,ldc,strideC,batchCount) & bind(c, name="hipblasSsyrkxStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSsyrkxStridedBatched_64_ @@ -27705,13 +29893,20 @@ function hipblasSsyrkxStridedBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,str module procedure hipblasSsyrkxStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasSsyrkxStridedBatched_64_assumed_rank + module procedure & + hipblasSsyrkxStridedBatched_64_assumed_rank,& + hipblasSsyrkxStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSsyrkxStridedBatched_64_rank_0,& + hipblasSsyrkxStridedBatched_64_rank_0_devptr,& hipblasSsyrkxStridedBatched_64_rank_1,& - hipblasSsyrkxStridedBatched_64_full_rank + hipblasSsyrkxStridedBatched_64_rank_1_devptr,& + hipblasSsyrkxStridedBatched_64_full_rank,& + hipblasSsyrkxStridedBatched_64_full_rank_devptr,& + hipblasSsyrkxStridedBatched_64_strided_rank,& + hipblasSsyrkxStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -27720,7 +29915,6 @@ function hipblasSsyrkxStridedBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,str function hipblasDsyrkxStridedBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP,ldb, & strideB,beta,CP,ldc,strideC,batchCount) & bind(c, name="hipblasDsyrkxStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDsyrkxStridedBatched_64_ @@ -27746,13 +29940,20 @@ function hipblasDsyrkxStridedBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,str module procedure hipblasDsyrkxStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDsyrkxStridedBatched_64_assumed_rank + module procedure & + hipblasDsyrkxStridedBatched_64_assumed_rank,& + hipblasDsyrkxStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDsyrkxStridedBatched_64_rank_0,& + hipblasDsyrkxStridedBatched_64_rank_0_devptr,& hipblasDsyrkxStridedBatched_64_rank_1,& - hipblasDsyrkxStridedBatched_64_full_rank + hipblasDsyrkxStridedBatched_64_rank_1_devptr,& + hipblasDsyrkxStridedBatched_64_full_rank,& + hipblasDsyrkxStridedBatched_64_full_rank_devptr,& + hipblasDsyrkxStridedBatched_64_strided_rank,& + hipblasDsyrkxStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -27761,7 +29962,6 @@ function hipblasDsyrkxStridedBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,str function hipblasCsyrkxStridedBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP,ldb, & strideB,beta,CP,ldc,strideC,batchCount) & bind(c, name="hipblasCsyrkxStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCsyrkxStridedBatched_64_ @@ -27787,13 +29987,20 @@ function hipblasCsyrkxStridedBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,str module procedure hipblasCsyrkxStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCsyrkxStridedBatched_64_assumed_rank + module procedure & + hipblasCsyrkxStridedBatched_64_assumed_rank,& + hipblasCsyrkxStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCsyrkxStridedBatched_64_rank_0,& + hipblasCsyrkxStridedBatched_64_rank_0_devptr,& hipblasCsyrkxStridedBatched_64_rank_1,& - hipblasCsyrkxStridedBatched_64_full_rank + hipblasCsyrkxStridedBatched_64_rank_1_devptr,& + hipblasCsyrkxStridedBatched_64_full_rank,& + hipblasCsyrkxStridedBatched_64_full_rank_devptr,& + hipblasCsyrkxStridedBatched_64_strided_rank,& + hipblasCsyrkxStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -27802,7 +30009,6 @@ function hipblasCsyrkxStridedBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,str function hipblasZsyrkxStridedBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP,ldb, & strideB,beta,CP,ldc,strideC,batchCount) & bind(c, name="hipblasZsyrkxStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZsyrkxStridedBatched_64_ @@ -27828,13 +30034,20 @@ function hipblasZsyrkxStridedBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,str module procedure hipblasZsyrkxStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZsyrkxStridedBatched_64_assumed_rank + module procedure & + hipblasZsyrkxStridedBatched_64_assumed_rank,& + hipblasZsyrkxStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZsyrkxStridedBatched_64_rank_0,& + hipblasZsyrkxStridedBatched_64_rank_0_devptr,& hipblasZsyrkxStridedBatched_64_rank_1,& - hipblasZsyrkxStridedBatched_64_full_rank + hipblasZsyrkxStridedBatched_64_rank_1_devptr,& + hipblasZsyrkxStridedBatched_64_full_rank,& + hipblasZsyrkxStridedBatched_64_full_rank_devptr,& + hipblasZsyrkxStridedBatched_64_strided_rank,& + hipblasZsyrkxStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -27842,7 +30055,6 @@ function hipblasZsyrkxStridedBatched_64_(handle,uplo,transA,n,k,alpha,AP,lda,str interface hipblasSgeam function hipblasSgeam_(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) & bind(c, name="hipblasSgeam") - use iso_c_binding import implicit none integer(c_int) :: hipblasSgeam_ @@ -27864,13 +30076,18 @@ function hipblasSgeam_(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) module procedure hipblasSgeam_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasSgeam_assumed_rank + module procedure & + hipblasSgeam_assumed_rank,& + hipblasSgeam_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSgeam_rank_0,& + hipblasSgeam_rank_0_devptr,& hipblasSgeam_rank_1,& - hipblasSgeam_full_rank + hipblasSgeam_rank_1_devptr,& + hipblasSgeam_full_rank,& + hipblasSgeam_full_rank_devptr #endif #endif end interface @@ -27878,7 +30095,6 @@ function hipblasSgeam_(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) interface hipblasDgeam function hipblasDgeam_(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) & bind(c, name="hipblasDgeam") - use iso_c_binding import implicit none integer(c_int) :: hipblasDgeam_ @@ -27900,13 +30116,18 @@ function hipblasDgeam_(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) module procedure hipblasDgeam_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDgeam_assumed_rank + module procedure & + hipblasDgeam_assumed_rank,& + hipblasDgeam_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDgeam_rank_0,& + hipblasDgeam_rank_0_devptr,& hipblasDgeam_rank_1,& - hipblasDgeam_full_rank + hipblasDgeam_rank_1_devptr,& + hipblasDgeam_full_rank,& + hipblasDgeam_full_rank_devptr #endif #endif end interface @@ -27914,7 +30135,6 @@ function hipblasDgeam_(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) interface hipblasCgeam function hipblasCgeam_(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) & bind(c, name="hipblasCgeam") - use iso_c_binding import implicit none integer(c_int) :: hipblasCgeam_ @@ -27936,13 +30156,18 @@ function hipblasCgeam_(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) module procedure hipblasCgeam_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCgeam_assumed_rank + module procedure & + hipblasCgeam_assumed_rank,& + hipblasCgeam_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCgeam_rank_0,& + hipblasCgeam_rank_0_devptr,& hipblasCgeam_rank_1,& - hipblasCgeam_full_rank + hipblasCgeam_rank_1_devptr,& + hipblasCgeam_full_rank,& + hipblasCgeam_full_rank_devptr #endif #endif end interface @@ -27950,7 +30175,6 @@ function hipblasCgeam_(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) interface hipblasZgeam function hipblasZgeam_(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) & bind(c, name="hipblasZgeam") - use iso_c_binding import implicit none integer(c_int) :: hipblasZgeam_ @@ -27972,13 +30196,18 @@ function hipblasZgeam_(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) module procedure hipblasZgeam_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZgeam_assumed_rank + module procedure & + hipblasZgeam_assumed_rank,& + hipblasZgeam_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZgeam_rank_0,& + hipblasZgeam_rank_0_devptr,& hipblasZgeam_rank_1,& - hipblasZgeam_full_rank + hipblasZgeam_rank_1_devptr,& + hipblasZgeam_full_rank,& + hipblasZgeam_full_rank_devptr #endif #endif end interface @@ -27986,7 +30215,6 @@ function hipblasZgeam_(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) interface hipblasSgeam_64 function hipblasSgeam_64_(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) & bind(c, name="hipblasSgeam_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSgeam_64_ @@ -28008,13 +30236,18 @@ function hipblasSgeam_64_(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,l module procedure hipblasSgeam_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasSgeam_64_assumed_rank + module procedure & + hipblasSgeam_64_assumed_rank,& + hipblasSgeam_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSgeam_64_rank_0,& + hipblasSgeam_64_rank_0_devptr,& hipblasSgeam_64_rank_1,& - hipblasSgeam_64_full_rank + hipblasSgeam_64_rank_1_devptr,& + hipblasSgeam_64_full_rank,& + hipblasSgeam_64_full_rank_devptr #endif #endif end interface @@ -28022,7 +30255,6 @@ function hipblasSgeam_64_(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,l interface hipblasDgeam_64 function hipblasDgeam_64_(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) & bind(c, name="hipblasDgeam_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDgeam_64_ @@ -28044,13 +30276,18 @@ function hipblasDgeam_64_(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,l module procedure hipblasDgeam_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDgeam_64_assumed_rank + module procedure & + hipblasDgeam_64_assumed_rank,& + hipblasDgeam_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDgeam_64_rank_0,& + hipblasDgeam_64_rank_0_devptr,& hipblasDgeam_64_rank_1,& - hipblasDgeam_64_full_rank + hipblasDgeam_64_rank_1_devptr,& + hipblasDgeam_64_full_rank,& + hipblasDgeam_64_full_rank_devptr #endif #endif end interface @@ -28058,7 +30295,6 @@ function hipblasDgeam_64_(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,l interface hipblasCgeam_64 function hipblasCgeam_64_(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) & bind(c, name="hipblasCgeam_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCgeam_64_ @@ -28080,13 +30316,18 @@ function hipblasCgeam_64_(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,l module procedure hipblasCgeam_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCgeam_64_assumed_rank + module procedure & + hipblasCgeam_64_assumed_rank,& + hipblasCgeam_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCgeam_64_rank_0,& + hipblasCgeam_64_rank_0_devptr,& hipblasCgeam_64_rank_1,& - hipblasCgeam_64_full_rank + hipblasCgeam_64_rank_1_devptr,& + hipblasCgeam_64_full_rank,& + hipblasCgeam_64_full_rank_devptr #endif #endif end interface @@ -28094,7 +30335,6 @@ function hipblasCgeam_64_(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,l interface hipblasZgeam_64 function hipblasZgeam_64_(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) & bind(c, name="hipblasZgeam_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZgeam_64_ @@ -28116,13 +30356,18 @@ function hipblasZgeam_64_(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,l module procedure hipblasZgeam_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZgeam_64_assumed_rank + module procedure & + hipblasZgeam_64_assumed_rank,& + hipblasZgeam_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZgeam_64_rank_0,& + hipblasZgeam_64_rank_0_devptr,& hipblasZgeam_64_rank_1,& - hipblasZgeam_64_full_rank + hipblasZgeam_64_rank_1_devptr,& + hipblasZgeam_64_full_rank,& + hipblasZgeam_64_full_rank_devptr #endif #endif end interface @@ -28131,7 +30376,6 @@ function hipblasZgeam_64_(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,l function hipblasSgeamBatched_(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc, & batchCount) & bind(c, name="hipblasSgeamBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasSgeamBatched_ @@ -28158,7 +30402,6 @@ function hipblasSgeamBatched_(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb, function hipblasDgeamBatched_(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc, & batchCount) & bind(c, name="hipblasDgeamBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDgeamBatched_ @@ -28185,7 +30428,6 @@ function hipblasDgeamBatched_(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb, function hipblasCgeamBatched_(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc, & batchCount) & bind(c, name="hipblasCgeamBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCgeamBatched_ @@ -28212,7 +30454,6 @@ function hipblasCgeamBatched_(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb, function hipblasZgeamBatched_(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc, & batchCount) & bind(c, name="hipblasZgeamBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZgeamBatched_ @@ -28239,7 +30480,6 @@ function hipblasZgeamBatched_(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb, function hipblasSgeamBatched_64_(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc, & batchCount) & bind(c, name="hipblasSgeamBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSgeamBatched_64_ @@ -28266,7 +30506,6 @@ function hipblasSgeamBatched_64_(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,l function hipblasDgeamBatched_64_(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc, & batchCount) & bind(c, name="hipblasDgeamBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDgeamBatched_64_ @@ -28293,7 +30532,6 @@ function hipblasDgeamBatched_64_(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,l function hipblasCgeamBatched_64_(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc, & batchCount) & bind(c, name="hipblasCgeamBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCgeamBatched_64_ @@ -28320,7 +30558,6 @@ function hipblasCgeamBatched_64_(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,l function hipblasZgeamBatched_64_(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc, & batchCount) & bind(c, name="hipblasZgeamBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZgeamBatched_64_ @@ -28347,7 +30584,6 @@ function hipblasZgeamBatched_64_(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,l function hipblasSgeamStridedBatched_(handle,transA,transB,m,n,alpha,AP,lda,strideA,beta,BP, & ldb,strideB,CP,ldc,strideC,batchCount) & bind(c, name="hipblasSgeamStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasSgeamStridedBatched_ @@ -28373,13 +30609,20 @@ function hipblasSgeamStridedBatched_(handle,transA,transB,m,n,alpha,AP,lda,strid module procedure hipblasSgeamStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasSgeamStridedBatched_assumed_rank + module procedure & + hipblasSgeamStridedBatched_assumed_rank,& + hipblasSgeamStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSgeamStridedBatched_rank_0,& + hipblasSgeamStridedBatched_rank_0_devptr,& hipblasSgeamStridedBatched_rank_1,& - hipblasSgeamStridedBatched_full_rank + hipblasSgeamStridedBatched_rank_1_devptr,& + hipblasSgeamStridedBatched_full_rank,& + hipblasSgeamStridedBatched_full_rank_devptr,& + hipblasSgeamStridedBatched_strided_rank,& + hipblasSgeamStridedBatched_strided_rank_devptr #endif #endif end interface @@ -28388,7 +30631,6 @@ function hipblasSgeamStridedBatched_(handle,transA,transB,m,n,alpha,AP,lda,strid function hipblasDgeamStridedBatched_(handle,transA,transB,m,n,alpha,AP,lda,strideA,beta,BP, & ldb,strideB,CP,ldc,strideC,batchCount) & bind(c, name="hipblasDgeamStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDgeamStridedBatched_ @@ -28414,13 +30656,20 @@ function hipblasDgeamStridedBatched_(handle,transA,transB,m,n,alpha,AP,lda,strid module procedure hipblasDgeamStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDgeamStridedBatched_assumed_rank + module procedure & + hipblasDgeamStridedBatched_assumed_rank,& + hipblasDgeamStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDgeamStridedBatched_rank_0,& + hipblasDgeamStridedBatched_rank_0_devptr,& hipblasDgeamStridedBatched_rank_1,& - hipblasDgeamStridedBatched_full_rank + hipblasDgeamStridedBatched_rank_1_devptr,& + hipblasDgeamStridedBatched_full_rank,& + hipblasDgeamStridedBatched_full_rank_devptr,& + hipblasDgeamStridedBatched_strided_rank,& + hipblasDgeamStridedBatched_strided_rank_devptr #endif #endif end interface @@ -28429,7 +30678,6 @@ function hipblasDgeamStridedBatched_(handle,transA,transB,m,n,alpha,AP,lda,strid function hipblasCgeamStridedBatched_(handle,transA,transB,m,n,alpha,AP,lda,strideA,beta,BP, & ldb,strideB,CP,ldc,strideC,batchCount) & bind(c, name="hipblasCgeamStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCgeamStridedBatched_ @@ -28455,13 +30703,20 @@ function hipblasCgeamStridedBatched_(handle,transA,transB,m,n,alpha,AP,lda,strid module procedure hipblasCgeamStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCgeamStridedBatched_assumed_rank + module procedure & + hipblasCgeamStridedBatched_assumed_rank,& + hipblasCgeamStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCgeamStridedBatched_rank_0,& + hipblasCgeamStridedBatched_rank_0_devptr,& hipblasCgeamStridedBatched_rank_1,& - hipblasCgeamStridedBatched_full_rank + hipblasCgeamStridedBatched_rank_1_devptr,& + hipblasCgeamStridedBatched_full_rank,& + hipblasCgeamStridedBatched_full_rank_devptr,& + hipblasCgeamStridedBatched_strided_rank,& + hipblasCgeamStridedBatched_strided_rank_devptr #endif #endif end interface @@ -28470,7 +30725,6 @@ function hipblasCgeamStridedBatched_(handle,transA,transB,m,n,alpha,AP,lda,strid function hipblasZgeamStridedBatched_(handle,transA,transB,m,n,alpha,AP,lda,strideA,beta,BP, & ldb,strideB,CP,ldc,strideC,batchCount) & bind(c, name="hipblasZgeamStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZgeamStridedBatched_ @@ -28496,13 +30750,20 @@ function hipblasZgeamStridedBatched_(handle,transA,transB,m,n,alpha,AP,lda,strid module procedure hipblasZgeamStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZgeamStridedBatched_assumed_rank + module procedure & + hipblasZgeamStridedBatched_assumed_rank,& + hipblasZgeamStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZgeamStridedBatched_rank_0,& + hipblasZgeamStridedBatched_rank_0_devptr,& hipblasZgeamStridedBatched_rank_1,& - hipblasZgeamStridedBatched_full_rank + hipblasZgeamStridedBatched_rank_1_devptr,& + hipblasZgeamStridedBatched_full_rank,& + hipblasZgeamStridedBatched_full_rank_devptr,& + hipblasZgeamStridedBatched_strided_rank,& + hipblasZgeamStridedBatched_strided_rank_devptr #endif #endif end interface @@ -28511,7 +30772,6 @@ function hipblasZgeamStridedBatched_(handle,transA,transB,m,n,alpha,AP,lda,strid function hipblasSgeamStridedBatched_64_(handle,transA,transB,m,n,alpha,AP,lda,strideA,beta,BP, & ldb,strideB,CP,ldc,strideC,batchCount) & bind(c, name="hipblasSgeamStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSgeamStridedBatched_64_ @@ -28537,13 +30797,20 @@ function hipblasSgeamStridedBatched_64_(handle,transA,transB,m,n,alpha,AP,lda,st module procedure hipblasSgeamStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasSgeamStridedBatched_64_assumed_rank + module procedure & + hipblasSgeamStridedBatched_64_assumed_rank,& + hipblasSgeamStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSgeamStridedBatched_64_rank_0,& + hipblasSgeamStridedBatched_64_rank_0_devptr,& hipblasSgeamStridedBatched_64_rank_1,& - hipblasSgeamStridedBatched_64_full_rank + hipblasSgeamStridedBatched_64_rank_1_devptr,& + hipblasSgeamStridedBatched_64_full_rank,& + hipblasSgeamStridedBatched_64_full_rank_devptr,& + hipblasSgeamStridedBatched_64_strided_rank,& + hipblasSgeamStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -28552,7 +30819,6 @@ function hipblasSgeamStridedBatched_64_(handle,transA,transB,m,n,alpha,AP,lda,st function hipblasDgeamStridedBatched_64_(handle,transA,transB,m,n,alpha,AP,lda,strideA,beta,BP, & ldb,strideB,CP,ldc,strideC,batchCount) & bind(c, name="hipblasDgeamStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDgeamStridedBatched_64_ @@ -28578,13 +30844,20 @@ function hipblasDgeamStridedBatched_64_(handle,transA,transB,m,n,alpha,AP,lda,st module procedure hipblasDgeamStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDgeamStridedBatched_64_assumed_rank + module procedure & + hipblasDgeamStridedBatched_64_assumed_rank,& + hipblasDgeamStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDgeamStridedBatched_64_rank_0,& + hipblasDgeamStridedBatched_64_rank_0_devptr,& hipblasDgeamStridedBatched_64_rank_1,& - hipblasDgeamStridedBatched_64_full_rank + hipblasDgeamStridedBatched_64_rank_1_devptr,& + hipblasDgeamStridedBatched_64_full_rank,& + hipblasDgeamStridedBatched_64_full_rank_devptr,& + hipblasDgeamStridedBatched_64_strided_rank,& + hipblasDgeamStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -28593,7 +30866,6 @@ function hipblasDgeamStridedBatched_64_(handle,transA,transB,m,n,alpha,AP,lda,st function hipblasCgeamStridedBatched_64_(handle,transA,transB,m,n,alpha,AP,lda,strideA,beta,BP, & ldb,strideB,CP,ldc,strideC,batchCount) & bind(c, name="hipblasCgeamStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCgeamStridedBatched_64_ @@ -28619,13 +30891,20 @@ function hipblasCgeamStridedBatched_64_(handle,transA,transB,m,n,alpha,AP,lda,st module procedure hipblasCgeamStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCgeamStridedBatched_64_assumed_rank + module procedure & + hipblasCgeamStridedBatched_64_assumed_rank,& + hipblasCgeamStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCgeamStridedBatched_64_rank_0,& + hipblasCgeamStridedBatched_64_rank_0_devptr,& hipblasCgeamStridedBatched_64_rank_1,& - hipblasCgeamStridedBatched_64_full_rank + hipblasCgeamStridedBatched_64_rank_1_devptr,& + hipblasCgeamStridedBatched_64_full_rank,& + hipblasCgeamStridedBatched_64_full_rank_devptr,& + hipblasCgeamStridedBatched_64_strided_rank,& + hipblasCgeamStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -28634,7 +30913,6 @@ function hipblasCgeamStridedBatched_64_(handle,transA,transB,m,n,alpha,AP,lda,st function hipblasZgeamStridedBatched_64_(handle,transA,transB,m,n,alpha,AP,lda,strideA,beta,BP, & ldb,strideB,CP,ldc,strideC,batchCount) & bind(c, name="hipblasZgeamStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZgeamStridedBatched_64_ @@ -28660,13 +30938,20 @@ function hipblasZgeamStridedBatched_64_(handle,transA,transB,m,n,alpha,AP,lda,st module procedure hipblasZgeamStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZgeamStridedBatched_64_assumed_rank + module procedure & + hipblasZgeamStridedBatched_64_assumed_rank,& + hipblasZgeamStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZgeamStridedBatched_64_rank_0,& + hipblasZgeamStridedBatched_64_rank_0_devptr,& hipblasZgeamStridedBatched_64_rank_1,& - hipblasZgeamStridedBatched_64_full_rank + hipblasZgeamStridedBatched_64_rank_1_devptr,& + hipblasZgeamStridedBatched_64_full_rank,& + hipblasZgeamStridedBatched_64_full_rank_devptr,& + hipblasZgeamStridedBatched_64_strided_rank,& + hipblasZgeamStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -28674,7 +30959,6 @@ function hipblasZgeamStridedBatched_64_(handle,transA,transB,m,n,alpha,AP,lda,st interface hipblasChemm function hipblasChemm_(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & bind(c, name="hipblasChemm") - use iso_c_binding import implicit none integer(c_int) :: hipblasChemm_ @@ -28696,13 +30980,18 @@ function hipblasChemm_(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & module procedure hipblasChemm_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasChemm_assumed_rank + module procedure & + hipblasChemm_assumed_rank,& + hipblasChemm_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasChemm_rank_0,& + hipblasChemm_rank_0_devptr,& hipblasChemm_rank_1,& - hipblasChemm_full_rank + hipblasChemm_rank_1_devptr,& + hipblasChemm_full_rank,& + hipblasChemm_full_rank_devptr #endif #endif end interface @@ -28710,7 +30999,6 @@ function hipblasChemm_(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & interface hipblasZhemm function hipblasZhemm_(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & bind(c, name="hipblasZhemm") - use iso_c_binding import implicit none integer(c_int) :: hipblasZhemm_ @@ -28732,13 +31020,18 @@ function hipblasZhemm_(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & module procedure hipblasZhemm_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZhemm_assumed_rank + module procedure & + hipblasZhemm_assumed_rank,& + hipblasZhemm_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZhemm_rank_0,& + hipblasZhemm_rank_0_devptr,& hipblasZhemm_rank_1,& - hipblasZhemm_full_rank + hipblasZhemm_rank_1_devptr,& + hipblasZhemm_full_rank,& + hipblasZhemm_full_rank_devptr #endif #endif end interface @@ -28746,7 +31039,6 @@ function hipblasZhemm_(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & interface hipblasChemm_64 function hipblasChemm_64_(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & bind(c, name="hipblasChemm_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasChemm_64_ @@ -28768,13 +31060,18 @@ function hipblasChemm_64_(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) module procedure hipblasChemm_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasChemm_64_assumed_rank + module procedure & + hipblasChemm_64_assumed_rank,& + hipblasChemm_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasChemm_64_rank_0,& + hipblasChemm_64_rank_0_devptr,& hipblasChemm_64_rank_1,& - hipblasChemm_64_full_rank + hipblasChemm_64_rank_1_devptr,& + hipblasChemm_64_full_rank,& + hipblasChemm_64_full_rank_devptr #endif #endif end interface @@ -28782,7 +31079,6 @@ function hipblasChemm_64_(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) interface hipblasZhemm_64 function hipblasZhemm_64_(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) & bind(c, name="hipblasZhemm_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZhemm_64_ @@ -28804,13 +31100,18 @@ function hipblasZhemm_64_(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) module procedure hipblasZhemm_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZhemm_64_assumed_rank + module procedure & + hipblasZhemm_64_assumed_rank,& + hipblasZhemm_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZhemm_64_rank_0,& + hipblasZhemm_64_rank_0_devptr,& hipblasZhemm_64_rank_1,& - hipblasZhemm_64_full_rank + hipblasZhemm_64_rank_1_devptr,& + hipblasZhemm_64_full_rank,& + hipblasZhemm_64_full_rank_devptr #endif #endif end interface @@ -28818,7 +31119,6 @@ function hipblasZhemm_64_(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) interface hipblasChemmBatched function hipblasChemmBatched_(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc,batchCount) & bind(c, name="hipblasChemmBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasChemmBatched_ @@ -28844,7 +31144,6 @@ function hipblasChemmBatched_(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,l interface hipblasZhemmBatched function hipblasZhemmBatched_(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc,batchCount) & bind(c, name="hipblasZhemmBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZhemmBatched_ @@ -28871,7 +31170,6 @@ function hipblasZhemmBatched_(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,l function hipblasChemmBatched_64_(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) & bind(c, name="hipblasChemmBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasChemmBatched_64_ @@ -28898,7 +31196,6 @@ function hipblasChemmBatched_64_(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,C function hipblasZhemmBatched_64_(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) & bind(c, name="hipblasZhemmBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZhemmBatched_64_ @@ -28925,7 +31222,6 @@ function hipblasZhemmBatched_64_(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,C function hipblasChemmStridedBatched_(handle,side,uplo,n,k,alpha,AP,lda,strideA,BP,ldb,strideB, & beta,CP,ldc,strideC,batchCount) & bind(c, name="hipblasChemmStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasChemmStridedBatched_ @@ -28951,13 +31247,20 @@ function hipblasChemmStridedBatched_(handle,side,uplo,n,k,alpha,AP,lda,strideA,B module procedure hipblasChemmStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasChemmStridedBatched_assumed_rank + module procedure & + hipblasChemmStridedBatched_assumed_rank,& + hipblasChemmStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasChemmStridedBatched_rank_0,& + hipblasChemmStridedBatched_rank_0_devptr,& hipblasChemmStridedBatched_rank_1,& - hipblasChemmStridedBatched_full_rank + hipblasChemmStridedBatched_rank_1_devptr,& + hipblasChemmStridedBatched_full_rank,& + hipblasChemmStridedBatched_full_rank_devptr,& + hipblasChemmStridedBatched_strided_rank,& + hipblasChemmStridedBatched_strided_rank_devptr #endif #endif end interface @@ -28966,7 +31269,6 @@ function hipblasChemmStridedBatched_(handle,side,uplo,n,k,alpha,AP,lda,strideA,B function hipblasZhemmStridedBatched_(handle,side,uplo,n,k,alpha,AP,lda,strideA,BP,ldb,strideB, & beta,CP,ldc,strideC,batchCount) & bind(c, name="hipblasZhemmStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZhemmStridedBatched_ @@ -28992,13 +31294,20 @@ function hipblasZhemmStridedBatched_(handle,side,uplo,n,k,alpha,AP,lda,strideA,B module procedure hipblasZhemmStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZhemmStridedBatched_assumed_rank + module procedure & + hipblasZhemmStridedBatched_assumed_rank,& + hipblasZhemmStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZhemmStridedBatched_rank_0,& + hipblasZhemmStridedBatched_rank_0_devptr,& hipblasZhemmStridedBatched_rank_1,& - hipblasZhemmStridedBatched_full_rank + hipblasZhemmStridedBatched_rank_1_devptr,& + hipblasZhemmStridedBatched_full_rank,& + hipblasZhemmStridedBatched_full_rank_devptr,& + hipblasZhemmStridedBatched_strided_rank,& + hipblasZhemmStridedBatched_strided_rank_devptr #endif #endif end interface @@ -29007,7 +31316,6 @@ function hipblasZhemmStridedBatched_(handle,side,uplo,n,k,alpha,AP,lda,strideA,B function hipblasChemmStridedBatched_64_(handle,side,uplo,n,k,alpha,AP,lda,strideA,BP,ldb, & strideB,beta,CP,ldc,strideC,batchCount) & bind(c, name="hipblasChemmStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasChemmStridedBatched_64_ @@ -29033,13 +31341,20 @@ function hipblasChemmStridedBatched_64_(handle,side,uplo,n,k,alpha,AP,lda,stride module procedure hipblasChemmStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasChemmStridedBatched_64_assumed_rank + module procedure & + hipblasChemmStridedBatched_64_assumed_rank,& + hipblasChemmStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasChemmStridedBatched_64_rank_0,& + hipblasChemmStridedBatched_64_rank_0_devptr,& hipblasChemmStridedBatched_64_rank_1,& - hipblasChemmStridedBatched_64_full_rank + hipblasChemmStridedBatched_64_rank_1_devptr,& + hipblasChemmStridedBatched_64_full_rank,& + hipblasChemmStridedBatched_64_full_rank_devptr,& + hipblasChemmStridedBatched_64_strided_rank,& + hipblasChemmStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -29048,7 +31363,6 @@ function hipblasChemmStridedBatched_64_(handle,side,uplo,n,k,alpha,AP,lda,stride function hipblasZhemmStridedBatched_64_(handle,side,uplo,n,k,alpha,AP,lda,strideA,BP,ldb, & strideB,beta,CP,ldc,strideC,batchCount) & bind(c, name="hipblasZhemmStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZhemmStridedBatched_64_ @@ -29074,13 +31388,20 @@ function hipblasZhemmStridedBatched_64_(handle,side,uplo,n,k,alpha,AP,lda,stride module procedure hipblasZhemmStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZhemmStridedBatched_64_assumed_rank + module procedure & + hipblasZhemmStridedBatched_64_assumed_rank,& + hipblasZhemmStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZhemmStridedBatched_64_rank_0,& + hipblasZhemmStridedBatched_64_rank_0_devptr,& hipblasZhemmStridedBatched_64_rank_1,& - hipblasZhemmStridedBatched_64_full_rank + hipblasZhemmStridedBatched_64_rank_1_devptr,& + hipblasZhemmStridedBatched_64_full_rank,& + hipblasZhemmStridedBatched_64_full_rank_devptr,& + hipblasZhemmStridedBatched_64_strided_rank,& + hipblasZhemmStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -29088,7 +31409,6 @@ function hipblasZhemmStridedBatched_64_(handle,side,uplo,n,k,alpha,AP,lda,stride interface hipblasStrmm function hipblasStrmm_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) & bind(c, name="hipblasStrmm") - use iso_c_binding import implicit none integer(c_int) :: hipblasStrmm_ @@ -29111,13 +31431,18 @@ function hipblasStrmm_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) module procedure hipblasStrmm_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasStrmm_assumed_rank + module procedure & + hipblasStrmm_assumed_rank,& + hipblasStrmm_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasStrmm_rank_0,& + hipblasStrmm_rank_0_devptr,& hipblasStrmm_rank_1,& - hipblasStrmm_full_rank + hipblasStrmm_rank_1_devptr,& + hipblasStrmm_full_rank,& + hipblasStrmm_full_rank_devptr #endif #endif end interface @@ -29125,7 +31450,6 @@ function hipblasStrmm_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) interface hipblasDtrmm function hipblasDtrmm_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) & bind(c, name="hipblasDtrmm") - use iso_c_binding import implicit none integer(c_int) :: hipblasDtrmm_ @@ -29148,13 +31472,18 @@ function hipblasDtrmm_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) module procedure hipblasDtrmm_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDtrmm_assumed_rank + module procedure & + hipblasDtrmm_assumed_rank,& + hipblasDtrmm_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDtrmm_rank_0,& + hipblasDtrmm_rank_0_devptr,& hipblasDtrmm_rank_1,& - hipblasDtrmm_full_rank + hipblasDtrmm_rank_1_devptr,& + hipblasDtrmm_full_rank,& + hipblasDtrmm_full_rank_devptr #endif #endif end interface @@ -29162,7 +31491,6 @@ function hipblasDtrmm_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) interface hipblasCtrmm function hipblasCtrmm_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) & bind(c, name="hipblasCtrmm") - use iso_c_binding import implicit none integer(c_int) :: hipblasCtrmm_ @@ -29185,13 +31513,18 @@ function hipblasCtrmm_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) module procedure hipblasCtrmm_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCtrmm_assumed_rank + module procedure & + hipblasCtrmm_assumed_rank,& + hipblasCtrmm_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCtrmm_rank_0,& + hipblasCtrmm_rank_0_devptr,& hipblasCtrmm_rank_1,& - hipblasCtrmm_full_rank + hipblasCtrmm_rank_1_devptr,& + hipblasCtrmm_full_rank,& + hipblasCtrmm_full_rank_devptr #endif #endif end interface @@ -29199,7 +31532,6 @@ function hipblasCtrmm_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) interface hipblasZtrmm function hipblasZtrmm_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) & bind(c, name="hipblasZtrmm") - use iso_c_binding import implicit none integer(c_int) :: hipblasZtrmm_ @@ -29222,13 +31554,18 @@ function hipblasZtrmm_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) module procedure hipblasZtrmm_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZtrmm_assumed_rank + module procedure & + hipblasZtrmm_assumed_rank,& + hipblasZtrmm_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZtrmm_rank_0,& + hipblasZtrmm_rank_0_devptr,& hipblasZtrmm_rank_1,& - hipblasZtrmm_full_rank + hipblasZtrmm_rank_1_devptr,& + hipblasZtrmm_full_rank,& + hipblasZtrmm_full_rank_devptr #endif #endif end interface @@ -29236,7 +31573,6 @@ function hipblasZtrmm_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) interface hipblasStrmm_64 function hipblasStrmm_64_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) & bind(c, name="hipblasStrmm_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasStrmm_64_ @@ -29259,13 +31595,18 @@ function hipblasStrmm_64_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,l module procedure hipblasStrmm_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasStrmm_64_assumed_rank + module procedure & + hipblasStrmm_64_assumed_rank,& + hipblasStrmm_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasStrmm_64_rank_0,& + hipblasStrmm_64_rank_0_devptr,& hipblasStrmm_64_rank_1,& - hipblasStrmm_64_full_rank + hipblasStrmm_64_rank_1_devptr,& + hipblasStrmm_64_full_rank,& + hipblasStrmm_64_full_rank_devptr #endif #endif end interface @@ -29273,7 +31614,6 @@ function hipblasStrmm_64_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,l interface hipblasDtrmm_64 function hipblasDtrmm_64_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) & bind(c, name="hipblasDtrmm_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDtrmm_64_ @@ -29296,13 +31636,18 @@ function hipblasDtrmm_64_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,l module procedure hipblasDtrmm_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDtrmm_64_assumed_rank + module procedure & + hipblasDtrmm_64_assumed_rank,& + hipblasDtrmm_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDtrmm_64_rank_0,& + hipblasDtrmm_64_rank_0_devptr,& hipblasDtrmm_64_rank_1,& - hipblasDtrmm_64_full_rank + hipblasDtrmm_64_rank_1_devptr,& + hipblasDtrmm_64_full_rank,& + hipblasDtrmm_64_full_rank_devptr #endif #endif end interface @@ -29310,7 +31655,6 @@ function hipblasDtrmm_64_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,l interface hipblasCtrmm_64 function hipblasCtrmm_64_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) & bind(c, name="hipblasCtrmm_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCtrmm_64_ @@ -29333,13 +31677,18 @@ function hipblasCtrmm_64_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,l module procedure hipblasCtrmm_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCtrmm_64_assumed_rank + module procedure & + hipblasCtrmm_64_assumed_rank,& + hipblasCtrmm_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCtrmm_64_rank_0,& + hipblasCtrmm_64_rank_0_devptr,& hipblasCtrmm_64_rank_1,& - hipblasCtrmm_64_full_rank + hipblasCtrmm_64_rank_1_devptr,& + hipblasCtrmm_64_full_rank,& + hipblasCtrmm_64_full_rank_devptr #endif #endif end interface @@ -29347,7 +31696,6 @@ function hipblasCtrmm_64_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,l interface hipblasZtrmm_64 function hipblasZtrmm_64_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) & bind(c, name="hipblasZtrmm_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZtrmm_64_ @@ -29370,13 +31718,18 @@ function hipblasZtrmm_64_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,l module procedure hipblasZtrmm_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZtrmm_64_assumed_rank + module procedure & + hipblasZtrmm_64_assumed_rank,& + hipblasZtrmm_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZtrmm_64_rank_0,& + hipblasZtrmm_64_rank_0_devptr,& hipblasZtrmm_64_rank_1,& - hipblasZtrmm_64_full_rank + hipblasZtrmm_64_rank_1_devptr,& + hipblasZtrmm_64_full_rank,& + hipblasZtrmm_64_full_rank_devptr #endif #endif end interface @@ -29385,7 +31738,6 @@ function hipblasZtrmm_64_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,l function hipblasStrmmBatched_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc, & batchCount) & bind(c, name="hipblasStrmmBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasStrmmBatched_ @@ -29413,7 +31765,6 @@ function hipblasStrmmBatched_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb function hipblasDtrmmBatched_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc, & batchCount) & bind(c, name="hipblasDtrmmBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDtrmmBatched_ @@ -29441,7 +31792,6 @@ function hipblasDtrmmBatched_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb function hipblasCtrmmBatched_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc, & batchCount) & bind(c, name="hipblasCtrmmBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCtrmmBatched_ @@ -29469,7 +31819,6 @@ function hipblasCtrmmBatched_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb function hipblasZtrmmBatched_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc, & batchCount) & bind(c, name="hipblasZtrmmBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZtrmmBatched_ @@ -29497,7 +31846,6 @@ function hipblasZtrmmBatched_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb function hipblasStrmmBatched_64_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc, & batchCount) & bind(c, name="hipblasStrmmBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasStrmmBatched_64_ @@ -29525,7 +31873,6 @@ function hipblasStrmmBatched_64_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B, function hipblasDtrmmBatched_64_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc, & batchCount) & bind(c, name="hipblasDtrmmBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDtrmmBatched_64_ @@ -29553,7 +31900,6 @@ function hipblasDtrmmBatched_64_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B, function hipblasCtrmmBatched_64_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc, & batchCount) & bind(c, name="hipblasCtrmmBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCtrmmBatched_64_ @@ -29581,7 +31927,6 @@ function hipblasCtrmmBatched_64_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B, function hipblasZtrmmBatched_64_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc, & batchCount) & bind(c, name="hipblasZtrmmBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZtrmmBatched_64_ @@ -29609,7 +31954,6 @@ function hipblasZtrmmBatched_64_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B, function hipblasStrmmStridedBatched_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,strideA,B, & ldb,strideB,C,ldc,strideC,batchCount) & bind(c, name="hipblasStrmmStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasStrmmStridedBatched_ @@ -29636,13 +31980,20 @@ function hipblasStrmmStridedBatched_(handle,side,uplo,transA,diag,m,n,alpha,A,ld module procedure hipblasStrmmStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasStrmmStridedBatched_assumed_rank + module procedure & + hipblasStrmmStridedBatched_assumed_rank,& + hipblasStrmmStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasStrmmStridedBatched_rank_0,& + hipblasStrmmStridedBatched_rank_0_devptr,& hipblasStrmmStridedBatched_rank_1,& - hipblasStrmmStridedBatched_full_rank + hipblasStrmmStridedBatched_rank_1_devptr,& + hipblasStrmmStridedBatched_full_rank,& + hipblasStrmmStridedBatched_full_rank_devptr,& + hipblasStrmmStridedBatched_strided_rank,& + hipblasStrmmStridedBatched_strided_rank_devptr #endif #endif end interface @@ -29651,7 +32002,6 @@ function hipblasStrmmStridedBatched_(handle,side,uplo,transA,diag,m,n,alpha,A,ld function hipblasDtrmmStridedBatched_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,strideA,B, & ldb,strideB,C,ldc,strideC,batchCount) & bind(c, name="hipblasDtrmmStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDtrmmStridedBatched_ @@ -29678,13 +32028,20 @@ function hipblasDtrmmStridedBatched_(handle,side,uplo,transA,diag,m,n,alpha,A,ld module procedure hipblasDtrmmStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDtrmmStridedBatched_assumed_rank + module procedure & + hipblasDtrmmStridedBatched_assumed_rank,& + hipblasDtrmmStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDtrmmStridedBatched_rank_0,& + hipblasDtrmmStridedBatched_rank_0_devptr,& hipblasDtrmmStridedBatched_rank_1,& - hipblasDtrmmStridedBatched_full_rank + hipblasDtrmmStridedBatched_rank_1_devptr,& + hipblasDtrmmStridedBatched_full_rank,& + hipblasDtrmmStridedBatched_full_rank_devptr,& + hipblasDtrmmStridedBatched_strided_rank,& + hipblasDtrmmStridedBatched_strided_rank_devptr #endif #endif end interface @@ -29693,7 +32050,6 @@ function hipblasDtrmmStridedBatched_(handle,side,uplo,transA,diag,m,n,alpha,A,ld function hipblasCtrmmStridedBatched_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,strideA,B, & ldb,strideB,C,ldc,strideC,batchCount) & bind(c, name="hipblasCtrmmStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCtrmmStridedBatched_ @@ -29720,13 +32076,20 @@ function hipblasCtrmmStridedBatched_(handle,side,uplo,transA,diag,m,n,alpha,A,ld module procedure hipblasCtrmmStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCtrmmStridedBatched_assumed_rank + module procedure & + hipblasCtrmmStridedBatched_assumed_rank,& + hipblasCtrmmStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCtrmmStridedBatched_rank_0,& + hipblasCtrmmStridedBatched_rank_0_devptr,& hipblasCtrmmStridedBatched_rank_1,& - hipblasCtrmmStridedBatched_full_rank + hipblasCtrmmStridedBatched_rank_1_devptr,& + hipblasCtrmmStridedBatched_full_rank,& + hipblasCtrmmStridedBatched_full_rank_devptr,& + hipblasCtrmmStridedBatched_strided_rank,& + hipblasCtrmmStridedBatched_strided_rank_devptr #endif #endif end interface @@ -29735,7 +32098,6 @@ function hipblasCtrmmStridedBatched_(handle,side,uplo,transA,diag,m,n,alpha,A,ld function hipblasZtrmmStridedBatched_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,strideA,B, & ldb,strideB,C,ldc,strideC,batchCount) & bind(c, name="hipblasZtrmmStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZtrmmStridedBatched_ @@ -29762,13 +32124,20 @@ function hipblasZtrmmStridedBatched_(handle,side,uplo,transA,diag,m,n,alpha,A,ld module procedure hipblasZtrmmStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZtrmmStridedBatched_assumed_rank + module procedure & + hipblasZtrmmStridedBatched_assumed_rank,& + hipblasZtrmmStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZtrmmStridedBatched_rank_0,& + hipblasZtrmmStridedBatched_rank_0_devptr,& hipblasZtrmmStridedBatched_rank_1,& - hipblasZtrmmStridedBatched_full_rank + hipblasZtrmmStridedBatched_rank_1_devptr,& + hipblasZtrmmStridedBatched_full_rank,& + hipblasZtrmmStridedBatched_full_rank_devptr,& + hipblasZtrmmStridedBatched_strided_rank,& + hipblasZtrmmStridedBatched_strided_rank_devptr #endif #endif end interface @@ -29777,7 +32146,6 @@ function hipblasZtrmmStridedBatched_(handle,side,uplo,transA,diag,m,n,alpha,A,ld function hipblasStrmmStridedBatched_64_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,strideA, & B,ldb,strideB,C,ldc,strideC,batchCount) & bind(c, name="hipblasStrmmStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasStrmmStridedBatched_64_ @@ -29804,13 +32172,20 @@ function hipblasStrmmStridedBatched_64_(handle,side,uplo,transA,diag,m,n,alpha,A module procedure hipblasStrmmStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasStrmmStridedBatched_64_assumed_rank + module procedure & + hipblasStrmmStridedBatched_64_assumed_rank,& + hipblasStrmmStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasStrmmStridedBatched_64_rank_0,& + hipblasStrmmStridedBatched_64_rank_0_devptr,& hipblasStrmmStridedBatched_64_rank_1,& - hipblasStrmmStridedBatched_64_full_rank + hipblasStrmmStridedBatched_64_rank_1_devptr,& + hipblasStrmmStridedBatched_64_full_rank,& + hipblasStrmmStridedBatched_64_full_rank_devptr,& + hipblasStrmmStridedBatched_64_strided_rank,& + hipblasStrmmStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -29819,7 +32194,6 @@ function hipblasStrmmStridedBatched_64_(handle,side,uplo,transA,diag,m,n,alpha,A function hipblasDtrmmStridedBatched_64_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,strideA, & B,ldb,strideB,C,ldc,strideC,batchCount) & bind(c, name="hipblasDtrmmStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDtrmmStridedBatched_64_ @@ -29846,13 +32220,20 @@ function hipblasDtrmmStridedBatched_64_(handle,side,uplo,transA,diag,m,n,alpha,A module procedure hipblasDtrmmStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDtrmmStridedBatched_64_assumed_rank + module procedure & + hipblasDtrmmStridedBatched_64_assumed_rank,& + hipblasDtrmmStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDtrmmStridedBatched_64_rank_0,& + hipblasDtrmmStridedBatched_64_rank_0_devptr,& hipblasDtrmmStridedBatched_64_rank_1,& - hipblasDtrmmStridedBatched_64_full_rank + hipblasDtrmmStridedBatched_64_rank_1_devptr,& + hipblasDtrmmStridedBatched_64_full_rank,& + hipblasDtrmmStridedBatched_64_full_rank_devptr,& + hipblasDtrmmStridedBatched_64_strided_rank,& + hipblasDtrmmStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -29861,7 +32242,6 @@ function hipblasDtrmmStridedBatched_64_(handle,side,uplo,transA,diag,m,n,alpha,A function hipblasCtrmmStridedBatched_64_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,strideA, & B,ldb,strideB,C,ldc,strideC,batchCount) & bind(c, name="hipblasCtrmmStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCtrmmStridedBatched_64_ @@ -29888,13 +32268,20 @@ function hipblasCtrmmStridedBatched_64_(handle,side,uplo,transA,diag,m,n,alpha,A module procedure hipblasCtrmmStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCtrmmStridedBatched_64_assumed_rank + module procedure & + hipblasCtrmmStridedBatched_64_assumed_rank,& + hipblasCtrmmStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCtrmmStridedBatched_64_rank_0,& + hipblasCtrmmStridedBatched_64_rank_0_devptr,& hipblasCtrmmStridedBatched_64_rank_1,& - hipblasCtrmmStridedBatched_64_full_rank + hipblasCtrmmStridedBatched_64_rank_1_devptr,& + hipblasCtrmmStridedBatched_64_full_rank,& + hipblasCtrmmStridedBatched_64_full_rank_devptr,& + hipblasCtrmmStridedBatched_64_strided_rank,& + hipblasCtrmmStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -29903,7 +32290,6 @@ function hipblasCtrmmStridedBatched_64_(handle,side,uplo,transA,diag,m,n,alpha,A function hipblasZtrmmStridedBatched_64_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,strideA, & B,ldb,strideB,C,ldc,strideC,batchCount) & bind(c, name="hipblasZtrmmStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZtrmmStridedBatched_64_ @@ -29930,13 +32316,20 @@ function hipblasZtrmmStridedBatched_64_(handle,side,uplo,transA,diag,m,n,alpha,A module procedure hipblasZtrmmStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZtrmmStridedBatched_64_assumed_rank + module procedure & + hipblasZtrmmStridedBatched_64_assumed_rank,& + hipblasZtrmmStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZtrmmStridedBatched_64_rank_0,& + hipblasZtrmmStridedBatched_64_rank_0_devptr,& hipblasZtrmmStridedBatched_64_rank_1,& - hipblasZtrmmStridedBatched_64_full_rank + hipblasZtrmmStridedBatched_64_rank_1_devptr,& + hipblasZtrmmStridedBatched_64_full_rank,& + hipblasZtrmmStridedBatched_64_full_rank_devptr,& + hipblasZtrmmStridedBatched_64_strided_rank,& + hipblasZtrmmStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -29944,7 +32337,6 @@ function hipblasZtrmmStridedBatched_64_(handle,side,uplo,transA,diag,m,n,alpha,A interface hipblasStrsm function hipblasStrsm_(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) & bind(c, name="hipblasStrsm") - use iso_c_binding import implicit none integer(c_int) :: hipblasStrsm_ @@ -29965,13 +32357,18 @@ function hipblasStrsm_(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) & module procedure hipblasStrsm_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasStrsm_assumed_rank + module procedure & + hipblasStrsm_assumed_rank,& + hipblasStrsm_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasStrsm_rank_0,& + hipblasStrsm_rank_0_devptr,& hipblasStrsm_rank_1,& - hipblasStrsm_full_rank + hipblasStrsm_rank_1_devptr,& + hipblasStrsm_full_rank,& + hipblasStrsm_full_rank_devptr #endif #endif end interface @@ -29979,7 +32376,6 @@ function hipblasStrsm_(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) & interface hipblasDtrsm function hipblasDtrsm_(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) & bind(c, name="hipblasDtrsm") - use iso_c_binding import implicit none integer(c_int) :: hipblasDtrsm_ @@ -30000,13 +32396,18 @@ function hipblasDtrsm_(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) & module procedure hipblasDtrsm_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDtrsm_assumed_rank + module procedure & + hipblasDtrsm_assumed_rank,& + hipblasDtrsm_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDtrsm_rank_0,& + hipblasDtrsm_rank_0_devptr,& hipblasDtrsm_rank_1,& - hipblasDtrsm_full_rank + hipblasDtrsm_rank_1_devptr,& + hipblasDtrsm_full_rank,& + hipblasDtrsm_full_rank_devptr #endif #endif end interface @@ -30014,7 +32415,6 @@ function hipblasDtrsm_(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) & interface hipblasCtrsm function hipblasCtrsm_(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) & bind(c, name="hipblasCtrsm") - use iso_c_binding import implicit none integer(c_int) :: hipblasCtrsm_ @@ -30035,13 +32435,18 @@ function hipblasCtrsm_(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) & module procedure hipblasCtrsm_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCtrsm_assumed_rank + module procedure & + hipblasCtrsm_assumed_rank,& + hipblasCtrsm_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCtrsm_rank_0,& + hipblasCtrsm_rank_0_devptr,& hipblasCtrsm_rank_1,& - hipblasCtrsm_full_rank + hipblasCtrsm_rank_1_devptr,& + hipblasCtrsm_full_rank,& + hipblasCtrsm_full_rank_devptr #endif #endif end interface @@ -30049,7 +32454,6 @@ function hipblasCtrsm_(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) & interface hipblasZtrsm function hipblasZtrsm_(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) & bind(c, name="hipblasZtrsm") - use iso_c_binding import implicit none integer(c_int) :: hipblasZtrsm_ @@ -30070,13 +32474,18 @@ function hipblasZtrsm_(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) & module procedure hipblasZtrsm_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZtrsm_assumed_rank + module procedure & + hipblasZtrsm_assumed_rank,& + hipblasZtrsm_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZtrsm_rank_0,& + hipblasZtrsm_rank_0_devptr,& hipblasZtrsm_rank_1,& - hipblasZtrsm_full_rank + hipblasZtrsm_rank_1_devptr,& + hipblasZtrsm_full_rank,& + hipblasZtrsm_full_rank_devptr #endif #endif end interface @@ -30084,7 +32493,6 @@ function hipblasZtrsm_(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) & interface hipblasStrsm_64 function hipblasStrsm_64_(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) & bind(c, name="hipblasStrsm_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasStrsm_64_ @@ -30105,13 +32513,18 @@ function hipblasStrsm_64_(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) module procedure hipblasStrsm_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasStrsm_64_assumed_rank + module procedure & + hipblasStrsm_64_assumed_rank,& + hipblasStrsm_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasStrsm_64_rank_0,& + hipblasStrsm_64_rank_0_devptr,& hipblasStrsm_64_rank_1,& - hipblasStrsm_64_full_rank + hipblasStrsm_64_rank_1_devptr,& + hipblasStrsm_64_full_rank,& + hipblasStrsm_64_full_rank_devptr #endif #endif end interface @@ -30119,7 +32532,6 @@ function hipblasStrsm_64_(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) interface hipblasDtrsm_64 function hipblasDtrsm_64_(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) & bind(c, name="hipblasDtrsm_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDtrsm_64_ @@ -30140,13 +32552,18 @@ function hipblasDtrsm_64_(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) module procedure hipblasDtrsm_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDtrsm_64_assumed_rank + module procedure & + hipblasDtrsm_64_assumed_rank,& + hipblasDtrsm_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDtrsm_64_rank_0,& + hipblasDtrsm_64_rank_0_devptr,& hipblasDtrsm_64_rank_1,& - hipblasDtrsm_64_full_rank + hipblasDtrsm_64_rank_1_devptr,& + hipblasDtrsm_64_full_rank,& + hipblasDtrsm_64_full_rank_devptr #endif #endif end interface @@ -30154,7 +32571,6 @@ function hipblasDtrsm_64_(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) interface hipblasCtrsm_64 function hipblasCtrsm_64_(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) & bind(c, name="hipblasCtrsm_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCtrsm_64_ @@ -30175,13 +32591,18 @@ function hipblasCtrsm_64_(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) module procedure hipblasCtrsm_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCtrsm_64_assumed_rank + module procedure & + hipblasCtrsm_64_assumed_rank,& + hipblasCtrsm_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCtrsm_64_rank_0,& + hipblasCtrsm_64_rank_0_devptr,& hipblasCtrsm_64_rank_1,& - hipblasCtrsm_64_full_rank + hipblasCtrsm_64_rank_1_devptr,& + hipblasCtrsm_64_full_rank,& + hipblasCtrsm_64_full_rank_devptr #endif #endif end interface @@ -30189,7 +32610,6 @@ function hipblasCtrsm_64_(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) interface hipblasZtrsm_64 function hipblasZtrsm_64_(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) & bind(c, name="hipblasZtrsm_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZtrsm_64_ @@ -30210,13 +32630,18 @@ function hipblasZtrsm_64_(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) module procedure hipblasZtrsm_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZtrsm_64_assumed_rank + module procedure & + hipblasZtrsm_64_assumed_rank,& + hipblasZtrsm_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZtrsm_64_rank_0,& + hipblasZtrsm_64_rank_0_devptr,& hipblasZtrsm_64_rank_1,& - hipblasZtrsm_64_full_rank + hipblasZtrsm_64_rank_1_devptr,& + hipblasZtrsm_64_full_rank,& + hipblasZtrsm_64_full_rank_devptr #endif #endif end interface @@ -30224,7 +32649,6 @@ function hipblasZtrsm_64_(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) interface hipblasStrsmBatched function hipblasStrsmBatched_(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb,batchCount) & bind(c, name="hipblasStrsmBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasStrsmBatched_ @@ -30249,7 +32673,6 @@ function hipblasStrsmBatched_(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,l interface hipblasDtrsmBatched function hipblasDtrsmBatched_(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb,batchCount) & bind(c, name="hipblasDtrsmBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDtrsmBatched_ @@ -30274,7 +32697,6 @@ function hipblasDtrsmBatched_(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,l interface hipblasCtrsmBatched function hipblasCtrsmBatched_(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb,batchCount) & bind(c, name="hipblasCtrsmBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCtrsmBatched_ @@ -30299,7 +32721,6 @@ function hipblasCtrsmBatched_(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,l interface hipblasZtrsmBatched function hipblasZtrsmBatched_(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb,batchCount) & bind(c, name="hipblasZtrsmBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZtrsmBatched_ @@ -30325,7 +32746,6 @@ function hipblasZtrsmBatched_(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,l function hipblasStrsmBatched_64_(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb, & batchCount) & bind(c, name="hipblasStrsmBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasStrsmBatched_64_ @@ -30351,7 +32771,6 @@ function hipblasStrsmBatched_64_(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,B function hipblasDtrsmBatched_64_(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb, & batchCount) & bind(c, name="hipblasDtrsmBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDtrsmBatched_64_ @@ -30377,7 +32796,6 @@ function hipblasDtrsmBatched_64_(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,B function hipblasCtrsmBatched_64_(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb, & batchCount) & bind(c, name="hipblasCtrsmBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCtrsmBatched_64_ @@ -30403,7 +32821,6 @@ function hipblasCtrsmBatched_64_(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,B function hipblasZtrsmBatched_64_(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb, & batchCount) & bind(c, name="hipblasZtrsmBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZtrsmBatched_64_ @@ -30429,7 +32846,6 @@ function hipblasZtrsmBatched_64_(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,B function hipblasStrsmStridedBatched_(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,strideA,BP, & ldb,strideB,batchCount) & bind(c, name="hipblasStrsmStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasStrsmStridedBatched_ @@ -30453,13 +32869,20 @@ function hipblasStrsmStridedBatched_(handle,side,uplo,transA,diag,m,n,alpha,AP,l module procedure hipblasStrsmStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasStrsmStridedBatched_assumed_rank + module procedure & + hipblasStrsmStridedBatched_assumed_rank,& + hipblasStrsmStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasStrsmStridedBatched_rank_0,& + hipblasStrsmStridedBatched_rank_0_devptr,& hipblasStrsmStridedBatched_rank_1,& - hipblasStrsmStridedBatched_full_rank + hipblasStrsmStridedBatched_rank_1_devptr,& + hipblasStrsmStridedBatched_full_rank,& + hipblasStrsmStridedBatched_full_rank_devptr,& + hipblasStrsmStridedBatched_strided_rank,& + hipblasStrsmStridedBatched_strided_rank_devptr #endif #endif end interface @@ -30468,7 +32891,6 @@ function hipblasStrsmStridedBatched_(handle,side,uplo,transA,diag,m,n,alpha,AP,l function hipblasDtrsmStridedBatched_(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,strideA,BP, & ldb,strideB,batchCount) & bind(c, name="hipblasDtrsmStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDtrsmStridedBatched_ @@ -30492,13 +32914,20 @@ function hipblasDtrsmStridedBatched_(handle,side,uplo,transA,diag,m,n,alpha,AP,l module procedure hipblasDtrsmStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDtrsmStridedBatched_assumed_rank + module procedure & + hipblasDtrsmStridedBatched_assumed_rank,& + hipblasDtrsmStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDtrsmStridedBatched_rank_0,& + hipblasDtrsmStridedBatched_rank_0_devptr,& hipblasDtrsmStridedBatched_rank_1,& - hipblasDtrsmStridedBatched_full_rank + hipblasDtrsmStridedBatched_rank_1_devptr,& + hipblasDtrsmStridedBatched_full_rank,& + hipblasDtrsmStridedBatched_full_rank_devptr,& + hipblasDtrsmStridedBatched_strided_rank,& + hipblasDtrsmStridedBatched_strided_rank_devptr #endif #endif end interface @@ -30507,7 +32936,6 @@ function hipblasDtrsmStridedBatched_(handle,side,uplo,transA,diag,m,n,alpha,AP,l function hipblasCtrsmStridedBatched_(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,strideA,BP, & ldb,strideB,batchCount) & bind(c, name="hipblasCtrsmStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCtrsmStridedBatched_ @@ -30531,13 +32959,20 @@ function hipblasCtrsmStridedBatched_(handle,side,uplo,transA,diag,m,n,alpha,AP,l module procedure hipblasCtrsmStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCtrsmStridedBatched_assumed_rank + module procedure & + hipblasCtrsmStridedBatched_assumed_rank,& + hipblasCtrsmStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCtrsmStridedBatched_rank_0,& + hipblasCtrsmStridedBatched_rank_0_devptr,& hipblasCtrsmStridedBatched_rank_1,& - hipblasCtrsmStridedBatched_full_rank + hipblasCtrsmStridedBatched_rank_1_devptr,& + hipblasCtrsmStridedBatched_full_rank,& + hipblasCtrsmStridedBatched_full_rank_devptr,& + hipblasCtrsmStridedBatched_strided_rank,& + hipblasCtrsmStridedBatched_strided_rank_devptr #endif #endif end interface @@ -30546,7 +32981,6 @@ function hipblasCtrsmStridedBatched_(handle,side,uplo,transA,diag,m,n,alpha,AP,l function hipblasZtrsmStridedBatched_(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,strideA,BP, & ldb,strideB,batchCount) & bind(c, name="hipblasZtrsmStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZtrsmStridedBatched_ @@ -30570,13 +33004,20 @@ function hipblasZtrsmStridedBatched_(handle,side,uplo,transA,diag,m,n,alpha,AP,l module procedure hipblasZtrsmStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZtrsmStridedBatched_assumed_rank + module procedure & + hipblasZtrsmStridedBatched_assumed_rank,& + hipblasZtrsmStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZtrsmStridedBatched_rank_0,& + hipblasZtrsmStridedBatched_rank_0_devptr,& hipblasZtrsmStridedBatched_rank_1,& - hipblasZtrsmStridedBatched_full_rank + hipblasZtrsmStridedBatched_rank_1_devptr,& + hipblasZtrsmStridedBatched_full_rank,& + hipblasZtrsmStridedBatched_full_rank_devptr,& + hipblasZtrsmStridedBatched_strided_rank,& + hipblasZtrsmStridedBatched_strided_rank_devptr #endif #endif end interface @@ -30585,7 +33026,6 @@ function hipblasZtrsmStridedBatched_(handle,side,uplo,transA,diag,m,n,alpha,AP,l function hipblasStrsmStridedBatched_64_(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,strideA, & BP,ldb,strideB,batchCount) & bind(c, name="hipblasStrsmStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasStrsmStridedBatched_64_ @@ -30609,13 +33049,20 @@ function hipblasStrsmStridedBatched_64_(handle,side,uplo,transA,diag,m,n,alpha,A module procedure hipblasStrsmStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasStrsmStridedBatched_64_assumed_rank + module procedure & + hipblasStrsmStridedBatched_64_assumed_rank,& + hipblasStrsmStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasStrsmStridedBatched_64_rank_0,& + hipblasStrsmStridedBatched_64_rank_0_devptr,& hipblasStrsmStridedBatched_64_rank_1,& - hipblasStrsmStridedBatched_64_full_rank + hipblasStrsmStridedBatched_64_rank_1_devptr,& + hipblasStrsmStridedBatched_64_full_rank,& + hipblasStrsmStridedBatched_64_full_rank_devptr,& + hipblasStrsmStridedBatched_64_strided_rank,& + hipblasStrsmStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -30624,7 +33071,6 @@ function hipblasStrsmStridedBatched_64_(handle,side,uplo,transA,diag,m,n,alpha,A function hipblasDtrsmStridedBatched_64_(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,strideA, & BP,ldb,strideB,batchCount) & bind(c, name="hipblasDtrsmStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDtrsmStridedBatched_64_ @@ -30648,13 +33094,20 @@ function hipblasDtrsmStridedBatched_64_(handle,side,uplo,transA,diag,m,n,alpha,A module procedure hipblasDtrsmStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasDtrsmStridedBatched_64_assumed_rank + module procedure & + hipblasDtrsmStridedBatched_64_assumed_rank,& + hipblasDtrsmStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDtrsmStridedBatched_64_rank_0,& + hipblasDtrsmStridedBatched_64_rank_0_devptr,& hipblasDtrsmStridedBatched_64_rank_1,& - hipblasDtrsmStridedBatched_64_full_rank + hipblasDtrsmStridedBatched_64_rank_1_devptr,& + hipblasDtrsmStridedBatched_64_full_rank,& + hipblasDtrsmStridedBatched_64_full_rank_devptr,& + hipblasDtrsmStridedBatched_64_strided_rank,& + hipblasDtrsmStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -30663,7 +33116,6 @@ function hipblasDtrsmStridedBatched_64_(handle,side,uplo,transA,diag,m,n,alpha,A function hipblasCtrsmStridedBatched_64_(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,strideA, & BP,ldb,strideB,batchCount) & bind(c, name="hipblasCtrsmStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCtrsmStridedBatched_64_ @@ -30687,13 +33139,20 @@ function hipblasCtrsmStridedBatched_64_(handle,side,uplo,transA,diag,m,n,alpha,A module procedure hipblasCtrsmStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasCtrsmStridedBatched_64_assumed_rank + module procedure & + hipblasCtrsmStridedBatched_64_assumed_rank,& + hipblasCtrsmStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCtrsmStridedBatched_64_rank_0,& + hipblasCtrsmStridedBatched_64_rank_0_devptr,& hipblasCtrsmStridedBatched_64_rank_1,& - hipblasCtrsmStridedBatched_64_full_rank + hipblasCtrsmStridedBatched_64_rank_1_devptr,& + hipblasCtrsmStridedBatched_64_full_rank,& + hipblasCtrsmStridedBatched_64_full_rank_devptr,& + hipblasCtrsmStridedBatched_64_strided_rank,& + hipblasCtrsmStridedBatched_64_strided_rank_devptr #endif #endif end interface @@ -30702,7 +33161,6 @@ function hipblasCtrsmStridedBatched_64_(handle,side,uplo,transA,diag,m,n,alpha,A function hipblasZtrsmStridedBatched_64_(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,strideA, & BP,ldb,strideB,batchCount) & bind(c, name="hipblasZtrsmStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZtrsmStridedBatched_64_ @@ -30726,20 +33184,26 @@ function hipblasZtrsmStridedBatched_64_(handle,side,uplo,transA,diag,m,n,alpha,A module procedure hipblasZtrsmStridedBatched_64_typed #ifdef USE_ASSUMED_RANK - module procedure hipblasZtrsmStridedBatched_64_assumed_rank + module procedure & + hipblasZtrsmStridedBatched_64_assumed_rank,& + hipblasZtrsmStridedBatched_64_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZtrsmStridedBatched_64_rank_0,& + hipblasZtrsmStridedBatched_64_rank_0_devptr,& hipblasZtrsmStridedBatched_64_rank_1,& - hipblasZtrsmStridedBatched_64_full_rank + hipblasZtrsmStridedBatched_64_rank_1_devptr,& + hipblasZtrsmStridedBatched_64_full_rank,& + hipblasZtrsmStridedBatched_64_full_rank_devptr,& + hipblasZtrsmStridedBatched_64_strided_rank,& + hipblasZtrsmStridedBatched_64_strided_rank_devptr #endif #endif end interface interface hipblasStrtri function hipblasStrtri_(handle,uplo,diag,n,AP,lda,invA,ldinvA) bind(c, name="hipblasStrtri") - use iso_c_binding import implicit none integer(c_int) :: hipblasStrtri_ @@ -30767,7 +33231,6 @@ function hipblasStrtri_(handle,uplo,diag,n,AP,lda,invA,ldinvA) bind(c, name="hip interface hipblasDtrtri function hipblasDtrtri_(handle,uplo,diag,n,AP,lda,invA,ldinvA) bind(c, name="hipblasDtrtri") - use iso_c_binding import implicit none integer(c_int) :: hipblasDtrtri_ @@ -30795,7 +33258,6 @@ function hipblasDtrtri_(handle,uplo,diag,n,AP,lda,invA,ldinvA) bind(c, name="hip interface hipblasCtrtri function hipblasCtrtri_(handle,uplo,diag,n,AP,lda,invA,ldinvA) bind(c, name="hipblasCtrtri") - use iso_c_binding import implicit none integer(c_int) :: hipblasCtrtri_ @@ -30823,7 +33285,6 @@ function hipblasCtrtri_(handle,uplo,diag,n,AP,lda,invA,ldinvA) bind(c, name="hip interface hipblasZtrtri function hipblasZtrtri_(handle,uplo,diag,n,AP,lda,invA,ldinvA) bind(c, name="hipblasZtrtri") - use iso_c_binding import implicit none integer(c_int) :: hipblasZtrtri_ @@ -30852,7 +33313,6 @@ function hipblasZtrtri_(handle,uplo,diag,n,AP,lda,invA,ldinvA) bind(c, name="hip interface hipblasStrtriBatched function hipblasStrtriBatched_(handle,uplo,diag,n,AP,lda,invA,ldinvA,batchCount) & bind(c, name="hipblasStrtriBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasStrtriBatched_ @@ -30871,7 +33331,6 @@ function hipblasStrtriBatched_(handle,uplo,diag,n,AP,lda,invA,ldinvA,batchCount) interface hipblasDtrtriBatched function hipblasDtrtriBatched_(handle,uplo,diag,n,AP,lda,invA,ldinvA,batchCount) & bind(c, name="hipblasDtrtriBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDtrtriBatched_ @@ -30890,7 +33349,6 @@ function hipblasDtrtriBatched_(handle,uplo,diag,n,AP,lda,invA,ldinvA,batchCount) interface hipblasCtrtriBatched function hipblasCtrtriBatched_(handle,uplo,diag,n,AP,lda,invA,ldinvA,batchCount) & bind(c, name="hipblasCtrtriBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCtrtriBatched_ @@ -30909,7 +33367,6 @@ function hipblasCtrtriBatched_(handle,uplo,diag,n,AP,lda,invA,ldinvA,batchCount) interface hipblasZtrtriBatched function hipblasZtrtriBatched_(handle,uplo,diag,n,AP,lda,invA,ldinvA,batchCount) & bind(c, name="hipblasZtrtriBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZtrtriBatched_ @@ -30929,7 +33386,6 @@ function hipblasZtrtriBatched_(handle,uplo,diag,n,AP,lda,invA,ldinvA,batchCount) function hipblasStrtriStridedBatched_(handle,uplo,diag,n,AP,lda,strideA,invA,ldinvA, & stride_invA,batchCount) & bind(c, name="hipblasStrtriStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasStrtriStridedBatched_ @@ -30953,7 +33409,8 @@ function hipblasStrtriStridedBatched_(handle,uplo,diag,n,AP,lda,strideA,invA,ldi module procedure & hipblasStrtriStridedBatched_rank_0,& hipblasStrtriStridedBatched_rank_1,& - hipblasStrtriStridedBatched_full_rank + hipblasStrtriStridedBatched_full_rank,& + hipblasStrtriStridedBatched_strided_rank #endif #endif end interface @@ -30962,7 +33419,6 @@ function hipblasStrtriStridedBatched_(handle,uplo,diag,n,AP,lda,strideA,invA,ldi function hipblasDtrtriStridedBatched_(handle,uplo,diag,n,AP,lda,strideA,invA,ldinvA, & stride_invA,batchCount) & bind(c, name="hipblasDtrtriStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDtrtriStridedBatched_ @@ -30986,7 +33442,8 @@ function hipblasDtrtriStridedBatched_(handle,uplo,diag,n,AP,lda,strideA,invA,ldi module procedure & hipblasDtrtriStridedBatched_rank_0,& hipblasDtrtriStridedBatched_rank_1,& - hipblasDtrtriStridedBatched_full_rank + hipblasDtrtriStridedBatched_full_rank,& + hipblasDtrtriStridedBatched_strided_rank #endif #endif end interface @@ -30995,7 +33452,6 @@ function hipblasDtrtriStridedBatched_(handle,uplo,diag,n,AP,lda,strideA,invA,ldi function hipblasCtrtriStridedBatched_(handle,uplo,diag,n,AP,lda,strideA,invA,ldinvA, & stride_invA,batchCount) & bind(c, name="hipblasCtrtriStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCtrtriStridedBatched_ @@ -31019,7 +33475,8 @@ function hipblasCtrtriStridedBatched_(handle,uplo,diag,n,AP,lda,strideA,invA,ldi module procedure & hipblasCtrtriStridedBatched_rank_0,& hipblasCtrtriStridedBatched_rank_1,& - hipblasCtrtriStridedBatched_full_rank + hipblasCtrtriStridedBatched_full_rank,& + hipblasCtrtriStridedBatched_strided_rank #endif #endif end interface @@ -31028,7 +33485,6 @@ function hipblasCtrtriStridedBatched_(handle,uplo,diag,n,AP,lda,strideA,invA,ldi function hipblasZtrtriStridedBatched_(handle,uplo,diag,n,AP,lda,strideA,invA,ldinvA, & stride_invA,batchCount) & bind(c, name="hipblasZtrtriStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZtrtriStridedBatched_ @@ -31052,14 +33508,14 @@ function hipblasZtrtriStridedBatched_(handle,uplo,diag,n,AP,lda,strideA,invA,ldi module procedure & hipblasZtrtriStridedBatched_rank_0,& hipblasZtrtriStridedBatched_rank_1,& - hipblasZtrtriStridedBatched_full_rank + hipblasZtrtriStridedBatched_full_rank,& + hipblasZtrtriStridedBatched_strided_rank #endif #endif end interface interface hipblasSdgmm function hipblasSdgmm_(handle,side,m,n,AP,lda,x,incx,CP,ldc) bind(c, name="hipblasSdgmm") - use iso_c_binding import implicit none integer(c_int) :: hipblasSdgmm_ @@ -31089,7 +33545,6 @@ function hipblasSdgmm_(handle,side,m,n,AP,lda,x,incx,CP,ldc) bind(c, name="hipbl interface hipblasDdgmm function hipblasDdgmm_(handle,side,m,n,AP,lda,x,incx,CP,ldc) bind(c, name="hipblasDdgmm") - use iso_c_binding import implicit none integer(c_int) :: hipblasDdgmm_ @@ -31119,7 +33574,6 @@ function hipblasDdgmm_(handle,side,m,n,AP,lda,x,incx,CP,ldc) bind(c, name="hipbl interface hipblasCdgmm function hipblasCdgmm_(handle,side,m,n,AP,lda,x,incx,CP,ldc) bind(c, name="hipblasCdgmm") - use iso_c_binding import implicit none integer(c_int) :: hipblasCdgmm_ @@ -31149,7 +33603,6 @@ function hipblasCdgmm_(handle,side,m,n,AP,lda,x,incx,CP,ldc) bind(c, name="hipbl interface hipblasZdgmm function hipblasZdgmm_(handle,side,m,n,AP,lda,x,incx,CP,ldc) bind(c, name="hipblasZdgmm") - use iso_c_binding import implicit none integer(c_int) :: hipblasZdgmm_ @@ -31179,7 +33632,6 @@ function hipblasZdgmm_(handle,side,m,n,AP,lda,x,incx,CP,ldc) bind(c, name="hipbl interface hipblasSdgmm_64 function hipblasSdgmm_64_(handle,side,m,n,AP,lda,x,incx,CP,ldc) bind(c, name="hipblasSdgmm_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSdgmm_64_ @@ -31209,7 +33661,6 @@ function hipblasSdgmm_64_(handle,side,m,n,AP,lda,x,incx,CP,ldc) bind(c, name="hi interface hipblasDdgmm_64 function hipblasDdgmm_64_(handle,side,m,n,AP,lda,x,incx,CP,ldc) bind(c, name="hipblasDdgmm_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDdgmm_64_ @@ -31239,7 +33690,6 @@ function hipblasDdgmm_64_(handle,side,m,n,AP,lda,x,incx,CP,ldc) bind(c, name="hi interface hipblasCdgmm_64 function hipblasCdgmm_64_(handle,side,m,n,AP,lda,x,incx,CP,ldc) bind(c, name="hipblasCdgmm_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCdgmm_64_ @@ -31269,7 +33719,6 @@ function hipblasCdgmm_64_(handle,side,m,n,AP,lda,x,incx,CP,ldc) bind(c, name="hi interface hipblasZdgmm_64 function hipblasZdgmm_64_(handle,side,m,n,AP,lda,x,incx,CP,ldc) bind(c, name="hipblasZdgmm_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZdgmm_64_ @@ -31300,7 +33749,6 @@ function hipblasZdgmm_64_(handle,side,m,n,AP,lda,x,incx,CP,ldc) bind(c, name="hi interface hipblasSdgmmBatched function hipblasSdgmmBatched_(handle,side,m,n,AP,lda,x,incx,CP,ldc,batchCount) & bind(c, name="hipblasSdgmmBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasSdgmmBatched_ @@ -31321,7 +33769,6 @@ function hipblasSdgmmBatched_(handle,side,m,n,AP,lda,x,incx,CP,ldc,batchCount) & interface hipblasDdgmmBatched function hipblasDdgmmBatched_(handle,side,m,n,AP,lda,x,incx,CP,ldc,batchCount) & bind(c, name="hipblasDdgmmBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDdgmmBatched_ @@ -31342,7 +33789,6 @@ function hipblasDdgmmBatched_(handle,side,m,n,AP,lda,x,incx,CP,ldc,batchCount) & interface hipblasCdgmmBatched function hipblasCdgmmBatched_(handle,side,m,n,AP,lda,x,incx,CP,ldc,batchCount) & bind(c, name="hipblasCdgmmBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCdgmmBatched_ @@ -31363,7 +33809,6 @@ function hipblasCdgmmBatched_(handle,side,m,n,AP,lda,x,incx,CP,ldc,batchCount) & interface hipblasZdgmmBatched function hipblasZdgmmBatched_(handle,side,m,n,AP,lda,x,incx,CP,ldc,batchCount) & bind(c, name="hipblasZdgmmBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZdgmmBatched_ @@ -31384,7 +33829,6 @@ function hipblasZdgmmBatched_(handle,side,m,n,AP,lda,x,incx,CP,ldc,batchCount) & interface hipblasSdgmmBatched_64 function hipblasSdgmmBatched_64_(handle,side,m,n,AP,lda,x,incx,CP,ldc,batchCount) & bind(c, name="hipblasSdgmmBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSdgmmBatched_64_ @@ -31405,7 +33849,6 @@ function hipblasSdgmmBatched_64_(handle,side,m,n,AP,lda,x,incx,CP,ldc,batchCount interface hipblasDdgmmBatched_64 function hipblasDdgmmBatched_64_(handle,side,m,n,AP,lda,x,incx,CP,ldc,batchCount) & bind(c, name="hipblasDdgmmBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDdgmmBatched_64_ @@ -31426,7 +33869,6 @@ function hipblasDdgmmBatched_64_(handle,side,m,n,AP,lda,x,incx,CP,ldc,batchCount interface hipblasCdgmmBatched_64 function hipblasCdgmmBatched_64_(handle,side,m,n,AP,lda,x,incx,CP,ldc,batchCount) & bind(c, name="hipblasCdgmmBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCdgmmBatched_64_ @@ -31447,7 +33889,6 @@ function hipblasCdgmmBatched_64_(handle,side,m,n,AP,lda,x,incx,CP,ldc,batchCount interface hipblasZdgmmBatched_64 function hipblasZdgmmBatched_64_(handle,side,m,n,AP,lda,x,incx,CP,ldc,batchCount) & bind(c, name="hipblasZdgmmBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZdgmmBatched_64_ @@ -31469,7 +33910,6 @@ function hipblasZdgmmBatched_64_(handle,side,m,n,AP,lda,x,incx,CP,ldc,batchCount function hipblasSdgmmStridedBatched_(handle,side,m,n,AP,lda,strideA,x,incx,stridex,CP,ldc, & strideC,batchCount) & bind(c, name="hipblasSdgmmStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasSdgmmStridedBatched_ @@ -31496,7 +33936,8 @@ function hipblasSdgmmStridedBatched_(handle,side,m,n,AP,lda,strideA,x,incx,strid module procedure & hipblasSdgmmStridedBatched_rank_0,& hipblasSdgmmStridedBatched_rank_1,& - hipblasSdgmmStridedBatched_full_rank + hipblasSdgmmStridedBatched_full_rank,& + hipblasSdgmmStridedBatched_strided_rank #endif #endif end interface @@ -31505,7 +33946,6 @@ function hipblasSdgmmStridedBatched_(handle,side,m,n,AP,lda,strideA,x,incx,strid function hipblasDdgmmStridedBatched_(handle,side,m,n,AP,lda,strideA,x,incx,stridex,CP,ldc, & strideC,batchCount) & bind(c, name="hipblasDdgmmStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDdgmmStridedBatched_ @@ -31532,7 +33972,8 @@ function hipblasDdgmmStridedBatched_(handle,side,m,n,AP,lda,strideA,x,incx,strid module procedure & hipblasDdgmmStridedBatched_rank_0,& hipblasDdgmmStridedBatched_rank_1,& - hipblasDdgmmStridedBatched_full_rank + hipblasDdgmmStridedBatched_full_rank,& + hipblasDdgmmStridedBatched_strided_rank #endif #endif end interface @@ -31541,7 +33982,6 @@ function hipblasDdgmmStridedBatched_(handle,side,m,n,AP,lda,strideA,x,incx,strid function hipblasCdgmmStridedBatched_(handle,side,m,n,AP,lda,strideA,x,incx,stridex,CP,ldc, & strideC,batchCount) & bind(c, name="hipblasCdgmmStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCdgmmStridedBatched_ @@ -31568,7 +34008,8 @@ function hipblasCdgmmStridedBatched_(handle,side,m,n,AP,lda,strideA,x,incx,strid module procedure & hipblasCdgmmStridedBatched_rank_0,& hipblasCdgmmStridedBatched_rank_1,& - hipblasCdgmmStridedBatched_full_rank + hipblasCdgmmStridedBatched_full_rank,& + hipblasCdgmmStridedBatched_strided_rank #endif #endif end interface @@ -31577,7 +34018,6 @@ function hipblasCdgmmStridedBatched_(handle,side,m,n,AP,lda,strideA,x,incx,strid function hipblasZdgmmStridedBatched_(handle,side,m,n,AP,lda,strideA,x,incx,stridex,CP,ldc, & strideC,batchCount) & bind(c, name="hipblasZdgmmStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZdgmmStridedBatched_ @@ -31604,7 +34044,8 @@ function hipblasZdgmmStridedBatched_(handle,side,m,n,AP,lda,strideA,x,incx,strid module procedure & hipblasZdgmmStridedBatched_rank_0,& hipblasZdgmmStridedBatched_rank_1,& - hipblasZdgmmStridedBatched_full_rank + hipblasZdgmmStridedBatched_full_rank,& + hipblasZdgmmStridedBatched_strided_rank #endif #endif end interface @@ -31613,7 +34054,6 @@ function hipblasZdgmmStridedBatched_(handle,side,m,n,AP,lda,strideA,x,incx,strid function hipblasSdgmmStridedBatched_64_(handle,side,m,n,AP,lda,strideA,x,incx,stridex,CP,ldc, & strideC,batchCount) & bind(c, name="hipblasSdgmmStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasSdgmmStridedBatched_64_ @@ -31640,7 +34080,8 @@ function hipblasSdgmmStridedBatched_64_(handle,side,m,n,AP,lda,strideA,x,incx,st module procedure & hipblasSdgmmStridedBatched_64_rank_0,& hipblasSdgmmStridedBatched_64_rank_1,& - hipblasSdgmmStridedBatched_64_full_rank + hipblasSdgmmStridedBatched_64_full_rank,& + hipblasSdgmmStridedBatched_64_strided_rank #endif #endif end interface @@ -31649,7 +34090,6 @@ function hipblasSdgmmStridedBatched_64_(handle,side,m,n,AP,lda,strideA,x,incx,st function hipblasDdgmmStridedBatched_64_(handle,side,m,n,AP,lda,strideA,x,incx,stridex,CP,ldc, & strideC,batchCount) & bind(c, name="hipblasDdgmmStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDdgmmStridedBatched_64_ @@ -31676,7 +34116,8 @@ function hipblasDdgmmStridedBatched_64_(handle,side,m,n,AP,lda,strideA,x,incx,st module procedure & hipblasDdgmmStridedBatched_64_rank_0,& hipblasDdgmmStridedBatched_64_rank_1,& - hipblasDdgmmStridedBatched_64_full_rank + hipblasDdgmmStridedBatched_64_full_rank,& + hipblasDdgmmStridedBatched_64_strided_rank #endif #endif end interface @@ -31685,7 +34126,6 @@ function hipblasDdgmmStridedBatched_64_(handle,side,m,n,AP,lda,strideA,x,incx,st function hipblasCdgmmStridedBatched_64_(handle,side,m,n,AP,lda,strideA,x,incx,stridex,CP,ldc, & strideC,batchCount) & bind(c, name="hipblasCdgmmStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasCdgmmStridedBatched_64_ @@ -31712,7 +34152,8 @@ function hipblasCdgmmStridedBatched_64_(handle,side,m,n,AP,lda,strideA,x,incx,st module procedure & hipblasCdgmmStridedBatched_64_rank_0,& hipblasCdgmmStridedBatched_64_rank_1,& - hipblasCdgmmStridedBatched_64_full_rank + hipblasCdgmmStridedBatched_64_full_rank,& + hipblasCdgmmStridedBatched_64_strided_rank #endif #endif end interface @@ -31721,7 +34162,6 @@ function hipblasCdgmmStridedBatched_64_(handle,side,m,n,AP,lda,strideA,x,incx,st function hipblasZdgmmStridedBatched_64_(handle,side,m,n,AP,lda,strideA,x,incx,stridex,CP,ldc, & strideC,batchCount) & bind(c, name="hipblasZdgmmStridedBatched_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasZdgmmStridedBatched_64_ @@ -31748,14 +34188,14 @@ function hipblasZdgmmStridedBatched_64_(handle,side,m,n,AP,lda,strideA,x,incx,st module procedure & hipblasZdgmmStridedBatched_64_rank_0,& hipblasZdgmmStridedBatched_64_rank_1,& - hipblasZdgmmStridedBatched_64_full_rank + hipblasZdgmmStridedBatched_64_full_rank,& + hipblasZdgmmStridedBatched_64_strided_rank #endif #endif end interface interface hipblasSgetrf function hipblasSgetrf_(handle,n,A,lda,ipiv,myInfo) bind(c, name="hipblasSgetrf") - use iso_c_binding import implicit none integer(c_int) :: hipblasSgetrf_ @@ -31768,20 +34208,24 @@ function hipblasSgetrf_(handle,n,A,lda,ipiv,myInfo) bind(c, name="hipblasSgetrf" end function #ifdef USE_ASSUMED_RANK - module procedure hipblasSgetrf_assumed_rank + module procedure & + hipblasSgetrf_assumed_rank,& + hipblasSgetrf_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSgetrf_rank_0,& + hipblasSgetrf_rank_0_devptr,& hipblasSgetrf_rank_1,& - hipblasSgetrf_full_rank + hipblasSgetrf_rank_1_devptr,& + hipblasSgetrf_full_rank,& + hipblasSgetrf_full_rank_devptr #endif #endif end interface interface hipblasDgetrf function hipblasDgetrf_(handle,n,A,lda,ipiv,myInfo) bind(c, name="hipblasDgetrf") - use iso_c_binding import implicit none integer(c_int) :: hipblasDgetrf_ @@ -31794,20 +34238,24 @@ function hipblasDgetrf_(handle,n,A,lda,ipiv,myInfo) bind(c, name="hipblasDgetrf" end function #ifdef USE_ASSUMED_RANK - module procedure hipblasDgetrf_assumed_rank + module procedure & + hipblasDgetrf_assumed_rank,& + hipblasDgetrf_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDgetrf_rank_0,& + hipblasDgetrf_rank_0_devptr,& hipblasDgetrf_rank_1,& - hipblasDgetrf_full_rank + hipblasDgetrf_rank_1_devptr,& + hipblasDgetrf_full_rank,& + hipblasDgetrf_full_rank_devptr #endif #endif end interface interface hipblasCgetrf function hipblasCgetrf_(handle,n,A,lda,ipiv,myInfo) bind(c, name="hipblasCgetrf") - use iso_c_binding import implicit none integer(c_int) :: hipblasCgetrf_ @@ -31820,20 +34268,24 @@ function hipblasCgetrf_(handle,n,A,lda,ipiv,myInfo) bind(c, name="hipblasCgetrf" end function #ifdef USE_ASSUMED_RANK - module procedure hipblasCgetrf_assumed_rank + module procedure & + hipblasCgetrf_assumed_rank,& + hipblasCgetrf_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCgetrf_rank_0,& + hipblasCgetrf_rank_0_devptr,& hipblasCgetrf_rank_1,& - hipblasCgetrf_full_rank + hipblasCgetrf_rank_1_devptr,& + hipblasCgetrf_full_rank,& + hipblasCgetrf_full_rank_devptr #endif #endif end interface interface hipblasZgetrf function hipblasZgetrf_(handle,n,A,lda,ipiv,myInfo) bind(c, name="hipblasZgetrf") - use iso_c_binding import implicit none integer(c_int) :: hipblasZgetrf_ @@ -31846,13 +34298,18 @@ function hipblasZgetrf_(handle,n,A,lda,ipiv,myInfo) bind(c, name="hipblasZgetrf" end function #ifdef USE_ASSUMED_RANK - module procedure hipblasZgetrf_assumed_rank + module procedure & + hipblasZgetrf_assumed_rank,& + hipblasZgetrf_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZgetrf_rank_0,& + hipblasZgetrf_rank_0_devptr,& hipblasZgetrf_rank_1,& - hipblasZgetrf_full_rank + hipblasZgetrf_rank_1_devptr,& + hipblasZgetrf_full_rank,& + hipblasZgetrf_full_rank_devptr #endif #endif end interface @@ -31860,7 +34317,6 @@ function hipblasZgetrf_(handle,n,A,lda,ipiv,myInfo) bind(c, name="hipblasZgetrf" interface hipblasSgetrfBatched function hipblasSgetrfBatched_(handle,n,A,lda,ipiv,myInfo,batchCount) & bind(c, name="hipblasSgetrfBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasSgetrfBatched_ @@ -31872,12 +34328,21 @@ function hipblasSgetrfBatched_(handle,n,A,lda,ipiv,myInfo,batchCount) & type(c_ptr),value :: myInfo integer(c_int),value :: batchCount end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSgetrfBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSgetrfBatched_rank_0,& + hipblasSgetrfBatched_rank_1 +#endif +#endif end interface interface hipblasDgetrfBatched function hipblasDgetrfBatched_(handle,n,A,lda,ipiv,myInfo,batchCount) & bind(c, name="hipblasDgetrfBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDgetrfBatched_ @@ -31889,12 +34354,21 @@ function hipblasDgetrfBatched_(handle,n,A,lda,ipiv,myInfo,batchCount) & type(c_ptr),value :: myInfo integer(c_int),value :: batchCount end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDgetrfBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDgetrfBatched_rank_0,& + hipblasDgetrfBatched_rank_1 +#endif +#endif end interface interface hipblasCgetrfBatched function hipblasCgetrfBatched_(handle,n,A,lda,ipiv,myInfo,batchCount) & bind(c, name="hipblasCgetrfBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCgetrfBatched_ @@ -31906,12 +34380,21 @@ function hipblasCgetrfBatched_(handle,n,A,lda,ipiv,myInfo,batchCount) & type(c_ptr),value :: myInfo integer(c_int),value :: batchCount end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCgetrfBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCgetrfBatched_rank_0,& + hipblasCgetrfBatched_rank_1 +#endif +#endif end interface interface hipblasZgetrfBatched function hipblasZgetrfBatched_(handle,n,A,lda,ipiv,myInfo,batchCount) & bind(c, name="hipblasZgetrfBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZgetrfBatched_ @@ -31923,12 +34406,21 @@ function hipblasZgetrfBatched_(handle,n,A,lda,ipiv,myInfo,batchCount) & type(c_ptr),value :: myInfo integer(c_int),value :: batchCount end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZgetrfBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZgetrfBatched_rank_0,& + hipblasZgetrfBatched_rank_1 +#endif +#endif end interface interface hipblasSgetrfStridedBatched function hipblasSgetrfStridedBatched_(handle,n,A,lda,strideA,ipiv,strideP,myInfo,batchCount) & bind(c, name="hipblasSgetrfStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasSgetrfStridedBatched_ @@ -31944,13 +34436,20 @@ function hipblasSgetrfStridedBatched_(handle,n,A,lda,strideA,ipiv,strideP,myInfo end function #ifdef USE_ASSUMED_RANK - module procedure hipblasSgetrfStridedBatched_assumed_rank + module procedure & + hipblasSgetrfStridedBatched_assumed_rank,& + hipblasSgetrfStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSgetrfStridedBatched_rank_0,& + hipblasSgetrfStridedBatched_rank_0_devptr,& hipblasSgetrfStridedBatched_rank_1,& - hipblasSgetrfStridedBatched_full_rank + hipblasSgetrfStridedBatched_rank_1_devptr,& + hipblasSgetrfStridedBatched_full_rank,& + hipblasSgetrfStridedBatched_full_rank_devptr,& + hipblasSgetrfStridedBatched_strided_rank,& + hipblasSgetrfStridedBatched_strided_rank_devptr #endif #endif end interface @@ -31958,7 +34457,6 @@ function hipblasSgetrfStridedBatched_(handle,n,A,lda,strideA,ipiv,strideP,myInfo interface hipblasDgetrfStridedBatched function hipblasDgetrfStridedBatched_(handle,n,A,lda,strideA,ipiv,strideP,myInfo,batchCount) & bind(c, name="hipblasDgetrfStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDgetrfStridedBatched_ @@ -31974,13 +34472,20 @@ function hipblasDgetrfStridedBatched_(handle,n,A,lda,strideA,ipiv,strideP,myInfo end function #ifdef USE_ASSUMED_RANK - module procedure hipblasDgetrfStridedBatched_assumed_rank + module procedure & + hipblasDgetrfStridedBatched_assumed_rank,& + hipblasDgetrfStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDgetrfStridedBatched_rank_0,& + hipblasDgetrfStridedBatched_rank_0_devptr,& hipblasDgetrfStridedBatched_rank_1,& - hipblasDgetrfStridedBatched_full_rank + hipblasDgetrfStridedBatched_rank_1_devptr,& + hipblasDgetrfStridedBatched_full_rank,& + hipblasDgetrfStridedBatched_full_rank_devptr,& + hipblasDgetrfStridedBatched_strided_rank,& + hipblasDgetrfStridedBatched_strided_rank_devptr #endif #endif end interface @@ -31988,7 +34493,6 @@ function hipblasDgetrfStridedBatched_(handle,n,A,lda,strideA,ipiv,strideP,myInfo interface hipblasCgetrfStridedBatched function hipblasCgetrfStridedBatched_(handle,n,A,lda,strideA,ipiv,strideP,myInfo,batchCount) & bind(c, name="hipblasCgetrfStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCgetrfStridedBatched_ @@ -32004,13 +34508,20 @@ function hipblasCgetrfStridedBatched_(handle,n,A,lda,strideA,ipiv,strideP,myInfo end function #ifdef USE_ASSUMED_RANK - module procedure hipblasCgetrfStridedBatched_assumed_rank + module procedure & + hipblasCgetrfStridedBatched_assumed_rank,& + hipblasCgetrfStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCgetrfStridedBatched_rank_0,& + hipblasCgetrfStridedBatched_rank_0_devptr,& hipblasCgetrfStridedBatched_rank_1,& - hipblasCgetrfStridedBatched_full_rank + hipblasCgetrfStridedBatched_rank_1_devptr,& + hipblasCgetrfStridedBatched_full_rank,& + hipblasCgetrfStridedBatched_full_rank_devptr,& + hipblasCgetrfStridedBatched_strided_rank,& + hipblasCgetrfStridedBatched_strided_rank_devptr #endif #endif end interface @@ -32018,7 +34529,6 @@ function hipblasCgetrfStridedBatched_(handle,n,A,lda,strideA,ipiv,strideP,myInfo interface hipblasZgetrfStridedBatched function hipblasZgetrfStridedBatched_(handle,n,A,lda,strideA,ipiv,strideP,myInfo,batchCount) & bind(c, name="hipblasZgetrfStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZgetrfStridedBatched_ @@ -32034,13 +34544,20 @@ function hipblasZgetrfStridedBatched_(handle,n,A,lda,strideA,ipiv,strideP,myInfo end function #ifdef USE_ASSUMED_RANK - module procedure hipblasZgetrfStridedBatched_assumed_rank + module procedure & + hipblasZgetrfStridedBatched_assumed_rank,& + hipblasZgetrfStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZgetrfStridedBatched_rank_0,& + hipblasZgetrfStridedBatched_rank_0_devptr,& hipblasZgetrfStridedBatched_rank_1,& - hipblasZgetrfStridedBatched_full_rank + hipblasZgetrfStridedBatched_rank_1_devptr,& + hipblasZgetrfStridedBatched_full_rank,& + hipblasZgetrfStridedBatched_full_rank_devptr,& + hipblasZgetrfStridedBatched_strided_rank,& + hipblasZgetrfStridedBatched_strided_rank_devptr #endif #endif end interface @@ -32048,7 +34565,6 @@ function hipblasZgetrfStridedBatched_(handle,n,A,lda,strideA,ipiv,strideP,myInfo interface hipblasSgetrs function hipblasSgetrs_(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) & bind(c, name="hipblasSgetrs") - use iso_c_binding import implicit none integer(c_int) :: hipblasSgetrs_ @@ -32067,18 +34583,13 @@ function hipblasSgetrs_(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) & module procedure hipblasSgetrs_typed #ifdef USE_ASSUMED_RANK - module procedure & - hipblasSgetrs_assumed_rank,& - hipblasSgetrs_assumed_rank_devptr + module procedure hipblasSgetrs_assumed_rank #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSgetrs_rank_0,& - hipblasSgetrs_rank_0_devptr,& hipblasSgetrs_rank_1,& - hipblasSgetrs_rank_1_devptr,& - hipblasSgetrs_full_rank,& - hipblasSgetrs_full_rank_devptr + hipblasSgetrs_full_rank #endif #endif end interface @@ -32086,7 +34597,6 @@ function hipblasSgetrs_(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) & interface hipblasDgetrs function hipblasDgetrs_(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) & bind(c, name="hipblasDgetrs") - use iso_c_binding import implicit none integer(c_int) :: hipblasDgetrs_ @@ -32105,18 +34615,13 @@ function hipblasDgetrs_(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) & module procedure hipblasDgetrs_typed #ifdef USE_ASSUMED_RANK - module procedure & - hipblasDgetrs_assumed_rank,& - hipblasDgetrs_assumed_rank_devptr + module procedure hipblasDgetrs_assumed_rank #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDgetrs_rank_0,& - hipblasDgetrs_rank_0_devptr,& hipblasDgetrs_rank_1,& - hipblasDgetrs_rank_1_devptr,& - hipblasDgetrs_full_rank,& - hipblasDgetrs_full_rank_devptr + hipblasDgetrs_full_rank #endif #endif end interface @@ -32124,7 +34629,6 @@ function hipblasDgetrs_(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) & interface hipblasCgetrs function hipblasCgetrs_(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) & bind(c, name="hipblasCgetrs") - use iso_c_binding import implicit none integer(c_int) :: hipblasCgetrs_ @@ -32143,18 +34647,13 @@ function hipblasCgetrs_(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) & module procedure hipblasCgetrs_typed #ifdef USE_ASSUMED_RANK - module procedure & - hipblasCgetrs_assumed_rank,& - hipblasCgetrs_assumed_rank_devptr + module procedure hipblasCgetrs_assumed_rank #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCgetrs_rank_0,& - hipblasCgetrs_rank_0_devptr,& hipblasCgetrs_rank_1,& - hipblasCgetrs_rank_1_devptr,& - hipblasCgetrs_full_rank,& - hipblasCgetrs_full_rank_devptr + hipblasCgetrs_full_rank #endif #endif end interface @@ -32162,7 +34661,6 @@ function hipblasCgetrs_(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) & interface hipblasZgetrs function hipblasZgetrs_(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) & bind(c, name="hipblasZgetrs") - use iso_c_binding import implicit none integer(c_int) :: hipblasZgetrs_ @@ -32181,18 +34679,13 @@ function hipblasZgetrs_(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) & module procedure hipblasZgetrs_typed #ifdef USE_ASSUMED_RANK - module procedure & - hipblasZgetrs_assumed_rank,& - hipblasZgetrs_assumed_rank_devptr + module procedure hipblasZgetrs_assumed_rank #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZgetrs_rank_0,& - hipblasZgetrs_rank_0_devptr,& hipblasZgetrs_rank_1,& - hipblasZgetrs_rank_1_devptr,& - hipblasZgetrs_full_rank,& - hipblasZgetrs_full_rank_devptr + hipblasZgetrs_full_rank #endif #endif end interface @@ -32200,7 +34693,6 @@ function hipblasZgetrs_(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) & interface hipblasSgetrsBatched function hipblasSgetrsBatched_(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo,batchCount) & bind(c, name="hipblasSgetrsBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasSgetrsBatched_ @@ -32223,7 +34715,6 @@ function hipblasSgetrsBatched_(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo,batch interface hipblasDgetrsBatched function hipblasDgetrsBatched_(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo,batchCount) & bind(c, name="hipblasDgetrsBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDgetrsBatched_ @@ -32246,7 +34737,6 @@ function hipblasDgetrsBatched_(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo,batch interface hipblasCgetrsBatched function hipblasCgetrsBatched_(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo,batchCount) & bind(c, name="hipblasCgetrsBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCgetrsBatched_ @@ -32269,7 +34759,6 @@ function hipblasCgetrsBatched_(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo,batch interface hipblasZgetrsBatched function hipblasZgetrsBatched_(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo,batchCount) & bind(c, name="hipblasZgetrsBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZgetrsBatched_ @@ -32293,7 +34782,6 @@ function hipblasZgetrsBatched_(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo,batch function hipblasSgetrsStridedBatched_(handle,trans,n,nrhs,A,lda,strideA,ipiv,strideP,B,ldb, & strideB,myInfo,batchCount) & bind(c, name="hipblasSgetrsStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasSgetrsStridedBatched_ @@ -32316,18 +34804,14 @@ function hipblasSgetrsStridedBatched_(handle,trans,n,nrhs,A,lda,strideA,ipiv,str module procedure hipblasSgetrsStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure & - hipblasSgetrsStridedBatched_assumed_rank,& - hipblasSgetrsStridedBatched_assumed_rank_devptr + module procedure hipblasSgetrsStridedBatched_assumed_rank #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSgetrsStridedBatched_rank_0,& - hipblasSgetrsStridedBatched_rank_0_devptr,& hipblasSgetrsStridedBatched_rank_1,& - hipblasSgetrsStridedBatched_rank_1_devptr,& hipblasSgetrsStridedBatched_full_rank,& - hipblasSgetrsStridedBatched_full_rank_devptr + hipblasSgetrsStridedBatched_strided_rank #endif #endif end interface @@ -32336,7 +34820,6 @@ function hipblasSgetrsStridedBatched_(handle,trans,n,nrhs,A,lda,strideA,ipiv,str function hipblasDgetrsStridedBatched_(handle,trans,n,nrhs,A,lda,strideA,ipiv,strideP,B,ldb, & strideB,myInfo,batchCount) & bind(c, name="hipblasDgetrsStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDgetrsStridedBatched_ @@ -32359,18 +34842,14 @@ function hipblasDgetrsStridedBatched_(handle,trans,n,nrhs,A,lda,strideA,ipiv,str module procedure hipblasDgetrsStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure & - hipblasDgetrsStridedBatched_assumed_rank,& - hipblasDgetrsStridedBatched_assumed_rank_devptr + module procedure hipblasDgetrsStridedBatched_assumed_rank #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDgetrsStridedBatched_rank_0,& - hipblasDgetrsStridedBatched_rank_0_devptr,& hipblasDgetrsStridedBatched_rank_1,& - hipblasDgetrsStridedBatched_rank_1_devptr,& hipblasDgetrsStridedBatched_full_rank,& - hipblasDgetrsStridedBatched_full_rank_devptr + hipblasDgetrsStridedBatched_strided_rank #endif #endif end interface @@ -32379,7 +34858,6 @@ function hipblasDgetrsStridedBatched_(handle,trans,n,nrhs,A,lda,strideA,ipiv,str function hipblasCgetrsStridedBatched_(handle,trans,n,nrhs,A,lda,strideA,ipiv,strideP,B,ldb, & strideB,myInfo,batchCount) & bind(c, name="hipblasCgetrsStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCgetrsStridedBatched_ @@ -32402,18 +34880,14 @@ function hipblasCgetrsStridedBatched_(handle,trans,n,nrhs,A,lda,strideA,ipiv,str module procedure hipblasCgetrsStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure & - hipblasCgetrsStridedBatched_assumed_rank,& - hipblasCgetrsStridedBatched_assumed_rank_devptr + module procedure hipblasCgetrsStridedBatched_assumed_rank #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCgetrsStridedBatched_rank_0,& - hipblasCgetrsStridedBatched_rank_0_devptr,& hipblasCgetrsStridedBatched_rank_1,& - hipblasCgetrsStridedBatched_rank_1_devptr,& hipblasCgetrsStridedBatched_full_rank,& - hipblasCgetrsStridedBatched_full_rank_devptr + hipblasCgetrsStridedBatched_strided_rank #endif #endif end interface @@ -32422,7 +34896,6 @@ function hipblasCgetrsStridedBatched_(handle,trans,n,nrhs,A,lda,strideA,ipiv,str function hipblasZgetrsStridedBatched_(handle,trans,n,nrhs,A,lda,strideA,ipiv,strideP,B,ldb, & strideB,myInfo,batchCount) & bind(c, name="hipblasZgetrsStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZgetrsStridedBatched_ @@ -32445,18 +34918,14 @@ function hipblasZgetrsStridedBatched_(handle,trans,n,nrhs,A,lda,strideA,ipiv,str module procedure hipblasZgetrsStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure & - hipblasZgetrsStridedBatched_assumed_rank,& - hipblasZgetrsStridedBatched_assumed_rank_devptr + module procedure hipblasZgetrsStridedBatched_assumed_rank #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZgetrsStridedBatched_rank_0,& - hipblasZgetrsStridedBatched_rank_0_devptr,& hipblasZgetrsStridedBatched_rank_1,& - hipblasZgetrsStridedBatched_rank_1_devptr,& hipblasZgetrsStridedBatched_full_rank,& - hipblasZgetrsStridedBatched_full_rank_devptr + hipblasZgetrsStridedBatched_strided_rank #endif #endif end interface @@ -32464,7 +34933,6 @@ function hipblasZgetrsStridedBatched_(handle,trans,n,nrhs,A,lda,strideA,ipiv,str interface hipblasSgetriBatched function hipblasSgetriBatched_(handle,n,A,lda,ipiv,C,ldc,myInfo,batchCount) & bind(c, name="hipblasSgetriBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasSgetriBatched_ @@ -32478,12 +34946,21 @@ function hipblasSgetriBatched_(handle,n,A,lda,ipiv,C,ldc,myInfo,batchCount) & type(c_ptr),value :: myInfo integer(c_int),value :: batchCount end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSgetriBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSgetriBatched_rank_0,& + hipblasSgetriBatched_rank_1 +#endif +#endif end interface interface hipblasDgetriBatched function hipblasDgetriBatched_(handle,n,A,lda,ipiv,C,ldc,myInfo,batchCount) & bind(c, name="hipblasDgetriBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDgetriBatched_ @@ -32497,12 +34974,21 @@ function hipblasDgetriBatched_(handle,n,A,lda,ipiv,C,ldc,myInfo,batchCount) & type(c_ptr),value :: myInfo integer(c_int),value :: batchCount end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDgetriBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDgetriBatched_rank_0,& + hipblasDgetriBatched_rank_1 +#endif +#endif end interface interface hipblasCgetriBatched function hipblasCgetriBatched_(handle,n,A,lda,ipiv,C,ldc,myInfo,batchCount) & bind(c, name="hipblasCgetriBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCgetriBatched_ @@ -32516,12 +35002,21 @@ function hipblasCgetriBatched_(handle,n,A,lda,ipiv,C,ldc,myInfo,batchCount) & type(c_ptr),value :: myInfo integer(c_int),value :: batchCount end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCgetriBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCgetriBatched_rank_0,& + hipblasCgetriBatched_rank_1 +#endif +#endif end interface interface hipblasZgetriBatched function hipblasZgetriBatched_(handle,n,A,lda,ipiv,C,ldc,myInfo,batchCount) & bind(c, name="hipblasZgetriBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZgetriBatched_ @@ -32535,12 +35030,21 @@ function hipblasZgetriBatched_(handle,n,A,lda,ipiv,C,ldc,myInfo,batchCount) & type(c_ptr),value :: myInfo integer(c_int),value :: batchCount end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZgetriBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZgetriBatched_rank_0,& + hipblasZgetriBatched_rank_1 +#endif +#endif end interface interface hipblasSgels function hipblasSgels_(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo) & bind(c, name="hipblasSgels") - use iso_c_binding import implicit none integer(c_int) :: hipblasSgels_ @@ -32558,12 +35062,27 @@ function hipblasSgels_(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo) & end function module procedure hipblasSgels_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasSgels_assumed_rank,& + hipblasSgels_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSgels_rank_0,& + hipblasSgels_rank_0_devptr,& + hipblasSgels_rank_1,& + hipblasSgels_rank_1_devptr,& + hipblasSgels_full_rank,& + hipblasSgels_full_rank_devptr +#endif +#endif end interface interface hipblasDgels function hipblasDgels_(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo) & bind(c, name="hipblasDgels") - use iso_c_binding import implicit none integer(c_int) :: hipblasDgels_ @@ -32581,12 +35100,27 @@ function hipblasDgels_(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo) & end function module procedure hipblasDgels_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasDgels_assumed_rank,& + hipblasDgels_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDgels_rank_0,& + hipblasDgels_rank_0_devptr,& + hipblasDgels_rank_1,& + hipblasDgels_rank_1_devptr,& + hipblasDgels_full_rank,& + hipblasDgels_full_rank_devptr +#endif +#endif end interface interface hipblasCgels function hipblasCgels_(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo) & bind(c, name="hipblasCgels") - use iso_c_binding import implicit none integer(c_int) :: hipblasCgels_ @@ -32604,12 +35138,27 @@ function hipblasCgels_(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo) & end function module procedure hipblasCgels_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasCgels_assumed_rank,& + hipblasCgels_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCgels_rank_0,& + hipblasCgels_rank_0_devptr,& + hipblasCgels_rank_1,& + hipblasCgels_rank_1_devptr,& + hipblasCgels_full_rank,& + hipblasCgels_full_rank_devptr +#endif +#endif end interface interface hipblasZgels function hipblasZgels_(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo) & bind(c, name="hipblasZgels") - use iso_c_binding import implicit none integer(c_int) :: hipblasZgels_ @@ -32627,12 +35176,27 @@ function hipblasZgels_(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo) & end function module procedure hipblasZgels_typed + +#ifdef USE_ASSUMED_RANK + module procedure & + hipblasZgels_assumed_rank,& + hipblasZgels_assumed_rank_devptr +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZgels_rank_0,& + hipblasZgels_rank_0_devptr,& + hipblasZgels_rank_1,& + hipblasZgels_rank_1_devptr,& + hipblasZgels_full_rank,& + hipblasZgels_full_rank_devptr +#endif +#endif end interface interface hipblasSgelsBatched function hipblasSgelsBatched_(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo,batchCount) & bind(c, name="hipblasSgelsBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasSgelsBatched_ @@ -32651,12 +35215,21 @@ function hipblasSgelsBatched_(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInf end function module procedure hipblasSgelsBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSgelsBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSgelsBatched_rank_0,& + hipblasSgelsBatched_rank_1 +#endif +#endif end interface interface hipblasDgelsBatched function hipblasDgelsBatched_(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo,batchCount) & bind(c, name="hipblasDgelsBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDgelsBatched_ @@ -32675,12 +35248,21 @@ function hipblasDgelsBatched_(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInf end function module procedure hipblasDgelsBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDgelsBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDgelsBatched_rank_0,& + hipblasDgelsBatched_rank_1 +#endif +#endif end interface interface hipblasCgelsBatched function hipblasCgelsBatched_(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo,batchCount) & bind(c, name="hipblasCgelsBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCgelsBatched_ @@ -32699,12 +35281,21 @@ function hipblasCgelsBatched_(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInf end function module procedure hipblasCgelsBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCgelsBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCgelsBatched_rank_0,& + hipblasCgelsBatched_rank_1 +#endif +#endif end interface interface hipblasZgelsBatched function hipblasZgelsBatched_(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo,batchCount) & bind(c, name="hipblasZgelsBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZgelsBatched_ @@ -32723,13 +35314,22 @@ function hipblasZgelsBatched_(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInf end function module procedure hipblasZgelsBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZgelsBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZgelsBatched_rank_0,& + hipblasZgelsBatched_rank_1 +#endif +#endif end interface interface hipblasSgelsStridedBatched function hipblasSgelsStridedBatched_(handle,trans,m,n,nrhs,A,lda,strideA,B,ldb,strideB,myInfo, & deviceInfo,batchCount) & bind(c, name="hipblasSgelsStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasSgelsStridedBatched_ @@ -32750,13 +35350,24 @@ function hipblasSgelsStridedBatched_(handle,trans,m,n,nrhs,A,lda,strideA,B,ldb,s end function module procedure hipblasSgelsStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasSgelsStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasSgelsStridedBatched_rank_0,& + hipblasSgelsStridedBatched_rank_1,& + hipblasSgelsStridedBatched_full_rank,& + hipblasSgelsStridedBatched_strided_rank +#endif +#endif end interface interface hipblasDgelsStridedBatched function hipblasDgelsStridedBatched_(handle,trans,m,n,nrhs,A,lda,strideA,B,ldb,strideB,myInfo, & deviceInfo,batchCount) & bind(c, name="hipblasDgelsStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDgelsStridedBatched_ @@ -32777,13 +35388,24 @@ function hipblasDgelsStridedBatched_(handle,trans,m,n,nrhs,A,lda,strideA,B,ldb,s end function module procedure hipblasDgelsStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasDgelsStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasDgelsStridedBatched_rank_0,& + hipblasDgelsStridedBatched_rank_1,& + hipblasDgelsStridedBatched_full_rank,& + hipblasDgelsStridedBatched_strided_rank +#endif +#endif end interface interface hipblasCgelsStridedBatched function hipblasCgelsStridedBatched_(handle,trans,m,n,nrhs,A,lda,strideA,B,ldb,strideB,myInfo, & deviceInfo,batchCount) & bind(c, name="hipblasCgelsStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCgelsStridedBatched_ @@ -32804,13 +35426,24 @@ function hipblasCgelsStridedBatched_(handle,trans,m,n,nrhs,A,lda,strideA,B,ldb,s end function module procedure hipblasCgelsStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasCgelsStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasCgelsStridedBatched_rank_0,& + hipblasCgelsStridedBatched_rank_1,& + hipblasCgelsStridedBatched_full_rank,& + hipblasCgelsStridedBatched_strided_rank +#endif +#endif end interface interface hipblasZgelsStridedBatched function hipblasZgelsStridedBatched_(handle,trans,m,n,nrhs,A,lda,strideA,B,ldb,strideB,myInfo, & deviceInfo,batchCount) & bind(c, name="hipblasZgelsStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZgelsStridedBatched_ @@ -32831,11 +35464,22 @@ function hipblasZgelsStridedBatched_(handle,trans,m,n,nrhs,A,lda,strideA,B,ldb,s end function module procedure hipblasZgelsStridedBatched_typed + +#ifdef USE_ASSUMED_RANK + module procedure hipblasZgelsStridedBatched_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasZgelsStridedBatched_rank_0,& + hipblasZgelsStridedBatched_rank_1,& + hipblasZgelsStridedBatched_full_rank,& + hipblasZgelsStridedBatched_strided_rank +#endif +#endif end interface interface hipblasSgeqrf function hipblasSgeqrf_(handle,m,n,A,lda,ipiv,myInfo) bind(c, name="hipblasSgeqrf") - use iso_c_binding import implicit none integer(c_int) :: hipblasSgeqrf_ @@ -32851,25 +35495,19 @@ function hipblasSgeqrf_(handle,m,n,A,lda,ipiv,myInfo) bind(c, name="hipblasSgeqr module procedure hipblasSgeqrf_typed #ifdef USE_ASSUMED_RANK - module procedure & - hipblasSgeqrf_assumed_rank,& - hipblasSgeqrf_assumed_rank_devptr + module procedure hipblasSgeqrf_assumed_rank #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSgeqrf_rank_0,& - hipblasSgeqrf_rank_0_devptr,& hipblasSgeqrf_rank_1,& - hipblasSgeqrf_rank_1_devptr,& - hipblasSgeqrf_full_rank,& - hipblasSgeqrf_full_rank_devptr + hipblasSgeqrf_full_rank #endif #endif end interface interface hipblasDgeqrf function hipblasDgeqrf_(handle,m,n,A,lda,ipiv,myInfo) bind(c, name="hipblasDgeqrf") - use iso_c_binding import implicit none integer(c_int) :: hipblasDgeqrf_ @@ -32885,25 +35523,19 @@ function hipblasDgeqrf_(handle,m,n,A,lda,ipiv,myInfo) bind(c, name="hipblasDgeqr module procedure hipblasDgeqrf_typed #ifdef USE_ASSUMED_RANK - module procedure & - hipblasDgeqrf_assumed_rank,& - hipblasDgeqrf_assumed_rank_devptr + module procedure hipblasDgeqrf_assumed_rank #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDgeqrf_rank_0,& - hipblasDgeqrf_rank_0_devptr,& hipblasDgeqrf_rank_1,& - hipblasDgeqrf_rank_1_devptr,& - hipblasDgeqrf_full_rank,& - hipblasDgeqrf_full_rank_devptr + hipblasDgeqrf_full_rank #endif #endif end interface interface hipblasCgeqrf function hipblasCgeqrf_(handle,m,n,A,lda,ipiv,myInfo) bind(c, name="hipblasCgeqrf") - use iso_c_binding import implicit none integer(c_int) :: hipblasCgeqrf_ @@ -32919,25 +35551,19 @@ function hipblasCgeqrf_(handle,m,n,A,lda,ipiv,myInfo) bind(c, name="hipblasCgeqr module procedure hipblasCgeqrf_typed #ifdef USE_ASSUMED_RANK - module procedure & - hipblasCgeqrf_assumed_rank,& - hipblasCgeqrf_assumed_rank_devptr + module procedure hipblasCgeqrf_assumed_rank #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCgeqrf_rank_0,& - hipblasCgeqrf_rank_0_devptr,& hipblasCgeqrf_rank_1,& - hipblasCgeqrf_rank_1_devptr,& - hipblasCgeqrf_full_rank,& - hipblasCgeqrf_full_rank_devptr + hipblasCgeqrf_full_rank #endif #endif end interface interface hipblasZgeqrf function hipblasZgeqrf_(handle,m,n,A,lda,ipiv,myInfo) bind(c, name="hipblasZgeqrf") - use iso_c_binding import implicit none integer(c_int) :: hipblasZgeqrf_ @@ -32953,18 +35579,13 @@ function hipblasZgeqrf_(handle,m,n,A,lda,ipiv,myInfo) bind(c, name="hipblasZgeqr module procedure hipblasZgeqrf_typed #ifdef USE_ASSUMED_RANK - module procedure & - hipblasZgeqrf_assumed_rank,& - hipblasZgeqrf_assumed_rank_devptr + module procedure hipblasZgeqrf_assumed_rank #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZgeqrf_rank_0,& - hipblasZgeqrf_rank_0_devptr,& hipblasZgeqrf_rank_1,& - hipblasZgeqrf_rank_1_devptr,& - hipblasZgeqrf_full_rank,& - hipblasZgeqrf_full_rank_devptr + hipblasZgeqrf_full_rank #endif #endif end interface @@ -32972,7 +35593,6 @@ function hipblasZgeqrf_(handle,m,n,A,lda,ipiv,myInfo) bind(c, name="hipblasZgeqr interface hipblasSgeqrfBatched function hipblasSgeqrfBatched_(handle,m,n,A,lda,ipiv,myInfo,batchCount) & bind(c, name="hipblasSgeqrfBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasSgeqrfBatched_ @@ -32992,7 +35612,6 @@ function hipblasSgeqrfBatched_(handle,m,n,A,lda,ipiv,myInfo,batchCount) & interface hipblasDgeqrfBatched function hipblasDgeqrfBatched_(handle,m,n,A,lda,ipiv,myInfo,batchCount) & bind(c, name="hipblasDgeqrfBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDgeqrfBatched_ @@ -33012,7 +35631,6 @@ function hipblasDgeqrfBatched_(handle,m,n,A,lda,ipiv,myInfo,batchCount) & interface hipblasCgeqrfBatched function hipblasCgeqrfBatched_(handle,m,n,A,lda,ipiv,myInfo,batchCount) & bind(c, name="hipblasCgeqrfBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCgeqrfBatched_ @@ -33032,7 +35650,6 @@ function hipblasCgeqrfBatched_(handle,m,n,A,lda,ipiv,myInfo,batchCount) & interface hipblasZgeqrfBatched function hipblasZgeqrfBatched_(handle,m,n,A,lda,ipiv,myInfo,batchCount) & bind(c, name="hipblasZgeqrfBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZgeqrfBatched_ @@ -33052,7 +35669,6 @@ function hipblasZgeqrfBatched_(handle,m,n,A,lda,ipiv,myInfo,batchCount) & interface hipblasSgeqrfStridedBatched function hipblasSgeqrfStridedBatched_(handle,m,n,A,lda,strideA,ipiv,strideP,myInfo,batchCount) & bind(c, name="hipblasSgeqrfStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasSgeqrfStridedBatched_ @@ -33071,18 +35687,14 @@ function hipblasSgeqrfStridedBatched_(handle,m,n,A,lda,strideA,ipiv,strideP,myIn module procedure hipblasSgeqrfStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure & - hipblasSgeqrfStridedBatched_assumed_rank,& - hipblasSgeqrfStridedBatched_assumed_rank_devptr + module procedure hipblasSgeqrfStridedBatched_assumed_rank #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSgeqrfStridedBatched_rank_0,& - hipblasSgeqrfStridedBatched_rank_0_devptr,& hipblasSgeqrfStridedBatched_rank_1,& - hipblasSgeqrfStridedBatched_rank_1_devptr,& hipblasSgeqrfStridedBatched_full_rank,& - hipblasSgeqrfStridedBatched_full_rank_devptr + hipblasSgeqrfStridedBatched_strided_rank #endif #endif end interface @@ -33090,7 +35702,6 @@ function hipblasSgeqrfStridedBatched_(handle,m,n,A,lda,strideA,ipiv,strideP,myIn interface hipblasDgeqrfStridedBatched function hipblasDgeqrfStridedBatched_(handle,m,n,A,lda,strideA,ipiv,strideP,myInfo,batchCount) & bind(c, name="hipblasDgeqrfStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasDgeqrfStridedBatched_ @@ -33109,18 +35720,14 @@ function hipblasDgeqrfStridedBatched_(handle,m,n,A,lda,strideA,ipiv,strideP,myIn module procedure hipblasDgeqrfStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure & - hipblasDgeqrfStridedBatched_assumed_rank,& - hipblasDgeqrfStridedBatched_assumed_rank_devptr + module procedure hipblasDgeqrfStridedBatched_assumed_rank #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDgeqrfStridedBatched_rank_0,& - hipblasDgeqrfStridedBatched_rank_0_devptr,& hipblasDgeqrfStridedBatched_rank_1,& - hipblasDgeqrfStridedBatched_rank_1_devptr,& hipblasDgeqrfStridedBatched_full_rank,& - hipblasDgeqrfStridedBatched_full_rank_devptr + hipblasDgeqrfStridedBatched_strided_rank #endif #endif end interface @@ -33128,7 +35735,6 @@ function hipblasDgeqrfStridedBatched_(handle,m,n,A,lda,strideA,ipiv,strideP,myIn interface hipblasCgeqrfStridedBatched function hipblasCgeqrfStridedBatched_(handle,m,n,A,lda,strideA,ipiv,strideP,myInfo,batchCount) & bind(c, name="hipblasCgeqrfStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasCgeqrfStridedBatched_ @@ -33147,18 +35753,14 @@ function hipblasCgeqrfStridedBatched_(handle,m,n,A,lda,strideA,ipiv,strideP,myIn module procedure hipblasCgeqrfStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure & - hipblasCgeqrfStridedBatched_assumed_rank,& - hipblasCgeqrfStridedBatched_assumed_rank_devptr + module procedure hipblasCgeqrfStridedBatched_assumed_rank #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCgeqrfStridedBatched_rank_0,& - hipblasCgeqrfStridedBatched_rank_0_devptr,& hipblasCgeqrfStridedBatched_rank_1,& - hipblasCgeqrfStridedBatched_rank_1_devptr,& hipblasCgeqrfStridedBatched_full_rank,& - hipblasCgeqrfStridedBatched_full_rank_devptr + hipblasCgeqrfStridedBatched_strided_rank #endif #endif end interface @@ -33166,7 +35768,6 @@ function hipblasCgeqrfStridedBatched_(handle,m,n,A,lda,strideA,ipiv,strideP,myIn interface hipblasZgeqrfStridedBatched function hipblasZgeqrfStridedBatched_(handle,m,n,A,lda,strideA,ipiv,strideP,myInfo,batchCount) & bind(c, name="hipblasZgeqrfStridedBatched") - use iso_c_binding import implicit none integer(c_int) :: hipblasZgeqrfStridedBatched_ @@ -33185,18 +35786,14 @@ function hipblasZgeqrfStridedBatched_(handle,m,n,A,lda,strideA,ipiv,strideP,myIn module procedure hipblasZgeqrfStridedBatched_typed #ifdef USE_ASSUMED_RANK - module procedure & - hipblasZgeqrfStridedBatched_assumed_rank,& - hipblasZgeqrfStridedBatched_assumed_rank_devptr + module procedure hipblasZgeqrfStridedBatched_assumed_rank #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZgeqrfStridedBatched_rank_0,& - hipblasZgeqrfStridedBatched_rank_0_devptr,& hipblasZgeqrfStridedBatched_rank_1,& - hipblasZgeqrfStridedBatched_rank_1_devptr,& hipblasZgeqrfStridedBatched_full_rank,& - hipblasZgeqrfStridedBatched_full_rank_devptr + hipblasZgeqrfStridedBatched_strided_rank #endif #endif end interface @@ -33205,7 +35802,6 @@ function hipblasZgeqrfStridedBatched_(handle,m,n,A,lda,strideA,ipiv,strideP,myIn function hipblasGemmEx_(handle,transA,transB,m,n,k,alpha,A,aType,lda,B,bType,ldb,beta,C,cType, & ldc,computeType,algo) & bind(c, name="hipblasGemmEx") - use iso_c_binding import implicit none integer(c_int) :: hipblasGemmEx_ @@ -33235,7 +35831,6 @@ function hipblasGemmEx_(handle,transA,transB,m,n,k,alpha,A,aType,lda,B,bType,ldb function hipblasGemmExWithFlags_(handle,transA,transB,m,n,k,alpha,A,aType,lda,B,bType,ldb, & beta,C,cType,ldc,computeType,algo,flags) & bind(c, name="hipblasGemmExWithFlags") - use iso_c_binding import implicit none integer(c_int) :: hipblasGemmExWithFlags_ @@ -33266,7 +35861,6 @@ function hipblasGemmExWithFlags_(handle,transA,transB,m,n,k,alpha,A,aType,lda,B, function hipblasGemmEx_64_(handle,transA,transB,m,n,k,alpha,A,aType,lda,B,bType,ldb,beta,C, & cType,ldc,computeType,algo) & bind(c, name="hipblasGemmEx_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasGemmEx_64_ @@ -33296,7 +35890,6 @@ function hipblasGemmEx_64_(handle,transA,transB,m,n,k,alpha,A,aType,lda,B,bType, function hipblasGemmExWithFlags_64_(handle,transA,transB,m,n,k,alpha,A,aType,lda,B,bType,ldb, & beta,C,cType,ldc,computeType,algo,flags) & bind(c, name="hipblasGemmExWithFlags_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasGemmExWithFlags_64_ @@ -33327,7 +35920,6 @@ function hipblasGemmExWithFlags_64_(handle,transA,transB,m,n,k,alpha,A,aType,lda function hipblasGemmBatchedEx_(handle,transA,transB,m,n,k,alpha,A,aType,lda,B,bType,ldb,beta, & C,cType,ldc,batchCount,computeType,algo) & bind(c, name="hipblasGemmBatchedEx") - use iso_c_binding import implicit none integer(c_int) :: hipblasGemmBatchedEx_ @@ -33358,7 +35950,6 @@ function hipblasGemmBatchedEx_(handle,transA,transB,m,n,k,alpha,A,aType,lda,B,bT function hipblasGemmBatchedExWithFlags_(handle,transA,transB,m,n,k,alpha,A,aType,lda,B,bType, & ldb,beta,C,cType,ldc,batchCount,computeType,algo,flags) & bind(c, name="hipblasGemmBatchedExWithFlags") - use iso_c_binding import implicit none integer(c_int) :: hipblasGemmBatchedExWithFlags_ @@ -33390,7 +35981,6 @@ function hipblasGemmBatchedExWithFlags_(handle,transA,transB,m,n,k,alpha,A,aType function hipblasGemmBatchedEx_64_(handle,transA,transB,m,n,k,alpha,A,aType,lda,B,bType,ldb, & beta,C,cType,ldc,batchCount,computeType,algo) & bind(c, name="hipblasGemmBatchedEx_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasGemmBatchedEx_64_ @@ -33421,7 +36011,6 @@ function hipblasGemmBatchedEx_64_(handle,transA,transB,m,n,k,alpha,A,aType,lda,B function hipblasGemmBatchedExWithFlags_64_(handle,transA,transB,m,n,k,alpha,A,aType,lda,B, & bType,ldb,beta,C,cType,ldc,batchCount,computeType,algo,flags) & bind(c, name="hipblasGemmBatchedExWithFlags_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasGemmBatchedExWithFlags_64_ @@ -33454,7 +36043,6 @@ function hipblasGemmGroupedBatchedEx_(handle,transA_array,transB_array,m_array,n k_array,alpha_array,Aarray,aType,lda_array,Barray,bType,ldb_array,beta_array,Carray,cType, & ldc_array,Darray,dType,ldd_array,group_count,group_size,computeType,algo) & bind(c, name="hipblasGemmGroupedBatchedEx") - use iso_c_binding import implicit none integer(c_int) :: hipblasGemmGroupedBatchedEx_ @@ -33483,6 +36071,16 @@ function hipblasGemmGroupedBatchedEx_(handle,transA_array,transB_array,m_array,n integer(c_int),value :: computeType integer(c_int),value :: algo end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasGemmGroupedBatchedEx_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasGemmGroupedBatchedEx_rank_0,& + hipblasGemmGroupedBatchedEx_rank_1 +#endif +#endif end interface interface hipblasGemmGroupedBatchedExWithFlags @@ -33491,7 +36089,6 @@ function hipblasGemmGroupedBatchedExWithFlags_(handle,transA_array,transB_array, Carray,cType,ldc_array,Darray,dType,ldd_array,group_count,group_size,computeType,algo, & flags) & bind(c, name="hipblasGemmGroupedBatchedExWithFlags") - use iso_c_binding import implicit none integer(c_int) :: hipblasGemmGroupedBatchedExWithFlags_ @@ -33521,6 +36118,16 @@ function hipblasGemmGroupedBatchedExWithFlags_(handle,transA_array,transB_array, integer(c_int),value :: algo integer(c_int),value :: flags end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasGemmGroupedBatchedExWithFlags_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasGemmGroupedBatchedExWithFlags_rank_0,& + hipblasGemmGroupedBatchedExWithFlags_rank_1 +#endif +#endif end interface interface hipblasGemmGroupedBatchedEx_64 @@ -33528,7 +36135,6 @@ function hipblasGemmGroupedBatchedEx_64_(handle,transA_array,transB_array,m_arra k_array,alpha_array,Aarray,aType,lda_array,Barray,bType,ldb_array,beta_array,Carray,cType, & ldc_array,Darray,dType,ldd_array,group_count,group_size,computeType,algo) & bind(c, name="hipblasGemmGroupedBatchedEx_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasGemmGroupedBatchedEx_64_ @@ -33557,6 +36163,16 @@ function hipblasGemmGroupedBatchedEx_64_(handle,transA_array,transB_array,m_arra integer(c_int),value :: computeType integer(c_int),value :: algo end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasGemmGroupedBatchedEx_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasGemmGroupedBatchedEx_64_rank_0,& + hipblasGemmGroupedBatchedEx_64_rank_1 +#endif +#endif end interface interface hipblasGemmGroupedBatchedExWithFlags_64 @@ -33565,7 +36181,6 @@ function hipblasGemmGroupedBatchedExWithFlags_64_(handle,transA_array,transB_arr Carray,cType,ldc_array,Darray,dType,ldd_array,group_count,group_size,computeType,algo, & flags) & bind(c, name="hipblasGemmGroupedBatchedExWithFlags_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasGemmGroupedBatchedExWithFlags_64_ @@ -33595,13 +36210,22 @@ function hipblasGemmGroupedBatchedExWithFlags_64_(handle,transA_array,transB_arr integer(c_int),value :: algo integer(c_int),value :: flags end function + +#ifdef USE_ASSUMED_RANK + module procedure hipblasGemmGroupedBatchedExWithFlags_64_assumed_rank +#else +#ifdef USE_ASSUMED_SHAPE + module procedure & + hipblasGemmGroupedBatchedExWithFlags_64_rank_0,& + hipblasGemmGroupedBatchedExWithFlags_64_rank_1 +#endif +#endif end interface interface hipblasGemmStridedBatchedEx function hipblasGemmStridedBatchedEx_(handle,transA,transB,m,n,k,alpha,A,aType,lda,strideA,B, & bType,ldb,strideB,beta,C,cType,ldc,strideC,batchCount,computeType,algo) & bind(c, name="hipblasGemmStridedBatchedEx") - use iso_c_binding import implicit none integer(c_int) :: hipblasGemmStridedBatchedEx_ @@ -33635,7 +36259,6 @@ function hipblasGemmStridedBatchedEx_(handle,transA,transB,m,n,k,alpha,A,aType,l function hipblasGemmStridedBatchedExWithFlags_(handle,transA,transB,m,n,k,alpha,A,aType,lda, & strideA,B,bType,ldb,strideB,beta,C,cType,ldc,strideC,batchCount,computeType,algo,flags) & bind(c, name="hipblasGemmStridedBatchedExWithFlags") - use iso_c_binding import implicit none integer(c_int) :: hipblasGemmStridedBatchedExWithFlags_ @@ -33670,7 +36293,6 @@ function hipblasGemmStridedBatchedExWithFlags_(handle,transA,transB,m,n,k,alpha, function hipblasGemmStridedBatchedEx_64_(handle,transA,transB,m,n,k,alpha,A,aType,lda,strideA, & B,bType,ldb,strideB,beta,C,cType,ldc,strideC,batchCount,computeType,algo) & bind(c, name="hipblasGemmStridedBatchedEx_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasGemmStridedBatchedEx_64_ @@ -33705,7 +36327,6 @@ function hipblasGemmStridedBatchedExWithFlags_64_(handle,transA,transB,m,n,k,alp lda,strideA,B,bType,ldb,strideB,beta,C,cType,ldc,strideC,batchCount,computeType,algo, & flags) & bind(c, name="hipblasGemmStridedBatchedExWithFlags_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasGemmStridedBatchedExWithFlags_64_ @@ -33739,7 +36360,6 @@ function hipblasGemmStridedBatchedExWithFlags_64_(handle,transA,transB,m,n,k,alp interface hipblasSyrkEx function hipblasSyrkEx_(handle,uplo,transA,n,k,alpha,A,aType,lda,beta,C,cType,ldc,computeType) & bind(c, name="hipblasSyrkEx") - use iso_c_binding import implicit none integer(c_int) :: hipblasSyrkEx_ @@ -33764,7 +36384,6 @@ function hipblasSyrkEx_(handle,uplo,transA,n,k,alpha,A,aType,lda,beta,C,cType,ld function hipblasTrsmEx_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,invA,invAsize, & computeType) & bind(c, name="hipblasTrsmEx") - use iso_c_binding import implicit none integer(c_int) :: hipblasTrsmEx_ @@ -33789,7 +36408,6 @@ function hipblasTrsmEx_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,invA, interface hipblasHerkEx function hipblasHerkEx_(handle,uplo,transA,n,k,alpha,A,aType,lda,beta,C,cType,ldc,computeType) & bind(c, name="hipblasHerkEx") - use iso_c_binding import implicit none integer(c_int) :: hipblasHerkEx_ @@ -33814,7 +36432,6 @@ function hipblasHerkEx_(handle,uplo,transA,n,k,alpha,A,aType,lda,beta,C,cType,ld function hipblasTrsmBatchedEx_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,batchCount, & invA,invAsize,computeType) & bind(c, name="hipblasTrsmBatchedEx") - use iso_c_binding import implicit none integer(c_int) :: hipblasTrsmBatchedEx_ @@ -33841,7 +36458,6 @@ function hipblasTrsmBatchedEx_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ld function hipblasTrsmStridedBatchedEx_(handle,side,uplo,transA,diag,m,n,alpha,A,lda,strideA,B, & ldb,strideB,batchCount,invA,invAsize,strideInvA,computeType) & bind(c, name="hipblasTrsmStridedBatchedEx") - use iso_c_binding import implicit none integer(c_int) :: hipblasTrsmStridedBatchedEx_ @@ -33870,7 +36486,6 @@ function hipblasTrsmStridedBatchedEx_(handle,side,uplo,transA,diag,m,n,alpha,A,l interface hipblasAxpyEx function hipblasAxpyEx_(handle,n,alpha,alphaType,x,xType,incx,y,yType,incy,executionType) & bind(c, name="hipblasAxpyEx") - use iso_c_binding import implicit none integer(c_int) :: hipblasAxpyEx_ @@ -33891,7 +36506,6 @@ function hipblasAxpyEx_(handle,n,alpha,alphaType,x,xType,incx,y,yType,incy,execu interface hipblasAxpyEx_64 function hipblasAxpyEx_64_(handle,n,alpha,alphaType,x,xType,incx,y,yType,incy,executionType) & bind(c, name="hipblasAxpyEx_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasAxpyEx_64_ @@ -33913,7 +36527,6 @@ function hipblasAxpyEx_64_(handle,n,alpha,alphaType,x,xType,incx,y,yType,incy,ex function hipblasAxpyBatchedEx_(handle,n,alpha,alphaType,x,xType,incx,y,yType,incy,batchCount, & executionType) & bind(c, name="hipblasAxpyBatchedEx") - use iso_c_binding import implicit none integer(c_int) :: hipblasAxpyBatchedEx_ @@ -33936,7 +36549,6 @@ function hipblasAxpyBatchedEx_(handle,n,alpha,alphaType,x,xType,incx,y,yType,inc function hipblasAxpyBatchedEx_64_(handle,n,alpha,alphaType,x,xType,incx,y,yType,incy, & batchCount,executionType) & bind(c, name="hipblasAxpyBatchedEx_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasAxpyBatchedEx_64_ @@ -33959,7 +36571,6 @@ function hipblasAxpyBatchedEx_64_(handle,n,alpha,alphaType,x,xType,incx,y,yType, function hipblasAxpyStridedBatchedEx_(handle,n,alpha,alphaType,x,xType,incx,stridex,y,yType, & incy,stridey,batchCount,executionType) & bind(c, name="hipblasAxpyStridedBatchedEx") - use iso_c_binding import implicit none integer(c_int) :: hipblasAxpyStridedBatchedEx_ @@ -33984,7 +36595,6 @@ function hipblasAxpyStridedBatchedEx_(handle,n,alpha,alphaType,x,xType,incx,stri function hipblasAxpyStridedBatchedEx_64_(handle,n,alpha,alphaType,x,xType,incx,stridex,y, & yType,incy,stridey,batchCount,executionType) & bind(c, name="hipblasAxpyStridedBatchedEx_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasAxpyStridedBatchedEx_64_ @@ -34008,7 +36618,6 @@ function hipblasAxpyStridedBatchedEx_64_(handle,n,alpha,alphaType,x,xType,incx,s interface hipblasDotEx function hipblasDotEx_(handle,n,x,xType,incx,y,yType,incy,myResult,resultType,executionType) & bind(c, name="hipblasDotEx") - use iso_c_binding import implicit none integer(c_int) :: hipblasDotEx_ @@ -34029,7 +36638,6 @@ function hipblasDotEx_(handle,n,x,xType,incx,y,yType,incy,myResult,resultType,ex interface hipblasDotcEx function hipblasDotcEx_(handle,n,x,xType,incx,y,yType,incy,myResult,resultType,executionType) & bind(c, name="hipblasDotcEx") - use iso_c_binding import implicit none integer(c_int) :: hipblasDotcEx_ @@ -34051,7 +36659,6 @@ function hipblasDotcEx_(handle,n,x,xType,incx,y,yType,incy,myResult,resultType,e function hipblasDotEx_64_(handle,n,x,xType,incx,y,yType,incy,myResult,resultType, & executionType) & bind(c, name="hipblasDotEx_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDotEx_64_ @@ -34073,7 +36680,6 @@ function hipblasDotEx_64_(handle,n,x,xType,incx,y,yType,incy,myResult,resultType function hipblasDotcEx_64_(handle,n,x,xType,incx,y,yType,incy,myResult,resultType, & executionType) & bind(c, name="hipblasDotcEx_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDotcEx_64_ @@ -34095,7 +36701,6 @@ function hipblasDotcEx_64_(handle,n,x,xType,incx,y,yType,incy,myResult,resultTyp function hipblasDotBatchedEx_(handle,n,x,xType,incx,y,yType,incy,batchCount,myResult, & resultType,executionType) & bind(c, name="hipblasDotBatchedEx") - use iso_c_binding import implicit none integer(c_int) :: hipblasDotBatchedEx_ @@ -34118,7 +36723,6 @@ function hipblasDotBatchedEx_(handle,n,x,xType,incx,y,yType,incy,batchCount,myRe function hipblasDotcBatchedEx_(handle,n,x,xType,incx,y,yType,incy,batchCount,myResult, & resultType,executionType) & bind(c, name="hipblasDotcBatchedEx") - use iso_c_binding import implicit none integer(c_int) :: hipblasDotcBatchedEx_ @@ -34141,7 +36745,6 @@ function hipblasDotcBatchedEx_(handle,n,x,xType,incx,y,yType,incy,batchCount,myR function hipblasDotBatchedEx_64_(handle,n,x,xType,incx,y,yType,incy,batchCount,myResult, & resultType,executionType) & bind(c, name="hipblasDotBatchedEx_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDotBatchedEx_64_ @@ -34164,7 +36767,6 @@ function hipblasDotBatchedEx_64_(handle,n,x,xType,incx,y,yType,incy,batchCount,m function hipblasDotcBatchedEx_64_(handle,n,x,xType,incx,y,yType,incy,batchCount,myResult, & resultType,executionType) & bind(c, name="hipblasDotcBatchedEx_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDotcBatchedEx_64_ @@ -34187,7 +36789,6 @@ function hipblasDotcBatchedEx_64_(handle,n,x,xType,incx,y,yType,incy,batchCount, function hipblasDotStridedBatchedEx_(handle,n,x,xType,incx,stridex,y,yType,incy,stridey, & batchCount,myResult,resultType,executionType) & bind(c, name="hipblasDotStridedBatchedEx") - use iso_c_binding import implicit none integer(c_int) :: hipblasDotStridedBatchedEx_ @@ -34212,7 +36813,6 @@ function hipblasDotStridedBatchedEx_(handle,n,x,xType,incx,stridex,y,yType,incy, function hipblasDotcStridedBatchedEx_(handle,n,x,xType,incx,stridex,y,yType,incy,stridey, & batchCount,myResult,resultType,executionType) & bind(c, name="hipblasDotcStridedBatchedEx") - use iso_c_binding import implicit none integer(c_int) :: hipblasDotcStridedBatchedEx_ @@ -34237,7 +36837,6 @@ function hipblasDotcStridedBatchedEx_(handle,n,x,xType,incx,stridex,y,yType,incy function hipblasDotStridedBatchedEx_64_(handle,n,x,xType,incx,stridex,y,yType,incy,stridey, & batchCount,myResult,resultType,executionType) & bind(c, name="hipblasDotStridedBatchedEx_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDotStridedBatchedEx_64_ @@ -34262,7 +36861,6 @@ function hipblasDotStridedBatchedEx_64_(handle,n,x,xType,incx,stridex,y,yType,in function hipblasDotcStridedBatchedEx_64_(handle,n,x,xType,incx,stridex,y,yType,incy,stridey, & batchCount,myResult,resultType,executionType) & bind(c, name="hipblasDotcStridedBatchedEx_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasDotcStridedBatchedEx_64_ @@ -34286,7 +36884,6 @@ function hipblasDotcStridedBatchedEx_64_(handle,n,x,xType,incx,stridex,y,yType,i interface hipblasNrm2Ex function hipblasNrm2Ex_(handle,n,x,xType,incx,myResult,resultType,executionType) & bind(c, name="hipblasNrm2Ex") - use iso_c_binding import implicit none integer(c_int) :: hipblasNrm2Ex_ @@ -34304,7 +36901,6 @@ function hipblasNrm2Ex_(handle,n,x,xType,incx,myResult,resultType,executionType) interface hipblasNrm2Ex_64 function hipblasNrm2Ex_64_(handle,n,x,xType,incx,myResult,resultType,executionType) & bind(c, name="hipblasNrm2Ex_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasNrm2Ex_64_ @@ -34323,7 +36919,6 @@ function hipblasNrm2Ex_64_(handle,n,x,xType,incx,myResult,resultType,executionTy function hipblasNrm2BatchedEx_(handle,n,x,xType,incx,batchCount,myResult,resultType, & executionType) & bind(c, name="hipblasNrm2BatchedEx") - use iso_c_binding import implicit none integer(c_int) :: hipblasNrm2BatchedEx_ @@ -34343,7 +36938,6 @@ function hipblasNrm2BatchedEx_(handle,n,x,xType,incx,batchCount,myResult,resultT function hipblasNrm2BatchedEx_64_(handle,n,x,xType,incx,batchCount,myResult,resultType, & executionType) & bind(c, name="hipblasNrm2BatchedEx_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasNrm2BatchedEx_64_ @@ -34363,7 +36957,6 @@ function hipblasNrm2BatchedEx_64_(handle,n,x,xType,incx,batchCount,myResult,resu function hipblasNrm2StridedBatchedEx_(handle,n,x,xType,incx,stridex,batchCount,myResult, & resultType,executionType) & bind(c, name="hipblasNrm2StridedBatchedEx") - use iso_c_binding import implicit none integer(c_int) :: hipblasNrm2StridedBatchedEx_ @@ -34384,7 +36977,6 @@ function hipblasNrm2StridedBatchedEx_(handle,n,x,xType,incx,stridex,batchCount,m function hipblasNrm2StridedBatchedEx_64_(handle,n,x,xType,incx,stridex,batchCount,myResult, & resultType,executionType) & bind(c, name="hipblasNrm2StridedBatchedEx_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasNrm2StridedBatchedEx_64_ @@ -34404,7 +36996,6 @@ function hipblasNrm2StridedBatchedEx_64_(handle,n,x,xType,incx,stridex,batchCoun interface hipblasRotEx function hipblasRotEx_(handle,n,x,xType,incx,y,yType,incy,c,s,csType,executionType) & bind(c, name="hipblasRotEx") - use iso_c_binding import implicit none integer(c_int) :: hipblasRotEx_ @@ -34426,7 +37017,6 @@ function hipblasRotEx_(handle,n,x,xType,incx,y,yType,incy,c,s,csType,executionTy interface hipblasRotEx_64 function hipblasRotEx_64_(handle,n,x,xType,incx,y,yType,incy,c,s,csType,executionType) & bind(c, name="hipblasRotEx_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasRotEx_64_ @@ -34449,7 +37039,6 @@ function hipblasRotEx_64_(handle,n,x,xType,incx,y,yType,incy,c,s,csType,executio function hipblasRotBatchedEx_(handle,n,x,xType,incx,y,yType,incy,c,s,csType,batchCount, & executionType) & bind(c, name="hipblasRotBatchedEx") - use iso_c_binding import implicit none integer(c_int) :: hipblasRotBatchedEx_ @@ -34473,7 +37062,6 @@ function hipblasRotBatchedEx_(handle,n,x,xType,incx,y,yType,incy,c,s,csType,batc function hipblasRotBatchedEx_64_(handle,n,x,xType,incx,y,yType,incy,c,s,csType,batchCount, & executionType) & bind(c, name="hipblasRotBatchedEx_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasRotBatchedEx_64_ @@ -34497,7 +37085,6 @@ function hipblasRotBatchedEx_64_(handle,n,x,xType,incx,y,yType,incy,c,s,csType,b function hipblasRotStridedBatchedEx_(handle,n,x,xType,incx,stridex,y,yType,incy,stridey,c,s, & csType,batchCount,executionType) & bind(c, name="hipblasRotStridedBatchedEx") - use iso_c_binding import implicit none integer(c_int) :: hipblasRotStridedBatchedEx_ @@ -34523,7 +37110,6 @@ function hipblasRotStridedBatchedEx_(handle,n,x,xType,incx,stridex,y,yType,incy, function hipblasRotStridedBatchedEx_64_(handle,n,x,xType,incx,stridex,y,yType,incy,stridey,c, & s,csType,batchCount,executionType) & bind(c, name="hipblasRotStridedBatchedEx_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasRotStridedBatchedEx_64_ @@ -34548,7 +37134,6 @@ function hipblasRotStridedBatchedEx_64_(handle,n,x,xType,incx,stridex,y,yType,in interface hipblasScalEx function hipblasScalEx_(handle,n,alpha,alphaType,x,xType,incx,executionType) & bind(c, name="hipblasScalEx") - use iso_c_binding import implicit none integer(c_int) :: hipblasScalEx_ @@ -34566,7 +37151,6 @@ function hipblasScalEx_(handle,n,alpha,alphaType,x,xType,incx,executionType) & interface hipblasScalEx_64 function hipblasScalEx_64_(handle,n,alpha,alphaType,x,xType,incx,executionType) & bind(c, name="hipblasScalEx_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasScalEx_64_ @@ -34584,7 +37168,6 @@ function hipblasScalEx_64_(handle,n,alpha,alphaType,x,xType,incx,executionType) interface hipblasScalBatchedEx function hipblasScalBatchedEx_(handle,n,alpha,alphaType,x,xType,incx,batchCount,executionType) & bind(c, name="hipblasScalBatchedEx") - use iso_c_binding import implicit none integer(c_int) :: hipblasScalBatchedEx_ @@ -34604,7 +37187,6 @@ function hipblasScalBatchedEx_(handle,n,alpha,alphaType,x,xType,incx,batchCount, function hipblasScalBatchedEx_64_(handle,n,alpha,alphaType,x,xType,incx,batchCount, & executionType) & bind(c, name="hipblasScalBatchedEx_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasScalBatchedEx_64_ @@ -34624,7 +37206,6 @@ function hipblasScalBatchedEx_64_(handle,n,alpha,alphaType,x,xType,incx,batchCou function hipblasScalStridedBatchedEx_(handle,n,alpha,alphaType,x,xType,incx,stridex, & batchCount,executionType) & bind(c, name="hipblasScalStridedBatchedEx") - use iso_c_binding import implicit none integer(c_int) :: hipblasScalStridedBatchedEx_ @@ -34645,7 +37226,6 @@ function hipblasScalStridedBatchedEx_(handle,n,alpha,alphaType,x,xType,incx,stri function hipblasScalStridedBatchedEx_64_(handle,n,alpha,alphaType,x,xType,incx,stridex, & batchCount,executionType) & bind(c, name="hipblasScalStridedBatchedEx_64") - use iso_c_binding import implicit none integer(c_int) :: hipblasScalStridedBatchedEx_64_ @@ -34664,7 +37244,6 @@ function hipblasScalStridedBatchedEx_64_(handle,n,alpha,alphaType,x,xType,incx,s interface hipblasStatusToString function hipblasStatusToString_(status) bind(c, name="hipblasStatusToString") - use iso_c_binding import implicit none type(c_ptr) :: hipblasStatusToString_ @@ -34678,8 +37257,9 @@ function hipblasStatusToString_(status) bind(c, name="hipblasStatusToString") subroutine hipblasCheck(status) implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: status - character(len=:), allocatable :: name + character(len=32) :: name if (status /= HIPBLAS_STATUS_SUCCESS) then + name = "unknown status" select case (status) case (HIPBLAS_STATUS_NOT_INITIALIZED) name = "HIPBLAS_STATUS_NOT_INITIALIZED" @@ -34703,15 +37283,12 @@ subroutine hipblasCheck(status) name = "HIPBLAS_STATUS_INVALID_ENUM" case (HIPBLAS_STATUS_UNKNOWN) name = "HIPBLAS_STATUS_UNKNOWN" - case default - name = "unknown status" end select - write (*, "(a,i0,a)") "HIPBLAS ERROR: " // name // " (code ", status, ")" + write (*, "(a,i0,a)") "HIPBLAS ERROR: " // trim(name) // " (code ", status, ")" stop 1 end if end subroutine hipblasCheck function hipblasGetVersion_typed(handle,version) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGetVersion_typed type(c_ptr), value :: handle @@ -34721,7 +37298,6 @@ function hipblasGetVersion_typed(handle,version) end function function hipblasGetProperty_typed(myType,myValue) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGetProperty_typed integer(kind(HIPBLAS_MAJOR_VERSION)) :: myType @@ -34731,7 +37307,6 @@ function hipblasGetProperty_typed(myType,myValue) end function function hipblasGetPointerMode_typed(handle,mode) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGetPointerMode_typed type(c_ptr), value :: handle @@ -34741,7 +37316,6 @@ function hipblasGetPointerMode_typed(handle,mode) end function function hipblasGetMathMode_typed(handle,mode) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGetMathMode_typed type(c_ptr), value :: handle @@ -34751,7 +37325,6 @@ function hipblasGetMathMode_typed(handle,mode) end function function hipblasGetAtomicsMode_typed(handle,atomics_mode) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGetAtomicsMode_typed type(c_ptr), value :: handle @@ -34761,7 +37334,6 @@ function hipblasGetAtomicsMode_typed(handle,atomics_mode) end function function hipblasGetBatchAlphaStride_typed(handle,alpha_stride) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGetBatchAlphaStride_typed type(c_ptr), value :: handle @@ -34771,7 +37343,6 @@ function hipblasGetBatchAlphaStride_typed(handle,alpha_stride) end function function hipblasGetBatchBetaStride_typed(handle,beta_stride) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGetBatchBetaStride_typed type(c_ptr), value :: handle @@ -34781,7 +37352,6 @@ function hipblasGetBatchBetaStride_typed(handle,beta_stride) end function function hipblasIsamax_typed(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamax_typed type(c_ptr), value :: handle @@ -34794,7 +37364,6 @@ function hipblasIsamax_typed(handle,n,x,incx,myResult) end function function hipblasIdamax_typed(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamax_typed type(c_ptr), value :: handle @@ -34807,7 +37376,6 @@ function hipblasIdamax_typed(handle,n,x,incx,myResult) end function function hipblasIcamax_typed(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamax_typed type(c_ptr), value :: handle @@ -34820,7 +37388,6 @@ function hipblasIcamax_typed(handle,n,x,incx,myResult) end function function hipblasIzamax_typed(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamax_typed type(c_ptr), value :: handle @@ -34833,7 +37400,6 @@ function hipblasIzamax_typed(handle,n,x,incx,myResult) end function function hipblasIsamax_64_typed(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamax_64_typed type(c_ptr), value :: handle @@ -34846,7 +37412,6 @@ function hipblasIsamax_64_typed(handle,n,x,incx,myResult) end function function hipblasIdamax_64_typed(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamax_64_typed type(c_ptr), value :: handle @@ -34859,7 +37424,6 @@ function hipblasIdamax_64_typed(handle,n,x,incx,myResult) end function function hipblasIcamax_64_typed(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamax_64_typed type(c_ptr), value :: handle @@ -34872,7 +37436,6 @@ function hipblasIcamax_64_typed(handle,n,x,incx,myResult) end function function hipblasIzamax_64_typed(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamax_64_typed type(c_ptr), value :: handle @@ -34885,7 +37448,6 @@ function hipblasIzamax_64_typed(handle,n,x,incx,myResult) end function function hipblasIsamin_typed(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamin_typed type(c_ptr), value :: handle @@ -34898,7 +37460,6 @@ function hipblasIsamin_typed(handle,n,x,incx,myResult) end function function hipblasIdamin_typed(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamin_typed type(c_ptr), value :: handle @@ -34911,7 +37472,6 @@ function hipblasIdamin_typed(handle,n,x,incx,myResult) end function function hipblasIcamin_typed(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamin_typed type(c_ptr), value :: handle @@ -34924,7 +37484,6 @@ function hipblasIcamin_typed(handle,n,x,incx,myResult) end function function hipblasIzamin_typed(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamin_typed type(c_ptr), value :: handle @@ -34937,7 +37496,6 @@ function hipblasIzamin_typed(handle,n,x,incx,myResult) end function function hipblasIsamin_64_typed(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamin_64_typed type(c_ptr), value :: handle @@ -34950,7 +37508,6 @@ function hipblasIsamin_64_typed(handle,n,x,incx,myResult) end function function hipblasIdamin_64_typed(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamin_64_typed type(c_ptr), value :: handle @@ -34963,7 +37520,6 @@ function hipblasIdamin_64_typed(handle,n,x,incx,myResult) end function function hipblasIcamin_64_typed(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamin_64_typed type(c_ptr), value :: handle @@ -34976,7 +37532,6 @@ function hipblasIcamin_64_typed(handle,n,x,incx,myResult) end function function hipblasIzamin_64_typed(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamin_64_typed type(c_ptr), value :: handle @@ -34989,7 +37544,6 @@ function hipblasIzamin_64_typed(handle,n,x,incx,myResult) end function function hipblasSasum_typed(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasum_typed type(c_ptr), value :: handle @@ -35002,7 +37556,6 @@ function hipblasSasum_typed(handle,n,x,incx,myResult) end function function hipblasDasum_typed(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasum_typed type(c_ptr), value :: handle @@ -35015,7 +37568,6 @@ function hipblasDasum_typed(handle,n,x,incx,myResult) end function function hipblasScasum_typed(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasum_typed type(c_ptr), value :: handle @@ -35028,7 +37580,6 @@ function hipblasScasum_typed(handle,n,x,incx,myResult) end function function hipblasDzasum_typed(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasum_typed type(c_ptr), value :: handle @@ -35041,7 +37592,6 @@ function hipblasDzasum_typed(handle,n,x,incx,myResult) end function function hipblasSasum_64_typed(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasum_64_typed type(c_ptr), value :: handle @@ -35054,7 +37604,6 @@ function hipblasSasum_64_typed(handle,n,x,incx,myResult) end function function hipblasDasum_64_typed(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasum_64_typed type(c_ptr), value :: handle @@ -35067,7 +37616,6 @@ function hipblasDasum_64_typed(handle,n,x,incx,myResult) end function function hipblasScasum_64_typed(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasum_64_typed type(c_ptr), value :: handle @@ -35080,7 +37628,6 @@ function hipblasScasum_64_typed(handle,n,x,incx,myResult) end function function hipblasDzasum_64_typed(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasum_64_typed type(c_ptr), value :: handle @@ -35093,7 +37640,6 @@ function hipblasDzasum_64_typed(handle,n,x,incx,myResult) end function function hipblasSaxpy_typed(handle,n,alpha,x,incx,y,incy) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpy_typed type(c_ptr), value :: handle @@ -35108,7 +37654,6 @@ function hipblasSaxpy_typed(handle,n,alpha,x,incx,y,incy) end function function hipblasDaxpy_typed(handle,n,alpha,x,incx,y,incy) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpy_typed type(c_ptr), value :: handle @@ -35123,7 +37668,6 @@ function hipblasDaxpy_typed(handle,n,alpha,x,incx,y,incy) end function function hipblasCaxpy_typed(handle,n,alpha,x,incx,y,incy) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpy_typed type(c_ptr), value :: handle @@ -35138,7 +37682,6 @@ function hipblasCaxpy_typed(handle,n,alpha,x,incx,y,incy) end function function hipblasZaxpy_typed(handle,n,alpha,x,incx,y,incy) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpy_typed type(c_ptr), value :: handle @@ -35153,7 +37696,6 @@ function hipblasZaxpy_typed(handle,n,alpha,x,incx,y,incy) end function function hipblasSaxpy_64_typed(handle,n,alpha,x,incx,y,incy) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpy_64_typed type(c_ptr), value :: handle @@ -35168,7 +37710,6 @@ function hipblasSaxpy_64_typed(handle,n,alpha,x,incx,y,incy) end function function hipblasDaxpy_64_typed(handle,n,alpha,x,incx,y,incy) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpy_64_typed type(c_ptr), value :: handle @@ -35183,7 +37724,6 @@ function hipblasDaxpy_64_typed(handle,n,alpha,x,incx,y,incy) end function function hipblasCaxpy_64_typed(handle,n,alpha,x,incx,y,incy) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpy_64_typed type(c_ptr), value :: handle @@ -35198,7 +37738,6 @@ function hipblasCaxpy_64_typed(handle,n,alpha,x,incx,y,incy) end function function hipblasZaxpy_64_typed(handle,n,alpha,x,incx,y,incy) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpy_64_typed type(c_ptr), value :: handle @@ -35213,7 +37752,6 @@ function hipblasZaxpy_64_typed(handle,n,alpha,x,incx,y,incy) end function function hipblasSaxpyBatched_typed(handle,n,alpha,x,incx,y,incy,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpyBatched_typed type(c_ptr), value :: handle @@ -35230,7 +37768,6 @@ function hipblasSaxpyBatched_typed(handle,n,alpha,x,incx,y,incy,batchCount) end function function hipblasDaxpyBatched_typed(handle,n,alpha,x,incx,y,incy,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpyBatched_typed type(c_ptr), value :: handle @@ -35247,7 +37784,6 @@ function hipblasDaxpyBatched_typed(handle,n,alpha,x,incx,y,incy,batchCount) end function function hipblasCaxpyBatched_typed(handle,n,alpha,x,incx,y,incy,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpyBatched_typed type(c_ptr), value :: handle @@ -35264,7 +37800,6 @@ function hipblasCaxpyBatched_typed(handle,n,alpha,x,incx,y,incy,batchCount) end function function hipblasZaxpyBatched_typed(handle,n,alpha,x,incx,y,incy,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpyBatched_typed type(c_ptr), value :: handle @@ -35281,7 +37816,6 @@ function hipblasZaxpyBatched_typed(handle,n,alpha,x,incx,y,incy,batchCount) end function function hipblasSaxpyBatched_64_typed(handle,n,alpha,x,incx,y,incy,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpyBatched_64_typed type(c_ptr), value :: handle @@ -35298,7 +37832,6 @@ function hipblasSaxpyBatched_64_typed(handle,n,alpha,x,incx,y,incy,batchCount) end function function hipblasDaxpyBatched_64_typed(handle,n,alpha,x,incx,y,incy,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpyBatched_64_typed type(c_ptr), value :: handle @@ -35315,7 +37848,6 @@ function hipblasDaxpyBatched_64_typed(handle,n,alpha,x,incx,y,incy,batchCount) end function function hipblasCaxpyBatched_64_typed(handle,n,alpha,x,incx,y,incy,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpyBatched_64_typed type(c_ptr), value :: handle @@ -35332,7 +37864,6 @@ function hipblasCaxpyBatched_64_typed(handle,n,alpha,x,incx,y,incy,batchCount) end function function hipblasZaxpyBatched_64_typed(handle,n,alpha,x,incx,y,incy,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpyBatched_64_typed type(c_ptr), value :: handle @@ -35350,7 +37881,6 @@ function hipblasZaxpyBatched_64_typed(handle,n,alpha,x,incx,y,incy,batchCount) function hipblasSaxpyStridedBatched_typed(handle,n,alpha,x,incx,stridex,y,incy,stridey, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpyStridedBatched_typed type(c_ptr), value :: handle @@ -35370,7 +37900,6 @@ function hipblasSaxpyStridedBatched_typed(handle,n,alpha,x,incx,stridex,y,incy,s function hipblasDaxpyStridedBatched_typed(handle,n,alpha,x,incx,stridex,y,incy,stridey, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpyStridedBatched_typed type(c_ptr), value :: handle @@ -35390,7 +37919,6 @@ function hipblasDaxpyStridedBatched_typed(handle,n,alpha,x,incx,stridex,y,incy,s function hipblasCaxpyStridedBatched_typed(handle,n,alpha,x,incx,stridex,y,incy,stridey, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpyStridedBatched_typed type(c_ptr), value :: handle @@ -35410,7 +37938,6 @@ function hipblasCaxpyStridedBatched_typed(handle,n,alpha,x,incx,stridex,y,incy,s function hipblasZaxpyStridedBatched_typed(handle,n,alpha,x,incx,stridex,y,incy,stridey, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpyStridedBatched_typed type(c_ptr), value :: handle @@ -35430,7 +37957,6 @@ function hipblasZaxpyStridedBatched_typed(handle,n,alpha,x,incx,stridex,y,incy,s function hipblasSaxpyStridedBatched_64_typed(handle,n,alpha,x,incx,stridex,y,incy,stridey, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpyStridedBatched_64_typed type(c_ptr), value :: handle @@ -35450,7 +37976,6 @@ function hipblasSaxpyStridedBatched_64_typed(handle,n,alpha,x,incx,stridex,y,inc function hipblasDaxpyStridedBatched_64_typed(handle,n,alpha,x,incx,stridex,y,incy,stridey, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpyStridedBatched_64_typed type(c_ptr), value :: handle @@ -35470,7 +37995,6 @@ function hipblasDaxpyStridedBatched_64_typed(handle,n,alpha,x,incx,stridex,y,inc function hipblasCaxpyStridedBatched_64_typed(handle,n,alpha,x,incx,stridex,y,incy,stridey, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpyStridedBatched_64_typed type(c_ptr), value :: handle @@ -35490,7 +38014,6 @@ function hipblasCaxpyStridedBatched_64_typed(handle,n,alpha,x,incx,stridex,y,inc function hipblasZaxpyStridedBatched_64_typed(handle,n,alpha,x,incx,stridex,y,incy,stridey, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpyStridedBatched_64_typed type(c_ptr), value :: handle @@ -35508,8 +38031,21 @@ function hipblasZaxpyStridedBatched_64_typed(handle,n,alpha,x,incx,stridex,y,inc x,incx,stridex,y,incy,stridey,batchCount) end function + function hipblasBfdot_typed(handle,n,x,incx,y,incy,myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasBfdot_typed + type(c_ptr), value :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: y + integer(c_int) :: incy + integer(c_short),target :: myResult + ! + hipblasBfdot_typed = hipblasBfdot_(handle,n,x,incx,y,incy,c_loc(myResult)) + end function + function hipblasSdot_typed(handle,n,x,incx,y,incy,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdot_typed type(c_ptr), value :: handle @@ -35524,7 +38060,6 @@ function hipblasSdot_typed(handle,n,x,incx,y,incy,myResult) end function function hipblasDdot_typed(handle,n,x,incx,y,incy,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdot_typed type(c_ptr), value :: handle @@ -35539,7 +38074,6 @@ function hipblasDdot_typed(handle,n,x,incx,y,incy,myResult) end function function hipblasCdotc_typed(handle,n,x,incx,y,incy,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotc_typed type(c_ptr), value :: handle @@ -35554,7 +38088,6 @@ function hipblasCdotc_typed(handle,n,x,incx,y,incy,myResult) end function function hipblasCdotu_typed(handle,n,x,incx,y,incy,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotu_typed type(c_ptr), value :: handle @@ -35569,7 +38102,6 @@ function hipblasCdotu_typed(handle,n,x,incx,y,incy,myResult) end function function hipblasZdotc_typed(handle,n,x,incx,y,incy,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotc_typed type(c_ptr), value :: handle @@ -35584,7 +38116,6 @@ function hipblasZdotc_typed(handle,n,x,incx,y,incy,myResult) end function function hipblasZdotu_typed(handle,n,x,incx,y,incy,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotu_typed type(c_ptr), value :: handle @@ -35598,8 +38129,21 @@ function hipblasZdotu_typed(handle,n,x,incx,y,incy,myResult) hipblasZdotu_typed = hipblasZdotu_(handle,n,x,incx,y,incy,c_loc(myResult)) end function + function hipblasBfdot_64_typed(handle,n,x,incx,y,incy,myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasBfdot_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: y + integer(c_int64_t) :: incy + integer(c_short),target :: myResult + ! + hipblasBfdot_64_typed = hipblasBfdot_64_(handle,n,x,incx,y,incy,c_loc(myResult)) + end function + function hipblasSdot_64_typed(handle,n,x,incx,y,incy,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdot_64_typed type(c_ptr), value :: handle @@ -35614,7 +38158,6 @@ function hipblasSdot_64_typed(handle,n,x,incx,y,incy,myResult) end function function hipblasDdot_64_typed(handle,n,x,incx,y,incy,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdot_64_typed type(c_ptr), value :: handle @@ -35629,7 +38172,6 @@ function hipblasDdot_64_typed(handle,n,x,incx,y,incy,myResult) end function function hipblasCdotc_64_typed(handle,n,x,incx,y,incy,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotc_64_typed type(c_ptr), value :: handle @@ -35644,7 +38186,6 @@ function hipblasCdotc_64_typed(handle,n,x,incx,y,incy,myResult) end function function hipblasCdotu_64_typed(handle,n,x,incx,y,incy,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotu_64_typed type(c_ptr), value :: handle @@ -35659,7 +38200,6 @@ function hipblasCdotu_64_typed(handle,n,x,incx,y,incy,myResult) end function function hipblasZdotc_64_typed(handle,n,x,incx,y,incy,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotc_64_typed type(c_ptr), value :: handle @@ -35674,7 +38214,6 @@ function hipblasZdotc_64_typed(handle,n,x,incx,y,incy,myResult) end function function hipblasZdotu_64_typed(handle,n,x,incx,y,incy,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotu_64_typed type(c_ptr), value :: handle @@ -35689,7 +38228,6 @@ function hipblasZdotu_64_typed(handle,n,x,incx,y,incy,myResult) end function function hipblasSnrm2_typed(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2_typed type(c_ptr), value :: handle @@ -35702,7 +38240,6 @@ function hipblasSnrm2_typed(handle,n,x,incx,myResult) end function function hipblasDnrm2_typed(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2_typed type(c_ptr), value :: handle @@ -35715,7 +38252,6 @@ function hipblasDnrm2_typed(handle,n,x,incx,myResult) end function function hipblasScnrm2_typed(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2_typed type(c_ptr), value :: handle @@ -35728,7 +38264,6 @@ function hipblasScnrm2_typed(handle,n,x,incx,myResult) end function function hipblasDznrm2_typed(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2_typed type(c_ptr), value :: handle @@ -35741,7 +38276,6 @@ function hipblasDznrm2_typed(handle,n,x,incx,myResult) end function function hipblasSnrm2_64_typed(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2_64_typed type(c_ptr), value :: handle @@ -35754,7 +38288,6 @@ function hipblasSnrm2_64_typed(handle,n,x,incx,myResult) end function function hipblasDnrm2_64_typed(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2_64_typed type(c_ptr), value :: handle @@ -35767,7 +38300,6 @@ function hipblasDnrm2_64_typed(handle,n,x,incx,myResult) end function function hipblasScnrm2_64_typed(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2_64_typed type(c_ptr), value :: handle @@ -35780,7 +38312,6 @@ function hipblasScnrm2_64_typed(handle,n,x,incx,myResult) end function function hipblasDznrm2_64_typed(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2_64_typed type(c_ptr), value :: handle @@ -35793,7 +38324,6 @@ function hipblasDznrm2_64_typed(handle,n,x,incx,myResult) end function function hipblasSrot_typed(handle,n,x,incx,y,incy,c,s) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrot_typed type(c_ptr), value :: handle @@ -35809,7 +38339,6 @@ function hipblasSrot_typed(handle,n,x,incx,y,incy,c,s) end function function hipblasDrot_typed(handle,n,x,incx,y,incy,c,s) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrot_typed type(c_ptr), value :: handle @@ -35825,7 +38354,6 @@ function hipblasDrot_typed(handle,n,x,incx,y,incy,c,s) end function function hipblasCrot_typed(handle,n,x,incx,y,incy,c,s) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrot_typed type(c_ptr), value :: handle @@ -35841,7 +38369,6 @@ function hipblasCrot_typed(handle,n,x,incx,y,incy,c,s) end function function hipblasCsrot_typed(handle,n,x,incx,y,incy,c,s) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrot_typed type(c_ptr), value :: handle @@ -35857,7 +38384,6 @@ function hipblasCsrot_typed(handle,n,x,incx,y,incy,c,s) end function function hipblasZrot_typed(handle,n,x,incx,y,incy,c,s) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrot_typed type(c_ptr), value :: handle @@ -35873,7 +38399,6 @@ function hipblasZrot_typed(handle,n,x,incx,y,incy,c,s) end function function hipblasZdrot_typed(handle,n,x,incx,y,incy,c,s) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrot_typed type(c_ptr), value :: handle @@ -35889,7 +38414,6 @@ function hipblasZdrot_typed(handle,n,x,incx,y,incy,c,s) end function function hipblasSrot_64_typed(handle,n,x,incx,y,incy,c,s) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrot_64_typed type(c_ptr), value :: handle @@ -35905,7 +38429,6 @@ function hipblasSrot_64_typed(handle,n,x,incx,y,incy,c,s) end function function hipblasDrot_64_typed(handle,n,x,incx,y,incy,c,s) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrot_64_typed type(c_ptr), value :: handle @@ -35921,7 +38444,6 @@ function hipblasDrot_64_typed(handle,n,x,incx,y,incy,c,s) end function function hipblasCrot_64_typed(handle,n,x,incx,y,incy,c,s) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrot_64_typed type(c_ptr), value :: handle @@ -35937,7 +38459,6 @@ function hipblasCrot_64_typed(handle,n,x,incx,y,incy,c,s) end function function hipblasCsrot_64_typed(handle,n,x,incx,y,incy,c,s) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrot_64_typed type(c_ptr), value :: handle @@ -35953,7 +38474,6 @@ function hipblasCsrot_64_typed(handle,n,x,incx,y,incy,c,s) end function function hipblasZrot_64_typed(handle,n,x,incx,y,incy,c,s) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrot_64_typed type(c_ptr), value :: handle @@ -35969,7 +38489,6 @@ function hipblasZrot_64_typed(handle,n,x,incx,y,incy,c,s) end function function hipblasZdrot_64_typed(handle,n,x,incx,y,incy,c,s) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrot_64_typed type(c_ptr), value :: handle @@ -35984,8 +38503,445 @@ function hipblasZdrot_64_typed(handle,n,x,incx,y,incy,c,s) hipblasZdrot_64_typed = hipblasZdrot_64_(handle,n,x,incx,y,incy,c_loc(c),c_loc(s)) end function + function hipblasSrotBatched_typed(handle,n,x,incx,y,incy,c,s,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotBatched_typed + type(c_ptr), value :: handle + integer(c_int) :: n + type(c_ptr), value :: x + integer(c_int) :: incx + type(c_ptr), value :: y + integer(c_int) :: incy + real(c_float),target :: c + real(c_float),target :: s + integer(c_int) :: batchCount + ! + hipblasSrotBatched_typed = hipblasSrotBatched_(handle,n,x,incx,y,incy,c_loc(c),c_loc(s), & + batchCount) + end function + + function hipblasDrotBatched_typed(handle,n,x,incx,y,incy,c,s,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotBatched_typed + type(c_ptr), value :: handle + integer(c_int) :: n + type(c_ptr), value :: x + integer(c_int) :: incx + type(c_ptr), value :: y + integer(c_int) :: incy + real(c_double),target :: c + real(c_double),target :: s + integer(c_int) :: batchCount + ! + hipblasDrotBatched_typed = hipblasDrotBatched_(handle,n,x,incx,y,incy,c_loc(c),c_loc(s), & + batchCount) + end function + + function hipblasCrotBatched_typed(handle,n,x,incx,y,incy,c,s,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotBatched_typed + type(c_ptr), value :: handle + integer(c_int) :: n + type(c_ptr), value :: x + integer(c_int) :: incx + type(c_ptr), value :: y + integer(c_int) :: incy + real(c_float),target :: c + complex(c_float_complex),target :: s + integer(c_int) :: batchCount + ! + hipblasCrotBatched_typed = hipblasCrotBatched_(handle,n,x,incx,y,incy,c_loc(c),c_loc(s), & + batchCount) + end function + + function hipblasCsrotBatched_typed(handle,n,x,incx,y,incy,c,s,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrotBatched_typed + type(c_ptr), value :: handle + integer(c_int) :: n + type(c_ptr), value :: x + integer(c_int) :: incx + type(c_ptr), value :: y + integer(c_int) :: incy + real(c_float),target :: c + real(c_float),target :: s + integer(c_int) :: batchCount + ! + hipblasCsrotBatched_typed = hipblasCsrotBatched_(handle,n,x,incx,y,incy,c_loc(c),c_loc(s), & + batchCount) + end function + + function hipblasZrotBatched_typed(handle,n,x,incx,y,incy,c,s,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotBatched_typed + type(c_ptr), value :: handle + integer(c_int) :: n + type(c_ptr), value :: x + integer(c_int) :: incx + type(c_ptr), value :: y + integer(c_int) :: incy + real(c_double),target :: c + complex(c_double_complex),target :: s + integer(c_int) :: batchCount + ! + hipblasZrotBatched_typed = hipblasZrotBatched_(handle,n,x,incx,y,incy,c_loc(c),c_loc(s), & + batchCount) + end function + + function hipblasZdrotBatched_typed(handle,n,x,incx,y,incy,c,s,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrotBatched_typed + type(c_ptr), value :: handle + integer(c_int) :: n + type(c_ptr), value :: x + integer(c_int) :: incx + type(c_ptr), value :: y + integer(c_int) :: incy + real(c_double),target :: c + real(c_double),target :: s + integer(c_int) :: batchCount + ! + hipblasZdrotBatched_typed = hipblasZdrotBatched_(handle,n,x,incx,y,incy,c_loc(c),c_loc(s), & + batchCount) + end function + + function hipblasSrotBatched_64_typed(handle,n,x,incx,y,incy,c,s,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotBatched_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: n + type(c_ptr), value :: x + integer(c_int64_t) :: incx + type(c_ptr), value :: y + integer(c_int64_t) :: incy + real(c_float),target :: c + real(c_float),target :: s + integer(c_int64_t) :: batchCount + ! + hipblasSrotBatched_64_typed = hipblasSrotBatched_64_(handle,n,x,incx,y,incy,c_loc(c), & + c_loc(s),batchCount) + end function + + function hipblasDrotBatched_64_typed(handle,n,x,incx,y,incy,c,s,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotBatched_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: n + type(c_ptr), value :: x + integer(c_int64_t) :: incx + type(c_ptr), value :: y + integer(c_int64_t) :: incy + real(c_double),target :: c + real(c_double),target :: s + integer(c_int64_t) :: batchCount + ! + hipblasDrotBatched_64_typed = hipblasDrotBatched_64_(handle,n,x,incx,y,incy,c_loc(c), & + c_loc(s),batchCount) + end function + + function hipblasCrotBatched_64_typed(handle,n,x,incx,y,incy,c,s,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotBatched_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: n + type(c_ptr), value :: x + integer(c_int64_t) :: incx + type(c_ptr), value :: y + integer(c_int64_t) :: incy + real(c_float),target :: c + complex(c_float_complex),target :: s + integer(c_int64_t) :: batchCount + ! + hipblasCrotBatched_64_typed = hipblasCrotBatched_64_(handle,n,x,incx,y,incy,c_loc(c), & + c_loc(s),batchCount) + end function + + function hipblasCsrotBatched_64_typed(handle,n,x,incx,y,incy,c,s,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrotBatched_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: n + type(c_ptr), value :: x + integer(c_int64_t) :: incx + type(c_ptr), value :: y + integer(c_int64_t) :: incy + real(c_float),target :: c + real(c_float),target :: s + integer(c_int64_t) :: batchCount + ! + hipblasCsrotBatched_64_typed = hipblasCsrotBatched_64_(handle,n,x,incx,y,incy,c_loc(c), & + c_loc(s),batchCount) + end function + + function hipblasZrotBatched_64_typed(handle,n,x,incx,y,incy,c,s,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotBatched_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: n + type(c_ptr), value :: x + integer(c_int64_t) :: incx + type(c_ptr), value :: y + integer(c_int64_t) :: incy + real(c_double),target :: c + complex(c_double_complex),target :: s + integer(c_int64_t) :: batchCount + ! + hipblasZrotBatched_64_typed = hipblasZrotBatched_64_(handle,n,x,incx,y,incy,c_loc(c), & + c_loc(s),batchCount) + end function + + function hipblasZdrotBatched_64_typed(handle,n,x,incx,y,incy,c,s,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrotBatched_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: n + type(c_ptr), value :: x + integer(c_int64_t) :: incx + type(c_ptr), value :: y + integer(c_int64_t) :: incy + real(c_double),target :: c + real(c_double),target :: s + integer(c_int64_t) :: batchCount + ! + hipblasZdrotBatched_64_typed = hipblasZdrotBatched_64_(handle,n,x,incx,y,incy,c_loc(c), & + c_loc(s),batchCount) + end function + + function hipblasSrotStridedBatched_typed(handle,n,x,incx,stridex,y,incy,stridey,c,s,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotStridedBatched_typed + type(c_ptr), value :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_float),target :: c + real(c_float),target :: s + integer(c_int) :: batchCount + ! + hipblasSrotStridedBatched_typed = hipblasSrotStridedBatched_(handle,n,x,incx,stridex,y,incy, & + stridey,c_loc(c),c_loc(s),batchCount) + end function + + function hipblasDrotStridedBatched_typed(handle,n,x,incx,stridex,y,incy,stridey,c,s,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotStridedBatched_typed + type(c_ptr), value :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_double),target :: c + real(c_double),target :: s + integer(c_int) :: batchCount + ! + hipblasDrotStridedBatched_typed = hipblasDrotStridedBatched_(handle,n,x,incx,stridex,y,incy, & + stridey,c_loc(c),c_loc(s),batchCount) + end function + + function hipblasCrotStridedBatched_typed(handle,n,x,incx,stridex,y,incy,stridey,c,s,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotStridedBatched_typed + type(c_ptr), value :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_float),target :: c + complex(c_float_complex),target :: s + integer(c_int) :: batchCount + ! + hipblasCrotStridedBatched_typed = hipblasCrotStridedBatched_(handle,n,x,incx,stridex,y,incy, & + stridey,c_loc(c),c_loc(s),batchCount) + end function + + function hipblasCsrotStridedBatched_typed(handle,n,x,incx,stridex,y,incy,stridey,c,s,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrotStridedBatched_typed + type(c_ptr), value :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_float),target :: c + real(c_float),target :: s + integer(c_int) :: batchCount + ! + hipblasCsrotStridedBatched_typed = hipblasCsrotStridedBatched_(handle,n,x,incx,stridex,y, & + incy,stridey,c_loc(c),c_loc(s),batchCount) + end function + + function hipblasZrotStridedBatched_typed(handle,n,x,incx,stridex,y,incy,stridey,c,s,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotStridedBatched_typed + type(c_ptr), value :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_double),target :: c + complex(c_double_complex),target :: s + integer(c_int) :: batchCount + ! + hipblasZrotStridedBatched_typed = hipblasZrotStridedBatched_(handle,n,x,incx,stridex,y,incy, & + stridey,c_loc(c),c_loc(s),batchCount) + end function + + function hipblasZdrotStridedBatched_typed(handle,n,x,incx,stridex,y,incy,stridey,c,s,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrotStridedBatched_typed + type(c_ptr), value :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_double),target :: c + real(c_double),target :: s + integer(c_int) :: batchCount + ! + hipblasZdrotStridedBatched_typed = hipblasZdrotStridedBatched_(handle,n,x,incx,stridex,y, & + incy,stridey,c_loc(c),c_loc(s),batchCount) + end function + + function hipblasSrotStridedBatched_64_typed(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotStridedBatched_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_float),target :: c + real(c_float),target :: s + integer(c_int64_t) :: batchCount + ! + hipblasSrotStridedBatched_64_typed = hipblasSrotStridedBatched_64_(handle,n,x,incx,stridex, & + y,incy,stridey,c_loc(c),c_loc(s),batchCount) + end function + + function hipblasDrotStridedBatched_64_typed(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotStridedBatched_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_double),target :: c + real(c_double),target :: s + integer(c_int64_t) :: batchCount + ! + hipblasDrotStridedBatched_64_typed = hipblasDrotStridedBatched_64_(handle,n,x,incx,stridex, & + y,incy,stridey,c_loc(c),c_loc(s),batchCount) + end function + + function hipblasCrotStridedBatched_64_typed(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotStridedBatched_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_float),target :: c + complex(c_float_complex),target :: s + integer(c_int64_t) :: batchCount + ! + hipblasCrotStridedBatched_64_typed = hipblasCrotStridedBatched_64_(handle,n,x,incx,stridex, & + y,incy,stridey,c_loc(c),c_loc(s),batchCount) + end function + + function hipblasCsrotStridedBatched_64_typed(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrotStridedBatched_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_float),target :: c + real(c_float),target :: s + integer(c_int64_t) :: batchCount + ! + hipblasCsrotStridedBatched_64_typed = hipblasCsrotStridedBatched_64_(handle,n,x,incx, & + stridex,y,incy,stridey,c_loc(c),c_loc(s),batchCount) + end function + + function hipblasZrotStridedBatched_64_typed(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotStridedBatched_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_double),target :: c + complex(c_double_complex),target :: s + integer(c_int64_t) :: batchCount + ! + hipblasZrotStridedBatched_64_typed = hipblasZrotStridedBatched_64_(handle,n,x,incx,stridex, & + y,incy,stridey,c_loc(c),c_loc(s),batchCount) + end function + + function hipblasZdrotStridedBatched_64_typed(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrotStridedBatched_64_typed + type(c_ptr), value :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_double),target :: c + real(c_double),target :: s + integer(c_int64_t) :: batchCount + ! + hipblasZdrotStridedBatched_64_typed = hipblasZdrotStridedBatched_64_(handle,n,x,incx, & + stridex,y,incy,stridey,c_loc(c),c_loc(s),batchCount) + end function + function hipblasSrotg_typed(handle,a,b,c,s) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotg_typed type(c_ptr), value :: handle @@ -35998,7 +38954,6 @@ function hipblasSrotg_typed(handle,a,b,c,s) end function function hipblasDrotg_typed(handle,a,b,c,s) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotg_typed type(c_ptr), value :: handle @@ -36011,7 +38966,6 @@ function hipblasDrotg_typed(handle,a,b,c,s) end function function hipblasCrotg_typed(handle,a,b,c,s) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotg_typed type(c_ptr), value :: handle @@ -36024,7 +38978,6 @@ function hipblasCrotg_typed(handle,a,b,c,s) end function function hipblasZrotg_typed(handle,a,b,c,s) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotg_typed type(c_ptr), value :: handle @@ -36037,7 +38990,6 @@ function hipblasZrotg_typed(handle,a,b,c,s) end function function hipblasSrotg_64_typed(handle,a,b,c,s) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotg_64_typed type(c_ptr), value :: handle @@ -36050,7 +39002,6 @@ function hipblasSrotg_64_typed(handle,a,b,c,s) end function function hipblasDrotg_64_typed(handle,a,b,c,s) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotg_64_typed type(c_ptr), value :: handle @@ -36063,7 +39014,6 @@ function hipblasDrotg_64_typed(handle,a,b,c,s) end function function hipblasCrotg_64_typed(handle,a,b,c,s) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotg_64_typed type(c_ptr), value :: handle @@ -36076,7 +39026,6 @@ function hipblasCrotg_64_typed(handle,a,b,c,s) end function function hipblasZrotg_64_typed(handle,a,b,c,s) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotg_64_typed type(c_ptr), value :: handle @@ -36089,7 +39038,6 @@ function hipblasZrotg_64_typed(handle,a,b,c,s) end function function hipblasSrotmg_typed(handle,d1,d2,x1,y1,param) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmg_typed type(c_ptr), value :: handle @@ -36103,7 +39051,6 @@ function hipblasSrotmg_typed(handle,d1,d2,x1,y1,param) end function function hipblasDrotmg_typed(handle,d1,d2,x1,y1,param) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmg_typed type(c_ptr), value :: handle @@ -36117,7 +39064,6 @@ function hipblasDrotmg_typed(handle,d1,d2,x1,y1,param) end function function hipblasSrotmg_64_typed(handle,d1,d2,x1,y1,param) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmg_64_typed type(c_ptr), value :: handle @@ -36132,7 +39078,6 @@ function hipblasSrotmg_64_typed(handle,d1,d2,x1,y1,param) end function function hipblasDrotmg_64_typed(handle,d1,d2,x1,y1,param) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmg_64_typed type(c_ptr), value :: handle @@ -36147,7 +39092,6 @@ function hipblasDrotmg_64_typed(handle,d1,d2,x1,y1,param) end function function hipblasSscal_typed(handle,n,alpha,x,incx) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscal_typed type(c_ptr), value :: handle @@ -36160,7 +39104,6 @@ function hipblasSscal_typed(handle,n,alpha,x,incx) end function function hipblasDscal_typed(handle,n,alpha,x,incx) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscal_typed type(c_ptr), value :: handle @@ -36173,7 +39116,6 @@ function hipblasDscal_typed(handle,n,alpha,x,incx) end function function hipblasCscal_typed(handle,n,alpha,x,incx) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscal_typed type(c_ptr), value :: handle @@ -36186,7 +39128,6 @@ function hipblasCscal_typed(handle,n,alpha,x,incx) end function function hipblasCsscal_typed(handle,n,alpha,x,incx) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscal_typed type(c_ptr), value :: handle @@ -36199,7 +39140,6 @@ function hipblasCsscal_typed(handle,n,alpha,x,incx) end function function hipblasZscal_typed(handle,n,alpha,x,incx) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscal_typed type(c_ptr), value :: handle @@ -36212,7 +39152,6 @@ function hipblasZscal_typed(handle,n,alpha,x,incx) end function function hipblasZdscal_typed(handle,n,alpha,x,incx) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscal_typed type(c_ptr), value :: handle @@ -36225,7 +39164,6 @@ function hipblasZdscal_typed(handle,n,alpha,x,incx) end function function hipblasSscal_64_typed(handle,n,alpha,x,incx) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscal_64_typed type(c_ptr), value :: handle @@ -36238,7 +39176,6 @@ function hipblasSscal_64_typed(handle,n,alpha,x,incx) end function function hipblasDscal_64_typed(handle,n,alpha,x,incx) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscal_64_typed type(c_ptr), value :: handle @@ -36251,7 +39188,6 @@ function hipblasDscal_64_typed(handle,n,alpha,x,incx) end function function hipblasCscal_64_typed(handle,n,alpha,x,incx) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscal_64_typed type(c_ptr), value :: handle @@ -36264,7 +39200,6 @@ function hipblasCscal_64_typed(handle,n,alpha,x,incx) end function function hipblasCsscal_64_typed(handle,n,alpha,x,incx) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscal_64_typed type(c_ptr), value :: handle @@ -36277,7 +39212,6 @@ function hipblasCsscal_64_typed(handle,n,alpha,x,incx) end function function hipblasZscal_64_typed(handle,n,alpha,x,incx) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscal_64_typed type(c_ptr), value :: handle @@ -36290,7 +39224,6 @@ function hipblasZscal_64_typed(handle,n,alpha,x,incx) end function function hipblasZdscal_64_typed(handle,n,alpha,x,incx) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscal_64_typed type(c_ptr), value :: handle @@ -36303,7 +39236,6 @@ function hipblasZdscal_64_typed(handle,n,alpha,x,incx) end function function hipblasSscalBatched_typed(handle,n,alpha,x,incx,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscalBatched_typed type(c_ptr), value :: handle @@ -36317,7 +39249,6 @@ function hipblasSscalBatched_typed(handle,n,alpha,x,incx,batchCount) end function function hipblasDscalBatched_typed(handle,n,alpha,x,incx,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscalBatched_typed type(c_ptr), value :: handle @@ -36331,7 +39262,6 @@ function hipblasDscalBatched_typed(handle,n,alpha,x,incx,batchCount) end function function hipblasCscalBatched_typed(handle,n,alpha,x,incx,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscalBatched_typed type(c_ptr), value :: handle @@ -36345,7 +39275,6 @@ function hipblasCscalBatched_typed(handle,n,alpha,x,incx,batchCount) end function function hipblasZscalBatched_typed(handle,n,alpha,x,incx,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscalBatched_typed type(c_ptr), value :: handle @@ -36359,7 +39288,6 @@ function hipblasZscalBatched_typed(handle,n,alpha,x,incx,batchCount) end function function hipblasCsscalBatched_typed(handle,n,alpha,x,incx,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscalBatched_typed type(c_ptr), value :: handle @@ -36373,7 +39301,6 @@ function hipblasCsscalBatched_typed(handle,n,alpha,x,incx,batchCount) end function function hipblasZdscalBatched_typed(handle,n,alpha,x,incx,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscalBatched_typed type(c_ptr), value :: handle @@ -36387,7 +39314,6 @@ function hipblasZdscalBatched_typed(handle,n,alpha,x,incx,batchCount) end function function hipblasSscalBatched_64_typed(handle,n,alpha,x,incx,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscalBatched_64_typed type(c_ptr), value :: handle @@ -36402,7 +39328,6 @@ function hipblasSscalBatched_64_typed(handle,n,alpha,x,incx,batchCount) end function function hipblasDscalBatched_64_typed(handle,n,alpha,x,incx,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscalBatched_64_typed type(c_ptr), value :: handle @@ -36417,7 +39342,6 @@ function hipblasDscalBatched_64_typed(handle,n,alpha,x,incx,batchCount) end function function hipblasCscalBatched_64_typed(handle,n,alpha,x,incx,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscalBatched_64_typed type(c_ptr), value :: handle @@ -36432,7 +39356,6 @@ function hipblasCscalBatched_64_typed(handle,n,alpha,x,incx,batchCount) end function function hipblasZscalBatched_64_typed(handle,n,alpha,x,incx,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscalBatched_64_typed type(c_ptr), value :: handle @@ -36447,7 +39370,6 @@ function hipblasZscalBatched_64_typed(handle,n,alpha,x,incx,batchCount) end function function hipblasCsscalBatched_64_typed(handle,n,alpha,x,incx,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscalBatched_64_typed type(c_ptr), value :: handle @@ -36462,7 +39384,6 @@ function hipblasCsscalBatched_64_typed(handle,n,alpha,x,incx,batchCount) end function function hipblasZdscalBatched_64_typed(handle,n,alpha,x,incx,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscalBatched_64_typed type(c_ptr), value :: handle @@ -36477,7 +39398,6 @@ function hipblasZdscalBatched_64_typed(handle,n,alpha,x,incx,batchCount) end function function hipblasSscalStridedBatched_typed(handle,n,alpha,x,incx,stridex,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscalStridedBatched_typed type(c_ptr), value :: handle @@ -36493,7 +39413,6 @@ function hipblasSscalStridedBatched_typed(handle,n,alpha,x,incx,stridex,batchCou end function function hipblasDscalStridedBatched_typed(handle,n,alpha,x,incx,stridex,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscalStridedBatched_typed type(c_ptr), value :: handle @@ -36509,7 +39428,6 @@ function hipblasDscalStridedBatched_typed(handle,n,alpha,x,incx,stridex,batchCou end function function hipblasCscalStridedBatched_typed(handle,n,alpha,x,incx,stridex,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscalStridedBatched_typed type(c_ptr), value :: handle @@ -36525,7 +39443,6 @@ function hipblasCscalStridedBatched_typed(handle,n,alpha,x,incx,stridex,batchCou end function function hipblasZscalStridedBatched_typed(handle,n,alpha,x,incx,stridex,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscalStridedBatched_typed type(c_ptr), value :: handle @@ -36541,7 +39458,6 @@ function hipblasZscalStridedBatched_typed(handle,n,alpha,x,incx,stridex,batchCou end function function hipblasCsscalStridedBatched_typed(handle,n,alpha,x,incx,stridex,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscalStridedBatched_typed type(c_ptr), value :: handle @@ -36557,7 +39473,6 @@ function hipblasCsscalStridedBatched_typed(handle,n,alpha,x,incx,stridex,batchCo end function function hipblasZdscalStridedBatched_typed(handle,n,alpha,x,incx,stridex,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscalStridedBatched_typed type(c_ptr), value :: handle @@ -36573,7 +39488,6 @@ function hipblasZdscalStridedBatched_typed(handle,n,alpha,x,incx,stridex,batchCo end function function hipblasSscalStridedBatched_64_typed(handle,n,alpha,x,incx,stridex,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscalStridedBatched_64_typed type(c_ptr), value :: handle @@ -36589,7 +39503,6 @@ function hipblasSscalStridedBatched_64_typed(handle,n,alpha,x,incx,stridex,batch end function function hipblasDscalStridedBatched_64_typed(handle,n,alpha,x,incx,stridex,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscalStridedBatched_64_typed type(c_ptr), value :: handle @@ -36605,7 +39518,6 @@ function hipblasDscalStridedBatched_64_typed(handle,n,alpha,x,incx,stridex,batch end function function hipblasCscalStridedBatched_64_typed(handle,n,alpha,x,incx,stridex,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscalStridedBatched_64_typed type(c_ptr), value :: handle @@ -36621,7 +39533,6 @@ function hipblasCscalStridedBatched_64_typed(handle,n,alpha,x,incx,stridex,batch end function function hipblasZscalStridedBatched_64_typed(handle,n,alpha,x,incx,stridex,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscalStridedBatched_64_typed type(c_ptr), value :: handle @@ -36637,7 +39548,6 @@ function hipblasZscalStridedBatched_64_typed(handle,n,alpha,x,incx,stridex,batch end function function hipblasCsscalStridedBatched_64_typed(handle,n,alpha,x,incx,stridex,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscalStridedBatched_64_typed type(c_ptr), value :: handle @@ -36653,7 +39563,6 @@ function hipblasCsscalStridedBatched_64_typed(handle,n,alpha,x,incx,stridex,batc end function function hipblasZdscalStridedBatched_64_typed(handle,n,alpha,x,incx,stridex,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscalStridedBatched_64_typed type(c_ptr), value :: handle @@ -36669,7 +39578,6 @@ function hipblasZdscalStridedBatched_64_typed(handle,n,alpha,x,incx,stridex,batc end function function hipblasSgbmv_typed(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmv_typed type(c_ptr), value :: handle @@ -36692,7 +39600,6 @@ function hipblasSgbmv_typed(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,in end function function hipblasDgbmv_typed(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmv_typed type(c_ptr), value :: handle @@ -36715,7 +39622,6 @@ function hipblasDgbmv_typed(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,in end function function hipblasCgbmv_typed(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmv_typed type(c_ptr), value :: handle @@ -36738,7 +39644,6 @@ function hipblasCgbmv_typed(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,in end function function hipblasZgbmv_typed(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmv_typed type(c_ptr), value :: handle @@ -36761,7 +39666,6 @@ function hipblasZgbmv_typed(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,in end function function hipblasSgbmv_64_typed(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmv_64_typed type(c_ptr), value :: handle @@ -36784,7 +39688,6 @@ function hipblasSgbmv_64_typed(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y end function function hipblasDgbmv_64_typed(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmv_64_typed type(c_ptr), value :: handle @@ -36807,7 +39710,6 @@ function hipblasDgbmv_64_typed(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y end function function hipblasCgbmv_64_typed(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmv_64_typed type(c_ptr), value :: handle @@ -36830,7 +39732,6 @@ function hipblasCgbmv_64_typed(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y end function function hipblasZgbmv_64_typed(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmv_64_typed type(c_ptr), value :: handle @@ -36854,7 +39755,6 @@ function hipblasZgbmv_64_typed(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y function hipblasSgbmvBatched_typed(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmvBatched_typed type(c_ptr), value :: handle @@ -36879,7 +39779,6 @@ function hipblasSgbmvBatched_typed(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,be function hipblasDgbmvBatched_typed(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmvBatched_typed type(c_ptr), value :: handle @@ -36904,7 +39803,6 @@ function hipblasDgbmvBatched_typed(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,be function hipblasCgbmvBatched_typed(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmvBatched_typed type(c_ptr), value :: handle @@ -36929,7 +39827,6 @@ function hipblasCgbmvBatched_typed(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,be function hipblasZgbmvBatched_typed(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmvBatched_typed type(c_ptr), value :: handle @@ -36954,7 +39851,6 @@ function hipblasZgbmvBatched_typed(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,be function hipblasSgbmvBatched_64_typed(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmvBatched_64_typed type(c_ptr), value :: handle @@ -36979,7 +39875,6 @@ function hipblasSgbmvBatched_64_typed(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx function hipblasDgbmvBatched_64_typed(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmvBatched_64_typed type(c_ptr), value :: handle @@ -37004,7 +39899,6 @@ function hipblasDgbmvBatched_64_typed(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx function hipblasCgbmvBatched_64_typed(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmvBatched_64_typed type(c_ptr), value :: handle @@ -37029,7 +39923,6 @@ function hipblasCgbmvBatched_64_typed(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx function hipblasZgbmvBatched_64_typed(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmvBatched_64_typed type(c_ptr), value :: handle @@ -37054,7 +39947,6 @@ function hipblasZgbmvBatched_64_typed(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx function hipblasSgbmvStridedBatched_typed(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x,incx, & stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmvStridedBatched_typed type(c_ptr), value :: handle @@ -37082,7 +39974,6 @@ function hipblasSgbmvStridedBatched_typed(handle,trans,m,n,kl,ku,alpha,AP,lda,st function hipblasDgbmvStridedBatched_typed(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x,incx, & stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmvStridedBatched_typed type(c_ptr), value :: handle @@ -37110,7 +40001,6 @@ function hipblasDgbmvStridedBatched_typed(handle,trans,m,n,kl,ku,alpha,AP,lda,st function hipblasCgbmvStridedBatched_typed(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x,incx, & stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmvStridedBatched_typed type(c_ptr), value :: handle @@ -37138,7 +40028,6 @@ function hipblasCgbmvStridedBatched_typed(handle,trans,m,n,kl,ku,alpha,AP,lda,st function hipblasZgbmvStridedBatched_typed(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x,incx, & stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmvStridedBatched_typed type(c_ptr), value :: handle @@ -37166,7 +40055,6 @@ function hipblasZgbmvStridedBatched_typed(handle,trans,m,n,kl,ku,alpha,AP,lda,st function hipblasSgbmvStridedBatched_64_typed(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x, & incx,stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmvStridedBatched_64_typed type(c_ptr), value :: handle @@ -37194,7 +40082,6 @@ function hipblasSgbmvStridedBatched_64_typed(handle,trans,m,n,kl,ku,alpha,AP,lda function hipblasDgbmvStridedBatched_64_typed(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x, & incx,stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmvStridedBatched_64_typed type(c_ptr), value :: handle @@ -37222,7 +40109,6 @@ function hipblasDgbmvStridedBatched_64_typed(handle,trans,m,n,kl,ku,alpha,AP,lda function hipblasCgbmvStridedBatched_64_typed(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x, & incx,stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmvStridedBatched_64_typed type(c_ptr), value :: handle @@ -37250,7 +40136,6 @@ function hipblasCgbmvStridedBatched_64_typed(handle,trans,m,n,kl,ku,alpha,AP,lda function hipblasZgbmvStridedBatched_64_typed(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x, & incx,stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmvStridedBatched_64_typed type(c_ptr), value :: handle @@ -37277,7 +40162,6 @@ function hipblasZgbmvStridedBatched_64_typed(handle,trans,m,n,kl,ku,alpha,AP,lda end function function hipblasSgemv_typed(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemv_typed type(c_ptr), value :: handle @@ -37298,7 +40182,6 @@ function hipblasSgemv_typed(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) end function function hipblasDgemv_typed(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemv_typed type(c_ptr), value :: handle @@ -37319,7 +40202,6 @@ function hipblasDgemv_typed(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) end function function hipblasCgemv_typed(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemv_typed type(c_ptr), value :: handle @@ -37340,7 +40222,6 @@ function hipblasCgemv_typed(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) end function function hipblasZgemv_typed(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemv_typed type(c_ptr), value :: handle @@ -37361,7 +40242,6 @@ function hipblasZgemv_typed(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) end function function hipblasSgemv_64_typed(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemv_64_typed type(c_ptr), value :: handle @@ -37382,7 +40262,6 @@ function hipblasSgemv_64_typed(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) end function function hipblasDgemv_64_typed(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemv_64_typed type(c_ptr), value :: handle @@ -37403,7 +40282,6 @@ function hipblasDgemv_64_typed(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) end function function hipblasCgemv_64_typed(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemv_64_typed type(c_ptr), value :: handle @@ -37424,7 +40302,6 @@ function hipblasCgemv_64_typed(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) end function function hipblasZgemv_64_typed(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemv_64_typed type(c_ptr), value :: handle @@ -37445,7 +40322,6 @@ function hipblasZgemv_64_typed(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) end function function hipblasSgemvBatched_typed(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemvBatched_typed type(c_ptr), value :: handle @@ -37467,7 +40343,6 @@ function hipblasSgemvBatched_typed(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,i end function function hipblasDgemvBatched_typed(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemvBatched_typed type(c_ptr), value :: handle @@ -37489,7 +40364,6 @@ function hipblasDgemvBatched_typed(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,i end function function hipblasCgemvBatched_typed(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemvBatched_typed type(c_ptr), value :: handle @@ -37511,7 +40385,6 @@ function hipblasCgemvBatched_typed(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,i end function function hipblasZgemvBatched_typed(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemvBatched_typed type(c_ptr), value :: handle @@ -37534,7 +40407,6 @@ function hipblasZgemvBatched_typed(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,i function hipblasSgemvBatched_64_typed(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemvBatched_64_typed type(c_ptr), value :: handle @@ -37557,7 +40429,6 @@ function hipblasSgemvBatched_64_typed(handle,trans,m,n,alpha,AP,lda,x,incx,beta, function hipblasDgemvBatched_64_typed(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemvBatched_64_typed type(c_ptr), value :: handle @@ -37580,7 +40451,6 @@ function hipblasDgemvBatched_64_typed(handle,trans,m,n,alpha,AP,lda,x,incx,beta, function hipblasCgemvBatched_64_typed(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemvBatched_64_typed type(c_ptr), value :: handle @@ -37603,7 +40473,6 @@ function hipblasCgemvBatched_64_typed(handle,trans,m,n,alpha,AP,lda,x,incx,beta, function hipblasZgemvBatched_64_typed(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemvBatched_64_typed type(c_ptr), value :: handle @@ -37626,7 +40495,6 @@ function hipblasZgemvBatched_64_typed(handle,trans,m,n,alpha,AP,lda,x,incx,beta, function hipblasSgemvStridedBatched_typed(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemvStridedBatched_typed type(c_ptr), value :: handle @@ -37652,7 +40520,6 @@ function hipblasSgemvStridedBatched_typed(handle,transA,m,n,alpha,AP,lda,strideA function hipblasDgemvStridedBatched_typed(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemvStridedBatched_typed type(c_ptr), value :: handle @@ -37678,7 +40545,6 @@ function hipblasDgemvStridedBatched_typed(handle,transA,m,n,alpha,AP,lda,strideA function hipblasCgemvStridedBatched_typed(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemvStridedBatched_typed type(c_ptr), value :: handle @@ -37704,7 +40570,6 @@ function hipblasCgemvStridedBatched_typed(handle,transA,m,n,alpha,AP,lda,strideA function hipblasZgemvStridedBatched_typed(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemvStridedBatched_typed type(c_ptr), value :: handle @@ -37730,7 +40595,6 @@ function hipblasZgemvStridedBatched_typed(handle,transA,m,n,alpha,AP,lda,strideA function hipblasSgemvStridedBatched_64_typed(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemvStridedBatched_64_typed type(c_ptr), value :: handle @@ -37756,7 +40620,6 @@ function hipblasSgemvStridedBatched_64_typed(handle,transA,m,n,alpha,AP,lda,stri function hipblasDgemvStridedBatched_64_typed(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemvStridedBatched_64_typed type(c_ptr), value :: handle @@ -37782,7 +40645,6 @@ function hipblasDgemvStridedBatched_64_typed(handle,transA,m,n,alpha,AP,lda,stri function hipblasCgemvStridedBatched_64_typed(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemvStridedBatched_64_typed type(c_ptr), value :: handle @@ -37808,7 +40670,6 @@ function hipblasCgemvStridedBatched_64_typed(handle,transA,m,n,alpha,AP,lda,stri function hipblasZgemvStridedBatched_64_typed(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemvStridedBatched_64_typed type(c_ptr), value :: handle @@ -37833,7 +40694,6 @@ function hipblasZgemvStridedBatched_64_typed(handle,transA,m,n,alpha,AP,lda,stri end function function hipblasSger_typed(handle,m,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSger_typed type(c_ptr), value :: handle @@ -37851,7 +40711,6 @@ function hipblasSger_typed(handle,m,n,alpha,x,incx,y,incy,AP,lda) end function function hipblasDger_typed(handle,m,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDger_typed type(c_ptr), value :: handle @@ -37869,7 +40728,6 @@ function hipblasDger_typed(handle,m,n,alpha,x,incx,y,incy,AP,lda) end function function hipblasCgeru_typed(handle,m,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeru_typed type(c_ptr), value :: handle @@ -37887,7 +40745,6 @@ function hipblasCgeru_typed(handle,m,n,alpha,x,incx,y,incy,AP,lda) end function function hipblasCgerc_typed(handle,m,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgerc_typed type(c_ptr), value :: handle @@ -37905,7 +40762,6 @@ function hipblasCgerc_typed(handle,m,n,alpha,x,incx,y,incy,AP,lda) end function function hipblasZgeru_typed(handle,m,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeru_typed type(c_ptr), value :: handle @@ -37923,7 +40779,6 @@ function hipblasZgeru_typed(handle,m,n,alpha,x,incx,y,incy,AP,lda) end function function hipblasZgerc_typed(handle,m,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgerc_typed type(c_ptr), value :: handle @@ -37941,7 +40796,6 @@ function hipblasZgerc_typed(handle,m,n,alpha,x,incx,y,incy,AP,lda) end function function hipblasSger_64_typed(handle,m,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSger_64_typed type(c_ptr), value :: handle @@ -37959,7 +40813,6 @@ function hipblasSger_64_typed(handle,m,n,alpha,x,incx,y,incy,AP,lda) end function function hipblasDger_64_typed(handle,m,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDger_64_typed type(c_ptr), value :: handle @@ -37977,7 +40830,6 @@ function hipblasDger_64_typed(handle,m,n,alpha,x,incx,y,incy,AP,lda) end function function hipblasCgeru_64_typed(handle,m,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeru_64_typed type(c_ptr), value :: handle @@ -37995,7 +40847,6 @@ function hipblasCgeru_64_typed(handle,m,n,alpha,x,incx,y,incy,AP,lda) end function function hipblasCgerc_64_typed(handle,m,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgerc_64_typed type(c_ptr), value :: handle @@ -38013,7 +40864,6 @@ function hipblasCgerc_64_typed(handle,m,n,alpha,x,incx,y,incy,AP,lda) end function function hipblasZgeru_64_typed(handle,m,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeru_64_typed type(c_ptr), value :: handle @@ -38031,7 +40881,6 @@ function hipblasZgeru_64_typed(handle,m,n,alpha,x,incx,y,incy,AP,lda) end function function hipblasZgerc_64_typed(handle,m,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgerc_64_typed type(c_ptr), value :: handle @@ -38049,7 +40898,6 @@ function hipblasZgerc_64_typed(handle,m,n,alpha,x,incx,y,incy,AP,lda) end function function hipblasSgerBatched_typed(handle,m,n,alpha,x,incx,y,incy,AP,lda,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgerBatched_typed type(c_ptr), value :: handle @@ -38069,7 +40917,6 @@ function hipblasSgerBatched_typed(handle,m,n,alpha,x,incx,y,incy,AP,lda,batchCou end function function hipblasDgerBatched_typed(handle,m,n,alpha,x,incx,y,incy,AP,lda,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgerBatched_typed type(c_ptr), value :: handle @@ -38089,7 +40936,6 @@ function hipblasDgerBatched_typed(handle,m,n,alpha,x,incx,y,incy,AP,lda,batchCou end function function hipblasCgeruBatched_typed(handle,m,n,alpha,x,incx,y,incy,AP,lda,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeruBatched_typed type(c_ptr), value :: handle @@ -38109,7 +40955,6 @@ function hipblasCgeruBatched_typed(handle,m,n,alpha,x,incx,y,incy,AP,lda,batchCo end function function hipblasCgercBatched_typed(handle,m,n,alpha,x,incx,y,incy,AP,lda,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgercBatched_typed type(c_ptr), value :: handle @@ -38129,7 +40974,6 @@ function hipblasCgercBatched_typed(handle,m,n,alpha,x,incx,y,incy,AP,lda,batchCo end function function hipblasZgeruBatched_typed(handle,m,n,alpha,x,incx,y,incy,AP,lda,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeruBatched_typed type(c_ptr), value :: handle @@ -38149,7 +40993,6 @@ function hipblasZgeruBatched_typed(handle,m,n,alpha,x,incx,y,incy,AP,lda,batchCo end function function hipblasZgercBatched_typed(handle,m,n,alpha,x,incx,y,incy,AP,lda,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgercBatched_typed type(c_ptr), value :: handle @@ -38169,7 +41012,6 @@ function hipblasZgercBatched_typed(handle,m,n,alpha,x,incx,y,incy,AP,lda,batchCo end function function hipblasSgerBatched_64_typed(handle,m,n,alpha,x,incx,y,incy,AP,lda,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgerBatched_64_typed type(c_ptr), value :: handle @@ -38189,7 +41031,6 @@ function hipblasSgerBatched_64_typed(handle,m,n,alpha,x,incx,y,incy,AP,lda,batch end function function hipblasDgerBatched_64_typed(handle,m,n,alpha,x,incx,y,incy,AP,lda,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgerBatched_64_typed type(c_ptr), value :: handle @@ -38209,7 +41050,6 @@ function hipblasDgerBatched_64_typed(handle,m,n,alpha,x,incx,y,incy,AP,lda,batch end function function hipblasCgeruBatched_64_typed(handle,m,n,alpha,x,incx,y,incy,AP,lda,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeruBatched_64_typed type(c_ptr), value :: handle @@ -38229,7 +41069,6 @@ function hipblasCgeruBatched_64_typed(handle,m,n,alpha,x,incx,y,incy,AP,lda,batc end function function hipblasCgercBatched_64_typed(handle,m,n,alpha,x,incx,y,incy,AP,lda,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgercBatched_64_typed type(c_ptr), value :: handle @@ -38249,7 +41088,6 @@ function hipblasCgercBatched_64_typed(handle,m,n,alpha,x,incx,y,incy,AP,lda,batc end function function hipblasZgeruBatched_64_typed(handle,m,n,alpha,x,incx,y,incy,AP,lda,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeruBatched_64_typed type(c_ptr), value :: handle @@ -38269,7 +41107,6 @@ function hipblasZgeruBatched_64_typed(handle,m,n,alpha,x,incx,y,incy,AP,lda,batc end function function hipblasZgercBatched_64_typed(handle,m,n,alpha,x,incx,y,incy,AP,lda,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgercBatched_64_typed type(c_ptr), value :: handle @@ -38290,7 +41127,6 @@ function hipblasZgercBatched_64_typed(handle,m,n,alpha,x,incx,y,incy,AP,lda,batc function hipblasSgerStridedBatched_typed(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP, & lda,strideA,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgerStridedBatched_typed type(c_ptr), value :: handle @@ -38314,7 +41150,6 @@ function hipblasSgerStridedBatched_typed(handle,m,n,alpha,x,incx,stridex,y,incy, function hipblasDgerStridedBatched_typed(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP, & lda,strideA,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgerStridedBatched_typed type(c_ptr), value :: handle @@ -38338,7 +41173,6 @@ function hipblasDgerStridedBatched_typed(handle,m,n,alpha,x,incx,stridex,y,incy, function hipblasCgeruStridedBatched_typed(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP, & lda,strideA,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeruStridedBatched_typed type(c_ptr), value :: handle @@ -38362,7 +41196,6 @@ function hipblasCgeruStridedBatched_typed(handle,m,n,alpha,x,incx,stridex,y,incy function hipblasCgercStridedBatched_typed(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP, & lda,strideA,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgercStridedBatched_typed type(c_ptr), value :: handle @@ -38386,7 +41219,6 @@ function hipblasCgercStridedBatched_typed(handle,m,n,alpha,x,incx,stridex,y,incy function hipblasZgeruStridedBatched_typed(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP, & lda,strideA,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeruStridedBatched_typed type(c_ptr), value :: handle @@ -38410,7 +41242,6 @@ function hipblasZgeruStridedBatched_typed(handle,m,n,alpha,x,incx,stridex,y,incy function hipblasZgercStridedBatched_typed(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP, & lda,strideA,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgercStridedBatched_typed type(c_ptr), value :: handle @@ -38434,7 +41265,6 @@ function hipblasZgercStridedBatched_typed(handle,m,n,alpha,x,incx,stridex,y,incy function hipblasSgerStridedBatched_64_typed(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP, & lda,strideA,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgerStridedBatched_64_typed type(c_ptr), value :: handle @@ -38458,7 +41288,6 @@ function hipblasSgerStridedBatched_64_typed(handle,m,n,alpha,x,incx,stridex,y,in function hipblasDgerStridedBatched_64_typed(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP, & lda,strideA,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgerStridedBatched_64_typed type(c_ptr), value :: handle @@ -38482,7 +41311,6 @@ function hipblasDgerStridedBatched_64_typed(handle,m,n,alpha,x,incx,stridex,y,in function hipblasCgeruStridedBatched_64_typed(handle,m,n,alpha,x,incx,stridex,y,incy,stridey, & AP,lda,strideA,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeruStridedBatched_64_typed type(c_ptr), value :: handle @@ -38506,7 +41334,6 @@ function hipblasCgeruStridedBatched_64_typed(handle,m,n,alpha,x,incx,stridex,y,i function hipblasCgercStridedBatched_64_typed(handle,m,n,alpha,x,incx,stridex,y,incy,stridey, & AP,lda,strideA,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgercStridedBatched_64_typed type(c_ptr), value :: handle @@ -38530,7 +41357,6 @@ function hipblasCgercStridedBatched_64_typed(handle,m,n,alpha,x,incx,stridex,y,i function hipblasZgeruStridedBatched_64_typed(handle,m,n,alpha,x,incx,stridex,y,incy,stridey, & AP,lda,strideA,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeruStridedBatched_64_typed type(c_ptr), value :: handle @@ -38554,7 +41380,6 @@ function hipblasZgeruStridedBatched_64_typed(handle,m,n,alpha,x,incx,stridex,y,i function hipblasZgercStridedBatched_64_typed(handle,m,n,alpha,x,incx,stridex,y,incy,stridey, & AP,lda,strideA,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgercStridedBatched_64_typed type(c_ptr), value :: handle @@ -38577,7 +41402,6 @@ function hipblasZgercStridedBatched_64_typed(handle,m,n,alpha,x,incx,stridex,y,i end function function hipblasChbmv_typed(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmv_typed type(c_ptr), value :: handle @@ -38598,7 +41422,6 @@ function hipblasChbmv_typed(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) end function function hipblasZhbmv_typed(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmv_typed type(c_ptr), value :: handle @@ -38619,7 +41442,6 @@ function hipblasZhbmv_typed(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) end function function hipblasChbmv_64_typed(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmv_64_typed type(c_ptr), value :: handle @@ -38640,7 +41462,6 @@ function hipblasChbmv_64_typed(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) end function function hipblasZhbmv_64_typed(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmv_64_typed type(c_ptr), value :: handle @@ -38661,7 +41482,6 @@ function hipblasZhbmv_64_typed(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) end function function hipblasChbmvBatched_typed(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmvBatched_typed type(c_ptr), value :: handle @@ -38683,7 +41503,6 @@ function hipblasChbmvBatched_typed(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,in end function function hipblasZhbmvBatched_typed(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmvBatched_typed type(c_ptr), value :: handle @@ -38706,7 +41525,6 @@ function hipblasZhbmvBatched_typed(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,in function hipblasChbmvBatched_64_typed(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmvBatched_64_typed type(c_ptr), value :: handle @@ -38729,7 +41547,6 @@ function hipblasChbmvBatched_64_typed(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y function hipblasZhbmvBatched_64_typed(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmvBatched_64_typed type(c_ptr), value :: handle @@ -38752,7 +41569,6 @@ function hipblasZhbmvBatched_64_typed(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y function hipblasChbmvStridedBatched_typed(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx,stridex, & beta,y,incy,stridey,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmvStridedBatched_typed type(c_ptr), value :: handle @@ -38778,7 +41594,6 @@ function hipblasChbmvStridedBatched_typed(handle,uplo,n,k,alpha,AP,lda,strideA,x function hipblasZhbmvStridedBatched_typed(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx,stridex, & beta,y,incy,stridey,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmvStridedBatched_typed type(c_ptr), value :: handle @@ -38804,7 +41619,6 @@ function hipblasZhbmvStridedBatched_typed(handle,uplo,n,k,alpha,AP,lda,strideA,x function hipblasChbmvStridedBatched_64_typed(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmvStridedBatched_64_typed type(c_ptr), value :: handle @@ -38830,7 +41644,6 @@ function hipblasChbmvStridedBatched_64_typed(handle,uplo,n,k,alpha,AP,lda,stride function hipblasZhbmvStridedBatched_64_typed(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmvStridedBatched_64_typed type(c_ptr), value :: handle @@ -38855,7 +41668,6 @@ function hipblasZhbmvStridedBatched_64_typed(handle,uplo,n,k,alpha,AP,lda,stride end function function hipblasChemv_typed(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemv_typed type(c_ptr), value :: handle @@ -38875,7 +41687,6 @@ function hipblasChemv_typed(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) end function function hipblasZhemv_typed(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemv_typed type(c_ptr), value :: handle @@ -38895,7 +41706,6 @@ function hipblasZhemv_typed(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) end function function hipblasChemv_64_typed(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemv_64_typed type(c_ptr), value :: handle @@ -38915,7 +41725,6 @@ function hipblasChemv_64_typed(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) end function function hipblasZhemv_64_typed(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemv_64_typed type(c_ptr), value :: handle @@ -38935,7 +41744,6 @@ function hipblasZhemv_64_typed(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) end function function hipblasChemvBatched_typed(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemvBatched_typed type(c_ptr), value :: handle @@ -38956,7 +41764,6 @@ function hipblasChemvBatched_typed(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy end function function hipblasZhemvBatched_typed(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemvBatched_typed type(c_ptr), value :: handle @@ -38977,7 +41784,6 @@ function hipblasZhemvBatched_typed(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy end function function hipblasChemvBatched_64_typed(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemvBatched_64_typed type(c_ptr), value :: handle @@ -38998,7 +41804,6 @@ function hipblasChemvBatched_64_typed(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,i end function function hipblasZhemvBatched_64_typed(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemvBatched_64_typed type(c_ptr), value :: handle @@ -39020,7 +41825,6 @@ function hipblasZhemvBatched_64_typed(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,i function hipblasChemvStridedBatched_typed(handle,uplo,n,alpha,AP,lda,strideA,x,incx,stridex, & beta,y,incy,stridey,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemvStridedBatched_typed type(c_ptr), value :: handle @@ -39045,7 +41849,6 @@ function hipblasChemvStridedBatched_typed(handle,uplo,n,alpha,AP,lda,strideA,x,i function hipblasZhemvStridedBatched_typed(handle,uplo,n,alpha,AP,lda,strideA,x,incx,stridex, & beta,y,incy,stridey,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemvStridedBatched_typed type(c_ptr), value :: handle @@ -39070,7 +41873,6 @@ function hipblasZhemvStridedBatched_typed(handle,uplo,n,alpha,AP,lda,strideA,x,i function hipblasChemvStridedBatched_64_typed(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemvStridedBatched_64_typed type(c_ptr), value :: handle @@ -39095,7 +41897,6 @@ function hipblasChemvStridedBatched_64_typed(handle,uplo,n,alpha,AP,lda,strideA, function hipblasZhemvStridedBatched_64_typed(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemvStridedBatched_64_typed type(c_ptr), value :: handle @@ -39119,7 +41920,6 @@ function hipblasZhemvStridedBatched_64_typed(handle,uplo,n,alpha,AP,lda,strideA, end function function hipblasCher_typed(handle,uplo,n,alpha,x,incx,AP,lda) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher_typed type(c_ptr), value :: handle @@ -39135,7 +41935,6 @@ function hipblasCher_typed(handle,uplo,n,alpha,x,incx,AP,lda) end function function hipblasZher_typed(handle,uplo,n,alpha,x,incx,AP,lda) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher_typed type(c_ptr), value :: handle @@ -39151,7 +41950,6 @@ function hipblasZher_typed(handle,uplo,n,alpha,x,incx,AP,lda) end function function hipblasCher_64_typed(handle,uplo,n,alpha,x,incx,AP,lda) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher_64_typed type(c_ptr), value :: handle @@ -39167,7 +41965,6 @@ function hipblasCher_64_typed(handle,uplo,n,alpha,x,incx,AP,lda) end function function hipblasZher_64_typed(handle,uplo,n,alpha,x,incx,AP,lda) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher_64_typed type(c_ptr), value :: handle @@ -39183,7 +41980,6 @@ function hipblasZher_64_typed(handle,uplo,n,alpha,x,incx,AP,lda) end function function hipblasCherBatched_typed(handle,uplo,n,alpha,x,incx,AP,lda,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherBatched_typed type(c_ptr), value :: handle @@ -39201,7 +41997,6 @@ function hipblasCherBatched_typed(handle,uplo,n,alpha,x,incx,AP,lda,batchCount) end function function hipblasZherBatched_typed(handle,uplo,n,alpha,x,incx,AP,lda,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherBatched_typed type(c_ptr), value :: handle @@ -39219,7 +42014,6 @@ function hipblasZherBatched_typed(handle,uplo,n,alpha,x,incx,AP,lda,batchCount) end function function hipblasCherBatched_64_typed(handle,uplo,n,alpha,x,incx,AP,lda,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherBatched_64_typed type(c_ptr), value :: handle @@ -39237,7 +42031,6 @@ function hipblasCherBatched_64_typed(handle,uplo,n,alpha,x,incx,AP,lda,batchCoun end function function hipblasZherBatched_64_typed(handle,uplo,n,alpha,x,incx,AP,lda,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherBatched_64_typed type(c_ptr), value :: handle @@ -39256,7 +42049,6 @@ function hipblasZherBatched_64_typed(handle,uplo,n,alpha,x,incx,AP,lda,batchCoun function hipblasCherStridedBatched_typed(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherStridedBatched_typed type(c_ptr), value :: handle @@ -39277,7 +42069,6 @@ function hipblasCherStridedBatched_typed(handle,uplo,n,alpha,x,incx,stridex,AP,l function hipblasZherStridedBatched_typed(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherStridedBatched_typed type(c_ptr), value :: handle @@ -39298,7 +42089,6 @@ function hipblasZherStridedBatched_typed(handle,uplo,n,alpha,x,incx,stridex,AP,l function hipblasCherStridedBatched_64_typed(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherStridedBatched_64_typed type(c_ptr), value :: handle @@ -39319,7 +42109,6 @@ function hipblasCherStridedBatched_64_typed(handle,uplo,n,alpha,x,incx,stridex,A function hipblasZherStridedBatched_64_typed(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherStridedBatched_64_typed type(c_ptr), value :: handle @@ -39339,7 +42128,6 @@ function hipblasZherStridedBatched_64_typed(handle,uplo,n,alpha,x,incx,stridex,A end function function hipblasCher2_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2_typed type(c_ptr), value :: handle @@ -39357,7 +42145,6 @@ function hipblasCher2_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) end function function hipblasZher2_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2_typed type(c_ptr), value :: handle @@ -39375,7 +42162,6 @@ function hipblasZher2_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) end function function hipblasCher2_64_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2_64_typed type(c_ptr), value :: handle @@ -39393,7 +42179,6 @@ function hipblasCher2_64_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) end function function hipblasZher2_64_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2_64_typed type(c_ptr), value :: handle @@ -39411,7 +42196,6 @@ function hipblasZher2_64_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) end function function hipblasCher2Batched_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,lda,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2Batched_typed type(c_ptr), value :: handle @@ -39431,7 +42215,6 @@ function hipblasCher2Batched_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,lda,batc end function function hipblasZher2Batched_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,lda,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2Batched_typed type(c_ptr), value :: handle @@ -39451,7 +42234,6 @@ function hipblasZher2Batched_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,lda,batc end function function hipblasCher2Batched_64_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,lda,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2Batched_64_typed type(c_ptr), value :: handle @@ -39471,7 +42253,6 @@ function hipblasCher2Batched_64_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,lda,b end function function hipblasZher2Batched_64_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,lda,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2Batched_64_typed type(c_ptr), value :: handle @@ -39492,7 +42273,6 @@ function hipblasZher2Batched_64_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,lda,b function hipblasCher2StridedBatched_typed(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & AP,lda,strideA,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2StridedBatched_typed type(c_ptr), value :: handle @@ -39516,7 +42296,6 @@ function hipblasCher2StridedBatched_typed(handle,uplo,n,alpha,x,incx,stridex,y,i function hipblasZher2StridedBatched_typed(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & AP,lda,strideA,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2StridedBatched_typed type(c_ptr), value :: handle @@ -39540,7 +42319,6 @@ function hipblasZher2StridedBatched_typed(handle,uplo,n,alpha,x,incx,stridex,y,i function hipblasCher2StridedBatched_64_typed(handle,uplo,n,alpha,x,incx,stridex,y,incy, & stridey,AP,lda,strideA,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2StridedBatched_64_typed type(c_ptr), value :: handle @@ -39564,7 +42342,6 @@ function hipblasCher2StridedBatched_64_typed(handle,uplo,n,alpha,x,incx,stridex, function hipblasZher2StridedBatched_64_typed(handle,uplo,n,alpha,x,incx,stridex,y,incy, & stridey,AP,lda,strideA,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2StridedBatched_64_typed type(c_ptr), value :: handle @@ -39587,7 +42364,6 @@ function hipblasZher2StridedBatched_64_typed(handle,uplo,n,alpha,x,incx,stridex, end function function hipblasChpmv_typed(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmv_typed type(c_ptr), value :: handle @@ -39605,7 +42381,6 @@ function hipblasChpmv_typed(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) end function function hipblasZhpmv_typed(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmv_typed type(c_ptr), value :: handle @@ -39623,7 +42398,6 @@ function hipblasZhpmv_typed(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) end function function hipblasChpmv_64_typed(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmv_64_typed type(c_ptr), value :: handle @@ -39642,7 +42416,6 @@ function hipblasChpmv_64_typed(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) end function function hipblasZhpmv_64_typed(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmv_64_typed type(c_ptr), value :: handle @@ -39661,7 +42434,6 @@ function hipblasZhpmv_64_typed(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) end function function hipblasChpmvBatched_typed(handle,uplo,n,alpha,AP,x,incx,beta,y,incy,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmvBatched_typed type(c_ptr), value :: handle @@ -39681,7 +42453,6 @@ function hipblasChpmvBatched_typed(handle,uplo,n,alpha,AP,x,incx,beta,y,incy,bat end function function hipblasZhpmvBatched_typed(handle,uplo,n,alpha,AP,x,incx,beta,y,incy,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmvBatched_typed type(c_ptr), value :: handle @@ -39701,7 +42472,6 @@ function hipblasZhpmvBatched_typed(handle,uplo,n,alpha,AP,x,incx,beta,y,incy,bat end function function hipblasChpmvBatched_64_typed(handle,uplo,n,alpha,AP,x,incx,beta,y,incy,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmvBatched_64_typed type(c_ptr), value :: handle @@ -39721,7 +42491,6 @@ function hipblasChpmvBatched_64_typed(handle,uplo,n,alpha,AP,x,incx,beta,y,incy, end function function hipblasZhpmvBatched_64_typed(handle,uplo,n,alpha,AP,x,incx,beta,y,incy,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmvBatched_64_typed type(c_ptr), value :: handle @@ -39742,7 +42511,6 @@ function hipblasZhpmvBatched_64_typed(handle,uplo,n,alpha,AP,x,incx,beta,y,incy, function hipblasChpmvStridedBatched_typed(handle,uplo,n,alpha,AP,strideA,x,incx,stridex,beta, & y,incy,stridey,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmvStridedBatched_typed type(c_ptr), value :: handle @@ -39766,7 +42534,6 @@ function hipblasChpmvStridedBatched_typed(handle,uplo,n,alpha,AP,strideA,x,incx, function hipblasZhpmvStridedBatched_typed(handle,uplo,n,alpha,AP,strideA,x,incx,stridex,beta, & y,incy,stridey,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmvStridedBatched_typed type(c_ptr), value :: handle @@ -39790,7 +42557,6 @@ function hipblasZhpmvStridedBatched_typed(handle,uplo,n,alpha,AP,strideA,x,incx, function hipblasChpmvStridedBatched_64_typed(handle,uplo,n,alpha,AP,strideA,x,incx,stridex, & beta,y,incy,stridey,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmvStridedBatched_64_typed type(c_ptr), value :: handle @@ -39814,7 +42580,6 @@ function hipblasChpmvStridedBatched_64_typed(handle,uplo,n,alpha,AP,strideA,x,in function hipblasZhpmvStridedBatched_64_typed(handle,uplo,n,alpha,AP,strideA,x,incx,stridex, & beta,y,incy,stridey,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmvStridedBatched_64_typed type(c_ptr), value :: handle @@ -39837,7 +42602,6 @@ function hipblasZhpmvStridedBatched_64_typed(handle,uplo,n,alpha,AP,strideA,x,in end function function hipblasChpr_typed(handle,uplo,n,alpha,x,incx,AP) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr_typed type(c_ptr), value :: handle @@ -39852,7 +42616,6 @@ function hipblasChpr_typed(handle,uplo,n,alpha,x,incx,AP) end function function hipblasZhpr_typed(handle,uplo,n,alpha,x,incx,AP) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr_typed type(c_ptr), value :: handle @@ -39867,7 +42630,6 @@ function hipblasZhpr_typed(handle,uplo,n,alpha,x,incx,AP) end function function hipblasChpr_64_typed(handle,uplo,n,alpha,x,incx,AP) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr_64_typed type(c_ptr), value :: handle @@ -39882,7 +42644,6 @@ function hipblasChpr_64_typed(handle,uplo,n,alpha,x,incx,AP) end function function hipblasZhpr_64_typed(handle,uplo,n,alpha,x,incx,AP) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr_64_typed type(c_ptr), value :: handle @@ -39897,7 +42658,6 @@ function hipblasZhpr_64_typed(handle,uplo,n,alpha,x,incx,AP) end function function hipblasChprBatched_typed(handle,uplo,n,alpha,x,incx,AP,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChprBatched_typed type(c_ptr), value :: handle @@ -39914,7 +42674,6 @@ function hipblasChprBatched_typed(handle,uplo,n,alpha,x,incx,AP,batchCount) end function function hipblasZhprBatched_typed(handle,uplo,n,alpha,x,incx,AP,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhprBatched_typed type(c_ptr), value :: handle @@ -39931,7 +42690,6 @@ function hipblasZhprBatched_typed(handle,uplo,n,alpha,x,incx,AP,batchCount) end function function hipblasChprBatched_64_typed(handle,uplo,n,alpha,x,incx,AP,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChprBatched_64_typed type(c_ptr), value :: handle @@ -39948,7 +42706,6 @@ function hipblasChprBatched_64_typed(handle,uplo,n,alpha,x,incx,AP,batchCount) end function function hipblasZhprBatched_64_typed(handle,uplo,n,alpha,x,incx,AP,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhprBatched_64_typed type(c_ptr), value :: handle @@ -39966,7 +42723,6 @@ function hipblasZhprBatched_64_typed(handle,uplo,n,alpha,x,incx,AP,batchCount) function hipblasChprStridedBatched_typed(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChprStridedBatched_typed type(c_ptr), value :: handle @@ -39986,7 +42742,6 @@ function hipblasChprStridedBatched_typed(handle,uplo,n,alpha,x,incx,stridex,AP,s function hipblasZhprStridedBatched_typed(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhprStridedBatched_typed type(c_ptr), value :: handle @@ -40006,7 +42761,6 @@ function hipblasZhprStridedBatched_typed(handle,uplo,n,alpha,x,incx,stridex,AP,s function hipblasChprStridedBatched_64_typed(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChprStridedBatched_64_typed type(c_ptr), value :: handle @@ -40026,7 +42780,6 @@ function hipblasChprStridedBatched_64_typed(handle,uplo,n,alpha,x,incx,stridex,A function hipblasZhprStridedBatched_64_typed(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhprStridedBatched_64_typed type(c_ptr), value :: handle @@ -40045,7 +42798,6 @@ function hipblasZhprStridedBatched_64_typed(handle,uplo,n,alpha,x,incx,stridex,A end function function hipblasChpr2_typed(handle,uplo,n,alpha,x,incx,y,incy,AP) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2_typed type(c_ptr), value :: handle @@ -40062,7 +42814,6 @@ function hipblasChpr2_typed(handle,uplo,n,alpha,x,incx,y,incy,AP) end function function hipblasZhpr2_typed(handle,uplo,n,alpha,x,incx,y,incy,AP) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2_typed type(c_ptr), value :: handle @@ -40079,7 +42830,6 @@ function hipblasZhpr2_typed(handle,uplo,n,alpha,x,incx,y,incy,AP) end function function hipblasChpr2_64_typed(handle,uplo,n,alpha,x,incx,y,incy,AP) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2_64_typed type(c_ptr), value :: handle @@ -40096,7 +42846,6 @@ function hipblasChpr2_64_typed(handle,uplo,n,alpha,x,incx,y,incy,AP) end function function hipblasZhpr2_64_typed(handle,uplo,n,alpha,x,incx,y,incy,AP) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2_64_typed type(c_ptr), value :: handle @@ -40113,7 +42862,6 @@ function hipblasZhpr2_64_typed(handle,uplo,n,alpha,x,incx,y,incy,AP) end function function hipblasChpr2Batched_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2Batched_typed type(c_ptr), value :: handle @@ -40132,7 +42880,6 @@ function hipblasChpr2Batched_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,batchCou end function function hipblasZhpr2Batched_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2Batched_typed type(c_ptr), value :: handle @@ -40151,7 +42898,6 @@ function hipblasZhpr2Batched_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,batchCou end function function hipblasChpr2Batched_64_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2Batched_64_typed type(c_ptr), value :: handle @@ -40170,7 +42916,6 @@ function hipblasChpr2Batched_64_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,batch end function function hipblasZhpr2Batched_64_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2Batched_64_typed type(c_ptr), value :: handle @@ -40190,7 +42935,6 @@ function hipblasZhpr2Batched_64_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,batch function hipblasChpr2StridedBatched_typed(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & AP,strideA,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2StridedBatched_typed type(c_ptr), value :: handle @@ -40213,7 +42957,6 @@ function hipblasChpr2StridedBatched_typed(handle,uplo,n,alpha,x,incx,stridex,y,i function hipblasZhpr2StridedBatched_typed(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & AP,strideA,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2StridedBatched_typed type(c_ptr), value :: handle @@ -40236,7 +42979,6 @@ function hipblasZhpr2StridedBatched_typed(handle,uplo,n,alpha,x,incx,stridex,y,i function hipblasChpr2StridedBatched_64_typed(handle,uplo,n,alpha,x,incx,stridex,y,incy, & stridey,AP,strideA,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2StridedBatched_64_typed type(c_ptr), value :: handle @@ -40259,7 +43001,6 @@ function hipblasChpr2StridedBatched_64_typed(handle,uplo,n,alpha,x,incx,stridex, function hipblasZhpr2StridedBatched_64_typed(handle,uplo,n,alpha,x,incx,stridex,y,incy, & stridey,AP,strideA,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2StridedBatched_64_typed type(c_ptr), value :: handle @@ -40281,7 +43022,6 @@ function hipblasZhpr2StridedBatched_64_typed(handle,uplo,n,alpha,x,incx,stridex, end function function hipblasSsbmv_typed(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmv_typed type(c_ptr), value :: handle @@ -40302,7 +43042,6 @@ function hipblasSsbmv_typed(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) end function function hipblasDsbmv_typed(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmv_typed type(c_ptr), value :: handle @@ -40323,7 +43062,6 @@ function hipblasDsbmv_typed(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) end function function hipblasSsbmv_64_typed(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmv_64_typed type(c_ptr), value :: handle @@ -40344,7 +43082,6 @@ function hipblasSsbmv_64_typed(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) end function function hipblasDsbmv_64_typed(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmv_64_typed type(c_ptr), value :: handle @@ -40365,7 +43102,6 @@ function hipblasDsbmv_64_typed(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) end function function hipblasSsbmvBatched_typed(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmvBatched_typed type(c_ptr), value :: handle @@ -40387,7 +43123,6 @@ function hipblasSsbmvBatched_typed(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,in end function function hipblasDsbmvBatched_typed(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmvBatched_typed type(c_ptr), value :: handle @@ -40410,7 +43145,6 @@ function hipblasDsbmvBatched_typed(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,in function hipblasSsbmvBatched_64_typed(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmvBatched_64_typed type(c_ptr), value :: handle @@ -40433,7 +43167,6 @@ function hipblasSsbmvBatched_64_typed(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y function hipblasDsbmvBatched_64_typed(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmvBatched_64_typed type(c_ptr), value :: handle @@ -40456,7 +43189,6 @@ function hipblasDsbmvBatched_64_typed(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y function hipblasSsbmvStridedBatched_typed(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx,stridex, & beta,y,incy,stridey,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmvStridedBatched_typed type(c_ptr), value :: handle @@ -40482,7 +43214,6 @@ function hipblasSsbmvStridedBatched_typed(handle,uplo,n,k,alpha,AP,lda,strideA,x function hipblasDsbmvStridedBatched_typed(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx,stridex, & beta,y,incy,stridey,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmvStridedBatched_typed type(c_ptr), value :: handle @@ -40508,7 +43239,6 @@ function hipblasDsbmvStridedBatched_typed(handle,uplo,n,k,alpha,AP,lda,strideA,x function hipblasSsbmvStridedBatched_64_typed(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmvStridedBatched_64_typed type(c_ptr), value :: handle @@ -40534,7 +43264,6 @@ function hipblasSsbmvStridedBatched_64_typed(handle,uplo,n,k,alpha,AP,lda,stride function hipblasDsbmvStridedBatched_64_typed(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmvStridedBatched_64_typed type(c_ptr), value :: handle @@ -40559,7 +43288,6 @@ function hipblasDsbmvStridedBatched_64_typed(handle,uplo,n,k,alpha,AP,lda,stride end function function hipblasSspmv_typed(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmv_typed type(c_ptr), value :: handle @@ -40577,7 +43305,6 @@ function hipblasSspmv_typed(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) end function function hipblasDspmv_typed(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmv_typed type(c_ptr), value :: handle @@ -40595,7 +43322,6 @@ function hipblasDspmv_typed(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) end function function hipblasSspmv_64_typed(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmv_64_typed type(c_ptr), value :: handle @@ -40614,7 +43340,6 @@ function hipblasSspmv_64_typed(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) end function function hipblasDspmv_64_typed(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmv_64_typed type(c_ptr), value :: handle @@ -40633,7 +43358,6 @@ function hipblasDspmv_64_typed(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) end function function hipblasSspmvBatched_typed(handle,uplo,n,alpha,AP,x,incx,beta,y,incy,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmvBatched_typed type(c_ptr), value :: handle @@ -40653,7 +43377,6 @@ function hipblasSspmvBatched_typed(handle,uplo,n,alpha,AP,x,incx,beta,y,incy,bat end function function hipblasDspmvBatched_typed(handle,uplo,n,alpha,AP,x,incx,beta,y,incy,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmvBatched_typed type(c_ptr), value :: handle @@ -40673,7 +43396,6 @@ function hipblasDspmvBatched_typed(handle,uplo,n,alpha,AP,x,incx,beta,y,incy,bat end function function hipblasSspmvBatched_64_typed(handle,uplo,n,alpha,AP,x,incx,beta,y,incy,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmvBatched_64_typed type(c_ptr), value :: handle @@ -40693,7 +43415,6 @@ function hipblasSspmvBatched_64_typed(handle,uplo,n,alpha,AP,x,incx,beta,y,incy, end function function hipblasDspmvBatched_64_typed(handle,uplo,n,alpha,AP,x,incx,beta,y,incy,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmvBatched_64_typed type(c_ptr), value :: handle @@ -40714,7 +43435,6 @@ function hipblasDspmvBatched_64_typed(handle,uplo,n,alpha,AP,x,incx,beta,y,incy, function hipblasSspmvStridedBatched_typed(handle,uplo,n,alpha,AP,strideA,x,incx,stridex,beta, & y,incy,stridey,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmvStridedBatched_typed type(c_ptr), value :: handle @@ -40738,7 +43458,6 @@ function hipblasSspmvStridedBatched_typed(handle,uplo,n,alpha,AP,strideA,x,incx, function hipblasDspmvStridedBatched_typed(handle,uplo,n,alpha,AP,strideA,x,incx,stridex,beta, & y,incy,stridey,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmvStridedBatched_typed type(c_ptr), value :: handle @@ -40762,7 +43481,6 @@ function hipblasDspmvStridedBatched_typed(handle,uplo,n,alpha,AP,strideA,x,incx, function hipblasSspmvStridedBatched_64_typed(handle,uplo,n,alpha,AP,strideA,x,incx,stridex, & beta,y,incy,stridey,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmvStridedBatched_64_typed type(c_ptr), value :: handle @@ -40786,7 +43504,6 @@ function hipblasSspmvStridedBatched_64_typed(handle,uplo,n,alpha,AP,strideA,x,in function hipblasDspmvStridedBatched_64_typed(handle,uplo,n,alpha,AP,strideA,x,incx,stridex, & beta,y,incy,stridey,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmvStridedBatched_64_typed type(c_ptr), value :: handle @@ -40809,7 +43526,6 @@ function hipblasDspmvStridedBatched_64_typed(handle,uplo,n,alpha,AP,strideA,x,in end function function hipblasSspr_typed(handle,uplo,n,alpha,x,incx,AP) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr_typed type(c_ptr), value :: handle @@ -40824,7 +43540,6 @@ function hipblasSspr_typed(handle,uplo,n,alpha,x,incx,AP) end function function hipblasDspr_typed(handle,uplo,n,alpha,x,incx,AP) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr_typed type(c_ptr), value :: handle @@ -40839,7 +43554,6 @@ function hipblasDspr_typed(handle,uplo,n,alpha,x,incx,AP) end function function hipblasCspr_typed(handle,uplo,n,alpha,x,incx,AP) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCspr_typed type(c_ptr), value :: handle @@ -40854,7 +43568,6 @@ function hipblasCspr_typed(handle,uplo,n,alpha,x,incx,AP) end function function hipblasZspr_typed(handle,uplo,n,alpha,x,incx,AP) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZspr_typed type(c_ptr), value :: handle @@ -40869,7 +43582,6 @@ function hipblasZspr_typed(handle,uplo,n,alpha,x,incx,AP) end function function hipblasSspr_64_typed(handle,uplo,n,alpha,x,incx,AP) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr_64_typed type(c_ptr), value :: handle @@ -40884,7 +43596,6 @@ function hipblasSspr_64_typed(handle,uplo,n,alpha,x,incx,AP) end function function hipblasDspr_64_typed(handle,uplo,n,alpha,x,incx,AP) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr_64_typed type(c_ptr), value :: handle @@ -40899,7 +43610,6 @@ function hipblasDspr_64_typed(handle,uplo,n,alpha,x,incx,AP) end function function hipblasCspr_64_typed(handle,uplo,n,alpha,x,incx,AP) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCspr_64_typed type(c_ptr), value :: handle @@ -40914,7 +43624,6 @@ function hipblasCspr_64_typed(handle,uplo,n,alpha,x,incx,AP) end function function hipblasZspr_64_typed(handle,uplo,n,alpha,x,incx,AP) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZspr_64_typed type(c_ptr), value :: handle @@ -40929,7 +43638,6 @@ function hipblasZspr_64_typed(handle,uplo,n,alpha,x,incx,AP) end function function hipblasSsprBatched_typed(handle,uplo,n,alpha,x,incx,AP,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsprBatched_typed type(c_ptr), value :: handle @@ -40946,7 +43654,6 @@ function hipblasSsprBatched_typed(handle,uplo,n,alpha,x,incx,AP,batchCount) end function function hipblasDsprBatched_typed(handle,uplo,n,alpha,x,incx,AP,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsprBatched_typed type(c_ptr), value :: handle @@ -40963,7 +43670,6 @@ function hipblasDsprBatched_typed(handle,uplo,n,alpha,x,incx,AP,batchCount) end function function hipblasCsprBatched_typed(handle,uplo,n,alpha,x,incx,AP,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsprBatched_typed type(c_ptr), value :: handle @@ -40980,7 +43686,6 @@ function hipblasCsprBatched_typed(handle,uplo,n,alpha,x,incx,AP,batchCount) end function function hipblasZsprBatched_typed(handle,uplo,n,alpha,x,incx,AP,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsprBatched_typed type(c_ptr), value :: handle @@ -40997,7 +43702,6 @@ function hipblasZsprBatched_typed(handle,uplo,n,alpha,x,incx,AP,batchCount) end function function hipblasSsprBatched_64_typed(handle,uplo,n,alpha,x,incx,AP,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsprBatched_64_typed type(c_ptr), value :: handle @@ -41014,7 +43718,6 @@ function hipblasSsprBatched_64_typed(handle,uplo,n,alpha,x,incx,AP,batchCount) end function function hipblasDsprBatched_64_typed(handle,uplo,n,alpha,x,incx,AP,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsprBatched_64_typed type(c_ptr), value :: handle @@ -41031,7 +43734,6 @@ function hipblasDsprBatched_64_typed(handle,uplo,n,alpha,x,incx,AP,batchCount) end function function hipblasCsprBatched_64_typed(handle,uplo,n,alpha,x,incx,AP,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsprBatched_64_typed type(c_ptr), value :: handle @@ -41048,7 +43750,6 @@ function hipblasCsprBatched_64_typed(handle,uplo,n,alpha,x,incx,AP,batchCount) end function function hipblasZsprBatched_64_typed(handle,uplo,n,alpha,x,incx,AP,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsprBatched_64_typed type(c_ptr), value :: handle @@ -41066,7 +43767,6 @@ function hipblasZsprBatched_64_typed(handle,uplo,n,alpha,x,incx,AP,batchCount) function hipblasSsprStridedBatched_typed(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsprStridedBatched_typed type(c_ptr), value :: handle @@ -41086,7 +43786,6 @@ function hipblasSsprStridedBatched_typed(handle,uplo,n,alpha,x,incx,stridex,AP,s function hipblasDsprStridedBatched_typed(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsprStridedBatched_typed type(c_ptr), value :: handle @@ -41106,7 +43805,6 @@ function hipblasDsprStridedBatched_typed(handle,uplo,n,alpha,x,incx,stridex,AP,s function hipblasCsprStridedBatched_typed(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsprStridedBatched_typed type(c_ptr), value :: handle @@ -41126,7 +43824,6 @@ function hipblasCsprStridedBatched_typed(handle,uplo,n,alpha,x,incx,stridex,AP,s function hipblasZsprStridedBatched_typed(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsprStridedBatched_typed type(c_ptr), value :: handle @@ -41146,7 +43843,6 @@ function hipblasZsprStridedBatched_typed(handle,uplo,n,alpha,x,incx,stridex,AP,s function hipblasSsprStridedBatched_64_typed(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsprStridedBatched_64_typed type(c_ptr), value :: handle @@ -41166,7 +43862,6 @@ function hipblasSsprStridedBatched_64_typed(handle,uplo,n,alpha,x,incx,stridex,A function hipblasDsprStridedBatched_64_typed(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsprStridedBatched_64_typed type(c_ptr), value :: handle @@ -41186,7 +43881,6 @@ function hipblasDsprStridedBatched_64_typed(handle,uplo,n,alpha,x,incx,stridex,A function hipblasCsprStridedBatched_64_typed(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsprStridedBatched_64_typed type(c_ptr), value :: handle @@ -41206,7 +43900,6 @@ function hipblasCsprStridedBatched_64_typed(handle,uplo,n,alpha,x,incx,stridex,A function hipblasZsprStridedBatched_64_typed(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsprStridedBatched_64_typed type(c_ptr), value :: handle @@ -41225,7 +43918,6 @@ function hipblasZsprStridedBatched_64_typed(handle,uplo,n,alpha,x,incx,stridex,A end function function hipblasSspr2_typed(handle,uplo,n,alpha,x,incx,y,incy,AP) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2_typed type(c_ptr), value :: handle @@ -41242,7 +43934,6 @@ function hipblasSspr2_typed(handle,uplo,n,alpha,x,incx,y,incy,AP) end function function hipblasDspr2_typed(handle,uplo,n,alpha,x,incx,y,incy,AP) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2_typed type(c_ptr), value :: handle @@ -41259,7 +43950,6 @@ function hipblasDspr2_typed(handle,uplo,n,alpha,x,incx,y,incy,AP) end function function hipblasSspr2_64_typed(handle,uplo,n,alpha,x,incx,y,incy,AP) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2_64_typed type(c_ptr), value :: handle @@ -41276,7 +43966,6 @@ function hipblasSspr2_64_typed(handle,uplo,n,alpha,x,incx,y,incy,AP) end function function hipblasDspr2_64_typed(handle,uplo,n,alpha,x,incx,y,incy,AP) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2_64_typed type(c_ptr), value :: handle @@ -41293,7 +43982,6 @@ function hipblasDspr2_64_typed(handle,uplo,n,alpha,x,incx,y,incy,AP) end function function hipblasSspr2Batched_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2Batched_typed type(c_ptr), value :: handle @@ -41312,7 +44000,6 @@ function hipblasSspr2Batched_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,batchCou end function function hipblasDspr2Batched_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2Batched_typed type(c_ptr), value :: handle @@ -41331,7 +44018,6 @@ function hipblasDspr2Batched_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,batchCou end function function hipblasSspr2Batched_64_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2Batched_64_typed type(c_ptr), value :: handle @@ -41350,7 +44036,6 @@ function hipblasSspr2Batched_64_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,batch end function function hipblasDspr2Batched_64_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2Batched_64_typed type(c_ptr), value :: handle @@ -41370,7 +44055,6 @@ function hipblasDspr2Batched_64_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,batch function hipblasSspr2StridedBatched_typed(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & AP,strideA,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2StridedBatched_typed type(c_ptr), value :: handle @@ -41393,7 +44077,6 @@ function hipblasSspr2StridedBatched_typed(handle,uplo,n,alpha,x,incx,stridex,y,i function hipblasDspr2StridedBatched_typed(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & AP,strideA,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2StridedBatched_typed type(c_ptr), value :: handle @@ -41416,7 +44099,6 @@ function hipblasDspr2StridedBatched_typed(handle,uplo,n,alpha,x,incx,stridex,y,i function hipblasSspr2StridedBatched_64_typed(handle,uplo,n,alpha,x,incx,stridex,y,incy, & stridey,AP,strideA,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2StridedBatched_64_typed type(c_ptr), value :: handle @@ -41439,7 +44121,6 @@ function hipblasSspr2StridedBatched_64_typed(handle,uplo,n,alpha,x,incx,stridex, function hipblasDspr2StridedBatched_64_typed(handle,uplo,n,alpha,x,incx,stridex,y,incy, & stridey,AP,strideA,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2StridedBatched_64_typed type(c_ptr), value :: handle @@ -41461,7 +44142,6 @@ function hipblasDspr2StridedBatched_64_typed(handle,uplo,n,alpha,x,incx,stridex, end function function hipblasSsymv_typed(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymv_typed type(c_ptr), value :: handle @@ -41481,7 +44161,6 @@ function hipblasSsymv_typed(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) end function function hipblasDsymv_typed(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymv_typed type(c_ptr), value :: handle @@ -41501,7 +44180,6 @@ function hipblasDsymv_typed(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) end function function hipblasCsymv_typed(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymv_typed type(c_ptr), value :: handle @@ -41521,7 +44199,6 @@ function hipblasCsymv_typed(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) end function function hipblasZsymv_typed(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymv_typed type(c_ptr), value :: handle @@ -41541,7 +44218,6 @@ function hipblasZsymv_typed(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) end function function hipblasSsymv_64_typed(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymv_64_typed type(c_ptr), value :: handle @@ -41561,7 +44237,6 @@ function hipblasSsymv_64_typed(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) end function function hipblasDsymv_64_typed(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymv_64_typed type(c_ptr), value :: handle @@ -41581,7 +44256,6 @@ function hipblasDsymv_64_typed(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) end function function hipblasCsymv_64_typed(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymv_64_typed type(c_ptr), value :: handle @@ -41601,7 +44275,6 @@ function hipblasCsymv_64_typed(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) end function function hipblasZsymv_64_typed(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymv_64_typed type(c_ptr), value :: handle @@ -41621,7 +44294,6 @@ function hipblasZsymv_64_typed(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) end function function hipblasSsymvBatched_typed(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymvBatched_typed type(c_ptr), value :: handle @@ -41642,7 +44314,6 @@ function hipblasSsymvBatched_typed(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy end function function hipblasDsymvBatched_typed(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymvBatched_typed type(c_ptr), value :: handle @@ -41663,7 +44334,6 @@ function hipblasDsymvBatched_typed(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy end function function hipblasCsymvBatched_typed(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymvBatched_typed type(c_ptr), value :: handle @@ -41684,7 +44354,6 @@ function hipblasCsymvBatched_typed(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy end function function hipblasZsymvBatched_typed(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymvBatched_typed type(c_ptr), value :: handle @@ -41705,7 +44374,6 @@ function hipblasZsymvBatched_typed(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy end function function hipblasSsymvBatched_64_typed(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymvBatched_64_typed type(c_ptr), value :: handle @@ -41726,7 +44394,6 @@ function hipblasSsymvBatched_64_typed(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,i end function function hipblasDsymvBatched_64_typed(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymvBatched_64_typed type(c_ptr), value :: handle @@ -41747,7 +44414,6 @@ function hipblasDsymvBatched_64_typed(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,i end function function hipblasCsymvBatched_64_typed(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymvBatched_64_typed type(c_ptr), value :: handle @@ -41768,7 +44434,6 @@ function hipblasCsymvBatched_64_typed(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,i end function function hipblasZsymvBatched_64_typed(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymvBatched_64_typed type(c_ptr), value :: handle @@ -41790,7 +44455,6 @@ function hipblasZsymvBatched_64_typed(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,i function hipblasSsymvStridedBatched_typed(handle,uplo,n,alpha,AP,lda,strideA,x,incx,stridex, & beta,y,incy,stridey,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymvStridedBatched_typed type(c_ptr), value :: handle @@ -41815,7 +44479,6 @@ function hipblasSsymvStridedBatched_typed(handle,uplo,n,alpha,AP,lda,strideA,x,i function hipblasDsymvStridedBatched_typed(handle,uplo,n,alpha,AP,lda,strideA,x,incx,stridex, & beta,y,incy,stridey,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymvStridedBatched_typed type(c_ptr), value :: handle @@ -41840,7 +44503,6 @@ function hipblasDsymvStridedBatched_typed(handle,uplo,n,alpha,AP,lda,strideA,x,i function hipblasCsymvStridedBatched_typed(handle,uplo,n,alpha,AP,lda,strideA,x,incx,stridex, & beta,y,incy,stridey,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymvStridedBatched_typed type(c_ptr), value :: handle @@ -41865,7 +44527,6 @@ function hipblasCsymvStridedBatched_typed(handle,uplo,n,alpha,AP,lda,strideA,x,i function hipblasZsymvStridedBatched_typed(handle,uplo,n,alpha,AP,lda,strideA,x,incx,stridex, & beta,y,incy,stridey,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymvStridedBatched_typed type(c_ptr), value :: handle @@ -41890,7 +44551,6 @@ function hipblasZsymvStridedBatched_typed(handle,uplo,n,alpha,AP,lda,strideA,x,i function hipblasSsymvStridedBatched_64_typed(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymvStridedBatched_64_typed type(c_ptr), value :: handle @@ -41915,7 +44575,6 @@ function hipblasSsymvStridedBatched_64_typed(handle,uplo,n,alpha,AP,lda,strideA, function hipblasDsymvStridedBatched_64_typed(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymvStridedBatched_64_typed type(c_ptr), value :: handle @@ -41940,7 +44599,6 @@ function hipblasDsymvStridedBatched_64_typed(handle,uplo,n,alpha,AP,lda,strideA, function hipblasCsymvStridedBatched_64_typed(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymvStridedBatched_64_typed type(c_ptr), value :: handle @@ -41965,7 +44623,6 @@ function hipblasCsymvStridedBatched_64_typed(handle,uplo,n,alpha,AP,lda,strideA, function hipblasZsymvStridedBatched_64_typed(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymvStridedBatched_64_typed type(c_ptr), value :: handle @@ -41989,7 +44646,6 @@ function hipblasZsymvStridedBatched_64_typed(handle,uplo,n,alpha,AP,lda,strideA, end function function hipblasSsyr_typed(handle,uplo,n,alpha,x,incx,AP,lda) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr_typed type(c_ptr), value :: handle @@ -42005,7 +44661,6 @@ function hipblasSsyr_typed(handle,uplo,n,alpha,x,incx,AP,lda) end function function hipblasDsyr_typed(handle,uplo,n,alpha,x,incx,AP,lda) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr_typed type(c_ptr), value :: handle @@ -42021,7 +44676,6 @@ function hipblasDsyr_typed(handle,uplo,n,alpha,x,incx,AP,lda) end function function hipblasCsyr_typed(handle,uplo,n,alpha,x,incx,AP,lda) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr_typed type(c_ptr), value :: handle @@ -42037,7 +44691,6 @@ function hipblasCsyr_typed(handle,uplo,n,alpha,x,incx,AP,lda) end function function hipblasZsyr_typed(handle,uplo,n,alpha,x,incx,AP,lda) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr_typed type(c_ptr), value :: handle @@ -42053,7 +44706,6 @@ function hipblasZsyr_typed(handle,uplo,n,alpha,x,incx,AP,lda) end function function hipblasSsyr_64_typed(handle,uplo,n,alpha,x,incx,AP,lda) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr_64_typed type(c_ptr), value :: handle @@ -42069,7 +44721,6 @@ function hipblasSsyr_64_typed(handle,uplo,n,alpha,x,incx,AP,lda) end function function hipblasDsyr_64_typed(handle,uplo,n,alpha,x,incx,AP,lda) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr_64_typed type(c_ptr), value :: handle @@ -42085,7 +44736,6 @@ function hipblasDsyr_64_typed(handle,uplo,n,alpha,x,incx,AP,lda) end function function hipblasCsyr_64_typed(handle,uplo,n,alpha,x,incx,AP,lda) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr_64_typed type(c_ptr), value :: handle @@ -42101,7 +44751,6 @@ function hipblasCsyr_64_typed(handle,uplo,n,alpha,x,incx,AP,lda) end function function hipblasZsyr_64_typed(handle,uplo,n,alpha,x,incx,AP,lda) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr_64_typed type(c_ptr), value :: handle @@ -42117,7 +44766,6 @@ function hipblasZsyr_64_typed(handle,uplo,n,alpha,x,incx,AP,lda) end function function hipblasSsyrBatched_typed(handle,uplo,n,alpha,x,incx,AP,lda,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrBatched_typed type(c_ptr), value :: handle @@ -42135,7 +44783,6 @@ function hipblasSsyrBatched_typed(handle,uplo,n,alpha,x,incx,AP,lda,batchCount) end function function hipblasDsyrBatched_typed(handle,uplo,n,alpha,x,incx,AP,lda,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrBatched_typed type(c_ptr), value :: handle @@ -42153,7 +44800,6 @@ function hipblasDsyrBatched_typed(handle,uplo,n,alpha,x,incx,AP,lda,batchCount) end function function hipblasCsyrBatched_typed(handle,uplo,n,alpha,x,incx,AP,lda,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrBatched_typed type(c_ptr), value :: handle @@ -42171,7 +44817,6 @@ function hipblasCsyrBatched_typed(handle,uplo,n,alpha,x,incx,AP,lda,batchCount) end function function hipblasZsyrBatched_typed(handle,uplo,n,alpha,x,incx,AP,lda,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrBatched_typed type(c_ptr), value :: handle @@ -42189,7 +44834,6 @@ function hipblasZsyrBatched_typed(handle,uplo,n,alpha,x,incx,AP,lda,batchCount) end function function hipblasSsyrBatched_64_typed(handle,uplo,n,alpha,x,incx,AP,lda,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrBatched_64_typed type(c_ptr), value :: handle @@ -42207,7 +44851,6 @@ function hipblasSsyrBatched_64_typed(handle,uplo,n,alpha,x,incx,AP,lda,batchCoun end function function hipblasDsyrBatched_64_typed(handle,uplo,n,alpha,x,incx,AP,lda,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrBatched_64_typed type(c_ptr), value :: handle @@ -42225,7 +44868,6 @@ function hipblasDsyrBatched_64_typed(handle,uplo,n,alpha,x,incx,AP,lda,batchCoun end function function hipblasCsyrBatched_64_typed(handle,uplo,n,alpha,x,incx,AP,lda,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrBatched_64_typed type(c_ptr), value :: handle @@ -42243,7 +44885,6 @@ function hipblasCsyrBatched_64_typed(handle,uplo,n,alpha,x,incx,AP,lda,batchCoun end function function hipblasZsyrBatched_64_typed(handle,uplo,n,alpha,x,incx,AP,lda,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrBatched_64_typed type(c_ptr), value :: handle @@ -42262,7 +44903,6 @@ function hipblasZsyrBatched_64_typed(handle,uplo,n,alpha,x,incx,AP,lda,batchCoun function hipblasSsyrStridedBatched_typed(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrStridedBatched_typed type(c_ptr), value :: handle @@ -42283,7 +44923,6 @@ function hipblasSsyrStridedBatched_typed(handle,uplo,n,alpha,x,incx,stridex,AP,l function hipblasDsyrStridedBatched_typed(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrStridedBatched_typed type(c_ptr), value :: handle @@ -42304,7 +44943,6 @@ function hipblasDsyrStridedBatched_typed(handle,uplo,n,alpha,x,incx,stridex,AP,l function hipblasCsyrStridedBatched_typed(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrStridedBatched_typed type(c_ptr), value :: handle @@ -42325,7 +44963,6 @@ function hipblasCsyrStridedBatched_typed(handle,uplo,n,alpha,x,incx,stridex,AP,l function hipblasZsyrStridedBatched_typed(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrStridedBatched_typed type(c_ptr), value :: handle @@ -42346,7 +44983,6 @@ function hipblasZsyrStridedBatched_typed(handle,uplo,n,alpha,x,incx,stridex,AP,l function hipblasSsyrStridedBatched_64_typed(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrStridedBatched_64_typed type(c_ptr), value :: handle @@ -42367,7 +45003,6 @@ function hipblasSsyrStridedBatched_64_typed(handle,uplo,n,alpha,x,incx,stridex,A function hipblasDsyrStridedBatched_64_typed(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrStridedBatched_64_typed type(c_ptr), value :: handle @@ -42388,7 +45023,6 @@ function hipblasDsyrStridedBatched_64_typed(handle,uplo,n,alpha,x,incx,stridex,A function hipblasCsyrStridedBatched_64_typed(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrStridedBatched_64_typed type(c_ptr), value :: handle @@ -42409,7 +45043,6 @@ function hipblasCsyrStridedBatched_64_typed(handle,uplo,n,alpha,x,incx,stridex,A function hipblasZsyrStridedBatched_64_typed(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrStridedBatched_64_typed type(c_ptr), value :: handle @@ -42429,7 +45062,6 @@ function hipblasZsyrStridedBatched_64_typed(handle,uplo,n,alpha,x,incx,stridex,A end function function hipblasSsyr2_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2_typed type(c_ptr), value :: handle @@ -42447,7 +45079,6 @@ function hipblasSsyr2_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) end function function hipblasDsyr2_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2_typed type(c_ptr), value :: handle @@ -42465,7 +45096,6 @@ function hipblasDsyr2_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) end function function hipblasCsyr2_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2_typed type(c_ptr), value :: handle @@ -42483,7 +45113,6 @@ function hipblasCsyr2_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) end function function hipblasZsyr2_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2_typed type(c_ptr), value :: handle @@ -42501,7 +45130,6 @@ function hipblasZsyr2_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) end function function hipblasSsyr2_64_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2_64_typed type(c_ptr), value :: handle @@ -42519,7 +45147,6 @@ function hipblasSsyr2_64_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) end function function hipblasDsyr2_64_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2_64_typed type(c_ptr), value :: handle @@ -42537,7 +45164,6 @@ function hipblasDsyr2_64_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) end function function hipblasCsyr2_64_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2_64_typed type(c_ptr), value :: handle @@ -42555,7 +45181,6 @@ function hipblasCsyr2_64_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) end function function hipblasZsyr2_64_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2_64_typed type(c_ptr), value :: handle @@ -42573,7 +45198,6 @@ function hipblasZsyr2_64_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) end function function hipblasSsyr2Batched_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,lda,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2Batched_typed type(c_ptr), value :: handle @@ -42593,7 +45217,6 @@ function hipblasSsyr2Batched_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,lda,batc end function function hipblasDsyr2Batched_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,lda,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2Batched_typed type(c_ptr), value :: handle @@ -42613,7 +45236,6 @@ function hipblasDsyr2Batched_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,lda,batc end function function hipblasCsyr2Batched_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,lda,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2Batched_typed type(c_ptr), value :: handle @@ -42633,7 +45255,6 @@ function hipblasCsyr2Batched_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,lda,batc end function function hipblasZsyr2Batched_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,lda,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2Batched_typed type(c_ptr), value :: handle @@ -42653,7 +45274,6 @@ function hipblasZsyr2Batched_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,lda,batc end function function hipblasSsyr2Batched_64_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,lda,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2Batched_64_typed type(c_ptr), value :: handle @@ -42673,7 +45293,6 @@ function hipblasSsyr2Batched_64_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,lda,b end function function hipblasDsyr2Batched_64_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,lda,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2Batched_64_typed type(c_ptr), value :: handle @@ -42693,7 +45312,6 @@ function hipblasDsyr2Batched_64_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,lda,b end function function hipblasCsyr2Batched_64_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,lda,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2Batched_64_typed type(c_ptr), value :: handle @@ -42713,7 +45331,6 @@ function hipblasCsyr2Batched_64_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,lda,b end function function hipblasZsyr2Batched_64_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,lda,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2Batched_64_typed type(c_ptr), value :: handle @@ -42734,7 +45351,6 @@ function hipblasZsyr2Batched_64_typed(handle,uplo,n,alpha,x,incx,y,incy,AP,lda,b function hipblasSsyr2StridedBatched_typed(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & AP,lda,strideA,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2StridedBatched_typed type(c_ptr), value :: handle @@ -42758,7 +45374,6 @@ function hipblasSsyr2StridedBatched_typed(handle,uplo,n,alpha,x,incx,stridex,y,i function hipblasDsyr2StridedBatched_typed(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & AP,lda,strideA,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2StridedBatched_typed type(c_ptr), value :: handle @@ -42782,7 +45397,6 @@ function hipblasDsyr2StridedBatched_typed(handle,uplo,n,alpha,x,incx,stridex,y,i function hipblasCsyr2StridedBatched_typed(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & AP,lda,strideA,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2StridedBatched_typed type(c_ptr), value :: handle @@ -42806,7 +45420,6 @@ function hipblasCsyr2StridedBatched_typed(handle,uplo,n,alpha,x,incx,stridex,y,i function hipblasZsyr2StridedBatched_typed(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & AP,lda,strideA,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2StridedBatched_typed type(c_ptr), value :: handle @@ -42830,7 +45443,6 @@ function hipblasZsyr2StridedBatched_typed(handle,uplo,n,alpha,x,incx,stridex,y,i function hipblasSsyr2StridedBatched_64_typed(handle,uplo,n,alpha,x,incx,stridex,y,incy, & stridey,AP,lda,strideA,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2StridedBatched_64_typed type(c_ptr), value :: handle @@ -42854,7 +45466,6 @@ function hipblasSsyr2StridedBatched_64_typed(handle,uplo,n,alpha,x,incx,stridex, function hipblasDsyr2StridedBatched_64_typed(handle,uplo,n,alpha,x,incx,stridex,y,incy, & stridey,AP,lda,strideA,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2StridedBatched_64_typed type(c_ptr), value :: handle @@ -42878,7 +45489,6 @@ function hipblasDsyr2StridedBatched_64_typed(handle,uplo,n,alpha,x,incx,stridex, function hipblasCsyr2StridedBatched_64_typed(handle,uplo,n,alpha,x,incx,stridex,y,incy, & stridey,AP,lda,strideA,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2StridedBatched_64_typed type(c_ptr), value :: handle @@ -42902,7 +45512,6 @@ function hipblasCsyr2StridedBatched_64_typed(handle,uplo,n,alpha,x,incx,stridex, function hipblasZsyr2StridedBatched_64_typed(handle,uplo,n,alpha,x,incx,stridex,y,incy, & stridey,AP,lda,strideA,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2StridedBatched_64_typed type(c_ptr), value :: handle @@ -42925,7 +45534,6 @@ function hipblasZsyr2StridedBatched_64_typed(handle,uplo,n,alpha,x,incx,stridex, end function function hipblasSgemm_typed(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemm_typed type(c_ptr), value :: handle @@ -42948,7 +45556,6 @@ function hipblasSgemm_typed(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta, end function function hipblasDgemm_typed(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemm_typed type(c_ptr), value :: handle @@ -42971,7 +45578,6 @@ function hipblasDgemm_typed(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta, end function function hipblasCgemm_typed(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemm_typed type(c_ptr), value :: handle @@ -42994,7 +45600,6 @@ function hipblasCgemm_typed(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta, end function function hipblasZgemm_typed(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemm_typed type(c_ptr), value :: handle @@ -43017,7 +45622,6 @@ function hipblasZgemm_typed(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta, end function function hipblasSgemm_64_typed(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemm_64_typed type(c_ptr), value :: handle @@ -43040,7 +45644,6 @@ function hipblasSgemm_64_typed(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,be end function function hipblasDgemm_64_typed(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemm_64_typed type(c_ptr), value :: handle @@ -43063,7 +45666,6 @@ function hipblasDgemm_64_typed(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,be end function function hipblasCgemm_64_typed(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemm_64_typed type(c_ptr), value :: handle @@ -43086,7 +45688,6 @@ function hipblasCgemm_64_typed(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,be end function function hipblasZgemm_64_typed(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemm_64_typed type(c_ptr), value :: handle @@ -43110,7 +45711,6 @@ function hipblasZgemm_64_typed(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,be function hipblasSgemmBatched_typed(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmBatched_typed type(c_ptr), value :: handle @@ -43135,7 +45735,6 @@ function hipblasSgemmBatched_typed(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ld function hipblasDgemmBatched_typed(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmBatched_typed type(c_ptr), value :: handle @@ -43160,7 +45759,6 @@ function hipblasDgemmBatched_typed(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ld function hipblasCgemmBatched_typed(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemmBatched_typed type(c_ptr), value :: handle @@ -43185,7 +45783,6 @@ function hipblasCgemmBatched_typed(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ld function hipblasZgemmBatched_typed(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemmBatched_typed type(c_ptr), value :: handle @@ -43210,7 +45807,6 @@ function hipblasZgemmBatched_typed(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ld function hipblasSgemmBatched_64_typed(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP, & ldc,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmBatched_64_typed type(c_ptr), value :: handle @@ -43235,7 +45831,6 @@ function hipblasSgemmBatched_64_typed(handle,transA,transB,m,n,k,alpha,AP,lda,BP function hipblasDgemmBatched_64_typed(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP, & ldc,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmBatched_64_typed type(c_ptr), value :: handle @@ -43260,7 +45855,6 @@ function hipblasDgemmBatched_64_typed(handle,transA,transB,m,n,k,alpha,AP,lda,BP function hipblasCgemmBatched_64_typed(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP, & ldc,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemmBatched_64_typed type(c_ptr), value :: handle @@ -43285,7 +45879,6 @@ function hipblasCgemmBatched_64_typed(handle,transA,transB,m,n,k,alpha,AP,lda,BP function hipblasZgemmBatched_64_typed(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP, & ldc,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemmBatched_64_typed type(c_ptr), value :: handle @@ -43310,7 +45903,6 @@ function hipblasZgemmBatched_64_typed(handle,transA,transB,m,n,k,alpha,AP,lda,BP function hipblasSgemmStridedBatched_typed(handle,transA,transB,m,n,k,alpha,AP,lda,strideA,BP, & ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmStridedBatched_typed type(c_ptr), value :: handle @@ -43338,7 +45930,6 @@ function hipblasSgemmStridedBatched_typed(handle,transA,transB,m,n,k,alpha,AP,ld function hipblasDgemmStridedBatched_typed(handle,transA,transB,m,n,k,alpha,AP,lda,strideA,BP, & ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmStridedBatched_typed type(c_ptr), value :: handle @@ -43366,7 +45957,6 @@ function hipblasDgemmStridedBatched_typed(handle,transA,transB,m,n,k,alpha,AP,ld function hipblasCgemmStridedBatched_typed(handle,transA,transB,m,n,k,alpha,AP,lda,strideA,BP, & ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemmStridedBatched_typed type(c_ptr), value :: handle @@ -43394,7 +45984,6 @@ function hipblasCgemmStridedBatched_typed(handle,transA,transB,m,n,k,alpha,AP,ld function hipblasZgemmStridedBatched_typed(handle,transA,transB,m,n,k,alpha,AP,lda,strideA,BP, & ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemmStridedBatched_typed type(c_ptr), value :: handle @@ -43422,7 +46011,6 @@ function hipblasZgemmStridedBatched_typed(handle,transA,transB,m,n,k,alpha,AP,ld function hipblasSgemmStridedBatched_64_typed(handle,transA,transB,m,n,k,alpha,AP,lda,strideA, & BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmStridedBatched_64_typed type(c_ptr), value :: handle @@ -43450,7 +46038,6 @@ function hipblasSgemmStridedBatched_64_typed(handle,transA,transB,m,n,k,alpha,AP function hipblasDgemmStridedBatched_64_typed(handle,transA,transB,m,n,k,alpha,AP,lda,strideA, & BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmStridedBatched_64_typed type(c_ptr), value :: handle @@ -43478,7 +46065,6 @@ function hipblasDgemmStridedBatched_64_typed(handle,transA,transB,m,n,k,alpha,AP function hipblasCgemmStridedBatched_64_typed(handle,transA,transB,m,n,k,alpha,AP,lda,strideA, & BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemmStridedBatched_64_typed type(c_ptr), value :: handle @@ -43506,7 +46092,6 @@ function hipblasCgemmStridedBatched_64_typed(handle,transA,transB,m,n,k,alpha,AP function hipblasZgemmStridedBatched_64_typed(handle,transA,transB,m,n,k,alpha,AP,lda,strideA, & BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemmStridedBatched_64_typed type(c_ptr), value :: handle @@ -43533,7 +46118,6 @@ function hipblasZgemmStridedBatched_64_typed(handle,transA,transB,m,n,k,alpha,AP end function function hipblasCherk_typed(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherk_typed type(c_ptr), value :: handle @@ -43553,7 +46137,6 @@ function hipblasCherk_typed(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) end function function hipblasZherk_typed(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherk_typed type(c_ptr), value :: handle @@ -43573,7 +46156,6 @@ function hipblasZherk_typed(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) end function function hipblasCherk_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherk_64_typed type(c_ptr), value :: handle @@ -43593,7 +46175,6 @@ function hipblasCherk_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) end function function hipblasZherk_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherk_64_typed type(c_ptr), value :: handle @@ -43613,7 +46194,6 @@ function hipblasZherk_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) end function function hipblasCherkBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkBatched_typed type(c_ptr), value :: handle @@ -43634,7 +46214,6 @@ function hipblasCherkBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,l end function function hipblasZherkBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkBatched_typed type(c_ptr), value :: handle @@ -43656,7 +46235,6 @@ function hipblasZherkBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,l function hipblasCherkBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkBatched_64_typed type(c_ptr), value :: handle @@ -43678,7 +46256,6 @@ function hipblasCherkBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,beta,C function hipblasZherkBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkBatched_64_typed type(c_ptr), value :: handle @@ -43700,7 +46277,6 @@ function hipblasZherkBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,beta,C function hipblasCherkStridedBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta,CP, & ldc,strideC,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkStridedBatched_typed type(c_ptr), value :: handle @@ -43724,7 +46300,6 @@ function hipblasCherkStridedBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,st function hipblasZherkStridedBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta,CP, & ldc,strideC,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkStridedBatched_typed type(c_ptr), value :: handle @@ -43748,7 +46323,6 @@ function hipblasZherkStridedBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,st function hipblasCherkStridedBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta, & CP,ldc,strideC,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkStridedBatched_64_typed type(c_ptr), value :: handle @@ -43772,7 +46346,6 @@ function hipblasCherkStridedBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda function hipblasZherkStridedBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta, & CP,ldc,strideC,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkStridedBatched_64_typed type(c_ptr), value :: handle @@ -43795,7 +46368,6 @@ function hipblasZherkStridedBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda end function function hipblasCherkx_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkx_typed type(c_ptr), value :: handle @@ -43817,7 +46389,6 @@ function hipblasCherkx_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP, end function function hipblasZherkx_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkx_typed type(c_ptr), value :: handle @@ -43839,7 +46410,6 @@ function hipblasZherkx_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP, end function function hipblasCherkx_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkx_64_typed type(c_ptr), value :: handle @@ -43861,7 +46431,6 @@ function hipblasCherkx_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta, end function function hipblasZherkx_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkx_64_typed type(c_ptr), value :: handle @@ -43884,7 +46453,6 @@ function hipblasZherkx_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta, function hipblasCherkxBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkxBatched_typed type(c_ptr), value :: handle @@ -43908,7 +46476,6 @@ function hipblasCherkxBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,b function hipblasZherkxBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkxBatched_typed type(c_ptr), value :: handle @@ -43932,7 +46499,6 @@ function hipblasZherkxBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,b function hipblasCherkxBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkxBatched_64_typed type(c_ptr), value :: handle @@ -43956,7 +46522,6 @@ function hipblasCherkxBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ld function hipblasZherkxBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkxBatched_64_typed type(c_ptr), value :: handle @@ -43980,7 +46545,6 @@ function hipblasZherkxBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ld function hipblasCherkxStridedBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP,ldb, & strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkxStridedBatched_typed type(c_ptr), value :: handle @@ -44007,7 +46571,6 @@ function hipblasCherkxStridedBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,s function hipblasZherkxStridedBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP,ldb, & strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkxStridedBatched_typed type(c_ptr), value :: handle @@ -44034,7 +46597,6 @@ function hipblasZherkxStridedBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,s function hipblasCherkxStridedBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkxStridedBatched_64_typed type(c_ptr), value :: handle @@ -44061,7 +46623,6 @@ function hipblasCherkxStridedBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,ld function hipblasZherkxStridedBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkxStridedBatched_64_typed type(c_ptr), value :: handle @@ -44087,7 +46648,6 @@ function hipblasZherkxStridedBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,ld end function function hipblasCher2k_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2k_typed type(c_ptr), value :: handle @@ -44109,7 +46669,6 @@ function hipblasCher2k_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP, end function function hipblasZher2k_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2k_typed type(c_ptr), value :: handle @@ -44131,7 +46690,6 @@ function hipblasZher2k_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP, end function function hipblasCher2k_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2k_64_typed type(c_ptr), value :: handle @@ -44153,7 +46711,6 @@ function hipblasCher2k_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta, end function function hipblasZher2k_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2k_64_typed type(c_ptr), value :: handle @@ -44176,7 +46733,6 @@ function hipblasZher2k_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta, function hipblasCher2kBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2kBatched_typed type(c_ptr), value :: handle @@ -44200,7 +46756,6 @@ function hipblasCher2kBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,b function hipblasZher2kBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2kBatched_typed type(c_ptr), value :: handle @@ -44224,7 +46779,6 @@ function hipblasZher2kBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,b function hipblasCher2kBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2kBatched_64_typed type(c_ptr), value :: handle @@ -44248,7 +46802,6 @@ function hipblasCher2kBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ld function hipblasZher2kBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2kBatched_64_typed type(c_ptr), value :: handle @@ -44272,7 +46825,6 @@ function hipblasZher2kBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ld function hipblasCher2kStridedBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP,ldb, & strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2kStridedBatched_typed type(c_ptr), value :: handle @@ -44299,7 +46851,6 @@ function hipblasCher2kStridedBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,s function hipblasZher2kStridedBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP,ldb, & strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2kStridedBatched_typed type(c_ptr), value :: handle @@ -44326,7 +46877,6 @@ function hipblasZher2kStridedBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,s function hipblasCher2kStridedBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2kStridedBatched_64_typed type(c_ptr), value :: handle @@ -44353,7 +46903,6 @@ function hipblasCher2kStridedBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,ld function hipblasZher2kStridedBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2kStridedBatched_64_typed type(c_ptr), value :: handle @@ -44379,7 +46928,6 @@ function hipblasZher2kStridedBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,ld end function function hipblasSsymm_typed(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymm_typed type(c_ptr), value :: handle @@ -44401,7 +46949,6 @@ function hipblasSsymm_typed(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc end function function hipblasDsymm_typed(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymm_typed type(c_ptr), value :: handle @@ -44423,7 +46970,6 @@ function hipblasDsymm_typed(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc end function function hipblasCsymm_typed(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymm_typed type(c_ptr), value :: handle @@ -44445,7 +46991,6 @@ function hipblasCsymm_typed(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc end function function hipblasZsymm_typed(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymm_typed type(c_ptr), value :: handle @@ -44467,7 +47012,6 @@ function hipblasZsymm_typed(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc end function function hipblasSsymm_64_typed(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymm_64_typed type(c_ptr), value :: handle @@ -44489,7 +47033,6 @@ function hipblasSsymm_64_typed(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP, end function function hipblasDsymm_64_typed(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymm_64_typed type(c_ptr), value :: handle @@ -44511,7 +47054,6 @@ function hipblasDsymm_64_typed(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP, end function function hipblasCsymm_64_typed(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymm_64_typed type(c_ptr), value :: handle @@ -44533,7 +47075,6 @@ function hipblasCsymm_64_typed(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP, end function function hipblasZsymm_64_typed(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymm_64_typed type(c_ptr), value :: handle @@ -44556,7 +47097,6 @@ function hipblasZsymm_64_typed(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP, function hipblasSsymmBatched_typed(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymmBatched_typed type(c_ptr), value :: handle @@ -44580,7 +47120,6 @@ function hipblasSsymmBatched_typed(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta function hipblasDsymmBatched_typed(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymmBatched_typed type(c_ptr), value :: handle @@ -44604,7 +47143,6 @@ function hipblasDsymmBatched_typed(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta function hipblasCsymmBatched_typed(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymmBatched_typed type(c_ptr), value :: handle @@ -44628,7 +47166,6 @@ function hipblasCsymmBatched_typed(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta function hipblasZsymmBatched_typed(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymmBatched_typed type(c_ptr), value :: handle @@ -44652,7 +47189,6 @@ function hipblasZsymmBatched_typed(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta function hipblasSsymmBatched_64_typed(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymmBatched_64_typed type(c_ptr), value :: handle @@ -44676,7 +47212,6 @@ function hipblasSsymmBatched_64_typed(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,b function hipblasDsymmBatched_64_typed(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymmBatched_64_typed type(c_ptr), value :: handle @@ -44700,7 +47235,6 @@ function hipblasDsymmBatched_64_typed(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,b function hipblasCsymmBatched_64_typed(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymmBatched_64_typed type(c_ptr), value :: handle @@ -44724,7 +47258,6 @@ function hipblasCsymmBatched_64_typed(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,b function hipblasZsymmBatched_64_typed(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymmBatched_64_typed type(c_ptr), value :: handle @@ -44748,7 +47281,6 @@ function hipblasZsymmBatched_64_typed(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,b function hipblasSsymmStridedBatched_typed(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP,ldb, & strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymmStridedBatched_typed type(c_ptr), value :: handle @@ -44775,7 +47307,6 @@ function hipblasSsymmStridedBatched_typed(handle,side,uplo,m,n,alpha,AP,lda,stri function hipblasDsymmStridedBatched_typed(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP,ldb, & strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymmStridedBatched_typed type(c_ptr), value :: handle @@ -44802,7 +47333,6 @@ function hipblasDsymmStridedBatched_typed(handle,side,uplo,m,n,alpha,AP,lda,stri function hipblasCsymmStridedBatched_typed(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP,ldb, & strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymmStridedBatched_typed type(c_ptr), value :: handle @@ -44829,7 +47359,6 @@ function hipblasCsymmStridedBatched_typed(handle,side,uplo,m,n,alpha,AP,lda,stri function hipblasZsymmStridedBatched_typed(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP,ldb, & strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymmStridedBatched_typed type(c_ptr), value :: handle @@ -44856,7 +47385,6 @@ function hipblasZsymmStridedBatched_typed(handle,side,uplo,m,n,alpha,AP,lda,stri function hipblasSsymmStridedBatched_64_typed(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP,ldb, & strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymmStridedBatched_64_typed type(c_ptr), value :: handle @@ -44883,7 +47411,6 @@ function hipblasSsymmStridedBatched_64_typed(handle,side,uplo,m,n,alpha,AP,lda,s function hipblasDsymmStridedBatched_64_typed(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP,ldb, & strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymmStridedBatched_64_typed type(c_ptr), value :: handle @@ -44910,7 +47437,6 @@ function hipblasDsymmStridedBatched_64_typed(handle,side,uplo,m,n,alpha,AP,lda,s function hipblasCsymmStridedBatched_64_typed(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP,ldb, & strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymmStridedBatched_64_typed type(c_ptr), value :: handle @@ -44937,7 +47463,6 @@ function hipblasCsymmStridedBatched_64_typed(handle,side,uplo,m,n,alpha,AP,lda,s function hipblasZsymmStridedBatched_64_typed(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP,ldb, & strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymmStridedBatched_64_typed type(c_ptr), value :: handle @@ -44963,7 +47488,6 @@ function hipblasZsymmStridedBatched_64_typed(handle,side,uplo,m,n,alpha,AP,lda,s end function function hipblasSsyrk_typed(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrk_typed type(c_ptr), value :: handle @@ -44983,7 +47507,6 @@ function hipblasSsyrk_typed(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) end function function hipblasDsyrk_typed(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrk_typed type(c_ptr), value :: handle @@ -45003,7 +47526,6 @@ function hipblasDsyrk_typed(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) end function function hipblasCsyrk_typed(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrk_typed type(c_ptr), value :: handle @@ -45023,7 +47545,6 @@ function hipblasCsyrk_typed(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) end function function hipblasZsyrk_typed(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrk_typed type(c_ptr), value :: handle @@ -45043,7 +47564,6 @@ function hipblasZsyrk_typed(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) end function function hipblasSsyrk_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrk_64_typed type(c_ptr), value :: handle @@ -45063,7 +47583,6 @@ function hipblasSsyrk_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) end function function hipblasDsyrk_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrk_64_typed type(c_ptr), value :: handle @@ -45083,7 +47602,6 @@ function hipblasDsyrk_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) end function function hipblasCsyrk_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrk_64_typed type(c_ptr), value :: handle @@ -45103,7 +47621,6 @@ function hipblasCsyrk_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) end function function hipblasZsyrk_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrk_64_typed type(c_ptr), value :: handle @@ -45123,7 +47640,6 @@ function hipblasZsyrk_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) end function function hipblasSsyrkBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkBatched_typed type(c_ptr), value :: handle @@ -45144,7 +47660,6 @@ function hipblasSsyrkBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,l end function function hipblasDsyrkBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkBatched_typed type(c_ptr), value :: handle @@ -45165,7 +47680,6 @@ function hipblasDsyrkBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,l end function function hipblasCsyrkBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkBatched_typed type(c_ptr), value :: handle @@ -45186,7 +47700,6 @@ function hipblasCsyrkBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,l end function function hipblasZsyrkBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkBatched_typed type(c_ptr), value :: handle @@ -45208,7 +47721,6 @@ function hipblasZsyrkBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,l function hipblasSsyrkBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkBatched_64_typed type(c_ptr), value :: handle @@ -45230,7 +47742,6 @@ function hipblasSsyrkBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,beta,C function hipblasDsyrkBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkBatched_64_typed type(c_ptr), value :: handle @@ -45252,7 +47763,6 @@ function hipblasDsyrkBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,beta,C function hipblasCsyrkBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkBatched_64_typed type(c_ptr), value :: handle @@ -45274,7 +47784,6 @@ function hipblasCsyrkBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,beta,C function hipblasZsyrkBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkBatched_64_typed type(c_ptr), value :: handle @@ -45296,7 +47805,6 @@ function hipblasZsyrkBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,beta,C function hipblasSsyrkStridedBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta,CP, & ldc,strideC,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkStridedBatched_typed type(c_ptr), value :: handle @@ -45320,7 +47828,6 @@ function hipblasSsyrkStridedBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,st function hipblasDsyrkStridedBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta,CP, & ldc,strideC,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkStridedBatched_typed type(c_ptr), value :: handle @@ -45344,7 +47851,6 @@ function hipblasDsyrkStridedBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,st function hipblasCsyrkStridedBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta,CP, & ldc,strideC,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkStridedBatched_typed type(c_ptr), value :: handle @@ -45368,7 +47874,6 @@ function hipblasCsyrkStridedBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,st function hipblasZsyrkStridedBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta,CP, & ldc,strideC,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkStridedBatched_typed type(c_ptr), value :: handle @@ -45392,7 +47897,6 @@ function hipblasZsyrkStridedBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,st function hipblasSsyrkStridedBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta, & CP,ldc,strideC,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkStridedBatched_64_typed type(c_ptr), value :: handle @@ -45416,7 +47920,6 @@ function hipblasSsyrkStridedBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda function hipblasDsyrkStridedBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta, & CP,ldc,strideC,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkStridedBatched_64_typed type(c_ptr), value :: handle @@ -45440,7 +47943,6 @@ function hipblasDsyrkStridedBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda function hipblasCsyrkStridedBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta, & CP,ldc,strideC,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkStridedBatched_64_typed type(c_ptr), value :: handle @@ -45464,7 +47966,6 @@ function hipblasCsyrkStridedBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda function hipblasZsyrkStridedBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta, & CP,ldc,strideC,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkStridedBatched_64_typed type(c_ptr), value :: handle @@ -45487,7 +47988,6 @@ function hipblasZsyrkStridedBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda end function function hipblasSsyr2k_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2k_typed type(c_ptr), value :: handle @@ -45509,7 +48009,6 @@ function hipblasSsyr2k_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP, end function function hipblasDsyr2k_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2k_typed type(c_ptr), value :: handle @@ -45531,7 +48030,6 @@ function hipblasDsyr2k_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP, end function function hipblasCsyr2k_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2k_typed type(c_ptr), value :: handle @@ -45553,7 +48051,6 @@ function hipblasCsyr2k_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP, end function function hipblasZsyr2k_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2k_typed type(c_ptr), value :: handle @@ -45575,7 +48072,6 @@ function hipblasZsyr2k_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP, end function function hipblasSsyr2k_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2k_64_typed type(c_ptr), value :: handle @@ -45597,7 +48093,6 @@ function hipblasSsyr2k_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta, end function function hipblasDsyr2k_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2k_64_typed type(c_ptr), value :: handle @@ -45619,7 +48114,6 @@ function hipblasDsyr2k_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta, end function function hipblasCsyr2k_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2k_64_typed type(c_ptr), value :: handle @@ -45641,7 +48135,6 @@ function hipblasCsyr2k_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta, end function function hipblasZsyr2k_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2k_64_typed type(c_ptr), value :: handle @@ -45664,7 +48157,6 @@ function hipblasZsyr2k_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta, function hipblasSsyr2kBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2kBatched_typed type(c_ptr), value :: handle @@ -45688,7 +48180,6 @@ function hipblasSsyr2kBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,b function hipblasDsyr2kBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2kBatched_typed type(c_ptr), value :: handle @@ -45712,7 +48203,6 @@ function hipblasDsyr2kBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,b function hipblasCsyr2kBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2kBatched_typed type(c_ptr), value :: handle @@ -45736,7 +48226,6 @@ function hipblasCsyr2kBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,b function hipblasZsyr2kBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2kBatched_typed type(c_ptr), value :: handle @@ -45760,7 +48249,6 @@ function hipblasZsyr2kBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,b function hipblasSsyr2kBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2kBatched_64_typed type(c_ptr), value :: handle @@ -45784,7 +48272,6 @@ function hipblasSsyr2kBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ld function hipblasDsyr2kBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2kBatched_64_typed type(c_ptr), value :: handle @@ -45808,7 +48295,6 @@ function hipblasDsyr2kBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ld function hipblasCsyr2kBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2kBatched_64_typed type(c_ptr), value :: handle @@ -45832,7 +48318,6 @@ function hipblasCsyr2kBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ld function hipblasZsyr2kBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2kBatched_64_typed type(c_ptr), value :: handle @@ -45856,7 +48341,6 @@ function hipblasZsyr2kBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ld function hipblasSsyr2kStridedBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP,ldb, & strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2kStridedBatched_typed type(c_ptr), value :: handle @@ -45883,7 +48367,6 @@ function hipblasSsyr2kStridedBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,s function hipblasDsyr2kStridedBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP,ldb, & strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2kStridedBatched_typed type(c_ptr), value :: handle @@ -45910,7 +48393,6 @@ function hipblasDsyr2kStridedBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,s function hipblasCsyr2kStridedBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP,ldb, & strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2kStridedBatched_typed type(c_ptr), value :: handle @@ -45937,7 +48419,6 @@ function hipblasCsyr2kStridedBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,s function hipblasZsyr2kStridedBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP,ldb, & strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2kStridedBatched_typed type(c_ptr), value :: handle @@ -45964,7 +48445,6 @@ function hipblasZsyr2kStridedBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,s function hipblasSsyr2kStridedBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2kStridedBatched_64_typed type(c_ptr), value :: handle @@ -45991,7 +48471,6 @@ function hipblasSsyr2kStridedBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,ld function hipblasDsyr2kStridedBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2kStridedBatched_64_typed type(c_ptr), value :: handle @@ -46018,7 +48497,6 @@ function hipblasDsyr2kStridedBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,ld function hipblasCsyr2kStridedBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2kStridedBatched_64_typed type(c_ptr), value :: handle @@ -46045,7 +48523,6 @@ function hipblasCsyr2kStridedBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,ld function hipblasZsyr2kStridedBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2kStridedBatched_64_typed type(c_ptr), value :: handle @@ -46071,7 +48548,6 @@ function hipblasZsyr2kStridedBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,ld end function function hipblasSsyrkx_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkx_typed type(c_ptr), value :: handle @@ -46093,7 +48569,6 @@ function hipblasSsyrkx_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP, end function function hipblasDsyrkx_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkx_typed type(c_ptr), value :: handle @@ -46115,7 +48590,6 @@ function hipblasDsyrkx_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP, end function function hipblasCsyrkx_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkx_typed type(c_ptr), value :: handle @@ -46137,7 +48611,6 @@ function hipblasCsyrkx_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP, end function function hipblasZsyrkx_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkx_typed type(c_ptr), value :: handle @@ -46159,7 +48632,6 @@ function hipblasZsyrkx_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP, end function function hipblasSsyrkx_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkx_64_typed type(c_ptr), value :: handle @@ -46181,7 +48653,6 @@ function hipblasSsyrkx_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta, end function function hipblasDsyrkx_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkx_64_typed type(c_ptr), value :: handle @@ -46203,7 +48674,6 @@ function hipblasDsyrkx_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta, end function function hipblasCsyrkx_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkx_64_typed type(c_ptr), value :: handle @@ -46225,7 +48695,6 @@ function hipblasCsyrkx_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta, end function function hipblasZsyrkx_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkx_64_typed type(c_ptr), value :: handle @@ -46248,7 +48717,6 @@ function hipblasZsyrkx_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta, function hipblasSsyrkxBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkxBatched_typed type(c_ptr), value :: handle @@ -46272,7 +48740,6 @@ function hipblasSsyrkxBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,b function hipblasDsyrkxBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkxBatched_typed type(c_ptr), value :: handle @@ -46296,7 +48763,6 @@ function hipblasDsyrkxBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,b function hipblasCsyrkxBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkxBatched_typed type(c_ptr), value :: handle @@ -46320,7 +48786,6 @@ function hipblasCsyrkxBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,b function hipblasZsyrkxBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkxBatched_typed type(c_ptr), value :: handle @@ -46344,7 +48809,6 @@ function hipblasZsyrkxBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,b function hipblasSsyrkxBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkxBatched_64_typed type(c_ptr), value :: handle @@ -46368,7 +48832,6 @@ function hipblasSsyrkxBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ld function hipblasDsyrkxBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkxBatched_64_typed type(c_ptr), value :: handle @@ -46392,7 +48855,6 @@ function hipblasDsyrkxBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ld function hipblasCsyrkxBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkxBatched_64_typed type(c_ptr), value :: handle @@ -46416,7 +48878,6 @@ function hipblasCsyrkxBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ld function hipblasZsyrkxBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkxBatched_64_typed type(c_ptr), value :: handle @@ -46440,7 +48901,6 @@ function hipblasZsyrkxBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,BP,ld function hipblasSsyrkxStridedBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP,ldb, & strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkxStridedBatched_typed type(c_ptr), value :: handle @@ -46467,7 +48927,6 @@ function hipblasSsyrkxStridedBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,s function hipblasDsyrkxStridedBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP,ldb, & strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkxStridedBatched_typed type(c_ptr), value :: handle @@ -46494,7 +48953,6 @@ function hipblasDsyrkxStridedBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,s function hipblasCsyrkxStridedBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP,ldb, & strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkxStridedBatched_typed type(c_ptr), value :: handle @@ -46521,7 +48979,6 @@ function hipblasCsyrkxStridedBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,s function hipblasZsyrkxStridedBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP,ldb, & strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkxStridedBatched_typed type(c_ptr), value :: handle @@ -46548,7 +49005,6 @@ function hipblasZsyrkxStridedBatched_typed(handle,uplo,transA,n,k,alpha,AP,lda,s function hipblasSsyrkxStridedBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkxStridedBatched_64_typed type(c_ptr), value :: handle @@ -46575,7 +49031,6 @@ function hipblasSsyrkxStridedBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,ld function hipblasDsyrkxStridedBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkxStridedBatched_64_typed type(c_ptr), value :: handle @@ -46602,7 +49057,6 @@ function hipblasDsyrkxStridedBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,ld function hipblasCsyrkxStridedBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkxStridedBatched_64_typed type(c_ptr), value :: handle @@ -46629,7 +49083,6 @@ function hipblasCsyrkxStridedBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,ld function hipblasZsyrkxStridedBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkxStridedBatched_64_typed type(c_ptr), value :: handle @@ -46655,7 +49108,6 @@ function hipblasZsyrkxStridedBatched_64_typed(handle,uplo,transA,n,k,alpha,AP,ld end function function hipblasSgeam_typed(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeam_typed type(c_ptr), value :: handle @@ -46677,7 +49129,6 @@ function hipblasSgeam_typed(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP end function function hipblasDgeam_typed(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeam_typed type(c_ptr), value :: handle @@ -46699,7 +49150,6 @@ function hipblasDgeam_typed(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP end function function hipblasCgeam_typed(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeam_typed type(c_ptr), value :: handle @@ -46721,7 +49171,6 @@ function hipblasCgeam_typed(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP end function function hipblasZgeam_typed(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeam_typed type(c_ptr), value :: handle @@ -46743,7 +49192,6 @@ function hipblasZgeam_typed(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP end function function hipblasSgeam_64_typed(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeam_64_typed type(c_ptr), value :: handle @@ -46765,7 +49213,6 @@ function hipblasSgeam_64_typed(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb end function function hipblasDgeam_64_typed(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeam_64_typed type(c_ptr), value :: handle @@ -46787,7 +49234,6 @@ function hipblasDgeam_64_typed(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb end function function hipblasCgeam_64_typed(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeam_64_typed type(c_ptr), value :: handle @@ -46809,7 +49255,6 @@ function hipblasCgeam_64_typed(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb end function function hipblasZgeam_64_typed(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeam_64_typed type(c_ptr), value :: handle @@ -46832,7 +49277,6 @@ function hipblasZgeam_64_typed(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb function hipblasSgeamBatched_typed(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeamBatched_typed type(c_ptr), value :: handle @@ -46856,7 +49300,6 @@ function hipblasSgeamBatched_typed(handle,transA,transB,m,n,alpha,AP,lda,beta,BP function hipblasDgeamBatched_typed(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeamBatched_typed type(c_ptr), value :: handle @@ -46880,7 +49323,6 @@ function hipblasDgeamBatched_typed(handle,transA,transB,m,n,alpha,AP,lda,beta,BP function hipblasCgeamBatched_typed(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeamBatched_typed type(c_ptr), value :: handle @@ -46904,7 +49346,6 @@ function hipblasCgeamBatched_typed(handle,transA,transB,m,n,alpha,AP,lda,beta,BP function hipblasZgeamBatched_typed(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeamBatched_typed type(c_ptr), value :: handle @@ -46928,7 +49369,6 @@ function hipblasZgeamBatched_typed(handle,transA,transB,m,n,alpha,AP,lda,beta,BP function hipblasSgeamBatched_64_typed(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP, & ldc,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeamBatched_64_typed type(c_ptr), value :: handle @@ -46952,7 +49392,6 @@ function hipblasSgeamBatched_64_typed(handle,transA,transB,m,n,alpha,AP,lda,beta function hipblasDgeamBatched_64_typed(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP, & ldc,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeamBatched_64_typed type(c_ptr), value :: handle @@ -46976,7 +49415,6 @@ function hipblasDgeamBatched_64_typed(handle,transA,transB,m,n,alpha,AP,lda,beta function hipblasCgeamBatched_64_typed(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP, & ldc,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeamBatched_64_typed type(c_ptr), value :: handle @@ -47000,7 +49438,6 @@ function hipblasCgeamBatched_64_typed(handle,transA,transB,m,n,alpha,AP,lda,beta function hipblasZgeamBatched_64_typed(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP, & ldc,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeamBatched_64_typed type(c_ptr), value :: handle @@ -47024,7 +49461,6 @@ function hipblasZgeamBatched_64_typed(handle,transA,transB,m,n,alpha,AP,lda,beta function hipblasSgeamStridedBatched_typed(handle,transA,transB,m,n,alpha,AP,lda,strideA,beta, & BP,ldb,strideB,CP,ldc,strideC,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeamStridedBatched_typed type(c_ptr), value :: handle @@ -47051,7 +49487,6 @@ function hipblasSgeamStridedBatched_typed(handle,transA,transB,m,n,alpha,AP,lda, function hipblasDgeamStridedBatched_typed(handle,transA,transB,m,n,alpha,AP,lda,strideA,beta, & BP,ldb,strideB,CP,ldc,strideC,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeamStridedBatched_typed type(c_ptr), value :: handle @@ -47078,7 +49513,6 @@ function hipblasDgeamStridedBatched_typed(handle,transA,transB,m,n,alpha,AP,lda, function hipblasCgeamStridedBatched_typed(handle,transA,transB,m,n,alpha,AP,lda,strideA,beta, & BP,ldb,strideB,CP,ldc,strideC,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeamStridedBatched_typed type(c_ptr), value :: handle @@ -47105,7 +49539,6 @@ function hipblasCgeamStridedBatched_typed(handle,transA,transB,m,n,alpha,AP,lda, function hipblasZgeamStridedBatched_typed(handle,transA,transB,m,n,alpha,AP,lda,strideA,beta, & BP,ldb,strideB,CP,ldc,strideC,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeamStridedBatched_typed type(c_ptr), value :: handle @@ -47132,7 +49565,6 @@ function hipblasZgeamStridedBatched_typed(handle,transA,transB,m,n,alpha,AP,lda, function hipblasSgeamStridedBatched_64_typed(handle,transA,transB,m,n,alpha,AP,lda,strideA, & beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeamStridedBatched_64_typed type(c_ptr), value :: handle @@ -47159,7 +49591,6 @@ function hipblasSgeamStridedBatched_64_typed(handle,transA,transB,m,n,alpha,AP,l function hipblasDgeamStridedBatched_64_typed(handle,transA,transB,m,n,alpha,AP,lda,strideA, & beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeamStridedBatched_64_typed type(c_ptr), value :: handle @@ -47186,7 +49617,6 @@ function hipblasDgeamStridedBatched_64_typed(handle,transA,transB,m,n,alpha,AP,l function hipblasCgeamStridedBatched_64_typed(handle,transA,transB,m,n,alpha,AP,lda,strideA, & beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeamStridedBatched_64_typed type(c_ptr), value :: handle @@ -47213,7 +49643,6 @@ function hipblasCgeamStridedBatched_64_typed(handle,transA,transB,m,n,alpha,AP,l function hipblasZgeamStridedBatched_64_typed(handle,transA,transB,m,n,alpha,AP,lda,strideA, & beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeamStridedBatched_64_typed type(c_ptr), value :: handle @@ -47239,7 +49668,6 @@ function hipblasZgeamStridedBatched_64_typed(handle,transA,transB,m,n,alpha,AP,l end function function hipblasChemm_typed(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemm_typed type(c_ptr), value :: handle @@ -47261,7 +49689,6 @@ function hipblasChemm_typed(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc end function function hipblasZhemm_typed(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemm_typed type(c_ptr), value :: handle @@ -47283,7 +49710,6 @@ function hipblasZhemm_typed(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc end function function hipblasChemm_64_typed(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemm_64_typed type(c_ptr), value :: handle @@ -47305,7 +49731,6 @@ function hipblasChemm_64_typed(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP, end function function hipblasZhemm_64_typed(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemm_64_typed type(c_ptr), value :: handle @@ -47328,7 +49753,6 @@ function hipblasZhemm_64_typed(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP, function hipblasChemmBatched_typed(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemmBatched_typed type(c_ptr), value :: handle @@ -47352,7 +49776,6 @@ function hipblasChemmBatched_typed(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta function hipblasZhemmBatched_typed(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemmBatched_typed type(c_ptr), value :: handle @@ -47376,7 +49799,6 @@ function hipblasZhemmBatched_typed(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta function hipblasChemmBatched_64_typed(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemmBatched_64_typed type(c_ptr), value :: handle @@ -47400,7 +49822,6 @@ function hipblasChemmBatched_64_typed(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,b function hipblasZhemmBatched_64_typed(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemmBatched_64_typed type(c_ptr), value :: handle @@ -47424,7 +49845,6 @@ function hipblasZhemmBatched_64_typed(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,b function hipblasChemmStridedBatched_typed(handle,side,uplo,n,k,alpha,AP,lda,strideA,BP,ldb, & strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemmStridedBatched_typed type(c_ptr), value :: handle @@ -47451,7 +49871,6 @@ function hipblasChemmStridedBatched_typed(handle,side,uplo,n,k,alpha,AP,lda,stri function hipblasZhemmStridedBatched_typed(handle,side,uplo,n,k,alpha,AP,lda,strideA,BP,ldb, & strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemmStridedBatched_typed type(c_ptr), value :: handle @@ -47478,7 +49897,6 @@ function hipblasZhemmStridedBatched_typed(handle,side,uplo,n,k,alpha,AP,lda,stri function hipblasChemmStridedBatched_64_typed(handle,side,uplo,n,k,alpha,AP,lda,strideA,BP,ldb, & strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemmStridedBatched_64_typed type(c_ptr), value :: handle @@ -47505,7 +49923,6 @@ function hipblasChemmStridedBatched_64_typed(handle,side,uplo,n,k,alpha,AP,lda,s function hipblasZhemmStridedBatched_64_typed(handle,side,uplo,n,k,alpha,AP,lda,strideA,BP,ldb, & strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemmStridedBatched_64_typed type(c_ptr), value :: handle @@ -47531,7 +49948,6 @@ function hipblasZhemmStridedBatched_64_typed(handle,side,uplo,n,k,alpha,AP,lda,s end function function hipblasStrmm_typed(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmm_typed type(c_ptr), value :: handle @@ -47554,7 +49970,6 @@ function hipblasStrmm_typed(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C end function function hipblasDtrmm_typed(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmm_typed type(c_ptr), value :: handle @@ -47577,7 +49992,6 @@ function hipblasDtrmm_typed(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C end function function hipblasCtrmm_typed(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmm_typed type(c_ptr), value :: handle @@ -47600,7 +50014,6 @@ function hipblasCtrmm_typed(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C end function function hipblasZtrmm_typed(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmm_typed type(c_ptr), value :: handle @@ -47623,7 +50036,6 @@ function hipblasZtrmm_typed(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C end function function hipblasStrmm_64_typed(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmm_64_typed type(c_ptr), value :: handle @@ -47646,7 +50058,6 @@ function hipblasStrmm_64_typed(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ld end function function hipblasDtrmm_64_typed(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmm_64_typed type(c_ptr), value :: handle @@ -47669,7 +50080,6 @@ function hipblasDtrmm_64_typed(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ld end function function hipblasCtrmm_64_typed(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmm_64_typed type(c_ptr), value :: handle @@ -47692,7 +50102,6 @@ function hipblasCtrmm_64_typed(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ld end function function hipblasZtrmm_64_typed(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmm_64_typed type(c_ptr), value :: handle @@ -47716,7 +50125,6 @@ function hipblasZtrmm_64_typed(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ld function hipblasStrmmBatched_typed(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmmBatched_typed type(c_ptr), value :: handle @@ -47741,7 +50149,6 @@ function hipblasStrmmBatched_typed(handle,side,uplo,transA,diag,m,n,alpha,A,lda, function hipblasDtrmmBatched_typed(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmmBatched_typed type(c_ptr), value :: handle @@ -47766,7 +50173,6 @@ function hipblasDtrmmBatched_typed(handle,side,uplo,transA,diag,m,n,alpha,A,lda, function hipblasCtrmmBatched_typed(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmmBatched_typed type(c_ptr), value :: handle @@ -47791,7 +50197,6 @@ function hipblasCtrmmBatched_typed(handle,side,uplo,transA,diag,m,n,alpha,A,lda, function hipblasZtrmmBatched_typed(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmmBatched_typed type(c_ptr), value :: handle @@ -47816,7 +50221,6 @@ function hipblasZtrmmBatched_typed(handle,side,uplo,transA,diag,m,n,alpha,A,lda, function hipblasStrmmBatched_64_typed(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C, & ldc,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmmBatched_64_typed type(c_ptr), value :: handle @@ -47841,7 +50245,6 @@ function hipblasStrmmBatched_64_typed(handle,side,uplo,transA,diag,m,n,alpha,A,l function hipblasDtrmmBatched_64_typed(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C, & ldc,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmmBatched_64_typed type(c_ptr), value :: handle @@ -47866,7 +50269,6 @@ function hipblasDtrmmBatched_64_typed(handle,side,uplo,transA,diag,m,n,alpha,A,l function hipblasCtrmmBatched_64_typed(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C, & ldc,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmmBatched_64_typed type(c_ptr), value :: handle @@ -47891,7 +50293,6 @@ function hipblasCtrmmBatched_64_typed(handle,side,uplo,transA,diag,m,n,alpha,A,l function hipblasZtrmmBatched_64_typed(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C, & ldc,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmmBatched_64_typed type(c_ptr), value :: handle @@ -47916,7 +50317,6 @@ function hipblasZtrmmBatched_64_typed(handle,side,uplo,transA,diag,m,n,alpha,A,l function hipblasStrmmStridedBatched_typed(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & strideA,B,ldb,strideB,C,ldc,strideC,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmmStridedBatched_typed type(c_ptr), value :: handle @@ -47944,7 +50344,6 @@ function hipblasStrmmStridedBatched_typed(handle,side,uplo,transA,diag,m,n,alpha function hipblasDtrmmStridedBatched_typed(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & strideA,B,ldb,strideB,C,ldc,strideC,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmmStridedBatched_typed type(c_ptr), value :: handle @@ -47972,7 +50371,6 @@ function hipblasDtrmmStridedBatched_typed(handle,side,uplo,transA,diag,m,n,alpha function hipblasCtrmmStridedBatched_typed(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & strideA,B,ldb,strideB,C,ldc,strideC,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmmStridedBatched_typed type(c_ptr), value :: handle @@ -48000,7 +50398,6 @@ function hipblasCtrmmStridedBatched_typed(handle,side,uplo,transA,diag,m,n,alpha function hipblasZtrmmStridedBatched_typed(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & strideA,B,ldb,strideB,C,ldc,strideC,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmmStridedBatched_typed type(c_ptr), value :: handle @@ -48028,7 +50425,6 @@ function hipblasZtrmmStridedBatched_typed(handle,side,uplo,transA,diag,m,n,alpha function hipblasStrmmStridedBatched_64_typed(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & strideA,B,ldb,strideB,C,ldc,strideC,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmmStridedBatched_64_typed type(c_ptr), value :: handle @@ -48056,7 +50452,6 @@ function hipblasStrmmStridedBatched_64_typed(handle,side,uplo,transA,diag,m,n,al function hipblasDtrmmStridedBatched_64_typed(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & strideA,B,ldb,strideB,C,ldc,strideC,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmmStridedBatched_64_typed type(c_ptr), value :: handle @@ -48084,7 +50479,6 @@ function hipblasDtrmmStridedBatched_64_typed(handle,side,uplo,transA,diag,m,n,al function hipblasCtrmmStridedBatched_64_typed(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & strideA,B,ldb,strideB,C,ldc,strideC,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmmStridedBatched_64_typed type(c_ptr), value :: handle @@ -48112,7 +50506,6 @@ function hipblasCtrmmStridedBatched_64_typed(handle,side,uplo,transA,diag,m,n,al function hipblasZtrmmStridedBatched_64_typed(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & strideA,B,ldb,strideB,C,ldc,strideC,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmmStridedBatched_64_typed type(c_ptr), value :: handle @@ -48139,7 +50532,6 @@ function hipblasZtrmmStridedBatched_64_typed(handle,side,uplo,transA,diag,m,n,al end function function hipblasStrsm_typed(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsm_typed type(c_ptr), value :: handle @@ -48160,7 +50552,6 @@ function hipblasStrsm_typed(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb end function function hipblasDtrsm_typed(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsm_typed type(c_ptr), value :: handle @@ -48181,7 +50572,6 @@ function hipblasDtrsm_typed(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb end function function hipblasCtrsm_typed(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsm_typed type(c_ptr), value :: handle @@ -48202,7 +50592,6 @@ function hipblasCtrsm_typed(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb end function function hipblasZtrsm_typed(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsm_typed type(c_ptr), value :: handle @@ -48223,7 +50612,6 @@ function hipblasZtrsm_typed(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb end function function hipblasStrsm_64_typed(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsm_64_typed type(c_ptr), value :: handle @@ -48244,7 +50632,6 @@ function hipblasStrsm_64_typed(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP, end function function hipblasDtrsm_64_typed(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsm_64_typed type(c_ptr), value :: handle @@ -48265,7 +50652,6 @@ function hipblasDtrsm_64_typed(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP, end function function hipblasCtrsm_64_typed(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsm_64_typed type(c_ptr), value :: handle @@ -48286,7 +50672,6 @@ function hipblasCtrsm_64_typed(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP, end function function hipblasZtrsm_64_typed(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsm_64_typed type(c_ptr), value :: handle @@ -48308,7 +50693,6 @@ function hipblasZtrsm_64_typed(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP, function hipblasStrsmBatched_typed(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsmBatched_typed type(c_ptr), value :: handle @@ -48331,7 +50715,6 @@ function hipblasStrsmBatched_typed(handle,side,uplo,transA,diag,m,n,alpha,AP,lda function hipblasDtrsmBatched_typed(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsmBatched_typed type(c_ptr), value :: handle @@ -48354,7 +50737,6 @@ function hipblasDtrsmBatched_typed(handle,side,uplo,transA,diag,m,n,alpha,AP,lda function hipblasCtrsmBatched_typed(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsmBatched_typed type(c_ptr), value :: handle @@ -48377,7 +50759,6 @@ function hipblasCtrsmBatched_typed(handle,side,uplo,transA,diag,m,n,alpha,AP,lda function hipblasZtrsmBatched_typed(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsmBatched_typed type(c_ptr), value :: handle @@ -48400,7 +50781,6 @@ function hipblasZtrsmBatched_typed(handle,side,uplo,transA,diag,m,n,alpha,AP,lda function hipblasStrsmBatched_64_typed(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsmBatched_64_typed type(c_ptr), value :: handle @@ -48423,7 +50803,6 @@ function hipblasStrsmBatched_64_typed(handle,side,uplo,transA,diag,m,n,alpha,AP, function hipblasDtrsmBatched_64_typed(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsmBatched_64_typed type(c_ptr), value :: handle @@ -48446,7 +50825,6 @@ function hipblasDtrsmBatched_64_typed(handle,side,uplo,transA,diag,m,n,alpha,AP, function hipblasCtrsmBatched_64_typed(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsmBatched_64_typed type(c_ptr), value :: handle @@ -48469,7 +50847,6 @@ function hipblasCtrsmBatched_64_typed(handle,side,uplo,transA,diag,m,n,alpha,AP, function hipblasZtrsmBatched_64_typed(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsmBatched_64_typed type(c_ptr), value :: handle @@ -48492,7 +50869,6 @@ function hipblasZtrsmBatched_64_typed(handle,side,uplo,transA,diag,m,n,alpha,AP, function hipblasStrsmStridedBatched_typed(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & strideA,BP,ldb,strideB,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsmStridedBatched_typed type(c_ptr), value :: handle @@ -48517,7 +50893,6 @@ function hipblasStrsmStridedBatched_typed(handle,side,uplo,transA,diag,m,n,alpha function hipblasDtrsmStridedBatched_typed(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & strideA,BP,ldb,strideB,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsmStridedBatched_typed type(c_ptr), value :: handle @@ -48542,7 +50917,6 @@ function hipblasDtrsmStridedBatched_typed(handle,side,uplo,transA,diag,m,n,alpha function hipblasCtrsmStridedBatched_typed(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & strideA,BP,ldb,strideB,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsmStridedBatched_typed type(c_ptr), value :: handle @@ -48567,7 +50941,6 @@ function hipblasCtrsmStridedBatched_typed(handle,side,uplo,transA,diag,m,n,alpha function hipblasZtrsmStridedBatched_typed(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & strideA,BP,ldb,strideB,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsmStridedBatched_typed type(c_ptr), value :: handle @@ -48592,7 +50965,6 @@ function hipblasZtrsmStridedBatched_typed(handle,side,uplo,transA,diag,m,n,alpha function hipblasStrsmStridedBatched_64_typed(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & strideA,BP,ldb,strideB,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsmStridedBatched_64_typed type(c_ptr), value :: handle @@ -48617,7 +50989,6 @@ function hipblasStrsmStridedBatched_64_typed(handle,side,uplo,transA,diag,m,n,al function hipblasDtrsmStridedBatched_64_typed(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & strideA,BP,ldb,strideB,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsmStridedBatched_64_typed type(c_ptr), value :: handle @@ -48642,7 +51013,6 @@ function hipblasDtrsmStridedBatched_64_typed(handle,side,uplo,transA,diag,m,n,al function hipblasCtrsmStridedBatched_64_typed(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & strideA,BP,ldb,strideB,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsmStridedBatched_64_typed type(c_ptr), value :: handle @@ -48667,7 +51037,6 @@ function hipblasCtrsmStridedBatched_64_typed(handle,side,uplo,transA,diag,m,n,al function hipblasZtrsmStridedBatched_64_typed(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & strideA,BP,ldb,strideB,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsmStridedBatched_64_typed type(c_ptr), value :: handle @@ -48691,7 +51060,6 @@ function hipblasZtrsmStridedBatched_64_typed(handle,side,uplo,transA,diag,m,n,al end function function hipblasSgetrs_typed(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrs_typed type(c_ptr), value :: handle @@ -48709,7 +51077,6 @@ function hipblasSgetrs_typed(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) end function function hipblasDgetrs_typed(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrs_typed type(c_ptr), value :: handle @@ -48727,7 +51094,6 @@ function hipblasDgetrs_typed(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) end function function hipblasCgetrs_typed(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrs_typed type(c_ptr), value :: handle @@ -48745,7 +51111,6 @@ function hipblasCgetrs_typed(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) end function function hipblasZgetrs_typed(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrs_typed type(c_ptr), value :: handle @@ -48763,7 +51128,6 @@ function hipblasZgetrs_typed(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) end function function hipblasSgetrsBatched_typed(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrsBatched_typed type(c_ptr), value :: handle @@ -48783,7 +51147,6 @@ function hipblasSgetrsBatched_typed(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo, end function function hipblasDgetrsBatched_typed(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrsBatched_typed type(c_ptr), value :: handle @@ -48803,7 +51166,6 @@ function hipblasDgetrsBatched_typed(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo, end function function hipblasCgetrsBatched_typed(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrsBatched_typed type(c_ptr), value :: handle @@ -48823,7 +51185,6 @@ function hipblasCgetrsBatched_typed(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo, end function function hipblasZgetrsBatched_typed(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrsBatched_typed type(c_ptr), value :: handle @@ -48844,7 +51205,6 @@ function hipblasZgetrsBatched_typed(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo, function hipblasSgetrsStridedBatched_typed(handle,trans,n,nrhs,A,lda,strideA,ipiv,strideP,B, & ldb,strideB,myInfo,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrsStridedBatched_typed type(c_ptr), value :: handle @@ -48868,7 +51228,6 @@ function hipblasSgetrsStridedBatched_typed(handle,trans,n,nrhs,A,lda,strideA,ipi function hipblasDgetrsStridedBatched_typed(handle,trans,n,nrhs,A,lda,strideA,ipiv,strideP,B, & ldb,strideB,myInfo,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrsStridedBatched_typed type(c_ptr), value :: handle @@ -48892,7 +51251,6 @@ function hipblasDgetrsStridedBatched_typed(handle,trans,n,nrhs,A,lda,strideA,ipi function hipblasCgetrsStridedBatched_typed(handle,trans,n,nrhs,A,lda,strideA,ipiv,strideP,B, & ldb,strideB,myInfo,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrsStridedBatched_typed type(c_ptr), value :: handle @@ -48916,7 +51274,6 @@ function hipblasCgetrsStridedBatched_typed(handle,trans,n,nrhs,A,lda,strideA,ipi function hipblasZgetrsStridedBatched_typed(handle,trans,n,nrhs,A,lda,strideA,ipiv,strideP,B, & ldb,strideB,myInfo,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrsStridedBatched_typed type(c_ptr), value :: handle @@ -48939,7 +51296,6 @@ function hipblasZgetrsStridedBatched_typed(handle,trans,n,nrhs,A,lda,strideA,ipi end function function hipblasSgels_typed(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgels_typed type(c_ptr), value :: handle @@ -48952,13 +51308,12 @@ function hipblasSgels_typed(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo) type(c_ptr) :: B integer(c_int) :: ldb integer(c_int),target :: myInfo - type(c_ptr) :: deviceInfo + type(c_ptr),value :: deviceInfo ! hipblasSgels_typed = hipblasSgels_(handle,trans,m,n,nrhs,A,lda,B,ldb,c_loc(myInfo),deviceInfo) end function function hipblasDgels_typed(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgels_typed type(c_ptr), value :: handle @@ -48971,13 +51326,12 @@ function hipblasDgels_typed(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo) type(c_ptr) :: B integer(c_int) :: ldb integer(c_int),target :: myInfo - type(c_ptr) :: deviceInfo + type(c_ptr),value :: deviceInfo ! hipblasDgels_typed = hipblasDgels_(handle,trans,m,n,nrhs,A,lda,B,ldb,c_loc(myInfo),deviceInfo) end function function hipblasCgels_typed(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgels_typed type(c_ptr), value :: handle @@ -48990,13 +51344,12 @@ function hipblasCgels_typed(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo) type(c_ptr) :: B integer(c_int) :: ldb integer(c_int),target :: myInfo - type(c_ptr) :: deviceInfo + type(c_ptr),value :: deviceInfo ! hipblasCgels_typed = hipblasCgels_(handle,trans,m,n,nrhs,A,lda,B,ldb,c_loc(myInfo),deviceInfo) end function function hipblasZgels_typed(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgels_typed type(c_ptr), value :: handle @@ -49009,14 +51362,13 @@ function hipblasZgels_typed(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo) type(c_ptr) :: B integer(c_int) :: ldb integer(c_int),target :: myInfo - type(c_ptr) :: deviceInfo + type(c_ptr),value :: deviceInfo ! hipblasZgels_typed = hipblasZgels_(handle,trans,m,n,nrhs,A,lda,B,ldb,c_loc(myInfo),deviceInfo) end function function hipblasSgelsBatched_typed(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgelsBatched_typed type(c_ptr), value :: handle @@ -49038,7 +51390,6 @@ function hipblasSgelsBatched_typed(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,devi function hipblasDgelsBatched_typed(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgelsBatched_typed type(c_ptr), value :: handle @@ -49060,7 +51411,6 @@ function hipblasDgelsBatched_typed(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,devi function hipblasCgelsBatched_typed(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgelsBatched_typed type(c_ptr), value :: handle @@ -49082,7 +51432,6 @@ function hipblasCgelsBatched_typed(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,devi function hipblasZgelsBatched_typed(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgelsBatched_typed type(c_ptr), value :: handle @@ -49104,7 +51453,6 @@ function hipblasZgelsBatched_typed(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,devi function hipblasSgelsStridedBatched_typed(handle,trans,m,n,nrhs,A,lda,strideA,B,ldb,strideB, & myInfo,deviceInfo,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgelsStridedBatched_typed type(c_ptr), value :: handle @@ -49128,7 +51476,6 @@ function hipblasSgelsStridedBatched_typed(handle,trans,m,n,nrhs,A,lda,strideA,B, function hipblasDgelsStridedBatched_typed(handle,trans,m,n,nrhs,A,lda,strideA,B,ldb,strideB, & myInfo,deviceInfo,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgelsStridedBatched_typed type(c_ptr), value :: handle @@ -49152,7 +51499,6 @@ function hipblasDgelsStridedBatched_typed(handle,trans,m,n,nrhs,A,lda,strideA,B, function hipblasCgelsStridedBatched_typed(handle,trans,m,n,nrhs,A,lda,strideA,B,ldb,strideB, & myInfo,deviceInfo,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgelsStridedBatched_typed type(c_ptr), value :: handle @@ -49176,7 +51522,6 @@ function hipblasCgelsStridedBatched_typed(handle,trans,m,n,nrhs,A,lda,strideA,B, function hipblasZgelsStridedBatched_typed(handle,trans,m,n,nrhs,A,lda,strideA,B,ldb,strideB, & myInfo,deviceInfo,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgelsStridedBatched_typed type(c_ptr), value :: handle @@ -49199,7 +51544,6 @@ function hipblasZgelsStridedBatched_typed(handle,trans,m,n,nrhs,A,lda,strideA,B, end function function hipblasSgeqrf_typed(handle,m,n,A,lda,ipiv,myInfo) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeqrf_typed type(c_ptr), value :: handle @@ -49214,7 +51558,6 @@ function hipblasSgeqrf_typed(handle,m,n,A,lda,ipiv,myInfo) end function function hipblasDgeqrf_typed(handle,m,n,A,lda,ipiv,myInfo) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeqrf_typed type(c_ptr), value :: handle @@ -49229,7 +51572,6 @@ function hipblasDgeqrf_typed(handle,m,n,A,lda,ipiv,myInfo) end function function hipblasCgeqrf_typed(handle,m,n,A,lda,ipiv,myInfo) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeqrf_typed type(c_ptr), value :: handle @@ -49244,7 +51586,6 @@ function hipblasCgeqrf_typed(handle,m,n,A,lda,ipiv,myInfo) end function function hipblasZgeqrf_typed(handle,m,n,A,lda,ipiv,myInfo) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeqrf_typed type(c_ptr), value :: handle @@ -49259,7 +51600,6 @@ function hipblasZgeqrf_typed(handle,m,n,A,lda,ipiv,myInfo) end function function hipblasSgeqrfBatched_typed(handle,m,n,A,lda,ipiv,myInfo,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeqrfBatched_typed type(c_ptr), value :: handle @@ -49276,7 +51616,6 @@ function hipblasSgeqrfBatched_typed(handle,m,n,A,lda,ipiv,myInfo,batchCount) end function function hipblasDgeqrfBatched_typed(handle,m,n,A,lda,ipiv,myInfo,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeqrfBatched_typed type(c_ptr), value :: handle @@ -49293,7 +51632,6 @@ function hipblasDgeqrfBatched_typed(handle,m,n,A,lda,ipiv,myInfo,batchCount) end function function hipblasCgeqrfBatched_typed(handle,m,n,A,lda,ipiv,myInfo,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeqrfBatched_typed type(c_ptr), value :: handle @@ -49310,7 +51648,6 @@ function hipblasCgeqrfBatched_typed(handle,m,n,A,lda,ipiv,myInfo,batchCount) end function function hipblasZgeqrfBatched_typed(handle,m,n,A,lda,ipiv,myInfo,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeqrfBatched_typed type(c_ptr), value :: handle @@ -49328,7 +51665,6 @@ function hipblasZgeqrfBatched_typed(handle,m,n,A,lda,ipiv,myInfo,batchCount) function hipblasSgeqrfStridedBatched_typed(handle,m,n,A,lda,strideA,ipiv,strideP,myInfo, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeqrfStridedBatched_typed type(c_ptr), value :: handle @@ -49348,7 +51684,6 @@ function hipblasSgeqrfStridedBatched_typed(handle,m,n,A,lda,strideA,ipiv,strideP function hipblasDgeqrfStridedBatched_typed(handle,m,n,A,lda,strideA,ipiv,strideP,myInfo, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeqrfStridedBatched_typed type(c_ptr), value :: handle @@ -49368,7 +51703,6 @@ function hipblasDgeqrfStridedBatched_typed(handle,m,n,A,lda,strideA,ipiv,strideP function hipblasCgeqrfStridedBatched_typed(handle,m,n,A,lda,strideA,ipiv,strideP,myInfo, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeqrfStridedBatched_typed type(c_ptr), value :: handle @@ -49388,7 +51722,6 @@ function hipblasCgeqrfStridedBatched_typed(handle,m,n,A,lda,strideA,ipiv,strideP function hipblasZgeqrfStridedBatched_typed(handle,m,n,A,lda,strideA,ipiv,strideP,myInfo, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeqrfStridedBatched_typed type(c_ptr), value :: handle @@ -49411,7 +51744,6 @@ function hipblasZgeqrfStridedBatched_typed(handle,m,n,A,lda,strideA,ipiv,strideP #ifdef USE_ASSUMED_RANK function hipblasIsamax_assumed_rank(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamax_assumed_rank type(c_ptr), value :: handle @@ -49424,7 +51756,6 @@ function hipblasIsamax_assumed_rank(handle,n,x,incx,myResult) end function function hipblasIsamax_assumed_rank_devptr(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamax_assumed_rank_devptr type(c_ptr), value :: handle @@ -49438,7 +51769,6 @@ function hipblasIsamax_assumed_rank_devptr(handle,n,x,incx,myResult) #else function hipblasIsamax_rank_0(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamax_rank_0 type(c_ptr), value :: handle @@ -49451,7 +51781,6 @@ function hipblasIsamax_rank_0(handle,n,x,incx,myResult) end function function hipblasIsamax_rank_0_devptr(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamax_rank_0_devptr type(c_ptr), value :: handle @@ -49464,7 +51793,6 @@ function hipblasIsamax_rank_0_devptr(handle,n,x,incx,myResult) end function function hipblasIsamax_rank_1(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamax_rank_1 type(c_ptr), value :: handle @@ -49477,7 +51805,6 @@ function hipblasIsamax_rank_1(handle,n,x,incx,myResult) end function function hipblasIsamax_rank_1_devptr(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamax_rank_1_devptr type(c_ptr), value :: handle @@ -49492,7 +51819,6 @@ function hipblasIsamax_rank_1_devptr(handle,n,x,incx,myResult) #endif #ifdef USE_ASSUMED_RANK function hipblasIdamax_assumed_rank(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamax_assumed_rank type(c_ptr), value :: handle @@ -49505,7 +51831,6 @@ function hipblasIdamax_assumed_rank(handle,n,x,incx,myResult) end function function hipblasIdamax_assumed_rank_devptr(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamax_assumed_rank_devptr type(c_ptr), value :: handle @@ -49519,7 +51844,6 @@ function hipblasIdamax_assumed_rank_devptr(handle,n,x,incx,myResult) #else function hipblasIdamax_rank_0(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamax_rank_0 type(c_ptr), value :: handle @@ -49532,7 +51856,6 @@ function hipblasIdamax_rank_0(handle,n,x,incx,myResult) end function function hipblasIdamax_rank_0_devptr(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamax_rank_0_devptr type(c_ptr), value :: handle @@ -49545,7 +51868,6 @@ function hipblasIdamax_rank_0_devptr(handle,n,x,incx,myResult) end function function hipblasIdamax_rank_1(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamax_rank_1 type(c_ptr), value :: handle @@ -49558,7 +51880,6 @@ function hipblasIdamax_rank_1(handle,n,x,incx,myResult) end function function hipblasIdamax_rank_1_devptr(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamax_rank_1_devptr type(c_ptr), value :: handle @@ -49573,7 +51894,6 @@ function hipblasIdamax_rank_1_devptr(handle,n,x,incx,myResult) #endif #ifdef USE_ASSUMED_RANK function hipblasIcamax_assumed_rank(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamax_assumed_rank type(c_ptr), value :: handle @@ -49586,7 +51906,6 @@ function hipblasIcamax_assumed_rank(handle,n,x,incx,myResult) end function function hipblasIcamax_assumed_rank_devptr(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamax_assumed_rank_devptr type(c_ptr), value :: handle @@ -49600,7 +51919,6 @@ function hipblasIcamax_assumed_rank_devptr(handle,n,x,incx,myResult) #else function hipblasIcamax_rank_0(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamax_rank_0 type(c_ptr), value :: handle @@ -49613,7 +51931,6 @@ function hipblasIcamax_rank_0(handle,n,x,incx,myResult) end function function hipblasIcamax_rank_0_devptr(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamax_rank_0_devptr type(c_ptr), value :: handle @@ -49626,7 +51943,6 @@ function hipblasIcamax_rank_0_devptr(handle,n,x,incx,myResult) end function function hipblasIcamax_rank_1(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamax_rank_1 type(c_ptr), value :: handle @@ -49639,7 +51955,6 @@ function hipblasIcamax_rank_1(handle,n,x,incx,myResult) end function function hipblasIcamax_rank_1_devptr(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamax_rank_1_devptr type(c_ptr), value :: handle @@ -49654,7 +51969,6 @@ function hipblasIcamax_rank_1_devptr(handle,n,x,incx,myResult) #endif #ifdef USE_ASSUMED_RANK function hipblasIzamax_assumed_rank(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamax_assumed_rank type(c_ptr), value :: handle @@ -49667,7 +51981,6 @@ function hipblasIzamax_assumed_rank(handle,n,x,incx,myResult) end function function hipblasIzamax_assumed_rank_devptr(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamax_assumed_rank_devptr type(c_ptr), value :: handle @@ -49681,7 +51994,6 @@ function hipblasIzamax_assumed_rank_devptr(handle,n,x,incx,myResult) #else function hipblasIzamax_rank_0(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamax_rank_0 type(c_ptr), value :: handle @@ -49694,7 +52006,6 @@ function hipblasIzamax_rank_0(handle,n,x,incx,myResult) end function function hipblasIzamax_rank_0_devptr(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamax_rank_0_devptr type(c_ptr), value :: handle @@ -49707,7 +52018,6 @@ function hipblasIzamax_rank_0_devptr(handle,n,x,incx,myResult) end function function hipblasIzamax_rank_1(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamax_rank_1 type(c_ptr), value :: handle @@ -49720,7 +52030,6 @@ function hipblasIzamax_rank_1(handle,n,x,incx,myResult) end function function hipblasIzamax_rank_1_devptr(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamax_rank_1_devptr type(c_ptr), value :: handle @@ -49735,7 +52044,6 @@ function hipblasIzamax_rank_1_devptr(handle,n,x,incx,myResult) #endif #ifdef USE_ASSUMED_RANK function hipblasIsamax_64_assumed_rank(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamax_64_assumed_rank type(c_ptr), value :: handle @@ -49748,7 +52056,6 @@ function hipblasIsamax_64_assumed_rank(handle,n,x,incx,myResult) end function function hipblasIsamax_64_assumed_rank_devptr(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamax_64_assumed_rank_devptr type(c_ptr), value :: handle @@ -49762,7 +52069,6 @@ function hipblasIsamax_64_assumed_rank_devptr(handle,n,x,incx,myResult) #else function hipblasIsamax_64_rank_0(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamax_64_rank_0 type(c_ptr), value :: handle @@ -49775,7 +52081,6 @@ function hipblasIsamax_64_rank_0(handle,n,x,incx,myResult) end function function hipblasIsamax_64_rank_0_devptr(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamax_64_rank_0_devptr type(c_ptr), value :: handle @@ -49788,7 +52093,6 @@ function hipblasIsamax_64_rank_0_devptr(handle,n,x,incx,myResult) end function function hipblasIsamax_64_rank_1(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamax_64_rank_1 type(c_ptr), value :: handle @@ -49801,7 +52105,6 @@ function hipblasIsamax_64_rank_1(handle,n,x,incx,myResult) end function function hipblasIsamax_64_rank_1_devptr(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamax_64_rank_1_devptr type(c_ptr), value :: handle @@ -49816,7 +52119,6 @@ function hipblasIsamax_64_rank_1_devptr(handle,n,x,incx,myResult) #endif #ifdef USE_ASSUMED_RANK function hipblasIdamax_64_assumed_rank(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamax_64_assumed_rank type(c_ptr), value :: handle @@ -49829,7 +52131,6 @@ function hipblasIdamax_64_assumed_rank(handle,n,x,incx,myResult) end function function hipblasIdamax_64_assumed_rank_devptr(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamax_64_assumed_rank_devptr type(c_ptr), value :: handle @@ -49843,7 +52144,6 @@ function hipblasIdamax_64_assumed_rank_devptr(handle,n,x,incx,myResult) #else function hipblasIdamax_64_rank_0(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamax_64_rank_0 type(c_ptr), value :: handle @@ -49856,7 +52156,6 @@ function hipblasIdamax_64_rank_0(handle,n,x,incx,myResult) end function function hipblasIdamax_64_rank_0_devptr(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamax_64_rank_0_devptr type(c_ptr), value :: handle @@ -49869,7 +52168,6 @@ function hipblasIdamax_64_rank_0_devptr(handle,n,x,incx,myResult) end function function hipblasIdamax_64_rank_1(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamax_64_rank_1 type(c_ptr), value :: handle @@ -49882,7 +52180,6 @@ function hipblasIdamax_64_rank_1(handle,n,x,incx,myResult) end function function hipblasIdamax_64_rank_1_devptr(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamax_64_rank_1_devptr type(c_ptr), value :: handle @@ -49897,7 +52194,6 @@ function hipblasIdamax_64_rank_1_devptr(handle,n,x,incx,myResult) #endif #ifdef USE_ASSUMED_RANK function hipblasIcamax_64_assumed_rank(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamax_64_assumed_rank type(c_ptr), value :: handle @@ -49910,7 +52206,6 @@ function hipblasIcamax_64_assumed_rank(handle,n,x,incx,myResult) end function function hipblasIcamax_64_assumed_rank_devptr(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamax_64_assumed_rank_devptr type(c_ptr), value :: handle @@ -49924,7 +52219,6 @@ function hipblasIcamax_64_assumed_rank_devptr(handle,n,x,incx,myResult) #else function hipblasIcamax_64_rank_0(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamax_64_rank_0 type(c_ptr), value :: handle @@ -49937,7 +52231,6 @@ function hipblasIcamax_64_rank_0(handle,n,x,incx,myResult) end function function hipblasIcamax_64_rank_0_devptr(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamax_64_rank_0_devptr type(c_ptr), value :: handle @@ -49950,7 +52243,6 @@ function hipblasIcamax_64_rank_0_devptr(handle,n,x,incx,myResult) end function function hipblasIcamax_64_rank_1(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamax_64_rank_1 type(c_ptr), value :: handle @@ -49963,7 +52255,6 @@ function hipblasIcamax_64_rank_1(handle,n,x,incx,myResult) end function function hipblasIcamax_64_rank_1_devptr(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamax_64_rank_1_devptr type(c_ptr), value :: handle @@ -49978,7 +52269,6 @@ function hipblasIcamax_64_rank_1_devptr(handle,n,x,incx,myResult) #endif #ifdef USE_ASSUMED_RANK function hipblasIzamax_64_assumed_rank(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamax_64_assumed_rank type(c_ptr), value :: handle @@ -49991,7 +52281,6 @@ function hipblasIzamax_64_assumed_rank(handle,n,x,incx,myResult) end function function hipblasIzamax_64_assumed_rank_devptr(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamax_64_assumed_rank_devptr type(c_ptr), value :: handle @@ -50005,7 +52294,6 @@ function hipblasIzamax_64_assumed_rank_devptr(handle,n,x,incx,myResult) #else function hipblasIzamax_64_rank_0(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamax_64_rank_0 type(c_ptr), value :: handle @@ -50018,7 +52306,6 @@ function hipblasIzamax_64_rank_0(handle,n,x,incx,myResult) end function function hipblasIzamax_64_rank_0_devptr(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamax_64_rank_0_devptr type(c_ptr), value :: handle @@ -50031,7 +52318,6 @@ function hipblasIzamax_64_rank_0_devptr(handle,n,x,incx,myResult) end function function hipblasIzamax_64_rank_1(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamax_64_rank_1 type(c_ptr), value :: handle @@ -50044,7 +52330,6 @@ function hipblasIzamax_64_rank_1(handle,n,x,incx,myResult) end function function hipblasIzamax_64_rank_1_devptr(handle,n,x,incx,myResult) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamax_64_rank_1_devptr type(c_ptr), value :: handle @@ -50058,24487 +52343,23431 @@ function hipblasIzamax_64_rank_1_devptr(handle,n,x,incx,myResult) #endif #ifdef USE_ASSUMED_RANK - function hipblasIsamaxStridedBatched_assumed_rank(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasIsamaxBatched_assumed_rank(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamaxStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamaxBatched_assumed_rank type(c_ptr), value :: handle integer(c_int) :: n - real(c_float),target,dimension(..) :: x + type(c_ptr), value :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex integer(c_int) :: batchCount - type(c_ptr) :: myResult + integer(c_int),target,dimension(..) :: myResult ! - hipblasIsamaxStridedBatched_assumed_rank = hipblasIsamaxStridedBatched_(handle,n,c_loc(x), & - incx,stridex,batchCount,myResult) + hipblasIsamaxBatched_assumed_rank = hipblasIsamaxBatched_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function #else - function hipblasIsamaxStridedBatched_rank_0(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasIsamaxBatched_rank_0(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamaxStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamaxBatched_rank_0 type(c_ptr), value :: handle integer(c_int) :: n - real(c_float),target :: x + type(c_ptr), value :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex integer(c_int) :: batchCount - type(c_ptr) :: myResult + integer(c_int),target :: myResult ! - hipblasIsamaxStridedBatched_rank_0 = hipblasIsamaxStridedBatched_(handle,n,c_loc(x),incx, & - stridex,batchCount,myResult) + hipblasIsamaxBatched_rank_0 = hipblasIsamaxBatched_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function - function hipblasIsamaxStridedBatched_rank_1(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasIsamaxBatched_rank_1(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamaxStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamaxBatched_rank_1 type(c_ptr), value :: handle integer(c_int) :: n - real(c_float),target,dimension(:) :: x + type(c_ptr), value :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex integer(c_int) :: batchCount - type(c_ptr) :: myResult + integer(c_int),target,dimension(:) :: myResult ! - hipblasIsamaxStridedBatched_rank_1 = hipblasIsamaxStridedBatched_(handle,n,c_loc(x),incx, & - stridex,batchCount,myResult) + hipblasIsamaxBatched_rank_1 = hipblasIsamaxBatched_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasIdamaxStridedBatched_assumed_rank(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasIdamaxBatched_assumed_rank(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamaxStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamaxBatched_assumed_rank type(c_ptr), value :: handle integer(c_int) :: n - real(c_double),target,dimension(..) :: x + type(c_ptr), value :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex integer(c_int) :: batchCount - type(c_ptr) :: myResult + integer(c_int),target,dimension(..) :: myResult ! - hipblasIdamaxStridedBatched_assumed_rank = hipblasIdamaxStridedBatched_(handle,n,c_loc(x), & - incx,stridex,batchCount,myResult) + hipblasIdamaxBatched_assumed_rank = hipblasIdamaxBatched_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function #else - function hipblasIdamaxStridedBatched_rank_0(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasIdamaxBatched_rank_0(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamaxStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamaxBatched_rank_0 type(c_ptr), value :: handle integer(c_int) :: n - real(c_double),target :: x + type(c_ptr), value :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex integer(c_int) :: batchCount - type(c_ptr) :: myResult + integer(c_int),target :: myResult ! - hipblasIdamaxStridedBatched_rank_0 = hipblasIdamaxStridedBatched_(handle,n,c_loc(x),incx, & - stridex,batchCount,myResult) + hipblasIdamaxBatched_rank_0 = hipblasIdamaxBatched_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function - function hipblasIdamaxStridedBatched_rank_1(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasIdamaxBatched_rank_1(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamaxStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamaxBatched_rank_1 type(c_ptr), value :: handle integer(c_int) :: n - real(c_double),target,dimension(:) :: x + type(c_ptr), value :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex integer(c_int) :: batchCount - type(c_ptr) :: myResult + integer(c_int),target,dimension(:) :: myResult ! - hipblasIdamaxStridedBatched_rank_1 = hipblasIdamaxStridedBatched_(handle,n,c_loc(x),incx, & - stridex,batchCount,myResult) + hipblasIdamaxBatched_rank_1 = hipblasIdamaxBatched_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasIcamaxStridedBatched_assumed_rank(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasIcamaxBatched_assumed_rank(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamaxStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamaxBatched_assumed_rank type(c_ptr), value :: handle integer(c_int) :: n - complex(c_float_complex),target,dimension(..) :: x + type(c_ptr), value :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex integer(c_int) :: batchCount - type(c_ptr) :: myResult + integer(c_int),target,dimension(..) :: myResult ! - hipblasIcamaxStridedBatched_assumed_rank = hipblasIcamaxStridedBatched_(handle,n,c_loc(x), & - incx,stridex,batchCount,myResult) + hipblasIcamaxBatched_assumed_rank = hipblasIcamaxBatched_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function #else - function hipblasIcamaxStridedBatched_rank_0(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasIcamaxBatched_rank_0(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamaxStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamaxBatched_rank_0 type(c_ptr), value :: handle integer(c_int) :: n - complex(c_float_complex),target :: x + type(c_ptr), value :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex integer(c_int) :: batchCount - type(c_ptr) :: myResult + integer(c_int),target :: myResult ! - hipblasIcamaxStridedBatched_rank_0 = hipblasIcamaxStridedBatched_(handle,n,c_loc(x),incx, & - stridex,batchCount,myResult) + hipblasIcamaxBatched_rank_0 = hipblasIcamaxBatched_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function - function hipblasIcamaxStridedBatched_rank_1(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasIcamaxBatched_rank_1(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamaxStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamaxBatched_rank_1 type(c_ptr), value :: handle integer(c_int) :: n - complex(c_float_complex),target,dimension(:) :: x + type(c_ptr), value :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex integer(c_int) :: batchCount - type(c_ptr) :: myResult + integer(c_int),target,dimension(:) :: myResult ! - hipblasIcamaxStridedBatched_rank_1 = hipblasIcamaxStridedBatched_(handle,n,c_loc(x),incx, & - stridex,batchCount,myResult) + hipblasIcamaxBatched_rank_1 = hipblasIcamaxBatched_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasIzamaxStridedBatched_assumed_rank(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasIzamaxBatched_assumed_rank(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamaxStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamaxBatched_assumed_rank type(c_ptr), value :: handle integer(c_int) :: n - complex(c_double_complex),target,dimension(..) :: x + type(c_ptr), value :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex integer(c_int) :: batchCount - type(c_ptr) :: myResult + integer(c_int),target,dimension(..) :: myResult ! - hipblasIzamaxStridedBatched_assumed_rank = hipblasIzamaxStridedBatched_(handle,n,c_loc(x), & - incx,stridex,batchCount,myResult) + hipblasIzamaxBatched_assumed_rank = hipblasIzamaxBatched_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function #else - function hipblasIzamaxStridedBatched_rank_0(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasIzamaxBatched_rank_0(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamaxStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamaxBatched_rank_0 type(c_ptr), value :: handle integer(c_int) :: n - complex(c_double_complex),target :: x + type(c_ptr), value :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex integer(c_int) :: batchCount - type(c_ptr) :: myResult + integer(c_int),target :: myResult ! - hipblasIzamaxStridedBatched_rank_0 = hipblasIzamaxStridedBatched_(handle,n,c_loc(x),incx, & - stridex,batchCount,myResult) + hipblasIzamaxBatched_rank_0 = hipblasIzamaxBatched_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function - function hipblasIzamaxStridedBatched_rank_1(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasIzamaxBatched_rank_1(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamaxStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamaxBatched_rank_1 type(c_ptr), value :: handle integer(c_int) :: n - complex(c_double_complex),target,dimension(:) :: x + type(c_ptr), value :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex integer(c_int) :: batchCount - type(c_ptr) :: myResult + integer(c_int),target,dimension(:) :: myResult ! - hipblasIzamaxStridedBatched_rank_1 = hipblasIzamaxStridedBatched_(handle,n,c_loc(x),incx, & - stridex,batchCount,myResult) + hipblasIzamaxBatched_rank_1 = hipblasIzamaxBatched_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasIsamaxStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,batchCount, & - myResult) - use iso_c_binding + function hipblasIsamaxBatched_64_assumed_rank(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamaxStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamaxBatched_64_assumed_rank type(c_ptr), value :: handle integer(c_int64_t) :: n - real(c_float),target,dimension(..) :: x + type(c_ptr), value :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex integer(c_int64_t) :: batchCount - type(c_ptr) :: myResult + integer(c_int64_t),target,dimension(..) :: myResult ! - hipblasIsamaxStridedBatched_64_assumed_rank = hipblasIsamaxStridedBatched_64_(handle,n, & - c_loc(x),incx,stridex,batchCount,myResult) + hipblasIsamaxBatched_64_assumed_rank = hipblasIsamaxBatched_64_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function #else - function hipblasIsamaxStridedBatched_64_rank_0(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasIsamaxBatched_64_rank_0(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamaxStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamaxBatched_64_rank_0 type(c_ptr), value :: handle integer(c_int64_t) :: n - real(c_float),target :: x + type(c_ptr), value :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex integer(c_int64_t) :: batchCount - type(c_ptr) :: myResult + integer(c_int64_t),target :: myResult ! - hipblasIsamaxStridedBatched_64_rank_0 = hipblasIsamaxStridedBatched_64_(handle,n,c_loc(x), & - incx,stridex,batchCount,myResult) + hipblasIsamaxBatched_64_rank_0 = hipblasIsamaxBatched_64_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function - function hipblasIsamaxStridedBatched_64_rank_1(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasIsamaxBatched_64_rank_1(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamaxStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamaxBatched_64_rank_1 type(c_ptr), value :: handle integer(c_int64_t) :: n - real(c_float),target,dimension(:) :: x + type(c_ptr), value :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex integer(c_int64_t) :: batchCount - type(c_ptr) :: myResult + integer(c_int64_t),target,dimension(:) :: myResult ! - hipblasIsamaxStridedBatched_64_rank_1 = hipblasIsamaxStridedBatched_64_(handle,n,c_loc(x), & - incx,stridex,batchCount,myResult) + hipblasIsamaxBatched_64_rank_1 = hipblasIsamaxBatched_64_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasIdamaxStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,batchCount, & - myResult) - use iso_c_binding + function hipblasIdamaxBatched_64_assumed_rank(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamaxStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamaxBatched_64_assumed_rank type(c_ptr), value :: handle integer(c_int64_t) :: n - real(c_double),target,dimension(..) :: x + type(c_ptr), value :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex integer(c_int64_t) :: batchCount - type(c_ptr) :: myResult + integer(c_int64_t),target,dimension(..) :: myResult ! - hipblasIdamaxStridedBatched_64_assumed_rank = hipblasIdamaxStridedBatched_64_(handle,n, & - c_loc(x),incx,stridex,batchCount,myResult) + hipblasIdamaxBatched_64_assumed_rank = hipblasIdamaxBatched_64_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function #else - function hipblasIdamaxStridedBatched_64_rank_0(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasIdamaxBatched_64_rank_0(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamaxStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamaxBatched_64_rank_0 type(c_ptr), value :: handle integer(c_int64_t) :: n - real(c_double),target :: x + type(c_ptr), value :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex integer(c_int64_t) :: batchCount - type(c_ptr) :: myResult + integer(c_int64_t),target :: myResult ! - hipblasIdamaxStridedBatched_64_rank_0 = hipblasIdamaxStridedBatched_64_(handle,n,c_loc(x), & - incx,stridex,batchCount,myResult) + hipblasIdamaxBatched_64_rank_0 = hipblasIdamaxBatched_64_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function - function hipblasIdamaxStridedBatched_64_rank_1(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasIdamaxBatched_64_rank_1(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamaxStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamaxBatched_64_rank_1 type(c_ptr), value :: handle integer(c_int64_t) :: n - real(c_double),target,dimension(:) :: x + type(c_ptr), value :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex integer(c_int64_t) :: batchCount - type(c_ptr) :: myResult + integer(c_int64_t),target,dimension(:) :: myResult ! - hipblasIdamaxStridedBatched_64_rank_1 = hipblasIdamaxStridedBatched_64_(handle,n,c_loc(x), & - incx,stridex,batchCount,myResult) + hipblasIdamaxBatched_64_rank_1 = hipblasIdamaxBatched_64_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasIcamaxStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,batchCount, & - myResult) - use iso_c_binding + function hipblasIcamaxBatched_64_assumed_rank(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamaxStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamaxBatched_64_assumed_rank type(c_ptr), value :: handle integer(c_int64_t) :: n - complex(c_float_complex),target,dimension(..) :: x + type(c_ptr), value :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex integer(c_int64_t) :: batchCount - type(c_ptr) :: myResult + integer(c_int64_t),target,dimension(..) :: myResult ! - hipblasIcamaxStridedBatched_64_assumed_rank = hipblasIcamaxStridedBatched_64_(handle,n, & - c_loc(x),incx,stridex,batchCount,myResult) + hipblasIcamaxBatched_64_assumed_rank = hipblasIcamaxBatched_64_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function #else - function hipblasIcamaxStridedBatched_64_rank_0(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasIcamaxBatched_64_rank_0(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamaxStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamaxBatched_64_rank_0 type(c_ptr), value :: handle integer(c_int64_t) :: n - complex(c_float_complex),target :: x + type(c_ptr), value :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex integer(c_int64_t) :: batchCount - type(c_ptr) :: myResult + integer(c_int64_t),target :: myResult ! - hipblasIcamaxStridedBatched_64_rank_0 = hipblasIcamaxStridedBatched_64_(handle,n,c_loc(x), & - incx,stridex,batchCount,myResult) + hipblasIcamaxBatched_64_rank_0 = hipblasIcamaxBatched_64_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function - function hipblasIcamaxStridedBatched_64_rank_1(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasIcamaxBatched_64_rank_1(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamaxStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamaxBatched_64_rank_1 type(c_ptr), value :: handle integer(c_int64_t) :: n - complex(c_float_complex),target,dimension(:) :: x + type(c_ptr), value :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex integer(c_int64_t) :: batchCount - type(c_ptr) :: myResult + integer(c_int64_t),target,dimension(:) :: myResult ! - hipblasIcamaxStridedBatched_64_rank_1 = hipblasIcamaxStridedBatched_64_(handle,n,c_loc(x), & - incx,stridex,batchCount,myResult) + hipblasIcamaxBatched_64_rank_1 = hipblasIcamaxBatched_64_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasIzamaxStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,batchCount, & - myResult) - use iso_c_binding + function hipblasIzamaxBatched_64_assumed_rank(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamaxStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamaxBatched_64_assumed_rank type(c_ptr), value :: handle integer(c_int64_t) :: n - complex(c_double_complex),target,dimension(..) :: x + type(c_ptr), value :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex integer(c_int64_t) :: batchCount - type(c_ptr) :: myResult + integer(c_int64_t),target,dimension(..) :: myResult ! - hipblasIzamaxStridedBatched_64_assumed_rank = hipblasIzamaxStridedBatched_64_(handle,n, & - c_loc(x),incx,stridex,batchCount,myResult) + hipblasIzamaxBatched_64_assumed_rank = hipblasIzamaxBatched_64_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function #else - function hipblasIzamaxStridedBatched_64_rank_0(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasIzamaxBatched_64_rank_0(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamaxStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamaxBatched_64_rank_0 type(c_ptr), value :: handle integer(c_int64_t) :: n - complex(c_double_complex),target :: x + type(c_ptr), value :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex integer(c_int64_t) :: batchCount - type(c_ptr) :: myResult + integer(c_int64_t),target :: myResult ! - hipblasIzamaxStridedBatched_64_rank_0 = hipblasIzamaxStridedBatched_64_(handle,n,c_loc(x), & - incx,stridex,batchCount,myResult) + hipblasIzamaxBatched_64_rank_0 = hipblasIzamaxBatched_64_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function - function hipblasIzamaxStridedBatched_64_rank_1(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasIzamaxBatched_64_rank_1(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamaxStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamaxBatched_64_rank_1 type(c_ptr), value :: handle integer(c_int64_t) :: n - complex(c_double_complex),target,dimension(:) :: x + type(c_ptr), value :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex integer(c_int64_t) :: batchCount - type(c_ptr) :: myResult + integer(c_int64_t),target,dimension(:) :: myResult ! - hipblasIzamaxStridedBatched_64_rank_1 = hipblasIzamaxStridedBatched_64_(handle,n,c_loc(x), & - incx,stridex,batchCount,myResult) + hipblasIzamaxBatched_64_rank_1 = hipblasIzamaxBatched_64_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasIsamin_assumed_rank(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIsamaxStridedBatched_assumed_rank(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamin_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamaxStridedBatched_assumed_rank type(c_ptr), value :: handle integer(c_int) :: n real(c_float),target,dimension(..) :: x integer(c_int) :: incx - integer(c_int),target :: myResult + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + integer(c_int),target,dimension(..) :: myResult ! - hipblasIsamin_assumed_rank = hipblasIsamin_(handle,n,c_loc(x),incx,c_loc(myResult)) + hipblasIsamaxStridedBatched_assumed_rank = hipblasIsamaxStridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,c_loc(myResult)) end function - function hipblasIsamin_assumed_rank_devptr(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIsamaxStridedBatched_assumed_rank_devptr(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamin_assumed_rank_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamaxStridedBatched_assumed_rank_devptr type(c_ptr), value :: handle integer(c_int) :: n real(c_float),target,dimension(..) :: x integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount type(c_ptr),value :: myResult ! - hipblasIsamin_assumed_rank_devptr = hipblasIsamin_(handle,n,c_loc(x),incx,myResult) + hipblasIsamaxStridedBatched_assumed_rank_devptr = hipblasIsamaxStridedBatched_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) end function #else - function hipblasIsamin_rank_0(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIsamaxStridedBatched_rank_0(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamin_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamaxStridedBatched_rank_0 type(c_ptr), value :: handle integer(c_int) :: n real(c_float),target :: x integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount integer(c_int),target :: myResult ! - hipblasIsamin_rank_0 = hipblasIsamin_(handle,n,c_loc(x),incx,c_loc(myResult)) + hipblasIsamaxStridedBatched_rank_0 = hipblasIsamaxStridedBatched_(handle,n,c_loc(x),incx, & + stridex,batchCount,c_loc(myResult)) end function - function hipblasIsamin_rank_0_devptr(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIsamaxStridedBatched_rank_0_devptr(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamin_rank_0_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamaxStridedBatched_rank_0_devptr type(c_ptr), value :: handle integer(c_int) :: n real(c_float),target :: x integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount type(c_ptr),value :: myResult ! - hipblasIsamin_rank_0_devptr = hipblasIsamin_(handle,n,c_loc(x),incx,myResult) + hipblasIsamaxStridedBatched_rank_0_devptr = hipblasIsamaxStridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) end function - function hipblasIsamin_rank_1(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIsamaxStridedBatched_rank_1(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamin_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamaxStridedBatched_rank_1 type(c_ptr), value :: handle integer(c_int) :: n real(c_float),target,dimension(:) :: x integer(c_int) :: incx - integer(c_int),target :: myResult + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + integer(c_int),target,dimension(:) :: myResult ! - hipblasIsamin_rank_1 = hipblasIsamin_(handle,n,c_loc(x),incx,c_loc(myResult)) + hipblasIsamaxStridedBatched_rank_1 = hipblasIsamaxStridedBatched_(handle,n,c_loc(x),incx, & + stridex,batchCount,c_loc(myResult)) end function - function hipblasIsamin_rank_1_devptr(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIsamaxStridedBatched_rank_1_devptr(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamin_rank_1_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamaxStridedBatched_rank_1_devptr type(c_ptr), value :: handle integer(c_int) :: n real(c_float),target,dimension(:) :: x integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount type(c_ptr),value :: myResult ! - hipblasIsamin_rank_1_devptr = hipblasIsamin_(handle,n,c_loc(x),incx,myResult) + hipblasIsamaxStridedBatched_rank_1_devptr = hipblasIsamaxStridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) + end function + + function hipblasIsamaxStridedBatched_strided_rank(handle,n,x,incx,stridex,batchCount,myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamaxStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + integer(c_int),target,dimension(:) :: myResult + ! + hipblasIsamaxStridedBatched_strided_rank = hipblasIsamaxStridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,c_loc(myResult)) + end function + + function hipblasIsamaxStridedBatched_strided_rank_devptr(handle,n,x,incx,stridex,batchCount, & + myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamaxStridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + type(c_ptr),value :: myResult + ! + hipblasIsamaxStridedBatched_strided_rank_devptr = hipblasIsamaxStridedBatched_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasIdamin_assumed_rank(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIdamaxStridedBatched_assumed_rank(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamin_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamaxStridedBatched_assumed_rank type(c_ptr), value :: handle integer(c_int) :: n real(c_double),target,dimension(..) :: x integer(c_int) :: incx - integer(c_int),target :: myResult + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + integer(c_int),target,dimension(..) :: myResult ! - hipblasIdamin_assumed_rank = hipblasIdamin_(handle,n,c_loc(x),incx,c_loc(myResult)) + hipblasIdamaxStridedBatched_assumed_rank = hipblasIdamaxStridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,c_loc(myResult)) end function - function hipblasIdamin_assumed_rank_devptr(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIdamaxStridedBatched_assumed_rank_devptr(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamin_assumed_rank_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamaxStridedBatched_assumed_rank_devptr type(c_ptr), value :: handle integer(c_int) :: n real(c_double),target,dimension(..) :: x integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount type(c_ptr),value :: myResult ! - hipblasIdamin_assumed_rank_devptr = hipblasIdamin_(handle,n,c_loc(x),incx,myResult) + hipblasIdamaxStridedBatched_assumed_rank_devptr = hipblasIdamaxStridedBatched_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) end function #else - function hipblasIdamin_rank_0(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIdamaxStridedBatched_rank_0(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamin_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamaxStridedBatched_rank_0 type(c_ptr), value :: handle integer(c_int) :: n real(c_double),target :: x integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount integer(c_int),target :: myResult ! - hipblasIdamin_rank_0 = hipblasIdamin_(handle,n,c_loc(x),incx,c_loc(myResult)) + hipblasIdamaxStridedBatched_rank_0 = hipblasIdamaxStridedBatched_(handle,n,c_loc(x),incx, & + stridex,batchCount,c_loc(myResult)) end function - function hipblasIdamin_rank_0_devptr(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIdamaxStridedBatched_rank_0_devptr(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamin_rank_0_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamaxStridedBatched_rank_0_devptr type(c_ptr), value :: handle integer(c_int) :: n real(c_double),target :: x integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount type(c_ptr),value :: myResult ! - hipblasIdamin_rank_0_devptr = hipblasIdamin_(handle,n,c_loc(x),incx,myResult) + hipblasIdamaxStridedBatched_rank_0_devptr = hipblasIdamaxStridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) end function - function hipblasIdamin_rank_1(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIdamaxStridedBatched_rank_1(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamin_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamaxStridedBatched_rank_1 type(c_ptr), value :: handle integer(c_int) :: n real(c_double),target,dimension(:) :: x integer(c_int) :: incx - integer(c_int),target :: myResult + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + integer(c_int),target,dimension(:) :: myResult ! - hipblasIdamin_rank_1 = hipblasIdamin_(handle,n,c_loc(x),incx,c_loc(myResult)) + hipblasIdamaxStridedBatched_rank_1 = hipblasIdamaxStridedBatched_(handle,n,c_loc(x),incx, & + stridex,batchCount,c_loc(myResult)) end function - function hipblasIdamin_rank_1_devptr(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIdamaxStridedBatched_rank_1_devptr(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamin_rank_1_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamaxStridedBatched_rank_1_devptr type(c_ptr), value :: handle integer(c_int) :: n real(c_double),target,dimension(:) :: x integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount type(c_ptr),value :: myResult ! - hipblasIdamin_rank_1_devptr = hipblasIdamin_(handle,n,c_loc(x),incx,myResult) + hipblasIdamaxStridedBatched_rank_1_devptr = hipblasIdamaxStridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) + end function + + function hipblasIdamaxStridedBatched_strided_rank(handle,n,x,incx,stridex,batchCount,myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamaxStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + integer(c_int),target,dimension(:) :: myResult + ! + hipblasIdamaxStridedBatched_strided_rank = hipblasIdamaxStridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,c_loc(myResult)) + end function + + function hipblasIdamaxStridedBatched_strided_rank_devptr(handle,n,x,incx,stridex,batchCount, & + myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamaxStridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + type(c_ptr),value :: myResult + ! + hipblasIdamaxStridedBatched_strided_rank_devptr = hipblasIdamaxStridedBatched_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasIcamin_assumed_rank(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIcamaxStridedBatched_assumed_rank(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamin_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamaxStridedBatched_assumed_rank type(c_ptr), value :: handle integer(c_int) :: n complex(c_float_complex),target,dimension(..) :: x integer(c_int) :: incx - integer(c_int),target :: myResult + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + integer(c_int),target,dimension(..) :: myResult ! - hipblasIcamin_assumed_rank = hipblasIcamin_(handle,n,c_loc(x),incx,c_loc(myResult)) + hipblasIcamaxStridedBatched_assumed_rank = hipblasIcamaxStridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,c_loc(myResult)) end function - function hipblasIcamin_assumed_rank_devptr(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIcamaxStridedBatched_assumed_rank_devptr(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamin_assumed_rank_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamaxStridedBatched_assumed_rank_devptr type(c_ptr), value :: handle integer(c_int) :: n complex(c_float_complex),target,dimension(..) :: x integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount type(c_ptr),value :: myResult ! - hipblasIcamin_assumed_rank_devptr = hipblasIcamin_(handle,n,c_loc(x),incx,myResult) + hipblasIcamaxStridedBatched_assumed_rank_devptr = hipblasIcamaxStridedBatched_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) end function #else - function hipblasIcamin_rank_0(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIcamaxStridedBatched_rank_0(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamin_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamaxStridedBatched_rank_0 type(c_ptr), value :: handle integer(c_int) :: n complex(c_float_complex),target :: x integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount integer(c_int),target :: myResult ! - hipblasIcamin_rank_0 = hipblasIcamin_(handle,n,c_loc(x),incx,c_loc(myResult)) + hipblasIcamaxStridedBatched_rank_0 = hipblasIcamaxStridedBatched_(handle,n,c_loc(x),incx, & + stridex,batchCount,c_loc(myResult)) end function - function hipblasIcamin_rank_0_devptr(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIcamaxStridedBatched_rank_0_devptr(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamin_rank_0_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamaxStridedBatched_rank_0_devptr type(c_ptr), value :: handle integer(c_int) :: n complex(c_float_complex),target :: x integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount type(c_ptr),value :: myResult ! - hipblasIcamin_rank_0_devptr = hipblasIcamin_(handle,n,c_loc(x),incx,myResult) + hipblasIcamaxStridedBatched_rank_0_devptr = hipblasIcamaxStridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) end function - function hipblasIcamin_rank_1(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIcamaxStridedBatched_rank_1(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamin_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamaxStridedBatched_rank_1 type(c_ptr), value :: handle integer(c_int) :: n complex(c_float_complex),target,dimension(:) :: x integer(c_int) :: incx - integer(c_int),target :: myResult + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + integer(c_int),target,dimension(:) :: myResult ! - hipblasIcamin_rank_1 = hipblasIcamin_(handle,n,c_loc(x),incx,c_loc(myResult)) + hipblasIcamaxStridedBatched_rank_1 = hipblasIcamaxStridedBatched_(handle,n,c_loc(x),incx, & + stridex,batchCount,c_loc(myResult)) end function - function hipblasIcamin_rank_1_devptr(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIcamaxStridedBatched_rank_1_devptr(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamin_rank_1_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamaxStridedBatched_rank_1_devptr type(c_ptr), value :: handle integer(c_int) :: n complex(c_float_complex),target,dimension(:) :: x integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount type(c_ptr),value :: myResult ! - hipblasIcamin_rank_1_devptr = hipblasIcamin_(handle,n,c_loc(x),incx,myResult) + hipblasIcamaxStridedBatched_rank_1_devptr = hipblasIcamaxStridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) + end function + + function hipblasIcamaxStridedBatched_strided_rank(handle,n,x,incx,stridex,batchCount,myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamaxStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + integer(c_int),target,dimension(:) :: myResult + ! + hipblasIcamaxStridedBatched_strided_rank = hipblasIcamaxStridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,c_loc(myResult)) + end function + + function hipblasIcamaxStridedBatched_strided_rank_devptr(handle,n,x,incx,stridex,batchCount, & + myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamaxStridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + type(c_ptr),value :: myResult + ! + hipblasIcamaxStridedBatched_strided_rank_devptr = hipblasIcamaxStridedBatched_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasIzamin_assumed_rank(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIzamaxStridedBatched_assumed_rank(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamin_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamaxStridedBatched_assumed_rank type(c_ptr), value :: handle integer(c_int) :: n complex(c_double_complex),target,dimension(..) :: x integer(c_int) :: incx - integer(c_int),target :: myResult + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + integer(c_int),target,dimension(..) :: myResult ! - hipblasIzamin_assumed_rank = hipblasIzamin_(handle,n,c_loc(x),incx,c_loc(myResult)) + hipblasIzamaxStridedBatched_assumed_rank = hipblasIzamaxStridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,c_loc(myResult)) end function - function hipblasIzamin_assumed_rank_devptr(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIzamaxStridedBatched_assumed_rank_devptr(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamin_assumed_rank_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamaxStridedBatched_assumed_rank_devptr type(c_ptr), value :: handle integer(c_int) :: n complex(c_double_complex),target,dimension(..) :: x integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount type(c_ptr),value :: myResult ! - hipblasIzamin_assumed_rank_devptr = hipblasIzamin_(handle,n,c_loc(x),incx,myResult) + hipblasIzamaxStridedBatched_assumed_rank_devptr = hipblasIzamaxStridedBatched_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) end function #else - function hipblasIzamin_rank_0(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIzamaxStridedBatched_rank_0(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamin_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamaxStridedBatched_rank_0 type(c_ptr), value :: handle integer(c_int) :: n complex(c_double_complex),target :: x integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount integer(c_int),target :: myResult ! - hipblasIzamin_rank_0 = hipblasIzamin_(handle,n,c_loc(x),incx,c_loc(myResult)) + hipblasIzamaxStridedBatched_rank_0 = hipblasIzamaxStridedBatched_(handle,n,c_loc(x),incx, & + stridex,batchCount,c_loc(myResult)) end function - function hipblasIzamin_rank_0_devptr(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIzamaxStridedBatched_rank_0_devptr(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamin_rank_0_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamaxStridedBatched_rank_0_devptr type(c_ptr), value :: handle integer(c_int) :: n complex(c_double_complex),target :: x integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount type(c_ptr),value :: myResult ! - hipblasIzamin_rank_0_devptr = hipblasIzamin_(handle,n,c_loc(x),incx,myResult) + hipblasIzamaxStridedBatched_rank_0_devptr = hipblasIzamaxStridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) end function - function hipblasIzamin_rank_1(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIzamaxStridedBatched_rank_1(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamin_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamaxStridedBatched_rank_1 type(c_ptr), value :: handle integer(c_int) :: n complex(c_double_complex),target,dimension(:) :: x integer(c_int) :: incx - integer(c_int),target :: myResult + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + integer(c_int),target,dimension(:) :: myResult ! - hipblasIzamin_rank_1 = hipblasIzamin_(handle,n,c_loc(x),incx,c_loc(myResult)) + hipblasIzamaxStridedBatched_rank_1 = hipblasIzamaxStridedBatched_(handle,n,c_loc(x),incx, & + stridex,batchCount,c_loc(myResult)) end function - function hipblasIzamin_rank_1_devptr(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIzamaxStridedBatched_rank_1_devptr(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamin_rank_1_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamaxStridedBatched_rank_1_devptr type(c_ptr), value :: handle integer(c_int) :: n complex(c_double_complex),target,dimension(:) :: x integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount type(c_ptr),value :: myResult ! - hipblasIzamin_rank_1_devptr = hipblasIzamin_(handle,n,c_loc(x),incx,myResult) + hipblasIzamaxStridedBatched_rank_1_devptr = hipblasIzamaxStridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) + end function + + function hipblasIzamaxStridedBatched_strided_rank(handle,n,x,incx,stridex,batchCount,myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamaxStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + integer(c_int),target,dimension(:) :: myResult + ! + hipblasIzamaxStridedBatched_strided_rank = hipblasIzamaxStridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,c_loc(myResult)) + end function + + function hipblasIzamaxStridedBatched_strided_rank_devptr(handle,n,x,incx,stridex,batchCount, & + myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamaxStridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + type(c_ptr),value :: myResult + ! + hipblasIzamaxStridedBatched_strided_rank_devptr = hipblasIzamaxStridedBatched_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasIsamin_64_assumed_rank(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIsamaxStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamin_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamaxStridedBatched_64_assumed_rank type(c_ptr), value :: handle integer(c_int64_t) :: n real(c_float),target,dimension(..) :: x integer(c_int64_t) :: incx - integer(c_int64_t),target :: myResult + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + integer(c_int64_t),target,dimension(..) :: myResult ! - hipblasIsamin_64_assumed_rank = hipblasIsamin_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + hipblasIsamaxStridedBatched_64_assumed_rank = hipblasIsamaxStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,c_loc(myResult)) end function - function hipblasIsamin_64_assumed_rank_devptr(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIsamaxStridedBatched_64_assumed_rank_devptr(handle,n,x,incx,stridex, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamin_64_assumed_rank_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamaxStridedBatched_64_assumed_rank_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n real(c_float),target,dimension(..) :: x integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount type(c_ptr),value :: myResult ! - hipblasIsamin_64_assumed_rank_devptr = hipblasIsamin_64_(handle,n,c_loc(x),incx,myResult) + hipblasIsamaxStridedBatched_64_assumed_rank_devptr = hipblasIsamaxStridedBatched_64_(handle, & + n,c_loc(x),incx,stridex,batchCount,myResult) end function #else - function hipblasIsamin_64_rank_0(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIsamaxStridedBatched_64_rank_0(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamin_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamaxStridedBatched_64_rank_0 type(c_ptr), value :: handle integer(c_int64_t) :: n real(c_float),target :: x integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount integer(c_int64_t),target :: myResult ! - hipblasIsamin_64_rank_0 = hipblasIsamin_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + hipblasIsamaxStridedBatched_64_rank_0 = hipblasIsamaxStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,batchCount,c_loc(myResult)) end function - function hipblasIsamin_64_rank_0_devptr(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIsamaxStridedBatched_64_rank_0_devptr(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamin_64_rank_0_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamaxStridedBatched_64_rank_0_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n real(c_float),target :: x integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount type(c_ptr),value :: myResult ! - hipblasIsamin_64_rank_0_devptr = hipblasIsamin_64_(handle,n,c_loc(x),incx,myResult) + hipblasIsamaxStridedBatched_64_rank_0_devptr = hipblasIsamaxStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) end function - function hipblasIsamin_64_rank_1(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIsamaxStridedBatched_64_rank_1(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamin_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamaxStridedBatched_64_rank_1 type(c_ptr), value :: handle integer(c_int64_t) :: n real(c_float),target,dimension(:) :: x integer(c_int64_t) :: incx - integer(c_int64_t),target :: myResult + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + integer(c_int64_t),target,dimension(:) :: myResult ! - hipblasIsamin_64_rank_1 = hipblasIsamin_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + hipblasIsamaxStridedBatched_64_rank_1 = hipblasIsamaxStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,batchCount,c_loc(myResult)) end function - function hipblasIsamin_64_rank_1_devptr(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIsamaxStridedBatched_64_rank_1_devptr(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamin_64_rank_1_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamaxStridedBatched_64_rank_1_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n real(c_float),target,dimension(:) :: x integer(c_int64_t) :: incx - type(c_ptr),value :: myResult + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + type(c_ptr),value :: myResult ! - hipblasIsamin_64_rank_1_devptr = hipblasIsamin_64_(handle,n,c_loc(x),incx,myResult) + hipblasIsamaxStridedBatched_64_rank_1_devptr = hipblasIsamaxStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) + end function + + function hipblasIsamaxStridedBatched_64_strided_rank(handle,n,x,incx,stridex,batchCount, & + myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamaxStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + integer(c_int64_t),target,dimension(:) :: myResult + ! + hipblasIsamaxStridedBatched_64_strided_rank = hipblasIsamaxStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,c_loc(myResult)) + end function + + function hipblasIsamaxStridedBatched_64_strided_rank_devptr(handle,n,x,incx,stridex, & + batchCount,myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamaxStridedBatched_64_strided_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + type(c_ptr),value :: myResult + ! + hipblasIsamaxStridedBatched_64_strided_rank_devptr = hipblasIsamaxStridedBatched_64_(handle, & + n,c_loc(x),incx,stridex,batchCount,myResult) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasIdamin_64_assumed_rank(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIdamaxStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamin_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamaxStridedBatched_64_assumed_rank type(c_ptr), value :: handle integer(c_int64_t) :: n real(c_double),target,dimension(..) :: x integer(c_int64_t) :: incx - integer(c_int64_t),target :: myResult + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + integer(c_int64_t),target,dimension(..) :: myResult ! - hipblasIdamin_64_assumed_rank = hipblasIdamin_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + hipblasIdamaxStridedBatched_64_assumed_rank = hipblasIdamaxStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,c_loc(myResult)) end function - function hipblasIdamin_64_assumed_rank_devptr(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIdamaxStridedBatched_64_assumed_rank_devptr(handle,n,x,incx,stridex, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamin_64_assumed_rank_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamaxStridedBatched_64_assumed_rank_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n real(c_double),target,dimension(..) :: x integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount type(c_ptr),value :: myResult ! - hipblasIdamin_64_assumed_rank_devptr = hipblasIdamin_64_(handle,n,c_loc(x),incx,myResult) + hipblasIdamaxStridedBatched_64_assumed_rank_devptr = hipblasIdamaxStridedBatched_64_(handle, & + n,c_loc(x),incx,stridex,batchCount,myResult) end function #else - function hipblasIdamin_64_rank_0(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIdamaxStridedBatched_64_rank_0(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamin_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamaxStridedBatched_64_rank_0 type(c_ptr), value :: handle integer(c_int64_t) :: n real(c_double),target :: x integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount integer(c_int64_t),target :: myResult ! - hipblasIdamin_64_rank_0 = hipblasIdamin_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + hipblasIdamaxStridedBatched_64_rank_0 = hipblasIdamaxStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,batchCount,c_loc(myResult)) end function - function hipblasIdamin_64_rank_0_devptr(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIdamaxStridedBatched_64_rank_0_devptr(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamin_64_rank_0_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamaxStridedBatched_64_rank_0_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n real(c_double),target :: x integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount type(c_ptr),value :: myResult ! - hipblasIdamin_64_rank_0_devptr = hipblasIdamin_64_(handle,n,c_loc(x),incx,myResult) + hipblasIdamaxStridedBatched_64_rank_0_devptr = hipblasIdamaxStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) end function - function hipblasIdamin_64_rank_1(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIdamaxStridedBatched_64_rank_1(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamin_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamaxStridedBatched_64_rank_1 type(c_ptr), value :: handle integer(c_int64_t) :: n real(c_double),target,dimension(:) :: x integer(c_int64_t) :: incx - integer(c_int64_t),target :: myResult + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + integer(c_int64_t),target,dimension(:) :: myResult ! - hipblasIdamin_64_rank_1 = hipblasIdamin_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + hipblasIdamaxStridedBatched_64_rank_1 = hipblasIdamaxStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,batchCount,c_loc(myResult)) end function - function hipblasIdamin_64_rank_1_devptr(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIdamaxStridedBatched_64_rank_1_devptr(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamin_64_rank_1_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamaxStridedBatched_64_rank_1_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n real(c_double),target,dimension(:) :: x integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount type(c_ptr),value :: myResult ! - hipblasIdamin_64_rank_1_devptr = hipblasIdamin_64_(handle,n,c_loc(x),incx,myResult) + hipblasIdamaxStridedBatched_64_rank_1_devptr = hipblasIdamaxStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) + end function + + function hipblasIdamaxStridedBatched_64_strided_rank(handle,n,x,incx,stridex,batchCount, & + myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamaxStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + integer(c_int64_t),target,dimension(:) :: myResult + ! + hipblasIdamaxStridedBatched_64_strided_rank = hipblasIdamaxStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,c_loc(myResult)) + end function + + function hipblasIdamaxStridedBatched_64_strided_rank_devptr(handle,n,x,incx,stridex, & + batchCount,myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamaxStridedBatched_64_strided_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + type(c_ptr),value :: myResult + ! + hipblasIdamaxStridedBatched_64_strided_rank_devptr = hipblasIdamaxStridedBatched_64_(handle, & + n,c_loc(x),incx,stridex,batchCount,myResult) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasIcamin_64_assumed_rank(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIcamaxStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamin_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamaxStridedBatched_64_assumed_rank type(c_ptr), value :: handle integer(c_int64_t) :: n complex(c_float_complex),target,dimension(..) :: x integer(c_int64_t) :: incx - integer(c_int64_t),target :: myResult + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + integer(c_int64_t),target,dimension(..) :: myResult ! - hipblasIcamin_64_assumed_rank = hipblasIcamin_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + hipblasIcamaxStridedBatched_64_assumed_rank = hipblasIcamaxStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,c_loc(myResult)) end function - function hipblasIcamin_64_assumed_rank_devptr(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIcamaxStridedBatched_64_assumed_rank_devptr(handle,n,x,incx,stridex, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamin_64_assumed_rank_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamaxStridedBatched_64_assumed_rank_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n complex(c_float_complex),target,dimension(..) :: x integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount type(c_ptr),value :: myResult ! - hipblasIcamin_64_assumed_rank_devptr = hipblasIcamin_64_(handle,n,c_loc(x),incx,myResult) + hipblasIcamaxStridedBatched_64_assumed_rank_devptr = hipblasIcamaxStridedBatched_64_(handle, & + n,c_loc(x),incx,stridex,batchCount,myResult) end function #else - function hipblasIcamin_64_rank_0(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIcamaxStridedBatched_64_rank_0(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamin_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamaxStridedBatched_64_rank_0 type(c_ptr), value :: handle integer(c_int64_t) :: n complex(c_float_complex),target :: x integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount integer(c_int64_t),target :: myResult ! - hipblasIcamin_64_rank_0 = hipblasIcamin_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + hipblasIcamaxStridedBatched_64_rank_0 = hipblasIcamaxStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,batchCount,c_loc(myResult)) end function - function hipblasIcamin_64_rank_0_devptr(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIcamaxStridedBatched_64_rank_0_devptr(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamin_64_rank_0_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamaxStridedBatched_64_rank_0_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n complex(c_float_complex),target :: x integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount type(c_ptr),value :: myResult ! - hipblasIcamin_64_rank_0_devptr = hipblasIcamin_64_(handle,n,c_loc(x),incx,myResult) + hipblasIcamaxStridedBatched_64_rank_0_devptr = hipblasIcamaxStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) end function - function hipblasIcamin_64_rank_1(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIcamaxStridedBatched_64_rank_1(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamin_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamaxStridedBatched_64_rank_1 type(c_ptr), value :: handle integer(c_int64_t) :: n complex(c_float_complex),target,dimension(:) :: x integer(c_int64_t) :: incx - integer(c_int64_t),target :: myResult + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + integer(c_int64_t),target,dimension(:) :: myResult ! - hipblasIcamin_64_rank_1 = hipblasIcamin_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + hipblasIcamaxStridedBatched_64_rank_1 = hipblasIcamaxStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,batchCount,c_loc(myResult)) end function - function hipblasIcamin_64_rank_1_devptr(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIcamaxStridedBatched_64_rank_1_devptr(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamin_64_rank_1_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamaxStridedBatched_64_rank_1_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n complex(c_float_complex),target,dimension(:) :: x integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount type(c_ptr),value :: myResult ! - hipblasIcamin_64_rank_1_devptr = hipblasIcamin_64_(handle,n,c_loc(x),incx,myResult) + hipblasIcamaxStridedBatched_64_rank_1_devptr = hipblasIcamaxStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) + end function + + function hipblasIcamaxStridedBatched_64_strided_rank(handle,n,x,incx,stridex,batchCount, & + myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamaxStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + integer(c_int64_t),target,dimension(:) :: myResult + ! + hipblasIcamaxStridedBatched_64_strided_rank = hipblasIcamaxStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,c_loc(myResult)) + end function + + function hipblasIcamaxStridedBatched_64_strided_rank_devptr(handle,n,x,incx,stridex, & + batchCount,myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamaxStridedBatched_64_strided_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + type(c_ptr),value :: myResult + ! + hipblasIcamaxStridedBatched_64_strided_rank_devptr = hipblasIcamaxStridedBatched_64_(handle, & + n,c_loc(x),incx,stridex,batchCount,myResult) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasIzamin_64_assumed_rank(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIzamaxStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamin_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamaxStridedBatched_64_assumed_rank type(c_ptr), value :: handle integer(c_int64_t) :: n complex(c_double_complex),target,dimension(..) :: x integer(c_int64_t) :: incx - integer(c_int64_t),target :: myResult + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + integer(c_int64_t),target,dimension(..) :: myResult ! - hipblasIzamin_64_assumed_rank = hipblasIzamin_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + hipblasIzamaxStridedBatched_64_assumed_rank = hipblasIzamaxStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,c_loc(myResult)) end function - function hipblasIzamin_64_assumed_rank_devptr(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIzamaxStridedBatched_64_assumed_rank_devptr(handle,n,x,incx,stridex, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamin_64_assumed_rank_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamaxStridedBatched_64_assumed_rank_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n complex(c_double_complex),target,dimension(..) :: x integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount type(c_ptr),value :: myResult ! - hipblasIzamin_64_assumed_rank_devptr = hipblasIzamin_64_(handle,n,c_loc(x),incx,myResult) + hipblasIzamaxStridedBatched_64_assumed_rank_devptr = hipblasIzamaxStridedBatched_64_(handle, & + n,c_loc(x),incx,stridex,batchCount,myResult) end function #else - function hipblasIzamin_64_rank_0(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIzamaxStridedBatched_64_rank_0(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamin_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamaxStridedBatched_64_rank_0 type(c_ptr), value :: handle integer(c_int64_t) :: n complex(c_double_complex),target :: x integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount integer(c_int64_t),target :: myResult ! - hipblasIzamin_64_rank_0 = hipblasIzamin_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + hipblasIzamaxStridedBatched_64_rank_0 = hipblasIzamaxStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,batchCount,c_loc(myResult)) end function - function hipblasIzamin_64_rank_0_devptr(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIzamaxStridedBatched_64_rank_0_devptr(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamin_64_rank_0_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamaxStridedBatched_64_rank_0_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n complex(c_double_complex),target :: x integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount type(c_ptr),value :: myResult ! - hipblasIzamin_64_rank_0_devptr = hipblasIzamin_64_(handle,n,c_loc(x),incx,myResult) + hipblasIzamaxStridedBatched_64_rank_0_devptr = hipblasIzamaxStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) end function - function hipblasIzamin_64_rank_1(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIzamaxStridedBatched_64_rank_1(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamin_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamaxStridedBatched_64_rank_1 type(c_ptr), value :: handle integer(c_int64_t) :: n complex(c_double_complex),target,dimension(:) :: x integer(c_int64_t) :: incx - integer(c_int64_t),target :: myResult + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + integer(c_int64_t),target,dimension(:) :: myResult ! - hipblasIzamin_64_rank_1 = hipblasIzamin_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + hipblasIzamaxStridedBatched_64_rank_1 = hipblasIzamaxStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,batchCount,c_loc(myResult)) end function - function hipblasIzamin_64_rank_1_devptr(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIzamaxStridedBatched_64_rank_1_devptr(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamin_64_rank_1_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamaxStridedBatched_64_rank_1_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n complex(c_double_complex),target,dimension(:) :: x integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount type(c_ptr),value :: myResult ! - hipblasIzamin_64_rank_1_devptr = hipblasIzamin_64_(handle,n,c_loc(x),incx,myResult) + hipblasIzamaxStridedBatched_64_rank_1_devptr = hipblasIzamaxStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) + end function + + function hipblasIzamaxStridedBatched_64_strided_rank(handle,n,x,incx,stridex,batchCount, & + myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamaxStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + integer(c_int64_t),target,dimension(:) :: myResult + ! + hipblasIzamaxStridedBatched_64_strided_rank = hipblasIzamaxStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,c_loc(myResult)) + end function + + function hipblasIzamaxStridedBatched_64_strided_rank_devptr(handle,n,x,incx,stridex, & + batchCount,myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamaxStridedBatched_64_strided_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + type(c_ptr),value :: myResult + ! + hipblasIzamaxStridedBatched_64_strided_rank_devptr = hipblasIzamaxStridedBatched_64_(handle, & + n,c_loc(x),incx,stridex,batchCount,myResult) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasIsaminStridedBatched_assumed_rank(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasIsamin_assumed_rank(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsaminStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamin_assumed_rank type(c_ptr), value :: handle integer(c_int) :: n real(c_float),target,dimension(..) :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount - type(c_ptr) :: myResult + integer(c_int),target :: myResult ! - hipblasIsaminStridedBatched_assumed_rank = hipblasIsaminStridedBatched_(handle,n,c_loc(x), & - incx,stridex,batchCount,myResult) + hipblasIsamin_assumed_rank = hipblasIsamin_(handle,n,c_loc(x),incx,c_loc(myResult)) end function -#else - function hipblasIsaminStridedBatched_rank_0(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasIsamin_assumed_rank_devptr(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsaminStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamin_assumed_rank_devptr type(c_ptr), value :: handle integer(c_int) :: n - real(c_float),target :: x + real(c_float),target,dimension(..) :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount - type(c_ptr) :: myResult + type(c_ptr),value :: myResult ! - hipblasIsaminStridedBatched_rank_0 = hipblasIsaminStridedBatched_(handle,n,c_loc(x),incx, & - stridex,batchCount,myResult) + hipblasIsamin_assumed_rank_devptr = hipblasIsamin_(handle,n,c_loc(x),incx,myResult) end function - function hipblasIsaminStridedBatched_rank_1(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding +#else + function hipblasIsamin_rank_0(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsaminStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamin_rank_0 type(c_ptr), value :: handle integer(c_int) :: n - real(c_float),target,dimension(:) :: x + real(c_float),target :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount - type(c_ptr) :: myResult + integer(c_int),target :: myResult ! - hipblasIsaminStridedBatched_rank_1 = hipblasIsaminStridedBatched_(handle,n,c_loc(x),incx, & - stridex,batchCount,myResult) + hipblasIsamin_rank_0 = hipblasIsamin_(handle,n,c_loc(x),incx,c_loc(myResult)) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasIdaminStridedBatched_assumed_rank(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasIsamin_rank_0_devptr(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdaminStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamin_rank_0_devptr type(c_ptr), value :: handle integer(c_int) :: n - real(c_double),target,dimension(..) :: x + real(c_float),target :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount - type(c_ptr) :: myResult + type(c_ptr),value :: myResult ! - hipblasIdaminStridedBatched_assumed_rank = hipblasIdaminStridedBatched_(handle,n,c_loc(x), & - incx,stridex,batchCount,myResult) + hipblasIsamin_rank_0_devptr = hipblasIsamin_(handle,n,c_loc(x),incx,myResult) end function -#else - function hipblasIdaminStridedBatched_rank_0(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasIsamin_rank_1(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdaminStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamin_rank_1 type(c_ptr), value :: handle integer(c_int) :: n - real(c_double),target :: x + real(c_float),target,dimension(:) :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount - type(c_ptr) :: myResult + integer(c_int),target :: myResult ! - hipblasIdaminStridedBatched_rank_0 = hipblasIdaminStridedBatched_(handle,n,c_loc(x),incx, & - stridex,batchCount,myResult) + hipblasIsamin_rank_1 = hipblasIsamin_(handle,n,c_loc(x),incx,c_loc(myResult)) end function - function hipblasIdaminStridedBatched_rank_1(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasIsamin_rank_1_devptr(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdaminStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamin_rank_1_devptr type(c_ptr), value :: handle integer(c_int) :: n - real(c_double),target,dimension(:) :: x + real(c_float),target,dimension(:) :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount - type(c_ptr) :: myResult + type(c_ptr),value :: myResult ! - hipblasIdaminStridedBatched_rank_1 = hipblasIdaminStridedBatched_(handle,n,c_loc(x),incx, & - stridex,batchCount,myResult) + hipblasIsamin_rank_1_devptr = hipblasIsamin_(handle,n,c_loc(x),incx,myResult) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasIcaminStridedBatched_assumed_rank(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasIdamin_assumed_rank(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcaminStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamin_assumed_rank type(c_ptr), value :: handle integer(c_int) :: n - complex(c_float_complex),target,dimension(..) :: x + real(c_double),target,dimension(..) :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount - type(c_ptr) :: myResult + integer(c_int),target :: myResult ! - hipblasIcaminStridedBatched_assumed_rank = hipblasIcaminStridedBatched_(handle,n,c_loc(x), & - incx,stridex,batchCount,myResult) + hipblasIdamin_assumed_rank = hipblasIdamin_(handle,n,c_loc(x),incx,c_loc(myResult)) end function -#else - function hipblasIcaminStridedBatched_rank_0(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasIdamin_assumed_rank_devptr(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcaminStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamin_assumed_rank_devptr type(c_ptr), value :: handle integer(c_int) :: n - complex(c_float_complex),target :: x + real(c_double),target,dimension(..) :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount - type(c_ptr) :: myResult + type(c_ptr),value :: myResult ! - hipblasIcaminStridedBatched_rank_0 = hipblasIcaminStridedBatched_(handle,n,c_loc(x),incx, & - stridex,batchCount,myResult) + hipblasIdamin_assumed_rank_devptr = hipblasIdamin_(handle,n,c_loc(x),incx,myResult) end function - function hipblasIcaminStridedBatched_rank_1(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding +#else + function hipblasIdamin_rank_0(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcaminStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamin_rank_0 type(c_ptr), value :: handle integer(c_int) :: n - complex(c_float_complex),target,dimension(:) :: x + real(c_double),target :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount - type(c_ptr) :: myResult + integer(c_int),target :: myResult ! - hipblasIcaminStridedBatched_rank_1 = hipblasIcaminStridedBatched_(handle,n,c_loc(x),incx, & - stridex,batchCount,myResult) + hipblasIdamin_rank_0 = hipblasIdamin_(handle,n,c_loc(x),incx,c_loc(myResult)) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasIzaminStridedBatched_assumed_rank(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasIdamin_rank_0_devptr(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzaminStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamin_rank_0_devptr type(c_ptr), value :: handle integer(c_int) :: n - complex(c_double_complex),target,dimension(..) :: x + real(c_double),target :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount - type(c_ptr) :: myResult + type(c_ptr),value :: myResult ! - hipblasIzaminStridedBatched_assumed_rank = hipblasIzaminStridedBatched_(handle,n,c_loc(x), & - incx,stridex,batchCount,myResult) + hipblasIdamin_rank_0_devptr = hipblasIdamin_(handle,n,c_loc(x),incx,myResult) end function -#else - function hipblasIzaminStridedBatched_rank_0(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasIdamin_rank_1(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzaminStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamin_rank_1 type(c_ptr), value :: handle integer(c_int) :: n - complex(c_double_complex),target :: x + real(c_double),target,dimension(:) :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount - type(c_ptr) :: myResult + integer(c_int),target :: myResult ! - hipblasIzaminStridedBatched_rank_0 = hipblasIzaminStridedBatched_(handle,n,c_loc(x),incx, & - stridex,batchCount,myResult) + hipblasIdamin_rank_1 = hipblasIdamin_(handle,n,c_loc(x),incx,c_loc(myResult)) end function - function hipblasIzaminStridedBatched_rank_1(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasIdamin_rank_1_devptr(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzaminStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamin_rank_1_devptr type(c_ptr), value :: handle integer(c_int) :: n - complex(c_double_complex),target,dimension(:) :: x + real(c_double),target,dimension(:) :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount - type(c_ptr) :: myResult + type(c_ptr),value :: myResult ! - hipblasIzaminStridedBatched_rank_1 = hipblasIzaminStridedBatched_(handle,n,c_loc(x),incx, & - stridex,batchCount,myResult) + hipblasIdamin_rank_1_devptr = hipblasIdamin_(handle,n,c_loc(x),incx,myResult) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasIsaminStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,batchCount, & - myResult) - use iso_c_binding + function hipblasIcamin_assumed_rank(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsaminStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamin_assumed_rank type(c_ptr), value :: handle - integer(c_int64_t) :: n - real(c_float),target,dimension(..) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount - type(c_ptr) :: myResult + integer(c_int) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int),target :: myResult ! - hipblasIsaminStridedBatched_64_assumed_rank = hipblasIsaminStridedBatched_64_(handle,n, & - c_loc(x),incx,stridex,batchCount,myResult) + hipblasIcamin_assumed_rank = hipblasIcamin_(handle,n,c_loc(x),incx,c_loc(myResult)) end function -#else - function hipblasIsaminStridedBatched_64_rank_0(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasIcamin_assumed_rank_devptr(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsaminStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamin_assumed_rank_devptr type(c_ptr), value :: handle - integer(c_int64_t) :: n - real(c_float),target :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount - type(c_ptr) :: myResult + integer(c_int) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult ! - hipblasIsaminStridedBatched_64_rank_0 = hipblasIsaminStridedBatched_64_(handle,n,c_loc(x), & - incx,stridex,batchCount,myResult) + hipblasIcamin_assumed_rank_devptr = hipblasIcamin_(handle,n,c_loc(x),incx,myResult) end function - function hipblasIsaminStridedBatched_64_rank_1(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding +#else + function hipblasIcamin_rank_0(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsaminStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamin_rank_0 type(c_ptr), value :: handle - integer(c_int64_t) :: n - real(c_float),target,dimension(:) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount - type(c_ptr) :: myResult + integer(c_int) :: n + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int),target :: myResult ! - hipblasIsaminStridedBatched_64_rank_1 = hipblasIsaminStridedBatched_64_(handle,n,c_loc(x), & - incx,stridex,batchCount,myResult) + hipblasIcamin_rank_0 = hipblasIcamin_(handle,n,c_loc(x),incx,c_loc(myResult)) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasIdaminStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,batchCount, & - myResult) - use iso_c_binding + function hipblasIcamin_rank_0_devptr(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdaminStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamin_rank_0_devptr type(c_ptr), value :: handle - integer(c_int64_t) :: n - real(c_double),target,dimension(..) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount - type(c_ptr) :: myResult + integer(c_int) :: n + complex(c_float_complex),target :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult ! - hipblasIdaminStridedBatched_64_assumed_rank = hipblasIdaminStridedBatched_64_(handle,n, & - c_loc(x),incx,stridex,batchCount,myResult) + hipblasIcamin_rank_0_devptr = hipblasIcamin_(handle,n,c_loc(x),incx,myResult) end function -#else - function hipblasIdaminStridedBatched_64_rank_0(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasIcamin_rank_1(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdaminStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamin_rank_1 type(c_ptr), value :: handle - integer(c_int64_t) :: n - real(c_double),target :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount - type(c_ptr) :: myResult + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int),target :: myResult ! - hipblasIdaminStridedBatched_64_rank_0 = hipblasIdaminStridedBatched_64_(handle,n,c_loc(x), & - incx,stridex,batchCount,myResult) + hipblasIcamin_rank_1 = hipblasIcamin_(handle,n,c_loc(x),incx,c_loc(myResult)) end function - function hipblasIdaminStridedBatched_64_rank_1(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasIcamin_rank_1_devptr(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdaminStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamin_rank_1_devptr type(c_ptr), value :: handle - integer(c_int64_t) :: n - real(c_double),target,dimension(:) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount - type(c_ptr) :: myResult + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult ! - hipblasIdaminStridedBatched_64_rank_1 = hipblasIdaminStridedBatched_64_(handle,n,c_loc(x), & - incx,stridex,batchCount,myResult) + hipblasIcamin_rank_1_devptr = hipblasIcamin_(handle,n,c_loc(x),incx,myResult) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasIcaminStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,batchCount, & - myResult) - use iso_c_binding + function hipblasIzamin_assumed_rank(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcaminStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamin_assumed_rank type(c_ptr), value :: handle - integer(c_int64_t) :: n - complex(c_float_complex),target,dimension(..) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount - type(c_ptr) :: myResult + integer(c_int) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int),target :: myResult ! - hipblasIcaminStridedBatched_64_assumed_rank = hipblasIcaminStridedBatched_64_(handle,n, & - c_loc(x),incx,stridex,batchCount,myResult) + hipblasIzamin_assumed_rank = hipblasIzamin_(handle,n,c_loc(x),incx,c_loc(myResult)) end function -#else - function hipblasIcaminStridedBatched_64_rank_0(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasIzamin_assumed_rank_devptr(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcaminStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamin_assumed_rank_devptr type(c_ptr), value :: handle - integer(c_int64_t) :: n - complex(c_float_complex),target :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount - type(c_ptr) :: myResult + integer(c_int) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult ! - hipblasIcaminStridedBatched_64_rank_0 = hipblasIcaminStridedBatched_64_(handle,n,c_loc(x), & - incx,stridex,batchCount,myResult) + hipblasIzamin_assumed_rank_devptr = hipblasIzamin_(handle,n,c_loc(x),incx,myResult) end function - function hipblasIcaminStridedBatched_64_rank_1(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding +#else + function hipblasIzamin_rank_0(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcaminStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamin_rank_0 type(c_ptr), value :: handle - integer(c_int64_t) :: n - complex(c_float_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount - type(c_ptr) :: myResult + integer(c_int) :: n + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int),target :: myResult ! - hipblasIcaminStridedBatched_64_rank_1 = hipblasIcaminStridedBatched_64_(handle,n,c_loc(x), & - incx,stridex,batchCount,myResult) + hipblasIzamin_rank_0 = hipblasIzamin_(handle,n,c_loc(x),incx,c_loc(myResult)) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasIzaminStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,batchCount, & - myResult) - use iso_c_binding + function hipblasIzamin_rank_0_devptr(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzaminStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamin_rank_0_devptr type(c_ptr), value :: handle - integer(c_int64_t) :: n - complex(c_double_complex),target,dimension(..) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount - type(c_ptr) :: myResult + integer(c_int) :: n + complex(c_double_complex),target :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult ! - hipblasIzaminStridedBatched_64_assumed_rank = hipblasIzaminStridedBatched_64_(handle,n, & - c_loc(x),incx,stridex,batchCount,myResult) + hipblasIzamin_rank_0_devptr = hipblasIzamin_(handle,n,c_loc(x),incx,myResult) end function -#else - function hipblasIzaminStridedBatched_64_rank_0(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasIzamin_rank_1(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzaminStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamin_rank_1 type(c_ptr), value :: handle - integer(c_int64_t) :: n - complex(c_double_complex),target :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount - type(c_ptr) :: myResult + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int),target :: myResult ! - hipblasIzaminStridedBatched_64_rank_0 = hipblasIzaminStridedBatched_64_(handle,n,c_loc(x), & - incx,stridex,batchCount,myResult) + hipblasIzamin_rank_1 = hipblasIzamin_(handle,n,c_loc(x),incx,c_loc(myResult)) end function - function hipblasIzaminStridedBatched_64_rank_1(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasIzamin_rank_1_devptr(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzaminStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamin_rank_1_devptr type(c_ptr), value :: handle - integer(c_int64_t) :: n + integer(c_int) :: n complex(c_double_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount - type(c_ptr) :: myResult + integer(c_int) :: incx + type(c_ptr),value :: myResult ! - hipblasIzaminStridedBatched_64_rank_1 = hipblasIzaminStridedBatched_64_(handle,n,c_loc(x), & - incx,stridex,batchCount,myResult) + hipblasIzamin_rank_1_devptr = hipblasIzamin_(handle,n,c_loc(x),incx,myResult) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasSasum_assumed_rank(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIsamin_64_assumed_rank(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasum_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamin_64_assumed_rank type(c_ptr), value :: handle - integer(c_int) :: n + integer(c_int64_t) :: n real(c_float),target,dimension(..) :: x - integer(c_int) :: incx - real(c_float),target :: myResult + integer(c_int64_t) :: incx + integer(c_int64_t),target :: myResult ! - hipblasSasum_assumed_rank = hipblasSasum_(handle,n,c_loc(x),incx,c_loc(myResult)) + hipblasIsamin_64_assumed_rank = hipblasIsamin_64_(handle,n,c_loc(x),incx,c_loc(myResult)) end function - function hipblasSasum_assumed_rank_devptr(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIsamin_64_assumed_rank_devptr(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasum_assumed_rank_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamin_64_assumed_rank_devptr type(c_ptr), value :: handle - integer(c_int) :: n + integer(c_int64_t) :: n real(c_float),target,dimension(..) :: x - integer(c_int) :: incx + integer(c_int64_t) :: incx type(c_ptr),value :: myResult ! - hipblasSasum_assumed_rank_devptr = hipblasSasum_(handle,n,c_loc(x),incx,myResult) + hipblasIsamin_64_assumed_rank_devptr = hipblasIsamin_64_(handle,n,c_loc(x),incx,myResult) end function #else - function hipblasSasum_rank_0(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIsamin_64_rank_0(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasum_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamin_64_rank_0 type(c_ptr), value :: handle - integer(c_int) :: n + integer(c_int64_t) :: n real(c_float),target :: x - integer(c_int) :: incx - real(c_float),target :: myResult + integer(c_int64_t) :: incx + integer(c_int64_t),target :: myResult ! - hipblasSasum_rank_0 = hipblasSasum_(handle,n,c_loc(x),incx,c_loc(myResult)) + hipblasIsamin_64_rank_0 = hipblasIsamin_64_(handle,n,c_loc(x),incx,c_loc(myResult)) end function - function hipblasSasum_rank_0_devptr(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIsamin_64_rank_0_devptr(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasum_rank_0_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamin_64_rank_0_devptr type(c_ptr), value :: handle - integer(c_int) :: n + integer(c_int64_t) :: n real(c_float),target :: x - integer(c_int) :: incx + integer(c_int64_t) :: incx type(c_ptr),value :: myResult ! - hipblasSasum_rank_0_devptr = hipblasSasum_(handle,n,c_loc(x),incx,myResult) + hipblasIsamin_64_rank_0_devptr = hipblasIsamin_64_(handle,n,c_loc(x),incx,myResult) end function - function hipblasSasum_rank_1(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIsamin_64_rank_1(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasum_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamin_64_rank_1 type(c_ptr), value :: handle - integer(c_int) :: n + integer(c_int64_t) :: n real(c_float),target,dimension(:) :: x - integer(c_int) :: incx - real(c_float),target :: myResult + integer(c_int64_t) :: incx + integer(c_int64_t),target :: myResult ! - hipblasSasum_rank_1 = hipblasSasum_(handle,n,c_loc(x),incx,c_loc(myResult)) + hipblasIsamin_64_rank_1 = hipblasIsamin_64_(handle,n,c_loc(x),incx,c_loc(myResult)) end function - function hipblasSasum_rank_1_devptr(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIsamin_64_rank_1_devptr(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasum_rank_1_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamin_64_rank_1_devptr type(c_ptr), value :: handle - integer(c_int) :: n + integer(c_int64_t) :: n real(c_float),target,dimension(:) :: x - integer(c_int) :: incx + integer(c_int64_t) :: incx type(c_ptr),value :: myResult ! - hipblasSasum_rank_1_devptr = hipblasSasum_(handle,n,c_loc(x),incx,myResult) + hipblasIsamin_64_rank_1_devptr = hipblasIsamin_64_(handle,n,c_loc(x),incx,myResult) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasDasum_assumed_rank(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIdamin_64_assumed_rank(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasum_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamin_64_assumed_rank type(c_ptr), value :: handle - integer(c_int) :: n + integer(c_int64_t) :: n real(c_double),target,dimension(..) :: x - integer(c_int) :: incx - real(c_double),target :: myResult + integer(c_int64_t) :: incx + integer(c_int64_t),target :: myResult ! - hipblasDasum_assumed_rank = hipblasDasum_(handle,n,c_loc(x),incx,c_loc(myResult)) + hipblasIdamin_64_assumed_rank = hipblasIdamin_64_(handle,n,c_loc(x),incx,c_loc(myResult)) end function - function hipblasDasum_assumed_rank_devptr(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIdamin_64_assumed_rank_devptr(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasum_assumed_rank_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamin_64_assumed_rank_devptr type(c_ptr), value :: handle - integer(c_int) :: n + integer(c_int64_t) :: n real(c_double),target,dimension(..) :: x - integer(c_int) :: incx + integer(c_int64_t) :: incx type(c_ptr),value :: myResult ! - hipblasDasum_assumed_rank_devptr = hipblasDasum_(handle,n,c_loc(x),incx,myResult) + hipblasIdamin_64_assumed_rank_devptr = hipblasIdamin_64_(handle,n,c_loc(x),incx,myResult) end function #else - function hipblasDasum_rank_0(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIdamin_64_rank_0(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasum_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamin_64_rank_0 type(c_ptr), value :: handle - integer(c_int) :: n + integer(c_int64_t) :: n real(c_double),target :: x - integer(c_int) :: incx - real(c_double),target :: myResult + integer(c_int64_t) :: incx + integer(c_int64_t),target :: myResult ! - hipblasDasum_rank_0 = hipblasDasum_(handle,n,c_loc(x),incx,c_loc(myResult)) + hipblasIdamin_64_rank_0 = hipblasIdamin_64_(handle,n,c_loc(x),incx,c_loc(myResult)) end function - function hipblasDasum_rank_0_devptr(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIdamin_64_rank_0_devptr(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasum_rank_0_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamin_64_rank_0_devptr type(c_ptr), value :: handle - integer(c_int) :: n + integer(c_int64_t) :: n real(c_double),target :: x - integer(c_int) :: incx + integer(c_int64_t) :: incx type(c_ptr),value :: myResult ! - hipblasDasum_rank_0_devptr = hipblasDasum_(handle,n,c_loc(x),incx,myResult) + hipblasIdamin_64_rank_0_devptr = hipblasIdamin_64_(handle,n,c_loc(x),incx,myResult) end function - function hipblasDasum_rank_1(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIdamin_64_rank_1(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasum_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamin_64_rank_1 type(c_ptr), value :: handle - integer(c_int) :: n + integer(c_int64_t) :: n real(c_double),target,dimension(:) :: x - integer(c_int) :: incx - real(c_double),target :: myResult + integer(c_int64_t) :: incx + integer(c_int64_t),target :: myResult ! - hipblasDasum_rank_1 = hipblasDasum_(handle,n,c_loc(x),incx,c_loc(myResult)) + hipblasIdamin_64_rank_1 = hipblasIdamin_64_(handle,n,c_loc(x),incx,c_loc(myResult)) end function - function hipblasDasum_rank_1_devptr(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIdamin_64_rank_1_devptr(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasum_rank_1_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamin_64_rank_1_devptr type(c_ptr), value :: handle - integer(c_int) :: n + integer(c_int64_t) :: n real(c_double),target,dimension(:) :: x - integer(c_int) :: incx + integer(c_int64_t) :: incx type(c_ptr),value :: myResult ! - hipblasDasum_rank_1_devptr = hipblasDasum_(handle,n,c_loc(x),incx,myResult) + hipblasIdamin_64_rank_1_devptr = hipblasIdamin_64_(handle,n,c_loc(x),incx,myResult) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasScasum_assumed_rank(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIcamin_64_assumed_rank(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasum_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamin_64_assumed_rank type(c_ptr), value :: handle - integer(c_int) :: n + integer(c_int64_t) :: n complex(c_float_complex),target,dimension(..) :: x - integer(c_int) :: incx - real(c_float),target :: myResult + integer(c_int64_t) :: incx + integer(c_int64_t),target :: myResult ! - hipblasScasum_assumed_rank = hipblasScasum_(handle,n,c_loc(x),incx,c_loc(myResult)) + hipblasIcamin_64_assumed_rank = hipblasIcamin_64_(handle,n,c_loc(x),incx,c_loc(myResult)) end function - function hipblasScasum_assumed_rank_devptr(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIcamin_64_assumed_rank_devptr(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasum_assumed_rank_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamin_64_assumed_rank_devptr type(c_ptr), value :: handle - integer(c_int) :: n + integer(c_int64_t) :: n complex(c_float_complex),target,dimension(..) :: x - integer(c_int) :: incx + integer(c_int64_t) :: incx type(c_ptr),value :: myResult ! - hipblasScasum_assumed_rank_devptr = hipblasScasum_(handle,n,c_loc(x),incx,myResult) + hipblasIcamin_64_assumed_rank_devptr = hipblasIcamin_64_(handle,n,c_loc(x),incx,myResult) end function #else - function hipblasScasum_rank_0(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIcamin_64_rank_0(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasum_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamin_64_rank_0 type(c_ptr), value :: handle - integer(c_int) :: n + integer(c_int64_t) :: n complex(c_float_complex),target :: x - integer(c_int) :: incx - real(c_float),target :: myResult + integer(c_int64_t) :: incx + integer(c_int64_t),target :: myResult ! - hipblasScasum_rank_0 = hipblasScasum_(handle,n,c_loc(x),incx,c_loc(myResult)) + hipblasIcamin_64_rank_0 = hipblasIcamin_64_(handle,n,c_loc(x),incx,c_loc(myResult)) end function - function hipblasScasum_rank_0_devptr(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIcamin_64_rank_0_devptr(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasum_rank_0_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamin_64_rank_0_devptr type(c_ptr), value :: handle - integer(c_int) :: n + integer(c_int64_t) :: n complex(c_float_complex),target :: x - integer(c_int) :: incx + integer(c_int64_t) :: incx type(c_ptr),value :: myResult ! - hipblasScasum_rank_0_devptr = hipblasScasum_(handle,n,c_loc(x),incx,myResult) + hipblasIcamin_64_rank_0_devptr = hipblasIcamin_64_(handle,n,c_loc(x),incx,myResult) end function - function hipblasScasum_rank_1(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIcamin_64_rank_1(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasum_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamin_64_rank_1 type(c_ptr), value :: handle - integer(c_int) :: n + integer(c_int64_t) :: n complex(c_float_complex),target,dimension(:) :: x - integer(c_int) :: incx - real(c_float),target :: myResult + integer(c_int64_t) :: incx + integer(c_int64_t),target :: myResult ! - hipblasScasum_rank_1 = hipblasScasum_(handle,n,c_loc(x),incx,c_loc(myResult)) + hipblasIcamin_64_rank_1 = hipblasIcamin_64_(handle,n,c_loc(x),incx,c_loc(myResult)) end function - function hipblasScasum_rank_1_devptr(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIcamin_64_rank_1_devptr(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasum_rank_1_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamin_64_rank_1_devptr type(c_ptr), value :: handle - integer(c_int) :: n + integer(c_int64_t) :: n complex(c_float_complex),target,dimension(:) :: x - integer(c_int) :: incx + integer(c_int64_t) :: incx type(c_ptr),value :: myResult ! - hipblasScasum_rank_1_devptr = hipblasScasum_(handle,n,c_loc(x),incx,myResult) + hipblasIcamin_64_rank_1_devptr = hipblasIcamin_64_(handle,n,c_loc(x),incx,myResult) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasDzasum_assumed_rank(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIzamin_64_assumed_rank(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasum_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamin_64_assumed_rank type(c_ptr), value :: handle - integer(c_int) :: n + integer(c_int64_t) :: n complex(c_double_complex),target,dimension(..) :: x - integer(c_int) :: incx - real(c_double),target :: myResult + integer(c_int64_t) :: incx + integer(c_int64_t),target :: myResult ! - hipblasDzasum_assumed_rank = hipblasDzasum_(handle,n,c_loc(x),incx,c_loc(myResult)) + hipblasIzamin_64_assumed_rank = hipblasIzamin_64_(handle,n,c_loc(x),incx,c_loc(myResult)) end function - function hipblasDzasum_assumed_rank_devptr(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIzamin_64_assumed_rank_devptr(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasum_assumed_rank_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamin_64_assumed_rank_devptr type(c_ptr), value :: handle - integer(c_int) :: n + integer(c_int64_t) :: n complex(c_double_complex),target,dimension(..) :: x - integer(c_int) :: incx + integer(c_int64_t) :: incx type(c_ptr),value :: myResult ! - hipblasDzasum_assumed_rank_devptr = hipblasDzasum_(handle,n,c_loc(x),incx,myResult) + hipblasIzamin_64_assumed_rank_devptr = hipblasIzamin_64_(handle,n,c_loc(x),incx,myResult) end function #else - function hipblasDzasum_rank_0(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIzamin_64_rank_0(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasum_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamin_64_rank_0 type(c_ptr), value :: handle - integer(c_int) :: n + integer(c_int64_t) :: n complex(c_double_complex),target :: x - integer(c_int) :: incx - real(c_double),target :: myResult + integer(c_int64_t) :: incx + integer(c_int64_t),target :: myResult ! - hipblasDzasum_rank_0 = hipblasDzasum_(handle,n,c_loc(x),incx,c_loc(myResult)) + hipblasIzamin_64_rank_0 = hipblasIzamin_64_(handle,n,c_loc(x),incx,c_loc(myResult)) end function - function hipblasDzasum_rank_0_devptr(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIzamin_64_rank_0_devptr(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasum_rank_0_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamin_64_rank_0_devptr type(c_ptr), value :: handle - integer(c_int) :: n + integer(c_int64_t) :: n complex(c_double_complex),target :: x - integer(c_int) :: incx + integer(c_int64_t) :: incx type(c_ptr),value :: myResult ! - hipblasDzasum_rank_0_devptr = hipblasDzasum_(handle,n,c_loc(x),incx,myResult) + hipblasIzamin_64_rank_0_devptr = hipblasIzamin_64_(handle,n,c_loc(x),incx,myResult) end function - function hipblasDzasum_rank_1(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIzamin_64_rank_1(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasum_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamin_64_rank_1 type(c_ptr), value :: handle - integer(c_int) :: n + integer(c_int64_t) :: n complex(c_double_complex),target,dimension(:) :: x - integer(c_int) :: incx - real(c_double),target :: myResult + integer(c_int64_t) :: incx + integer(c_int64_t),target :: myResult ! - hipblasDzasum_rank_1 = hipblasDzasum_(handle,n,c_loc(x),incx,c_loc(myResult)) + hipblasIzamin_64_rank_1 = hipblasIzamin_64_(handle,n,c_loc(x),incx,c_loc(myResult)) end function - function hipblasDzasum_rank_1_devptr(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIzamin_64_rank_1_devptr(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasum_rank_1_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamin_64_rank_1_devptr type(c_ptr), value :: handle - integer(c_int) :: n + integer(c_int64_t) :: n complex(c_double_complex),target,dimension(:) :: x - integer(c_int) :: incx + integer(c_int64_t) :: incx type(c_ptr),value :: myResult ! - hipblasDzasum_rank_1_devptr = hipblasDzasum_(handle,n,c_loc(x),incx,myResult) + hipblasIzamin_64_rank_1_devptr = hipblasIzamin_64_(handle,n,c_loc(x),incx,myResult) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasSasum_64_assumed_rank(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIsaminBatched_assumed_rank(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasum_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsaminBatched_assumed_rank type(c_ptr), value :: handle - integer(c_int64_t) :: n - real(c_float),target,dimension(..) :: x - integer(c_int64_t) :: incx - real(c_float),target :: myResult + integer(c_int) :: n + type(c_ptr), value :: x + integer(c_int) :: incx + integer(c_int) :: batchCount + integer(c_int),target,dimension(..) :: myResult ! - hipblasSasum_64_assumed_rank = hipblasSasum_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + hipblasIsaminBatched_assumed_rank = hipblasIsaminBatched_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function - function hipblasSasum_64_assumed_rank_devptr(handle,n,x,incx,myResult) - use iso_c_binding +#else + function hipblasIsaminBatched_rank_0(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasum_64_assumed_rank_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsaminBatched_rank_0 type(c_ptr), value :: handle - integer(c_int64_t) :: n - real(c_float),target,dimension(..) :: x - integer(c_int64_t) :: incx - type(c_ptr),value :: myResult + integer(c_int) :: n + type(c_ptr), value :: x + integer(c_int) :: incx + integer(c_int) :: batchCount + integer(c_int),target :: myResult ! - hipblasSasum_64_assumed_rank_devptr = hipblasSasum_64_(handle,n,c_loc(x),incx,myResult) + hipblasIsaminBatched_rank_0 = hipblasIsaminBatched_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function -#else - function hipblasSasum_64_rank_0(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIsaminBatched_rank_1(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasum_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsaminBatched_rank_1 type(c_ptr), value :: handle - integer(c_int64_t) :: n - real(c_float),target :: x - integer(c_int64_t) :: incx - real(c_float),target :: myResult + integer(c_int) :: n + type(c_ptr), value :: x + integer(c_int) :: incx + integer(c_int) :: batchCount + integer(c_int),target,dimension(:) :: myResult ! - hipblasSasum_64_rank_0 = hipblasSasum_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + hipblasIsaminBatched_rank_1 = hipblasIsaminBatched_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function - function hipblasSasum_64_rank_0_devptr(handle,n,x,incx,myResult) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasIdaminBatched_assumed_rank(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasum_64_rank_0_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdaminBatched_assumed_rank type(c_ptr), value :: handle - integer(c_int64_t) :: n - real(c_float),target :: x - integer(c_int64_t) :: incx - type(c_ptr),value :: myResult + integer(c_int) :: n + type(c_ptr), value :: x + integer(c_int) :: incx + integer(c_int) :: batchCount + integer(c_int),target,dimension(..) :: myResult ! - hipblasSasum_64_rank_0_devptr = hipblasSasum_64_(handle,n,c_loc(x),incx,myResult) + hipblasIdaminBatched_assumed_rank = hipblasIdaminBatched_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function - function hipblasSasum_64_rank_1(handle,n,x,incx,myResult) - use iso_c_binding +#else + function hipblasIdaminBatched_rank_0(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasum_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdaminBatched_rank_0 type(c_ptr), value :: handle - integer(c_int64_t) :: n - real(c_float),target,dimension(:) :: x - integer(c_int64_t) :: incx - real(c_float),target :: myResult + integer(c_int) :: n + type(c_ptr), value :: x + integer(c_int) :: incx + integer(c_int) :: batchCount + integer(c_int),target :: myResult ! - hipblasSasum_64_rank_1 = hipblasSasum_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + hipblasIdaminBatched_rank_0 = hipblasIdaminBatched_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function - function hipblasSasum_64_rank_1_devptr(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIdaminBatched_rank_1(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasum_64_rank_1_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdaminBatched_rank_1 type(c_ptr), value :: handle - integer(c_int64_t) :: n - real(c_float),target,dimension(:) :: x - integer(c_int64_t) :: incx - type(c_ptr),value :: myResult + integer(c_int) :: n + type(c_ptr), value :: x + integer(c_int) :: incx + integer(c_int) :: batchCount + integer(c_int),target,dimension(:) :: myResult ! - hipblasSasum_64_rank_1_devptr = hipblasSasum_64_(handle,n,c_loc(x),incx,myResult) + hipblasIdaminBatched_rank_1 = hipblasIdaminBatched_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasDasum_64_assumed_rank(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIcaminBatched_assumed_rank(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasum_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcaminBatched_assumed_rank type(c_ptr), value :: handle - integer(c_int64_t) :: n - real(c_double),target,dimension(..) :: x - integer(c_int64_t) :: incx - real(c_double),target :: myResult + integer(c_int) :: n + type(c_ptr), value :: x + integer(c_int) :: incx + integer(c_int) :: batchCount + integer(c_int),target,dimension(..) :: myResult ! - hipblasDasum_64_assumed_rank = hipblasDasum_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + hipblasIcaminBatched_assumed_rank = hipblasIcaminBatched_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function - function hipblasDasum_64_assumed_rank_devptr(handle,n,x,incx,myResult) - use iso_c_binding +#else + function hipblasIcaminBatched_rank_0(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasum_64_assumed_rank_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcaminBatched_rank_0 type(c_ptr), value :: handle - integer(c_int64_t) :: n - real(c_double),target,dimension(..) :: x - integer(c_int64_t) :: incx - type(c_ptr),value :: myResult + integer(c_int) :: n + type(c_ptr), value :: x + integer(c_int) :: incx + integer(c_int) :: batchCount + integer(c_int),target :: myResult ! - hipblasDasum_64_assumed_rank_devptr = hipblasDasum_64_(handle,n,c_loc(x),incx,myResult) + hipblasIcaminBatched_rank_0 = hipblasIcaminBatched_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function -#else - function hipblasDasum_64_rank_0(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIcaminBatched_rank_1(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasum_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcaminBatched_rank_1 type(c_ptr), value :: handle - integer(c_int64_t) :: n - real(c_double),target :: x - integer(c_int64_t) :: incx - real(c_double),target :: myResult + integer(c_int) :: n + type(c_ptr), value :: x + integer(c_int) :: incx + integer(c_int) :: batchCount + integer(c_int),target,dimension(:) :: myResult ! - hipblasDasum_64_rank_0 = hipblasDasum_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + hipblasIcaminBatched_rank_1 = hipblasIcaminBatched_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function - function hipblasDasum_64_rank_0_devptr(handle,n,x,incx,myResult) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasIzaminBatched_assumed_rank(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasum_64_rank_0_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzaminBatched_assumed_rank type(c_ptr), value :: handle - integer(c_int64_t) :: n - real(c_double),target :: x - integer(c_int64_t) :: incx - type(c_ptr),value :: myResult + integer(c_int) :: n + type(c_ptr), value :: x + integer(c_int) :: incx + integer(c_int) :: batchCount + integer(c_int),target,dimension(..) :: myResult ! - hipblasDasum_64_rank_0_devptr = hipblasDasum_64_(handle,n,c_loc(x),incx,myResult) + hipblasIzaminBatched_assumed_rank = hipblasIzaminBatched_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function - function hipblasDasum_64_rank_1(handle,n,x,incx,myResult) - use iso_c_binding +#else + function hipblasIzaminBatched_rank_0(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasum_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzaminBatched_rank_0 type(c_ptr), value :: handle - integer(c_int64_t) :: n - real(c_double),target,dimension(:) :: x - integer(c_int64_t) :: incx - real(c_double),target :: myResult + integer(c_int) :: n + type(c_ptr), value :: x + integer(c_int) :: incx + integer(c_int) :: batchCount + integer(c_int),target :: myResult ! - hipblasDasum_64_rank_1 = hipblasDasum_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + hipblasIzaminBatched_rank_0 = hipblasIzaminBatched_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function - function hipblasDasum_64_rank_1_devptr(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIzaminBatched_rank_1(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasum_64_rank_1_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzaminBatched_rank_1 type(c_ptr), value :: handle - integer(c_int64_t) :: n - real(c_double),target,dimension(:) :: x - integer(c_int64_t) :: incx - type(c_ptr),value :: myResult + integer(c_int) :: n + type(c_ptr), value :: x + integer(c_int) :: incx + integer(c_int) :: batchCount + integer(c_int),target,dimension(:) :: myResult ! - hipblasDasum_64_rank_1_devptr = hipblasDasum_64_(handle,n,c_loc(x),incx,myResult) + hipblasIzaminBatched_rank_1 = hipblasIzaminBatched_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasScasum_64_assumed_rank(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIsaminBatched_64_assumed_rank(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasum_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsaminBatched_64_assumed_rank type(c_ptr), value :: handle integer(c_int64_t) :: n - complex(c_float_complex),target,dimension(..) :: x + type(c_ptr), value :: x integer(c_int64_t) :: incx - real(c_float),target :: myResult + integer(c_int64_t) :: batchCount + integer(c_int64_t),target,dimension(..) :: myResult ! - hipblasScasum_64_assumed_rank = hipblasScasum_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + hipblasIsaminBatched_64_assumed_rank = hipblasIsaminBatched_64_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function - function hipblasScasum_64_assumed_rank_devptr(handle,n,x,incx,myResult) - use iso_c_binding +#else + function hipblasIsaminBatched_64_rank_0(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasum_64_assumed_rank_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsaminBatched_64_rank_0 type(c_ptr), value :: handle integer(c_int64_t) :: n - complex(c_float_complex),target,dimension(..) :: x + type(c_ptr), value :: x integer(c_int64_t) :: incx - type(c_ptr),value :: myResult + integer(c_int64_t) :: batchCount + integer(c_int64_t),target :: myResult ! - hipblasScasum_64_assumed_rank_devptr = hipblasScasum_64_(handle,n,c_loc(x),incx,myResult) + hipblasIsaminBatched_64_rank_0 = hipblasIsaminBatched_64_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function -#else - function hipblasScasum_64_rank_0(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIsaminBatched_64_rank_1(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasum_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsaminBatched_64_rank_1 type(c_ptr), value :: handle integer(c_int64_t) :: n - complex(c_float_complex),target :: x + type(c_ptr), value :: x integer(c_int64_t) :: incx - real(c_float),target :: myResult + integer(c_int64_t) :: batchCount + integer(c_int64_t),target,dimension(:) :: myResult ! - hipblasScasum_64_rank_0 = hipblasScasum_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + hipblasIsaminBatched_64_rank_1 = hipblasIsaminBatched_64_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function - function hipblasScasum_64_rank_0_devptr(handle,n,x,incx,myResult) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasIdaminBatched_64_assumed_rank(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasum_64_rank_0_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdaminBatched_64_assumed_rank type(c_ptr), value :: handle integer(c_int64_t) :: n - complex(c_float_complex),target :: x + type(c_ptr), value :: x integer(c_int64_t) :: incx - type(c_ptr),value :: myResult + integer(c_int64_t) :: batchCount + integer(c_int64_t),target,dimension(..) :: myResult ! - hipblasScasum_64_rank_0_devptr = hipblasScasum_64_(handle,n,c_loc(x),incx,myResult) + hipblasIdaminBatched_64_assumed_rank = hipblasIdaminBatched_64_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function - function hipblasScasum_64_rank_1(handle,n,x,incx,myResult) - use iso_c_binding +#else + function hipblasIdaminBatched_64_rank_0(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasum_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdaminBatched_64_rank_0 type(c_ptr), value :: handle integer(c_int64_t) :: n - complex(c_float_complex),target,dimension(:) :: x + type(c_ptr), value :: x integer(c_int64_t) :: incx - real(c_float),target :: myResult + integer(c_int64_t) :: batchCount + integer(c_int64_t),target :: myResult ! - hipblasScasum_64_rank_1 = hipblasScasum_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + hipblasIdaminBatched_64_rank_0 = hipblasIdaminBatched_64_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function - function hipblasScasum_64_rank_1_devptr(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIdaminBatched_64_rank_1(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasum_64_rank_1_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdaminBatched_64_rank_1 type(c_ptr), value :: handle integer(c_int64_t) :: n - complex(c_float_complex),target,dimension(:) :: x + type(c_ptr), value :: x integer(c_int64_t) :: incx - type(c_ptr),value :: myResult + integer(c_int64_t) :: batchCount + integer(c_int64_t),target,dimension(:) :: myResult ! - hipblasScasum_64_rank_1_devptr = hipblasScasum_64_(handle,n,c_loc(x),incx,myResult) + hipblasIdaminBatched_64_rank_1 = hipblasIdaminBatched_64_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasDzasum_64_assumed_rank(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIcaminBatched_64_assumed_rank(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasum_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcaminBatched_64_assumed_rank type(c_ptr), value :: handle integer(c_int64_t) :: n - complex(c_double_complex),target,dimension(..) :: x + type(c_ptr), value :: x integer(c_int64_t) :: incx - real(c_double),target :: myResult + integer(c_int64_t) :: batchCount + integer(c_int64_t),target,dimension(..) :: myResult ! - hipblasDzasum_64_assumed_rank = hipblasDzasum_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + hipblasIcaminBatched_64_assumed_rank = hipblasIcaminBatched_64_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function - function hipblasDzasum_64_assumed_rank_devptr(handle,n,x,incx,myResult) - use iso_c_binding +#else + function hipblasIcaminBatched_64_rank_0(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasum_64_assumed_rank_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcaminBatched_64_rank_0 type(c_ptr), value :: handle integer(c_int64_t) :: n - complex(c_double_complex),target,dimension(..) :: x + type(c_ptr), value :: x integer(c_int64_t) :: incx - type(c_ptr),value :: myResult + integer(c_int64_t) :: batchCount + integer(c_int64_t),target :: myResult ! - hipblasDzasum_64_assumed_rank_devptr = hipblasDzasum_64_(handle,n,c_loc(x),incx,myResult) + hipblasIcaminBatched_64_rank_0 = hipblasIcaminBatched_64_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function -#else - function hipblasDzasum_64_rank_0(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIcaminBatched_64_rank_1(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasum_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcaminBatched_64_rank_1 type(c_ptr), value :: handle integer(c_int64_t) :: n - complex(c_double_complex),target :: x + type(c_ptr), value :: x integer(c_int64_t) :: incx - real(c_double),target :: myResult + integer(c_int64_t) :: batchCount + integer(c_int64_t),target,dimension(:) :: myResult ! - hipblasDzasum_64_rank_0 = hipblasDzasum_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + hipblasIcaminBatched_64_rank_1 = hipblasIcaminBatched_64_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function - function hipblasDzasum_64_rank_0_devptr(handle,n,x,incx,myResult) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasIzaminBatched_64_assumed_rank(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasum_64_rank_0_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzaminBatched_64_assumed_rank type(c_ptr), value :: handle integer(c_int64_t) :: n - complex(c_double_complex),target :: x + type(c_ptr), value :: x integer(c_int64_t) :: incx - type(c_ptr),value :: myResult + integer(c_int64_t) :: batchCount + integer(c_int64_t),target,dimension(..) :: myResult ! - hipblasDzasum_64_rank_0_devptr = hipblasDzasum_64_(handle,n,c_loc(x),incx,myResult) + hipblasIzaminBatched_64_assumed_rank = hipblasIzaminBatched_64_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function - function hipblasDzasum_64_rank_1(handle,n,x,incx,myResult) - use iso_c_binding +#else + function hipblasIzaminBatched_64_rank_0(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasum_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzaminBatched_64_rank_0 type(c_ptr), value :: handle integer(c_int64_t) :: n - complex(c_double_complex),target,dimension(:) :: x + type(c_ptr), value :: x integer(c_int64_t) :: incx - real(c_double),target :: myResult + integer(c_int64_t) :: batchCount + integer(c_int64_t),target :: myResult ! - hipblasDzasum_64_rank_1 = hipblasDzasum_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + hipblasIzaminBatched_64_rank_0 = hipblasIzaminBatched_64_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function - function hipblasDzasum_64_rank_1_devptr(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasIzaminBatched_64_rank_1(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasum_64_rank_1_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzaminBatched_64_rank_1 type(c_ptr), value :: handle integer(c_int64_t) :: n - complex(c_double_complex),target,dimension(:) :: x + type(c_ptr), value :: x integer(c_int64_t) :: incx - type(c_ptr),value :: myResult + integer(c_int64_t) :: batchCount + integer(c_int64_t),target,dimension(:) :: myResult ! - hipblasDzasum_64_rank_1_devptr = hipblasDzasum_64_(handle,n,c_loc(x),incx,myResult) + hipblasIzaminBatched_64_rank_1 = hipblasIzaminBatched_64_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasSasumStridedBatched_assumed_rank(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasIsaminStridedBatched_assumed_rank(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasumStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsaminStridedBatched_assumed_rank type(c_ptr), value :: handle integer(c_int) :: n real(c_float),target,dimension(..) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex integer(c_int) :: batchCount - type(c_ptr) :: myResult + integer(c_int),target,dimension(..) :: myResult ! - hipblasSasumStridedBatched_assumed_rank = hipblasSasumStridedBatched_(handle,n,c_loc(x), & - incx,stridex,batchCount,myResult) + hipblasIsaminStridedBatched_assumed_rank = hipblasIsaminStridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,c_loc(myResult)) end function -#else - function hipblasSasumStridedBatched_rank_0(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasIsaminStridedBatched_assumed_rank_devptr(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasumStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsaminStridedBatched_assumed_rank_devptr type(c_ptr), value :: handle integer(c_int) :: n - real(c_float),target :: x + real(c_float),target,dimension(..) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex integer(c_int) :: batchCount - type(c_ptr) :: myResult + type(c_ptr),value :: myResult ! - hipblasSasumStridedBatched_rank_0 = hipblasSasumStridedBatched_(handle,n,c_loc(x),incx, & - stridex,batchCount,myResult) + hipblasIsaminStridedBatched_assumed_rank_devptr = hipblasIsaminStridedBatched_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) end function - function hipblasSasumStridedBatched_rank_1(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding +#else + function hipblasIsaminStridedBatched_rank_0(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasumStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsaminStridedBatched_rank_0 type(c_ptr), value :: handle integer(c_int) :: n - real(c_float),target,dimension(:) :: x + real(c_float),target :: x integer(c_int) :: incx integer(c_int64_t) :: stridex integer(c_int) :: batchCount - type(c_ptr) :: myResult + integer(c_int),target :: myResult ! - hipblasSasumStridedBatched_rank_1 = hipblasSasumStridedBatched_(handle,n,c_loc(x),incx, & - stridex,batchCount,myResult) + hipblasIsaminStridedBatched_rank_0 = hipblasIsaminStridedBatched_(handle,n,c_loc(x),incx, & + stridex,batchCount,c_loc(myResult)) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDasumStridedBatched_assumed_rank(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasIsaminStridedBatched_rank_0_devptr(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasumStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsaminStridedBatched_rank_0_devptr type(c_ptr), value :: handle integer(c_int) :: n - real(c_double),target,dimension(..) :: x + real(c_float),target :: x integer(c_int) :: incx integer(c_int64_t) :: stridex integer(c_int) :: batchCount - type(c_ptr) :: myResult + type(c_ptr),value :: myResult ! - hipblasDasumStridedBatched_assumed_rank = hipblasDasumStridedBatched_(handle,n,c_loc(x), & + hipblasIsaminStridedBatched_rank_0_devptr = hipblasIsaminStridedBatched_(handle,n,c_loc(x), & incx,stridex,batchCount,myResult) end function -#else - function hipblasDasumStridedBatched_rank_0(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasIsaminStridedBatched_rank_1(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasumStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsaminStridedBatched_rank_1 type(c_ptr), value :: handle integer(c_int) :: n - real(c_double),target :: x + real(c_float),target,dimension(:) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex integer(c_int) :: batchCount - type(c_ptr) :: myResult + integer(c_int),target,dimension(:) :: myResult ! - hipblasDasumStridedBatched_rank_0 = hipblasDasumStridedBatched_(handle,n,c_loc(x),incx, & - stridex,batchCount,myResult) + hipblasIsaminStridedBatched_rank_1 = hipblasIsaminStridedBatched_(handle,n,c_loc(x),incx, & + stridex,batchCount,c_loc(myResult)) end function - function hipblasDasumStridedBatched_rank_1(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasIsaminStridedBatched_rank_1_devptr(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasumStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsaminStridedBatched_rank_1_devptr type(c_ptr), value :: handle integer(c_int) :: n - real(c_double),target,dimension(:) :: x + real(c_float),target,dimension(:) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex integer(c_int) :: batchCount - type(c_ptr) :: myResult + type(c_ptr),value :: myResult ! - hipblasDasumStridedBatched_rank_1 = hipblasDasumStridedBatched_(handle,n,c_loc(x),incx, & - stridex,batchCount,myResult) + hipblasIsaminStridedBatched_rank_1_devptr = hipblasIsaminStridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasScasumStridedBatched_assumed_rank(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasIsaminStridedBatched_strided_rank(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasumStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsaminStridedBatched_strided_rank type(c_ptr), value :: handle integer(c_int) :: n - complex(c_float_complex),target,dimension(..) :: x + real(c_float),target,dimension(:,:) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex integer(c_int) :: batchCount - type(c_ptr) :: myResult + integer(c_int),target,dimension(:) :: myResult ! - hipblasScasumStridedBatched_assumed_rank = hipblasScasumStridedBatched_(handle,n,c_loc(x), & - incx,stridex,batchCount,myResult) + hipblasIsaminStridedBatched_strided_rank = hipblasIsaminStridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,c_loc(myResult)) end function -#else - function hipblasScasumStridedBatched_rank_0(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasIsaminStridedBatched_strided_rank_devptr(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasumStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsaminStridedBatched_strided_rank_devptr type(c_ptr), value :: handle integer(c_int) :: n - complex(c_float_complex),target :: x + real(c_float),target,dimension(:,:) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex integer(c_int) :: batchCount - type(c_ptr) :: myResult + type(c_ptr),value :: myResult ! - hipblasScasumStridedBatched_rank_0 = hipblasScasumStridedBatched_(handle,n,c_loc(x),incx, & - stridex,batchCount,myResult) + hipblasIsaminStridedBatched_strided_rank_devptr = hipblasIsaminStridedBatched_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) end function - function hipblasScasumStridedBatched_rank_1(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasIdaminStridedBatched_assumed_rank(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasumStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdaminStridedBatched_assumed_rank type(c_ptr), value :: handle integer(c_int) :: n - complex(c_float_complex),target,dimension(:) :: x + real(c_double),target,dimension(..) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex integer(c_int) :: batchCount - type(c_ptr) :: myResult + integer(c_int),target,dimension(..) :: myResult ! - hipblasScasumStridedBatched_rank_1 = hipblasScasumStridedBatched_(handle,n,c_loc(x),incx, & - stridex,batchCount,myResult) + hipblasIdaminStridedBatched_assumed_rank = hipblasIdaminStridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,c_loc(myResult)) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDzasumStridedBatched_assumed_rank(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasIdaminStridedBatched_assumed_rank_devptr(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasumStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdaminStridedBatched_assumed_rank_devptr type(c_ptr), value :: handle integer(c_int) :: n - complex(c_double_complex),target,dimension(..) :: x + real(c_double),target,dimension(..) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex integer(c_int) :: batchCount - type(c_ptr) :: myResult + type(c_ptr),value :: myResult ! - hipblasDzasumStridedBatched_assumed_rank = hipblasDzasumStridedBatched_(handle,n,c_loc(x), & - incx,stridex,batchCount,myResult) + hipblasIdaminStridedBatched_assumed_rank_devptr = hipblasIdaminStridedBatched_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) end function #else - function hipblasDzasumStridedBatched_rank_0(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasIdaminStridedBatched_rank_0(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasumStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdaminStridedBatched_rank_0 type(c_ptr), value :: handle integer(c_int) :: n - complex(c_double_complex),target :: x + real(c_double),target :: x integer(c_int) :: incx integer(c_int64_t) :: stridex integer(c_int) :: batchCount - type(c_ptr) :: myResult + integer(c_int),target :: myResult ! - hipblasDzasumStridedBatched_rank_0 = hipblasDzasumStridedBatched_(handle,n,c_loc(x),incx, & - stridex,batchCount,myResult) + hipblasIdaminStridedBatched_rank_0 = hipblasIdaminStridedBatched_(handle,n,c_loc(x),incx, & + stridex,batchCount,c_loc(myResult)) end function - function hipblasDzasumStridedBatched_rank_1(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasIdaminStridedBatched_rank_0_devptr(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasumStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdaminStridedBatched_rank_0_devptr type(c_ptr), value :: handle integer(c_int) :: n - complex(c_double_complex),target,dimension(:) :: x + real(c_double),target :: x integer(c_int) :: incx integer(c_int64_t) :: stridex integer(c_int) :: batchCount - type(c_ptr) :: myResult + type(c_ptr),value :: myResult ! - hipblasDzasumStridedBatched_rank_1 = hipblasDzasumStridedBatched_(handle,n,c_loc(x),incx, & - stridex,batchCount,myResult) + hipblasIdaminStridedBatched_rank_0_devptr = hipblasIdaminStridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasSasumStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasIdaminStridedBatched_rank_1(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasumStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdaminStridedBatched_rank_1 type(c_ptr), value :: handle - integer(c_int64_t) :: n - real(c_float),target,dimension(..) :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount - type(c_ptr) :: myResult + integer(c_int) :: batchCount + integer(c_int),target,dimension(:) :: myResult ! - hipblasSasumStridedBatched_64_assumed_rank = hipblasSasumStridedBatched_64_(handle,n, & - c_loc(x),incx,stridex,batchCount,myResult) + hipblasIdaminStridedBatched_rank_1 = hipblasIdaminStridedBatched_(handle,n,c_loc(x),incx, & + stridex,batchCount,c_loc(myResult)) end function -#else - function hipblasSasumStridedBatched_64_rank_0(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasIdaminStridedBatched_rank_1_devptr(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasumStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdaminStridedBatched_rank_1_devptr type(c_ptr), value :: handle - integer(c_int64_t) :: n - real(c_float),target :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount - type(c_ptr) :: myResult + integer(c_int) :: batchCount + type(c_ptr),value :: myResult ! - hipblasSasumStridedBatched_64_rank_0 = hipblasSasumStridedBatched_64_(handle,n,c_loc(x), & + hipblasIdaminStridedBatched_rank_1_devptr = hipblasIdaminStridedBatched_(handle,n,c_loc(x), & incx,stridex,batchCount,myResult) end function - function hipblasSasumStridedBatched_64_rank_1(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasIdaminStridedBatched_strided_rank(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasumStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdaminStridedBatched_strided_rank type(c_ptr), value :: handle - integer(c_int64_t) :: n - real(c_float),target,dimension(:) :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + real(c_double),target,dimension(:,:) :: x + integer(c_int) :: incx integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount - type(c_ptr) :: myResult + integer(c_int) :: batchCount + integer(c_int),target,dimension(:) :: myResult ! - hipblasSasumStridedBatched_64_rank_1 = hipblasSasumStridedBatched_64_(handle,n,c_loc(x), & - incx,stridex,batchCount,myResult) + hipblasIdaminStridedBatched_strided_rank = hipblasIdaminStridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,c_loc(myResult)) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDasumStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasIdaminStridedBatched_strided_rank_devptr(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasumStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdaminStridedBatched_strided_rank_devptr type(c_ptr), value :: handle - integer(c_int64_t) :: n - real(c_double),target,dimension(..) :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + real(c_double),target,dimension(:,:) :: x + integer(c_int) :: incx integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount - type(c_ptr) :: myResult + integer(c_int) :: batchCount + type(c_ptr),value :: myResult ! - hipblasDasumStridedBatched_64_assumed_rank = hipblasDasumStridedBatched_64_(handle,n, & + hipblasIdaminStridedBatched_strided_rank_devptr = hipblasIdaminStridedBatched_(handle,n, & c_loc(x),incx,stridex,batchCount,myResult) end function -#else - function hipblasDasumStridedBatched_64_rank_0(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasumStridedBatched_64_rank_0 - type(c_ptr), value :: handle - integer(c_int64_t) :: n - real(c_double),target :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount - type(c_ptr) :: myResult - ! - hipblasDasumStridedBatched_64_rank_0 = hipblasDasumStridedBatched_64_(handle,n,c_loc(x), & - incx,stridex,batchCount,myResult) - end function - - function hipblasDasumStridedBatched_64_rank_1(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasIcaminStridedBatched_assumed_rank(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasumStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcaminStridedBatched_assumed_rank type(c_ptr), value :: handle - integer(c_int64_t) :: n - real(c_double),target,dimension(:) :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount - type(c_ptr) :: myResult + integer(c_int) :: batchCount + integer(c_int),target,dimension(..) :: myResult ! - hipblasDasumStridedBatched_64_rank_1 = hipblasDasumStridedBatched_64_(handle,n,c_loc(x), & - incx,stridex,batchCount,myResult) + hipblasIcaminStridedBatched_assumed_rank = hipblasIcaminStridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,c_loc(myResult)) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasScasumStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,batchCount, & + function hipblasIcaminStridedBatched_assumed_rank_devptr(handle,n,x,incx,stridex,batchCount, & myResult) - use iso_c_binding implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasumStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcaminStridedBatched_assumed_rank_devptr type(c_ptr), value :: handle - integer(c_int64_t) :: n + integer(c_int) :: n complex(c_float_complex),target,dimension(..) :: x - integer(c_int64_t) :: incx + integer(c_int) :: incx integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount - type(c_ptr) :: myResult + integer(c_int) :: batchCount + type(c_ptr),value :: myResult ! - hipblasScasumStridedBatched_64_assumed_rank = hipblasScasumStridedBatched_64_(handle,n, & + hipblasIcaminStridedBatched_assumed_rank_devptr = hipblasIcaminStridedBatched_(handle,n, & c_loc(x),incx,stridex,batchCount,myResult) end function #else - function hipblasScasumStridedBatched_64_rank_0(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasIcaminStridedBatched_rank_0(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasumStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcaminStridedBatched_rank_0 type(c_ptr), value :: handle - integer(c_int64_t) :: n + integer(c_int) :: n complex(c_float_complex),target :: x - integer(c_int64_t) :: incx + integer(c_int) :: incx integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount - type(c_ptr) :: myResult + integer(c_int) :: batchCount + integer(c_int),target :: myResult ! - hipblasScasumStridedBatched_64_rank_0 = hipblasScasumStridedBatched_64_(handle,n,c_loc(x), & - incx,stridex,batchCount,myResult) + hipblasIcaminStridedBatched_rank_0 = hipblasIcaminStridedBatched_(handle,n,c_loc(x),incx, & + stridex,batchCount,c_loc(myResult)) end function - function hipblasScasumStridedBatched_64_rank_1(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasIcaminStridedBatched_rank_0_devptr(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasumStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcaminStridedBatched_rank_0_devptr type(c_ptr), value :: handle - integer(c_int64_t) :: n - complex(c_float_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + complex(c_float_complex),target :: x + integer(c_int) :: incx integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount - type(c_ptr) :: myResult + integer(c_int) :: batchCount + type(c_ptr),value :: myResult ! - hipblasScasumStridedBatched_64_rank_1 = hipblasScasumStridedBatched_64_(handle,n,c_loc(x), & + hipblasIcaminStridedBatched_rank_0_devptr = hipblasIcaminStridedBatched_(handle,n,c_loc(x), & incx,stridex,batchCount,myResult) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDzasumStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,batchCount, & - myResult) - use iso_c_binding + function hipblasIcaminStridedBatched_rank_1(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasumStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcaminStridedBatched_rank_1 type(c_ptr), value :: handle - integer(c_int64_t) :: n - complex(c_double_complex),target,dimension(..) :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount - type(c_ptr) :: myResult + integer(c_int) :: batchCount + integer(c_int),target,dimension(:) :: myResult ! - hipblasDzasumStridedBatched_64_assumed_rank = hipblasDzasumStridedBatched_64_(handle,n, & - c_loc(x),incx,stridex,batchCount,myResult) + hipblasIcaminStridedBatched_rank_1 = hipblasIcaminStridedBatched_(handle,n,c_loc(x),incx, & + stridex,batchCount,c_loc(myResult)) end function -#else - function hipblasDzasumStridedBatched_64_rank_0(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasIcaminStridedBatched_rank_1_devptr(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasumStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcaminStridedBatched_rank_1_devptr type(c_ptr), value :: handle - integer(c_int64_t) :: n - complex(c_double_complex),target :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount - type(c_ptr) :: myResult + integer(c_int) :: batchCount + type(c_ptr),value :: myResult ! - hipblasDzasumStridedBatched_64_rank_0 = hipblasDzasumStridedBatched_64_(handle,n,c_loc(x), & + hipblasIcaminStridedBatched_rank_1_devptr = hipblasIcaminStridedBatched_(handle,n,c_loc(x), & incx,stridex,batchCount,myResult) end function - function hipblasDzasumStridedBatched_64_rank_1(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasIcaminStridedBatched_strided_rank(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasumStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcaminStridedBatched_strided_rank type(c_ptr), value :: handle - integer(c_int64_t) :: n - complex(c_double_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int) :: incx integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount - type(c_ptr) :: myResult + integer(c_int) :: batchCount + integer(c_int),target,dimension(:) :: myResult ! - hipblasDzasumStridedBatched_64_rank_1 = hipblasDzasumStridedBatched_64_(handle,n,c_loc(x), & - incx,stridex,batchCount,myResult) + hipblasIcaminStridedBatched_strided_rank = hipblasIcaminStridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,c_loc(myResult)) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasSaxpy_assumed_rank(handle,n,alpha,x,incx,y,incy) - use iso_c_binding + function hipblasIcaminStridedBatched_strided_rank_devptr(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpy_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcaminStridedBatched_strided_rank_devptr type(c_ptr), value :: handle integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(..) :: x + complex(c_float_complex),target,dimension(:,:) :: x integer(c_int) :: incx - real(c_float),target,dimension(..) :: y - integer(c_int) :: incy + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + type(c_ptr),value :: myResult ! - hipblasSaxpy_assumed_rank = hipblasSaxpy_(handle,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy) + hipblasIcaminStridedBatched_strided_rank_devptr = hipblasIcaminStridedBatched_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) end function -#else - function hipblasSaxpy_rank_0(handle,n,alpha,x,incx,y,incy) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasIzaminStridedBatched_assumed_rank(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpy_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzaminStridedBatched_assumed_rank type(c_ptr), value :: handle integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target :: x + complex(c_double_complex),target,dimension(..) :: x integer(c_int) :: incx - real(c_float),target :: y - integer(c_int) :: incy + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + integer(c_int),target,dimension(..) :: myResult ! - hipblasSaxpy_rank_0 = hipblasSaxpy_(handle,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy) + hipblasIzaminStridedBatched_assumed_rank = hipblasIzaminStridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,c_loc(myResult)) end function - function hipblasSaxpy_rank_1(handle,n,alpha,x,incx,y,incy) - use iso_c_binding + function hipblasIzaminStridedBatched_assumed_rank_devptr(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpy_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzaminStridedBatched_assumed_rank_devptr type(c_ptr), value :: handle integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(:) :: x + complex(c_double_complex),target,dimension(..) :: x integer(c_int) :: incx - real(c_float),target,dimension(:) :: y - integer(c_int) :: incy + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + type(c_ptr),value :: myResult ! - hipblasSaxpy_rank_1 = hipblasSaxpy_(handle,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy) + hipblasIzaminStridedBatched_assumed_rank_devptr = hipblasIzaminStridedBatched_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDaxpy_assumed_rank(handle,n,alpha,x,incx,y,incy) - use iso_c_binding +#else + function hipblasIzaminStridedBatched_rank_0(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpy_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzaminStridedBatched_rank_0 type(c_ptr), value :: handle integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(..) :: x + complex(c_double_complex),target :: x integer(c_int) :: incx - real(c_double),target,dimension(..) :: y - integer(c_int) :: incy + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + integer(c_int),target :: myResult ! - hipblasDaxpy_assumed_rank = hipblasDaxpy_(handle,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy) + hipblasIzaminStridedBatched_rank_0 = hipblasIzaminStridedBatched_(handle,n,c_loc(x),incx, & + stridex,batchCount,c_loc(myResult)) end function -#else - function hipblasDaxpy_rank_0(handle,n,alpha,x,incx,y,incy) - use iso_c_binding + function hipblasIzaminStridedBatched_rank_0_devptr(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpy_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzaminStridedBatched_rank_0_devptr type(c_ptr), value :: handle integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target :: x + complex(c_double_complex),target :: x integer(c_int) :: incx - real(c_double),target :: y - integer(c_int) :: incy + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + type(c_ptr),value :: myResult ! - hipblasDaxpy_rank_0 = hipblasDaxpy_(handle,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy) + hipblasIzaminStridedBatched_rank_0_devptr = hipblasIzaminStridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) end function - function hipblasDaxpy_rank_1(handle,n,alpha,x,incx,y,incy) - use iso_c_binding + function hipblasIzaminStridedBatched_rank_1(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpy_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzaminStridedBatched_rank_1 type(c_ptr), value :: handle integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(:) :: x + complex(c_double_complex),target,dimension(:) :: x integer(c_int) :: incx - real(c_double),target,dimension(:) :: y - integer(c_int) :: incy + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + integer(c_int),target,dimension(:) :: myResult ! - hipblasDaxpy_rank_1 = hipblasDaxpy_(handle,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy) + hipblasIzaminStridedBatched_rank_1 = hipblasIzaminStridedBatched_(handle,n,c_loc(x),incx, & + stridex,batchCount,c_loc(myResult)) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCaxpy_assumed_rank(handle,n,alpha,x,incx,y,incy) - use iso_c_binding + function hipblasIzaminStridedBatched_rank_1_devptr(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpy_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzaminStridedBatched_rank_1_devptr type(c_ptr), value :: handle integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: x + complex(c_double_complex),target,dimension(:) :: x integer(c_int) :: incx - complex(c_float_complex),target,dimension(..) :: y - integer(c_int) :: incy + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + type(c_ptr),value :: myResult ! - hipblasCaxpy_assumed_rank = hipblasCaxpy_(handle,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy) + hipblasIzaminStridedBatched_rank_1_devptr = hipblasIzaminStridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) end function -#else - function hipblasCaxpy_rank_0(handle,n,alpha,x,incx,y,incy) - use iso_c_binding + function hipblasIzaminStridedBatched_strided_rank(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpy_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzaminStridedBatched_strided_rank type(c_ptr), value :: handle integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: x + complex(c_double_complex),target,dimension(:,:) :: x integer(c_int) :: incx - complex(c_float_complex),target :: y - integer(c_int) :: incy + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + integer(c_int),target,dimension(:) :: myResult ! - hipblasCaxpy_rank_0 = hipblasCaxpy_(handle,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy) + hipblasIzaminStridedBatched_strided_rank = hipblasIzaminStridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,c_loc(myResult)) end function - function hipblasCaxpy_rank_1(handle,n,alpha,x,incx,y,incy) - use iso_c_binding + function hipblasIzaminStridedBatched_strided_rank_devptr(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpy_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzaminStridedBatched_strided_rank_devptr type(c_ptr), value :: handle integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: x + complex(c_double_complex),target,dimension(:,:) :: x integer(c_int) :: incx - complex(c_float_complex),target,dimension(:) :: y - integer(c_int) :: incy + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + type(c_ptr),value :: myResult ! - hipblasCaxpy_rank_1 = hipblasCaxpy_(handle,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy) + hipblasIzaminStridedBatched_strided_rank_devptr = hipblasIzaminStridedBatched_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasZaxpy_assumed_rank(handle,n,alpha,x,incx,y,incy) - use iso_c_binding + function hipblasIsaminStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpy_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsaminStridedBatched_64_assumed_rank type(c_ptr), value :: handle - integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: x - integer(c_int) :: incx - complex(c_double_complex),target,dimension(..) :: y - integer(c_int) :: incy + integer(c_int64_t) :: n + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + integer(c_int64_t),target,dimension(..) :: myResult ! - hipblasZaxpy_assumed_rank = hipblasZaxpy_(handle,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy) + hipblasIsaminStridedBatched_64_assumed_rank = hipblasIsaminStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,c_loc(myResult)) end function -#else - function hipblasZaxpy_rank_0(handle,n,alpha,x,incx,y,incy) - use iso_c_binding + function hipblasIsaminStridedBatched_64_assumed_rank_devptr(handle,n,x,incx,stridex, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpy_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsaminStridedBatched_64_assumed_rank_devptr type(c_ptr), value :: handle - integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: x - integer(c_int) :: incx - complex(c_double_complex),target :: y - integer(c_int) :: incy + integer(c_int64_t) :: n + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + type(c_ptr),value :: myResult ! - hipblasZaxpy_rank_0 = hipblasZaxpy_(handle,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy) + hipblasIsaminStridedBatched_64_assumed_rank_devptr = hipblasIsaminStridedBatched_64_(handle, & + n,c_loc(x),incx,stridex,batchCount,myResult) end function - function hipblasZaxpy_rank_1(handle,n,alpha,x,incx,y,incy) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpy_rank_1 - type(c_ptr), value :: handle - integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: x - integer(c_int) :: incx - complex(c_double_complex),target,dimension(:) :: y - integer(c_int) :: incy - ! - hipblasZaxpy_rank_1 = hipblasZaxpy_(handle,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy) - end function - -#endif -#ifdef USE_ASSUMED_RANK - function hipblasSaxpy_64_assumed_rank(handle,n,alpha,x,incx,y,incy) - use iso_c_binding +#else + function hipblasIsaminStridedBatched_64_rank_0(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpy_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsaminStridedBatched_64_rank_0 type(c_ptr), value :: handle integer(c_int64_t) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(..) :: x + real(c_float),target :: x integer(c_int64_t) :: incx - real(c_float),target,dimension(..) :: y - integer(c_int64_t) :: incy + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + integer(c_int64_t),target :: myResult ! - hipblasSaxpy_64_assumed_rank = hipblasSaxpy_64_(handle,n,c_loc(alpha),c_loc(x),incx, & - c_loc(y),incy) + hipblasIsaminStridedBatched_64_rank_0 = hipblasIsaminStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,batchCount,c_loc(myResult)) end function -#else - function hipblasSaxpy_64_rank_0(handle,n,alpha,x,incx,y,incy) - use iso_c_binding + function hipblasIsaminStridedBatched_64_rank_0_devptr(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpy_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsaminStridedBatched_64_rank_0_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n - real(c_float),target :: alpha real(c_float),target :: x integer(c_int64_t) :: incx - real(c_float),target :: y - integer(c_int64_t) :: incy + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + type(c_ptr),value :: myResult ! - hipblasSaxpy_64_rank_0 = hipblasSaxpy_64_(handle,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy) + hipblasIsaminStridedBatched_64_rank_0_devptr = hipblasIsaminStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) end function - function hipblasSaxpy_64_rank_1(handle,n,alpha,x,incx,y,incy) - use iso_c_binding + function hipblasIsaminStridedBatched_64_rank_1(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpy_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsaminStridedBatched_64_rank_1 type(c_ptr), value :: handle integer(c_int64_t) :: n - real(c_float),target :: alpha real(c_float),target,dimension(:) :: x integer(c_int64_t) :: incx - real(c_float),target,dimension(:) :: y - integer(c_int64_t) :: incy + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + integer(c_int64_t),target,dimension(:) :: myResult ! - hipblasSaxpy_64_rank_1 = hipblasSaxpy_64_(handle,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy) + hipblasIsaminStridedBatched_64_rank_1 = hipblasIsaminStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,batchCount,c_loc(myResult)) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDaxpy_64_assumed_rank(handle,n,alpha,x,incx,y,incy) - use iso_c_binding + function hipblasIsaminStridedBatched_64_rank_1_devptr(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpy_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsaminStridedBatched_64_rank_1_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(..) :: x + real(c_float),target,dimension(:) :: x integer(c_int64_t) :: incx - real(c_double),target,dimension(..) :: y - integer(c_int64_t) :: incy + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + type(c_ptr),value :: myResult ! - hipblasDaxpy_64_assumed_rank = hipblasDaxpy_64_(handle,n,c_loc(alpha),c_loc(x),incx, & - c_loc(y),incy) + hipblasIsaminStridedBatched_64_rank_1_devptr = hipblasIsaminStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) end function -#else - function hipblasDaxpy_64_rank_0(handle,n,alpha,x,incx,y,incy) - use iso_c_binding + function hipblasIsaminStridedBatched_64_strided_rank(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpy_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsaminStridedBatched_64_strided_rank type(c_ptr), value :: handle integer(c_int64_t) :: n - real(c_double),target :: alpha - real(c_double),target :: x + real(c_float),target,dimension(:,:) :: x integer(c_int64_t) :: incx - real(c_double),target :: y - integer(c_int64_t) :: incy + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + integer(c_int64_t),target,dimension(:) :: myResult ! - hipblasDaxpy_64_rank_0 = hipblasDaxpy_64_(handle,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy) + hipblasIsaminStridedBatched_64_strided_rank = hipblasIsaminStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,c_loc(myResult)) end function - function hipblasDaxpy_64_rank_1(handle,n,alpha,x,incx,y,incy) - use iso_c_binding + function hipblasIsaminStridedBatched_64_strided_rank_devptr(handle,n,x,incx,stridex, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpy_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsaminStridedBatched_64_strided_rank_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(:) :: x + real(c_float),target,dimension(:,:) :: x integer(c_int64_t) :: incx - real(c_double),target,dimension(:) :: y - integer(c_int64_t) :: incy + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + type(c_ptr),value :: myResult ! - hipblasDaxpy_64_rank_1 = hipblasDaxpy_64_(handle,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy) + hipblasIsaminStridedBatched_64_strided_rank_devptr = hipblasIsaminStridedBatched_64_(handle, & + n,c_loc(x),incx,stridex,batchCount,myResult) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCaxpy_64_assumed_rank(handle,n,alpha,x,incx,y,incy) - use iso_c_binding + function hipblasIdaminStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpy_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdaminStridedBatched_64_assumed_rank type(c_ptr), value :: handle integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: x + real(c_double),target,dimension(..) :: x integer(c_int64_t) :: incx - complex(c_float_complex),target,dimension(..) :: y - integer(c_int64_t) :: incy + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + integer(c_int64_t),target,dimension(..) :: myResult ! - hipblasCaxpy_64_assumed_rank = hipblasCaxpy_64_(handle,n,c_loc(alpha),c_loc(x),incx, & - c_loc(y),incy) + hipblasIdaminStridedBatched_64_assumed_rank = hipblasIdaminStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,c_loc(myResult)) end function -#else - function hipblasCaxpy_64_rank_0(handle,n,alpha,x,incx,y,incy) - use iso_c_binding + function hipblasIdaminStridedBatched_64_assumed_rank_devptr(handle,n,x,incx,stridex, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpy_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdaminStridedBatched_64_assumed_rank_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: x + real(c_double),target,dimension(..) :: x integer(c_int64_t) :: incx - complex(c_float_complex),target :: y - integer(c_int64_t) :: incy + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + type(c_ptr),value :: myResult ! - hipblasCaxpy_64_rank_0 = hipblasCaxpy_64_(handle,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy) + hipblasIdaminStridedBatched_64_assumed_rank_devptr = hipblasIdaminStridedBatched_64_(handle, & + n,c_loc(x),incx,stridex,batchCount,myResult) end function - function hipblasCaxpy_64_rank_1(handle,n,alpha,x,incx,y,incy) - use iso_c_binding +#else + function hipblasIdaminStridedBatched_64_rank_0(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpy_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdaminStridedBatched_64_rank_0 type(c_ptr), value :: handle integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: x + real(c_double),target :: x integer(c_int64_t) :: incx - complex(c_float_complex),target,dimension(:) :: y - integer(c_int64_t) :: incy + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + integer(c_int64_t),target :: myResult ! - hipblasCaxpy_64_rank_1 = hipblasCaxpy_64_(handle,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy) + hipblasIdaminStridedBatched_64_rank_0 = hipblasIdaminStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,batchCount,c_loc(myResult)) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZaxpy_64_assumed_rank(handle,n,alpha,x,incx,y,incy) - use iso_c_binding + function hipblasIdaminStridedBatched_64_rank_0_devptr(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpy_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdaminStridedBatched_64_rank_0_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: x + real(c_double),target :: x integer(c_int64_t) :: incx - complex(c_double_complex),target,dimension(..) :: y - integer(c_int64_t) :: incy + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + type(c_ptr),value :: myResult ! - hipblasZaxpy_64_assumed_rank = hipblasZaxpy_64_(handle,n,c_loc(alpha),c_loc(x),incx, & - c_loc(y),incy) + hipblasIdaminStridedBatched_64_rank_0_devptr = hipblasIdaminStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) end function -#else - function hipblasZaxpy_64_rank_0(handle,n,alpha,x,incx,y,incy) - use iso_c_binding + function hipblasIdaminStridedBatched_64_rank_1(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpy_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdaminStridedBatched_64_rank_1 type(c_ptr), value :: handle integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: x + real(c_double),target,dimension(:) :: x integer(c_int64_t) :: incx - complex(c_double_complex),target :: y - integer(c_int64_t) :: incy + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + integer(c_int64_t),target,dimension(:) :: myResult ! - hipblasZaxpy_64_rank_0 = hipblasZaxpy_64_(handle,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy) + hipblasIdaminStridedBatched_64_rank_1 = hipblasIdaminStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,batchCount,c_loc(myResult)) end function - function hipblasZaxpy_64_rank_1(handle,n,alpha,x,incx,y,incy) - use iso_c_binding + function hipblasIdaminStridedBatched_64_rank_1_devptr(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpy_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdaminStridedBatched_64_rank_1_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: x + real(c_double),target,dimension(:) :: x integer(c_int64_t) :: incx - complex(c_double_complex),target,dimension(:) :: y - integer(c_int64_t) :: incy + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + type(c_ptr),value :: myResult ! - hipblasZaxpy_64_rank_1 = hipblasZaxpy_64_(handle,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy) + hipblasIdaminStridedBatched_64_rank_1_devptr = hipblasIdaminStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasSaxpyStridedBatched_assumed_rank(handle,n,alpha,x,incx,stridex,y,incy,stridey, & - batchCount) - use iso_c_binding + function hipblasIdaminStridedBatched_64_strided_rank(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpyStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdaminStridedBatched_64_strided_rank type(c_ptr), value :: handle - integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(..) :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + real(c_double),target,dimension(:,:) :: x + integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - real(c_float),target,dimension(..) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount + integer(c_int64_t),target,dimension(:) :: myResult ! - hipblasSaxpyStridedBatched_assumed_rank = hipblasSaxpyStridedBatched_(handle,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + hipblasIdaminStridedBatched_64_strided_rank = hipblasIdaminStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,c_loc(myResult)) end function -#else - function hipblasSaxpyStridedBatched_rank_0(handle,n,alpha,x,incx,stridex,y,incy,stridey, & - batchCount) - use iso_c_binding + function hipblasIdaminStridedBatched_64_strided_rank_devptr(handle,n,x,incx,stridex, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpyStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdaminStridedBatched_64_strided_rank_devptr type(c_ptr), value :: handle - integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + real(c_double),target,dimension(:,:) :: x + integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - real(c_float),target :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount + type(c_ptr),value :: myResult ! - hipblasSaxpyStridedBatched_rank_0 = hipblasSaxpyStridedBatched_(handle,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + hipblasIdaminStridedBatched_64_strided_rank_devptr = hipblasIdaminStridedBatched_64_(handle, & + n,c_loc(x),incx,stridex,batchCount,myResult) end function - function hipblasSaxpyStridedBatched_rank_1(handle,n,alpha,x,incx,stridex,y,incy,stridey, & - batchCount) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasIcaminStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpyStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcaminStridedBatched_64_assumed_rank type(c_ptr), value :: handle - integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(:) :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - real(c_float),target,dimension(:) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount + integer(c_int64_t),target,dimension(..) :: myResult ! - hipblasSaxpyStridedBatched_rank_1 = hipblasSaxpyStridedBatched_(handle,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + hipblasIcaminStridedBatched_64_assumed_rank = hipblasIcaminStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,c_loc(myResult)) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDaxpyStridedBatched_assumed_rank(handle,n,alpha,x,incx,stridex,y,incy,stridey, & - batchCount) - use iso_c_binding + function hipblasIcaminStridedBatched_64_assumed_rank_devptr(handle,n,x,incx,stridex, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpyStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcaminStridedBatched_64_assumed_rank_devptr type(c_ptr), value :: handle - integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(..) :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - real(c_double),target,dimension(..) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount + type(c_ptr),value :: myResult ! - hipblasDaxpyStridedBatched_assumed_rank = hipblasDaxpyStridedBatched_(handle,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + hipblasIcaminStridedBatched_64_assumed_rank_devptr = hipblasIcaminStridedBatched_64_(handle, & + n,c_loc(x),incx,stridex,batchCount,myResult) end function #else - function hipblasDaxpyStridedBatched_rank_0(handle,n,alpha,x,incx,stridex,y,incy,stridey, & - batchCount) - use iso_c_binding + function hipblasIcaminStridedBatched_64_rank_0(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpyStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcaminStridedBatched_64_rank_0 type(c_ptr), value :: handle - integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - real(c_double),target :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount + integer(c_int64_t),target :: myResult ! - hipblasDaxpyStridedBatched_rank_0 = hipblasDaxpyStridedBatched_(handle,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + hipblasIcaminStridedBatched_64_rank_0 = hipblasIcaminStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,batchCount,c_loc(myResult)) end function - function hipblasDaxpyStridedBatched_rank_1(handle,n,alpha,x,incx,stridex,y,incy,stridey, & - batchCount) - use iso_c_binding + function hipblasIcaminStridedBatched_64_rank_0_devptr(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpyStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcaminStridedBatched_64_rank_0_devptr type(c_ptr), value :: handle - integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(:) :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - real(c_double),target,dimension(:) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount + type(c_ptr),value :: myResult ! - hipblasDaxpyStridedBatched_rank_1 = hipblasDaxpyStridedBatched_(handle,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + hipblasIcaminStridedBatched_64_rank_0_devptr = hipblasIcaminStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCaxpyStridedBatched_assumed_rank(handle,n,alpha,x,incx,stridex,y,incy,stridey, & - batchCount) - use iso_c_binding + function hipblasIcaminStridedBatched_64_rank_1(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpyStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcaminStridedBatched_64_rank_1 type(c_ptr), value :: handle - integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - complex(c_float_complex),target,dimension(..) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount + integer(c_int64_t),target,dimension(:) :: myResult ! - hipblasCaxpyStridedBatched_assumed_rank = hipblasCaxpyStridedBatched_(handle,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + hipblasIcaminStridedBatched_64_rank_1 = hipblasIcaminStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,batchCount,c_loc(myResult)) end function -#else - function hipblasCaxpyStridedBatched_rank_0(handle,n,alpha,x,incx,stridex,y,incy,stridey, & - batchCount) - use iso_c_binding + function hipblasIcaminStridedBatched_64_rank_1_devptr(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpyStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcaminStridedBatched_64_rank_1_devptr type(c_ptr), value :: handle - integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - complex(c_float_complex),target :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount + type(c_ptr),value :: myResult ! - hipblasCaxpyStridedBatched_rank_0 = hipblasCaxpyStridedBatched_(handle,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + hipblasIcaminStridedBatched_64_rank_1_devptr = hipblasIcaminStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) end function - function hipblasCaxpyStridedBatched_rank_1(handle,n,alpha,x,incx,stridex,y,incy,stridey, & - batchCount) - use iso_c_binding + function hipblasIcaminStridedBatched_64_strided_rank(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpyStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcaminStridedBatched_64_strided_rank type(c_ptr), value :: handle - integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - complex(c_float_complex),target,dimension(:) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount + integer(c_int64_t),target,dimension(:) :: myResult ! - hipblasCaxpyStridedBatched_rank_1 = hipblasCaxpyStridedBatched_(handle,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + hipblasIcaminStridedBatched_64_strided_rank = hipblasIcaminStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,c_loc(myResult)) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZaxpyStridedBatched_assumed_rank(handle,n,alpha,x,incx,stridex,y,incy,stridey, & - batchCount) - use iso_c_binding + function hipblasIcaminStridedBatched_64_strided_rank_devptr(handle,n,x,incx,stridex, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpyStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcaminStridedBatched_64_strided_rank_devptr type(c_ptr), value :: handle - integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - complex(c_double_complex),target,dimension(..) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount + type(c_ptr),value :: myResult ! - hipblasZaxpyStridedBatched_assumed_rank = hipblasZaxpyStridedBatched_(handle,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + hipblasIcaminStridedBatched_64_strided_rank_devptr = hipblasIcaminStridedBatched_64_(handle, & + n,c_loc(x),incx,stridex,batchCount,myResult) end function -#else - function hipblasZaxpyStridedBatched_rank_0(handle,n,alpha,x,incx,stridex,y,incy,stridey, & - batchCount) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasIzaminStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpyStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzaminStridedBatched_64_assumed_rank type(c_ptr), value :: handle - integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - complex(c_double_complex),target :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount + integer(c_int64_t),target,dimension(..) :: myResult ! - hipblasZaxpyStridedBatched_rank_0 = hipblasZaxpyStridedBatched_(handle,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + hipblasIzaminStridedBatched_64_assumed_rank = hipblasIzaminStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,c_loc(myResult)) end function - function hipblasZaxpyStridedBatched_rank_1(handle,n,alpha,x,incx,stridex,y,incy,stridey, & - batchCount) - use iso_c_binding + function hipblasIzaminStridedBatched_64_assumed_rank_devptr(handle,n,x,incx,stridex, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpyStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzaminStridedBatched_64_assumed_rank_devptr type(c_ptr), value :: handle - integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - complex(c_double_complex),target,dimension(:) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount + type(c_ptr),value :: myResult ! - hipblasZaxpyStridedBatched_rank_1 = hipblasZaxpyStridedBatched_(handle,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + hipblasIzaminStridedBatched_64_assumed_rank_devptr = hipblasIzaminStridedBatched_64_(handle, & + n,c_loc(x),incx,stridex,batchCount,myResult) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasSaxpyStridedBatched_64_assumed_rank(handle,n,alpha,x,incx,stridex,y,incy, & - stridey,batchCount) - use iso_c_binding +#else + function hipblasIzaminStridedBatched_64_rank_0(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpyStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzaminStridedBatched_64_rank_0 type(c_ptr), value :: handle integer(c_int64_t) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(..) :: x + complex(c_double_complex),target :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - real(c_float),target,dimension(..) :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount + integer(c_int64_t),target :: myResult ! - hipblasSaxpyStridedBatched_64_assumed_rank = hipblasSaxpyStridedBatched_64_(handle,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + hipblasIzaminStridedBatched_64_rank_0 = hipblasIzaminStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,batchCount,c_loc(myResult)) end function -#else - function hipblasSaxpyStridedBatched_64_rank_0(handle,n,alpha,x,incx,stridex,y,incy,stridey, & - batchCount) - use iso_c_binding + function hipblasIzaminStridedBatched_64_rank_0_devptr(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpyStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzaminStridedBatched_64_rank_0_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n - real(c_float),target :: alpha - real(c_float),target :: x + complex(c_double_complex),target :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - real(c_float),target :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount + type(c_ptr),value :: myResult ! - hipblasSaxpyStridedBatched_64_rank_0 = hipblasSaxpyStridedBatched_64_(handle,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + hipblasIzaminStridedBatched_64_rank_0_devptr = hipblasIzaminStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) end function - function hipblasSaxpyStridedBatched_64_rank_1(handle,n,alpha,x,incx,stridex,y,incy,stridey, & - batchCount) - use iso_c_binding + function hipblasIzaminStridedBatched_64_rank_1(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpyStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzaminStridedBatched_64_rank_1 type(c_ptr), value :: handle integer(c_int64_t) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(:) :: x + complex(c_double_complex),target,dimension(:) :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - real(c_float),target,dimension(:) :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount + integer(c_int64_t),target,dimension(:) :: myResult ! - hipblasSaxpyStridedBatched_64_rank_1 = hipblasSaxpyStridedBatched_64_(handle,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + hipblasIzaminStridedBatched_64_rank_1 = hipblasIzaminStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,batchCount,c_loc(myResult)) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDaxpyStridedBatched_64_assumed_rank(handle,n,alpha,x,incx,stridex,y,incy, & - stridey,batchCount) - use iso_c_binding + function hipblasIzaminStridedBatched_64_rank_1_devptr(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpyStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzaminStridedBatched_64_rank_1_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(..) :: x + complex(c_double_complex),target,dimension(:) :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - real(c_double),target,dimension(..) :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount + type(c_ptr),value :: myResult ! - hipblasDaxpyStridedBatched_64_assumed_rank = hipblasDaxpyStridedBatched_64_(handle,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + hipblasIzaminStridedBatched_64_rank_1_devptr = hipblasIzaminStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) end function -#else - function hipblasDaxpyStridedBatched_64_rank_0(handle,n,alpha,x,incx,stridex,y,incy,stridey, & - batchCount) - use iso_c_binding + function hipblasIzaminStridedBatched_64_strided_rank(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpyStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzaminStridedBatched_64_strided_rank type(c_ptr), value :: handle integer(c_int64_t) :: n - real(c_double),target :: alpha - real(c_double),target :: x + complex(c_double_complex),target,dimension(:,:) :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - real(c_double),target :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount + integer(c_int64_t),target,dimension(:) :: myResult ! - hipblasDaxpyStridedBatched_64_rank_0 = hipblasDaxpyStridedBatched_64_(handle,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + hipblasIzaminStridedBatched_64_strided_rank = hipblasIzaminStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,c_loc(myResult)) end function - function hipblasDaxpyStridedBatched_64_rank_1(handle,n,alpha,x,incx,stridex,y,incy,stridey, & - batchCount) - use iso_c_binding + function hipblasIzaminStridedBatched_64_strided_rank_devptr(handle,n,x,incx,stridex, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpyStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzaminStridedBatched_64_strided_rank_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(:) :: x + complex(c_double_complex),target,dimension(:,:) :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - real(c_double),target,dimension(:) :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount + type(c_ptr),value :: myResult ! - hipblasDaxpyStridedBatched_64_rank_1 = hipblasDaxpyStridedBatched_64_(handle,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + hipblasIzaminStridedBatched_64_strided_rank_devptr = hipblasIzaminStridedBatched_64_(handle, & + n,c_loc(x),incx,stridex,batchCount,myResult) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCaxpyStridedBatched_64_assumed_rank(handle,n,alpha,x,incx,stridex,y,incy, & - stridey,batchCount) - use iso_c_binding + function hipblasSasum_assumed_rank(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpyStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasum_assumed_rank type(c_ptr), value :: handle - integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - complex(c_float_complex),target,dimension(..) :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount + integer(c_int) :: n + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + real(c_float),target :: myResult ! - hipblasCaxpyStridedBatched_64_assumed_rank = hipblasCaxpyStridedBatched_64_(handle,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + hipblasSasum_assumed_rank = hipblasSasum_(handle,n,c_loc(x),incx,c_loc(myResult)) end function -#else - function hipblasCaxpyStridedBatched_64_rank_0(handle,n,alpha,x,incx,stridex,y,incy,stridey, & - batchCount) - use iso_c_binding + function hipblasSasum_assumed_rank_devptr(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpyStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasum_assumed_rank_devptr type(c_ptr), value :: handle - integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - complex(c_float_complex),target :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount + integer(c_int) :: n + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult ! - hipblasCaxpyStridedBatched_64_rank_0 = hipblasCaxpyStridedBatched_64_(handle,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + hipblasSasum_assumed_rank_devptr = hipblasSasum_(handle,n,c_loc(x),incx,myResult) end function - function hipblasCaxpyStridedBatched_64_rank_1(handle,n,alpha,x,incx,stridex,y,incy,stridey, & - batchCount) - use iso_c_binding +#else + function hipblasSasum_rank_0(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpyStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasum_rank_0 type(c_ptr), value :: handle - integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - complex(c_float_complex),target,dimension(:) :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount + integer(c_int) :: n + real(c_float),target :: x + integer(c_int) :: incx + real(c_float),target :: myResult ! - hipblasCaxpyStridedBatched_64_rank_1 = hipblasCaxpyStridedBatched_64_(handle,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + hipblasSasum_rank_0 = hipblasSasum_(handle,n,c_loc(x),incx,c_loc(myResult)) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZaxpyStridedBatched_64_assumed_rank(handle,n,alpha,x,incx,stridex,y,incy, & - stridey,batchCount) - use iso_c_binding + function hipblasSasum_rank_0_devptr(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpyStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasum_rank_0_devptr type(c_ptr), value :: handle - integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - complex(c_double_complex),target,dimension(..) :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount + integer(c_int) :: n + real(c_float),target :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult ! - hipblasZaxpyStridedBatched_64_assumed_rank = hipblasZaxpyStridedBatched_64_(handle,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + hipblasSasum_rank_0_devptr = hipblasSasum_(handle,n,c_loc(x),incx,myResult) end function -#else - function hipblasZaxpyStridedBatched_64_rank_0(handle,n,alpha,x,incx,stridex,y,incy,stridey, & - batchCount) - use iso_c_binding + function hipblasSasum_rank_1(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpyStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasum_rank_1 type(c_ptr), value :: handle - integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - complex(c_double_complex),target :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount + integer(c_int) :: n + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + real(c_float),target :: myResult ! - hipblasZaxpyStridedBatched_64_rank_0 = hipblasZaxpyStridedBatched_64_(handle,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + hipblasSasum_rank_1 = hipblasSasum_(handle,n,c_loc(x),incx,c_loc(myResult)) end function - function hipblasZaxpyStridedBatched_64_rank_1(handle,n,alpha,x,incx,stridex,y,incy,stridey, & - batchCount) - use iso_c_binding + function hipblasSasum_rank_1_devptr(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpyStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasum_rank_1_devptr type(c_ptr), value :: handle - integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - complex(c_double_complex),target,dimension(:) :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount + integer(c_int) :: n + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult ! - hipblasZaxpyStridedBatched_64_rank_1 = hipblasZaxpyStridedBatched_64_(handle,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + hipblasSasum_rank_1_devptr = hipblasSasum_(handle,n,c_loc(x),incx,myResult) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasScopy_assumed_rank(handle,n,x,incx,y,incy) - use iso_c_binding + function hipblasDasum_assumed_rank(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScopy_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasum_assumed_rank type(c_ptr), value :: handle integer(c_int) :: n - real(c_float),target,dimension(..) :: x + real(c_double),target,dimension(..) :: x integer(c_int) :: incx - real(c_float),target,dimension(..) :: y - integer(c_int) :: incy + real(c_double),target :: myResult ! - hipblasScopy_assumed_rank = hipblasScopy_(handle,n,c_loc(x),incx,c_loc(y),incy) + hipblasDasum_assumed_rank = hipblasDasum_(handle,n,c_loc(x),incx,c_loc(myResult)) end function -#else - function hipblasScopy_rank_0(handle,n,x,incx,y,incy) - use iso_c_binding + function hipblasDasum_assumed_rank_devptr(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScopy_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasum_assumed_rank_devptr type(c_ptr), value :: handle integer(c_int) :: n - real(c_float),target :: x + real(c_double),target,dimension(..) :: x integer(c_int) :: incx - real(c_float),target :: y - integer(c_int) :: incy + type(c_ptr),value :: myResult ! - hipblasScopy_rank_0 = hipblasScopy_(handle,n,c_loc(x),incx,c_loc(y),incy) + hipblasDasum_assumed_rank_devptr = hipblasDasum_(handle,n,c_loc(x),incx,myResult) end function - function hipblasScopy_rank_1(handle,n,x,incx,y,incy) - use iso_c_binding +#else + function hipblasDasum_rank_0(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScopy_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasum_rank_0 type(c_ptr), value :: handle integer(c_int) :: n - real(c_float),target,dimension(:) :: x + real(c_double),target :: x integer(c_int) :: incx - real(c_float),target,dimension(:) :: y - integer(c_int) :: incy + real(c_double),target :: myResult ! - hipblasScopy_rank_1 = hipblasScopy_(handle,n,c_loc(x),incx,c_loc(y),incy) + hipblasDasum_rank_0 = hipblasDasum_(handle,n,c_loc(x),incx,c_loc(myResult)) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDcopy_assumed_rank(handle,n,x,incx,y,incy) - use iso_c_binding + function hipblasDasum_rank_0_devptr(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDcopy_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasum_rank_0_devptr type(c_ptr), value :: handle integer(c_int) :: n - real(c_double),target,dimension(..) :: x + real(c_double),target :: x integer(c_int) :: incx - real(c_double),target,dimension(..) :: y - integer(c_int) :: incy + type(c_ptr),value :: myResult ! - hipblasDcopy_assumed_rank = hipblasDcopy_(handle,n,c_loc(x),incx,c_loc(y),incy) + hipblasDasum_rank_0_devptr = hipblasDasum_(handle,n,c_loc(x),incx,myResult) end function -#else - function hipblasDcopy_rank_0(handle,n,x,incx,y,incy) - use iso_c_binding + function hipblasDasum_rank_1(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDcopy_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasum_rank_1 type(c_ptr), value :: handle integer(c_int) :: n - real(c_double),target :: x + real(c_double),target,dimension(:) :: x integer(c_int) :: incx - real(c_double),target :: y - integer(c_int) :: incy + real(c_double),target :: myResult ! - hipblasDcopy_rank_0 = hipblasDcopy_(handle,n,c_loc(x),incx,c_loc(y),incy) + hipblasDasum_rank_1 = hipblasDasum_(handle,n,c_loc(x),incx,c_loc(myResult)) end function - function hipblasDcopy_rank_1(handle,n,x,incx,y,incy) - use iso_c_binding + function hipblasDasum_rank_1_devptr(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDcopy_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasum_rank_1_devptr type(c_ptr), value :: handle integer(c_int) :: n real(c_double),target,dimension(:) :: x integer(c_int) :: incx - real(c_double),target,dimension(:) :: y - integer(c_int) :: incy + type(c_ptr),value :: myResult ! - hipblasDcopy_rank_1 = hipblasDcopy_(handle,n,c_loc(x),incx,c_loc(y),incy) + hipblasDasum_rank_1_devptr = hipblasDasum_(handle,n,c_loc(x),incx,myResult) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCcopy_assumed_rank(handle,n,x,incx,y,incy) - use iso_c_binding + function hipblasScasum_assumed_rank(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCcopy_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasum_assumed_rank type(c_ptr), value :: handle integer(c_int) :: n complex(c_float_complex),target,dimension(..) :: x integer(c_int) :: incx - complex(c_float_complex),target,dimension(..) :: y - integer(c_int) :: incy + real(c_float),target :: myResult ! - hipblasCcopy_assumed_rank = hipblasCcopy_(handle,n,c_loc(x),incx,c_loc(y),incy) + hipblasScasum_assumed_rank = hipblasScasum_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasScasum_assumed_rank_devptr(handle,n,x,incx,myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasum_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + hipblasScasum_assumed_rank_devptr = hipblasScasum_(handle,n,c_loc(x),incx,myResult) end function #else - function hipblasCcopy_rank_0(handle,n,x,incx,y,incy) - use iso_c_binding + function hipblasScasum_rank_0(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCcopy_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasum_rank_0 type(c_ptr), value :: handle integer(c_int) :: n complex(c_float_complex),target :: x integer(c_int) :: incx - complex(c_float_complex),target :: y - integer(c_int) :: incy + real(c_float),target :: myResult ! - hipblasCcopy_rank_0 = hipblasCcopy_(handle,n,c_loc(x),incx,c_loc(y),incy) + hipblasScasum_rank_0 = hipblasScasum_(handle,n,c_loc(x),incx,c_loc(myResult)) end function - function hipblasCcopy_rank_1(handle,n,x,incx,y,incy) - use iso_c_binding + function hipblasScasum_rank_0_devptr(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCcopy_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasum_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + hipblasScasum_rank_0_devptr = hipblasScasum_(handle,n,c_loc(x),incx,myResult) + end function + + function hipblasScasum_rank_1(handle,n,x,incx,myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasum_rank_1 type(c_ptr), value :: handle integer(c_int) :: n complex(c_float_complex),target,dimension(:) :: x integer(c_int) :: incx - complex(c_float_complex),target,dimension(:) :: y - integer(c_int) :: incy + real(c_float),target :: myResult ! - hipblasCcopy_rank_1 = hipblasCcopy_(handle,n,c_loc(x),incx,c_loc(y),incy) + hipblasScasum_rank_1 = hipblasScasum_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasScasum_rank_1_devptr(handle,n,x,incx,myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasum_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + hipblasScasum_rank_1_devptr = hipblasScasum_(handle,n,c_loc(x),incx,myResult) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasZcopy_assumed_rank(handle,n,x,incx,y,incy) - use iso_c_binding + function hipblasDzasum_assumed_rank(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZcopy_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasum_assumed_rank type(c_ptr), value :: handle integer(c_int) :: n complex(c_double_complex),target,dimension(..) :: x integer(c_int) :: incx - complex(c_double_complex),target,dimension(..) :: y - integer(c_int) :: incy + real(c_double),target :: myResult ! - hipblasZcopy_assumed_rank = hipblasZcopy_(handle,n,c_loc(x),incx,c_loc(y),incy) + hipblasDzasum_assumed_rank = hipblasDzasum_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasDzasum_assumed_rank_devptr(handle,n,x,incx,myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasum_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + hipblasDzasum_assumed_rank_devptr = hipblasDzasum_(handle,n,c_loc(x),incx,myResult) end function #else - function hipblasZcopy_rank_0(handle,n,x,incx,y,incy) - use iso_c_binding + function hipblasDzasum_rank_0(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZcopy_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasum_rank_0 type(c_ptr), value :: handle integer(c_int) :: n complex(c_double_complex),target :: x integer(c_int) :: incx - complex(c_double_complex),target :: y - integer(c_int) :: incy + real(c_double),target :: myResult ! - hipblasZcopy_rank_0 = hipblasZcopy_(handle,n,c_loc(x),incx,c_loc(y),incy) + hipblasDzasum_rank_0 = hipblasDzasum_(handle,n,c_loc(x),incx,c_loc(myResult)) end function - function hipblasZcopy_rank_1(handle,n,x,incx,y,incy) - use iso_c_binding + function hipblasDzasum_rank_0_devptr(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZcopy_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasum_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + hipblasDzasum_rank_0_devptr = hipblasDzasum_(handle,n,c_loc(x),incx,myResult) + end function + + function hipblasDzasum_rank_1(handle,n,x,incx,myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasum_rank_1 type(c_ptr), value :: handle integer(c_int) :: n complex(c_double_complex),target,dimension(:) :: x integer(c_int) :: incx - complex(c_double_complex),target,dimension(:) :: y - integer(c_int) :: incy + real(c_double),target :: myResult ! - hipblasZcopy_rank_1 = hipblasZcopy_(handle,n,c_loc(x),incx,c_loc(y),incy) + hipblasDzasum_rank_1 = hipblasDzasum_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasDzasum_rank_1_devptr(handle,n,x,incx,myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasum_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + hipblasDzasum_rank_1_devptr = hipblasDzasum_(handle,n,c_loc(x),incx,myResult) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasScopy_64_assumed_rank(handle,n,x,incx,y,incy) - use iso_c_binding + function hipblasSasum_64_assumed_rank(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScopy_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasum_64_assumed_rank type(c_ptr), value :: handle integer(c_int64_t) :: n real(c_float),target,dimension(..) :: x integer(c_int64_t) :: incx - real(c_float),target,dimension(..) :: y - integer(c_int64_t) :: incy + real(c_float),target :: myResult ! - hipblasScopy_64_assumed_rank = hipblasScopy_64_(handle,n,c_loc(x),incx,c_loc(y),incy) + hipblasSasum_64_assumed_rank = hipblasSasum_64_(handle,n,c_loc(x),incx,c_loc(myResult)) end function -#else - function hipblasScopy_64_rank_0(handle,n,x,incx,y,incy) - use iso_c_binding + function hipblasSasum_64_assumed_rank_devptr(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScopy_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasum_64_assumed_rank_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n - real(c_float),target :: x + real(c_float),target,dimension(..) :: x integer(c_int64_t) :: incx - real(c_float),target :: y - integer(c_int64_t) :: incy + type(c_ptr),value :: myResult ! - hipblasScopy_64_rank_0 = hipblasScopy_64_(handle,n,c_loc(x),incx,c_loc(y),incy) + hipblasSasum_64_assumed_rank_devptr = hipblasSasum_64_(handle,n,c_loc(x),incx,myResult) end function - function hipblasScopy_64_rank_1(handle,n,x,incx,y,incy) - use iso_c_binding +#else + function hipblasSasum_64_rank_0(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScopy_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasum_64_rank_0 type(c_ptr), value :: handle integer(c_int64_t) :: n - real(c_float),target,dimension(:) :: x + real(c_float),target :: x integer(c_int64_t) :: incx - real(c_float),target,dimension(:) :: y - integer(c_int64_t) :: incy + real(c_float),target :: myResult ! - hipblasScopy_64_rank_1 = hipblasScopy_64_(handle,n,c_loc(x),incx,c_loc(y),incy) + hipblasSasum_64_rank_0 = hipblasSasum_64_(handle,n,c_loc(x),incx,c_loc(myResult)) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDcopy_64_assumed_rank(handle,n,x,incx,y,incy) - use iso_c_binding + function hipblasSasum_64_rank_0_devptr(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDcopy_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasum_64_rank_0_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n - real(c_double),target,dimension(..) :: x + real(c_float),target :: x integer(c_int64_t) :: incx - real(c_double),target,dimension(..) :: y - integer(c_int64_t) :: incy + type(c_ptr),value :: myResult ! - hipblasDcopy_64_assumed_rank = hipblasDcopy_64_(handle,n,c_loc(x),incx,c_loc(y),incy) + hipblasSasum_64_rank_0_devptr = hipblasSasum_64_(handle,n,c_loc(x),incx,myResult) end function -#else - function hipblasDcopy_64_rank_0(handle,n,x,incx,y,incy) - use iso_c_binding + function hipblasSasum_64_rank_1(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDcopy_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasum_64_rank_1 type(c_ptr), value :: handle integer(c_int64_t) :: n - real(c_double),target :: x + real(c_float),target,dimension(:) :: x integer(c_int64_t) :: incx - real(c_double),target :: y - integer(c_int64_t) :: incy + real(c_float),target :: myResult ! - hipblasDcopy_64_rank_0 = hipblasDcopy_64_(handle,n,c_loc(x),incx,c_loc(y),incy) + hipblasSasum_64_rank_1 = hipblasSasum_64_(handle,n,c_loc(x),incx,c_loc(myResult)) end function - function hipblasDcopy_64_rank_1(handle,n,x,incx,y,incy) - use iso_c_binding + function hipblasSasum_64_rank_1_devptr(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDcopy_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasum_64_rank_1_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n - real(c_double),target,dimension(:) :: x + real(c_float),target,dimension(:) :: x integer(c_int64_t) :: incx - real(c_double),target,dimension(:) :: y - integer(c_int64_t) :: incy + type(c_ptr),value :: myResult ! - hipblasDcopy_64_rank_1 = hipblasDcopy_64_(handle,n,c_loc(x),incx,c_loc(y),incy) + hipblasSasum_64_rank_1_devptr = hipblasSasum_64_(handle,n,c_loc(x),incx,myResult) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCcopy_64_assumed_rank(handle,n,x,incx,y,incy) - use iso_c_binding + function hipblasDasum_64_assumed_rank(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCcopy_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasum_64_assumed_rank type(c_ptr), value :: handle integer(c_int64_t) :: n - complex(c_float_complex),target,dimension(..) :: x + real(c_double),target,dimension(..) :: x integer(c_int64_t) :: incx - complex(c_float_complex),target,dimension(..) :: y - integer(c_int64_t) :: incy + real(c_double),target :: myResult ! - hipblasCcopy_64_assumed_rank = hipblasCcopy_64_(handle,n,c_loc(x),incx,c_loc(y),incy) + hipblasDasum_64_assumed_rank = hipblasDasum_64_(handle,n,c_loc(x),incx,c_loc(myResult)) end function -#else - function hipblasCcopy_64_rank_0(handle,n,x,incx,y,incy) - use iso_c_binding + function hipblasDasum_64_assumed_rank_devptr(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCcopy_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasum_64_assumed_rank_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n - complex(c_float_complex),target :: x + real(c_double),target,dimension(..) :: x integer(c_int64_t) :: incx - complex(c_float_complex),target :: y - integer(c_int64_t) :: incy + type(c_ptr),value :: myResult ! - hipblasCcopy_64_rank_0 = hipblasCcopy_64_(handle,n,c_loc(x),incx,c_loc(y),incy) + hipblasDasum_64_assumed_rank_devptr = hipblasDasum_64_(handle,n,c_loc(x),incx,myResult) end function - function hipblasCcopy_64_rank_1(handle,n,x,incx,y,incy) - use iso_c_binding +#else + function hipblasDasum_64_rank_0(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCcopy_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasum_64_rank_0 type(c_ptr), value :: handle integer(c_int64_t) :: n - complex(c_float_complex),target,dimension(:) :: x + real(c_double),target :: x integer(c_int64_t) :: incx - complex(c_float_complex),target,dimension(:) :: y - integer(c_int64_t) :: incy + real(c_double),target :: myResult ! - hipblasCcopy_64_rank_1 = hipblasCcopy_64_(handle,n,c_loc(x),incx,c_loc(y),incy) + hipblasDasum_64_rank_0 = hipblasDasum_64_(handle,n,c_loc(x),incx,c_loc(myResult)) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZcopy_64_assumed_rank(handle,n,x,incx,y,incy) - use iso_c_binding + function hipblasDasum_64_rank_0_devptr(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZcopy_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasum_64_rank_0_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n - complex(c_double_complex),target,dimension(..) :: x + real(c_double),target :: x integer(c_int64_t) :: incx - complex(c_double_complex),target,dimension(..) :: y - integer(c_int64_t) :: incy + type(c_ptr),value :: myResult ! - hipblasZcopy_64_assumed_rank = hipblasZcopy_64_(handle,n,c_loc(x),incx,c_loc(y),incy) + hipblasDasum_64_rank_0_devptr = hipblasDasum_64_(handle,n,c_loc(x),incx,myResult) end function -#else - function hipblasZcopy_64_rank_0(handle,n,x,incx,y,incy) - use iso_c_binding + function hipblasDasum_64_rank_1(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZcopy_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasum_64_rank_1 type(c_ptr), value :: handle integer(c_int64_t) :: n - complex(c_double_complex),target :: x + real(c_double),target,dimension(:) :: x integer(c_int64_t) :: incx - complex(c_double_complex),target :: y - integer(c_int64_t) :: incy + real(c_double),target :: myResult ! - hipblasZcopy_64_rank_0 = hipblasZcopy_64_(handle,n,c_loc(x),incx,c_loc(y),incy) + hipblasDasum_64_rank_1 = hipblasDasum_64_(handle,n,c_loc(x),incx,c_loc(myResult)) end function - function hipblasZcopy_64_rank_1(handle,n,x,incx,y,incy) - use iso_c_binding + function hipblasDasum_64_rank_1_devptr(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZcopy_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasum_64_rank_1_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n - complex(c_double_complex),target,dimension(:) :: x + real(c_double),target,dimension(:) :: x integer(c_int64_t) :: incx - complex(c_double_complex),target,dimension(:) :: y - integer(c_int64_t) :: incy + type(c_ptr),value :: myResult ! - hipblasZcopy_64_rank_1 = hipblasZcopy_64_(handle,n,c_loc(x),incx,c_loc(y),incy) + hipblasDasum_64_rank_1_devptr = hipblasDasum_64_(handle,n,c_loc(x),incx,myResult) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasScopyStridedBatched_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & - batchCount) - use iso_c_binding + function hipblasScasum_64_assumed_rank(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScopyStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasum_64_assumed_rank type(c_ptr), value :: handle - integer(c_int) :: n - real(c_float),target,dimension(..) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - real(c_float),target,dimension(..) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_float),target :: myResult ! - hipblasScopyStridedBatched_assumed_rank = hipblasScopyStridedBatched_(handle,n,c_loc(x), & - incx,stridex,c_loc(y),incy,stridey,batchCount) + hipblasScasum_64_assumed_rank = hipblasScasum_64_(handle,n,c_loc(x),incx,c_loc(myResult)) end function -#else - function hipblasScopyStridedBatched_rank_0(handle,n,x,incx,stridex,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasScasum_64_assumed_rank_devptr(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScopyStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasum_64_assumed_rank_devptr type(c_ptr), value :: handle - integer(c_int) :: n - real(c_float),target :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - real(c_float),target :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: myResult ! - hipblasScopyStridedBatched_rank_0 = hipblasScopyStridedBatched_(handle,n,c_loc(x),incx, & - stridex,c_loc(y),incy,stridey,batchCount) + hipblasScasum_64_assumed_rank_devptr = hipblasScasum_64_(handle,n,c_loc(x),incx,myResult) end function - function hipblasScopyStridedBatched_rank_1(handle,n,x,incx,stridex,y,incy,stridey,batchCount) - use iso_c_binding +#else + function hipblasScasum_64_rank_0(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScopyStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasum_64_rank_0 type(c_ptr), value :: handle - integer(c_int) :: n - real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: n + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + real(c_float),target :: myResult + ! + hipblasScasum_64_rank_0 = hipblasScasum_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasScasum_64_rank_0_devptr(handle,n,x,incx,myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasum_64_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: myResult + ! + hipblasScasum_64_rank_0_devptr = hipblasScasum_64_(handle,n,c_loc(x),incx,myResult) + end function + + function hipblasScasum_64_rank_1(handle,n,x,incx,myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasum_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_float),target :: myResult + ! + hipblasScasum_64_rank_1 = hipblasScasum_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasScasum_64_rank_1_devptr(handle,n,x,incx,myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasum_64_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: myResult + ! + hipblasScasum_64_rank_1_devptr = hipblasScasum_64_(handle,n,c_loc(x),incx,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDzasum_64_assumed_rank(handle,n,x,incx,myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasum_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_double),target :: myResult + ! + hipblasDzasum_64_assumed_rank = hipblasDzasum_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasDzasum_64_assumed_rank_devptr(handle,n,x,incx,myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasum_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: myResult + ! + hipblasDzasum_64_assumed_rank_devptr = hipblasDzasum_64_(handle,n,c_loc(x),incx,myResult) + end function + +#else + function hipblasDzasum_64_rank_0(handle,n,x,incx,myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasum_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + real(c_double),target :: myResult + ! + hipblasDzasum_64_rank_0 = hipblasDzasum_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasDzasum_64_rank_0_devptr(handle,n,x,incx,myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasum_64_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: myResult + ! + hipblasDzasum_64_rank_0_devptr = hipblasDzasum_64_(handle,n,c_loc(x),incx,myResult) + end function + + function hipblasDzasum_64_rank_1(handle,n,x,incx,myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasum_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_double),target :: myResult + ! + hipblasDzasum_64_rank_1 = hipblasDzasum_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasDzasum_64_rank_1_devptr(handle,n,x,incx,myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasum_64_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: myResult + ! + hipblasDzasum_64_rank_1_devptr = hipblasDzasum_64_(handle,n,c_loc(x),incx,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSasumBatched_assumed_rank(handle,n,x,incx,batchCount,myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasumBatched_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + type(c_ptr), value :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - real(c_float),target,dimension(:) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey integer(c_int) :: batchCount + real(c_float),target,dimension(..) :: myResult ! - hipblasScopyStridedBatched_rank_1 = hipblasScopyStridedBatched_(handle,n,c_loc(x),incx, & - stridex,c_loc(y),incy,stridey,batchCount) + hipblasSasumBatched_assumed_rank = hipblasSasumBatched_(handle,n,x,incx,batchCount, & + c_loc(myResult)) + end function + +#else + function hipblasSasumBatched_rank_0(handle,n,x,incx,batchCount,myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasumBatched_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + type(c_ptr), value :: x + integer(c_int) :: incx + integer(c_int) :: batchCount + real(c_float),target :: myResult + ! + hipblasSasumBatched_rank_0 = hipblasSasumBatched_(handle,n,x,incx,batchCount,c_loc(myResult)) + end function + + function hipblasSasumBatched_rank_1(handle,n,x,incx,batchCount,myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasumBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + type(c_ptr), value :: x + integer(c_int) :: incx + integer(c_int) :: batchCount + real(c_float),target,dimension(:) :: myResult + ! + hipblasSasumBatched_rank_1 = hipblasSasumBatched_(handle,n,x,incx,batchCount,c_loc(myResult)) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasDcopyStridedBatched_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & - batchCount) - use iso_c_binding + function hipblasDasumBatched_assumed_rank(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDcopyStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasumBatched_assumed_rank type(c_ptr), value :: handle integer(c_int) :: n - real(c_double),target,dimension(..) :: x + type(c_ptr), value :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - real(c_double),target,dimension(..) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey integer(c_int) :: batchCount + real(c_double),target,dimension(..) :: myResult ! - hipblasDcopyStridedBatched_assumed_rank = hipblasDcopyStridedBatched_(handle,n,c_loc(x), & - incx,stridex,c_loc(y),incy,stridey,batchCount) + hipblasDasumBatched_assumed_rank = hipblasDasumBatched_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function #else - function hipblasDcopyStridedBatched_rank_0(handle,n,x,incx,stridex,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasDasumBatched_rank_0(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDcopyStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasumBatched_rank_0 type(c_ptr), value :: handle integer(c_int) :: n - real(c_double),target :: x + type(c_ptr), value :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - real(c_double),target :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey integer(c_int) :: batchCount + real(c_double),target :: myResult ! - hipblasDcopyStridedBatched_rank_0 = hipblasDcopyStridedBatched_(handle,n,c_loc(x),incx, & - stridex,c_loc(y),incy,stridey,batchCount) + hipblasDasumBatched_rank_0 = hipblasDasumBatched_(handle,n,x,incx,batchCount,c_loc(myResult)) end function - function hipblasDcopyStridedBatched_rank_1(handle,n,x,incx,stridex,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasDasumBatched_rank_1(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDcopyStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasumBatched_rank_1 type(c_ptr), value :: handle integer(c_int) :: n - real(c_double),target,dimension(:) :: x + type(c_ptr), value :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - real(c_double),target,dimension(:) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey integer(c_int) :: batchCount + real(c_double),target,dimension(:) :: myResult ! - hipblasDcopyStridedBatched_rank_1 = hipblasDcopyStridedBatched_(handle,n,c_loc(x),incx, & - stridex,c_loc(y),incy,stridey,batchCount) + hipblasDasumBatched_rank_1 = hipblasDasumBatched_(handle,n,x,incx,batchCount,c_loc(myResult)) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCcopyStridedBatched_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & - batchCount) - use iso_c_binding + function hipblasScasumBatched_assumed_rank(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCcopyStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasumBatched_assumed_rank type(c_ptr), value :: handle integer(c_int) :: n - complex(c_float_complex),target,dimension(..) :: x + type(c_ptr), value :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - complex(c_float_complex),target,dimension(..) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey integer(c_int) :: batchCount + real(c_float),target,dimension(..) :: myResult ! - hipblasCcopyStridedBatched_assumed_rank = hipblasCcopyStridedBatched_(handle,n,c_loc(x), & - incx,stridex,c_loc(y),incy,stridey,batchCount) + hipblasScasumBatched_assumed_rank = hipblasScasumBatched_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function #else - function hipblasCcopyStridedBatched_rank_0(handle,n,x,incx,stridex,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasScasumBatched_rank_0(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCcopyStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasumBatched_rank_0 type(c_ptr), value :: handle integer(c_int) :: n - complex(c_float_complex),target :: x + type(c_ptr), value :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - complex(c_float_complex),target :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey integer(c_int) :: batchCount + real(c_float),target :: myResult ! - hipblasCcopyStridedBatched_rank_0 = hipblasCcopyStridedBatched_(handle,n,c_loc(x),incx, & - stridex,c_loc(y),incy,stridey,batchCount) + hipblasScasumBatched_rank_0 = hipblasScasumBatched_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function - function hipblasCcopyStridedBatched_rank_1(handle,n,x,incx,stridex,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasScasumBatched_rank_1(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCcopyStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasumBatched_rank_1 type(c_ptr), value :: handle integer(c_int) :: n - complex(c_float_complex),target,dimension(:) :: x + type(c_ptr), value :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - complex(c_float_complex),target,dimension(:) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey integer(c_int) :: batchCount + real(c_float),target,dimension(:) :: myResult ! - hipblasCcopyStridedBatched_rank_1 = hipblasCcopyStridedBatched_(handle,n,c_loc(x),incx, & - stridex,c_loc(y),incy,stridey,batchCount) + hipblasScasumBatched_rank_1 = hipblasScasumBatched_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasZcopyStridedBatched_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & - batchCount) - use iso_c_binding + function hipblasDzasumBatched_assumed_rank(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZcopyStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasumBatched_assumed_rank type(c_ptr), value :: handle integer(c_int) :: n - complex(c_double_complex),target,dimension(..) :: x + type(c_ptr), value :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - complex(c_double_complex),target,dimension(..) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey integer(c_int) :: batchCount + real(c_double),target,dimension(..) :: myResult ! - hipblasZcopyStridedBatched_assumed_rank = hipblasZcopyStridedBatched_(handle,n,c_loc(x), & - incx,stridex,c_loc(y),incy,stridey,batchCount) + hipblasDzasumBatched_assumed_rank = hipblasDzasumBatched_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function #else - function hipblasZcopyStridedBatched_rank_0(handle,n,x,incx,stridex,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasDzasumBatched_rank_0(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZcopyStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasumBatched_rank_0 type(c_ptr), value :: handle integer(c_int) :: n - complex(c_double_complex),target :: x + type(c_ptr), value :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - complex(c_double_complex),target :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey integer(c_int) :: batchCount + real(c_double),target :: myResult ! - hipblasZcopyStridedBatched_rank_0 = hipblasZcopyStridedBatched_(handle,n,c_loc(x),incx, & - stridex,c_loc(y),incy,stridey,batchCount) + hipblasDzasumBatched_rank_0 = hipblasDzasumBatched_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function - function hipblasZcopyStridedBatched_rank_1(handle,n,x,incx,stridex,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasDzasumBatched_rank_1(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZcopyStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasumBatched_rank_1 type(c_ptr), value :: handle integer(c_int) :: n - complex(c_double_complex),target,dimension(:) :: x + type(c_ptr), value :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - complex(c_double_complex),target,dimension(:) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey integer(c_int) :: batchCount + real(c_double),target,dimension(:) :: myResult ! - hipblasZcopyStridedBatched_rank_1 = hipblasZcopyStridedBatched_(handle,n,c_loc(x),incx, & - stridex,c_loc(y),incy,stridey,batchCount) + hipblasDzasumBatched_rank_1 = hipblasDzasumBatched_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasScopyStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & - batchCount) - use iso_c_binding + function hipblasSasumBatched_64_assumed_rank(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScopyStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasumBatched_64_assumed_rank type(c_ptr), value :: handle integer(c_int64_t) :: n - real(c_float),target,dimension(..) :: x + type(c_ptr), value :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - real(c_float),target,dimension(..) :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount + real(c_float),target,dimension(..) :: myResult ! - hipblasScopyStridedBatched_64_assumed_rank = hipblasScopyStridedBatched_64_(handle,n, & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + hipblasSasumBatched_64_assumed_rank = hipblasSasumBatched_64_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function #else - function hipblasScopyStridedBatched_64_rank_0(handle,n,x,incx,stridex,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasSasumBatched_64_rank_0(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScopyStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasumBatched_64_rank_0 type(c_ptr), value :: handle integer(c_int64_t) :: n - real(c_float),target :: x + type(c_ptr), value :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - real(c_float),target :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount + real(c_float),target :: myResult ! - hipblasScopyStridedBatched_64_rank_0 = hipblasScopyStridedBatched_64_(handle,n,c_loc(x), & - incx,stridex,c_loc(y),incy,stridey,batchCount) + hipblasSasumBatched_64_rank_0 = hipblasSasumBatched_64_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function - function hipblasScopyStridedBatched_64_rank_1(handle,n,x,incx,stridex,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasSasumBatched_64_rank_1(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScopyStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasumBatched_64_rank_1 type(c_ptr), value :: handle integer(c_int64_t) :: n - real(c_float),target,dimension(:) :: x + type(c_ptr), value :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - real(c_float),target,dimension(:) :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount + real(c_float),target,dimension(:) :: myResult ! - hipblasScopyStridedBatched_64_rank_1 = hipblasScopyStridedBatched_64_(handle,n,c_loc(x), & - incx,stridex,c_loc(y),incy,stridey,batchCount) + hipblasSasumBatched_64_rank_1 = hipblasSasumBatched_64_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasDcopyStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & - batchCount) - use iso_c_binding + function hipblasDasumBatched_64_assumed_rank(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDcopyStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasumBatched_64_assumed_rank type(c_ptr), value :: handle integer(c_int64_t) :: n - real(c_double),target,dimension(..) :: x + type(c_ptr), value :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - real(c_double),target,dimension(..) :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount + real(c_double),target,dimension(..) :: myResult ! - hipblasDcopyStridedBatched_64_assumed_rank = hipblasDcopyStridedBatched_64_(handle,n, & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + hipblasDasumBatched_64_assumed_rank = hipblasDasumBatched_64_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function #else - function hipblasDcopyStridedBatched_64_rank_0(handle,n,x,incx,stridex,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasDasumBatched_64_rank_0(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDcopyStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasumBatched_64_rank_0 type(c_ptr), value :: handle integer(c_int64_t) :: n - real(c_double),target :: x + type(c_ptr), value :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - real(c_double),target :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount + real(c_double),target :: myResult ! - hipblasDcopyStridedBatched_64_rank_0 = hipblasDcopyStridedBatched_64_(handle,n,c_loc(x), & - incx,stridex,c_loc(y),incy,stridey,batchCount) + hipblasDasumBatched_64_rank_0 = hipblasDasumBatched_64_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function - function hipblasDcopyStridedBatched_64_rank_1(handle,n,x,incx,stridex,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasDasumBatched_64_rank_1(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDcopyStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasumBatched_64_rank_1 type(c_ptr), value :: handle integer(c_int64_t) :: n - real(c_double),target,dimension(:) :: x + type(c_ptr), value :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - real(c_double),target,dimension(:) :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount + real(c_double),target,dimension(:) :: myResult ! - hipblasDcopyStridedBatched_64_rank_1 = hipblasDcopyStridedBatched_64_(handle,n,c_loc(x), & - incx,stridex,c_loc(y),incy,stridey,batchCount) + hipblasDasumBatched_64_rank_1 = hipblasDasumBatched_64_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCcopyStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & - batchCount) - use iso_c_binding + function hipblasScasumBatched_64_assumed_rank(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCcopyStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasumBatched_64_assumed_rank type(c_ptr), value :: handle integer(c_int64_t) :: n - complex(c_float_complex),target,dimension(..) :: x + type(c_ptr), value :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - complex(c_float_complex),target,dimension(..) :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount + real(c_float),target,dimension(..) :: myResult ! - hipblasCcopyStridedBatched_64_assumed_rank = hipblasCcopyStridedBatched_64_(handle,n, & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + hipblasScasumBatched_64_assumed_rank = hipblasScasumBatched_64_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function #else - function hipblasCcopyStridedBatched_64_rank_0(handle,n,x,incx,stridex,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasScasumBatched_64_rank_0(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCcopyStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasumBatched_64_rank_0 type(c_ptr), value :: handle integer(c_int64_t) :: n - complex(c_float_complex),target :: x + type(c_ptr), value :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - complex(c_float_complex),target :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount + real(c_float),target :: myResult ! - hipblasCcopyStridedBatched_64_rank_0 = hipblasCcopyStridedBatched_64_(handle,n,c_loc(x), & - incx,stridex,c_loc(y),incy,stridey,batchCount) + hipblasScasumBatched_64_rank_0 = hipblasScasumBatched_64_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function - function hipblasCcopyStridedBatched_64_rank_1(handle,n,x,incx,stridex,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasScasumBatched_64_rank_1(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCcopyStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasumBatched_64_rank_1 type(c_ptr), value :: handle integer(c_int64_t) :: n - complex(c_float_complex),target,dimension(:) :: x + type(c_ptr), value :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - complex(c_float_complex),target,dimension(:) :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount + real(c_float),target,dimension(:) :: myResult ! - hipblasCcopyStridedBatched_64_rank_1 = hipblasCcopyStridedBatched_64_(handle,n,c_loc(x), & - incx,stridex,c_loc(y),incy,stridey,batchCount) + hipblasScasumBatched_64_rank_1 = hipblasScasumBatched_64_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasZcopyStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & - batchCount) - use iso_c_binding + function hipblasDzasumBatched_64_assumed_rank(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZcopyStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasumBatched_64_assumed_rank type(c_ptr), value :: handle integer(c_int64_t) :: n - complex(c_double_complex),target,dimension(..) :: x + type(c_ptr), value :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - complex(c_double_complex),target,dimension(..) :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount + real(c_double),target,dimension(..) :: myResult ! - hipblasZcopyStridedBatched_64_assumed_rank = hipblasZcopyStridedBatched_64_(handle,n, & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + hipblasDzasumBatched_64_assumed_rank = hipblasDzasumBatched_64_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function #else - function hipblasZcopyStridedBatched_64_rank_0(handle,n,x,incx,stridex,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasDzasumBatched_64_rank_0(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZcopyStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasumBatched_64_rank_0 type(c_ptr), value :: handle integer(c_int64_t) :: n - complex(c_double_complex),target :: x + type(c_ptr), value :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - complex(c_double_complex),target :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount + real(c_double),target :: myResult ! - hipblasZcopyStridedBatched_64_rank_0 = hipblasZcopyStridedBatched_64_(handle,n,c_loc(x), & - incx,stridex,c_loc(y),incy,stridey,batchCount) + hipblasDzasumBatched_64_rank_0 = hipblasDzasumBatched_64_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function - function hipblasZcopyStridedBatched_64_rank_1(handle,n,x,incx,stridex,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasDzasumBatched_64_rank_1(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZcopyStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasumBatched_64_rank_1 type(c_ptr), value :: handle integer(c_int64_t) :: n - complex(c_double_complex),target,dimension(:) :: x + type(c_ptr), value :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - complex(c_double_complex),target,dimension(:) :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount + real(c_double),target,dimension(:) :: myResult ! - hipblasZcopyStridedBatched_64_rank_1 = hipblasZcopyStridedBatched_64_(handle,n,c_loc(x), & - incx,stridex,c_loc(y),incy,stridey,batchCount) + hipblasDzasumBatched_64_rank_1 = hipblasDzasumBatched_64_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasSdot_assumed_rank(handle,n,x,incx,y,incy,myResult) - use iso_c_binding + function hipblasSasumStridedBatched_assumed_rank(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdot_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasumStridedBatched_assumed_rank type(c_ptr), value :: handle integer(c_int) :: n real(c_float),target,dimension(..) :: x integer(c_int) :: incx - real(c_float),target,dimension(..) :: y - integer(c_int) :: incy - real(c_float),target :: myResult + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + real(c_float),target,dimension(..) :: myResult ! - hipblasSdot_assumed_rank = hipblasSdot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) + hipblasSasumStridedBatched_assumed_rank = hipblasSasumStridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,c_loc(myResult)) end function - function hipblasSdot_assumed_rank_devptr(handle,n,x,incx,y,incy,myResult) - use iso_c_binding + function hipblasSasumStridedBatched_assumed_rank_devptr(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdot_assumed_rank_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasumStridedBatched_assumed_rank_devptr type(c_ptr), value :: handle integer(c_int) :: n real(c_float),target,dimension(..) :: x integer(c_int) :: incx - real(c_float),target,dimension(..) :: y - integer(c_int) :: incy + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount type(c_ptr),value :: myResult ! - hipblasSdot_assumed_rank_devptr = hipblasSdot_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) + hipblasSasumStridedBatched_assumed_rank_devptr = hipblasSasumStridedBatched_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) end function #else - function hipblasSdot_rank_0(handle,n,x,incx,y,incy,myResult) - use iso_c_binding + function hipblasSasumStridedBatched_rank_0(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdot_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasumStridedBatched_rank_0 type(c_ptr), value :: handle integer(c_int) :: n real(c_float),target :: x integer(c_int) :: incx - real(c_float),target :: y - integer(c_int) :: incy + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount real(c_float),target :: myResult ! - hipblasSdot_rank_0 = hipblasSdot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) + hipblasSasumStridedBatched_rank_0 = hipblasSasumStridedBatched_(handle,n,c_loc(x),incx, & + stridex,batchCount,c_loc(myResult)) end function - function hipblasSdot_rank_0_devptr(handle,n,x,incx,y,incy,myResult) - use iso_c_binding + function hipblasSasumStridedBatched_rank_0_devptr(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdot_rank_0_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasumStridedBatched_rank_0_devptr type(c_ptr), value :: handle integer(c_int) :: n real(c_float),target :: x integer(c_int) :: incx - real(c_float),target :: y - integer(c_int) :: incy + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount type(c_ptr),value :: myResult ! - hipblasSdot_rank_0_devptr = hipblasSdot_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) + hipblasSasumStridedBatched_rank_0_devptr = hipblasSasumStridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) end function - function hipblasSdot_rank_1(handle,n,x,incx,y,incy,myResult) - use iso_c_binding + function hipblasSasumStridedBatched_rank_1(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdot_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasumStridedBatched_rank_1 type(c_ptr), value :: handle integer(c_int) :: n real(c_float),target,dimension(:) :: x integer(c_int) :: incx - real(c_float),target,dimension(:) :: y - integer(c_int) :: incy - real(c_float),target :: myResult + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + real(c_float),target,dimension(:) :: myResult ! - hipblasSdot_rank_1 = hipblasSdot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) + hipblasSasumStridedBatched_rank_1 = hipblasSasumStridedBatched_(handle,n,c_loc(x),incx, & + stridex,batchCount,c_loc(myResult)) end function - function hipblasSdot_rank_1_devptr(handle,n,x,incx,y,incy,myResult) - use iso_c_binding + function hipblasSasumStridedBatched_rank_1_devptr(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdot_rank_1_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasumStridedBatched_rank_1_devptr type(c_ptr), value :: handle integer(c_int) :: n real(c_float),target,dimension(:) :: x integer(c_int) :: incx - real(c_float),target,dimension(:) :: y - integer(c_int) :: incy + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount type(c_ptr),value :: myResult ! - hipblasSdot_rank_1_devptr = hipblasSdot_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) + hipblasSasumStridedBatched_rank_1_devptr = hipblasSasumStridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) + end function + + function hipblasSasumStridedBatched_strided_rank(handle,n,x,incx,stridex,batchCount,myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasumStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + real(c_float),target,dimension(:) :: myResult + ! + hipblasSasumStridedBatched_strided_rank = hipblasSasumStridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,c_loc(myResult)) + end function + + function hipblasSasumStridedBatched_strided_rank_devptr(handle,n,x,incx,stridex,batchCount, & + myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasumStridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + type(c_ptr),value :: myResult + ! + hipblasSasumStridedBatched_strided_rank_devptr = hipblasSasumStridedBatched_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasDdot_assumed_rank(handle,n,x,incx,y,incy,myResult) - use iso_c_binding + function hipblasDasumStridedBatched_assumed_rank(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdot_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasumStridedBatched_assumed_rank type(c_ptr), value :: handle integer(c_int) :: n real(c_double),target,dimension(..) :: x integer(c_int) :: incx - real(c_double),target,dimension(..) :: y - integer(c_int) :: incy - real(c_double),target :: myResult + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + real(c_double),target,dimension(..) :: myResult ! - hipblasDdot_assumed_rank = hipblasDdot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) + hipblasDasumStridedBatched_assumed_rank = hipblasDasumStridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,c_loc(myResult)) end function - function hipblasDdot_assumed_rank_devptr(handle,n,x,incx,y,incy,myResult) - use iso_c_binding + function hipblasDasumStridedBatched_assumed_rank_devptr(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdot_assumed_rank_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasumStridedBatched_assumed_rank_devptr type(c_ptr), value :: handle integer(c_int) :: n real(c_double),target,dimension(..) :: x integer(c_int) :: incx - real(c_double),target,dimension(..) :: y - integer(c_int) :: incy + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount type(c_ptr),value :: myResult ! - hipblasDdot_assumed_rank_devptr = hipblasDdot_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) + hipblasDasumStridedBatched_assumed_rank_devptr = hipblasDasumStridedBatched_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) end function #else - function hipblasDdot_rank_0(handle,n,x,incx,y,incy,myResult) - use iso_c_binding + function hipblasDasumStridedBatched_rank_0(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdot_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasumStridedBatched_rank_0 type(c_ptr), value :: handle integer(c_int) :: n real(c_double),target :: x integer(c_int) :: incx - real(c_double),target :: y - integer(c_int) :: incy + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount real(c_double),target :: myResult ! - hipblasDdot_rank_0 = hipblasDdot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) + hipblasDasumStridedBatched_rank_0 = hipblasDasumStridedBatched_(handle,n,c_loc(x),incx, & + stridex,batchCount,c_loc(myResult)) end function - function hipblasDdot_rank_0_devptr(handle,n,x,incx,y,incy,myResult) - use iso_c_binding + function hipblasDasumStridedBatched_rank_0_devptr(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdot_rank_0_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasumStridedBatched_rank_0_devptr type(c_ptr), value :: handle integer(c_int) :: n real(c_double),target :: x integer(c_int) :: incx - real(c_double),target :: y - integer(c_int) :: incy + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount type(c_ptr),value :: myResult ! - hipblasDdot_rank_0_devptr = hipblasDdot_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) + hipblasDasumStridedBatched_rank_0_devptr = hipblasDasumStridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) end function - function hipblasDdot_rank_1(handle,n,x,incx,y,incy,myResult) - use iso_c_binding + function hipblasDasumStridedBatched_rank_1(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdot_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasumStridedBatched_rank_1 type(c_ptr), value :: handle integer(c_int) :: n real(c_double),target,dimension(:) :: x integer(c_int) :: incx - real(c_double),target,dimension(:) :: y - integer(c_int) :: incy - real(c_double),target :: myResult + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + real(c_double),target,dimension(:) :: myResult ! - hipblasDdot_rank_1 = hipblasDdot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) + hipblasDasumStridedBatched_rank_1 = hipblasDasumStridedBatched_(handle,n,c_loc(x),incx, & + stridex,batchCount,c_loc(myResult)) end function - function hipblasDdot_rank_1_devptr(handle,n,x,incx,y,incy,myResult) - use iso_c_binding + function hipblasDasumStridedBatched_rank_1_devptr(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdot_rank_1_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasumStridedBatched_rank_1_devptr type(c_ptr), value :: handle integer(c_int) :: n real(c_double),target,dimension(:) :: x integer(c_int) :: incx - real(c_double),target,dimension(:) :: y - integer(c_int) :: incy + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount type(c_ptr),value :: myResult ! - hipblasDdot_rank_1_devptr = hipblasDdot_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) + hipblasDasumStridedBatched_rank_1_devptr = hipblasDasumStridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCdotc_assumed_rank(handle,n,x,incx,y,incy,myResult) - use iso_c_binding + function hipblasDasumStridedBatched_strided_rank(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotc_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasumStridedBatched_strided_rank type(c_ptr), value :: handle integer(c_int) :: n - complex(c_float_complex),target,dimension(..) :: x + real(c_double),target,dimension(:,:) :: x integer(c_int) :: incx - complex(c_float_complex),target,dimension(..) :: y - integer(c_int) :: incy - complex(c_float_complex),target :: myResult + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + real(c_double),target,dimension(:) :: myResult ! - hipblasCdotc_assumed_rank = hipblasCdotc_(handle,n,c_loc(x),incx,c_loc(y),incy, & - c_loc(myResult)) + hipblasDasumStridedBatched_strided_rank = hipblasDasumStridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,c_loc(myResult)) end function - function hipblasCdotc_assumed_rank_devptr(handle,n,x,incx,y,incy,myResult) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotc_assumed_rank_devptr - type(c_ptr), value :: handle - integer(c_int) :: n - complex(c_float_complex),target,dimension(..) :: x - integer(c_int) :: incx - complex(c_float_complex),target,dimension(..) :: y - integer(c_int) :: incy - type(c_ptr),value :: myResult - ! - hipblasCdotc_assumed_rank_devptr = hipblasCdotc_(handle,n,c_loc(x),incx,c_loc(y),incy, & + function hipblasDasumStridedBatched_strided_rank_devptr(handle,n,x,incx,stridex,batchCount, & myResult) - end function - -#else - function hipblasCdotc_rank_0(handle,n,x,incx,y,incy,myResult) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotc_rank_0 - type(c_ptr), value :: handle - integer(c_int) :: n - complex(c_float_complex),target :: x - integer(c_int) :: incx - complex(c_float_complex),target :: y - integer(c_int) :: incy - complex(c_float_complex),target :: myResult - ! - hipblasCdotc_rank_0 = hipblasCdotc_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) - end function - - function hipblasCdotc_rank_0_devptr(handle,n,x,incx,y,incy,myResult) - use iso_c_binding implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotc_rank_0_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasumStridedBatched_strided_rank_devptr type(c_ptr), value :: handle integer(c_int) :: n - complex(c_float_complex),target :: x + real(c_double),target,dimension(:,:) :: x integer(c_int) :: incx - complex(c_float_complex),target :: y - integer(c_int) :: incy + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount type(c_ptr),value :: myResult ! - hipblasCdotc_rank_0_devptr = hipblasCdotc_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) + hipblasDasumStridedBatched_strided_rank_devptr = hipblasDasumStridedBatched_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) end function - function hipblasCdotc_rank_1(handle,n,x,incx,y,incy,myResult) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasScasumStridedBatched_assumed_rank(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotc_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasumStridedBatched_assumed_rank type(c_ptr), value :: handle integer(c_int) :: n - complex(c_float_complex),target,dimension(:) :: x + complex(c_float_complex),target,dimension(..) :: x integer(c_int) :: incx - complex(c_float_complex),target,dimension(:) :: y - integer(c_int) :: incy - complex(c_float_complex),target :: myResult + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + real(c_float),target,dimension(..) :: myResult ! - hipblasCdotc_rank_1 = hipblasCdotc_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) + hipblasScasumStridedBatched_assumed_rank = hipblasScasumStridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,c_loc(myResult)) end function - function hipblasCdotc_rank_1_devptr(handle,n,x,incx,y,incy,myResult) - use iso_c_binding + function hipblasScasumStridedBatched_assumed_rank_devptr(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotc_rank_1_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasumStridedBatched_assumed_rank_devptr type(c_ptr), value :: handle integer(c_int) :: n - complex(c_float_complex),target,dimension(:) :: x + complex(c_float_complex),target,dimension(..) :: x integer(c_int) :: incx - complex(c_float_complex),target,dimension(:) :: y - integer(c_int) :: incy + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount type(c_ptr),value :: myResult ! - hipblasCdotc_rank_1_devptr = hipblasCdotc_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) + hipblasScasumStridedBatched_assumed_rank_devptr = hipblasScasumStridedBatched_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCdotu_assumed_rank(handle,n,x,incx,y,incy,myResult) - use iso_c_binding +#else + function hipblasScasumStridedBatched_rank_0(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotu_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasumStridedBatched_rank_0 type(c_ptr), value :: handle integer(c_int) :: n - complex(c_float_complex),target,dimension(..) :: x + complex(c_float_complex),target :: x integer(c_int) :: incx - complex(c_float_complex),target,dimension(..) :: y - integer(c_int) :: incy - complex(c_float_complex),target :: myResult + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + real(c_float),target :: myResult ! - hipblasCdotu_assumed_rank = hipblasCdotu_(handle,n,c_loc(x),incx,c_loc(y),incy, & - c_loc(myResult)) + hipblasScasumStridedBatched_rank_0 = hipblasScasumStridedBatched_(handle,n,c_loc(x),incx, & + stridex,batchCount,c_loc(myResult)) end function - function hipblasCdotu_assumed_rank_devptr(handle,n,x,incx,y,incy,myResult) - use iso_c_binding + function hipblasScasumStridedBatched_rank_0_devptr(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotu_assumed_rank_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasumStridedBatched_rank_0_devptr type(c_ptr), value :: handle integer(c_int) :: n - complex(c_float_complex),target,dimension(..) :: x + complex(c_float_complex),target :: x integer(c_int) :: incx - complex(c_float_complex),target,dimension(..) :: y - integer(c_int) :: incy + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount type(c_ptr),value :: myResult ! - hipblasCdotu_assumed_rank_devptr = hipblasCdotu_(handle,n,c_loc(x),incx,c_loc(y),incy, & - myResult) + hipblasScasumStridedBatched_rank_0_devptr = hipblasScasumStridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) end function -#else - function hipblasCdotu_rank_0(handle,n,x,incx,y,incy,myResult) - use iso_c_binding + function hipblasScasumStridedBatched_rank_1(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotu_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasumStridedBatched_rank_1 type(c_ptr), value :: handle integer(c_int) :: n - complex(c_float_complex),target :: x + complex(c_float_complex),target,dimension(:) :: x integer(c_int) :: incx - complex(c_float_complex),target :: y - integer(c_int) :: incy - complex(c_float_complex),target :: myResult + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + real(c_float),target,dimension(:) :: myResult ! - hipblasCdotu_rank_0 = hipblasCdotu_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) + hipblasScasumStridedBatched_rank_1 = hipblasScasumStridedBatched_(handle,n,c_loc(x),incx, & + stridex,batchCount,c_loc(myResult)) end function - function hipblasCdotu_rank_0_devptr(handle,n,x,incx,y,incy,myResult) - use iso_c_binding + function hipblasScasumStridedBatched_rank_1_devptr(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotu_rank_0_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasumStridedBatched_rank_1_devptr type(c_ptr), value :: handle integer(c_int) :: n - complex(c_float_complex),target :: x + complex(c_float_complex),target,dimension(:) :: x integer(c_int) :: incx - complex(c_float_complex),target :: y - integer(c_int) :: incy + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount type(c_ptr),value :: myResult ! - hipblasCdotu_rank_0_devptr = hipblasCdotu_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) + hipblasScasumStridedBatched_rank_1_devptr = hipblasScasumStridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) end function - function hipblasCdotu_rank_1(handle,n,x,incx,y,incy,myResult) - use iso_c_binding + function hipblasScasumStridedBatched_strided_rank(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotu_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasumStridedBatched_strided_rank type(c_ptr), value :: handle integer(c_int) :: n - complex(c_float_complex),target,dimension(:) :: x + complex(c_float_complex),target,dimension(:,:) :: x integer(c_int) :: incx - complex(c_float_complex),target,dimension(:) :: y - integer(c_int) :: incy - complex(c_float_complex),target :: myResult + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + real(c_float),target,dimension(:) :: myResult ! - hipblasCdotu_rank_1 = hipblasCdotu_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) + hipblasScasumStridedBatched_strided_rank = hipblasScasumStridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,c_loc(myResult)) end function - function hipblasCdotu_rank_1_devptr(handle,n,x,incx,y,incy,myResult) - use iso_c_binding + function hipblasScasumStridedBatched_strided_rank_devptr(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotu_rank_1_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasumStridedBatched_strided_rank_devptr type(c_ptr), value :: handle integer(c_int) :: n - complex(c_float_complex),target,dimension(:) :: x + complex(c_float_complex),target,dimension(:,:) :: x integer(c_int) :: incx - complex(c_float_complex),target,dimension(:) :: y - integer(c_int) :: incy + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount type(c_ptr),value :: myResult ! - hipblasCdotu_rank_1_devptr = hipblasCdotu_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) + hipblasScasumStridedBatched_strided_rank_devptr = hipblasScasumStridedBatched_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasZdotc_assumed_rank(handle,n,x,incx,y,incy,myResult) - use iso_c_binding + function hipblasDzasumStridedBatched_assumed_rank(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotc_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasumStridedBatched_assumed_rank type(c_ptr), value :: handle integer(c_int) :: n complex(c_double_complex),target,dimension(..) :: x integer(c_int) :: incx - complex(c_double_complex),target,dimension(..) :: y - integer(c_int) :: incy - complex(c_double_complex),target :: myResult + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + real(c_double),target,dimension(..) :: myResult ! - hipblasZdotc_assumed_rank = hipblasZdotc_(handle,n,c_loc(x),incx,c_loc(y),incy, & - c_loc(myResult)) + hipblasDzasumStridedBatched_assumed_rank = hipblasDzasumStridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,c_loc(myResult)) end function - function hipblasZdotc_assumed_rank_devptr(handle,n,x,incx,y,incy,myResult) - use iso_c_binding + function hipblasDzasumStridedBatched_assumed_rank_devptr(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotc_assumed_rank_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasumStridedBatched_assumed_rank_devptr type(c_ptr), value :: handle integer(c_int) :: n complex(c_double_complex),target,dimension(..) :: x integer(c_int) :: incx - complex(c_double_complex),target,dimension(..) :: y - integer(c_int) :: incy + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount type(c_ptr),value :: myResult ! - hipblasZdotc_assumed_rank_devptr = hipblasZdotc_(handle,n,c_loc(x),incx,c_loc(y),incy, & - myResult) + hipblasDzasumStridedBatched_assumed_rank_devptr = hipblasDzasumStridedBatched_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) end function #else - function hipblasZdotc_rank_0(handle,n,x,incx,y,incy,myResult) - use iso_c_binding + function hipblasDzasumStridedBatched_rank_0(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotc_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasumStridedBatched_rank_0 type(c_ptr), value :: handle integer(c_int) :: n complex(c_double_complex),target :: x integer(c_int) :: incx - complex(c_double_complex),target :: y - integer(c_int) :: incy - complex(c_double_complex),target :: myResult + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + real(c_double),target :: myResult ! - hipblasZdotc_rank_0 = hipblasZdotc_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) + hipblasDzasumStridedBatched_rank_0 = hipblasDzasumStridedBatched_(handle,n,c_loc(x),incx, & + stridex,batchCount,c_loc(myResult)) end function - function hipblasZdotc_rank_0_devptr(handle,n,x,incx,y,incy,myResult) - use iso_c_binding + function hipblasDzasumStridedBatched_rank_0_devptr(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotc_rank_0_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasumStridedBatched_rank_0_devptr type(c_ptr), value :: handle integer(c_int) :: n complex(c_double_complex),target :: x integer(c_int) :: incx - complex(c_double_complex),target :: y - integer(c_int) :: incy + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount type(c_ptr),value :: myResult ! - hipblasZdotc_rank_0_devptr = hipblasZdotc_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) + hipblasDzasumStridedBatched_rank_0_devptr = hipblasDzasumStridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) end function - function hipblasZdotc_rank_1(handle,n,x,incx,y,incy,myResult) - use iso_c_binding + function hipblasDzasumStridedBatched_rank_1(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotc_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasumStridedBatched_rank_1 type(c_ptr), value :: handle integer(c_int) :: n complex(c_double_complex),target,dimension(:) :: x integer(c_int) :: incx - complex(c_double_complex),target,dimension(:) :: y - integer(c_int) :: incy - complex(c_double_complex),target :: myResult + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + real(c_double),target,dimension(:) :: myResult ! - hipblasZdotc_rank_1 = hipblasZdotc_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) + hipblasDzasumStridedBatched_rank_1 = hipblasDzasumStridedBatched_(handle,n,c_loc(x),incx, & + stridex,batchCount,c_loc(myResult)) end function - function hipblasZdotc_rank_1_devptr(handle,n,x,incx,y,incy,myResult) - use iso_c_binding + function hipblasDzasumStridedBatched_rank_1_devptr(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotc_rank_1_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasumStridedBatched_rank_1_devptr type(c_ptr), value :: handle integer(c_int) :: n complex(c_double_complex),target,dimension(:) :: x integer(c_int) :: incx - complex(c_double_complex),target,dimension(:) :: y - integer(c_int) :: incy + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount type(c_ptr),value :: myResult ! - hipblasZdotc_rank_1_devptr = hipblasZdotc_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) + hipblasDzasumStridedBatched_rank_1_devptr = hipblasDzasumStridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZdotu_assumed_rank(handle,n,x,incx,y,incy,myResult) - use iso_c_binding + function hipblasDzasumStridedBatched_strided_rank(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotu_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasumStridedBatched_strided_rank type(c_ptr), value :: handle integer(c_int) :: n - complex(c_double_complex),target,dimension(..) :: x + complex(c_double_complex),target,dimension(:,:) :: x integer(c_int) :: incx - complex(c_double_complex),target,dimension(..) :: y - integer(c_int) :: incy - complex(c_double_complex),target :: myResult + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + real(c_double),target,dimension(:) :: myResult ! - hipblasZdotu_assumed_rank = hipblasZdotu_(handle,n,c_loc(x),incx,c_loc(y),incy, & - c_loc(myResult)) + hipblasDzasumStridedBatched_strided_rank = hipblasDzasumStridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,c_loc(myResult)) end function - function hipblasZdotu_assumed_rank_devptr(handle,n,x,incx,y,incy,myResult) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotu_assumed_rank_devptr - type(c_ptr), value :: handle - integer(c_int) :: n - complex(c_double_complex),target,dimension(..) :: x - integer(c_int) :: incx - complex(c_double_complex),target,dimension(..) :: y - integer(c_int) :: incy - type(c_ptr),value :: myResult - ! - hipblasZdotu_assumed_rank_devptr = hipblasZdotu_(handle,n,c_loc(x),incx,c_loc(y),incy, & + function hipblasDzasumStridedBatched_strided_rank_devptr(handle,n,x,incx,stridex,batchCount, & myResult) - end function - -#else - function hipblasZdotu_rank_0(handle,n,x,incx,y,incy,myResult) - use iso_c_binding implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotu_rank_0 - type(c_ptr), value :: handle - integer(c_int) :: n - complex(c_double_complex),target :: x - integer(c_int) :: incx - complex(c_double_complex),target :: y - integer(c_int) :: incy - complex(c_double_complex),target :: myResult - ! - hipblasZdotu_rank_0 = hipblasZdotu_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) - end function - - function hipblasZdotu_rank_0_devptr(handle,n,x,incx,y,incy,myResult) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotu_rank_0_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasumStridedBatched_strided_rank_devptr type(c_ptr), value :: handle integer(c_int) :: n - complex(c_double_complex),target :: x + complex(c_double_complex),target,dimension(:,:) :: x integer(c_int) :: incx - complex(c_double_complex),target :: y - integer(c_int) :: incy + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount type(c_ptr),value :: myResult ! - hipblasZdotu_rank_0_devptr = hipblasZdotu_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) + hipblasDzasumStridedBatched_strided_rank_devptr = hipblasDzasumStridedBatched_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) end function - function hipblasZdotu_rank_1(handle,n,x,incx,y,incy,myResult) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSasumStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotu_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasumStridedBatched_64_assumed_rank type(c_ptr), value :: handle - integer(c_int) :: n - complex(c_double_complex),target,dimension(:) :: x - integer(c_int) :: incx - complex(c_double_complex),target,dimension(:) :: y - integer(c_int) :: incy - complex(c_double_complex),target :: myResult + integer(c_int64_t) :: n + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + real(c_float),target,dimension(..) :: myResult ! - hipblasZdotu_rank_1 = hipblasZdotu_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) + hipblasSasumStridedBatched_64_assumed_rank = hipblasSasumStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,c_loc(myResult)) end function - function hipblasZdotu_rank_1_devptr(handle,n,x,incx,y,incy,myResult) - use iso_c_binding + function hipblasSasumStridedBatched_64_assumed_rank_devptr(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotu_rank_1_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasumStridedBatched_64_assumed_rank_devptr type(c_ptr), value :: handle - integer(c_int) :: n - complex(c_double_complex),target,dimension(:) :: x - integer(c_int) :: incx - complex(c_double_complex),target,dimension(:) :: y - integer(c_int) :: incy + integer(c_int64_t) :: n + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount type(c_ptr),value :: myResult ! - hipblasZdotu_rank_1_devptr = hipblasZdotu_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) + hipblasSasumStridedBatched_64_assumed_rank_devptr = hipblasSasumStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasSdot_64_assumed_rank(handle,n,x,incx,y,incy,myResult) - use iso_c_binding +#else + function hipblasSasumStridedBatched_64_rank_0(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdot_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasumStridedBatched_64_rank_0 type(c_ptr), value :: handle integer(c_int64_t) :: n - real(c_float),target,dimension(..) :: x + real(c_float),target :: x integer(c_int64_t) :: incx - real(c_float),target,dimension(..) :: y - integer(c_int64_t) :: incy + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount real(c_float),target :: myResult ! - hipblasSdot_64_assumed_rank = hipblasSdot_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & - c_loc(myResult)) + hipblasSasumStridedBatched_64_rank_0 = hipblasSasumStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,batchCount,c_loc(myResult)) end function - function hipblasSdot_64_assumed_rank_devptr(handle,n,x,incx,y,incy,myResult) - use iso_c_binding + function hipblasSasumStridedBatched_64_rank_0_devptr(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdot_64_assumed_rank_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasumStridedBatched_64_rank_0_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n - real(c_float),target,dimension(..) :: x + real(c_float),target :: x integer(c_int64_t) :: incx - real(c_float),target,dimension(..) :: y - integer(c_int64_t) :: incy + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount type(c_ptr),value :: myResult ! - hipblasSdot_64_assumed_rank_devptr = hipblasSdot_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & - myResult) + hipblasSasumStridedBatched_64_rank_0_devptr = hipblasSasumStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) end function -#else - function hipblasSdot_64_rank_0(handle,n,x,incx,y,incy,myResult) - use iso_c_binding + function hipblasSasumStridedBatched_64_rank_1(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdot_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasumStridedBatched_64_rank_1 type(c_ptr), value :: handle integer(c_int64_t) :: n - real(c_float),target :: x + real(c_float),target,dimension(:) :: x integer(c_int64_t) :: incx - real(c_float),target :: y - integer(c_int64_t) :: incy - real(c_float),target :: myResult + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + real(c_float),target,dimension(:) :: myResult ! - hipblasSdot_64_rank_0 = hipblasSdot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) + hipblasSasumStridedBatched_64_rank_1 = hipblasSasumStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,batchCount,c_loc(myResult)) end function - function hipblasSdot_64_rank_0_devptr(handle,n,x,incx,y,incy,myResult) - use iso_c_binding + function hipblasSasumStridedBatched_64_rank_1_devptr(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdot_64_rank_0_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasumStridedBatched_64_rank_1_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n - real(c_float),target :: x + real(c_float),target,dimension(:) :: x integer(c_int64_t) :: incx - real(c_float),target :: y - integer(c_int64_t) :: incy + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount type(c_ptr),value :: myResult ! - hipblasSdot_64_rank_0_devptr = hipblasSdot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) + hipblasSasumStridedBatched_64_rank_1_devptr = hipblasSasumStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) end function - function hipblasSdot_64_rank_1(handle,n,x,incx,y,incy,myResult) - use iso_c_binding + function hipblasSasumStridedBatched_64_strided_rank(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdot_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasumStridedBatched_64_strided_rank type(c_ptr), value :: handle integer(c_int64_t) :: n - real(c_float),target,dimension(:) :: x + real(c_float),target,dimension(:,:) :: x integer(c_int64_t) :: incx - real(c_float),target,dimension(:) :: y - integer(c_int64_t) :: incy - real(c_float),target :: myResult + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + real(c_float),target,dimension(:) :: myResult ! - hipblasSdot_64_rank_1 = hipblasSdot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) + hipblasSasumStridedBatched_64_strided_rank = hipblasSasumStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,c_loc(myResult)) end function - function hipblasSdot_64_rank_1_devptr(handle,n,x,incx,y,incy,myResult) - use iso_c_binding + function hipblasSasumStridedBatched_64_strided_rank_devptr(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdot_64_rank_1_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasumStridedBatched_64_strided_rank_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n - real(c_float),target,dimension(:) :: x + real(c_float),target,dimension(:,:) :: x integer(c_int64_t) :: incx - real(c_float),target,dimension(:) :: y - integer(c_int64_t) :: incy + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount type(c_ptr),value :: myResult ! - hipblasSdot_64_rank_1_devptr = hipblasSdot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) + hipblasSasumStridedBatched_64_strided_rank_devptr = hipblasSasumStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasDdot_64_assumed_rank(handle,n,x,incx,y,incy,myResult) - use iso_c_binding + function hipblasDasumStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdot_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasumStridedBatched_64_assumed_rank type(c_ptr), value :: handle integer(c_int64_t) :: n real(c_double),target,dimension(..) :: x integer(c_int64_t) :: incx - real(c_double),target,dimension(..) :: y - integer(c_int64_t) :: incy - real(c_double),target :: myResult + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + real(c_double),target,dimension(..) :: myResult ! - hipblasDdot_64_assumed_rank = hipblasDdot_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & - c_loc(myResult)) + hipblasDasumStridedBatched_64_assumed_rank = hipblasDasumStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,c_loc(myResult)) end function - function hipblasDdot_64_assumed_rank_devptr(handle,n,x,incx,y,incy,myResult) - use iso_c_binding + function hipblasDasumStridedBatched_64_assumed_rank_devptr(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdot_64_assumed_rank_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasumStridedBatched_64_assumed_rank_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n real(c_double),target,dimension(..) :: x integer(c_int64_t) :: incx - real(c_double),target,dimension(..) :: y - integer(c_int64_t) :: incy + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount type(c_ptr),value :: myResult ! - hipblasDdot_64_assumed_rank_devptr = hipblasDdot_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & - myResult) + hipblasDasumStridedBatched_64_assumed_rank_devptr = hipblasDasumStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) end function #else - function hipblasDdot_64_rank_0(handle,n,x,incx,y,incy,myResult) - use iso_c_binding + function hipblasDasumStridedBatched_64_rank_0(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdot_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasumStridedBatched_64_rank_0 type(c_ptr), value :: handle integer(c_int64_t) :: n real(c_double),target :: x integer(c_int64_t) :: incx - real(c_double),target :: y - integer(c_int64_t) :: incy + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount real(c_double),target :: myResult ! - hipblasDdot_64_rank_0 = hipblasDdot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) + hipblasDasumStridedBatched_64_rank_0 = hipblasDasumStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,batchCount,c_loc(myResult)) end function - function hipblasDdot_64_rank_0_devptr(handle,n,x,incx,y,incy,myResult) - use iso_c_binding + function hipblasDasumStridedBatched_64_rank_0_devptr(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdot_64_rank_0_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasumStridedBatched_64_rank_0_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n real(c_double),target :: x integer(c_int64_t) :: incx - real(c_double),target :: y - integer(c_int64_t) :: incy + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount type(c_ptr),value :: myResult ! - hipblasDdot_64_rank_0_devptr = hipblasDdot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) + hipblasDasumStridedBatched_64_rank_0_devptr = hipblasDasumStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) end function - function hipblasDdot_64_rank_1(handle,n,x,incx,y,incy,myResult) - use iso_c_binding + function hipblasDasumStridedBatched_64_rank_1(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdot_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasumStridedBatched_64_rank_1 type(c_ptr), value :: handle integer(c_int64_t) :: n real(c_double),target,dimension(:) :: x integer(c_int64_t) :: incx - real(c_double),target,dimension(:) :: y - integer(c_int64_t) :: incy - real(c_double),target :: myResult + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + real(c_double),target,dimension(:) :: myResult ! - hipblasDdot_64_rank_1 = hipblasDdot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) + hipblasDasumStridedBatched_64_rank_1 = hipblasDasumStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,batchCount,c_loc(myResult)) end function - function hipblasDdot_64_rank_1_devptr(handle,n,x,incx,y,incy,myResult) - use iso_c_binding + function hipblasDasumStridedBatched_64_rank_1_devptr(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdot_64_rank_1_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasumStridedBatched_64_rank_1_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n real(c_double),target,dimension(:) :: x integer(c_int64_t) :: incx - real(c_double),target,dimension(:) :: y - integer(c_int64_t) :: incy + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount type(c_ptr),value :: myResult ! - hipblasDdot_64_rank_1_devptr = hipblasDdot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) + hipblasDasumStridedBatched_64_rank_1_devptr = hipblasDasumStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) + end function + + function hipblasDasumStridedBatched_64_strided_rank(handle,n,x,incx,stridex,batchCount,myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasumStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + real(c_double),target,dimension(:) :: myResult + ! + hipblasDasumStridedBatched_64_strided_rank = hipblasDasumStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,c_loc(myResult)) + end function + + function hipblasDasumStridedBatched_64_strided_rank_devptr(handle,n,x,incx,stridex,batchCount, & + myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasumStridedBatched_64_strided_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + type(c_ptr),value :: myResult + ! + hipblasDasumStridedBatched_64_strided_rank_devptr = hipblasDasumStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCdotc_64_assumed_rank(handle,n,x,incx,y,incy,myResult) - use iso_c_binding + function hipblasScasumStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotc_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasumStridedBatched_64_assumed_rank type(c_ptr), value :: handle integer(c_int64_t) :: n complex(c_float_complex),target,dimension(..) :: x integer(c_int64_t) :: incx - complex(c_float_complex),target,dimension(..) :: y - integer(c_int64_t) :: incy - complex(c_float_complex),target :: myResult + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + real(c_float),target,dimension(..) :: myResult ! - hipblasCdotc_64_assumed_rank = hipblasCdotc_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & - c_loc(myResult)) + hipblasScasumStridedBatched_64_assumed_rank = hipblasScasumStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,c_loc(myResult)) end function - function hipblasCdotc_64_assumed_rank_devptr(handle,n,x,incx,y,incy,myResult) - use iso_c_binding + function hipblasScasumStridedBatched_64_assumed_rank_devptr(handle,n,x,incx,stridex, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotc_64_assumed_rank_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasumStridedBatched_64_assumed_rank_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n complex(c_float_complex),target,dimension(..) :: x integer(c_int64_t) :: incx - complex(c_float_complex),target,dimension(..) :: y - integer(c_int64_t) :: incy + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount type(c_ptr),value :: myResult ! - hipblasCdotc_64_assumed_rank_devptr = hipblasCdotc_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & - myResult) + hipblasScasumStridedBatched_64_assumed_rank_devptr = hipblasScasumStridedBatched_64_(handle, & + n,c_loc(x),incx,stridex,batchCount,myResult) end function #else - function hipblasCdotc_64_rank_0(handle,n,x,incx,y,incy,myResult) - use iso_c_binding + function hipblasScasumStridedBatched_64_rank_0(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotc_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasumStridedBatched_64_rank_0 type(c_ptr), value :: handle integer(c_int64_t) :: n complex(c_float_complex),target :: x integer(c_int64_t) :: incx - complex(c_float_complex),target :: y - integer(c_int64_t) :: incy - complex(c_float_complex),target :: myResult + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + real(c_float),target :: myResult ! - hipblasCdotc_64_rank_0 = hipblasCdotc_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & - c_loc(myResult)) + hipblasScasumStridedBatched_64_rank_0 = hipblasScasumStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,batchCount,c_loc(myResult)) end function - function hipblasCdotc_64_rank_0_devptr(handle,n,x,incx,y,incy,myResult) - use iso_c_binding + function hipblasScasumStridedBatched_64_rank_0_devptr(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotc_64_rank_0_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasumStridedBatched_64_rank_0_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n complex(c_float_complex),target :: x integer(c_int64_t) :: incx - complex(c_float_complex),target :: y - integer(c_int64_t) :: incy + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount type(c_ptr),value :: myResult ! - hipblasCdotc_64_rank_0_devptr = hipblasCdotc_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & - myResult) + hipblasScasumStridedBatched_64_rank_0_devptr = hipblasScasumStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) end function - function hipblasCdotc_64_rank_1(handle,n,x,incx,y,incy,myResult) - use iso_c_binding + function hipblasScasumStridedBatched_64_rank_1(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotc_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasumStridedBatched_64_rank_1 type(c_ptr), value :: handle integer(c_int64_t) :: n complex(c_float_complex),target,dimension(:) :: x integer(c_int64_t) :: incx - complex(c_float_complex),target,dimension(:) :: y - integer(c_int64_t) :: incy - complex(c_float_complex),target :: myResult + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + real(c_float),target,dimension(:) :: myResult ! - hipblasCdotc_64_rank_1 = hipblasCdotc_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & - c_loc(myResult)) + hipblasScasumStridedBatched_64_rank_1 = hipblasScasumStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,batchCount,c_loc(myResult)) end function - function hipblasCdotc_64_rank_1_devptr(handle,n,x,incx,y,incy,myResult) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotc_64_rank_1_devptr - type(c_ptr), value :: handle - integer(c_int64_t) :: n - complex(c_float_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx - complex(c_float_complex),target,dimension(:) :: y - integer(c_int64_t) :: incy - type(c_ptr),value :: myResult - ! - hipblasCdotc_64_rank_1_devptr = hipblasCdotc_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + function hipblasScasumStridedBatched_64_rank_1_devptr(handle,n,x,incx,stridex,batchCount, & myResult) - end function - -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCdotu_64_assumed_rank(handle,n,x,incx,y,incy,myResult) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotu_64_assumed_rank - type(c_ptr), value :: handle - integer(c_int64_t) :: n - complex(c_float_complex),target,dimension(..) :: x - integer(c_int64_t) :: incx - complex(c_float_complex),target,dimension(..) :: y - integer(c_int64_t) :: incy - complex(c_float_complex),target :: myResult - ! - hipblasCdotu_64_assumed_rank = hipblasCdotu_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & - c_loc(myResult)) - end function - - function hipblasCdotu_64_assumed_rank_devptr(handle,n,x,incx,y,incy,myResult) - use iso_c_binding implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotu_64_assumed_rank_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasumStridedBatched_64_rank_1_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n - complex(c_float_complex),target,dimension(..) :: x + complex(c_float_complex),target,dimension(:) :: x integer(c_int64_t) :: incx - complex(c_float_complex),target,dimension(..) :: y - integer(c_int64_t) :: incy + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount type(c_ptr),value :: myResult ! - hipblasCdotu_64_assumed_rank_devptr = hipblasCdotu_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & - myResult) - end function - -#else - function hipblasCdotu_64_rank_0(handle,n,x,incx,y,incy,myResult) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotu_64_rank_0 - type(c_ptr), value :: handle - integer(c_int64_t) :: n - complex(c_float_complex),target :: x - integer(c_int64_t) :: incx - complex(c_float_complex),target :: y - integer(c_int64_t) :: incy - complex(c_float_complex),target :: myResult - ! - hipblasCdotu_64_rank_0 = hipblasCdotu_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & - c_loc(myResult)) + hipblasScasumStridedBatched_64_rank_1_devptr = hipblasScasumStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) end function - function hipblasCdotu_64_rank_0_devptr(handle,n,x,incx,y,incy,myResult) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotu_64_rank_0_devptr - type(c_ptr), value :: handle - integer(c_int64_t) :: n - complex(c_float_complex),target :: x - integer(c_int64_t) :: incx - complex(c_float_complex),target :: y - integer(c_int64_t) :: incy - type(c_ptr),value :: myResult - ! - hipblasCdotu_64_rank_0_devptr = hipblasCdotu_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + function hipblasScasumStridedBatched_64_strided_rank(handle,n,x,incx,stridex,batchCount, & myResult) - end function - - function hipblasCdotu_64_rank_1(handle,n,x,incx,y,incy,myResult) - use iso_c_binding implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotu_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasumStridedBatched_64_strided_rank type(c_ptr), value :: handle integer(c_int64_t) :: n - complex(c_float_complex),target,dimension(:) :: x + complex(c_float_complex),target,dimension(:,:) :: x integer(c_int64_t) :: incx - complex(c_float_complex),target,dimension(:) :: y - integer(c_int64_t) :: incy - complex(c_float_complex),target :: myResult + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + real(c_float),target,dimension(:) :: myResult ! - hipblasCdotu_64_rank_1 = hipblasCdotu_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & - c_loc(myResult)) + hipblasScasumStridedBatched_64_strided_rank = hipblasScasumStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,c_loc(myResult)) end function - function hipblasCdotu_64_rank_1_devptr(handle,n,x,incx,y,incy,myResult) - use iso_c_binding + function hipblasScasumStridedBatched_64_strided_rank_devptr(handle,n,x,incx,stridex, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotu_64_rank_1_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasumStridedBatched_64_strided_rank_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n - complex(c_float_complex),target,dimension(:) :: x + complex(c_float_complex),target,dimension(:,:) :: x integer(c_int64_t) :: incx - complex(c_float_complex),target,dimension(:) :: y - integer(c_int64_t) :: incy + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount type(c_ptr),value :: myResult ! - hipblasCdotu_64_rank_1_devptr = hipblasCdotu_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & - myResult) + hipblasScasumStridedBatched_64_strided_rank_devptr = hipblasScasumStridedBatched_64_(handle, & + n,c_loc(x),incx,stridex,batchCount,myResult) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasZdotc_64_assumed_rank(handle,n,x,incx,y,incy,myResult) - use iso_c_binding + function hipblasDzasumStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotc_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasumStridedBatched_64_assumed_rank type(c_ptr), value :: handle integer(c_int64_t) :: n complex(c_double_complex),target,dimension(..) :: x integer(c_int64_t) :: incx - complex(c_double_complex),target,dimension(..) :: y - integer(c_int64_t) :: incy - complex(c_double_complex),target :: myResult + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + real(c_double),target,dimension(..) :: myResult ! - hipblasZdotc_64_assumed_rank = hipblasZdotc_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & - c_loc(myResult)) + hipblasDzasumStridedBatched_64_assumed_rank = hipblasDzasumStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,c_loc(myResult)) end function - function hipblasZdotc_64_assumed_rank_devptr(handle,n,x,incx,y,incy,myResult) - use iso_c_binding + function hipblasDzasumStridedBatched_64_assumed_rank_devptr(handle,n,x,incx,stridex, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotc_64_assumed_rank_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasumStridedBatched_64_assumed_rank_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n complex(c_double_complex),target,dimension(..) :: x integer(c_int64_t) :: incx - complex(c_double_complex),target,dimension(..) :: y - integer(c_int64_t) :: incy + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount type(c_ptr),value :: myResult ! - hipblasZdotc_64_assumed_rank_devptr = hipblasZdotc_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & - myResult) + hipblasDzasumStridedBatched_64_assumed_rank_devptr = hipblasDzasumStridedBatched_64_(handle, & + n,c_loc(x),incx,stridex,batchCount,myResult) end function #else - function hipblasZdotc_64_rank_0(handle,n,x,incx,y,incy,myResult) - use iso_c_binding + function hipblasDzasumStridedBatched_64_rank_0(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotc_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasumStridedBatched_64_rank_0 type(c_ptr), value :: handle integer(c_int64_t) :: n complex(c_double_complex),target :: x integer(c_int64_t) :: incx - complex(c_double_complex),target :: y - integer(c_int64_t) :: incy - complex(c_double_complex),target :: myResult + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + real(c_double),target :: myResult ! - hipblasZdotc_64_rank_0 = hipblasZdotc_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & - c_loc(myResult)) + hipblasDzasumStridedBatched_64_rank_0 = hipblasDzasumStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,batchCount,c_loc(myResult)) end function - function hipblasZdotc_64_rank_0_devptr(handle,n,x,incx,y,incy,myResult) - use iso_c_binding + function hipblasDzasumStridedBatched_64_rank_0_devptr(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotc_64_rank_0_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasumStridedBatched_64_rank_0_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n complex(c_double_complex),target :: x integer(c_int64_t) :: incx - complex(c_double_complex),target :: y - integer(c_int64_t) :: incy + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount type(c_ptr),value :: myResult ! - hipblasZdotc_64_rank_0_devptr = hipblasZdotc_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & - myResult) + hipblasDzasumStridedBatched_64_rank_0_devptr = hipblasDzasumStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) end function - function hipblasZdotc_64_rank_1(handle,n,x,incx,y,incy,myResult) - use iso_c_binding + function hipblasDzasumStridedBatched_64_rank_1(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotc_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasumStridedBatched_64_rank_1 type(c_ptr), value :: handle integer(c_int64_t) :: n complex(c_double_complex),target,dimension(:) :: x integer(c_int64_t) :: incx - complex(c_double_complex),target,dimension(:) :: y - integer(c_int64_t) :: incy - complex(c_double_complex),target :: myResult + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + real(c_double),target,dimension(:) :: myResult ! - hipblasZdotc_64_rank_1 = hipblasZdotc_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & - c_loc(myResult)) + hipblasDzasumStridedBatched_64_rank_1 = hipblasDzasumStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,batchCount,c_loc(myResult)) end function - function hipblasZdotc_64_rank_1_devptr(handle,n,x,incx,y,incy,myResult) - use iso_c_binding + function hipblasDzasumStridedBatched_64_rank_1_devptr(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotc_64_rank_1_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasumStridedBatched_64_rank_1_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n complex(c_double_complex),target,dimension(:) :: x integer(c_int64_t) :: incx - complex(c_double_complex),target,dimension(:) :: y - integer(c_int64_t) :: incy + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount type(c_ptr),value :: myResult ! - hipblasZdotc_64_rank_1_devptr = hipblasZdotc_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & - myResult) + hipblasDzasumStridedBatched_64_rank_1_devptr = hipblasDzasumStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZdotu_64_assumed_rank(handle,n,x,incx,y,incy,myResult) - use iso_c_binding + function hipblasDzasumStridedBatched_64_strided_rank(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotu_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasumStridedBatched_64_strided_rank type(c_ptr), value :: handle integer(c_int64_t) :: n - complex(c_double_complex),target,dimension(..) :: x + complex(c_double_complex),target,dimension(:,:) :: x integer(c_int64_t) :: incx - complex(c_double_complex),target,dimension(..) :: y - integer(c_int64_t) :: incy - complex(c_double_complex),target :: myResult + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + real(c_double),target,dimension(:) :: myResult ! - hipblasZdotu_64_assumed_rank = hipblasZdotu_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & - c_loc(myResult)) + hipblasDzasumStridedBatched_64_strided_rank = hipblasDzasumStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,c_loc(myResult)) end function - function hipblasZdotu_64_assumed_rank_devptr(handle,n,x,incx,y,incy,myResult) - use iso_c_binding + function hipblasDzasumStridedBatched_64_strided_rank_devptr(handle,n,x,incx,stridex, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotu_64_assumed_rank_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasumStridedBatched_64_strided_rank_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n - complex(c_double_complex),target,dimension(..) :: x + complex(c_double_complex),target,dimension(:,:) :: x integer(c_int64_t) :: incx - complex(c_double_complex),target,dimension(..) :: y - integer(c_int64_t) :: incy + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount type(c_ptr),value :: myResult ! - hipblasZdotu_64_assumed_rank_devptr = hipblasZdotu_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & - myResult) + hipblasDzasumStridedBatched_64_strided_rank_devptr = hipblasDzasumStridedBatched_64_(handle, & + n,c_loc(x),incx,stridex,batchCount,myResult) end function -#else - function hipblasZdotu_64_rank_0(handle,n,x,incx,y,incy,myResult) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSaxpy_assumed_rank(handle,n,alpha,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotu_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpy_assumed_rank type(c_ptr), value :: handle - integer(c_int64_t) :: n - complex(c_double_complex),target :: x - integer(c_int64_t) :: incx - complex(c_double_complex),target :: y - integer(c_int64_t) :: incy - complex(c_double_complex),target :: myResult + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + real(c_float),target,dimension(..) :: y + integer(c_int) :: incy ! - hipblasZdotu_64_rank_0 = hipblasZdotu_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & - c_loc(myResult)) + hipblasSaxpy_assumed_rank = hipblasSaxpy_(handle,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy) end function - function hipblasZdotu_64_rank_0_devptr(handle,n,x,incx,y,incy,myResult) - use iso_c_binding + function hipblasSaxpy_assumed_rank_devptr(handle,n,alpha,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotu_64_rank_0_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpy_assumed_rank_devptr type(c_ptr), value :: handle - integer(c_int64_t) :: n - complex(c_double_complex),target :: x - integer(c_int64_t) :: incx - complex(c_double_complex),target :: y - integer(c_int64_t) :: incy - type(c_ptr),value :: myResult + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + real(c_float),target,dimension(..) :: y + integer(c_int) :: incy ! - hipblasZdotu_64_rank_0_devptr = hipblasZdotu_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & - myResult) + hipblasSaxpy_assumed_rank_devptr = hipblasSaxpy_(handle,n,alpha,c_loc(x),incx,c_loc(y),incy) end function - function hipblasZdotu_64_rank_1(handle,n,x,incx,y,incy,myResult) - use iso_c_binding +#else + function hipblasSaxpy_rank_0(handle,n,alpha,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotu_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpy_rank_0 type(c_ptr), value :: handle - integer(c_int64_t) :: n - complex(c_double_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx - complex(c_double_complex),target,dimension(:) :: y - integer(c_int64_t) :: incy - complex(c_double_complex),target :: myResult + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target :: x + integer(c_int) :: incx + real(c_float),target :: y + integer(c_int) :: incy ! - hipblasZdotu_64_rank_1 = hipblasZdotu_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & - c_loc(myResult)) + hipblasSaxpy_rank_0 = hipblasSaxpy_(handle,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy) end function - function hipblasZdotu_64_rank_1_devptr(handle,n,x,incx,y,incy,myResult) - use iso_c_binding + function hipblasSaxpy_rank_0_devptr(handle,n,alpha,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotu_64_rank_1_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpy_rank_0_devptr type(c_ptr), value :: handle - integer(c_int64_t) :: n - complex(c_double_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx - complex(c_double_complex),target,dimension(:) :: y - integer(c_int64_t) :: incy - type(c_ptr),value :: myResult + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target :: x + integer(c_int) :: incx + real(c_float),target :: y + integer(c_int) :: incy ! - hipblasZdotu_64_rank_1_devptr = hipblasZdotu_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & - myResult) + hipblasSaxpy_rank_0_devptr = hipblasSaxpy_(handle,n,alpha,c_loc(x),incx,c_loc(y),incy) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasSdotStridedBatched_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & - batchCount,myResult) - use iso_c_binding + function hipblasSaxpy_rank_1(handle,n,alpha,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdotStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpy_rank_1 type(c_ptr), value :: handle integer(c_int) :: n - real(c_float),target,dimension(..) :: x + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - real(c_float),target,dimension(..) :: y + real(c_float),target,dimension(:) :: y integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount - type(c_ptr) :: myResult ! - hipblasSdotStridedBatched_assumed_rank = hipblasSdotStridedBatched_(handle,n,c_loc(x),incx, & - stridex,c_loc(y),incy,stridey,batchCount,myResult) + hipblasSaxpy_rank_1 = hipblasSaxpy_(handle,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy) end function -#else - function hipblasSdotStridedBatched_rank_0(handle,n,x,incx,stridex,y,incy,stridey,batchCount, & - myResult) - use iso_c_binding + function hipblasSaxpy_rank_1_devptr(handle,n,alpha,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdotStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpy_rank_1_devptr type(c_ptr), value :: handle integer(c_int) :: n - real(c_float),target :: x + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - real(c_float),target :: y + real(c_float),target,dimension(:) :: y integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount - type(c_ptr) :: myResult ! - hipblasSdotStridedBatched_rank_0 = hipblasSdotStridedBatched_(handle,n,c_loc(x),incx, & - stridex,c_loc(y),incy,stridey,batchCount,myResult) + hipblasSaxpy_rank_1_devptr = hipblasSaxpy_(handle,n,alpha,c_loc(x),incx,c_loc(y),incy) end function - function hipblasSdotStridedBatched_rank_1(handle,n,x,incx,stridex,y,incy,stridey,batchCount, & - myResult) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDaxpy_assumed_rank(handle,n,alpha,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdotStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpy_assumed_rank type(c_ptr), value :: handle integer(c_int) :: n - real(c_float),target,dimension(:) :: x + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - real(c_float),target,dimension(:) :: y + real(c_double),target,dimension(..) :: y integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount - type(c_ptr) :: myResult ! - hipblasSdotStridedBatched_rank_1 = hipblasSdotStridedBatched_(handle,n,c_loc(x),incx, & - stridex,c_loc(y),incy,stridey,batchCount,myResult) + hipblasDaxpy_assumed_rank = hipblasDaxpy_(handle,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDdotStridedBatched_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & - batchCount,myResult) - use iso_c_binding + function hipblasDaxpy_assumed_rank_devptr(handle,n,alpha,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdotStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpy_assumed_rank_devptr type(c_ptr), value :: handle integer(c_int) :: n + type(c_ptr),value :: alpha real(c_double),target,dimension(..) :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex real(c_double),target,dimension(..) :: y integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount - type(c_ptr) :: myResult ! - hipblasDdotStridedBatched_assumed_rank = hipblasDdotStridedBatched_(handle,n,c_loc(x),incx, & - stridex,c_loc(y),incy,stridey,batchCount,myResult) + hipblasDaxpy_assumed_rank_devptr = hipblasDaxpy_(handle,n,alpha,c_loc(x),incx,c_loc(y),incy) end function #else - function hipblasDdotStridedBatched_rank_0(handle,n,x,incx,stridex,y,incy,stridey,batchCount, & - myResult) - use iso_c_binding + function hipblasDaxpy_rank_0(handle,n,alpha,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdotStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpy_rank_0 type(c_ptr), value :: handle integer(c_int) :: n + real(c_double),target :: alpha real(c_double),target :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex real(c_double),target :: y integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount - type(c_ptr) :: myResult ! - hipblasDdotStridedBatched_rank_0 = hipblasDdotStridedBatched_(handle,n,c_loc(x),incx, & - stridex,c_loc(y),incy,stridey,batchCount,myResult) + hipblasDaxpy_rank_0 = hipblasDaxpy_(handle,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy) end function - function hipblasDdotStridedBatched_rank_1(handle,n,x,incx,stridex,y,incy,stridey,batchCount, & - myResult) - use iso_c_binding + function hipblasDaxpy_rank_0_devptr(handle,n,alpha,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdotStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpy_rank_0_devptr type(c_ptr), value :: handle integer(c_int) :: n - real(c_double),target,dimension(:) :: x + type(c_ptr),value :: alpha + real(c_double),target :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - real(c_double),target,dimension(:) :: y + real(c_double),target :: y integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount - type(c_ptr) :: myResult ! - hipblasDdotStridedBatched_rank_1 = hipblasDdotStridedBatched_(handle,n,c_loc(x),incx, & - stridex,c_loc(y),incy,stridey,batchCount,myResult) + hipblasDaxpy_rank_0_devptr = hipblasDaxpy_(handle,n,alpha,c_loc(x),incx,c_loc(y),incy) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCdotcStridedBatched_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & - batchCount,myResult) - use iso_c_binding + function hipblasDaxpy_rank_1(handle,n,alpha,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotcStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpy_rank_1 type(c_ptr), value :: handle integer(c_int) :: n - complex(c_float_complex),target,dimension(..) :: x + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - complex(c_float_complex),target,dimension(..) :: y + real(c_double),target,dimension(:) :: y integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount - type(c_ptr) :: myResult ! - hipblasCdotcStridedBatched_assumed_rank = hipblasCdotcStridedBatched_(handle,n,c_loc(x), & - incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) + hipblasDaxpy_rank_1 = hipblasDaxpy_(handle,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy) end function -#else - function hipblasCdotcStridedBatched_rank_0(handle,n,x,incx,stridex,y,incy,stridey,batchCount, & - myResult) - use iso_c_binding + function hipblasDaxpy_rank_1_devptr(handle,n,alpha,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotcStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpy_rank_1_devptr type(c_ptr), value :: handle integer(c_int) :: n - complex(c_float_complex),target :: x + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - complex(c_float_complex),target :: y + real(c_double),target,dimension(:) :: y integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount - type(c_ptr) :: myResult ! - hipblasCdotcStridedBatched_rank_0 = hipblasCdotcStridedBatched_(handle,n,c_loc(x),incx, & - stridex,c_loc(y),incy,stridey,batchCount,myResult) + hipblasDaxpy_rank_1_devptr = hipblasDaxpy_(handle,n,alpha,c_loc(x),incx,c_loc(y),incy) end function - function hipblasCdotcStridedBatched_rank_1(handle,n,x,incx,stridex,y,incy,stridey,batchCount, & - myResult) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCaxpy_assumed_rank(handle,n,alpha,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotcStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpy_assumed_rank type(c_ptr), value :: handle integer(c_int) :: n - complex(c_float_complex),target,dimension(:) :: x + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - complex(c_float_complex),target,dimension(:) :: y + complex(c_float_complex),target,dimension(..) :: y integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount - type(c_ptr) :: myResult ! - hipblasCdotcStridedBatched_rank_1 = hipblasCdotcStridedBatched_(handle,n,c_loc(x),incx, & - stridex,c_loc(y),incy,stridey,batchCount,myResult) + hipblasCaxpy_assumed_rank = hipblasCaxpy_(handle,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCdotuStridedBatched_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & - batchCount,myResult) - use iso_c_binding + function hipblasCaxpy_assumed_rank_devptr(handle,n,alpha,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotuStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpy_assumed_rank_devptr type(c_ptr), value :: handle integer(c_int) :: n + type(c_ptr),value :: alpha complex(c_float_complex),target,dimension(..) :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex complex(c_float_complex),target,dimension(..) :: y integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount - type(c_ptr) :: myResult ! - hipblasCdotuStridedBatched_assumed_rank = hipblasCdotuStridedBatched_(handle,n,c_loc(x), & - incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) + hipblasCaxpy_assumed_rank_devptr = hipblasCaxpy_(handle,n,alpha,c_loc(x),incx,c_loc(y),incy) end function #else - function hipblasCdotuStridedBatched_rank_0(handle,n,x,incx,stridex,y,incy,stridey,batchCount, & - myResult) - use iso_c_binding + function hipblasCaxpy_rank_0(handle,n,alpha,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotuStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpy_rank_0 type(c_ptr), value :: handle integer(c_int) :: n + complex(c_float_complex),target :: alpha complex(c_float_complex),target :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex complex(c_float_complex),target :: y integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount - type(c_ptr) :: myResult ! - hipblasCdotuStridedBatched_rank_0 = hipblasCdotuStridedBatched_(handle,n,c_loc(x),incx, & - stridex,c_loc(y),incy,stridey,batchCount,myResult) + hipblasCaxpy_rank_0 = hipblasCaxpy_(handle,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy) end function - function hipblasCdotuStridedBatched_rank_1(handle,n,x,incx,stridex,y,incy,stridey,batchCount, & - myResult) - use iso_c_binding + function hipblasCaxpy_rank_0_devptr(handle,n,alpha,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotuStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpy_rank_0_devptr type(c_ptr), value :: handle integer(c_int) :: n - complex(c_float_complex),target,dimension(:) :: x + type(c_ptr),value :: alpha + complex(c_float_complex),target :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - complex(c_float_complex),target,dimension(:) :: y + complex(c_float_complex),target :: y integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount - type(c_ptr) :: myResult ! - hipblasCdotuStridedBatched_rank_1 = hipblasCdotuStridedBatched_(handle,n,c_loc(x),incx, & - stridex,c_loc(y),incy,stridey,batchCount,myResult) + hipblasCaxpy_rank_0_devptr = hipblasCaxpy_(handle,n,alpha,c_loc(x),incx,c_loc(y),incy) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZdotcStridedBatched_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & - batchCount,myResult) - use iso_c_binding + function hipblasCaxpy_rank_1(handle,n,alpha,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotcStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpy_rank_1 type(c_ptr), value :: handle integer(c_int) :: n - complex(c_double_complex),target,dimension(..) :: x + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - complex(c_double_complex),target,dimension(..) :: y + complex(c_float_complex),target,dimension(:) :: y integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount - type(c_ptr) :: myResult ! - hipblasZdotcStridedBatched_assumed_rank = hipblasZdotcStridedBatched_(handle,n,c_loc(x), & - incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) + hipblasCaxpy_rank_1 = hipblasCaxpy_(handle,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy) end function -#else - function hipblasZdotcStridedBatched_rank_0(handle,n,x,incx,stridex,y,incy,stridey,batchCount, & - myResult) - use iso_c_binding + function hipblasCaxpy_rank_1_devptr(handle,n,alpha,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotcStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpy_rank_1_devptr type(c_ptr), value :: handle integer(c_int) :: n - complex(c_double_complex),target :: x + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - complex(c_double_complex),target :: y + complex(c_float_complex),target,dimension(:) :: y integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount - type(c_ptr) :: myResult ! - hipblasZdotcStridedBatched_rank_0 = hipblasZdotcStridedBatched_(handle,n,c_loc(x),incx, & - stridex,c_loc(y),incy,stridey,batchCount,myResult) + hipblasCaxpy_rank_1_devptr = hipblasCaxpy_(handle,n,alpha,c_loc(x),incx,c_loc(y),incy) end function - function hipblasZdotcStridedBatched_rank_1(handle,n,x,incx,stridex,y,incy,stridey,batchCount, & - myResult) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZaxpy_assumed_rank(handle,n,alpha,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotcStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpy_assumed_rank type(c_ptr), value :: handle integer(c_int) :: n - complex(c_double_complex),target,dimension(:) :: x + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - complex(c_double_complex),target,dimension(:) :: y + complex(c_double_complex),target,dimension(..) :: y integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount - type(c_ptr) :: myResult ! - hipblasZdotcStridedBatched_rank_1 = hipblasZdotcStridedBatched_(handle,n,c_loc(x),incx, & - stridex,c_loc(y),incy,stridey,batchCount,myResult) + hipblasZaxpy_assumed_rank = hipblasZaxpy_(handle,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZdotuStridedBatched_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & - batchCount,myResult) - use iso_c_binding + function hipblasZaxpy_assumed_rank_devptr(handle,n,alpha,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotuStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpy_assumed_rank_devptr type(c_ptr), value :: handle integer(c_int) :: n + type(c_ptr),value :: alpha complex(c_double_complex),target,dimension(..) :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex complex(c_double_complex),target,dimension(..) :: y integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount - type(c_ptr) :: myResult ! - hipblasZdotuStridedBatched_assumed_rank = hipblasZdotuStridedBatched_(handle,n,c_loc(x), & - incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) + hipblasZaxpy_assumed_rank_devptr = hipblasZaxpy_(handle,n,alpha,c_loc(x),incx,c_loc(y),incy) end function #else - function hipblasZdotuStridedBatched_rank_0(handle,n,x,incx,stridex,y,incy,stridey,batchCount, & - myResult) - use iso_c_binding + function hipblasZaxpy_rank_0(handle,n,alpha,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotuStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpy_rank_0 type(c_ptr), value :: handle integer(c_int) :: n + complex(c_double_complex),target :: alpha complex(c_double_complex),target :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex complex(c_double_complex),target :: y integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount - type(c_ptr) :: myResult ! - hipblasZdotuStridedBatched_rank_0 = hipblasZdotuStridedBatched_(handle,n,c_loc(x),incx, & - stridex,c_loc(y),incy,stridey,batchCount,myResult) + hipblasZaxpy_rank_0 = hipblasZaxpy_(handle,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy) end function - function hipblasZdotuStridedBatched_rank_1(handle,n,x,incx,stridex,y,incy,stridey,batchCount, & - myResult) - use iso_c_binding + function hipblasZaxpy_rank_0_devptr(handle,n,alpha,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotuStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpy_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target :: x + integer(c_int) :: incx + complex(c_double_complex),target :: y + integer(c_int) :: incy + ! + hipblasZaxpy_rank_0_devptr = hipblasZaxpy_(handle,n,alpha,c_loc(x),incx,c_loc(y),incy) + end function + + function hipblasZaxpy_rank_1(handle,n,alpha,x,incx,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpy_rank_1 type(c_ptr), value :: handle integer(c_int) :: n + complex(c_double_complex),target :: alpha complex(c_double_complex),target,dimension(:) :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex complex(c_double_complex),target,dimension(:) :: y integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount - type(c_ptr) :: myResult ! - hipblasZdotuStridedBatched_rank_1 = hipblasZdotuStridedBatched_(handle,n,c_loc(x),incx, & - stridex,c_loc(y),incy,stridey,batchCount,myResult) + hipblasZaxpy_rank_1 = hipblasZaxpy_(handle,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy) + end function + + function hipblasZaxpy_rank_1_devptr(handle,n,alpha,x,incx,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpy_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasZaxpy_rank_1_devptr = hipblasZaxpy_(handle,n,alpha,c_loc(x),incx,c_loc(y),incy) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasSdotStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & - batchCount,myResult) - use iso_c_binding + function hipblasSaxpy_64_assumed_rank(handle,n,alpha,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdotStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpy_64_assumed_rank type(c_ptr), value :: handle integer(c_int64_t) :: n + real(c_float),target :: alpha real(c_float),target,dimension(..) :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex real(c_float),target,dimension(..) :: y integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount - type(c_ptr) :: myResult ! - hipblasSdotStridedBatched_64_assumed_rank = hipblasSdotStridedBatched_64_(handle,n,c_loc(x), & - incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) + hipblasSaxpy_64_assumed_rank = hipblasSaxpy_64_(handle,n,c_loc(alpha),c_loc(x),incx, & + c_loc(y),incy) + end function + + function hipblasSaxpy_64_assumed_rank_devptr(handle,n,alpha,x,incx,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpy_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy + ! + hipblasSaxpy_64_assumed_rank_devptr = hipblasSaxpy_64_(handle,n,alpha,c_loc(x),incx, & + c_loc(y),incy) end function #else - function hipblasSdotStridedBatched_64_rank_0(handle,n,x,incx,stridex,y,incy,stridey, & - batchCount,myResult) - use iso_c_binding + function hipblasSaxpy_64_rank_0(handle,n,alpha,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdotStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpy_64_rank_0 type(c_ptr), value :: handle integer(c_int64_t) :: n + real(c_float),target :: alpha real(c_float),target :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex real(c_float),target :: y integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount - type(c_ptr) :: myResult ! - hipblasSdotStridedBatched_64_rank_0 = hipblasSdotStridedBatched_64_(handle,n,c_loc(x),incx, & - stridex,c_loc(y),incy,stridey,batchCount,myResult) + hipblasSaxpy_64_rank_0 = hipblasSaxpy_64_(handle,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy) end function - function hipblasSdotStridedBatched_64_rank_1(handle,n,x,incx,stridex,y,incy,stridey, & - batchCount,myResult) - use iso_c_binding + function hipblasSaxpy_64_rank_0_devptr(handle,n,alpha,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdotStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpy_64_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target :: x + integer(c_int64_t) :: incx + real(c_float),target :: y + integer(c_int64_t) :: incy + ! + hipblasSaxpy_64_rank_0_devptr = hipblasSaxpy_64_(handle,n,alpha,c_loc(x),incx,c_loc(y),incy) + end function + + function hipblasSaxpy_64_rank_1(handle,n,alpha,x,incx,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpy_64_rank_1 type(c_ptr), value :: handle integer(c_int64_t) :: n + real(c_float),target :: alpha real(c_float),target,dimension(:) :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex real(c_float),target,dimension(:) :: y integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount - type(c_ptr) :: myResult ! - hipblasSdotStridedBatched_64_rank_1 = hipblasSdotStridedBatched_64_(handle,n,c_loc(x),incx, & - stridex,c_loc(y),incy,stridey,batchCount,myResult) + hipblasSaxpy_64_rank_1 = hipblasSaxpy_64_(handle,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy) + end function + + function hipblasSaxpy_64_rank_1_devptr(handle,n,alpha,x,incx,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpy_64_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasSaxpy_64_rank_1_devptr = hipblasSaxpy_64_(handle,n,alpha,c_loc(x),incx,c_loc(y),incy) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasDdotStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & - batchCount,myResult) - use iso_c_binding + function hipblasDaxpy_64_assumed_rank(handle,n,alpha,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdotStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpy_64_assumed_rank type(c_ptr), value :: handle integer(c_int64_t) :: n + real(c_double),target :: alpha real(c_double),target,dimension(..) :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex real(c_double),target,dimension(..) :: y integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount - type(c_ptr) :: myResult ! - hipblasDdotStridedBatched_64_assumed_rank = hipblasDdotStridedBatched_64_(handle,n,c_loc(x), & - incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) + hipblasDaxpy_64_assumed_rank = hipblasDaxpy_64_(handle,n,c_loc(alpha),c_loc(x),incx, & + c_loc(y),incy) + end function + + function hipblasDaxpy_64_assumed_rank_devptr(handle,n,alpha,x,incx,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpy_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: incy + ! + hipblasDaxpy_64_assumed_rank_devptr = hipblasDaxpy_64_(handle,n,alpha,c_loc(x),incx, & + c_loc(y),incy) end function #else - function hipblasDdotStridedBatched_64_rank_0(handle,n,x,incx,stridex,y,incy,stridey, & - batchCount,myResult) - use iso_c_binding + function hipblasDaxpy_64_rank_0(handle,n,alpha,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdotStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpy_64_rank_0 type(c_ptr), value :: handle integer(c_int64_t) :: n + real(c_double),target :: alpha real(c_double),target :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex real(c_double),target :: y integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount - type(c_ptr) :: myResult ! - hipblasDdotStridedBatched_64_rank_0 = hipblasDdotStridedBatched_64_(handle,n,c_loc(x),incx, & - stridex,c_loc(y),incy,stridey,batchCount,myResult) + hipblasDaxpy_64_rank_0 = hipblasDaxpy_64_(handle,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy) end function - function hipblasDdotStridedBatched_64_rank_1(handle,n,x,incx,stridex,y,incy,stridey, & - batchCount,myResult) - use iso_c_binding + function hipblasDaxpy_64_rank_0_devptr(handle,n,alpha,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdotStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpy_64_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target :: x + integer(c_int64_t) :: incx + real(c_double),target :: y + integer(c_int64_t) :: incy + ! + hipblasDaxpy_64_rank_0_devptr = hipblasDaxpy_64_(handle,n,alpha,c_loc(x),incx,c_loc(y),incy) + end function + + function hipblasDaxpy_64_rank_1(handle,n,alpha,x,incx,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpy_64_rank_1 type(c_ptr), value :: handle integer(c_int64_t) :: n + real(c_double),target :: alpha real(c_double),target,dimension(:) :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex real(c_double),target,dimension(:) :: y integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount - type(c_ptr) :: myResult ! - hipblasDdotStridedBatched_64_rank_1 = hipblasDdotStridedBatched_64_(handle,n,c_loc(x),incx, & - stridex,c_loc(y),incy,stridey,batchCount,myResult) + hipblasDaxpy_64_rank_1 = hipblasDaxpy_64_(handle,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy) + end function + + function hipblasDaxpy_64_rank_1_devptr(handle,n,alpha,x,incx,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpy_64_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasDaxpy_64_rank_1_devptr = hipblasDaxpy_64_(handle,n,alpha,c_loc(x),incx,c_loc(y),incy) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCdotcStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & - batchCount,myResult) - use iso_c_binding + function hipblasCaxpy_64_assumed_rank(handle,n,alpha,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotcStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpy_64_assumed_rank type(c_ptr), value :: handle integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha complex(c_float_complex),target,dimension(..) :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex complex(c_float_complex),target,dimension(..) :: y integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount - type(c_ptr) :: myResult ! - hipblasCdotcStridedBatched_64_assumed_rank = hipblasCdotcStridedBatched_64_(handle,n, & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) + hipblasCaxpy_64_assumed_rank = hipblasCaxpy_64_(handle,n,c_loc(alpha),c_loc(x),incx, & + c_loc(y),incy) end function -#else - function hipblasCdotcStridedBatched_64_rank_0(handle,n,x,incx,stridex,y,incy,stridey, & - batchCount,myResult) - use iso_c_binding + function hipblasCaxpy_64_assumed_rank_devptr(handle,n,alpha,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotcStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpy_64_assumed_rank_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n - complex(c_float_complex),target :: x + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - complex(c_float_complex),target :: y + complex(c_float_complex),target,dimension(..) :: y integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount - type(c_ptr) :: myResult ! - hipblasCdotcStridedBatched_64_rank_0 = hipblasCdotcStridedBatched_64_(handle,n,c_loc(x), & - incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) + hipblasCaxpy_64_assumed_rank_devptr = hipblasCaxpy_64_(handle,n,alpha,c_loc(x),incx, & + c_loc(y),incy) end function - function hipblasCdotcStridedBatched_64_rank_1(handle,n,x,incx,stridex,y,incy,stridey, & - batchCount,myResult) - use iso_c_binding +#else + function hipblasCaxpy_64_rank_0(handle,n,alpha,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotcStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpy_64_rank_0 type(c_ptr), value :: handle integer(c_int64_t) :: n - complex(c_float_complex),target,dimension(:) :: x + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - complex(c_float_complex),target,dimension(:) :: y + complex(c_float_complex),target :: y integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount - type(c_ptr) :: myResult ! - hipblasCdotcStridedBatched_64_rank_1 = hipblasCdotcStridedBatched_64_(handle,n,c_loc(x), & - incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) + hipblasCaxpy_64_rank_0 = hipblasCaxpy_64_(handle,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCdotuStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & - batchCount,myResult) - use iso_c_binding + function hipblasCaxpy_64_rank_0_devptr(handle,n,alpha,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotuStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpy_64_rank_0_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n - complex(c_float_complex),target,dimension(..) :: x + type(c_ptr),value :: alpha + complex(c_float_complex),target :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - complex(c_float_complex),target,dimension(..) :: y + complex(c_float_complex),target :: y integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount - type(c_ptr) :: myResult ! - hipblasCdotuStridedBatched_64_assumed_rank = hipblasCdotuStridedBatched_64_(handle,n, & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) + hipblasCaxpy_64_rank_0_devptr = hipblasCaxpy_64_(handle,n,alpha,c_loc(x),incx,c_loc(y),incy) end function -#else - function hipblasCdotuStridedBatched_64_rank_0(handle,n,x,incx,stridex,y,incy,stridey, & - batchCount,myResult) - use iso_c_binding + function hipblasCaxpy_64_rank_1(handle,n,alpha,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotuStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpy_64_rank_1 type(c_ptr), value :: handle integer(c_int64_t) :: n - complex(c_float_complex),target :: x + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - complex(c_float_complex),target :: y + complex(c_float_complex),target,dimension(:) :: y integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount - type(c_ptr) :: myResult ! - hipblasCdotuStridedBatched_64_rank_0 = hipblasCdotuStridedBatched_64_(handle,n,c_loc(x), & - incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) + hipblasCaxpy_64_rank_1 = hipblasCaxpy_64_(handle,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy) end function - function hipblasCdotuStridedBatched_64_rank_1(handle,n,x,incx,stridex,y,incy,stridey, & - batchCount,myResult) - use iso_c_binding + function hipblasCaxpy_64_rank_1_devptr(handle,n,alpha,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotuStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpy_64_rank_1_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n + type(c_ptr),value :: alpha complex(c_float_complex),target,dimension(:) :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex complex(c_float_complex),target,dimension(:) :: y integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount - type(c_ptr) :: myResult ! - hipblasCdotuStridedBatched_64_rank_1 = hipblasCdotuStridedBatched_64_(handle,n,c_loc(x), & - incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) + hipblasCaxpy_64_rank_1_devptr = hipblasCaxpy_64_(handle,n,alpha,c_loc(x),incx,c_loc(y),incy) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasZdotcStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & - batchCount,myResult) - use iso_c_binding + function hipblasZaxpy_64_assumed_rank(handle,n,alpha,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotcStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpy_64_assumed_rank type(c_ptr), value :: handle integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha complex(c_double_complex),target,dimension(..) :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex complex(c_double_complex),target,dimension(..) :: y integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount - type(c_ptr) :: myResult ! - hipblasZdotcStridedBatched_64_assumed_rank = hipblasZdotcStridedBatched_64_(handle,n, & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) + hipblasZaxpy_64_assumed_rank = hipblasZaxpy_64_(handle,n,c_loc(alpha),c_loc(x),incx, & + c_loc(y),incy) end function -#else - function hipblasZdotcStridedBatched_64_rank_0(handle,n,x,incx,stridex,y,incy,stridey, & - batchCount,myResult) - use iso_c_binding + function hipblasZaxpy_64_assumed_rank_devptr(handle,n,alpha,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotcStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpy_64_assumed_rank_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n - complex(c_double_complex),target :: x + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - complex(c_double_complex),target :: y + complex(c_double_complex),target,dimension(..) :: y integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount - type(c_ptr) :: myResult ! - hipblasZdotcStridedBatched_64_rank_0 = hipblasZdotcStridedBatched_64_(handle,n,c_loc(x), & - incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) + hipblasZaxpy_64_assumed_rank_devptr = hipblasZaxpy_64_(handle,n,alpha,c_loc(x),incx, & + c_loc(y),incy) end function - function hipblasZdotcStridedBatched_64_rank_1(handle,n,x,incx,stridex,y,incy,stridey, & - batchCount,myResult) - use iso_c_binding +#else + function hipblasZaxpy_64_rank_0(handle,n,alpha,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotcStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpy_64_rank_0 type(c_ptr), value :: handle integer(c_int64_t) :: n - complex(c_double_complex),target,dimension(:) :: x + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - complex(c_double_complex),target,dimension(:) :: y + complex(c_double_complex),target :: y integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount - type(c_ptr) :: myResult ! - hipblasZdotcStridedBatched_64_rank_1 = hipblasZdotcStridedBatched_64_(handle,n,c_loc(x), & - incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) + hipblasZaxpy_64_rank_0 = hipblasZaxpy_64_(handle,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZdotuStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & - batchCount,myResult) - use iso_c_binding + function hipblasZaxpy_64_rank_0_devptr(handle,n,alpha,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotuStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpy_64_rank_0_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n - complex(c_double_complex),target,dimension(..) :: x + type(c_ptr),value :: alpha + complex(c_double_complex),target :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - complex(c_double_complex),target,dimension(..) :: y + complex(c_double_complex),target :: y integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount - type(c_ptr) :: myResult ! - hipblasZdotuStridedBatched_64_assumed_rank = hipblasZdotuStridedBatched_64_(handle,n, & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) + hipblasZaxpy_64_rank_0_devptr = hipblasZaxpy_64_(handle,n,alpha,c_loc(x),incx,c_loc(y),incy) end function -#else - function hipblasZdotuStridedBatched_64_rank_0(handle,n,x,incx,stridex,y,incy,stridey, & - batchCount,myResult) - use iso_c_binding + function hipblasZaxpy_64_rank_1(handle,n,alpha,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotuStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpy_64_rank_1 type(c_ptr), value :: handle integer(c_int64_t) :: n - complex(c_double_complex),target :: x + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - complex(c_double_complex),target :: y + complex(c_double_complex),target,dimension(:) :: y integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount - type(c_ptr) :: myResult ! - hipblasZdotuStridedBatched_64_rank_0 = hipblasZdotuStridedBatched_64_(handle,n,c_loc(x), & - incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) + hipblasZaxpy_64_rank_1 = hipblasZaxpy_64_(handle,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy) end function - function hipblasZdotuStridedBatched_64_rank_1(handle,n,x,incx,stridex,y,incy,stridey, & - batchCount,myResult) - use iso_c_binding + function hipblasZaxpy_64_rank_1_devptr(handle,n,alpha,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotuStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpy_64_rank_1_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n + type(c_ptr),value :: alpha complex(c_double_complex),target,dimension(:) :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex complex(c_double_complex),target,dimension(:) :: y integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount - type(c_ptr) :: myResult ! - hipblasZdotuStridedBatched_64_rank_1 = hipblasZdotuStridedBatched_64_(handle,n,c_loc(x), & - incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) + hipblasZaxpy_64_rank_1_devptr = hipblasZaxpy_64_(handle,n,alpha,c_loc(x),incx,c_loc(y),incy) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasSnrm2_assumed_rank(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasSaxpyStridedBatched_assumed_rank(handle,n,alpha,x,incx,stridex,y,incy,stridey, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpyStridedBatched_assumed_rank type(c_ptr), value :: handle integer(c_int) :: n + real(c_float),target :: alpha real(c_float),target,dimension(..) :: x integer(c_int) :: incx - real(c_float),target :: myResult + integer(c_int64_t) :: stridex + real(c_float),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount ! - hipblasSnrm2_assumed_rank = hipblasSnrm2_(handle,n,c_loc(x),incx,c_loc(myResult)) + hipblasSaxpyStridedBatched_assumed_rank = hipblasSaxpyStridedBatched_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) end function - function hipblasSnrm2_assumed_rank_devptr(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasSaxpyStridedBatched_assumed_rank_devptr(handle,n,alpha,x,incx,stridex,y,incy, & + stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2_assumed_rank_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpyStridedBatched_assumed_rank_devptr type(c_ptr), value :: handle integer(c_int) :: n + type(c_ptr),value :: alpha real(c_float),target,dimension(..) :: x integer(c_int) :: incx - type(c_ptr),value :: myResult + integer(c_int64_t) :: stridex + real(c_float),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount ! - hipblasSnrm2_assumed_rank_devptr = hipblasSnrm2_(handle,n,c_loc(x),incx,myResult) + hipblasSaxpyStridedBatched_assumed_rank_devptr = hipblasSaxpyStridedBatched_(handle,n,alpha, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) end function #else - function hipblasSnrm2_rank_0(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasSaxpyStridedBatched_rank_0(handle,n,alpha,x,incx,stridex,y,incy,stridey, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpyStridedBatched_rank_0 type(c_ptr), value :: handle integer(c_int) :: n + real(c_float),target :: alpha real(c_float),target :: x integer(c_int) :: incx - real(c_float),target :: myResult + integer(c_int64_t) :: stridex + real(c_float),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount ! - hipblasSnrm2_rank_0 = hipblasSnrm2_(handle,n,c_loc(x),incx,c_loc(myResult)) + hipblasSaxpyStridedBatched_rank_0 = hipblasSaxpyStridedBatched_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) end function - function hipblasSnrm2_rank_0_devptr(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasSaxpyStridedBatched_rank_0_devptr(handle,n,alpha,x,incx,stridex,y,incy, & + stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2_rank_0_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpyStridedBatched_rank_0_devptr type(c_ptr), value :: handle integer(c_int) :: n + type(c_ptr),value :: alpha real(c_float),target :: x integer(c_int) :: incx - type(c_ptr),value :: myResult + integer(c_int64_t) :: stridex + real(c_float),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount ! - hipblasSnrm2_rank_0_devptr = hipblasSnrm2_(handle,n,c_loc(x),incx,myResult) + hipblasSaxpyStridedBatched_rank_0_devptr = hipblasSaxpyStridedBatched_(handle,n,alpha, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) end function - function hipblasSnrm2_rank_1(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasSaxpyStridedBatched_rank_1(handle,n,alpha,x,incx,stridex,y,incy,stridey, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpyStridedBatched_rank_1 type(c_ptr), value :: handle integer(c_int) :: n + real(c_float),target :: alpha real(c_float),target,dimension(:) :: x integer(c_int) :: incx - real(c_float),target :: myResult + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount ! - hipblasSnrm2_rank_1 = hipblasSnrm2_(handle,n,c_loc(x),incx,c_loc(myResult)) + hipblasSaxpyStridedBatched_rank_1 = hipblasSaxpyStridedBatched_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) end function - function hipblasSnrm2_rank_1_devptr(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasSaxpyStridedBatched_rank_1_devptr(handle,n,alpha,x,incx,stridex,y,incy, & + stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2_rank_1_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpyStridedBatched_rank_1_devptr type(c_ptr), value :: handle integer(c_int) :: n + type(c_ptr),value :: alpha real(c_float),target,dimension(:) :: x integer(c_int) :: incx - type(c_ptr),value :: myResult + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount ! - hipblasSnrm2_rank_1_devptr = hipblasSnrm2_(handle,n,c_loc(x),incx,myResult) + hipblasSaxpyStridedBatched_rank_1_devptr = hipblasSaxpyStridedBatched_(handle,n,alpha, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDnrm2_assumed_rank(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasSaxpyStridedBatched_strided_rank(handle,n,alpha,x,incx,stridex,y,incy,stridey, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpyStridedBatched_strided_rank type(c_ptr), value :: handle integer(c_int) :: n - real(c_double),target,dimension(..) :: x + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: x integer(c_int) :: incx - real(c_double),target :: myResult + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount ! - hipblasDnrm2_assumed_rank = hipblasDnrm2_(handle,n,c_loc(x),incx,c_loc(myResult)) + hipblasSaxpyStridedBatched_strided_rank = hipblasSaxpyStridedBatched_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) end function - function hipblasDnrm2_assumed_rank_devptr(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasSaxpyStridedBatched_strided_rank_devptr(handle,n,alpha,x,incx,stridex,y,incy, & + stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2_assumed_rank_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpyStridedBatched_strided_rank_devptr type(c_ptr), value :: handle integer(c_int) :: n - real(c_double),target,dimension(..) :: x + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:) :: x integer(c_int) :: incx - type(c_ptr),value :: myResult + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount ! - hipblasDnrm2_assumed_rank_devptr = hipblasDnrm2_(handle,n,c_loc(x),incx,myResult) + hipblasSaxpyStridedBatched_strided_rank_devptr = hipblasSaxpyStridedBatched_(handle,n,alpha, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) end function -#else - function hipblasDnrm2_rank_0(handle,n,x,incx,myResult) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDaxpyStridedBatched_assumed_rank(handle,n,alpha,x,incx,stridex,y,incy,stridey, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpyStridedBatched_assumed_rank type(c_ptr), value :: handle integer(c_int) :: n - real(c_double),target :: x + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: x integer(c_int) :: incx - real(c_double),target :: myResult + integer(c_int64_t) :: stridex + real(c_double),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount ! - hipblasDnrm2_rank_0 = hipblasDnrm2_(handle,n,c_loc(x),incx,c_loc(myResult)) + hipblasDaxpyStridedBatched_assumed_rank = hipblasDaxpyStridedBatched_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) end function - function hipblasDnrm2_rank_0_devptr(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasDaxpyStridedBatched_assumed_rank_devptr(handle,n,alpha,x,incx,stridex,y,incy, & + stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2_rank_0_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpyStridedBatched_assumed_rank_devptr type(c_ptr), value :: handle integer(c_int) :: n - real(c_double),target :: x + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: x integer(c_int) :: incx - type(c_ptr),value :: myResult + integer(c_int64_t) :: stridex + real(c_double),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount ! - hipblasDnrm2_rank_0_devptr = hipblasDnrm2_(handle,n,c_loc(x),incx,myResult) + hipblasDaxpyStridedBatched_assumed_rank_devptr = hipblasDaxpyStridedBatched_(handle,n,alpha, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) end function - function hipblasDnrm2_rank_1(handle,n,x,incx,myResult) - use iso_c_binding +#else + function hipblasDaxpyStridedBatched_rank_0(handle,n,alpha,x,incx,stridex,y,incy,stridey, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpyStridedBatched_rank_0 type(c_ptr), value :: handle integer(c_int) :: n - real(c_double),target,dimension(:) :: x + real(c_double),target :: alpha + real(c_double),target :: x integer(c_int) :: incx - real(c_double),target :: myResult + integer(c_int64_t) :: stridex + real(c_double),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount ! - hipblasDnrm2_rank_1 = hipblasDnrm2_(handle,n,c_loc(x),incx,c_loc(myResult)) + hipblasDaxpyStridedBatched_rank_0 = hipblasDaxpyStridedBatched_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) end function - function hipblasDnrm2_rank_1_devptr(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasDaxpyStridedBatched_rank_0_devptr(handle,n,alpha,x,incx,stridex,y,incy, & + stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2_rank_1_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpyStridedBatched_rank_0_devptr type(c_ptr), value :: handle integer(c_int) :: n - real(c_double),target,dimension(:) :: x - integer(c_int) :: incx - type(c_ptr),value :: myResult + type(c_ptr),value :: alpha + real(c_double),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount ! - hipblasDnrm2_rank_1_devptr = hipblasDnrm2_(handle,n,c_loc(x),incx,myResult) + hipblasDaxpyStridedBatched_rank_0_devptr = hipblasDaxpyStridedBatched_(handle,n,alpha, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasDaxpyStridedBatched_rank_1(handle,n,alpha,x,incx,stridex,y,incy,stridey, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpyStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasDaxpyStridedBatched_rank_1 = hipblasDaxpyStridedBatched_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasDaxpyStridedBatched_rank_1_devptr(handle,n,alpha,x,incx,stridex,y,incy, & + stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpyStridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasDaxpyStridedBatched_rank_1_devptr = hipblasDaxpyStridedBatched_(handle,n,alpha, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasDaxpyStridedBatched_strided_rank(handle,n,alpha,x,incx,stridex,y,incy,stridey, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpyStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasDaxpyStridedBatched_strided_rank = hipblasDaxpyStridedBatched_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasDaxpyStridedBatched_strided_rank_devptr(handle,n,alpha,x,incx,stridex,y,incy, & + stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpyStridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasDaxpyStridedBatched_strided_rank_devptr = hipblasDaxpyStridedBatched_(handle,n,alpha, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasScnrm2_assumed_rank(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasCaxpyStridedBatched_assumed_rank(handle,n,alpha,x,incx,stridex,y,incy,stridey, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpyStridedBatched_assumed_rank type(c_ptr), value :: handle integer(c_int) :: n + complex(c_float_complex),target :: alpha complex(c_float_complex),target,dimension(..) :: x integer(c_int) :: incx - real(c_float),target :: myResult + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount ! - hipblasScnrm2_assumed_rank = hipblasScnrm2_(handle,n,c_loc(x),incx,c_loc(myResult)) + hipblasCaxpyStridedBatched_assumed_rank = hipblasCaxpyStridedBatched_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) end function - function hipblasScnrm2_assumed_rank_devptr(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasCaxpyStridedBatched_assumed_rank_devptr(handle,n,alpha,x,incx,stridex,y,incy, & + stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2_assumed_rank_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpyStridedBatched_assumed_rank_devptr type(c_ptr), value :: handle integer(c_int) :: n + type(c_ptr),value :: alpha complex(c_float_complex),target,dimension(..) :: x integer(c_int) :: incx - type(c_ptr),value :: myResult + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount ! - hipblasScnrm2_assumed_rank_devptr = hipblasScnrm2_(handle,n,c_loc(x),incx,myResult) + hipblasCaxpyStridedBatched_assumed_rank_devptr = hipblasCaxpyStridedBatched_(handle,n,alpha, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) end function #else - function hipblasScnrm2_rank_0(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasCaxpyStridedBatched_rank_0(handle,n,alpha,x,incx,stridex,y,incy,stridey, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpyStridedBatched_rank_0 type(c_ptr), value :: handle integer(c_int) :: n + complex(c_float_complex),target :: alpha complex(c_float_complex),target :: x integer(c_int) :: incx - real(c_float),target :: myResult + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount ! - hipblasScnrm2_rank_0 = hipblasScnrm2_(handle,n,c_loc(x),incx,c_loc(myResult)) + hipblasCaxpyStridedBatched_rank_0 = hipblasCaxpyStridedBatched_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) end function - function hipblasScnrm2_rank_0_devptr(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasCaxpyStridedBatched_rank_0_devptr(handle,n,alpha,x,incx,stridex,y,incy, & + stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2_rank_0_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpyStridedBatched_rank_0_devptr type(c_ptr), value :: handle integer(c_int) :: n + type(c_ptr),value :: alpha complex(c_float_complex),target :: x integer(c_int) :: incx - type(c_ptr),value :: myResult + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount ! - hipblasScnrm2_rank_0_devptr = hipblasScnrm2_(handle,n,c_loc(x),incx,myResult) + hipblasCaxpyStridedBatched_rank_0_devptr = hipblasCaxpyStridedBatched_(handle,n,alpha, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) end function - function hipblasScnrm2_rank_1(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasCaxpyStridedBatched_rank_1(handle,n,alpha,x,incx,stridex,y,incy,stridey, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpyStridedBatched_rank_1 type(c_ptr), value :: handle integer(c_int) :: n + complex(c_float_complex),target :: alpha complex(c_float_complex),target,dimension(:) :: x integer(c_int) :: incx - real(c_float),target :: myResult + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount ! - hipblasScnrm2_rank_1 = hipblasScnrm2_(handle,n,c_loc(x),incx,c_loc(myResult)) + hipblasCaxpyStridedBatched_rank_1 = hipblasCaxpyStridedBatched_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) end function - function hipblasScnrm2_rank_1_devptr(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasCaxpyStridedBatched_rank_1_devptr(handle,n,alpha,x,incx,stridex,y,incy, & + stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2_rank_1_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpyStridedBatched_rank_1_devptr type(c_ptr), value :: handle integer(c_int) :: n + type(c_ptr),value :: alpha complex(c_float_complex),target,dimension(:) :: x integer(c_int) :: incx - type(c_ptr),value :: myResult + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount ! - hipblasScnrm2_rank_1_devptr = hipblasScnrm2_(handle,n,c_loc(x),incx,myResult) + hipblasCaxpyStridedBatched_rank_1_devptr = hipblasCaxpyStridedBatched_(handle,n,alpha, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasCaxpyStridedBatched_strided_rank(handle,n,alpha,x,incx,stridex,y,incy,stridey, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpyStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasCaxpyStridedBatched_strided_rank = hipblasCaxpyStridedBatched_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasCaxpyStridedBatched_strided_rank_devptr(handle,n,alpha,x,incx,stridex,y,incy, & + stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpyStridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasCaxpyStridedBatched_strided_rank_devptr = hipblasCaxpyStridedBatched_(handle,n,alpha, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasDznrm2_assumed_rank(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasZaxpyStridedBatched_assumed_rank(handle,n,alpha,x,incx,stridex,y,incy,stridey, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpyStridedBatched_assumed_rank type(c_ptr), value :: handle integer(c_int) :: n + complex(c_double_complex),target :: alpha complex(c_double_complex),target,dimension(..) :: x integer(c_int) :: incx - real(c_double),target :: myResult + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount ! - hipblasDznrm2_assumed_rank = hipblasDznrm2_(handle,n,c_loc(x),incx,c_loc(myResult)) + hipblasZaxpyStridedBatched_assumed_rank = hipblasZaxpyStridedBatched_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) end function - function hipblasDznrm2_assumed_rank_devptr(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasZaxpyStridedBatched_assumed_rank_devptr(handle,n,alpha,x,incx,stridex,y,incy, & + stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2_assumed_rank_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpyStridedBatched_assumed_rank_devptr type(c_ptr), value :: handle integer(c_int) :: n + type(c_ptr),value :: alpha complex(c_double_complex),target,dimension(..) :: x integer(c_int) :: incx - type(c_ptr),value :: myResult + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount ! - hipblasDznrm2_assumed_rank_devptr = hipblasDznrm2_(handle,n,c_loc(x),incx,myResult) + hipblasZaxpyStridedBatched_assumed_rank_devptr = hipblasZaxpyStridedBatched_(handle,n,alpha, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) end function #else - function hipblasDznrm2_rank_0(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasZaxpyStridedBatched_rank_0(handle,n,alpha,x,incx,stridex,y,incy,stridey, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpyStridedBatched_rank_0 type(c_ptr), value :: handle integer(c_int) :: n + complex(c_double_complex),target :: alpha complex(c_double_complex),target :: x integer(c_int) :: incx - real(c_double),target :: myResult + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount ! - hipblasDznrm2_rank_0 = hipblasDznrm2_(handle,n,c_loc(x),incx,c_loc(myResult)) + hipblasZaxpyStridedBatched_rank_0 = hipblasZaxpyStridedBatched_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) end function - function hipblasDznrm2_rank_0_devptr(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasZaxpyStridedBatched_rank_0_devptr(handle,n,alpha,x,incx,stridex,y,incy, & + stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2_rank_0_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpyStridedBatched_rank_0_devptr type(c_ptr), value :: handle integer(c_int) :: n + type(c_ptr),value :: alpha complex(c_double_complex),target :: x integer(c_int) :: incx - type(c_ptr),value :: myResult + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount ! - hipblasDznrm2_rank_0_devptr = hipblasDznrm2_(handle,n,c_loc(x),incx,myResult) + hipblasZaxpyStridedBatched_rank_0_devptr = hipblasZaxpyStridedBatched_(handle,n,alpha, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) end function - function hipblasDznrm2_rank_1(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasZaxpyStridedBatched_rank_1(handle,n,alpha,x,incx,stridex,y,incy,stridey, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpyStridedBatched_rank_1 type(c_ptr), value :: handle integer(c_int) :: n + complex(c_double_complex),target :: alpha complex(c_double_complex),target,dimension(:) :: x integer(c_int) :: incx - real(c_double),target :: myResult + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount ! - hipblasDznrm2_rank_1 = hipblasDznrm2_(handle,n,c_loc(x),incx,c_loc(myResult)) + hipblasZaxpyStridedBatched_rank_1 = hipblasZaxpyStridedBatched_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) end function - function hipblasDznrm2_rank_1_devptr(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasZaxpyStridedBatched_rank_1_devptr(handle,n,alpha,x,incx,stridex,y,incy, & + stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2_rank_1_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpyStridedBatched_rank_1_devptr type(c_ptr), value :: handle integer(c_int) :: n + type(c_ptr),value :: alpha complex(c_double_complex),target,dimension(:) :: x integer(c_int) :: incx - type(c_ptr),value :: myResult + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount ! - hipblasDznrm2_rank_1_devptr = hipblasDznrm2_(handle,n,c_loc(x),incx,myResult) + hipblasZaxpyStridedBatched_rank_1_devptr = hipblasZaxpyStridedBatched_(handle,n,alpha, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasZaxpyStridedBatched_strided_rank(handle,n,alpha,x,incx,stridex,y,incy,stridey, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpyStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZaxpyStridedBatched_strided_rank = hipblasZaxpyStridedBatched_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasZaxpyStridedBatched_strided_rank_devptr(handle,n,alpha,x,incx,stridex,y,incy, & + stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpyStridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZaxpyStridedBatched_strided_rank_devptr = hipblasZaxpyStridedBatched_(handle,n,alpha, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasSnrm2_64_assumed_rank(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasSaxpyStridedBatched_64_assumed_rank(handle,n,alpha,x,incx,stridex,y,incy, & + stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpyStridedBatched_64_assumed_rank type(c_ptr), value :: handle integer(c_int64_t) :: n + real(c_float),target :: alpha real(c_float),target,dimension(..) :: x integer(c_int64_t) :: incx - real(c_float),target :: myResult + integer(c_int64_t) :: stridex + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasSnrm2_64_assumed_rank = hipblasSnrm2_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + hipblasSaxpyStridedBatched_64_assumed_rank = hipblasSaxpyStridedBatched_64_(handle,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) end function - function hipblasSnrm2_64_assumed_rank_devptr(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasSaxpyStridedBatched_64_assumed_rank_devptr(handle,n,alpha,x,incx,stridex,y, & + incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2_64_assumed_rank_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpyStridedBatched_64_assumed_rank_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n + type(c_ptr),value :: alpha real(c_float),target,dimension(..) :: x integer(c_int64_t) :: incx - type(c_ptr),value :: myResult + integer(c_int64_t) :: stridex + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasSnrm2_64_assumed_rank_devptr = hipblasSnrm2_64_(handle,n,c_loc(x),incx,myResult) + hipblasSaxpyStridedBatched_64_assumed_rank_devptr = hipblasSaxpyStridedBatched_64_(handle,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) end function #else - function hipblasSnrm2_64_rank_0(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasSaxpyStridedBatched_64_rank_0(handle,n,alpha,x,incx,stridex,y,incy,stridey, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpyStridedBatched_64_rank_0 type(c_ptr), value :: handle integer(c_int64_t) :: n + real(c_float),target :: alpha real(c_float),target :: x integer(c_int64_t) :: incx - real(c_float),target :: myResult + integer(c_int64_t) :: stridex + real(c_float),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasSnrm2_64_rank_0 = hipblasSnrm2_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + hipblasSaxpyStridedBatched_64_rank_0 = hipblasSaxpyStridedBatched_64_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) end function - function hipblasSnrm2_64_rank_0_devptr(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasSaxpyStridedBatched_64_rank_0_devptr(handle,n,alpha,x,incx,stridex,y,incy, & + stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2_64_rank_0_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpyStridedBatched_64_rank_0_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n + type(c_ptr),value :: alpha real(c_float),target :: x integer(c_int64_t) :: incx - type(c_ptr),value :: myResult + integer(c_int64_t) :: stridex + real(c_float),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasSnrm2_64_rank_0_devptr = hipblasSnrm2_64_(handle,n,c_loc(x),incx,myResult) + hipblasSaxpyStridedBatched_64_rank_0_devptr = hipblasSaxpyStridedBatched_64_(handle,n,alpha, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) end function - function hipblasSnrm2_64_rank_1(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasSaxpyStridedBatched_64_rank_1(handle,n,alpha,x,incx,stridex,y,incy,stridey, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpyStridedBatched_64_rank_1 type(c_ptr), value :: handle integer(c_int64_t) :: n + real(c_float),target :: alpha real(c_float),target,dimension(:) :: x integer(c_int64_t) :: incx - real(c_float),target :: myResult + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasSnrm2_64_rank_1 = hipblasSnrm2_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + hipblasSaxpyStridedBatched_64_rank_1 = hipblasSaxpyStridedBatched_64_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) end function - function hipblasSnrm2_64_rank_1_devptr(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasSaxpyStridedBatched_64_rank_1_devptr(handle,n,alpha,x,incx,stridex,y,incy, & + stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2_64_rank_1_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpyStridedBatched_64_rank_1_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n + type(c_ptr),value :: alpha real(c_float),target,dimension(:) :: x integer(c_int64_t) :: incx - type(c_ptr),value :: myResult + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasSnrm2_64_rank_1_devptr = hipblasSnrm2_64_(handle,n,c_loc(x),incx,myResult) + hipblasSaxpyStridedBatched_64_rank_1_devptr = hipblasSaxpyStridedBatched_64_(handle,n,alpha, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasSaxpyStridedBatched_64_strided_rank(handle,n,alpha,x,incx,stridex,y,incy, & + stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpyStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasSaxpyStridedBatched_64_strided_rank = hipblasSaxpyStridedBatched_64_(handle,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasSaxpyStridedBatched_64_strided_rank_devptr(handle,n,alpha,x,incx,stridex,y, & + incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSaxpyStridedBatched_64_strided_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasSaxpyStridedBatched_64_strided_rank_devptr = hipblasSaxpyStridedBatched_64_(handle,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasDnrm2_64_assumed_rank(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasDaxpyStridedBatched_64_assumed_rank(handle,n,alpha,x,incx,stridex,y,incy, & + stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpyStridedBatched_64_assumed_rank type(c_ptr), value :: handle integer(c_int64_t) :: n + real(c_double),target :: alpha real(c_double),target,dimension(..) :: x integer(c_int64_t) :: incx - real(c_double),target :: myResult + integer(c_int64_t) :: stridex + real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasDnrm2_64_assumed_rank = hipblasDnrm2_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + hipblasDaxpyStridedBatched_64_assumed_rank = hipblasDaxpyStridedBatched_64_(handle,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) end function - function hipblasDnrm2_64_assumed_rank_devptr(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasDaxpyStridedBatched_64_assumed_rank_devptr(handle,n,alpha,x,incx,stridex,y, & + incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2_64_assumed_rank_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpyStridedBatched_64_assumed_rank_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n + type(c_ptr),value :: alpha real(c_double),target,dimension(..) :: x integer(c_int64_t) :: incx - type(c_ptr),value :: myResult + integer(c_int64_t) :: stridex + real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasDnrm2_64_assumed_rank_devptr = hipblasDnrm2_64_(handle,n,c_loc(x),incx,myResult) + hipblasDaxpyStridedBatched_64_assumed_rank_devptr = hipblasDaxpyStridedBatched_64_(handle,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) end function #else - function hipblasDnrm2_64_rank_0(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasDaxpyStridedBatched_64_rank_0(handle,n,alpha,x,incx,stridex,y,incy,stridey, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpyStridedBatched_64_rank_0 type(c_ptr), value :: handle integer(c_int64_t) :: n + real(c_double),target :: alpha real(c_double),target :: x integer(c_int64_t) :: incx - real(c_double),target :: myResult + integer(c_int64_t) :: stridex + real(c_double),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasDnrm2_64_rank_0 = hipblasDnrm2_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + hipblasDaxpyStridedBatched_64_rank_0 = hipblasDaxpyStridedBatched_64_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) end function - function hipblasDnrm2_64_rank_0_devptr(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasDaxpyStridedBatched_64_rank_0_devptr(handle,n,alpha,x,incx,stridex,y,incy, & + stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2_64_rank_0_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpyStridedBatched_64_rank_0_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n + type(c_ptr),value :: alpha real(c_double),target :: x integer(c_int64_t) :: incx - type(c_ptr),value :: myResult + integer(c_int64_t) :: stridex + real(c_double),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasDnrm2_64_rank_0_devptr = hipblasDnrm2_64_(handle,n,c_loc(x),incx,myResult) + hipblasDaxpyStridedBatched_64_rank_0_devptr = hipblasDaxpyStridedBatched_64_(handle,n,alpha, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) end function - function hipblasDnrm2_64_rank_1(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasDaxpyStridedBatched_64_rank_1(handle,n,alpha,x,incx,stridex,y,incy,stridey, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpyStridedBatched_64_rank_1 type(c_ptr), value :: handle integer(c_int64_t) :: n + real(c_double),target :: alpha real(c_double),target,dimension(:) :: x integer(c_int64_t) :: incx - real(c_double),target :: myResult + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasDnrm2_64_rank_1 = hipblasDnrm2_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + hipblasDaxpyStridedBatched_64_rank_1 = hipblasDaxpyStridedBatched_64_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) end function - function hipblasDnrm2_64_rank_1_devptr(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasDaxpyStridedBatched_64_rank_1_devptr(handle,n,alpha,x,incx,stridex,y,incy, & + stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2_64_rank_1_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpyStridedBatched_64_rank_1_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n + type(c_ptr),value :: alpha real(c_double),target,dimension(:) :: x integer(c_int64_t) :: incx - type(c_ptr),value :: myResult + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasDnrm2_64_rank_1_devptr = hipblasDnrm2_64_(handle,n,c_loc(x),incx,myResult) + hipblasDaxpyStridedBatched_64_rank_1_devptr = hipblasDaxpyStridedBatched_64_(handle,n,alpha, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasScnrm2_64_assumed_rank(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasDaxpyStridedBatched_64_strided_rank(handle,n,alpha,x,incx,stridex,y,incy, & + stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpyStridedBatched_64_strided_rank type(c_ptr), value :: handle integer(c_int64_t) :: n - complex(c_float_complex),target,dimension(..) :: x + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: x integer(c_int64_t) :: incx - real(c_float),target :: myResult + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasScnrm2_64_assumed_rank = hipblasScnrm2_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + hipblasDaxpyStridedBatched_64_strided_rank = hipblasDaxpyStridedBatched_64_(handle,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) end function - function hipblasScnrm2_64_assumed_rank_devptr(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasDaxpyStridedBatched_64_strided_rank_devptr(handle,n,alpha,x,incx,stridex,y, & + incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2_64_assumed_rank_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDaxpyStridedBatched_64_strided_rank_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n - complex(c_float_complex),target,dimension(..) :: x + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:) :: x integer(c_int64_t) :: incx - type(c_ptr),value :: myResult + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasScnrm2_64_assumed_rank_devptr = hipblasScnrm2_64_(handle,n,c_loc(x),incx,myResult) + hipblasDaxpyStridedBatched_64_strided_rank_devptr = hipblasDaxpyStridedBatched_64_(handle,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) end function -#else - function hipblasScnrm2_64_rank_0(handle,n,x,incx,myResult) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCaxpyStridedBatched_64_assumed_rank(handle,n,alpha,x,incx,stridex,y,incy, & + stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpyStridedBatched_64_assumed_rank type(c_ptr), value :: handle integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasCaxpyStridedBatched_64_assumed_rank = hipblasCaxpyStridedBatched_64_(handle,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasCaxpyStridedBatched_64_assumed_rank_devptr(handle,n,alpha,x,incx,stridex,y, & + incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpyStridedBatched_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasCaxpyStridedBatched_64_assumed_rank_devptr = hipblasCaxpyStridedBatched_64_(handle,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + +#else + function hipblasCaxpyStridedBatched_64_rank_0(handle,n,alpha,x,incx,stridex,y,incy,stridey, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpyStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha complex(c_float_complex),target :: x integer(c_int64_t) :: incx - real(c_float),target :: myResult + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasScnrm2_64_rank_0 = hipblasScnrm2_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + hipblasCaxpyStridedBatched_64_rank_0 = hipblasCaxpyStridedBatched_64_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) end function - function hipblasScnrm2_64_rank_0_devptr(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasCaxpyStridedBatched_64_rank_0_devptr(handle,n,alpha,x,incx,stridex,y,incy, & + stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2_64_rank_0_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpyStridedBatched_64_rank_0_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n + type(c_ptr),value :: alpha complex(c_float_complex),target :: x integer(c_int64_t) :: incx - type(c_ptr),value :: myResult + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasScnrm2_64_rank_0_devptr = hipblasScnrm2_64_(handle,n,c_loc(x),incx,myResult) + hipblasCaxpyStridedBatched_64_rank_0_devptr = hipblasCaxpyStridedBatched_64_(handle,n,alpha, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) end function - function hipblasScnrm2_64_rank_1(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasCaxpyStridedBatched_64_rank_1(handle,n,alpha,x,incx,stridex,y,incy,stridey, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpyStridedBatched_64_rank_1 type(c_ptr), value :: handle integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha complex(c_float_complex),target,dimension(:) :: x integer(c_int64_t) :: incx - real(c_float),target :: myResult + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasScnrm2_64_rank_1 = hipblasScnrm2_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + hipblasCaxpyStridedBatched_64_rank_1 = hipblasCaxpyStridedBatched_64_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) end function - function hipblasScnrm2_64_rank_1_devptr(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasCaxpyStridedBatched_64_rank_1_devptr(handle,n,alpha,x,incx,stridex,y,incy, & + stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2_64_rank_1_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpyStridedBatched_64_rank_1_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n + type(c_ptr),value :: alpha complex(c_float_complex),target,dimension(:) :: x integer(c_int64_t) :: incx - type(c_ptr),value :: myResult + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasScnrm2_64_rank_1_devptr = hipblasScnrm2_64_(handle,n,c_loc(x),incx,myResult) + hipblasCaxpyStridedBatched_64_rank_1_devptr = hipblasCaxpyStridedBatched_64_(handle,n,alpha, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasCaxpyStridedBatched_64_strided_rank(handle,n,alpha,x,incx,stridex,y,incy, & + stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpyStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasCaxpyStridedBatched_64_strided_rank = hipblasCaxpyStridedBatched_64_(handle,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasCaxpyStridedBatched_64_strided_rank_devptr(handle,n,alpha,x,incx,stridex,y, & + incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCaxpyStridedBatched_64_strided_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasCaxpyStridedBatched_64_strided_rank_devptr = hipblasCaxpyStridedBatched_64_(handle,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasDznrm2_64_assumed_rank(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasZaxpyStridedBatched_64_assumed_rank(handle,n,alpha,x,incx,stridex,y,incy, & + stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpyStridedBatched_64_assumed_rank type(c_ptr), value :: handle integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha complex(c_double_complex),target,dimension(..) :: x integer(c_int64_t) :: incx - real(c_double),target :: myResult + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasDznrm2_64_assumed_rank = hipblasDznrm2_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + hipblasZaxpyStridedBatched_64_assumed_rank = hipblasZaxpyStridedBatched_64_(handle,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) end function - function hipblasDznrm2_64_assumed_rank_devptr(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasZaxpyStridedBatched_64_assumed_rank_devptr(handle,n,alpha,x,incx,stridex,y, & + incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2_64_assumed_rank_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpyStridedBatched_64_assumed_rank_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n + type(c_ptr),value :: alpha complex(c_double_complex),target,dimension(..) :: x integer(c_int64_t) :: incx - type(c_ptr),value :: myResult + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasDznrm2_64_assumed_rank_devptr = hipblasDznrm2_64_(handle,n,c_loc(x),incx,myResult) + hipblasZaxpyStridedBatched_64_assumed_rank_devptr = hipblasZaxpyStridedBatched_64_(handle,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) end function #else - function hipblasDznrm2_64_rank_0(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasZaxpyStridedBatched_64_rank_0(handle,n,alpha,x,incx,stridex,y,incy,stridey, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpyStridedBatched_64_rank_0 type(c_ptr), value :: handle integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha complex(c_double_complex),target :: x integer(c_int64_t) :: incx - real(c_double),target :: myResult + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasDznrm2_64_rank_0 = hipblasDznrm2_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + hipblasZaxpyStridedBatched_64_rank_0 = hipblasZaxpyStridedBatched_64_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) end function - function hipblasDznrm2_64_rank_0_devptr(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasZaxpyStridedBatched_64_rank_0_devptr(handle,n,alpha,x,incx,stridex,y,incy, & + stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2_64_rank_0_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpyStridedBatched_64_rank_0_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n + type(c_ptr),value :: alpha complex(c_double_complex),target :: x integer(c_int64_t) :: incx - type(c_ptr),value :: myResult + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasDznrm2_64_rank_0_devptr = hipblasDznrm2_64_(handle,n,c_loc(x),incx,myResult) + hipblasZaxpyStridedBatched_64_rank_0_devptr = hipblasZaxpyStridedBatched_64_(handle,n,alpha, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) end function - function hipblasDznrm2_64_rank_1(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasZaxpyStridedBatched_64_rank_1(handle,n,alpha,x,incx,stridex,y,incy,stridey, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpyStridedBatched_64_rank_1 type(c_ptr), value :: handle integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha complex(c_double_complex),target,dimension(:) :: x integer(c_int64_t) :: incx - real(c_double),target :: myResult + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasDznrm2_64_rank_1 = hipblasDznrm2_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + hipblasZaxpyStridedBatched_64_rank_1 = hipblasZaxpyStridedBatched_64_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) end function - function hipblasDznrm2_64_rank_1_devptr(handle,n,x,incx,myResult) - use iso_c_binding + function hipblasZaxpyStridedBatched_64_rank_1_devptr(handle,n,alpha,x,incx,stridex,y,incy, & + stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2_64_rank_1_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpyStridedBatched_64_rank_1_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n + type(c_ptr),value :: alpha complex(c_double_complex),target,dimension(:) :: x integer(c_int64_t) :: incx - type(c_ptr),value :: myResult + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasDznrm2_64_rank_1_devptr = hipblasDznrm2_64_(handle,n,c_loc(x),incx,myResult) + hipblasZaxpyStridedBatched_64_rank_1_devptr = hipblasZaxpyStridedBatched_64_(handle,n,alpha, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasZaxpyStridedBatched_64_strided_rank(handle,n,alpha,x,incx,stridex,y,incy, & + stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpyStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZaxpyStridedBatched_64_strided_rank = hipblasZaxpyStridedBatched_64_(handle,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasZaxpyStridedBatched_64_strided_rank_devptr(handle,n,alpha,x,incx,stridex,y, & + incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZaxpyStridedBatched_64_strided_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZaxpyStridedBatched_64_strided_rank_devptr = hipblasZaxpyStridedBatched_64_(handle,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasSnrm2StridedBatched_assumed_rank(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasScopy_assumed_rank(handle,n,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2StridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScopy_assumed_rank type(c_ptr), value :: handle integer(c_int) :: n real(c_float),target,dimension(..) :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount - type(c_ptr) :: myResult + real(c_float),target,dimension(..) :: y + integer(c_int) :: incy ! - hipblasSnrm2StridedBatched_assumed_rank = hipblasSnrm2StridedBatched_(handle,n,c_loc(x), & - incx,stridex,batchCount,myResult) + hipblasScopy_assumed_rank = hipblasScopy_(handle,n,c_loc(x),incx,c_loc(y),incy) end function #else - function hipblasSnrm2StridedBatched_rank_0(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasScopy_rank_0(handle,n,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2StridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScopy_rank_0 type(c_ptr), value :: handle integer(c_int) :: n real(c_float),target :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount - type(c_ptr) :: myResult + real(c_float),target :: y + integer(c_int) :: incy ! - hipblasSnrm2StridedBatched_rank_0 = hipblasSnrm2StridedBatched_(handle,n,c_loc(x),incx, & - stridex,batchCount,myResult) + hipblasScopy_rank_0 = hipblasScopy_(handle,n,c_loc(x),incx,c_loc(y),incy) end function - function hipblasSnrm2StridedBatched_rank_1(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasScopy_rank_1(handle,n,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2StridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScopy_rank_1 type(c_ptr), value :: handle integer(c_int) :: n real(c_float),target,dimension(:) :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount - type(c_ptr) :: myResult + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy ! - hipblasSnrm2StridedBatched_rank_1 = hipblasSnrm2StridedBatched_(handle,n,c_loc(x),incx, & - stridex,batchCount,myResult) + hipblasScopy_rank_1 = hipblasScopy_(handle,n,c_loc(x),incx,c_loc(y),incy) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasDnrm2StridedBatched_assumed_rank(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasDcopy_assumed_rank(handle,n,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2StridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDcopy_assumed_rank type(c_ptr), value :: handle integer(c_int) :: n real(c_double),target,dimension(..) :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount - type(c_ptr) :: myResult + real(c_double),target,dimension(..) :: y + integer(c_int) :: incy ! - hipblasDnrm2StridedBatched_assumed_rank = hipblasDnrm2StridedBatched_(handle,n,c_loc(x), & - incx,stridex,batchCount,myResult) + hipblasDcopy_assumed_rank = hipblasDcopy_(handle,n,c_loc(x),incx,c_loc(y),incy) end function #else - function hipblasDnrm2StridedBatched_rank_0(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasDcopy_rank_0(handle,n,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2StridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDcopy_rank_0 type(c_ptr), value :: handle integer(c_int) :: n real(c_double),target :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount - type(c_ptr) :: myResult + real(c_double),target :: y + integer(c_int) :: incy ! - hipblasDnrm2StridedBatched_rank_0 = hipblasDnrm2StridedBatched_(handle,n,c_loc(x),incx, & - stridex,batchCount,myResult) + hipblasDcopy_rank_0 = hipblasDcopy_(handle,n,c_loc(x),incx,c_loc(y),incy) end function - function hipblasDnrm2StridedBatched_rank_1(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasDcopy_rank_1(handle,n,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2StridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDcopy_rank_1 type(c_ptr), value :: handle integer(c_int) :: n real(c_double),target,dimension(:) :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount - type(c_ptr) :: myResult + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy ! - hipblasDnrm2StridedBatched_rank_1 = hipblasDnrm2StridedBatched_(handle,n,c_loc(x),incx, & - stridex,batchCount,myResult) + hipblasDcopy_rank_1 = hipblasDcopy_(handle,n,c_loc(x),incx,c_loc(y),incy) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasScnrm2StridedBatched_assumed_rank(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasCcopy_assumed_rank(handle,n,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2StridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCcopy_assumed_rank type(c_ptr), value :: handle integer(c_int) :: n complex(c_float_complex),target,dimension(..) :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount - type(c_ptr) :: myResult + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy ! - hipblasScnrm2StridedBatched_assumed_rank = hipblasScnrm2StridedBatched_(handle,n,c_loc(x), & - incx,stridex,batchCount,myResult) + hipblasCcopy_assumed_rank = hipblasCcopy_(handle,n,c_loc(x),incx,c_loc(y),incy) end function #else - function hipblasScnrm2StridedBatched_rank_0(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasCcopy_rank_0(handle,n,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2StridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCcopy_rank_0 type(c_ptr), value :: handle integer(c_int) :: n complex(c_float_complex),target :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount - type(c_ptr) :: myResult + complex(c_float_complex),target :: y + integer(c_int) :: incy ! - hipblasScnrm2StridedBatched_rank_0 = hipblasScnrm2StridedBatched_(handle,n,c_loc(x),incx, & - stridex,batchCount,myResult) + hipblasCcopy_rank_0 = hipblasCcopy_(handle,n,c_loc(x),incx,c_loc(y),incy) end function - function hipblasScnrm2StridedBatched_rank_1(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasCcopy_rank_1(handle,n,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2StridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCcopy_rank_1 type(c_ptr), value :: handle integer(c_int) :: n complex(c_float_complex),target,dimension(:) :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount - type(c_ptr) :: myResult + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy ! - hipblasScnrm2StridedBatched_rank_1 = hipblasScnrm2StridedBatched_(handle,n,c_loc(x),incx, & - stridex,batchCount,myResult) + hipblasCcopy_rank_1 = hipblasCcopy_(handle,n,c_loc(x),incx,c_loc(y),incy) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasDznrm2StridedBatched_assumed_rank(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasZcopy_assumed_rank(handle,n,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2StridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZcopy_assumed_rank type(c_ptr), value :: handle integer(c_int) :: n complex(c_double_complex),target,dimension(..) :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount - type(c_ptr) :: myResult + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy ! - hipblasDznrm2StridedBatched_assumed_rank = hipblasDznrm2StridedBatched_(handle,n,c_loc(x), & - incx,stridex,batchCount,myResult) + hipblasZcopy_assumed_rank = hipblasZcopy_(handle,n,c_loc(x),incx,c_loc(y),incy) end function #else - function hipblasDznrm2StridedBatched_rank_0(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasZcopy_rank_0(handle,n,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2StridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZcopy_rank_0 type(c_ptr), value :: handle integer(c_int) :: n complex(c_double_complex),target :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount - type(c_ptr) :: myResult + complex(c_double_complex),target :: y + integer(c_int) :: incy ! - hipblasDznrm2StridedBatched_rank_0 = hipblasDznrm2StridedBatched_(handle,n,c_loc(x),incx, & - stridex,batchCount,myResult) + hipblasZcopy_rank_0 = hipblasZcopy_(handle,n,c_loc(x),incx,c_loc(y),incy) end function - function hipblasDznrm2StridedBatched_rank_1(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasZcopy_rank_1(handle,n,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2StridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZcopy_rank_1 type(c_ptr), value :: handle integer(c_int) :: n complex(c_double_complex),target,dimension(:) :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount - type(c_ptr) :: myResult + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy ! - hipblasDznrm2StridedBatched_rank_1 = hipblasDznrm2StridedBatched_(handle,n,c_loc(x),incx, & - stridex,batchCount,myResult) + hipblasZcopy_rank_1 = hipblasZcopy_(handle,n,c_loc(x),incx,c_loc(y),incy) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasSnrm2StridedBatched_64_assumed_rank(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasScopy_64_assumed_rank(handle,n,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2StridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScopy_64_assumed_rank type(c_ptr), value :: handle integer(c_int64_t) :: n real(c_float),target,dimension(..) :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount - type(c_ptr) :: myResult + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy ! - hipblasSnrm2StridedBatched_64_assumed_rank = hipblasSnrm2StridedBatched_64_(handle,n, & - c_loc(x),incx,stridex,batchCount,myResult) + hipblasScopy_64_assumed_rank = hipblasScopy_64_(handle,n,c_loc(x),incx,c_loc(y),incy) end function #else - function hipblasSnrm2StridedBatched_64_rank_0(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasScopy_64_rank_0(handle,n,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2StridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScopy_64_rank_0 type(c_ptr), value :: handle integer(c_int64_t) :: n real(c_float),target :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount - type(c_ptr) :: myResult + real(c_float),target :: y + integer(c_int64_t) :: incy ! - hipblasSnrm2StridedBatched_64_rank_0 = hipblasSnrm2StridedBatched_64_(handle,n,c_loc(x), & - incx,stridex,batchCount,myResult) + hipblasScopy_64_rank_0 = hipblasScopy_64_(handle,n,c_loc(x),incx,c_loc(y),incy) end function - function hipblasSnrm2StridedBatched_64_rank_1(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasScopy_64_rank_1(handle,n,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2StridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScopy_64_rank_1 type(c_ptr), value :: handle integer(c_int64_t) :: n real(c_float),target,dimension(:) :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount - type(c_ptr) :: myResult + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy ! - hipblasSnrm2StridedBatched_64_rank_1 = hipblasSnrm2StridedBatched_64_(handle,n,c_loc(x), & - incx,stridex,batchCount,myResult) + hipblasScopy_64_rank_1 = hipblasScopy_64_(handle,n,c_loc(x),incx,c_loc(y),incy) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasDnrm2StridedBatched_64_assumed_rank(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasDcopy_64_assumed_rank(handle,n,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2StridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDcopy_64_assumed_rank type(c_ptr), value :: handle integer(c_int64_t) :: n real(c_double),target,dimension(..) :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount - type(c_ptr) :: myResult + real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: incy ! - hipblasDnrm2StridedBatched_64_assumed_rank = hipblasDnrm2StridedBatched_64_(handle,n, & - c_loc(x),incx,stridex,batchCount,myResult) + hipblasDcopy_64_assumed_rank = hipblasDcopy_64_(handle,n,c_loc(x),incx,c_loc(y),incy) end function #else - function hipblasDnrm2StridedBatched_64_rank_0(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasDcopy_64_rank_0(handle,n,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2StridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDcopy_64_rank_0 type(c_ptr), value :: handle integer(c_int64_t) :: n real(c_double),target :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount - type(c_ptr) :: myResult + real(c_double),target :: y + integer(c_int64_t) :: incy ! - hipblasDnrm2StridedBatched_64_rank_0 = hipblasDnrm2StridedBatched_64_(handle,n,c_loc(x), & - incx,stridex,batchCount,myResult) + hipblasDcopy_64_rank_0 = hipblasDcopy_64_(handle,n,c_loc(x),incx,c_loc(y),incy) end function - function hipblasDnrm2StridedBatched_64_rank_1(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasDcopy_64_rank_1(handle,n,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2StridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDcopy_64_rank_1 type(c_ptr), value :: handle integer(c_int64_t) :: n real(c_double),target,dimension(:) :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount - type(c_ptr) :: myResult + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy ! - hipblasDnrm2StridedBatched_64_rank_1 = hipblasDnrm2StridedBatched_64_(handle,n,c_loc(x), & - incx,stridex,batchCount,myResult) + hipblasDcopy_64_rank_1 = hipblasDcopy_64_(handle,n,c_loc(x),incx,c_loc(y),incy) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasScnrm2StridedBatched_64_assumed_rank(handle,n,x,incx,stridex,batchCount, & - myResult) - use iso_c_binding + function hipblasCcopy_64_assumed_rank(handle,n,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2StridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCcopy_64_assumed_rank type(c_ptr), value :: handle integer(c_int64_t) :: n complex(c_float_complex),target,dimension(..) :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount - type(c_ptr) :: myResult + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy ! - hipblasScnrm2StridedBatched_64_assumed_rank = hipblasScnrm2StridedBatched_64_(handle,n, & - c_loc(x),incx,stridex,batchCount,myResult) + hipblasCcopy_64_assumed_rank = hipblasCcopy_64_(handle,n,c_loc(x),incx,c_loc(y),incy) end function #else - function hipblasScnrm2StridedBatched_64_rank_0(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasCcopy_64_rank_0(handle,n,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2StridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCcopy_64_rank_0 type(c_ptr), value :: handle integer(c_int64_t) :: n complex(c_float_complex),target :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount - type(c_ptr) :: myResult + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy ! - hipblasScnrm2StridedBatched_64_rank_0 = hipblasScnrm2StridedBatched_64_(handle,n,c_loc(x), & - incx,stridex,batchCount,myResult) + hipblasCcopy_64_rank_0 = hipblasCcopy_64_(handle,n,c_loc(x),incx,c_loc(y),incy) end function - function hipblasScnrm2StridedBatched_64_rank_1(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasCcopy_64_rank_1(handle,n,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2StridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCcopy_64_rank_1 type(c_ptr), value :: handle integer(c_int64_t) :: n complex(c_float_complex),target,dimension(:) :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount - type(c_ptr) :: myResult + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy ! - hipblasScnrm2StridedBatched_64_rank_1 = hipblasScnrm2StridedBatched_64_(handle,n,c_loc(x), & - incx,stridex,batchCount,myResult) + hipblasCcopy_64_rank_1 = hipblasCcopy_64_(handle,n,c_loc(x),incx,c_loc(y),incy) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasDznrm2StridedBatched_64_assumed_rank(handle,n,x,incx,stridex,batchCount, & - myResult) - use iso_c_binding + function hipblasZcopy_64_assumed_rank(handle,n,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2StridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZcopy_64_assumed_rank type(c_ptr), value :: handle integer(c_int64_t) :: n complex(c_double_complex),target,dimension(..) :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount - type(c_ptr) :: myResult + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy ! - hipblasDznrm2StridedBatched_64_assumed_rank = hipblasDznrm2StridedBatched_64_(handle,n, & - c_loc(x),incx,stridex,batchCount,myResult) + hipblasZcopy_64_assumed_rank = hipblasZcopy_64_(handle,n,c_loc(x),incx,c_loc(y),incy) end function #else - function hipblasDznrm2StridedBatched_64_rank_0(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasZcopy_64_rank_0(handle,n,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2StridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZcopy_64_rank_0 type(c_ptr), value :: handle integer(c_int64_t) :: n complex(c_double_complex),target :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount - type(c_ptr) :: myResult + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy ! - hipblasDznrm2StridedBatched_64_rank_0 = hipblasDznrm2StridedBatched_64_(handle,n,c_loc(x), & - incx,stridex,batchCount,myResult) + hipblasZcopy_64_rank_0 = hipblasZcopy_64_(handle,n,c_loc(x),incx,c_loc(y),incy) end function - function hipblasDznrm2StridedBatched_64_rank_1(handle,n,x,incx,stridex,batchCount,myResult) - use iso_c_binding + function hipblasZcopy_64_rank_1(handle,n,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2StridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZcopy_64_rank_1 type(c_ptr), value :: handle integer(c_int64_t) :: n complex(c_double_complex),target,dimension(:) :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount - type(c_ptr) :: myResult + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy ! - hipblasDznrm2StridedBatched_64_rank_1 = hipblasDznrm2StridedBatched_64_(handle,n,c_loc(x), & - incx,stridex,batchCount,myResult) + hipblasZcopy_64_rank_1 = hipblasZcopy_64_(handle,n,c_loc(x),incx,c_loc(y),incy) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasSrot_assumed_rank(handle,n,x,incx,y,incy,c,s) - use iso_c_binding + function hipblasScopyStridedBatched_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrot_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScopyStridedBatched_assumed_rank type(c_ptr), value :: handle integer(c_int) :: n real(c_float),target,dimension(..) :: x integer(c_int) :: incx + integer(c_int64_t) :: stridex real(c_float),target,dimension(..) :: y integer(c_int) :: incy - real(c_float),target :: c - real(c_float),target :: s + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount ! - hipblasSrot_assumed_rank = hipblasSrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c), & - c_loc(s)) + hipblasScopyStridedBatched_assumed_rank = hipblasScopyStridedBatched_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount) end function - function hipblasSrot_assumed_rank_devptr(handle,n,x,incx,y,incy,c,s) - use iso_c_binding +#else + function hipblasScopyStridedBatched_rank_0(handle,n,x,incx,stridex,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrot_assumed_rank_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScopyStridedBatched_rank_0 type(c_ptr), value :: handle integer(c_int) :: n - real(c_float),target,dimension(..) :: x + real(c_float),target :: x integer(c_int) :: incx - real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: stridex + real(c_float),target :: y integer(c_int) :: incy - type(c_ptr),value :: c - type(c_ptr),value :: s + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount ! - hipblasSrot_assumed_rank_devptr = hipblasSrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + hipblasScopyStridedBatched_rank_0 = hipblasScopyStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount) end function -#else - function hipblasSrot_rank_0(handle,n,x,incx,y,incy,c,s) - use iso_c_binding + function hipblasScopyStridedBatched_rank_1(handle,n,x,incx,stridex,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrot_rank_0 - type(c_ptr), value :: handle - integer(c_int) :: n - real(c_float),target :: x - integer(c_int) :: incx - real(c_float),target :: y - integer(c_int) :: incy - real(c_float),target :: c - real(c_float),target :: s - ! - hipblasSrot_rank_0 = hipblasSrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c),c_loc(s)) - end function - - function hipblasSrot_rank_0_devptr(handle,n,x,incx,y,incy,c,s) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrot_rank_0_devptr - type(c_ptr), value :: handle - integer(c_int) :: n - real(c_float),target :: x - integer(c_int) :: incx - real(c_float),target :: y - integer(c_int) :: incy - type(c_ptr),value :: c - type(c_ptr),value :: s - ! - hipblasSrot_rank_0_devptr = hipblasSrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) - end function - - function hipblasSrot_rank_1(handle,n,x,incx,y,incy,c,s) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrot_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScopyStridedBatched_rank_1 type(c_ptr), value :: handle integer(c_int) :: n real(c_float),target,dimension(:) :: x integer(c_int) :: incx + integer(c_int64_t) :: stridex real(c_float),target,dimension(:) :: y integer(c_int) :: incy - real(c_float),target :: c - real(c_float),target :: s + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount ! - hipblasSrot_rank_1 = hipblasSrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c),c_loc(s)) + hipblasScopyStridedBatched_rank_1 = hipblasScopyStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount) end function - function hipblasSrot_rank_1_devptr(handle,n,x,incx,y,incy,c,s) - use iso_c_binding + function hipblasScopyStridedBatched_strided_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrot_rank_1_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScopyStridedBatched_strided_rank type(c_ptr), value :: handle integer(c_int) :: n - real(c_float),target,dimension(:) :: x + real(c_float),target,dimension(:,:) :: x integer(c_int) :: incx - real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:,:) :: y integer(c_int) :: incy - type(c_ptr),value :: c - type(c_ptr),value :: s + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount ! - hipblasSrot_rank_1_devptr = hipblasSrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + hipblasScopyStridedBatched_strided_rank = hipblasScopyStridedBatched_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasDrot_assumed_rank(handle,n,x,incx,y,incy,c,s) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrot_assumed_rank - type(c_ptr), value :: handle - integer(c_int) :: n - real(c_double),target,dimension(..) :: x - integer(c_int) :: incx - real(c_double),target,dimension(..) :: y - integer(c_int) :: incy - real(c_double),target :: c - real(c_double),target :: s - ! - hipblasDrot_assumed_rank = hipblasDrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c), & - c_loc(s)) - end function - - function hipblasDrot_assumed_rank_devptr(handle,n,x,incx,y,incy,c,s) - use iso_c_binding + function hipblasDcopyStridedBatched_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrot_assumed_rank_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDcopyStridedBatched_assumed_rank type(c_ptr), value :: handle integer(c_int) :: n real(c_double),target,dimension(..) :: x integer(c_int) :: incx + integer(c_int64_t) :: stridex real(c_double),target,dimension(..) :: y integer(c_int) :: incy - type(c_ptr),value :: c - type(c_ptr),value :: s + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount ! - hipblasDrot_assumed_rank_devptr = hipblasDrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + hipblasDcopyStridedBatched_assumed_rank = hipblasDcopyStridedBatched_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount) end function #else - function hipblasDrot_rank_0(handle,n,x,incx,y,incy,c,s) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrot_rank_0 - type(c_ptr), value :: handle - integer(c_int) :: n - real(c_double),target :: x - integer(c_int) :: incx - real(c_double),target :: y - integer(c_int) :: incy - real(c_double),target :: c - real(c_double),target :: s - ! - hipblasDrot_rank_0 = hipblasDrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c),c_loc(s)) - end function - - function hipblasDrot_rank_0_devptr(handle,n,x,incx,y,incy,c,s) - use iso_c_binding + function hipblasDcopyStridedBatched_rank_0(handle,n,x,incx,stridex,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrot_rank_0_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDcopyStridedBatched_rank_0 type(c_ptr), value :: handle integer(c_int) :: n real(c_double),target :: x integer(c_int) :: incx + integer(c_int64_t) :: stridex real(c_double),target :: y integer(c_int) :: incy - type(c_ptr),value :: c - type(c_ptr),value :: s + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount ! - hipblasDrot_rank_0_devptr = hipblasDrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + hipblasDcopyStridedBatched_rank_0 = hipblasDcopyStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount) end function - function hipblasDrot_rank_1(handle,n,x,incx,y,incy,c,s) - use iso_c_binding + function hipblasDcopyStridedBatched_rank_1(handle,n,x,incx,stridex,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrot_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDcopyStridedBatched_rank_1 type(c_ptr), value :: handle integer(c_int) :: n real(c_double),target,dimension(:) :: x integer(c_int) :: incx + integer(c_int64_t) :: stridex real(c_double),target,dimension(:) :: y integer(c_int) :: incy - real(c_double),target :: c - real(c_double),target :: s + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount ! - hipblasDrot_rank_1 = hipblasDrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c),c_loc(s)) + hipblasDcopyStridedBatched_rank_1 = hipblasDcopyStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount) end function - function hipblasDrot_rank_1_devptr(handle,n,x,incx,y,incy,c,s) - use iso_c_binding + function hipblasDcopyStridedBatched_strided_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrot_rank_1_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDcopyStridedBatched_strided_rank type(c_ptr), value :: handle integer(c_int) :: n - real(c_double),target,dimension(:) :: x + real(c_double),target,dimension(:,:) :: x integer(c_int) :: incx - real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:,:) :: y integer(c_int) :: incy - type(c_ptr),value :: c - type(c_ptr),value :: s + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount ! - hipblasDrot_rank_1_devptr = hipblasDrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + hipblasDcopyStridedBatched_strided_rank = hipblasDcopyStridedBatched_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCrot_assumed_rank(handle,n,x,incx,y,incy,c,s) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrot_assumed_rank - type(c_ptr), value :: handle - integer(c_int) :: n - complex(c_float_complex),target,dimension(..) :: x - integer(c_int) :: incx - complex(c_float_complex),target,dimension(..) :: y - integer(c_int) :: incy - real(c_float),target :: c - complex(c_float_complex),target :: s - ! - hipblasCrot_assumed_rank = hipblasCrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c), & - c_loc(s)) - end function - - function hipblasCrot_assumed_rank_devptr(handle,n,x,incx,y,incy,c,s) - use iso_c_binding + function hipblasCcopyStridedBatched_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrot_assumed_rank_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCcopyStridedBatched_assumed_rank type(c_ptr), value :: handle integer(c_int) :: n complex(c_float_complex),target,dimension(..) :: x integer(c_int) :: incx + integer(c_int64_t) :: stridex complex(c_float_complex),target,dimension(..) :: y integer(c_int) :: incy - type(c_ptr),value :: c - type(c_ptr),value :: s + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount ! - hipblasCrot_assumed_rank_devptr = hipblasCrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + hipblasCcopyStridedBatched_assumed_rank = hipblasCcopyStridedBatched_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount) end function #else - function hipblasCrot_rank_0(handle,n,x,incx,y,incy,c,s) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrot_rank_0 - type(c_ptr), value :: handle - integer(c_int) :: n - complex(c_float_complex),target :: x - integer(c_int) :: incx - complex(c_float_complex),target :: y - integer(c_int) :: incy - real(c_float),target :: c - complex(c_float_complex),target :: s - ! - hipblasCrot_rank_0 = hipblasCrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c),c_loc(s)) - end function - - function hipblasCrot_rank_0_devptr(handle,n,x,incx,y,incy,c,s) - use iso_c_binding + function hipblasCcopyStridedBatched_rank_0(handle,n,x,incx,stridex,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrot_rank_0_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCcopyStridedBatched_rank_0 type(c_ptr), value :: handle integer(c_int) :: n complex(c_float_complex),target :: x integer(c_int) :: incx + integer(c_int64_t) :: stridex complex(c_float_complex),target :: y integer(c_int) :: incy - type(c_ptr),value :: c - type(c_ptr),value :: s + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount ! - hipblasCrot_rank_0_devptr = hipblasCrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + hipblasCcopyStridedBatched_rank_0 = hipblasCcopyStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount) end function - function hipblasCrot_rank_1(handle,n,x,incx,y,incy,c,s) - use iso_c_binding + function hipblasCcopyStridedBatched_rank_1(handle,n,x,incx,stridex,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrot_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCcopyStridedBatched_rank_1 type(c_ptr), value :: handle integer(c_int) :: n complex(c_float_complex),target,dimension(:) :: x integer(c_int) :: incx + integer(c_int64_t) :: stridex complex(c_float_complex),target,dimension(:) :: y integer(c_int) :: incy - real(c_float),target :: c - complex(c_float_complex),target :: s + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount ! - hipblasCrot_rank_1 = hipblasCrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c),c_loc(s)) + hipblasCcopyStridedBatched_rank_1 = hipblasCcopyStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount) end function - function hipblasCrot_rank_1_devptr(handle,n,x,incx,y,incy,c,s) - use iso_c_binding + function hipblasCcopyStridedBatched_strided_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrot_rank_1_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCcopyStridedBatched_strided_rank type(c_ptr), value :: handle integer(c_int) :: n - complex(c_float_complex),target,dimension(:) :: x + complex(c_float_complex),target,dimension(:,:) :: x integer(c_int) :: incx - complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:) :: y integer(c_int) :: incy - type(c_ptr),value :: c - type(c_ptr),value :: s + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount ! - hipblasCrot_rank_1_devptr = hipblasCrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + hipblasCcopyStridedBatched_strided_rank = hipblasCcopyStridedBatched_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCsrot_assumed_rank(handle,n,x,incx,y,incy,c,s) - use iso_c_binding + function hipblasZcopyStridedBatched_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrot_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZcopyStridedBatched_assumed_rank type(c_ptr), value :: handle integer(c_int) :: n - complex(c_float_complex),target,dimension(..) :: x + complex(c_double_complex),target,dimension(..) :: x integer(c_int) :: incx - complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: y integer(c_int) :: incy - real(c_float),target :: c - real(c_float),target :: s + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount ! - hipblasCsrot_assumed_rank = hipblasCsrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c), & - c_loc(s)) + hipblasZcopyStridedBatched_assumed_rank = hipblasZcopyStridedBatched_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount) end function - function hipblasCsrot_assumed_rank_devptr(handle,n,x,incx,y,incy,c,s) - use iso_c_binding +#else + function hipblasZcopyStridedBatched_rank_0(handle,n,x,incx,stridex,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrot_assumed_rank_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZcopyStridedBatched_rank_0 type(c_ptr), value :: handle integer(c_int) :: n - complex(c_float_complex),target,dimension(..) :: x + complex(c_double_complex),target :: x integer(c_int) :: incx - complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: y integer(c_int) :: incy - type(c_ptr),value :: c - type(c_ptr),value :: s + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount ! - hipblasCsrot_assumed_rank_devptr = hipblasCsrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + hipblasZcopyStridedBatched_rank_0 = hipblasZcopyStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount) end function -#else - function hipblasCsrot_rank_0(handle,n,x,incx,y,incy,c,s) - use iso_c_binding + function hipblasZcopyStridedBatched_rank_1(handle,n,x,incx,stridex,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrot_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZcopyStridedBatched_rank_1 type(c_ptr), value :: handle integer(c_int) :: n - complex(c_float_complex),target :: x + complex(c_double_complex),target,dimension(:) :: x integer(c_int) :: incx - complex(c_float_complex),target :: y + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y integer(c_int) :: incy - real(c_float),target :: c - real(c_float),target :: s + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount ! - hipblasCsrot_rank_0 = hipblasCsrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c),c_loc(s)) + hipblasZcopyStridedBatched_rank_1 = hipblasZcopyStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount) end function - function hipblasCsrot_rank_0_devptr(handle,n,x,incx,y,incy,c,s) - use iso_c_binding + function hipblasZcopyStridedBatched_strided_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrot_rank_0_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZcopyStridedBatched_strided_rank type(c_ptr), value :: handle integer(c_int) :: n - complex(c_float_complex),target :: x + complex(c_double_complex),target,dimension(:,:) :: x integer(c_int) :: incx - complex(c_float_complex),target :: y + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:) :: y integer(c_int) :: incy - type(c_ptr),value :: c - type(c_ptr),value :: s + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount ! - hipblasCsrot_rank_0_devptr = hipblasCsrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + hipblasZcopyStridedBatched_strided_rank = hipblasZcopyStridedBatched_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount) end function - function hipblasCsrot_rank_1(handle,n,x,incx,y,incy,c,s) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasScopyStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrot_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScopyStridedBatched_64_assumed_rank type(c_ptr), value :: handle - integer(c_int) :: n - complex(c_float_complex),target,dimension(:) :: x - integer(c_int) :: incx - complex(c_float_complex),target,dimension(:) :: y - integer(c_int) :: incy - real(c_float),target :: c - real(c_float),target :: s + integer(c_int64_t) :: n + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasCsrot_rank_1 = hipblasCsrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c),c_loc(s)) + hipblasScopyStridedBatched_64_assumed_rank = hipblasScopyStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) end function - function hipblasCsrot_rank_1_devptr(handle,n,x,incx,y,incy,c,s) - use iso_c_binding +#else + function hipblasScopyStridedBatched_64_rank_0(handle,n,x,incx,stridex,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrot_rank_1_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScopyStridedBatched_64_rank_0 type(c_ptr), value :: handle - integer(c_int) :: n - complex(c_float_complex),target,dimension(:) :: x - integer(c_int) :: incx - complex(c_float_complex),target,dimension(:) :: y - integer(c_int) :: incy - type(c_ptr),value :: c - type(c_ptr),value :: s + integer(c_int64_t) :: n + real(c_float),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasCsrot_rank_1_devptr = hipblasCsrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + hipblasScopyStridedBatched_64_rank_0 = hipblasScopyStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZrot_assumed_rank(handle,n,x,incx,y,incy,c,s) - use iso_c_binding + function hipblasScopyStridedBatched_64_rank_1(handle,n,x,incx,stridex,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrot_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScopyStridedBatched_64_rank_1 type(c_ptr), value :: handle - integer(c_int) :: n - complex(c_double_complex),target,dimension(..) :: x - integer(c_int) :: incx - complex(c_double_complex),target,dimension(..) :: y - integer(c_int) :: incy - real(c_double),target :: c - complex(c_double_complex),target :: s + integer(c_int64_t) :: n + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasZrot_assumed_rank = hipblasZrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c), & - c_loc(s)) + hipblasScopyStridedBatched_64_rank_1 = hipblasScopyStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount) end function - function hipblasZrot_assumed_rank_devptr(handle,n,x,incx,y,incy,c,s) - use iso_c_binding + function hipblasScopyStridedBatched_64_strided_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrot_assumed_rank_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScopyStridedBatched_64_strided_rank type(c_ptr), value :: handle - integer(c_int) :: n - complex(c_double_complex),target,dimension(..) :: x - integer(c_int) :: incx - complex(c_double_complex),target,dimension(..) :: y - integer(c_int) :: incy - type(c_ptr),value :: c - type(c_ptr),value :: s + integer(c_int64_t) :: n + real(c_float),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasZrot_assumed_rank_devptr = hipblasZrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + hipblasScopyStridedBatched_64_strided_rank = hipblasScopyStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) end function -#else - function hipblasZrot_rank_0(handle,n,x,incx,y,incy,c,s) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDcopyStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrot_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDcopyStridedBatched_64_assumed_rank type(c_ptr), value :: handle - integer(c_int) :: n - complex(c_double_complex),target :: x - integer(c_int) :: incx - complex(c_double_complex),target :: y - integer(c_int) :: incy - real(c_double),target :: c - complex(c_double_complex),target :: s + integer(c_int64_t) :: n + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasZrot_rank_0 = hipblasZrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c),c_loc(s)) + hipblasDcopyStridedBatched_64_assumed_rank = hipblasDcopyStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) end function - function hipblasZrot_rank_0_devptr(handle,n,x,incx,y,incy,c,s) - use iso_c_binding +#else + function hipblasDcopyStridedBatched_64_rank_0(handle,n,x,incx,stridex,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrot_rank_0_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDcopyStridedBatched_64_rank_0 type(c_ptr), value :: handle - integer(c_int) :: n - complex(c_double_complex),target :: x - integer(c_int) :: incx - complex(c_double_complex),target :: y - integer(c_int) :: incy - type(c_ptr),value :: c - type(c_ptr),value :: s + integer(c_int64_t) :: n + real(c_double),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasZrot_rank_0_devptr = hipblasZrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + hipblasDcopyStridedBatched_64_rank_0 = hipblasDcopyStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount) end function - function hipblasZrot_rank_1(handle,n,x,incx,y,incy,c,s) - use iso_c_binding + function hipblasDcopyStridedBatched_64_rank_1(handle,n,x,incx,stridex,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrot_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDcopyStridedBatched_64_rank_1 type(c_ptr), value :: handle - integer(c_int) :: n - complex(c_double_complex),target,dimension(:) :: x - integer(c_int) :: incx - complex(c_double_complex),target,dimension(:) :: y - integer(c_int) :: incy - real(c_double),target :: c - complex(c_double_complex),target :: s + integer(c_int64_t) :: n + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasZrot_rank_1 = hipblasZrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c),c_loc(s)) + hipblasDcopyStridedBatched_64_rank_1 = hipblasDcopyStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount) end function - function hipblasZrot_rank_1_devptr(handle,n,x,incx,y,incy,c,s) - use iso_c_binding + function hipblasDcopyStridedBatched_64_strided_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrot_rank_1_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDcopyStridedBatched_64_strided_rank type(c_ptr), value :: handle - integer(c_int) :: n - complex(c_double_complex),target,dimension(:) :: x - integer(c_int) :: incx - complex(c_double_complex),target,dimension(:) :: y - integer(c_int) :: incy - type(c_ptr),value :: c - type(c_ptr),value :: s + integer(c_int64_t) :: n + real(c_double),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasZrot_rank_1_devptr = hipblasZrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + hipblasDcopyStridedBatched_64_strided_rank = hipblasDcopyStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasZdrot_assumed_rank(handle,n,x,incx,y,incy,c,s) - use iso_c_binding + function hipblasCcopyStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrot_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCcopyStridedBatched_64_assumed_rank type(c_ptr), value :: handle - integer(c_int) :: n - complex(c_double_complex),target,dimension(..) :: x - integer(c_int) :: incx - complex(c_double_complex),target,dimension(..) :: y - integer(c_int) :: incy - real(c_double),target :: c - real(c_double),target :: s + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasZdrot_assumed_rank = hipblasZdrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c), & - c_loc(s)) + hipblasCcopyStridedBatched_64_assumed_rank = hipblasCcopyStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) end function - function hipblasZdrot_assumed_rank_devptr(handle,n,x,incx,y,incy,c,s) - use iso_c_binding +#else + function hipblasCcopyStridedBatched_64_rank_0(handle,n,x,incx,stridex,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrot_assumed_rank_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCcopyStridedBatched_64_rank_0 type(c_ptr), value :: handle - integer(c_int) :: n - complex(c_double_complex),target,dimension(..) :: x - integer(c_int) :: incx - complex(c_double_complex),target,dimension(..) :: y - integer(c_int) :: incy - type(c_ptr),value :: c - type(c_ptr),value :: s + integer(c_int64_t) :: n + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasZdrot_assumed_rank_devptr = hipblasZdrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + hipblasCcopyStridedBatched_64_rank_0 = hipblasCcopyStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount) end function -#else - function hipblasZdrot_rank_0(handle,n,x,incx,y,incy,c,s) - use iso_c_binding + function hipblasCcopyStridedBatched_64_rank_1(handle,n,x,incx,stridex,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrot_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCcopyStridedBatched_64_rank_1 type(c_ptr), value :: handle - integer(c_int) :: n - complex(c_double_complex),target :: x - integer(c_int) :: incx - complex(c_double_complex),target :: y - integer(c_int) :: incy - real(c_double),target :: c - real(c_double),target :: s + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasZdrot_rank_0 = hipblasZdrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c),c_loc(s)) + hipblasCcopyStridedBatched_64_rank_1 = hipblasCcopyStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount) end function - function hipblasZdrot_rank_0_devptr(handle,n,x,incx,y,incy,c,s) - use iso_c_binding + function hipblasCcopyStridedBatched_64_strided_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrot_rank_0_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCcopyStridedBatched_64_strided_rank type(c_ptr), value :: handle - integer(c_int) :: n + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasCcopyStridedBatched_64_strided_rank = hipblasCcopyStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZcopyStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZcopyStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZcopyStridedBatched_64_assumed_rank = hipblasZcopyStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + +#else + function hipblasZcopyStridedBatched_64_rank_0(handle,n,x,incx,stridex,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZcopyStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n complex(c_double_complex),target :: x - integer(c_int) :: incx + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZcopyStridedBatched_64_rank_0 = hipblasZcopyStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasZcopyStridedBatched_64_rank_1(handle,n,x,incx,stridex,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZcopyStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZcopyStridedBatched_64_rank_1 = hipblasZcopyStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasZcopyStridedBatched_64_strided_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZcopyStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZcopyStridedBatched_64_strided_rank = hipblasZcopyStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasBfdot_assumed_rank(handle,n,x,incx,y,incy,myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasBfdot_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + integer(c_short),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_short),target,dimension(..) :: y integer(c_int) :: incy - type(c_ptr),value :: c - type(c_ptr),value :: s + integer(c_short),target :: myResult ! - hipblasZdrot_rank_0_devptr = hipblasZdrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + hipblasBfdot_assumed_rank = hipblasBfdot_(handle,n,c_loc(x),incx,c_loc(y),incy, & + c_loc(myResult)) end function - function hipblasZdrot_rank_1(handle,n,x,incx,y,incy,c,s) - use iso_c_binding + function hipblasBfdot_assumed_rank_devptr(handle,n,x,incx,y,incy,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrot_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasBfdot_assumed_rank_devptr type(c_ptr), value :: handle integer(c_int) :: n - complex(c_double_complex),target,dimension(:) :: x + integer(c_short),target,dimension(..) :: x integer(c_int) :: incx - complex(c_double_complex),target,dimension(:) :: y + integer(c_short),target,dimension(..) :: y integer(c_int) :: incy - real(c_double),target :: c - real(c_double),target :: s + type(c_ptr),value :: myResult ! - hipblasZdrot_rank_1 = hipblasZdrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c),c_loc(s)) + hipblasBfdot_assumed_rank_devptr = hipblasBfdot_(handle,n,c_loc(x),incx,c_loc(y),incy, & + myResult) end function - function hipblasZdrot_rank_1_devptr(handle,n,x,incx,y,incy,c,s) - use iso_c_binding +#else + function hipblasBfdot_rank_0(handle,n,x,incx,y,incy,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrot_rank_1_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasBfdot_rank_0 type(c_ptr), value :: handle integer(c_int) :: n - complex(c_double_complex),target,dimension(:) :: x + integer(c_short),target :: x integer(c_int) :: incx - complex(c_double_complex),target,dimension(:) :: y + integer(c_short),target :: y integer(c_int) :: incy - type(c_ptr),value :: c - type(c_ptr),value :: s + integer(c_short),target :: myResult ! - hipblasZdrot_rank_1_devptr = hipblasZdrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + hipblasBfdot_rank_0 = hipblasBfdot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) + end function + + function hipblasBfdot_rank_0_devptr(handle,n,x,incx,y,incy,myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasBfdot_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + integer(c_short),target :: x + integer(c_int) :: incx + integer(c_short),target :: y + integer(c_int) :: incy + type(c_ptr),value :: myResult + ! + hipblasBfdot_rank_0_devptr = hipblasBfdot_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) + end function + + function hipblasBfdot_rank_1(handle,n,x,incx,y,incy,myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasBfdot_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + integer(c_short),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_short),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_short),target :: myResult + ! + hipblasBfdot_rank_1 = hipblasBfdot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) + end function + + function hipblasBfdot_rank_1_devptr(handle,n,x,incx,y,incy,myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasBfdot_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + integer(c_short),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_short),target,dimension(:) :: y + integer(c_int) :: incy + type(c_ptr),value :: myResult + ! + hipblasBfdot_rank_1_devptr = hipblasBfdot_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasSrot_64_assumed_rank(handle,n,x,incx,y,incy,c,s) - use iso_c_binding + function hipblasSdot_assumed_rank(handle,n,x,incx,y,incy,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrot_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdot_assumed_rank type(c_ptr), value :: handle - integer(c_int64_t) :: n + integer(c_int) :: n real(c_float),target,dimension(..) :: x - integer(c_int64_t) :: incx + integer(c_int) :: incx real(c_float),target,dimension(..) :: y - integer(c_int64_t) :: incy - real(c_float),target :: c - real(c_float),target :: s + integer(c_int) :: incy + real(c_float),target :: myResult ! - hipblasSrot_64_assumed_rank = hipblasSrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c), & - c_loc(s)) + hipblasSdot_assumed_rank = hipblasSdot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) end function - function hipblasSrot_64_assumed_rank_devptr(handle,n,x,incx,y,incy,c,s) - use iso_c_binding + function hipblasSdot_assumed_rank_devptr(handle,n,x,incx,y,incy,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrot_64_assumed_rank_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdot_assumed_rank_devptr type(c_ptr), value :: handle - integer(c_int64_t) :: n + integer(c_int) :: n real(c_float),target,dimension(..) :: x - integer(c_int64_t) :: incx + integer(c_int) :: incx real(c_float),target,dimension(..) :: y - integer(c_int64_t) :: incy - type(c_ptr),value :: c - type(c_ptr),value :: s + integer(c_int) :: incy + type(c_ptr),value :: myResult ! - hipblasSrot_64_assumed_rank_devptr = hipblasSrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + hipblasSdot_assumed_rank_devptr = hipblasSdot_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) end function #else - function hipblasSrot_64_rank_0(handle,n,x,incx,y,incy,c,s) - use iso_c_binding + function hipblasSdot_rank_0(handle,n,x,incx,y,incy,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrot_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdot_rank_0 type(c_ptr), value :: handle - integer(c_int64_t) :: n + integer(c_int) :: n real(c_float),target :: x - integer(c_int64_t) :: incx + integer(c_int) :: incx real(c_float),target :: y - integer(c_int64_t) :: incy - real(c_float),target :: c - real(c_float),target :: s + integer(c_int) :: incy + real(c_float),target :: myResult ! - hipblasSrot_64_rank_0 = hipblasSrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c), & - c_loc(s)) + hipblasSdot_rank_0 = hipblasSdot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) end function - function hipblasSrot_64_rank_0_devptr(handle,n,x,incx,y,incy,c,s) - use iso_c_binding + function hipblasSdot_rank_0_devptr(handle,n,x,incx,y,incy,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrot_64_rank_0_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdot_rank_0_devptr type(c_ptr), value :: handle - integer(c_int64_t) :: n + integer(c_int) :: n real(c_float),target :: x - integer(c_int64_t) :: incx + integer(c_int) :: incx real(c_float),target :: y - integer(c_int64_t) :: incy - type(c_ptr),value :: c - type(c_ptr),value :: s + integer(c_int) :: incy + type(c_ptr),value :: myResult ! - hipblasSrot_64_rank_0_devptr = hipblasSrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + hipblasSdot_rank_0_devptr = hipblasSdot_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) end function - function hipblasSrot_64_rank_1(handle,n,x,incx,y,incy,c,s) - use iso_c_binding + function hipblasSdot_rank_1(handle,n,x,incx,y,incy,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrot_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdot_rank_1 type(c_ptr), value :: handle - integer(c_int64_t) :: n + integer(c_int) :: n real(c_float),target,dimension(:) :: x - integer(c_int64_t) :: incx + integer(c_int) :: incx real(c_float),target,dimension(:) :: y - integer(c_int64_t) :: incy - real(c_float),target :: c - real(c_float),target :: s + integer(c_int) :: incy + real(c_float),target :: myResult ! - hipblasSrot_64_rank_1 = hipblasSrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c), & - c_loc(s)) + hipblasSdot_rank_1 = hipblasSdot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) end function - function hipblasSrot_64_rank_1_devptr(handle,n,x,incx,y,incy,c,s) - use iso_c_binding + function hipblasSdot_rank_1_devptr(handle,n,x,incx,y,incy,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrot_64_rank_1_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdot_rank_1_devptr type(c_ptr), value :: handle - integer(c_int64_t) :: n + integer(c_int) :: n real(c_float),target,dimension(:) :: x - integer(c_int64_t) :: incx + integer(c_int) :: incx real(c_float),target,dimension(:) :: y - integer(c_int64_t) :: incy - type(c_ptr),value :: c - type(c_ptr),value :: s + integer(c_int) :: incy + type(c_ptr),value :: myResult ! - hipblasSrot_64_rank_1_devptr = hipblasSrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + hipblasSdot_rank_1_devptr = hipblasSdot_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasDrot_64_assumed_rank(handle,n,x,incx,y,incy,c,s) - use iso_c_binding + function hipblasDdot_assumed_rank(handle,n,x,incx,y,incy,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrot_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdot_assumed_rank type(c_ptr), value :: handle - integer(c_int64_t) :: n + integer(c_int) :: n real(c_double),target,dimension(..) :: x - integer(c_int64_t) :: incx + integer(c_int) :: incx real(c_double),target,dimension(..) :: y - integer(c_int64_t) :: incy - real(c_double),target :: c - real(c_double),target :: s + integer(c_int) :: incy + real(c_double),target :: myResult ! - hipblasDrot_64_assumed_rank = hipblasDrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c), & - c_loc(s)) + hipblasDdot_assumed_rank = hipblasDdot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) end function - function hipblasDrot_64_assumed_rank_devptr(handle,n,x,incx,y,incy,c,s) - use iso_c_binding + function hipblasDdot_assumed_rank_devptr(handle,n,x,incx,y,incy,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrot_64_assumed_rank_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdot_assumed_rank_devptr type(c_ptr), value :: handle - integer(c_int64_t) :: n + integer(c_int) :: n real(c_double),target,dimension(..) :: x - integer(c_int64_t) :: incx + integer(c_int) :: incx real(c_double),target,dimension(..) :: y - integer(c_int64_t) :: incy - type(c_ptr),value :: c - type(c_ptr),value :: s + integer(c_int) :: incy + type(c_ptr),value :: myResult ! - hipblasDrot_64_assumed_rank_devptr = hipblasDrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + hipblasDdot_assumed_rank_devptr = hipblasDdot_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) end function #else - function hipblasDrot_64_rank_0(handle,n,x,incx,y,incy,c,s) - use iso_c_binding + function hipblasDdot_rank_0(handle,n,x,incx,y,incy,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrot_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdot_rank_0 type(c_ptr), value :: handle - integer(c_int64_t) :: n + integer(c_int) :: n real(c_double),target :: x - integer(c_int64_t) :: incx + integer(c_int) :: incx real(c_double),target :: y - integer(c_int64_t) :: incy - real(c_double),target :: c - real(c_double),target :: s + integer(c_int) :: incy + real(c_double),target :: myResult ! - hipblasDrot_64_rank_0 = hipblasDrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c), & - c_loc(s)) + hipblasDdot_rank_0 = hipblasDdot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) end function - function hipblasDrot_64_rank_0_devptr(handle,n,x,incx,y,incy,c,s) - use iso_c_binding + function hipblasDdot_rank_0_devptr(handle,n,x,incx,y,incy,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrot_64_rank_0_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdot_rank_0_devptr type(c_ptr), value :: handle - integer(c_int64_t) :: n + integer(c_int) :: n real(c_double),target :: x - integer(c_int64_t) :: incx + integer(c_int) :: incx real(c_double),target :: y - integer(c_int64_t) :: incy - type(c_ptr),value :: c - type(c_ptr),value :: s + integer(c_int) :: incy + type(c_ptr),value :: myResult ! - hipblasDrot_64_rank_0_devptr = hipblasDrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + hipblasDdot_rank_0_devptr = hipblasDdot_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) end function - function hipblasDrot_64_rank_1(handle,n,x,incx,y,incy,c,s) - use iso_c_binding + function hipblasDdot_rank_1(handle,n,x,incx,y,incy,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrot_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdot_rank_1 type(c_ptr), value :: handle - integer(c_int64_t) :: n + integer(c_int) :: n real(c_double),target,dimension(:) :: x - integer(c_int64_t) :: incx + integer(c_int) :: incx real(c_double),target,dimension(:) :: y - integer(c_int64_t) :: incy - real(c_double),target :: c - real(c_double),target :: s + integer(c_int) :: incy + real(c_double),target :: myResult ! - hipblasDrot_64_rank_1 = hipblasDrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c), & - c_loc(s)) + hipblasDdot_rank_1 = hipblasDdot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) end function - function hipblasDrot_64_rank_1_devptr(handle,n,x,incx,y,incy,c,s) - use iso_c_binding + function hipblasDdot_rank_1_devptr(handle,n,x,incx,y,incy,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrot_64_rank_1_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdot_rank_1_devptr type(c_ptr), value :: handle - integer(c_int64_t) :: n + integer(c_int) :: n real(c_double),target,dimension(:) :: x - integer(c_int64_t) :: incx + integer(c_int) :: incx real(c_double),target,dimension(:) :: y - integer(c_int64_t) :: incy - type(c_ptr),value :: c - type(c_ptr),value :: s + integer(c_int) :: incy + type(c_ptr),value :: myResult ! - hipblasDrot_64_rank_1_devptr = hipblasDrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + hipblasDdot_rank_1_devptr = hipblasDdot_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCrot_64_assumed_rank(handle,n,x,incx,y,incy,c,s) - use iso_c_binding + function hipblasCdotc_assumed_rank(handle,n,x,incx,y,incy,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrot_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotc_assumed_rank type(c_ptr), value :: handle - integer(c_int64_t) :: n + integer(c_int) :: n complex(c_float_complex),target,dimension(..) :: x - integer(c_int64_t) :: incx + integer(c_int) :: incx complex(c_float_complex),target,dimension(..) :: y - integer(c_int64_t) :: incy - real(c_float),target :: c - complex(c_float_complex),target :: s + integer(c_int) :: incy + complex(c_float_complex),target :: myResult ! - hipblasCrot_64_assumed_rank = hipblasCrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c), & - c_loc(s)) + hipblasCdotc_assumed_rank = hipblasCdotc_(handle,n,c_loc(x),incx,c_loc(y),incy, & + c_loc(myResult)) end function - function hipblasCrot_64_assumed_rank_devptr(handle,n,x,incx,y,incy,c,s) - use iso_c_binding + function hipblasCdotc_assumed_rank_devptr(handle,n,x,incx,y,incy,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrot_64_assumed_rank_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotc_assumed_rank_devptr type(c_ptr), value :: handle - integer(c_int64_t) :: n + integer(c_int) :: n complex(c_float_complex),target,dimension(..) :: x - integer(c_int64_t) :: incx + integer(c_int) :: incx complex(c_float_complex),target,dimension(..) :: y - integer(c_int64_t) :: incy - type(c_ptr),value :: c - type(c_ptr),value :: s + integer(c_int) :: incy + type(c_ptr),value :: myResult ! - hipblasCrot_64_assumed_rank_devptr = hipblasCrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + hipblasCdotc_assumed_rank_devptr = hipblasCdotc_(handle,n,c_loc(x),incx,c_loc(y),incy, & + myResult) end function #else - function hipblasCrot_64_rank_0(handle,n,x,incx,y,incy,c,s) - use iso_c_binding + function hipblasCdotc_rank_0(handle,n,x,incx,y,incy,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrot_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotc_rank_0 type(c_ptr), value :: handle - integer(c_int64_t) :: n + integer(c_int) :: n complex(c_float_complex),target :: x - integer(c_int64_t) :: incx + integer(c_int) :: incx complex(c_float_complex),target :: y - integer(c_int64_t) :: incy - real(c_float),target :: c - complex(c_float_complex),target :: s + integer(c_int) :: incy + complex(c_float_complex),target :: myResult ! - hipblasCrot_64_rank_0 = hipblasCrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c), & - c_loc(s)) + hipblasCdotc_rank_0 = hipblasCdotc_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) end function - function hipblasCrot_64_rank_0_devptr(handle,n,x,incx,y,incy,c,s) - use iso_c_binding + function hipblasCdotc_rank_0_devptr(handle,n,x,incx,y,incy,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrot_64_rank_0_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotc_rank_0_devptr type(c_ptr), value :: handle - integer(c_int64_t) :: n + integer(c_int) :: n complex(c_float_complex),target :: x - integer(c_int64_t) :: incx + integer(c_int) :: incx complex(c_float_complex),target :: y - integer(c_int64_t) :: incy - type(c_ptr),value :: c - type(c_ptr),value :: s + integer(c_int) :: incy + type(c_ptr),value :: myResult ! - hipblasCrot_64_rank_0_devptr = hipblasCrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + hipblasCdotc_rank_0_devptr = hipblasCdotc_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) end function - function hipblasCrot_64_rank_1(handle,n,x,incx,y,incy,c,s) - use iso_c_binding + function hipblasCdotc_rank_1(handle,n,x,incx,y,incy,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrot_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotc_rank_1 type(c_ptr), value :: handle - integer(c_int64_t) :: n + integer(c_int) :: n complex(c_float_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx + integer(c_int) :: incx complex(c_float_complex),target,dimension(:) :: y - integer(c_int64_t) :: incy - real(c_float),target :: c - complex(c_float_complex),target :: s + integer(c_int) :: incy + complex(c_float_complex),target :: myResult ! - hipblasCrot_64_rank_1 = hipblasCrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c), & - c_loc(s)) + hipblasCdotc_rank_1 = hipblasCdotc_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) end function - function hipblasCrot_64_rank_1_devptr(handle,n,x,incx,y,incy,c,s) - use iso_c_binding + function hipblasCdotc_rank_1_devptr(handle,n,x,incx,y,incy,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrot_64_rank_1_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotc_rank_1_devptr type(c_ptr), value :: handle - integer(c_int64_t) :: n + integer(c_int) :: n complex(c_float_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx + integer(c_int) :: incx complex(c_float_complex),target,dimension(:) :: y - integer(c_int64_t) :: incy - type(c_ptr),value :: c - type(c_ptr),value :: s + integer(c_int) :: incy + type(c_ptr),value :: myResult ! - hipblasCrot_64_rank_1_devptr = hipblasCrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + hipblasCdotc_rank_1_devptr = hipblasCdotc_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCsrot_64_assumed_rank(handle,n,x,incx,y,incy,c,s) - use iso_c_binding + function hipblasCdotu_assumed_rank(handle,n,x,incx,y,incy,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrot_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotu_assumed_rank type(c_ptr), value :: handle - integer(c_int64_t) :: n + integer(c_int) :: n complex(c_float_complex),target,dimension(..) :: x - integer(c_int64_t) :: incx + integer(c_int) :: incx complex(c_float_complex),target,dimension(..) :: y - integer(c_int64_t) :: incy - real(c_float),target :: c - real(c_float),target :: s + integer(c_int) :: incy + complex(c_float_complex),target :: myResult ! - hipblasCsrot_64_assumed_rank = hipblasCsrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & - c_loc(c),c_loc(s)) + hipblasCdotu_assumed_rank = hipblasCdotu_(handle,n,c_loc(x),incx,c_loc(y),incy, & + c_loc(myResult)) end function - function hipblasCsrot_64_assumed_rank_devptr(handle,n,x,incx,y,incy,c,s) - use iso_c_binding + function hipblasCdotu_assumed_rank_devptr(handle,n,x,incx,y,incy,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrot_64_assumed_rank_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotu_assumed_rank_devptr type(c_ptr), value :: handle - integer(c_int64_t) :: n + integer(c_int) :: n complex(c_float_complex),target,dimension(..) :: x - integer(c_int64_t) :: incx + integer(c_int) :: incx complex(c_float_complex),target,dimension(..) :: y - integer(c_int64_t) :: incy - type(c_ptr),value :: c - type(c_ptr),value :: s + integer(c_int) :: incy + type(c_ptr),value :: myResult ! - hipblasCsrot_64_assumed_rank_devptr = hipblasCsrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & - c,s) + hipblasCdotu_assumed_rank_devptr = hipblasCdotu_(handle,n,c_loc(x),incx,c_loc(y),incy, & + myResult) end function #else - function hipblasCsrot_64_rank_0(handle,n,x,incx,y,incy,c,s) - use iso_c_binding + function hipblasCdotu_rank_0(handle,n,x,incx,y,incy,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrot_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotu_rank_0 type(c_ptr), value :: handle - integer(c_int64_t) :: n + integer(c_int) :: n complex(c_float_complex),target :: x - integer(c_int64_t) :: incx + integer(c_int) :: incx complex(c_float_complex),target :: y - integer(c_int64_t) :: incy - real(c_float),target :: c - real(c_float),target :: s + integer(c_int) :: incy + complex(c_float_complex),target :: myResult ! - hipblasCsrot_64_rank_0 = hipblasCsrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c), & - c_loc(s)) + hipblasCdotu_rank_0 = hipblasCdotu_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) end function - function hipblasCsrot_64_rank_0_devptr(handle,n,x,incx,y,incy,c,s) - use iso_c_binding + function hipblasCdotu_rank_0_devptr(handle,n,x,incx,y,incy,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrot_64_rank_0_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotu_rank_0_devptr type(c_ptr), value :: handle - integer(c_int64_t) :: n + integer(c_int) :: n complex(c_float_complex),target :: x - integer(c_int64_t) :: incx + integer(c_int) :: incx complex(c_float_complex),target :: y - integer(c_int64_t) :: incy - type(c_ptr),value :: c - type(c_ptr),value :: s + integer(c_int) :: incy + type(c_ptr),value :: myResult ! - hipblasCsrot_64_rank_0_devptr = hipblasCsrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + hipblasCdotu_rank_0_devptr = hipblasCdotu_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) end function - function hipblasCsrot_64_rank_1(handle,n,x,incx,y,incy,c,s) - use iso_c_binding + function hipblasCdotu_rank_1(handle,n,x,incx,y,incy,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrot_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotu_rank_1 type(c_ptr), value :: handle - integer(c_int64_t) :: n + integer(c_int) :: n complex(c_float_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx + integer(c_int) :: incx complex(c_float_complex),target,dimension(:) :: y - integer(c_int64_t) :: incy - real(c_float),target :: c - real(c_float),target :: s + integer(c_int) :: incy + complex(c_float_complex),target :: myResult ! - hipblasCsrot_64_rank_1 = hipblasCsrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c), & - c_loc(s)) + hipblasCdotu_rank_1 = hipblasCdotu_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) end function - function hipblasCsrot_64_rank_1_devptr(handle,n,x,incx,y,incy,c,s) - use iso_c_binding + function hipblasCdotu_rank_1_devptr(handle,n,x,incx,y,incy,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrot_64_rank_1_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotu_rank_1_devptr type(c_ptr), value :: handle - integer(c_int64_t) :: n + integer(c_int) :: n complex(c_float_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx + integer(c_int) :: incx complex(c_float_complex),target,dimension(:) :: y - integer(c_int64_t) :: incy - type(c_ptr),value :: c - type(c_ptr),value :: s + integer(c_int) :: incy + type(c_ptr),value :: myResult ! - hipblasCsrot_64_rank_1_devptr = hipblasCsrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + hipblasCdotu_rank_1_devptr = hipblasCdotu_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasZrot_64_assumed_rank(handle,n,x,incx,y,incy,c,s) - use iso_c_binding + function hipblasZdotc_assumed_rank(handle,n,x,incx,y,incy,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrot_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotc_assumed_rank type(c_ptr), value :: handle - integer(c_int64_t) :: n + integer(c_int) :: n complex(c_double_complex),target,dimension(..) :: x - integer(c_int64_t) :: incx + integer(c_int) :: incx complex(c_double_complex),target,dimension(..) :: y - integer(c_int64_t) :: incy - real(c_double),target :: c - complex(c_double_complex),target :: s + integer(c_int) :: incy + complex(c_double_complex),target :: myResult ! - hipblasZrot_64_assumed_rank = hipblasZrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c), & - c_loc(s)) + hipblasZdotc_assumed_rank = hipblasZdotc_(handle,n,c_loc(x),incx,c_loc(y),incy, & + c_loc(myResult)) end function - function hipblasZrot_64_assumed_rank_devptr(handle,n,x,incx,y,incy,c,s) - use iso_c_binding + function hipblasZdotc_assumed_rank_devptr(handle,n,x,incx,y,incy,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrot_64_assumed_rank_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotc_assumed_rank_devptr type(c_ptr), value :: handle - integer(c_int64_t) :: n + integer(c_int) :: n complex(c_double_complex),target,dimension(..) :: x - integer(c_int64_t) :: incx + integer(c_int) :: incx complex(c_double_complex),target,dimension(..) :: y - integer(c_int64_t) :: incy - type(c_ptr),value :: c - type(c_ptr),value :: s + integer(c_int) :: incy + type(c_ptr),value :: myResult ! - hipblasZrot_64_assumed_rank_devptr = hipblasZrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + hipblasZdotc_assumed_rank_devptr = hipblasZdotc_(handle,n,c_loc(x),incx,c_loc(y),incy, & + myResult) end function #else - function hipblasZrot_64_rank_0(handle,n,x,incx,y,incy,c,s) - use iso_c_binding + function hipblasZdotc_rank_0(handle,n,x,incx,y,incy,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrot_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotc_rank_0 type(c_ptr), value :: handle - integer(c_int64_t) :: n + integer(c_int) :: n complex(c_double_complex),target :: x - integer(c_int64_t) :: incx + integer(c_int) :: incx complex(c_double_complex),target :: y - integer(c_int64_t) :: incy - real(c_double),target :: c - complex(c_double_complex),target :: s + integer(c_int) :: incy + complex(c_double_complex),target :: myResult ! - hipblasZrot_64_rank_0 = hipblasZrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c), & - c_loc(s)) + hipblasZdotc_rank_0 = hipblasZdotc_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) end function - function hipblasZrot_64_rank_0_devptr(handle,n,x,incx,y,incy,c,s) - use iso_c_binding + function hipblasZdotc_rank_0_devptr(handle,n,x,incx,y,incy,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrot_64_rank_0_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotc_rank_0_devptr type(c_ptr), value :: handle - integer(c_int64_t) :: n + integer(c_int) :: n complex(c_double_complex),target :: x - integer(c_int64_t) :: incx + integer(c_int) :: incx complex(c_double_complex),target :: y - integer(c_int64_t) :: incy - type(c_ptr),value :: c - type(c_ptr),value :: s + integer(c_int) :: incy + type(c_ptr),value :: myResult ! - hipblasZrot_64_rank_0_devptr = hipblasZrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + hipblasZdotc_rank_0_devptr = hipblasZdotc_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) end function - function hipblasZrot_64_rank_1(handle,n,x,incx,y,incy,c,s) - use iso_c_binding + function hipblasZdotc_rank_1(handle,n,x,incx,y,incy,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrot_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotc_rank_1 type(c_ptr), value :: handle - integer(c_int64_t) :: n + integer(c_int) :: n complex(c_double_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx + integer(c_int) :: incx complex(c_double_complex),target,dimension(:) :: y - integer(c_int64_t) :: incy - real(c_double),target :: c - complex(c_double_complex),target :: s + integer(c_int) :: incy + complex(c_double_complex),target :: myResult ! - hipblasZrot_64_rank_1 = hipblasZrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c), & - c_loc(s)) + hipblasZdotc_rank_1 = hipblasZdotc_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) end function - function hipblasZrot_64_rank_1_devptr(handle,n,x,incx,y,incy,c,s) - use iso_c_binding + function hipblasZdotc_rank_1_devptr(handle,n,x,incx,y,incy,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrot_64_rank_1_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotc_rank_1_devptr type(c_ptr), value :: handle - integer(c_int64_t) :: n + integer(c_int) :: n complex(c_double_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx + integer(c_int) :: incx complex(c_double_complex),target,dimension(:) :: y - integer(c_int64_t) :: incy - type(c_ptr),value :: c - type(c_ptr),value :: s + integer(c_int) :: incy + type(c_ptr),value :: myResult ! - hipblasZrot_64_rank_1_devptr = hipblasZrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + hipblasZdotc_rank_1_devptr = hipblasZdotc_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasZdrot_64_assumed_rank(handle,n,x,incx,y,incy,c,s) - use iso_c_binding + function hipblasZdotu_assumed_rank(handle,n,x,incx,y,incy,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrot_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotu_assumed_rank type(c_ptr), value :: handle - integer(c_int64_t) :: n + integer(c_int) :: n complex(c_double_complex),target,dimension(..) :: x - integer(c_int64_t) :: incx + integer(c_int) :: incx complex(c_double_complex),target,dimension(..) :: y - integer(c_int64_t) :: incy - real(c_double),target :: c - real(c_double),target :: s + integer(c_int) :: incy + complex(c_double_complex),target :: myResult ! - hipblasZdrot_64_assumed_rank = hipblasZdrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & - c_loc(c),c_loc(s)) + hipblasZdotu_assumed_rank = hipblasZdotu_(handle,n,c_loc(x),incx,c_loc(y),incy, & + c_loc(myResult)) end function - function hipblasZdrot_64_assumed_rank_devptr(handle,n,x,incx,y,incy,c,s) - use iso_c_binding + function hipblasZdotu_assumed_rank_devptr(handle,n,x,incx,y,incy,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrot_64_assumed_rank_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotu_assumed_rank_devptr type(c_ptr), value :: handle - integer(c_int64_t) :: n + integer(c_int) :: n complex(c_double_complex),target,dimension(..) :: x - integer(c_int64_t) :: incx + integer(c_int) :: incx complex(c_double_complex),target,dimension(..) :: y - integer(c_int64_t) :: incy - type(c_ptr),value :: c - type(c_ptr),value :: s + integer(c_int) :: incy + type(c_ptr),value :: myResult ! - hipblasZdrot_64_assumed_rank_devptr = hipblasZdrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & - c,s) + hipblasZdotu_assumed_rank_devptr = hipblasZdotu_(handle,n,c_loc(x),incx,c_loc(y),incy, & + myResult) end function #else - function hipblasZdrot_64_rank_0(handle,n,x,incx,y,incy,c,s) - use iso_c_binding + function hipblasZdotu_rank_0(handle,n,x,incx,y,incy,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrot_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotu_rank_0 type(c_ptr), value :: handle - integer(c_int64_t) :: n + integer(c_int) :: n complex(c_double_complex),target :: x - integer(c_int64_t) :: incx + integer(c_int) :: incx complex(c_double_complex),target :: y - integer(c_int64_t) :: incy - real(c_double),target :: c - real(c_double),target :: s + integer(c_int) :: incy + complex(c_double_complex),target :: myResult ! - hipblasZdrot_64_rank_0 = hipblasZdrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c), & - c_loc(s)) + hipblasZdotu_rank_0 = hipblasZdotu_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) end function - function hipblasZdrot_64_rank_0_devptr(handle,n,x,incx,y,incy,c,s) - use iso_c_binding + function hipblasZdotu_rank_0_devptr(handle,n,x,incx,y,incy,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrot_64_rank_0_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotu_rank_0_devptr type(c_ptr), value :: handle - integer(c_int64_t) :: n + integer(c_int) :: n complex(c_double_complex),target :: x - integer(c_int64_t) :: incx + integer(c_int) :: incx complex(c_double_complex),target :: y - integer(c_int64_t) :: incy - type(c_ptr),value :: c - type(c_ptr),value :: s + integer(c_int) :: incy + type(c_ptr),value :: myResult ! - hipblasZdrot_64_rank_0_devptr = hipblasZdrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + hipblasZdotu_rank_0_devptr = hipblasZdotu_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) end function - function hipblasZdrot_64_rank_1(handle,n,x,incx,y,incy,c,s) - use iso_c_binding + function hipblasZdotu_rank_1(handle,n,x,incx,y,incy,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrot_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotu_rank_1 type(c_ptr), value :: handle - integer(c_int64_t) :: n + integer(c_int) :: n complex(c_double_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx + integer(c_int) :: incx complex(c_double_complex),target,dimension(:) :: y - integer(c_int64_t) :: incy - real(c_double),target :: c - real(c_double),target :: s + integer(c_int) :: incy + complex(c_double_complex),target :: myResult ! - hipblasZdrot_64_rank_1 = hipblasZdrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c), & - c_loc(s)) + hipblasZdotu_rank_1 = hipblasZdotu_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) end function - function hipblasZdrot_64_rank_1_devptr(handle,n,x,incx,y,incy,c,s) - use iso_c_binding + function hipblasZdotu_rank_1_devptr(handle,n,x,incx,y,incy,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrot_64_rank_1_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotu_rank_1_devptr type(c_ptr), value :: handle - integer(c_int64_t) :: n + integer(c_int) :: n complex(c_double_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx + integer(c_int) :: incx complex(c_double_complex),target,dimension(:) :: y - integer(c_int64_t) :: incy - type(c_ptr),value :: c - type(c_ptr),value :: s + integer(c_int) :: incy + type(c_ptr),value :: myResult ! - hipblasZdrot_64_rank_1_devptr = hipblasZdrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + hipblasZdotu_rank_1_devptr = hipblasZdotu_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasSrotStridedBatched_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey,c,s, & - batchCount) - use iso_c_binding + function hipblasBfdot_64_assumed_rank(handle,n,x,incx,y,incy,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasBfdot_64_assumed_rank type(c_ptr), value :: handle - integer(c_int) :: n - real(c_float),target,dimension(..) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - real(c_float),target,dimension(..) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - type(c_ptr) :: c - type(c_ptr) :: s - integer(c_int) :: batchCount + integer(c_int64_t) :: n + integer(c_short),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_short),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_short),target :: myResult ! - hipblasSrotStridedBatched_assumed_rank = hipblasSrotStridedBatched_(handle,n,c_loc(x),incx, & - stridex,c_loc(y),incy,stridey,c,s,batchCount) + hipblasBfdot_64_assumed_rank = hipblasBfdot_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + c_loc(myResult)) end function -#else - function hipblasSrotStridedBatched_rank_0(handle,n,x,incx,stridex,y,incy,stridey,c,s,batchCount) - use iso_c_binding + function hipblasBfdot_64_assumed_rank_devptr(handle,n,x,incx,y,incy,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasBfdot_64_assumed_rank_devptr type(c_ptr), value :: handle - integer(c_int) :: n - real(c_float),target :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - real(c_float),target :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - type(c_ptr) :: c - type(c_ptr) :: s - integer(c_int) :: batchCount + integer(c_int64_t) :: n + integer(c_short),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_short),target,dimension(..) :: y + integer(c_int64_t) :: incy + type(c_ptr),value :: myResult ! - hipblasSrotStridedBatched_rank_0 = hipblasSrotStridedBatched_(handle,n,c_loc(x),incx, & - stridex,c_loc(y),incy,stridey,c,s,batchCount) + hipblasBfdot_64_assumed_rank_devptr = hipblasBfdot_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + myResult) end function - function hipblasSrotStridedBatched_rank_1(handle,n,x,incx,stridex,y,incy,stridey,c,s,batchCount) - use iso_c_binding +#else + function hipblasBfdot_64_rank_0(handle,n,x,incx,y,incy,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasBfdot_64_rank_0 type(c_ptr), value :: handle - integer(c_int) :: n - real(c_float),target,dimension(:) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - real(c_float),target,dimension(:) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - type(c_ptr) :: c - type(c_ptr) :: s - integer(c_int) :: batchCount + integer(c_int64_t) :: n + integer(c_short),target :: x + integer(c_int64_t) :: incx + integer(c_short),target :: y + integer(c_int64_t) :: incy + integer(c_short),target :: myResult ! - hipblasSrotStridedBatched_rank_1 = hipblasSrotStridedBatched_(handle,n,c_loc(x),incx, & - stridex,c_loc(y),incy,stridey,c,s,batchCount) + hipblasBfdot_64_rank_0 = hipblasBfdot_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + c_loc(myResult)) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDrotStridedBatched_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey,c,s, & - batchCount) - use iso_c_binding + function hipblasBfdot_64_rank_0_devptr(handle,n,x,incx,y,incy,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasBfdot_64_rank_0_devptr type(c_ptr), value :: handle - integer(c_int) :: n - real(c_double),target,dimension(..) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - real(c_double),target,dimension(..) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - type(c_ptr) :: c - type(c_ptr) :: s - integer(c_int) :: batchCount + integer(c_int64_t) :: n + integer(c_short),target :: x + integer(c_int64_t) :: incx + integer(c_short),target :: y + integer(c_int64_t) :: incy + type(c_ptr),value :: myResult ! - hipblasDrotStridedBatched_assumed_rank = hipblasDrotStridedBatched_(handle,n,c_loc(x),incx, & - stridex,c_loc(y),incy,stridey,c,s,batchCount) + hipblasBfdot_64_rank_0_devptr = hipblasBfdot_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + myResult) end function -#else - function hipblasDrotStridedBatched_rank_0(handle,n,x,incx,stridex,y,incy,stridey,c,s,batchCount) - use iso_c_binding + function hipblasBfdot_64_rank_1(handle,n,x,incx,y,incy,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasBfdot_64_rank_1 type(c_ptr), value :: handle - integer(c_int) :: n - real(c_double),target :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - real(c_double),target :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - type(c_ptr) :: c - type(c_ptr) :: s - integer(c_int) :: batchCount + integer(c_int64_t) :: n + integer(c_short),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_short),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_short),target :: myResult ! - hipblasDrotStridedBatched_rank_0 = hipblasDrotStridedBatched_(handle,n,c_loc(x),incx, & - stridex,c_loc(y),incy,stridey,c,s,batchCount) + hipblasBfdot_64_rank_1 = hipblasBfdot_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + c_loc(myResult)) end function - function hipblasDrotStridedBatched_rank_1(handle,n,x,incx,stridex,y,incy,stridey,c,s,batchCount) - use iso_c_binding + function hipblasBfdot_64_rank_1_devptr(handle,n,x,incx,y,incy,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasBfdot_64_rank_1_devptr type(c_ptr), value :: handle - integer(c_int) :: n - real(c_double),target,dimension(:) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - real(c_double),target,dimension(:) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - type(c_ptr) :: c - type(c_ptr) :: s - integer(c_int) :: batchCount + integer(c_int64_t) :: n + integer(c_short),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_short),target,dimension(:) :: y + integer(c_int64_t) :: incy + type(c_ptr),value :: myResult ! - hipblasDrotStridedBatched_rank_1 = hipblasDrotStridedBatched_(handle,n,c_loc(x),incx, & - stridex,c_loc(y),incy,stridey,c,s,batchCount) + hipblasBfdot_64_rank_1_devptr = hipblasBfdot_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + myResult) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCrotStridedBatched_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey,c,s, & - batchCount) - use iso_c_binding + function hipblasSdot_64_assumed_rank(handle,n,x,incx,y,incy,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdot_64_assumed_rank type(c_ptr), value :: handle - integer(c_int) :: n - complex(c_float_complex),target,dimension(..) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - complex(c_float_complex),target,dimension(..) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - type(c_ptr) :: c - type(c_ptr) :: s - integer(c_int) :: batchCount + integer(c_int64_t) :: n + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy + real(c_float),target :: myResult ! - hipblasCrotStridedBatched_assumed_rank = hipblasCrotStridedBatched_(handle,n,c_loc(x),incx, & - stridex,c_loc(y),incy,stridey,c,s,batchCount) + hipblasSdot_64_assumed_rank = hipblasSdot_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + c_loc(myResult)) end function -#else - function hipblasCrotStridedBatched_rank_0(handle,n,x,incx,stridex,y,incy,stridey,c,s,batchCount) - use iso_c_binding + function hipblasSdot_64_assumed_rank_devptr(handle,n,x,incx,y,incy,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdot_64_assumed_rank_devptr type(c_ptr), value :: handle - integer(c_int) :: n - complex(c_float_complex),target :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - complex(c_float_complex),target :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - type(c_ptr) :: c - type(c_ptr) :: s - integer(c_int) :: batchCount + integer(c_int64_t) :: n + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy + type(c_ptr),value :: myResult ! - hipblasCrotStridedBatched_rank_0 = hipblasCrotStridedBatched_(handle,n,c_loc(x),incx, & - stridex,c_loc(y),incy,stridey,c,s,batchCount) + hipblasSdot_64_assumed_rank_devptr = hipblasSdot_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + myResult) end function - function hipblasCrotStridedBatched_rank_1(handle,n,x,incx,stridex,y,incy,stridey,c,s,batchCount) - use iso_c_binding +#else + function hipblasSdot_64_rank_0(handle,n,x,incx,y,incy,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdot_64_rank_0 type(c_ptr), value :: handle - integer(c_int) :: n - complex(c_float_complex),target,dimension(:) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - complex(c_float_complex),target,dimension(:) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - type(c_ptr) :: c - type(c_ptr) :: s - integer(c_int) :: batchCount + integer(c_int64_t) :: n + real(c_float),target :: x + integer(c_int64_t) :: incx + real(c_float),target :: y + integer(c_int64_t) :: incy + real(c_float),target :: myResult ! - hipblasCrotStridedBatched_rank_1 = hipblasCrotStridedBatched_(handle,n,c_loc(x),incx, & - stridex,c_loc(y),incy,stridey,c,s,batchCount) + hipblasSdot_64_rank_0 = hipblasSdot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCsrotStridedBatched_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey,c,s, & - batchCount) - use iso_c_binding + function hipblasSdot_64_rank_0_devptr(handle,n,x,incx,y,incy,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrotStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdot_64_rank_0_devptr type(c_ptr), value :: handle - integer(c_int) :: n - complex(c_float_complex),target,dimension(..) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - complex(c_float_complex),target,dimension(..) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - type(c_ptr) :: c - type(c_ptr) :: s - integer(c_int) :: batchCount + integer(c_int64_t) :: n + real(c_float),target :: x + integer(c_int64_t) :: incx + real(c_float),target :: y + integer(c_int64_t) :: incy + type(c_ptr),value :: myResult ! - hipblasCsrotStridedBatched_assumed_rank = hipblasCsrotStridedBatched_(handle,n,c_loc(x), & - incx,stridex,c_loc(y),incy,stridey,c,s,batchCount) + hipblasSdot_64_rank_0_devptr = hipblasSdot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) end function -#else - function hipblasCsrotStridedBatched_rank_0(handle,n,x,incx,stridex,y,incy,stridey,c,s, & - batchCount) - use iso_c_binding + function hipblasSdot_64_rank_1(handle,n,x,incx,y,incy,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrotStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdot_64_rank_1 type(c_ptr), value :: handle - integer(c_int) :: n - complex(c_float_complex),target :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - complex(c_float_complex),target :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - type(c_ptr) :: c - type(c_ptr) :: s - integer(c_int) :: batchCount + integer(c_int64_t) :: n + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + real(c_float),target :: myResult ! - hipblasCsrotStridedBatched_rank_0 = hipblasCsrotStridedBatched_(handle,n,c_loc(x),incx, & - stridex,c_loc(y),incy,stridey,c,s,batchCount) + hipblasSdot_64_rank_1 = hipblasSdot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) end function - function hipblasCsrotStridedBatched_rank_1(handle,n,x,incx,stridex,y,incy,stridey,c,s, & - batchCount) - use iso_c_binding + function hipblasSdot_64_rank_1_devptr(handle,n,x,incx,y,incy,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrotStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdot_64_rank_1_devptr type(c_ptr), value :: handle - integer(c_int) :: n - complex(c_float_complex),target,dimension(:) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - complex(c_float_complex),target,dimension(:) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - type(c_ptr) :: c - type(c_ptr) :: s - integer(c_int) :: batchCount + integer(c_int64_t) :: n + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + type(c_ptr),value :: myResult ! - hipblasCsrotStridedBatched_rank_1 = hipblasCsrotStridedBatched_(handle,n,c_loc(x),incx, & - stridex,c_loc(y),incy,stridey,c,s,batchCount) + hipblasSdot_64_rank_1_devptr = hipblasSdot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasZrotStridedBatched_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey,c,s, & - batchCount) - use iso_c_binding + function hipblasDdot_64_assumed_rank(handle,n,x,incx,y,incy,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdot_64_assumed_rank type(c_ptr), value :: handle - integer(c_int) :: n - complex(c_double_complex),target,dimension(..) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - complex(c_double_complex),target,dimension(..) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - type(c_ptr) :: c - type(c_ptr) :: s - integer(c_int) :: batchCount + integer(c_int64_t) :: n + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: incy + real(c_double),target :: myResult ! - hipblasZrotStridedBatched_assumed_rank = hipblasZrotStridedBatched_(handle,n,c_loc(x),incx, & - stridex,c_loc(y),incy,stridey,c,s,batchCount) + hipblasDdot_64_assumed_rank = hipblasDdot_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + c_loc(myResult)) end function -#else - function hipblasZrotStridedBatched_rank_0(handle,n,x,incx,stridex,y,incy,stridey,c,s,batchCount) - use iso_c_binding + function hipblasDdot_64_assumed_rank_devptr(handle,n,x,incx,y,incy,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdot_64_assumed_rank_devptr type(c_ptr), value :: handle - integer(c_int) :: n - complex(c_double_complex),target :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - complex(c_double_complex),target :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - type(c_ptr) :: c - type(c_ptr) :: s - integer(c_int) :: batchCount + integer(c_int64_t) :: n + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: incy + type(c_ptr),value :: myResult ! - hipblasZrotStridedBatched_rank_0 = hipblasZrotStridedBatched_(handle,n,c_loc(x),incx, & - stridex,c_loc(y),incy,stridey,c,s,batchCount) + hipblasDdot_64_assumed_rank_devptr = hipblasDdot_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + myResult) end function - function hipblasZrotStridedBatched_rank_1(handle,n,x,incx,stridex,y,incy,stridey,c,s,batchCount) - use iso_c_binding +#else + function hipblasDdot_64_rank_0(handle,n,x,incx,y,incy,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdot_64_rank_0 type(c_ptr), value :: handle - integer(c_int) :: n - complex(c_double_complex),target,dimension(:) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - complex(c_double_complex),target,dimension(:) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - type(c_ptr) :: c - type(c_ptr) :: s - integer(c_int) :: batchCount + integer(c_int64_t) :: n + real(c_double),target :: x + integer(c_int64_t) :: incx + real(c_double),target :: y + integer(c_int64_t) :: incy + real(c_double),target :: myResult ! - hipblasZrotStridedBatched_rank_1 = hipblasZrotStridedBatched_(handle,n,c_loc(x),incx, & - stridex,c_loc(y),incy,stridey,c,s,batchCount) + hipblasDdot_64_rank_0 = hipblasDdot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZdrotStridedBatched_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey,c,s, & - batchCount) - use iso_c_binding + function hipblasDdot_64_rank_0_devptr(handle,n,x,incx,y,incy,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrotStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdot_64_rank_0_devptr type(c_ptr), value :: handle - integer(c_int) :: n - complex(c_double_complex),target,dimension(..) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - complex(c_double_complex),target,dimension(..) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - type(c_ptr) :: c - type(c_ptr) :: s - integer(c_int) :: batchCount + integer(c_int64_t) :: n + real(c_double),target :: x + integer(c_int64_t) :: incx + real(c_double),target :: y + integer(c_int64_t) :: incy + type(c_ptr),value :: myResult ! - hipblasZdrotStridedBatched_assumed_rank = hipblasZdrotStridedBatched_(handle,n,c_loc(x), & - incx,stridex,c_loc(y),incy,stridey,c,s,batchCount) + hipblasDdot_64_rank_0_devptr = hipblasDdot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) end function -#else - function hipblasZdrotStridedBatched_rank_0(handle,n,x,incx,stridex,y,incy,stridey,c,s, & - batchCount) - use iso_c_binding + function hipblasDdot_64_rank_1(handle,n,x,incx,y,incy,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrotStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdot_64_rank_1 type(c_ptr), value :: handle - integer(c_int) :: n - complex(c_double_complex),target :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - complex(c_double_complex),target :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - type(c_ptr) :: c - type(c_ptr) :: s - integer(c_int) :: batchCount + integer(c_int64_t) :: n + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + real(c_double),target :: myResult ! - hipblasZdrotStridedBatched_rank_0 = hipblasZdrotStridedBatched_(handle,n,c_loc(x),incx, & - stridex,c_loc(y),incy,stridey,c,s,batchCount) + hipblasDdot_64_rank_1 = hipblasDdot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) end function - function hipblasZdrotStridedBatched_rank_1(handle,n,x,incx,stridex,y,incy,stridey,c,s, & - batchCount) - use iso_c_binding + function hipblasDdot_64_rank_1_devptr(handle,n,x,incx,y,incy,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrotStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdot_64_rank_1_devptr type(c_ptr), value :: handle - integer(c_int) :: n - complex(c_double_complex),target,dimension(:) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - complex(c_double_complex),target,dimension(:) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - type(c_ptr) :: c - type(c_ptr) :: s - integer(c_int) :: batchCount + integer(c_int64_t) :: n + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + type(c_ptr),value :: myResult ! - hipblasZdrotStridedBatched_rank_1 = hipblasZdrotStridedBatched_(handle,n,c_loc(x),incx, & - stridex,c_loc(y),incy,stridey,c,s,batchCount) + hipblasDdot_64_rank_1_devptr = hipblasDdot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasSrotStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey,c,s, & - batchCount) - use iso_c_binding + function hipblasCdotc_64_assumed_rank(handle,n,x,incx,y,incy,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotc_64_assumed_rank type(c_ptr), value :: handle integer(c_int64_t) :: n - real(c_float),target,dimension(..) :: x + complex(c_float_complex),target,dimension(..) :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - real(c_float),target,dimension(..) :: y + complex(c_float_complex),target,dimension(..) :: y integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - type(c_ptr) :: c - type(c_ptr) :: s - integer(c_int64_t) :: batchCount + complex(c_float_complex),target :: myResult ! - hipblasSrotStridedBatched_64_assumed_rank = hipblasSrotStridedBatched_64_(handle,n,c_loc(x), & - incx,stridex,c_loc(y),incy,stridey,c,s,batchCount) + hipblasCdotc_64_assumed_rank = hipblasCdotc_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + c_loc(myResult)) end function -#else - function hipblasSrotStridedBatched_64_rank_0(handle,n,x,incx,stridex,y,incy,stridey,c,s, & - batchCount) - use iso_c_binding + function hipblasCdotc_64_assumed_rank_devptr(handle,n,x,incx,y,incy,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotc_64_assumed_rank_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n - real(c_float),target :: x + complex(c_float_complex),target,dimension(..) :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - real(c_float),target :: y + complex(c_float_complex),target,dimension(..) :: y integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - type(c_ptr) :: c - type(c_ptr) :: s - integer(c_int64_t) :: batchCount + type(c_ptr),value :: myResult ! - hipblasSrotStridedBatched_64_rank_0 = hipblasSrotStridedBatched_64_(handle,n,c_loc(x),incx, & - stridex,c_loc(y),incy,stridey,c,s,batchCount) + hipblasCdotc_64_assumed_rank_devptr = hipblasCdotc_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + myResult) end function - function hipblasSrotStridedBatched_64_rank_1(handle,n,x,incx,stridex,y,incy,stridey,c,s, & - batchCount) - use iso_c_binding +#else + function hipblasCdotc_64_rank_0(handle,n,x,incx,y,incy,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotc_64_rank_0 type(c_ptr), value :: handle integer(c_int64_t) :: n - real(c_float),target,dimension(:) :: x + complex(c_float_complex),target :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - real(c_float),target,dimension(:) :: y + complex(c_float_complex),target :: y integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - type(c_ptr) :: c - type(c_ptr) :: s - integer(c_int64_t) :: batchCount + complex(c_float_complex),target :: myResult ! - hipblasSrotStridedBatched_64_rank_1 = hipblasSrotStridedBatched_64_(handle,n,c_loc(x),incx, & - stridex,c_loc(y),incy,stridey,c,s,batchCount) + hipblasCdotc_64_rank_0 = hipblasCdotc_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + c_loc(myResult)) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDrotStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey,c,s, & - batchCount) - use iso_c_binding + function hipblasCdotc_64_rank_0_devptr(handle,n,x,incx,y,incy,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotc_64_rank_0_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n - real(c_double),target,dimension(..) :: x + complex(c_float_complex),target :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - real(c_double),target,dimension(..) :: y + complex(c_float_complex),target :: y integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - type(c_ptr) :: c - type(c_ptr) :: s - integer(c_int64_t) :: batchCount + type(c_ptr),value :: myResult ! - hipblasDrotStridedBatched_64_assumed_rank = hipblasDrotStridedBatched_64_(handle,n,c_loc(x), & - incx,stridex,c_loc(y),incy,stridey,c,s,batchCount) + hipblasCdotc_64_rank_0_devptr = hipblasCdotc_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + myResult) end function -#else - function hipblasDrotStridedBatched_64_rank_0(handle,n,x,incx,stridex,y,incy,stridey,c,s, & - batchCount) - use iso_c_binding + function hipblasCdotc_64_rank_1(handle,n,x,incx,y,incy,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotc_64_rank_1 type(c_ptr), value :: handle integer(c_int64_t) :: n - real(c_double),target :: x + complex(c_float_complex),target,dimension(:) :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - real(c_double),target :: y + complex(c_float_complex),target,dimension(:) :: y integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - type(c_ptr) :: c - type(c_ptr) :: s - integer(c_int64_t) :: batchCount + complex(c_float_complex),target :: myResult ! - hipblasDrotStridedBatched_64_rank_0 = hipblasDrotStridedBatched_64_(handle,n,c_loc(x),incx, & - stridex,c_loc(y),incy,stridey,c,s,batchCount) + hipblasCdotc_64_rank_1 = hipblasCdotc_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + c_loc(myResult)) end function - function hipblasDrotStridedBatched_64_rank_1(handle,n,x,incx,stridex,y,incy,stridey,c,s, & - batchCount) - use iso_c_binding + function hipblasCdotc_64_rank_1_devptr(handle,n,x,incx,y,incy,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotc_64_rank_1_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n - real(c_double),target,dimension(:) :: x + complex(c_float_complex),target,dimension(:) :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - real(c_double),target,dimension(:) :: y + complex(c_float_complex),target,dimension(:) :: y integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - type(c_ptr) :: c - type(c_ptr) :: s - integer(c_int64_t) :: batchCount + type(c_ptr),value :: myResult ! - hipblasDrotStridedBatched_64_rank_1 = hipblasDrotStridedBatched_64_(handle,n,c_loc(x),incx, & - stridex,c_loc(y),incy,stridey,c,s,batchCount) + hipblasCdotc_64_rank_1_devptr = hipblasCdotc_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + myResult) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCrotStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey,c,s, & - batchCount) - use iso_c_binding + function hipblasCdotu_64_assumed_rank(handle,n,x,incx,y,incy,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotu_64_assumed_rank type(c_ptr), value :: handle integer(c_int64_t) :: n complex(c_float_complex),target,dimension(..) :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex complex(c_float_complex),target,dimension(..) :: y integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - type(c_ptr) :: c - type(c_ptr) :: s - integer(c_int64_t) :: batchCount + complex(c_float_complex),target :: myResult ! - hipblasCrotStridedBatched_64_assumed_rank = hipblasCrotStridedBatched_64_(handle,n,c_loc(x), & - incx,stridex,c_loc(y),incy,stridey,c,s,batchCount) + hipblasCdotu_64_assumed_rank = hipblasCdotu_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + c_loc(myResult)) end function -#else - function hipblasCrotStridedBatched_64_rank_0(handle,n,x,incx,stridex,y,incy,stridey,c,s, & - batchCount) - use iso_c_binding + function hipblasCdotu_64_assumed_rank_devptr(handle,n,x,incx,y,incy,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotu_64_assumed_rank_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n - complex(c_float_complex),target :: x + complex(c_float_complex),target,dimension(..) :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - complex(c_float_complex),target :: y + complex(c_float_complex),target,dimension(..) :: y integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - type(c_ptr) :: c - type(c_ptr) :: s - integer(c_int64_t) :: batchCount + type(c_ptr),value :: myResult ! - hipblasCrotStridedBatched_64_rank_0 = hipblasCrotStridedBatched_64_(handle,n,c_loc(x),incx, & - stridex,c_loc(y),incy,stridey,c,s,batchCount) + hipblasCdotu_64_assumed_rank_devptr = hipblasCdotu_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + myResult) end function - function hipblasCrotStridedBatched_64_rank_1(handle,n,x,incx,stridex,y,incy,stridey,c,s, & - batchCount) - use iso_c_binding +#else + function hipblasCdotu_64_rank_0(handle,n,x,incx,y,incy,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotu_64_rank_0 type(c_ptr), value :: handle integer(c_int64_t) :: n - complex(c_float_complex),target,dimension(:) :: x + complex(c_float_complex),target :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - complex(c_float_complex),target,dimension(:) :: y + complex(c_float_complex),target :: y integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - type(c_ptr) :: c - type(c_ptr) :: s - integer(c_int64_t) :: batchCount + complex(c_float_complex),target :: myResult ! - hipblasCrotStridedBatched_64_rank_1 = hipblasCrotStridedBatched_64_(handle,n,c_loc(x),incx, & - stridex,c_loc(y),incy,stridey,c,s,batchCount) + hipblasCdotu_64_rank_0 = hipblasCdotu_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + c_loc(myResult)) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCsrotStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey,c, & - s,batchCount) - use iso_c_binding + function hipblasCdotu_64_rank_0_devptr(handle,n,x,incx,y,incy,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrotStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotu_64_rank_0_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n - complex(c_float_complex),target,dimension(..) :: x + complex(c_float_complex),target :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - complex(c_float_complex),target,dimension(..) :: y + complex(c_float_complex),target :: y integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - type(c_ptr) :: c - type(c_ptr) :: s - integer(c_int64_t) :: batchCount + type(c_ptr),value :: myResult ! - hipblasCsrotStridedBatched_64_assumed_rank = hipblasCsrotStridedBatched_64_(handle,n, & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,c,s,batchCount) + hipblasCdotu_64_rank_0_devptr = hipblasCdotu_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + myResult) end function -#else - function hipblasCsrotStridedBatched_64_rank_0(handle,n,x,incx,stridex,y,incy,stridey,c,s, & - batchCount) - use iso_c_binding + function hipblasCdotu_64_rank_1(handle,n,x,incx,y,incy,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrotStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotu_64_rank_1 type(c_ptr), value :: handle integer(c_int64_t) :: n - complex(c_float_complex),target :: x + complex(c_float_complex),target,dimension(:) :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - complex(c_float_complex),target :: y + complex(c_float_complex),target,dimension(:) :: y integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - type(c_ptr) :: c - type(c_ptr) :: s - integer(c_int64_t) :: batchCount + complex(c_float_complex),target :: myResult ! - hipblasCsrotStridedBatched_64_rank_0 = hipblasCsrotStridedBatched_64_(handle,n,c_loc(x), & - incx,stridex,c_loc(y),incy,stridey,c,s,batchCount) + hipblasCdotu_64_rank_1 = hipblasCdotu_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + c_loc(myResult)) end function - function hipblasCsrotStridedBatched_64_rank_1(handle,n,x,incx,stridex,y,incy,stridey,c,s, & - batchCount) - use iso_c_binding + function hipblasCdotu_64_rank_1_devptr(handle,n,x,incx,y,incy,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrotStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotu_64_rank_1_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n complex(c_float_complex),target,dimension(:) :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex complex(c_float_complex),target,dimension(:) :: y integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - type(c_ptr) :: c - type(c_ptr) :: s - integer(c_int64_t) :: batchCount + type(c_ptr),value :: myResult ! - hipblasCsrotStridedBatched_64_rank_1 = hipblasCsrotStridedBatched_64_(handle,n,c_loc(x), & - incx,stridex,c_loc(y),incy,stridey,c,s,batchCount) + hipblasCdotu_64_rank_1_devptr = hipblasCdotu_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + myResult) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasZrotStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey,c,s, & - batchCount) - use iso_c_binding + function hipblasZdotc_64_assumed_rank(handle,n,x,incx,y,incy,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotc_64_assumed_rank type(c_ptr), value :: handle integer(c_int64_t) :: n complex(c_double_complex),target,dimension(..) :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex complex(c_double_complex),target,dimension(..) :: y integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - type(c_ptr) :: c - type(c_ptr) :: s - integer(c_int64_t) :: batchCount + complex(c_double_complex),target :: myResult ! - hipblasZrotStridedBatched_64_assumed_rank = hipblasZrotStridedBatched_64_(handle,n,c_loc(x), & - incx,stridex,c_loc(y),incy,stridey,c,s,batchCount) + hipblasZdotc_64_assumed_rank = hipblasZdotc_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + c_loc(myResult)) + end function + + function hipblasZdotc_64_assumed_rank_devptr(handle,n,x,incx,y,incy,myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotc_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + type(c_ptr),value :: myResult + ! + hipblasZdotc_64_assumed_rank_devptr = hipblasZdotc_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + myResult) end function #else - function hipblasZrotStridedBatched_64_rank_0(handle,n,x,incx,stridex,y,incy,stridey,c,s, & - batchCount) - use iso_c_binding + function hipblasZdotc_64_rank_0(handle,n,x,incx,y,incy,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotc_64_rank_0 type(c_ptr), value :: handle integer(c_int64_t) :: n complex(c_double_complex),target :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex complex(c_double_complex),target :: y integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - type(c_ptr) :: c - type(c_ptr) :: s - integer(c_int64_t) :: batchCount + complex(c_double_complex),target :: myResult ! - hipblasZrotStridedBatched_64_rank_0 = hipblasZrotStridedBatched_64_(handle,n,c_loc(x),incx, & - stridex,c_loc(y),incy,stridey,c,s,batchCount) + hipblasZdotc_64_rank_0 = hipblasZdotc_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + c_loc(myResult)) end function - function hipblasZrotStridedBatched_64_rank_1(handle,n,x,incx,stridex,y,incy,stridey,c,s, & - batchCount) - use iso_c_binding + function hipblasZdotc_64_rank_0_devptr(handle,n,x,incx,y,incy,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotc_64_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + type(c_ptr),value :: myResult + ! + hipblasZdotc_64_rank_0_devptr = hipblasZdotc_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + myResult) + end function + + function hipblasZdotc_64_rank_1(handle,n,x,incx,y,incy,myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotc_64_rank_1 type(c_ptr), value :: handle integer(c_int64_t) :: n complex(c_double_complex),target,dimension(:) :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex complex(c_double_complex),target,dimension(:) :: y integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - type(c_ptr) :: c - type(c_ptr) :: s - integer(c_int64_t) :: batchCount + complex(c_double_complex),target :: myResult ! - hipblasZrotStridedBatched_64_rank_1 = hipblasZrotStridedBatched_64_(handle,n,c_loc(x),incx, & - stridex,c_loc(y),incy,stridey,c,s,batchCount) + hipblasZdotc_64_rank_1 = hipblasZdotc_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + c_loc(myResult)) + end function + + function hipblasZdotc_64_rank_1_devptr(handle,n,x,incx,y,incy,myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotc_64_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + type(c_ptr),value :: myResult + ! + hipblasZdotc_64_rank_1_devptr = hipblasZdotc_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + myResult) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasZdrotStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey,c, & - s,batchCount) - use iso_c_binding + function hipblasZdotu_64_assumed_rank(handle,n,x,incx,y,incy,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrotStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotu_64_assumed_rank type(c_ptr), value :: handle integer(c_int64_t) :: n complex(c_double_complex),target,dimension(..) :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex complex(c_double_complex),target,dimension(..) :: y integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - type(c_ptr) :: c - type(c_ptr) :: s - integer(c_int64_t) :: batchCount + complex(c_double_complex),target :: myResult ! - hipblasZdrotStridedBatched_64_assumed_rank = hipblasZdrotStridedBatched_64_(handle,n, & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,c,s,batchCount) + hipblasZdotu_64_assumed_rank = hipblasZdotu_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + c_loc(myResult)) + end function + + function hipblasZdotu_64_assumed_rank_devptr(handle,n,x,incx,y,incy,myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotu_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + type(c_ptr),value :: myResult + ! + hipblasZdotu_64_assumed_rank_devptr = hipblasZdotu_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + myResult) end function #else - function hipblasZdrotStridedBatched_64_rank_0(handle,n,x,incx,stridex,y,incy,stridey,c,s, & - batchCount) - use iso_c_binding + function hipblasZdotu_64_rank_0(handle,n,x,incx,y,incy,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrotStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotu_64_rank_0 type(c_ptr), value :: handle integer(c_int64_t) :: n complex(c_double_complex),target :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex complex(c_double_complex),target :: y integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - type(c_ptr) :: c - type(c_ptr) :: s - integer(c_int64_t) :: batchCount + complex(c_double_complex),target :: myResult ! - hipblasZdrotStridedBatched_64_rank_0 = hipblasZdrotStridedBatched_64_(handle,n,c_loc(x), & - incx,stridex,c_loc(y),incy,stridey,c,s,batchCount) + hipblasZdotu_64_rank_0 = hipblasZdotu_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + c_loc(myResult)) end function - function hipblasZdrotStridedBatched_64_rank_1(handle,n,x,incx,stridex,y,incy,stridey,c,s, & - batchCount) - use iso_c_binding + function hipblasZdotu_64_rank_0_devptr(handle,n,x,incx,y,incy,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrotStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotu_64_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + type(c_ptr),value :: myResult + ! + hipblasZdotu_64_rank_0_devptr = hipblasZdotu_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + myResult) + end function + + function hipblasZdotu_64_rank_1(handle,n,x,incx,y,incy,myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotu_64_rank_1 type(c_ptr), value :: handle integer(c_int64_t) :: n complex(c_double_complex),target,dimension(:) :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex complex(c_double_complex),target,dimension(:) :: y integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - type(c_ptr) :: c - type(c_ptr) :: s - integer(c_int64_t) :: batchCount + complex(c_double_complex),target :: myResult ! - hipblasZdrotStridedBatched_64_rank_1 = hipblasZdrotStridedBatched_64_(handle,n,c_loc(x), & - incx,stridex,c_loc(y),incy,stridey,c,s,batchCount) + hipblasZdotu_64_rank_1 = hipblasZdotu_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + c_loc(myResult)) + end function + + function hipblasZdotu_64_rank_1_devptr(handle,n,x,incx,y,incy,myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotu_64_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + type(c_ptr),value :: myResult + ! + hipblasZdotu_64_rank_1_devptr = hipblasZdotu_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + myResult) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasSrotm_assumed_rank(handle,n,x,incx,y,incy,param) - use iso_c_binding + function hipblasBfdotBatched_assumed_rank(handle,n,x,incx,y,incy,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotm_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasBfdotBatched_assumed_rank type(c_ptr), value :: handle integer(c_int) :: n - real(c_float),target,dimension(..) :: x + type(c_ptr), value :: x integer(c_int) :: incx - real(c_float),target,dimension(..) :: y + type(c_ptr), value :: y integer(c_int) :: incy - type(c_ptr) :: param + integer(c_int) :: batchCount + integer(c_short),target,dimension(..) :: myResult ! - hipblasSrotm_assumed_rank = hipblasSrotm_(handle,n,c_loc(x),incx,c_loc(y),incy,param) + hipblasBfdotBatched_assumed_rank = hipblasBfdotBatched_(handle,n,x,incx,y,incy,batchCount, & + c_loc(myResult)) end function #else - function hipblasSrotm_rank_0(handle,n,x,incx,y,incy,param) - use iso_c_binding + function hipblasBfdotBatched_rank_0(handle,n,x,incx,y,incy,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotm_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasBfdotBatched_rank_0 type(c_ptr), value :: handle integer(c_int) :: n - real(c_float),target :: x + type(c_ptr), value :: x integer(c_int) :: incx - real(c_float),target :: y + type(c_ptr), value :: y integer(c_int) :: incy - type(c_ptr) :: param + integer(c_int) :: batchCount + integer(c_short),target :: myResult ! - hipblasSrotm_rank_0 = hipblasSrotm_(handle,n,c_loc(x),incx,c_loc(y),incy,param) + hipblasBfdotBatched_rank_0 = hipblasBfdotBatched_(handle,n,x,incx,y,incy,batchCount, & + c_loc(myResult)) end function - function hipblasSrotm_rank_1(handle,n,x,incx,y,incy,param) - use iso_c_binding + function hipblasBfdotBatched_rank_1(handle,n,x,incx,y,incy,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotm_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasBfdotBatched_rank_1 type(c_ptr), value :: handle integer(c_int) :: n - real(c_float),target,dimension(:) :: x + type(c_ptr), value :: x integer(c_int) :: incx - real(c_float),target,dimension(:) :: y + type(c_ptr), value :: y integer(c_int) :: incy - type(c_ptr) :: param + integer(c_int) :: batchCount + integer(c_short),target,dimension(:) :: myResult ! - hipblasSrotm_rank_1 = hipblasSrotm_(handle,n,c_loc(x),incx,c_loc(y),incy,param) + hipblasBfdotBatched_rank_1 = hipblasBfdotBatched_(handle,n,x,incx,y,incy,batchCount, & + c_loc(myResult)) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasDrotm_assumed_rank(handle,n,x,incx,y,incy,param) - use iso_c_binding + function hipblasSdotBatched_assumed_rank(handle,n,x,incx,y,incy,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotm_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdotBatched_assumed_rank type(c_ptr), value :: handle integer(c_int) :: n - real(c_double),target,dimension(..) :: x + type(c_ptr), value :: x integer(c_int) :: incx - real(c_double),target,dimension(..) :: y + type(c_ptr), value :: y integer(c_int) :: incy - type(c_ptr) :: param + integer(c_int) :: batchCount + real(c_float),target,dimension(..) :: myResult ! - hipblasDrotm_assumed_rank = hipblasDrotm_(handle,n,c_loc(x),incx,c_loc(y),incy,param) + hipblasSdotBatched_assumed_rank = hipblasSdotBatched_(handle,n,x,incx,y,incy,batchCount, & + c_loc(myResult)) end function #else - function hipblasDrotm_rank_0(handle,n,x,incx,y,incy,param) - use iso_c_binding + function hipblasSdotBatched_rank_0(handle,n,x,incx,y,incy,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotm_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdotBatched_rank_0 type(c_ptr), value :: handle integer(c_int) :: n - real(c_double),target :: x + type(c_ptr), value :: x integer(c_int) :: incx - real(c_double),target :: y + type(c_ptr), value :: y integer(c_int) :: incy - type(c_ptr) :: param + integer(c_int) :: batchCount + real(c_float),target :: myResult ! - hipblasDrotm_rank_0 = hipblasDrotm_(handle,n,c_loc(x),incx,c_loc(y),incy,param) + hipblasSdotBatched_rank_0 = hipblasSdotBatched_(handle,n,x,incx,y,incy,batchCount, & + c_loc(myResult)) end function - function hipblasDrotm_rank_1(handle,n,x,incx,y,incy,param) - use iso_c_binding + function hipblasSdotBatched_rank_1(handle,n,x,incx,y,incy,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotm_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdotBatched_rank_1 type(c_ptr), value :: handle integer(c_int) :: n - real(c_double),target,dimension(:) :: x + type(c_ptr), value :: x integer(c_int) :: incx - real(c_double),target,dimension(:) :: y + type(c_ptr), value :: y integer(c_int) :: incy - type(c_ptr) :: param + integer(c_int) :: batchCount + real(c_float),target,dimension(:) :: myResult ! - hipblasDrotm_rank_1 = hipblasDrotm_(handle,n,c_loc(x),incx,c_loc(y),incy,param) + hipblasSdotBatched_rank_1 = hipblasSdotBatched_(handle,n,x,incx,y,incy,batchCount, & + c_loc(myResult)) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasSrotm_64_assumed_rank(handle,n,x,incx,y,incy,param) - use iso_c_binding + function hipblasDdotBatched_assumed_rank(handle,n,x,incx,y,incy,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotm_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdotBatched_assumed_rank type(c_ptr), value :: handle - integer(c_int64_t) :: n - real(c_float),target,dimension(..) :: x - integer(c_int64_t) :: incx - real(c_float),target,dimension(..) :: y - integer(c_int64_t) :: incy - type(c_ptr) :: param - ! - hipblasSrotm_64_assumed_rank = hipblasSrotm_64_(handle,n,c_loc(x),incx,c_loc(y),incy,param) - end function - -#else - function hipblasSrotm_64_rank_0(handle,n,x,incx,y,incy,param) - use iso_c_binding + integer(c_int) :: n + type(c_ptr), value :: x + integer(c_int) :: incx + type(c_ptr), value :: y + integer(c_int) :: incy + integer(c_int) :: batchCount + real(c_double),target,dimension(..) :: myResult + ! + hipblasDdotBatched_assumed_rank = hipblasDdotBatched_(handle,n,x,incx,y,incy,batchCount, & + c_loc(myResult)) + end function + +#else + function hipblasDdotBatched_rank_0(handle,n,x,incx,y,incy,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotm_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdotBatched_rank_0 type(c_ptr), value :: handle - integer(c_int64_t) :: n - real(c_float),target :: x - integer(c_int64_t) :: incx - real(c_float),target :: y - integer(c_int64_t) :: incy - type(c_ptr) :: param + integer(c_int) :: n + type(c_ptr), value :: x + integer(c_int) :: incx + type(c_ptr), value :: y + integer(c_int) :: incy + integer(c_int) :: batchCount + real(c_double),target :: myResult ! - hipblasSrotm_64_rank_0 = hipblasSrotm_64_(handle,n,c_loc(x),incx,c_loc(y),incy,param) + hipblasDdotBatched_rank_0 = hipblasDdotBatched_(handle,n,x,incx,y,incy,batchCount, & + c_loc(myResult)) end function - function hipblasSrotm_64_rank_1(handle,n,x,incx,y,incy,param) - use iso_c_binding + function hipblasDdotBatched_rank_1(handle,n,x,incx,y,incy,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotm_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdotBatched_rank_1 type(c_ptr), value :: handle - integer(c_int64_t) :: n - real(c_float),target,dimension(:) :: x - integer(c_int64_t) :: incx - real(c_float),target,dimension(:) :: y - integer(c_int64_t) :: incy - type(c_ptr) :: param + integer(c_int) :: n + type(c_ptr), value :: x + integer(c_int) :: incx + type(c_ptr), value :: y + integer(c_int) :: incy + integer(c_int) :: batchCount + real(c_double),target,dimension(:) :: myResult ! - hipblasSrotm_64_rank_1 = hipblasSrotm_64_(handle,n,c_loc(x),incx,c_loc(y),incy,param) + hipblasDdotBatched_rank_1 = hipblasDdotBatched_(handle,n,x,incx,y,incy,batchCount, & + c_loc(myResult)) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasDrotm_64_assumed_rank(handle,n,x,incx,y,incy,param) - use iso_c_binding + function hipblasCdotcBatched_assumed_rank(handle,n,x,incx,y,incy,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotm_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotcBatched_assumed_rank type(c_ptr), value :: handle - integer(c_int64_t) :: n - real(c_double),target,dimension(..) :: x - integer(c_int64_t) :: incx - real(c_double),target,dimension(..) :: y - integer(c_int64_t) :: incy - type(c_ptr) :: param + integer(c_int) :: n + type(c_ptr), value :: x + integer(c_int) :: incx + type(c_ptr), value :: y + integer(c_int) :: incy + integer(c_int) :: batchCount + complex(c_float_complex),target,dimension(..) :: myResult ! - hipblasDrotm_64_assumed_rank = hipblasDrotm_64_(handle,n,c_loc(x),incx,c_loc(y),incy,param) + hipblasCdotcBatched_assumed_rank = hipblasCdotcBatched_(handle,n,x,incx,y,incy,batchCount, & + c_loc(myResult)) end function #else - function hipblasDrotm_64_rank_0(handle,n,x,incx,y,incy,param) - use iso_c_binding + function hipblasCdotcBatched_rank_0(handle,n,x,incx,y,incy,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotm_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotcBatched_rank_0 type(c_ptr), value :: handle - integer(c_int64_t) :: n - real(c_double),target :: x - integer(c_int64_t) :: incx - real(c_double),target :: y - integer(c_int64_t) :: incy - type(c_ptr) :: param + integer(c_int) :: n + type(c_ptr), value :: x + integer(c_int) :: incx + type(c_ptr), value :: y + integer(c_int) :: incy + integer(c_int) :: batchCount + complex(c_float_complex),target :: myResult ! - hipblasDrotm_64_rank_0 = hipblasDrotm_64_(handle,n,c_loc(x),incx,c_loc(y),incy,param) + hipblasCdotcBatched_rank_0 = hipblasCdotcBatched_(handle,n,x,incx,y,incy,batchCount, & + c_loc(myResult)) end function - function hipblasDrotm_64_rank_1(handle,n,x,incx,y,incy,param) - use iso_c_binding + function hipblasCdotcBatched_rank_1(handle,n,x,incx,y,incy,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotm_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotcBatched_rank_1 type(c_ptr), value :: handle - integer(c_int64_t) :: n - real(c_double),target,dimension(:) :: x - integer(c_int64_t) :: incx - real(c_double),target,dimension(:) :: y - integer(c_int64_t) :: incy - type(c_ptr) :: param + integer(c_int) :: n + type(c_ptr), value :: x + integer(c_int) :: incx + type(c_ptr), value :: y + integer(c_int) :: incy + integer(c_int) :: batchCount + complex(c_float_complex),target,dimension(:) :: myResult ! - hipblasDrotm_64_rank_1 = hipblasDrotm_64_(handle,n,c_loc(x),incx,c_loc(y),incy,param) + hipblasCdotcBatched_rank_1 = hipblasCdotcBatched_(handle,n,x,incx,y,incy,batchCount, & + c_loc(myResult)) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasSrotmStridedBatched_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey,param, & - strideParam,batchCount) - use iso_c_binding + function hipblasCdotuBatched_assumed_rank(handle,n,x,incx,y,incy,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotuBatched_assumed_rank type(c_ptr), value :: handle integer(c_int) :: n - real(c_float),target,dimension(..) :: x + type(c_ptr), value :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - real(c_float),target,dimension(..) :: y + type(c_ptr), value :: y integer(c_int) :: incy - integer(c_int64_t) :: stridey - type(c_ptr) :: param - integer(c_int64_t) :: strideParam integer(c_int) :: batchCount + complex(c_float_complex),target,dimension(..) :: myResult ! - hipblasSrotmStridedBatched_assumed_rank = hipblasSrotmStridedBatched_(handle,n,c_loc(x), & - incx,stridex,c_loc(y),incy,stridey,param,strideParam,batchCount) + hipblasCdotuBatched_assumed_rank = hipblasCdotuBatched_(handle,n,x,incx,y,incy,batchCount, & + c_loc(myResult)) end function #else - function hipblasSrotmStridedBatched_rank_0(handle,n,x,incx,stridex,y,incy,stridey,param, & - strideParam,batchCount) - use iso_c_binding + function hipblasCdotuBatched_rank_0(handle,n,x,incx,y,incy,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotuBatched_rank_0 type(c_ptr), value :: handle integer(c_int) :: n - real(c_float),target :: x + type(c_ptr), value :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - real(c_float),target :: y + type(c_ptr), value :: y integer(c_int) :: incy - integer(c_int64_t) :: stridey - type(c_ptr) :: param - integer(c_int64_t) :: strideParam integer(c_int) :: batchCount + complex(c_float_complex),target :: myResult ! - hipblasSrotmStridedBatched_rank_0 = hipblasSrotmStridedBatched_(handle,n,c_loc(x),incx, & - stridex,c_loc(y),incy,stridey,param,strideParam,batchCount) + hipblasCdotuBatched_rank_0 = hipblasCdotuBatched_(handle,n,x,incx,y,incy,batchCount, & + c_loc(myResult)) end function - function hipblasSrotmStridedBatched_rank_1(handle,n,x,incx,stridex,y,incy,stridey,param, & - strideParam,batchCount) - use iso_c_binding + function hipblasCdotuBatched_rank_1(handle,n,x,incx,y,incy,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotuBatched_rank_1 type(c_ptr), value :: handle integer(c_int) :: n - real(c_float),target,dimension(:) :: x + type(c_ptr), value :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - real(c_float),target,dimension(:) :: y + type(c_ptr), value :: y integer(c_int) :: incy - integer(c_int64_t) :: stridey - type(c_ptr) :: param - integer(c_int64_t) :: strideParam integer(c_int) :: batchCount + complex(c_float_complex),target,dimension(:) :: myResult ! - hipblasSrotmStridedBatched_rank_1 = hipblasSrotmStridedBatched_(handle,n,c_loc(x),incx, & - stridex,c_loc(y),incy,stridey,param,strideParam,batchCount) + hipblasCdotuBatched_rank_1 = hipblasCdotuBatched_(handle,n,x,incx,y,incy,batchCount, & + c_loc(myResult)) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasDrotmStridedBatched_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey,param, & - strideParam,batchCount) - use iso_c_binding + function hipblasZdotcBatched_assumed_rank(handle,n,x,incx,y,incy,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotcBatched_assumed_rank type(c_ptr), value :: handle integer(c_int) :: n - real(c_double),target,dimension(..) :: x + type(c_ptr), value :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - real(c_double),target,dimension(..) :: y + type(c_ptr), value :: y integer(c_int) :: incy - integer(c_int64_t) :: stridey - type(c_ptr) :: param - integer(c_int64_t) :: strideParam integer(c_int) :: batchCount + complex(c_double_complex),target,dimension(..) :: myResult ! - hipblasDrotmStridedBatched_assumed_rank = hipblasDrotmStridedBatched_(handle,n,c_loc(x), & - incx,stridex,c_loc(y),incy,stridey,param,strideParam,batchCount) + hipblasZdotcBatched_assumed_rank = hipblasZdotcBatched_(handle,n,x,incx,y,incy,batchCount, & + c_loc(myResult)) end function #else - function hipblasDrotmStridedBatched_rank_0(handle,n,x,incx,stridex,y,incy,stridey,param, & - strideParam,batchCount) - use iso_c_binding + function hipblasZdotcBatched_rank_0(handle,n,x,incx,y,incy,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotcBatched_rank_0 type(c_ptr), value :: handle integer(c_int) :: n - real(c_double),target :: x + type(c_ptr), value :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - real(c_double),target :: y + type(c_ptr), value :: y integer(c_int) :: incy - integer(c_int64_t) :: stridey - type(c_ptr) :: param - integer(c_int64_t) :: strideParam integer(c_int) :: batchCount + complex(c_double_complex),target :: myResult ! - hipblasDrotmStridedBatched_rank_0 = hipblasDrotmStridedBatched_(handle,n,c_loc(x),incx, & - stridex,c_loc(y),incy,stridey,param,strideParam,batchCount) + hipblasZdotcBatched_rank_0 = hipblasZdotcBatched_(handle,n,x,incx,y,incy,batchCount, & + c_loc(myResult)) end function - function hipblasDrotmStridedBatched_rank_1(handle,n,x,incx,stridex,y,incy,stridey,param, & - strideParam,batchCount) - use iso_c_binding + function hipblasZdotcBatched_rank_1(handle,n,x,incx,y,incy,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotcBatched_rank_1 type(c_ptr), value :: handle integer(c_int) :: n - real(c_double),target,dimension(:) :: x + type(c_ptr), value :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - real(c_double),target,dimension(:) :: y + type(c_ptr), value :: y integer(c_int) :: incy - integer(c_int64_t) :: stridey - type(c_ptr) :: param - integer(c_int64_t) :: strideParam integer(c_int) :: batchCount + complex(c_double_complex),target,dimension(:) :: myResult ! - hipblasDrotmStridedBatched_rank_1 = hipblasDrotmStridedBatched_(handle,n,c_loc(x),incx, & - stridex,c_loc(y),incy,stridey,param,strideParam,batchCount) + hipblasZdotcBatched_rank_1 = hipblasZdotcBatched_(handle,n,x,incx,y,incy,batchCount, & + c_loc(myResult)) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasSrotmStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & - param,strideParam,batchCount) - use iso_c_binding + function hipblasZdotuBatched_assumed_rank(handle,n,x,incx,y,incy,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotuBatched_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + type(c_ptr), value :: x + integer(c_int) :: incx + type(c_ptr), value :: y + integer(c_int) :: incy + integer(c_int) :: batchCount + complex(c_double_complex),target,dimension(..) :: myResult + ! + hipblasZdotuBatched_assumed_rank = hipblasZdotuBatched_(handle,n,x,incx,y,incy,batchCount, & + c_loc(myResult)) + end function + +#else + function hipblasZdotuBatched_rank_0(handle,n,x,incx,y,incy,batchCount,myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotuBatched_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + type(c_ptr), value :: x + integer(c_int) :: incx + type(c_ptr), value :: y + integer(c_int) :: incy + integer(c_int) :: batchCount + complex(c_double_complex),target :: myResult + ! + hipblasZdotuBatched_rank_0 = hipblasZdotuBatched_(handle,n,x,incx,y,incy,batchCount, & + c_loc(myResult)) + end function + + function hipblasZdotuBatched_rank_1(handle,n,x,incx,y,incy,batchCount,myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotuBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + type(c_ptr), value :: x + integer(c_int) :: incx + type(c_ptr), value :: y + integer(c_int) :: incy + integer(c_int) :: batchCount + complex(c_double_complex),target,dimension(:) :: myResult + ! + hipblasZdotuBatched_rank_1 = hipblasZdotuBatched_(handle,n,x,incx,y,incy,batchCount, & + c_loc(myResult)) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasBfdotBatched_64_assumed_rank(handle,n,x,incx,y,incy,batchCount,myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasBfdotBatched_64_assumed_rank type(c_ptr), value :: handle integer(c_int64_t) :: n - real(c_float),target,dimension(..) :: x + type(c_ptr), value :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - real(c_float),target,dimension(..) :: y + type(c_ptr), value :: y integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - type(c_ptr) :: param - integer(c_int64_t) :: strideParam integer(c_int64_t) :: batchCount + integer(c_short),target,dimension(..) :: myResult ! - hipblasSrotmStridedBatched_64_assumed_rank = hipblasSrotmStridedBatched_64_(handle,n, & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,param,strideParam,batchCount) + hipblasBfdotBatched_64_assumed_rank = hipblasBfdotBatched_64_(handle,n,x,incx,y,incy, & + batchCount,c_loc(myResult)) end function #else - function hipblasSrotmStridedBatched_64_rank_0(handle,n,x,incx,stridex,y,incy,stridey,param, & - strideParam,batchCount) - use iso_c_binding + function hipblasBfdotBatched_64_rank_0(handle,n,x,incx,y,incy,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasBfdotBatched_64_rank_0 type(c_ptr), value :: handle integer(c_int64_t) :: n - real(c_float),target :: x + type(c_ptr), value :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - real(c_float),target :: y + type(c_ptr), value :: y integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - type(c_ptr) :: param - integer(c_int64_t) :: strideParam integer(c_int64_t) :: batchCount + integer(c_short),target :: myResult ! - hipblasSrotmStridedBatched_64_rank_0 = hipblasSrotmStridedBatched_64_(handle,n,c_loc(x), & - incx,stridex,c_loc(y),incy,stridey,param,strideParam,batchCount) + hipblasBfdotBatched_64_rank_0 = hipblasBfdotBatched_64_(handle,n,x,incx,y,incy,batchCount, & + c_loc(myResult)) end function - function hipblasSrotmStridedBatched_64_rank_1(handle,n,x,incx,stridex,y,incy,stridey,param, & - strideParam,batchCount) - use iso_c_binding + function hipblasBfdotBatched_64_rank_1(handle,n,x,incx,y,incy,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasBfdotBatched_64_rank_1 type(c_ptr), value :: handle integer(c_int64_t) :: n - real(c_float),target,dimension(:) :: x + type(c_ptr), value :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - real(c_float),target,dimension(:) :: y + type(c_ptr), value :: y integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - type(c_ptr) :: param - integer(c_int64_t) :: strideParam integer(c_int64_t) :: batchCount + integer(c_short),target,dimension(:) :: myResult ! - hipblasSrotmStridedBatched_64_rank_1 = hipblasSrotmStridedBatched_64_(handle,n,c_loc(x), & - incx,stridex,c_loc(y),incy,stridey,param,strideParam,batchCount) + hipblasBfdotBatched_64_rank_1 = hipblasBfdotBatched_64_(handle,n,x,incx,y,incy,batchCount, & + c_loc(myResult)) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasDrotmStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & - param,strideParam,batchCount) - use iso_c_binding + function hipblasSdotBatched_64_assumed_rank(handle,n,x,incx,y,incy,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdotBatched_64_assumed_rank type(c_ptr), value :: handle integer(c_int64_t) :: n - real(c_double),target,dimension(..) :: x + type(c_ptr), value :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - real(c_double),target,dimension(..) :: y + type(c_ptr), value :: y integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - type(c_ptr) :: param - integer(c_int64_t) :: strideParam integer(c_int64_t) :: batchCount + real(c_float),target,dimension(..) :: myResult ! - hipblasDrotmStridedBatched_64_assumed_rank = hipblasDrotmStridedBatched_64_(handle,n, & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,param,strideParam,batchCount) + hipblasSdotBatched_64_assumed_rank = hipblasSdotBatched_64_(handle,n,x,incx,y,incy, & + batchCount,c_loc(myResult)) end function #else - function hipblasDrotmStridedBatched_64_rank_0(handle,n,x,incx,stridex,y,incy,stridey,param, & - strideParam,batchCount) - use iso_c_binding + function hipblasSdotBatched_64_rank_0(handle,n,x,incx,y,incy,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdotBatched_64_rank_0 type(c_ptr), value :: handle integer(c_int64_t) :: n - real(c_double),target :: x + type(c_ptr), value :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - real(c_double),target :: y + type(c_ptr), value :: y integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - type(c_ptr) :: param - integer(c_int64_t) :: strideParam integer(c_int64_t) :: batchCount + real(c_float),target :: myResult ! - hipblasDrotmStridedBatched_64_rank_0 = hipblasDrotmStridedBatched_64_(handle,n,c_loc(x), & - incx,stridex,c_loc(y),incy,stridey,param,strideParam,batchCount) + hipblasSdotBatched_64_rank_0 = hipblasSdotBatched_64_(handle,n,x,incx,y,incy,batchCount, & + c_loc(myResult)) end function - function hipblasDrotmStridedBatched_64_rank_1(handle,n,x,incx,stridex,y,incy,stridey,param, & - strideParam,batchCount) - use iso_c_binding + function hipblasSdotBatched_64_rank_1(handle,n,x,incx,y,incy,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdotBatched_64_rank_1 type(c_ptr), value :: handle integer(c_int64_t) :: n - real(c_double),target,dimension(:) :: x + type(c_ptr), value :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - real(c_double),target,dimension(:) :: y + type(c_ptr), value :: y integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - type(c_ptr) :: param - integer(c_int64_t) :: strideParam integer(c_int64_t) :: batchCount + real(c_float),target,dimension(:) :: myResult ! - hipblasDrotmStridedBatched_64_rank_1 = hipblasDrotmStridedBatched_64_(handle,n,c_loc(x), & - incx,stridex,c_loc(y),incy,stridey,param,strideParam,batchCount) + hipblasSdotBatched_64_rank_1 = hipblasSdotBatched_64_(handle,n,x,incx,y,incy,batchCount, & + c_loc(myResult)) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasSscal_assumed_rank(handle,n,alpha,x,incx) - use iso_c_binding + function hipblasDdotBatched_64_assumed_rank(handle,n,x,incx,y,incy,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscal_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdotBatched_64_assumed_rank type(c_ptr), value :: handle - integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(..) :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + type(c_ptr), value :: x + integer(c_int64_t) :: incx + type(c_ptr), value :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: batchCount + real(c_double),target,dimension(..) :: myResult ! - hipblasSscal_assumed_rank = hipblasSscal_(handle,n,c_loc(alpha),c_loc(x),incx) + hipblasDdotBatched_64_assumed_rank = hipblasDdotBatched_64_(handle,n,x,incx,y,incy, & + batchCount,c_loc(myResult)) end function #else - function hipblasSscal_rank_0(handle,n,alpha,x,incx) - use iso_c_binding + function hipblasDdotBatched_64_rank_0(handle,n,x,incx,y,incy,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscal_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdotBatched_64_rank_0 type(c_ptr), value :: handle - integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + type(c_ptr), value :: x + integer(c_int64_t) :: incx + type(c_ptr), value :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: batchCount + real(c_double),target :: myResult ! - hipblasSscal_rank_0 = hipblasSscal_(handle,n,c_loc(alpha),c_loc(x),incx) + hipblasDdotBatched_64_rank_0 = hipblasDdotBatched_64_(handle,n,x,incx,y,incy,batchCount, & + c_loc(myResult)) end function - function hipblasSscal_rank_1(handle,n,alpha,x,incx) - use iso_c_binding + function hipblasDdotBatched_64_rank_1(handle,n,x,incx,y,incy,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscal_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdotBatched_64_rank_1 type(c_ptr), value :: handle - integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(:) :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + type(c_ptr), value :: x + integer(c_int64_t) :: incx + type(c_ptr), value :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: batchCount + real(c_double),target,dimension(:) :: myResult ! - hipblasSscal_rank_1 = hipblasSscal_(handle,n,c_loc(alpha),c_loc(x),incx) + hipblasDdotBatched_64_rank_1 = hipblasDdotBatched_64_(handle,n,x,incx,y,incy,batchCount, & + c_loc(myResult)) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasDscal_assumed_rank(handle,n,alpha,x,incx) - use iso_c_binding + function hipblasCdotcBatched_64_assumed_rank(handle,n,x,incx,y,incy,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscal_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotcBatched_64_assumed_rank type(c_ptr), value :: handle - integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(..) :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + type(c_ptr), value :: x + integer(c_int64_t) :: incx + type(c_ptr), value :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: batchCount + complex(c_float_complex),target,dimension(..) :: myResult ! - hipblasDscal_assumed_rank = hipblasDscal_(handle,n,c_loc(alpha),c_loc(x),incx) + hipblasCdotcBatched_64_assumed_rank = hipblasCdotcBatched_64_(handle,n,x,incx,y,incy, & + batchCount,c_loc(myResult)) end function #else - function hipblasDscal_rank_0(handle,n,alpha,x,incx) - use iso_c_binding + function hipblasCdotcBatched_64_rank_0(handle,n,x,incx,y,incy,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscal_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotcBatched_64_rank_0 type(c_ptr), value :: handle - integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + type(c_ptr), value :: x + integer(c_int64_t) :: incx + type(c_ptr), value :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: batchCount + complex(c_float_complex),target :: myResult ! - hipblasDscal_rank_0 = hipblasDscal_(handle,n,c_loc(alpha),c_loc(x),incx) + hipblasCdotcBatched_64_rank_0 = hipblasCdotcBatched_64_(handle,n,x,incx,y,incy,batchCount, & + c_loc(myResult)) end function - function hipblasDscal_rank_1(handle,n,alpha,x,incx) - use iso_c_binding + function hipblasCdotcBatched_64_rank_1(handle,n,x,incx,y,incy,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscal_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotcBatched_64_rank_1 type(c_ptr), value :: handle - integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(:) :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + type(c_ptr), value :: x + integer(c_int64_t) :: incx + type(c_ptr), value :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: batchCount + complex(c_float_complex),target,dimension(:) :: myResult ! - hipblasDscal_rank_1 = hipblasDscal_(handle,n,c_loc(alpha),c_loc(x),incx) + hipblasCdotcBatched_64_rank_1 = hipblasCdotcBatched_64_(handle,n,x,incx,y,incy,batchCount, & + c_loc(myResult)) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCscal_assumed_rank(handle,n,alpha,x,incx) - use iso_c_binding + function hipblasCdotuBatched_64_assumed_rank(handle,n,x,incx,y,incy,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscal_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotuBatched_64_assumed_rank type(c_ptr), value :: handle - integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + type(c_ptr), value :: x + integer(c_int64_t) :: incx + type(c_ptr), value :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: batchCount + complex(c_float_complex),target,dimension(..) :: myResult ! - hipblasCscal_assumed_rank = hipblasCscal_(handle,n,c_loc(alpha),c_loc(x),incx) + hipblasCdotuBatched_64_assumed_rank = hipblasCdotuBatched_64_(handle,n,x,incx,y,incy, & + batchCount,c_loc(myResult)) end function #else - function hipblasCscal_rank_0(handle,n,alpha,x,incx) - use iso_c_binding + function hipblasCdotuBatched_64_rank_0(handle,n,x,incx,y,incy,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscal_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotuBatched_64_rank_0 type(c_ptr), value :: handle - integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + type(c_ptr), value :: x + integer(c_int64_t) :: incx + type(c_ptr), value :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: batchCount + complex(c_float_complex),target :: myResult ! - hipblasCscal_rank_0 = hipblasCscal_(handle,n,c_loc(alpha),c_loc(x),incx) + hipblasCdotuBatched_64_rank_0 = hipblasCdotuBatched_64_(handle,n,x,incx,y,incy,batchCount, & + c_loc(myResult)) end function - function hipblasCscal_rank_1(handle,n,alpha,x,incx) - use iso_c_binding + function hipblasCdotuBatched_64_rank_1(handle,n,x,incx,y,incy,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscal_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotuBatched_64_rank_1 type(c_ptr), value :: handle - integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + type(c_ptr), value :: x + integer(c_int64_t) :: incx + type(c_ptr), value :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: batchCount + complex(c_float_complex),target,dimension(:) :: myResult ! - hipblasCscal_rank_1 = hipblasCscal_(handle,n,c_loc(alpha),c_loc(x),incx) + hipblasCdotuBatched_64_rank_1 = hipblasCdotuBatched_64_(handle,n,x,incx,y,incy,batchCount, & + c_loc(myResult)) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCsscal_assumed_rank(handle,n,alpha,x,incx) - use iso_c_binding + function hipblasZdotcBatched_64_assumed_rank(handle,n,x,incx,y,incy,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscal_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotcBatched_64_assumed_rank type(c_ptr), value :: handle - integer(c_int) :: n - real(c_float),target :: alpha - complex(c_float_complex),target,dimension(..) :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + type(c_ptr), value :: x + integer(c_int64_t) :: incx + type(c_ptr), value :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: batchCount + complex(c_double_complex),target,dimension(..) :: myResult ! - hipblasCsscal_assumed_rank = hipblasCsscal_(handle,n,c_loc(alpha),c_loc(x),incx) + hipblasZdotcBatched_64_assumed_rank = hipblasZdotcBatched_64_(handle,n,x,incx,y,incy, & + batchCount,c_loc(myResult)) end function #else - function hipblasCsscal_rank_0(handle,n,alpha,x,incx) - use iso_c_binding + function hipblasZdotcBatched_64_rank_0(handle,n,x,incx,y,incy,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscal_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotcBatched_64_rank_0 type(c_ptr), value :: handle - integer(c_int) :: n - real(c_float),target :: alpha - complex(c_float_complex),target :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + type(c_ptr), value :: x + integer(c_int64_t) :: incx + type(c_ptr), value :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: batchCount + complex(c_double_complex),target :: myResult ! - hipblasCsscal_rank_0 = hipblasCsscal_(handle,n,c_loc(alpha),c_loc(x),incx) + hipblasZdotcBatched_64_rank_0 = hipblasZdotcBatched_64_(handle,n,x,incx,y,incy,batchCount, & + c_loc(myResult)) end function - function hipblasCsscal_rank_1(handle,n,alpha,x,incx) - use iso_c_binding + function hipblasZdotcBatched_64_rank_1(handle,n,x,incx,y,incy,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscal_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotcBatched_64_rank_1 type(c_ptr), value :: handle - integer(c_int) :: n - real(c_float),target :: alpha - complex(c_float_complex),target,dimension(:) :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + type(c_ptr), value :: x + integer(c_int64_t) :: incx + type(c_ptr), value :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: batchCount + complex(c_double_complex),target,dimension(:) :: myResult ! - hipblasCsscal_rank_1 = hipblasCsscal_(handle,n,c_loc(alpha),c_loc(x),incx) + hipblasZdotcBatched_64_rank_1 = hipblasZdotcBatched_64_(handle,n,x,incx,y,incy,batchCount, & + c_loc(myResult)) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasZscal_assumed_rank(handle,n,alpha,x,incx) - use iso_c_binding + function hipblasZdotuBatched_64_assumed_rank(handle,n,x,incx,y,incy,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscal_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotuBatched_64_assumed_rank type(c_ptr), value :: handle - integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + type(c_ptr), value :: x + integer(c_int64_t) :: incx + type(c_ptr), value :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: batchCount + complex(c_double_complex),target,dimension(..) :: myResult ! - hipblasZscal_assumed_rank = hipblasZscal_(handle,n,c_loc(alpha),c_loc(x),incx) + hipblasZdotuBatched_64_assumed_rank = hipblasZdotuBatched_64_(handle,n,x,incx,y,incy, & + batchCount,c_loc(myResult)) end function #else - function hipblasZscal_rank_0(handle,n,alpha,x,incx) - use iso_c_binding + function hipblasZdotuBatched_64_rank_0(handle,n,x,incx,y,incy,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscal_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotuBatched_64_rank_0 type(c_ptr), value :: handle - integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + type(c_ptr), value :: x + integer(c_int64_t) :: incx + type(c_ptr), value :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: batchCount + complex(c_double_complex),target :: myResult ! - hipblasZscal_rank_0 = hipblasZscal_(handle,n,c_loc(alpha),c_loc(x),incx) + hipblasZdotuBatched_64_rank_0 = hipblasZdotuBatched_64_(handle,n,x,incx,y,incy,batchCount, & + c_loc(myResult)) end function - function hipblasZscal_rank_1(handle,n,alpha,x,incx) - use iso_c_binding + function hipblasZdotuBatched_64_rank_1(handle,n,x,incx,y,incy,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscal_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotuBatched_64_rank_1 type(c_ptr), value :: handle - integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + type(c_ptr), value :: x + integer(c_int64_t) :: incx + type(c_ptr), value :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: batchCount + complex(c_double_complex),target,dimension(:) :: myResult ! - hipblasZscal_rank_1 = hipblasZscal_(handle,n,c_loc(alpha),c_loc(x),incx) + hipblasZdotuBatched_64_rank_1 = hipblasZdotuBatched_64_(handle,n,x,incx,y,incy,batchCount, & + c_loc(myResult)) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasZdscal_assumed_rank(handle,n,alpha,x,incx) - use iso_c_binding + function hipblasBfdotStridedBatched_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscal_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasBfdotStridedBatched_assumed_rank type(c_ptr), value :: handle integer(c_int) :: n - real(c_double),target :: alpha - complex(c_double_complex),target,dimension(..) :: x + integer(c_short),target,dimension(..) :: x integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_short),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + integer(c_short),target,dimension(..) :: myResult ! - hipblasZdscal_assumed_rank = hipblasZdscal_(handle,n,c_loc(alpha),c_loc(x),incx) + hipblasBfdotStridedBatched_assumed_rank = hipblasBfdotStridedBatched_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount,c_loc(myResult)) end function #else - function hipblasZdscal_rank_0(handle,n,alpha,x,incx) - use iso_c_binding + function hipblasBfdotStridedBatched_rank_0(handle,n,x,incx,stridex,y,incy,stridey,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscal_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasBfdotStridedBatched_rank_0 type(c_ptr), value :: handle integer(c_int) :: n - real(c_double),target :: alpha - complex(c_double_complex),target :: x + integer(c_short),target :: x integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_short),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + integer(c_short),target :: myResult ! - hipblasZdscal_rank_0 = hipblasZdscal_(handle,n,c_loc(alpha),c_loc(x),incx) + hipblasBfdotStridedBatched_rank_0 = hipblasBfdotStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount,c_loc(myResult)) end function - function hipblasZdscal_rank_1(handle,n,alpha,x,incx) - use iso_c_binding + function hipblasBfdotStridedBatched_rank_1(handle,n,x,incx,stridex,y,incy,stridey,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscal_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasBfdotStridedBatched_rank_1 type(c_ptr), value :: handle integer(c_int) :: n - real(c_double),target :: alpha - complex(c_double_complex),target,dimension(:) :: x + integer(c_short),target,dimension(:) :: x integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_short),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + integer(c_short),target,dimension(:) :: myResult ! - hipblasZdscal_rank_1 = hipblasZdscal_(handle,n,c_loc(alpha),c_loc(x),incx) - end function - -#endif -#ifdef USE_ASSUMED_RANK - function hipblasSscal_64_assumed_rank(handle,n,alpha,x,incx) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscal_64_assumed_rank - type(c_ptr), value :: handle - integer(c_int64_t) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(..) :: x - integer(c_int64_t) :: incx - ! - hipblasSscal_64_assumed_rank = hipblasSscal_64_(handle,n,c_loc(alpha),c_loc(x),incx) - end function - -#else - function hipblasSscal_64_rank_0(handle,n,alpha,x,incx) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscal_64_rank_0 - type(c_ptr), value :: handle - integer(c_int64_t) :: n - real(c_float),target :: alpha - real(c_float),target :: x - integer(c_int64_t) :: incx - ! - hipblasSscal_64_rank_0 = hipblasSscal_64_(handle,n,c_loc(alpha),c_loc(x),incx) + hipblasBfdotStridedBatched_rank_1 = hipblasBfdotStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount,c_loc(myResult)) end function - function hipblasSscal_64_rank_1(handle,n,alpha,x,incx) - use iso_c_binding + function hipblasBfdotStridedBatched_strided_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscal_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasBfdotStridedBatched_strided_rank type(c_ptr), value :: handle - integer(c_int64_t) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(:) :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + integer(c_short),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_short),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + integer(c_short),target,dimension(:) :: myResult ! - hipblasSscal_64_rank_1 = hipblasSscal_64_(handle,n,c_loc(alpha),c_loc(x),incx) + hipblasBfdotStridedBatched_strided_rank = hipblasBfdotStridedBatched_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount,c_loc(myResult)) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasDscal_64_assumed_rank(handle,n,alpha,x,incx) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscal_64_assumed_rank - type(c_ptr), value :: handle - integer(c_int64_t) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(..) :: x - integer(c_int64_t) :: incx - ! - hipblasDscal_64_assumed_rank = hipblasDscal_64_(handle,n,c_loc(alpha),c_loc(x),incx) - end function - -#else - function hipblasDscal_64_rank_0(handle,n,alpha,x,incx) - use iso_c_binding + function hipblasSdotStridedBatched_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscal_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdotStridedBatched_assumed_rank type(c_ptr), value :: handle - integer(c_int64_t) :: n - real(c_double),target :: alpha - real(c_double),target :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + real(c_float),target,dimension(..) :: myResult ! - hipblasDscal_64_rank_0 = hipblasDscal_64_(handle,n,c_loc(alpha),c_loc(x),incx) + hipblasSdotStridedBatched_assumed_rank = hipblasSdotStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount,c_loc(myResult)) end function - function hipblasDscal_64_rank_1(handle,n,alpha,x,incx) - use iso_c_binding + function hipblasSdotStridedBatched_assumed_rank_devptr(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscal_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdotStridedBatched_assumed_rank_devptr type(c_ptr), value :: handle - integer(c_int64_t) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(:) :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + type(c_ptr),value :: myResult ! - hipblasDscal_64_rank_1 = hipblasDscal_64_(handle,n,c_loc(alpha),c_loc(x),incx) + hipblasSdotStridedBatched_assumed_rank_devptr = hipblasSdotStridedBatched_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCscal_64_assumed_rank(handle,n,alpha,x,incx) - use iso_c_binding +#else + function hipblasSdotStridedBatched_rank_0(handle,n,x,incx,stridex,y,incy,stridey,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscal_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdotStridedBatched_rank_0 type(c_ptr), value :: handle - integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + real(c_float),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + real(c_float),target :: myResult ! - hipblasCscal_64_assumed_rank = hipblasCscal_64_(handle,n,c_loc(alpha),c_loc(x),incx) + hipblasSdotStridedBatched_rank_0 = hipblasSdotStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount,c_loc(myResult)) end function -#else - function hipblasCscal_64_rank_0(handle,n,alpha,x,incx) - use iso_c_binding + function hipblasSdotStridedBatched_rank_0_devptr(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscal_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdotStridedBatched_rank_0_devptr type(c_ptr), value :: handle - integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + real(c_float),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + type(c_ptr),value :: myResult ! - hipblasCscal_64_rank_0 = hipblasCscal_64_(handle,n,c_loc(alpha),c_loc(x),incx) + hipblasSdotStridedBatched_rank_0_devptr = hipblasSdotStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount,myResult) end function - function hipblasCscal_64_rank_1(handle,n,alpha,x,incx) - use iso_c_binding + function hipblasSdotStridedBatched_rank_1(handle,n,x,incx,stridex,y,incy,stridey,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscal_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdotStridedBatched_rank_1 type(c_ptr), value :: handle - integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + real(c_float),target,dimension(:) :: myResult ! - hipblasCscal_64_rank_1 = hipblasCscal_64_(handle,n,c_loc(alpha),c_loc(x),incx) + hipblasSdotStridedBatched_rank_1 = hipblasSdotStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount,c_loc(myResult)) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCsscal_64_assumed_rank(handle,n,alpha,x,incx) - use iso_c_binding + function hipblasSdotStridedBatched_rank_1_devptr(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscal_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdotStridedBatched_rank_1_devptr type(c_ptr), value :: handle - integer(c_int64_t) :: n - real(c_float),target :: alpha - complex(c_float_complex),target,dimension(..) :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + type(c_ptr),value :: myResult ! - hipblasCsscal_64_assumed_rank = hipblasCsscal_64_(handle,n,c_loc(alpha),c_loc(x),incx) + hipblasSdotStridedBatched_rank_1_devptr = hipblasSdotStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount,myResult) end function -#else - function hipblasCsscal_64_rank_0(handle,n,alpha,x,incx) - use iso_c_binding + function hipblasSdotStridedBatched_strided_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscal_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdotStridedBatched_strided_rank type(c_ptr), value :: handle - integer(c_int64_t) :: n - real(c_float),target :: alpha - complex(c_float_complex),target :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + real(c_float),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + real(c_float),target,dimension(:) :: myResult ! - hipblasCsscal_64_rank_0 = hipblasCsscal_64_(handle,n,c_loc(alpha),c_loc(x),incx) + hipblasSdotStridedBatched_strided_rank = hipblasSdotStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount,c_loc(myResult)) end function - function hipblasCsscal_64_rank_1(handle,n,alpha,x,incx) - use iso_c_binding + function hipblasSdotStridedBatched_strided_rank_devptr(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscal_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdotStridedBatched_strided_rank_devptr type(c_ptr), value :: handle - integer(c_int64_t) :: n - real(c_float),target :: alpha - complex(c_float_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + real(c_float),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + type(c_ptr),value :: myResult ! - hipblasCsscal_64_rank_1 = hipblasCsscal_64_(handle,n,c_loc(alpha),c_loc(x),incx) + hipblasSdotStridedBatched_strided_rank_devptr = hipblasSdotStridedBatched_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasZscal_64_assumed_rank(handle,n,alpha,x,incx) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscal_64_assumed_rank - type(c_ptr), value :: handle - integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: x - integer(c_int64_t) :: incx - ! - hipblasZscal_64_assumed_rank = hipblasZscal_64_(handle,n,c_loc(alpha),c_loc(x),incx) - end function - -#else - function hipblasZscal_64_rank_0(handle,n,alpha,x,incx) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscal_64_rank_0 - type(c_ptr), value :: handle - integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: x - integer(c_int64_t) :: incx - ! - hipblasZscal_64_rank_0 = hipblasZscal_64_(handle,n,c_loc(alpha),c_loc(x),incx) - end function - - function hipblasZscal_64_rank_1(handle,n,alpha,x,incx) - use iso_c_binding + function hipblasDdotStridedBatched_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscal_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdotStridedBatched_assumed_rank type(c_ptr), value :: handle - integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + real(c_double),target,dimension(..) :: myResult ! - hipblasZscal_64_rank_1 = hipblasZscal_64_(handle,n,c_loc(alpha),c_loc(x),incx) + hipblasDdotStridedBatched_assumed_rank = hipblasDdotStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount,c_loc(myResult)) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZdscal_64_assumed_rank(handle,n,alpha,x,incx) - use iso_c_binding + function hipblasDdotStridedBatched_assumed_rank_devptr(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscal_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdotStridedBatched_assumed_rank_devptr type(c_ptr), value :: handle - integer(c_int64_t) :: n - real(c_double),target :: alpha - complex(c_double_complex),target,dimension(..) :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + type(c_ptr),value :: myResult ! - hipblasZdscal_64_assumed_rank = hipblasZdscal_64_(handle,n,c_loc(alpha),c_loc(x),incx) + hipblasDdotStridedBatched_assumed_rank_devptr = hipblasDdotStridedBatched_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) end function #else - function hipblasZdscal_64_rank_0(handle,n,alpha,x,incx) - use iso_c_binding + function hipblasDdotStridedBatched_rank_0(handle,n,x,incx,stridex,y,incy,stridey,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscal_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdotStridedBatched_rank_0 type(c_ptr), value :: handle - integer(c_int64_t) :: n - real(c_double),target :: alpha - complex(c_double_complex),target :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + real(c_double),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + real(c_double),target :: myResult ! - hipblasZdscal_64_rank_0 = hipblasZdscal_64_(handle,n,c_loc(alpha),c_loc(x),incx) + hipblasDdotStridedBatched_rank_0 = hipblasDdotStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount,c_loc(myResult)) end function - function hipblasZdscal_64_rank_1(handle,n,alpha,x,incx) - use iso_c_binding + function hipblasDdotStridedBatched_rank_0_devptr(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscal_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdotStridedBatched_rank_0_devptr type(c_ptr), value :: handle - integer(c_int64_t) :: n - real(c_double),target :: alpha - complex(c_double_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + real(c_double),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + type(c_ptr),value :: myResult ! - hipblasZdscal_64_rank_1 = hipblasZdscal_64_(handle,n,c_loc(alpha),c_loc(x),incx) + hipblasDdotStridedBatched_rank_0_devptr = hipblasDdotStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount,myResult) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasSscalStridedBatched_assumed_rank(handle,n,alpha,x,incx,stridex,batchCount) - use iso_c_binding + function hipblasDdotStridedBatched_rank_1(handle,n,x,incx,stridex,y,incy,stridey,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscalStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdotStridedBatched_rank_1 type(c_ptr), value :: handle integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(..) :: x + real(c_double),target,dimension(:) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey integer(c_int) :: batchCount + real(c_double),target,dimension(:) :: myResult ! - hipblasSscalStridedBatched_assumed_rank = hipblasSscalStridedBatched_(handle,n,c_loc(alpha), & - c_loc(x),incx,stridex,batchCount) + hipblasDdotStridedBatched_rank_1 = hipblasDdotStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount,c_loc(myResult)) end function -#else - function hipblasSscalStridedBatched_rank_0(handle,n,alpha,x,incx,stridex,batchCount) - use iso_c_binding + function hipblasDdotStridedBatched_rank_1_devptr(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscalStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdotStridedBatched_rank_1_devptr type(c_ptr), value :: handle integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target :: x + real(c_double),target,dimension(:) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey integer(c_int) :: batchCount + type(c_ptr),value :: myResult ! - hipblasSscalStridedBatched_rank_0 = hipblasSscalStridedBatched_(handle,n,c_loc(alpha), & - c_loc(x),incx,stridex,batchCount) + hipblasDdotStridedBatched_rank_1_devptr = hipblasDdotStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount,myResult) end function - function hipblasSscalStridedBatched_rank_1(handle,n,alpha,x,incx,stridex,batchCount) - use iso_c_binding + function hipblasDdotStridedBatched_strided_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscalStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdotStridedBatched_strided_rank type(c_ptr), value :: handle integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(:) :: x + real(c_double),target,dimension(:,:) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex + real(c_double),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey integer(c_int) :: batchCount + real(c_double),target,dimension(:) :: myResult ! - hipblasSscalStridedBatched_rank_1 = hipblasSscalStridedBatched_(handle,n,c_loc(alpha), & - c_loc(x),incx,stridex,batchCount) + hipblasDdotStridedBatched_strided_rank = hipblasDdotStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount,c_loc(myResult)) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDscalStridedBatched_assumed_rank(handle,n,alpha,x,incx,stridex,batchCount) - use iso_c_binding + function hipblasDdotStridedBatched_strided_rank_devptr(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscalStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdotStridedBatched_strided_rank_devptr type(c_ptr), value :: handle integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(..) :: x + real(c_double),target,dimension(:,:) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex + real(c_double),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey integer(c_int) :: batchCount + type(c_ptr),value :: myResult ! - hipblasDscalStridedBatched_assumed_rank = hipblasDscalStridedBatched_(handle,n,c_loc(alpha), & - c_loc(x),incx,stridex,batchCount) + hipblasDdotStridedBatched_strided_rank_devptr = hipblasDdotStridedBatched_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) end function -#else - function hipblasDscalStridedBatched_rank_0(handle,n,alpha,x,incx,stridex,batchCount) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCdotcStridedBatched_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscalStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotcStridedBatched_assumed_rank type(c_ptr), value :: handle integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target :: x + complex(c_float_complex),target,dimension(..) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey integer(c_int) :: batchCount + complex(c_float_complex),target,dimension(..) :: myResult ! - hipblasDscalStridedBatched_rank_0 = hipblasDscalStridedBatched_(handle,n,c_loc(alpha), & - c_loc(x),incx,stridex,batchCount) + hipblasCdotcStridedBatched_assumed_rank = hipblasCdotcStridedBatched_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount,c_loc(myResult)) end function - function hipblasDscalStridedBatched_rank_1(handle,n,alpha,x,incx,stridex,batchCount) - use iso_c_binding + function hipblasCdotcStridedBatched_assumed_rank_devptr(handle,n,x,incx,stridex,y,incy, & + stridey,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscalStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotcStridedBatched_assumed_rank_devptr type(c_ptr), value :: handle integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(:) :: x + complex(c_float_complex),target,dimension(..) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey integer(c_int) :: batchCount + type(c_ptr),value :: myResult ! - hipblasDscalStridedBatched_rank_1 = hipblasDscalStridedBatched_(handle,n,c_loc(alpha), & - c_loc(x),incx,stridex,batchCount) + hipblasCdotcStridedBatched_assumed_rank_devptr = hipblasCdotcStridedBatched_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCscalStridedBatched_assumed_rank(handle,n,alpha,x,incx,stridex,batchCount) - use iso_c_binding +#else + function hipblasCdotcStridedBatched_rank_0(handle,n,x,incx,stridex,y,incy,stridey,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscalStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotcStridedBatched_rank_0 type(c_ptr), value :: handle integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: x + complex(c_float_complex),target :: x integer(c_int) :: incx integer(c_int64_t) :: stridex + complex(c_float_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey integer(c_int) :: batchCount + complex(c_float_complex),target :: myResult ! - hipblasCscalStridedBatched_assumed_rank = hipblasCscalStridedBatched_(handle,n,c_loc(alpha), & - c_loc(x),incx,stridex,batchCount) + hipblasCdotcStridedBatched_rank_0 = hipblasCdotcStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount,c_loc(myResult)) end function -#else - function hipblasCscalStridedBatched_rank_0(handle,n,alpha,x,incx,stridex,batchCount) - use iso_c_binding + function hipblasCdotcStridedBatched_rank_0_devptr(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscalStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotcStridedBatched_rank_0_devptr type(c_ptr), value :: handle integer(c_int) :: n - complex(c_float_complex),target :: alpha complex(c_float_complex),target :: x integer(c_int) :: incx integer(c_int64_t) :: stridex + complex(c_float_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey integer(c_int) :: batchCount + type(c_ptr),value :: myResult ! - hipblasCscalStridedBatched_rank_0 = hipblasCscalStridedBatched_(handle,n,c_loc(alpha), & - c_loc(x),incx,stridex,batchCount) + hipblasCdotcStridedBatched_rank_0_devptr = hipblasCdotcStridedBatched_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) end function - function hipblasCscalStridedBatched_rank_1(handle,n,alpha,x,incx,stridex,batchCount) - use iso_c_binding + function hipblasCdotcStridedBatched_rank_1(handle,n,x,incx,stridex,y,incy,stridey,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscalStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotcStridedBatched_rank_1 type(c_ptr), value :: handle integer(c_int) :: n - complex(c_float_complex),target :: alpha complex(c_float_complex),target,dimension(:) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey integer(c_int) :: batchCount + complex(c_float_complex),target,dimension(:) :: myResult ! - hipblasCscalStridedBatched_rank_1 = hipblasCscalStridedBatched_(handle,n,c_loc(alpha), & - c_loc(x),incx,stridex,batchCount) + hipblasCdotcStridedBatched_rank_1 = hipblasCdotcStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount,c_loc(myResult)) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZscalStridedBatched_assumed_rank(handle,n,alpha,x,incx,stridex,batchCount) - use iso_c_binding + function hipblasCdotcStridedBatched_rank_1_devptr(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscalStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotcStridedBatched_rank_1_devptr type(c_ptr), value :: handle integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: x + complex(c_float_complex),target,dimension(:) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey integer(c_int) :: batchCount + type(c_ptr),value :: myResult ! - hipblasZscalStridedBatched_assumed_rank = hipblasZscalStridedBatched_(handle,n,c_loc(alpha), & - c_loc(x),incx,stridex,batchCount) + hipblasCdotcStridedBatched_rank_1_devptr = hipblasCdotcStridedBatched_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) end function -#else - function hipblasZscalStridedBatched_rank_0(handle,n,alpha,x,incx,stridex,batchCount) - use iso_c_binding + function hipblasCdotcStridedBatched_strided_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscalStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotcStridedBatched_strided_rank type(c_ptr), value :: handle integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: x + complex(c_float_complex),target,dimension(:,:) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey integer(c_int) :: batchCount + complex(c_float_complex),target,dimension(:) :: myResult ! - hipblasZscalStridedBatched_rank_0 = hipblasZscalStridedBatched_(handle,n,c_loc(alpha), & - c_loc(x),incx,stridex,batchCount) + hipblasCdotcStridedBatched_strided_rank = hipblasCdotcStridedBatched_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount,c_loc(myResult)) end function - function hipblasZscalStridedBatched_rank_1(handle,n,alpha,x,incx,stridex,batchCount) - use iso_c_binding + function hipblasCdotcStridedBatched_strided_rank_devptr(handle,n,x,incx,stridex,y,incy, & + stridey,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscalStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotcStridedBatched_strided_rank_devptr type(c_ptr), value :: handle integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: x + complex(c_float_complex),target,dimension(:,:) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey integer(c_int) :: batchCount + type(c_ptr),value :: myResult ! - hipblasZscalStridedBatched_rank_1 = hipblasZscalStridedBatched_(handle,n,c_loc(alpha), & - c_loc(x),incx,stridex,batchCount) + hipblasCdotcStridedBatched_strided_rank_devptr = hipblasCdotcStridedBatched_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCsscalStridedBatched_assumed_rank(handle,n,alpha,x,incx,stridex,batchCount) - use iso_c_binding + function hipblasCdotuStridedBatched_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscalStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotuStridedBatched_assumed_rank type(c_ptr), value :: handle integer(c_int) :: n - real(c_float),target :: alpha complex(c_float_complex),target,dimension(..) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey integer(c_int) :: batchCount + complex(c_float_complex),target,dimension(..) :: myResult ! - hipblasCsscalStridedBatched_assumed_rank = hipblasCsscalStridedBatched_(handle,n, & - c_loc(alpha),c_loc(x),incx,stridex,batchCount) + hipblasCdotuStridedBatched_assumed_rank = hipblasCdotuStridedBatched_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount,c_loc(myResult)) end function -#else - function hipblasCsscalStridedBatched_rank_0(handle,n,alpha,x,incx,stridex,batchCount) - use iso_c_binding + function hipblasCdotuStridedBatched_assumed_rank_devptr(handle,n,x,incx,stridex,y,incy, & + stridey,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscalStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotuStridedBatched_assumed_rank_devptr type(c_ptr), value :: handle integer(c_int) :: n - real(c_float),target :: alpha - complex(c_float_complex),target :: x + complex(c_float_complex),target,dimension(..) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey integer(c_int) :: batchCount + type(c_ptr),value :: myResult ! - hipblasCsscalStridedBatched_rank_0 = hipblasCsscalStridedBatched_(handle,n,c_loc(alpha), & - c_loc(x),incx,stridex,batchCount) + hipblasCdotuStridedBatched_assumed_rank_devptr = hipblasCdotuStridedBatched_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) end function - function hipblasCsscalStridedBatched_rank_1(handle,n,alpha,x,incx,stridex,batchCount) - use iso_c_binding +#else + function hipblasCdotuStridedBatched_rank_0(handle,n,x,incx,stridex,y,incy,stridey,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscalStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotuStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + complex(c_float_complex),target :: myResult + ! + hipblasCdotuStridedBatched_rank_0 = hipblasCdotuStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount,c_loc(myResult)) + end function + + function hipblasCdotuStridedBatched_rank_0_devptr(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotuStridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + type(c_ptr),value :: myResult + ! + hipblasCdotuStridedBatched_rank_0_devptr = hipblasCdotuStridedBatched_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) + end function + + function hipblasCdotuStridedBatched_rank_1(handle,n,x,incx,stridex,y,incy,stridey,batchCount, & + myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotuStridedBatched_rank_1 type(c_ptr), value :: handle integer(c_int) :: n - real(c_float),target :: alpha complex(c_float_complex),target,dimension(:) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey integer(c_int) :: batchCount + complex(c_float_complex),target,dimension(:) :: myResult ! - hipblasCsscalStridedBatched_rank_1 = hipblasCsscalStridedBatched_(handle,n,c_loc(alpha), & - c_loc(x),incx,stridex,batchCount) + hipblasCdotuStridedBatched_rank_1 = hipblasCdotuStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount,c_loc(myResult)) + end function + + function hipblasCdotuStridedBatched_rank_1_devptr(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotuStridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + type(c_ptr),value :: myResult + ! + hipblasCdotuStridedBatched_rank_1_devptr = hipblasCdotuStridedBatched_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) + end function + + function hipblasCdotuStridedBatched_strided_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotuStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + complex(c_float_complex),target,dimension(:) :: myResult + ! + hipblasCdotuStridedBatched_strided_rank = hipblasCdotuStridedBatched_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount,c_loc(myResult)) + end function + + function hipblasCdotuStridedBatched_strided_rank_devptr(handle,n,x,incx,stridex,y,incy, & + stridey,batchCount,myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotuStridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + type(c_ptr),value :: myResult + ! + hipblasCdotuStridedBatched_strided_rank_devptr = hipblasCdotuStridedBatched_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasZdscalStridedBatched_assumed_rank(handle,n,alpha,x,incx,stridex,batchCount) - use iso_c_binding + function hipblasZdotcStridedBatched_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscalStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotcStridedBatched_assumed_rank type(c_ptr), value :: handle integer(c_int) :: n - real(c_double),target :: alpha complex(c_double_complex),target,dimension(..) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey integer(c_int) :: batchCount + complex(c_double_complex),target,dimension(..) :: myResult ! - hipblasZdscalStridedBatched_assumed_rank = hipblasZdscalStridedBatched_(handle,n, & - c_loc(alpha),c_loc(x),incx,stridex,batchCount) + hipblasZdotcStridedBatched_assumed_rank = hipblasZdotcStridedBatched_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount,c_loc(myResult)) + end function + + function hipblasZdotcStridedBatched_assumed_rank_devptr(handle,n,x,incx,stridex,y,incy, & + stridey,batchCount,myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotcStridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + type(c_ptr),value :: myResult + ! + hipblasZdotcStridedBatched_assumed_rank_devptr = hipblasZdotcStridedBatched_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) end function #else - function hipblasZdscalStridedBatched_rank_0(handle,n,alpha,x,incx,stridex,batchCount) - use iso_c_binding + function hipblasZdotcStridedBatched_rank_0(handle,n,x,incx,stridex,y,incy,stridey,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscalStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotcStridedBatched_rank_0 type(c_ptr), value :: handle integer(c_int) :: n - real(c_double),target :: alpha complex(c_double_complex),target :: x integer(c_int) :: incx integer(c_int64_t) :: stridex + complex(c_double_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey integer(c_int) :: batchCount + complex(c_double_complex),target :: myResult ! - hipblasZdscalStridedBatched_rank_0 = hipblasZdscalStridedBatched_(handle,n,c_loc(alpha), & - c_loc(x),incx,stridex,batchCount) + hipblasZdotcStridedBatched_rank_0 = hipblasZdotcStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount,c_loc(myResult)) end function - function hipblasZdscalStridedBatched_rank_1(handle,n,alpha,x,incx,stridex,batchCount) - use iso_c_binding + function hipblasZdotcStridedBatched_rank_0_devptr(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscalStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotcStridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + type(c_ptr),value :: myResult + ! + hipblasZdotcStridedBatched_rank_0_devptr = hipblasZdotcStridedBatched_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) + end function + + function hipblasZdotcStridedBatched_rank_1(handle,n,x,incx,stridex,y,incy,stridey,batchCount, & + myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotcStridedBatched_rank_1 type(c_ptr), value :: handle integer(c_int) :: n - real(c_double),target :: alpha complex(c_double_complex),target,dimension(:) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey integer(c_int) :: batchCount + complex(c_double_complex),target,dimension(:) :: myResult ! - hipblasZdscalStridedBatched_rank_1 = hipblasZdscalStridedBatched_(handle,n,c_loc(alpha), & - c_loc(x),incx,stridex,batchCount) + hipblasZdotcStridedBatched_rank_1 = hipblasZdotcStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount,c_loc(myResult)) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasSscalStridedBatched_64_assumed_rank(handle,n,alpha,x,incx,stridex,batchCount) - use iso_c_binding + function hipblasZdotcStridedBatched_rank_1_devptr(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscalStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotcStridedBatched_rank_1_devptr type(c_ptr), value :: handle - integer(c_int64_t) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(..) :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + type(c_ptr),value :: myResult ! - hipblasSscalStridedBatched_64_assumed_rank = hipblasSscalStridedBatched_64_(handle,n, & - c_loc(alpha),c_loc(x),incx,stridex,batchCount) + hipblasZdotcStridedBatched_rank_1_devptr = hipblasZdotcStridedBatched_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) end function -#else - function hipblasSscalStridedBatched_64_rank_0(handle,n,alpha,x,incx,stridex,batchCount) - use iso_c_binding + function hipblasZdotcStridedBatched_strided_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscalStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotcStridedBatched_strided_rank type(c_ptr), value :: handle - integer(c_int64_t) :: n - real(c_float),target :: alpha - real(c_float),target :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int) :: incx integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount + complex(c_double_complex),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + complex(c_double_complex),target,dimension(:) :: myResult ! - hipblasSscalStridedBatched_64_rank_0 = hipblasSscalStridedBatched_64_(handle,n,c_loc(alpha), & - c_loc(x),incx,stridex,batchCount) + hipblasZdotcStridedBatched_strided_rank = hipblasZdotcStridedBatched_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount,c_loc(myResult)) end function - function hipblasSscalStridedBatched_64_rank_1(handle,n,alpha,x,incx,stridex,batchCount) - use iso_c_binding + function hipblasZdotcStridedBatched_strided_rank_devptr(handle,n,x,incx,stridex,y,incy, & + stridey,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscalStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotcStridedBatched_strided_rank_devptr type(c_ptr), value :: handle - integer(c_int64_t) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(:) :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int) :: incx integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount + complex(c_double_complex),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + type(c_ptr),value :: myResult ! - hipblasSscalStridedBatched_64_rank_1 = hipblasSscalStridedBatched_64_(handle,n,c_loc(alpha), & - c_loc(x),incx,stridex,batchCount) + hipblasZdotcStridedBatched_strided_rank_devptr = hipblasZdotcStridedBatched_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasDscalStridedBatched_64_assumed_rank(handle,n,alpha,x,incx,stridex,batchCount) - use iso_c_binding + function hipblasZdotuStridedBatched_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscalStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotuStridedBatched_assumed_rank type(c_ptr), value :: handle - integer(c_int64_t) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(..) :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + complex(c_double_complex),target,dimension(..) :: myResult ! - hipblasDscalStridedBatched_64_assumed_rank = hipblasDscalStridedBatched_64_(handle,n, & - c_loc(alpha),c_loc(x),incx,stridex,batchCount) + hipblasZdotuStridedBatched_assumed_rank = hipblasZdotuStridedBatched_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount,c_loc(myResult)) + end function + + function hipblasZdotuStridedBatched_assumed_rank_devptr(handle,n,x,incx,stridex,y,incy, & + stridey,batchCount,myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotuStridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + type(c_ptr),value :: myResult + ! + hipblasZdotuStridedBatched_assumed_rank_devptr = hipblasZdotuStridedBatched_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) end function #else - function hipblasDscalStridedBatched_64_rank_0(handle,n,alpha,x,incx,stridex,batchCount) - use iso_c_binding + function hipblasZdotuStridedBatched_rank_0(handle,n,x,incx,stridex,y,incy,stridey,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscalStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotuStridedBatched_rank_0 type(c_ptr), value :: handle - integer(c_int64_t) :: n - real(c_double),target :: alpha - real(c_double),target :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + complex(c_double_complex),target :: x + integer(c_int) :: incx integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount + complex(c_double_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + complex(c_double_complex),target :: myResult ! - hipblasDscalStridedBatched_64_rank_0 = hipblasDscalStridedBatched_64_(handle,n,c_loc(alpha), & - c_loc(x),incx,stridex,batchCount) + hipblasZdotuStridedBatched_rank_0 = hipblasZdotuStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount,c_loc(myResult)) end function - function hipblasDscalStridedBatched_64_rank_1(handle,n,alpha,x,incx,stridex,batchCount) - use iso_c_binding + function hipblasZdotuStridedBatched_rank_0_devptr(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscalStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotuStridedBatched_rank_0_devptr type(c_ptr), value :: handle - integer(c_int64_t) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(:) :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + complex(c_double_complex),target :: x + integer(c_int) :: incx integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount + complex(c_double_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + type(c_ptr),value :: myResult ! - hipblasDscalStridedBatched_64_rank_1 = hipblasDscalStridedBatched_64_(handle,n,c_loc(alpha), & - c_loc(x),incx,stridex,batchCount) + hipblasZdotuStridedBatched_rank_0_devptr = hipblasZdotuStridedBatched_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) + end function + + function hipblasZdotuStridedBatched_rank_1(handle,n,x,incx,stridex,y,incy,stridey,batchCount, & + myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotuStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + complex(c_double_complex),target,dimension(:) :: myResult + ! + hipblasZdotuStridedBatched_rank_1 = hipblasZdotuStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount,c_loc(myResult)) + end function + + function hipblasZdotuStridedBatched_rank_1_devptr(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotuStridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + type(c_ptr),value :: myResult + ! + hipblasZdotuStridedBatched_rank_1_devptr = hipblasZdotuStridedBatched_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) + end function + + function hipblasZdotuStridedBatched_strided_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotuStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + complex(c_double_complex),target,dimension(:) :: myResult + ! + hipblasZdotuStridedBatched_strided_rank = hipblasZdotuStridedBatched_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount,c_loc(myResult)) + end function + + function hipblasZdotuStridedBatched_strided_rank_devptr(handle,n,x,incx,stridex,y,incy, & + stridey,batchCount,myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotuStridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + type(c_ptr),value :: myResult + ! + hipblasZdotuStridedBatched_strided_rank_devptr = hipblasZdotuStridedBatched_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCscalStridedBatched_64_assumed_rank(handle,n,alpha,x,incx,stridex,batchCount) - use iso_c_binding + function hipblasBfdotStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscalStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasBfdotStridedBatched_64_assumed_rank type(c_ptr), value :: handle integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: x + integer(c_short),target,dimension(..) :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex + integer(c_short),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount + integer(c_short),target,dimension(..) :: myResult ! - hipblasCscalStridedBatched_64_assumed_rank = hipblasCscalStridedBatched_64_(handle,n, & - c_loc(alpha),c_loc(x),incx,stridex,batchCount) + hipblasBfdotStridedBatched_64_assumed_rank = hipblasBfdotStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount,c_loc(myResult)) end function #else - function hipblasCscalStridedBatched_64_rank_0(handle,n,alpha,x,incx,stridex,batchCount) - use iso_c_binding + function hipblasBfdotStridedBatched_64_rank_0(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscalStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasBfdotStridedBatched_64_rank_0 type(c_ptr), value :: handle integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: x + integer(c_short),target :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex + integer(c_short),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount + integer(c_short),target :: myResult ! - hipblasCscalStridedBatched_64_rank_0 = hipblasCscalStridedBatched_64_(handle,n,c_loc(alpha), & - c_loc(x),incx,stridex,batchCount) + hipblasBfdotStridedBatched_64_rank_0 = hipblasBfdotStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount,c_loc(myResult)) end function - function hipblasCscalStridedBatched_64_rank_1(handle,n,alpha,x,incx,stridex,batchCount) - use iso_c_binding + function hipblasBfdotStridedBatched_64_rank_1(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscalStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasBfdotStridedBatched_64_rank_1 type(c_ptr), value :: handle integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: x + integer(c_short),target,dimension(:) :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex + integer(c_short),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount + integer(c_short),target,dimension(:) :: myResult ! - hipblasCscalStridedBatched_64_rank_1 = hipblasCscalStridedBatched_64_(handle,n,c_loc(alpha), & - c_loc(x),incx,stridex,batchCount) + hipblasBfdotStridedBatched_64_rank_1 = hipblasBfdotStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount,c_loc(myResult)) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZscalStridedBatched_64_assumed_rank(handle,n,alpha,x,incx,stridex,batchCount) - use iso_c_binding + function hipblasBfdotStridedBatched_64_strided_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscalStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasBfdotStridedBatched_64_strided_rank type(c_ptr), value :: handle integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: x + integer(c_short),target,dimension(:,:) :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex + integer(c_short),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount + integer(c_short),target,dimension(:) :: myResult ! - hipblasZscalStridedBatched_64_assumed_rank = hipblasZscalStridedBatched_64_(handle,n, & - c_loc(alpha),c_loc(x),incx,stridex,batchCount) + hipblasBfdotStridedBatched_64_strided_rank = hipblasBfdotStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount,c_loc(myResult)) end function -#else - function hipblasZscalStridedBatched_64_rank_0(handle,n,alpha,x,incx,stridex,batchCount) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSdotStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscalStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdotStridedBatched_64_assumed_rank type(c_ptr), value :: handle integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: x + real(c_float),target,dimension(..) :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount + real(c_float),target,dimension(..) :: myResult ! - hipblasZscalStridedBatched_64_rank_0 = hipblasZscalStridedBatched_64_(handle,n,c_loc(alpha), & - c_loc(x),incx,stridex,batchCount) + hipblasSdotStridedBatched_64_assumed_rank = hipblasSdotStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount,c_loc(myResult)) end function - function hipblasZscalStridedBatched_64_rank_1(handle,n,alpha,x,incx,stridex,batchCount) - use iso_c_binding + function hipblasSdotStridedBatched_64_assumed_rank_devptr(handle,n,x,incx,stridex,y,incy, & + stridey,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscalStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdotStridedBatched_64_assumed_rank_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: x + real(c_float),target,dimension(..) :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount + type(c_ptr),value :: myResult ! - hipblasZscalStridedBatched_64_rank_1 = hipblasZscalStridedBatched_64_(handle,n,c_loc(alpha), & - c_loc(x),incx,stridex,batchCount) + hipblasSdotStridedBatched_64_assumed_rank_devptr = hipblasSdotStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCsscalStridedBatched_64_assumed_rank(handle,n,alpha,x,incx,stridex,batchCount) - use iso_c_binding +#else + function hipblasSdotStridedBatched_64_rank_0(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscalStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdotStridedBatched_64_rank_0 type(c_ptr), value :: handle integer(c_int64_t) :: n - real(c_float),target :: alpha - complex(c_float_complex),target,dimension(..) :: x + real(c_float),target :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex + real(c_float),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount + real(c_float),target :: myResult ! - hipblasCsscalStridedBatched_64_assumed_rank = hipblasCsscalStridedBatched_64_(handle,n, & - c_loc(alpha),c_loc(x),incx,stridex,batchCount) + hipblasSdotStridedBatched_64_rank_0 = hipblasSdotStridedBatched_64_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount,c_loc(myResult)) end function -#else - function hipblasCsscalStridedBatched_64_rank_0(handle,n,alpha,x,incx,stridex,batchCount) - use iso_c_binding + function hipblasSdotStridedBatched_64_rank_0_devptr(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscalStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdotStridedBatched_64_rank_0_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n - real(c_float),target :: alpha - complex(c_float_complex),target :: x + real(c_float),target :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex + real(c_float),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount + type(c_ptr),value :: myResult ! - hipblasCsscalStridedBatched_64_rank_0 = hipblasCsscalStridedBatched_64_(handle,n, & - c_loc(alpha),c_loc(x),incx,stridex,batchCount) + hipblasSdotStridedBatched_64_rank_0_devptr = hipblasSdotStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) end function - function hipblasCsscalStridedBatched_64_rank_1(handle,n,alpha,x,incx,stridex,batchCount) - use iso_c_binding + function hipblasSdotStridedBatched_64_rank_1(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscalStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdotStridedBatched_64_rank_1 type(c_ptr), value :: handle integer(c_int64_t) :: n - real(c_float),target :: alpha - complex(c_float_complex),target,dimension(:) :: x + real(c_float),target,dimension(:) :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount + real(c_float),target,dimension(:) :: myResult ! - hipblasCsscalStridedBatched_64_rank_1 = hipblasCsscalStridedBatched_64_(handle,n, & - c_loc(alpha),c_loc(x),incx,stridex,batchCount) + hipblasSdotStridedBatched_64_rank_1 = hipblasSdotStridedBatched_64_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount,c_loc(myResult)) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZdscalStridedBatched_64_assumed_rank(handle,n,alpha,x,incx,stridex,batchCount) - use iso_c_binding + function hipblasSdotStridedBatched_64_rank_1_devptr(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscalStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdotStridedBatched_64_rank_1_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n - real(c_double),target :: alpha - complex(c_double_complex),target,dimension(..) :: x + real(c_float),target,dimension(:) :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount + type(c_ptr),value :: myResult ! - hipblasZdscalStridedBatched_64_assumed_rank = hipblasZdscalStridedBatched_64_(handle,n, & - c_loc(alpha),c_loc(x),incx,stridex,batchCount) + hipblasSdotStridedBatched_64_rank_1_devptr = hipblasSdotStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) end function -#else - function hipblasZdscalStridedBatched_64_rank_0(handle,n,alpha,x,incx,stridex,batchCount) - use iso_c_binding + function hipblasSdotStridedBatched_64_strided_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscalStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdotStridedBatched_64_strided_rank type(c_ptr), value :: handle integer(c_int64_t) :: n - real(c_double),target :: alpha - complex(c_double_complex),target :: x + real(c_float),target,dimension(:,:) :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex + real(c_float),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount + real(c_float),target,dimension(:) :: myResult ! - hipblasZdscalStridedBatched_64_rank_0 = hipblasZdscalStridedBatched_64_(handle,n, & - c_loc(alpha),c_loc(x),incx,stridex,batchCount) + hipblasSdotStridedBatched_64_strided_rank = hipblasSdotStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount,c_loc(myResult)) end function - function hipblasZdscalStridedBatched_64_rank_1(handle,n,alpha,x,incx,stridex,batchCount) - use iso_c_binding + function hipblasSdotStridedBatched_64_strided_rank_devptr(handle,n,x,incx,stridex,y,incy, & + stridey,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscalStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdotStridedBatched_64_strided_rank_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n - real(c_double),target :: alpha - complex(c_double_complex),target,dimension(:) :: x + real(c_float),target,dimension(:,:) :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex + real(c_float),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount + type(c_ptr),value :: myResult ! - hipblasZdscalStridedBatched_64_rank_1 = hipblasZdscalStridedBatched_64_(handle,n, & - c_loc(alpha),c_loc(x),incx,stridex,batchCount) + hipblasSdotStridedBatched_64_strided_rank_devptr = hipblasSdotStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasSswap_assumed_rank(handle,n,x,incx,y,incy) - use iso_c_binding + function hipblasDdotStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSswap_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdotStridedBatched_64_assumed_rank type(c_ptr), value :: handle - integer(c_int) :: n - real(c_float),target,dimension(..) :: x - integer(c_int) :: incx - real(c_float),target,dimension(..) :: y - integer(c_int) :: incy + integer(c_int64_t) :: n + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + real(c_double),target,dimension(..) :: myResult ! - hipblasSswap_assumed_rank = hipblasSswap_(handle,n,c_loc(x),incx,c_loc(y),incy) + hipblasDdotStridedBatched_64_assumed_rank = hipblasDdotStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount,c_loc(myResult)) end function -#else - function hipblasSswap_rank_0(handle,n,x,incx,y,incy) - use iso_c_binding + function hipblasDdotStridedBatched_64_assumed_rank_devptr(handle,n,x,incx,stridex,y,incy, & + stridey,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSswap_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdotStridedBatched_64_assumed_rank_devptr type(c_ptr), value :: handle - integer(c_int) :: n - real(c_float),target :: x - integer(c_int) :: incx - real(c_float),target :: y - integer(c_int) :: incy - ! - hipblasSswap_rank_0 = hipblasSswap_(handle,n,c_loc(x),incx,c_loc(y),incy) - end function - - function hipblasSswap_rank_1(handle,n,x,incx,y,incy) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSswap_rank_1 - type(c_ptr), value :: handle - integer(c_int) :: n - real(c_float),target,dimension(:) :: x - integer(c_int) :: incx - real(c_float),target,dimension(:) :: y - integer(c_int) :: incy + integer(c_int64_t) :: n + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + type(c_ptr),value :: myResult ! - hipblasSswap_rank_1 = hipblasSswap_(handle,n,c_loc(x),incx,c_loc(y),incy) + hipblasDdotStridedBatched_64_assumed_rank_devptr = hipblasDdotStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDswap_assumed_rank(handle,n,x,incx,y,incy) - use iso_c_binding +#else + function hipblasDdotStridedBatched_64_rank_0(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDswap_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdotStridedBatched_64_rank_0 type(c_ptr), value :: handle - integer(c_int) :: n - real(c_double),target,dimension(..) :: x - integer(c_int) :: incx - real(c_double),target,dimension(..) :: y - integer(c_int) :: incy + integer(c_int64_t) :: n + real(c_double),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + real(c_double),target :: myResult ! - hipblasDswap_assumed_rank = hipblasDswap_(handle,n,c_loc(x),incx,c_loc(y),incy) + hipblasDdotStridedBatched_64_rank_0 = hipblasDdotStridedBatched_64_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount,c_loc(myResult)) end function -#else - function hipblasDswap_rank_0(handle,n,x,incx,y,incy) - use iso_c_binding + function hipblasDdotStridedBatched_64_rank_0_devptr(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDswap_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdotStridedBatched_64_rank_0_devptr type(c_ptr), value :: handle - integer(c_int) :: n + integer(c_int64_t) :: n real(c_double),target :: x - integer(c_int) :: incx + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex real(c_double),target :: y - integer(c_int) :: incy + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + type(c_ptr),value :: myResult ! - hipblasDswap_rank_0 = hipblasDswap_(handle,n,c_loc(x),incx,c_loc(y),incy) + hipblasDdotStridedBatched_64_rank_0_devptr = hipblasDdotStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) end function - function hipblasDswap_rank_1(handle,n,x,incx,y,incy) - use iso_c_binding + function hipblasDdotStridedBatched_64_rank_1(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDswap_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdotStridedBatched_64_rank_1 type(c_ptr), value :: handle - integer(c_int) :: n + integer(c_int64_t) :: n real(c_double),target,dimension(:) :: x - integer(c_int) :: incx + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex real(c_double),target,dimension(:) :: y - integer(c_int) :: incy + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + real(c_double),target,dimension(:) :: myResult ! - hipblasDswap_rank_1 = hipblasDswap_(handle,n,c_loc(x),incx,c_loc(y),incy) + hipblasDdotStridedBatched_64_rank_1 = hipblasDdotStridedBatched_64_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount,c_loc(myResult)) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCswap_assumed_rank(handle,n,x,incx,y,incy) - use iso_c_binding + function hipblasDdotStridedBatched_64_rank_1_devptr(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCswap_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdotStridedBatched_64_rank_1_devptr type(c_ptr), value :: handle - integer(c_int) :: n - complex(c_float_complex),target,dimension(..) :: x - integer(c_int) :: incx - complex(c_float_complex),target,dimension(..) :: y - integer(c_int) :: incy + integer(c_int64_t) :: n + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + type(c_ptr),value :: myResult ! - hipblasCswap_assumed_rank = hipblasCswap_(handle,n,c_loc(x),incx,c_loc(y),incy) + hipblasDdotStridedBatched_64_rank_1_devptr = hipblasDdotStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) end function -#else - function hipblasCswap_rank_0(handle,n,x,incx,y,incy) - use iso_c_binding + function hipblasDdotStridedBatched_64_strided_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCswap_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdotStridedBatched_64_strided_rank type(c_ptr), value :: handle - integer(c_int) :: n - complex(c_float_complex),target :: x - integer(c_int) :: incx - complex(c_float_complex),target :: y - integer(c_int) :: incy + integer(c_int64_t) :: n + real(c_double),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + real(c_double),target,dimension(:) :: myResult ! - hipblasCswap_rank_0 = hipblasCswap_(handle,n,c_loc(x),incx,c_loc(y),incy) + hipblasDdotStridedBatched_64_strided_rank = hipblasDdotStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount,c_loc(myResult)) end function - function hipblasCswap_rank_1(handle,n,x,incx,y,incy) - use iso_c_binding + function hipblasDdotStridedBatched_64_strided_rank_devptr(handle,n,x,incx,stridex,y,incy, & + stridey,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCswap_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdotStridedBatched_64_strided_rank_devptr type(c_ptr), value :: handle - integer(c_int) :: n - complex(c_float_complex),target,dimension(:) :: x - integer(c_int) :: incx - complex(c_float_complex),target,dimension(:) :: y - integer(c_int) :: incy + integer(c_int64_t) :: n + real(c_double),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + type(c_ptr),value :: myResult ! - hipblasCswap_rank_1 = hipblasCswap_(handle,n,c_loc(x),incx,c_loc(y),incy) + hipblasDdotStridedBatched_64_strided_rank_devptr = hipblasDdotStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasZswap_assumed_rank(handle,n,x,incx,y,incy) - use iso_c_binding + function hipblasCdotcStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZswap_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotcStridedBatched_64_assumed_rank type(c_ptr), value :: handle - integer(c_int) :: n - complex(c_double_complex),target,dimension(..) :: x - integer(c_int) :: incx - complex(c_double_complex),target,dimension(..) :: y - integer(c_int) :: incy + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + complex(c_float_complex),target,dimension(..) :: myResult ! - hipblasZswap_assumed_rank = hipblasZswap_(handle,n,c_loc(x),incx,c_loc(y),incy) + hipblasCdotcStridedBatched_64_assumed_rank = hipblasCdotcStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount,c_loc(myResult)) end function -#else - function hipblasZswap_rank_0(handle,n,x,incx,y,incy) - use iso_c_binding + function hipblasCdotcStridedBatched_64_assumed_rank_devptr(handle,n,x,incx,stridex,y,incy, & + stridey,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZswap_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotcStridedBatched_64_assumed_rank_devptr type(c_ptr), value :: handle - integer(c_int) :: n - complex(c_double_complex),target :: x - integer(c_int) :: incx - complex(c_double_complex),target :: y - integer(c_int) :: incy + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + type(c_ptr),value :: myResult ! - hipblasZswap_rank_0 = hipblasZswap_(handle,n,c_loc(x),incx,c_loc(y),incy) + hipblasCdotcStridedBatched_64_assumed_rank_devptr = hipblasCdotcStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) end function - function hipblasZswap_rank_1(handle,n,x,incx,y,incy) - use iso_c_binding +#else + function hipblasCdotcStridedBatched_64_rank_0(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZswap_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotcStridedBatched_64_rank_0 type(c_ptr), value :: handle - integer(c_int) :: n - complex(c_double_complex),target,dimension(:) :: x - integer(c_int) :: incx - complex(c_double_complex),target,dimension(:) :: y - integer(c_int) :: incy + integer(c_int64_t) :: n + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + complex(c_float_complex),target :: myResult ! - hipblasZswap_rank_1 = hipblasZswap_(handle,n,c_loc(x),incx,c_loc(y),incy) + hipblasCdotcStridedBatched_64_rank_0 = hipblasCdotcStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount,c_loc(myResult)) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasSswap_64_assumed_rank(handle,n,x,incx,y,incy) - use iso_c_binding + function hipblasCdotcStridedBatched_64_rank_0_devptr(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSswap_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotcStridedBatched_64_rank_0_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n - real(c_float),target,dimension(..) :: x + complex(c_float_complex),target :: x integer(c_int64_t) :: incx - real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: y integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + type(c_ptr),value :: myResult ! - hipblasSswap_64_assumed_rank = hipblasSswap_64_(handle,n,c_loc(x),incx,c_loc(y),incy) + hipblasCdotcStridedBatched_64_rank_0_devptr = hipblasCdotcStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) end function -#else - function hipblasSswap_64_rank_0(handle,n,x,incx,y,incy) - use iso_c_binding + function hipblasCdotcStridedBatched_64_rank_1(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSswap_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotcStridedBatched_64_rank_1 type(c_ptr), value :: handle integer(c_int64_t) :: n - real(c_float),target :: x + complex(c_float_complex),target,dimension(:) :: x integer(c_int64_t) :: incx - real(c_float),target :: y + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + complex(c_float_complex),target,dimension(:) :: myResult ! - hipblasSswap_64_rank_0 = hipblasSswap_64_(handle,n,c_loc(x),incx,c_loc(y),incy) + hipblasCdotcStridedBatched_64_rank_1 = hipblasCdotcStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount,c_loc(myResult)) end function - function hipblasSswap_64_rank_1(handle,n,x,incx,y,incy) - use iso_c_binding + function hipblasCdotcStridedBatched_64_rank_1_devptr(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSswap_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotcStridedBatched_64_rank_1_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n - real(c_float),target,dimension(:) :: x + complex(c_float_complex),target,dimension(:) :: x integer(c_int64_t) :: incx - real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + type(c_ptr),value :: myResult ! - hipblasSswap_64_rank_1 = hipblasSswap_64_(handle,n,c_loc(x),incx,c_loc(y),incy) + hipblasCdotcStridedBatched_64_rank_1_devptr = hipblasCdotcStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDswap_64_assumed_rank(handle,n,x,incx,y,incy) - use iso_c_binding + function hipblasCdotcStridedBatched_64_strided_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDswap_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotcStridedBatched_64_strided_rank type(c_ptr), value :: handle integer(c_int64_t) :: n - real(c_double),target,dimension(..) :: x + complex(c_float_complex),target,dimension(:,:) :: x integer(c_int64_t) :: incx - real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:) :: y integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + complex(c_float_complex),target,dimension(:) :: myResult ! - hipblasDswap_64_assumed_rank = hipblasDswap_64_(handle,n,c_loc(x),incx,c_loc(y),incy) + hipblasCdotcStridedBatched_64_strided_rank = hipblasCdotcStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount,c_loc(myResult)) end function -#else - function hipblasDswap_64_rank_0(handle,n,x,incx,y,incy) - use iso_c_binding + function hipblasCdotcStridedBatched_64_strided_rank_devptr(handle,n,x,incx,stridex,y,incy, & + stridey,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDswap_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotcStridedBatched_64_strided_rank_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n - real(c_double),target :: x + complex(c_float_complex),target,dimension(:,:) :: x integer(c_int64_t) :: incx - real(c_double),target :: y + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:) :: y integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + type(c_ptr),value :: myResult ! - hipblasDswap_64_rank_0 = hipblasDswap_64_(handle,n,c_loc(x),incx,c_loc(y),incy) + hipblasCdotcStridedBatched_64_strided_rank_devptr = hipblasCdotcStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) end function - function hipblasDswap_64_rank_1(handle,n,x,incx,y,incy) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCdotuStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDswap_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotuStridedBatched_64_assumed_rank type(c_ptr), value :: handle integer(c_int64_t) :: n - real(c_double),target,dimension(:) :: x + complex(c_float_complex),target,dimension(..) :: x integer(c_int64_t) :: incx - real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: y integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + complex(c_float_complex),target,dimension(..) :: myResult ! - hipblasDswap_64_rank_1 = hipblasDswap_64_(handle,n,c_loc(x),incx,c_loc(y),incy) + hipblasCdotuStridedBatched_64_assumed_rank = hipblasCdotuStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount,c_loc(myResult)) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCswap_64_assumed_rank(handle,n,x,incx,y,incy) - use iso_c_binding + function hipblasCdotuStridedBatched_64_assumed_rank_devptr(handle,n,x,incx,stridex,y,incy, & + stridey,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCswap_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotuStridedBatched_64_assumed_rank_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n complex(c_float_complex),target,dimension(..) :: x integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex complex(c_float_complex),target,dimension(..) :: y integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + type(c_ptr),value :: myResult ! - hipblasCswap_64_assumed_rank = hipblasCswap_64_(handle,n,c_loc(x),incx,c_loc(y),incy) + hipblasCdotuStridedBatched_64_assumed_rank_devptr = hipblasCdotuStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) end function #else - function hipblasCswap_64_rank_0(handle,n,x,incx,y,incy) - use iso_c_binding + function hipblasCdotuStridedBatched_64_rank_0(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCswap_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotuStridedBatched_64_rank_0 type(c_ptr), value :: handle integer(c_int64_t) :: n complex(c_float_complex),target :: x integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex complex(c_float_complex),target :: y integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + complex(c_float_complex),target :: myResult ! - hipblasCswap_64_rank_0 = hipblasCswap_64_(handle,n,c_loc(x),incx,c_loc(y),incy) + hipblasCdotuStridedBatched_64_rank_0 = hipblasCdotuStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount,c_loc(myResult)) end function - function hipblasCswap_64_rank_1(handle,n,x,incx,y,incy) - use iso_c_binding + function hipblasCdotuStridedBatched_64_rank_0_devptr(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCswap_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotuStridedBatched_64_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + type(c_ptr),value :: myResult + ! + hipblasCdotuStridedBatched_64_rank_0_devptr = hipblasCdotuStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) + end function + + function hipblasCdotuStridedBatched_64_rank_1(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotuStridedBatched_64_rank_1 type(c_ptr), value :: handle integer(c_int64_t) :: n complex(c_float_complex),target,dimension(:) :: x integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex complex(c_float_complex),target,dimension(:) :: y integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + complex(c_float_complex),target,dimension(:) :: myResult ! - hipblasCswap_64_rank_1 = hipblasCswap_64_(handle,n,c_loc(x),incx,c_loc(y),incy) + hipblasCdotuStridedBatched_64_rank_1 = hipblasCdotuStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount,c_loc(myResult)) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZswap_64_assumed_rank(handle,n,x,incx,y,incy) - use iso_c_binding + function hipblasCdotuStridedBatched_64_rank_1_devptr(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZswap_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotuStridedBatched_64_rank_1_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n - complex(c_double_complex),target,dimension(..) :: x + complex(c_float_complex),target,dimension(:) :: x integer(c_int64_t) :: incx - complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + type(c_ptr),value :: myResult ! - hipblasZswap_64_assumed_rank = hipblasZswap_64_(handle,n,c_loc(x),incx,c_loc(y),incy) + hipblasCdotuStridedBatched_64_rank_1_devptr = hipblasCdotuStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) end function -#else - function hipblasZswap_64_rank_0(handle,n,x,incx,y,incy) - use iso_c_binding + function hipblasCdotuStridedBatched_64_strided_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZswap_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotuStridedBatched_64_strided_rank type(c_ptr), value :: handle integer(c_int64_t) :: n - complex(c_double_complex),target :: x + complex(c_float_complex),target,dimension(:,:) :: x integer(c_int64_t) :: incx - complex(c_double_complex),target :: y + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:) :: y integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + complex(c_float_complex),target,dimension(:) :: myResult ! - hipblasZswap_64_rank_0 = hipblasZswap_64_(handle,n,c_loc(x),incx,c_loc(y),incy) + hipblasCdotuStridedBatched_64_strided_rank = hipblasCdotuStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount,c_loc(myResult)) end function - function hipblasZswap_64_rank_1(handle,n,x,incx,y,incy) - use iso_c_binding + function hipblasCdotuStridedBatched_64_strided_rank_devptr(handle,n,x,incx,stridex,y,incy, & + stridey,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZswap_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotuStridedBatched_64_strided_rank_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n - complex(c_double_complex),target,dimension(:) :: x + complex(c_float_complex),target,dimension(:,:) :: x integer(c_int64_t) :: incx - complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:) :: y integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + type(c_ptr),value :: myResult ! - hipblasZswap_64_rank_1 = hipblasZswap_64_(handle,n,c_loc(x),incx,c_loc(y),incy) + hipblasCdotuStridedBatched_64_strided_rank_devptr = hipblasCdotuStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasSswapStridedBatched_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & - batchCount) - use iso_c_binding + function hipblasZdotcStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSswapStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotcStridedBatched_64_assumed_rank type(c_ptr), value :: handle - integer(c_int) :: n - real(c_float),target,dimension(..) :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - real(c_float),target,dimension(..) :: y - integer(c_int) :: incy + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy integer(c_int64_t) :: stridey - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount + complex(c_double_complex),target,dimension(..) :: myResult ! - hipblasSswapStridedBatched_assumed_rank = hipblasSswapStridedBatched_(handle,n,c_loc(x), & - incx,stridex,c_loc(y),incy,stridey,batchCount) + hipblasZdotcStridedBatched_64_assumed_rank = hipblasZdotcStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount,c_loc(myResult)) end function -#else - function hipblasSswapStridedBatched_rank_0(handle,n,x,incx,stridex,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasZdotcStridedBatched_64_assumed_rank_devptr(handle,n,x,incx,stridex,y,incy, & + stridey,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSswapStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotcStridedBatched_64_assumed_rank_devptr type(c_ptr), value :: handle - integer(c_int) :: n - real(c_float),target :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - real(c_float),target :: y - integer(c_int) :: incy + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy integer(c_int64_t) :: stridey - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount + type(c_ptr),value :: myResult ! - hipblasSswapStridedBatched_rank_0 = hipblasSswapStridedBatched_(handle,n,c_loc(x),incx, & - stridex,c_loc(y),incy,stridey,batchCount) + hipblasZdotcStridedBatched_64_assumed_rank_devptr = hipblasZdotcStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) end function - function hipblasSswapStridedBatched_rank_1(handle,n,x,incx,stridex,y,incy,stridey,batchCount) - use iso_c_binding +#else + function hipblasZdotcStridedBatched_64_rank_0(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSswapStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotcStridedBatched_64_rank_0 type(c_ptr), value :: handle - integer(c_int) :: n - real(c_float),target,dimension(:) :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - real(c_float),target,dimension(:) :: y - integer(c_int) :: incy + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy integer(c_int64_t) :: stridey - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount + complex(c_double_complex),target :: myResult ! - hipblasSswapStridedBatched_rank_1 = hipblasSswapStridedBatched_(handle,n,c_loc(x),incx, & - stridex,c_loc(y),incy,stridey,batchCount) + hipblasZdotcStridedBatched_64_rank_0 = hipblasZdotcStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount,c_loc(myResult)) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDswapStridedBatched_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & - batchCount) - use iso_c_binding + function hipblasZdotcStridedBatched_64_rank_0_devptr(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDswapStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotcStridedBatched_64_rank_0_devptr type(c_ptr), value :: handle - integer(c_int) :: n - real(c_double),target,dimension(..) :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - real(c_double),target,dimension(..) :: y - integer(c_int) :: incy + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy integer(c_int64_t) :: stridey - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount + type(c_ptr),value :: myResult ! - hipblasDswapStridedBatched_assumed_rank = hipblasDswapStridedBatched_(handle,n,c_loc(x), & - incx,stridex,c_loc(y),incy,stridey,batchCount) + hipblasZdotcStridedBatched_64_rank_0_devptr = hipblasZdotcStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) end function -#else - function hipblasDswapStridedBatched_rank_0(handle,n,x,incx,stridex,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasZdotcStridedBatched_64_rank_1(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDswapStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotcStridedBatched_64_rank_1 type(c_ptr), value :: handle - integer(c_int) :: n - real(c_double),target :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - real(c_double),target :: y - integer(c_int) :: incy + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy integer(c_int64_t) :: stridey - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount + complex(c_double_complex),target,dimension(:) :: myResult ! - hipblasDswapStridedBatched_rank_0 = hipblasDswapStridedBatched_(handle,n,c_loc(x),incx, & - stridex,c_loc(y),incy,stridey,batchCount) + hipblasZdotcStridedBatched_64_rank_1 = hipblasZdotcStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount,c_loc(myResult)) end function - function hipblasDswapStridedBatched_rank_1(handle,n,x,incx,stridex,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasZdotcStridedBatched_64_rank_1_devptr(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDswapStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotcStridedBatched_64_rank_1_devptr type(c_ptr), value :: handle - integer(c_int) :: n - real(c_double),target,dimension(:) :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - real(c_double),target,dimension(:) :: y - integer(c_int) :: incy + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy integer(c_int64_t) :: stridey - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount + type(c_ptr),value :: myResult ! - hipblasDswapStridedBatched_rank_1 = hipblasDswapStridedBatched_(handle,n,c_loc(x),incx, & - stridex,c_loc(y),incy,stridey,batchCount) + hipblasZdotcStridedBatched_64_rank_1_devptr = hipblasZdotcStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCswapStridedBatched_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & - batchCount) - use iso_c_binding + function hipblasZdotcStridedBatched_64_strided_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCswapStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotcStridedBatched_64_strided_rank type(c_ptr), value :: handle - integer(c_int) :: n - complex(c_float_complex),target,dimension(..) :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - complex(c_float_complex),target,dimension(..) :: y - integer(c_int) :: incy + complex(c_double_complex),target,dimension(:,:) :: y + integer(c_int64_t) :: incy integer(c_int64_t) :: stridey - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount + complex(c_double_complex),target,dimension(:) :: myResult ! - hipblasCswapStridedBatched_assumed_rank = hipblasCswapStridedBatched_(handle,n,c_loc(x), & - incx,stridex,c_loc(y),incy,stridey,batchCount) + hipblasZdotcStridedBatched_64_strided_rank = hipblasZdotcStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount,c_loc(myResult)) end function -#else - function hipblasCswapStridedBatched_rank_0(handle,n,x,incx,stridex,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasZdotcStridedBatched_64_strided_rank_devptr(handle,n,x,incx,stridex,y,incy, & + stridey,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCswapStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotcStridedBatched_64_strided_rank_devptr type(c_ptr), value :: handle - integer(c_int) :: n - complex(c_float_complex),target :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - complex(c_float_complex),target :: y - integer(c_int) :: incy + complex(c_double_complex),target,dimension(:,:) :: y + integer(c_int64_t) :: incy integer(c_int64_t) :: stridey - integer(c_int) :: batchCount - ! - hipblasCswapStridedBatched_rank_0 = hipblasCswapStridedBatched_(handle,n,c_loc(x),incx, & - stridex,c_loc(y),incy,stridey,batchCount) - end function - - function hipblasCswapStridedBatched_rank_1(handle,n,x,incx,stridex,y,incy,stridey,batchCount) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCswapStridedBatched_rank_1 - type(c_ptr), value :: handle - integer(c_int) :: n - complex(c_float_complex),target,dimension(:) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - complex(c_float_complex),target,dimension(:) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount - ! - hipblasCswapStridedBatched_rank_1 = hipblasCswapStridedBatched_(handle,n,c_loc(x),incx, & - stridex,c_loc(y),incy,stridey,batchCount) - end function - -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZswapStridedBatched_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & - batchCount) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZswapStridedBatched_assumed_rank - type(c_ptr), value :: handle - integer(c_int) :: n - complex(c_double_complex),target,dimension(..) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - complex(c_double_complex),target,dimension(..) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount - ! - hipblasZswapStridedBatched_assumed_rank = hipblasZswapStridedBatched_(handle,n,c_loc(x), & - incx,stridex,c_loc(y),incy,stridey,batchCount) - end function - -#else - function hipblasZswapStridedBatched_rank_0(handle,n,x,incx,stridex,y,incy,stridey,batchCount) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZswapStridedBatched_rank_0 - type(c_ptr), value :: handle - integer(c_int) :: n - complex(c_double_complex),target :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - complex(c_double_complex),target :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount - ! - hipblasZswapStridedBatched_rank_0 = hipblasZswapStridedBatched_(handle,n,c_loc(x),incx, & - stridex,c_loc(y),incy,stridey,batchCount) - end function - - function hipblasZswapStridedBatched_rank_1(handle,n,x,incx,stridex,y,incy,stridey,batchCount) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZswapStridedBatched_rank_1 - type(c_ptr), value :: handle - integer(c_int) :: n - complex(c_double_complex),target,dimension(:) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - complex(c_double_complex),target,dimension(:) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount + type(c_ptr),value :: myResult ! - hipblasZswapStridedBatched_rank_1 = hipblasZswapStridedBatched_(handle,n,c_loc(x),incx, & - stridex,c_loc(y),incy,stridey,batchCount) + hipblasZdotcStridedBatched_64_strided_rank_devptr = hipblasZdotcStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasSswapStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & - batchCount) - use iso_c_binding + function hipblasZdotuStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSswapStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotuStridedBatched_64_assumed_rank type(c_ptr), value :: handle integer(c_int64_t) :: n - real(c_float),target,dimension(..) :: x + complex(c_double_complex),target,dimension(..) :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - real(c_float),target,dimension(..) :: y + complex(c_double_complex),target,dimension(..) :: y integer(c_int64_t) :: incy integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount + complex(c_double_complex),target,dimension(..) :: myResult ! - hipblasSswapStridedBatched_64_assumed_rank = hipblasSswapStridedBatched_64_(handle,n, & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + hipblasZdotuStridedBatched_64_assumed_rank = hipblasZdotuStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount,c_loc(myResult)) end function -#else - function hipblasSswapStridedBatched_64_rank_0(handle,n,x,incx,stridex,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasZdotuStridedBatched_64_assumed_rank_devptr(handle,n,x,incx,stridex,y,incy, & + stridey,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSswapStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotuStridedBatched_64_assumed_rank_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n - real(c_float),target :: x + complex(c_double_complex),target,dimension(..) :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - real(c_float),target :: y + complex(c_double_complex),target,dimension(..) :: y integer(c_int64_t) :: incy integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount + type(c_ptr),value :: myResult ! - hipblasSswapStridedBatched_64_rank_0 = hipblasSswapStridedBatched_64_(handle,n,c_loc(x), & - incx,stridex,c_loc(y),incy,stridey,batchCount) + hipblasZdotuStridedBatched_64_assumed_rank_devptr = hipblasZdotuStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) end function - function hipblasSswapStridedBatched_64_rank_1(handle,n,x,incx,stridex,y,incy,stridey,batchCount) - use iso_c_binding +#else + function hipblasZdotuStridedBatched_64_rank_0(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSswapStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotuStridedBatched_64_rank_0 type(c_ptr), value :: handle integer(c_int64_t) :: n - real(c_float),target,dimension(:) :: x + complex(c_double_complex),target :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - real(c_float),target,dimension(:) :: y + complex(c_double_complex),target :: y integer(c_int64_t) :: incy integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount + complex(c_double_complex),target :: myResult ! - hipblasSswapStridedBatched_64_rank_1 = hipblasSswapStridedBatched_64_(handle,n,c_loc(x), & - incx,stridex,c_loc(y),incy,stridey,batchCount) + hipblasZdotuStridedBatched_64_rank_0 = hipblasZdotuStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount,c_loc(myResult)) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDswapStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & - batchCount) - use iso_c_binding + function hipblasZdotuStridedBatched_64_rank_0_devptr(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDswapStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotuStridedBatched_64_rank_0_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n - real(c_double),target,dimension(..) :: x + complex(c_double_complex),target :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - real(c_double),target,dimension(..) :: y + complex(c_double_complex),target :: y integer(c_int64_t) :: incy integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount + type(c_ptr),value :: myResult ! - hipblasDswapStridedBatched_64_assumed_rank = hipblasDswapStridedBatched_64_(handle,n, & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + hipblasZdotuStridedBatched_64_rank_0_devptr = hipblasZdotuStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) end function -#else - function hipblasDswapStridedBatched_64_rank_0(handle,n,x,incx,stridex,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasZdotuStridedBatched_64_rank_1(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDswapStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotuStridedBatched_64_rank_1 type(c_ptr), value :: handle integer(c_int64_t) :: n - real(c_double),target :: x + complex(c_double_complex),target,dimension(:) :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - real(c_double),target :: y + complex(c_double_complex),target,dimension(:) :: y integer(c_int64_t) :: incy integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount + complex(c_double_complex),target,dimension(:) :: myResult ! - hipblasDswapStridedBatched_64_rank_0 = hipblasDswapStridedBatched_64_(handle,n,c_loc(x), & - incx,stridex,c_loc(y),incy,stridey,batchCount) + hipblasZdotuStridedBatched_64_rank_1 = hipblasZdotuStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount,c_loc(myResult)) end function - function hipblasDswapStridedBatched_64_rank_1(handle,n,x,incx,stridex,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasZdotuStridedBatched_64_rank_1_devptr(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDswapStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotuStridedBatched_64_rank_1_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n - real(c_double),target,dimension(:) :: x + complex(c_double_complex),target,dimension(:) :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - real(c_double),target,dimension(:) :: y + complex(c_double_complex),target,dimension(:) :: y integer(c_int64_t) :: incy integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount + type(c_ptr),value :: myResult ! - hipblasDswapStridedBatched_64_rank_1 = hipblasDswapStridedBatched_64_(handle,n,c_loc(x), & - incx,stridex,c_loc(y),incy,stridey,batchCount) + hipblasZdotuStridedBatched_64_rank_1_devptr = hipblasZdotuStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCswapStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & - batchCount) - use iso_c_binding + function hipblasZdotuStridedBatched_64_strided_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCswapStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotuStridedBatched_64_strided_rank type(c_ptr), value :: handle integer(c_int64_t) :: n - complex(c_float_complex),target,dimension(..) :: x + complex(c_double_complex),target,dimension(:,:) :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - complex(c_float_complex),target,dimension(..) :: y + complex(c_double_complex),target,dimension(:,:) :: y integer(c_int64_t) :: incy integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount + complex(c_double_complex),target,dimension(:) :: myResult ! - hipblasCswapStridedBatched_64_assumed_rank = hipblasCswapStridedBatched_64_(handle,n, & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + hipblasZdotuStridedBatched_64_strided_rank = hipblasZdotuStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount,c_loc(myResult)) end function -#else - function hipblasCswapStridedBatched_64_rank_0(handle,n,x,incx,stridex,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasZdotuStridedBatched_64_strided_rank_devptr(handle,n,x,incx,stridex,y,incy, & + stridey,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCswapStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotuStridedBatched_64_strided_rank_devptr type(c_ptr), value :: handle integer(c_int64_t) :: n - complex(c_float_complex),target :: x + complex(c_double_complex),target,dimension(:,:) :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - complex(c_float_complex),target :: y + complex(c_double_complex),target,dimension(:,:) :: y integer(c_int64_t) :: incy integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount + type(c_ptr),value :: myResult ! - hipblasCswapStridedBatched_64_rank_0 = hipblasCswapStridedBatched_64_(handle,n,c_loc(x), & - incx,stridex,c_loc(y),incy,stridey,batchCount) + hipblasZdotuStridedBatched_64_strided_rank_devptr = hipblasZdotuStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount,myResult) end function - function hipblasCswapStridedBatched_64_rank_1(handle,n,x,incx,stridex,y,incy,stridey,batchCount) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSnrm2_assumed_rank(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCswapStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2_assumed_rank type(c_ptr), value :: handle - integer(c_int64_t) :: n - complex(c_float_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - complex(c_float_complex),target,dimension(:) :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount + integer(c_int) :: n + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + real(c_float),target :: myResult ! - hipblasCswapStridedBatched_64_rank_1 = hipblasCswapStridedBatched_64_(handle,n,c_loc(x), & - incx,stridex,c_loc(y),incy,stridey,batchCount) + hipblasSnrm2_assumed_rank = hipblasSnrm2_(handle,n,c_loc(x),incx,c_loc(myResult)) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZswapStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & - batchCount) - use iso_c_binding + function hipblasSnrm2_assumed_rank_devptr(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZswapStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2_assumed_rank_devptr type(c_ptr), value :: handle - integer(c_int64_t) :: n - complex(c_double_complex),target,dimension(..) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - complex(c_double_complex),target,dimension(..) :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount + integer(c_int) :: n + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult ! - hipblasZswapStridedBatched_64_assumed_rank = hipblasZswapStridedBatched_64_(handle,n, & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) + hipblasSnrm2_assumed_rank_devptr = hipblasSnrm2_(handle,n,c_loc(x),incx,myResult) end function #else - function hipblasZswapStridedBatched_64_rank_0(handle,n,x,incx,stridex,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasSnrm2_rank_0(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZswapStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2_rank_0 type(c_ptr), value :: handle - integer(c_int64_t) :: n - complex(c_double_complex),target :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - complex(c_double_complex),target :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount + integer(c_int) :: n + real(c_float),target :: x + integer(c_int) :: incx + real(c_float),target :: myResult ! - hipblasZswapStridedBatched_64_rank_0 = hipblasZswapStridedBatched_64_(handle,n,c_loc(x), & - incx,stridex,c_loc(y),incy,stridey,batchCount) + hipblasSnrm2_rank_0 = hipblasSnrm2_(handle,n,c_loc(x),incx,c_loc(myResult)) end function - function hipblasZswapStridedBatched_64_rank_1(handle,n,x,incx,stridex,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasSnrm2_rank_0_devptr(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZswapStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2_rank_0_devptr type(c_ptr), value :: handle - integer(c_int64_t) :: n - complex(c_double_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - complex(c_double_complex),target,dimension(:) :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount + integer(c_int) :: n + real(c_float),target :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult ! - hipblasZswapStridedBatched_64_rank_1 = hipblasZswapStridedBatched_64_(handle,n,c_loc(x), & - incx,stridex,c_loc(y),incy,stridey,batchCount) + hipblasSnrm2_rank_0_devptr = hipblasSnrm2_(handle,n,c_loc(x),incx,myResult) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasSgbmv_assumed_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasSnrm2_rank_1(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmv_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: kl - integer(c_int) :: ku - real(c_float),target :: alpha - real(c_float),target,dimension(..) :: AP - integer(c_int) :: lda - real(c_float),target,dimension(..) :: x + real(c_float),target,dimension(:) :: x integer(c_int) :: incx - real(c_float),target :: beta - real(c_float),target,dimension(..) :: y - integer(c_int) :: incy + real(c_float),target :: myResult ! - hipblasSgbmv_assumed_rank = hipblasSgbmv_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasSnrm2_rank_1 = hipblasSnrm2_(handle,n,c_loc(x),incx,c_loc(myResult)) end function -#else - function hipblasSgbmv_rank_0(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasSnrm2_rank_1_devptr(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmv_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: kl - integer(c_int) :: ku - real(c_float),target :: alpha - real(c_float),target :: AP - integer(c_int) :: lda - real(c_float),target :: x + real(c_float),target,dimension(:) :: x integer(c_int) :: incx - real(c_float),target :: beta - real(c_float),target :: y - integer(c_int) :: incy + type(c_ptr),value :: myResult ! - hipblasSgbmv_rank_0 = hipblasSgbmv_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasSnrm2_rank_1_devptr = hipblasSnrm2_(handle,n,c_loc(x),incx,myResult) end function - function hipblasSgbmv_rank_1(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDnrm2_assumed_rank(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmv_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: kl - integer(c_int) :: ku - real(c_float),target :: alpha - real(c_float),target,dimension(:) :: AP - integer(c_int) :: lda - real(c_float),target,dimension(:) :: x + real(c_double),target,dimension(..) :: x integer(c_int) :: incx - real(c_float),target :: beta - real(c_float),target,dimension(:) :: y - integer(c_int) :: incy + real(c_double),target :: myResult ! - hipblasSgbmv_rank_1 = hipblasSgbmv_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasDnrm2_assumed_rank = hipblasDnrm2_(handle,n,c_loc(x),incx,c_loc(myResult)) end function - function hipblasSgbmv_full_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasDnrm2_assumed_rank_devptr(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmv_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2_assumed_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: kl - integer(c_int) :: ku - real(c_float),target :: alpha - real(c_float),target,dimension(:,:) :: AP - integer(c_int) :: lda - real(c_float),target,dimension(:) :: x + real(c_double),target,dimension(..) :: x integer(c_int) :: incx - real(c_float),target :: beta - real(c_float),target,dimension(:) :: y - integer(c_int) :: incy + type(c_ptr),value :: myResult ! - hipblasSgbmv_full_rank = hipblasSgbmv_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasDnrm2_assumed_rank_devptr = hipblasDnrm2_(handle,n,c_loc(x),incx,myResult) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDgbmv_assumed_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding +#else + function hipblasDnrm2_rank_0(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmv_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: kl - integer(c_int) :: ku - real(c_double),target :: alpha - real(c_double),target,dimension(..) :: AP - integer(c_int) :: lda - real(c_double),target,dimension(..) :: x + real(c_double),target :: x integer(c_int) :: incx - real(c_double),target :: beta - real(c_double),target,dimension(..) :: y - integer(c_int) :: incy + real(c_double),target :: myResult ! - hipblasDgbmv_assumed_rank = hipblasDgbmv_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasDnrm2_rank_0 = hipblasDnrm2_(handle,n,c_loc(x),incx,c_loc(myResult)) end function -#else - function hipblasDgbmv_rank_0(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasDnrm2_rank_0_devptr(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmv_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: kl - integer(c_int) :: ku - real(c_double),target :: alpha - real(c_double),target :: AP - integer(c_int) :: lda real(c_double),target :: x integer(c_int) :: incx - real(c_double),target :: beta - real(c_double),target :: y - integer(c_int) :: incy + type(c_ptr),value :: myResult ! - hipblasDgbmv_rank_0 = hipblasDgbmv_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasDnrm2_rank_0_devptr = hipblasDnrm2_(handle,n,c_loc(x),incx,myResult) end function - function hipblasDgbmv_rank_1(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasDnrm2_rank_1(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmv_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: kl - integer(c_int) :: ku - real(c_double),target :: alpha - real(c_double),target,dimension(:) :: AP - integer(c_int) :: lda real(c_double),target,dimension(:) :: x integer(c_int) :: incx - real(c_double),target :: beta - real(c_double),target,dimension(:) :: y - integer(c_int) :: incy + real(c_double),target :: myResult ! - hipblasDgbmv_rank_1 = hipblasDgbmv_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasDnrm2_rank_1 = hipblasDnrm2_(handle,n,c_loc(x),incx,c_loc(myResult)) end function - function hipblasDgbmv_full_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasDnrm2_rank_1_devptr(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmv_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: kl - integer(c_int) :: ku - real(c_double),target :: alpha - real(c_double),target,dimension(:,:) :: AP - integer(c_int) :: lda real(c_double),target,dimension(:) :: x integer(c_int) :: incx - real(c_double),target :: beta - real(c_double),target,dimension(:) :: y - integer(c_int) :: incy + type(c_ptr),value :: myResult ! - hipblasDgbmv_full_rank = hipblasDgbmv_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasDnrm2_rank_1_devptr = hipblasDnrm2_(handle,n,c_loc(x),incx,myResult) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCgbmv_assumed_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasScnrm2_assumed_rank(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmv_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: kl - integer(c_int) :: ku - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: AP - integer(c_int) :: lda complex(c_float_complex),target,dimension(..) :: x integer(c_int) :: incx - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(..) :: y - integer(c_int) :: incy + real(c_float),target :: myResult ! - hipblasCgbmv_assumed_rank = hipblasCgbmv_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasScnrm2_assumed_rank = hipblasScnrm2_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasScnrm2_assumed_rank_devptr(handle,n,x,incx,myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + hipblasScnrm2_assumed_rank_devptr = hipblasScnrm2_(handle,n,c_loc(x),incx,myResult) end function #else - function hipblasCgbmv_rank_0(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasScnrm2_rank_0(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmv_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: kl - integer(c_int) :: ku - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: AP - integer(c_int) :: lda complex(c_float_complex),target :: x integer(c_int) :: incx - complex(c_float_complex),target :: beta - complex(c_float_complex),target :: y - integer(c_int) :: incy + real(c_float),target :: myResult ! - hipblasCgbmv_rank_0 = hipblasCgbmv_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasScnrm2_rank_0 = hipblasScnrm2_(handle,n,c_loc(x),incx,c_loc(myResult)) end function - function hipblasCgbmv_rank_1(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasScnrm2_rank_0_devptr(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmv_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: kl - integer(c_int) :: ku - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: AP - integer(c_int) :: lda - complex(c_float_complex),target,dimension(:) :: x + complex(c_float_complex),target :: x integer(c_int) :: incx - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:) :: y - integer(c_int) :: incy + type(c_ptr),value :: myResult ! - hipblasCgbmv_rank_1 = hipblasCgbmv_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasScnrm2_rank_0_devptr = hipblasScnrm2_(handle,n,c_loc(x),incx,myResult) end function - function hipblasCgbmv_full_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasScnrm2_rank_1(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmv_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: kl - integer(c_int) :: ku - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:,:) :: AP - integer(c_int) :: lda complex(c_float_complex),target,dimension(:) :: x integer(c_int) :: incx - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:) :: y - integer(c_int) :: incy + real(c_float),target :: myResult ! - hipblasCgbmv_full_rank = hipblasCgbmv_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasScnrm2_rank_1 = hipblasScnrm2_(handle,n,c_loc(x),incx,c_loc(myResult)) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZgbmv_assumed_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasScnrm2_rank_1_devptr(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmv_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + hipblasScnrm2_rank_1_devptr = hipblasScnrm2_(handle,n,c_loc(x),incx,myResult) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDznrm2_assumed_rank(handle,n,x,incx,myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: kl - integer(c_int) :: ku - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: AP - integer(c_int) :: lda complex(c_double_complex),target,dimension(..) :: x integer(c_int) :: incx - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(..) :: y - integer(c_int) :: incy + real(c_double),target :: myResult ! - hipblasZgbmv_assumed_rank = hipblasZgbmv_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasDznrm2_assumed_rank = hipblasDznrm2_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasDznrm2_assumed_rank_devptr(handle,n,x,incx,myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + hipblasDznrm2_assumed_rank_devptr = hipblasDznrm2_(handle,n,c_loc(x),incx,myResult) end function #else - function hipblasZgbmv_rank_0(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasDznrm2_rank_0(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmv_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: kl - integer(c_int) :: ku - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: AP - integer(c_int) :: lda complex(c_double_complex),target :: x integer(c_int) :: incx - complex(c_double_complex),target :: beta - complex(c_double_complex),target :: y - integer(c_int) :: incy + real(c_double),target :: myResult ! - hipblasZgbmv_rank_0 = hipblasZgbmv_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasDznrm2_rank_0 = hipblasDznrm2_(handle,n,c_loc(x),incx,c_loc(myResult)) end function - function hipblasZgbmv_rank_1(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasDznrm2_rank_0_devptr(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmv_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + hipblasDznrm2_rank_0_devptr = hipblasDznrm2_(handle,n,c_loc(x),incx,myResult) + end function + + function hipblasDznrm2_rank_1(handle,n,x,incx,myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: kl - integer(c_int) :: ku - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: AP - integer(c_int) :: lda complex(c_double_complex),target,dimension(:) :: x integer(c_int) :: incx - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:) :: y - integer(c_int) :: incy + real(c_double),target :: myResult ! - hipblasZgbmv_rank_1 = hipblasZgbmv_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasDznrm2_rank_1 = hipblasDznrm2_(handle,n,c_loc(x),incx,c_loc(myResult)) end function - function hipblasZgbmv_full_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasDznrm2_rank_1_devptr(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmv_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: kl - integer(c_int) :: ku - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:,:) :: AP - integer(c_int) :: lda complex(c_double_complex),target,dimension(:) :: x integer(c_int) :: incx - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:) :: y - integer(c_int) :: incy + type(c_ptr),value :: myResult ! - hipblasZgbmv_full_rank = hipblasZgbmv_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasDznrm2_rank_1_devptr = hipblasDznrm2_(handle,n,c_loc(x),incx,myResult) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasSgbmv_64_assumed_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasSnrm2_64_assumed_rank(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmv_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2_64_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: kl - integer(c_int64_t) :: ku - real(c_float),target :: alpha - real(c_float),target,dimension(..) :: AP - integer(c_int64_t) :: lda real(c_float),target,dimension(..) :: x integer(c_int64_t) :: incx - real(c_float),target :: beta - real(c_float),target,dimension(..) :: y - integer(c_int64_t) :: incy + real(c_float),target :: myResult ! - hipblasSgbmv_64_assumed_rank = hipblasSgbmv_64_(handle,trans,m,n,kl,ku,c_loc(alpha), & - c_loc(AP),lda,c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasSnrm2_64_assumed_rank = hipblasSnrm2_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasSnrm2_64_assumed_rank_devptr(handle,n,x,incx,myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: myResult + ! + hipblasSnrm2_64_assumed_rank_devptr = hipblasSnrm2_64_(handle,n,c_loc(x),incx,myResult) end function #else - function hipblasSgbmv_64_rank_0(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasSnrm2_64_rank_0(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmv_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2_64_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: kl - integer(c_int64_t) :: ku - real(c_float),target :: alpha - real(c_float),target :: AP - integer(c_int64_t) :: lda real(c_float),target :: x integer(c_int64_t) :: incx - real(c_float),target :: beta - real(c_float),target :: y - integer(c_int64_t) :: incy + real(c_float),target :: myResult ! - hipblasSgbmv_64_rank_0 = hipblasSgbmv_64_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasSnrm2_64_rank_0 = hipblasSnrm2_64_(handle,n,c_loc(x),incx,c_loc(myResult)) end function - function hipblasSgbmv_64_rank_1(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasSnrm2_64_rank_0_devptr(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmv_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2_64_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: myResult + ! + hipblasSnrm2_64_rank_0_devptr = hipblasSnrm2_64_(handle,n,c_loc(x),incx,myResult) + end function + + function hipblasSnrm2_64_rank_1(handle,n,x,incx,myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2_64_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: kl - integer(c_int64_t) :: ku - real(c_float),target :: alpha - real(c_float),target,dimension(:) :: AP - integer(c_int64_t) :: lda real(c_float),target,dimension(:) :: x integer(c_int64_t) :: incx - real(c_float),target :: beta - real(c_float),target,dimension(:) :: y - integer(c_int64_t) :: incy + real(c_float),target :: myResult ! - hipblasSgbmv_64_rank_1 = hipblasSgbmv_64_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasSnrm2_64_rank_1 = hipblasSnrm2_64_(handle,n,c_loc(x),incx,c_loc(myResult)) end function - function hipblasSgbmv_64_full_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasSnrm2_64_rank_1_devptr(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmv_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2_64_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: kl - integer(c_int64_t) :: ku - real(c_float),target :: alpha - real(c_float),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda real(c_float),target,dimension(:) :: x integer(c_int64_t) :: incx - real(c_float),target :: beta - real(c_float),target,dimension(:) :: y - integer(c_int64_t) :: incy + type(c_ptr),value :: myResult ! - hipblasSgbmv_64_full_rank = hipblasSgbmv_64_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP), & - lda,c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasSnrm2_64_rank_1_devptr = hipblasSnrm2_64_(handle,n,c_loc(x),incx,myResult) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasDgbmv_64_assumed_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasDnrm2_64_assumed_rank(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmv_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2_64_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: kl - integer(c_int64_t) :: ku - real(c_double),target :: alpha - real(c_double),target,dimension(..) :: AP - integer(c_int64_t) :: lda real(c_double),target,dimension(..) :: x integer(c_int64_t) :: incx - real(c_double),target :: beta - real(c_double),target,dimension(..) :: y - integer(c_int64_t) :: incy + real(c_double),target :: myResult ! - hipblasDgbmv_64_assumed_rank = hipblasDgbmv_64_(handle,trans,m,n,kl,ku,c_loc(alpha), & - c_loc(AP),lda,c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasDnrm2_64_assumed_rank = hipblasDnrm2_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasDnrm2_64_assumed_rank_devptr(handle,n,x,incx,myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: myResult + ! + hipblasDnrm2_64_assumed_rank_devptr = hipblasDnrm2_64_(handle,n,c_loc(x),incx,myResult) end function #else - function hipblasDgbmv_64_rank_0(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasDnrm2_64_rank_0(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmv_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2_64_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: kl - integer(c_int64_t) :: ku - real(c_double),target :: alpha - real(c_double),target :: AP - integer(c_int64_t) :: lda real(c_double),target :: x integer(c_int64_t) :: incx - real(c_double),target :: beta - real(c_double),target :: y - integer(c_int64_t) :: incy + real(c_double),target :: myResult ! - hipblasDgbmv_64_rank_0 = hipblasDgbmv_64_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasDnrm2_64_rank_0 = hipblasDnrm2_64_(handle,n,c_loc(x),incx,c_loc(myResult)) end function - function hipblasDgbmv_64_rank_1(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasDnrm2_64_rank_0_devptr(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmv_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2_64_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: myResult + ! + hipblasDnrm2_64_rank_0_devptr = hipblasDnrm2_64_(handle,n,c_loc(x),incx,myResult) + end function + + function hipblasDnrm2_64_rank_1(handle,n,x,incx,myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2_64_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: kl - integer(c_int64_t) :: ku - real(c_double),target :: alpha - real(c_double),target,dimension(:) :: AP - integer(c_int64_t) :: lda real(c_double),target,dimension(:) :: x integer(c_int64_t) :: incx - real(c_double),target :: beta - real(c_double),target,dimension(:) :: y - integer(c_int64_t) :: incy + real(c_double),target :: myResult ! - hipblasDgbmv_64_rank_1 = hipblasDgbmv_64_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasDnrm2_64_rank_1 = hipblasDnrm2_64_(handle,n,c_loc(x),incx,c_loc(myResult)) end function - function hipblasDgbmv_64_full_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasDnrm2_64_rank_1_devptr(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmv_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2_64_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: kl - integer(c_int64_t) :: ku - real(c_double),target :: alpha - real(c_double),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda real(c_double),target,dimension(:) :: x integer(c_int64_t) :: incx - real(c_double),target :: beta - real(c_double),target,dimension(:) :: y - integer(c_int64_t) :: incy + type(c_ptr),value :: myResult ! - hipblasDgbmv_64_full_rank = hipblasDgbmv_64_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP), & - lda,c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasDnrm2_64_rank_1_devptr = hipblasDnrm2_64_(handle,n,c_loc(x),incx,myResult) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCgbmv_64_assumed_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasScnrm2_64_assumed_rank(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmv_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2_64_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: kl - integer(c_int64_t) :: ku - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: AP - integer(c_int64_t) :: lda complex(c_float_complex),target,dimension(..) :: x integer(c_int64_t) :: incx - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(..) :: y - integer(c_int64_t) :: incy + real(c_float),target :: myResult ! - hipblasCgbmv_64_assumed_rank = hipblasCgbmv_64_(handle,trans,m,n,kl,ku,c_loc(alpha), & - c_loc(AP),lda,c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasScnrm2_64_assumed_rank = hipblasScnrm2_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasScnrm2_64_assumed_rank_devptr(handle,n,x,incx,myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: myResult + ! + hipblasScnrm2_64_assumed_rank_devptr = hipblasScnrm2_64_(handle,n,c_loc(x),incx,myResult) end function #else - function hipblasCgbmv_64_rank_0(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasScnrm2_64_rank_0(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmv_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2_64_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: kl - integer(c_int64_t) :: ku - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: AP - integer(c_int64_t) :: lda complex(c_float_complex),target :: x integer(c_int64_t) :: incx - complex(c_float_complex),target :: beta - complex(c_float_complex),target :: y - integer(c_int64_t) :: incy + real(c_float),target :: myResult ! - hipblasCgbmv_64_rank_0 = hipblasCgbmv_64_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasScnrm2_64_rank_0 = hipblasScnrm2_64_(handle,n,c_loc(x),incx,c_loc(myResult)) end function - function hipblasCgbmv_64_rank_1(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasScnrm2_64_rank_0_devptr(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmv_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2_64_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: myResult + ! + hipblasScnrm2_64_rank_0_devptr = hipblasScnrm2_64_(handle,n,c_loc(x),incx,myResult) + end function + + function hipblasScnrm2_64_rank_1(handle,n,x,incx,myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2_64_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: kl - integer(c_int64_t) :: ku - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: AP - integer(c_int64_t) :: lda complex(c_float_complex),target,dimension(:) :: x integer(c_int64_t) :: incx - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:) :: y - integer(c_int64_t) :: incy + real(c_float),target :: myResult ! - hipblasCgbmv_64_rank_1 = hipblasCgbmv_64_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasScnrm2_64_rank_1 = hipblasScnrm2_64_(handle,n,c_loc(x),incx,c_loc(myResult)) end function - function hipblasCgbmv_64_full_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasScnrm2_64_rank_1_devptr(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmv_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2_64_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: kl - integer(c_int64_t) :: ku - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda complex(c_float_complex),target,dimension(:) :: x integer(c_int64_t) :: incx - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:) :: y - integer(c_int64_t) :: incy + type(c_ptr),value :: myResult ! - hipblasCgbmv_64_full_rank = hipblasCgbmv_64_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP), & - lda,c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasScnrm2_64_rank_1_devptr = hipblasScnrm2_64_(handle,n,c_loc(x),incx,myResult) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasZgbmv_64_assumed_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasDznrm2_64_assumed_rank(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmv_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2_64_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: kl - integer(c_int64_t) :: ku - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: AP - integer(c_int64_t) :: lda complex(c_double_complex),target,dimension(..) :: x integer(c_int64_t) :: incx - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(..) :: y - integer(c_int64_t) :: incy + real(c_double),target :: myResult ! - hipblasZgbmv_64_assumed_rank = hipblasZgbmv_64_(handle,trans,m,n,kl,ku,c_loc(alpha), & - c_loc(AP),lda,c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasDznrm2_64_assumed_rank = hipblasDznrm2_64_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasDznrm2_64_assumed_rank_devptr(handle,n,x,incx,myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: myResult + ! + hipblasDznrm2_64_assumed_rank_devptr = hipblasDznrm2_64_(handle,n,c_loc(x),incx,myResult) end function #else - function hipblasZgbmv_64_rank_0(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasDznrm2_64_rank_0(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmv_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2_64_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: kl - integer(c_int64_t) :: ku - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: AP - integer(c_int64_t) :: lda complex(c_double_complex),target :: x integer(c_int64_t) :: incx - complex(c_double_complex),target :: beta - complex(c_double_complex),target :: y - integer(c_int64_t) :: incy + real(c_double),target :: myResult ! - hipblasZgbmv_64_rank_0 = hipblasZgbmv_64_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasDznrm2_64_rank_0 = hipblasDznrm2_64_(handle,n,c_loc(x),incx,c_loc(myResult)) end function - function hipblasZgbmv_64_rank_1(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasDznrm2_64_rank_0_devptr(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmv_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2_64_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: myResult + ! + hipblasDznrm2_64_rank_0_devptr = hipblasDznrm2_64_(handle,n,c_loc(x),incx,myResult) + end function + + function hipblasDznrm2_64_rank_1(handle,n,x,incx,myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2_64_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: kl - integer(c_int64_t) :: ku - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: AP - integer(c_int64_t) :: lda complex(c_double_complex),target,dimension(:) :: x integer(c_int64_t) :: incx - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:) :: y - integer(c_int64_t) :: incy + real(c_double),target :: myResult ! - hipblasZgbmv_64_rank_1 = hipblasZgbmv_64_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasDznrm2_64_rank_1 = hipblasDznrm2_64_(handle,n,c_loc(x),incx,c_loc(myResult)) end function - function hipblasZgbmv_64_full_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasDznrm2_64_rank_1_devptr(handle,n,x,incx,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmv_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2_64_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: kl - integer(c_int64_t) :: ku - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda complex(c_double_complex),target,dimension(:) :: x integer(c_int64_t) :: incx - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:) :: y - integer(c_int64_t) :: incy + type(c_ptr),value :: myResult ! - hipblasZgbmv_64_full_rank = hipblasZgbmv_64_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP), & - lda,c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasDznrm2_64_rank_1_devptr = hipblasDznrm2_64_(handle,n,c_loc(x),incx,myResult) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasSgbmvStridedBatched_assumed_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA, & - x,incx,stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasSnrm2Batched_assumed_rank(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmvStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2Batched_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: kl - integer(c_int) :: ku - real(c_float),target :: alpha - real(c_float),target,dimension(..) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_float),target,dimension(..) :: x + type(c_ptr), value :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - real(c_float),target :: beta - real(c_float),target,dimension(..) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey integer(c_int) :: batchCount + real(c_float),target,dimension(..) :: myResult ! - hipblasSgbmvStridedBatched_assumed_rank = hipblasSgbmvStridedBatched_(handle,trans,m,n,kl, & - ku,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasSnrm2Batched_assumed_rank = hipblasSnrm2Batched_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function #else - function hipblasSgbmvStridedBatched_rank_0(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasSnrm2Batched_rank_0(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmvStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2Batched_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int) :: m - integer(c_int) :: n - integer(c_int) :: kl - integer(c_int) :: ku - real(c_float),target :: alpha - real(c_float),target :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_float),target :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - real(c_float),target :: beta - real(c_float),target :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount - ! - hipblasSgbmvStridedBatched_rank_0 = hipblasSgbmvStridedBatched_(handle,trans,m,n,kl,ku, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) - end function - - function hipblasSgbmvStridedBatched_rank_1(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmvStridedBatched_rank_1 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: kl - integer(c_int) :: ku - real(c_float),target :: alpha - real(c_float),target,dimension(:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_float),target,dimension(:) :: x + type(c_ptr), value :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - real(c_float),target :: beta - real(c_float),target,dimension(:) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey integer(c_int) :: batchCount + real(c_float),target :: myResult ! - hipblasSgbmvStridedBatched_rank_1 = hipblasSgbmvStridedBatched_(handle,trans,m,n,kl,ku, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasSnrm2Batched_rank_0 = hipblasSnrm2Batched_(handle,n,x,incx,batchCount,c_loc(myResult)) end function - function hipblasSgbmvStridedBatched_full_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x, & - incx,stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasSnrm2Batched_rank_1(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmvStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2Batched_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: kl - integer(c_int) :: ku - real(c_float),target :: alpha - real(c_float),target,dimension(:,:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_float),target,dimension(:) :: x + type(c_ptr), value :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - real(c_float),target :: beta - real(c_float),target,dimension(:) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey integer(c_int) :: batchCount + real(c_float),target,dimension(:) :: myResult ! - hipblasSgbmvStridedBatched_full_rank = hipblasSgbmvStridedBatched_(handle,trans,m,n,kl,ku, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasSnrm2Batched_rank_1 = hipblasSnrm2Batched_(handle,n,x,incx,batchCount,c_loc(myResult)) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasDgbmvStridedBatched_assumed_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA, & - x,incx,stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasDnrm2Batched_assumed_rank(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmvStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2Batched_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: kl - integer(c_int) :: ku - real(c_double),target :: alpha - real(c_double),target,dimension(..) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_double),target,dimension(..) :: x + type(c_ptr), value :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - real(c_double),target :: beta - real(c_double),target,dimension(..) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey integer(c_int) :: batchCount + real(c_double),target,dimension(..) :: myResult ! - hipblasDgbmvStridedBatched_assumed_rank = hipblasDgbmvStridedBatched_(handle,trans,m,n,kl, & - ku,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasDnrm2Batched_assumed_rank = hipblasDnrm2Batched_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function #else - function hipblasDgbmvStridedBatched_rank_0(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasDnrm2Batched_rank_0(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmvStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2Batched_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: kl - integer(c_int) :: ku - real(c_double),target :: alpha - real(c_double),target :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_double),target :: x + type(c_ptr), value :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - real(c_double),target :: beta - real(c_double),target :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey integer(c_int) :: batchCount + real(c_double),target :: myResult ! - hipblasDgbmvStridedBatched_rank_0 = hipblasDgbmvStridedBatched_(handle,trans,m,n,kl,ku, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasDnrm2Batched_rank_0 = hipblasDnrm2Batched_(handle,n,x,incx,batchCount,c_loc(myResult)) end function - function hipblasDgbmvStridedBatched_rank_1(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasDnrm2Batched_rank_1(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmvStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2Batched_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: kl - integer(c_int) :: ku - real(c_double),target :: alpha - real(c_double),target,dimension(:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_double),target,dimension(:) :: x + type(c_ptr), value :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - real(c_double),target :: beta - real(c_double),target,dimension(:) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey integer(c_int) :: batchCount + real(c_double),target,dimension(:) :: myResult ! - hipblasDgbmvStridedBatched_rank_1 = hipblasDgbmvStridedBatched_(handle,trans,m,n,kl,ku, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasDnrm2Batched_rank_1 = hipblasDnrm2Batched_(handle,n,x,incx,batchCount,c_loc(myResult)) end function - function hipblasDgbmvStridedBatched_full_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x, & - incx,stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasScnrm2Batched_assumed_rank(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmvStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2Batched_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: kl - integer(c_int) :: ku - real(c_double),target :: alpha - real(c_double),target,dimension(:,:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_double),target,dimension(:) :: x + type(c_ptr), value :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - real(c_double),target :: beta - real(c_double),target,dimension(:) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey integer(c_int) :: batchCount + real(c_float),target,dimension(..) :: myResult ! - hipblasDgbmvStridedBatched_full_rank = hipblasDgbmvStridedBatched_(handle,trans,m,n,kl,ku, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasScnrm2Batched_assumed_rank = hipblasScnrm2Batched_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCgbmvStridedBatched_assumed_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA, & - x,incx,stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding +#else + function hipblasScnrm2Batched_rank_0(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmvStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2Batched_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: kl - integer(c_int) :: ku - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(..) :: x + type(c_ptr), value :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(..) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey integer(c_int) :: batchCount + real(c_float),target :: myResult ! - hipblasCgbmvStridedBatched_assumed_rank = hipblasCgbmvStridedBatched_(handle,trans,m,n,kl, & - ku,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasScnrm2Batched_rank_0 = hipblasScnrm2Batched_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function -#else - function hipblasCgbmvStridedBatched_rank_0(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasScnrm2Batched_rank_1(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmvStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2Batched_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: kl - integer(c_int) :: ku - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - complex(c_float_complex),target :: x + type(c_ptr), value :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - complex(c_float_complex),target :: beta - complex(c_float_complex),target :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey integer(c_int) :: batchCount + real(c_float),target,dimension(:) :: myResult ! - hipblasCgbmvStridedBatched_rank_0 = hipblasCgbmvStridedBatched_(handle,trans,m,n,kl,ku, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasScnrm2Batched_rank_1 = hipblasScnrm2Batched_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function - function hipblasCgbmvStridedBatched_rank_1(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDznrm2Batched_assumed_rank(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmvStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2Batched_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: kl - integer(c_int) :: ku - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:) :: x + type(c_ptr), value :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey integer(c_int) :: batchCount + real(c_double),target,dimension(..) :: myResult ! - hipblasCgbmvStridedBatched_rank_1 = hipblasCgbmvStridedBatched_(handle,trans,m,n,kl,ku, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasDznrm2Batched_assumed_rank = hipblasDznrm2Batched_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function - function hipblasCgbmvStridedBatched_full_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x, & - incx,stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding +#else + function hipblasDznrm2Batched_rank_0(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmvStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2Batched_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: kl - integer(c_int) :: ku - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:,:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:) :: x + type(c_ptr), value :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey integer(c_int) :: batchCount + real(c_double),target :: myResult ! - hipblasCgbmvStridedBatched_full_rank = hipblasCgbmvStridedBatched_(handle,trans,m,n,kl,ku, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasDznrm2Batched_rank_0 = hipblasDznrm2Batched_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZgbmvStridedBatched_assumed_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA, & - x,incx,stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasDznrm2Batched_rank_1(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmvStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2Batched_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: kl - integer(c_int) :: ku - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(..) :: x + type(c_ptr), value :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(..) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey integer(c_int) :: batchCount + real(c_double),target,dimension(:) :: myResult ! - hipblasZgbmvStridedBatched_assumed_rank = hipblasZgbmvStridedBatched_(handle,trans,m,n,kl, & - ku,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasDznrm2Batched_rank_1 = hipblasDznrm2Batched_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function -#else - function hipblasZgbmvStridedBatched_rank_0(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSnrm2Batched_64_assumed_rank(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmvStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2Batched_64_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int) :: m - integer(c_int) :: n - integer(c_int) :: kl - integer(c_int) :: ku - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - complex(c_double_complex),target :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - complex(c_double_complex),target :: beta - complex(c_double_complex),target :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount + integer(c_int64_t) :: n + type(c_ptr), value :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: batchCount + real(c_float),target,dimension(..) :: myResult ! - hipblasZgbmvStridedBatched_rank_0 = hipblasZgbmvStridedBatched_(handle,trans,m,n,kl,ku, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasSnrm2Batched_64_assumed_rank = hipblasSnrm2Batched_64_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function - function hipblasZgbmvStridedBatched_rank_1(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding +#else + function hipblasSnrm2Batched_64_rank_0(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmvStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2Batched_64_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int) :: m - integer(c_int) :: n - integer(c_int) :: kl - integer(c_int) :: ku - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount + integer(c_int64_t) :: n + type(c_ptr), value :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: batchCount + real(c_float),target :: myResult ! - hipblasZgbmvStridedBatched_rank_1 = hipblasZgbmvStridedBatched_(handle,trans,m,n,kl,ku, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasSnrm2Batched_64_rank_0 = hipblasSnrm2Batched_64_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function - function hipblasZgbmvStridedBatched_full_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x, & - incx,stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasSnrm2Batched_64_rank_1(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmvStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2Batched_64_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int) :: m - integer(c_int) :: n - integer(c_int) :: kl - integer(c_int) :: ku - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:,:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount + integer(c_int64_t) :: n + type(c_ptr), value :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: batchCount + real(c_float),target,dimension(:) :: myResult ! - hipblasZgbmvStridedBatched_full_rank = hipblasZgbmvStridedBatched_(handle,trans,m,n,kl,ku, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasSnrm2Batched_64_rank_1 = hipblasSnrm2Batched_64_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasSgbmvStridedBatched_64_assumed_rank(handle,trans,m,n,kl,ku,alpha,AP,lda, & - strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasDnrm2Batched_64_assumed_rank(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmvStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2Batched_64_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: kl - integer(c_int64_t) :: ku - real(c_float),target :: alpha - real(c_float),target,dimension(..) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - real(c_float),target,dimension(..) :: x + type(c_ptr), value :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - real(c_float),target :: beta - real(c_float),target,dimension(..) :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount + real(c_double),target,dimension(..) :: myResult ! - hipblasSgbmvStridedBatched_64_assumed_rank = hipblasSgbmvStridedBatched_64_(handle,trans,m, & - n,kl,ku,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y), & - incy,stridey,batchCount) + hipblasDnrm2Batched_64_assumed_rank = hipblasDnrm2Batched_64_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function #else - function hipblasSgbmvStridedBatched_64_rank_0(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x, & - incx,stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasDnrm2Batched_64_rank_0(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmvStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2Batched_64_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: kl - integer(c_int64_t) :: ku - real(c_float),target :: alpha - real(c_float),target :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - real(c_float),target :: x + type(c_ptr), value :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - real(c_float),target :: beta - real(c_float),target :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount + real(c_double),target :: myResult ! - hipblasSgbmvStridedBatched_64_rank_0 = hipblasSgbmvStridedBatched_64_(handle,trans,m,n,kl, & - ku,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasDnrm2Batched_64_rank_0 = hipblasDnrm2Batched_64_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function - function hipblasSgbmvStridedBatched_64_rank_1(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x, & - incx,stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasDnrm2Batched_64_rank_1(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmvStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2Batched_64_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: kl - integer(c_int64_t) :: ku - real(c_float),target :: alpha - real(c_float),target,dimension(:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - real(c_float),target,dimension(:) :: x + type(c_ptr), value :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - real(c_float),target :: beta - real(c_float),target,dimension(:) :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount + real(c_double),target,dimension(:) :: myResult ! - hipblasSgbmvStridedBatched_64_rank_1 = hipblasSgbmvStridedBatched_64_(handle,trans,m,n,kl, & - ku,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasDnrm2Batched_64_rank_1 = hipblasDnrm2Batched_64_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function - function hipblasSgbmvStridedBatched_64_full_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA, & - x,incx,stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasScnrm2Batched_64_assumed_rank(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmvStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2Batched_64_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: kl - integer(c_int64_t) :: ku - real(c_float),target :: alpha - real(c_float),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - real(c_float),target,dimension(:) :: x + type(c_ptr), value :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - real(c_float),target :: beta - real(c_float),target,dimension(:) :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount + real(c_float),target,dimension(..) :: myResult ! - hipblasSgbmvStridedBatched_64_full_rank = hipblasSgbmvStridedBatched_64_(handle,trans,m,n, & - kl,ku,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasScnrm2Batched_64_assumed_rank = hipblasScnrm2Batched_64_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDgbmvStridedBatched_64_assumed_rank(handle,trans,m,n,kl,ku,alpha,AP,lda, & - strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding +#else + function hipblasScnrm2Batched_64_rank_0(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmvStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2Batched_64_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: kl - integer(c_int64_t) :: ku - real(c_double),target :: alpha - real(c_double),target,dimension(..) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - real(c_double),target,dimension(..) :: x + type(c_ptr), value :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - real(c_double),target :: beta - real(c_double),target,dimension(..) :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount + real(c_float),target :: myResult ! - hipblasDgbmvStridedBatched_64_assumed_rank = hipblasDgbmvStridedBatched_64_(handle,trans,m, & - n,kl,ku,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y), & - incy,stridey,batchCount) + hipblasScnrm2Batched_64_rank_0 = hipblasScnrm2Batched_64_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function -#else - function hipblasDgbmvStridedBatched_64_rank_0(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x, & - incx,stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasScnrm2Batched_64_rank_1(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmvStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2Batched_64_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: kl - integer(c_int64_t) :: ku - real(c_double),target :: alpha - real(c_double),target :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - real(c_double),target :: x + type(c_ptr), value :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - real(c_double),target :: beta - real(c_double),target :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount + real(c_float),target,dimension(:) :: myResult ! - hipblasDgbmvStridedBatched_64_rank_0 = hipblasDgbmvStridedBatched_64_(handle,trans,m,n,kl, & - ku,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasScnrm2Batched_64_rank_1 = hipblasScnrm2Batched_64_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function - function hipblasDgbmvStridedBatched_64_rank_1(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x, & - incx,stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDznrm2Batched_64_assumed_rank(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmvStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2Batched_64_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: kl - integer(c_int64_t) :: ku - real(c_double),target :: alpha - real(c_double),target,dimension(:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - real(c_double),target,dimension(:) :: x + type(c_ptr), value :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - real(c_double),target :: beta - real(c_double),target,dimension(:) :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount + real(c_double),target,dimension(..) :: myResult ! - hipblasDgbmvStridedBatched_64_rank_1 = hipblasDgbmvStridedBatched_64_(handle,trans,m,n,kl, & - ku,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasDznrm2Batched_64_assumed_rank = hipblasDznrm2Batched_64_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function - function hipblasDgbmvStridedBatched_64_full_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA, & - x,incx,stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding +#else + function hipblasDznrm2Batched_64_rank_0(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmvStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2Batched_64_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: kl - integer(c_int64_t) :: ku - real(c_double),target :: alpha - real(c_double),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - real(c_double),target,dimension(:) :: x + type(c_ptr), value :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - real(c_double),target :: beta - real(c_double),target,dimension(:) :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount + real(c_double),target :: myResult ! - hipblasDgbmvStridedBatched_64_full_rank = hipblasDgbmvStridedBatched_64_(handle,trans,m,n, & - kl,ku,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasDznrm2Batched_64_rank_0 = hipblasDznrm2Batched_64_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCgbmvStridedBatched_64_assumed_rank(handle,trans,m,n,kl,ku,alpha,AP,lda, & - strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasDznrm2Batched_64_rank_1(handle,n,x,incx,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmvStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2Batched_64_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: kl - integer(c_int64_t) :: ku - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(..) :: x + type(c_ptr), value :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(..) :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount + real(c_double),target,dimension(:) :: myResult ! - hipblasCgbmvStridedBatched_64_assumed_rank = hipblasCgbmvStridedBatched_64_(handle,trans,m, & - n,kl,ku,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y), & - incy,stridey,batchCount) + hipblasDznrm2Batched_64_rank_1 = hipblasDznrm2Batched_64_(handle,n,x,incx,batchCount, & + c_loc(myResult)) end function -#else - function hipblasCgbmvStridedBatched_64_rank_0(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x, & - incx,stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSnrm2StridedBatched_assumed_rank(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmvStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2StridedBatched_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int64_t) :: m - integer(c_int64_t) :: n - integer(c_int64_t) :: kl - integer(c_int64_t) :: ku - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - complex(c_float_complex),target :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx integer(c_int64_t) :: stridex - complex(c_float_complex),target :: beta - complex(c_float_complex),target :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount + integer(c_int) :: batchCount + real(c_float),target,dimension(..) :: myResult ! - hipblasCgbmvStridedBatched_64_rank_0 = hipblasCgbmvStridedBatched_64_(handle,trans,m,n,kl, & - ku,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasSnrm2StridedBatched_assumed_rank = hipblasSnrm2StridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,c_loc(myResult)) end function - function hipblasCgbmvStridedBatched_64_rank_1(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x, & - incx,stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasSnrm2StridedBatched_assumed_rank_devptr(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmvStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2StridedBatched_assumed_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int64_t) :: m - integer(c_int64_t) :: n - integer(c_int64_t) :: kl - integer(c_int64_t) :: ku - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx integer(c_int64_t) :: stridex - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:) :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount + integer(c_int) :: batchCount + type(c_ptr),value :: myResult ! - hipblasCgbmvStridedBatched_64_rank_1 = hipblasCgbmvStridedBatched_64_(handle,trans,m,n,kl, & - ku,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasSnrm2StridedBatched_assumed_rank_devptr = hipblasSnrm2StridedBatched_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) end function - function hipblasCgbmvStridedBatched_64_full_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA, & - x,incx,stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding +#else + function hipblasSnrm2StridedBatched_rank_0(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmvStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2StridedBatched_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int64_t) :: m - integer(c_int64_t) :: n - integer(c_int64_t) :: kl - integer(c_int64_t) :: ku - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + real(c_float),target :: x + integer(c_int) :: incx integer(c_int64_t) :: stridex - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:) :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount + integer(c_int) :: batchCount + real(c_float),target :: myResult ! - hipblasCgbmvStridedBatched_64_full_rank = hipblasCgbmvStridedBatched_64_(handle,trans,m,n, & - kl,ku,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasSnrm2StridedBatched_rank_0 = hipblasSnrm2StridedBatched_(handle,n,c_loc(x),incx, & + stridex,batchCount,c_loc(myResult)) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZgbmvStridedBatched_64_assumed_rank(handle,trans,m,n,kl,ku,alpha,AP,lda, & - strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasSnrm2StridedBatched_rank_0_devptr(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmvStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2StridedBatched_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int64_t) :: m - integer(c_int64_t) :: n - integer(c_int64_t) :: kl - integer(c_int64_t) :: ku - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(..) :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + real(c_float),target :: x + integer(c_int) :: incx integer(c_int64_t) :: stridex - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(..) :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount + integer(c_int) :: batchCount + type(c_ptr),value :: myResult ! - hipblasZgbmvStridedBatched_64_assumed_rank = hipblasZgbmvStridedBatched_64_(handle,trans,m, & - n,kl,ku,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y), & - incy,stridey,batchCount) + hipblasSnrm2StridedBatched_rank_0_devptr = hipblasSnrm2StridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) end function -#else - function hipblasZgbmvStridedBatched_64_rank_0(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x, & - incx,stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasSnrm2StridedBatched_rank_1(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmvStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2StridedBatched_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int64_t) :: m - integer(c_int64_t) :: n - integer(c_int64_t) :: kl - integer(c_int64_t) :: ku - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - complex(c_double_complex),target :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx integer(c_int64_t) :: stridex - complex(c_double_complex),target :: beta - complex(c_double_complex),target :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount + integer(c_int) :: batchCount + real(c_float),target,dimension(:) :: myResult ! - hipblasZgbmvStridedBatched_64_rank_0 = hipblasZgbmvStridedBatched_64_(handle,trans,m,n,kl, & - ku,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasSnrm2StridedBatched_rank_1 = hipblasSnrm2StridedBatched_(handle,n,c_loc(x),incx, & + stridex,batchCount,c_loc(myResult)) end function - function hipblasZgbmvStridedBatched_64_rank_1(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x, & - incx,stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasSnrm2StridedBatched_rank_1_devptr(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmvStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2StridedBatched_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int64_t) :: m - integer(c_int64_t) :: n - integer(c_int64_t) :: kl - integer(c_int64_t) :: ku - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx integer(c_int64_t) :: stridex - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:) :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount + integer(c_int) :: batchCount + type(c_ptr),value :: myResult ! - hipblasZgbmvStridedBatched_64_rank_1 = hipblasZgbmvStridedBatched_64_(handle,trans,m,n,kl, & - ku,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasSnrm2StridedBatched_rank_1_devptr = hipblasSnrm2StridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) end function - function hipblasZgbmvStridedBatched_64_full_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA, & - x,incx,stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasSnrm2StridedBatched_strided_rank(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmvStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2StridedBatched_strided_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int64_t) :: m - integer(c_int64_t) :: n - integer(c_int64_t) :: kl - integer(c_int64_t) :: ku - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + real(c_float),target,dimension(:,:) :: x + integer(c_int) :: incx integer(c_int64_t) :: stridex - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:) :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount + integer(c_int) :: batchCount + real(c_float),target,dimension(:) :: myResult ! - hipblasZgbmvStridedBatched_64_full_rank = hipblasZgbmvStridedBatched_64_(handle,trans,m,n, & - kl,ku,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasSnrm2StridedBatched_strided_rank = hipblasSnrm2StridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,c_loc(myResult)) + end function + + function hipblasSnrm2StridedBatched_strided_rank_devptr(handle,n,x,incx,stridex,batchCount, & + myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2StridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + type(c_ptr),value :: myResult + ! + hipblasSnrm2StridedBatched_strided_rank_devptr = hipblasSnrm2StridedBatched_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasSgemv_assumed_rank(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasDnrm2StridedBatched_assumed_rank(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemv_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2StridedBatched_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int) :: m integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(..) :: AP - integer(c_int) :: lda - real(c_float),target,dimension(..) :: x + real(c_double),target,dimension(..) :: x integer(c_int) :: incx - real(c_float),target :: beta - real(c_float),target,dimension(..) :: y - integer(c_int) :: incy + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + real(c_double),target,dimension(..) :: myResult ! - hipblasSgemv_assumed_rank = hipblasSgemv_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasDnrm2StridedBatched_assumed_rank = hipblasDnrm2StridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,c_loc(myResult)) end function -#else - function hipblasSgemv_rank_0(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasDnrm2StridedBatched_assumed_rank_devptr(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemv_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2StridedBatched_assumed_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int) :: m integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target :: AP - integer(c_int) :: lda - real(c_float),target :: x + real(c_double),target,dimension(..) :: x integer(c_int) :: incx - real(c_float),target :: beta - real(c_float),target :: y - integer(c_int) :: incy + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + type(c_ptr),value :: myResult ! - hipblasSgemv_rank_0 = hipblasSgemv_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & - incx,c_loc(beta),c_loc(y),incy) + hipblasDnrm2StridedBatched_assumed_rank_devptr = hipblasDnrm2StridedBatched_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) end function - function hipblasSgemv_rank_1(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding +#else + function hipblasDnrm2StridedBatched_rank_0(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemv_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2StridedBatched_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int) :: m integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(:) :: AP - integer(c_int) :: lda - real(c_float),target,dimension(:) :: x + real(c_double),target :: x integer(c_int) :: incx - real(c_float),target :: beta - real(c_float),target,dimension(:) :: y - integer(c_int) :: incy + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + real(c_double),target :: myResult ! - hipblasSgemv_rank_1 = hipblasSgemv_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & - incx,c_loc(beta),c_loc(y),incy) + hipblasDnrm2StridedBatched_rank_0 = hipblasDnrm2StridedBatched_(handle,n,c_loc(x),incx, & + stridex,batchCount,c_loc(myResult)) end function - function hipblasSgemv_full_rank(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasDnrm2StridedBatched_rank_0_devptr(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemv_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2StridedBatched_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int) :: m integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(:,:) :: AP - integer(c_int) :: lda - real(c_float),target,dimension(:) :: x + real(c_double),target :: x integer(c_int) :: incx - real(c_float),target :: beta - real(c_float),target,dimension(:) :: y - integer(c_int) :: incy + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + type(c_ptr),value :: myResult ! - hipblasSgemv_full_rank = hipblasSgemv_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & - incx,c_loc(beta),c_loc(y),incy) + hipblasDnrm2StridedBatched_rank_0_devptr = hipblasDnrm2StridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDgemv_assumed_rank(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasDnrm2StridedBatched_rank_1(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemv_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2StridedBatched_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int) :: m integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(..) :: AP - integer(c_int) :: lda - real(c_double),target,dimension(..) :: x + real(c_double),target,dimension(:) :: x integer(c_int) :: incx - real(c_double),target :: beta - real(c_double),target,dimension(..) :: y - integer(c_int) :: incy + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + real(c_double),target,dimension(:) :: myResult ! - hipblasDgemv_assumed_rank = hipblasDgemv_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasDnrm2StridedBatched_rank_1 = hipblasDnrm2StridedBatched_(handle,n,c_loc(x),incx, & + stridex,batchCount,c_loc(myResult)) end function -#else - function hipblasDgemv_rank_0(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasDnrm2StridedBatched_rank_1_devptr(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemv_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2StridedBatched_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int) :: m integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target :: AP - integer(c_int) :: lda - real(c_double),target :: x + real(c_double),target,dimension(:) :: x integer(c_int) :: incx - real(c_double),target :: beta - real(c_double),target :: y - integer(c_int) :: incy + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + type(c_ptr),value :: myResult ! - hipblasDgemv_rank_0 = hipblasDgemv_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & - incx,c_loc(beta),c_loc(y),incy) + hipblasDnrm2StridedBatched_rank_1_devptr = hipblasDnrm2StridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) end function - function hipblasDgemv_rank_1(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasDnrm2StridedBatched_strided_rank(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemv_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2StridedBatched_strided_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int) :: m integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(:) :: AP - integer(c_int) :: lda - real(c_double),target,dimension(:) :: x + real(c_double),target,dimension(:,:) :: x integer(c_int) :: incx - real(c_double),target :: beta - real(c_double),target,dimension(:) :: y - integer(c_int) :: incy + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + real(c_double),target,dimension(:) :: myResult ! - hipblasDgemv_rank_1 = hipblasDgemv_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & - incx,c_loc(beta),c_loc(y),incy) + hipblasDnrm2StridedBatched_strided_rank = hipblasDnrm2StridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,c_loc(myResult)) end function - function hipblasDgemv_full_rank(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasDnrm2StridedBatched_strided_rank_devptr(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemv_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2StridedBatched_strided_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int) :: m integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(:,:) :: AP - integer(c_int) :: lda - real(c_double),target,dimension(:) :: x + real(c_double),target,dimension(:,:) :: x integer(c_int) :: incx - real(c_double),target :: beta - real(c_double),target,dimension(:) :: y - integer(c_int) :: incy + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + type(c_ptr),value :: myResult ! - hipblasDgemv_full_rank = hipblasDgemv_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & - incx,c_loc(beta),c_loc(y),incy) + hipblasDnrm2StridedBatched_strided_rank_devptr = hipblasDnrm2StridedBatched_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCgemv_assumed_rank(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasScnrm2StridedBatched_assumed_rank(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemv_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2StridedBatched_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int) :: m integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: AP - integer(c_int) :: lda complex(c_float_complex),target,dimension(..) :: x integer(c_int) :: incx - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(..) :: y - integer(c_int) :: incy + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + real(c_float),target,dimension(..) :: myResult ! - hipblasCgemv_assumed_rank = hipblasCgemv_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasScnrm2StridedBatched_assumed_rank = hipblasScnrm2StridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,c_loc(myResult)) end function -#else - function hipblasCgemv_rank_0(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasScnrm2StridedBatched_assumed_rank_devptr(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemv_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2StridedBatched_assumed_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int) :: m integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: AP - integer(c_int) :: lda - complex(c_float_complex),target :: x + complex(c_float_complex),target,dimension(..) :: x integer(c_int) :: incx - complex(c_float_complex),target :: beta - complex(c_float_complex),target :: y - integer(c_int) :: incy + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + type(c_ptr),value :: myResult ! - hipblasCgemv_rank_0 = hipblasCgemv_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & - incx,c_loc(beta),c_loc(y),incy) + hipblasScnrm2StridedBatched_assumed_rank_devptr = hipblasScnrm2StridedBatched_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) end function - function hipblasCgemv_rank_1(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding +#else + function hipblasScnrm2StridedBatched_rank_0(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemv_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2StridedBatched_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int) :: m integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: AP - integer(c_int) :: lda - complex(c_float_complex),target,dimension(:) :: x + complex(c_float_complex),target :: x integer(c_int) :: incx - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:) :: y - integer(c_int) :: incy + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + real(c_float),target :: myResult ! - hipblasCgemv_rank_1 = hipblasCgemv_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & - incx,c_loc(beta),c_loc(y),incy) + hipblasScnrm2StridedBatched_rank_0 = hipblasScnrm2StridedBatched_(handle,n,c_loc(x),incx, & + stridex,batchCount,c_loc(myResult)) end function - function hipblasCgemv_full_rank(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasScnrm2StridedBatched_rank_0_devptr(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemv_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2StridedBatched_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int) :: m integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:,:) :: AP - integer(c_int) :: lda - complex(c_float_complex),target,dimension(:) :: x + complex(c_float_complex),target :: x integer(c_int) :: incx - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:) :: y - integer(c_int) :: incy + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + type(c_ptr),value :: myResult ! - hipblasCgemv_full_rank = hipblasCgemv_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & - incx,c_loc(beta),c_loc(y),incy) + hipblasScnrm2StridedBatched_rank_0_devptr = hipblasScnrm2StridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) end function -#endif + function hipblasScnrm2StridedBatched_rank_1(handle,n,x,incx,stridex,batchCount,myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2StridedBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + real(c_float),target,dimension(:) :: myResult + ! + hipblasScnrm2StridedBatched_rank_1 = hipblasScnrm2StridedBatched_(handle,n,c_loc(x),incx, & + stridex,batchCount,c_loc(myResult)) + end function + + function hipblasScnrm2StridedBatched_rank_1_devptr(handle,n,x,incx,stridex,batchCount,myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2StridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + type(c_ptr),value :: myResult + ! + hipblasScnrm2StridedBatched_rank_1_devptr = hipblasScnrm2StridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) + end function + + function hipblasScnrm2StridedBatched_strided_rank(handle,n,x,incx,stridex,batchCount,myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2StridedBatched_strided_rank + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + real(c_float),target,dimension(:) :: myResult + ! + hipblasScnrm2StridedBatched_strided_rank = hipblasScnrm2StridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,c_loc(myResult)) + end function + + function hipblasScnrm2StridedBatched_strided_rank_devptr(handle,n,x,incx,stridex,batchCount, & + myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2StridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + type(c_ptr),value :: myResult + ! + hipblasScnrm2StridedBatched_strided_rank_devptr = hipblasScnrm2StridedBatched_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) + end function + +#endif #ifdef USE_ASSUMED_RANK - function hipblasZgemv_assumed_rank(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasDznrm2StridedBatched_assumed_rank(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemv_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2StridedBatched_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int) :: m integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: AP - integer(c_int) :: lda complex(c_double_complex),target,dimension(..) :: x integer(c_int) :: incx - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(..) :: y - integer(c_int) :: incy + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + real(c_double),target,dimension(..) :: myResult ! - hipblasZgemv_assumed_rank = hipblasZgemv_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasDznrm2StridedBatched_assumed_rank = hipblasDznrm2StridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,c_loc(myResult)) + end function + + function hipblasDznrm2StridedBatched_assumed_rank_devptr(handle,n,x,incx,stridex,batchCount, & + myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2StridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + type(c_ptr),value :: myResult + ! + hipblasDznrm2StridedBatched_assumed_rank_devptr = hipblasDznrm2StridedBatched_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) end function #else - function hipblasZgemv_rank_0(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasDznrm2StridedBatched_rank_0(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemv_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2StridedBatched_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int) :: m integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: AP - integer(c_int) :: lda complex(c_double_complex),target :: x integer(c_int) :: incx - complex(c_double_complex),target :: beta - complex(c_double_complex),target :: y - integer(c_int) :: incy + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + real(c_double),target :: myResult ! - hipblasZgemv_rank_0 = hipblasZgemv_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & - incx,c_loc(beta),c_loc(y),incy) + hipblasDznrm2StridedBatched_rank_0 = hipblasDznrm2StridedBatched_(handle,n,c_loc(x),incx, & + stridex,batchCount,c_loc(myResult)) end function - function hipblasZgemv_rank_1(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasDznrm2StridedBatched_rank_0_devptr(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemv_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2StridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + type(c_ptr),value :: myResult + ! + hipblasDznrm2StridedBatched_rank_0_devptr = hipblasDznrm2StridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) + end function + + function hipblasDznrm2StridedBatched_rank_1(handle,n,x,incx,stridex,batchCount,myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2StridedBatched_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int) :: m integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: AP - integer(c_int) :: lda complex(c_double_complex),target,dimension(:) :: x integer(c_int) :: incx - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:) :: y - integer(c_int) :: incy + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + real(c_double),target,dimension(:) :: myResult ! - hipblasZgemv_rank_1 = hipblasZgemv_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & - incx,c_loc(beta),c_loc(y),incy) + hipblasDznrm2StridedBatched_rank_1 = hipblasDznrm2StridedBatched_(handle,n,c_loc(x),incx, & + stridex,batchCount,c_loc(myResult)) end function - function hipblasZgemv_full_rank(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasDznrm2StridedBatched_rank_1_devptr(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemv_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2StridedBatched_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int) :: m integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:,:) :: AP - integer(c_int) :: lda complex(c_double_complex),target,dimension(:) :: x integer(c_int) :: incx - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:) :: y - integer(c_int) :: incy + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + type(c_ptr),value :: myResult ! - hipblasZgemv_full_rank = hipblasZgemv_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & - incx,c_loc(beta),c_loc(y),incy) + hipblasDznrm2StridedBatched_rank_1_devptr = hipblasDznrm2StridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,myResult) + end function + + function hipblasDznrm2StridedBatched_strided_rank(handle,n,x,incx,stridex,batchCount,myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2StridedBatched_strided_rank + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + real(c_double),target,dimension(:) :: myResult + ! + hipblasDznrm2StridedBatched_strided_rank = hipblasDznrm2StridedBatched_(handle,n,c_loc(x), & + incx,stridex,batchCount,c_loc(myResult)) + end function + + function hipblasDznrm2StridedBatched_strided_rank_devptr(handle,n,x,incx,stridex,batchCount, & + myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2StridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + type(c_ptr),value :: myResult + ! + hipblasDznrm2StridedBatched_strided_rank_devptr = hipblasDznrm2StridedBatched_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasSgemv_64_assumed_rank(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasSnrm2StridedBatched_64_assumed_rank(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemv_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2StridedBatched_64_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int64_t) :: m integer(c_int64_t) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(..) :: AP - integer(c_int64_t) :: lda real(c_float),target,dimension(..) :: x integer(c_int64_t) :: incx - real(c_float),target :: beta - real(c_float),target,dimension(..) :: y - integer(c_int64_t) :: incy + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + real(c_float),target,dimension(..) :: myResult ! - hipblasSgemv_64_assumed_rank = hipblasSgemv_64_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasSnrm2StridedBatched_64_assumed_rank = hipblasSnrm2StridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,c_loc(myResult)) end function -#else - function hipblasSgemv_64_rank_0(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasSnrm2StridedBatched_64_assumed_rank_devptr(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemv_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2StridedBatched_64_assumed_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int64_t) :: m integer(c_int64_t) :: n - real(c_float),target :: alpha - real(c_float),target :: AP - integer(c_int64_t) :: lda - real(c_float),target :: x + real(c_float),target,dimension(..) :: x integer(c_int64_t) :: incx - real(c_float),target :: beta - real(c_float),target :: y - integer(c_int64_t) :: incy + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + type(c_ptr),value :: myResult ! - hipblasSgemv_64_rank_0 = hipblasSgemv_64_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasSnrm2StridedBatched_64_assumed_rank_devptr = hipblasSnrm2StridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) end function - function hipblasSgemv_64_rank_1(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding +#else + function hipblasSnrm2StridedBatched_64_rank_0(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemv_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2StridedBatched_64_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int64_t) :: m integer(c_int64_t) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(:) :: AP - integer(c_int64_t) :: lda - real(c_float),target,dimension(:) :: x + real(c_float),target :: x integer(c_int64_t) :: incx - real(c_float),target :: beta - real(c_float),target,dimension(:) :: y - integer(c_int64_t) :: incy + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + real(c_float),target :: myResult ! - hipblasSgemv_64_rank_1 = hipblasSgemv_64_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasSnrm2StridedBatched_64_rank_0 = hipblasSnrm2StridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,batchCount,c_loc(myResult)) end function - function hipblasSgemv_64_full_rank(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasSnrm2StridedBatched_64_rank_0_devptr(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemv_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2StridedBatched_64_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int64_t) :: m integer(c_int64_t) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - real(c_float),target,dimension(:) :: x + real(c_float),target :: x integer(c_int64_t) :: incx - real(c_float),target :: beta - real(c_float),target,dimension(:) :: y - integer(c_int64_t) :: incy + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + type(c_ptr),value :: myResult ! - hipblasSgemv_64_full_rank = hipblasSgemv_64_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasSnrm2StridedBatched_64_rank_0_devptr = hipblasSnrm2StridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDgemv_64_assumed_rank(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasSnrm2StridedBatched_64_rank_1(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemv_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2StridedBatched_64_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int64_t) :: m integer(c_int64_t) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(..) :: AP - integer(c_int64_t) :: lda - real(c_double),target,dimension(..) :: x + real(c_float),target,dimension(:) :: x integer(c_int64_t) :: incx - real(c_double),target :: beta - real(c_double),target,dimension(..) :: y - integer(c_int64_t) :: incy + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + real(c_float),target,dimension(:) :: myResult ! - hipblasDgemv_64_assumed_rank = hipblasDgemv_64_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasSnrm2StridedBatched_64_rank_1 = hipblasSnrm2StridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,batchCount,c_loc(myResult)) end function -#else - function hipblasDgemv_64_rank_0(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasSnrm2StridedBatched_64_rank_1_devptr(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemv_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2StridedBatched_64_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int64_t) :: m integer(c_int64_t) :: n - real(c_double),target :: alpha - real(c_double),target :: AP - integer(c_int64_t) :: lda - real(c_double),target :: x + real(c_float),target,dimension(:) :: x integer(c_int64_t) :: incx - real(c_double),target :: beta - real(c_double),target :: y - integer(c_int64_t) :: incy + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + type(c_ptr),value :: myResult ! - hipblasDgemv_64_rank_0 = hipblasDgemv_64_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasSnrm2StridedBatched_64_rank_1_devptr = hipblasSnrm2StridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) end function - function hipblasDgemv_64_rank_1(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasSnrm2StridedBatched_64_strided_rank(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemv_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2StridedBatched_64_strided_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int64_t) :: m integer(c_int64_t) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(:) :: AP - integer(c_int64_t) :: lda - real(c_double),target,dimension(:) :: x + real(c_float),target,dimension(:,:) :: x integer(c_int64_t) :: incx - real(c_double),target :: beta - real(c_double),target,dimension(:) :: y - integer(c_int64_t) :: incy + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + real(c_float),target,dimension(:) :: myResult ! - hipblasDgemv_64_rank_1 = hipblasDgemv_64_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasSnrm2StridedBatched_64_strided_rank = hipblasSnrm2StridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,c_loc(myResult)) end function - function hipblasDgemv_64_full_rank(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasSnrm2StridedBatched_64_strided_rank_devptr(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemv_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2StridedBatched_64_strided_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int64_t) :: m integer(c_int64_t) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - real(c_double),target,dimension(:) :: x + real(c_float),target,dimension(:,:) :: x integer(c_int64_t) :: incx - real(c_double),target :: beta - real(c_double),target,dimension(:) :: y - integer(c_int64_t) :: incy + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + type(c_ptr),value :: myResult ! - hipblasDgemv_64_full_rank = hipblasDgemv_64_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasSnrm2StridedBatched_64_strided_rank_devptr = hipblasSnrm2StridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCgemv_64_assumed_rank(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasDnrm2StridedBatched_64_assumed_rank(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemv_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2StridedBatched_64_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: AP - integer(c_int64_t) :: lda - complex(c_float_complex),target,dimension(..) :: x + real(c_double),target,dimension(..) :: x integer(c_int64_t) :: incx - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(..) :: y - integer(c_int64_t) :: incy + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + real(c_double),target,dimension(..) :: myResult ! - hipblasCgemv_64_assumed_rank = hipblasCgemv_64_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasDnrm2StridedBatched_64_assumed_rank = hipblasDnrm2StridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,c_loc(myResult)) end function -#else - function hipblasCgemv_64_rank_0(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasDnrm2StridedBatched_64_assumed_rank_devptr(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemv_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2StridedBatched_64_assumed_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: AP - integer(c_int64_t) :: lda - complex(c_float_complex),target :: x + real(c_double),target,dimension(..) :: x integer(c_int64_t) :: incx - complex(c_float_complex),target :: beta - complex(c_float_complex),target :: y - integer(c_int64_t) :: incy + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + type(c_ptr),value :: myResult ! - hipblasCgemv_64_rank_0 = hipblasCgemv_64_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasDnrm2StridedBatched_64_assumed_rank_devptr = hipblasDnrm2StridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) end function - function hipblasCgemv_64_rank_1(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding +#else + function hipblasDnrm2StridedBatched_64_rank_0(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemv_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2StridedBatched_64_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: AP - integer(c_int64_t) :: lda - complex(c_float_complex),target,dimension(:) :: x + real(c_double),target :: x integer(c_int64_t) :: incx - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:) :: y - integer(c_int64_t) :: incy + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + real(c_double),target :: myResult ! - hipblasCgemv_64_rank_1 = hipblasCgemv_64_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasDnrm2StridedBatched_64_rank_0 = hipblasDnrm2StridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,batchCount,c_loc(myResult)) end function - function hipblasCgemv_64_full_rank(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasDnrm2StridedBatched_64_rank_0_devptr(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemv_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2StridedBatched_64_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - complex(c_float_complex),target,dimension(:) :: x + real(c_double),target :: x integer(c_int64_t) :: incx - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:) :: y - integer(c_int64_t) :: incy + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + type(c_ptr),value :: myResult ! - hipblasCgemv_64_full_rank = hipblasCgemv_64_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasDnrm2StridedBatched_64_rank_0_devptr = hipblasDnrm2StridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZgemv_64_assumed_rank(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasDnrm2StridedBatched_64_rank_1(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemv_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2StridedBatched_64_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: AP - integer(c_int64_t) :: lda - complex(c_double_complex),target,dimension(..) :: x + real(c_double),target,dimension(:) :: x integer(c_int64_t) :: incx - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(..) :: y - integer(c_int64_t) :: incy + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + real(c_double),target,dimension(:) :: myResult ! - hipblasZgemv_64_assumed_rank = hipblasZgemv_64_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasDnrm2StridedBatched_64_rank_1 = hipblasDnrm2StridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,batchCount,c_loc(myResult)) end function -#else - function hipblasZgemv_64_rank_0(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasDnrm2StridedBatched_64_rank_1_devptr(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemv_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2StridedBatched_64_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: AP - integer(c_int64_t) :: lda - complex(c_double_complex),target :: x + real(c_double),target,dimension(:) :: x integer(c_int64_t) :: incx - complex(c_double_complex),target :: beta - complex(c_double_complex),target :: y - integer(c_int64_t) :: incy + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + type(c_ptr),value :: myResult ! - hipblasZgemv_64_rank_0 = hipblasZgemv_64_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasDnrm2StridedBatched_64_rank_1_devptr = hipblasDnrm2StridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) end function - function hipblasZgemv_64_rank_1(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasDnrm2StridedBatched_64_strided_rank(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemv_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2StridedBatched_64_strided_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: AP - integer(c_int64_t) :: lda - complex(c_double_complex),target,dimension(:) :: x + real(c_double),target,dimension(:,:) :: x integer(c_int64_t) :: incx - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:) :: y - integer(c_int64_t) :: incy + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + real(c_double),target,dimension(:) :: myResult ! - hipblasZgemv_64_rank_1 = hipblasZgemv_64_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasDnrm2StridedBatched_64_strided_rank = hipblasDnrm2StridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,c_loc(myResult)) end function - function hipblasZgemv_64_full_rank(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasDnrm2StridedBatched_64_strided_rank_devptr(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemv_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2StridedBatched_64_strided_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: trans - integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - complex(c_double_complex),target,dimension(:) :: x + real(c_double),target,dimension(:,:) :: x integer(c_int64_t) :: incx - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:) :: y - integer(c_int64_t) :: incy + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + type(c_ptr),value :: myResult ! - hipblasZgemv_64_full_rank = hipblasZgemv_64_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasDnrm2StridedBatched_64_strided_rank_devptr = hipblasDnrm2StridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasSgemvStridedBatched_assumed_rank(handle,transA,m,n,alpha,AP,lda,strideA,x, & - incx,stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasScnrm2StridedBatched_64_assumed_rank(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemvStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2StridedBatched_64_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int) :: m - integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(..) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_float),target,dimension(..) :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - real(c_float),target :: beta - real(c_float),target,dimension(..) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount + real(c_float),target,dimension(..) :: myResult ! - hipblasSgemvStridedBatched_assumed_rank = hipblasSgemvStridedBatched_(handle,transA,m,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasScnrm2StridedBatched_64_assumed_rank = hipblasScnrm2StridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,c_loc(myResult)) end function -#else - function hipblasSgemvStridedBatched_rank_0(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasScnrm2StridedBatched_64_assumed_rank_devptr(handle,n,x,incx,stridex, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemvStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2StridedBatched_64_assumed_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int) :: m - integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_float),target :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - real(c_float),target :: beta - real(c_float),target :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount + type(c_ptr),value :: myResult ! - hipblasSgemvStridedBatched_rank_0 = hipblasSgemvStridedBatched_(handle,transA,m,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasScnrm2StridedBatched_64_assumed_rank_devptr = hipblasScnrm2StridedBatched_64_(handle, & + n,c_loc(x),incx,stridex,batchCount,myResult) end function - function hipblasSgemvStridedBatched_rank_1(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding +#else + function hipblasScnrm2StridedBatched_64_rank_0(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemvStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2StridedBatched_64_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int) :: m - integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_float),target,dimension(:) :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - real(c_float),target :: beta - real(c_float),target,dimension(:) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount + real(c_float),target :: myResult ! - hipblasSgemvStridedBatched_rank_1 = hipblasSgemvStridedBatched_(handle,transA,m,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasScnrm2StridedBatched_64_rank_0 = hipblasScnrm2StridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,batchCount,c_loc(myResult)) end function - function hipblasSgemvStridedBatched_full_rank(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasScnrm2StridedBatched_64_rank_0_devptr(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemvStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2StridedBatched_64_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int) :: m - integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(:,:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_float),target,dimension(:) :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - real(c_float),target :: beta - real(c_float),target,dimension(:) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount + type(c_ptr),value :: myResult ! - hipblasSgemvStridedBatched_full_rank = hipblasSgemvStridedBatched_(handle,transA,m,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasScnrm2StridedBatched_64_rank_0_devptr = hipblasScnrm2StridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDgemvStridedBatched_assumed_rank(handle,transA,m,n,alpha,AP,lda,strideA,x, & - incx,stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasScnrm2StridedBatched_64_rank_1(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemvStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2StridedBatched_64_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int) :: m - integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(..) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_double),target,dimension(..) :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - real(c_double),target :: beta - real(c_double),target,dimension(..) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount + real(c_float),target,dimension(:) :: myResult ! - hipblasDgemvStridedBatched_assumed_rank = hipblasDgemvStridedBatched_(handle,transA,m,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasScnrm2StridedBatched_64_rank_1 = hipblasScnrm2StridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,batchCount,c_loc(myResult)) end function -#else - function hipblasDgemvStridedBatched_rank_0(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasScnrm2StridedBatched_64_rank_1_devptr(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemvStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2StridedBatched_64_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int) :: m - integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_double),target :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - real(c_double),target :: beta - real(c_double),target :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount + type(c_ptr),value :: myResult ! - hipblasDgemvStridedBatched_rank_0 = hipblasDgemvStridedBatched_(handle,transA,m,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasScnrm2StridedBatched_64_rank_1_devptr = hipblasScnrm2StridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) end function - function hipblasDgemvStridedBatched_rank_1(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasScnrm2StridedBatched_64_strided_rank(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemvStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2StridedBatched_64_strided_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int) :: m - integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_double),target,dimension(:) :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - real(c_double),target :: beta - real(c_double),target,dimension(:) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount + real(c_float),target,dimension(:) :: myResult ! - hipblasDgemvStridedBatched_rank_1 = hipblasDgemvStridedBatched_(handle,transA,m,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasScnrm2StridedBatched_64_strided_rank = hipblasScnrm2StridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,c_loc(myResult)) end function - function hipblasDgemvStridedBatched_full_rank(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasScnrm2StridedBatched_64_strided_rank_devptr(handle,n,x,incx,stridex, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemvStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2StridedBatched_64_strided_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int) :: m - integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(:,:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_double),target,dimension(:) :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - real(c_double),target :: beta - real(c_double),target,dimension(:) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount + type(c_ptr),value :: myResult ! - hipblasDgemvStridedBatched_full_rank = hipblasDgemvStridedBatched_(handle,transA,m,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasScnrm2StridedBatched_64_strided_rank_devptr = hipblasScnrm2StridedBatched_64_(handle, & + n,c_loc(x),incx,stridex,batchCount,myResult) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCgemvStridedBatched_assumed_rank(handle,transA,m,n,alpha,AP,lda,strideA,x, & - incx,stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasDznrm2StridedBatched_64_assumed_rank(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemvStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2StridedBatched_64_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int) :: m - integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(..) :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(..) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount + real(c_double),target,dimension(..) :: myResult ! - hipblasCgemvStridedBatched_assumed_rank = hipblasCgemvStridedBatched_(handle,transA,m,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasDznrm2StridedBatched_64_assumed_rank = hipblasDznrm2StridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,c_loc(myResult)) + end function + + function hipblasDznrm2StridedBatched_64_assumed_rank_devptr(handle,n,x,incx,stridex, & + batchCount,myResult) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2StridedBatched_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + type(c_ptr),value :: myResult + ! + hipblasDznrm2StridedBatched_64_assumed_rank_devptr = hipblasDznrm2StridedBatched_64_(handle, & + n,c_loc(x),incx,stridex,batchCount,myResult) end function #else - function hipblasCgemvStridedBatched_rank_0(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasDznrm2StridedBatched_64_rank_0(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemvStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2StridedBatched_64_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int) :: m - integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - complex(c_float_complex),target :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - complex(c_float_complex),target :: beta - complex(c_float_complex),target :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount + real(c_double),target :: myResult ! - hipblasCgemvStridedBatched_rank_0 = hipblasCgemvStridedBatched_(handle,transA,m,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasDznrm2StridedBatched_64_rank_0 = hipblasDznrm2StridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,batchCount,c_loc(myResult)) end function - function hipblasCgemvStridedBatched_rank_1(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasDznrm2StridedBatched_64_rank_0_devptr(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemvStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2StridedBatched_64_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int) :: m - integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:) :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount + type(c_ptr),value :: myResult ! - hipblasCgemvStridedBatched_rank_1 = hipblasCgemvStridedBatched_(handle,transA,m,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasDznrm2StridedBatched_64_rank_0_devptr = hipblasDznrm2StridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) end function - function hipblasCgemvStridedBatched_full_rank(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasDznrm2StridedBatched_64_rank_1(handle,n,x,incx,stridex,batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemvStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2StridedBatched_64_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int) :: m - integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:,:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:) :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount + real(c_double),target,dimension(:) :: myResult ! - hipblasCgemvStridedBatched_full_rank = hipblasCgemvStridedBatched_(handle,transA,m,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasDznrm2StridedBatched_64_rank_1 = hipblasDznrm2StridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,batchCount,c_loc(myResult)) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZgemvStridedBatched_assumed_rank(handle,transA,m,n,alpha,AP,lda,strideA,x, & - incx,stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasDznrm2StridedBatched_64_rank_1_devptr(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemvStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2StridedBatched_64_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int) :: m - integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(..) :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(..) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount + type(c_ptr),value :: myResult ! - hipblasZgemvStridedBatched_assumed_rank = hipblasZgemvStridedBatched_(handle,transA,m,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasDznrm2StridedBatched_64_rank_1_devptr = hipblasDznrm2StridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,myResult) end function -#else - function hipblasZgemvStridedBatched_rank_0(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasDznrm2StridedBatched_64_strided_rank(handle,n,x,incx,stridex,batchCount, & + myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemvStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2StridedBatched_64_strided_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int) :: m - integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - complex(c_double_complex),target :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - complex(c_double_complex),target :: beta - complex(c_double_complex),target :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount + real(c_double),target,dimension(:) :: myResult ! - hipblasZgemvStridedBatched_rank_0 = hipblasZgemvStridedBatched_(handle,transA,m,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasDznrm2StridedBatched_64_strided_rank = hipblasDznrm2StridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,batchCount,c_loc(myResult)) end function - function hipblasZgemvStridedBatched_rank_1(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasDznrm2StridedBatched_64_strided_rank_devptr(handle,n,x,incx,stridex, & + batchCount,myResult) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemvStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2StridedBatched_64_strided_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int) :: m - integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:) :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount + type(c_ptr),value :: myResult ! - hipblasZgemvStridedBatched_rank_1 = hipblasZgemvStridedBatched_(handle,transA,m,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasDznrm2StridedBatched_64_strided_rank_devptr = hipblasDznrm2StridedBatched_64_(handle, & + n,c_loc(x),incx,stridex,batchCount,myResult) end function - function hipblasZgemvStridedBatched_full_rank(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSrot_assumed_rank(handle,n,x,incx,y,incy,c,s) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemvStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrot_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int) :: m integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:,:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:) :: x + real(c_float),target,dimension(..) :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:) :: y + real(c_float),target,dimension(..) :: y integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount + real(c_float),target :: c + real(c_float),target :: s ! - hipblasZgemvStridedBatched_full_rank = hipblasZgemvStridedBatched_(handle,transA,m,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasSrot_assumed_rank = hipblasSrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c), & + c_loc(s)) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasSgemvStridedBatched_64_assumed_rank(handle,transA,m,n,alpha,AP,lda,strideA,x, & - incx,stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasSrot_assumed_rank_devptr(handle,n,x,incx,y,incy,c,s) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemvStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrot_assumed_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: m - integer(c_int64_t) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(..) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA + integer(c_int) :: n real(c_float),target,dimension(..) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - real(c_float),target :: beta + integer(c_int) :: incx real(c_float),target,dimension(..) :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount + integer(c_int) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s ! - hipblasSgemvStridedBatched_64_assumed_rank = hipblasSgemvStridedBatched_64_(handle,transA,m, & - n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasSrot_assumed_rank_devptr = hipblasSrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) end function #else - function hipblasSgemvStridedBatched_64_rank_0(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasSrot_rank_0(handle,n,x,incx,y,incy,c,s) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemvStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrot_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: m - integer(c_int64_t) :: n - real(c_float),target :: alpha - real(c_float),target :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA + integer(c_int) :: n real(c_float),target :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - real(c_float),target :: beta + integer(c_int) :: incx real(c_float),target :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount + integer(c_int) :: incy + real(c_float),target :: c + real(c_float),target :: s ! - hipblasSgemvStridedBatched_64_rank_0 = hipblasSgemvStridedBatched_64_(handle,transA,m,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasSrot_rank_0 = hipblasSrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c),c_loc(s)) end function - function hipblasSgemvStridedBatched_64_rank_1(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasSrot_rank_0_devptr(handle,n,x,incx,y,incy,c,s) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemvStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrot_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: m - integer(c_int64_t) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - real(c_float),target,dimension(:) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - real(c_float),target :: beta - real(c_float),target,dimension(:) :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount + integer(c_int) :: n + real(c_float),target :: x + integer(c_int) :: incx + real(c_float),target :: y + integer(c_int) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s ! - hipblasSgemvStridedBatched_64_rank_1 = hipblasSgemvStridedBatched_64_(handle,transA,m,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasSrot_rank_0_devptr = hipblasSrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) end function - function hipblasSgemvStridedBatched_64_full_rank(handle,transA,m,n,alpha,AP,lda,strideA,x, & - incx,stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasSrot_rank_1(handle,n,x,incx,y,incy,c,s) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemvStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrot_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: m - integer(c_int64_t) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA + integer(c_int) :: n real(c_float),target,dimension(:) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - real(c_float),target :: beta + integer(c_int) :: incx real(c_float),target,dimension(:) :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount + integer(c_int) :: incy + real(c_float),target :: c + real(c_float),target :: s ! - hipblasSgemvStridedBatched_64_full_rank = hipblasSgemvStridedBatched_64_(handle,transA,m,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasSrot_rank_1 = hipblasSrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c),c_loc(s)) + end function + + function hipblasSrot_rank_1_devptr(handle,n,x,incx,y,incy,c,s) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrot_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + hipblasSrot_rank_1_devptr = hipblasSrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasDgemvStridedBatched_64_assumed_rank(handle,transA,m,n,alpha,AP,lda,strideA,x, & - incx,stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasDrot_assumed_rank(handle,n,x,incx,y,incy,c,s) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemvStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrot_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: m - integer(c_int64_t) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(..) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA + integer(c_int) :: n real(c_double),target,dimension(..) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - real(c_double),target :: beta + integer(c_int) :: incx real(c_double),target,dimension(..) :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount + integer(c_int) :: incy + real(c_double),target :: c + real(c_double),target :: s ! - hipblasDgemvStridedBatched_64_assumed_rank = hipblasDgemvStridedBatched_64_(handle,transA,m, & - n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasDrot_assumed_rank = hipblasDrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c), & + c_loc(s)) + end function + + function hipblasDrot_assumed_rank_devptr(handle,n,x,incx,y,incy,c,s) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrot_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + real(c_double),target,dimension(..) :: y + integer(c_int) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + hipblasDrot_assumed_rank_devptr = hipblasDrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) end function #else - function hipblasDgemvStridedBatched_64_rank_0(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasDrot_rank_0(handle,n,x,incx,y,incy,c,s) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemvStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrot_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: m - integer(c_int64_t) :: n - real(c_double),target :: alpha - real(c_double),target :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA + integer(c_int) :: n real(c_double),target :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - real(c_double),target :: beta + integer(c_int) :: incx real(c_double),target :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount + integer(c_int) :: incy + real(c_double),target :: c + real(c_double),target :: s ! - hipblasDgemvStridedBatched_64_rank_0 = hipblasDgemvStridedBatched_64_(handle,transA,m,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasDrot_rank_0 = hipblasDrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c),c_loc(s)) end function - function hipblasDgemvStridedBatched_64_rank_1(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasDrot_rank_0_devptr(handle,n,x,incx,y,incy,c,s) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemvStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrot_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: m - integer(c_int64_t) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA + integer(c_int) :: n + real(c_double),target :: x + integer(c_int) :: incx + real(c_double),target :: y + integer(c_int) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + hipblasDrot_rank_0_devptr = hipblasDrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + end function + + function hipblasDrot_rank_1(handle,n,x,incx,y,incy,c,s) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrot_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n real(c_double),target,dimension(:) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - real(c_double),target :: beta + integer(c_int) :: incx real(c_double),target,dimension(:) :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount + integer(c_int) :: incy + real(c_double),target :: c + real(c_double),target :: s ! - hipblasDgemvStridedBatched_64_rank_1 = hipblasDgemvStridedBatched_64_(handle,transA,m,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasDrot_rank_1 = hipblasDrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c),c_loc(s)) end function - function hipblasDgemvStridedBatched_64_full_rank(handle,transA,m,n,alpha,AP,lda,strideA,x, & - incx,stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasDrot_rank_1_devptr(handle,n,x,incx,y,incy,c,s) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemvStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrot_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: m - integer(c_int64_t) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA + integer(c_int) :: n real(c_double),target,dimension(:) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - real(c_double),target :: beta + integer(c_int) :: incx real(c_double),target,dimension(:) :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount + integer(c_int) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s ! - hipblasDgemvStridedBatched_64_full_rank = hipblasDgemvStridedBatched_64_(handle,transA,m,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasDrot_rank_1_devptr = hipblasDrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCgemvStridedBatched_64_assumed_rank(handle,transA,m,n,alpha,AP,lda,strideA,x, & - incx,stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasCrot_assumed_rank(handle,n,x,incx,y,incy,c,s) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemvStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrot_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: m - integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA + integer(c_int) :: n complex(c_float_complex),target,dimension(..) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - complex(c_float_complex),target :: beta + integer(c_int) :: incx complex(c_float_complex),target,dimension(..) :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount + integer(c_int) :: incy + real(c_float),target :: c + complex(c_float_complex),target :: s ! - hipblasCgemvStridedBatched_64_assumed_rank = hipblasCgemvStridedBatched_64_(handle,transA,m, & - n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasCrot_assumed_rank = hipblasCrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c), & + c_loc(s)) + end function + + function hipblasCrot_assumed_rank_devptr(handle,n,x,incx,y,incy,c,s) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrot_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + hipblasCrot_assumed_rank_devptr = hipblasCrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) end function #else - function hipblasCgemvStridedBatched_64_rank_0(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasCrot_rank_0(handle,n,x,incx,y,incy,c,s) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemvStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrot_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: m - integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA + integer(c_int) :: n complex(c_float_complex),target :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - complex(c_float_complex),target :: beta + integer(c_int) :: incx complex(c_float_complex),target :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount + integer(c_int) :: incy + real(c_float),target :: c + complex(c_float_complex),target :: s ! - hipblasCgemvStridedBatched_64_rank_0 = hipblasCgemvStridedBatched_64_(handle,transA,m,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasCrot_rank_0 = hipblasCrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c),c_loc(s)) end function - function hipblasCgemvStridedBatched_64_rank_1(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasCrot_rank_0_devptr(handle,n,x,incx,y,incy,c,s) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemvStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrot_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: m - integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:) :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount + integer(c_int) :: n + complex(c_float_complex),target :: x + integer(c_int) :: incx + complex(c_float_complex),target :: y + integer(c_int) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s ! - hipblasCgemvStridedBatched_64_rank_1 = hipblasCgemvStridedBatched_64_(handle,transA,m,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasCrot_rank_0_devptr = hipblasCrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) end function - function hipblasCgemvStridedBatched_64_full_rank(handle,transA,m,n,alpha,AP,lda,strideA,x, & - incx,stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasCrot_rank_1(handle,n,x,incx,y,incy,c,s) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemvStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrot_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: m - integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA + integer(c_int) :: n complex(c_float_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - complex(c_float_complex),target :: beta + integer(c_int) :: incx complex(c_float_complex),target,dimension(:) :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount + integer(c_int) :: incy + real(c_float),target :: c + complex(c_float_complex),target :: s ! - hipblasCgemvStridedBatched_64_full_rank = hipblasCgemvStridedBatched_64_(handle,transA,m,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasCrot_rank_1 = hipblasCrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c),c_loc(s)) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZgemvStridedBatched_64_assumed_rank(handle,transA,m,n,alpha,AP,lda,strideA,x, & - incx,stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasCrot_rank_1_devptr(handle,n,x,incx,y,incy,c,s) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemvStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrot_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: m - integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(..) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(..) :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s ! - hipblasZgemvStridedBatched_64_assumed_rank = hipblasZgemvStridedBatched_64_(handle,transA,m, & - n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasCrot_rank_1_devptr = hipblasCrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) end function -#else - function hipblasZgemvStridedBatched_64_rank_0(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCsrot_assumed_rank(handle,n,x,incx,y,incy,c,s) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemvStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrot_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: m - integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - complex(c_double_complex),target :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - complex(c_double_complex),target :: beta - complex(c_double_complex),target :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount + integer(c_int) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + real(c_float),target :: c + real(c_float),target :: s ! - hipblasZgemvStridedBatched_64_rank_0 = hipblasZgemvStridedBatched_64_(handle,transA,m,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasCsrot_assumed_rank = hipblasCsrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c), & + c_loc(s)) end function - function hipblasZgemvStridedBatched_64_rank_1(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasCsrot_assumed_rank_devptr(handle,n,x,incx,y,incy,c,s) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemvStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrot_assumed_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: m - integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:) :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount + integer(c_int) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s ! - hipblasZgemvStridedBatched_64_rank_1 = hipblasZgemvStridedBatched_64_(handle,transA,m,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasCsrot_assumed_rank_devptr = hipblasCsrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) end function - function hipblasZgemvStridedBatched_64_full_rank(handle,transA,m,n,alpha,AP,lda,strideA,x, & - incx,stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding +#else + function hipblasCsrot_rank_0(handle,n,x,incx,y,incy,c,s) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemvStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrot_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: m - integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:) :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount + integer(c_int) :: n + complex(c_float_complex),target :: x + integer(c_int) :: incx + complex(c_float_complex),target :: y + integer(c_int) :: incy + real(c_float),target :: c + real(c_float),target :: s ! - hipblasZgemvStridedBatched_64_full_rank = hipblasZgemvStridedBatched_64_(handle,transA,m,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasCsrot_rank_0 = hipblasCsrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c),c_loc(s)) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasSger_assumed_rank(handle,m,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding + function hipblasCsrot_rank_0_devptr(handle,n,x,incx,y,incy,c,s) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSger_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrot_rank_0_devptr type(c_ptr), value :: handle - integer(c_int) :: m integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(..) :: x + complex(c_float_complex),target :: x integer(c_int) :: incx - real(c_float),target,dimension(..) :: y + complex(c_float_complex),target :: y integer(c_int) :: incy - real(c_float),target,dimension(..) :: AP - integer(c_int) :: lda + type(c_ptr),value :: c + type(c_ptr),value :: s ! - hipblasSger_assumed_rank = hipblasSger_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & - c_loc(AP),lda) + hipblasCsrot_rank_0_devptr = hipblasCsrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) end function -#else - function hipblasSger_rank_0(handle,m,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding + function hipblasCsrot_rank_1(handle,n,x,incx,y,incy,c,s) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSger_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrot_rank_1 type(c_ptr), value :: handle - integer(c_int) :: m integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target :: x + complex(c_float_complex),target,dimension(:) :: x integer(c_int) :: incx - real(c_float),target :: y + complex(c_float_complex),target,dimension(:) :: y integer(c_int) :: incy - real(c_float),target :: AP - integer(c_int) :: lda + real(c_float),target :: c + real(c_float),target :: s ! - hipblasSger_rank_0 = hipblasSger_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & - c_loc(AP),lda) + hipblasCsrot_rank_1 = hipblasCsrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c),c_loc(s)) end function - function hipblasSger_rank_1(handle,m,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding + function hipblasCsrot_rank_1_devptr(handle,n,x,incx,y,incy,c,s) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSger_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrot_rank_1_devptr type(c_ptr), value :: handle - integer(c_int) :: m integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(:) :: x + complex(c_float_complex),target,dimension(:) :: x integer(c_int) :: incx - real(c_float),target,dimension(:) :: y + complex(c_float_complex),target,dimension(:) :: y integer(c_int) :: incy - real(c_float),target,dimension(:) :: AP - integer(c_int) :: lda + type(c_ptr),value :: c + type(c_ptr),value :: s ! - hipblasSger_rank_1 = hipblasSger_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & - c_loc(AP),lda) + hipblasCsrot_rank_1_devptr = hipblasCsrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) end function - function hipblasSger_full_rank(handle,m,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZrot_assumed_rank(handle,n,x,incx,y,incy,c,s) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSger_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrot_assumed_rank type(c_ptr), value :: handle - integer(c_int) :: m integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(:) :: x + complex(c_double_complex),target,dimension(..) :: x integer(c_int) :: incx - real(c_float),target,dimension(:) :: y + complex(c_double_complex),target,dimension(..) :: y integer(c_int) :: incy - real(c_float),target,dimension(:,:) :: AP - integer(c_int) :: lda + real(c_double),target :: c + complex(c_double_complex),target :: s ! - hipblasSger_full_rank = hipblasSger_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & - c_loc(AP),lda) + hipblasZrot_assumed_rank = hipblasZrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c), & + c_loc(s)) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDger_assumed_rank(handle,m,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding + function hipblasZrot_assumed_rank_devptr(handle,n,x,incx,y,incy,c,s) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDger_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrot_assumed_rank_devptr type(c_ptr), value :: handle - integer(c_int) :: m integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(..) :: x + complex(c_double_complex),target,dimension(..) :: x integer(c_int) :: incx - real(c_double),target,dimension(..) :: y + complex(c_double_complex),target,dimension(..) :: y integer(c_int) :: incy - real(c_double),target,dimension(..) :: AP - integer(c_int) :: lda + type(c_ptr),value :: c + type(c_ptr),value :: s ! - hipblasDger_assumed_rank = hipblasDger_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & - c_loc(AP),lda) + hipblasZrot_assumed_rank_devptr = hipblasZrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) end function #else - function hipblasDger_rank_0(handle,m,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding + function hipblasZrot_rank_0(handle,n,x,incx,y,incy,c,s) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDger_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrot_rank_0 type(c_ptr), value :: handle - integer(c_int) :: m integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target :: x - integer(c_int) :: incx - real(c_double),target :: y - integer(c_int) :: incy - real(c_double),target :: AP - integer(c_int) :: lda - ! - hipblasDger_rank_0 = hipblasDger_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & - c_loc(AP),lda) - end function - - function hipblasDger_rank_1(handle,m,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDger_rank_1 - type(c_ptr), value :: handle - integer(c_int) :: m - integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(:) :: x - integer(c_int) :: incx - real(c_double),target,dimension(:) :: y - integer(c_int) :: incy - real(c_double),target,dimension(:) :: AP - integer(c_int) :: lda - ! - hipblasDger_rank_1 = hipblasDger_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & - c_loc(AP),lda) - end function - - function hipblasDger_full_rank(handle,m,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDger_full_rank - type(c_ptr), value :: handle - integer(c_int) :: m - integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(:) :: x - integer(c_int) :: incx - real(c_double),target,dimension(:) :: y - integer(c_int) :: incy - real(c_double),target,dimension(:,:) :: AP - integer(c_int) :: lda - ! - hipblasDger_full_rank = hipblasDger_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & - c_loc(AP),lda) - end function - -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCgeru_assumed_rank(handle,m,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeru_assumed_rank - type(c_ptr), value :: handle - integer(c_int) :: m - integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: x + complex(c_double_complex),target :: x integer(c_int) :: incx - complex(c_float_complex),target,dimension(..) :: y + complex(c_double_complex),target :: y integer(c_int) :: incy - complex(c_float_complex),target,dimension(..) :: AP - integer(c_int) :: lda + real(c_double),target :: c + complex(c_double_complex),target :: s ! - hipblasCgeru_assumed_rank = hipblasCgeru_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & - incy,c_loc(AP),lda) + hipblasZrot_rank_0 = hipblasZrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c),c_loc(s)) end function -#else - function hipblasCgeru_rank_0(handle,m,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding + function hipblasZrot_rank_0_devptr(handle,n,x,incx,y,incy,c,s) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeru_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrot_rank_0_devptr type(c_ptr), value :: handle - integer(c_int) :: m integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: x + complex(c_double_complex),target :: x integer(c_int) :: incx - complex(c_float_complex),target :: y + complex(c_double_complex),target :: y integer(c_int) :: incy - complex(c_float_complex),target :: AP - integer(c_int) :: lda + type(c_ptr),value :: c + type(c_ptr),value :: s ! - hipblasCgeru_rank_0 = hipblasCgeru_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & - c_loc(AP),lda) + hipblasZrot_rank_0_devptr = hipblasZrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) end function - function hipblasCgeru_rank_1(handle,m,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding + function hipblasZrot_rank_1(handle,n,x,incx,y,incy,c,s) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeru_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrot_rank_1 type(c_ptr), value :: handle - integer(c_int) :: m integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: x + complex(c_double_complex),target,dimension(:) :: x integer(c_int) :: incx - complex(c_float_complex),target,dimension(:) :: y + complex(c_double_complex),target,dimension(:) :: y integer(c_int) :: incy - complex(c_float_complex),target,dimension(:) :: AP - integer(c_int) :: lda + real(c_double),target :: c + complex(c_double_complex),target :: s ! - hipblasCgeru_rank_1 = hipblasCgeru_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & - c_loc(AP),lda) + hipblasZrot_rank_1 = hipblasZrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c),c_loc(s)) end function - function hipblasCgeru_full_rank(handle,m,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding + function hipblasZrot_rank_1_devptr(handle,n,x,incx,y,incy,c,s) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeru_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrot_rank_1_devptr type(c_ptr), value :: handle - integer(c_int) :: m integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: x + complex(c_double_complex),target,dimension(:) :: x integer(c_int) :: incx - complex(c_float_complex),target,dimension(:) :: y + complex(c_double_complex),target,dimension(:) :: y integer(c_int) :: incy - complex(c_float_complex),target,dimension(:,:) :: AP - integer(c_int) :: lda + type(c_ptr),value :: c + type(c_ptr),value :: s ! - hipblasCgeru_full_rank = hipblasCgeru_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & - c_loc(AP),lda) + hipblasZrot_rank_1_devptr = hipblasZrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCgerc_assumed_rank(handle,m,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgerc_assumed_rank - type(c_ptr), value :: handle - integer(c_int) :: m - integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: x - integer(c_int) :: incx - complex(c_float_complex),target,dimension(..) :: y - integer(c_int) :: incy - complex(c_float_complex),target,dimension(..) :: AP - integer(c_int) :: lda - ! - hipblasCgerc_assumed_rank = hipblasCgerc_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & - incy,c_loc(AP),lda) - end function - -#else - function hipblasCgerc_rank_0(handle,m,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgerc_rank_0 - type(c_ptr), value :: handle - integer(c_int) :: m - integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: x - integer(c_int) :: incx - complex(c_float_complex),target :: y - integer(c_int) :: incy - complex(c_float_complex),target :: AP - integer(c_int) :: lda - ! - hipblasCgerc_rank_0 = hipblasCgerc_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & - c_loc(AP),lda) - end function - - function hipblasCgerc_rank_1(handle,m,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding + function hipblasZdrot_assumed_rank(handle,n,x,incx,y,incy,c,s) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgerc_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrot_assumed_rank type(c_ptr), value :: handle - integer(c_int) :: m integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: x + complex(c_double_complex),target,dimension(..) :: x integer(c_int) :: incx - complex(c_float_complex),target,dimension(:) :: y + complex(c_double_complex),target,dimension(..) :: y integer(c_int) :: incy - complex(c_float_complex),target,dimension(:) :: AP - integer(c_int) :: lda + real(c_double),target :: c + real(c_double),target :: s ! - hipblasCgerc_rank_1 = hipblasCgerc_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & - c_loc(AP),lda) + hipblasZdrot_assumed_rank = hipblasZdrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c), & + c_loc(s)) end function - function hipblasCgerc_full_rank(handle,m,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding + function hipblasZdrot_assumed_rank_devptr(handle,n,x,incx,y,incy,c,s) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgerc_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrot_assumed_rank_devptr type(c_ptr), value :: handle - integer(c_int) :: m integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: x + complex(c_double_complex),target,dimension(..) :: x integer(c_int) :: incx - complex(c_float_complex),target,dimension(:) :: y + complex(c_double_complex),target,dimension(..) :: y integer(c_int) :: incy - complex(c_float_complex),target,dimension(:,:) :: AP - integer(c_int) :: lda + type(c_ptr),value :: c + type(c_ptr),value :: s ! - hipblasCgerc_full_rank = hipblasCgerc_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & - c_loc(AP),lda) + hipblasZdrot_assumed_rank_devptr = hipblasZdrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZgeru_assumed_rank(handle,m,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding +#else + function hipblasZdrot_rank_0(handle,n,x,incx,y,incy,c,s) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeru_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrot_rank_0 type(c_ptr), value :: handle - integer(c_int) :: m integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: x + complex(c_double_complex),target :: x integer(c_int) :: incx - complex(c_double_complex),target,dimension(..) :: y + complex(c_double_complex),target :: y integer(c_int) :: incy - complex(c_double_complex),target,dimension(..) :: AP - integer(c_int) :: lda + real(c_double),target :: c + real(c_double),target :: s ! - hipblasZgeru_assumed_rank = hipblasZgeru_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & - incy,c_loc(AP),lda) + hipblasZdrot_rank_0 = hipblasZdrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c),c_loc(s)) end function -#else - function hipblasZgeru_rank_0(handle,m,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding + function hipblasZdrot_rank_0_devptr(handle,n,x,incx,y,incy,c,s) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeru_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrot_rank_0_devptr type(c_ptr), value :: handle - integer(c_int) :: m integer(c_int) :: n - complex(c_double_complex),target :: alpha complex(c_double_complex),target :: x integer(c_int) :: incx complex(c_double_complex),target :: y integer(c_int) :: incy - complex(c_double_complex),target :: AP - integer(c_int) :: lda + type(c_ptr),value :: c + type(c_ptr),value :: s ! - hipblasZgeru_rank_0 = hipblasZgeru_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & - c_loc(AP),lda) + hipblasZdrot_rank_0_devptr = hipblasZdrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) end function - function hipblasZgeru_rank_1(handle,m,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding + function hipblasZdrot_rank_1(handle,n,x,incx,y,incy,c,s) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeru_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrot_rank_1 type(c_ptr), value :: handle - integer(c_int) :: m integer(c_int) :: n - complex(c_double_complex),target :: alpha complex(c_double_complex),target,dimension(:) :: x integer(c_int) :: incx complex(c_double_complex),target,dimension(:) :: y integer(c_int) :: incy - complex(c_double_complex),target,dimension(:) :: AP - integer(c_int) :: lda + real(c_double),target :: c + real(c_double),target :: s ! - hipblasZgeru_rank_1 = hipblasZgeru_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & - c_loc(AP),lda) + hipblasZdrot_rank_1 = hipblasZdrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c),c_loc(s)) end function - function hipblasZgeru_full_rank(handle,m,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding + function hipblasZdrot_rank_1_devptr(handle,n,x,incx,y,incy,c,s) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeru_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrot_rank_1_devptr type(c_ptr), value :: handle - integer(c_int) :: m integer(c_int) :: n - complex(c_double_complex),target :: alpha complex(c_double_complex),target,dimension(:) :: x integer(c_int) :: incx complex(c_double_complex),target,dimension(:) :: y integer(c_int) :: incy - complex(c_double_complex),target,dimension(:,:) :: AP - integer(c_int) :: lda + type(c_ptr),value :: c + type(c_ptr),value :: s ! - hipblasZgeru_full_rank = hipblasZgeru_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & - c_loc(AP),lda) + hipblasZdrot_rank_1_devptr = hipblasZdrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasZgerc_assumed_rank(handle,m,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgerc_assumed_rank - type(c_ptr), value :: handle - integer(c_int) :: m - integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: x - integer(c_int) :: incx - complex(c_double_complex),target,dimension(..) :: y - integer(c_int) :: incy - complex(c_double_complex),target,dimension(..) :: AP - integer(c_int) :: lda - ! - hipblasZgerc_assumed_rank = hipblasZgerc_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & - incy,c_loc(AP),lda) - end function - -#else - function hipblasZgerc_rank_0(handle,m,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgerc_rank_0 - type(c_ptr), value :: handle - integer(c_int) :: m - integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: x - integer(c_int) :: incx - complex(c_double_complex),target :: y - integer(c_int) :: incy - complex(c_double_complex),target :: AP - integer(c_int) :: lda - ! - hipblasZgerc_rank_0 = hipblasZgerc_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & - c_loc(AP),lda) - end function - - function hipblasZgerc_rank_1(handle,m,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding + function hipblasSrot_64_assumed_rank(handle,n,x,incx,y,incy,c,s) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgerc_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrot_64_assumed_rank type(c_ptr), value :: handle - integer(c_int) :: m - integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: x - integer(c_int) :: incx - complex(c_double_complex),target,dimension(:) :: y - integer(c_int) :: incy - complex(c_double_complex),target,dimension(:) :: AP - integer(c_int) :: lda + integer(c_int64_t) :: n + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy + real(c_float),target :: c + real(c_float),target :: s ! - hipblasZgerc_rank_1 = hipblasZgerc_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & - c_loc(AP),lda) + hipblasSrot_64_assumed_rank = hipblasSrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c), & + c_loc(s)) end function - function hipblasZgerc_full_rank(handle,m,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding + function hipblasSrot_64_assumed_rank_devptr(handle,n,x,incx,y,incy,c,s) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgerc_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrot_64_assumed_rank_devptr type(c_ptr), value :: handle - integer(c_int) :: m - integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: x - integer(c_int) :: incx - complex(c_double_complex),target,dimension(:) :: y - integer(c_int) :: incy - complex(c_double_complex),target,dimension(:,:) :: AP - integer(c_int) :: lda + integer(c_int64_t) :: n + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s ! - hipblasZgerc_full_rank = hipblasZgerc_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & - c_loc(AP),lda) + hipblasSrot_64_assumed_rank_devptr = hipblasSrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasSger_64_assumed_rank(handle,m,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding +#else + function hipblasSrot_64_rank_0(handle,n,x,incx,y,incy,c,s) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSger_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrot_64_rank_0 type(c_ptr), value :: handle - integer(c_int64_t) :: m integer(c_int64_t) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(..) :: x + real(c_float),target :: x integer(c_int64_t) :: incx - real(c_float),target,dimension(..) :: y + real(c_float),target :: y integer(c_int64_t) :: incy - real(c_float),target,dimension(..) :: AP - integer(c_int64_t) :: lda + real(c_float),target :: c + real(c_float),target :: s ! - hipblasSger_64_assumed_rank = hipblasSger_64_(handle,m,n,c_loc(alpha),c_loc(x),incx, & - c_loc(y),incy,c_loc(AP),lda) + hipblasSrot_64_rank_0 = hipblasSrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c), & + c_loc(s)) end function -#else - function hipblasSger_64_rank_0(handle,m,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding + function hipblasSrot_64_rank_0_devptr(handle,n,x,incx,y,incy,c,s) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSger_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrot_64_rank_0_devptr type(c_ptr), value :: handle - integer(c_int64_t) :: m integer(c_int64_t) :: n - real(c_float),target :: alpha real(c_float),target :: x integer(c_int64_t) :: incx real(c_float),target :: y integer(c_int64_t) :: incy - real(c_float),target :: AP - integer(c_int64_t) :: lda + type(c_ptr),value :: c + type(c_ptr),value :: s ! - hipblasSger_64_rank_0 = hipblasSger_64_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & - c_loc(AP),lda) + hipblasSrot_64_rank_0_devptr = hipblasSrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) end function - function hipblasSger_64_rank_1(handle,m,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding + function hipblasSrot_64_rank_1(handle,n,x,incx,y,incy,c,s) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSger_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrot_64_rank_1 type(c_ptr), value :: handle - integer(c_int64_t) :: m integer(c_int64_t) :: n - real(c_float),target :: alpha real(c_float),target,dimension(:) :: x integer(c_int64_t) :: incx real(c_float),target,dimension(:) :: y integer(c_int64_t) :: incy - real(c_float),target,dimension(:) :: AP - integer(c_int64_t) :: lda + real(c_float),target :: c + real(c_float),target :: s ! - hipblasSger_64_rank_1 = hipblasSger_64_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & - c_loc(AP),lda) + hipblasSrot_64_rank_1 = hipblasSrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c), & + c_loc(s)) end function - function hipblasSger_64_full_rank(handle,m,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding + function hipblasSrot_64_rank_1_devptr(handle,n,x,incx,y,incy,c,s) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSger_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrot_64_rank_1_devptr type(c_ptr), value :: handle - integer(c_int64_t) :: m integer(c_int64_t) :: n - real(c_float),target :: alpha real(c_float),target,dimension(:) :: x integer(c_int64_t) :: incx real(c_float),target,dimension(:) :: y integer(c_int64_t) :: incy - real(c_float),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda + type(c_ptr),value :: c + type(c_ptr),value :: s ! - hipblasSger_64_full_rank = hipblasSger_64_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & - incy,c_loc(AP),lda) + hipblasSrot_64_rank_1_devptr = hipblasSrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasDger_64_assumed_rank(handle,m,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding + function hipblasDrot_64_assumed_rank(handle,n,x,incx,y,incy,c,s) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDger_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrot_64_assumed_rank type(c_ptr), value :: handle - integer(c_int64_t) :: m integer(c_int64_t) :: n - real(c_double),target :: alpha real(c_double),target,dimension(..) :: x integer(c_int64_t) :: incx real(c_double),target,dimension(..) :: y integer(c_int64_t) :: incy - real(c_double),target,dimension(..) :: AP - integer(c_int64_t) :: lda + real(c_double),target :: c + real(c_double),target :: s ! - hipblasDger_64_assumed_rank = hipblasDger_64_(handle,m,n,c_loc(alpha),c_loc(x),incx, & - c_loc(y),incy,c_loc(AP),lda) + hipblasDrot_64_assumed_rank = hipblasDrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c), & + c_loc(s)) + end function + + function hipblasDrot_64_assumed_rank_devptr(handle,n,x,incx,y,incy,c,s) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrot_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + hipblasDrot_64_assumed_rank_devptr = hipblasDrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) end function #else - function hipblasDger_64_rank_0(handle,m,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding + function hipblasDrot_64_rank_0(handle,n,x,incx,y,incy,c,s) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDger_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrot_64_rank_0 type(c_ptr), value :: handle - integer(c_int64_t) :: m integer(c_int64_t) :: n - real(c_double),target :: alpha real(c_double),target :: x integer(c_int64_t) :: incx real(c_double),target :: y integer(c_int64_t) :: incy - real(c_double),target :: AP - integer(c_int64_t) :: lda + real(c_double),target :: c + real(c_double),target :: s ! - hipblasDger_64_rank_0 = hipblasDger_64_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & - c_loc(AP),lda) + hipblasDrot_64_rank_0 = hipblasDrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c), & + c_loc(s)) end function - function hipblasDger_64_rank_1(handle,m,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding + function hipblasDrot_64_rank_0_devptr(handle,n,x,incx,y,incy,c,s) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDger_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrot_64_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target :: x + integer(c_int64_t) :: incx + real(c_double),target :: y + integer(c_int64_t) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + hipblasDrot_64_rank_0_devptr = hipblasDrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + end function + + function hipblasDrot_64_rank_1(handle,n,x,incx,y,incy,c,s) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrot_64_rank_1 type(c_ptr), value :: handle - integer(c_int64_t) :: m integer(c_int64_t) :: n - real(c_double),target :: alpha real(c_double),target,dimension(:) :: x integer(c_int64_t) :: incx real(c_double),target,dimension(:) :: y integer(c_int64_t) :: incy - real(c_double),target,dimension(:) :: AP - integer(c_int64_t) :: lda + real(c_double),target :: c + real(c_double),target :: s ! - hipblasDger_64_rank_1 = hipblasDger_64_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & - c_loc(AP),lda) + hipblasDrot_64_rank_1 = hipblasDrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c), & + c_loc(s)) end function - function hipblasDger_64_full_rank(handle,m,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding + function hipblasDrot_64_rank_1_devptr(handle,n,x,incx,y,incy,c,s) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDger_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrot_64_rank_1_devptr type(c_ptr), value :: handle - integer(c_int64_t) :: m integer(c_int64_t) :: n - real(c_double),target :: alpha real(c_double),target,dimension(:) :: x integer(c_int64_t) :: incx real(c_double),target,dimension(:) :: y integer(c_int64_t) :: incy - real(c_double),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda + type(c_ptr),value :: c + type(c_ptr),value :: s ! - hipblasDger_64_full_rank = hipblasDger_64_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & - incy,c_loc(AP),lda) + hipblasDrot_64_rank_1_devptr = hipblasDrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCgeru_64_assumed_rank(handle,m,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding + function hipblasCrot_64_assumed_rank(handle,n,x,incx,y,incy,c,s) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeru_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrot_64_assumed_rank type(c_ptr), value :: handle - integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha complex(c_float_complex),target,dimension(..) :: x integer(c_int64_t) :: incx complex(c_float_complex),target,dimension(..) :: y integer(c_int64_t) :: incy - complex(c_float_complex),target,dimension(..) :: AP - integer(c_int64_t) :: lda + real(c_float),target :: c + complex(c_float_complex),target :: s ! - hipblasCgeru_64_assumed_rank = hipblasCgeru_64_(handle,m,n,c_loc(alpha),c_loc(x),incx, & - c_loc(y),incy,c_loc(AP),lda) + hipblasCrot_64_assumed_rank = hipblasCrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c), & + c_loc(s)) end function -#else - function hipblasCgeru_64_rank_0(handle,m,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding + function hipblasCrot_64_assumed_rank_devptr(handle,n,x,incx,y,incy,c,s) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeru_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrot_64_assumed_rank_devptr type(c_ptr), value :: handle - integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: x + complex(c_float_complex),target,dimension(..) :: x integer(c_int64_t) :: incx - complex(c_float_complex),target :: y + complex(c_float_complex),target,dimension(..) :: y integer(c_int64_t) :: incy - complex(c_float_complex),target :: AP - integer(c_int64_t) :: lda + type(c_ptr),value :: c + type(c_ptr),value :: s ! - hipblasCgeru_64_rank_0 = hipblasCgeru_64_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & - incy,c_loc(AP),lda) + hipblasCrot_64_assumed_rank_devptr = hipblasCrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) end function - function hipblasCgeru_64_rank_1(handle,m,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding +#else + function hipblasCrot_64_rank_0(handle,n,x,incx,y,incy,c,s) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeru_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrot_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + real(c_float),target :: c + complex(c_float_complex),target :: s + ! + hipblasCrot_64_rank_0 = hipblasCrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c), & + c_loc(s)) + end function + + function hipblasCrot_64_rank_0_devptr(handle,n,x,incx,y,incy,c,s) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrot_64_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + hipblasCrot_64_rank_0_devptr = hipblasCrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + end function + + function hipblasCrot_64_rank_1(handle,n,x,incx,y,incy,c,s) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrot_64_rank_1 type(c_ptr), value :: handle - integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha complex(c_float_complex),target,dimension(:) :: x integer(c_int64_t) :: incx complex(c_float_complex),target,dimension(:) :: y integer(c_int64_t) :: incy - complex(c_float_complex),target,dimension(:) :: AP - integer(c_int64_t) :: lda + real(c_float),target :: c + complex(c_float_complex),target :: s ! - hipblasCgeru_64_rank_1 = hipblasCgeru_64_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & - incy,c_loc(AP),lda) + hipblasCrot_64_rank_1 = hipblasCrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c), & + c_loc(s)) end function - function hipblasCgeru_64_full_rank(handle,m,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding + function hipblasCrot_64_rank_1_devptr(handle,n,x,incx,y,incy,c,s) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeru_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrot_64_rank_1_devptr type(c_ptr), value :: handle - integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha complex(c_float_complex),target,dimension(:) :: x integer(c_int64_t) :: incx complex(c_float_complex),target,dimension(:) :: y integer(c_int64_t) :: incy - complex(c_float_complex),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda + type(c_ptr),value :: c + type(c_ptr),value :: s ! - hipblasCgeru_64_full_rank = hipblasCgeru_64_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & - incy,c_loc(AP),lda) + hipblasCrot_64_rank_1_devptr = hipblasCrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCgerc_64_assumed_rank(handle,m,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding + function hipblasCsrot_64_assumed_rank(handle,n,x,incx,y,incy,c,s) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgerc_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrot_64_assumed_rank type(c_ptr), value :: handle - integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha complex(c_float_complex),target,dimension(..) :: x integer(c_int64_t) :: incx complex(c_float_complex),target,dimension(..) :: y integer(c_int64_t) :: incy - complex(c_float_complex),target,dimension(..) :: AP - integer(c_int64_t) :: lda + real(c_float),target :: c + real(c_float),target :: s ! - hipblasCgerc_64_assumed_rank = hipblasCgerc_64_(handle,m,n,c_loc(alpha),c_loc(x),incx, & - c_loc(y),incy,c_loc(AP),lda) + hipblasCsrot_64_assumed_rank = hipblasCsrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + c_loc(c),c_loc(s)) + end function + + function hipblasCsrot_64_assumed_rank_devptr(handle,n,x,incx,y,incy,c,s) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrot_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + hipblasCsrot_64_assumed_rank_devptr = hipblasCsrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + c,s) end function #else - function hipblasCgerc_64_rank_0(handle,m,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding + function hipblasCsrot_64_rank_0(handle,n,x,incx,y,incy,c,s) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgerc_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrot_64_rank_0 type(c_ptr), value :: handle - integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha complex(c_float_complex),target :: x integer(c_int64_t) :: incx complex(c_float_complex),target :: y integer(c_int64_t) :: incy - complex(c_float_complex),target :: AP - integer(c_int64_t) :: lda + real(c_float),target :: c + real(c_float),target :: s ! - hipblasCgerc_64_rank_0 = hipblasCgerc_64_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & - incy,c_loc(AP),lda) + hipblasCsrot_64_rank_0 = hipblasCsrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c), & + c_loc(s)) end function - function hipblasCgerc_64_rank_1(handle,m,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding + function hipblasCsrot_64_rank_0_devptr(handle,n,x,incx,y,incy,c,s) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgerc_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrot_64_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + hipblasCsrot_64_rank_0_devptr = hipblasCsrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + end function + + function hipblasCsrot_64_rank_1(handle,n,x,incx,y,incy,c,s) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrot_64_rank_1 type(c_ptr), value :: handle - integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha complex(c_float_complex),target,dimension(:) :: x integer(c_int64_t) :: incx complex(c_float_complex),target,dimension(:) :: y integer(c_int64_t) :: incy - complex(c_float_complex),target,dimension(:) :: AP - integer(c_int64_t) :: lda + real(c_float),target :: c + real(c_float),target :: s ! - hipblasCgerc_64_rank_1 = hipblasCgerc_64_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & - incy,c_loc(AP),lda) + hipblasCsrot_64_rank_1 = hipblasCsrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c), & + c_loc(s)) end function - function hipblasCgerc_64_full_rank(handle,m,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding + function hipblasCsrot_64_rank_1_devptr(handle,n,x,incx,y,incy,c,s) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgerc_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrot_64_rank_1_devptr type(c_ptr), value :: handle - integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha complex(c_float_complex),target,dimension(:) :: x integer(c_int64_t) :: incx complex(c_float_complex),target,dimension(:) :: y integer(c_int64_t) :: incy - complex(c_float_complex),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda + type(c_ptr),value :: c + type(c_ptr),value :: s ! - hipblasCgerc_64_full_rank = hipblasCgerc_64_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & - incy,c_loc(AP),lda) + hipblasCsrot_64_rank_1_devptr = hipblasCsrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasZgeru_64_assumed_rank(handle,m,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding + function hipblasZrot_64_assumed_rank(handle,n,x,incx,y,incy,c,s) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeru_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrot_64_assumed_rank type(c_ptr), value :: handle - integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha complex(c_double_complex),target,dimension(..) :: x integer(c_int64_t) :: incx complex(c_double_complex),target,dimension(..) :: y integer(c_int64_t) :: incy - complex(c_double_complex),target,dimension(..) :: AP - integer(c_int64_t) :: lda + real(c_double),target :: c + complex(c_double_complex),target :: s ! - hipblasZgeru_64_assumed_rank = hipblasZgeru_64_(handle,m,n,c_loc(alpha),c_loc(x),incx, & - c_loc(y),incy,c_loc(AP),lda) + hipblasZrot_64_assumed_rank = hipblasZrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c), & + c_loc(s)) + end function + + function hipblasZrot_64_assumed_rank_devptr(handle,n,x,incx,y,incy,c,s) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrot_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + hipblasZrot_64_assumed_rank_devptr = hipblasZrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) end function #else - function hipblasZgeru_64_rank_0(handle,m,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding + function hipblasZrot_64_rank_0(handle,n,x,incx,y,incy,c,s) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeru_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrot_64_rank_0 type(c_ptr), value :: handle - integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha complex(c_double_complex),target :: x integer(c_int64_t) :: incx complex(c_double_complex),target :: y integer(c_int64_t) :: incy - complex(c_double_complex),target :: AP - integer(c_int64_t) :: lda + real(c_double),target :: c + complex(c_double_complex),target :: s ! - hipblasZgeru_64_rank_0 = hipblasZgeru_64_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & - incy,c_loc(AP),lda) + hipblasZrot_64_rank_0 = hipblasZrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c), & + c_loc(s)) end function - function hipblasZgeru_64_rank_1(handle,m,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding + function hipblasZrot_64_rank_0_devptr(handle,n,x,incx,y,incy,c,s) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeru_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrot_64_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + hipblasZrot_64_rank_0_devptr = hipblasZrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + end function + + function hipblasZrot_64_rank_1(handle,n,x,incx,y,incy,c,s) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrot_64_rank_1 type(c_ptr), value :: handle - integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha complex(c_double_complex),target,dimension(:) :: x integer(c_int64_t) :: incx complex(c_double_complex),target,dimension(:) :: y integer(c_int64_t) :: incy - complex(c_double_complex),target,dimension(:) :: AP - integer(c_int64_t) :: lda + real(c_double),target :: c + complex(c_double_complex),target :: s ! - hipblasZgeru_64_rank_1 = hipblasZgeru_64_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & - incy,c_loc(AP),lda) + hipblasZrot_64_rank_1 = hipblasZrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c), & + c_loc(s)) end function - function hipblasZgeru_64_full_rank(handle,m,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding + function hipblasZrot_64_rank_1_devptr(handle,n,x,incx,y,incy,c,s) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeru_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrot_64_rank_1_devptr type(c_ptr), value :: handle - integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha complex(c_double_complex),target,dimension(:) :: x integer(c_int64_t) :: incx complex(c_double_complex),target,dimension(:) :: y integer(c_int64_t) :: incy - complex(c_double_complex),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda + type(c_ptr),value :: c + type(c_ptr),value :: s ! - hipblasZgeru_64_full_rank = hipblasZgeru_64_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & - incy,c_loc(AP),lda) + hipblasZrot_64_rank_1_devptr = hipblasZrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasZgerc_64_assumed_rank(handle,m,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding + function hipblasZdrot_64_assumed_rank(handle,n,x,incx,y,incy,c,s) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgerc_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrot_64_assumed_rank type(c_ptr), value :: handle - integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha complex(c_double_complex),target,dimension(..) :: x integer(c_int64_t) :: incx complex(c_double_complex),target,dimension(..) :: y integer(c_int64_t) :: incy - complex(c_double_complex),target,dimension(..) :: AP - integer(c_int64_t) :: lda + real(c_double),target :: c + real(c_double),target :: s ! - hipblasZgerc_64_assumed_rank = hipblasZgerc_64_(handle,m,n,c_loc(alpha),c_loc(x),incx, & - c_loc(y),incy,c_loc(AP),lda) + hipblasZdrot_64_assumed_rank = hipblasZdrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + c_loc(c),c_loc(s)) + end function + + function hipblasZdrot_64_assumed_rank_devptr(handle,n,x,incx,y,incy,c,s) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrot_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + hipblasZdrot_64_assumed_rank_devptr = hipblasZdrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + c,s) end function #else - function hipblasZgerc_64_rank_0(handle,m,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding + function hipblasZdrot_64_rank_0(handle,n,x,incx,y,incy,c,s) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgerc_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrot_64_rank_0 type(c_ptr), value :: handle - integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha complex(c_double_complex),target :: x integer(c_int64_t) :: incx complex(c_double_complex),target :: y integer(c_int64_t) :: incy - complex(c_double_complex),target :: AP - integer(c_int64_t) :: lda + real(c_double),target :: c + real(c_double),target :: s ! - hipblasZgerc_64_rank_0 = hipblasZgerc_64_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & - incy,c_loc(AP),lda) + hipblasZdrot_64_rank_0 = hipblasZdrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c), & + c_loc(s)) end function - function hipblasZgerc_64_rank_1(handle,m,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding + function hipblasZdrot_64_rank_0_devptr(handle,n,x,incx,y,incy,c,s) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgerc_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrot_64_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + hipblasZdrot_64_rank_0_devptr = hipblasZdrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + end function + + function hipblasZdrot_64_rank_1(handle,n,x,incx,y,incy,c,s) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrot_64_rank_1 type(c_ptr), value :: handle - integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha complex(c_double_complex),target,dimension(:) :: x integer(c_int64_t) :: incx complex(c_double_complex),target,dimension(:) :: y integer(c_int64_t) :: incy - complex(c_double_complex),target,dimension(:) :: AP - integer(c_int64_t) :: lda + real(c_double),target :: c + real(c_double),target :: s ! - hipblasZgerc_64_rank_1 = hipblasZgerc_64_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & - incy,c_loc(AP),lda) + hipblasZdrot_64_rank_1 = hipblasZdrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c), & + c_loc(s)) end function - function hipblasZgerc_64_full_rank(handle,m,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding + function hipblasZdrot_64_rank_1_devptr(handle,n,x,incx,y,incy,c,s) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgerc_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrot_64_rank_1_devptr type(c_ptr), value :: handle - integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha complex(c_double_complex),target,dimension(:) :: x integer(c_int64_t) :: incx complex(c_double_complex),target,dimension(:) :: y integer(c_int64_t) :: incy - complex(c_double_complex),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda + type(c_ptr),value :: c + type(c_ptr),value :: s ! - hipblasZgerc_64_full_rank = hipblasZgerc_64_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & - incy,c_loc(AP),lda) + hipblasZdrot_64_rank_1_devptr = hipblasZdrot_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasSgerStridedBatched_assumed_rank(handle,m,n,alpha,x,incx,stridex,y,incy, & - stridey,AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasSrotStridedBatched_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgerStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotStridedBatched_assumed_rank type(c_ptr), value :: handle - integer(c_int) :: m integer(c_int) :: n - real(c_float),target :: alpha real(c_float),target,dimension(..) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex real(c_float),target,dimension(..) :: y integer(c_int) :: incy integer(c_int64_t) :: stridey - real(c_float),target,dimension(..) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA + real(c_float),target :: c + real(c_float),target :: s integer(c_int) :: batchCount ! - hipblasSgerStridedBatched_assumed_rank = hipblasSgerStridedBatched_(handle,m,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasSrotStridedBatched_assumed_rank = hipblasSrotStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,c_loc(c),c_loc(s),batchCount) end function -#else - function hipblasSgerStridedBatched_rank_0(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP, & - lda,strideA,batchCount) - use iso_c_binding + function hipblasSrotStridedBatched_assumed_rank_devptr(handle,n,x,incx,stridex,y,incy,stridey, & + c,s,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgerStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotStridedBatched_assumed_rank_devptr type(c_ptr), value :: handle - integer(c_int) :: m integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target :: x + real(c_float),target,dimension(..) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - real(c_float),target :: y + real(c_float),target,dimension(..) :: y integer(c_int) :: incy integer(c_int64_t) :: stridey - real(c_float),target :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA + type(c_ptr),value :: c + type(c_ptr),value :: s integer(c_int) :: batchCount ! - hipblasSgerStridedBatched_rank_0 = hipblasSgerStridedBatched_(handle,m,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasSrotStridedBatched_assumed_rank_devptr = hipblasSrotStridedBatched_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c,s,batchCount) end function - function hipblasSgerStridedBatched_rank_1(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP, & - lda,strideA,batchCount) - use iso_c_binding +#else + function hipblasSrotStridedBatched_rank_0(handle,n,x,incx,stridex,y,incy,stridey,c,s,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgerStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotStridedBatched_rank_0 type(c_ptr), value :: handle - integer(c_int) :: m integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(:) :: x + real(c_float),target :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - real(c_float),target,dimension(:) :: y + real(c_float),target :: y integer(c_int) :: incy integer(c_int64_t) :: stridey - real(c_float),target,dimension(:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA + real(c_float),target :: c + real(c_float),target :: s integer(c_int) :: batchCount ! - hipblasSgerStridedBatched_rank_1 = hipblasSgerStridedBatched_(handle,m,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasSrotStridedBatched_rank_0 = hipblasSrotStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,c_loc(c),c_loc(s),batchCount) end function - function hipblasSgerStridedBatched_full_rank(handle,m,n,alpha,x,incx,stridex,y,incy,stridey, & - AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasSrotStridedBatched_rank_0_devptr(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgerStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotStridedBatched_rank_0_devptr type(c_ptr), value :: handle - integer(c_int) :: m integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(:) :: x + real(c_float),target :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - real(c_float),target,dimension(:) :: y + real(c_float),target :: y integer(c_int) :: incy integer(c_int64_t) :: stridey - real(c_float),target,dimension(:,:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA + type(c_ptr),value :: c + type(c_ptr),value :: s integer(c_int) :: batchCount ! - hipblasSgerStridedBatched_full_rank = hipblasSgerStridedBatched_(handle,m,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasSrotStridedBatched_rank_0_devptr = hipblasSrotStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,c,s,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDgerStridedBatched_assumed_rank(handle,m,n,alpha,x,incx,stridex,y,incy, & - stridey,AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasSrotStridedBatched_rank_1(handle,n,x,incx,stridex,y,incy,stridey,c,s,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgerStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotStridedBatched_rank_1 type(c_ptr), value :: handle - integer(c_int) :: m integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(..) :: x + real(c_float),target,dimension(:) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - real(c_double),target,dimension(..) :: y + real(c_float),target,dimension(:) :: y integer(c_int) :: incy integer(c_int64_t) :: stridey - real(c_double),target,dimension(..) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA + real(c_float),target :: c + real(c_float),target :: s integer(c_int) :: batchCount ! - hipblasDgerStridedBatched_assumed_rank = hipblasDgerStridedBatched_(handle,m,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasSrotStridedBatched_rank_1 = hipblasSrotStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,c_loc(c),c_loc(s),batchCount) end function -#else - function hipblasDgerStridedBatched_rank_0(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP, & - lda,strideA,batchCount) - use iso_c_binding + function hipblasSrotStridedBatched_rank_1_devptr(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgerStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotStridedBatched_rank_1_devptr type(c_ptr), value :: handle - integer(c_int) :: m integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target :: x + real(c_float),target,dimension(:) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - real(c_double),target :: y + real(c_float),target,dimension(:) :: y integer(c_int) :: incy integer(c_int64_t) :: stridey - real(c_double),target :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA + type(c_ptr),value :: c + type(c_ptr),value :: s integer(c_int) :: batchCount ! - hipblasDgerStridedBatched_rank_0 = hipblasDgerStridedBatched_(handle,m,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasSrotStridedBatched_rank_1_devptr = hipblasSrotStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,c,s,batchCount) end function - function hipblasDgerStridedBatched_rank_1(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP, & - lda,strideA,batchCount) - use iso_c_binding + function hipblasSrotStridedBatched_strided_rank(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgerStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotStridedBatched_strided_rank type(c_ptr), value :: handle - integer(c_int) :: m integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(:) :: x + real(c_float),target,dimension(:,:) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - real(c_double),target,dimension(:) :: y + real(c_float),target,dimension(:,:) :: y integer(c_int) :: incy integer(c_int64_t) :: stridey - real(c_double),target,dimension(:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA + real(c_float),target :: c + real(c_float),target :: s integer(c_int) :: batchCount ! - hipblasDgerStridedBatched_rank_1 = hipblasDgerStridedBatched_(handle,m,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasSrotStridedBatched_strided_rank = hipblasSrotStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,c_loc(c),c_loc(s),batchCount) end function - function hipblasDgerStridedBatched_full_rank(handle,m,n,alpha,x,incx,stridex,y,incy,stridey, & - AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasSrotStridedBatched_strided_rank_devptr(handle,n,x,incx,stridex,y,incy,stridey, & + c,s,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgerStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotStridedBatched_strided_rank_devptr type(c_ptr), value :: handle - integer(c_int) :: m integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(:) :: x + real(c_float),target,dimension(:,:) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - real(c_double),target,dimension(:) :: y + real(c_float),target,dimension(:,:) :: y integer(c_int) :: incy integer(c_int64_t) :: stridey - real(c_double),target,dimension(:,:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA + type(c_ptr),value :: c + type(c_ptr),value :: s integer(c_int) :: batchCount ! - hipblasDgerStridedBatched_full_rank = hipblasDgerStridedBatched_(handle,m,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasSrotStridedBatched_strided_rank_devptr = hipblasSrotStridedBatched_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c,s,batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCgeruStridedBatched_assumed_rank(handle,m,n,alpha,x,incx,stridex,y,incy, & - stridey,AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasDrotStridedBatched_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeruStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotStridedBatched_assumed_rank type(c_ptr), value :: handle - integer(c_int) :: m integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: x + real(c_double),target,dimension(..) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - complex(c_float_complex),target,dimension(..) :: y + real(c_double),target,dimension(..) :: y integer(c_int) :: incy integer(c_int64_t) :: stridey - complex(c_float_complex),target,dimension(..) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA + real(c_double),target :: c + real(c_double),target :: s integer(c_int) :: batchCount ! - hipblasCgeruStridedBatched_assumed_rank = hipblasCgeruStridedBatched_(handle,m,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasDrotStridedBatched_assumed_rank = hipblasDrotStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,c_loc(c),c_loc(s),batchCount) end function -#else - function hipblasCgeruStridedBatched_rank_0(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP, & - lda,strideA,batchCount) - use iso_c_binding + function hipblasDrotStridedBatched_assumed_rank_devptr(handle,n,x,incx,stridex,y,incy,stridey, & + c,s,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeruStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotStridedBatched_assumed_rank_devptr type(c_ptr), value :: handle - integer(c_int) :: m integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: x + real(c_double),target,dimension(..) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - complex(c_float_complex),target :: y + real(c_double),target,dimension(..) :: y integer(c_int) :: incy integer(c_int64_t) :: stridey - complex(c_float_complex),target :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA + type(c_ptr),value :: c + type(c_ptr),value :: s integer(c_int) :: batchCount ! - hipblasCgeruStridedBatched_rank_0 = hipblasCgeruStridedBatched_(handle,m,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasDrotStridedBatched_assumed_rank_devptr = hipblasDrotStridedBatched_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c,s,batchCount) end function - function hipblasCgeruStridedBatched_rank_1(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP, & - lda,strideA,batchCount) - use iso_c_binding +#else + function hipblasDrotStridedBatched_rank_0(handle,n,x,incx,stridex,y,incy,stridey,c,s,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeruStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotStridedBatched_rank_0 type(c_ptr), value :: handle - integer(c_int) :: m integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: x + real(c_double),target :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - complex(c_float_complex),target,dimension(:) :: y + real(c_double),target :: y integer(c_int) :: incy integer(c_int64_t) :: stridey - complex(c_float_complex),target,dimension(:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA + real(c_double),target :: c + real(c_double),target :: s integer(c_int) :: batchCount ! - hipblasCgeruStridedBatched_rank_1 = hipblasCgeruStridedBatched_(handle,m,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasDrotStridedBatched_rank_0 = hipblasDrotStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,c_loc(c),c_loc(s),batchCount) end function - function hipblasCgeruStridedBatched_full_rank(handle,m,n,alpha,x,incx,stridex,y,incy,stridey, & - AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasDrotStridedBatched_rank_0_devptr(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeruStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotStridedBatched_rank_0_devptr type(c_ptr), value :: handle - integer(c_int) :: m integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: x + real(c_double),target :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - complex(c_float_complex),target,dimension(:) :: y + real(c_double),target :: y integer(c_int) :: incy integer(c_int64_t) :: stridey - complex(c_float_complex),target,dimension(:,:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA + type(c_ptr),value :: c + type(c_ptr),value :: s integer(c_int) :: batchCount ! - hipblasCgeruStridedBatched_full_rank = hipblasCgeruStridedBatched_(handle,m,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasDrotStridedBatched_rank_0_devptr = hipblasDrotStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,c,s,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCgercStridedBatched_assumed_rank(handle,m,n,alpha,x,incx,stridex,y,incy, & - stridey,AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasDrotStridedBatched_rank_1(handle,n,x,incx,stridex,y,incy,stridey,c,s,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgercStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotStridedBatched_rank_1 type(c_ptr), value :: handle - integer(c_int) :: m integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: x + real(c_double),target,dimension(:) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - complex(c_float_complex),target,dimension(..) :: y + real(c_double),target,dimension(:) :: y integer(c_int) :: incy integer(c_int64_t) :: stridey - complex(c_float_complex),target,dimension(..) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA + real(c_double),target :: c + real(c_double),target :: s integer(c_int) :: batchCount ! - hipblasCgercStridedBatched_assumed_rank = hipblasCgercStridedBatched_(handle,m,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasDrotStridedBatched_rank_1 = hipblasDrotStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,c_loc(c),c_loc(s),batchCount) end function -#else - function hipblasCgercStridedBatched_rank_0(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP, & - lda,strideA,batchCount) - use iso_c_binding + function hipblasDrotStridedBatched_rank_1_devptr(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgercStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotStridedBatched_rank_1_devptr type(c_ptr), value :: handle - integer(c_int) :: m integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: x + real(c_double),target,dimension(:) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - complex(c_float_complex),target :: y + real(c_double),target,dimension(:) :: y integer(c_int) :: incy integer(c_int64_t) :: stridey - complex(c_float_complex),target :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA + type(c_ptr),value :: c + type(c_ptr),value :: s integer(c_int) :: batchCount ! - hipblasCgercStridedBatched_rank_0 = hipblasCgercStridedBatched_(handle,m,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasDrotStridedBatched_rank_1_devptr = hipblasDrotStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,c,s,batchCount) end function - function hipblasCgercStridedBatched_rank_1(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP, & - lda,strideA,batchCount) - use iso_c_binding + function hipblasDrotStridedBatched_strided_rank(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgercStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotStridedBatched_strided_rank type(c_ptr), value :: handle - integer(c_int) :: m integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: x + real(c_double),target,dimension(:,:) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - complex(c_float_complex),target,dimension(:) :: y + real(c_double),target,dimension(:,:) :: y integer(c_int) :: incy integer(c_int64_t) :: stridey - complex(c_float_complex),target,dimension(:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA + real(c_double),target :: c + real(c_double),target :: s integer(c_int) :: batchCount ! - hipblasCgercStridedBatched_rank_1 = hipblasCgercStridedBatched_(handle,m,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasDrotStridedBatched_strided_rank = hipblasDrotStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,c_loc(c),c_loc(s),batchCount) end function - function hipblasCgercStridedBatched_full_rank(handle,m,n,alpha,x,incx,stridex,y,incy,stridey, & - AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasDrotStridedBatched_strided_rank_devptr(handle,n,x,incx,stridex,y,incy,stridey, & + c,s,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgercStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotStridedBatched_strided_rank_devptr type(c_ptr), value :: handle - integer(c_int) :: m integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: x + real(c_double),target,dimension(:,:) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - complex(c_float_complex),target,dimension(:) :: y + real(c_double),target,dimension(:,:) :: y integer(c_int) :: incy integer(c_int64_t) :: stridey - complex(c_float_complex),target,dimension(:,:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA + type(c_ptr),value :: c + type(c_ptr),value :: s integer(c_int) :: batchCount ! - hipblasCgercStridedBatched_full_rank = hipblasCgercStridedBatched_(handle,m,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasDrotStridedBatched_strided_rank_devptr = hipblasDrotStridedBatched_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c,s,batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasZgeruStridedBatched_assumed_rank(handle,m,n,alpha,x,incx,stridex,y,incy, & - stridey,AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasCrotStridedBatched_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeruStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotStridedBatched_assumed_rank type(c_ptr), value :: handle - integer(c_int) :: m integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: x + complex(c_float_complex),target,dimension(..) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - complex(c_double_complex),target,dimension(..) :: y + complex(c_float_complex),target,dimension(..) :: y integer(c_int) :: incy integer(c_int64_t) :: stridey - complex(c_double_complex),target,dimension(..) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA + real(c_float),target :: c + complex(c_float_complex),target :: s integer(c_int) :: batchCount ! - hipblasZgeruStridedBatched_assumed_rank = hipblasZgeruStridedBatched_(handle,m,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasCrotStridedBatched_assumed_rank = hipblasCrotStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,c_loc(c),c_loc(s),batchCount) end function -#else - function hipblasZgeruStridedBatched_rank_0(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP, & - lda,strideA,batchCount) - use iso_c_binding + function hipblasCrotStridedBatched_assumed_rank_devptr(handle,n,x,incx,stridex,y,incy,stridey, & + c,s,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeruStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotStridedBatched_assumed_rank_devptr type(c_ptr), value :: handle - integer(c_int) :: m integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: x + complex(c_float_complex),target,dimension(..) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - complex(c_double_complex),target :: y + complex(c_float_complex),target,dimension(..) :: y integer(c_int) :: incy integer(c_int64_t) :: stridey - complex(c_double_complex),target :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA + type(c_ptr),value :: c + type(c_ptr),value :: s integer(c_int) :: batchCount ! - hipblasZgeruStridedBatched_rank_0 = hipblasZgeruStridedBatched_(handle,m,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasCrotStridedBatched_assumed_rank_devptr = hipblasCrotStridedBatched_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c,s,batchCount) end function - function hipblasZgeruStridedBatched_rank_1(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP, & - lda,strideA,batchCount) - use iso_c_binding +#else + function hipblasCrotStridedBatched_rank_0(handle,n,x,incx,stridex,y,incy,stridey,c,s,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeruStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotStridedBatched_rank_0 type(c_ptr), value :: handle - integer(c_int) :: m integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: x + complex(c_float_complex),target :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - complex(c_double_complex),target,dimension(:) :: y + complex(c_float_complex),target :: y integer(c_int) :: incy integer(c_int64_t) :: stridey - complex(c_double_complex),target,dimension(:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA + real(c_float),target :: c + complex(c_float_complex),target :: s integer(c_int) :: batchCount ! - hipblasZgeruStridedBatched_rank_1 = hipblasZgeruStridedBatched_(handle,m,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasCrotStridedBatched_rank_0 = hipblasCrotStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,c_loc(c),c_loc(s),batchCount) end function - function hipblasZgeruStridedBatched_full_rank(handle,m,n,alpha,x,incx,stridex,y,incy,stridey, & - AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasCrotStridedBatched_rank_0_devptr(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeruStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotStridedBatched_rank_0_devptr type(c_ptr), value :: handle - integer(c_int) :: m integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: x + complex(c_float_complex),target :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - complex(c_double_complex),target,dimension(:) :: y + complex(c_float_complex),target :: y integer(c_int) :: incy integer(c_int64_t) :: stridey - complex(c_double_complex),target,dimension(:,:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA + type(c_ptr),value :: c + type(c_ptr),value :: s integer(c_int) :: batchCount ! - hipblasZgeruStridedBatched_full_rank = hipblasZgeruStridedBatched_(handle,m,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasCrotStridedBatched_rank_0_devptr = hipblasCrotStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,c,s,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZgercStridedBatched_assumed_rank(handle,m,n,alpha,x,incx,stridex,y,incy, & - stridey,AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasCrotStridedBatched_rank_1(handle,n,x,incx,stridex,y,incy,stridey,c,s,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgercStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotStridedBatched_rank_1 type(c_ptr), value :: handle - integer(c_int) :: m integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: x + complex(c_float_complex),target,dimension(:) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - complex(c_double_complex),target,dimension(..) :: y + complex(c_float_complex),target,dimension(:) :: y integer(c_int) :: incy integer(c_int64_t) :: stridey - complex(c_double_complex),target,dimension(..) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA + real(c_float),target :: c + complex(c_float_complex),target :: s integer(c_int) :: batchCount ! - hipblasZgercStridedBatched_assumed_rank = hipblasZgercStridedBatched_(handle,m,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasCrotStridedBatched_rank_1 = hipblasCrotStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,c_loc(c),c_loc(s),batchCount) end function -#else - function hipblasZgercStridedBatched_rank_0(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP, & - lda,strideA,batchCount) - use iso_c_binding + function hipblasCrotStridedBatched_rank_1_devptr(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgercStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotStridedBatched_rank_1_devptr type(c_ptr), value :: handle - integer(c_int) :: m integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: x + complex(c_float_complex),target,dimension(:) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - complex(c_double_complex),target :: y + complex(c_float_complex),target,dimension(:) :: y integer(c_int) :: incy integer(c_int64_t) :: stridey - complex(c_double_complex),target :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA + type(c_ptr),value :: c + type(c_ptr),value :: s integer(c_int) :: batchCount ! - hipblasZgercStridedBatched_rank_0 = hipblasZgercStridedBatched_(handle,m,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasCrotStridedBatched_rank_1_devptr = hipblasCrotStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,c,s,batchCount) end function - function hipblasZgercStridedBatched_rank_1(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP, & - lda,strideA,batchCount) - use iso_c_binding + function hipblasCrotStridedBatched_strided_rank(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgercStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotStridedBatched_strided_rank type(c_ptr), value :: handle - integer(c_int) :: m integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: x + complex(c_float_complex),target,dimension(:,:) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - complex(c_double_complex),target,dimension(:) :: y + complex(c_float_complex),target,dimension(:,:) :: y integer(c_int) :: incy integer(c_int64_t) :: stridey - complex(c_double_complex),target,dimension(:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA + real(c_float),target :: c + complex(c_float_complex),target :: s integer(c_int) :: batchCount ! - hipblasZgercStridedBatched_rank_1 = hipblasZgercStridedBatched_(handle,m,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasCrotStridedBatched_strided_rank = hipblasCrotStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,c_loc(c),c_loc(s),batchCount) end function - function hipblasZgercStridedBatched_full_rank(handle,m,n,alpha,x,incx,stridex,y,incy,stridey, & - AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasCrotStridedBatched_strided_rank_devptr(handle,n,x,incx,stridex,y,incy,stridey, & + c,s,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgercStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotStridedBatched_strided_rank_devptr type(c_ptr), value :: handle - integer(c_int) :: m integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: x + complex(c_float_complex),target,dimension(:,:) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - complex(c_double_complex),target,dimension(:) :: y + complex(c_float_complex),target,dimension(:,:) :: y integer(c_int) :: incy integer(c_int64_t) :: stridey - complex(c_double_complex),target,dimension(:,:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA + type(c_ptr),value :: c + type(c_ptr),value :: s integer(c_int) :: batchCount ! - hipblasZgercStridedBatched_full_rank = hipblasZgercStridedBatched_(handle,m,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasCrotStridedBatched_strided_rank_devptr = hipblasCrotStridedBatched_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c,s,batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasSgerStridedBatched_64_assumed_rank(handle,m,n,alpha,x,incx,stridex,y,incy, & - stridey,AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasCsrotStridedBatched_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgerStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrotStridedBatched_assumed_rank type(c_ptr), value :: handle - integer(c_int64_t) :: m - integer(c_int64_t) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(..) :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx integer(c_int64_t) :: stridex - real(c_float),target,dimension(..) :: y - integer(c_int64_t) :: incy + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy integer(c_int64_t) :: stridey - real(c_float),target,dimension(..) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - integer(c_int64_t) :: batchCount + real(c_float),target :: c + real(c_float),target :: s + integer(c_int) :: batchCount ! - hipblasSgerStridedBatched_64_assumed_rank = hipblasSgerStridedBatched_64_(handle,m,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasCsrotStridedBatched_assumed_rank = hipblasCsrotStridedBatched_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,c_loc(c),c_loc(s),batchCount) end function -#else - function hipblasSgerStridedBatched_64_rank_0(handle,m,n,alpha,x,incx,stridex,y,incy,stridey, & - AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasCsrotStridedBatched_assumed_rank_devptr(handle,n,x,incx,stridex,y,incy, & + stridey,c,s,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgerStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrotStridedBatched_assumed_rank_devptr type(c_ptr), value :: handle - integer(c_int64_t) :: m - integer(c_int64_t) :: n - real(c_float),target :: alpha - real(c_float),target :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx integer(c_int64_t) :: stridex - real(c_float),target :: y - integer(c_int64_t) :: incy + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy integer(c_int64_t) :: stridey - real(c_float),target :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - integer(c_int64_t) :: batchCount + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int) :: batchCount ! - hipblasSgerStridedBatched_64_rank_0 = hipblasSgerStridedBatched_64_(handle,m,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasCsrotStridedBatched_assumed_rank_devptr = hipblasCsrotStridedBatched_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c,s,batchCount) end function - function hipblasSgerStridedBatched_64_rank_1(handle,m,n,alpha,x,incx,stridex,y,incy,stridey, & - AP,lda,strideA,batchCount) - use iso_c_binding +#else + function hipblasCsrotStridedBatched_rank_0(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgerStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrotStridedBatched_rank_0 type(c_ptr), value :: handle - integer(c_int64_t) :: m - integer(c_int64_t) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(:) :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + complex(c_float_complex),target :: x + integer(c_int) :: incx integer(c_int64_t) :: stridex - real(c_float),target,dimension(:) :: y - integer(c_int64_t) :: incy + complex(c_float_complex),target :: y + integer(c_int) :: incy integer(c_int64_t) :: stridey - real(c_float),target,dimension(:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - integer(c_int64_t) :: batchCount + real(c_float),target :: c + real(c_float),target :: s + integer(c_int) :: batchCount ! - hipblasSgerStridedBatched_64_rank_1 = hipblasSgerStridedBatched_64_(handle,m,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasCsrotStridedBatched_rank_0 = hipblasCsrotStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,c_loc(c),c_loc(s),batchCount) end function - function hipblasSgerStridedBatched_64_full_rank(handle,m,n,alpha,x,incx,stridex,y,incy, & - stridey,AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasCsrotStridedBatched_rank_0_devptr(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgerStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrotStridedBatched_rank_0_devptr type(c_ptr), value :: handle - integer(c_int64_t) :: m - integer(c_int64_t) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(:) :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + complex(c_float_complex),target :: x + integer(c_int) :: incx integer(c_int64_t) :: stridex - real(c_float),target,dimension(:) :: y - integer(c_int64_t) :: incy + complex(c_float_complex),target :: y + integer(c_int) :: incy integer(c_int64_t) :: stridey - real(c_float),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - integer(c_int64_t) :: batchCount + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int) :: batchCount ! - hipblasSgerStridedBatched_64_full_rank = hipblasSgerStridedBatched_64_(handle,m,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasCsrotStridedBatched_rank_0_devptr = hipblasCsrotStridedBatched_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,c,s,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDgerStridedBatched_64_assumed_rank(handle,m,n,alpha,x,incx,stridex,y,incy, & - stridey,AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasCsrotStridedBatched_rank_1(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgerStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrotStridedBatched_rank_1 type(c_ptr), value :: handle - integer(c_int64_t) :: m - integer(c_int64_t) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(..) :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx integer(c_int64_t) :: stridex - real(c_double),target,dimension(..) :: y - integer(c_int64_t) :: incy + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy integer(c_int64_t) :: stridey - real(c_double),target,dimension(..) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - integer(c_int64_t) :: batchCount + real(c_float),target :: c + real(c_float),target :: s + integer(c_int) :: batchCount ! - hipblasDgerStridedBatched_64_assumed_rank = hipblasDgerStridedBatched_64_(handle,m,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasCsrotStridedBatched_rank_1 = hipblasCsrotStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,c_loc(c),c_loc(s),batchCount) end function -#else - function hipblasDgerStridedBatched_64_rank_0(handle,m,n,alpha,x,incx,stridex,y,incy,stridey, & - AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasCsrotStridedBatched_rank_1_devptr(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgerStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrotStridedBatched_rank_1_devptr type(c_ptr), value :: handle - integer(c_int64_t) :: m - integer(c_int64_t) :: n - real(c_double),target :: alpha - real(c_double),target :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx integer(c_int64_t) :: stridex - real(c_double),target :: y - integer(c_int64_t) :: incy + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy integer(c_int64_t) :: stridey - real(c_double),target :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - integer(c_int64_t) :: batchCount + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int) :: batchCount ! - hipblasDgerStridedBatched_64_rank_0 = hipblasDgerStridedBatched_64_(handle,m,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasCsrotStridedBatched_rank_1_devptr = hipblasCsrotStridedBatched_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,c,s,batchCount) end function - function hipblasDgerStridedBatched_64_rank_1(handle,m,n,alpha,x,incx,stridex,y,incy,stridey, & - AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasCsrotStridedBatched_strided_rank(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgerStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrotStridedBatched_strided_rank type(c_ptr), value :: handle - integer(c_int64_t) :: m - integer(c_int64_t) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(:) :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int) :: incx integer(c_int64_t) :: stridex - real(c_double),target,dimension(:) :: y - integer(c_int64_t) :: incy + complex(c_float_complex),target,dimension(:,:) :: y + integer(c_int) :: incy integer(c_int64_t) :: stridey - real(c_double),target,dimension(:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - integer(c_int64_t) :: batchCount + real(c_float),target :: c + real(c_float),target :: s + integer(c_int) :: batchCount ! - hipblasDgerStridedBatched_64_rank_1 = hipblasDgerStridedBatched_64_(handle,m,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasCsrotStridedBatched_strided_rank = hipblasCsrotStridedBatched_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,c_loc(c),c_loc(s),batchCount) end function - function hipblasDgerStridedBatched_64_full_rank(handle,m,n,alpha,x,incx,stridex,y,incy, & - stridey,AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasCsrotStridedBatched_strided_rank_devptr(handle,n,x,incx,stridex,y,incy, & + stridey,c,s,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgerStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrotStridedBatched_strided_rank_devptr type(c_ptr), value :: handle - integer(c_int64_t) :: m - integer(c_int64_t) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(:) :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int) :: incx integer(c_int64_t) :: stridex - real(c_double),target,dimension(:) :: y - integer(c_int64_t) :: incy + complex(c_float_complex),target,dimension(:,:) :: y + integer(c_int) :: incy integer(c_int64_t) :: stridey - real(c_double),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - integer(c_int64_t) :: batchCount + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int) :: batchCount ! - hipblasDgerStridedBatched_64_full_rank = hipblasDgerStridedBatched_64_(handle,m,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasCsrotStridedBatched_strided_rank_devptr = hipblasCsrotStridedBatched_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c,s,batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCgeruStridedBatched_64_assumed_rank(handle,m,n,alpha,x,incx,stridex,y,incy, & - stridey,AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasZrotStridedBatched_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeruStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotStridedBatched_assumed_rank type(c_ptr), value :: handle - integer(c_int64_t) :: m - integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx integer(c_int64_t) :: stridex - complex(c_float_complex),target,dimension(..) :: y - integer(c_int64_t) :: incy + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy integer(c_int64_t) :: stridey - complex(c_float_complex),target,dimension(..) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - integer(c_int64_t) :: batchCount + real(c_double),target :: c + complex(c_double_complex),target :: s + integer(c_int) :: batchCount ! - hipblasCgeruStridedBatched_64_assumed_rank = hipblasCgeruStridedBatched_64_(handle,m,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasZrotStridedBatched_assumed_rank = hipblasZrotStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,c_loc(c),c_loc(s),batchCount) end function -#else - function hipblasCgeruStridedBatched_64_rank_0(handle,m,n,alpha,x,incx,stridex,y,incy,stridey, & - AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasZrotStridedBatched_assumed_rank_devptr(handle,n,x,incx,stridex,y,incy,stridey, & + c,s,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeruStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotStridedBatched_assumed_rank_devptr type(c_ptr), value :: handle - integer(c_int64_t) :: m - integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx integer(c_int64_t) :: stridex - complex(c_float_complex),target :: y - integer(c_int64_t) :: incy + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy integer(c_int64_t) :: stridey - complex(c_float_complex),target :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - integer(c_int64_t) :: batchCount + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int) :: batchCount ! - hipblasCgeruStridedBatched_64_rank_0 = hipblasCgeruStridedBatched_64_(handle,m,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasZrotStridedBatched_assumed_rank_devptr = hipblasZrotStridedBatched_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c,s,batchCount) end function - function hipblasCgeruStridedBatched_64_rank_1(handle,m,n,alpha,x,incx,stridex,y,incy,stridey, & - AP,lda,strideA,batchCount) - use iso_c_binding +#else + function hipblasZrotStridedBatched_rank_0(handle,n,x,incx,stridex,y,incy,stridey,c,s,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeruStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotStridedBatched_rank_0 type(c_ptr), value :: handle - integer(c_int64_t) :: m - integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + complex(c_double_complex),target :: x + integer(c_int) :: incx integer(c_int64_t) :: stridex - complex(c_float_complex),target,dimension(:) :: y - integer(c_int64_t) :: incy + complex(c_double_complex),target :: y + integer(c_int) :: incy integer(c_int64_t) :: stridey - complex(c_float_complex),target,dimension(:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - integer(c_int64_t) :: batchCount + real(c_double),target :: c + complex(c_double_complex),target :: s + integer(c_int) :: batchCount ! - hipblasCgeruStridedBatched_64_rank_1 = hipblasCgeruStridedBatched_64_(handle,m,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasZrotStridedBatched_rank_0 = hipblasZrotStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,c_loc(c),c_loc(s),batchCount) end function - function hipblasCgeruStridedBatched_64_full_rank(handle,m,n,alpha,x,incx,stridex,y,incy, & - stridey,AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasZrotStridedBatched_rank_0_devptr(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeruStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotStridedBatched_rank_0_devptr type(c_ptr), value :: handle - integer(c_int64_t) :: m - integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + complex(c_double_complex),target :: x + integer(c_int) :: incx integer(c_int64_t) :: stridex - complex(c_float_complex),target,dimension(:) :: y - integer(c_int64_t) :: incy + complex(c_double_complex),target :: y + integer(c_int) :: incy integer(c_int64_t) :: stridey - complex(c_float_complex),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - integer(c_int64_t) :: batchCount + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int) :: batchCount ! - hipblasCgeruStridedBatched_64_full_rank = hipblasCgeruStridedBatched_64_(handle,m,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasZrotStridedBatched_rank_0_devptr = hipblasZrotStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,c,s,batchCount) + end function + + function hipblasZrotStridedBatched_rank_1(handle,n,x,incx,stridex,y,incy,stridey,c,s,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_double),target :: c + complex(c_double_complex),target :: s + integer(c_int) :: batchCount + ! + hipblasZrotStridedBatched_rank_1 = hipblasZrotStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,c_loc(c),c_loc(s),batchCount) + end function + + function hipblasZrotStridedBatched_rank_1_devptr(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotStridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int) :: batchCount + ! + hipblasZrotStridedBatched_rank_1_devptr = hipblasZrotStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,c,s,batchCount) + end function + + function hipblasZrotStridedBatched_strided_rank(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_double),target :: c + complex(c_double_complex),target :: s + integer(c_int) :: batchCount + ! + hipblasZrotStridedBatched_strided_rank = hipblasZrotStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,c_loc(c),c_loc(s),batchCount) + end function + + function hipblasZrotStridedBatched_strided_rank_devptr(handle,n,x,incx,stridex,y,incy,stridey, & + c,s,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotStridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int) :: batchCount + ! + hipblasZrotStridedBatched_strided_rank_devptr = hipblasZrotStridedBatched_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c,s,batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCgercStridedBatched_64_assumed_rank(handle,m,n,alpha,x,incx,stridex,y,incy, & - stridey,AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasZdrotStridedBatched_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgercStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrotStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_double),target :: c + real(c_double),target :: s + integer(c_int) :: batchCount + ! + hipblasZdrotStridedBatched_assumed_rank = hipblasZdrotStridedBatched_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,c_loc(c),c_loc(s),batchCount) + end function + + function hipblasZdrotStridedBatched_assumed_rank_devptr(handle,n,x,incx,stridex,y,incy, & + stridey,c,s,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrotStridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int) :: batchCount + ! + hipblasZdrotStridedBatched_assumed_rank_devptr = hipblasZdrotStridedBatched_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c,s,batchCount) + end function + +#else + function hipblasZdrotStridedBatched_rank_0(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrotStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_double),target :: c + real(c_double),target :: s + integer(c_int) :: batchCount + ! + hipblasZdrotStridedBatched_rank_0 = hipblasZdrotStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,c_loc(c),c_loc(s),batchCount) + end function + + function hipblasZdrotStridedBatched_rank_0_devptr(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrotStridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int) :: batchCount + ! + hipblasZdrotStridedBatched_rank_0_devptr = hipblasZdrotStridedBatched_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,c,s,batchCount) + end function + + function hipblasZdrotStridedBatched_rank_1(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrotStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_double),target :: c + real(c_double),target :: s + integer(c_int) :: batchCount + ! + hipblasZdrotStridedBatched_rank_1 = hipblasZdrotStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,c_loc(c),c_loc(s),batchCount) + end function + + function hipblasZdrotStridedBatched_rank_1_devptr(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrotStridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int) :: batchCount + ! + hipblasZdrotStridedBatched_rank_1_devptr = hipblasZdrotStridedBatched_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,c,s,batchCount) + end function + + function hipblasZdrotStridedBatched_strided_rank(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrotStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_double),target :: c + real(c_double),target :: s + integer(c_int) :: batchCount + ! + hipblasZdrotStridedBatched_strided_rank = hipblasZdrotStridedBatched_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,c_loc(c),c_loc(s),batchCount) + end function + + function hipblasZdrotStridedBatched_strided_rank_devptr(handle,n,x,incx,stridex,y,incy, & + stridey,c,s,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrotStridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int) :: batchCount + ! + hipblasZdrotStridedBatched_strided_rank_devptr = hipblasZdrotStridedBatched_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c,s,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSrotStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotStridedBatched_64_assumed_rank type(c_ptr), value :: handle - integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: x + real(c_float),target,dimension(..) :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - complex(c_float_complex),target,dimension(..) :: y + real(c_float),target,dimension(..) :: y integer(c_int64_t) :: incy integer(c_int64_t) :: stridey - complex(c_float_complex),target,dimension(..) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA + real(c_float),target :: c + real(c_float),target :: s integer(c_int64_t) :: batchCount ! - hipblasCgercStridedBatched_64_assumed_rank = hipblasCgercStridedBatched_64_(handle,m,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasSrotStridedBatched_64_assumed_rank = hipblasSrotStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,c_loc(c),c_loc(s),batchCount) end function -#else - function hipblasCgercStridedBatched_64_rank_0(handle,m,n,alpha,x,incx,stridex,y,incy,stridey, & - AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasSrotStridedBatched_64_assumed_rank_devptr(handle,n,x,incx,stridex,y,incy, & + stridey,c,s,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgercStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotStridedBatched_64_assumed_rank_devptr type(c_ptr), value :: handle - integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: x + real(c_float),target,dimension(..) :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - complex(c_float_complex),target :: y + real(c_float),target,dimension(..) :: y integer(c_int64_t) :: incy integer(c_int64_t) :: stridey - complex(c_float_complex),target :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA + type(c_ptr),value :: c + type(c_ptr),value :: s integer(c_int64_t) :: batchCount ! - hipblasCgercStridedBatched_64_rank_0 = hipblasCgercStridedBatched_64_(handle,m,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasSrotStridedBatched_64_assumed_rank_devptr = hipblasSrotStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c,s,batchCount) end function - function hipblasCgercStridedBatched_64_rank_1(handle,m,n,alpha,x,incx,stridex,y,incy,stridey, & - AP,lda,strideA,batchCount) - use iso_c_binding +#else + function hipblasSrotStridedBatched_64_rank_0(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgercStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotStridedBatched_64_rank_0 type(c_ptr), value :: handle - integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: x + real(c_float),target :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - complex(c_float_complex),target,dimension(:) :: y + real(c_float),target :: y integer(c_int64_t) :: incy integer(c_int64_t) :: stridey - complex(c_float_complex),target,dimension(:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA + real(c_float),target :: c + real(c_float),target :: s integer(c_int64_t) :: batchCount ! - hipblasCgercStridedBatched_64_rank_1 = hipblasCgercStridedBatched_64_(handle,m,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasSrotStridedBatched_64_rank_0 = hipblasSrotStridedBatched_64_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,c_loc(c),c_loc(s),batchCount) end function - function hipblasCgercStridedBatched_64_full_rank(handle,m,n,alpha,x,incx,stridex,y,incy, & - stridey,AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasSrotStridedBatched_64_rank_0_devptr(handle,n,x,incx,stridex,y,incy,stridey,c, & + s,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgercStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotStridedBatched_64_rank_0_devptr type(c_ptr), value :: handle - integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: x + real(c_float),target :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - complex(c_float_complex),target,dimension(:) :: y + real(c_float),target :: y integer(c_int64_t) :: incy integer(c_int64_t) :: stridey - complex(c_float_complex),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA + type(c_ptr),value :: c + type(c_ptr),value :: s integer(c_int64_t) :: batchCount ! - hipblasCgercStridedBatched_64_full_rank = hipblasCgercStridedBatched_64_(handle,m,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasSrotStridedBatched_64_rank_0_devptr = hipblasSrotStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c,s,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZgeruStridedBatched_64_assumed_rank(handle,m,n,alpha,x,incx,stridex,y,incy, & - stridey,AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasSrotStridedBatched_64_rank_1(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeruStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotStridedBatched_64_rank_1 type(c_ptr), value :: handle - integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: x + real(c_float),target,dimension(:) :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - complex(c_double_complex),target,dimension(..) :: y + real(c_float),target,dimension(:) :: y integer(c_int64_t) :: incy integer(c_int64_t) :: stridey - complex(c_double_complex),target,dimension(..) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA + real(c_float),target :: c + real(c_float),target :: s integer(c_int64_t) :: batchCount ! - hipblasZgeruStridedBatched_64_assumed_rank = hipblasZgeruStridedBatched_64_(handle,m,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasSrotStridedBatched_64_rank_1 = hipblasSrotStridedBatched_64_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,c_loc(c),c_loc(s),batchCount) end function -#else - function hipblasZgeruStridedBatched_64_rank_0(handle,m,n,alpha,x,incx,stridex,y,incy,stridey, & - AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasSrotStridedBatched_64_rank_1_devptr(handle,n,x,incx,stridex,y,incy,stridey,c, & + s,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeruStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotStridedBatched_64_rank_1_devptr type(c_ptr), value :: handle - integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: x + real(c_float),target,dimension(:) :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - complex(c_double_complex),target :: y + real(c_float),target,dimension(:) :: y integer(c_int64_t) :: incy integer(c_int64_t) :: stridey - complex(c_double_complex),target :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA + type(c_ptr),value :: c + type(c_ptr),value :: s integer(c_int64_t) :: batchCount ! - hipblasZgeruStridedBatched_64_rank_0 = hipblasZgeruStridedBatched_64_(handle,m,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasSrotStridedBatched_64_rank_1_devptr = hipblasSrotStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c,s,batchCount) end function - function hipblasZgeruStridedBatched_64_rank_1(handle,m,n,alpha,x,incx,stridex,y,incy,stridey, & - AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasSrotStridedBatched_64_strided_rank(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeruStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotStridedBatched_64_strided_rank type(c_ptr), value :: handle - integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: x + real(c_float),target,dimension(:,:) :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - complex(c_double_complex),target,dimension(:) :: y + real(c_float),target,dimension(:,:) :: y integer(c_int64_t) :: incy integer(c_int64_t) :: stridey - complex(c_double_complex),target,dimension(:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA + real(c_float),target :: c + real(c_float),target :: s integer(c_int64_t) :: batchCount ! - hipblasZgeruStridedBatched_64_rank_1 = hipblasZgeruStridedBatched_64_(handle,m,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasSrotStridedBatched_64_strided_rank = hipblasSrotStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,c_loc(c),c_loc(s),batchCount) end function - function hipblasZgeruStridedBatched_64_full_rank(handle,m,n,alpha,x,incx,stridex,y,incy, & - stridey,AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasSrotStridedBatched_64_strided_rank_devptr(handle,n,x,incx,stridex,y,incy, & + stridey,c,s,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeruStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotStridedBatched_64_strided_rank_devptr type(c_ptr), value :: handle - integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: x + real(c_float),target,dimension(:,:) :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - complex(c_double_complex),target,dimension(:) :: y + real(c_float),target,dimension(:,:) :: y integer(c_int64_t) :: incy integer(c_int64_t) :: stridey - complex(c_double_complex),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA + type(c_ptr),value :: c + type(c_ptr),value :: s integer(c_int64_t) :: batchCount ! - hipblasZgeruStridedBatched_64_full_rank = hipblasZgeruStridedBatched_64_(handle,m,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasSrotStridedBatched_64_strided_rank_devptr = hipblasSrotStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c,s,batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasZgercStridedBatched_64_assumed_rank(handle,m,n,alpha,x,incx,stridex,y,incy, & - stridey,AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasDrotStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgercStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotStridedBatched_64_assumed_rank type(c_ptr), value :: handle - integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: x + real(c_double),target,dimension(..) :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - complex(c_double_complex),target,dimension(..) :: y + real(c_double),target,dimension(..) :: y integer(c_int64_t) :: incy integer(c_int64_t) :: stridey - complex(c_double_complex),target,dimension(..) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA + real(c_double),target :: c + real(c_double),target :: s integer(c_int64_t) :: batchCount ! - hipblasZgercStridedBatched_64_assumed_rank = hipblasZgercStridedBatched_64_(handle,m,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasDrotStridedBatched_64_assumed_rank = hipblasDrotStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,c_loc(c),c_loc(s),batchCount) end function -#else - function hipblasZgercStridedBatched_64_rank_0(handle,m,n,alpha,x,incx,stridex,y,incy,stridey, & - AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasDrotStridedBatched_64_assumed_rank_devptr(handle,n,x,incx,stridex,y,incy, & + stridey,c,s,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgercStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotStridedBatched_64_assumed_rank_devptr type(c_ptr), value :: handle - integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: x + real(c_double),target,dimension(..) :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - complex(c_double_complex),target :: y + real(c_double),target,dimension(..) :: y integer(c_int64_t) :: incy integer(c_int64_t) :: stridey - complex(c_double_complex),target :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA + type(c_ptr),value :: c + type(c_ptr),value :: s integer(c_int64_t) :: batchCount ! - hipblasZgercStridedBatched_64_rank_0 = hipblasZgercStridedBatched_64_(handle,m,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasDrotStridedBatched_64_assumed_rank_devptr = hipblasDrotStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c,s,batchCount) end function - function hipblasZgercStridedBatched_64_rank_1(handle,m,n,alpha,x,incx,stridex,y,incy,stridey, & - AP,lda,strideA,batchCount) - use iso_c_binding +#else + function hipblasDrotStridedBatched_64_rank_0(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgercStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotStridedBatched_64_rank_0 type(c_ptr), value :: handle - integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: x + real(c_double),target :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - complex(c_double_complex),target,dimension(:) :: y + real(c_double),target :: y integer(c_int64_t) :: incy integer(c_int64_t) :: stridey - complex(c_double_complex),target,dimension(:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA + real(c_double),target :: c + real(c_double),target :: s integer(c_int64_t) :: batchCount ! - hipblasZgercStridedBatched_64_rank_1 = hipblasZgercStridedBatched_64_(handle,m,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasDrotStridedBatched_64_rank_0 = hipblasDrotStridedBatched_64_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,c_loc(c),c_loc(s),batchCount) end function - function hipblasZgercStridedBatched_64_full_rank(handle,m,n,alpha,x,incx,stridex,y,incy, & - stridey,AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasDrotStridedBatched_64_rank_0_devptr(handle,n,x,incx,stridex,y,incy,stridey,c, & + s,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgercStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotStridedBatched_64_rank_0_devptr type(c_ptr), value :: handle - integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: x + real(c_double),target :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - complex(c_double_complex),target,dimension(:) :: y + real(c_double),target :: y integer(c_int64_t) :: incy integer(c_int64_t) :: stridey - complex(c_double_complex),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA + type(c_ptr),value :: c + type(c_ptr),value :: s integer(c_int64_t) :: batchCount ! - hipblasZgercStridedBatched_64_full_rank = hipblasZgercStridedBatched_64_(handle,m,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasDrotStridedBatched_64_rank_0_devptr = hipblasDrotStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c,s,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasChbmv_assumed_rank(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasDrotStridedBatched_64_rank_1(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmv_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotStridedBatched_64_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - integer(c_int) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: AP - integer(c_int) :: lda - complex(c_float_complex),target,dimension(..) :: x - integer(c_int) :: incx - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(..) :: y - integer(c_int) :: incy + integer(c_int64_t) :: n + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_double),target :: c + real(c_double),target :: s + integer(c_int64_t) :: batchCount ! - hipblasChbmv_assumed_rank = hipblasChbmv_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasDrotStridedBatched_64_rank_1 = hipblasDrotStridedBatched_64_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,c_loc(c),c_loc(s),batchCount) end function -#else - function hipblasChbmv_rank_0(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasDrotStridedBatched_64_rank_1_devptr(handle,n,x,incx,stridex,y,incy,stridey,c, & + s,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmv_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotStridedBatched_64_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - integer(c_int) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: AP - integer(c_int) :: lda - complex(c_float_complex),target :: x - integer(c_int) :: incx - complex(c_float_complex),target :: beta - complex(c_float_complex),target :: y - integer(c_int) :: incy + integer(c_int64_t) :: n + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int64_t) :: batchCount ! - hipblasChbmv_rank_0 = hipblasChbmv_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda,c_loc(x), & - incx,c_loc(beta),c_loc(y),incy) + hipblasDrotStridedBatched_64_rank_1_devptr = hipblasDrotStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c,s,batchCount) end function - function hipblasChbmv_rank_1(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasDrotStridedBatched_64_strided_rank(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmv_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotStridedBatched_64_strided_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - integer(c_int) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: AP - integer(c_int) :: lda - complex(c_float_complex),target,dimension(:) :: x - integer(c_int) :: incx - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:) :: y - integer(c_int) :: incy + integer(c_int64_t) :: n + real(c_double),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_double),target :: c + real(c_double),target :: s + integer(c_int64_t) :: batchCount ! - hipblasChbmv_rank_1 = hipblasChbmv_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda,c_loc(x), & - incx,c_loc(beta),c_loc(y),incy) + hipblasDrotStridedBatched_64_strided_rank = hipblasDrotStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,c_loc(c),c_loc(s),batchCount) end function - function hipblasChbmv_full_rank(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasDrotStridedBatched_64_strided_rank_devptr(handle,n,x,incx,stridex,y,incy, & + stridey,c,s,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmv_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotStridedBatched_64_strided_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - integer(c_int) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:,:) :: AP - integer(c_int) :: lda - complex(c_float_complex),target,dimension(:) :: x - integer(c_int) :: incx - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:) :: y - integer(c_int) :: incy + integer(c_int64_t) :: n + real(c_double),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int64_t) :: batchCount ! - hipblasChbmv_full_rank = hipblasChbmv_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda,c_loc(x), & - incx,c_loc(beta),c_loc(y),incy) + hipblasDrotStridedBatched_64_strided_rank_devptr = hipblasDrotStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c,s,batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasZhbmv_assumed_rank(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmv_assumed_rank - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - integer(c_int) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: AP - integer(c_int) :: lda - complex(c_double_complex),target,dimension(..) :: x - integer(c_int) :: incx - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(..) :: y - integer(c_int) :: incy - ! - hipblasZhbmv_assumed_rank = hipblasZhbmv_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) - end function - -#else - function hipblasZhbmv_rank_0(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmv_rank_0 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - integer(c_int) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: AP - integer(c_int) :: lda - complex(c_double_complex),target :: x - integer(c_int) :: incx - complex(c_double_complex),target :: beta - complex(c_double_complex),target :: y - integer(c_int) :: incy - ! - hipblasZhbmv_rank_0 = hipblasZhbmv_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda,c_loc(x), & - incx,c_loc(beta),c_loc(y),incy) - end function - - function hipblasZhbmv_rank_1(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmv_rank_1 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - integer(c_int) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: AP - integer(c_int) :: lda - complex(c_double_complex),target,dimension(:) :: x - integer(c_int) :: incx - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:) :: y - integer(c_int) :: incy - ! - hipblasZhbmv_rank_1 = hipblasZhbmv_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda,c_loc(x), & - incx,c_loc(beta),c_loc(y),incy) - end function - - function hipblasZhbmv_full_rank(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasCrotStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmv_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotStridedBatched_64_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - integer(c_int) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:,:) :: AP - integer(c_int) :: lda - complex(c_double_complex),target,dimension(:) :: x - integer(c_int) :: incx - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:) :: y - integer(c_int) :: incy + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_float),target :: c + complex(c_float_complex),target :: s + integer(c_int64_t) :: batchCount ! - hipblasZhbmv_full_rank = hipblasZhbmv_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda,c_loc(x), & - incx,c_loc(beta),c_loc(y),incy) + hipblasCrotStridedBatched_64_assumed_rank = hipblasCrotStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,c_loc(c),c_loc(s),batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasChbmv_64_assumed_rank(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasCrotStridedBatched_64_assumed_rank_devptr(handle,n,x,incx,stridex,y,incy, & + stridey,c,s,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmv_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotStridedBatched_64_assumed_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: AP - integer(c_int64_t) :: lda complex(c_float_complex),target,dimension(..) :: x integer(c_int64_t) :: incx - complex(c_float_complex),target :: beta + integer(c_int64_t) :: stridex complex(c_float_complex),target,dimension(..) :: y integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int64_t) :: batchCount ! - hipblasChbmv_64_assumed_rank = hipblasChbmv_64_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasCrotStridedBatched_64_assumed_rank_devptr = hipblasCrotStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c,s,batchCount) end function #else - function hipblasChbmv_64_rank_0(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasCrotStridedBatched_64_rank_0(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmv_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotStridedBatched_64_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: AP - integer(c_int64_t) :: lda complex(c_float_complex),target :: x integer(c_int64_t) :: incx - complex(c_float_complex),target :: beta + integer(c_int64_t) :: stridex complex(c_float_complex),target :: y integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_float),target :: c + complex(c_float_complex),target :: s + integer(c_int64_t) :: batchCount ! - hipblasChbmv_64_rank_0 = hipblasChbmv_64_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasCrotStridedBatched_64_rank_0 = hipblasCrotStridedBatched_64_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,c_loc(c),c_loc(s),batchCount) end function - function hipblasChbmv_64_rank_1(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasCrotStridedBatched_64_rank_0_devptr(handle,n,x,incx,stridex,y,incy,stridey,c, & + s,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmv_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotStridedBatched_64_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: AP - integer(c_int64_t) :: lda - complex(c_float_complex),target,dimension(:) :: x + complex(c_float_complex),target :: x integer(c_int64_t) :: incx - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: y integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int64_t) :: batchCount ! - hipblasChbmv_64_rank_1 = hipblasChbmv_64_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasCrotStridedBatched_64_rank_0_devptr = hipblasCrotStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c,s,batchCount) end function - function hipblasChbmv_64_full_rank(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasCrotStridedBatched_64_rank_1(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmv_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotStridedBatched_64_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda complex(c_float_complex),target,dimension(:) :: x integer(c_int64_t) :: incx - complex(c_float_complex),target :: beta + integer(c_int64_t) :: stridex complex(c_float_complex),target,dimension(:) :: y integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_float),target :: c + complex(c_float_complex),target :: s + integer(c_int64_t) :: batchCount ! - hipblasChbmv_64_full_rank = hipblasChbmv_64_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasCrotStridedBatched_64_rank_1 = hipblasCrotStridedBatched_64_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,c_loc(c),c_loc(s),batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZhbmv_64_assumed_rank(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasCrotStridedBatched_64_rank_1_devptr(handle,n,x,incx,stridex,y,incy,stridey,c, & + s,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmv_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotStridedBatched_64_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: AP - integer(c_int64_t) :: lda - complex(c_double_complex),target,dimension(..) :: x + complex(c_float_complex),target,dimension(:) :: x integer(c_int64_t) :: incx - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int64_t) :: batchCount ! - hipblasZhbmv_64_assumed_rank = hipblasZhbmv_64_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasCrotStridedBatched_64_rank_1_devptr = hipblasCrotStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c,s,batchCount) end function -#else - function hipblasZhbmv_64_rank_0(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasCrotStridedBatched_64_strided_rank(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmv_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotStridedBatched_64_strided_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: AP - integer(c_int64_t) :: lda - complex(c_double_complex),target :: x + complex(c_float_complex),target,dimension(:,:) :: x integer(c_int64_t) :: incx - complex(c_double_complex),target :: beta - complex(c_double_complex),target :: y + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:) :: y integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_float),target :: c + complex(c_float_complex),target :: s + integer(c_int64_t) :: batchCount ! - hipblasZhbmv_64_rank_0 = hipblasZhbmv_64_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasCrotStridedBatched_64_strided_rank = hipblasCrotStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,c_loc(c),c_loc(s),batchCount) end function - function hipblasZhbmv_64_rank_1(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasCrotStridedBatched_64_strided_rank_devptr(handle,n,x,incx,stridex,y,incy, & + stridey,c,s,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmv_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotStridedBatched_64_strided_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: AP - integer(c_int64_t) :: lda - complex(c_double_complex),target,dimension(:) :: x + complex(c_float_complex),target,dimension(:,:) :: x integer(c_int64_t) :: incx - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:) :: y integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int64_t) :: batchCount ! - hipblasZhbmv_64_rank_1 = hipblasZhbmv_64_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasCrotStridedBatched_64_strided_rank_devptr = hipblasCrotStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c,s,batchCount) end function - function hipblasZhbmv_64_full_rank(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCsrotStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey,c, & + s,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmv_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrotStridedBatched_64_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - complex(c_double_complex),target,dimension(:) :: x + complex(c_float_complex),target,dimension(..) :: x integer(c_int64_t) :: incx - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: y integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_float),target :: c + real(c_float),target :: s + integer(c_int64_t) :: batchCount ! - hipblasZhbmv_64_full_rank = hipblasZhbmv_64_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasCsrotStridedBatched_64_assumed_rank = hipblasCsrotStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(c),c_loc(s),batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasChbmvStridedBatched_assumed_rank(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasCsrotStridedBatched_64_assumed_rank_devptr(handle,n,x,incx,stridex,y,incy, & + stridey,c,s,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmvStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrotStridedBatched_64_assumed_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - integer(c_int) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA + integer(c_int64_t) :: n complex(c_float_complex),target,dimension(..) :: x - integer(c_int) :: incx + integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - complex(c_float_complex),target :: beta complex(c_float_complex),target,dimension(..) :: y - integer(c_int) :: incy + integer(c_int64_t) :: incy integer(c_int64_t) :: stridey - integer(c_int) :: batchCount + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int64_t) :: batchCount ! - hipblasChbmvStridedBatched_assumed_rank = hipblasChbmvStridedBatched_(handle,uplo,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasCsrotStridedBatched_64_assumed_rank_devptr = hipblasCsrotStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c,s,batchCount) end function #else - function hipblasChbmvStridedBatched_rank_0(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasCsrotStridedBatched_64_rank_0(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmvStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrotStridedBatched_64_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - integer(c_int) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA + integer(c_int64_t) :: n complex(c_float_complex),target :: x - integer(c_int) :: incx + integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - complex(c_float_complex),target :: beta complex(c_float_complex),target :: y - integer(c_int) :: incy + integer(c_int64_t) :: incy integer(c_int64_t) :: stridey - integer(c_int) :: batchCount + real(c_float),target :: c + real(c_float),target :: s + integer(c_int64_t) :: batchCount ! - hipblasChbmvStridedBatched_rank_0 = hipblasChbmvStridedBatched_(handle,uplo,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasCsrotStridedBatched_64_rank_0 = hipblasCsrotStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,c_loc(c),c_loc(s),batchCount) end function - function hipblasChbmvStridedBatched_rank_1(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasCsrotStridedBatched_64_rank_0_devptr(handle,n,x,incx,stridex,y,incy,stridey,c, & + s,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmvStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrotStridedBatched_64_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - integer(c_int) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:) :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:) :: y - integer(c_int) :: incy + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy integer(c_int64_t) :: stridey - integer(c_int) :: batchCount + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int64_t) :: batchCount ! - hipblasChbmvStridedBatched_rank_1 = hipblasChbmvStridedBatched_(handle,uplo,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasCsrotStridedBatched_64_rank_0_devptr = hipblasCsrotStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c,s,batchCount) end function - function hipblasChbmvStridedBatched_full_rank(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasCsrotStridedBatched_64_rank_1(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmvStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrotStridedBatched_64_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - integer(c_int) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:,:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA + integer(c_int64_t) :: n complex(c_float_complex),target,dimension(:) :: x - integer(c_int) :: incx + integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - complex(c_float_complex),target :: beta complex(c_float_complex),target,dimension(:) :: y - integer(c_int) :: incy + integer(c_int64_t) :: incy integer(c_int64_t) :: stridey - integer(c_int) :: batchCount + real(c_float),target :: c + real(c_float),target :: s + integer(c_int64_t) :: batchCount ! - hipblasChbmvStridedBatched_full_rank = hipblasChbmvStridedBatched_(handle,uplo,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasCsrotStridedBatched_64_rank_1 = hipblasCsrotStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,c_loc(c),c_loc(s),batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZhbmvStridedBatched_assumed_rank(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasCsrotStridedBatched_64_rank_1_devptr(handle,n,x,incx,stridex,y,incy,stridey,c, & + s,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmvStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrotStridedBatched_64_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - integer(c_int) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(..) :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(..) :: y - integer(c_int) :: incy + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy integer(c_int64_t) :: stridey - integer(c_int) :: batchCount + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int64_t) :: batchCount ! - hipblasZhbmvStridedBatched_assumed_rank = hipblasZhbmvStridedBatched_(handle,uplo,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasCsrotStridedBatched_64_rank_1_devptr = hipblasCsrotStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c,s,batchCount) end function -#else - function hipblasZhbmvStridedBatched_rank_0(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasCsrotStridedBatched_64_strided_rank(handle,n,x,incx,stridex,y,incy,stridey,c, & + s,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmvStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrotStridedBatched_64_strided_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - integer(c_int) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - complex(c_double_complex),target :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - complex(c_double_complex),target :: beta - complex(c_double_complex),target :: y - integer(c_int) :: incy + complex(c_float_complex),target,dimension(:,:) :: y + integer(c_int64_t) :: incy integer(c_int64_t) :: stridey - integer(c_int) :: batchCount + real(c_float),target :: c + real(c_float),target :: s + integer(c_int64_t) :: batchCount ! - hipblasZhbmvStridedBatched_rank_0 = hipblasZhbmvStridedBatched_(handle,uplo,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasCsrotStridedBatched_64_strided_rank = hipblasCsrotStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(c),c_loc(s),batchCount) end function - function hipblasZhbmvStridedBatched_rank_1(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasCsrotStridedBatched_64_strided_rank_devptr(handle,n,x,incx,stridex,y,incy, & + stridey,c,s,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmvStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrotStridedBatched_64_strided_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - integer(c_int) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:) :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:) :: y - integer(c_int) :: incy + complex(c_float_complex),target,dimension(:,:) :: y + integer(c_int64_t) :: incy integer(c_int64_t) :: stridey - integer(c_int) :: batchCount + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int64_t) :: batchCount ! - hipblasZhbmvStridedBatched_rank_1 = hipblasZhbmvStridedBatched_(handle,uplo,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasCsrotStridedBatched_64_strided_rank_devptr = hipblasCsrotStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c,s,batchCount) end function - function hipblasZhbmvStridedBatched_full_rank(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZrotStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmvStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotStridedBatched_64_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - integer(c_int) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:,:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:) :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:) :: y - integer(c_int) :: incy + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy integer(c_int64_t) :: stridey - integer(c_int) :: batchCount + real(c_double),target :: c + complex(c_double_complex),target :: s + integer(c_int64_t) :: batchCount ! - hipblasZhbmvStridedBatched_full_rank = hipblasZhbmvStridedBatched_(handle,uplo,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasZrotStridedBatched_64_assumed_rank = hipblasZrotStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,c_loc(c),c_loc(s),batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasChbmvStridedBatched_64_assumed_rank(handle,uplo,n,k,alpha,AP,lda,strideA,x, & - incx,stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasZrotStridedBatched_64_assumed_rank_devptr(handle,n,x,incx,stridex,y,incy, & + stridey,c,s,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmvStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotStridedBatched_64_assumed_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(..) :: x + complex(c_double_complex),target,dimension(..) :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(..) :: y + complex(c_double_complex),target,dimension(..) :: y integer(c_int64_t) :: incy integer(c_int64_t) :: stridey + type(c_ptr),value :: c + type(c_ptr),value :: s integer(c_int64_t) :: batchCount ! - hipblasChbmvStridedBatched_64_assumed_rank = hipblasChbmvStridedBatched_64_(handle,uplo,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasZrotStridedBatched_64_assumed_rank_devptr = hipblasZrotStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c,s,batchCount) end function #else - function hipblasChbmvStridedBatched_64_rank_0(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasZrotStridedBatched_64_rank_0(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmvStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotStridedBatched_64_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - complex(c_float_complex),target :: x + complex(c_double_complex),target :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - complex(c_float_complex),target :: beta - complex(c_float_complex),target :: y + complex(c_double_complex),target :: y integer(c_int64_t) :: incy integer(c_int64_t) :: stridey + real(c_double),target :: c + complex(c_double_complex),target :: s integer(c_int64_t) :: batchCount ! - hipblasChbmvStridedBatched_64_rank_0 = hipblasChbmvStridedBatched_64_(handle,uplo,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasZrotStridedBatched_64_rank_0 = hipblasZrotStridedBatched_64_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,c_loc(c),c_loc(s),batchCount) end function - function hipblasChbmvStridedBatched_64_rank_1(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasZrotStridedBatched_64_rank_0_devptr(handle,n,x,incx,stridex,y,incy,stridey,c, & + s,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmvStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotStridedBatched_64_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:) :: x + complex(c_double_complex),target :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:) :: y + complex(c_double_complex),target :: y integer(c_int64_t) :: incy integer(c_int64_t) :: stridey + type(c_ptr),value :: c + type(c_ptr),value :: s integer(c_int64_t) :: batchCount ! - hipblasChbmvStridedBatched_64_rank_1 = hipblasChbmvStridedBatched_64_(handle,uplo,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasZrotStridedBatched_64_rank_0_devptr = hipblasZrotStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c,s,batchCount) end function - function hipblasChbmvStridedBatched_64_full_rank(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasZrotStridedBatched_64_rank_1(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmvStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotStridedBatched_64_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:) :: x + complex(c_double_complex),target,dimension(:) :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:) :: y + complex(c_double_complex),target,dimension(:) :: y integer(c_int64_t) :: incy integer(c_int64_t) :: stridey + real(c_double),target :: c + complex(c_double_complex),target :: s integer(c_int64_t) :: batchCount ! - hipblasChbmvStridedBatched_64_full_rank = hipblasChbmvStridedBatched_64_(handle,uplo,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasZrotStridedBatched_64_rank_1 = hipblasZrotStridedBatched_64_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,c_loc(c),c_loc(s),batchCount) + end function + + function hipblasZrotStridedBatched_64_rank_1_devptr(handle,n,x,incx,stridex,y,incy,stridey,c, & + s,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotStridedBatched_64_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int64_t) :: batchCount + ! + hipblasZrotStridedBatched_64_rank_1_devptr = hipblasZrotStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c,s,batchCount) + end function + + function hipblasZrotStridedBatched_64_strided_rank(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_double),target :: c + complex(c_double_complex),target :: s + integer(c_int64_t) :: batchCount + ! + hipblasZrotStridedBatched_64_strided_rank = hipblasZrotStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,c_loc(c),c_loc(s),batchCount) + end function + + function hipblasZrotStridedBatched_64_strided_rank_devptr(handle,n,x,incx,stridex,y,incy, & + stridey,c,s,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotStridedBatched_64_strided_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int64_t) :: batchCount + ! + hipblasZrotStridedBatched_64_strided_rank_devptr = hipblasZrotStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c,s,batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasZhbmvStridedBatched_64_assumed_rank(handle,uplo,n,k,alpha,AP,lda,strideA,x, & - incx,stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasZdrotStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey,c, & + s,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmvStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrotStridedBatched_64_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA complex(c_double_complex),target,dimension(..) :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - complex(c_double_complex),target :: beta complex(c_double_complex),target,dimension(..) :: y integer(c_int64_t) :: incy integer(c_int64_t) :: stridey + real(c_double),target :: c + real(c_double),target :: s integer(c_int64_t) :: batchCount ! - hipblasZhbmvStridedBatched_64_assumed_rank = hipblasZhbmvStridedBatched_64_(handle,uplo,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasZdrotStridedBatched_64_assumed_rank = hipblasZdrotStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(c),c_loc(s),batchCount) + end function + + function hipblasZdrotStridedBatched_64_assumed_rank_devptr(handle,n,x,incx,stridex,y,incy, & + stridey,c,s,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrotStridedBatched_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int64_t) :: batchCount + ! + hipblasZdrotStridedBatched_64_assumed_rank_devptr = hipblasZdrotStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c,s,batchCount) end function #else - function hipblasZhbmvStridedBatched_64_rank_0(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasZdrotStridedBatched_64_rank_0(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmvStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrotStridedBatched_64_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA complex(c_double_complex),target :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - complex(c_double_complex),target :: beta complex(c_double_complex),target :: y integer(c_int64_t) :: incy integer(c_int64_t) :: stridey + real(c_double),target :: c + real(c_double),target :: s integer(c_int64_t) :: batchCount ! - hipblasZhbmvStridedBatched_64_rank_0 = hipblasZhbmvStridedBatched_64_(handle,uplo,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasZdrotStridedBatched_64_rank_0 = hipblasZdrotStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,c_loc(c),c_loc(s),batchCount) end function - function hipblasZhbmvStridedBatched_64_rank_1(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasZdrotStridedBatched_64_rank_0_devptr(handle,n,x,incx,stridex,y,incy,stridey,c, & + s,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmvStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrotStridedBatched_64_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int64_t) :: batchCount + ! + hipblasZdrotStridedBatched_64_rank_0_devptr = hipblasZdrotStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c,s,batchCount) + end function + + function hipblasZdrotStridedBatched_64_rank_1(handle,n,x,incx,stridex,y,incy,stridey,c,s, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrotStridedBatched_64_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA complex(c_double_complex),target,dimension(:) :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - complex(c_double_complex),target :: beta complex(c_double_complex),target,dimension(:) :: y integer(c_int64_t) :: incy integer(c_int64_t) :: stridey + real(c_double),target :: c + real(c_double),target :: s integer(c_int64_t) :: batchCount ! - hipblasZhbmvStridedBatched_64_rank_1 = hipblasZhbmvStridedBatched_64_(handle,uplo,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasZdrotStridedBatched_64_rank_1 = hipblasZdrotStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,c_loc(c),c_loc(s),batchCount) end function - function hipblasZhbmvStridedBatched_64_full_rank(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasZdrotStridedBatched_64_rank_1_devptr(handle,n,x,incx,stridex,y,incy,stridey,c, & + s,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmvStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrotStridedBatched_64_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA complex(c_double_complex),target,dimension(:) :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - complex(c_double_complex),target :: beta complex(c_double_complex),target,dimension(:) :: y integer(c_int64_t) :: incy integer(c_int64_t) :: stridey + type(c_ptr),value :: c + type(c_ptr),value :: s integer(c_int64_t) :: batchCount ! - hipblasZhbmvStridedBatched_64_full_rank = hipblasZhbmvStridedBatched_64_(handle,uplo,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasZdrotStridedBatched_64_rank_1_devptr = hipblasZdrotStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c,s,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasChemv_assumed_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasZdrotStridedBatched_64_strided_rank(handle,n,x,incx,stridex,y,incy,stridey,c, & + s,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemv_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrotStridedBatched_64_strided_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: AP - integer(c_int) :: lda - complex(c_float_complex),target,dimension(..) :: x - integer(c_int) :: incx - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(..) :: y - integer(c_int) :: incy + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_double),target :: c + real(c_double),target :: s + integer(c_int64_t) :: batchCount ! - hipblasChemv_assumed_rank = hipblasChemv_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & - incx,c_loc(beta),c_loc(y),incy) + hipblasZdrotStridedBatched_64_strided_rank = hipblasZdrotStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(c),c_loc(s),batchCount) end function -#else - function hipblasChemv_rank_0(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasZdrotStridedBatched_64_strided_rank_devptr(handle,n,x,incx,stridex,y,incy, & + stridey,c,s,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemv_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrotStridedBatched_64_strided_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: AP - integer(c_int) :: lda - complex(c_float_complex),target :: x - integer(c_int) :: incx - complex(c_float_complex),target :: beta - complex(c_float_complex),target :: y - integer(c_int) :: incy + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int64_t) :: batchCount ! - hipblasChemv_rank_0 = hipblasChemv_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x),incx, & - c_loc(beta),c_loc(y),incy) + hipblasZdrotStridedBatched_64_strided_rank_devptr = hipblasZdrotStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c,s,batchCount) end function - function hipblasChemv_rank_1(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSrotgStridedBatched_assumed_rank(handle,a,stridea,b,strideb,c,stridec,s, & + strides,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemv_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotgStridedBatched_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: AP - integer(c_int) :: lda - complex(c_float_complex),target,dimension(:) :: x - integer(c_int) :: incx - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:) :: y - integer(c_int) :: incy + real(c_float),target,dimension(..) :: a + integer(c_int64_t) :: stridea + real(c_float),target,dimension(..) :: b + integer(c_int64_t) :: strideb + real(c_float),target,dimension(..) :: c + integer(c_int64_t) :: stridec + real(c_float),target,dimension(..) :: s + integer(c_int64_t) :: strides + integer(c_int) :: batchCount ! - hipblasChemv_rank_1 = hipblasChemv_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x),incx, & - c_loc(beta),c_loc(y),incy) + hipblasSrotgStridedBatched_assumed_rank = hipblasSrotgStridedBatched_(handle,c_loc(a), & + stridea,c_loc(b),strideb,c_loc(c),stridec,c_loc(s),strides,batchCount) end function - function hipblasChemv_full_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding +#else + function hipblasSrotgStridedBatched_rank_0(handle,a,stridea,b,strideb,c,stridec,s,strides, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemv_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotgStridedBatched_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:,:) :: AP - integer(c_int) :: lda - complex(c_float_complex),target,dimension(:) :: x - integer(c_int) :: incx - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:) :: y - integer(c_int) :: incy + real(c_float),target :: a + integer(c_int64_t) :: stridea + real(c_float),target :: b + integer(c_int64_t) :: strideb + real(c_float),target :: c + integer(c_int64_t) :: stridec + real(c_float),target :: s + integer(c_int64_t) :: strides + integer(c_int) :: batchCount ! - hipblasChemv_full_rank = hipblasChemv_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & - incx,c_loc(beta),c_loc(y),incy) + hipblasSrotgStridedBatched_rank_0 = hipblasSrotgStridedBatched_(handle,c_loc(a),stridea, & + c_loc(b),strideb,c_loc(c),stridec,c_loc(s),strides,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZhemv_assumed_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasSrotgStridedBatched_rank_1(handle,a,stridea,b,strideb,c,stridec,s,strides, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemv_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotgStridedBatched_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: AP - integer(c_int) :: lda - complex(c_double_complex),target,dimension(..) :: x - integer(c_int) :: incx - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(..) :: y - integer(c_int) :: incy + real(c_float),target,dimension(:) :: a + integer(c_int64_t) :: stridea + real(c_float),target,dimension(:) :: b + integer(c_int64_t) :: strideb + real(c_float),target,dimension(:) :: c + integer(c_int64_t) :: stridec + real(c_float),target,dimension(:) :: s + integer(c_int64_t) :: strides + integer(c_int) :: batchCount ! - hipblasZhemv_assumed_rank = hipblasZhemv_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & - incx,c_loc(beta),c_loc(y),incy) + hipblasSrotgStridedBatched_rank_1 = hipblasSrotgStridedBatched_(handle,c_loc(a),stridea, & + c_loc(b),strideb,c_loc(c),stridec,c_loc(s),strides,batchCount) end function -#else - function hipblasZhemv_rank_0(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDrotgStridedBatched_assumed_rank(handle,a,stridea,b,strideb,c,stridec,s, & + strides,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemv_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotgStridedBatched_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: AP - integer(c_int) :: lda - complex(c_double_complex),target :: x - integer(c_int) :: incx - complex(c_double_complex),target :: beta - complex(c_double_complex),target :: y - integer(c_int) :: incy + real(c_double),target,dimension(..) :: a + integer(c_int64_t) :: stridea + real(c_double),target,dimension(..) :: b + integer(c_int64_t) :: strideb + real(c_double),target,dimension(..) :: c + integer(c_int64_t) :: stridec + real(c_double),target,dimension(..) :: s + integer(c_int64_t) :: strides + integer(c_int) :: batchCount ! - hipblasZhemv_rank_0 = hipblasZhemv_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x),incx, & - c_loc(beta),c_loc(y),incy) + hipblasDrotgStridedBatched_assumed_rank = hipblasDrotgStridedBatched_(handle,c_loc(a), & + stridea,c_loc(b),strideb,c_loc(c),stridec,c_loc(s),strides,batchCount) end function - function hipblasZhemv_rank_1(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding +#else + function hipblasDrotgStridedBatched_rank_0(handle,a,stridea,b,strideb,c,stridec,s,strides, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemv_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotgStridedBatched_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: AP - integer(c_int) :: lda - complex(c_double_complex),target,dimension(:) :: x - integer(c_int) :: incx - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:) :: y - integer(c_int) :: incy + real(c_double),target :: a + integer(c_int64_t) :: stridea + real(c_double),target :: b + integer(c_int64_t) :: strideb + real(c_double),target :: c + integer(c_int64_t) :: stridec + real(c_double),target :: s + integer(c_int64_t) :: strides + integer(c_int) :: batchCount ! - hipblasZhemv_rank_1 = hipblasZhemv_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x),incx, & - c_loc(beta),c_loc(y),incy) + hipblasDrotgStridedBatched_rank_0 = hipblasDrotgStridedBatched_(handle,c_loc(a),stridea, & + c_loc(b),strideb,c_loc(c),stridec,c_loc(s),strides,batchCount) end function - function hipblasZhemv_full_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasDrotgStridedBatched_rank_1(handle,a,stridea,b,strideb,c,stridec,s,strides, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemv_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotgStridedBatched_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:,:) :: AP - integer(c_int) :: lda - complex(c_double_complex),target,dimension(:) :: x - integer(c_int) :: incx - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:) :: y - integer(c_int) :: incy + real(c_double),target,dimension(:) :: a + integer(c_int64_t) :: stridea + real(c_double),target,dimension(:) :: b + integer(c_int64_t) :: strideb + real(c_double),target,dimension(:) :: c + integer(c_int64_t) :: stridec + real(c_double),target,dimension(:) :: s + integer(c_int64_t) :: strides + integer(c_int) :: batchCount ! - hipblasZhemv_full_rank = hipblasZhemv_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & - incx,c_loc(beta),c_loc(y),incy) + hipblasDrotgStridedBatched_rank_1 = hipblasDrotgStridedBatched_(handle,c_loc(a),stridea, & + c_loc(b),strideb,c_loc(c),stridec,c_loc(s),strides,batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasChemv_64_assumed_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasCrotgStridedBatched_assumed_rank(handle,a,stridea,b,strideb,c,stridec,s, & + strides,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemv_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotgStridedBatched_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: AP - integer(c_int64_t) :: lda - complex(c_float_complex),target,dimension(..) :: x - integer(c_int64_t) :: incx - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(..) :: y - integer(c_int64_t) :: incy + complex(c_float_complex),target,dimension(..) :: a + integer(c_int64_t) :: stridea + complex(c_float_complex),target,dimension(..) :: b + integer(c_int64_t) :: strideb + real(c_float),target,dimension(..) :: c + integer(c_int64_t) :: stridec + complex(c_float_complex),target,dimension(..) :: s + integer(c_int64_t) :: strides + integer(c_int) :: batchCount ! - hipblasChemv_64_assumed_rank = hipblasChemv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasCrotgStridedBatched_assumed_rank = hipblasCrotgStridedBatched_(handle,c_loc(a), & + stridea,c_loc(b),strideb,c_loc(c),stridec,c_loc(s),strides,batchCount) end function #else - function hipblasChemv_64_rank_0(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasCrotgStridedBatched_rank_0(handle,a,stridea,b,strideb,c,stridec,s,strides, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemv_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotgStridedBatched_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: AP - integer(c_int64_t) :: lda - complex(c_float_complex),target :: x - integer(c_int64_t) :: incx - complex(c_float_complex),target :: beta - complex(c_float_complex),target :: y - integer(c_int64_t) :: incy + complex(c_float_complex),target :: a + integer(c_int64_t) :: stridea + complex(c_float_complex),target :: b + integer(c_int64_t) :: strideb + real(c_float),target :: c + integer(c_int64_t) :: stridec + complex(c_float_complex),target :: s + integer(c_int64_t) :: strides + integer(c_int) :: batchCount ! - hipblasChemv_64_rank_0 = hipblasChemv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & - incx,c_loc(beta),c_loc(y),incy) + hipblasCrotgStridedBatched_rank_0 = hipblasCrotgStridedBatched_(handle,c_loc(a),stridea, & + c_loc(b),strideb,c_loc(c),stridec,c_loc(s),strides,batchCount) end function - function hipblasChemv_64_rank_1(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasCrotgStridedBatched_rank_1(handle,a,stridea,b,strideb,c,stridec,s,strides, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemv_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotgStridedBatched_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: AP - integer(c_int64_t) :: lda - complex(c_float_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:) :: y - integer(c_int64_t) :: incy + complex(c_float_complex),target,dimension(:) :: a + integer(c_int64_t) :: stridea + complex(c_float_complex),target,dimension(:) :: b + integer(c_int64_t) :: strideb + real(c_float),target,dimension(:) :: c + integer(c_int64_t) :: stridec + complex(c_float_complex),target,dimension(:) :: s + integer(c_int64_t) :: strides + integer(c_int) :: batchCount ! - hipblasChemv_64_rank_1 = hipblasChemv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & - incx,c_loc(beta),c_loc(y),incy) + hipblasCrotgStridedBatched_rank_1 = hipblasCrotgStridedBatched_(handle,c_loc(a),stridea, & + c_loc(b),strideb,c_loc(c),stridec,c_loc(s),strides,batchCount) end function - function hipblasChemv_64_full_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZrotgStridedBatched_assumed_rank(handle,a,stridea,b,strideb,c,stridec,s, & + strides,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemv_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotgStridedBatched_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - complex(c_float_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:) :: y - integer(c_int64_t) :: incy + complex(c_double_complex),target,dimension(..) :: a + integer(c_int64_t) :: stridea + complex(c_double_complex),target,dimension(..) :: b + integer(c_int64_t) :: strideb + real(c_double),target,dimension(..) :: c + integer(c_int64_t) :: stridec + complex(c_double_complex),target,dimension(..) :: s + integer(c_int64_t) :: strides + integer(c_int) :: batchCount ! - hipblasChemv_64_full_rank = hipblasChemv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasZrotgStridedBatched_assumed_rank = hipblasZrotgStridedBatched_(handle,c_loc(a), & + stridea,c_loc(b),strideb,c_loc(c),stridec,c_loc(s),strides,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZhemv_64_assumed_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding +#else + function hipblasZrotgStridedBatched_rank_0(handle,a,stridea,b,strideb,c,stridec,s,strides, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemv_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotgStridedBatched_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: AP - integer(c_int64_t) :: lda - complex(c_double_complex),target,dimension(..) :: x - integer(c_int64_t) :: incx - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(..) :: y - integer(c_int64_t) :: incy + complex(c_double_complex),target :: a + integer(c_int64_t) :: stridea + complex(c_double_complex),target :: b + integer(c_int64_t) :: strideb + real(c_double),target :: c + integer(c_int64_t) :: stridec + complex(c_double_complex),target :: s + integer(c_int64_t) :: strides + integer(c_int) :: batchCount ! - hipblasZhemv_64_assumed_rank = hipblasZhemv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasZrotgStridedBatched_rank_0 = hipblasZrotgStridedBatched_(handle,c_loc(a),stridea, & + c_loc(b),strideb,c_loc(c),stridec,c_loc(s),strides,batchCount) + end function + + function hipblasZrotgStridedBatched_rank_1(handle,a,stridea,b,strideb,c,stridec,s,strides, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotgStridedBatched_rank_1 + type(c_ptr), value :: handle + complex(c_double_complex),target,dimension(:) :: a + integer(c_int64_t) :: stridea + complex(c_double_complex),target,dimension(:) :: b + integer(c_int64_t) :: strideb + real(c_double),target,dimension(:) :: c + integer(c_int64_t) :: stridec + complex(c_double_complex),target,dimension(:) :: s + integer(c_int64_t) :: strides + integer(c_int) :: batchCount + ! + hipblasZrotgStridedBatched_rank_1 = hipblasZrotgStridedBatched_(handle,c_loc(a),stridea, & + c_loc(b),strideb,c_loc(c),stridec,c_loc(s),strides,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSrotgStridedBatched_64_assumed_rank(handle,a,stridea,b,strideb,c,stridec,s, & + strides,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotgStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + real(c_float),target,dimension(..) :: a + integer(c_int64_t) :: stridea + real(c_float),target,dimension(..) :: b + integer(c_int64_t) :: strideb + real(c_float),target,dimension(..) :: c + integer(c_int64_t) :: stridec + real(c_float),target,dimension(..) :: s + integer(c_int64_t) :: strides + integer(c_int64_t) :: batchCount + ! + hipblasSrotgStridedBatched_64_assumed_rank = hipblasSrotgStridedBatched_64_(handle,c_loc(a), & + stridea,c_loc(b),strideb,c_loc(c),stridec,c_loc(s),strides,batchCount) end function #else - function hipblasZhemv_64_rank_0(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasSrotgStridedBatched_64_rank_0(handle,a,stridea,b,strideb,c,stridec,s,strides, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemv_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotgStridedBatched_64_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: AP - integer(c_int64_t) :: lda - complex(c_double_complex),target :: x - integer(c_int64_t) :: incx - complex(c_double_complex),target :: beta - complex(c_double_complex),target :: y - integer(c_int64_t) :: incy + real(c_float),target :: a + integer(c_int64_t) :: stridea + real(c_float),target :: b + integer(c_int64_t) :: strideb + real(c_float),target :: c + integer(c_int64_t) :: stridec + real(c_float),target :: s + integer(c_int64_t) :: strides + integer(c_int64_t) :: batchCount ! - hipblasZhemv_64_rank_0 = hipblasZhemv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & - incx,c_loc(beta),c_loc(y),incy) + hipblasSrotgStridedBatched_64_rank_0 = hipblasSrotgStridedBatched_64_(handle,c_loc(a), & + stridea,c_loc(b),strideb,c_loc(c),stridec,c_loc(s),strides,batchCount) end function - function hipblasZhemv_64_rank_1(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasSrotgStridedBatched_64_rank_1(handle,a,stridea,b,strideb,c,stridec,s,strides, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemv_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotgStridedBatched_64_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: AP - integer(c_int64_t) :: lda - complex(c_double_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:) :: y - integer(c_int64_t) :: incy + real(c_float),target,dimension(:) :: a + integer(c_int64_t) :: stridea + real(c_float),target,dimension(:) :: b + integer(c_int64_t) :: strideb + real(c_float),target,dimension(:) :: c + integer(c_int64_t) :: stridec + real(c_float),target,dimension(:) :: s + integer(c_int64_t) :: strides + integer(c_int64_t) :: batchCount ! - hipblasZhemv_64_rank_1 = hipblasZhemv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & - incx,c_loc(beta),c_loc(y),incy) + hipblasSrotgStridedBatched_64_rank_1 = hipblasSrotgStridedBatched_64_(handle,c_loc(a), & + stridea,c_loc(b),strideb,c_loc(c),stridec,c_loc(s),strides,batchCount) end function - function hipblasZhemv_64_full_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDrotgStridedBatched_64_assumed_rank(handle,a,stridea,b,strideb,c,stridec,s, & + strides,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemv_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotgStridedBatched_64_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - complex(c_double_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:) :: y - integer(c_int64_t) :: incy + real(c_double),target,dimension(..) :: a + integer(c_int64_t) :: stridea + real(c_double),target,dimension(..) :: b + integer(c_int64_t) :: strideb + real(c_double),target,dimension(..) :: c + integer(c_int64_t) :: stridec + real(c_double),target,dimension(..) :: s + integer(c_int64_t) :: strides + integer(c_int64_t) :: batchCount ! - hipblasZhemv_64_full_rank = hipblasZhemv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasDrotgStridedBatched_64_assumed_rank = hipblasDrotgStridedBatched_64_(handle,c_loc(a), & + stridea,c_loc(b),strideb,c_loc(c),stridec,c_loc(s),strides,batchCount) + end function + +#else + function hipblasDrotgStridedBatched_64_rank_0(handle,a,stridea,b,strideb,c,stridec,s,strides, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotgStridedBatched_64_rank_0 + type(c_ptr), value :: handle + real(c_double),target :: a + integer(c_int64_t) :: stridea + real(c_double),target :: b + integer(c_int64_t) :: strideb + real(c_double),target :: c + integer(c_int64_t) :: stridec + real(c_double),target :: s + integer(c_int64_t) :: strides + integer(c_int64_t) :: batchCount + ! + hipblasDrotgStridedBatched_64_rank_0 = hipblasDrotgStridedBatched_64_(handle,c_loc(a), & + stridea,c_loc(b),strideb,c_loc(c),stridec,c_loc(s),strides,batchCount) + end function + + function hipblasDrotgStridedBatched_64_rank_1(handle,a,stridea,b,strideb,c,stridec,s,strides, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotgStridedBatched_64_rank_1 + type(c_ptr), value :: handle + real(c_double),target,dimension(:) :: a + integer(c_int64_t) :: stridea + real(c_double),target,dimension(:) :: b + integer(c_int64_t) :: strideb + real(c_double),target,dimension(:) :: c + integer(c_int64_t) :: stridec + real(c_double),target,dimension(:) :: s + integer(c_int64_t) :: strides + integer(c_int64_t) :: batchCount + ! + hipblasDrotgStridedBatched_64_rank_1 = hipblasDrotgStridedBatched_64_(handle,c_loc(a), & + stridea,c_loc(b),strideb,c_loc(c),stridec,c_loc(s),strides,batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasChemvStridedBatched_assumed_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasCrotgStridedBatched_64_assumed_rank(handle,a,stridea,b,strideb,c,stridec,s, & + strides,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemvStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotgStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + complex(c_float_complex),target,dimension(..) :: a + integer(c_int64_t) :: stridea + complex(c_float_complex),target,dimension(..) :: b + integer(c_int64_t) :: strideb + real(c_float),target,dimension(..) :: c + integer(c_int64_t) :: stridec + complex(c_float_complex),target,dimension(..) :: s + integer(c_int64_t) :: strides + integer(c_int64_t) :: batchCount + ! + hipblasCrotgStridedBatched_64_assumed_rank = hipblasCrotgStridedBatched_64_(handle,c_loc(a), & + stridea,c_loc(b),strideb,c_loc(c),stridec,c_loc(s),strides,batchCount) + end function + +#else + function hipblasCrotgStridedBatched_64_rank_0(handle,a,stridea,b,strideb,c,stridec,s,strides, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotgStridedBatched_64_rank_0 + type(c_ptr), value :: handle + complex(c_float_complex),target :: a + integer(c_int64_t) :: stridea + complex(c_float_complex),target :: b + integer(c_int64_t) :: strideb + real(c_float),target :: c + integer(c_int64_t) :: stridec + complex(c_float_complex),target :: s + integer(c_int64_t) :: strides + integer(c_int64_t) :: batchCount + ! + hipblasCrotgStridedBatched_64_rank_0 = hipblasCrotgStridedBatched_64_(handle,c_loc(a), & + stridea,c_loc(b),strideb,c_loc(c),stridec,c_loc(s),strides,batchCount) + end function + + function hipblasCrotgStridedBatched_64_rank_1(handle,a,stridea,b,strideb,c,stridec,s,strides, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotgStridedBatched_64_rank_1 + type(c_ptr), value :: handle + complex(c_float_complex),target,dimension(:) :: a + integer(c_int64_t) :: stridea + complex(c_float_complex),target,dimension(:) :: b + integer(c_int64_t) :: strideb + real(c_float),target,dimension(:) :: c + integer(c_int64_t) :: stridec + complex(c_float_complex),target,dimension(:) :: s + integer(c_int64_t) :: strides + integer(c_int64_t) :: batchCount + ! + hipblasCrotgStridedBatched_64_rank_1 = hipblasCrotgStridedBatched_64_(handle,c_loc(a), & + stridea,c_loc(b),strideb,c_loc(c),stridec,c_loc(s),strides,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZrotgStridedBatched_64_assumed_rank(handle,a,stridea,b,strideb,c,stridec,s, & + strides,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotgStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + complex(c_double_complex),target,dimension(..) :: a + integer(c_int64_t) :: stridea + complex(c_double_complex),target,dimension(..) :: b + integer(c_int64_t) :: strideb + real(c_double),target,dimension(..) :: c + integer(c_int64_t) :: stridec + complex(c_double_complex),target,dimension(..) :: s + integer(c_int64_t) :: strides + integer(c_int64_t) :: batchCount + ! + hipblasZrotgStridedBatched_64_assumed_rank = hipblasZrotgStridedBatched_64_(handle,c_loc(a), & + stridea,c_loc(b),strideb,c_loc(c),stridec,c_loc(s),strides,batchCount) + end function + +#else + function hipblasZrotgStridedBatched_64_rank_0(handle,a,stridea,b,strideb,c,stridec,s,strides, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotgStridedBatched_64_rank_0 + type(c_ptr), value :: handle + complex(c_double_complex),target :: a + integer(c_int64_t) :: stridea + complex(c_double_complex),target :: b + integer(c_int64_t) :: strideb + real(c_double),target :: c + integer(c_int64_t) :: stridec + complex(c_double_complex),target :: s + integer(c_int64_t) :: strides + integer(c_int64_t) :: batchCount + ! + hipblasZrotgStridedBatched_64_rank_0 = hipblasZrotgStridedBatched_64_(handle,c_loc(a), & + stridea,c_loc(b),strideb,c_loc(c),stridec,c_loc(s),strides,batchCount) + end function + + function hipblasZrotgStridedBatched_64_rank_1(handle,a,stridea,b,strideb,c,stridec,s,strides, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotgStridedBatched_64_rank_1 + type(c_ptr), value :: handle + complex(c_double_complex),target,dimension(:) :: a + integer(c_int64_t) :: stridea + complex(c_double_complex),target,dimension(:) :: b + integer(c_int64_t) :: strideb + real(c_double),target,dimension(:) :: c + integer(c_int64_t) :: stridec + complex(c_double_complex),target,dimension(:) :: s + integer(c_int64_t) :: strides + integer(c_int64_t) :: batchCount + ! + hipblasZrotgStridedBatched_64_rank_1 = hipblasZrotgStridedBatched_64_(handle,c_loc(a), & + stridea,c_loc(b),strideb,c_loc(c),stridec,c_loc(s),strides,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSrotm_assumed_rank(handle,n,x,incx,y,incy,param) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotm_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(..) :: x + real(c_float),target,dimension(..) :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(..) :: y + real(c_float),target,dimension(..) :: y integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount + real(c_float),target,dimension(..) :: param ! - hipblasChemvStridedBatched_assumed_rank = hipblasChemvStridedBatched_(handle,uplo,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasSrotm_assumed_rank = hipblasSrotm_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(param)) + end function + + function hipblasSrotm_assumed_rank_devptr(handle,n,x,incx,y,incy,param) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotm_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + real(c_float),target,dimension(..) :: y + integer(c_int) :: incy + type(c_ptr),value :: param + ! + hipblasSrotm_assumed_rank_devptr = hipblasSrotm_(handle,n,c_loc(x),incx,c_loc(y),incy,param) end function #else - function hipblasChemvStridedBatched_rank_0(handle,uplo,n,alpha,AP,lda,strideA,x,incx,stridex, & - beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasSrotm_rank_0(handle,n,x,incx,y,incy,param) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemvStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotm_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - complex(c_float_complex),target :: x + real(c_float),target :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - complex(c_float_complex),target :: beta - complex(c_float_complex),target :: y + real(c_float),target :: y integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount + real(c_float),target :: param ! - hipblasChemvStridedBatched_rank_0 = hipblasChemvStridedBatched_(handle,uplo,n,c_loc(alpha), & - c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey,batchCount) + hipblasSrotm_rank_0 = hipblasSrotm_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(param)) end function - function hipblasChemvStridedBatched_rank_1(handle,uplo,n,alpha,AP,lda,strideA,x,incx,stridex, & - beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasSrotm_rank_0_devptr(handle,n,x,incx,y,incy,param) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemvStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotm_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:) :: x + real(c_float),target :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:) :: y + real(c_float),target :: y integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount + type(c_ptr),value :: param ! - hipblasChemvStridedBatched_rank_1 = hipblasChemvStridedBatched_(handle,uplo,n,c_loc(alpha), & - c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey,batchCount) + hipblasSrotm_rank_0_devptr = hipblasSrotm_(handle,n,c_loc(x),incx,c_loc(y),incy,param) end function - function hipblasChemvStridedBatched_full_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasSrotm_rank_1(handle,n,x,incx,y,incy,param) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemvStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotm_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:,:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:) :: x + real(c_float),target,dimension(:) :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:) :: y + real(c_float),target,dimension(:) :: y integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount + real(c_float),target,dimension(:) :: param ! - hipblasChemvStridedBatched_full_rank = hipblasChemvStridedBatched_(handle,uplo,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasSrotm_rank_1 = hipblasSrotm_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(param)) + end function + + function hipblasSrotm_rank_1_devptr(handle,n,x,incx,y,incy,param) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotm_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + type(c_ptr),value :: param + ! + hipblasSrotm_rank_1_devptr = hipblasSrotm_(handle,n,c_loc(x),incx,c_loc(y),incy,param) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasZhemvStridedBatched_assumed_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasDrotm_assumed_rank(handle,n,x,incx,y,incy,param) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemvStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotm_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(..) :: x + real(c_double),target,dimension(..) :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(..) :: y + real(c_double),target,dimension(..) :: y integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount + real(c_double),target,dimension(..) :: param ! - hipblasZhemvStridedBatched_assumed_rank = hipblasZhemvStridedBatched_(handle,uplo,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasDrotm_assumed_rank = hipblasDrotm_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(param)) + end function + + function hipblasDrotm_assumed_rank_devptr(handle,n,x,incx,y,incy,param) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotm_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + real(c_double),target,dimension(..) :: y + integer(c_int) :: incy + type(c_ptr),value :: param + ! + hipblasDrotm_assumed_rank_devptr = hipblasDrotm_(handle,n,c_loc(x),incx,c_loc(y),incy,param) end function #else - function hipblasZhemvStridedBatched_rank_0(handle,uplo,n,alpha,AP,lda,strideA,x,incx,stridex, & - beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasDrotm_rank_0(handle,n,x,incx,y,incy,param) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemvStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotm_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - complex(c_double_complex),target :: x + real(c_double),target :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - complex(c_double_complex),target :: beta - complex(c_double_complex),target :: y + real(c_double),target :: y integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount + real(c_double),target :: param ! - hipblasZhemvStridedBatched_rank_0 = hipblasZhemvStridedBatched_(handle,uplo,n,c_loc(alpha), & - c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey,batchCount) + hipblasDrotm_rank_0 = hipblasDrotm_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(param)) end function - function hipblasZhemvStridedBatched_rank_1(handle,uplo,n,alpha,AP,lda,strideA,x,incx,stridex, & - beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasDrotm_rank_0_devptr(handle,n,x,incx,y,incy,param) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemvStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotm_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:) :: x + real(c_double),target :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:) :: y + real(c_double),target :: y integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount + type(c_ptr),value :: param ! - hipblasZhemvStridedBatched_rank_1 = hipblasZhemvStridedBatched_(handle,uplo,n,c_loc(alpha), & - c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey,batchCount) + hipblasDrotm_rank_0_devptr = hipblasDrotm_(handle,n,c_loc(x),incx,c_loc(y),incy,param) end function - function hipblasZhemvStridedBatched_full_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasDrotm_rank_1(handle,n,x,incx,y,incy,param) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemvStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotm_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:,:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:) :: x + real(c_double),target,dimension(:) :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:) :: y + real(c_double),target,dimension(:) :: y integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount + real(c_double),target,dimension(:) :: param ! - hipblasZhemvStridedBatched_full_rank = hipblasZhemvStridedBatched_(handle,uplo,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasDrotm_rank_1 = hipblasDrotm_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(param)) + end function + + function hipblasDrotm_rank_1_devptr(handle,n,x,incx,y,incy,param) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotm_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + type(c_ptr),value :: param + ! + hipblasDrotm_rank_1_devptr = hipblasDrotm_(handle,n,c_loc(x),incx,c_loc(y),incy,param) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasChemvStridedBatched_64_assumed_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasSrotm_64_assumed_rank(handle,n,x,incx,y,incy,param) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemvStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotm_64_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(..) :: x + real(c_float),target,dimension(..) :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(..) :: y + real(c_float),target,dimension(..) :: y integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount + real(c_float),target,dimension(..) :: param ! - hipblasChemvStridedBatched_64_assumed_rank = hipblasChemvStridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasSrotm_64_assumed_rank = hipblasSrotm_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + c_loc(param)) end function -#else - function hipblasChemvStridedBatched_64_rank_0(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasSrotm_64_assumed_rank_devptr(handle,n,x,incx,y,incy,param) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemvStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotm_64_assumed_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - complex(c_float_complex),target :: x + real(c_float),target,dimension(..) :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - complex(c_float_complex),target :: beta - complex(c_float_complex),target :: y + real(c_float),target,dimension(..) :: y integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount + type(c_ptr),value :: param ! - hipblasChemvStridedBatched_64_rank_0 = hipblasChemvStridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasSrotm_64_assumed_rank_devptr = hipblasSrotm_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + param) end function - function hipblasChemvStridedBatched_64_rank_1(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding +#else + function hipblasSrotm_64_rank_0(handle,n,x,incx,y,incy,param) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemvStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotm_64_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:) :: x + real(c_float),target :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:) :: y + real(c_float),target :: y integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount + real(c_float),target :: param ! - hipblasChemvStridedBatched_64_rank_1 = hipblasChemvStridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasSrotm_64_rank_0 = hipblasSrotm_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(param)) end function - function hipblasChemvStridedBatched_64_full_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasSrotm_64_rank_0_devptr(handle,n,x,incx,y,incy,param) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemvStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotm_64_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:) :: x + real(c_float),target :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:) :: y + real(c_float),target :: y integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount + type(c_ptr),value :: param ! - hipblasChemvStridedBatched_64_full_rank = hipblasChemvStridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasSrotm_64_rank_0_devptr = hipblasSrotm_64_(handle,n,c_loc(x),incx,c_loc(y),incy,param) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZhemvStridedBatched_64_assumed_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasSrotm_64_rank_1(handle,n,x,incx,y,incy,param) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemvStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotm_64_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(..) :: x + real(c_float),target,dimension(:) :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(..) :: y + real(c_float),target,dimension(:) :: y integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount + real(c_float),target,dimension(:) :: param ! - hipblasZhemvStridedBatched_64_assumed_rank = hipblasZhemvStridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasSrotm_64_rank_1 = hipblasSrotm_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(param)) end function -#else - function hipblasZhemvStridedBatched_64_rank_0(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasSrotm_64_rank_1_devptr(handle,n,x,incx,y,incy,param) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemvStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotm_64_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - complex(c_double_complex),target :: x + real(c_float),target,dimension(:) :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - complex(c_double_complex),target :: beta - complex(c_double_complex),target :: y + real(c_float),target,dimension(:) :: y integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount + type(c_ptr),value :: param ! - hipblasZhemvStridedBatched_64_rank_0 = hipblasZhemvStridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasSrotm_64_rank_1_devptr = hipblasSrotm_64_(handle,n,c_loc(x),incx,c_loc(y),incy,param) end function - function hipblasZhemvStridedBatched_64_rank_1(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDrotm_64_assumed_rank(handle,n,x,incx,y,incy,param) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemvStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotm_64_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:) :: x + real(c_double),target,dimension(..) :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:) :: y + real(c_double),target,dimension(..) :: y integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount + real(c_double),target,dimension(..) :: param ! - hipblasZhemvStridedBatched_64_rank_1 = hipblasZhemvStridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasDrotm_64_assumed_rank = hipblasDrotm_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + c_loc(param)) end function - function hipblasZhemvStridedBatched_64_full_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasDrotm_64_assumed_rank_devptr(handle,n,x,incx,y,incy,param) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemvStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotm_64_assumed_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:) :: x + real(c_double),target,dimension(..) :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:) :: y + real(c_double),target,dimension(..) :: y integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount + type(c_ptr),value :: param ! - hipblasZhemvStridedBatched_64_full_rank = hipblasZhemvStridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasDrotm_64_assumed_rank_devptr = hipblasDrotm_64_(handle,n,c_loc(x),incx,c_loc(y),incy, & + param) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCher_assumed_rank(handle,uplo,n,alpha,x,incx,AP,lda) - use iso_c_binding +#else + function hipblasDrotm_64_rank_0(handle,n,x,incx,y,incy,param) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotm_64_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - real(c_float),target :: alpha - complex(c_float_complex),target,dimension(..) :: x - integer(c_int) :: incx - complex(c_float_complex),target,dimension(..) :: AP - integer(c_int) :: lda + integer(c_int64_t) :: n + real(c_double),target :: x + integer(c_int64_t) :: incx + real(c_double),target :: y + integer(c_int64_t) :: incy + real(c_double),target :: param ! - hipblasCher_assumed_rank = hipblasCher_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP), & - lda) + hipblasDrotm_64_rank_0 = hipblasDrotm_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(param)) end function -#else - function hipblasCher_rank_0(handle,uplo,n,alpha,x,incx,AP,lda) - use iso_c_binding + function hipblasDrotm_64_rank_0_devptr(handle,n,x,incx,y,incy,param) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotm_64_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - real(c_float),target :: alpha - complex(c_float_complex),target :: x - integer(c_int) :: incx - complex(c_float_complex),target :: AP - integer(c_int) :: lda + integer(c_int64_t) :: n + real(c_double),target :: x + integer(c_int64_t) :: incx + real(c_double),target :: y + integer(c_int64_t) :: incy + type(c_ptr),value :: param ! - hipblasCher_rank_0 = hipblasCher_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP),lda) + hipblasDrotm_64_rank_0_devptr = hipblasDrotm_64_(handle,n,c_loc(x),incx,c_loc(y),incy,param) end function - function hipblasCher_rank_1(handle,uplo,n,alpha,x,incx,AP,lda) - use iso_c_binding + function hipblasDrotm_64_rank_1(handle,n,x,incx,y,incy,param) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotm_64_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - real(c_float),target :: alpha - complex(c_float_complex),target,dimension(:) :: x - integer(c_int) :: incx - complex(c_float_complex),target,dimension(:) :: AP - integer(c_int) :: lda + integer(c_int64_t) :: n + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + real(c_double),target,dimension(:) :: param ! - hipblasCher_rank_1 = hipblasCher_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP),lda) + hipblasDrotm_64_rank_1 = hipblasDrotm_64_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(param)) end function - function hipblasCher_full_rank(handle,uplo,n,alpha,x,incx,AP,lda) - use iso_c_binding + function hipblasDrotm_64_rank_1_devptr(handle,n,x,incx,y,incy,param) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotm_64_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - real(c_float),target :: alpha - complex(c_float_complex),target,dimension(:) :: x - integer(c_int) :: incx - complex(c_float_complex),target,dimension(:,:) :: AP - integer(c_int) :: lda + integer(c_int64_t) :: n + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + type(c_ptr),value :: param ! - hipblasCher_full_rank = hipblasCher_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP),lda) + hipblasDrotm_64_rank_1_devptr = hipblasDrotm_64_(handle,n,c_loc(x),incx,c_loc(y),incy,param) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasZher_assumed_rank(handle,uplo,n,alpha,x,incx,AP,lda) - use iso_c_binding + function hipblasSrotmStridedBatched_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey,param, & + strideParam,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmStridedBatched_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - real(c_double),target :: alpha - complex(c_double_complex),target,dimension(..) :: x + real(c_float),target,dimension(..) :: x integer(c_int) :: incx - complex(c_double_complex),target,dimension(..) :: AP - integer(c_int) :: lda + integer(c_int64_t) :: stridex + real(c_float),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_float),target,dimension(..) :: param + integer(c_int64_t) :: strideParam + integer(c_int) :: batchCount ! - hipblasZher_assumed_rank = hipblasZher_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP), & - lda) + hipblasSrotmStridedBatched_assumed_rank = hipblasSrotmStridedBatched_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,c_loc(param),strideParam,batchCount) end function -#else - function hipblasZher_rank_0(handle,uplo,n,alpha,x,incx,AP,lda) - use iso_c_binding + function hipblasSrotmStridedBatched_assumed_rank_devptr(handle,n,x,incx,stridex,y,incy, & + stridey,param,strideParam,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmStridedBatched_assumed_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - real(c_double),target :: alpha - complex(c_double_complex),target :: x + real(c_float),target,dimension(..) :: x integer(c_int) :: incx - complex(c_double_complex),target :: AP - integer(c_int) :: lda + integer(c_int64_t) :: stridex + real(c_float),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + type(c_ptr),value :: param + integer(c_int64_t) :: strideParam + integer(c_int) :: batchCount ! - hipblasZher_rank_0 = hipblasZher_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP),lda) + hipblasSrotmStridedBatched_assumed_rank_devptr = hipblasSrotmStridedBatched_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,param,strideParam,batchCount) end function - function hipblasZher_rank_1(handle,uplo,n,alpha,x,incx,AP,lda) - use iso_c_binding +#else + function hipblasSrotmStridedBatched_rank_0(handle,n,x,incx,stridex,y,incy,stridey,param, & + strideParam,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmStridedBatched_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - real(c_double),target :: alpha - complex(c_double_complex),target,dimension(:) :: x + real(c_float),target :: x integer(c_int) :: incx - complex(c_double_complex),target,dimension(:) :: AP - integer(c_int) :: lda + integer(c_int64_t) :: stridex + real(c_float),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_float),target :: param + integer(c_int64_t) :: strideParam + integer(c_int) :: batchCount ! - hipblasZher_rank_1 = hipblasZher_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP),lda) + hipblasSrotmStridedBatched_rank_0 = hipblasSrotmStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,c_loc(param),strideParam,batchCount) end function - function hipblasZher_full_rank(handle,uplo,n,alpha,x,incx,AP,lda) - use iso_c_binding + function hipblasSrotmStridedBatched_rank_0_devptr(handle,n,x,incx,stridex,y,incy,stridey, & + param,strideParam,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmStridedBatched_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - real(c_double),target :: alpha - complex(c_double_complex),target,dimension(:) :: x + real(c_float),target :: x integer(c_int) :: incx - complex(c_double_complex),target,dimension(:,:) :: AP - integer(c_int) :: lda - ! - hipblasZher_full_rank = hipblasZher_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP),lda) - end function - -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCher_64_assumed_rank(handle,uplo,n,alpha,x,incx,AP,lda) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher_64_assumed_rank - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - real(c_float),target :: alpha - complex(c_float_complex),target,dimension(..) :: x - integer(c_int64_t) :: incx - complex(c_float_complex),target,dimension(..) :: AP - integer(c_int64_t) :: lda - ! - hipblasCher_64_assumed_rank = hipblasCher_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & - c_loc(AP),lda) - end function - -#else - function hipblasCher_64_rank_0(handle,uplo,n,alpha,x,incx,AP,lda) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher_64_rank_0 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - real(c_float),target :: alpha - complex(c_float_complex),target :: x - integer(c_int64_t) :: incx - complex(c_float_complex),target :: AP - integer(c_int64_t) :: lda - ! - hipblasCher_64_rank_0 = hipblasCher_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP), & - lda) - end function - - function hipblasCher_64_rank_1(handle,uplo,n,alpha,x,incx,AP,lda) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher_64_rank_1 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - real(c_float),target :: alpha - complex(c_float_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx - complex(c_float_complex),target,dimension(:) :: AP - integer(c_int64_t) :: lda - ! - hipblasCher_64_rank_1 = hipblasCher_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP), & - lda) - end function - - function hipblasCher_64_full_rank(handle,uplo,n,alpha,x,incx,AP,lda) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher_64_full_rank - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - real(c_float),target :: alpha - complex(c_float_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx - complex(c_float_complex),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda + integer(c_int64_t) :: stridex + real(c_float),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + type(c_ptr),value :: param + integer(c_int64_t) :: strideParam + integer(c_int) :: batchCount ! - hipblasCher_64_full_rank = hipblasCher_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & - c_loc(AP),lda) + hipblasSrotmStridedBatched_rank_0_devptr = hipblasSrotmStridedBatched_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,param,strideParam,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZher_64_assumed_rank(handle,uplo,n,alpha,x,incx,AP,lda) - use iso_c_binding + function hipblasSrotmStridedBatched_rank_1(handle,n,x,incx,stridex,y,incy,stridey,param, & + strideParam,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmStridedBatched_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - real(c_double),target :: alpha - complex(c_double_complex),target,dimension(..) :: x - integer(c_int64_t) :: incx - complex(c_double_complex),target,dimension(..) :: AP - integer(c_int64_t) :: lda + integer(c_int) :: n + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_float),target,dimension(:) :: param + integer(c_int64_t) :: strideParam + integer(c_int) :: batchCount ! - hipblasZher_64_assumed_rank = hipblasZher_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & - c_loc(AP),lda) + hipblasSrotmStridedBatched_rank_1 = hipblasSrotmStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,c_loc(param),strideParam,batchCount) end function -#else - function hipblasZher_64_rank_0(handle,uplo,n,alpha,x,incx,AP,lda) - use iso_c_binding + function hipblasSrotmStridedBatched_rank_1_devptr(handle,n,x,incx,stridex,y,incy,stridey, & + param,strideParam,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmStridedBatched_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - real(c_double),target :: alpha - complex(c_double_complex),target :: x - integer(c_int64_t) :: incx - complex(c_double_complex),target :: AP - integer(c_int64_t) :: lda + integer(c_int) :: n + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + type(c_ptr),value :: param + integer(c_int64_t) :: strideParam + integer(c_int) :: batchCount ! - hipblasZher_64_rank_0 = hipblasZher_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP), & - lda) + hipblasSrotmStridedBatched_rank_1_devptr = hipblasSrotmStridedBatched_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,param,strideParam,batchCount) end function - function hipblasZher_64_rank_1(handle,uplo,n,alpha,x,incx,AP,lda) - use iso_c_binding + function hipblasSrotmStridedBatched_strided_rank(handle,n,x,incx,stridex,y,incy,stridey,param, & + strideParam,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmStridedBatched_strided_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - real(c_double),target :: alpha - complex(c_double_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx - complex(c_double_complex),target,dimension(:) :: AP - integer(c_int64_t) :: lda + integer(c_int) :: n + real(c_float),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_float),target,dimension(:,:) :: param + integer(c_int64_t) :: strideParam + integer(c_int) :: batchCount ! - hipblasZher_64_rank_1 = hipblasZher_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP), & - lda) + hipblasSrotmStridedBatched_strided_rank = hipblasSrotmStridedBatched_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,c_loc(param),strideParam,batchCount) end function - function hipblasZher_64_full_rank(handle,uplo,n,alpha,x,incx,AP,lda) - use iso_c_binding + function hipblasSrotmStridedBatched_strided_rank_devptr(handle,n,x,incx,stridex,y,incy, & + stridey,param,strideParam,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmStridedBatched_strided_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - real(c_double),target :: alpha - complex(c_double_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx - complex(c_double_complex),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda + integer(c_int) :: n + real(c_float),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + type(c_ptr),value :: param + integer(c_int64_t) :: strideParam + integer(c_int) :: batchCount ! - hipblasZher_64_full_rank = hipblasZher_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & - c_loc(AP),lda) + hipblasSrotmStridedBatched_strided_rank_devptr = hipblasSrotmStridedBatched_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,param,strideParam,batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCherStridedBatched_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & - strideA,batchCount) - use iso_c_binding + function hipblasDrotmStridedBatched_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey,param, & + strideParam,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmStridedBatched_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - real(c_float),target :: alpha - complex(c_float_complex),target,dimension(..) :: x + real(c_double),target,dimension(..) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - complex(c_float_complex),target,dimension(..) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_double),target,dimension(..) :: param + integer(c_int64_t) :: strideParam integer(c_int) :: batchCount ! - hipblasCherStridedBatched_assumed_rank = hipblasCherStridedBatched_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + hipblasDrotmStridedBatched_assumed_rank = hipblasDrotmStridedBatched_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,c_loc(param),strideParam,batchCount) end function -#else - function hipblasCherStridedBatched_rank_0(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & - batchCount) - use iso_c_binding + function hipblasDrotmStridedBatched_assumed_rank_devptr(handle,n,x,incx,stridex,y,incy, & + stridey,param,strideParam,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmStridedBatched_assumed_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - real(c_float),target :: alpha - complex(c_float_complex),target :: x + real(c_double),target,dimension(..) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - complex(c_float_complex),target :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + type(c_ptr),value :: param + integer(c_int64_t) :: strideParam integer(c_int) :: batchCount ! - hipblasCherStridedBatched_rank_0 = hipblasCherStridedBatched_(handle,uplo,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + hipblasDrotmStridedBatched_assumed_rank_devptr = hipblasDrotmStridedBatched_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,param,strideParam,batchCount) end function - function hipblasCherStridedBatched_rank_1(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & - batchCount) - use iso_c_binding +#else + function hipblasDrotmStridedBatched_rank_0(handle,n,x,incx,stridex,y,incy,stridey,param, & + strideParam,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmStridedBatched_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - real(c_float),target :: alpha - complex(c_float_complex),target,dimension(:) :: x + real(c_double),target :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - complex(c_float_complex),target,dimension(:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA + real(c_double),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_double),target :: param + integer(c_int64_t) :: strideParam integer(c_int) :: batchCount ! - hipblasCherStridedBatched_rank_1 = hipblasCherStridedBatched_(handle,uplo,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + hipblasDrotmStridedBatched_rank_0 = hipblasDrotmStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,c_loc(param),strideParam,batchCount) end function - function hipblasCherStridedBatched_full_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & - strideA,batchCount) - use iso_c_binding + function hipblasDrotmStridedBatched_rank_0_devptr(handle,n,x,incx,stridex,y,incy,stridey, & + param,strideParam,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmStridedBatched_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - real(c_float),target :: alpha - complex(c_float_complex),target,dimension(:) :: x + real(c_double),target :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - complex(c_float_complex),target,dimension(:,:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA + real(c_double),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + type(c_ptr),value :: param + integer(c_int64_t) :: strideParam integer(c_int) :: batchCount ! - hipblasCherStridedBatched_full_rank = hipblasCherStridedBatched_(handle,uplo,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + hipblasDrotmStridedBatched_rank_0_devptr = hipblasDrotmStridedBatched_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,param,strideParam,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZherStridedBatched_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & - strideA,batchCount) - use iso_c_binding + function hipblasDrotmStridedBatched_rank_1(handle,n,x,incx,stridex,y,incy,stridey,param, & + strideParam,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmStridedBatched_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - real(c_double),target :: alpha - complex(c_double_complex),target,dimension(..) :: x + real(c_double),target,dimension(:) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - complex(c_double_complex),target,dimension(..) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_double),target,dimension(:) :: param + integer(c_int64_t) :: strideParam integer(c_int) :: batchCount ! - hipblasZherStridedBatched_assumed_rank = hipblasZherStridedBatched_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + hipblasDrotmStridedBatched_rank_1 = hipblasDrotmStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,c_loc(param),strideParam,batchCount) end function -#else - function hipblasZherStridedBatched_rank_0(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & - batchCount) - use iso_c_binding + function hipblasDrotmStridedBatched_rank_1_devptr(handle,n,x,incx,stridex,y,incy,stridey, & + param,strideParam,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmStridedBatched_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - real(c_double),target :: alpha - complex(c_double_complex),target :: x + real(c_double),target,dimension(:) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - complex(c_double_complex),target :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + type(c_ptr),value :: param + integer(c_int64_t) :: strideParam integer(c_int) :: batchCount ! - hipblasZherStridedBatched_rank_0 = hipblasZherStridedBatched_(handle,uplo,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + hipblasDrotmStridedBatched_rank_1_devptr = hipblasDrotmStridedBatched_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,param,strideParam,batchCount) end function - function hipblasZherStridedBatched_rank_1(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & - batchCount) - use iso_c_binding + function hipblasDrotmStridedBatched_strided_rank(handle,n,x,incx,stridex,y,incy,stridey,param, & + strideParam,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmStridedBatched_strided_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - real(c_double),target :: alpha - complex(c_double_complex),target,dimension(:) :: x + real(c_double),target,dimension(:,:) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - complex(c_double_complex),target,dimension(:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_double),target,dimension(:,:) :: param + integer(c_int64_t) :: strideParam integer(c_int) :: batchCount ! - hipblasZherStridedBatched_rank_1 = hipblasZherStridedBatched_(handle,uplo,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + hipblasDrotmStridedBatched_strided_rank = hipblasDrotmStridedBatched_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,c_loc(param),strideParam,batchCount) end function - function hipblasZherStridedBatched_full_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & - strideA,batchCount) - use iso_c_binding + function hipblasDrotmStridedBatched_strided_rank_devptr(handle,n,x,incx,stridex,y,incy, & + stridey,param,strideParam,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmStridedBatched_strided_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - real(c_double),target :: alpha - complex(c_double_complex),target,dimension(:) :: x + real(c_double),target,dimension(:,:) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - complex(c_double_complex),target,dimension(:,:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + type(c_ptr),value :: param + integer(c_int64_t) :: strideParam integer(c_int) :: batchCount ! - hipblasZherStridedBatched_full_rank = hipblasZherStridedBatched_(handle,uplo,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + hipblasDrotmStridedBatched_strided_rank_devptr = hipblasDrotmStridedBatched_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,param,strideParam,batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCherStridedBatched_64_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & - strideA,batchCount) - use iso_c_binding + function hipblasSrotmStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & + param,strideParam,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmStridedBatched_64_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - real(c_float),target :: alpha - complex(c_float_complex),target,dimension(..) :: x + real(c_float),target,dimension(..) :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - complex(c_float_complex),target,dimension(..) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_float),target,dimension(..) :: param + integer(c_int64_t) :: strideParam integer(c_int64_t) :: batchCount ! - hipblasCherStridedBatched_64_assumed_rank = hipblasCherStridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + hipblasSrotmStridedBatched_64_assumed_rank = hipblasSrotmStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(param),strideParam,batchCount) end function -#else - function hipblasCherStridedBatched_64_rank_0(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & - strideA,batchCount) - use iso_c_binding + function hipblasSrotmStridedBatched_64_assumed_rank_devptr(handle,n,x,incx,stridex,y,incy, & + stridey,param,strideParam,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmStridedBatched_64_assumed_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - real(c_float),target :: alpha - complex(c_float_complex),target :: x + real(c_float),target,dimension(..) :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - complex(c_float_complex),target :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - integer(c_int64_t) :: batchCount - ! - hipblasCherStridedBatched_64_rank_0 = hipblasCherStridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + type(c_ptr),value :: param + integer(c_int64_t) :: strideParam + integer(c_int64_t) :: batchCount + ! + hipblasSrotmStridedBatched_64_assumed_rank_devptr = hipblasSrotmStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,param,strideParam,batchCount) end function - function hipblasCherStridedBatched_64_rank_1(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & - strideA,batchCount) - use iso_c_binding +#else + function hipblasSrotmStridedBatched_64_rank_0(handle,n,x,incx,stridex,y,incy,stridey,param, & + strideParam,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmStridedBatched_64_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - real(c_float),target :: alpha - complex(c_float_complex),target,dimension(:) :: x + real(c_float),target :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - complex(c_float_complex),target,dimension(:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA + real(c_float),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_float),target :: param + integer(c_int64_t) :: strideParam integer(c_int64_t) :: batchCount ! - hipblasCherStridedBatched_64_rank_1 = hipblasCherStridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + hipblasSrotmStridedBatched_64_rank_0 = hipblasSrotmStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,c_loc(param),strideParam,batchCount) end function - function hipblasCherStridedBatched_64_full_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & - strideA,batchCount) - use iso_c_binding + function hipblasSrotmStridedBatched_64_rank_0_devptr(handle,n,x,incx,stridex,y,incy,stridey, & + param,strideParam,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmStridedBatched_64_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - real(c_float),target :: alpha - complex(c_float_complex),target,dimension(:) :: x + real(c_float),target :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - complex(c_float_complex),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA + real(c_float),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + type(c_ptr),value :: param + integer(c_int64_t) :: strideParam integer(c_int64_t) :: batchCount ! - hipblasCherStridedBatched_64_full_rank = hipblasCherStridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + hipblasSrotmStridedBatched_64_rank_0_devptr = hipblasSrotmStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,param,strideParam,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZherStridedBatched_64_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & - strideA,batchCount) - use iso_c_binding + function hipblasSrotmStridedBatched_64_rank_1(handle,n,x,incx,stridex,y,incy,stridey,param, & + strideParam,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmStridedBatched_64_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - real(c_double),target :: alpha - complex(c_double_complex),target,dimension(..) :: x + real(c_float),target,dimension(:) :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - complex(c_double_complex),target,dimension(..) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_float),target,dimension(:) :: param + integer(c_int64_t) :: strideParam integer(c_int64_t) :: batchCount ! - hipblasZherStridedBatched_64_assumed_rank = hipblasZherStridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + hipblasSrotmStridedBatched_64_rank_1 = hipblasSrotmStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,c_loc(param),strideParam,batchCount) end function -#else - function hipblasZherStridedBatched_64_rank_0(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & - strideA,batchCount) - use iso_c_binding + function hipblasSrotmStridedBatched_64_rank_1_devptr(handle,n,x,incx,stridex,y,incy,stridey, & + param,strideParam,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmStridedBatched_64_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - real(c_double),target :: alpha - complex(c_double_complex),target :: x + real(c_float),target,dimension(:) :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - complex(c_double_complex),target :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + type(c_ptr),value :: param + integer(c_int64_t) :: strideParam integer(c_int64_t) :: batchCount ! - hipblasZherStridedBatched_64_rank_0 = hipblasZherStridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + hipblasSrotmStridedBatched_64_rank_1_devptr = hipblasSrotmStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,param,strideParam,batchCount) end function - function hipblasZherStridedBatched_64_rank_1(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & - strideA,batchCount) - use iso_c_binding + function hipblasSrotmStridedBatched_64_strided_rank(handle,n,x,incx,stridex,y,incy,stridey, & + param,strideParam,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmStridedBatched_64_strided_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - real(c_double),target :: alpha - complex(c_double_complex),target,dimension(:) :: x + real(c_float),target,dimension(:,:) :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - complex(c_double_complex),target,dimension(:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA + real(c_float),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_float),target,dimension(:,:) :: param + integer(c_int64_t) :: strideParam integer(c_int64_t) :: batchCount ! - hipblasZherStridedBatched_64_rank_1 = hipblasZherStridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + hipblasSrotmStridedBatched_64_strided_rank = hipblasSrotmStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(param),strideParam,batchCount) end function - function hipblasZherStridedBatched_64_full_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & - strideA,batchCount) - use iso_c_binding + function hipblasSrotmStridedBatched_64_strided_rank_devptr(handle,n,x,incx,stridex,y,incy, & + stridey,param,strideParam,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmStridedBatched_64_strided_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - real(c_double),target :: alpha - complex(c_double_complex),target,dimension(:) :: x + real(c_float),target,dimension(:,:) :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - complex(c_double_complex),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA + real(c_float),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + type(c_ptr),value :: param + integer(c_int64_t) :: strideParam integer(c_int64_t) :: batchCount ! - hipblasZherStridedBatched_64_full_rank = hipblasZherStridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + hipblasSrotmStridedBatched_64_strided_rank_devptr = hipblasSrotmStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,param,strideParam,batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCher2_assumed_rank(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding + function hipblasDrotmStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & + param,strideParam,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmStridedBatched_64_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: x - integer(c_int) :: incx - complex(c_float_complex),target,dimension(..) :: y - integer(c_int) :: incy - complex(c_float_complex),target,dimension(..) :: AP - integer(c_int) :: lda + integer(c_int64_t) :: n + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_double),target,dimension(..) :: param + integer(c_int64_t) :: strideParam + integer(c_int64_t) :: batchCount ! - hipblasCher2_assumed_rank = hipblasCher2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & - incy,c_loc(AP),lda) + hipblasDrotmStridedBatched_64_assumed_rank = hipblasDrotmStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(param),strideParam,batchCount) end function -#else - function hipblasCher2_rank_0(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding + function hipblasDrotmStridedBatched_64_assumed_rank_devptr(handle,n,x,incx,stridex,y,incy, & + stridey,param,strideParam,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmStridedBatched_64_assumed_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: x - integer(c_int) :: incx - complex(c_float_complex),target :: y - integer(c_int) :: incy - complex(c_float_complex),target :: AP - integer(c_int) :: lda + integer(c_int64_t) :: n + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + type(c_ptr),value :: param + integer(c_int64_t) :: strideParam + integer(c_int64_t) :: batchCount ! - hipblasCher2_rank_0 = hipblasCher2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & - c_loc(AP),lda) + hipblasDrotmStridedBatched_64_assumed_rank_devptr = hipblasDrotmStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,param,strideParam,batchCount) end function - function hipblasCher2_rank_1(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding +#else + function hipblasDrotmStridedBatched_64_rank_0(handle,n,x,incx,stridex,y,incy,stridey,param, & + strideParam,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmStridedBatched_64_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: x - integer(c_int) :: incx - complex(c_float_complex),target,dimension(:) :: y - integer(c_int) :: incy - complex(c_float_complex),target,dimension(:) :: AP - integer(c_int) :: lda + integer(c_int64_t) :: n + real(c_double),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_double),target :: param + integer(c_int64_t) :: strideParam + integer(c_int64_t) :: batchCount ! - hipblasCher2_rank_1 = hipblasCher2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & - c_loc(AP),lda) + hipblasDrotmStridedBatched_64_rank_0 = hipblasDrotmStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,c_loc(param),strideParam,batchCount) end function - function hipblasCher2_full_rank(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding + function hipblasDrotmStridedBatched_64_rank_0_devptr(handle,n,x,incx,stridex,y,incy,stridey, & + param,strideParam,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmStridedBatched_64_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: x - integer(c_int) :: incx - complex(c_float_complex),target,dimension(:) :: y - integer(c_int) :: incy - complex(c_float_complex),target,dimension(:,:) :: AP - integer(c_int) :: lda + integer(c_int64_t) :: n + real(c_double),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + type(c_ptr),value :: param + integer(c_int64_t) :: strideParam + integer(c_int64_t) :: batchCount ! - hipblasCher2_full_rank = hipblasCher2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & - incy,c_loc(AP),lda) + hipblasDrotmStridedBatched_64_rank_0_devptr = hipblasDrotmStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,param,strideParam,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZher2_assumed_rank(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding + function hipblasDrotmStridedBatched_64_rank_1(handle,n,x,incx,stridex,y,incy,stridey,param, & + strideParam,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmStridedBatched_64_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: x - integer(c_int) :: incx - complex(c_double_complex),target,dimension(..) :: y - integer(c_int) :: incy - complex(c_double_complex),target,dimension(..) :: AP - integer(c_int) :: lda + integer(c_int64_t) :: n + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_double),target,dimension(:) :: param + integer(c_int64_t) :: strideParam + integer(c_int64_t) :: batchCount ! - hipblasZher2_assumed_rank = hipblasZher2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & - incy,c_loc(AP),lda) + hipblasDrotmStridedBatched_64_rank_1 = hipblasDrotmStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,c_loc(param),strideParam,batchCount) end function -#else - function hipblasZher2_rank_0(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding + function hipblasDrotmStridedBatched_64_rank_1_devptr(handle,n,x,incx,stridex,y,incy,stridey, & + param,strideParam,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmStridedBatched_64_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: x - integer(c_int) :: incx - complex(c_double_complex),target :: y - integer(c_int) :: incy - complex(c_double_complex),target :: AP - integer(c_int) :: lda + integer(c_int64_t) :: n + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + type(c_ptr),value :: param + integer(c_int64_t) :: strideParam + integer(c_int64_t) :: batchCount ! - hipblasZher2_rank_0 = hipblasZher2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & - c_loc(AP),lda) + hipblasDrotmStridedBatched_64_rank_1_devptr = hipblasDrotmStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,param,strideParam,batchCount) end function - function hipblasZher2_rank_1(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding + function hipblasDrotmStridedBatched_64_strided_rank(handle,n,x,incx,stridex,y,incy,stridey, & + param,strideParam,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmStridedBatched_64_strided_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: x - integer(c_int) :: incx - complex(c_double_complex),target,dimension(:) :: y - integer(c_int) :: incy - complex(c_double_complex),target,dimension(:) :: AP - integer(c_int) :: lda + integer(c_int64_t) :: n + real(c_double),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_double),target,dimension(:,:) :: param + integer(c_int64_t) :: strideParam + integer(c_int64_t) :: batchCount ! - hipblasZher2_rank_1 = hipblasZher2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & - c_loc(AP),lda) + hipblasDrotmStridedBatched_64_strided_rank = hipblasDrotmStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(param),strideParam,batchCount) end function - function hipblasZher2_full_rank(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding + function hipblasDrotmStridedBatched_64_strided_rank_devptr(handle,n,x,incx,stridex,y,incy, & + stridey,param,strideParam,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmStridedBatched_64_strided_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: x - integer(c_int) :: incx - complex(c_double_complex),target,dimension(:) :: y - integer(c_int) :: incy - complex(c_double_complex),target,dimension(:,:) :: AP - integer(c_int) :: lda + integer(c_int64_t) :: n + real(c_double),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + type(c_ptr),value :: param + integer(c_int64_t) :: strideParam + integer(c_int64_t) :: batchCount ! - hipblasZher2_full_rank = hipblasZher2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & - incy,c_loc(AP),lda) + hipblasDrotmStridedBatched_64_strided_rank_devptr = hipblasDrotmStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,param,strideParam,batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCher2_64_assumed_rank(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding + function hipblasSrotmg_assumed_rank(handle,d1,d2,x1,y1,param) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmg_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: x - integer(c_int64_t) :: incx - complex(c_float_complex),target,dimension(..) :: y - integer(c_int64_t) :: incy - complex(c_float_complex),target,dimension(..) :: AP - integer(c_int64_t) :: lda + real(c_float),target :: d1 + real(c_float),target :: d2 + real(c_float),target :: x1 + real(c_float),target :: y1 + real(c_float),target,dimension(..) :: param ! - hipblasCher2_64_assumed_rank = hipblasCher2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & - c_loc(y),incy,c_loc(AP),lda) + hipblasSrotmg_assumed_rank = hipblasSrotmg_(handle,c_loc(d1),c_loc(d2),c_loc(x1),c_loc(y1), & + c_loc(param)) + end function + + function hipblasSrotmg_assumed_rank_devptr(handle,d1,d2,x1,y1,param) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmg_assumed_rank_devptr + type(c_ptr), value :: handle + type(c_ptr),value :: d1 + type(c_ptr),value :: d2 + type(c_ptr),value :: x1 + type(c_ptr),value :: y1 + real(c_float),target,dimension(..) :: param + ! + hipblasSrotmg_assumed_rank_devptr = hipblasSrotmg_(handle,d1,d2,x1,y1,c_loc(param)) end function #else - function hipblasCher2_64_rank_0(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding + function hipblasSrotmg_rank_0(handle,d1,d2,x1,y1,param) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmg_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: x - integer(c_int64_t) :: incx - complex(c_float_complex),target :: y - integer(c_int64_t) :: incy - complex(c_float_complex),target :: AP - integer(c_int64_t) :: lda + real(c_float),target :: d1 + real(c_float),target :: d2 + real(c_float),target :: x1 + real(c_float),target :: y1 + real(c_float),target :: param ! - hipblasCher2_64_rank_0 = hipblasCher2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & - incy,c_loc(AP),lda) + hipblasSrotmg_rank_0 = hipblasSrotmg_(handle,c_loc(d1),c_loc(d2),c_loc(x1),c_loc(y1), & + c_loc(param)) end function - function hipblasCher2_64_rank_1(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding + function hipblasSrotmg_rank_0_devptr(handle,d1,d2,x1,y1,param) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmg_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx - complex(c_float_complex),target,dimension(:) :: y - integer(c_int64_t) :: incy - complex(c_float_complex),target,dimension(:) :: AP - integer(c_int64_t) :: lda + type(c_ptr),value :: d1 + type(c_ptr),value :: d2 + type(c_ptr),value :: x1 + type(c_ptr),value :: y1 + real(c_float),target :: param ! - hipblasCher2_64_rank_1 = hipblasCher2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & - incy,c_loc(AP),lda) + hipblasSrotmg_rank_0_devptr = hipblasSrotmg_(handle,d1,d2,x1,y1,c_loc(param)) end function - function hipblasCher2_64_full_rank(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding + function hipblasSrotmg_rank_1(handle,d1,d2,x1,y1,param) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmg_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx - complex(c_float_complex),target,dimension(:) :: y - integer(c_int64_t) :: incy - complex(c_float_complex),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda + real(c_float),target :: d1 + real(c_float),target :: d2 + real(c_float),target :: x1 + real(c_float),target :: y1 + real(c_float),target,dimension(:) :: param ! - hipblasCher2_64_full_rank = hipblasCher2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & - c_loc(y),incy,c_loc(AP),lda) + hipblasSrotmg_rank_1 = hipblasSrotmg_(handle,c_loc(d1),c_loc(d2),c_loc(x1),c_loc(y1), & + c_loc(param)) + end function + + function hipblasSrotmg_rank_1_devptr(handle,d1,d2,x1,y1,param) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmg_rank_1_devptr + type(c_ptr), value :: handle + type(c_ptr),value :: d1 + type(c_ptr),value :: d2 + type(c_ptr),value :: x1 + type(c_ptr),value :: y1 + real(c_float),target,dimension(:) :: param + ! + hipblasSrotmg_rank_1_devptr = hipblasSrotmg_(handle,d1,d2,x1,y1,c_loc(param)) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasZher2_64_assumed_rank(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding + function hipblasDrotmg_assumed_rank(handle,d1,d2,x1,y1,param) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmg_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: x - integer(c_int64_t) :: incx - complex(c_double_complex),target,dimension(..) :: y - integer(c_int64_t) :: incy - complex(c_double_complex),target,dimension(..) :: AP - integer(c_int64_t) :: lda + real(c_double),target :: d1 + real(c_double),target :: d2 + real(c_double),target :: x1 + real(c_double),target :: y1 + real(c_double),target,dimension(..) :: param ! - hipblasZher2_64_assumed_rank = hipblasZher2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & - c_loc(y),incy,c_loc(AP),lda) + hipblasDrotmg_assumed_rank = hipblasDrotmg_(handle,c_loc(d1),c_loc(d2),c_loc(x1),c_loc(y1), & + c_loc(param)) end function -#else - function hipblasZher2_64_rank_0(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding + function hipblasDrotmg_assumed_rank_devptr(handle,d1,d2,x1,y1,param) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmg_assumed_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: x - integer(c_int64_t) :: incx - complex(c_double_complex),target :: y - integer(c_int64_t) :: incy - complex(c_double_complex),target :: AP - integer(c_int64_t) :: lda + type(c_ptr),value :: d1 + type(c_ptr),value :: d2 + type(c_ptr),value :: x1 + type(c_ptr),value :: y1 + real(c_double),target,dimension(..) :: param ! - hipblasZher2_64_rank_0 = hipblasZher2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & - incy,c_loc(AP),lda) + hipblasDrotmg_assumed_rank_devptr = hipblasDrotmg_(handle,d1,d2,x1,y1,c_loc(param)) end function - function hipblasZher2_64_rank_1(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding +#else + function hipblasDrotmg_rank_0(handle,d1,d2,x1,y1,param) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmg_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx - complex(c_double_complex),target,dimension(:) :: y - integer(c_int64_t) :: incy - complex(c_double_complex),target,dimension(:) :: AP - integer(c_int64_t) :: lda + real(c_double),target :: d1 + real(c_double),target :: d2 + real(c_double),target :: x1 + real(c_double),target :: y1 + real(c_double),target :: param ! - hipblasZher2_64_rank_1 = hipblasZher2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & - incy,c_loc(AP),lda) + hipblasDrotmg_rank_0 = hipblasDrotmg_(handle,c_loc(d1),c_loc(d2),c_loc(x1),c_loc(y1), & + c_loc(param)) end function - function hipblasZher2_64_full_rank(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding + function hipblasDrotmg_rank_0_devptr(handle,d1,d2,x1,y1,param) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmg_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx - complex(c_double_complex),target,dimension(:) :: y - integer(c_int64_t) :: incy - complex(c_double_complex),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda + type(c_ptr),value :: d1 + type(c_ptr),value :: d2 + type(c_ptr),value :: x1 + type(c_ptr),value :: y1 + real(c_double),target :: param ! - hipblasZher2_64_full_rank = hipblasZher2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & - c_loc(y),incy,c_loc(AP),lda) + hipblasDrotmg_rank_0_devptr = hipblasDrotmg_(handle,d1,d2,x1,y1,c_loc(param)) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCher2StridedBatched_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & - stridey,AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasDrotmg_rank_1(handle,d1,d2,x1,y1,param) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2StridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmg_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - complex(c_float_complex),target,dimension(..) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - complex(c_float_complex),target,dimension(..) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - integer(c_int) :: batchCount + real(c_double),target :: d1 + real(c_double),target :: d2 + real(c_double),target :: x1 + real(c_double),target :: y1 + real(c_double),target,dimension(:) :: param ! - hipblasCher2StridedBatched_assumed_rank = hipblasCher2StridedBatched_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasDrotmg_rank_1 = hipblasDrotmg_(handle,c_loc(d1),c_loc(d2),c_loc(x1),c_loc(y1), & + c_loc(param)) end function -#else - function hipblasCher2StridedBatched_rank_0(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & - AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasDrotmg_rank_1_devptr(handle,d1,d2,x1,y1,param) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2StridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmg_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - complex(c_float_complex),target :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - complex(c_float_complex),target :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA + type(c_ptr),value :: d1 + type(c_ptr),value :: d2 + type(c_ptr),value :: x1 + type(c_ptr),value :: y1 + real(c_double),target,dimension(:) :: param + ! + hipblasDrotmg_rank_1_devptr = hipblasDrotmg_(handle,d1,d2,x1,y1,c_loc(param)) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSrotmg_64_assumed_rank(handle,d1,d2,x1,y1,param) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmg_64_assumed_rank + type(c_ptr), value :: handle + real(c_float),target :: d1 + real(c_float),target :: d2 + real(c_float),target :: x1 + real(c_float),target :: y1 + real(c_float),target,dimension(..) :: param + ! + hipblasSrotmg_64_assumed_rank = hipblasSrotmg_64_(handle,c_loc(d1),c_loc(d2),c_loc(x1), & + c_loc(y1),c_loc(param)) + end function + + function hipblasSrotmg_64_assumed_rank_devptr(handle,d1,d2,x1,y1,param) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmg_64_assumed_rank_devptr + type(c_ptr), value :: handle + type(c_ptr),value :: d1 + type(c_ptr),value :: d2 + type(c_ptr),value :: x1 + type(c_ptr),value :: y1 + real(c_float),target,dimension(..) :: param + ! + hipblasSrotmg_64_assumed_rank_devptr = hipblasSrotmg_64_(handle,d1,d2,x1,y1,c_loc(param)) + end function + +#else + function hipblasSrotmg_64_rank_0(handle,d1,d2,x1,y1,param) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmg_64_rank_0 + type(c_ptr), value :: handle + real(c_float),target :: d1 + real(c_float),target :: d2 + real(c_float),target :: x1 + real(c_float),target :: y1 + real(c_float),target :: param + ! + hipblasSrotmg_64_rank_0 = hipblasSrotmg_64_(handle,c_loc(d1),c_loc(d2),c_loc(x1),c_loc(y1), & + c_loc(param)) + end function + + function hipblasSrotmg_64_rank_0_devptr(handle,d1,d2,x1,y1,param) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmg_64_rank_0_devptr + type(c_ptr), value :: handle + type(c_ptr),value :: d1 + type(c_ptr),value :: d2 + type(c_ptr),value :: x1 + type(c_ptr),value :: y1 + real(c_float),target :: param + ! + hipblasSrotmg_64_rank_0_devptr = hipblasSrotmg_64_(handle,d1,d2,x1,y1,c_loc(param)) + end function + + function hipblasSrotmg_64_rank_1(handle,d1,d2,x1,y1,param) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmg_64_rank_1 + type(c_ptr), value :: handle + real(c_float),target :: d1 + real(c_float),target :: d2 + real(c_float),target :: x1 + real(c_float),target :: y1 + real(c_float),target,dimension(:) :: param + ! + hipblasSrotmg_64_rank_1 = hipblasSrotmg_64_(handle,c_loc(d1),c_loc(d2),c_loc(x1),c_loc(y1), & + c_loc(param)) + end function + + function hipblasSrotmg_64_rank_1_devptr(handle,d1,d2,x1,y1,param) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmg_64_rank_1_devptr + type(c_ptr), value :: handle + type(c_ptr),value :: d1 + type(c_ptr),value :: d2 + type(c_ptr),value :: x1 + type(c_ptr),value :: y1 + real(c_float),target,dimension(:) :: param + ! + hipblasSrotmg_64_rank_1_devptr = hipblasSrotmg_64_(handle,d1,d2,x1,y1,c_loc(param)) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDrotmg_64_assumed_rank(handle,d1,d2,x1,y1,param) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmg_64_assumed_rank + type(c_ptr), value :: handle + real(c_double),target :: d1 + real(c_double),target :: d2 + real(c_double),target :: x1 + real(c_double),target :: y1 + real(c_double),target,dimension(..) :: param + ! + hipblasDrotmg_64_assumed_rank = hipblasDrotmg_64_(handle,c_loc(d1),c_loc(d2),c_loc(x1), & + c_loc(y1),c_loc(param)) + end function + + function hipblasDrotmg_64_assumed_rank_devptr(handle,d1,d2,x1,y1,param) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmg_64_assumed_rank_devptr + type(c_ptr), value :: handle + type(c_ptr),value :: d1 + type(c_ptr),value :: d2 + type(c_ptr),value :: x1 + type(c_ptr),value :: y1 + real(c_double),target,dimension(..) :: param + ! + hipblasDrotmg_64_assumed_rank_devptr = hipblasDrotmg_64_(handle,d1,d2,x1,y1,c_loc(param)) + end function + +#else + function hipblasDrotmg_64_rank_0(handle,d1,d2,x1,y1,param) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmg_64_rank_0 + type(c_ptr), value :: handle + real(c_double),target :: d1 + real(c_double),target :: d2 + real(c_double),target :: x1 + real(c_double),target :: y1 + real(c_double),target :: param + ! + hipblasDrotmg_64_rank_0 = hipblasDrotmg_64_(handle,c_loc(d1),c_loc(d2),c_loc(x1),c_loc(y1), & + c_loc(param)) + end function + + function hipblasDrotmg_64_rank_0_devptr(handle,d1,d2,x1,y1,param) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmg_64_rank_0_devptr + type(c_ptr), value :: handle + type(c_ptr),value :: d1 + type(c_ptr),value :: d2 + type(c_ptr),value :: x1 + type(c_ptr),value :: y1 + real(c_double),target :: param + ! + hipblasDrotmg_64_rank_0_devptr = hipblasDrotmg_64_(handle,d1,d2,x1,y1,c_loc(param)) + end function + + function hipblasDrotmg_64_rank_1(handle,d1,d2,x1,y1,param) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmg_64_rank_1 + type(c_ptr), value :: handle + real(c_double),target :: d1 + real(c_double),target :: d2 + real(c_double),target :: x1 + real(c_double),target :: y1 + real(c_double),target,dimension(:) :: param + ! + hipblasDrotmg_64_rank_1 = hipblasDrotmg_64_(handle,c_loc(d1),c_loc(d2),c_loc(x1),c_loc(y1), & + c_loc(param)) + end function + + function hipblasDrotmg_64_rank_1_devptr(handle,d1,d2,x1,y1,param) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmg_64_rank_1_devptr + type(c_ptr), value :: handle + type(c_ptr),value :: d1 + type(c_ptr),value :: d2 + type(c_ptr),value :: x1 + type(c_ptr),value :: y1 + real(c_double),target,dimension(:) :: param + ! + hipblasDrotmg_64_rank_1_devptr = hipblasDrotmg_64_(handle,d1,d2,x1,y1,c_loc(param)) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSrotmgStridedBatched_assumed_rank(handle,d1,strided1,d2,strided2,x1,stridex1, & + y1,stridey1,param,strideParam,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmgStridedBatched_assumed_rank + type(c_ptr), value :: handle + real(c_float),target,dimension(..) :: d1 + integer(c_int64_t) :: strided1 + real(c_float),target,dimension(..) :: d2 + integer(c_int64_t) :: strided2 + real(c_float),target,dimension(..) :: x1 + integer(c_int64_t) :: stridex1 + real(c_float),target,dimension(..) :: y1 + integer(c_int64_t) :: stridey1 + real(c_float),target,dimension(..) :: param + integer(c_int64_t) :: strideParam integer(c_int) :: batchCount ! - hipblasCher2StridedBatched_rank_0 = hipblasCher2StridedBatched_(handle,uplo,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasSrotmgStridedBatched_assumed_rank = hipblasSrotmgStridedBatched_(handle,c_loc(d1), & + strided1,c_loc(d2),strided2,c_loc(x1),stridex1,c_loc(y1),stridey1,c_loc(param), & + strideParam,batchCount) end function - function hipblasCher2StridedBatched_rank_1(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & - AP,lda,strideA,batchCount) - use iso_c_binding +#else + function hipblasSrotmgStridedBatched_rank_0(handle,d1,strided1,d2,strided2,x1,stridex1,y1, & + stridey1,param,strideParam,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2StridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmgStridedBatched_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - complex(c_float_complex),target,dimension(:) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - complex(c_float_complex),target,dimension(:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA + real(c_float),target :: d1 + integer(c_int64_t) :: strided1 + real(c_float),target :: d2 + integer(c_int64_t) :: strided2 + real(c_float),target :: x1 + integer(c_int64_t) :: stridex1 + real(c_float),target :: y1 + integer(c_int64_t) :: stridey1 + real(c_float),target :: param + integer(c_int64_t) :: strideParam integer(c_int) :: batchCount ! - hipblasCher2StridedBatched_rank_1 = hipblasCher2StridedBatched_(handle,uplo,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasSrotmgStridedBatched_rank_0 = hipblasSrotmgStridedBatched_(handle,c_loc(d1),strided1, & + c_loc(d2),strided2,c_loc(x1),stridex1,c_loc(y1),stridey1,c_loc(param),strideParam, & + batchCount) end function - function hipblasCher2StridedBatched_full_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & - stridey,AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasSrotmgStridedBatched_rank_1(handle,d1,strided1,d2,strided2,x1,stridex1,y1, & + stridey1,param,strideParam,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2StridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmgStridedBatched_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - complex(c_float_complex),target,dimension(:) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - complex(c_float_complex),target,dimension(:,:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: d1 + integer(c_int64_t) :: strided1 + real(c_float),target,dimension(:) :: d2 + integer(c_int64_t) :: strided2 + real(c_float),target,dimension(:) :: x1 + integer(c_int64_t) :: stridex1 + real(c_float),target,dimension(:) :: y1 + integer(c_int64_t) :: stridey1 + real(c_float),target,dimension(:) :: param + integer(c_int64_t) :: strideParam integer(c_int) :: batchCount ! - hipblasCher2StridedBatched_full_rank = hipblasCher2StridedBatched_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasSrotmgStridedBatched_rank_1 = hipblasSrotmgStridedBatched_(handle,c_loc(d1),strided1, & + c_loc(d2),strided2,c_loc(x1),stridex1,c_loc(y1),stridey1,c_loc(param),strideParam, & + batchCount) + end function + + function hipblasSrotmgStridedBatched_strided_rank(handle,d1,strided1,d2,strided2,x1,stridex1, & + y1,stridey1,param,strideParam,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmgStridedBatched_strided_rank + type(c_ptr), value :: handle + real(c_float),target,dimension(:) :: d1 + integer(c_int64_t) :: strided1 + real(c_float),target,dimension(:) :: d2 + integer(c_int64_t) :: strided2 + real(c_float),target,dimension(:) :: x1 + integer(c_int64_t) :: stridex1 + real(c_float),target,dimension(:) :: y1 + integer(c_int64_t) :: stridey1 + real(c_float),target,dimension(:,:) :: param + integer(c_int64_t) :: strideParam + integer(c_int) :: batchCount + ! + hipblasSrotmgStridedBatched_strided_rank = hipblasSrotmgStridedBatched_(handle,c_loc(d1), & + strided1,c_loc(d2),strided2,c_loc(x1),stridex1,c_loc(y1),stridey1,c_loc(param), & + strideParam,batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasZher2StridedBatched_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & - stridey,AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasDrotmgStridedBatched_assumed_rank(handle,d1,strided1,d2,strided2,x1,stridex1, & + y1,stridey1,param,strideParam,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2StridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmgStridedBatched_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - complex(c_double_complex),target,dimension(..) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - complex(c_double_complex),target,dimension(..) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: d1 + integer(c_int64_t) :: strided1 + real(c_double),target,dimension(..) :: d2 + integer(c_int64_t) :: strided2 + real(c_double),target,dimension(..) :: x1 + integer(c_int64_t) :: stridex1 + real(c_double),target,dimension(..) :: y1 + integer(c_int64_t) :: stridey1 + real(c_double),target,dimension(..) :: param + integer(c_int64_t) :: strideParam integer(c_int) :: batchCount ! - hipblasZher2StridedBatched_assumed_rank = hipblasZher2StridedBatched_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasDrotmgStridedBatched_assumed_rank = hipblasDrotmgStridedBatched_(handle,c_loc(d1), & + strided1,c_loc(d2),strided2,c_loc(x1),stridex1,c_loc(y1),stridey1,c_loc(param), & + strideParam,batchCount) end function #else - function hipblasZher2StridedBatched_rank_0(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & - AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasDrotmgStridedBatched_rank_0(handle,d1,strided1,d2,strided2,x1,stridex1,y1, & + stridey1,param,strideParam,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2StridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmgStridedBatched_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - complex(c_double_complex),target :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - complex(c_double_complex),target :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA + real(c_double),target :: d1 + integer(c_int64_t) :: strided1 + real(c_double),target :: d2 + integer(c_int64_t) :: strided2 + real(c_double),target :: x1 + integer(c_int64_t) :: stridex1 + real(c_double),target :: y1 + integer(c_int64_t) :: stridey1 + real(c_double),target :: param + integer(c_int64_t) :: strideParam integer(c_int) :: batchCount ! - hipblasZher2StridedBatched_rank_0 = hipblasZher2StridedBatched_(handle,uplo,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasDrotmgStridedBatched_rank_0 = hipblasDrotmgStridedBatched_(handle,c_loc(d1),strided1, & + c_loc(d2),strided2,c_loc(x1),stridex1,c_loc(y1),stridey1,c_loc(param),strideParam, & + batchCount) end function - function hipblasZher2StridedBatched_rank_1(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & - AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasDrotmgStridedBatched_rank_1(handle,d1,strided1,d2,strided2,x1,stridex1,y1, & + stridey1,param,strideParam,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2StridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmgStridedBatched_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - complex(c_double_complex),target,dimension(:) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - complex(c_double_complex),target,dimension(:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: d1 + integer(c_int64_t) :: strided1 + real(c_double),target,dimension(:) :: d2 + integer(c_int64_t) :: strided2 + real(c_double),target,dimension(:) :: x1 + integer(c_int64_t) :: stridex1 + real(c_double),target,dimension(:) :: y1 + integer(c_int64_t) :: stridey1 + real(c_double),target,dimension(:) :: param + integer(c_int64_t) :: strideParam integer(c_int) :: batchCount ! - hipblasZher2StridedBatched_rank_1 = hipblasZher2StridedBatched_(handle,uplo,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasDrotmgStridedBatched_rank_1 = hipblasDrotmgStridedBatched_(handle,c_loc(d1),strided1, & + c_loc(d2),strided2,c_loc(x1),stridex1,c_loc(y1),stridey1,c_loc(param),strideParam, & + batchCount) end function - function hipblasZher2StridedBatched_full_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & - stridey,AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasDrotmgStridedBatched_strided_rank(handle,d1,strided1,d2,strided2,x1,stridex1, & + y1,stridey1,param,strideParam,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2StridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmgStridedBatched_strided_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - complex(c_double_complex),target,dimension(:) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - complex(c_double_complex),target,dimension(:,:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: d1 + integer(c_int64_t) :: strided1 + real(c_double),target,dimension(:) :: d2 + integer(c_int64_t) :: strided2 + real(c_double),target,dimension(:) :: x1 + integer(c_int64_t) :: stridex1 + real(c_double),target,dimension(:) :: y1 + integer(c_int64_t) :: stridey1 + real(c_double),target,dimension(:,:) :: param + integer(c_int64_t) :: strideParam integer(c_int) :: batchCount ! - hipblasZher2StridedBatched_full_rank = hipblasZher2StridedBatched_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasDrotmgStridedBatched_strided_rank = hipblasDrotmgStridedBatched_(handle,c_loc(d1), & + strided1,c_loc(d2),strided2,c_loc(x1),stridex1,c_loc(y1),stridey1,c_loc(param), & + strideParam,batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCher2StridedBatched_64_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & - stridey,AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasSrotmgStridedBatched_64_assumed_rank(handle,d1,strided1,d2,strided2,x1, & + stridex1,y1,stridey1,param,strideParam,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2StridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmgStridedBatched_64_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - complex(c_float_complex),target,dimension(..) :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - complex(c_float_complex),target,dimension(..) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: d1 + integer(c_int64_t) :: strided1 + real(c_float),target,dimension(..) :: d2 + integer(c_int64_t) :: strided2 + real(c_float),target,dimension(..) :: x1 + integer(c_int64_t) :: stridex1 + real(c_float),target,dimension(..) :: y1 + integer(c_int64_t) :: stridey1 + real(c_float),target,dimension(..) :: param + integer(c_int64_t) :: strideParam integer(c_int64_t) :: batchCount ! - hipblasCher2StridedBatched_64_assumed_rank = hipblasCher2StridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasSrotmgStridedBatched_64_assumed_rank = hipblasSrotmgStridedBatched_64_(handle, & + c_loc(d1),strided1,c_loc(d2),strided2,c_loc(x1),stridex1,c_loc(y1),stridey1,c_loc(param), & + strideParam,batchCount) end function #else - function hipblasCher2StridedBatched_64_rank_0(handle,uplo,n,alpha,x,incx,stridex,y,incy, & - stridey,AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasSrotmgStridedBatched_64_rank_0(handle,d1,strided1,d2,strided2,x1,stridex1,y1, & + stridey1,param,strideParam,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2StridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmgStridedBatched_64_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - complex(c_float_complex),target :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - complex(c_float_complex),target :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA + real(c_float),target :: d1 + integer(c_int64_t) :: strided1 + real(c_float),target :: d2 + integer(c_int64_t) :: strided2 + real(c_float),target :: x1 + integer(c_int64_t) :: stridex1 + real(c_float),target :: y1 + integer(c_int64_t) :: stridey1 + real(c_float),target :: param + integer(c_int64_t) :: strideParam integer(c_int64_t) :: batchCount ! - hipblasCher2StridedBatched_64_rank_0 = hipblasCher2StridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasSrotmgStridedBatched_64_rank_0 = hipblasSrotmgStridedBatched_64_(handle,c_loc(d1), & + strided1,c_loc(d2),strided2,c_loc(x1),stridex1,c_loc(y1),stridey1,c_loc(param), & + strideParam,batchCount) end function - function hipblasCher2StridedBatched_64_rank_1(handle,uplo,n,alpha,x,incx,stridex,y,incy, & - stridey,AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasSrotmgStridedBatched_64_rank_1(handle,d1,strided1,d2,strided2,x1,stridex1,y1, & + stridey1,param,strideParam,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2StridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmgStridedBatched_64_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - complex(c_float_complex),target,dimension(:) :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - complex(c_float_complex),target,dimension(:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: d1 + integer(c_int64_t) :: strided1 + real(c_float),target,dimension(:) :: d2 + integer(c_int64_t) :: strided2 + real(c_float),target,dimension(:) :: x1 + integer(c_int64_t) :: stridex1 + real(c_float),target,dimension(:) :: y1 + integer(c_int64_t) :: stridey1 + real(c_float),target,dimension(:) :: param + integer(c_int64_t) :: strideParam integer(c_int64_t) :: batchCount ! - hipblasCher2StridedBatched_64_rank_1 = hipblasCher2StridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasSrotmgStridedBatched_64_rank_1 = hipblasSrotmgStridedBatched_64_(handle,c_loc(d1), & + strided1,c_loc(d2),strided2,c_loc(x1),stridex1,c_loc(y1),stridey1,c_loc(param), & + strideParam,batchCount) end function - function hipblasCher2StridedBatched_64_full_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & - stridey,AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasSrotmgStridedBatched_64_strided_rank(handle,d1,strided1,d2,strided2,x1, & + stridex1,y1,stridey1,param,strideParam,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2StridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmgStridedBatched_64_strided_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - complex(c_float_complex),target,dimension(:) :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - complex(c_float_complex),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: d1 + integer(c_int64_t) :: strided1 + real(c_float),target,dimension(:) :: d2 + integer(c_int64_t) :: strided2 + real(c_float),target,dimension(:) :: x1 + integer(c_int64_t) :: stridex1 + real(c_float),target,dimension(:) :: y1 + integer(c_int64_t) :: stridey1 + real(c_float),target,dimension(:,:) :: param + integer(c_int64_t) :: strideParam integer(c_int64_t) :: batchCount ! - hipblasCher2StridedBatched_64_full_rank = hipblasCher2StridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasSrotmgStridedBatched_64_strided_rank = hipblasSrotmgStridedBatched_64_(handle, & + c_loc(d1),strided1,c_loc(d2),strided2,c_loc(x1),stridex1,c_loc(y1),stridey1,c_loc(param), & + strideParam,batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasZher2StridedBatched_64_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & - stridey,AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasDrotmgStridedBatched_64_assumed_rank(handle,d1,strided1,d2,strided2,x1, & + stridex1,y1,stridey1,param,strideParam,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2StridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmgStridedBatched_64_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - complex(c_double_complex),target,dimension(..) :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - complex(c_double_complex),target,dimension(..) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: d1 + integer(c_int64_t) :: strided1 + real(c_double),target,dimension(..) :: d2 + integer(c_int64_t) :: strided2 + real(c_double),target,dimension(..) :: x1 + integer(c_int64_t) :: stridex1 + real(c_double),target,dimension(..) :: y1 + integer(c_int64_t) :: stridey1 + real(c_double),target,dimension(..) :: param + integer(c_int64_t) :: strideParam integer(c_int64_t) :: batchCount ! - hipblasZher2StridedBatched_64_assumed_rank = hipblasZher2StridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasDrotmgStridedBatched_64_assumed_rank = hipblasDrotmgStridedBatched_64_(handle, & + c_loc(d1),strided1,c_loc(d2),strided2,c_loc(x1),stridex1,c_loc(y1),stridey1,c_loc(param), & + strideParam,batchCount) end function #else - function hipblasZher2StridedBatched_64_rank_0(handle,uplo,n,alpha,x,incx,stridex,y,incy, & - stridey,AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasDrotmgStridedBatched_64_rank_0(handle,d1,strided1,d2,strided2,x1,stridex1,y1, & + stridey1,param,strideParam,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2StridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmgStridedBatched_64_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - complex(c_double_complex),target :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - complex(c_double_complex),target :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA + real(c_double),target :: d1 + integer(c_int64_t) :: strided1 + real(c_double),target :: d2 + integer(c_int64_t) :: strided2 + real(c_double),target :: x1 + integer(c_int64_t) :: stridex1 + real(c_double),target :: y1 + integer(c_int64_t) :: stridey1 + real(c_double),target :: param + integer(c_int64_t) :: strideParam integer(c_int64_t) :: batchCount ! - hipblasZher2StridedBatched_64_rank_0 = hipblasZher2StridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasDrotmgStridedBatched_64_rank_0 = hipblasDrotmgStridedBatched_64_(handle,c_loc(d1), & + strided1,c_loc(d2),strided2,c_loc(x1),stridex1,c_loc(y1),stridey1,c_loc(param), & + strideParam,batchCount) end function - function hipblasZher2StridedBatched_64_rank_1(handle,uplo,n,alpha,x,incx,stridex,y,incy, & - stridey,AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasDrotmgStridedBatched_64_rank_1(handle,d1,strided1,d2,strided2,x1,stridex1,y1, & + stridey1,param,strideParam,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2StridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmgStridedBatched_64_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - complex(c_double_complex),target,dimension(:) :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - complex(c_double_complex),target,dimension(:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: d1 + integer(c_int64_t) :: strided1 + real(c_double),target,dimension(:) :: d2 + integer(c_int64_t) :: strided2 + real(c_double),target,dimension(:) :: x1 + integer(c_int64_t) :: stridex1 + real(c_double),target,dimension(:) :: y1 + integer(c_int64_t) :: stridey1 + real(c_double),target,dimension(:) :: param + integer(c_int64_t) :: strideParam integer(c_int64_t) :: batchCount ! - hipblasZher2StridedBatched_64_rank_1 = hipblasZher2StridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasDrotmgStridedBatched_64_rank_1 = hipblasDrotmgStridedBatched_64_(handle,c_loc(d1), & + strided1,c_loc(d2),strided2,c_loc(x1),stridex1,c_loc(y1),stridey1,c_loc(param), & + strideParam,batchCount) end function - function hipblasZher2StridedBatched_64_full_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & - stridey,AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasDrotmgStridedBatched_64_strided_rank(handle,d1,strided1,d2,strided2,x1, & + stridex1,y1,stridey1,param,strideParam,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2StridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmgStridedBatched_64_strided_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - complex(c_double_complex),target,dimension(:) :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - complex(c_double_complex),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: d1 + integer(c_int64_t) :: strided1 + real(c_double),target,dimension(:) :: d2 + integer(c_int64_t) :: strided2 + real(c_double),target,dimension(:) :: x1 + integer(c_int64_t) :: stridex1 + real(c_double),target,dimension(:) :: y1 + integer(c_int64_t) :: stridey1 + real(c_double),target,dimension(:,:) :: param + integer(c_int64_t) :: strideParam integer(c_int64_t) :: batchCount ! - hipblasZher2StridedBatched_64_full_rank = hipblasZher2StridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasDrotmgStridedBatched_64_strided_rank = hipblasDrotmgStridedBatched_64_(handle, & + c_loc(d1),strided1,c_loc(d2),strided2,c_loc(x1),stridex1,c_loc(y1),stridey1,c_loc(param), & + strideParam,batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasChpmv_assumed_rank(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) - use iso_c_binding + function hipblasSscal_assumed_rank(handle,n,alpha,x,incx) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmv_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscal_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: AP - complex(c_float_complex),target,dimension(..) :: x + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: x integer(c_int) :: incx - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(..) :: y - integer(c_int) :: incy ! - hipblasChpmv_assumed_rank = hipblasChpmv_(handle,uplo,n,c_loc(alpha),c_loc(AP),c_loc(x), & - incx,c_loc(beta),c_loc(y),incy) + hipblasSscal_assumed_rank = hipblasSscal_(handle,n,c_loc(alpha),c_loc(x),incx) end function -#else - function hipblasChpmv_rank_0(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) - use iso_c_binding + function hipblasSscal_assumed_rank_devptr(handle,n,alpha,x,incx) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmv_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscal_assumed_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: AP - complex(c_float_complex),target :: x + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: x integer(c_int) :: incx - complex(c_float_complex),target :: beta - complex(c_float_complex),target :: y - integer(c_int) :: incy ! - hipblasChpmv_rank_0 = hipblasChpmv_(handle,uplo,n,c_loc(alpha),c_loc(AP),c_loc(x),incx, & - c_loc(beta),c_loc(y),incy) + hipblasSscal_assumed_rank_devptr = hipblasSscal_(handle,n,alpha,c_loc(x),incx) end function - function hipblasChpmv_rank_1(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) - use iso_c_binding +#else + function hipblasSscal_rank_0(handle,n,alpha,x,incx) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmv_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscal_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: AP - complex(c_float_complex),target,dimension(:) :: x + real(c_float),target :: alpha + real(c_float),target :: x integer(c_int) :: incx - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:) :: y - integer(c_int) :: incy ! - hipblasChpmv_rank_1 = hipblasChpmv_(handle,uplo,n,c_loc(alpha),c_loc(AP),c_loc(x),incx, & - c_loc(beta),c_loc(y),incy) + hipblasSscal_rank_0 = hipblasSscal_(handle,n,c_loc(alpha),c_loc(x),incx) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZhpmv_assumed_rank(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) - use iso_c_binding + function hipblasSscal_rank_0_devptr(handle,n,alpha,x,incx) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmv_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscal_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: AP - complex(c_double_complex),target,dimension(..) :: x + type(c_ptr),value :: alpha + real(c_float),target :: x integer(c_int) :: incx - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(..) :: y - integer(c_int) :: incy ! - hipblasZhpmv_assumed_rank = hipblasZhpmv_(handle,uplo,n,c_loc(alpha),c_loc(AP),c_loc(x), & - incx,c_loc(beta),c_loc(y),incy) + hipblasSscal_rank_0_devptr = hipblasSscal_(handle,n,alpha,c_loc(x),incx) end function -#else - function hipblasZhpmv_rank_0(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) - use iso_c_binding + function hipblasSscal_rank_1(handle,n,alpha,x,incx) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmv_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscal_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: AP - complex(c_double_complex),target :: x + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x integer(c_int) :: incx - complex(c_double_complex),target :: beta - complex(c_double_complex),target :: y - integer(c_int) :: incy ! - hipblasZhpmv_rank_0 = hipblasZhpmv_(handle,uplo,n,c_loc(alpha),c_loc(AP),c_loc(x),incx, & - c_loc(beta),c_loc(y),incy) + hipblasSscal_rank_1 = hipblasSscal_(handle,n,c_loc(alpha),c_loc(x),incx) end function - function hipblasZhpmv_rank_1(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) - use iso_c_binding + function hipblasSscal_rank_1_devptr(handle,n,alpha,x,incx) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmv_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscal_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: AP - complex(c_double_complex),target,dimension(:) :: x + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: x integer(c_int) :: incx - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:) :: y - integer(c_int) :: incy ! - hipblasZhpmv_rank_1 = hipblasZhpmv_(handle,uplo,n,c_loc(alpha),c_loc(AP),c_loc(x),incx, & - c_loc(beta),c_loc(y),incy) + hipblasSscal_rank_1_devptr = hipblasSscal_(handle,n,alpha,c_loc(x),incx) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasChpmv_64_assumed_rank(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) - use iso_c_binding + function hipblasDscal_assumed_rank(handle,n,alpha,x,incx) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmv_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscal_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: AP - complex(c_float_complex),target,dimension(..) :: x - integer(c_int64_t) :: incx - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(..) :: y - integer(c_int64_t) :: incy + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx ! - hipblasChpmv_64_assumed_rank = hipblasChpmv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP), & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasDscal_assumed_rank = hipblasDscal_(handle,n,c_loc(alpha),c_loc(x),incx) end function -#else - function hipblasChpmv_64_rank_0(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) - use iso_c_binding + function hipblasDscal_assumed_rank_devptr(handle,n,alpha,x,incx) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmv_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscal_assumed_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: AP - complex(c_float_complex),target :: x - integer(c_int64_t) :: incx - complex(c_float_complex),target :: beta - complex(c_float_complex),target :: y - integer(c_int64_t) :: incy + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx ! - hipblasChpmv_64_rank_0 = hipblasChpmv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),c_loc(x), & - incx,c_loc(beta),c_loc(y),incy) + hipblasDscal_assumed_rank_devptr = hipblasDscal_(handle,n,alpha,c_loc(x),incx) end function - function hipblasChpmv_64_rank_1(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) - use iso_c_binding +#else + function hipblasDscal_rank_0(handle,n,alpha,x,incx) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmv_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscal_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: AP - complex(c_float_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:) :: y - integer(c_int64_t) :: incy + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target :: x + integer(c_int) :: incx ! - hipblasChpmv_64_rank_1 = hipblasChpmv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),c_loc(x), & - incx,c_loc(beta),c_loc(y),incy) + hipblasDscal_rank_0 = hipblasDscal_(handle,n,c_loc(alpha),c_loc(x),incx) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZhpmv_64_assumed_rank(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) - use iso_c_binding + function hipblasDscal_rank_0_devptr(handle,n,alpha,x,incx) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmv_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscal_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: AP - complex(c_double_complex),target,dimension(..) :: x - integer(c_int64_t) :: incx - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(..) :: y - integer(c_int64_t) :: incy + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target :: x + integer(c_int) :: incx ! - hipblasZhpmv_64_assumed_rank = hipblasZhpmv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP), & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasDscal_rank_0_devptr = hipblasDscal_(handle,n,alpha,c_loc(x),incx) end function -#else - function hipblasZhpmv_64_rank_0(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) - use iso_c_binding + function hipblasDscal_rank_1(handle,n,alpha,x,incx) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmv_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscal_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: AP - complex(c_double_complex),target :: x - integer(c_int64_t) :: incx - complex(c_double_complex),target :: beta - complex(c_double_complex),target :: y - integer(c_int64_t) :: incy + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx ! - hipblasZhpmv_64_rank_0 = hipblasZhpmv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),c_loc(x), & - incx,c_loc(beta),c_loc(y),incy) + hipblasDscal_rank_1 = hipblasDscal_(handle,n,c_loc(alpha),c_loc(x),incx) end function - function hipblasZhpmv_64_rank_1(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) - use iso_c_binding + function hipblasDscal_rank_1_devptr(handle,n,alpha,x,incx) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmv_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscal_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: AP - complex(c_double_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:) :: y - integer(c_int64_t) :: incy + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx ! - hipblasZhpmv_64_rank_1 = hipblasZhpmv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),c_loc(x), & - incx,c_loc(beta),c_loc(y),incy) + hipblasDscal_rank_1_devptr = hipblasDscal_(handle,n,alpha,c_loc(x),incx) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasChpmvStridedBatched_assumed_rank(handle,uplo,n,alpha,AP,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasCscal_assumed_rank(handle,n,alpha,x,incx) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmvStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscal_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: AP - integer(c_int64_t) :: strideA complex(c_float_complex),target,dimension(..) :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(..) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount ! - hipblasChpmvStridedBatched_assumed_rank = hipblasChpmvStridedBatched_(handle,uplo,n, & - c_loc(alpha),c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey, & - batchCount) + hipblasCscal_assumed_rank = hipblasCscal_(handle,n,c_loc(alpha),c_loc(x),incx) + end function + + function hipblasCscal_assumed_rank_devptr(handle,n,alpha,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscal_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + ! + hipblasCscal_assumed_rank_devptr = hipblasCscal_(handle,n,alpha,c_loc(x),incx) end function #else - function hipblasChpmvStridedBatched_rank_0(handle,uplo,n,alpha,AP,strideA,x,incx,stridex,beta, & - y,incy,stridey,batchCount) - use iso_c_binding + function hipblasCscal_rank_0(handle,n,alpha,x,incx) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmvStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscal_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: AP - integer(c_int64_t) :: strideA complex(c_float_complex),target :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - complex(c_float_complex),target :: beta - complex(c_float_complex),target :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount ! - hipblasChpmvStridedBatched_rank_0 = hipblasChpmvStridedBatched_(handle,uplo,n,c_loc(alpha), & - c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey,batchCount) + hipblasCscal_rank_0 = hipblasCscal_(handle,n,c_loc(alpha),c_loc(x),incx) end function - function hipblasChpmvStridedBatched_rank_1(handle,uplo,n,alpha,AP,strideA,x,incx,stridex,beta, & - y,incy,stridey,batchCount) - use iso_c_binding + function hipblasCscal_rank_0_devptr(handle,n,alpha,x,incx) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmvStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscal_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target :: x + integer(c_int) :: incx + ! + hipblasCscal_rank_0_devptr = hipblasCscal_(handle,n,alpha,c_loc(x),incx) + end function + + function hipblasCscal_rank_1(handle,n,alpha,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscal_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: AP - integer(c_int64_t) :: strideA complex(c_float_complex),target,dimension(:) :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount ! - hipblasChpmvStridedBatched_rank_1 = hipblasChpmvStridedBatched_(handle,uplo,n,c_loc(alpha), & - c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey,batchCount) + hipblasCscal_rank_1 = hipblasCscal_(handle,n,c_loc(alpha),c_loc(x),incx) + end function + + function hipblasCscal_rank_1_devptr(handle,n,alpha,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscal_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasCscal_rank_1_devptr = hipblasCscal_(handle,n,alpha,c_loc(x),incx) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasZhpmvStridedBatched_assumed_rank(handle,uplo,n,alpha,AP,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasCsscal_assumed_rank(handle,n,alpha,x,incx) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmvStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscal_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: AP - integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(..) :: x + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(..) :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(..) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount ! - hipblasZhpmvStridedBatched_assumed_rank = hipblasZhpmvStridedBatched_(handle,uplo,n, & - c_loc(alpha),c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey, & - batchCount) + hipblasCsscal_assumed_rank = hipblasCsscal_(handle,n,c_loc(alpha),c_loc(x),incx) end function -#else - function hipblasZhpmvStridedBatched_rank_0(handle,uplo,n,alpha,AP,strideA,x,incx,stridex,beta, & - y,incy,stridey,batchCount) - use iso_c_binding + function hipblasCsscal_assumed_rank_devptr(handle,n,alpha,x,incx) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmvStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscal_assumed_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: AP - integer(c_int64_t) :: strideA - complex(c_double_complex),target :: x + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - complex(c_double_complex),target :: beta - complex(c_double_complex),target :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount ! - hipblasZhpmvStridedBatched_rank_0 = hipblasZhpmvStridedBatched_(handle,uplo,n,c_loc(alpha), & - c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey,batchCount) + hipblasCsscal_assumed_rank_devptr = hipblasCsscal_(handle,n,alpha,c_loc(x),incx) end function - function hipblasZhpmvStridedBatched_rank_1(handle,uplo,n,alpha,AP,strideA,x,incx,stridex,beta, & - y,incy,stridey,batchCount) - use iso_c_binding +#else + function hipblasCsscal_rank_0(handle,n,alpha,x,incx) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmvStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscal_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: AP - integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:) :: x + real(c_float),target :: alpha + complex(c_float_complex),target :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount ! - hipblasZhpmvStridedBatched_rank_1 = hipblasZhpmvStridedBatched_(handle,uplo,n,c_loc(alpha), & - c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey,batchCount) + hipblasCsscal_rank_0 = hipblasCsscal_(handle,n,c_loc(alpha),c_loc(x),incx) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasChpmvStridedBatched_64_assumed_rank(handle,uplo,n,alpha,AP,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasCsscal_rank_0_devptr(handle,n,alpha,x,incx) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmvStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscal_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: AP - integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(..) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(..) :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target :: x + integer(c_int) :: incx ! - hipblasChpmvStridedBatched_64_assumed_rank = hipblasChpmvStridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey, & - batchCount) + hipblasCsscal_rank_0_devptr = hipblasCsscal_(handle,n,alpha,c_loc(x),incx) end function -#else - function hipblasChpmvStridedBatched_64_rank_0(handle,uplo,n,alpha,AP,strideA,x,incx,stridex, & - beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasCsscal_rank_1(handle,n,alpha,x,incx) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmvStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscal_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: AP - integer(c_int64_t) :: strideA - complex(c_float_complex),target :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - complex(c_float_complex),target :: beta - complex(c_float_complex),target :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount + integer(c_int) :: n + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx ! - hipblasChpmvStridedBatched_64_rank_0 = hipblasChpmvStridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey, & - batchCount) + hipblasCsscal_rank_1 = hipblasCsscal_(handle,n,c_loc(alpha),c_loc(x),incx) end function - function hipblasChpmvStridedBatched_64_rank_1(handle,uplo,n,alpha,AP,strideA,x,incx,stridex, & - beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasCsscal_rank_1_devptr(handle,n,alpha,x,incx) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmvStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscal_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: AP - integer(c_int64_t) :: strideA + integer(c_int) :: n + type(c_ptr),value :: alpha complex(c_float_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:) :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount + integer(c_int) :: incx ! - hipblasChpmvStridedBatched_64_rank_1 = hipblasChpmvStridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey, & - batchCount) + hipblasCsscal_rank_1_devptr = hipblasCsscal_(handle,n,alpha,c_loc(x),incx) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasZhpmvStridedBatched_64_assumed_rank(handle,uplo,n,alpha,AP,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasZscal_assumed_rank(handle,n,alpha,x,incx) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmvStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscal_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n + integer(c_int) :: n complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: AP - integer(c_int64_t) :: strideA complex(c_double_complex),target,dimension(..) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(..) :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount + integer(c_int) :: incx ! - hipblasZhpmvStridedBatched_64_assumed_rank = hipblasZhpmvStridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey, & - batchCount) + hipblasZscal_assumed_rank = hipblasZscal_(handle,n,c_loc(alpha),c_loc(x),incx) end function -#else - function hipblasZhpmvStridedBatched_64_rank_0(handle,uplo,n,alpha,AP,strideA,x,incx,stridex, & - beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasZscal_assumed_rank_devptr(handle,n,alpha,x,incx) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmvStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscal_assumed_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: AP - integer(c_int64_t) :: strideA - complex(c_double_complex),target :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - complex(c_double_complex),target :: beta - complex(c_double_complex),target :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx ! - hipblasZhpmvStridedBatched_64_rank_0 = hipblasZhpmvStridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey, & - batchCount) + hipblasZscal_assumed_rank_devptr = hipblasZscal_(handle,n,alpha,c_loc(x),incx) end function - function hipblasZhpmvStridedBatched_64_rank_1(handle,uplo,n,alpha,AP,strideA,x,incx,stridex, & - beta,y,incy,stridey,batchCount) - use iso_c_binding +#else + function hipblasZscal_rank_0(handle,n,alpha,x,incx) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmvStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscal_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n + integer(c_int) :: n complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: AP - integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:) :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount + complex(c_double_complex),target :: x + integer(c_int) :: incx ! - hipblasZhpmvStridedBatched_64_rank_1 = hipblasZhpmvStridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey, & - batchCount) + hipblasZscal_rank_0 = hipblasZscal_(handle,n,c_loc(alpha),c_loc(x),incx) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasChpr_assumed_rank(handle,uplo,n,alpha,x,incx,AP) - use iso_c_binding + function hipblasZscal_rank_0_devptr(handle,n,alpha,x,incx) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscal_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - real(c_float),target :: alpha - complex(c_float_complex),target,dimension(..) :: x + type(c_ptr),value :: alpha + complex(c_double_complex),target :: x integer(c_int) :: incx - complex(c_float_complex),target,dimension(..) :: AP ! - hipblasChpr_assumed_rank = hipblasChpr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + hipblasZscal_rank_0_devptr = hipblasZscal_(handle,n,alpha,c_loc(x),incx) end function -#else - function hipblasChpr_rank_0(handle,uplo,n,alpha,x,incx,AP) - use iso_c_binding + function hipblasZscal_rank_1(handle,n,alpha,x,incx) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscal_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - real(c_float),target :: alpha - complex(c_float_complex),target :: x + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x integer(c_int) :: incx - complex(c_float_complex),target :: AP ! - hipblasChpr_rank_0 = hipblasChpr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + hipblasZscal_rank_1 = hipblasZscal_(handle,n,c_loc(alpha),c_loc(x),incx) end function - function hipblasChpr_rank_1(handle,uplo,n,alpha,x,incx,AP) - use iso_c_binding + function hipblasZscal_rank_1_devptr(handle,n,alpha,x,incx) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscal_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - real(c_float),target :: alpha - complex(c_float_complex),target,dimension(:) :: x + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: x integer(c_int) :: incx - complex(c_float_complex),target,dimension(:) :: AP ! - hipblasChpr_rank_1 = hipblasChpr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + hipblasZscal_rank_1_devptr = hipblasZscal_(handle,n,alpha,c_loc(x),incx) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasZhpr_assumed_rank(handle,uplo,n,alpha,x,incx,AP) - use iso_c_binding + function hipblasZdscal_assumed_rank(handle,n,alpha,x,incx) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscal_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n real(c_double),target :: alpha complex(c_double_complex),target,dimension(..) :: x integer(c_int) :: incx - complex(c_double_complex),target,dimension(..) :: AP ! - hipblasZhpr_assumed_rank = hipblasZhpr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + hipblasZdscal_assumed_rank = hipblasZdscal_(handle,n,c_loc(alpha),c_loc(x),incx) + end function + + function hipblasZdscal_assumed_rank_devptr(handle,n,alpha,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscal_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + ! + hipblasZdscal_assumed_rank_devptr = hipblasZdscal_(handle,n,alpha,c_loc(x),incx) end function #else - function hipblasZhpr_rank_0(handle,uplo,n,alpha,x,incx,AP) - use iso_c_binding + function hipblasZdscal_rank_0(handle,n,alpha,x,incx) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscal_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n real(c_double),target :: alpha complex(c_double_complex),target :: x integer(c_int) :: incx - complex(c_double_complex),target :: AP ! - hipblasZhpr_rank_0 = hipblasZhpr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + hipblasZdscal_rank_0 = hipblasZdscal_(handle,n,c_loc(alpha),c_loc(x),incx) end function - function hipblasZhpr_rank_1(handle,uplo,n,alpha,x,incx,AP) - use iso_c_binding + function hipblasZdscal_rank_0_devptr(handle,n,alpha,x,incx) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscal_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target :: x + integer(c_int) :: incx + ! + hipblasZdscal_rank_0_devptr = hipblasZdscal_(handle,n,alpha,c_loc(x),incx) + end function + + function hipblasZdscal_rank_1(handle,n,alpha,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscal_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n real(c_double),target :: alpha complex(c_double_complex),target,dimension(:) :: x integer(c_int) :: incx - complex(c_double_complex),target,dimension(:) :: AP ! - hipblasZhpr_rank_1 = hipblasZhpr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + hipblasZdscal_rank_1 = hipblasZdscal_(handle,n,c_loc(alpha),c_loc(x),incx) + end function + + function hipblasZdscal_rank_1_devptr(handle,n,alpha,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscal_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasZdscal_rank_1_devptr = hipblasZdscal_(handle,n,alpha,c_loc(x),incx) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasChpr_64_assumed_rank(handle,uplo,n,alpha,x,incx,AP) - use iso_c_binding + function hipblasSscal_64_assumed_rank(handle,n,alpha,x,incx) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscal_64_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n real(c_float),target :: alpha - complex(c_float_complex),target,dimension(..) :: x + real(c_float),target,dimension(..) :: x integer(c_int64_t) :: incx - complex(c_float_complex),target,dimension(..) :: AP ! - hipblasChpr_64_assumed_rank = hipblasChpr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & - c_loc(AP)) + hipblasSscal_64_assumed_rank = hipblasSscal_64_(handle,n,c_loc(alpha),c_loc(x),incx) end function -#else - function hipblasChpr_64_rank_0(handle,uplo,n,alpha,x,incx,AP) - use iso_c_binding + function hipblasSscal_64_assumed_rank_devptr(handle,n,alpha,x,incx) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscal_64_assumed_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - real(c_float),target :: alpha - complex(c_float_complex),target :: x + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: x integer(c_int64_t) :: incx - complex(c_float_complex),target :: AP ! - hipblasChpr_64_rank_0 = hipblasChpr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + hipblasSscal_64_assumed_rank_devptr = hipblasSscal_64_(handle,n,alpha,c_loc(x),incx) end function - function hipblasChpr_64_rank_1(handle,uplo,n,alpha,x,incx,AP) - use iso_c_binding +#else + function hipblasSscal_64_rank_0(handle,n,alpha,x,incx) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscal_64_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n real(c_float),target :: alpha - complex(c_float_complex),target,dimension(:) :: x + real(c_float),target :: x integer(c_int64_t) :: incx - complex(c_float_complex),target,dimension(:) :: AP ! - hipblasChpr_64_rank_1 = hipblasChpr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + hipblasSscal_64_rank_0 = hipblasSscal_64_(handle,n,c_loc(alpha),c_loc(x),incx) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZhpr_64_assumed_rank(handle,uplo,n,alpha,x,incx,AP) - use iso_c_binding + function hipblasSscal_64_rank_0_devptr(handle,n,alpha,x,incx) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscal_64_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - real(c_double),target :: alpha - complex(c_double_complex),target,dimension(..) :: x + type(c_ptr),value :: alpha + real(c_float),target :: x integer(c_int64_t) :: incx - complex(c_double_complex),target,dimension(..) :: AP ! - hipblasZhpr_64_assumed_rank = hipblasZhpr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & - c_loc(AP)) + hipblasSscal_64_rank_0_devptr = hipblasSscal_64_(handle,n,alpha,c_loc(x),incx) end function -#else - function hipblasZhpr_64_rank_0(handle,uplo,n,alpha,x,incx,AP) - use iso_c_binding + function hipblasSscal_64_rank_1(handle,n,alpha,x,incx) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscal_64_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - real(c_double),target :: alpha - complex(c_double_complex),target :: x + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x integer(c_int64_t) :: incx - complex(c_double_complex),target :: AP ! - hipblasZhpr_64_rank_0 = hipblasZhpr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + hipblasSscal_64_rank_1 = hipblasSscal_64_(handle,n,c_loc(alpha),c_loc(x),incx) end function - function hipblasZhpr_64_rank_1(handle,uplo,n,alpha,x,incx,AP) - use iso_c_binding + function hipblasSscal_64_rank_1_devptr(handle,n,alpha,x,incx) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscal_64_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - real(c_double),target :: alpha - complex(c_double_complex),target,dimension(:) :: x + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: x integer(c_int64_t) :: incx - complex(c_double_complex),target,dimension(:) :: AP ! - hipblasZhpr_64_rank_1 = hipblasZhpr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + hipblasSscal_64_rank_1_devptr = hipblasSscal_64_(handle,n,alpha,c_loc(x),incx) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasChprStridedBatched_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & - batchCount) - use iso_c_binding + function hipblasDscal_64_assumed_rank(handle,n,alpha,x,incx) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChprStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscal_64_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - real(c_float),target :: alpha - complex(c_float_complex),target,dimension(..) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - complex(c_float_complex),target,dimension(..) :: AP - integer(c_int64_t) :: strideA - integer(c_int) :: batchCount + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx ! - hipblasChprStridedBatched_assumed_rank = hipblasChprStridedBatched_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + hipblasDscal_64_assumed_rank = hipblasDscal_64_(handle,n,c_loc(alpha),c_loc(x),incx) end function -#else - function hipblasChprStridedBatched_rank_0(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & - batchCount) - use iso_c_binding + function hipblasDscal_64_assumed_rank_devptr(handle,n,alpha,x,incx) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChprStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscal_64_assumed_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - real(c_float),target :: alpha - complex(c_float_complex),target :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - complex(c_float_complex),target :: AP - integer(c_int64_t) :: strideA - integer(c_int) :: batchCount + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx ! - hipblasChprStridedBatched_rank_0 = hipblasChprStridedBatched_(handle,uplo,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + hipblasDscal_64_assumed_rank_devptr = hipblasDscal_64_(handle,n,alpha,c_loc(x),incx) end function - function hipblasChprStridedBatched_rank_1(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & - batchCount) - use iso_c_binding +#else + function hipblasDscal_64_rank_0(handle,n,alpha,x,incx) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChprStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscal_64_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - real(c_float),target :: alpha - complex(c_float_complex),target,dimension(:) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - complex(c_float_complex),target,dimension(:) :: AP - integer(c_int64_t) :: strideA - integer(c_int) :: batchCount + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target :: x + integer(c_int64_t) :: incx ! - hipblasChprStridedBatched_rank_1 = hipblasChprStridedBatched_(handle,uplo,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + hipblasDscal_64_rank_0 = hipblasDscal_64_(handle,n,c_loc(alpha),c_loc(x),incx) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZhprStridedBatched_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & - batchCount) - use iso_c_binding + function hipblasDscal_64_rank_0_devptr(handle,n,alpha,x,incx) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhprStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscal_64_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - real(c_double),target :: alpha - complex(c_double_complex),target,dimension(..) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - complex(c_double_complex),target,dimension(..) :: AP - integer(c_int64_t) :: strideA - integer(c_int) :: batchCount + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target :: x + integer(c_int64_t) :: incx ! - hipblasZhprStridedBatched_assumed_rank = hipblasZhprStridedBatched_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + hipblasDscal_64_rank_0_devptr = hipblasDscal_64_(handle,n,alpha,c_loc(x),incx) end function -#else - function hipblasZhprStridedBatched_rank_0(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & - batchCount) - use iso_c_binding + function hipblasDscal_64_rank_1(handle,n,alpha,x,incx) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhprStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscal_64_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n + integer(c_int64_t) :: n real(c_double),target :: alpha - complex(c_double_complex),target :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - complex(c_double_complex),target :: AP - integer(c_int64_t) :: strideA - integer(c_int) :: batchCount + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx ! - hipblasZhprStridedBatched_rank_0 = hipblasZhprStridedBatched_(handle,uplo,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + hipblasDscal_64_rank_1 = hipblasDscal_64_(handle,n,c_loc(alpha),c_loc(x),incx) end function - function hipblasZhprStridedBatched_rank_1(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & - batchCount) - use iso_c_binding + function hipblasDscal_64_rank_1_devptr(handle,n,alpha,x,incx) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhprStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscal_64_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - real(c_double),target :: alpha - complex(c_double_complex),target,dimension(:) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - complex(c_double_complex),target,dimension(:) :: AP - integer(c_int64_t) :: strideA - integer(c_int) :: batchCount + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx ! - hipblasZhprStridedBatched_rank_1 = hipblasZhprStridedBatched_(handle,uplo,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + hipblasDscal_64_rank_1_devptr = hipblasDscal_64_(handle,n,alpha,c_loc(x),incx) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasChprStridedBatched_64_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,AP, & - strideA,batchCount) - use iso_c_binding + function hipblasCscal_64_assumed_rank(handle,n,alpha,x,incx) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChprStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscal_64_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - real(c_float),target :: alpha + complex(c_float_complex),target :: alpha complex(c_float_complex),target,dimension(..) :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - complex(c_float_complex),target,dimension(..) :: AP - integer(c_int64_t) :: strideA - integer(c_int64_t) :: batchCount ! - hipblasChprStridedBatched_64_assumed_rank = hipblasChprStridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + hipblasCscal_64_assumed_rank = hipblasCscal_64_(handle,n,c_loc(alpha),c_loc(x),incx) end function -#else - function hipblasChprStridedBatched_64_rank_0(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & - batchCount) - use iso_c_binding + function hipblasCscal_64_assumed_rank_devptr(handle,n,alpha,x,incx) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChprStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscal_64_assumed_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - real(c_float),target :: alpha - complex(c_float_complex),target :: x + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - complex(c_float_complex),target :: AP - integer(c_int64_t) :: strideA - integer(c_int64_t) :: batchCount ! - hipblasChprStridedBatched_64_rank_0 = hipblasChprStridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + hipblasCscal_64_assumed_rank_devptr = hipblasCscal_64_(handle,n,alpha,c_loc(x),incx) end function - function hipblasChprStridedBatched_64_rank_1(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & - batchCount) - use iso_c_binding +#else + function hipblasCscal_64_rank_0(handle,n,alpha,x,incx) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChprStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscal_64_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - real(c_float),target :: alpha - complex(c_float_complex),target,dimension(:) :: x + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - complex(c_float_complex),target,dimension(:) :: AP - integer(c_int64_t) :: strideA - integer(c_int64_t) :: batchCount ! - hipblasChprStridedBatched_64_rank_1 = hipblasChprStridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + hipblasCscal_64_rank_0 = hipblasCscal_64_(handle,n,c_loc(alpha),c_loc(x),incx) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZhprStridedBatched_64_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,AP, & - strideA,batchCount) - use iso_c_binding + function hipblasCscal_64_rank_0_devptr(handle,n,alpha,x,incx) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhprStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscal_64_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - real(c_double),target :: alpha - complex(c_double_complex),target,dimension(..) :: x + type(c_ptr),value :: alpha + complex(c_float_complex),target :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - complex(c_double_complex),target,dimension(..) :: AP - integer(c_int64_t) :: strideA - integer(c_int64_t) :: batchCount ! - hipblasZhprStridedBatched_64_assumed_rank = hipblasZhprStridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + hipblasCscal_64_rank_0_devptr = hipblasCscal_64_(handle,n,alpha,c_loc(x),incx) end function -#else - function hipblasZhprStridedBatched_64_rank_0(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & - batchCount) - use iso_c_binding + function hipblasCscal_64_rank_1(handle,n,alpha,x,incx) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhprStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscal_64_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - real(c_double),target :: alpha - complex(c_double_complex),target :: x + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - complex(c_double_complex),target :: AP - integer(c_int64_t) :: strideA - integer(c_int64_t) :: batchCount ! - hipblasZhprStridedBatched_64_rank_0 = hipblasZhprStridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + hipblasCscal_64_rank_1 = hipblasCscal_64_(handle,n,c_loc(alpha),c_loc(x),incx) end function - function hipblasZhprStridedBatched_64_rank_1(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & - batchCount) - use iso_c_binding + function hipblasCscal_64_rank_1_devptr(handle,n,alpha,x,incx) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhprStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscal_64_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - real(c_double),target :: alpha - complex(c_double_complex),target,dimension(:) :: x + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - complex(c_double_complex),target,dimension(:) :: AP - integer(c_int64_t) :: strideA - integer(c_int64_t) :: batchCount ! - hipblasZhprStridedBatched_64_rank_1 = hipblasZhprStridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + hipblasCscal_64_rank_1_devptr = hipblasCscal_64_(handle,n,alpha,c_loc(x),incx) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasChpr2_assumed_rank(handle,uplo,n,alpha,x,incx,y,incy,AP) - use iso_c_binding + function hipblasCsscal_64_assumed_rank(handle,n,alpha,x,incx) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscal_64_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - complex(c_float_complex),target :: alpha + integer(c_int64_t) :: n + real(c_float),target :: alpha complex(c_float_complex),target,dimension(..) :: x - integer(c_int) :: incx - complex(c_float_complex),target,dimension(..) :: y - integer(c_int) :: incy - complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: incx ! - hipblasChpr2_assumed_rank = hipblasChpr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & - incy,c_loc(AP)) + hipblasCsscal_64_assumed_rank = hipblasCsscal_64_(handle,n,c_loc(alpha),c_loc(x),incx) + end function + + function hipblasCsscal_64_assumed_rank_devptr(handle,n,alpha,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscal_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + ! + hipblasCsscal_64_assumed_rank_devptr = hipblasCsscal_64_(handle,n,alpha,c_loc(x),incx) end function #else - function hipblasChpr2_rank_0(handle,uplo,n,alpha,x,incx,y,incy,AP) - use iso_c_binding + function hipblasCsscal_64_rank_0(handle,n,alpha,x,incx) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscal_64_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - complex(c_float_complex),target :: alpha + integer(c_int64_t) :: n + real(c_float),target :: alpha complex(c_float_complex),target :: x - integer(c_int) :: incx - complex(c_float_complex),target :: y - integer(c_int) :: incy - complex(c_float_complex),target :: AP + integer(c_int64_t) :: incx ! - hipblasChpr2_rank_0 = hipblasChpr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & - c_loc(AP)) + hipblasCsscal_64_rank_0 = hipblasCsscal_64_(handle,n,c_loc(alpha),c_loc(x),incx) end function - function hipblasChpr2_rank_1(handle,uplo,n,alpha,x,incx,y,incy,AP) - use iso_c_binding + function hipblasCsscal_64_rank_0_devptr(handle,n,alpha,x,incx) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscal_64_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - complex(c_float_complex),target :: alpha + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + ! + hipblasCsscal_64_rank_0_devptr = hipblasCsscal_64_(handle,n,alpha,c_loc(x),incx) + end function + + function hipblasCsscal_64_rank_1(handle,n,alpha,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscal_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target :: alpha complex(c_float_complex),target,dimension(:) :: x - integer(c_int) :: incx - complex(c_float_complex),target,dimension(:) :: y - integer(c_int) :: incy - complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: incx ! - hipblasChpr2_rank_1 = hipblasChpr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & - c_loc(AP)) + hipblasCsscal_64_rank_1 = hipblasCsscal_64_(handle,n,c_loc(alpha),c_loc(x),incx) + end function + + function hipblasCsscal_64_rank_1_devptr(handle,n,alpha,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscal_64_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasCsscal_64_rank_1_devptr = hipblasCsscal_64_(handle,n,alpha,c_loc(x),incx) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasZhpr2_assumed_rank(handle,uplo,n,alpha,x,incx,y,incy,AP) - use iso_c_binding + function hipblasZscal_64_assumed_rank(handle,n,alpha,x,incx) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscal_64_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n + integer(c_int64_t) :: n complex(c_double_complex),target :: alpha complex(c_double_complex),target,dimension(..) :: x - integer(c_int) :: incx - complex(c_double_complex),target,dimension(..) :: y - integer(c_int) :: incy - complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: incx ! - hipblasZhpr2_assumed_rank = hipblasZhpr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & - incy,c_loc(AP)) + hipblasZscal_64_assumed_rank = hipblasZscal_64_(handle,n,c_loc(alpha),c_loc(x),incx) + end function + + function hipblasZscal_64_assumed_rank_devptr(handle,n,alpha,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscal_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + ! + hipblasZscal_64_assumed_rank_devptr = hipblasZscal_64_(handle,n,alpha,c_loc(x),incx) end function #else - function hipblasZhpr2_rank_0(handle,uplo,n,alpha,x,incx,y,incy,AP) - use iso_c_binding + function hipblasZscal_64_rank_0(handle,n,alpha,x,incx) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscal_64_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n + integer(c_int64_t) :: n complex(c_double_complex),target :: alpha complex(c_double_complex),target :: x - integer(c_int) :: incx - complex(c_double_complex),target :: y - integer(c_int) :: incy - complex(c_double_complex),target :: AP + integer(c_int64_t) :: incx ! - hipblasZhpr2_rank_0 = hipblasZhpr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & - c_loc(AP)) + hipblasZscal_64_rank_0 = hipblasZscal_64_(handle,n,c_loc(alpha),c_loc(x),incx) end function - function hipblasZhpr2_rank_1(handle,uplo,n,alpha,x,incx,y,incy,AP) - use iso_c_binding + function hipblasZscal_64_rank_0_devptr(handle,n,alpha,x,incx) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscal_64_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + ! + hipblasZscal_64_rank_0_devptr = hipblasZscal_64_(handle,n,alpha,c_loc(x),incx) + end function + + function hipblasZscal_64_rank_1(handle,n,alpha,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscal_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n complex(c_double_complex),target :: alpha complex(c_double_complex),target,dimension(:) :: x - integer(c_int) :: incx - complex(c_double_complex),target,dimension(:) :: y - integer(c_int) :: incy - complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: incx ! - hipblasZhpr2_rank_1 = hipblasZhpr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & - c_loc(AP)) + hipblasZscal_64_rank_1 = hipblasZscal_64_(handle,n,c_loc(alpha),c_loc(x),incx) + end function + + function hipblasZscal_64_rank_1_devptr(handle,n,alpha,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscal_64_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasZscal_64_rank_1_devptr = hipblasZscal_64_(handle,n,alpha,c_loc(x),incx) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasChpr2_64_assumed_rank(handle,uplo,n,alpha,x,incx,y,incy,AP) - use iso_c_binding + function hipblasZdscal_64_assumed_rank(handle,n,alpha,x,incx) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscal_64_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: x + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(..) :: x integer(c_int64_t) :: incx - complex(c_float_complex),target,dimension(..) :: y - integer(c_int64_t) :: incy - complex(c_float_complex),target,dimension(..) :: AP ! - hipblasChpr2_64_assumed_rank = hipblasChpr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & - c_loc(y),incy,c_loc(AP)) + hipblasZdscal_64_assumed_rank = hipblasZdscal_64_(handle,n,c_loc(alpha),c_loc(x),incx) end function -#else - function hipblasChpr2_64_rank_0(handle,uplo,n,alpha,x,incx,y,incy,AP) - use iso_c_binding + function hipblasZdscal_64_assumed_rank_devptr(handle,n,alpha,x,incx) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscal_64_assumed_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: x + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: x integer(c_int64_t) :: incx - complex(c_float_complex),target :: y - integer(c_int64_t) :: incy - complex(c_float_complex),target :: AP ! - hipblasChpr2_64_rank_0 = hipblasChpr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & - incy,c_loc(AP)) + hipblasZdscal_64_assumed_rank_devptr = hipblasZdscal_64_(handle,n,alpha,c_loc(x),incx) end function - function hipblasChpr2_64_rank_1(handle,uplo,n,alpha,x,incx,y,incy,AP) - use iso_c_binding +#else + function hipblasZdscal_64_rank_0(handle,n,alpha,x,incx) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscal_64_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: x + real(c_double),target :: alpha + complex(c_double_complex),target :: x integer(c_int64_t) :: incx - complex(c_float_complex),target,dimension(:) :: y - integer(c_int64_t) :: incy - complex(c_float_complex),target,dimension(:) :: AP ! - hipblasChpr2_64_rank_1 = hipblasChpr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & - incy,c_loc(AP)) + hipblasZdscal_64_rank_0 = hipblasZdscal_64_(handle,n,c_loc(alpha),c_loc(x),incx) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZhpr2_64_assumed_rank(handle,uplo,n,alpha,x,incx,y,incy,AP) - use iso_c_binding + function hipblasZdscal_64_rank_0_devptr(handle,n,alpha,x,incx) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscal_64_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: x + type(c_ptr),value :: alpha + complex(c_double_complex),target :: x integer(c_int64_t) :: incx - complex(c_double_complex),target,dimension(..) :: y - integer(c_int64_t) :: incy - complex(c_double_complex),target,dimension(..) :: AP ! - hipblasZhpr2_64_assumed_rank = hipblasZhpr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & - c_loc(y),incy,c_loc(AP)) + hipblasZdscal_64_rank_0_devptr = hipblasZdscal_64_(handle,n,alpha,c_loc(x),incx) end function -#else - function hipblasZhpr2_64_rank_0(handle,uplo,n,alpha,x,incx,y,incy,AP) - use iso_c_binding + function hipblasZdscal_64_rank_1(handle,n,alpha,x,incx) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscal_64_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: x + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(:) :: x integer(c_int64_t) :: incx - complex(c_double_complex),target :: y - integer(c_int64_t) :: incy - complex(c_double_complex),target :: AP ! - hipblasZhpr2_64_rank_0 = hipblasZhpr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & - incy,c_loc(AP)) + hipblasZdscal_64_rank_1 = hipblasZdscal_64_(handle,n,c_loc(alpha),c_loc(x),incx) end function - function hipblasZhpr2_64_rank_1(handle,uplo,n,alpha,x,incx,y,incy,AP) - use iso_c_binding + function hipblasZdscal_64_rank_1_devptr(handle,n,alpha,x,incx) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscal_64_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha + type(c_ptr),value :: alpha complex(c_double_complex),target,dimension(:) :: x integer(c_int64_t) :: incx - complex(c_double_complex),target,dimension(:) :: y - integer(c_int64_t) :: incy - complex(c_double_complex),target,dimension(:) :: AP ! - hipblasZhpr2_64_rank_1 = hipblasZhpr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & - incy,c_loc(AP)) + hipblasZdscal_64_rank_1_devptr = hipblasZdscal_64_(handle,n,alpha,c_loc(x),incx) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasChpr2StridedBatched_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & - stridey,AP,strideA,batchCount) - use iso_c_binding + function hipblasSscalStridedBatched_assumed_rank(handle,n,alpha,x,incx,stridex,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2StridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscalStridedBatched_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: x + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - complex(c_float_complex),target,dimension(..) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - complex(c_float_complex),target,dimension(..) :: AP - integer(c_int64_t) :: strideA integer(c_int) :: batchCount ! - hipblasChpr2StridedBatched_assumed_rank = hipblasChpr2StridedBatched_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + hipblasSscalStridedBatched_assumed_rank = hipblasSscalStridedBatched_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,batchCount) end function -#else - function hipblasChpr2StridedBatched_rank_0(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & - AP,strideA,batchCount) - use iso_c_binding + function hipblasSscalStridedBatched_assumed_rank_devptr(handle,n,alpha,x,incx,stridex, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2StridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscalStridedBatched_assumed_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: x + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - complex(c_float_complex),target :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - complex(c_float_complex),target :: AP - integer(c_int64_t) :: strideA integer(c_int) :: batchCount ! - hipblasChpr2StridedBatched_rank_0 = hipblasChpr2StridedBatched_(handle,uplo,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + hipblasSscalStridedBatched_assumed_rank_devptr = hipblasSscalStridedBatched_(handle,n,alpha, & + c_loc(x),incx,stridex,batchCount) end function - function hipblasChpr2StridedBatched_rank_1(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & - AP,strideA,batchCount) - use iso_c_binding +#else + function hipblasSscalStridedBatched_rank_0(handle,n,alpha,x,incx,stridex,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2StridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscalStridedBatched_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: x + real(c_float),target :: alpha + real(c_float),target :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - complex(c_float_complex),target,dimension(:) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - complex(c_float_complex),target,dimension(:) :: AP - integer(c_int64_t) :: strideA integer(c_int) :: batchCount ! - hipblasChpr2StridedBatched_rank_1 = hipblasChpr2StridedBatched_(handle,uplo,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + hipblasSscalStridedBatched_rank_0 = hipblasSscalStridedBatched_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZhpr2StridedBatched_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & - stridey,AP,strideA,batchCount) - use iso_c_binding + function hipblasSscalStridedBatched_rank_0_devptr(handle,n,alpha,x,incx,stridex,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2StridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscalStridedBatched_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: x + type(c_ptr),value :: alpha + real(c_float),target :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - complex(c_double_complex),target,dimension(..) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - complex(c_double_complex),target,dimension(..) :: AP - integer(c_int64_t) :: strideA integer(c_int) :: batchCount ! - hipblasZhpr2StridedBatched_assumed_rank = hipblasZhpr2StridedBatched_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + hipblasSscalStridedBatched_rank_0_devptr = hipblasSscalStridedBatched_(handle,n,alpha, & + c_loc(x),incx,stridex,batchCount) end function -#else - function hipblasZhpr2StridedBatched_rank_0(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & - AP,strideA,batchCount) - use iso_c_binding + function hipblasSscalStridedBatched_rank_1(handle,n,alpha,x,incx,stridex,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2StridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscalStridedBatched_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: x + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - complex(c_double_complex),target :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - complex(c_double_complex),target :: AP - integer(c_int64_t) :: strideA integer(c_int) :: batchCount ! - hipblasZhpr2StridedBatched_rank_0 = hipblasZhpr2StridedBatched_(handle,uplo,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + hipblasSscalStridedBatched_rank_1 = hipblasSscalStridedBatched_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,batchCount) end function - function hipblasZhpr2StridedBatched_rank_1(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & - AP,strideA,batchCount) - use iso_c_binding + function hipblasSscalStridedBatched_rank_1_devptr(handle,n,alpha,x,incx,stridex,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2StridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscalStridedBatched_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: x + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - complex(c_double_complex),target,dimension(:) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - complex(c_double_complex),target,dimension(:) :: AP - integer(c_int64_t) :: strideA integer(c_int) :: batchCount ! - hipblasZhpr2StridedBatched_rank_1 = hipblasZhpr2StridedBatched_(handle,uplo,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + hipblasSscalStridedBatched_rank_1_devptr = hipblasSscalStridedBatched_(handle,n,alpha, & + c_loc(x),incx,stridex,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasChpr2StridedBatched_64_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & - stridey,AP,strideA,batchCount) - use iso_c_binding + function hipblasSscalStridedBatched_strided_rank(handle,n,alpha,x,incx,stridex,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2StridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscalStridedBatched_strided_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: x + integer(c_int) :: incx integer(c_int64_t) :: stridex - complex(c_float_complex),target,dimension(..) :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - complex(c_float_complex),target,dimension(..) :: AP - integer(c_int64_t) :: strideA - integer(c_int64_t) :: batchCount + integer(c_int) :: batchCount ! - hipblasChpr2StridedBatched_64_assumed_rank = hipblasChpr2StridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + hipblasSscalStridedBatched_strided_rank = hipblasSscalStridedBatched_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,batchCount) end function -#else - function hipblasChpr2StridedBatched_64_rank_0(handle,uplo,n,alpha,x,incx,stridex,y,incy, & - stridey,AP,strideA,batchCount) - use iso_c_binding + function hipblasSscalStridedBatched_strided_rank_devptr(handle,n,alpha,x,incx,stridex, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2StridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscalStridedBatched_strided_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:) :: x + integer(c_int) :: incx integer(c_int64_t) :: stridex - complex(c_float_complex),target :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - complex(c_float_complex),target :: AP - integer(c_int64_t) :: strideA - integer(c_int64_t) :: batchCount + integer(c_int) :: batchCount ! - hipblasChpr2StridedBatched_64_rank_0 = hipblasChpr2StridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + hipblasSscalStridedBatched_strided_rank_devptr = hipblasSscalStridedBatched_(handle,n,alpha, & + c_loc(x),incx,stridex,batchCount) end function - function hipblasChpr2StridedBatched_64_rank_1(handle,uplo,n,alpha,x,incx,stridex,y,incy, & - stridey,AP,strideA,batchCount) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDscalStridedBatched_assumed_rank(handle,n,alpha,x,incx,stridex,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2StridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscalStridedBatched_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx integer(c_int64_t) :: stridex - complex(c_float_complex),target,dimension(:) :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - complex(c_float_complex),target,dimension(:) :: AP - integer(c_int64_t) :: strideA - integer(c_int64_t) :: batchCount + integer(c_int) :: batchCount ! - hipblasChpr2StridedBatched_64_rank_1 = hipblasChpr2StridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + hipblasDscalStridedBatched_assumed_rank = hipblasDscalStridedBatched_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZhpr2StridedBatched_64_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & - stridey,AP,strideA,batchCount) - use iso_c_binding + function hipblasDscalStridedBatched_assumed_rank_devptr(handle,n,alpha,x,incx,stridex, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2StridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscalStridedBatched_assumed_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx integer(c_int64_t) :: stridex - complex(c_double_complex),target,dimension(..) :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - complex(c_double_complex),target,dimension(..) :: AP - integer(c_int64_t) :: strideA - integer(c_int64_t) :: batchCount + integer(c_int) :: batchCount ! - hipblasZhpr2StridedBatched_64_assumed_rank = hipblasZhpr2StridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + hipblasDscalStridedBatched_assumed_rank_devptr = hipblasDscalStridedBatched_(handle,n,alpha, & + c_loc(x),incx,stridex,batchCount) end function #else - function hipblasZhpr2StridedBatched_64_rank_0(handle,uplo,n,alpha,x,incx,stridex,y,incy, & - stridey,AP,strideA,batchCount) - use iso_c_binding + function hipblasDscalStridedBatched_rank_0(handle,n,alpha,x,incx,stridex,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2StridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscalStridedBatched_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target :: x + integer(c_int) :: incx integer(c_int64_t) :: stridex - complex(c_double_complex),target :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - complex(c_double_complex),target :: AP - integer(c_int64_t) :: strideA - integer(c_int64_t) :: batchCount + integer(c_int) :: batchCount ! - hipblasZhpr2StridedBatched_64_rank_0 = hipblasZhpr2StridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + hipblasDscalStridedBatched_rank_0 = hipblasDscalStridedBatched_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,batchCount) end function - function hipblasZhpr2StridedBatched_64_rank_1(handle,uplo,n,alpha,x,incx,stridex,y,incy, & - stridey,AP,strideA,batchCount) - use iso_c_binding + function hipblasDscalStridedBatched_rank_0_devptr(handle,n,alpha,x,incx,stridex,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2StridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscalStridedBatched_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target :: x + integer(c_int) :: incx integer(c_int64_t) :: stridex - complex(c_double_complex),target,dimension(:) :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - complex(c_double_complex),target,dimension(:) :: AP - integer(c_int64_t) :: strideA - integer(c_int64_t) :: batchCount + integer(c_int) :: batchCount ! - hipblasZhpr2StridedBatched_64_rank_1 = hipblasZhpr2StridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + hipblasDscalStridedBatched_rank_0_devptr = hipblasDscalStridedBatched_(handle,n,alpha, & + c_loc(x),incx,stridex,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasSsbmv_assumed_rank(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasDscalStridedBatched_rank_1(handle,n,alpha,x,incx,stridex,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmv_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscalStridedBatched_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - integer(c_int) :: k - real(c_float),target :: alpha - real(c_float),target,dimension(..) :: AP - integer(c_int) :: lda - real(c_float),target,dimension(..) :: x + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x integer(c_int) :: incx - real(c_float),target :: beta - real(c_float),target,dimension(..) :: y - integer(c_int) :: incy + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount ! - hipblasSsbmv_assumed_rank = hipblasSsbmv_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasDscalStridedBatched_rank_1 = hipblasDscalStridedBatched_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,batchCount) end function -#else - function hipblasSsbmv_rank_0(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasDscalStridedBatched_rank_1_devptr(handle,n,alpha,x,incx,stridex,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmv_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscalStridedBatched_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - integer(c_int) :: k - real(c_float),target :: alpha - real(c_float),target :: AP - integer(c_int) :: lda - real(c_float),target :: x + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: x integer(c_int) :: incx - real(c_float),target :: beta - real(c_float),target :: y - integer(c_int) :: incy + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount ! - hipblasSsbmv_rank_0 = hipblasSsbmv_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda,c_loc(x), & - incx,c_loc(beta),c_loc(y),incy) + hipblasDscalStridedBatched_rank_1_devptr = hipblasDscalStridedBatched_(handle,n,alpha, & + c_loc(x),incx,stridex,batchCount) end function - function hipblasSsbmv_rank_1(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasDscalStridedBatched_strided_rank(handle,n,alpha,x,incx,stridex,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmv_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscalStridedBatched_strided_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - integer(c_int) :: k - real(c_float),target :: alpha - real(c_float),target,dimension(:) :: AP - integer(c_int) :: lda - real(c_float),target,dimension(:) :: x + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: x integer(c_int) :: incx - real(c_float),target :: beta - real(c_float),target,dimension(:) :: y - integer(c_int) :: incy + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount ! - hipblasSsbmv_rank_1 = hipblasSsbmv_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda,c_loc(x), & - incx,c_loc(beta),c_loc(y),incy) + hipblasDscalStridedBatched_strided_rank = hipblasDscalStridedBatched_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,batchCount) end function - function hipblasSsbmv_full_rank(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasDscalStridedBatched_strided_rank_devptr(handle,n,alpha,x,incx,stridex, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmv_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscalStridedBatched_strided_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - integer(c_int) :: k - real(c_float),target :: alpha - real(c_float),target,dimension(:,:) :: AP - integer(c_int) :: lda - real(c_float),target,dimension(:) :: x + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:) :: x integer(c_int) :: incx - real(c_float),target :: beta - real(c_float),target,dimension(:) :: y - integer(c_int) :: incy + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount ! - hipblasSsbmv_full_rank = hipblasSsbmv_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda,c_loc(x), & - incx,c_loc(beta),c_loc(y),incy) + hipblasDscalStridedBatched_strided_rank_devptr = hipblasDscalStridedBatched_(handle,n,alpha, & + c_loc(x),incx,stridex,batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasDsbmv_assumed_rank(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasCscalStridedBatched_assumed_rank(handle,n,alpha,x,incx,stridex,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmv_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscalStridedBatched_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - integer(c_int) :: k - real(c_double),target :: alpha - real(c_double),target,dimension(..) :: AP - integer(c_int) :: lda - real(c_double),target,dimension(..) :: x + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: x integer(c_int) :: incx - real(c_double),target :: beta - real(c_double),target,dimension(..) :: y - integer(c_int) :: incy + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount ! - hipblasDsbmv_assumed_rank = hipblasDsbmv_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasCscalStridedBatched_assumed_rank = hipblasCscalStridedBatched_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,batchCount) end function -#else - function hipblasDsbmv_rank_0(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasCscalStridedBatched_assumed_rank_devptr(handle,n,alpha,x,incx,stridex, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmv_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscalStridedBatched_assumed_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - integer(c_int) :: k - real(c_double),target :: alpha - real(c_double),target :: AP - integer(c_int) :: lda - real(c_double),target :: x + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: x integer(c_int) :: incx - real(c_double),target :: beta - real(c_double),target :: y - integer(c_int) :: incy + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount ! - hipblasDsbmv_rank_0 = hipblasDsbmv_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda,c_loc(x), & - incx,c_loc(beta),c_loc(y),incy) + hipblasCscalStridedBatched_assumed_rank_devptr = hipblasCscalStridedBatched_(handle,n,alpha, & + c_loc(x),incx,stridex,batchCount) end function - function hipblasDsbmv_rank_1(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding +#else + function hipblasCscalStridedBatched_rank_0(handle,n,alpha,x,incx,stridex,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmv_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscalStridedBatched_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - integer(c_int) :: k - real(c_double),target :: alpha - real(c_double),target,dimension(:) :: AP - integer(c_int) :: lda - real(c_double),target,dimension(:) :: x + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: x integer(c_int) :: incx - real(c_double),target :: beta - real(c_double),target,dimension(:) :: y - integer(c_int) :: incy + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount ! - hipblasDsbmv_rank_1 = hipblasDsbmv_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda,c_loc(x), & - incx,c_loc(beta),c_loc(y),incy) + hipblasCscalStridedBatched_rank_0 = hipblasCscalStridedBatched_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,batchCount) end function - function hipblasDsbmv_full_rank(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasCscalStridedBatched_rank_0_devptr(handle,n,alpha,x,incx,stridex,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmv_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscalStridedBatched_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - integer(c_int) :: k - real(c_double),target :: alpha - real(c_double),target,dimension(:,:) :: AP - integer(c_int) :: lda - real(c_double),target,dimension(:) :: x + type(c_ptr),value :: alpha + complex(c_float_complex),target :: x integer(c_int) :: incx - real(c_double),target :: beta - real(c_double),target,dimension(:) :: y - integer(c_int) :: incy + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount ! - hipblasDsbmv_full_rank = hipblasDsbmv_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda,c_loc(x), & - incx,c_loc(beta),c_loc(y),incy) + hipblasCscalStridedBatched_rank_0_devptr = hipblasCscalStridedBatched_(handle,n,alpha, & + c_loc(x),incx,stridex,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasSsbmv_64_assumed_rank(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasCscalStridedBatched_rank_1(handle,n,alpha,x,incx,stridex,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmv_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscalStridedBatched_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_float),target :: alpha - real(c_float),target,dimension(..) :: AP - integer(c_int64_t) :: lda - real(c_float),target,dimension(..) :: x - integer(c_int64_t) :: incx - real(c_float),target :: beta - real(c_float),target,dimension(..) :: y - integer(c_int64_t) :: incy + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount ! - hipblasSsbmv_64_assumed_rank = hipblasSsbmv_64_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasCscalStridedBatched_rank_1 = hipblasCscalStridedBatched_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,batchCount) end function -#else - function hipblasSsbmv_64_rank_0(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasCscalStridedBatched_rank_1_devptr(handle,n,alpha,x,incx,stridex,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmv_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscalStridedBatched_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_float),target :: alpha - real(c_float),target :: AP - integer(c_int64_t) :: lda - real(c_float),target :: x - integer(c_int64_t) :: incx - real(c_float),target :: beta - real(c_float),target :: y - integer(c_int64_t) :: incy + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount ! - hipblasSsbmv_64_rank_0 = hipblasSsbmv_64_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasCscalStridedBatched_rank_1_devptr = hipblasCscalStridedBatched_(handle,n,alpha, & + c_loc(x),incx,stridex,batchCount) end function - function hipblasSsbmv_64_rank_1(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasCscalStridedBatched_strided_rank(handle,n,alpha,x,incx,stridex,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmv_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscalStridedBatched_strided_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_float),target :: alpha - real(c_float),target,dimension(:) :: AP - integer(c_int64_t) :: lda - real(c_float),target,dimension(:) :: x - integer(c_int64_t) :: incx - real(c_float),target :: beta - real(c_float),target,dimension(:) :: y - integer(c_int64_t) :: incy + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount ! - hipblasSsbmv_64_rank_1 = hipblasSsbmv_64_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasCscalStridedBatched_strided_rank = hipblasCscalStridedBatched_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,batchCount) end function - function hipblasSsbmv_64_full_rank(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasCscalStridedBatched_strided_rank_devptr(handle,n,alpha,x,incx,stridex, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmv_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscalStridedBatched_strided_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_float),target :: alpha - real(c_float),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - real(c_float),target,dimension(:) :: x - integer(c_int64_t) :: incx - real(c_float),target :: beta - real(c_float),target,dimension(:) :: y - integer(c_int64_t) :: incy + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount ! - hipblasSsbmv_64_full_rank = hipblasSsbmv_64_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasCscalStridedBatched_strided_rank_devptr = hipblasCscalStridedBatched_(handle,n,alpha, & + c_loc(x),incx,stridex,batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasDsbmv_64_assumed_rank(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasZscalStridedBatched_assumed_rank(handle,n,alpha,x,incx,stridex,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmv_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscalStridedBatched_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_double),target :: alpha - real(c_double),target,dimension(..) :: AP - integer(c_int64_t) :: lda - real(c_double),target,dimension(..) :: x - integer(c_int64_t) :: incx - real(c_double),target :: beta - real(c_double),target,dimension(..) :: y - integer(c_int64_t) :: incy - ! - hipblasDsbmv_64_assumed_rank = hipblasDsbmv_64_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) - end function - + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasZscalStridedBatched_assumed_rank = hipblasZscalStridedBatched_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,batchCount) + end function + + function hipblasZscalStridedBatched_assumed_rank_devptr(handle,n,alpha,x,incx,stridex, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscalStridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasZscalStridedBatched_assumed_rank_devptr = hipblasZscalStridedBatched_(handle,n,alpha, & + c_loc(x),incx,stridex,batchCount) + end function + #else - function hipblasDsbmv_64_rank_0(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasZscalStridedBatched_rank_0(handle,n,alpha,x,incx,stridex,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmv_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscalStridedBatched_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_double),target :: alpha - real(c_double),target :: AP - integer(c_int64_t) :: lda - real(c_double),target :: x - integer(c_int64_t) :: incx - real(c_double),target :: beta - real(c_double),target :: y - integer(c_int64_t) :: incy + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount ! - hipblasDsbmv_64_rank_0 = hipblasDsbmv_64_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasZscalStridedBatched_rank_0 = hipblasZscalStridedBatched_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,batchCount) end function - function hipblasDsbmv_64_rank_1(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasZscalStridedBatched_rank_0_devptr(handle,n,alpha,x,incx,stridex,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmv_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscalStridedBatched_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_double),target :: alpha - real(c_double),target,dimension(:) :: AP - integer(c_int64_t) :: lda - real(c_double),target,dimension(:) :: x - integer(c_int64_t) :: incx - real(c_double),target :: beta - real(c_double),target,dimension(:) :: y - integer(c_int64_t) :: incy + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount ! - hipblasDsbmv_64_rank_1 = hipblasDsbmv_64_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasZscalStridedBatched_rank_0_devptr = hipblasZscalStridedBatched_(handle,n,alpha, & + c_loc(x),incx,stridex,batchCount) end function - function hipblasDsbmv_64_full_rank(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasZscalStridedBatched_rank_1(handle,n,alpha,x,incx,stridex,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmv_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscalStridedBatched_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_double),target :: alpha - real(c_double),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - real(c_double),target,dimension(:) :: x - integer(c_int64_t) :: incx - real(c_double),target :: beta - real(c_double),target,dimension(:) :: y - integer(c_int64_t) :: incy + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount ! - hipblasDsbmv_64_full_rank = hipblasDsbmv_64_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasZscalStridedBatched_rank_1 = hipblasZscalStridedBatched_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,batchCount) + end function + + function hipblasZscalStridedBatched_rank_1_devptr(handle,n,alpha,x,incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscalStridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasZscalStridedBatched_rank_1_devptr = hipblasZscalStridedBatched_(handle,n,alpha, & + c_loc(x),incx,stridex,batchCount) + end function + + function hipblasZscalStridedBatched_strided_rank(handle,n,alpha,x,incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscalStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasZscalStridedBatched_strided_rank = hipblasZscalStridedBatched_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,batchCount) + end function + + function hipblasZscalStridedBatched_strided_rank_devptr(handle,n,alpha,x,incx,stridex, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscalStridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasZscalStridedBatched_strided_rank_devptr = hipblasZscalStridedBatched_(handle,n,alpha, & + c_loc(x),incx,stridex,batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasSsbmvStridedBatched_assumed_rank(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasCsscalStridedBatched_assumed_rank(handle,n,alpha,x,incx,stridex,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmvStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscalStridedBatched_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - integer(c_int) :: k real(c_float),target :: alpha - real(c_float),target,dimension(..) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_float),target,dimension(..) :: x + complex(c_float_complex),target,dimension(..) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - real(c_float),target :: beta - real(c_float),target,dimension(..) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey integer(c_int) :: batchCount ! - hipblasSsbmvStridedBatched_assumed_rank = hipblasSsbmvStridedBatched_(handle,uplo,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasCsscalStridedBatched_assumed_rank = hipblasCsscalStridedBatched_(handle,n, & + c_loc(alpha),c_loc(x),incx,stridex,batchCount) + end function + + function hipblasCsscalStridedBatched_assumed_rank_devptr(handle,n,alpha,x,incx,stridex, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscalStridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasCsscalStridedBatched_assumed_rank_devptr = hipblasCsscalStridedBatched_(handle,n, & + alpha,c_loc(x),incx,stridex,batchCount) end function #else - function hipblasSsbmvStridedBatched_rank_0(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasCsscalStridedBatched_rank_0(handle,n,alpha,x,incx,stridex,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmvStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscalStridedBatched_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - integer(c_int) :: k real(c_float),target :: alpha - real(c_float),target :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_float),target :: x + complex(c_float_complex),target :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - real(c_float),target :: beta - real(c_float),target :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey integer(c_int) :: batchCount ! - hipblasSsbmvStridedBatched_rank_0 = hipblasSsbmvStridedBatched_(handle,uplo,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasCsscalStridedBatched_rank_0 = hipblasCsscalStridedBatched_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,batchCount) end function - function hipblasSsbmvStridedBatched_rank_1(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasCsscalStridedBatched_rank_0_devptr(handle,n,alpha,x,incx,stridex,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmvStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscalStridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasCsscalStridedBatched_rank_0_devptr = hipblasCsscalStridedBatched_(handle,n,alpha, & + c_loc(x),incx,stridex,batchCount) + end function + + function hipblasCsscalStridedBatched_rank_1(handle,n,alpha,x,incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscalStridedBatched_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - integer(c_int) :: k real(c_float),target :: alpha - real(c_float),target,dimension(:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_float),target,dimension(:) :: x + complex(c_float_complex),target,dimension(:) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - real(c_float),target :: beta - real(c_float),target,dimension(:) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey integer(c_int) :: batchCount ! - hipblasSsbmvStridedBatched_rank_1 = hipblasSsbmvStridedBatched_(handle,uplo,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasCsscalStridedBatched_rank_1 = hipblasCsscalStridedBatched_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,batchCount) end function - function hipblasSsbmvStridedBatched_full_rank(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasCsscalStridedBatched_rank_1_devptr(handle,n,alpha,x,incx,stridex,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmvStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscalStridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasCsscalStridedBatched_rank_1_devptr = hipblasCsscalStridedBatched_(handle,n,alpha, & + c_loc(x),incx,stridex,batchCount) + end function + + function hipblasCsscalStridedBatched_strided_rank(handle,n,alpha,x,incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscalStridedBatched_strided_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - integer(c_int) :: k real(c_float),target :: alpha - real(c_float),target,dimension(:,:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_float),target,dimension(:) :: x + complex(c_float_complex),target,dimension(:,:) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - real(c_float),target :: beta - real(c_float),target,dimension(:) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey integer(c_int) :: batchCount ! - hipblasSsbmvStridedBatched_full_rank = hipblasSsbmvStridedBatched_(handle,uplo,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasCsscalStridedBatched_strided_rank = hipblasCsscalStridedBatched_(handle,n, & + c_loc(alpha),c_loc(x),incx,stridex,batchCount) + end function + + function hipblasCsscalStridedBatched_strided_rank_devptr(handle,n,alpha,x,incx,stridex, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscalStridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasCsscalStridedBatched_strided_rank_devptr = hipblasCsscalStridedBatched_(handle,n, & + alpha,c_loc(x),incx,stridex,batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasDsbmvStridedBatched_assumed_rank(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasZdscalStridedBatched_assumed_rank(handle,n,alpha,x,incx,stridex,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmvStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscalStridedBatched_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - integer(c_int) :: k real(c_double),target :: alpha - real(c_double),target,dimension(..) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_double),target,dimension(..) :: x + complex(c_double_complex),target,dimension(..) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - real(c_double),target :: beta - real(c_double),target,dimension(..) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey integer(c_int) :: batchCount ! - hipblasDsbmvStridedBatched_assumed_rank = hipblasDsbmvStridedBatched_(handle,uplo,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasZdscalStridedBatched_assumed_rank = hipblasZdscalStridedBatched_(handle,n, & + c_loc(alpha),c_loc(x),incx,stridex,batchCount) + end function + + function hipblasZdscalStridedBatched_assumed_rank_devptr(handle,n,alpha,x,incx,stridex, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscalStridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasZdscalStridedBatched_assumed_rank_devptr = hipblasZdscalStridedBatched_(handle,n, & + alpha,c_loc(x),incx,stridex,batchCount) end function #else - function hipblasDsbmvStridedBatched_rank_0(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasZdscalStridedBatched_rank_0(handle,n,alpha,x,incx,stridex,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmvStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscalStridedBatched_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - integer(c_int) :: k real(c_double),target :: alpha - real(c_double),target :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_double),target :: x + complex(c_double_complex),target :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - real(c_double),target :: beta - real(c_double),target :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey integer(c_int) :: batchCount ! - hipblasDsbmvStridedBatched_rank_0 = hipblasDsbmvStridedBatched_(handle,uplo,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasZdscalStridedBatched_rank_0 = hipblasZdscalStridedBatched_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,batchCount) end function - function hipblasDsbmvStridedBatched_rank_1(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasZdscalStridedBatched_rank_0_devptr(handle,n,alpha,x,incx,stridex,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmvStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscalStridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasZdscalStridedBatched_rank_0_devptr = hipblasZdscalStridedBatched_(handle,n,alpha, & + c_loc(x),incx,stridex,batchCount) + end function + + function hipblasZdscalStridedBatched_rank_1(handle,n,alpha,x,incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscalStridedBatched_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - integer(c_int) :: k real(c_double),target :: alpha - real(c_double),target,dimension(:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_double),target,dimension(:) :: x + complex(c_double_complex),target,dimension(:) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - real(c_double),target :: beta - real(c_double),target,dimension(:) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey integer(c_int) :: batchCount ! - hipblasDsbmvStridedBatched_rank_1 = hipblasDsbmvStridedBatched_(handle,uplo,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasZdscalStridedBatched_rank_1 = hipblasZdscalStridedBatched_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,batchCount) end function - function hipblasDsbmvStridedBatched_full_rank(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasZdscalStridedBatched_rank_1_devptr(handle,n,alpha,x,incx,stridex,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmvStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscalStridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasZdscalStridedBatched_rank_1_devptr = hipblasZdscalStridedBatched_(handle,n,alpha, & + c_loc(x),incx,stridex,batchCount) + end function + + function hipblasZdscalStridedBatched_strided_rank(handle,n,alpha,x,incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscalStridedBatched_strided_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - integer(c_int) :: k real(c_double),target :: alpha - real(c_double),target,dimension(:,:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_double),target,dimension(:) :: x + complex(c_double_complex),target,dimension(:,:) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - real(c_double),target :: beta - real(c_double),target,dimension(:) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey integer(c_int) :: batchCount ! - hipblasDsbmvStridedBatched_full_rank = hipblasDsbmvStridedBatched_(handle,uplo,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasZdscalStridedBatched_strided_rank = hipblasZdscalStridedBatched_(handle,n, & + c_loc(alpha),c_loc(x),incx,stridex,batchCount) + end function + + function hipblasZdscalStridedBatched_strided_rank_devptr(handle,n,alpha,x,incx,stridex, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscalStridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasZdscalStridedBatched_strided_rank_devptr = hipblasZdscalStridedBatched_(handle,n, & + alpha,c_loc(x),incx,stridex,batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasSsbmvStridedBatched_64_assumed_rank(handle,uplo,n,k,alpha,AP,lda,strideA,x, & - incx,stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasSscalStridedBatched_64_assumed_rank(handle,n,alpha,x,incx,stridex,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmvStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscalStridedBatched_64_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - integer(c_int64_t) :: k real(c_float),target :: alpha - real(c_float),target,dimension(..) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA real(c_float),target,dimension(..) :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - real(c_float),target :: beta - real(c_float),target,dimension(..) :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount ! - hipblasSsbmvStridedBatched_64_assumed_rank = hipblasSsbmvStridedBatched_64_(handle,uplo,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasSscalStridedBatched_64_assumed_rank = hipblasSscalStridedBatched_64_(handle,n, & + c_loc(alpha),c_loc(x),incx,stridex,batchCount) + end function + + function hipblasSscalStridedBatched_64_assumed_rank_devptr(handle,n,alpha,x,incx,stridex, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscalStridedBatched_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasSscalStridedBatched_64_assumed_rank_devptr = hipblasSscalStridedBatched_64_(handle,n, & + alpha,c_loc(x),incx,stridex,batchCount) end function #else - function hipblasSsbmvStridedBatched_64_rank_0(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasSscalStridedBatched_64_rank_0(handle,n,alpha,x,incx,stridex,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmvStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscalStridedBatched_64_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - integer(c_int64_t) :: k real(c_float),target :: alpha - real(c_float),target :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA real(c_float),target :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - real(c_float),target :: beta - real(c_float),target :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount ! - hipblasSsbmvStridedBatched_64_rank_0 = hipblasSsbmvStridedBatched_64_(handle,uplo,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasSscalStridedBatched_64_rank_0 = hipblasSscalStridedBatched_64_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,batchCount) end function - function hipblasSsbmvStridedBatched_64_rank_1(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasSscalStridedBatched_64_rank_0_devptr(handle,n,alpha,x,incx,stridex,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmvStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscalStridedBatched_64_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_float),target :: alpha - real(c_float),target,dimension(:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - real(c_float),target,dimension(:) :: x + type(c_ptr),value :: alpha + real(c_float),target :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - real(c_float),target :: beta - real(c_float),target,dimension(:) :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount ! - hipblasSsbmvStridedBatched_64_rank_1 = hipblasSsbmvStridedBatched_64_(handle,uplo,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasSscalStridedBatched_64_rank_0_devptr = hipblasSscalStridedBatched_64_(handle,n,alpha, & + c_loc(x),incx,stridex,batchCount) end function - function hipblasSsbmvStridedBatched_64_full_rank(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasSscalStridedBatched_64_rank_1(handle,n,alpha,x,incx,stridex,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmvStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscalStridedBatched_64_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - integer(c_int64_t) :: k real(c_float),target :: alpha - real(c_float),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA real(c_float),target,dimension(:) :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - real(c_float),target :: beta - real(c_float),target,dimension(:) :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount ! - hipblasSsbmvStridedBatched_64_full_rank = hipblasSsbmvStridedBatched_64_(handle,uplo,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasSscalStridedBatched_64_rank_1 = hipblasSscalStridedBatched_64_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDsbmvStridedBatched_64_assumed_rank(handle,uplo,n,k,alpha,AP,lda,strideA,x, & - incx,stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasSscalStridedBatched_64_rank_1_devptr(handle,n,alpha,x,incx,stridex,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmvStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscalStridedBatched_64_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_double),target :: alpha - real(c_double),target,dimension(..) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - real(c_double),target,dimension(..) :: x + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - real(c_double),target :: beta - real(c_double),target,dimension(..) :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount ! - hipblasDsbmvStridedBatched_64_assumed_rank = hipblasDsbmvStridedBatched_64_(handle,uplo,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasSscalStridedBatched_64_rank_1_devptr = hipblasSscalStridedBatched_64_(handle,n,alpha, & + c_loc(x),incx,stridex,batchCount) end function -#else - function hipblasDsbmvStridedBatched_64_rank_0(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasSscalStridedBatched_64_strided_rank(handle,n,alpha,x,incx,stridex,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmvStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscalStridedBatched_64_strided_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_double),target :: alpha - real(c_double),target :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - real(c_double),target :: x + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - real(c_double),target :: beta - real(c_double),target :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount ! - hipblasDsbmvStridedBatched_64_rank_0 = hipblasDsbmvStridedBatched_64_(handle,uplo,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasSscalStridedBatched_64_strided_rank = hipblasSscalStridedBatched_64_(handle,n, & + c_loc(alpha),c_loc(x),incx,stridex,batchCount) end function - function hipblasDsbmvStridedBatched_64_rank_1(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasSscalStridedBatched_64_strided_rank_devptr(handle,n,alpha,x,incx,stridex, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmvStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSscalStridedBatched_64_strided_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_double),target :: alpha - real(c_double),target,dimension(:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - real(c_double),target,dimension(:) :: x + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:) :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - real(c_double),target :: beta - real(c_double),target,dimension(:) :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount ! - hipblasDsbmvStridedBatched_64_rank_1 = hipblasDsbmvStridedBatched_64_(handle,uplo,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasSscalStridedBatched_64_strided_rank_devptr = hipblasSscalStridedBatched_64_(handle,n, & + alpha,c_loc(x),incx,stridex,batchCount) end function - function hipblasDsbmvStridedBatched_64_full_rank(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDscalStridedBatched_64_assumed_rank(handle,n,alpha,x,incx,stridex,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmvStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscalStridedBatched_64_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - integer(c_int64_t) :: k real(c_double),target :: alpha - real(c_double),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - real(c_double),target,dimension(:) :: x + real(c_double),target,dimension(..) :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - real(c_double),target :: beta - real(c_double),target,dimension(:) :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount ! - hipblasDsbmvStridedBatched_64_full_rank = hipblasDsbmvStridedBatched_64_(handle,uplo,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasDscalStridedBatched_64_assumed_rank = hipblasDscalStridedBatched_64_(handle,n, & + c_loc(alpha),c_loc(x),incx,stridex,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasSspmv_assumed_rank(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) - use iso_c_binding + function hipblasDscalStridedBatched_64_assumed_rank_devptr(handle,n,alpha,x,incx,stridex, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmv_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscalStridedBatched_64_assumed_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(..) :: AP - real(c_float),target,dimension(..) :: x - integer(c_int) :: incx - real(c_float),target :: beta - real(c_float),target,dimension(..) :: y - integer(c_int) :: incy + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount ! - hipblasSspmv_assumed_rank = hipblasSspmv_(handle,uplo,n,c_loc(alpha),c_loc(AP),c_loc(x), & - incx,c_loc(beta),c_loc(y),incy) + hipblasDscalStridedBatched_64_assumed_rank_devptr = hipblasDscalStridedBatched_64_(handle,n, & + alpha,c_loc(x),incx,stridex,batchCount) end function #else - function hipblasSspmv_rank_0(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) - use iso_c_binding + function hipblasDscalStridedBatched_64_rank_0(handle,n,alpha,x,incx,stridex,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmv_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscalStridedBatched_64_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target :: AP - real(c_float),target :: x - integer(c_int) :: incx - real(c_float),target :: beta - real(c_float),target :: y - integer(c_int) :: incy + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount ! - hipblasSspmv_rank_0 = hipblasSspmv_(handle,uplo,n,c_loc(alpha),c_loc(AP),c_loc(x),incx, & - c_loc(beta),c_loc(y),incy) + hipblasDscalStridedBatched_64_rank_0 = hipblasDscalStridedBatched_64_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,batchCount) end function - function hipblasSspmv_rank_1(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) - use iso_c_binding + function hipblasDscalStridedBatched_64_rank_0_devptr(handle,n,alpha,x,incx,stridex,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmv_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscalStridedBatched_64_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(:) :: AP - real(c_float),target,dimension(:) :: x - integer(c_int) :: incx - real(c_float),target :: beta - real(c_float),target,dimension(:) :: y - integer(c_int) :: incy + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount ! - hipblasSspmv_rank_1 = hipblasSspmv_(handle,uplo,n,c_loc(alpha),c_loc(AP),c_loc(x),incx, & - c_loc(beta),c_loc(y),incy) + hipblasDscalStridedBatched_64_rank_0_devptr = hipblasDscalStridedBatched_64_(handle,n,alpha, & + c_loc(x),incx,stridex,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDspmv_assumed_rank(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) - use iso_c_binding + function hipblasDscalStridedBatched_64_rank_1(handle,n,alpha,x,incx,stridex,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmv_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscalStridedBatched_64_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n + integer(c_int64_t) :: n real(c_double),target :: alpha - real(c_double),target,dimension(..) :: AP - real(c_double),target,dimension(..) :: x - integer(c_int) :: incx - real(c_double),target :: beta - real(c_double),target,dimension(..) :: y - integer(c_int) :: incy + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount ! - hipblasDspmv_assumed_rank = hipblasDspmv_(handle,uplo,n,c_loc(alpha),c_loc(AP),c_loc(x), & - incx,c_loc(beta),c_loc(y),incy) + hipblasDscalStridedBatched_64_rank_1 = hipblasDscalStridedBatched_64_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,batchCount) end function -#else - function hipblasDspmv_rank_0(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) - use iso_c_binding + function hipblasDscalStridedBatched_64_rank_1_devptr(handle,n,alpha,x,incx,stridex,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmv_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscalStridedBatched_64_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target :: AP - real(c_double),target :: x - integer(c_int) :: incx - real(c_double),target :: beta - real(c_double),target :: y - integer(c_int) :: incy + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount ! - hipblasDspmv_rank_0 = hipblasDspmv_(handle,uplo,n,c_loc(alpha),c_loc(AP),c_loc(x),incx, & - c_loc(beta),c_loc(y),incy) + hipblasDscalStridedBatched_64_rank_1_devptr = hipblasDscalStridedBatched_64_(handle,n,alpha, & + c_loc(x),incx,stridex,batchCount) end function - function hipblasDspmv_rank_1(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) - use iso_c_binding + function hipblasDscalStridedBatched_64_strided_rank(handle,n,alpha,x,incx,stridex,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmv_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscalStridedBatched_64_strided_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n + integer(c_int64_t) :: n real(c_double),target :: alpha - real(c_double),target,dimension(:) :: AP - real(c_double),target,dimension(:) :: x - integer(c_int) :: incx - real(c_double),target :: beta - real(c_double),target,dimension(:) :: y - integer(c_int) :: incy + real(c_double),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount ! - hipblasDspmv_rank_1 = hipblasDspmv_(handle,uplo,n,c_loc(alpha),c_loc(AP),c_loc(x),incx, & - c_loc(beta),c_loc(y),incy) + hipblasDscalStridedBatched_64_strided_rank = hipblasDscalStridedBatched_64_(handle,n, & + c_loc(alpha),c_loc(x),incx,stridex,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasSspmv_64_assumed_rank(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) - use iso_c_binding + function hipblasDscalStridedBatched_64_strided_rank_devptr(handle,n,alpha,x,incx,stridex, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmv_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDscalStridedBatched_64_strided_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(..) :: AP - real(c_float),target,dimension(..) :: x + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:) :: x integer(c_int64_t) :: incx - real(c_float),target :: beta - real(c_float),target,dimension(..) :: y - integer(c_int64_t) :: incy + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount ! - hipblasSspmv_64_assumed_rank = hipblasSspmv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP), & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasDscalStridedBatched_64_strided_rank_devptr = hipblasDscalStridedBatched_64_(handle,n, & + alpha,c_loc(x),incx,stridex,batchCount) end function -#else - function hipblasSspmv_64_rank_0(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCscalStridedBatched_64_assumed_rank(handle,n,alpha,x,incx,stridex,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmv_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscalStridedBatched_64_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - real(c_float),target :: alpha - real(c_float),target :: AP - real(c_float),target :: x + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: x integer(c_int64_t) :: incx - real(c_float),target :: beta - real(c_float),target :: y - integer(c_int64_t) :: incy + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount ! - hipblasSspmv_64_rank_0 = hipblasSspmv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),c_loc(x), & - incx,c_loc(beta),c_loc(y),incy) + hipblasCscalStridedBatched_64_assumed_rank = hipblasCscalStridedBatched_64_(handle,n, & + c_loc(alpha),c_loc(x),incx,stridex,batchCount) end function - function hipblasSspmv_64_rank_1(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) - use iso_c_binding + function hipblasCscalStridedBatched_64_assumed_rank_devptr(handle,n,alpha,x,incx,stridex, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmv_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscalStridedBatched_64_assumed_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(:) :: AP - real(c_float),target,dimension(:) :: x + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: x integer(c_int64_t) :: incx - real(c_float),target :: beta - real(c_float),target,dimension(:) :: y - integer(c_int64_t) :: incy + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount ! - hipblasSspmv_64_rank_1 = hipblasSspmv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),c_loc(x), & - incx,c_loc(beta),c_loc(y),incy) + hipblasCscalStridedBatched_64_assumed_rank_devptr = hipblasCscalStridedBatched_64_(handle,n, & + alpha,c_loc(x),incx,stridex,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDspmv_64_assumed_rank(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) - use iso_c_binding +#else + function hipblasCscalStridedBatched_64_rank_0(handle,n,alpha,x,incx,stridex,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmv_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscalStridedBatched_64_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(..) :: AP - real(c_double),target,dimension(..) :: x + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: x integer(c_int64_t) :: incx - real(c_double),target :: beta - real(c_double),target,dimension(..) :: y - integer(c_int64_t) :: incy + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount ! - hipblasDspmv_64_assumed_rank = hipblasDspmv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP), & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasCscalStridedBatched_64_rank_0 = hipblasCscalStridedBatched_64_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,batchCount) end function -#else - function hipblasDspmv_64_rank_0(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) - use iso_c_binding + function hipblasCscalStridedBatched_64_rank_0_devptr(handle,n,alpha,x,incx,stridex,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmv_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscalStridedBatched_64_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - real(c_double),target :: alpha - real(c_double),target :: AP - real(c_double),target :: x + type(c_ptr),value :: alpha + complex(c_float_complex),target :: x integer(c_int64_t) :: incx - real(c_double),target :: beta - real(c_double),target :: y - integer(c_int64_t) :: incy + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount ! - hipblasDspmv_64_rank_0 = hipblasDspmv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),c_loc(x), & - incx,c_loc(beta),c_loc(y),incy) + hipblasCscalStridedBatched_64_rank_0_devptr = hipblasCscalStridedBatched_64_(handle,n,alpha, & + c_loc(x),incx,stridex,batchCount) end function - function hipblasDspmv_64_rank_1(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) - use iso_c_binding + function hipblasCscalStridedBatched_64_rank_1(handle,n,alpha,x,incx,stridex,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmv_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscalStridedBatched_64_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(:) :: AP - real(c_double),target,dimension(:) :: x + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x integer(c_int64_t) :: incx - real(c_double),target :: beta - real(c_double),target,dimension(:) :: y - integer(c_int64_t) :: incy + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount ! - hipblasDspmv_64_rank_1 = hipblasDspmv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),c_loc(x), & - incx,c_loc(beta),c_loc(y),incy) + hipblasCscalStridedBatched_64_rank_1 = hipblasCscalStridedBatched_64_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasSspmvStridedBatched_assumed_rank(handle,uplo,n,alpha,AP,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasCscalStridedBatched_64_rank_1_devptr(handle,n,alpha,x,incx,stridex,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmvStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscalStridedBatched_64_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(..) :: AP - integer(c_int64_t) :: strideA - real(c_float),target,dimension(..) :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - real(c_float),target :: beta - real(c_float),target,dimension(..) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount ! - hipblasSspmvStridedBatched_assumed_rank = hipblasSspmvStridedBatched_(handle,uplo,n, & - c_loc(alpha),c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey, & - batchCount) + hipblasCscalStridedBatched_64_rank_1_devptr = hipblasCscalStridedBatched_64_(handle,n,alpha, & + c_loc(x),incx,stridex,batchCount) end function -#else - function hipblasSspmvStridedBatched_rank_0(handle,uplo,n,alpha,AP,strideA,x,incx,stridex,beta, & - y,incy,stridey,batchCount) - use iso_c_binding + function hipblasCscalStridedBatched_64_strided_rank(handle,n,alpha,x,incx,stridex,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmvStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscalStridedBatched_64_strided_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target :: AP - integer(c_int64_t) :: strideA - real(c_float),target :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - real(c_float),target :: beta - real(c_float),target :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount ! - hipblasSspmvStridedBatched_rank_0 = hipblasSspmvStridedBatched_(handle,uplo,n,c_loc(alpha), & - c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey,batchCount) + hipblasCscalStridedBatched_64_strided_rank = hipblasCscalStridedBatched_64_(handle,n, & + c_loc(alpha),c_loc(x),incx,stridex,batchCount) end function - function hipblasSspmvStridedBatched_rank_1(handle,uplo,n,alpha,AP,strideA,x,incx,stridex,beta, & - y,incy,stridey,batchCount) - use iso_c_binding + function hipblasCscalStridedBatched_64_strided_rank_devptr(handle,n,alpha,x,incx,stridex, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmvStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCscalStridedBatched_64_strided_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(:) :: AP - integer(c_int64_t) :: strideA - real(c_float),target,dimension(:) :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - real(c_float),target :: beta - real(c_float),target,dimension(:) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount ! - hipblasSspmvStridedBatched_rank_1 = hipblasSspmvStridedBatched_(handle,uplo,n,c_loc(alpha), & - c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey,batchCount) + hipblasCscalStridedBatched_64_strided_rank_devptr = hipblasCscalStridedBatched_64_(handle,n, & + alpha,c_loc(x),incx,stridex,batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasDspmvStridedBatched_assumed_rank(handle,uplo,n,alpha,AP,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasZscalStridedBatched_64_assumed_rank(handle,n,alpha,x,incx,stridex,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmvStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscalStridedBatched_64_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(..) :: AP - integer(c_int64_t) :: strideA - real(c_double),target,dimension(..) :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - real(c_double),target :: beta - real(c_double),target,dimension(..) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount ! - hipblasDspmvStridedBatched_assumed_rank = hipblasDspmvStridedBatched_(handle,uplo,n, & - c_loc(alpha),c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey, & - batchCount) + hipblasZscalStridedBatched_64_assumed_rank = hipblasZscalStridedBatched_64_(handle,n, & + c_loc(alpha),c_loc(x),incx,stridex,batchCount) end function -#else - function hipblasDspmvStridedBatched_rank_0(handle,uplo,n,alpha,AP,strideA,x,incx,stridex,beta, & - y,incy,stridey,batchCount) - use iso_c_binding + function hipblasZscalStridedBatched_64_assumed_rank_devptr(handle,n,alpha,x,incx,stridex, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmvStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscalStridedBatched_64_assumed_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target :: AP - integer(c_int64_t) :: strideA - real(c_double),target :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - real(c_double),target :: beta - real(c_double),target :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount ! - hipblasDspmvStridedBatched_rank_0 = hipblasDspmvStridedBatched_(handle,uplo,n,c_loc(alpha), & - c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey,batchCount) + hipblasZscalStridedBatched_64_assumed_rank_devptr = hipblasZscalStridedBatched_64_(handle,n, & + alpha,c_loc(x),incx,stridex,batchCount) end function - function hipblasDspmvStridedBatched_rank_1(handle,uplo,n,alpha,AP,strideA,x,incx,stridex,beta, & - y,incy,stridey,batchCount) - use iso_c_binding +#else + function hipblasZscalStridedBatched_64_rank_0(handle,n,alpha,x,incx,stridex,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmvStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscalStridedBatched_64_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(:) :: AP - integer(c_int64_t) :: strideA - real(c_double),target,dimension(:) :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - real(c_double),target :: beta - real(c_double),target,dimension(:) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount ! - hipblasDspmvStridedBatched_rank_1 = hipblasDspmvStridedBatched_(handle,uplo,n,c_loc(alpha), & - c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey,batchCount) + hipblasZscalStridedBatched_64_rank_0 = hipblasZscalStridedBatched_64_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasSspmvStridedBatched_64_assumed_rank(handle,uplo,n,alpha,AP,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasZscalStridedBatched_64_rank_0_devptr(handle,n,alpha,x,incx,stridex,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmvStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscalStridedBatched_64_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(..) :: AP - integer(c_int64_t) :: strideA - real(c_float),target,dimension(..) :: x + type(c_ptr),value :: alpha + complex(c_double_complex),target :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - real(c_float),target :: beta - real(c_float),target,dimension(..) :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount ! - hipblasSspmvStridedBatched_64_assumed_rank = hipblasSspmvStridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey, & - batchCount) + hipblasZscalStridedBatched_64_rank_0_devptr = hipblasZscalStridedBatched_64_(handle,n,alpha, & + c_loc(x),incx,stridex,batchCount) end function -#else - function hipblasSspmvStridedBatched_64_rank_0(handle,uplo,n,alpha,AP,strideA,x,incx,stridex, & - beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasZscalStridedBatched_64_rank_1(handle,n,alpha,x,incx,stridex,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmvStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscalStridedBatched_64_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - real(c_float),target :: alpha - real(c_float),target :: AP - integer(c_int64_t) :: strideA - real(c_float),target :: x + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - real(c_float),target :: beta - real(c_float),target :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount ! - hipblasSspmvStridedBatched_64_rank_0 = hipblasSspmvStridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey, & - batchCount) + hipblasZscalStridedBatched_64_rank_1 = hipblasZscalStridedBatched_64_(handle,n,c_loc(alpha), & + c_loc(x),incx,stridex,batchCount) end function - function hipblasSspmvStridedBatched_64_rank_1(handle,uplo,n,alpha,AP,strideA,x,incx,stridex, & - beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasZscalStridedBatched_64_rank_1_devptr(handle,n,alpha,x,incx,stridex,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmvStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscalStridedBatched_64_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(:) :: AP - integer(c_int64_t) :: strideA - real(c_float),target,dimension(:) :: x + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - real(c_float),target :: beta - real(c_float),target,dimension(:) :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount ! - hipblasSspmvStridedBatched_64_rank_1 = hipblasSspmvStridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey, & - batchCount) + hipblasZscalStridedBatched_64_rank_1_devptr = hipblasZscalStridedBatched_64_(handle,n,alpha, & + c_loc(x),incx,stridex,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDspmvStridedBatched_64_assumed_rank(handle,uplo,n,alpha,AP,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasZscalStridedBatched_64_strided_rank(handle,n,alpha,x,incx,stridex,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmvStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscalStridedBatched_64_strided_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(..) :: AP - integer(c_int64_t) :: strideA - real(c_double),target,dimension(..) :: x + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - real(c_double),target :: beta - real(c_double),target,dimension(..) :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount ! - hipblasDspmvStridedBatched_64_assumed_rank = hipblasDspmvStridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey, & - batchCount) + hipblasZscalStridedBatched_64_strided_rank = hipblasZscalStridedBatched_64_(handle,n, & + c_loc(alpha),c_loc(x),incx,stridex,batchCount) + end function + + function hipblasZscalStridedBatched_64_strided_rank_devptr(handle,n,alpha,x,incx,stridex, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZscalStridedBatched_64_strided_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasZscalStridedBatched_64_strided_rank_devptr = hipblasZscalStridedBatched_64_(handle,n, & + alpha,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCsscalStridedBatched_64_assumed_rank(handle,n,alpha,x,incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscalStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasCsscalStridedBatched_64_assumed_rank = hipblasCsscalStridedBatched_64_(handle,n, & + c_loc(alpha),c_loc(x),incx,stridex,batchCount) + end function + + function hipblasCsscalStridedBatched_64_assumed_rank_devptr(handle,n,alpha,x,incx,stridex, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscalStridedBatched_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasCsscalStridedBatched_64_assumed_rank_devptr = hipblasCsscalStridedBatched_64_(handle, & + n,alpha,c_loc(x),incx,stridex,batchCount) end function #else - function hipblasDspmvStridedBatched_64_rank_0(handle,uplo,n,alpha,AP,strideA,x,incx,stridex, & - beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasCsscalStridedBatched_64_rank_0(handle,n,alpha,x,incx,stridex,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmvStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscalStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target :: alpha + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasCsscalStridedBatched_64_rank_0 = hipblasCsscalStridedBatched_64_(handle,n, & + c_loc(alpha),c_loc(x),incx,stridex,batchCount) + end function + + function hipblasCsscalStridedBatched_64_rank_0_devptr(handle,n,alpha,x,incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscalStridedBatched_64_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasCsscalStridedBatched_64_rank_0_devptr = hipblasCsscalStridedBatched_64_(handle,n, & + alpha,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasCsscalStridedBatched_64_rank_1(handle,n,alpha,x,incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscalStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasCsscalStridedBatched_64_rank_1 = hipblasCsscalStridedBatched_64_(handle,n, & + c_loc(alpha),c_loc(x),incx,stridex,batchCount) + end function + + function hipblasCsscalStridedBatched_64_rank_1_devptr(handle,n,alpha,x,incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscalStridedBatched_64_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasCsscalStridedBatched_64_rank_1_devptr = hipblasCsscalStridedBatched_64_(handle,n, & + alpha,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasCsscalStridedBatched_64_strided_rank(handle,n,alpha,x,incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscalStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasCsscalStridedBatched_64_strided_rank = hipblasCsscalStridedBatched_64_(handle,n, & + c_loc(alpha),c_loc(x),incx,stridex,batchCount) + end function + + function hipblasCsscalStridedBatched_64_strided_rank_devptr(handle,n,alpha,x,incx,stridex, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsscalStridedBatched_64_strided_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasCsscalStridedBatched_64_strided_rank_devptr = hipblasCsscalStridedBatched_64_(handle, & + n,alpha,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZdscalStridedBatched_64_assumed_rank(handle,n,alpha,x,incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscalStridedBatched_64_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n real(c_double),target :: alpha - real(c_double),target :: AP - integer(c_int64_t) :: strideA - real(c_double),target :: x + complex(c_double_complex),target,dimension(..) :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - real(c_double),target :: beta - real(c_double),target :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount ! - hipblasDspmvStridedBatched_64_rank_0 = hipblasDspmvStridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey, & + hipblasZdscalStridedBatched_64_assumed_rank = hipblasZdscalStridedBatched_64_(handle,n, & + c_loc(alpha),c_loc(x),incx,stridex,batchCount) + end function + + function hipblasZdscalStridedBatched_64_assumed_rank_devptr(handle,n,alpha,x,incx,stridex, & batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscalStridedBatched_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasZdscalStridedBatched_64_assumed_rank_devptr = hipblasZdscalStridedBatched_64_(handle, & + n,alpha,c_loc(x),incx,stridex,batchCount) end function - function hipblasDspmvStridedBatched_64_rank_1(handle,uplo,n,alpha,AP,strideA,x,incx,stridex, & - beta,y,incy,stridey,batchCount) - use iso_c_binding +#else + function hipblasZdscalStridedBatched_64_rank_0(handle,n,alpha,x,incx,stridex,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmvStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscalStridedBatched_64_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n real(c_double),target :: alpha - real(c_double),target,dimension(:) :: AP - integer(c_int64_t) :: strideA - real(c_double),target,dimension(:) :: x + complex(c_double_complex),target :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - real(c_double),target :: beta - real(c_double),target,dimension(:) :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount ! - hipblasDspmvStridedBatched_64_rank_1 = hipblasDspmvStridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey, & + hipblasZdscalStridedBatched_64_rank_0 = hipblasZdscalStridedBatched_64_(handle,n, & + c_loc(alpha),c_loc(x),incx,stridex,batchCount) + end function + + function hipblasZdscalStridedBatched_64_rank_0_devptr(handle,n,alpha,x,incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscalStridedBatched_64_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasZdscalStridedBatched_64_rank_0_devptr = hipblasZdscalStridedBatched_64_(handle,n, & + alpha,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasZdscalStridedBatched_64_rank_1(handle,n,alpha,x,incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscalStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasZdscalStridedBatched_64_rank_1 = hipblasZdscalStridedBatched_64_(handle,n, & + c_loc(alpha),c_loc(x),incx,stridex,batchCount) + end function + + function hipblasZdscalStridedBatched_64_rank_1_devptr(handle,n,alpha,x,incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscalStridedBatched_64_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasZdscalStridedBatched_64_rank_1_devptr = hipblasZdscalStridedBatched_64_(handle,n, & + alpha,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasZdscalStridedBatched_64_strided_rank(handle,n,alpha,x,incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscalStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasZdscalStridedBatched_64_strided_rank = hipblasZdscalStridedBatched_64_(handle,n, & + c_loc(alpha),c_loc(x),incx,stridex,batchCount) + end function + + function hipblasZdscalStridedBatched_64_strided_rank_devptr(handle,n,alpha,x,incx,stridex, & batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdscalStridedBatched_64_strided_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasZdscalStridedBatched_64_strided_rank_devptr = hipblasZdscalStridedBatched_64_(handle, & + n,alpha,c_loc(x),incx,stridex,batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasSspr_assumed_rank(handle,uplo,n,alpha,x,incx,AP) - use iso_c_binding + function hipblasSswap_assumed_rank(handle,n,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSswap_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - real(c_float),target :: alpha real(c_float),target,dimension(..) :: x integer(c_int) :: incx - real(c_float),target,dimension(..) :: AP + real(c_float),target,dimension(..) :: y + integer(c_int) :: incy ! - hipblasSspr_assumed_rank = hipblasSspr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + hipblasSswap_assumed_rank = hipblasSswap_(handle,n,c_loc(x),incx,c_loc(y),incy) end function #else - function hipblasSspr_rank_0(handle,uplo,n,alpha,x,incx,AP) - use iso_c_binding + function hipblasSswap_rank_0(handle,n,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSswap_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - real(c_float),target :: alpha real(c_float),target :: x integer(c_int) :: incx - real(c_float),target :: AP + real(c_float),target :: y + integer(c_int) :: incy ! - hipblasSspr_rank_0 = hipblasSspr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + hipblasSswap_rank_0 = hipblasSswap_(handle,n,c_loc(x),incx,c_loc(y),incy) end function - function hipblasSspr_rank_1(handle,uplo,n,alpha,x,incx,AP) - use iso_c_binding + function hipblasSswap_rank_1(handle,n,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSswap_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - real(c_float),target :: alpha real(c_float),target,dimension(:) :: x integer(c_int) :: incx - real(c_float),target,dimension(:) :: AP + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy ! - hipblasSspr_rank_1 = hipblasSspr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + hipblasSswap_rank_1 = hipblasSswap_(handle,n,c_loc(x),incx,c_loc(y),incy) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasDspr_assumed_rank(handle,uplo,n,alpha,x,incx,AP) - use iso_c_binding + function hipblasDswap_assumed_rank(handle,n,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDswap_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - real(c_double),target :: alpha real(c_double),target,dimension(..) :: x integer(c_int) :: incx - real(c_double),target,dimension(..) :: AP + real(c_double),target,dimension(..) :: y + integer(c_int) :: incy ! - hipblasDspr_assumed_rank = hipblasDspr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + hipblasDswap_assumed_rank = hipblasDswap_(handle,n,c_loc(x),incx,c_loc(y),incy) end function #else - function hipblasDspr_rank_0(handle,uplo,n,alpha,x,incx,AP) - use iso_c_binding + function hipblasDswap_rank_0(handle,n,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDswap_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - real(c_double),target :: alpha real(c_double),target :: x integer(c_int) :: incx - real(c_double),target :: AP + real(c_double),target :: y + integer(c_int) :: incy ! - hipblasDspr_rank_0 = hipblasDspr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + hipblasDswap_rank_0 = hipblasDswap_(handle,n,c_loc(x),incx,c_loc(y),incy) end function - function hipblasDspr_rank_1(handle,uplo,n,alpha,x,incx,AP) - use iso_c_binding + function hipblasDswap_rank_1(handle,n,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDswap_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - real(c_double),target :: alpha real(c_double),target,dimension(:) :: x integer(c_int) :: incx - real(c_double),target,dimension(:) :: AP + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy ! - hipblasDspr_rank_1 = hipblasDspr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + hipblasDswap_rank_1 = hipblasDswap_(handle,n,c_loc(x),incx,c_loc(y),incy) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCspr_assumed_rank(handle,uplo,n,alpha,x,incx,AP) - use iso_c_binding + function hipblasCswap_assumed_rank(handle,n,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCspr_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCswap_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - complex(c_float_complex),target :: alpha complex(c_float_complex),target,dimension(..) :: x integer(c_int) :: incx - complex(c_float_complex),target,dimension(..) :: AP + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy ! - hipblasCspr_assumed_rank = hipblasCspr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + hipblasCswap_assumed_rank = hipblasCswap_(handle,n,c_loc(x),incx,c_loc(y),incy) end function #else - function hipblasCspr_rank_0(handle,uplo,n,alpha,x,incx,AP) - use iso_c_binding + function hipblasCswap_rank_0(handle,n,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCspr_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCswap_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - complex(c_float_complex),target :: alpha complex(c_float_complex),target :: x integer(c_int) :: incx - complex(c_float_complex),target :: AP + complex(c_float_complex),target :: y + integer(c_int) :: incy ! - hipblasCspr_rank_0 = hipblasCspr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + hipblasCswap_rank_0 = hipblasCswap_(handle,n,c_loc(x),incx,c_loc(y),incy) end function - function hipblasCspr_rank_1(handle,uplo,n,alpha,x,incx,AP) - use iso_c_binding + function hipblasCswap_rank_1(handle,n,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCspr_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCswap_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - complex(c_float_complex),target :: alpha complex(c_float_complex),target,dimension(:) :: x integer(c_int) :: incx - complex(c_float_complex),target,dimension(:) :: AP + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy ! - hipblasCspr_rank_1 = hipblasCspr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + hipblasCswap_rank_1 = hipblasCswap_(handle,n,c_loc(x),incx,c_loc(y),incy) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasZspr_assumed_rank(handle,uplo,n,alpha,x,incx,AP) - use iso_c_binding + function hipblasZswap_assumed_rank(handle,n,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZspr_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZswap_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - complex(c_double_complex),target :: alpha complex(c_double_complex),target,dimension(..) :: x integer(c_int) :: incx - complex(c_double_complex),target,dimension(..) :: AP + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy ! - hipblasZspr_assumed_rank = hipblasZspr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + hipblasZswap_assumed_rank = hipblasZswap_(handle,n,c_loc(x),incx,c_loc(y),incy) end function #else - function hipblasZspr_rank_0(handle,uplo,n,alpha,x,incx,AP) - use iso_c_binding + function hipblasZswap_rank_0(handle,n,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZspr_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZswap_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - complex(c_double_complex),target :: alpha complex(c_double_complex),target :: x integer(c_int) :: incx - complex(c_double_complex),target :: AP + complex(c_double_complex),target :: y + integer(c_int) :: incy ! - hipblasZspr_rank_0 = hipblasZspr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + hipblasZswap_rank_0 = hipblasZswap_(handle,n,c_loc(x),incx,c_loc(y),incy) end function - function hipblasZspr_rank_1(handle,uplo,n,alpha,x,incx,AP) - use iso_c_binding + function hipblasZswap_rank_1(handle,n,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZspr_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZswap_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - complex(c_double_complex),target :: alpha complex(c_double_complex),target,dimension(:) :: x integer(c_int) :: incx - complex(c_double_complex),target,dimension(:) :: AP + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy ! - hipblasZspr_rank_1 = hipblasZspr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + hipblasZswap_rank_1 = hipblasZswap_(handle,n,c_loc(x),incx,c_loc(y),incy) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasSspr_64_assumed_rank(handle,uplo,n,alpha,x,incx,AP) - use iso_c_binding + function hipblasSswap_64_assumed_rank(handle,n,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSswap_64_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - real(c_float),target :: alpha real(c_float),target,dimension(..) :: x integer(c_int64_t) :: incx - real(c_float),target,dimension(..) :: AP + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy ! - hipblasSspr_64_assumed_rank = hipblasSspr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & - c_loc(AP)) + hipblasSswap_64_assumed_rank = hipblasSswap_64_(handle,n,c_loc(x),incx,c_loc(y),incy) end function #else - function hipblasSspr_64_rank_0(handle,uplo,n,alpha,x,incx,AP) - use iso_c_binding + function hipblasSswap_64_rank_0(handle,n,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSswap_64_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - real(c_float),target :: alpha real(c_float),target :: x integer(c_int64_t) :: incx - real(c_float),target :: AP + real(c_float),target :: y + integer(c_int64_t) :: incy ! - hipblasSspr_64_rank_0 = hipblasSspr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + hipblasSswap_64_rank_0 = hipblasSswap_64_(handle,n,c_loc(x),incx,c_loc(y),incy) end function - function hipblasSspr_64_rank_1(handle,uplo,n,alpha,x,incx,AP) - use iso_c_binding + function hipblasSswap_64_rank_1(handle,n,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSswap_64_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - real(c_float),target :: alpha real(c_float),target,dimension(:) :: x integer(c_int64_t) :: incx - real(c_float),target,dimension(:) :: AP + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy ! - hipblasSspr_64_rank_1 = hipblasSspr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + hipblasSswap_64_rank_1 = hipblasSswap_64_(handle,n,c_loc(x),incx,c_loc(y),incy) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasDspr_64_assumed_rank(handle,uplo,n,alpha,x,incx,AP) - use iso_c_binding + function hipblasDswap_64_assumed_rank(handle,n,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDswap_64_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - real(c_double),target :: alpha real(c_double),target,dimension(..) :: x integer(c_int64_t) :: incx - real(c_double),target,dimension(..) :: AP + real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: incy ! - hipblasDspr_64_assumed_rank = hipblasDspr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & - c_loc(AP)) + hipblasDswap_64_assumed_rank = hipblasDswap_64_(handle,n,c_loc(x),incx,c_loc(y),incy) end function #else - function hipblasDspr_64_rank_0(handle,uplo,n,alpha,x,incx,AP) - use iso_c_binding + function hipblasDswap_64_rank_0(handle,n,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDswap_64_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - real(c_double),target :: alpha real(c_double),target :: x integer(c_int64_t) :: incx - real(c_double),target :: AP + real(c_double),target :: y + integer(c_int64_t) :: incy ! - hipblasDspr_64_rank_0 = hipblasDspr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + hipblasDswap_64_rank_0 = hipblasDswap_64_(handle,n,c_loc(x),incx,c_loc(y),incy) end function - function hipblasDspr_64_rank_1(handle,uplo,n,alpha,x,incx,AP) - use iso_c_binding + function hipblasDswap_64_rank_1(handle,n,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDswap_64_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - real(c_double),target :: alpha real(c_double),target,dimension(:) :: x integer(c_int64_t) :: incx - real(c_double),target,dimension(:) :: AP + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy ! - hipblasDspr_64_rank_1 = hipblasDspr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + hipblasDswap_64_rank_1 = hipblasDswap_64_(handle,n,c_loc(x),incx,c_loc(y),incy) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCspr_64_assumed_rank(handle,uplo,n,alpha,x,incx,AP) - use iso_c_binding + function hipblasCswap_64_assumed_rank(handle,n,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCspr_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCswap_64_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha complex(c_float_complex),target,dimension(..) :: x integer(c_int64_t) :: incx - complex(c_float_complex),target,dimension(..) :: AP + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy ! - hipblasCspr_64_assumed_rank = hipblasCspr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & - c_loc(AP)) + hipblasCswap_64_assumed_rank = hipblasCswap_64_(handle,n,c_loc(x),incx,c_loc(y),incy) end function #else - function hipblasCspr_64_rank_0(handle,uplo,n,alpha,x,incx,AP) - use iso_c_binding + function hipblasCswap_64_rank_0(handle,n,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCspr_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCswap_64_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha complex(c_float_complex),target :: x integer(c_int64_t) :: incx - complex(c_float_complex),target :: AP + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy ! - hipblasCspr_64_rank_0 = hipblasCspr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + hipblasCswap_64_rank_0 = hipblasCswap_64_(handle,n,c_loc(x),incx,c_loc(y),incy) end function - function hipblasCspr_64_rank_1(handle,uplo,n,alpha,x,incx,AP) - use iso_c_binding + function hipblasCswap_64_rank_1(handle,n,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCspr_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCswap_64_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha complex(c_float_complex),target,dimension(:) :: x integer(c_int64_t) :: incx - complex(c_float_complex),target,dimension(:) :: AP + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy ! - hipblasCspr_64_rank_1 = hipblasCspr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + hipblasCswap_64_rank_1 = hipblasCswap_64_(handle,n,c_loc(x),incx,c_loc(y),incy) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasZspr_64_assumed_rank(handle,uplo,n,alpha,x,incx,AP) - use iso_c_binding + function hipblasZswap_64_assumed_rank(handle,n,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZspr_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZswap_64_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha complex(c_double_complex),target,dimension(..) :: x integer(c_int64_t) :: incx - complex(c_double_complex),target,dimension(..) :: AP + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy ! - hipblasZspr_64_assumed_rank = hipblasZspr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & - c_loc(AP)) + hipblasZswap_64_assumed_rank = hipblasZswap_64_(handle,n,c_loc(x),incx,c_loc(y),incy) end function #else - function hipblasZspr_64_rank_0(handle,uplo,n,alpha,x,incx,AP) - use iso_c_binding + function hipblasZswap_64_rank_0(handle,n,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZspr_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZswap_64_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha complex(c_double_complex),target :: x integer(c_int64_t) :: incx - complex(c_double_complex),target :: AP + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy ! - hipblasZspr_64_rank_0 = hipblasZspr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + hipblasZswap_64_rank_0 = hipblasZswap_64_(handle,n,c_loc(x),incx,c_loc(y),incy) end function - function hipblasZspr_64_rank_1(handle,uplo,n,alpha,x,incx,AP) - use iso_c_binding + function hipblasZswap_64_rank_1(handle,n,x,incx,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZspr_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZswap_64_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha complex(c_double_complex),target,dimension(:) :: x integer(c_int64_t) :: incx - complex(c_double_complex),target,dimension(:) :: AP + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy ! - hipblasZspr_64_rank_1 = hipblasZspr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + hipblasZswap_64_rank_1 = hipblasZswap_64_(handle,n,c_loc(x),incx,c_loc(y),incy) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasSsprStridedBatched_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + function hipblasSswapStridedBatched_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & batchCount) - use iso_c_binding implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsprStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSswapStridedBatched_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - real(c_float),target :: alpha real(c_float),target,dimension(..) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - real(c_float),target,dimension(..) :: AP - integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey integer(c_int) :: batchCount ! - hipblasSsprStridedBatched_assumed_rank = hipblasSsprStridedBatched_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + hipblasSswapStridedBatched_assumed_rank = hipblasSswapStridedBatched_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount) end function #else - function hipblasSsprStridedBatched_rank_0(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & - batchCount) - use iso_c_binding + function hipblasSswapStridedBatched_rank_0(handle,n,x,incx,stridex,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsprStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSswapStridedBatched_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - real(c_float),target :: alpha real(c_float),target :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - real(c_float),target :: AP - integer(c_int64_t) :: strideA + real(c_float),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey integer(c_int) :: batchCount ! - hipblasSsprStridedBatched_rank_0 = hipblasSsprStridedBatched_(handle,uplo,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + hipblasSswapStridedBatched_rank_0 = hipblasSswapStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount) end function - function hipblasSsprStridedBatched_rank_1(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & - batchCount) - use iso_c_binding + function hipblasSswapStridedBatched_rank_1(handle,n,x,incx,stridex,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsprStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSswapStridedBatched_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - real(c_float),target :: alpha real(c_float),target,dimension(:) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - real(c_float),target,dimension(:) :: AP - integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey integer(c_int) :: batchCount ! - hipblasSsprStridedBatched_rank_1 = hipblasSsprStridedBatched_(handle,uplo,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + hipblasSswapStridedBatched_rank_1 = hipblasSswapStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasSswapStridedBatched_strided_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSswapStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_float),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasSswapStridedBatched_strided_rank = hipblasSswapStridedBatched_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasDsprStridedBatched_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + function hipblasDswapStridedBatched_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & batchCount) - use iso_c_binding implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsprStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDswapStridedBatched_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - real(c_double),target :: alpha real(c_double),target,dimension(..) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - real(c_double),target,dimension(..) :: AP - integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey integer(c_int) :: batchCount ! - hipblasDsprStridedBatched_assumed_rank = hipblasDsprStridedBatched_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + hipblasDswapStridedBatched_assumed_rank = hipblasDswapStridedBatched_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount) end function #else - function hipblasDsprStridedBatched_rank_0(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & - batchCount) - use iso_c_binding + function hipblasDswapStridedBatched_rank_0(handle,n,x,incx,stridex,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsprStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDswapStridedBatched_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - real(c_double),target :: alpha real(c_double),target :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - real(c_double),target :: AP - integer(c_int64_t) :: strideA + real(c_double),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey integer(c_int) :: batchCount ! - hipblasDsprStridedBatched_rank_0 = hipblasDsprStridedBatched_(handle,uplo,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + hipblasDswapStridedBatched_rank_0 = hipblasDswapStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount) end function - function hipblasDsprStridedBatched_rank_1(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & - batchCount) - use iso_c_binding + function hipblasDswapStridedBatched_rank_1(handle,n,x,incx,stridex,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsprStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDswapStridedBatched_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - real(c_double),target :: alpha real(c_double),target,dimension(:) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - real(c_double),target,dimension(:) :: AP - integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey integer(c_int) :: batchCount ! - hipblasDsprStridedBatched_rank_1 = hipblasDsprStridedBatched_(handle,uplo,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + hipblasDswapStridedBatched_rank_1 = hipblasDswapStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasDswapStridedBatched_strided_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDswapStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(c_int) :: n + real(c_double),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasDswapStridedBatched_strided_rank = hipblasDswapStridedBatched_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCsprStridedBatched_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + function hipblasCswapStridedBatched_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & batchCount) - use iso_c_binding implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsprStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCswapStridedBatched_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - complex(c_float_complex),target :: alpha complex(c_float_complex),target,dimension(..) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - complex(c_float_complex),target,dimension(..) :: AP - integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey integer(c_int) :: batchCount ! - hipblasCsprStridedBatched_assumed_rank = hipblasCsprStridedBatched_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + hipblasCswapStridedBatched_assumed_rank = hipblasCswapStridedBatched_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount) end function #else - function hipblasCsprStridedBatched_rank_0(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & - batchCount) - use iso_c_binding + function hipblasCswapStridedBatched_rank_0(handle,n,x,incx,stridex,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsprStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCswapStridedBatched_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - complex(c_float_complex),target :: alpha complex(c_float_complex),target :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - complex(c_float_complex),target :: AP - integer(c_int64_t) :: strideA + complex(c_float_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey integer(c_int) :: batchCount ! - hipblasCsprStridedBatched_rank_0 = hipblasCsprStridedBatched_(handle,uplo,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + hipblasCswapStridedBatched_rank_0 = hipblasCswapStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount) end function - function hipblasCsprStridedBatched_rank_1(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & - batchCount) - use iso_c_binding + function hipblasCswapStridedBatched_rank_1(handle,n,x,incx,stridex,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsprStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCswapStridedBatched_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - complex(c_float_complex),target :: alpha complex(c_float_complex),target,dimension(:) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - complex(c_float_complex),target,dimension(:) :: AP - integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey integer(c_int) :: batchCount ! - hipblasCsprStridedBatched_rank_1 = hipblasCsprStridedBatched_(handle,uplo,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + hipblasCswapStridedBatched_rank_1 = hipblasCswapStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasCswapStridedBatched_strided_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCswapStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasCswapStridedBatched_strided_rank = hipblasCswapStridedBatched_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasZsprStridedBatched_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + function hipblasZswapStridedBatched_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & batchCount) - use iso_c_binding implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsprStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZswapStridedBatched_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - complex(c_double_complex),target :: alpha complex(c_double_complex),target,dimension(..) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - complex(c_double_complex),target,dimension(..) :: AP - integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey integer(c_int) :: batchCount ! - hipblasZsprStridedBatched_assumed_rank = hipblasZsprStridedBatched_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + hipblasZswapStridedBatched_assumed_rank = hipblasZswapStridedBatched_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount) end function #else - function hipblasZsprStridedBatched_rank_0(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & - batchCount) - use iso_c_binding + function hipblasZswapStridedBatched_rank_0(handle,n,x,incx,stridex,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsprStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZswapStridedBatched_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - complex(c_double_complex),target :: alpha complex(c_double_complex),target :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - complex(c_double_complex),target :: AP - integer(c_int64_t) :: strideA + complex(c_double_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey integer(c_int) :: batchCount ! - hipblasZsprStridedBatched_rank_0 = hipblasZsprStridedBatched_(handle,uplo,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + hipblasZswapStridedBatched_rank_0 = hipblasZswapStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount) end function - function hipblasZsprStridedBatched_rank_1(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & - batchCount) - use iso_c_binding + function hipblasZswapStridedBatched_rank_1(handle,n,x,incx,stridex,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsprStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZswapStridedBatched_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int) :: n - complex(c_double_complex),target :: alpha complex(c_double_complex),target,dimension(:) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - complex(c_double_complex),target,dimension(:) :: AP - integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey integer(c_int) :: batchCount ! - hipblasZsprStridedBatched_rank_1 = hipblasZsprStridedBatched_(handle,uplo,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + hipblasZswapStridedBatched_rank_1 = hipblasZswapStridedBatched_(handle,n,c_loc(x),incx, & + stridex,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasZswapStridedBatched_strided_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZswapStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZswapStridedBatched_strided_rank = hipblasZswapStridedBatched_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasSsprStridedBatched_64_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,AP, & - strideA,batchCount) - use iso_c_binding + function hipblasSswapStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsprStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSswapStridedBatched_64_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - real(c_float),target :: alpha real(c_float),target,dimension(..) :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - real(c_float),target,dimension(..) :: AP - integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount ! - hipblasSsprStridedBatched_64_assumed_rank = hipblasSsprStridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + hipblasSswapStridedBatched_64_assumed_rank = hipblasSswapStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) end function #else - function hipblasSsprStridedBatched_64_rank_0(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & - batchCount) - use iso_c_binding + function hipblasSswapStridedBatched_64_rank_0(handle,n,x,incx,stridex,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsprStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSswapStridedBatched_64_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - real(c_float),target :: alpha real(c_float),target :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - real(c_float),target :: AP - integer(c_int64_t) :: strideA + real(c_float),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount ! - hipblasSsprStridedBatched_64_rank_0 = hipblasSsprStridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + hipblasSswapStridedBatched_64_rank_0 = hipblasSswapStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount) end function - function hipblasSsprStridedBatched_64_rank_1(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & - batchCount) - use iso_c_binding + function hipblasSswapStridedBatched_64_rank_1(handle,n,x,incx,stridex,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsprStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSswapStridedBatched_64_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - real(c_float),target :: alpha real(c_float),target,dimension(:) :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - real(c_float),target,dimension(:) :: AP - integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount ! - hipblasSsprStridedBatched_64_rank_1 = hipblasSsprStridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + hipblasSswapStridedBatched_64_rank_1 = hipblasSswapStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasSswapStridedBatched_64_strided_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSswapStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_float),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasSswapStridedBatched_64_strided_rank = hipblasSswapStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasDsprStridedBatched_64_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,AP, & - strideA,batchCount) - use iso_c_binding + function hipblasDswapStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsprStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDswapStridedBatched_64_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - real(c_double),target :: alpha real(c_double),target,dimension(..) :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - real(c_double),target,dimension(..) :: AP - integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount ! - hipblasDsprStridedBatched_64_assumed_rank = hipblasDsprStridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + hipblasDswapStridedBatched_64_assumed_rank = hipblasDswapStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) end function #else - function hipblasDsprStridedBatched_64_rank_0(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & - batchCount) - use iso_c_binding + function hipblasDswapStridedBatched_64_rank_0(handle,n,x,incx,stridex,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsprStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDswapStridedBatched_64_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - real(c_double),target :: alpha real(c_double),target :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - real(c_double),target :: AP - integer(c_int64_t) :: strideA + real(c_double),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount ! - hipblasDsprStridedBatched_64_rank_0 = hipblasDsprStridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + hipblasDswapStridedBatched_64_rank_0 = hipblasDswapStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount) end function - function hipblasDsprStridedBatched_64_rank_1(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & - batchCount) - use iso_c_binding + function hipblasDswapStridedBatched_64_rank_1(handle,n,x,incx,stridex,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsprStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDswapStridedBatched_64_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - real(c_double),target :: alpha real(c_double),target,dimension(:) :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - real(c_double),target,dimension(:) :: AP - integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount ! - hipblasDsprStridedBatched_64_rank_1 = hipblasDsprStridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + hipblasDswapStridedBatched_64_rank_1 = hipblasDswapStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasDswapStridedBatched_64_strided_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDswapStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + real(c_double),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasDswapStridedBatched_64_strided_rank = hipblasDswapStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCsprStridedBatched_64_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,AP, & - strideA,batchCount) - use iso_c_binding + function hipblasCswapStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsprStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCswapStridedBatched_64_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha complex(c_float_complex),target,dimension(..) :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - complex(c_float_complex),target,dimension(..) :: AP - integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount ! - hipblasCsprStridedBatched_64_assumed_rank = hipblasCsprStridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + hipblasCswapStridedBatched_64_assumed_rank = hipblasCswapStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) end function #else - function hipblasCsprStridedBatched_64_rank_0(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & - batchCount) - use iso_c_binding + function hipblasCswapStridedBatched_64_rank_0(handle,n,x,incx,stridex,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsprStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCswapStridedBatched_64_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha complex(c_float_complex),target :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - complex(c_float_complex),target :: AP - integer(c_int64_t) :: strideA + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount ! - hipblasCsprStridedBatched_64_rank_0 = hipblasCsprStridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + hipblasCswapStridedBatched_64_rank_0 = hipblasCswapStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount) end function - function hipblasCsprStridedBatched_64_rank_1(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & - batchCount) - use iso_c_binding + function hipblasCswapStridedBatched_64_rank_1(handle,n,x,incx,stridex,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsprStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCswapStridedBatched_64_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha complex(c_float_complex),target,dimension(:) :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - complex(c_float_complex),target,dimension(:) :: AP - integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount ! - hipblasCsprStridedBatched_64_rank_1 = hipblasCsprStridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + hipblasCswapStridedBatched_64_rank_1 = hipblasCswapStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasCswapStridedBatched_64_strided_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCswapStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasCswapStridedBatched_64_strided_rank = hipblasCswapStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasZsprStridedBatched_64_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,AP, & - strideA,batchCount) - use iso_c_binding + function hipblasZswapStridedBatched_64_assumed_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsprStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZswapStridedBatched_64_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha complex(c_double_complex),target,dimension(..) :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - complex(c_double_complex),target,dimension(..) :: AP - integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount ! - hipblasZsprStridedBatched_64_assumed_rank = hipblasZsprStridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + hipblasZswapStridedBatched_64_assumed_rank = hipblasZswapStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) end function #else - function hipblasZsprStridedBatched_64_rank_0(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & - batchCount) - use iso_c_binding + function hipblasZswapStridedBatched_64_rank_0(handle,n,x,incx,stridex,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsprStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZswapStridedBatched_64_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha complex(c_double_complex),target :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - complex(c_double_complex),target :: AP - integer(c_int64_t) :: strideA + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount ! - hipblasZsprStridedBatched_64_rank_0 = hipblasZsprStridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + hipblasZswapStridedBatched_64_rank_0 = hipblasZswapStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount) end function - function hipblasZsprStridedBatched_64_rank_1(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & - batchCount) - use iso_c_binding + function hipblasZswapStridedBatched_64_rank_1(handle,n,x,incx,stridex,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsprStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZswapStridedBatched_64_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha complex(c_double_complex),target,dimension(:) :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - complex(c_double_complex),target,dimension(:) :: AP - integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount ! - hipblasZsprStridedBatched_64_rank_1 = hipblasZsprStridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + hipblasZswapStridedBatched_64_rank_1 = hipblasZswapStridedBatched_64_(handle,n,c_loc(x), & + incx,stridex,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasZswapStridedBatched_64_strided_rank(handle,n,x,incx,stridex,y,incy,stridey, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZswapStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZswapStridedBatched_64_strided_rank = hipblasZswapStridedBatched_64_(handle,n, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasSspr2_assumed_rank(handle,uplo,n,alpha,x,incx,y,incy,AP) - use iso_c_binding + function hipblasSgbmv_assumed_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmv_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda real(c_float),target,dimension(..) :: x integer(c_int) :: incx + real(c_float),target :: beta real(c_float),target,dimension(..) :: y integer(c_int) :: incy - real(c_float),target,dimension(..) :: AP ! - hipblasSspr2_assumed_rank = hipblasSspr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & - incy,c_loc(AP)) + hipblasSgbmv_assumed_rank = hipblasSgbmv_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) end function -#else - function hipblasSspr2_rank_0(handle,uplo,n,alpha,x,incx,y,incy,AP) - use iso_c_binding + function hipblasSgbmv_assumed_rank_devptr(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y, & + incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmv_assumed_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target :: x + integer(c_int) :: kl + integer(c_int) :: ku + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(..) :: x integer(c_int) :: incx - real(c_float),target :: y + type(c_ptr),value :: beta + real(c_float),target,dimension(..) :: y integer(c_int) :: incy - real(c_float),target :: AP ! - hipblasSspr2_rank_0 = hipblasSspr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & - c_loc(AP)) + hipblasSgbmv_assumed_rank_devptr = hipblasSgbmv_(handle,trans,m,n,kl,ku,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) end function - function hipblasSspr2_rank_1(handle,uplo,n,alpha,x,incx,y,incy,AP) - use iso_c_binding +#else + function hipblasSgbmv_rank_0(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmv_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku real(c_float),target :: alpha - real(c_float),target,dimension(:) :: x + real(c_float),target :: AP + integer(c_int) :: lda + real(c_float),target :: x integer(c_int) :: incx - real(c_float),target,dimension(:) :: y + real(c_float),target :: beta + real(c_float),target :: y integer(c_int) :: incy - real(c_float),target,dimension(:) :: AP ! - hipblasSspr2_rank_1 = hipblasSspr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & - c_loc(AP)) + hipblasSgbmv_rank_0 = hipblasSgbmv_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDspr2_assumed_rank(handle,uplo,n,alpha,x,incx,y,incy,AP) - use iso_c_binding + function hipblasSgbmv_rank_0_devptr(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmv_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(..) :: x + integer(c_int) :: kl + integer(c_int) :: ku + type(c_ptr),value :: alpha + real(c_float),target :: AP + integer(c_int) :: lda + real(c_float),target :: x integer(c_int) :: incx - real(c_double),target,dimension(..) :: y + type(c_ptr),value :: beta + real(c_float),target :: y integer(c_int) :: incy - real(c_double),target,dimension(..) :: AP ! - hipblasDspr2_assumed_rank = hipblasDspr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & - incy,c_loc(AP)) + hipblasSgbmv_rank_0_devptr = hipblasSgbmv_(handle,trans,m,n,kl,ku,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) end function -#else - function hipblasDspr2_rank_0(handle,uplo,n,alpha,x,incx,y,incy,AP) - use iso_c_binding + function hipblasSgbmv_rank_1(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmv_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target :: x + integer(c_int) :: kl + integer(c_int) :: ku + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(:) :: x integer(c_int) :: incx - real(c_double),target :: y + real(c_float),target :: beta + real(c_float),target,dimension(:) :: y integer(c_int) :: incy - real(c_double),target :: AP ! - hipblasDspr2_rank_0 = hipblasDspr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & - c_loc(AP)) + hipblasSgbmv_rank_1 = hipblasSgbmv_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) end function - function hipblasDspr2_rank_1(handle,uplo,n,alpha,x,incx,y,incy,AP) - use iso_c_binding + function hipblasSgbmv_rank_1_devptr(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmv_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(:) :: x + integer(c_int) :: kl + integer(c_int) :: ku + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(:) :: x integer(c_int) :: incx - real(c_double),target,dimension(:) :: y + type(c_ptr),value :: beta + real(c_float),target,dimension(:) :: y integer(c_int) :: incy - real(c_double),target,dimension(:) :: AP - ! - hipblasDspr2_rank_1 = hipblasDspr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & - c_loc(AP)) - end function - -#endif -#ifdef USE_ASSUMED_RANK - function hipblasSspr2_64_assumed_rank(handle,uplo,n,alpha,x,incx,y,incy,AP) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2_64_assumed_rank - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(..) :: x - integer(c_int64_t) :: incx - real(c_float),target,dimension(..) :: y - integer(c_int64_t) :: incy - real(c_float),target,dimension(..) :: AP ! - hipblasSspr2_64_assumed_rank = hipblasSspr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & - c_loc(y),incy,c_loc(AP)) + hipblasSgbmv_rank_1_devptr = hipblasSgbmv_(handle,trans,m,n,kl,ku,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) end function -#else - function hipblasSspr2_64_rank_0(handle,uplo,n,alpha,x,incx,y,incy,AP) - use iso_c_binding + function hipblasSgbmv_full_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmv_full_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku real(c_float),target :: alpha - real(c_float),target :: x - integer(c_int64_t) :: incx - real(c_float),target :: y - integer(c_int64_t) :: incy - real(c_float),target :: AP + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + real(c_float),target :: beta + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy ! - hipblasSspr2_64_rank_0 = hipblasSspr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & - incy,c_loc(AP)) + hipblasSgbmv_full_rank = hipblasSgbmv_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) end function - function hipblasSspr2_64_rank_1(handle,uplo,n,alpha,x,incx,y,incy,AP) - use iso_c_binding + function hipblasSgbmv_full_rank_devptr(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmv_full_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - real(c_float),target :: alpha + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda real(c_float),target,dimension(:) :: x - integer(c_int64_t) :: incx + integer(c_int) :: incx + type(c_ptr),value :: beta real(c_float),target,dimension(:) :: y - integer(c_int64_t) :: incy - real(c_float),target,dimension(:) :: AP + integer(c_int) :: incy ! - hipblasSspr2_64_rank_1 = hipblasSspr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & - incy,c_loc(AP)) + hipblasSgbmv_full_rank_devptr = hipblasSgbmv_(handle,trans,m,n,kl,ku,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasDspr2_64_assumed_rank(handle,uplo,n,alpha,x,incx,y,incy,AP) - use iso_c_binding + function hipblasDgbmv_assumed_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmv_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda real(c_double),target,dimension(..) :: x - integer(c_int64_t) :: incx + integer(c_int) :: incx + real(c_double),target :: beta real(c_double),target,dimension(..) :: y - integer(c_int64_t) :: incy + integer(c_int) :: incy + ! + hipblasDgbmv_assumed_rank = hipblasDgbmv_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasDgbmv_assumed_rank_devptr(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y, & + incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmv_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku + type(c_ptr),value :: alpha real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: beta + real(c_double),target,dimension(..) :: y + integer(c_int) :: incy ! - hipblasDspr2_64_assumed_rank = hipblasDspr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & - c_loc(y),incy,c_loc(AP)) + hipblasDgbmv_assumed_rank_devptr = hipblasDgbmv_(handle,trans,m,n,kl,ku,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) end function #else - function hipblasDspr2_64_rank_0(handle,uplo,n,alpha,x,incx,y,incy,AP) - use iso_c_binding + function hipblasDgbmv_rank_0(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmv_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int) :: lda real(c_double),target :: x - integer(c_int64_t) :: incx + integer(c_int) :: incx + real(c_double),target :: beta real(c_double),target :: y - integer(c_int64_t) :: incy + integer(c_int) :: incy + ! + hipblasDgbmv_rank_0 = hipblasDgbmv_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasDgbmv_rank_0_devptr(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmv_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku + type(c_ptr),value :: alpha real(c_double),target :: AP + integer(c_int) :: lda + real(c_double),target :: x + integer(c_int) :: incx + type(c_ptr),value :: beta + real(c_double),target :: y + integer(c_int) :: incy ! - hipblasDspr2_64_rank_0 = hipblasDspr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & - incy,c_loc(AP)) + hipblasDgbmv_rank_0_devptr = hipblasDgbmv_(handle,trans,m,n,kl,ku,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) end function - function hipblasDspr2_64_rank_1(handle,uplo,n,alpha,x,incx,y,incy,AP) - use iso_c_binding + function hipblasDgbmv_rank_1(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmv_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda real(c_double),target,dimension(:) :: x - integer(c_int64_t) :: incx + integer(c_int) :: incx + real(c_double),target :: beta real(c_double),target,dimension(:) :: y - integer(c_int64_t) :: incy - real(c_double),target,dimension(:) :: AP + integer(c_int) :: incy ! - hipblasDspr2_64_rank_1 = hipblasDspr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & - incy,c_loc(AP)) + hipblasDgbmv_rank_1 = hipblasDgbmv_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasSspr2StridedBatched_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & - stridey,AP,strideA,batchCount) - use iso_c_binding + function hipblasDgbmv_rank_1_devptr(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2StridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmv_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(..) :: x + integer(c_int) :: kl + integer(c_int) :: ku + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(:) :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - real(c_float),target,dimension(..) :: y + type(c_ptr),value :: beta + real(c_double),target,dimension(:) :: y integer(c_int) :: incy - integer(c_int64_t) :: stridey - real(c_float),target,dimension(..) :: AP - integer(c_int64_t) :: strideA - integer(c_int) :: batchCount ! - hipblasSspr2StridedBatched_assumed_rank = hipblasSspr2StridedBatched_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + hipblasDgbmv_rank_1_devptr = hipblasDgbmv_(handle,trans,m,n,kl,ku,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) end function -#else - function hipblasSspr2StridedBatched_rank_0(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & - AP,strideA,batchCount) - use iso_c_binding + function hipblasDgbmv_full_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2StridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmv_full_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target :: x + integer(c_int) :: kl + integer(c_int) :: ku + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(:) :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - real(c_float),target :: y + real(c_double),target :: beta + real(c_double),target,dimension(:) :: y integer(c_int) :: incy - integer(c_int64_t) :: stridey - real(c_float),target :: AP - integer(c_int64_t) :: strideA - integer(c_int) :: batchCount ! - hipblasSspr2StridedBatched_rank_0 = hipblasSspr2StridedBatched_(handle,uplo,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + hipblasDgbmv_full_rank = hipblasDgbmv_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) end function - function hipblasSspr2StridedBatched_rank_1(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & - AP,strideA,batchCount) - use iso_c_binding + function hipblasDgbmv_full_rank_devptr(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2StridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmv_full_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(:) :: x + integer(c_int) :: kl + integer(c_int) :: ku + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(:) :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - real(c_float),target,dimension(:) :: y + type(c_ptr),value :: beta + real(c_double),target,dimension(:) :: y integer(c_int) :: incy - integer(c_int64_t) :: stridey - real(c_float),target,dimension(:) :: AP - integer(c_int64_t) :: strideA - integer(c_int) :: batchCount ! - hipblasSspr2StridedBatched_rank_1 = hipblasSspr2StridedBatched_(handle,uplo,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + hipblasDgbmv_full_rank_devptr = hipblasDgbmv_(handle,trans,m,n,kl,ku,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasDspr2StridedBatched_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & - stridey,AP,strideA,batchCount) - use iso_c_binding + function hipblasCgbmv_assumed_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2StridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmv_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(..) :: x + integer(c_int) :: kl + integer(c_int) :: ku + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(..) :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - real(c_double),target,dimension(..) :: y + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: y integer(c_int) :: incy - integer(c_int64_t) :: stridey - real(c_double),target,dimension(..) :: AP - integer(c_int64_t) :: strideA - integer(c_int) :: batchCount ! - hipblasDspr2StridedBatched_assumed_rank = hipblasDspr2StridedBatched_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + hipblasCgbmv_assumed_rank = hipblasCgbmv_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) end function -#else - function hipblasDspr2StridedBatched_rank_0(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & - AP,strideA,batchCount) - use iso_c_binding + function hipblasCgbmv_assumed_rank_devptr(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y, & + incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2StridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmv_assumed_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target :: x + integer(c_int) :: kl + integer(c_int) :: ku + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(..) :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - real(c_double),target :: y + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(..) :: y integer(c_int) :: incy - integer(c_int64_t) :: stridey - real(c_double),target :: AP - integer(c_int64_t) :: strideA - integer(c_int) :: batchCount ! - hipblasDspr2StridedBatched_rank_0 = hipblasDspr2StridedBatched_(handle,uplo,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + hipblasCgbmv_assumed_rank_devptr = hipblasCgbmv_(handle,trans,m,n,kl,ku,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) end function - function hipblasDspr2StridedBatched_rank_1(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & - AP,strideA,batchCount) - use iso_c_binding +#else + function hipblasCgbmv_rank_0(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2StridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmv_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(:) :: x + integer(c_int) :: kl + integer(c_int) :: ku + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + complex(c_float_complex),target :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - real(c_double),target,dimension(:) :: y + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: y integer(c_int) :: incy - integer(c_int64_t) :: stridey - real(c_double),target,dimension(:) :: AP - integer(c_int64_t) :: strideA - integer(c_int) :: batchCount ! - hipblasDspr2StridedBatched_rank_1 = hipblasDspr2StridedBatched_(handle,uplo,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + hipblasCgbmv_rank_0 = hipblasCgbmv_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasSspr2StridedBatched_64_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & - stridey,AP,strideA,batchCount) - use iso_c_binding + function hipblasCgbmv_rank_0_devptr(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2StridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmv_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(..) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - real(c_float),target,dimension(..) :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - real(c_float),target,dimension(..) :: AP - integer(c_int64_t) :: strideA - integer(c_int64_t) :: batchCount + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku + type(c_ptr),value :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + complex(c_float_complex),target :: x + integer(c_int) :: incx + type(c_ptr),value :: beta + complex(c_float_complex),target :: y + integer(c_int) :: incy ! - hipblasSspr2StridedBatched_64_assumed_rank = hipblasSspr2StridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + hipblasCgbmv_rank_0_devptr = hipblasCgbmv_(handle,trans,m,n,kl,ku,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) end function -#else - function hipblasSspr2StridedBatched_64_rank_0(handle,uplo,n,alpha,x,incx,stridex,y,incy, & - stridey,AP,strideA,batchCount) - use iso_c_binding + function hipblasCgbmv_rank_1(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2StridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmv_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - real(c_float),target :: alpha - real(c_float),target :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - real(c_float),target :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - real(c_float),target :: AP - integer(c_int64_t) :: strideA - integer(c_int64_t) :: batchCount + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy ! - hipblasSspr2StridedBatched_64_rank_0 = hipblasSspr2StridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + hipblasCgbmv_rank_1 = hipblasCgbmv_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) end function - function hipblasSspr2StridedBatched_64_rank_1(handle,uplo,n,alpha,x,incx,stridex,y,incy, & - stridey,AP,strideA,batchCount) - use iso_c_binding + function hipblasCgbmv_rank_1_devptr(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2StridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmv_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(:) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - real(c_float),target,dimension(:) :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - real(c_float),target,dimension(:) :: AP - integer(c_int64_t) :: strideA - integer(c_int64_t) :: batchCount + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy ! - hipblasSspr2StridedBatched_64_rank_1 = hipblasSspr2StridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + hipblasCgbmv_rank_1_devptr = hipblasCgbmv_(handle,trans,m,n,kl,ku,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDspr2StridedBatched_64_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & - stridey,AP,strideA,batchCount) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2StridedBatched_64_assumed_rank - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(..) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - real(c_double),target,dimension(..) :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - real(c_double),target,dimension(..) :: AP - integer(c_int64_t) :: strideA - integer(c_int64_t) :: batchCount - ! - hipblasDspr2StridedBatched_64_assumed_rank = hipblasDspr2StridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) - end function - -#else - function hipblasDspr2StridedBatched_64_rank_0(handle,uplo,n,alpha,x,incx,stridex,y,incy, & - stridey,AP,strideA,batchCount) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2StridedBatched_64_rank_0 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - real(c_double),target :: alpha - real(c_double),target :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - real(c_double),target :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - real(c_double),target :: AP - integer(c_int64_t) :: strideA - integer(c_int64_t) :: batchCount - ! - hipblasDspr2StridedBatched_64_rank_0 = hipblasDspr2StridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) - end function - - function hipblasDspr2StridedBatched_64_rank_1(handle,uplo,n,alpha,x,incx,stridex,y,incy, & - stridey,AP,strideA,batchCount) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2StridedBatched_64_rank_1 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(:) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - real(c_double),target,dimension(:) :: y - integer(c_int64_t) :: incy - integer(c_int64_t) :: stridey - real(c_double),target,dimension(:) :: AP - integer(c_int64_t) :: strideA - integer(c_int64_t) :: batchCount - ! - hipblasDspr2StridedBatched_64_rank_1 = hipblasDspr2StridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) - end function - -#endif -#ifdef USE_ASSUMED_RANK - function hipblasSsymv_assumed_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymv_assumed_rank - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(..) :: AP - integer(c_int) :: lda - real(c_float),target,dimension(..) :: x - integer(c_int) :: incx - real(c_float),target :: beta - real(c_float),target,dimension(..) :: y - integer(c_int) :: incy - ! - hipblasSsymv_assumed_rank = hipblasSsymv_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & - incx,c_loc(beta),c_loc(y),incy) - end function - -#else - function hipblasSsymv_rank_0(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymv_rank_0 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target :: AP - integer(c_int) :: lda - real(c_float),target :: x - integer(c_int) :: incx - real(c_float),target :: beta - real(c_float),target :: y - integer(c_int) :: incy - ! - hipblasSsymv_rank_0 = hipblasSsymv_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x),incx, & - c_loc(beta),c_loc(y),incy) - end function - - function hipblasSsymv_rank_1(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasCgbmv_full_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymv_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmv_full_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(:) :: AP + integer(c_int) :: kl + integer(c_int) :: ku + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP integer(c_int) :: lda - real(c_float),target,dimension(:) :: x + complex(c_float_complex),target,dimension(:) :: x integer(c_int) :: incx - real(c_float),target :: beta - real(c_float),target,dimension(:) :: y + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y integer(c_int) :: incy ! - hipblasSsymv_rank_1 = hipblasSsymv_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x),incx, & - c_loc(beta),c_loc(y),incy) + hipblasCgbmv_full_rank = hipblasCgbmv_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) end function - function hipblasSsymv_full_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasCgbmv_full_rank_devptr(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymv_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmv_full_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: kl + integer(c_int) :: ku + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP integer(c_int) :: lda - real(c_float),target,dimension(:) :: x + complex(c_float_complex),target,dimension(:) :: x integer(c_int) :: incx - real(c_float),target :: beta - real(c_float),target,dimension(:) :: y + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: y integer(c_int) :: incy ! - hipblasSsymv_full_rank = hipblasSsymv_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & - incx,c_loc(beta),c_loc(y),incy) + hipblasCgbmv_full_rank_devptr = hipblasCgbmv_(handle,trans,m,n,kl,ku,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasDsymv_assumed_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymv_assumed_rank - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(..) :: AP - integer(c_int) :: lda - real(c_double),target,dimension(..) :: x - integer(c_int) :: incx - real(c_double),target :: beta - real(c_double),target,dimension(..) :: y - integer(c_int) :: incy - ! - hipblasDsymv_assumed_rank = hipblasDsymv_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & - incx,c_loc(beta),c_loc(y),incy) - end function - -#else - function hipblasDsymv_rank_0(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymv_rank_0 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target :: AP - integer(c_int) :: lda - real(c_double),target :: x - integer(c_int) :: incx - real(c_double),target :: beta - real(c_double),target :: y - integer(c_int) :: incy - ! - hipblasDsymv_rank_0 = hipblasDsymv_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x),incx, & - c_loc(beta),c_loc(y),incy) - end function - - function hipblasDsymv_rank_1(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymv_rank_1 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(:) :: AP - integer(c_int) :: lda - real(c_double),target,dimension(:) :: x - integer(c_int) :: incx - real(c_double),target :: beta - real(c_double),target,dimension(:) :: y - integer(c_int) :: incy - ! - hipblasDsymv_rank_1 = hipblasDsymv_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x),incx, & - c_loc(beta),c_loc(y),incy) - end function - - function hipblasDsymv_full_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasZgbmv_assumed_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymv_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmv_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: kl + integer(c_int) :: ku + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP integer(c_int) :: lda - real(c_double),target,dimension(:) :: x + complex(c_double_complex),target,dimension(..) :: x integer(c_int) :: incx - real(c_double),target :: beta - real(c_double),target,dimension(:) :: y + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: y integer(c_int) :: incy ! - hipblasDsymv_full_rank = hipblasDsymv_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & - incx,c_loc(beta),c_loc(y),incy) + hipblasZgbmv_assumed_rank = hipblasZgbmv_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCsymv_assumed_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasZgbmv_assumed_rank_devptr(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y, & + incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymv_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmv_assumed_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: kl + integer(c_int) :: ku + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: AP integer(c_int) :: lda - complex(c_float_complex),target,dimension(..) :: x + complex(c_double_complex),target,dimension(..) :: x integer(c_int) :: incx - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(..) :: y + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(..) :: y integer(c_int) :: incy ! - hipblasCsymv_assumed_rank = hipblasCsymv_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & - incx,c_loc(beta),c_loc(y),incy) + hipblasZgbmv_assumed_rank_devptr = hipblasZgbmv_(handle,trans,m,n,kl,ku,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) end function #else - function hipblasCsymv_rank_0(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymv_rank_0 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: AP - integer(c_int) :: lda - complex(c_float_complex),target :: x - integer(c_int) :: incx - complex(c_float_complex),target :: beta - complex(c_float_complex),target :: y - integer(c_int) :: incy - ! - hipblasCsymv_rank_0 = hipblasCsymv_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x),incx, & - c_loc(beta),c_loc(y),incy) - end function - - function hipblasCsymv_rank_1(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasZgbmv_rank_0(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymv_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmv_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: kl + integer(c_int) :: ku + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP integer(c_int) :: lda - complex(c_float_complex),target,dimension(:) :: x + complex(c_double_complex),target :: x integer(c_int) :: incx - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:) :: y + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: y integer(c_int) :: incy ! - hipblasCsymv_rank_1 = hipblasCsymv_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x),incx, & - c_loc(beta),c_loc(y),incy) + hipblasZgbmv_rank_0 = hipblasZgbmv_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) end function - function hipblasCsymv_full_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasZgbmv_rank_0_devptr(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymv_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmv_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: kl + integer(c_int) :: ku + type(c_ptr),value :: alpha + complex(c_double_complex),target :: AP integer(c_int) :: lda - complex(c_float_complex),target,dimension(:) :: x + complex(c_double_complex),target :: x integer(c_int) :: incx - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:) :: y + type(c_ptr),value :: beta + complex(c_double_complex),target :: y integer(c_int) :: incy ! - hipblasCsymv_full_rank = hipblasCsymv_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & - incx,c_loc(beta),c_loc(y),incy) + hipblasZgbmv_rank_0_devptr = hipblasZgbmv_(handle,trans,m,n,kl,ku,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZsymv_assumed_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasZgbmv_rank_1(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymv_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmv_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: AP + complex(c_double_complex),target,dimension(:) :: AP integer(c_int) :: lda - complex(c_double_complex),target,dimension(..) :: x + complex(c_double_complex),target,dimension(:) :: x integer(c_int) :: incx complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(..) :: y + complex(c_double_complex),target,dimension(:) :: y integer(c_int) :: incy ! - hipblasZsymv_assumed_rank = hipblasZsymv_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & - incx,c_loc(beta),c_loc(y),incy) + hipblasZgbmv_rank_1 = hipblasZgbmv_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) end function -#else - function hipblasZsymv_rank_0(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasZgbmv_rank_1_devptr(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymv_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmv_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: AP + integer(c_int) :: kl + integer(c_int) :: ku + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: AP integer(c_int) :: lda - complex(c_double_complex),target :: x + complex(c_double_complex),target,dimension(:) :: x integer(c_int) :: incx - complex(c_double_complex),target :: beta - complex(c_double_complex),target :: y + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: y integer(c_int) :: incy ! - hipblasZsymv_rank_0 = hipblasZsymv_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x),incx, & - c_loc(beta),c_loc(y),incy) + hipblasZgbmv_rank_1_devptr = hipblasZgbmv_(handle,trans,m,n,kl,ku,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) end function - function hipblasZsymv_rank_1(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasZgbmv_full_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymv_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmv_full_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: AP + complex(c_double_complex),target,dimension(:,:) :: AP integer(c_int) :: lda complex(c_double_complex),target,dimension(:) :: x integer(c_int) :: incx @@ -74546,39 +75775,43 @@ function hipblasZsymv_rank_1(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) complex(c_double_complex),target,dimension(:) :: y integer(c_int) :: incy ! - hipblasZsymv_rank_1 = hipblasZsymv_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x),incx, & - c_loc(beta),c_loc(y),incy) + hipblasZgbmv_full_rank = hipblasZgbmv_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) end function - function hipblasZsymv_full_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasZgbmv_full_rank_devptr(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymv_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmv_full_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n - complex(c_double_complex),target :: alpha + integer(c_int) :: kl + integer(c_int) :: ku + type(c_ptr),value :: alpha complex(c_double_complex),target,dimension(:,:) :: AP integer(c_int) :: lda complex(c_double_complex),target,dimension(:) :: x integer(c_int) :: incx - complex(c_double_complex),target :: beta + type(c_ptr),value :: beta complex(c_double_complex),target,dimension(:) :: y integer(c_int) :: incy ! - hipblasZsymv_full_rank = hipblasZsymv_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & - incx,c_loc(beta),c_loc(y),incy) + hipblasZgbmv_full_rank_devptr = hipblasZgbmv_(handle,trans,m,n,kl,ku,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasSsymv_64_assumed_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasSgbmv_64_assumed_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymv_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmv_64_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku real(c_float),target :: alpha real(c_float),target,dimension(..) :: AP integer(c_int64_t) :: lda @@ -74588,18 +75821,43 @@ function hipblasSsymv_64_assumed_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,i real(c_float),target,dimension(..) :: y integer(c_int64_t) :: incy ! - hipblasSsymv_64_assumed_rank = hipblasSsymv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasSgbmv_64_assumed_rank = hipblasSgbmv_64_(handle,trans,m,n,kl,ku,c_loc(alpha), & + c_loc(AP),lda,c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasSgbmv_64_assumed_rank_devptr(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta, & + y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmv_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy + ! + hipblasSgbmv_64_assumed_rank_devptr = hipblasSgbmv_64_(handle,trans,m,n,kl,ku,alpha, & + c_loc(AP),lda,c_loc(x),incx,beta,c_loc(y),incy) end function #else - function hipblasSsymv_64_rank_0(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasSgbmv_64_rank_0(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymv_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmv_64_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku real(c_float),target :: alpha real(c_float),target :: AP integer(c_int64_t) :: lda @@ -74609,39 +75867,43 @@ function hipblasSsymv_64_rank_0(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) real(c_float),target :: y integer(c_int64_t) :: incy ! - hipblasSsymv_64_rank_0 = hipblasSsymv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & - incx,c_loc(beta),c_loc(y),incy) + hipblasSgbmv_64_rank_0 = hipblasSgbmv_64_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) end function - function hipblasSsymv_64_rank_1(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasSgbmv_64_rank_0_devptr(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymv_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmv_64_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m integer(c_int64_t) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + type(c_ptr),value :: alpha + real(c_float),target :: AP integer(c_int64_t) :: lda - real(c_float),target,dimension(:) :: x + real(c_float),target :: x integer(c_int64_t) :: incx - real(c_float),target :: beta - real(c_float),target,dimension(:) :: y + type(c_ptr),value :: beta + real(c_float),target :: y integer(c_int64_t) :: incy ! - hipblasSsymv_64_rank_1 = hipblasSsymv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & - incx,c_loc(beta),c_loc(y),incy) + hipblasSgbmv_64_rank_0_devptr = hipblasSgbmv_64_(handle,trans,m,n,kl,ku,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) end function - function hipblasSsymv_64_full_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasSgbmv_64_rank_1(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymv_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmv_64_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku real(c_float),target :: alpha - real(c_float),target,dimension(:,:) :: AP + real(c_float),target,dimension(:) :: AP integer(c_int64_t) :: lda real(c_float),target,dimension(:) :: x integer(c_int64_t) :: incx @@ -74649,61 +75911,179 @@ function hipblasSsymv_64_full_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy real(c_float),target,dimension(:) :: y integer(c_int64_t) :: incy ! - hipblasSsymv_64_full_rank = hipblasSsymv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda, & + hipblasSgbmv_64_rank_1 = hipblasSgbmv_64_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP),lda, & c_loc(x),incx,c_loc(beta),c_loc(y),incy) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDsymv_64_assumed_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasSgbmv_64_rank_1_devptr(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymv_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmv_64_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m integer(c_int64_t) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: AP integer(c_int64_t) :: lda - real(c_double),target,dimension(..) :: x + real(c_float),target,dimension(:) :: x integer(c_int64_t) :: incx - real(c_double),target :: beta - real(c_double),target,dimension(..) :: y + type(c_ptr),value :: beta + real(c_float),target,dimension(:) :: y integer(c_int64_t) :: incy ! - hipblasDsymv_64_assumed_rank = hipblasDsymv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasSgbmv_64_rank_1_devptr = hipblasSgbmv_64_(handle,trans,m,n,kl,ku,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) end function -#else - function hipblasDsymv_64_rank_0(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasSgbmv_64_full_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymv_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmv_64_full_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m integer(c_int64_t) :: n - real(c_double),target :: alpha - real(c_double),target :: AP + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP integer(c_int64_t) :: lda - real(c_double),target :: x + real(c_float),target,dimension(:) :: x integer(c_int64_t) :: incx - real(c_double),target :: beta - real(c_double),target :: y + real(c_float),target :: beta + real(c_float),target,dimension(:) :: y integer(c_int64_t) :: incy ! - hipblasDsymv_64_rank_0 = hipblasDsymv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & - incx,c_loc(beta),c_loc(y),incy) + hipblasSgbmv_64_full_rank = hipblasSgbmv_64_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP), & + lda,c_loc(x),incx,c_loc(beta),c_loc(y),incy) end function - function hipblasDsymv_64_rank_1(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasSgbmv_64_full_rank_devptr(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y, & + incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymv_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmv_64_full_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m integer(c_int64_t) :: n - real(c_double),target :: alpha + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasSgbmv_64_full_rank_devptr = hipblasSgbmv_64_(handle,trans,m,n,kl,ku,alpha,c_loc(AP), & + lda,c_loc(x),incx,beta,c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDgbmv_64_assumed_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_double),target :: beta + real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: incy + ! + hipblasDgbmv_64_assumed_rank = hipblasDgbmv_64_(handle,trans,m,n,kl,ku,c_loc(alpha), & + c_loc(AP),lda,c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasDgbmv_64_assumed_rank_devptr(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta, & + y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmv_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: incy + ! + hipblasDgbmv_64_assumed_rank_devptr = hipblasDgbmv_64_(handle,trans,m,n,kl,ku,alpha, & + c_loc(AP),lda,c_loc(x),incx,beta,c_loc(y),incy) + end function + +#else + function hipblasDgbmv_64_rank_0(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int64_t) :: lda + real(c_double),target :: x + integer(c_int64_t) :: incx + real(c_double),target :: beta + real(c_double),target :: y + integer(c_int64_t) :: incy + ! + hipblasDgbmv_64_rank_0 = hipblasDgbmv_64_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasDgbmv_64_rank_0_devptr(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmv_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + type(c_ptr),value :: alpha + real(c_double),target :: AP + integer(c_int64_t) :: lda + real(c_double),target :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + real(c_double),target :: y + integer(c_int64_t) :: incy + ! + hipblasDgbmv_64_rank_0_devptr = hipblasDgbmv_64_(handle,trans,m,n,kl,ku,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) + end function + + function hipblasDgbmv_64_rank_1(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + real(c_double),target :: alpha real(c_double),target,dimension(:) :: AP integer(c_int64_t) :: lda real(c_double),target,dimension(:) :: x @@ -74712,17 +76092,41 @@ function hipblasDsymv_64_rank_1(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) real(c_double),target,dimension(:) :: y integer(c_int64_t) :: incy ! - hipblasDsymv_64_rank_1 = hipblasDsymv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & - incx,c_loc(beta),c_loc(y),incy) + hipblasDgbmv_64_rank_1 = hipblasDgbmv_64_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) end function - function hipblasDsymv_64_full_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasDgbmv_64_rank_1_devptr(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymv_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmv_64_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasDgbmv_64_rank_1_devptr = hipblasDgbmv_64_(handle,trans,m,n,kl,ku,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) + end function + + function hipblasDgbmv_64_full_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmv_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku real(c_double),target :: alpha real(c_double),target,dimension(:,:) :: AP integer(c_int64_t) :: lda @@ -74732,19 +76136,44 @@ function hipblasDsymv_64_full_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy real(c_double),target,dimension(:) :: y integer(c_int64_t) :: incy ! - hipblasDsymv_64_full_rank = hipblasDsymv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasDgbmv_64_full_rank = hipblasDgbmv_64_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP), & + lda,c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasDgbmv_64_full_rank_devptr(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y, & + incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmv_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasDgbmv_64_full_rank_devptr = hipblasDgbmv_64_(handle,trans,m,n,kl,ku,alpha,c_loc(AP), & + lda,c_loc(x),incx,beta,c_loc(y),incy) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCsymv_64_assumed_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasCgbmv_64_assumed_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymv_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmv_64_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku complex(c_float_complex),target :: alpha complex(c_float_complex),target,dimension(..) :: AP integer(c_int64_t) :: lda @@ -74754,18 +76183,43 @@ function hipblasCsymv_64_assumed_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,i complex(c_float_complex),target,dimension(..) :: y integer(c_int64_t) :: incy ! - hipblasCsymv_64_assumed_rank = hipblasCsymv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasCgbmv_64_assumed_rank = hipblasCgbmv_64_(handle,trans,m,n,kl,ku,c_loc(alpha), & + c_loc(AP),lda,c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasCgbmv_64_assumed_rank_devptr(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta, & + y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmv_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + ! + hipblasCgbmv_64_assumed_rank_devptr = hipblasCgbmv_64_(handle,trans,m,n,kl,ku,alpha, & + c_loc(AP),lda,c_loc(x),incx,beta,c_loc(y),incy) end function #else - function hipblasCsymv_64_rank_0(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasCgbmv_64_rank_0(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymv_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmv_64_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku complex(c_float_complex),target :: alpha complex(c_float_complex),target :: AP integer(c_int64_t) :: lda @@ -74775,17 +76229,41 @@ function hipblasCsymv_64_rank_0(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) complex(c_float_complex),target :: y integer(c_int64_t) :: incy ! - hipblasCsymv_64_rank_0 = hipblasCsymv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & - incx,c_loc(beta),c_loc(y),incy) + hipblasCgbmv_64_rank_0 = hipblasCgbmv_64_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) end function - function hipblasCsymv_64_rank_1(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasCgbmv_64_rank_0_devptr(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymv_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmv_64_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + type(c_ptr),value :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + ! + hipblasCgbmv_64_rank_0_devptr = hipblasCgbmv_64_(handle,trans,m,n,kl,ku,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) + end function + + function hipblasCgbmv_64_rank_1(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku complex(c_float_complex),target :: alpha complex(c_float_complex),target,dimension(:) :: AP integer(c_int64_t) :: lda @@ -74795,17 +76273,41 @@ function hipblasCsymv_64_rank_1(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) complex(c_float_complex),target,dimension(:) :: y integer(c_int64_t) :: incy ! - hipblasCsymv_64_rank_1 = hipblasCsymv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & - incx,c_loc(beta),c_loc(y),incy) + hipblasCgbmv_64_rank_1 = hipblasCgbmv_64_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) end function - function hipblasCsymv_64_full_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasCgbmv_64_rank_1_devptr(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymv_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmv_64_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasCgbmv_64_rank_1_devptr = hipblasCgbmv_64_(handle,trans,m,n,kl,ku,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) + end function + + function hipblasCgbmv_64_full_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmv_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku complex(c_float_complex),target :: alpha complex(c_float_complex),target,dimension(:,:) :: AP integer(c_int64_t) :: lda @@ -74815,19 +76317,44 @@ function hipblasCsymv_64_full_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy complex(c_float_complex),target,dimension(:) :: y integer(c_int64_t) :: incy ! - hipblasCsymv_64_full_rank = hipblasCsymv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasCgbmv_64_full_rank = hipblasCgbmv_64_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP), & + lda,c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasCgbmv_64_full_rank_devptr(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y, & + incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmv_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasCgbmv_64_full_rank_devptr = hipblasCgbmv_64_(handle,trans,m,n,kl,ku,alpha,c_loc(AP), & + lda,c_loc(x),incx,beta,c_loc(y),incy) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasZsymv_64_assumed_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasZgbmv_64_assumed_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymv_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmv_64_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku complex(c_double_complex),target :: alpha complex(c_double_complex),target,dimension(..) :: AP integer(c_int64_t) :: lda @@ -74837,18 +76364,43 @@ function hipblasZsymv_64_assumed_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,i complex(c_double_complex),target,dimension(..) :: y integer(c_int64_t) :: incy ! - hipblasZsymv_64_assumed_rank = hipblasZsymv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasZgbmv_64_assumed_rank = hipblasZgbmv_64_(handle,trans,m,n,kl,ku,c_loc(alpha), & + c_loc(AP),lda,c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasZgbmv_64_assumed_rank_devptr(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta, & + y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmv_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + ! + hipblasZgbmv_64_assumed_rank_devptr = hipblasZgbmv_64_(handle,trans,m,n,kl,ku,alpha, & + c_loc(AP),lda,c_loc(x),incx,beta,c_loc(y),incy) end function #else - function hipblasZsymv_64_rank_0(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasZgbmv_64_rank_0(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymv_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmv_64_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku complex(c_double_complex),target :: alpha complex(c_double_complex),target :: AP integer(c_int64_t) :: lda @@ -74858,17 +76410,41 @@ function hipblasZsymv_64_rank_0(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) complex(c_double_complex),target :: y integer(c_int64_t) :: incy ! - hipblasZsymv_64_rank_0 = hipblasZsymv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & - incx,c_loc(beta),c_loc(y),incy) + hipblasZgbmv_64_rank_0 = hipblasZgbmv_64_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) end function - function hipblasZsymv_64_rank_1(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasZgbmv_64_rank_0_devptr(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymv_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmv_64_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + type(c_ptr),value :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + ! + hipblasZgbmv_64_rank_0_devptr = hipblasZgbmv_64_(handle,trans,m,n,kl,ku,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) + end function + + function hipblasZgbmv_64_rank_1(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku complex(c_double_complex),target :: alpha complex(c_double_complex),target,dimension(:) :: AP integer(c_int64_t) :: lda @@ -74878,17 +76454,41 @@ function hipblasZsymv_64_rank_1(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) complex(c_double_complex),target,dimension(:) :: y integer(c_int64_t) :: incy ! - hipblasZsymv_64_rank_1 = hipblasZsymv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & - incx,c_loc(beta),c_loc(y),incy) + hipblasZgbmv_64_rank_1 = hipblasZgbmv_64_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) end function - function hipblasZsymv_64_full_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) - use iso_c_binding + function hipblasZgbmv_64_rank_1_devptr(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymv_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmv_64_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasZgbmv_64_rank_1_devptr = hipblasZgbmv_64_(handle,trans,m,n,kl,ku,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) + end function + + function hipblasZgbmv_64_full_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmv_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku complex(c_double_complex),target :: alpha complex(c_double_complex),target,dimension(:,:) :: AP integer(c_int64_t) :: lda @@ -74898,20 +76498,45 @@ function hipblasZsymv_64_full_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy complex(c_double_complex),target,dimension(:) :: y integer(c_int64_t) :: incy ! - hipblasZsymv_64_full_rank = hipblasZsymv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda, & - c_loc(x),incx,c_loc(beta),c_loc(y),incy) + hipblasZgbmv_64_full_rank = hipblasZgbmv_64_(handle,trans,m,n,kl,ku,c_loc(alpha),c_loc(AP), & + lda,c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasZgbmv_64_full_rank_devptr(handle,trans,m,n,kl,ku,alpha,AP,lda,x,incx,beta,y, & + incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmv_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasZgbmv_64_full_rank_devptr = hipblasZgbmv_64_(handle,trans,m,n,kl,ku,alpha,c_loc(AP), & + lda,c_loc(x),incx,beta,c_loc(y),incy) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasSsymvStridedBatched_assumed_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasSgbmvStridedBatched_assumed_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA, & + x,incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymvStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmvStridedBatched_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku real(c_float),target :: alpha real(c_float),target,dimension(..) :: AP integer(c_int) :: lda @@ -74925,20 +76550,50 @@ function hipblasSsymvStridedBatched_assumed_rank(handle,uplo,n,alpha,AP,lda,stri integer(c_int64_t) :: stridey integer(c_int) :: batchCount ! - hipblasSsymvStridedBatched_assumed_rank = hipblasSsymvStridedBatched_(handle,uplo,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + hipblasSgbmvStridedBatched_assumed_rank = hipblasSgbmvStridedBatched_(handle,trans,m,n,kl, & + ku,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & stridey,batchCount) end function + function hipblasSgbmvStridedBatched_assumed_rank_devptr(handle,trans,m,n,kl,ku,alpha,AP,lda, & + strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmvStridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_float),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasSgbmvStridedBatched_assumed_rank_devptr = hipblasSgbmvStridedBatched_(handle,trans,m, & + n,kl,ku,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey, & + batchCount) + end function + #else - function hipblasSsymvStridedBatched_rank_0(handle,uplo,n,alpha,AP,lda,strideA,x,incx,stridex, & - beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasSgbmvStridedBatched_rank_0(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymvStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmvStridedBatched_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku real(c_float),target :: alpha real(c_float),target :: AP integer(c_int) :: lda @@ -74952,45 +76607,50 @@ function hipblasSsymvStridedBatched_rank_0(handle,uplo,n,alpha,AP,lda,strideA,x, integer(c_int64_t) :: stridey integer(c_int) :: batchCount ! - hipblasSsymvStridedBatched_rank_0 = hipblasSsymvStridedBatched_(handle,uplo,n,c_loc(alpha), & - c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey,batchCount) + hipblasSgbmvStridedBatched_rank_0 = hipblasSgbmvStridedBatched_(handle,trans,m,n,kl,ku, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) end function - function hipblasSsymvStridedBatched_rank_1(handle,uplo,n,alpha,AP,lda,strideA,x,incx,stridex, & - beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasSgbmvStridedBatched_rank_0_devptr(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA, & + x,incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymvStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmvStridedBatched_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(:) :: AP + integer(c_int) :: kl + integer(c_int) :: ku + type(c_ptr),value :: alpha + real(c_float),target :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - real(c_float),target,dimension(:) :: x + real(c_float),target :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - real(c_float),target :: beta - real(c_float),target,dimension(:) :: y + type(c_ptr),value :: beta + real(c_float),target :: y integer(c_int) :: incy integer(c_int64_t) :: stridey integer(c_int) :: batchCount ! - hipblasSsymvStridedBatched_rank_1 = hipblasSsymvStridedBatched_(handle,uplo,n,c_loc(alpha), & - c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey,batchCount) + hipblasSgbmvStridedBatched_rank_0_devptr = hipblasSgbmvStridedBatched_(handle,trans,m,n,kl, & + ku,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) end function - function hipblasSsymvStridedBatched_full_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + function hipblasSgbmvStridedBatched_rank_1(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x,incx, & stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymvStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmvStridedBatched_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku real(c_float),target :: alpha - real(c_float),target,dimension(:,:) :: AP + real(c_float),target,dimension(:) :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA real(c_float),target,dimension(:) :: x @@ -75002,12318 +76662,65017 @@ function hipblasSsymvStridedBatched_full_rank(handle,uplo,n,alpha,AP,lda,strideA integer(c_int64_t) :: stridey integer(c_int) :: batchCount ! - hipblasSsymvStridedBatched_full_rank = hipblasSsymvStridedBatched_(handle,uplo,n, & + hipblasSgbmvStridedBatched_rank_1 = hipblasSgbmvStridedBatched_(handle,trans,m,n,kl,ku, & c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & stridey,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDsymvStridedBatched_assumed_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasSgbmvStridedBatched_rank_1_devptr(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA, & + x,incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymvStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmvStridedBatched_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(..) :: AP + integer(c_int) :: kl + integer(c_int) :: ku + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - real(c_double),target,dimension(..) :: x + real(c_float),target,dimension(:) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - real(c_double),target :: beta - real(c_double),target,dimension(..) :: y + type(c_ptr),value :: beta + real(c_float),target,dimension(:) :: y integer(c_int) :: incy integer(c_int64_t) :: stridey integer(c_int) :: batchCount ! - hipblasDsymvStridedBatched_assumed_rank = hipblasDsymvStridedBatched_(handle,uplo,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasSgbmvStridedBatched_rank_1_devptr = hipblasSgbmvStridedBatched_(handle,trans,m,n,kl, & + ku,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) end function -#else - function hipblasDsymvStridedBatched_rank_0(handle,uplo,n,alpha,AP,lda,strideA,x,incx,stridex, & - beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasSgbmvStridedBatched_full_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymvStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmvStridedBatched_full_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target :: AP + integer(c_int) :: kl + integer(c_int) :: ku + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - real(c_double),target :: x + real(c_float),target,dimension(:) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - real(c_double),target :: beta - real(c_double),target :: y + real(c_float),target :: beta + real(c_float),target,dimension(:) :: y integer(c_int) :: incy integer(c_int64_t) :: stridey integer(c_int) :: batchCount ! - hipblasDsymvStridedBatched_rank_0 = hipblasDsymvStridedBatched_(handle,uplo,n,c_loc(alpha), & - c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey,batchCount) + hipblasSgbmvStridedBatched_full_rank = hipblasSgbmvStridedBatched_(handle,trans,m,n,kl,ku, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) end function - function hipblasDsymvStridedBatched_rank_1(handle,uplo,n,alpha,AP,lda,strideA,x,incx,stridex, & - beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasSgbmvStridedBatched_full_rank_devptr(handle,trans,m,n,kl,ku,alpha,AP,lda, & + strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymvStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmvStridedBatched_full_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(:) :: AP + integer(c_int) :: kl + integer(c_int) :: ku + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:) :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - real(c_double),target,dimension(:) :: x + real(c_float),target,dimension(:) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - real(c_double),target :: beta - real(c_double),target,dimension(:) :: y + type(c_ptr),value :: beta + real(c_float),target,dimension(:) :: y integer(c_int) :: incy integer(c_int64_t) :: stridey integer(c_int) :: batchCount ! - hipblasDsymvStridedBatched_rank_1 = hipblasDsymvStridedBatched_(handle,uplo,n,c_loc(alpha), & - c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey,batchCount) + hipblasSgbmvStridedBatched_full_rank_devptr = hipblasSgbmvStridedBatched_(handle,trans,m,n, & + kl,ku,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey, & + batchCount) end function - function hipblasDsymvStridedBatched_full_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasSgbmvStridedBatched_strided_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA, & + x,incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymvStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmvStridedBatched_strided_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: kl + integer(c_int) :: ku + real(c_float),target :: alpha + real(c_float),target,dimension(:,:,:) :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - real(c_double),target,dimension(:) :: x + real(c_float),target,dimension(:,:) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - real(c_double),target :: beta - real(c_double),target,dimension(:) :: y + real(c_float),target :: beta + real(c_float),target,dimension(:,:) :: y integer(c_int) :: incy integer(c_int64_t) :: stridey integer(c_int) :: batchCount ! - hipblasDsymvStridedBatched_full_rank = hipblasDsymvStridedBatched_(handle,uplo,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + hipblasSgbmvStridedBatched_strided_rank = hipblasSgbmvStridedBatched_(handle,trans,m,n,kl, & + ku,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & stridey,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCsymvStridedBatched_assumed_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasSgbmvStridedBatched_strided_rank_devptr(handle,trans,m,n,kl,ku,alpha,AP,lda, & + strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymvStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmvStridedBatched_strided_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: kl + integer(c_int) :: ku + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:,:) :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(..) :: x + real(c_float),target,dimension(:,:) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(..) :: y + type(c_ptr),value :: beta + real(c_float),target,dimension(:,:) :: y integer(c_int) :: incy integer(c_int64_t) :: stridey integer(c_int) :: batchCount ! - hipblasCsymvStridedBatched_assumed_rank = hipblasCsymvStridedBatched_(handle,uplo,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasSgbmvStridedBatched_strided_rank_devptr = hipblasSgbmvStridedBatched_(handle,trans,m, & + n,kl,ku,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey, & + batchCount) end function -#else - function hipblasCsymvStridedBatched_rank_0(handle,uplo,n,alpha,AP,lda,strideA,x,incx,stridex, & - beta,y,incy,stridey,batchCount) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDgbmvStridedBatched_assumed_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA, & + x,incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymvStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmvStridedBatched_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: AP + integer(c_int) :: kl + integer(c_int) :: ku + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target :: x + real(c_double),target,dimension(..) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - complex(c_float_complex),target :: beta - complex(c_float_complex),target :: y + real(c_double),target :: beta + real(c_double),target,dimension(..) :: y integer(c_int) :: incy integer(c_int64_t) :: stridey integer(c_int) :: batchCount ! - hipblasCsymvStridedBatched_rank_0 = hipblasCsymvStridedBatched_(handle,uplo,n,c_loc(alpha), & - c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey,batchCount) + hipblasDgbmvStridedBatched_assumed_rank = hipblasDgbmvStridedBatched_(handle,trans,m,n,kl, & + ku,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) end function - function hipblasCsymvStridedBatched_rank_1(handle,uplo,n,alpha,AP,lda,strideA,x,incx,stridex, & - beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasDgbmvStridedBatched_assumed_rank_devptr(handle,trans,m,n,kl,ku,alpha,AP,lda, & + strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymvStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmvStridedBatched_assumed_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: kl + integer(c_int) :: ku + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:) :: x + real(c_double),target,dimension(..) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:) :: y + type(c_ptr),value :: beta + real(c_double),target,dimension(..) :: y integer(c_int) :: incy integer(c_int64_t) :: stridey integer(c_int) :: batchCount ! - hipblasCsymvStridedBatched_rank_1 = hipblasCsymvStridedBatched_(handle,uplo,n,c_loc(alpha), & - c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey,batchCount) + hipblasDgbmvStridedBatched_assumed_rank_devptr = hipblasDgbmvStridedBatched_(handle,trans,m, & + n,kl,ku,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey, & + batchCount) end function - function hipblasCsymvStridedBatched_full_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & +#else + function hipblasDgbmvStridedBatched_rank_0(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x,incx, & stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymvStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmvStridedBatched_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: kl + integer(c_int) :: ku + real(c_double),target :: alpha + real(c_double),target :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:) :: x + real(c_double),target :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:) :: y + real(c_double),target :: beta + real(c_double),target :: y integer(c_int) :: incy integer(c_int64_t) :: stridey integer(c_int) :: batchCount ! - hipblasCsymvStridedBatched_full_rank = hipblasCsymvStridedBatched_(handle,uplo,n, & + hipblasDgbmvStridedBatched_rank_0 = hipblasDgbmvStridedBatched_(handle,trans,m,n,kl,ku, & c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & stridey,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZsymvStridedBatched_assumed_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasDgbmvStridedBatched_rank_0_devptr(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA, & + x,incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymvStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmvStridedBatched_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: kl + integer(c_int) :: ku + type(c_ptr),value :: alpha + real(c_double),target :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(..) :: x + real(c_double),target :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(..) :: y + type(c_ptr),value :: beta + real(c_double),target :: y integer(c_int) :: incy integer(c_int64_t) :: stridey integer(c_int) :: batchCount ! - hipblasZsymvStridedBatched_assumed_rank = hipblasZsymvStridedBatched_(handle,uplo,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasDgbmvStridedBatched_rank_0_devptr = hipblasDgbmvStridedBatched_(handle,trans,m,n,kl, & + ku,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) end function -#else - function hipblasZsymvStridedBatched_rank_0(handle,uplo,n,alpha,AP,lda,strideA,x,incx,stridex, & - beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasDgbmvStridedBatched_rank_1(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymvStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmvStridedBatched_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: AP + integer(c_int) :: kl + integer(c_int) :: ku + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target :: x + real(c_double),target,dimension(:) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - complex(c_double_complex),target :: beta - complex(c_double_complex),target :: y + real(c_double),target :: beta + real(c_double),target,dimension(:) :: y integer(c_int) :: incy integer(c_int64_t) :: stridey integer(c_int) :: batchCount ! - hipblasZsymvStridedBatched_rank_0 = hipblasZsymvStridedBatched_(handle,uplo,n,c_loc(alpha), & - c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey,batchCount) + hipblasDgbmvStridedBatched_rank_1 = hipblasDgbmvStridedBatched_(handle,trans,m,n,kl,ku, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) end function - function hipblasZsymvStridedBatched_rank_1(handle,uplo,n,alpha,AP,lda,strideA,x,incx,stridex, & - beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasDgbmvStridedBatched_rank_1_devptr(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA, & + x,incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymvStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmvStridedBatched_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: kl + integer(c_int) :: ku + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:) :: x + real(c_double),target,dimension(:) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:) :: y + type(c_ptr),value :: beta + real(c_double),target,dimension(:) :: y integer(c_int) :: incy integer(c_int64_t) :: stridey integer(c_int) :: batchCount ! - hipblasZsymvStridedBatched_rank_1 = hipblasZsymvStridedBatched_(handle,uplo,n,c_loc(alpha), & - c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey,batchCount) + hipblasDgbmvStridedBatched_rank_1_devptr = hipblasDgbmvStridedBatched_(handle,trans,m,n,kl, & + ku,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) end function - function hipblasZsymvStridedBatched_full_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasDgbmvStridedBatched_full_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymvStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmvStridedBatched_full_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: kl + integer(c_int) :: ku + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:) :: x + real(c_double),target,dimension(:) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:) :: y + real(c_double),target :: beta + real(c_double),target,dimension(:) :: y integer(c_int) :: incy integer(c_int64_t) :: stridey integer(c_int) :: batchCount ! - hipblasZsymvStridedBatched_full_rank = hipblasZsymvStridedBatched_(handle,uplo,n, & + hipblasDgbmvStridedBatched_full_rank = hipblasDgbmvStridedBatched_(handle,trans,m,n,kl,ku, & c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & stridey,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasSsymvStridedBatched_64_assumed_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasDgbmvStridedBatched_full_rank_devptr(handle,trans,m,n,kl,ku,alpha,AP,lda, & + strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymvStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmvStridedBatched_full_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(..) :: AP - integer(c_int64_t) :: lda + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda integer(c_int64_t) :: strideA - real(c_float),target,dimension(..) :: x - integer(c_int64_t) :: incx + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx integer(c_int64_t) :: stridex - real(c_float),target :: beta - real(c_float),target,dimension(..) :: y - integer(c_int64_t) :: incy + type(c_ptr),value :: beta + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount + integer(c_int) :: batchCount ! - hipblasSsymvStridedBatched_64_assumed_rank = hipblasSsymvStridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasDgbmvStridedBatched_full_rank_devptr = hipblasDgbmvStridedBatched_(handle,trans,m,n, & + kl,ku,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey, & + batchCount) end function -#else - function hipblasSsymvStridedBatched_64_rank_0(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasDgbmvStridedBatched_strided_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA, & + x,incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymvStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmvStridedBatched_strided_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - real(c_float),target :: alpha - real(c_float),target :: AP - integer(c_int64_t) :: lda + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku + real(c_double),target :: alpha + real(c_double),target,dimension(:,:,:) :: AP + integer(c_int) :: lda integer(c_int64_t) :: strideA - real(c_float),target :: x - integer(c_int64_t) :: incx + real(c_double),target,dimension(:,:) :: x + integer(c_int) :: incx integer(c_int64_t) :: stridex - real(c_float),target :: beta - real(c_float),target :: y - integer(c_int64_t) :: incy + real(c_double),target :: beta + real(c_double),target,dimension(:,:) :: y + integer(c_int) :: incy integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount + integer(c_int) :: batchCount ! - hipblasSsymvStridedBatched_64_rank_0 = hipblasSsymvStridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + hipblasDgbmvStridedBatched_strided_rank = hipblasDgbmvStridedBatched_(handle,trans,m,n,kl, & + ku,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & stridey,batchCount) end function - function hipblasSsymvStridedBatched_64_rank_1(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasDgbmvStridedBatched_strided_rank_devptr(handle,trans,m,n,kl,ku,alpha,AP,lda, & + strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymvStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmvStridedBatched_strided_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(:) :: AP - integer(c_int64_t) :: lda + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:,:) :: AP + integer(c_int) :: lda integer(c_int64_t) :: strideA - real(c_float),target,dimension(:) :: x - integer(c_int64_t) :: incx + real(c_double),target,dimension(:,:) :: x + integer(c_int) :: incx integer(c_int64_t) :: stridex - real(c_float),target :: beta - real(c_float),target,dimension(:) :: y - integer(c_int64_t) :: incy + type(c_ptr),value :: beta + real(c_double),target,dimension(:,:) :: y + integer(c_int) :: incy integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount + integer(c_int) :: batchCount ! - hipblasSsymvStridedBatched_64_rank_1 = hipblasSsymvStridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasDgbmvStridedBatched_strided_rank_devptr = hipblasDgbmvStridedBatched_(handle,trans,m, & + n,kl,ku,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey, & + batchCount) end function - function hipblasSsymvStridedBatched_64_full_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCgbmvStridedBatched_assumed_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA, & + x,incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymvStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmvStridedBatched_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda integer(c_int64_t) :: strideA - real(c_float),target,dimension(:) :: x - integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx integer(c_int64_t) :: stridex - real(c_float),target :: beta - real(c_float),target,dimension(:) :: y - integer(c_int64_t) :: incy + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount + integer(c_int) :: batchCount ! - hipblasSsymvStridedBatched_64_full_rank = hipblasSsymvStridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + hipblasCgbmvStridedBatched_assumed_rank = hipblasCgbmvStridedBatched_(handle,trans,m,n,kl, & + ku,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & stridey,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDsymvStridedBatched_64_assumed_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasCgbmvStridedBatched_assumed_rank_devptr(handle,trans,m,n,kl,ku,alpha,AP,lda, & + strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymvStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmvStridedBatched_assumed_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(..) :: AP - integer(c_int64_t) :: lda + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda integer(c_int64_t) :: strideA - real(c_double),target,dimension(..) :: x - integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx integer(c_int64_t) :: stridex - real(c_double),target :: beta - real(c_double),target,dimension(..) :: y - integer(c_int64_t) :: incy + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount + integer(c_int) :: batchCount ! - hipblasDsymvStridedBatched_64_assumed_rank = hipblasDsymvStridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasCgbmvStridedBatched_assumed_rank_devptr = hipblasCgbmvStridedBatched_(handle,trans,m, & + n,kl,ku,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey, & + batchCount) end function #else - function hipblasDsymvStridedBatched_64_rank_0(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + function hipblasCgbmvStridedBatched_rank_0(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x,incx, & stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymvStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmvStridedBatched_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - real(c_double),target :: alpha - real(c_double),target :: AP - integer(c_int64_t) :: lda + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda integer(c_int64_t) :: strideA - real(c_double),target :: x - integer(c_int64_t) :: incx + complex(c_float_complex),target :: x + integer(c_int) :: incx integer(c_int64_t) :: stridex - real(c_double),target :: beta - real(c_double),target :: y - integer(c_int64_t) :: incy + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: y + integer(c_int) :: incy integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount + integer(c_int) :: batchCount ! - hipblasDsymvStridedBatched_64_rank_0 = hipblasDsymvStridedBatched_64_(handle,uplo,n, & + hipblasCgbmvStridedBatched_rank_0 = hipblasCgbmvStridedBatched_(handle,trans,m,n,kl,ku, & c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & stridey,batchCount) end function - function hipblasDsymvStridedBatched_64_rank_1(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasCgbmvStridedBatched_rank_0_devptr(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA, & + x,incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymvStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmvStridedBatched_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(:) :: AP - integer(c_int64_t) :: lda + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku + type(c_ptr),value :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda integer(c_int64_t) :: strideA - real(c_double),target,dimension(:) :: x - integer(c_int64_t) :: incx + complex(c_float_complex),target :: x + integer(c_int) :: incx integer(c_int64_t) :: stridex - real(c_double),target :: beta - real(c_double),target,dimension(:) :: y - integer(c_int64_t) :: incy + type(c_ptr),value :: beta + complex(c_float_complex),target :: y + integer(c_int) :: incy integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount + integer(c_int) :: batchCount ! - hipblasDsymvStridedBatched_64_rank_1 = hipblasDsymvStridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasCgbmvStridedBatched_rank_0_devptr = hipblasCgbmvStridedBatched_(handle,trans,m,n,kl, & + ku,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) end function - function hipblasDsymvStridedBatched_64_full_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + function hipblasCgbmvStridedBatched_rank_1(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x,incx, & stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymvStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmvStridedBatched_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - real(c_double),target,dimension(:) :: x - integer(c_int64_t) :: incx + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx integer(c_int64_t) :: stridex - real(c_double),target :: beta - real(c_double),target,dimension(:) :: y - integer(c_int64_t) :: incy + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount + integer(c_int) :: batchCount ! - hipblasDsymvStridedBatched_64_full_rank = hipblasDsymvStridedBatched_64_(handle,uplo,n, & + hipblasCgbmvStridedBatched_rank_1 = hipblasCgbmvStridedBatched_(handle,trans,m,n,kl,ku, & c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & stridey,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCsymvStridedBatched_64_assumed_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasCgbmvStridedBatched_rank_1_devptr(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA, & + x,incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymvStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmvStridedBatched_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: AP - integer(c_int64_t) :: lda + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(..) :: x - integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx integer(c_int64_t) :: stridex - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(..) :: y - integer(c_int64_t) :: incy + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount + integer(c_int) :: batchCount ! - hipblasCsymvStridedBatched_64_assumed_rank = hipblasCsymvStridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasCgbmvStridedBatched_rank_1_devptr = hipblasCgbmvStridedBatched_(handle,trans,m,n,kl, & + ku,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) end function -#else - function hipblasCsymvStridedBatched_64_rank_0(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasCgbmvStridedBatched_full_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymvStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmvStridedBatched_full_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: AP - integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target :: x - integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx integer(c_int64_t) :: stridex complex(c_float_complex),target :: beta - complex(c_float_complex),target :: y - integer(c_int64_t) :: incy + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount + integer(c_int) :: batchCount ! - hipblasCsymvStridedBatched_64_rank_0 = hipblasCsymvStridedBatched_64_(handle,uplo,n, & + hipblasCgbmvStridedBatched_full_rank = hipblasCgbmvStridedBatched_(handle,trans,m,n,kl,ku, & c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & stridey,batchCount) end function - function hipblasCsymvStridedBatched_64_rank_1(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasCgbmvStridedBatched_full_rank_devptr(handle,trans,m,n,kl,ku,alpha,AP,lda, & + strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymvStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmvStridedBatched_full_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: AP - integer(c_int64_t) :: lda + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda integer(c_int64_t) :: strideA complex(c_float_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx + integer(c_int) :: incx integer(c_int64_t) :: stridex - complex(c_float_complex),target :: beta + type(c_ptr),value :: beta complex(c_float_complex),target,dimension(:) :: y - integer(c_int64_t) :: incy + integer(c_int) :: incy integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount + integer(c_int) :: batchCount ! - hipblasCsymvStridedBatched_64_rank_1 = hipblasCsymvStridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasCgbmvStridedBatched_full_rank_devptr = hipblasCgbmvStridedBatched_(handle,trans,m,n, & + kl,ku,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey, & + batchCount) end function - function hipblasCsymvStridedBatched_64_full_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasCgbmvStridedBatched_strided_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA, & + x,incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymvStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmvStridedBatched_strided_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int) :: incx integer(c_int64_t) :: stridex complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:) :: y - integer(c_int64_t) :: incy + complex(c_float_complex),target,dimension(:,:) :: y + integer(c_int) :: incy integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount + integer(c_int) :: batchCount ! - hipblasCsymvStridedBatched_64_full_rank = hipblasCsymvStridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + hipblasCgbmvStridedBatched_strided_rank = hipblasCgbmvStridedBatched_(handle,trans,m,n,kl, & + ku,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & stridey,batchCount) end function + function hipblasCgbmvStridedBatched_strided_rank_devptr(handle,trans,m,n,kl,ku,alpha,AP,lda, & + strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmvStridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasCgbmvStridedBatched_strided_rank_devptr = hipblasCgbmvStridedBatched_(handle,trans,m, & + n,kl,ku,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey, & + batchCount) + end function + #endif #ifdef USE_ASSUMED_RANK - function hipblasZsymvStridedBatched_64_assumed_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasZgbmvStridedBatched_assumed_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA, & + x,incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymvStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmvStridedBatched_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku complex(c_double_complex),target :: alpha complex(c_double_complex),target,dimension(..) :: AP - integer(c_int64_t) :: lda + integer(c_int) :: lda integer(c_int64_t) :: strideA complex(c_double_complex),target,dimension(..) :: x - integer(c_int64_t) :: incx + integer(c_int) :: incx integer(c_int64_t) :: stridex complex(c_double_complex),target :: beta complex(c_double_complex),target,dimension(..) :: y - integer(c_int64_t) :: incy + integer(c_int) :: incy integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount + integer(c_int) :: batchCount ! - hipblasZsymvStridedBatched_64_assumed_rank = hipblasZsymvStridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + hipblasZgbmvStridedBatched_assumed_rank = hipblasZgbmvStridedBatched_(handle,trans,m,n,kl, & + ku,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & stridey,batchCount) end function + function hipblasZgbmvStridedBatched_assumed_rank_devptr(handle,trans,m,n,kl,ku,alpha,AP,lda, & + strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmvStridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZgbmvStridedBatched_assumed_rank_devptr = hipblasZgbmvStridedBatched_(handle,trans,m, & + n,kl,ku,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey, & + batchCount) + end function + #else - function hipblasZsymvStridedBatched_64_rank_0(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + function hipblasZgbmvStridedBatched_rank_0(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x,incx, & stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymvStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmvStridedBatched_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku complex(c_double_complex),target :: alpha complex(c_double_complex),target :: AP - integer(c_int64_t) :: lda + integer(c_int) :: lda integer(c_int64_t) :: strideA complex(c_double_complex),target :: x - integer(c_int64_t) :: incx + integer(c_int) :: incx integer(c_int64_t) :: stridex complex(c_double_complex),target :: beta complex(c_double_complex),target :: y - integer(c_int64_t) :: incy + integer(c_int) :: incy integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount + integer(c_int) :: batchCount ! - hipblasZsymvStridedBatched_64_rank_0 = hipblasZsymvStridedBatched_64_(handle,uplo,n, & + hipblasZgbmvStridedBatched_rank_0 = hipblasZgbmvStridedBatched_(handle,trans,m,n,kl,ku, & c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & stridey,batchCount) end function - function hipblasZsymvStridedBatched_64_rank_1(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + function hipblasZgbmvStridedBatched_rank_0_devptr(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA, & + x,incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmvStridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku + type(c_ptr),value :: alpha + complex(c_double_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_double_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZgbmvStridedBatched_rank_0_devptr = hipblasZgbmvStridedBatched_(handle,trans,m,n,kl, & + ku,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasZgbmvStridedBatched_rank_1(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x,incx, & stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymvStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmvStridedBatched_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku complex(c_double_complex),target :: alpha complex(c_double_complex),target,dimension(:) :: AP - integer(c_int64_t) :: lda + integer(c_int) :: lda integer(c_int64_t) :: strideA complex(c_double_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx + integer(c_int) :: incx integer(c_int64_t) :: stridex complex(c_double_complex),target :: beta complex(c_double_complex),target,dimension(:) :: y - integer(c_int64_t) :: incy + integer(c_int) :: incy integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount + integer(c_int) :: batchCount ! - hipblasZsymvStridedBatched_64_rank_1 = hipblasZsymvStridedBatched_64_(handle,uplo,n, & + hipblasZgbmvStridedBatched_rank_1 = hipblasZgbmvStridedBatched_(handle,trans,m,n,kl,ku, & c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & stridey,batchCount) end function - function hipblasZsymvStridedBatched_64_full_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & - stridex,beta,y,incy,stridey,batchCount) - use iso_c_binding + function hipblasZgbmvStridedBatched_rank_1_devptr(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA, & + x,incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymvStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmvStridedBatched_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: kl + integer(c_int) :: ku + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda integer(c_int64_t) :: strideA complex(c_double_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx + integer(c_int) :: incx integer(c_int64_t) :: stridex - complex(c_double_complex),target :: beta + type(c_ptr),value :: beta complex(c_double_complex),target,dimension(:) :: y - integer(c_int64_t) :: incy + integer(c_int) :: incy integer(c_int64_t) :: stridey - integer(c_int64_t) :: batchCount + integer(c_int) :: batchCount ! - hipblasZsymvStridedBatched_64_full_rank = hipblasZsymvStridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & - stridey,batchCount) + hipblasZgbmvStridedBatched_rank_1_devptr = hipblasZgbmvStridedBatched_(handle,trans,m,n,kl, & + ku,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasSsyr_assumed_rank(handle,uplo,n,alpha,x,incx,AP,lda) - use iso_c_binding + function hipblasZgbmvStridedBatched_full_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmvStridedBatched_full_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(..) :: x - integer(c_int) :: incx - real(c_float),target,dimension(..) :: AP + integer(c_int) :: kl + integer(c_int) :: ku + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount ! - hipblasSsyr_assumed_rank = hipblasSsyr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP), & - lda) + hipblasZgbmvStridedBatched_full_rank = hipblasZgbmvStridedBatched_(handle,trans,m,n,kl,ku, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) end function -#else - function hipblasSsyr_rank_0(handle,uplo,n,alpha,x,incx,AP,lda) - use iso_c_binding + function hipblasZgbmvStridedBatched_full_rank_devptr(handle,trans,m,n,kl,ku,alpha,AP,lda, & + strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmvStridedBatched_full_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target :: x - integer(c_int) :: incx - real(c_float),target :: AP + integer(c_int) :: kl + integer(c_int) :: ku + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount ! - hipblasSsyr_rank_0 = hipblasSsyr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP),lda) + hipblasZgbmvStridedBatched_full_rank_devptr = hipblasZgbmvStridedBatched_(handle,trans,m,n, & + kl,ku,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey, & + batchCount) end function - function hipblasSsyr_rank_1(handle,uplo,n,alpha,x,incx,AP,lda) - use iso_c_binding + function hipblasZgbmvStridedBatched_strided_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA, & + x,incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmvStridedBatched_strided_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(:) :: x - integer(c_int) :: incx - real(c_float),target,dimension(:) :: AP + integer(c_int) :: kl + integer(c_int) :: ku + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:,:) :: AP integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount ! - hipblasSsyr_rank_1 = hipblasSsyr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP),lda) + hipblasZgbmvStridedBatched_strided_rank = hipblasZgbmvStridedBatched_(handle,trans,m,n,kl, & + ku,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) end function - function hipblasSsyr_full_rank(handle,uplo,n,alpha,x,incx,AP,lda) - use iso_c_binding + function hipblasZgbmvStridedBatched_strided_rank_devptr(handle,trans,m,n,kl,ku,alpha,AP,lda, & + strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmvStridedBatched_strided_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(:) :: x - integer(c_int) :: incx - real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: kl + integer(c_int) :: ku + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:,:) :: AP integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount ! - hipblasSsyr_full_rank = hipblasSsyr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP),lda) + hipblasZgbmvStridedBatched_strided_rank_devptr = hipblasZgbmvStridedBatched_(handle,trans,m, & + n,kl,ku,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey, & + batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasDsyr_assumed_rank(handle,uplo,n,alpha,x,incx,AP,lda) - use iso_c_binding + function hipblasSgbmvStridedBatched_64_assumed_rank(handle,trans,m,n,kl,ku,alpha,AP,lda, & + strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmvStridedBatched_64_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(..) :: x - integer(c_int) :: incx - real(c_double),target,dimension(..) :: AP - integer(c_int) :: lda + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasDsyr_assumed_rank = hipblasDsyr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP), & - lda) + hipblasSgbmvStridedBatched_64_assumed_rank = hipblasSgbmvStridedBatched_64_(handle,trans,m, & + n,kl,ku,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y), & + incy,stridey,batchCount) end function -#else - function hipblasDsyr_rank_0(handle,uplo,n,alpha,x,incx,AP,lda) - use iso_c_binding + function hipblasSgbmvStridedBatched_64_assumed_rank_devptr(handle,trans,m,n,kl,ku,alpha,AP, & + lda,strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmvStridedBatched_64_assumed_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target :: x - integer(c_int) :: incx - real(c_double),target :: AP - integer(c_int) :: lda + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasDsyr_rank_0 = hipblasDsyr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP),lda) + hipblasSgbmvStridedBatched_64_assumed_rank_devptr = hipblasSgbmvStridedBatched_64_(handle, & + trans,m,n,kl,ku,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy, & + stridey,batchCount) end function - function hipblasDsyr_rank_1(handle,uplo,n,alpha,x,incx,AP,lda) - use iso_c_binding +#else + function hipblasSgbmvStridedBatched_64_rank_0(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmvStridedBatched_64_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(:) :: x - integer(c_int) :: incx - real(c_double),target,dimension(:) :: AP - integer(c_int) :: lda + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasDsyr_rank_1 = hipblasDsyr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP),lda) + hipblasSgbmvStridedBatched_64_rank_0 = hipblasSgbmvStridedBatched_64_(handle,trans,m,n,kl, & + ku,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) end function - function hipblasDsyr_full_rank(handle,uplo,n,alpha,x,incx,AP,lda) - use iso_c_binding + function hipblasSgbmvStridedBatched_64_rank_0_devptr(handle,trans,m,n,kl,ku,alpha,AP,lda, & + strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmvStridedBatched_64_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(:) :: x - integer(c_int) :: incx - real(c_double),target,dimension(:,:) :: AP - integer(c_int) :: lda + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + type(c_ptr),value :: alpha + real(c_float),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_float),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasDsyr_full_rank = hipblasDsyr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP),lda) + hipblasSgbmvStridedBatched_64_rank_0_devptr = hipblasSgbmvStridedBatched_64_(handle,trans,m, & + n,kl,ku,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey, & + batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCsyr_assumed_rank(handle,uplo,n,alpha,x,incx,AP,lda) - use iso_c_binding + function hipblasSgbmvStridedBatched_64_rank_1(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmvStridedBatched_64_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: x - integer(c_int) :: incx - complex(c_float_complex),target,dimension(..) :: AP - integer(c_int) :: lda + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasCsyr_assumed_rank = hipblasCsyr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP), & - lda) + hipblasSgbmvStridedBatched_64_rank_1 = hipblasSgbmvStridedBatched_64_(handle,trans,m,n,kl, & + ku,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) end function -#else - function hipblasCsyr_rank_0(handle,uplo,n,alpha,x,incx,AP,lda) - use iso_c_binding + function hipblasSgbmvStridedBatched_64_rank_1_devptr(handle,trans,m,n,kl,ku,alpha,AP,lda, & + strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmvStridedBatched_64_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: x - integer(c_int) :: incx - complex(c_float_complex),target :: AP - integer(c_int) :: lda + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasCsyr_rank_0 = hipblasCsyr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP),lda) + hipblasSgbmvStridedBatched_64_rank_1_devptr = hipblasSgbmvStridedBatched_64_(handle,trans,m, & + n,kl,ku,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey, & + batchCount) end function - function hipblasCsyr_rank_1(handle,uplo,n,alpha,x,incx,AP,lda) - use iso_c_binding + function hipblasSgbmvStridedBatched_64_full_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA, & + x,incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmvStridedBatched_64_full_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: x - integer(c_int) :: incx - complex(c_float_complex),target,dimension(:) :: AP - integer(c_int) :: lda + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasCsyr_rank_1 = hipblasCsyr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP),lda) + hipblasSgbmvStridedBatched_64_full_rank = hipblasSgbmvStridedBatched_64_(handle,trans,m,n, & + kl,ku,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) end function - function hipblasCsyr_full_rank(handle,uplo,n,alpha,x,incx,AP,lda) - use iso_c_binding + function hipblasSgbmvStridedBatched_64_full_rank_devptr(handle,trans,m,n,kl,ku,alpha,AP,lda, & + strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmvStridedBatched_64_full_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: x - integer(c_int) :: incx - complex(c_float_complex),target,dimension(:,:) :: AP - integer(c_int) :: lda + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasCsyr_full_rank = hipblasCsyr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP),lda) + hipblasSgbmvStridedBatched_64_full_rank_devptr = hipblasSgbmvStridedBatched_64_(handle, & + trans,m,n,kl,ku,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy, & + stridey,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZsyr_assumed_rank(handle,uplo,n,alpha,x,incx,AP,lda) - use iso_c_binding + function hipblasSgbmvStridedBatched_64_strided_rank(handle,trans,m,n,kl,ku,alpha,AP,lda, & + strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmvStridedBatched_64_strided_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: x - integer(c_int) :: incx - complex(c_double_complex),target,dimension(..) :: AP - integer(c_int) :: lda + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + real(c_float),target :: alpha + real(c_float),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasZsyr_assumed_rank = hipblasZsyr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP), & - lda) + hipblasSgbmvStridedBatched_64_strided_rank = hipblasSgbmvStridedBatched_64_(handle,trans,m, & + n,kl,ku,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y), & + incy,stridey,batchCount) end function -#else - function hipblasZsyr_rank_0(handle,uplo,n,alpha,x,incx,AP,lda) - use iso_c_binding + function hipblasSgbmvStridedBatched_64_strided_rank_devptr(handle,trans,m,n,kl,ku,alpha,AP, & + lda,strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgbmvStridedBatched_64_strided_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: x - integer(c_int) :: incx - complex(c_double_complex),target :: AP - integer(c_int) :: lda + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_float),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasZsyr_rank_0 = hipblasZsyr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP),lda) + hipblasSgbmvStridedBatched_64_strided_rank_devptr = hipblasSgbmvStridedBatched_64_(handle, & + trans,m,n,kl,ku,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy, & + stridey,batchCount) end function - function hipblasZsyr_rank_1(handle,uplo,n,alpha,x,incx,AP,lda) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDgbmvStridedBatched_64_assumed_rank(handle,trans,m,n,kl,ku,alpha,AP,lda, & + strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmvStridedBatched_64_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: x - integer(c_int) :: incx - complex(c_double_complex),target,dimension(:) :: AP - integer(c_int) :: lda + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasZsyr_rank_1 = hipblasZsyr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP),lda) + hipblasDgbmvStridedBatched_64_assumed_rank = hipblasDgbmvStridedBatched_64_(handle,trans,m, & + n,kl,ku,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y), & + incy,stridey,batchCount) end function - function hipblasZsyr_full_rank(handle,uplo,n,alpha,x,incx,AP,lda) - use iso_c_binding + function hipblasDgbmvStridedBatched_64_assumed_rank_devptr(handle,trans,m,n,kl,ku,alpha,AP, & + lda,strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmvStridedBatched_64_assumed_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: x - integer(c_int) :: incx - complex(c_double_complex),target,dimension(:,:) :: AP - integer(c_int) :: lda + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasZsyr_full_rank = hipblasZsyr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP),lda) + hipblasDgbmvStridedBatched_64_assumed_rank_devptr = hipblasDgbmvStridedBatched_64_(handle, & + trans,m,n,kl,ku,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy, & + stridey,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasSsyr_64_assumed_rank(handle,uplo,n,alpha,x,incx,AP,lda) - use iso_c_binding +#else + function hipblasDgbmvStridedBatched_64_rank_0(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmvStridedBatched_64_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m integer(c_int64_t) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(..) :: x - integer(c_int64_t) :: incx - real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + real(c_double),target :: alpha + real(c_double),target :: AP integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasSsyr_64_assumed_rank = hipblasSsyr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & - c_loc(AP),lda) + hipblasDgbmvStridedBatched_64_rank_0 = hipblasDgbmvStridedBatched_64_(handle,trans,m,n,kl, & + ku,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) end function -#else - function hipblasSsyr_64_rank_0(handle,uplo,n,alpha,x,incx,AP,lda) - use iso_c_binding + function hipblasDgbmvStridedBatched_64_rank_0_devptr(handle,trans,m,n,kl,ku,alpha,AP,lda, & + strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmvStridedBatched_64_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m integer(c_int64_t) :: n - real(c_float),target :: alpha - real(c_float),target :: x - integer(c_int64_t) :: incx - real(c_float),target :: AP + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + type(c_ptr),value :: alpha + real(c_double),target :: AP integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_double),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasSsyr_64_rank_0 = hipblasSsyr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP), & - lda) + hipblasDgbmvStridedBatched_64_rank_0_devptr = hipblasDgbmvStridedBatched_64_(handle,trans,m, & + n,kl,ku,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey, & + batchCount) end function - function hipblasSsyr_64_rank_1(handle,uplo,n,alpha,x,incx,AP,lda) - use iso_c_binding + function hipblasDgbmvStridedBatched_64_rank_1(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmvStridedBatched_64_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m integer(c_int64_t) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(:) :: x - integer(c_int64_t) :: incx - real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasSsyr_64_rank_1 = hipblasSsyr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP), & - lda) + hipblasDgbmvStridedBatched_64_rank_1 = hipblasDgbmvStridedBatched_64_(handle,trans,m,n,kl, & + ku,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) end function - function hipblasSsyr_64_full_rank(handle,uplo,n,alpha,x,incx,AP,lda) - use iso_c_binding + function hipblasDgbmvStridedBatched_64_rank_1_devptr(handle,trans,m,n,kl,ku,alpha,AP,lda, & + strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmvStridedBatched_64_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m integer(c_int64_t) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(:) :: x - integer(c_int64_t) :: incx - real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: AP integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasSsyr_64_full_rank = hipblasSsyr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & - c_loc(AP),lda) + hipblasDgbmvStridedBatched_64_rank_1_devptr = hipblasDgbmvStridedBatched_64_(handle,trans,m, & + n,kl,ku,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey, & + batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDsyr_64_assumed_rank(handle,uplo,n,alpha,x,incx,AP,lda) - use iso_c_binding + function hipblasDgbmvStridedBatched_64_full_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA, & + x,incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmvStridedBatched_64_full_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku real(c_double),target :: alpha - real(c_double),target,dimension(..) :: x - integer(c_int64_t) :: incx - real(c_double),target,dimension(..) :: AP + real(c_double),target,dimension(:,:) :: AP integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasDsyr_64_assumed_rank = hipblasDsyr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & - c_loc(AP),lda) + hipblasDgbmvStridedBatched_64_full_rank = hipblasDgbmvStridedBatched_64_(handle,trans,m,n, & + kl,ku,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) end function -#else - function hipblasDsyr_64_rank_0(handle,uplo,n,alpha,x,incx,AP,lda) - use iso_c_binding + function hipblasDgbmvStridedBatched_64_full_rank_devptr(handle,trans,m,n,kl,ku,alpha,AP,lda, & + strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmvStridedBatched_64_full_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m integer(c_int64_t) :: n - real(c_double),target :: alpha - real(c_double),target :: x - integer(c_int64_t) :: incx - real(c_double),target :: AP + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:) :: AP integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasDsyr_64_rank_0 = hipblasDsyr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP), & - lda) + hipblasDgbmvStridedBatched_64_full_rank_devptr = hipblasDgbmvStridedBatched_64_(handle, & + trans,m,n,kl,ku,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy, & + stridey,batchCount) end function - function hipblasDsyr_64_rank_1(handle,uplo,n,alpha,x,incx,AP,lda) - use iso_c_binding + function hipblasDgbmvStridedBatched_64_strided_rank(handle,trans,m,n,kl,ku,alpha,AP,lda, & + strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmvStridedBatched_64_strided_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku real(c_double),target :: alpha - real(c_double),target,dimension(:) :: x - integer(c_int64_t) :: incx - real(c_double),target,dimension(:) :: AP + real(c_double),target,dimension(:,:,:) :: AP integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasDsyr_64_rank_1 = hipblasDsyr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP), & - lda) + hipblasDgbmvStridedBatched_64_strided_rank = hipblasDgbmvStridedBatched_64_(handle,trans,m, & + n,kl,ku,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y), & + incy,stridey,batchCount) end function - function hipblasDsyr_64_full_rank(handle,uplo,n,alpha,x,incx,AP,lda) - use iso_c_binding + function hipblasDgbmvStridedBatched_64_strided_rank_devptr(handle,trans,m,n,kl,ku,alpha,AP, & + lda,strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgbmvStridedBatched_64_strided_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m integer(c_int64_t) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(:) :: x - integer(c_int64_t) :: incx - real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:,:) :: AP integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_double),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasDsyr_64_full_rank = hipblasDsyr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & - c_loc(AP),lda) + hipblasDgbmvStridedBatched_64_strided_rank_devptr = hipblasDgbmvStridedBatched_64_(handle, & + trans,m,n,kl,ku,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy, & + stridey,batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCsyr_64_assumed_rank(handle,uplo,n,alpha,x,incx,AP,lda) - use iso_c_binding + function hipblasCgbmvStridedBatched_64_assumed_rank(handle,trans,m,n,kl,ku,alpha,AP,lda, & + strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmvStridedBatched_64_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: x - integer(c_int64_t) :: incx complex(c_float_complex),target,dimension(..) :: AP integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasCsyr_64_assumed_rank = hipblasCsyr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & - c_loc(AP),lda) + hipblasCgbmvStridedBatched_64_assumed_rank = hipblasCgbmvStridedBatched_64_(handle,trans,m, & + n,kl,ku,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y), & + incy,stridey,batchCount) end function -#else - function hipblasCsyr_64_rank_0(handle,uplo,n,alpha,x,incx,AP,lda) - use iso_c_binding + function hipblasCgbmvStridedBatched_64_assumed_rank_devptr(handle,trans,m,n,kl,ku,alpha,AP, & + lda,strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmvStridedBatched_64_assumed_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasCgbmvStridedBatched_64_assumed_rank_devptr = hipblasCgbmvStridedBatched_64_(handle, & + trans,m,n,kl,ku,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy, & + stridey,batchCount) + end function + +#else + function hipblasCgbmvStridedBatched_64_rank_0(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA complex(c_float_complex),target :: x integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasCgbmvStridedBatched_64_rank_0 = hipblasCgbmvStridedBatched_64_(handle,trans,m,n,kl, & + ku,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasCgbmvStridedBatched_64_rank_0_devptr(handle,trans,m,n,kl,ku,alpha,AP,lda, & + strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmvStridedBatched_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + type(c_ptr),value :: alpha complex(c_float_complex),target :: AP integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasCsyr_64_rank_0 = hipblasCsyr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP), & - lda) + hipblasCgbmvStridedBatched_64_rank_0_devptr = hipblasCgbmvStridedBatched_64_(handle,trans,m, & + n,kl,ku,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey, & + batchCount) end function - function hipblasCsyr_64_rank_1(handle,uplo,n,alpha,x,incx,AP,lda) - use iso_c_binding + function hipblasCgbmvStridedBatched_64_rank_1(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmvStridedBatched_64_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA complex(c_float_complex),target,dimension(:) :: x integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasCgbmvStridedBatched_64_rank_1 = hipblasCgbmvStridedBatched_64_(handle,trans,m,n,kl, & + ku,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasCgbmvStridedBatched_64_rank_1_devptr(handle,trans,m,n,kl,ku,alpha,AP,lda, & + strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmvStridedBatched_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + type(c_ptr),value :: alpha complex(c_float_complex),target,dimension(:) :: AP integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasCsyr_64_rank_1 = hipblasCsyr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP), & - lda) + hipblasCgbmvStridedBatched_64_rank_1_devptr = hipblasCgbmvStridedBatched_64_(handle,trans,m, & + n,kl,ku,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey, & + batchCount) end function - function hipblasCsyr_64_full_rank(handle,uplo,n,alpha,x,incx,AP,lda) - use iso_c_binding + function hipblasCgbmvStridedBatched_64_full_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA, & + x,incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmvStridedBatched_64_full_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA complex(c_float_complex),target,dimension(:) :: x integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasCgbmvStridedBatched_64_full_rank = hipblasCgbmvStridedBatched_64_(handle,trans,m,n, & + kl,ku,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasCgbmvStridedBatched_64_full_rank_devptr(handle,trans,m,n,kl,ku,alpha,AP,lda, & + strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmvStridedBatched_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + type(c_ptr),value :: alpha complex(c_float_complex),target,dimension(:,:) :: AP integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasCsyr_64_full_rank = hipblasCsyr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & - c_loc(AP),lda) + hipblasCgbmvStridedBatched_64_full_rank_devptr = hipblasCgbmvStridedBatched_64_(handle, & + trans,m,n,kl,ku,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasCgbmvStridedBatched_64_strided_rank(handle,trans,m,n,kl,ku,alpha,AP,lda, & + strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmvStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasCgbmvStridedBatched_64_strided_rank = hipblasCgbmvStridedBatched_64_(handle,trans,m, & + n,kl,ku,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y), & + incy,stridey,batchCount) + end function + + function hipblasCgbmvStridedBatched_64_strided_rank_devptr(handle,trans,m,n,kl,ku,alpha,AP, & + lda,strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgbmvStridedBatched_64_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasCgbmvStridedBatched_64_strided_rank_devptr = hipblasCgbmvStridedBatched_64_(handle, & + trans,m,n,kl,ku,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy, & + stridey,batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasZsyr_64_assumed_rank(handle,uplo,n,alpha,x,incx,AP,lda) - use iso_c_binding + function hipblasZgbmvStridedBatched_64_assumed_rank(handle,trans,m,n,kl,ku,alpha,AP,lda, & + strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmvStridedBatched_64_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA complex(c_double_complex),target,dimension(..) :: x integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZgbmvStridedBatched_64_assumed_rank = hipblasZgbmvStridedBatched_64_(handle,trans,m, & + n,kl,ku,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y), & + incy,stridey,batchCount) + end function + + function hipblasZgbmvStridedBatched_64_assumed_rank_devptr(handle,trans,m,n,kl,ku,alpha,AP, & + lda,strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmvStridedBatched_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + type(c_ptr),value :: alpha complex(c_double_complex),target,dimension(..) :: AP integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasZsyr_64_assumed_rank = hipblasZsyr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & - c_loc(AP),lda) + hipblasZgbmvStridedBatched_64_assumed_rank_devptr = hipblasZgbmvStridedBatched_64_(handle, & + trans,m,n,kl,ku,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy, & + stridey,batchCount) end function #else - function hipblasZsyr_64_rank_0(handle,uplo,n,alpha,x,incx,AP,lda) - use iso_c_binding + function hipblasZgbmvStridedBatched_64_rank_0(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmvStridedBatched_64_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA complex(c_double_complex),target :: x integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZgbmvStridedBatched_64_rank_0 = hipblasZgbmvStridedBatched_64_(handle,trans,m,n,kl, & + ku,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasZgbmvStridedBatched_64_rank_0_devptr(handle,trans,m,n,kl,ku,alpha,AP,lda, & + strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmvStridedBatched_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + type(c_ptr),value :: alpha complex(c_double_complex),target :: AP integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasZsyr_64_rank_0 = hipblasZsyr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP), & - lda) + hipblasZgbmvStridedBatched_64_rank_0_devptr = hipblasZgbmvStridedBatched_64_(handle,trans,m, & + n,kl,ku,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey, & + batchCount) end function - function hipblasZsyr_64_rank_1(handle,uplo,n,alpha,x,incx,AP,lda) - use iso_c_binding + function hipblasZgbmvStridedBatched_64_rank_1(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmvStridedBatched_64_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA complex(c_double_complex),target,dimension(:) :: x integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZgbmvStridedBatched_64_rank_1 = hipblasZgbmvStridedBatched_64_(handle,trans,m,n,kl, & + ku,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasZgbmvStridedBatched_64_rank_1_devptr(handle,trans,m,n,kl,ku,alpha,AP,lda, & + strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmvStridedBatched_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + type(c_ptr),value :: alpha complex(c_double_complex),target,dimension(:) :: AP integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasZsyr_64_rank_1 = hipblasZsyr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP), & - lda) + hipblasZgbmvStridedBatched_64_rank_1_devptr = hipblasZgbmvStridedBatched_64_(handle,trans,m, & + n,kl,ku,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey, & + batchCount) end function - function hipblasZsyr_64_full_rank(handle,uplo,n,alpha,x,incx,AP,lda) - use iso_c_binding + function hipblasZgbmvStridedBatched_64_full_rank(handle,trans,m,n,kl,ku,alpha,AP,lda,strideA, & + x,incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmvStridedBatched_64_full_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx complex(c_double_complex),target,dimension(:,:) :: AP integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasZsyr_64_full_rank = hipblasZsyr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & - c_loc(AP),lda) + hipblasZgbmvStridedBatched_64_full_rank = hipblasZgbmvStridedBatched_64_(handle,trans,m,n, & + kl,ku,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasSsyrStridedBatched_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & - strideA,batchCount) - use iso_c_binding + function hipblasZgbmvStridedBatched_64_full_rank_devptr(handle,trans,m,n,kl,ku,alpha,AP,lda, & + strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmvStridedBatched_64_full_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(..) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - real(c_float),target,dimension(..) :: AP - integer(c_int) :: lda + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - integer(c_int) :: batchCount + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasSsyrStridedBatched_assumed_rank = hipblasSsyrStridedBatched_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + hipblasZgbmvStridedBatched_64_full_rank_devptr = hipblasZgbmvStridedBatched_64_(handle, & + trans,m,n,kl,ku,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy, & + stridey,batchCount) end function -#else - function hipblasSsyrStridedBatched_rank_0(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & - batchCount) - use iso_c_binding + function hipblasZgbmvStridedBatched_64_strided_rank(handle,trans,m,n,kl,ku,alpha,AP,lda, & + strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmvStridedBatched_64_strided_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - real(c_float),target :: AP - integer(c_int) :: lda + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - integer(c_int) :: batchCount + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasSsyrStridedBatched_rank_0 = hipblasSsyrStridedBatched_(handle,uplo,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + hipblasZgbmvStridedBatched_64_strided_rank = hipblasZgbmvStridedBatched_64_(handle,trans,m, & + n,kl,ku,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y), & + incy,stridey,batchCount) end function - function hipblasSsyrStridedBatched_rank_1(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & - batchCount) - use iso_c_binding + function hipblasZgbmvStridedBatched_64_strided_rank_devptr(handle,trans,m,n,kl,ku,alpha,AP, & + lda,strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgbmvStridedBatched_64_strided_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(:) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - real(c_float),target,dimension(:) :: AP - integer(c_int) :: lda + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: kl + integer(c_int64_t) :: ku + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - integer(c_int) :: batchCount + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasSsyrStridedBatched_rank_1 = hipblasSsyrStridedBatched_(handle,uplo,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + hipblasZgbmvStridedBatched_64_strided_rank_devptr = hipblasZgbmvStridedBatched_64_(handle, & + trans,m,n,kl,ku,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy, & + stridey,batchCount) end function - function hipblasSsyrStridedBatched_full_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & - strideA,batchCount) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSgemv_assumed_rank(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemv_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n real(c_float),target :: alpha - real(c_float),target,dimension(:) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - real(c_float),target,dimension(:,:) :: AP + real(c_float),target,dimension(..) :: AP integer(c_int) :: lda - integer(c_int64_t) :: strideA - integer(c_int) :: batchCount + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + real(c_float),target :: beta + real(c_float),target,dimension(..) :: y + integer(c_int) :: incy ! - hipblasSsyrStridedBatched_full_rank = hipblasSsyrStridedBatched_(handle,uplo,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + hipblasSgemv_assumed_rank = hipblasSgemv_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDsyrStridedBatched_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & - strideA,batchCount) - use iso_c_binding + function hipblasSgemv_assumed_rank_devptr(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemv_assumed_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(..) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - real(c_double),target,dimension(..) :: AP + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: AP integer(c_int) :: lda - integer(c_int64_t) :: strideA - integer(c_int) :: batchCount + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: beta + real(c_float),target,dimension(..) :: y + integer(c_int) :: incy ! - hipblasDsyrStridedBatched_assumed_rank = hipblasDsyrStridedBatched_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + hipblasSgemv_assumed_rank_devptr = hipblasSgemv_(handle,trans,m,n,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) end function #else - function hipblasDsyrStridedBatched_rank_0(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & - batchCount) - use iso_c_binding + function hipblasSgemv_rank_0(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemv_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int) :: lda + real(c_float),target :: x + integer(c_int) :: incx + real(c_float),target :: beta + real(c_float),target :: y + integer(c_int) :: incy + ! + hipblasSgemv_rank_0 = hipblasSgemv_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasSgemv_rank_0_devptr(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemv_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target :: AP + integer(c_int) :: lda + real(c_float),target :: x + integer(c_int) :: incx + type(c_ptr),value :: beta + real(c_float),target :: y + integer(c_int) :: incy + ! + hipblasSgemv_rank_0_devptr = hipblasSgemv_(handle,trans,m,n,alpha,c_loc(AP),lda,c_loc(x), & + incx,beta,c_loc(y),incy) + end function + + function hipblasSgemv_rank_1(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + real(c_float),target :: beta + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasSgemv_rank_1 = hipblasSgemv_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasSgemv_rank_1_devptr(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemv_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: beta + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasSgemv_rank_1_devptr = hipblasSgemv_(handle,trans,m,n,alpha,c_loc(AP),lda,c_loc(x), & + incx,beta,c_loc(y),incy) + end function + + function hipblasSgemv_full_rank(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemv_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + real(c_float),target :: beta + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasSgemv_full_rank = hipblasSgemv_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasSgemv_full_rank_devptr(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemv_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: beta + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasSgemv_full_rank_devptr = hipblasSgemv_(handle,trans,m,n,alpha,c_loc(AP),lda,c_loc(x), & + incx,beta,c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDgemv_assumed_rank(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + real(c_double),target :: beta + real(c_double),target,dimension(..) :: y + integer(c_int) :: incy + ! + hipblasDgemv_assumed_rank = hipblasDgemv_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasDgemv_assumed_rank_devptr(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemv_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: beta + real(c_double),target,dimension(..) :: y + integer(c_int) :: incy + ! + hipblasDgemv_assumed_rank_devptr = hipblasDgemv_(handle,trans,m,n,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) + end function + +#else + function hipblasDgemv_rank_0(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int) :: lda real(c_double),target :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target :: y + integer(c_int) :: incy + ! + hipblasDgemv_rank_0 = hipblasDgemv_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasDgemv_rank_0_devptr(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemv_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha real(c_double),target :: AP integer(c_int) :: lda - integer(c_int64_t) :: strideA - integer(c_int) :: batchCount + real(c_double),target :: x + integer(c_int) :: incx + type(c_ptr),value :: beta + real(c_double),target :: y + integer(c_int) :: incy ! - hipblasDsyrStridedBatched_rank_0 = hipblasDsyrStridedBatched_(handle,uplo,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + hipblasDgemv_rank_0_devptr = hipblasDgemv_(handle,trans,m,n,alpha,c_loc(AP),lda,c_loc(x), & + incx,beta,c_loc(y),incy) end function - function hipblasDsyrStridedBatched_rank_1(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & - batchCount) - use iso_c_binding + function hipblasDgemv_rank_1(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemv_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda real(c_double),target,dimension(:) :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasDgemv_rank_1 = hipblasDgemv_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasDgemv_rank_1_devptr(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemv_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha real(c_double),target,dimension(:) :: AP integer(c_int) :: lda - integer(c_int64_t) :: strideA - integer(c_int) :: batchCount + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: beta + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy ! - hipblasDsyrStridedBatched_rank_1 = hipblasDsyrStridedBatched_(handle,uplo,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + hipblasDgemv_rank_1_devptr = hipblasDgemv_(handle,trans,m,n,alpha,c_loc(AP),lda,c_loc(x), & + incx,beta,c_loc(y),incy) end function - function hipblasDsyrStridedBatched_full_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & - strideA,batchCount) - use iso_c_binding + function hipblasDgemv_full_rank(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemv_full_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda real(c_double),target,dimension(:) :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasDgemv_full_rank = hipblasDgemv_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasDgemv_full_rank_devptr(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemv_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha real(c_double),target,dimension(:,:) :: AP integer(c_int) :: lda - integer(c_int64_t) :: strideA - integer(c_int) :: batchCount + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: beta + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy ! - hipblasDsyrStridedBatched_full_rank = hipblasDsyrStridedBatched_(handle,uplo,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + hipblasDgemv_full_rank_devptr = hipblasDgemv_(handle,trans,m,n,alpha,c_loc(AP),lda,c_loc(x), & + incx,beta,c_loc(y),incy) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCsyrStridedBatched_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & - strideA,batchCount) - use iso_c_binding + function hipblasCgemv_assumed_rank(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemv_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda complex(c_float_complex),target,dimension(..) :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + ! + hipblasCgemv_assumed_rank = hipblasCgemv_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasCgemv_assumed_rank_devptr(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemv_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha complex(c_float_complex),target,dimension(..) :: AP integer(c_int) :: lda - integer(c_int64_t) :: strideA - integer(c_int) :: batchCount + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy ! - hipblasCsyrStridedBatched_assumed_rank = hipblasCsyrStridedBatched_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + hipblasCgemv_assumed_rank_devptr = hipblasCgemv_(handle,trans,m,n,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) end function #else - function hipblasCsyrStridedBatched_rank_0(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & - batchCount) - use iso_c_binding + function hipblasCgemv_rank_0(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemv_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda complex(c_float_complex),target :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: y + integer(c_int) :: incy + ! + hipblasCgemv_rank_0 = hipblasCgemv_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasCgemv_rank_0_devptr(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemv_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha complex(c_float_complex),target :: AP integer(c_int) :: lda - integer(c_int64_t) :: strideA - integer(c_int) :: batchCount + complex(c_float_complex),target :: x + integer(c_int) :: incx + type(c_ptr),value :: beta + complex(c_float_complex),target :: y + integer(c_int) :: incy ! - hipblasCsyrStridedBatched_rank_0 = hipblasCsyrStridedBatched_(handle,uplo,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + hipblasCgemv_rank_0_devptr = hipblasCgemv_(handle,trans,m,n,alpha,c_loc(AP),lda,c_loc(x), & + incx,beta,c_loc(y),incy) end function - function hipblasCsyrStridedBatched_rank_1(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & - batchCount) - use iso_c_binding + function hipblasCgemv_rank_1(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemv_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda complex(c_float_complex),target,dimension(:) :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasCgemv_rank_1 = hipblasCgemv_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasCgemv_rank_1_devptr(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemv_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha complex(c_float_complex),target,dimension(:) :: AP integer(c_int) :: lda - integer(c_int64_t) :: strideA - integer(c_int) :: batchCount + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy ! - hipblasCsyrStridedBatched_rank_1 = hipblasCsyrStridedBatched_(handle,uplo,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + hipblasCgemv_rank_1_devptr = hipblasCgemv_(handle,trans,m,n,alpha,c_loc(AP),lda,c_loc(x), & + incx,beta,c_loc(y),incy) end function - function hipblasCsyrStridedBatched_full_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & - strideA,batchCount) - use iso_c_binding + function hipblasCgemv_full_rank(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemv_full_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda complex(c_float_complex),target,dimension(:) :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasCgemv_full_rank = hipblasCgemv_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasCgemv_full_rank_devptr(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemv_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha complex(c_float_complex),target,dimension(:,:) :: AP integer(c_int) :: lda - integer(c_int64_t) :: strideA - integer(c_int) :: batchCount + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy ! - hipblasCsyrStridedBatched_full_rank = hipblasCsyrStridedBatched_(handle,uplo,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + hipblasCgemv_full_rank_devptr = hipblasCgemv_(handle,trans,m,n,alpha,c_loc(AP),lda,c_loc(x), & + incx,beta,c_loc(y),incy) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasZsyrStridedBatched_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & - strideA,batchCount) - use iso_c_binding + function hipblasZgemv_assumed_rank(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemv_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda complex(c_double_complex),target,dimension(..) :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + ! + hipblasZgemv_assumed_rank = hipblasZgemv_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasZgemv_assumed_rank_devptr(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemv_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha complex(c_double_complex),target,dimension(..) :: AP integer(c_int) :: lda - integer(c_int64_t) :: strideA - integer(c_int) :: batchCount + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy ! - hipblasZsyrStridedBatched_assumed_rank = hipblasZsyrStridedBatched_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + hipblasZgemv_assumed_rank_devptr = hipblasZgemv_(handle,trans,m,n,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) end function #else - function hipblasZsyrStridedBatched_rank_0(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & - batchCount) - use iso_c_binding + function hipblasZgemv_rank_0(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemv_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int) :: lda complex(c_double_complex),target :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: y + integer(c_int) :: incy + ! + hipblasZgemv_rank_0 = hipblasZgemv_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasZgemv_rank_0_devptr(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemv_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha complex(c_double_complex),target :: AP integer(c_int) :: lda - integer(c_int64_t) :: strideA - integer(c_int) :: batchCount + complex(c_double_complex),target :: x + integer(c_int) :: incx + type(c_ptr),value :: beta + complex(c_double_complex),target :: y + integer(c_int) :: incy ! - hipblasZsyrStridedBatched_rank_0 = hipblasZsyrStridedBatched_(handle,uplo,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + hipblasZgemv_rank_0_devptr = hipblasZgemv_(handle,trans,m,n,alpha,c_loc(AP),lda,c_loc(x), & + incx,beta,c_loc(y),incy) end function - function hipblasZsyrStridedBatched_rank_1(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & - batchCount) - use iso_c_binding + function hipblasZgemv_rank_1(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemv_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda complex(c_double_complex),target,dimension(:) :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasZgemv_rank_1 = hipblasZgemv_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasZgemv_rank_1_devptr(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemv_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha complex(c_double_complex),target,dimension(:) :: AP integer(c_int) :: lda - integer(c_int64_t) :: strideA - integer(c_int) :: batchCount + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy ! - hipblasZsyrStridedBatched_rank_1 = hipblasZsyrStridedBatched_(handle,uplo,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + hipblasZgemv_rank_1_devptr = hipblasZgemv_(handle,trans,m,n,alpha,c_loc(AP),lda,c_loc(x), & + incx,beta,c_loc(y),incy) end function - function hipblasZsyrStridedBatched_full_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & - strideA,batchCount) - use iso_c_binding + function hipblasZgemv_full_rank(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemv_full_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex complex(c_double_complex),target,dimension(:,:) :: AP integer(c_int) :: lda - integer(c_int64_t) :: strideA - integer(c_int) :: batchCount + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy ! - hipblasZsyrStridedBatched_full_rank = hipblasZsyrStridedBatched_(handle,uplo,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + hipblasZgemv_full_rank = hipblasZgemv_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasSsyrStridedBatched_64_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & - strideA,batchCount) - use iso_c_binding + function hipblasZgemv_full_rank_devptr(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemv_full_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasZgemv_full_rank_devptr = hipblasZgemv_(handle,trans,m,n,alpha,c_loc(AP),lda,c_loc(x), & + incx,beta,c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSgemv_64_assumed_rank(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m integer(c_int64_t) :: n real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda real(c_float),target,dimension(..) :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy + ! + hipblasSgemv_64_assumed_rank = hipblasSgemv_64_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasSgemv_64_assumed_rank_devptr(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemv_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha real(c_float),target,dimension(..) :: AP integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - integer(c_int64_t) :: batchCount + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy ! - hipblasSsyrStridedBatched_64_assumed_rank = hipblasSsyrStridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + hipblasSgemv_64_assumed_rank_devptr = hipblasSgemv_64_(handle,trans,m,n,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) end function #else - function hipblasSsyrStridedBatched_64_rank_0(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & - strideA,batchCount) - use iso_c_binding + function hipblasSgemv_64_rank_0(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemv_64_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m integer(c_int64_t) :: n real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int64_t) :: lda real(c_float),target :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target :: y + integer(c_int64_t) :: incy + ! + hipblasSgemv_64_rank_0 = hipblasSgemv_64_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasSgemv_64_rank_0_devptr(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemv_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha real(c_float),target :: AP integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - integer(c_int64_t) :: batchCount + real(c_float),target :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + real(c_float),target :: y + integer(c_int64_t) :: incy ! - hipblasSsyrStridedBatched_64_rank_0 = hipblasSsyrStridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + hipblasSgemv_64_rank_0_devptr = hipblasSgemv_64_(handle,trans,m,n,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) end function - function hipblasSsyrStridedBatched_64_rank_1(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & - strideA,batchCount) - use iso_c_binding + function hipblasSgemv_64_rank_1(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemv_64_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m integer(c_int64_t) :: n real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda real(c_float),target,dimension(:) :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasSgemv_64_rank_1 = hipblasSgemv_64_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasSgemv_64_rank_1_devptr(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemv_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha real(c_float),target,dimension(:) :: AP integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - integer(c_int64_t) :: batchCount + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy ! - hipblasSsyrStridedBatched_64_rank_1 = hipblasSsyrStridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + hipblasSgemv_64_rank_1_devptr = hipblasSgemv_64_(handle,trans,m,n,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) end function - function hipblasSsyrStridedBatched_64_full_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & - strideA,batchCount) - use iso_c_binding + function hipblasSgemv_64_full_rank(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemv_64_full_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m integer(c_int64_t) :: n real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda real(c_float),target,dimension(:) :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasSgemv_64_full_rank = hipblasSgemv_64_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasSgemv_64_full_rank_devptr(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemv_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha real(c_float),target,dimension(:,:) :: AP integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - integer(c_int64_t) :: batchCount + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy ! - hipblasSsyrStridedBatched_64_full_rank = hipblasSsyrStridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + hipblasSgemv_64_full_rank_devptr = hipblasSgemv_64_(handle,trans,m,n,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasDsyrStridedBatched_64_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & - strideA,batchCount) - use iso_c_binding + function hipblasDgemv_64_assumed_rank(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemv_64_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m integer(c_int64_t) :: n real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda real(c_double),target,dimension(..) :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: incy + ! + hipblasDgemv_64_assumed_rank = hipblasDgemv_64_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasDgemv_64_assumed_rank_devptr(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemv_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha real(c_double),target,dimension(..) :: AP integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - integer(c_int64_t) :: batchCount + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: incy ! - hipblasDsyrStridedBatched_64_assumed_rank = hipblasDsyrStridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + hipblasDgemv_64_assumed_rank_devptr = hipblasDgemv_64_(handle,trans,m,n,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) end function #else - function hipblasDsyrStridedBatched_64_rank_0(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & - strideA,batchCount) - use iso_c_binding + function hipblasDgemv_64_rank_0(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemv_64_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m integer(c_int64_t) :: n real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int64_t) :: lda real(c_double),target :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target :: y + integer(c_int64_t) :: incy + ! + hipblasDgemv_64_rank_0 = hipblasDgemv_64_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasDgemv_64_rank_0_devptr(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemv_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha real(c_double),target :: AP integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - integer(c_int64_t) :: batchCount + real(c_double),target :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + real(c_double),target :: y + integer(c_int64_t) :: incy ! - hipblasDsyrStridedBatched_64_rank_0 = hipblasDsyrStridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + hipblasDgemv_64_rank_0_devptr = hipblasDgemv_64_(handle,trans,m,n,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) end function - function hipblasDsyrStridedBatched_64_rank_1(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & - strideA,batchCount) - use iso_c_binding + function hipblasDgemv_64_rank_1(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemv_64_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m integer(c_int64_t) :: n real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda real(c_double),target,dimension(:) :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasDgemv_64_rank_1 = hipblasDgemv_64_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasDgemv_64_rank_1_devptr(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemv_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha real(c_double),target,dimension(:) :: AP integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - integer(c_int64_t) :: batchCount + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy ! - hipblasDsyrStridedBatched_64_rank_1 = hipblasDsyrStridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + hipblasDgemv_64_rank_1_devptr = hipblasDgemv_64_(handle,trans,m,n,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) end function - function hipblasDsyrStridedBatched_64_full_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & - strideA,batchCount) - use iso_c_binding + function hipblasDgemv_64_full_rank(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemv_64_full_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m integer(c_int64_t) :: n real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda real(c_double),target,dimension(:) :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasDgemv_64_full_rank = hipblasDgemv_64_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasDgemv_64_full_rank_devptr(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemv_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha real(c_double),target,dimension(:,:) :: AP integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - integer(c_int64_t) :: batchCount + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy ! - hipblasDsyrStridedBatched_64_full_rank = hipblasDsyrStridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + hipblasDgemv_64_full_rank_devptr = hipblasDgemv_64_(handle,trans,m,n,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCsyrStridedBatched_64_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & - strideA,batchCount) - use iso_c_binding + function hipblasCgemv_64_assumed_rank(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemv_64_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m integer(c_int64_t) :: n complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda complex(c_float_complex),target,dimension(..) :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + ! + hipblasCgemv_64_assumed_rank = hipblasCgemv_64_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasCgemv_64_assumed_rank_devptr(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemv_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha complex(c_float_complex),target,dimension(..) :: AP integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - integer(c_int64_t) :: batchCount + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy ! - hipblasCsyrStridedBatched_64_assumed_rank = hipblasCsyrStridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + hipblasCgemv_64_assumed_rank_devptr = hipblasCgemv_64_(handle,trans,m,n,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) end function #else - function hipblasCsyrStridedBatched_64_rank_0(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & - strideA,batchCount) - use iso_c_binding + function hipblasCgemv_64_rank_0(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemv_64_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m integer(c_int64_t) :: n complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda complex(c_float_complex),target :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + ! + hipblasCgemv_64_rank_0 = hipblasCgemv_64_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasCgemv_64_rank_0_devptr(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemv_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha complex(c_float_complex),target :: AP integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - integer(c_int64_t) :: batchCount + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy ! - hipblasCsyrStridedBatched_64_rank_0 = hipblasCsyrStridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + hipblasCgemv_64_rank_0_devptr = hipblasCgemv_64_(handle,trans,m,n,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) end function - function hipblasCsyrStridedBatched_64_rank_1(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & - strideA,batchCount) - use iso_c_binding + function hipblasCgemv_64_rank_1(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemv_64_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m integer(c_int64_t) :: n complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda complex(c_float_complex),target,dimension(:) :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasCgemv_64_rank_1 = hipblasCgemv_64_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasCgemv_64_rank_1_devptr(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemv_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha complex(c_float_complex),target,dimension(:) :: AP integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - integer(c_int64_t) :: batchCount + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy ! - hipblasCsyrStridedBatched_64_rank_1 = hipblasCsyrStridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + hipblasCgemv_64_rank_1_devptr = hipblasCgemv_64_(handle,trans,m,n,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) end function - function hipblasCsyrStridedBatched_64_full_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & - strideA,batchCount) - use iso_c_binding + function hipblasCgemv_64_full_rank(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemv_64_full_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m integer(c_int64_t) :: n complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda complex(c_float_complex),target,dimension(:) :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasCgemv_64_full_rank = hipblasCgemv_64_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasCgemv_64_full_rank_devptr(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemv_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha complex(c_float_complex),target,dimension(:,:) :: AP integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - integer(c_int64_t) :: batchCount + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy ! - hipblasCsyrStridedBatched_64_full_rank = hipblasCsyrStridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + hipblasCgemv_64_full_rank_devptr = hipblasCgemv_64_(handle,trans,m,n,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasZsyrStridedBatched_64_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & - strideA,batchCount) - use iso_c_binding + function hipblasZgemv_64_assumed_rank(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemv_64_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m integer(c_int64_t) :: n complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda complex(c_double_complex),target,dimension(..) :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + ! + hipblasZgemv_64_assumed_rank = hipblasZgemv_64_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasZgemv_64_assumed_rank_devptr(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemv_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha complex(c_double_complex),target,dimension(..) :: AP integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - integer(c_int64_t) :: batchCount + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy ! - hipblasZsyrStridedBatched_64_assumed_rank = hipblasZsyrStridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + hipblasZgemv_64_assumed_rank_devptr = hipblasZgemv_64_(handle,trans,m,n,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) end function #else - function hipblasZsyrStridedBatched_64_rank_0(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & - strideA,batchCount) - use iso_c_binding + function hipblasZgemv_64_rank_0(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemv_64_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m integer(c_int64_t) :: n complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex complex(c_double_complex),target :: AP integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - integer(c_int64_t) :: batchCount + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy ! - hipblasZsyrStridedBatched_64_rank_0 = hipblasZsyrStridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + hipblasZgemv_64_rank_0 = hipblasZgemv_64_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) end function - function hipblasZsyrStridedBatched_64_rank_1(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & - strideA,batchCount) - use iso_c_binding + function hipblasZgemv_64_rank_0_devptr(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemv_64_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - complex(c_double_complex),target,dimension(:) :: AP + type(c_ptr),value :: alpha + complex(c_double_complex),target :: AP integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - integer(c_int64_t) :: batchCount + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy ! - hipblasZsyrStridedBatched_64_rank_1 = hipblasZsyrStridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + hipblasZgemv_64_rank_0_devptr = hipblasZgemv_64_(handle,trans,m,n,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) end function - function hipblasZsyrStridedBatched_64_full_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & - strideA,batchCount) - use iso_c_binding + function hipblasZgemv_64_rank_1(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemv_64_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m integer(c_int64_t) :: n complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda complex(c_double_complex),target,dimension(:) :: x integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasZgemv_64_rank_1 = hipblasZgemv_64_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasZgemv_64_rank_1_devptr(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemv_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasZgemv_64_rank_1_devptr = hipblasZgemv_64_(handle,trans,m,n,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) + end function + + function hipblasZgemv_64_full_rank(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemv_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha complex(c_double_complex),target,dimension(:,:) :: AP integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - integer(c_int64_t) :: batchCount + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy ! - hipblasZsyrStridedBatched_64_full_rank = hipblasZsyrStridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + hipblasZgemv_64_full_rank = hipblasZgemv_64_(handle,trans,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasZgemv_64_full_rank_devptr(handle,trans,m,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemv_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasZgemv_64_full_rank_devptr = hipblasZgemv_64_(handle,trans,m,n,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasSsyr2_assumed_rank(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding + function hipblasSgemvStridedBatched_assumed_rank(handle,transA,m,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemvStridedBatched_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: m integer(c_int) :: n real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA real(c_float),target,dimension(..) :: x integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta real(c_float),target,dimension(..) :: y integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasSgemvStridedBatched_assumed_rank = hipblasSgemvStridedBatched_(handle,transA,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasSgemvStridedBatched_assumed_rank_devptr(handle,transA,m,n,alpha,AP,lda, & + strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemvStridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha real(c_float),target,dimension(..) :: AP integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_float),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount ! - hipblasSsyr2_assumed_rank = hipblasSsyr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & - incy,c_loc(AP),lda) + hipblasSgemvStridedBatched_assumed_rank_devptr = hipblasSgemvStridedBatched_(handle,transA, & + m,n,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) end function #else - function hipblasSsyr2_rank_0(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding + function hipblasSgemvStridedBatched_rank_0(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemvStridedBatched_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: m integer(c_int) :: n real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA real(c_float),target :: x integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta real(c_float),target :: y integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasSgemvStridedBatched_rank_0 = hipblasSgemvStridedBatched_(handle,transA,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasSgemvStridedBatched_rank_0_devptr(handle,transA,m,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemvStridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha real(c_float),target :: AP integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_float),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount ! - hipblasSsyr2_rank_0 = hipblasSsyr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & - c_loc(AP),lda) + hipblasSgemvStridedBatched_rank_0_devptr = hipblasSgemvStridedBatched_(handle,transA,m,n, & + alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) end function - function hipblasSsyr2_rank_1(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding + function hipblasSgemvStridedBatched_rank_1(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemvStridedBatched_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: m integer(c_int) :: n real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA real(c_float),target,dimension(:) :: x integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta real(c_float),target,dimension(:) :: y integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasSgemvStridedBatched_rank_1 = hipblasSgemvStridedBatched_(handle,transA,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasSgemvStridedBatched_rank_1_devptr(handle,transA,m,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemvStridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha real(c_float),target,dimension(:) :: AP integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount ! - hipblasSsyr2_rank_1 = hipblasSsyr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & - c_loc(AP),lda) + hipblasSgemvStridedBatched_rank_1_devptr = hipblasSgemvStridedBatched_(handle,transA,m,n, & + alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) end function - function hipblasSsyr2_full_rank(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding + function hipblasSgemvStridedBatched_full_rank(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemvStridedBatched_full_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: m integer(c_int) :: n real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA real(c_float),target,dimension(:) :: x integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta real(c_float),target,dimension(:) :: y integer(c_int) :: incy - real(c_float),target,dimension(:,:) :: AP - integer(c_int) :: lda + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount ! - hipblasSsyr2_full_rank = hipblasSsyr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & - incy,c_loc(AP),lda) + hipblasSgemvStridedBatched_full_rank = hipblasSgemvStridedBatched_(handle,transA,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDsyr2_assumed_rank(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding + function hipblasSgemvStridedBatched_full_rank_devptr(handle,transA,m,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemvStridedBatched_full_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: m integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(..) :: x + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x integer(c_int) :: incx - real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_float),target,dimension(:) :: y integer(c_int) :: incy - real(c_double),target,dimension(..) :: AP - integer(c_int) :: lda + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount ! - hipblasDsyr2_assumed_rank = hipblasDsyr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & - incy,c_loc(AP),lda) + hipblasSgemvStridedBatched_full_rank_devptr = hipblasSgemvStridedBatched_(handle,transA,m,n, & + alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) end function -#else - function hipblasDsyr2_rank_0(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding + function hipblasSgemvStridedBatched_strided_rank(handle,transA,m,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemvStridedBatched_strided_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: m integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target :: x + real(c_float),target :: alpha + real(c_float),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:,:) :: x integer(c_int) :: incx - real(c_double),target :: y + integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target,dimension(:,:) :: y integer(c_int) :: incy - real(c_double),target :: AP - integer(c_int) :: lda + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount ! - hipblasDsyr2_rank_0 = hipblasDsyr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & - c_loc(AP),lda) + hipblasSgemvStridedBatched_strided_rank = hipblasSgemvStridedBatched_(handle,transA,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) end function - function hipblasDsyr2_rank_1(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding + function hipblasSgemvStridedBatched_strided_rank_devptr(handle,transA,m,n,alpha,AP,lda, & + strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemvStridedBatched_strided_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: m integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(:) :: x + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:,:) :: x integer(c_int) :: incx - real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_float),target,dimension(:,:) :: y integer(c_int) :: incy - real(c_double),target,dimension(:) :: AP - integer(c_int) :: lda + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount ! - hipblasDsyr2_rank_1 = hipblasDsyr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & - c_loc(AP),lda) + hipblasSgemvStridedBatched_strided_rank_devptr = hipblasSgemvStridedBatched_(handle,transA, & + m,n,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) end function - function hipblasDsyr2_full_rank(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDgemvStridedBatched_assumed_rank(handle,transA,m,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemvStridedBatched_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: m integer(c_int) :: n real(c_double),target :: alpha - real(c_double),target,dimension(:) :: x + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: x integer(c_int) :: incx - real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target,dimension(..) :: y integer(c_int) :: incy - real(c_double),target,dimension(:,:) :: AP - integer(c_int) :: lda + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount ! - hipblasDsyr2_full_rank = hipblasDsyr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & - incy,c_loc(AP),lda) + hipblasDgemvStridedBatched_assumed_rank = hipblasDgemvStridedBatched_(handle,transA,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCsyr2_assumed_rank(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding + function hipblasDgemvStridedBatched_assumed_rank_devptr(handle,transA,m,n,alpha,AP,lda, & + strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemvStridedBatched_assumed_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: m integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: x + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: x integer(c_int) :: incx - complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_double),target,dimension(..) :: y integer(c_int) :: incy - complex(c_float_complex),target,dimension(..) :: AP - integer(c_int) :: lda + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount ! - hipblasCsyr2_assumed_rank = hipblasCsyr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & - incy,c_loc(AP),lda) + hipblasDgemvStridedBatched_assumed_rank_devptr = hipblasDgemvStridedBatched_(handle,transA, & + m,n,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) end function #else - function hipblasCsyr2_rank_0(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding + function hipblasDgemvStridedBatched_rank_0(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemvStridedBatched_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: m integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: x + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: x integer(c_int) :: incx - complex(c_float_complex),target :: y + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target :: y integer(c_int) :: incy - complex(c_float_complex),target :: AP - integer(c_int) :: lda + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount ! - hipblasCsyr2_rank_0 = hipblasCsyr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & - c_loc(AP),lda) + hipblasDgemvStridedBatched_rank_0 = hipblasDgemvStridedBatched_(handle,transA,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) end function - function hipblasCsyr2_rank_1(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding + function hipblasDgemvStridedBatched_rank_0_devptr(handle,transA,m,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemvStridedBatched_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: m integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: x + type(c_ptr),value :: alpha + real(c_double),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: x integer(c_int) :: incx - complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_double),target :: y integer(c_int) :: incy - complex(c_float_complex),target,dimension(:) :: AP - integer(c_int) :: lda + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount ! - hipblasCsyr2_rank_1 = hipblasCsyr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & - c_loc(AP),lda) + hipblasDgemvStridedBatched_rank_0_devptr = hipblasDgemvStridedBatched_(handle,transA,m,n, & + alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) end function - function hipblasCsyr2_full_rank(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding + function hipblasDgemvStridedBatched_rank_1(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemvStridedBatched_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: m integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: x + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x integer(c_int) :: incx - complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target,dimension(:) :: y integer(c_int) :: incy - complex(c_float_complex),target,dimension(:,:) :: AP - integer(c_int) :: lda + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount ! - hipblasCsyr2_full_rank = hipblasCsyr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & - incy,c_loc(AP),lda) + hipblasDgemvStridedBatched_rank_1 = hipblasDgemvStridedBatched_(handle,transA,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZsyr2_assumed_rank(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding + function hipblasDgemvStridedBatched_rank_1_devptr(handle,transA,m,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemvStridedBatched_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: m integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: x + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x integer(c_int) :: incx - complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_double),target,dimension(:) :: y integer(c_int) :: incy - complex(c_double_complex),target,dimension(..) :: AP - integer(c_int) :: lda + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount ! - hipblasZsyr2_assumed_rank = hipblasZsyr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & - incy,c_loc(AP),lda) + hipblasDgemvStridedBatched_rank_1_devptr = hipblasDgemvStridedBatched_(handle,transA,m,n, & + alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) end function -#else - function hipblasZsyr2_rank_0(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding + function hipblasDgemvStridedBatched_full_rank(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemvStridedBatched_full_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: m integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: x + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x integer(c_int) :: incx - complex(c_double_complex),target :: y + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target,dimension(:) :: y integer(c_int) :: incy - complex(c_double_complex),target :: AP - integer(c_int) :: lda + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount ! - hipblasZsyr2_rank_0 = hipblasZsyr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & - c_loc(AP),lda) + hipblasDgemvStridedBatched_full_rank = hipblasDgemvStridedBatched_(handle,transA,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) end function - function hipblasZsyr2_rank_1(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding + function hipblasDgemvStridedBatched_full_rank_devptr(handle,transA,m,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemvStridedBatched_full_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: m integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: x + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x integer(c_int) :: incx - complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_double),target,dimension(:) :: y integer(c_int) :: incy - complex(c_double_complex),target,dimension(:) :: AP - integer(c_int) :: lda + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount ! - hipblasZsyr2_rank_1 = hipblasZsyr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & - c_loc(AP),lda) + hipblasDgemvStridedBatched_full_rank_devptr = hipblasDgemvStridedBatched_(handle,transA,m,n, & + alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) end function - function hipblasZsyr2_full_rank(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding + function hipblasDgemvStridedBatched_strided_rank(handle,transA,m,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemvStridedBatched_strided_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: m integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: x + real(c_double),target :: alpha + real(c_double),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:) :: x integer(c_int) :: incx - complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target,dimension(:,:) :: y integer(c_int) :: incy - complex(c_double_complex),target,dimension(:,:) :: AP - integer(c_int) :: lda + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount ! - hipblasZsyr2_full_rank = hipblasZsyr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & - incy,c_loc(AP),lda) + hipblasDgemvStridedBatched_strided_rank = hipblasDgemvStridedBatched_(handle,transA,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasSsyr2_64_assumed_rank(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding + function hipblasDgemvStridedBatched_strided_rank_devptr(handle,transA,m,n,alpha,AP,lda, & + strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemvStridedBatched_strided_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(..) :: x - integer(c_int64_t) :: incx - real(c_float),target,dimension(..) :: y - integer(c_int64_t) :: incy - real(c_float),target,dimension(..) :: AP - integer(c_int64_t) :: lda - ! - hipblasSsyr2_64_assumed_rank = hipblasSsyr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & - c_loc(y),incy,c_loc(AP),lda) - end function - -#else - function hipblasSsyr2_64_rank_0(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2_64_rank_0 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - real(c_float),target :: alpha - real(c_float),target :: x - integer(c_int64_t) :: incx - real(c_float),target :: y - integer(c_int64_t) :: incy - real(c_float),target :: AP - integer(c_int64_t) :: lda - ! - hipblasSsyr2_64_rank_0 = hipblasSsyr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & - incy,c_loc(AP),lda) - end function - - function hipblasSsyr2_64_rank_1(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2_64_rank_1 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(:) :: x - integer(c_int64_t) :: incx - real(c_float),target,dimension(:) :: y - integer(c_int64_t) :: incy - real(c_float),target,dimension(:) :: AP - integer(c_int64_t) :: lda - ! - hipblasSsyr2_64_rank_1 = hipblasSsyr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & - incy,c_loc(AP),lda) - end function - - function hipblasSsyr2_64_full_rank(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2_64_full_rank - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(:) :: x - integer(c_int64_t) :: incx - real(c_float),target,dimension(:) :: y - integer(c_int64_t) :: incy - real(c_float),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_double),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount ! - hipblasSsyr2_64_full_rank = hipblasSsyr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & - c_loc(y),incy,c_loc(AP),lda) + hipblasDgemvStridedBatched_strided_rank_devptr = hipblasDgemvStridedBatched_(handle,transA, & + m,n,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasDsyr2_64_assumed_rank(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2_64_assumed_rank - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(..) :: x - integer(c_int64_t) :: incx - real(c_double),target,dimension(..) :: y - integer(c_int64_t) :: incy - real(c_double),target,dimension(..) :: AP - integer(c_int64_t) :: lda - ! - hipblasDsyr2_64_assumed_rank = hipblasDsyr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & - c_loc(y),incy,c_loc(AP),lda) - end function - -#else - function hipblasDsyr2_64_rank_0(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2_64_rank_0 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - real(c_double),target :: alpha - real(c_double),target :: x - integer(c_int64_t) :: incx - real(c_double),target :: y - integer(c_int64_t) :: incy - real(c_double),target :: AP - integer(c_int64_t) :: lda - ! - hipblasDsyr2_64_rank_0 = hipblasDsyr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & - incy,c_loc(AP),lda) - end function - - function hipblasDsyr2_64_rank_1(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2_64_rank_1 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(:) :: x - integer(c_int64_t) :: incx - real(c_double),target,dimension(:) :: y - integer(c_int64_t) :: incy - real(c_double),target,dimension(:) :: AP - integer(c_int64_t) :: lda - ! - hipblasDsyr2_64_rank_1 = hipblasDsyr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & - incy,c_loc(AP),lda) - end function - - function hipblasDsyr2_64_full_rank(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding + function hipblasCgemvStridedBatched_assumed_rank(handle,transA,m,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemvStridedBatched_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(:) :: x - integer(c_int64_t) :: incx - real(c_double),target,dimension(:) :: y - integer(c_int64_t) :: incy - real(c_double),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount ! - hipblasDsyr2_64_full_rank = hipblasDsyr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & - c_loc(y),incy,c_loc(AP),lda) + hipblasCgemvStridedBatched_assumed_rank = hipblasCgemvStridedBatched_(handle,transA,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCsyr2_64_assumed_rank(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding + function hipblasCgemvStridedBatched_assumed_rank_devptr(handle,transA,m,n,alpha,AP,lda, & + strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemvStridedBatched_assumed_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA complex(c_float_complex),target,dimension(..) :: x - integer(c_int64_t) :: incx + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta complex(c_float_complex),target,dimension(..) :: y - integer(c_int64_t) :: incy - complex(c_float_complex),target,dimension(..) :: AP - integer(c_int64_t) :: lda + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount ! - hipblasCsyr2_64_assumed_rank = hipblasCsyr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & - c_loc(y),incy,c_loc(AP),lda) + hipblasCgemvStridedBatched_assumed_rank_devptr = hipblasCgemvStridedBatched_(handle,transA, & + m,n,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) end function #else - function hipblasCsyr2_64_rank_0(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding + function hipblasCgemvStridedBatched_rank_0(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemvStridedBatched_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: m + integer(c_int) :: n complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA complex(c_float_complex),target :: x - integer(c_int64_t) :: incx + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta complex(c_float_complex),target :: y - integer(c_int64_t) :: incy - complex(c_float_complex),target :: AP - integer(c_int64_t) :: lda + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount ! - hipblasCsyr2_64_rank_0 = hipblasCsyr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & - incy,c_loc(AP),lda) + hipblasCgemvStridedBatched_rank_0 = hipblasCgemvStridedBatched_(handle,transA,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) end function - function hipblasCsyr2_64_rank_1(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding + function hipblasCgemvStridedBatched_rank_0_devptr(handle,transA,m,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemvStridedBatched_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx - complex(c_float_complex),target,dimension(:) :: y - integer(c_int64_t) :: incy - complex(c_float_complex),target,dimension(:) :: AP - integer(c_int64_t) :: lda + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_float_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount ! - hipblasCsyr2_64_rank_1 = hipblasCsyr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & - incy,c_loc(AP),lda) + hipblasCgemvStridedBatched_rank_0_devptr = hipblasCgemvStridedBatched_(handle,transA,m,n, & + alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) end function - function hipblasCsyr2_64_full_rank(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding + function hipblasCgemvStridedBatched_rank_1(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemvStridedBatched_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: m + integer(c_int) :: n complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA complex(c_float_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta complex(c_float_complex),target,dimension(:) :: y - integer(c_int64_t) :: incy - complex(c_float_complex),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - ! - hipblasCsyr2_64_full_rank = hipblasCsyr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & - c_loc(y),incy,c_loc(AP),lda) - end function - -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZsyr2_64_assumed_rank(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2_64_assumed_rank - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: x - integer(c_int64_t) :: incx - complex(c_double_complex),target,dimension(..) :: y - integer(c_int64_t) :: incy - complex(c_double_complex),target,dimension(..) :: AP - integer(c_int64_t) :: lda - ! - hipblasZsyr2_64_assumed_rank = hipblasZsyr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & - c_loc(y),incy,c_loc(AP),lda) - end function - -#else - function hipblasZsyr2_64_rank_0(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2_64_rank_0 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: x - integer(c_int64_t) :: incx - complex(c_double_complex),target :: y - integer(c_int64_t) :: incy - complex(c_double_complex),target :: AP - integer(c_int64_t) :: lda - ! - hipblasZsyr2_64_rank_0 = hipblasZsyr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & - incy,c_loc(AP),lda) - end function - - function hipblasZsyr2_64_rank_1(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2_64_rank_1 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx - complex(c_double_complex),target,dimension(:) :: y - integer(c_int64_t) :: incy - complex(c_double_complex),target,dimension(:) :: AP - integer(c_int64_t) :: lda - ! - hipblasZsyr2_64_rank_1 = hipblasZsyr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & - incy,c_loc(AP),lda) - end function - - function hipblasZsyr2_64_full_rank(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2_64_full_rank - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx - complex(c_double_complex),target,dimension(:) :: y - integer(c_int64_t) :: incy - complex(c_double_complex),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount ! - hipblasZsyr2_64_full_rank = hipblasZsyr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & - c_loc(y),incy,c_loc(AP),lda) + hipblasCgemvStridedBatched_rank_1 = hipblasCgemvStridedBatched_(handle,transA,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasSsyr2StridedBatched_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & - stridey,AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasCgemvStridedBatched_rank_1_devptr(handle,transA,m,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2StridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemvStridedBatched_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: m integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(..) :: x + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - real(c_float),target,dimension(..) :: y + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: y integer(c_int) :: incy integer(c_int64_t) :: stridey - real(c_float),target,dimension(..) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA integer(c_int) :: batchCount ! - hipblasSsyr2StridedBatched_assumed_rank = hipblasSsyr2StridedBatched_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasCgemvStridedBatched_rank_1_devptr = hipblasCgemvStridedBatched_(handle,transA,m,n, & + alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) end function -#else - function hipblasSsyr2StridedBatched_rank_0(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & - AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasCgemvStridedBatched_full_rank(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2StridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemvStridedBatched_full_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: m integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target :: x + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - real(c_float),target :: y + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y integer(c_int) :: incy integer(c_int64_t) :: stridey - real(c_float),target :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA integer(c_int) :: batchCount ! - hipblasSsyr2StridedBatched_rank_0 = hipblasSsyr2StridedBatched_(handle,uplo,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasCgemvStridedBatched_full_rank = hipblasCgemvStridedBatched_(handle,transA,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) end function - function hipblasSsyr2StridedBatched_rank_1(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & - AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasCgemvStridedBatched_full_rank_devptr(handle,transA,m,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2StridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemvStridedBatched_full_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: m integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(:) :: x + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - real(c_float),target,dimension(:) :: y + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: y integer(c_int) :: incy integer(c_int64_t) :: stridey - real(c_float),target,dimension(:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA integer(c_int) :: batchCount ! - hipblasSsyr2StridedBatched_rank_1 = hipblasSsyr2StridedBatched_(handle,uplo,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasCgemvStridedBatched_full_rank_devptr = hipblasCgemvStridedBatched_(handle,transA,m,n, & + alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) end function - function hipblasSsyr2StridedBatched_full_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & - stridey,AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasCgemvStridedBatched_strided_rank(handle,transA,m,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2StridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemvStridedBatched_strided_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: m integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(:) :: x + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - real(c_float),target,dimension(:) :: y + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:,:) :: y integer(c_int) :: incy integer(c_int64_t) :: stridey - real(c_float),target,dimension(:,:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA integer(c_int) :: batchCount ! - hipblasSsyr2StridedBatched_full_rank = hipblasSsyr2StridedBatched_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasCgemvStridedBatched_strided_rank = hipblasCgemvStridedBatched_(handle,transA,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDsyr2StridedBatched_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & - stridey,AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasCgemvStridedBatched_strided_rank_devptr(handle,transA,m,n,alpha,AP,lda, & + strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2StridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemvStridedBatched_strided_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: m integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(..) :: x + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - real(c_double),target,dimension(..) :: y + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:,:) :: y integer(c_int) :: incy integer(c_int64_t) :: stridey - real(c_double),target,dimension(..) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA integer(c_int) :: batchCount ! - hipblasDsyr2StridedBatched_assumed_rank = hipblasDsyr2StridedBatched_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasCgemvStridedBatched_strided_rank_devptr = hipblasCgemvStridedBatched_(handle,transA, & + m,n,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) end function -#else - function hipblasDsyr2StridedBatched_rank_0(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & - AP,lda,strideA,batchCount) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZgemvStridedBatched_assumed_rank(handle,transA,m,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2StridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemvStridedBatched_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: m integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target :: x + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - real(c_double),target :: y + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: y integer(c_int) :: incy integer(c_int64_t) :: stridey - real(c_double),target :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA integer(c_int) :: batchCount ! - hipblasDsyr2StridedBatched_rank_0 = hipblasDsyr2StridedBatched_(handle,uplo,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasZgemvStridedBatched_assumed_rank = hipblasZgemvStridedBatched_(handle,transA,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) end function - function hipblasDsyr2StridedBatched_rank_1(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & - AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasZgemvStridedBatched_assumed_rank_devptr(handle,transA,m,n,alpha,AP,lda, & + strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2StridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemvStridedBatched_assumed_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: m integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(:) :: x + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - real(c_double),target,dimension(:) :: y + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(..) :: y integer(c_int) :: incy integer(c_int64_t) :: stridey - real(c_double),target,dimension(:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA integer(c_int) :: batchCount ! - hipblasDsyr2StridedBatched_rank_1 = hipblasDsyr2StridedBatched_(handle,uplo,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasZgemvStridedBatched_assumed_rank_devptr = hipblasZgemvStridedBatched_(handle,transA, & + m,n,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) end function - function hipblasDsyr2StridedBatched_full_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & - stridey,AP,lda,strideA,batchCount) - use iso_c_binding +#else + function hipblasZgemvStridedBatched_rank_0(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2StridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemvStridedBatched_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: m integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(:) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - real(c_double),target,dimension(:) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stridey - real(c_double),target,dimension(:,:) :: AP + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - integer(c_int) :: batchCount - ! - hipblasDsyr2StridedBatched_full_rank = hipblasDsyr2StridedBatched_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) - end function - -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCsyr2StridedBatched_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & - stridey,AP,lda,strideA,batchCount) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2StridedBatched_assumed_rank - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: x + complex(c_double_complex),target :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - complex(c_float_complex),target,dimension(..) :: y + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: y integer(c_int) :: incy integer(c_int64_t) :: stridey - complex(c_float_complex),target,dimension(..) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA integer(c_int) :: batchCount ! - hipblasCsyr2StridedBatched_assumed_rank = hipblasCsyr2StridedBatched_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasZgemvStridedBatched_rank_0 = hipblasZgemvStridedBatched_(handle,transA,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) end function -#else - function hipblasCsyr2StridedBatched_rank_0(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & - AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasZgemvStridedBatched_rank_0_devptr(handle,transA,m,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2StridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemvStridedBatched_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: m integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: x + type(c_ptr),value :: alpha + complex(c_double_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - complex(c_float_complex),target :: y + type(c_ptr),value :: beta + complex(c_double_complex),target :: y integer(c_int) :: incy integer(c_int64_t) :: stridey - complex(c_float_complex),target :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA integer(c_int) :: batchCount ! - hipblasCsyr2StridedBatched_rank_0 = hipblasCsyr2StridedBatched_(handle,uplo,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasZgemvStridedBatched_rank_0_devptr = hipblasZgemvStridedBatched_(handle,transA,m,n, & + alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) end function - function hipblasCsyr2StridedBatched_rank_1(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & - AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasZgemvStridedBatched_rank_1(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2StridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemvStridedBatched_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: m integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: x + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - complex(c_float_complex),target,dimension(:) :: y + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y integer(c_int) :: incy integer(c_int64_t) :: stridey - complex(c_float_complex),target,dimension(:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA integer(c_int) :: batchCount ! - hipblasCsyr2StridedBatched_rank_1 = hipblasCsyr2StridedBatched_(handle,uplo,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasZgemvStridedBatched_rank_1 = hipblasZgemvStridedBatched_(handle,transA,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) end function - function hipblasCsyr2StridedBatched_full_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & - stridey,AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasZgemvStridedBatched_rank_1_devptr(handle,transA,m,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2StridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemvStridedBatched_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: m integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: x + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - complex(c_float_complex),target,dimension(:) :: y + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: y integer(c_int) :: incy integer(c_int64_t) :: stridey - complex(c_float_complex),target,dimension(:,:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA integer(c_int) :: batchCount ! - hipblasCsyr2StridedBatched_full_rank = hipblasCsyr2StridedBatched_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasZgemvStridedBatched_rank_1_devptr = hipblasZgemvStridedBatched_(handle,transA,m,n, & + alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZsyr2StridedBatched_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & - stridey,AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasZgemvStridedBatched_full_rank(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2StridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemvStridedBatched_full_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: m integer(c_int) :: n complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: x + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - complex(c_double_complex),target,dimension(..) :: y + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y integer(c_int) :: incy integer(c_int64_t) :: stridey - complex(c_double_complex),target,dimension(..) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA integer(c_int) :: batchCount ! - hipblasZsyr2StridedBatched_assumed_rank = hipblasZsyr2StridedBatched_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasZgemvStridedBatched_full_rank = hipblasZgemvStridedBatched_(handle,transA,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) end function -#else - function hipblasZsyr2StridedBatched_rank_0(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & - AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasZgemvStridedBatched_full_rank_devptr(handle,transA,m,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2StridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemvStridedBatched_full_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: m integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: x + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - complex(c_double_complex),target :: y + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: y integer(c_int) :: incy integer(c_int64_t) :: stridey - complex(c_double_complex),target :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA integer(c_int) :: batchCount ! - hipblasZsyr2StridedBatched_rank_0 = hipblasZsyr2StridedBatched_(handle,uplo,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasZgemvStridedBatched_full_rank_devptr = hipblasZgemvStridedBatched_(handle,transA,m,n, & + alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) end function - function hipblasZsyr2StridedBatched_rank_1(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & - AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasZgemvStridedBatched_strided_rank(handle,transA,m,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2StridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemvStridedBatched_strided_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: m integer(c_int) :: n complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: x + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - complex(c_double_complex),target,dimension(:) :: y + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:) :: y integer(c_int) :: incy integer(c_int64_t) :: stridey - complex(c_double_complex),target,dimension(:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA integer(c_int) :: batchCount ! - hipblasZsyr2StridedBatched_rank_1 = hipblasZsyr2StridedBatched_(handle,uplo,n,c_loc(alpha), & - c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasZgemvStridedBatched_strided_rank = hipblasZgemvStridedBatched_(handle,transA,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) end function - function hipblasZsyr2StridedBatched_full_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & - stridey,AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasZgemvStridedBatched_strided_rank_devptr(handle,transA,m,n,alpha,AP,lda, & + strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2StridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemvStridedBatched_strided_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: m integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: x + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: x integer(c_int) :: incx integer(c_int64_t) :: stridex - complex(c_double_complex),target,dimension(:) :: y + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:,:) :: y integer(c_int) :: incy integer(c_int64_t) :: stridey - complex(c_double_complex),target,dimension(:,:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA integer(c_int) :: batchCount ! - hipblasZsyr2StridedBatched_full_rank = hipblasZsyr2StridedBatched_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasZgemvStridedBatched_strided_rank_devptr = hipblasZgemvStridedBatched_(handle,transA, & + m,n,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasSsyr2StridedBatched_64_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & - stridey,AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasSgemvStridedBatched_64_assumed_rank(handle,transA,m,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2StridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemvStridedBatched_64_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: m integer(c_int64_t) :: n real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA real(c_float),target,dimension(..) :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex + real(c_float),target :: beta real(c_float),target,dimension(..) :: y integer(c_int64_t) :: incy integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasSgemvStridedBatched_64_assumed_rank = hipblasSgemvStridedBatched_64_(handle,transA,m, & + n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasSgemvStridedBatched_64_assumed_rank_devptr(handle,transA,m,n,alpha,AP,lda, & + strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemvStridedBatched_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha real(c_float),target,dimension(..) :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount ! - hipblasSsyr2StridedBatched_64_assumed_rank = hipblasSsyr2StridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasSgemvStridedBatched_64_assumed_rank_devptr = hipblasSgemvStridedBatched_64_(handle, & + transA,m,n,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey, & + batchCount) end function #else - function hipblasSsyr2StridedBatched_64_rank_0(handle,uplo,n,alpha,x,incx,stridex,y,incy, & - stridey,AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasSgemvStridedBatched_64_rank_0(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2StridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemvStridedBatched_64_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: m integer(c_int64_t) :: n real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA real(c_float),target :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex + real(c_float),target :: beta real(c_float),target :: y integer(c_int64_t) :: incy integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasSgemvStridedBatched_64_rank_0 = hipblasSgemvStridedBatched_64_(handle,transA,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasSgemvStridedBatched_64_rank_0_devptr(handle,transA,m,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemvStridedBatched_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha real(c_float),target :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA + real(c_float),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_float),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey integer(c_int64_t) :: batchCount ! - hipblasSsyr2StridedBatched_64_rank_0 = hipblasSsyr2StridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasSgemvStridedBatched_64_rank_0_devptr = hipblasSgemvStridedBatched_64_(handle,transA, & + m,n,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) end function - function hipblasSsyr2StridedBatched_64_rank_1(handle,uplo,n,alpha,x,incx,stridex,y,incy, & - stridey,AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasSgemvStridedBatched_64_rank_1(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2StridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemvStridedBatched_64_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: m integer(c_int64_t) :: n real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA real(c_float),target,dimension(:) :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex + real(c_float),target :: beta real(c_float),target,dimension(:) :: y integer(c_int64_t) :: incy integer(c_int64_t) :: stridey - real(c_float),target,dimension(:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA integer(c_int64_t) :: batchCount ! - hipblasSsyr2StridedBatched_64_rank_1 = hipblasSsyr2StridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasSgemvStridedBatched_64_rank_1 = hipblasSgemvStridedBatched_64_(handle,transA,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) end function - function hipblasSsyr2StridedBatched_64_full_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & - stridey,AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasSgemvStridedBatched_64_rank_1_devptr(handle,transA,m,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2StridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemvStridedBatched_64_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: m integer(c_int64_t) :: n - real(c_float),target :: alpha + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA real(c_float),target,dimension(:) :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex + type(c_ptr),value :: beta real(c_float),target,dimension(:) :: y integer(c_int64_t) :: incy integer(c_int64_t) :: stridey - real(c_float),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA integer(c_int64_t) :: batchCount ! - hipblasSsyr2StridedBatched_64_full_rank = hipblasSsyr2StridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasSgemvStridedBatched_64_rank_1_devptr = hipblasSgemvStridedBatched_64_(handle,transA, & + m,n,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDsyr2StridedBatched_64_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & - stridey,AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasSgemvStridedBatched_64_full_rank(handle,transA,m,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2StridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemvStridedBatched_64_full_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: m integer(c_int64_t) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(..) :: x + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - real(c_double),target,dimension(..) :: y + real(c_float),target :: beta + real(c_float),target,dimension(:) :: y integer(c_int64_t) :: incy integer(c_int64_t) :: stridey - real(c_double),target,dimension(..) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA integer(c_int64_t) :: batchCount ! - hipblasDsyr2StridedBatched_64_assumed_rank = hipblasDsyr2StridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasSgemvStridedBatched_64_full_rank = hipblasSgemvStridedBatched_64_(handle,transA,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) end function -#else - function hipblasDsyr2StridedBatched_64_rank_0(handle,uplo,n,alpha,x,incx,stridex,y,incy, & - stridey,AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasSgemvStridedBatched_64_full_rank_devptr(handle,transA,m,n,alpha,AP,lda, & + strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2StridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemvStridedBatched_64_full_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: m integer(c_int64_t) :: n - real(c_double),target :: alpha - real(c_double),target :: x + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - real(c_double),target :: y + type(c_ptr),value :: beta + real(c_float),target,dimension(:) :: y integer(c_int64_t) :: incy integer(c_int64_t) :: stridey - real(c_double),target :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA integer(c_int64_t) :: batchCount ! - hipblasDsyr2StridedBatched_64_rank_0 = hipblasDsyr2StridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasSgemvStridedBatched_64_full_rank_devptr = hipblasSgemvStridedBatched_64_(handle, & + transA,m,n,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey, & + batchCount) end function - function hipblasDsyr2StridedBatched_64_rank_1(handle,uplo,n,alpha,x,incx,stridex,y,incy, & - stridey,AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasSgemvStridedBatched_64_strided_rank(handle,transA,m,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2StridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemvStridedBatched_64_strided_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: m integer(c_int64_t) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(:) :: x + real(c_float),target :: alpha + real(c_float),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:,:) :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - real(c_double),target,dimension(:) :: y + real(c_float),target :: beta + real(c_float),target,dimension(:,:) :: y integer(c_int64_t) :: incy integer(c_int64_t) :: stridey - real(c_double),target,dimension(:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA integer(c_int64_t) :: batchCount ! - hipblasDsyr2StridedBatched_64_rank_1 = hipblasDsyr2StridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasSgemvStridedBatched_64_strided_rank = hipblasSgemvStridedBatched_64_(handle,transA,m, & + n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) end function - function hipblasDsyr2StridedBatched_64_full_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & - stridey,AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasSgemvStridedBatched_64_strided_rank_devptr(handle,transA,m,n,alpha,AP,lda, & + strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2StridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemvStridedBatched_64_strided_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: m integer(c_int64_t) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(:) :: x + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:,:) :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - real(c_double),target,dimension(:) :: y + type(c_ptr),value :: beta + real(c_float),target,dimension(:,:) :: y integer(c_int64_t) :: incy integer(c_int64_t) :: stridey - real(c_double),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA integer(c_int64_t) :: batchCount ! - hipblasDsyr2StridedBatched_64_full_rank = hipblasDsyr2StridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasSgemvStridedBatched_64_strided_rank_devptr = hipblasSgemvStridedBatched_64_(handle, & + transA,m,n,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey, & + batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCsyr2StridedBatched_64_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & - stridey,AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasDgemvStridedBatched_64_assumed_rank(handle,transA,m,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2StridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemvStridedBatched_64_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: x + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - complex(c_float_complex),target,dimension(..) :: y + real(c_double),target :: beta + real(c_double),target,dimension(..) :: y integer(c_int64_t) :: incy integer(c_int64_t) :: stridey - complex(c_float_complex),target,dimension(..) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA integer(c_int64_t) :: batchCount ! - hipblasCsyr2StridedBatched_64_assumed_rank = hipblasCsyr2StridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasDgemvStridedBatched_64_assumed_rank = hipblasDgemvStridedBatched_64_(handle,transA,m, & + n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) end function -#else - function hipblasCsyr2StridedBatched_64_rank_0(handle,uplo,n,alpha,x,incx,stridex,y,incy, & - stridey,AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasDgemvStridedBatched_64_assumed_rank_devptr(handle,transA,m,n,alpha,AP,lda, & + strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2StridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemvStridedBatched_64_assumed_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: x + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - complex(c_float_complex),target :: y + type(c_ptr),value :: beta + real(c_double),target,dimension(..) :: y integer(c_int64_t) :: incy integer(c_int64_t) :: stridey - complex(c_float_complex),target :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA integer(c_int64_t) :: batchCount ! - hipblasCsyr2StridedBatched_64_rank_0 = hipblasCsyr2StridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasDgemvStridedBatched_64_assumed_rank_devptr = hipblasDgemvStridedBatched_64_(handle, & + transA,m,n,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey, & + batchCount) end function - function hipblasCsyr2StridedBatched_64_rank_1(handle,uplo,n,alpha,x,incx,stridex,y,incy, & - stridey,AP,lda,strideA,batchCount) - use iso_c_binding +#else + function hipblasDgemvStridedBatched_64_rank_0(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2StridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemvStridedBatched_64_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: x + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - complex(c_float_complex),target,dimension(:) :: y + real(c_double),target :: beta + real(c_double),target :: y integer(c_int64_t) :: incy integer(c_int64_t) :: stridey - complex(c_float_complex),target,dimension(:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA integer(c_int64_t) :: batchCount ! - hipblasCsyr2StridedBatched_64_rank_1 = hipblasCsyr2StridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasDgemvStridedBatched_64_rank_0 = hipblasDgemvStridedBatched_64_(handle,transA,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) end function - function hipblasCsyr2StridedBatched_64_full_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & - stridey,AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasDgemvStridedBatched_64_rank_0_devptr(handle,transA,m,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2StridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemvStridedBatched_64_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: x + type(c_ptr),value :: alpha + real(c_double),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - complex(c_float_complex),target,dimension(:) :: y + type(c_ptr),value :: beta + real(c_double),target :: y integer(c_int64_t) :: incy integer(c_int64_t) :: stridey - complex(c_float_complex),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA integer(c_int64_t) :: batchCount ! - hipblasCsyr2StridedBatched_64_full_rank = hipblasCsyr2StridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasDgemvStridedBatched_64_rank_0_devptr = hipblasDgemvStridedBatched_64_(handle,transA, & + m,n,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZsyr2StridedBatched_64_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & - stridey,AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasDgemvStridedBatched_64_rank_1(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2StridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemvStridedBatched_64_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: x + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - complex(c_double_complex),target,dimension(..) :: y + real(c_double),target :: beta + real(c_double),target,dimension(:) :: y integer(c_int64_t) :: incy integer(c_int64_t) :: stridey - complex(c_double_complex),target,dimension(..) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA integer(c_int64_t) :: batchCount ! - hipblasZsyr2StridedBatched_64_assumed_rank = hipblasZsyr2StridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasDgemvStridedBatched_64_rank_1 = hipblasDgemvStridedBatched_64_(handle,transA,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) end function -#else - function hipblasZsyr2StridedBatched_64_rank_0(handle,uplo,n,alpha,x,incx,stridex,y,incy, & - stridey,AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasDgemvStridedBatched_64_rank_1_devptr(handle,transA,m,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2StridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemvStridedBatched_64_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: x + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - complex(c_double_complex),target :: y + type(c_ptr),value :: beta + real(c_double),target,dimension(:) :: y integer(c_int64_t) :: incy integer(c_int64_t) :: stridey - complex(c_double_complex),target :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA integer(c_int64_t) :: batchCount ! - hipblasZsyr2StridedBatched_64_rank_0 = hipblasZsyr2StridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasDgemvStridedBatched_64_rank_1_devptr = hipblasDgemvStridedBatched_64_(handle,transA, & + m,n,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) end function - function hipblasZsyr2StridedBatched_64_rank_1(handle,uplo,n,alpha,x,incx,stridex,y,incy, & - stridey,AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasDgemvStridedBatched_64_full_rank(handle,transA,m,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2StridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemvStridedBatched_64_full_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: x + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - complex(c_double_complex),target,dimension(:) :: y + real(c_double),target :: beta + real(c_double),target,dimension(:) :: y integer(c_int64_t) :: incy integer(c_int64_t) :: stridey - complex(c_double_complex),target,dimension(:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA integer(c_int64_t) :: batchCount ! - hipblasZsyr2StridedBatched_64_rank_1 = hipblasZsyr2StridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasDgemvStridedBatched_64_full_rank = hipblasDgemvStridedBatched_64_(handle,transA,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) end function - function hipblasZsyr2StridedBatched_64_full_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & - stridey,AP,lda,strideA,batchCount) - use iso_c_binding + function hipblasDgemvStridedBatched_64_full_rank_devptr(handle,transA,m,n,alpha,AP,lda, & + strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2StridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemvStridedBatched_64_full_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: x + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x integer(c_int64_t) :: incx integer(c_int64_t) :: stridex - complex(c_double_complex),target,dimension(:) :: y + type(c_ptr),value :: beta + real(c_double),target,dimension(:) :: y integer(c_int64_t) :: incy integer(c_int64_t) :: stridey - complex(c_double_complex),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA integer(c_int64_t) :: batchCount ! - hipblasZsyr2StridedBatched_64_full_rank = hipblasZsyr2StridedBatched_64_(handle,uplo,n, & - c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + hipblasDgemvStridedBatched_64_full_rank_devptr = hipblasDgemvStridedBatched_64_(handle, & + transA,m,n,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey, & + batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasStbmv_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) - use iso_c_binding + function hipblasDgemvStridedBatched_64_strided_rank(handle,transA,m,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbmv_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemvStridedBatched_64_strided_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - integer(c_int) :: k - real(c_float),target,dimension(..) :: AP - integer(c_int) :: lda - real(c_float),target,dimension(..) :: x - integer(c_int) :: incx + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasStbmv_assumed_rank = hipblasStbmv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & - c_loc(x),incx) + hipblasDgemvStridedBatched_64_strided_rank = hipblasDgemvStridedBatched_64_(handle,transA,m, & + n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) end function -#else - function hipblasStbmv_rank_0(handle,uplo,transA,diag,n,k,AP,lda,x,incx) - use iso_c_binding + function hipblasDgemvStridedBatched_64_strided_rank_devptr(handle,transA,m,n,alpha,AP,lda, & + strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbmv_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemvStridedBatched_64_strided_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - integer(c_int) :: k - real(c_float),target :: AP - integer(c_int) :: lda - real(c_float),target :: x - integer(c_int) :: incx + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_double),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasStbmv_rank_0 = hipblasStbmv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda,c_loc(x),incx) + hipblasDgemvStridedBatched_64_strided_rank_devptr = hipblasDgemvStridedBatched_64_(handle, & + transA,m,n,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey, & + batchCount) end function - function hipblasStbmv_rank_1(handle,uplo,transA,diag,n,k,AP,lda,x,incx) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCgemvStridedBatched_64_assumed_rank(handle,transA,m,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbmv_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemvStridedBatched_64_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - integer(c_int) :: k - real(c_float),target,dimension(:) :: AP - integer(c_int) :: lda - real(c_float),target,dimension(:) :: x - integer(c_int) :: incx + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasStbmv_rank_1 = hipblasStbmv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda,c_loc(x),incx) + hipblasCgemvStridedBatched_64_assumed_rank = hipblasCgemvStridedBatched_64_(handle,transA,m, & + n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) end function - function hipblasStbmv_full_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) - use iso_c_binding + function hipblasCgemvStridedBatched_64_assumed_rank_devptr(handle,transA,m,n,alpha,AP,lda, & + strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbmv_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemvStridedBatched_64_assumed_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - integer(c_int) :: k - real(c_float),target,dimension(:,:) :: AP - integer(c_int) :: lda - real(c_float),target,dimension(:) :: x - integer(c_int) :: incx + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasStbmv_full_rank = hipblasStbmv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda,c_loc(x), & - incx) + hipblasCgemvStridedBatched_64_assumed_rank_devptr = hipblasCgemvStridedBatched_64_(handle, & + transA,m,n,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey, & + batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDtbmv_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) - use iso_c_binding +#else + function hipblasCgemvStridedBatched_64_rank_0(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbmv_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemvStridedBatched_64_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - integer(c_int) :: k - real(c_double),target,dimension(..) :: AP - integer(c_int) :: lda - real(c_double),target,dimension(..) :: x - integer(c_int) :: incx + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasDtbmv_assumed_rank = hipblasDtbmv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & - c_loc(x),incx) + hipblasCgemvStridedBatched_64_rank_0 = hipblasCgemvStridedBatched_64_(handle,transA,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) end function -#else - function hipblasDtbmv_rank_0(handle,uplo,transA,diag,n,k,AP,lda,x,incx) - use iso_c_binding + function hipblasCgemvStridedBatched_64_rank_0_devptr(handle,transA,m,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbmv_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemvStridedBatched_64_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - integer(c_int) :: k - real(c_double),target :: AP - integer(c_int) :: lda - real(c_double),target :: x - integer(c_int) :: incx + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasDtbmv_rank_0 = hipblasDtbmv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda,c_loc(x),incx) + hipblasCgemvStridedBatched_64_rank_0_devptr = hipblasCgemvStridedBatched_64_(handle,transA, & + m,n,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) end function - function hipblasDtbmv_rank_1(handle,uplo,transA,diag,n,k,AP,lda,x,incx) - use iso_c_binding + function hipblasCgemvStridedBatched_64_rank_1(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbmv_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemvStridedBatched_64_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - integer(c_int) :: k - real(c_double),target,dimension(:) :: AP - integer(c_int) :: lda - real(c_double),target,dimension(:) :: x - integer(c_int) :: incx + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasDtbmv_rank_1 = hipblasDtbmv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda,c_loc(x),incx) + hipblasCgemvStridedBatched_64_rank_1 = hipblasCgemvStridedBatched_64_(handle,transA,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) end function - function hipblasDtbmv_full_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) - use iso_c_binding + function hipblasCgemvStridedBatched_64_rank_1_devptr(handle,transA,m,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbmv_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemvStridedBatched_64_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - integer(c_int) :: k - real(c_double),target,dimension(:,:) :: AP - integer(c_int) :: lda - real(c_double),target,dimension(:) :: x - integer(c_int) :: incx + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasDtbmv_full_rank = hipblasDtbmv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda,c_loc(x), & - incx) + hipblasCgemvStridedBatched_64_rank_1_devptr = hipblasCgemvStridedBatched_64_(handle,transA, & + m,n,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCtbmv_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) - use iso_c_binding + function hipblasCgemvStridedBatched_64_full_rank(handle,transA,m,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbmv_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemvStridedBatched_64_full_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - integer(c_int) :: k - complex(c_float_complex),target,dimension(..) :: AP - integer(c_int) :: lda - complex(c_float_complex),target,dimension(..) :: x - integer(c_int) :: incx + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasCtbmv_assumed_rank = hipblasCtbmv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & - c_loc(x),incx) + hipblasCgemvStridedBatched_64_full_rank = hipblasCgemvStridedBatched_64_(handle,transA,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) end function -#else - function hipblasCtbmv_rank_0(handle,uplo,transA,diag,n,k,AP,lda,x,incx) - use iso_c_binding + function hipblasCgemvStridedBatched_64_full_rank_devptr(handle,transA,m,n,alpha,AP,lda, & + strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbmv_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemvStridedBatched_64_full_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - integer(c_int) :: k - complex(c_float_complex),target :: AP - integer(c_int) :: lda - complex(c_float_complex),target :: x - integer(c_int) :: incx + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasCtbmv_rank_0 = hipblasCtbmv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda,c_loc(x),incx) + hipblasCgemvStridedBatched_64_full_rank_devptr = hipblasCgemvStridedBatched_64_(handle, & + transA,m,n,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey, & + batchCount) end function - function hipblasCtbmv_rank_1(handle,uplo,transA,diag,n,k,AP,lda,x,incx) - use iso_c_binding + function hipblasCgemvStridedBatched_64_strided_rank(handle,transA,m,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbmv_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemvStridedBatched_64_strided_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - integer(c_int) :: k - complex(c_float_complex),target,dimension(:) :: AP - integer(c_int) :: lda - complex(c_float_complex),target,dimension(:) :: x - integer(c_int) :: incx + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasCtbmv_rank_1 = hipblasCtbmv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda,c_loc(x),incx) + hipblasCgemvStridedBatched_64_strided_rank = hipblasCgemvStridedBatched_64_(handle,transA,m, & + n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) end function - function hipblasCtbmv_full_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) - use iso_c_binding + function hipblasCgemvStridedBatched_64_strided_rank_devptr(handle,transA,m,n,alpha,AP,lda, & + strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbmv_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemvStridedBatched_64_strided_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - integer(c_int) :: k - complex(c_float_complex),target,dimension(:,:) :: AP - integer(c_int) :: lda - complex(c_float_complex),target,dimension(:) :: x - integer(c_int) :: incx + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasCtbmv_full_rank = hipblasCtbmv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda,c_loc(x), & - incx) + hipblasCgemvStridedBatched_64_strided_rank_devptr = hipblasCgemvStridedBatched_64_(handle, & + transA,m,n,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey, & + batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasZtbmv_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) - use iso_c_binding + function hipblasZgemvStridedBatched_64_assumed_rank(handle,transA,m,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbmv_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemvStridedBatched_64_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - integer(c_int) :: k + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha complex(c_double_complex),target,dimension(..) :: AP - integer(c_int) :: lda + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA complex(c_double_complex),target,dimension(..) :: x - integer(c_int) :: incx + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasZtbmv_assumed_rank = hipblasZtbmv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & - c_loc(x),incx) + hipblasZgemvStridedBatched_64_assumed_rank = hipblasZgemvStridedBatched_64_(handle,transA,m, & + n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) end function -#else - function hipblasZtbmv_rank_0(handle,uplo,transA,diag,n,k,AP,lda,x,incx) - use iso_c_binding + function hipblasZgemvStridedBatched_64_assumed_rank_devptr(handle,transA,m,n,alpha,AP,lda, & + strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbmv_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemvStridedBatched_64_assumed_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - integer(c_int) :: k - complex(c_double_complex),target :: AP - integer(c_int) :: lda - complex(c_double_complex),target :: x - integer(c_int) :: incx + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasZtbmv_rank_0 = hipblasZtbmv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda,c_loc(x),incx) + hipblasZgemvStridedBatched_64_assumed_rank_devptr = hipblasZgemvStridedBatched_64_(handle, & + transA,m,n,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey, & + batchCount) end function - function hipblasZtbmv_rank_1(handle,uplo,transA,diag,n,k,AP,lda,x,incx) - use iso_c_binding +#else + function hipblasZgemvStridedBatched_64_rank_0(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbmv_rank_1 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - integer(c_int) :: k - complex(c_double_complex),target,dimension(:) :: AP - integer(c_int) :: lda - complex(c_double_complex),target,dimension(:) :: x - integer(c_int) :: incx - ! - hipblasZtbmv_rank_1 = hipblasZtbmv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda,c_loc(x),incx) - end function - - function hipblasZtbmv_full_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbmv_full_rank - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - integer(c_int) :: k - complex(c_double_complex),target,dimension(:,:) :: AP - integer(c_int) :: lda - complex(c_double_complex),target,dimension(:) :: x - integer(c_int) :: incx - ! - hipblasZtbmv_full_rank = hipblasZtbmv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda,c_loc(x), & - incx) - end function - -#endif -#ifdef USE_ASSUMED_RANK - function hipblasStbmv_64_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbmv_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemvStridedBatched_64_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_float),target,dimension(..) :: AP + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP integer(c_int64_t) :: lda - real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: x integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasStbmv_64_assumed_rank = hipblasStbmv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & - c_loc(x),incx) + hipblasZgemvStridedBatched_64_rank_0 = hipblasZgemvStridedBatched_64_(handle,transA,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) end function -#else - function hipblasStbmv_64_rank_0(handle,uplo,transA,diag,n,k,AP,lda,x,incx) - use iso_c_binding + function hipblasZgemvStridedBatched_64_rank_0_devptr(handle,transA,m,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbmv_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemvStridedBatched_64_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_float),target :: AP + type(c_ptr),value :: alpha + complex(c_double_complex),target :: AP integer(c_int64_t) :: lda - real(c_float),target :: x + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: x integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasStbmv_64_rank_0 = hipblasStbmv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & - c_loc(x),incx) + hipblasZgemvStridedBatched_64_rank_0_devptr = hipblasZgemvStridedBatched_64_(handle,transA, & + m,n,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) end function - function hipblasStbmv_64_rank_1(handle,uplo,transA,diag,n,k,AP,lda,x,incx) - use iso_c_binding + function hipblasZgemvStridedBatched_64_rank_1(handle,transA,m,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbmv_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemvStridedBatched_64_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_float),target,dimension(:) :: AP + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP integer(c_int64_t) :: lda - real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasStbmv_64_rank_1 = hipblasStbmv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & - c_loc(x),incx) + hipblasZgemvStridedBatched_64_rank_1 = hipblasZgemvStridedBatched_64_(handle,transA,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) end function - function hipblasStbmv_64_full_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) - use iso_c_binding + function hipblasZgemvStridedBatched_64_rank_1_devptr(handle,transA,m,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbmv_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemvStridedBatched_64_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_float),target,dimension(:,:) :: AP + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: AP integer(c_int64_t) :: lda - real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasStbmv_64_full_rank = hipblasStbmv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & - c_loc(x),incx) + hipblasZgemvStridedBatched_64_rank_1_devptr = hipblasZgemvStridedBatched_64_(handle,transA, & + m,n,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDtbmv_64_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) - use iso_c_binding + function hipblasZgemvStridedBatched_64_full_rank(handle,transA,m,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbmv_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemvStridedBatched_64_full_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_double),target,dimension(..) :: AP + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP integer(c_int64_t) :: lda - real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasDtbmv_64_assumed_rank = hipblasDtbmv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & - c_loc(x),incx) + hipblasZgemvStridedBatched_64_full_rank = hipblasZgemvStridedBatched_64_(handle,transA,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) end function -#else - function hipblasDtbmv_64_rank_0(handle,uplo,transA,diag,n,k,AP,lda,x,incx) - use iso_c_binding + function hipblasZgemvStridedBatched_64_full_rank_devptr(handle,transA,m,n,alpha,AP,lda, & + strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbmv_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemvStridedBatched_64_full_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_double),target :: AP + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP integer(c_int64_t) :: lda - real(c_double),target :: x + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasDtbmv_64_rank_0 = hipblasDtbmv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & - c_loc(x),incx) + hipblasZgemvStridedBatched_64_full_rank_devptr = hipblasZgemvStridedBatched_64_(handle, & + transA,m,n,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey, & + batchCount) end function - function hipblasDtbmv_64_rank_1(handle,uplo,transA,diag,n,k,AP,lda,x,incx) - use iso_c_binding + function hipblasZgemvStridedBatched_64_strided_rank(handle,transA,m,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbmv_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemvStridedBatched_64_strided_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_double),target,dimension(:) :: AP + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:,:) :: AP integer(c_int64_t) :: lda - real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: x integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasDtbmv_64_rank_1 = hipblasDtbmv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & - c_loc(x),incx) + hipblasZgemvStridedBatched_64_strided_rank = hipblasZgemvStridedBatched_64_(handle,transA,m, & + n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) end function - function hipblasDtbmv_64_full_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) - use iso_c_binding + function hipblasZgemvStridedBatched_64_strided_rank_devptr(handle,transA,m,n,alpha,AP,lda, & + strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbmv_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemvStridedBatched_64_strided_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_double),target,dimension(:,:) :: AP + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:,:) :: AP integer(c_int64_t) :: lda - real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: x integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount ! - hipblasDtbmv_64_full_rank = hipblasDtbmv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & - c_loc(x),incx) + hipblasZgemvStridedBatched_64_strided_rank_devptr = hipblasZgemvStridedBatched_64_(handle, & + transA,m,n,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey, & + batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCtbmv_64_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) - use iso_c_binding + function hipblasSger_assumed_rank(handle,m,n,alpha,x,incx,y,incy,AP,lda) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbmv_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSger_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_float_complex),target,dimension(..) :: AP - integer(c_int64_t) :: lda - complex(c_float_complex),target,dimension(..) :: x - integer(c_int64_t) :: incx + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + real(c_float),target,dimension(..) :: y + integer(c_int) :: incy + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda ! - hipblasCtbmv_64_assumed_rank = hipblasCtbmv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & - c_loc(x),incx) + hipblasSger_assumed_rank = hipblasSger_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) end function -#else - function hipblasCtbmv_64_rank_0(handle,uplo,transA,diag,n,k,AP,lda,x,incx) - use iso_c_binding + function hipblasSger_assumed_rank_devptr(handle,m,n,alpha,x,incx,y,incy,AP,lda) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbmv_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSger_assumed_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_float_complex),target :: AP - integer(c_int64_t) :: lda - complex(c_float_complex),target :: x - integer(c_int64_t) :: incx + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + real(c_float),target,dimension(..) :: y + integer(c_int) :: incy + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda ! - hipblasCtbmv_64_rank_0 = hipblasCtbmv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & - c_loc(x),incx) + hipblasSger_assumed_rank_devptr = hipblasSger_(handle,m,n,alpha,c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) end function - function hipblasCtbmv_64_rank_1(handle,uplo,transA,diag,n,k,AP,lda,x,incx) - use iso_c_binding +#else + function hipblasSger_rank_0(handle,m,n,alpha,x,incx,y,incy,AP,lda) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbmv_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSger_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_float_complex),target,dimension(:) :: AP - integer(c_int64_t) :: lda - complex(c_float_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target :: x + integer(c_int) :: incx + real(c_float),target :: y + integer(c_int) :: incy + real(c_float),target :: AP + integer(c_int) :: lda ! - hipblasCtbmv_64_rank_1 = hipblasCtbmv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & - c_loc(x),incx) + hipblasSger_rank_0 = hipblasSger_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) end function - function hipblasCtbmv_64_full_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) - use iso_c_binding + function hipblasSger_rank_0_devptr(handle,m,n,alpha,x,incx,y,incy,AP,lda) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbmv_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSger_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_float_complex),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - complex(c_float_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target :: x + integer(c_int) :: incx + real(c_float),target :: y + integer(c_int) :: incy + real(c_float),target :: AP + integer(c_int) :: lda ! - hipblasCtbmv_64_full_rank = hipblasCtbmv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & - c_loc(x),incx) + hipblasSger_rank_0_devptr = hipblasSger_(handle,m,n,alpha,c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZtbmv_64_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) - use iso_c_binding + function hipblasSger_rank_1(handle,m,n,alpha,x,incx,y,incy,AP,lda) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbmv_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSger_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_double_complex),target,dimension(..) :: AP - integer(c_int64_t) :: lda - complex(c_double_complex),target,dimension(..) :: x - integer(c_int64_t) :: incx + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda ! - hipblasZtbmv_64_assumed_rank = hipblasZtbmv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & - c_loc(x),incx) + hipblasSger_rank_1 = hipblasSger_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) end function -#else - function hipblasZtbmv_64_rank_0(handle,uplo,transA,diag,n,k,AP,lda,x,incx) - use iso_c_binding + function hipblasSger_rank_1_devptr(handle,m,n,alpha,x,incx,y,incy,AP,lda) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbmv_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSger_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_double_complex),target :: AP - integer(c_int64_t) :: lda - complex(c_double_complex),target :: x - integer(c_int64_t) :: incx + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda ! - hipblasZtbmv_64_rank_0 = hipblasZtbmv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & - c_loc(x),incx) + hipblasSger_rank_1_devptr = hipblasSger_(handle,m,n,alpha,c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) end function - function hipblasZtbmv_64_rank_1(handle,uplo,transA,diag,n,k,AP,lda,x,incx) - use iso_c_binding + function hipblasSger_full_rank(handle,m,n,alpha,x,incx,y,incy,AP,lda) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbmv_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSger_full_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_double_complex),target,dimension(:) :: AP - integer(c_int64_t) :: lda - complex(c_double_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda ! - hipblasZtbmv_64_rank_1 = hipblasZtbmv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & - c_loc(x),incx) + hipblasSger_full_rank = hipblasSger_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) end function - function hipblasZtbmv_64_full_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) - use iso_c_binding + function hipblasSger_full_rank_devptr(handle,m,n,alpha,x,incx,y,incy,AP,lda) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbmv_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSger_full_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_double_complex),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - complex(c_double_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda ! - hipblasZtbmv_64_full_rank = hipblasZtbmv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & - c_loc(x),incx) + hipblasSger_full_rank_devptr = hipblasSger_(handle,m,n,alpha,c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasStbmvStridedBatched_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & - incx,stridex,batchCount) - use iso_c_binding + function hipblasDger_assumed_rank(handle,m,n,alpha,x,incx,y,incy,AP,lda) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbmvStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDger_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - real(c_float),target,dimension(..) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_float),target,dimension(..) :: x + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount + real(c_double),target,dimension(..) :: y + integer(c_int) :: incy + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda ! - hipblasStbmvStridedBatched_assumed_rank = hipblasStbmvStridedBatched_(handle,uplo,transA, & - diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasDger_assumed_rank = hipblasDger_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) end function -#else - function hipblasStbmvStridedBatched_rank_0(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasDger_assumed_rank_devptr(handle,m,n,alpha,x,incx,y,incy,AP,lda) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbmvStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDger_assumed_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - real(c_float),target :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_float),target :: x + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount + real(c_double),target,dimension(..) :: y + integer(c_int) :: incy + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda ! - hipblasStbmvStridedBatched_rank_0 = hipblasStbmvStridedBatched_(handle,uplo,transA,diag,n,k, & - c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasDger_assumed_rank_devptr = hipblasDger_(handle,m,n,alpha,c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) end function - function hipblasStbmvStridedBatched_rank_1(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding +#else + function hipblasDger_rank_0(handle,m,n,alpha,x,incx,y,incy,AP,lda) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbmvStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDger_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - real(c_float),target,dimension(:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_float),target,dimension(:) :: x + real(c_double),target :: alpha + real(c_double),target :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount + real(c_double),target :: y + integer(c_int) :: incy + real(c_double),target :: AP + integer(c_int) :: lda ! - hipblasStbmvStridedBatched_rank_1 = hipblasStbmvStridedBatched_(handle,uplo,transA,diag,n,k, & - c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasDger_rank_0 = hipblasDger_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) end function - function hipblasStbmvStridedBatched_full_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & - incx,stridex,batchCount) - use iso_c_binding + function hipblasDger_rank_0_devptr(handle,m,n,alpha,x,incx,y,incy,AP,lda) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbmvStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDger_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - real(c_float),target,dimension(:,:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_float),target,dimension(:) :: x + type(c_ptr),value :: alpha + real(c_double),target :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount + real(c_double),target :: y + integer(c_int) :: incy + real(c_double),target :: AP + integer(c_int) :: lda ! - hipblasStbmvStridedBatched_full_rank = hipblasStbmvStridedBatched_(handle,uplo,transA,diag, & - n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasDger_rank_0_devptr = hipblasDger_(handle,m,n,alpha,c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDtbmvStridedBatched_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & - incx,stridex,batchCount) - use iso_c_binding + function hipblasDger_rank_1(handle,m,n,alpha,x,incx,y,incy,AP,lda) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbmvStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDger_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - real(c_double),target,dimension(..) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_double),target,dimension(..) :: x + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda ! - hipblasDtbmvStridedBatched_assumed_rank = hipblasDtbmvStridedBatched_(handle,uplo,transA, & - diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasDger_rank_1 = hipblasDger_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) end function -#else - function hipblasDtbmvStridedBatched_rank_0(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasDger_rank_1_devptr(handle,m,n,alpha,x,incx,y,incy,AP,lda) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbmvStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDger_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - real(c_double),target :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_double),target :: x + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda ! - hipblasDtbmvStridedBatched_rank_0 = hipblasDtbmvStridedBatched_(handle,uplo,transA,diag,n,k, & - c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasDger_rank_1_devptr = hipblasDger_(handle,m,n,alpha,c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) end function - function hipblasDtbmvStridedBatched_rank_1(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasDger_full_rank(handle,m,n,alpha,x,incx,y,incy,AP,lda) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbmvStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDger_full_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - real(c_double),target,dimension(:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA + real(c_double),target :: alpha real(c_double),target,dimension(:) :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda ! - hipblasDtbmvStridedBatched_rank_1 = hipblasDtbmvStridedBatched_(handle,uplo,transA,diag,n,k, & - c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasDger_full_rank = hipblasDger_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) end function - function hipblasDtbmvStridedBatched_full_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & - incx,stridex,batchCount) - use iso_c_binding + function hipblasDger_full_rank_devptr(handle,m,n,alpha,x,incx,y,incy,AP,lda) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbmvStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDger_full_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - real(c_double),target,dimension(:,:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA + type(c_ptr),value :: alpha real(c_double),target,dimension(:) :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda ! - hipblasDtbmvStridedBatched_full_rank = hipblasDtbmvStridedBatched_(handle,uplo,transA,diag, & - n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasDger_full_rank_devptr = hipblasDger_(handle,m,n,alpha,c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCtbmvStridedBatched_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & - incx,stridex,batchCount) - use iso_c_binding + function hipblasCgeru_assumed_rank(handle,m,n,alpha,x,incx,y,incy,AP,lda) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbmvStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeru_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy complex(c_float_complex),target,dimension(..) :: AP integer(c_int) :: lda - integer(c_int64_t) :: strideA + ! + hipblasCgeru_assumed_rank = hipblasCgeru_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + + function hipblasCgeru_assumed_rank_devptr(handle,m,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeru_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha complex(c_float_complex),target,dimension(..) :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda ! - hipblasCtbmvStridedBatched_assumed_rank = hipblasCtbmvStridedBatched_(handle,uplo,transA, & - diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasCgeru_assumed_rank_devptr = hipblasCgeru_(handle,m,n,alpha,c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) end function #else - function hipblasCtbmvStridedBatched_rank_0(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasCgeru_rank_0(handle,m,n,alpha,x,incx,y,incy,AP,lda) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbmvStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeru_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: x + integer(c_int) :: incx + complex(c_float_complex),target :: y + integer(c_int) :: incy complex(c_float_complex),target :: AP integer(c_int) :: lda - integer(c_int64_t) :: strideA + ! + hipblasCgeru_rank_0 = hipblasCgeru_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) + end function + + function hipblasCgeru_rank_0_devptr(handle,m,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeru_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha complex(c_float_complex),target :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount + complex(c_float_complex),target :: y + integer(c_int) :: incy + complex(c_float_complex),target :: AP + integer(c_int) :: lda ! - hipblasCtbmvStridedBatched_rank_0 = hipblasCtbmvStridedBatched_(handle,uplo,transA,diag,n,k, & - c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasCgeru_rank_0_devptr = hipblasCgeru_(handle,m,n,alpha,c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) end function - function hipblasCtbmvStridedBatched_rank_1(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasCgeru_rank_1(handle,m,n,alpha,x,incx,y,incy,AP,lda) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbmvStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeru_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy complex(c_float_complex),target,dimension(:) :: AP integer(c_int) :: lda - integer(c_int64_t) :: strideA + ! + hipblasCgeru_rank_1 = hipblasCgeru_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) + end function + + function hipblasCgeru_rank_1_devptr(handle,m,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeru_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha complex(c_float_complex),target,dimension(:) :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda ! - hipblasCtbmvStridedBatched_rank_1 = hipblasCtbmvStridedBatched_(handle,uplo,transA,diag,n,k, & - c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasCgeru_rank_1_devptr = hipblasCgeru_(handle,m,n,alpha,c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) end function - function hipblasCtbmvStridedBatched_full_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & - incx,stridex,batchCount) - use iso_c_binding + function hipblasCgeru_full_rank(handle,m,n,alpha,x,incx,y,incy,AP,lda) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbmvStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeru_full_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy complex(c_float_complex),target,dimension(:,:) :: AP integer(c_int) :: lda - integer(c_int64_t) :: strideA + ! + hipblasCgeru_full_rank = hipblasCgeru_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) + end function + + function hipblasCgeru_full_rank_devptr(handle,m,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeru_full_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha complex(c_float_complex),target,dimension(:) :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda ! - hipblasCtbmvStridedBatched_full_rank = hipblasCtbmvStridedBatched_(handle,uplo,transA,diag, & - n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasCgeru_full_rank_devptr = hipblasCgeru_(handle,m,n,alpha,c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasZtbmvStridedBatched_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & - incx,stridex,batchCount) - use iso_c_binding + function hipblasCgerc_assumed_rank(handle,m,n,alpha,x,incx,y,incy,AP,lda) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbmvStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgerc_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - complex(c_double_complex),target,dimension(..) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(..) :: x + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda ! - hipblasZtbmvStridedBatched_assumed_rank = hipblasZtbmvStridedBatched_(handle,uplo,transA, & - diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasCgerc_assumed_rank = hipblasCgerc_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) end function -#else - function hipblasZtbmvStridedBatched_rank_0(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasCgerc_assumed_rank_devptr(handle,m,n,alpha,x,incx,y,incy,AP,lda) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbmvStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgerc_assumed_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - complex(c_double_complex),target :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - complex(c_double_complex),target :: x + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda ! - hipblasZtbmvStridedBatched_rank_0 = hipblasZtbmvStridedBatched_(handle,uplo,transA,diag,n,k, & - c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasCgerc_assumed_rank_devptr = hipblasCgerc_(handle,m,n,alpha,c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) end function - function hipblasZtbmvStridedBatched_rank_1(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding +#else + function hipblasCgerc_rank_0(handle,m,n,alpha,x,incx,y,incy,AP,lda) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbmvStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgerc_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - complex(c_double_complex),target,dimension(:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:) :: x + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount + complex(c_float_complex),target :: y + integer(c_int) :: incy + complex(c_float_complex),target :: AP + integer(c_int) :: lda ! - hipblasZtbmvStridedBatched_rank_1 = hipblasZtbmvStridedBatched_(handle,uplo,transA,diag,n,k, & - c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasCgerc_rank_0 = hipblasCgerc_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) end function - function hipblasZtbmvStridedBatched_full_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & - incx,stridex,batchCount) - use iso_c_binding + function hipblasCgerc_rank_0_devptr(handle,m,n,alpha,x,incx,y,incy,AP,lda) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbmvStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgerc_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - complex(c_double_complex),target,dimension(:,:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:) :: x + type(c_ptr),value :: alpha + complex(c_float_complex),target :: x integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount + complex(c_float_complex),target :: y + integer(c_int) :: incy + complex(c_float_complex),target :: AP + integer(c_int) :: lda ! - hipblasZtbmvStridedBatched_full_rank = hipblasZtbmvStridedBatched_(handle,uplo,transA,diag, & - n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasCgerc_rank_0_devptr = hipblasCgerc_(handle,m,n,alpha,c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasStbmvStridedBatched_64_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda, & - strideA,x,incx,stridex,batchCount) - use iso_c_binding + function hipblasCgerc_rank_1(handle,m,n,alpha,x,incx,y,incy,AP,lda) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbmvStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgerc_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_float),target,dimension(..) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - real(c_float),target,dimension(..) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda ! - hipblasStbmvStridedBatched_64_assumed_rank = hipblasStbmvStridedBatched_64_(handle,uplo, & - transA,diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasCgerc_rank_1 = hipblasCgerc_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) end function -#else - function hipblasStbmvStridedBatched_64_rank_0(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & - incx,stridex,batchCount) - use iso_c_binding + function hipblasCgerc_rank_1_devptr(handle,m,n,alpha,x,incx,y,incy,AP,lda) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbmvStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgerc_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_float),target :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - real(c_float),target :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda ! - hipblasStbmvStridedBatched_64_rank_0 = hipblasStbmvStridedBatched_64_(handle,uplo,transA, & - diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasCgerc_rank_1_devptr = hipblasCgerc_(handle,m,n,alpha,c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) end function - function hipblasStbmvStridedBatched_64_rank_1(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & - incx,stridex,batchCount) - use iso_c_binding + function hipblasCgerc_full_rank(handle,m,n,alpha,x,incx,y,incy,AP,lda) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbmvStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgerc_full_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_float),target,dimension(:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - real(c_float),target,dimension(:) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda ! - hipblasStbmvStridedBatched_64_rank_1 = hipblasStbmvStridedBatched_64_(handle,uplo,transA, & - diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasCgerc_full_rank = hipblasCgerc_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) end function - function hipblasStbmvStridedBatched_64_full_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & - incx,stridex,batchCount) - use iso_c_binding + function hipblasCgerc_full_rank_devptr(handle,m,n,alpha,x,incx,y,incy,AP,lda) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbmvStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgerc_full_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_float),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - real(c_float),target,dimension(:) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda ! - hipblasStbmvStridedBatched_64_full_rank = hipblasStbmvStridedBatched_64_(handle,uplo,transA, & - diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasCgerc_full_rank_devptr = hipblasCgerc_(handle,m,n,alpha,c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasDtbmvStridedBatched_64_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda, & - strideA,x,incx,stridex,batchCount) - use iso_c_binding + function hipblasZgeru_assumed_rank(handle,m,n,alpha,x,incx,y,incy,AP,lda) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbmvStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeru_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_double),target,dimension(..) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - real(c_double),target,dimension(..) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda ! - hipblasDtbmvStridedBatched_64_assumed_rank = hipblasDtbmvStridedBatched_64_(handle,uplo, & - transA,diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasZgeru_assumed_rank = hipblasZgeru_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + + function hipblasZgeru_assumed_rank_devptr(handle,m,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeru_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + ! + hipblasZgeru_assumed_rank_devptr = hipblasZgeru_(handle,m,n,alpha,c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) end function #else - function hipblasDtbmvStridedBatched_64_rank_0(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & - incx,stridex,batchCount) - use iso_c_binding + function hipblasZgeru_rank_0(handle,m,n,alpha,x,incx,y,incy,AP,lda) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbmvStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeru_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_double),target :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - real(c_double),target :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: x + integer(c_int) :: incx + complex(c_double_complex),target :: y + integer(c_int) :: incy + complex(c_double_complex),target :: AP + integer(c_int) :: lda ! - hipblasDtbmvStridedBatched_64_rank_0 = hipblasDtbmvStridedBatched_64_(handle,uplo,transA, & - diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasZgeru_rank_0 = hipblasZgeru_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) end function - function hipblasDtbmvStridedBatched_64_rank_1(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & - incx,stridex,batchCount) - use iso_c_binding + function hipblasZgeru_rank_0_devptr(handle,m,n,alpha,x,incx,y,incy,AP,lda) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbmvStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeru_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_double),target,dimension(:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - real(c_double),target,dimension(:) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target :: x + integer(c_int) :: incx + complex(c_double_complex),target :: y + integer(c_int) :: incy + complex(c_double_complex),target :: AP + integer(c_int) :: lda ! - hipblasDtbmvStridedBatched_64_rank_1 = hipblasDtbmvStridedBatched_64_(handle,uplo,transA, & - diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasZgeru_rank_0_devptr = hipblasZgeru_(handle,m,n,alpha,c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) end function - function hipblasDtbmvStridedBatched_64_full_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & - incx,stridex,batchCount) - use iso_c_binding + function hipblasZgeru_rank_1(handle,m,n,alpha,x,incx,y,incy,AP,lda) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbmvStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeru_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_double),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - real(c_double),target,dimension(:) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda ! - hipblasDtbmvStridedBatched_64_full_rank = hipblasDtbmvStridedBatched_64_(handle,uplo,transA, & - diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasZgeru_rank_1 = hipblasZgeru_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCtbmvStridedBatched_64_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda, & - strideA,x,incx,stridex,batchCount) - use iso_c_binding + function hipblasZgeru_rank_1_devptr(handle,m,n,alpha,x,incx,y,incy,AP,lda) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbmvStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeru_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_float_complex),target,dimension(..) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(..) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda ! - hipblasCtbmvStridedBatched_64_assumed_rank = hipblasCtbmvStridedBatched_64_(handle,uplo, & - transA,diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasZgeru_rank_1_devptr = hipblasZgeru_(handle,m,n,alpha,c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) end function -#else - function hipblasCtbmvStridedBatched_64_rank_0(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & - incx,stridex,batchCount) - use iso_c_binding + function hipblasZgeru_full_rank(handle,m,n,alpha,x,incx,y,incy,AP,lda) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbmvStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeru_full_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_float_complex),target :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - complex(c_float_complex),target :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda ! - hipblasCtbmvStridedBatched_64_rank_0 = hipblasCtbmvStridedBatched_64_(handle,uplo,transA, & - diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasZgeru_full_rank = hipblasZgeru_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) end function - function hipblasCtbmvStridedBatched_64_rank_1(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & - incx,stridex,batchCount) - use iso_c_binding + function hipblasZgeru_full_rank_devptr(handle,m,n,alpha,x,incx,y,incy,AP,lda) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbmvStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeru_full_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_float_complex),target,dimension(:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda ! - hipblasCtbmvStridedBatched_64_rank_1 = hipblasCtbmvStridedBatched_64_(handle,uplo,transA, & - diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasZgeru_full_rank_devptr = hipblasZgeru_(handle,m,n,alpha,c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) end function - function hipblasCtbmvStridedBatched_64_full_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & - incx,stridex,batchCount) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZgerc_assumed_rank(handle,m,n,alpha,x,incx,y,incy,AP,lda) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbmvStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgerc_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_float_complex),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda ! - hipblasCtbmvStridedBatched_64_full_rank = hipblasCtbmvStridedBatched_64_(handle,uplo,transA, & - diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasZgerc_assumed_rank = hipblasZgerc_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZtbmvStridedBatched_64_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda, & - strideA,x,incx,stridex,batchCount) - use iso_c_binding + function hipblasZgerc_assumed_rank_devptr(handle,m,n,alpha,x,incx,y,incy,AP,lda) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbmvStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgerc_assumed_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_double_complex),target,dimension(..) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha complex(c_double_complex),target,dimension(..) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount + integer(c_int) :: incx + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda ! - hipblasZtbmvStridedBatched_64_assumed_rank = hipblasZtbmvStridedBatched_64_(handle,uplo, & - transA,diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasZgerc_assumed_rank_devptr = hipblasZgerc_(handle,m,n,alpha,c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) end function #else - function hipblasZtbmvStridedBatched_64_rank_0(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & - incx,stridex,batchCount) - use iso_c_binding + function hipblasZgerc_rank_0(handle,m,n,alpha,x,incx,y,incy,AP,lda) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbmvStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgerc_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_double_complex),target :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha complex(c_double_complex),target :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount + integer(c_int) :: incx + complex(c_double_complex),target :: y + integer(c_int) :: incy + complex(c_double_complex),target :: AP + integer(c_int) :: lda ! - hipblasZtbmvStridedBatched_64_rank_0 = hipblasZtbmvStridedBatched_64_(handle,uplo,transA, & - diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasZgerc_rank_0 = hipblasZgerc_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) end function - function hipblasZtbmvStridedBatched_64_rank_1(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & - incx,stridex,batchCount) - use iso_c_binding + function hipblasZgerc_rank_0_devptr(handle,m,n,alpha,x,incx,y,incy,AP,lda) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbmvStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgerc_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_double_complex),target,dimension(:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target :: x + integer(c_int) :: incx + complex(c_double_complex),target :: y + integer(c_int) :: incy + complex(c_double_complex),target :: AP + integer(c_int) :: lda ! - hipblasZtbmvStridedBatched_64_rank_1 = hipblasZtbmvStridedBatched_64_(handle,uplo,transA, & - diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasZgerc_rank_0_devptr = hipblasZgerc_(handle,m,n,alpha,c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) end function - function hipblasZtbmvStridedBatched_64_full_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & - incx,stridex,batchCount) - use iso_c_binding + function hipblasZgerc_rank_1(handle,m,n,alpha,x,incx,y,incy,AP,lda) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbmvStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgerc_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_double_complex),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha complex(c_double_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount + integer(c_int) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda ! - hipblasZtbmvStridedBatched_64_full_rank = hipblasZtbmvStridedBatched_64_(handle,uplo,transA, & - diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasZgerc_rank_1 = hipblasZgerc_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasStbsv_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) - use iso_c_binding + function hipblasZgerc_rank_1_devptr(handle,m,n,alpha,x,incx,y,incy,AP,lda) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbsv_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgerc_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - real(c_float),target,dimension(..) :: AP - integer(c_int) :: lda - real(c_float),target,dimension(..) :: x + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: x integer(c_int) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda ! - hipblasStbsv_assumed_rank = hipblasStbsv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & - c_loc(x),incx) + hipblasZgerc_rank_1_devptr = hipblasZgerc_(handle,m,n,alpha,c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) end function -#else - function hipblasStbsv_rank_0(handle,uplo,transA,diag,n,k,AP,lda,x,incx) - use iso_c_binding + function hipblasZgerc_full_rank(handle,m,n,alpha,x,incx,y,incy,AP,lda) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbsv_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgerc_full_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - real(c_float),target :: AP - integer(c_int) :: lda - real(c_float),target :: x + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x integer(c_int) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda ! - hipblasStbsv_rank_0 = hipblasStbsv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda,c_loc(x),incx) + hipblasZgerc_full_rank = hipblasZgerc_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) end function - function hipblasStbsv_rank_1(handle,uplo,transA,diag,n,k,AP,lda,x,incx) - use iso_c_binding + function hipblasZgerc_full_rank_devptr(handle,m,n,alpha,x,incx,y,incy,AP,lda) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbsv_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgerc_full_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - real(c_float),target,dimension(:) :: AP - integer(c_int) :: lda - real(c_float),target,dimension(:) :: x + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: x integer(c_int) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda ! - hipblasStbsv_rank_1 = hipblasStbsv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda,c_loc(x),incx) + hipblasZgerc_full_rank_devptr = hipblasZgerc_(handle,m,n,alpha,c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) end function - function hipblasStbsv_full_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSger_64_assumed_rank(handle,m,n,alpha,x,incx,y,incy,AP,lda) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbsv_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSger_64_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - integer(c_int) :: k - real(c_float),target,dimension(:,:) :: AP - integer(c_int) :: lda - real(c_float),target,dimension(:) :: x - integer(c_int) :: incx + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda ! - hipblasStbsv_full_rank = hipblasStbsv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda,c_loc(x), & - incx) + hipblasSger_64_assumed_rank = hipblasSger_64_(handle,m,n,c_loc(alpha),c_loc(x),incx, & + c_loc(y),incy,c_loc(AP),lda) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDtbsv_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) - use iso_c_binding + function hipblasSger_64_assumed_rank_devptr(handle,m,n,alpha,x,incx,y,incy,AP,lda) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbsv_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSger_64_assumed_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - integer(c_int) :: k - real(c_double),target,dimension(..) :: AP - integer(c_int) :: lda - real(c_double),target,dimension(..) :: x - integer(c_int) :: incx + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda ! - hipblasDtbsv_assumed_rank = hipblasDtbsv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & - c_loc(x),incx) + hipblasSger_64_assumed_rank_devptr = hipblasSger_64_(handle,m,n,alpha,c_loc(x),incx, & + c_loc(y),incy,c_loc(AP),lda) end function #else - function hipblasDtbsv_rank_0(handle,uplo,transA,diag,n,k,AP,lda,x,incx) - use iso_c_binding + function hipblasSger_64_rank_0(handle,m,n,alpha,x,incx,y,incy,AP,lda) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbsv_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSger_64_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - integer(c_int) :: k - real(c_double),target :: AP - integer(c_int) :: lda - real(c_double),target :: x - integer(c_int) :: incx + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target :: x + integer(c_int64_t) :: incx + real(c_float),target :: y + integer(c_int64_t) :: incy + real(c_float),target :: AP + integer(c_int64_t) :: lda ! - hipblasDtbsv_rank_0 = hipblasDtbsv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda,c_loc(x),incx) + hipblasSger_64_rank_0 = hipblasSger_64_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) end function - function hipblasDtbsv_rank_1(handle,uplo,transA,diag,n,k,AP,lda,x,incx) - use iso_c_binding + function hipblasSger_64_rank_0_devptr(handle,m,n,alpha,x,incx,y,incy,AP,lda) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbsv_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSger_64_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - integer(c_int) :: k - real(c_double),target,dimension(:) :: AP - integer(c_int) :: lda - real(c_double),target,dimension(:) :: x - integer(c_int) :: incx + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target :: x + integer(c_int64_t) :: incx + real(c_float),target :: y + integer(c_int64_t) :: incy + real(c_float),target :: AP + integer(c_int64_t) :: lda ! - hipblasDtbsv_rank_1 = hipblasDtbsv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda,c_loc(x),incx) + hipblasSger_64_rank_0_devptr = hipblasSger_64_(handle,m,n,alpha,c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) end function - function hipblasDtbsv_full_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) - use iso_c_binding + function hipblasSger_64_rank_1(handle,m,n,alpha,x,incx,y,incy,AP,lda) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbsv_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSger_64_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - integer(c_int) :: k - real(c_double),target,dimension(:,:) :: AP - integer(c_int) :: lda - real(c_double),target,dimension(:) :: x - integer(c_int) :: incx + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda ! - hipblasDtbsv_full_rank = hipblasDtbsv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda,c_loc(x), & - incx) + hipblasSger_64_rank_1 = hipblasSger_64_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCtbsv_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) - use iso_c_binding + function hipblasSger_64_rank_1_devptr(handle,m,n,alpha,x,incx,y,incy,AP,lda) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbsv_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSger_64_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - integer(c_int) :: k - complex(c_float_complex),target,dimension(..) :: AP - integer(c_int) :: lda - complex(c_float_complex),target,dimension(..) :: x - integer(c_int) :: incx - ! - hipblasCtbsv_assumed_rank = hipblasCtbsv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & - c_loc(x),incx) - end function - -#else - function hipblasCtbsv_rank_0(handle,uplo,transA,diag,n,k,AP,lda,x,incx) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbsv_rank_0 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - integer(c_int) :: k - complex(c_float_complex),target :: AP - integer(c_int) :: lda - complex(c_float_complex),target :: x - integer(c_int) :: incx + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda ! - hipblasCtbsv_rank_0 = hipblasCtbsv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda,c_loc(x),incx) + hipblasSger_64_rank_1_devptr = hipblasSger_64_(handle,m,n,alpha,c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) end function - function hipblasCtbsv_rank_1(handle,uplo,transA,diag,n,k,AP,lda,x,incx) - use iso_c_binding + function hipblasSger_64_full_rank(handle,m,n,alpha,x,incx,y,incy,AP,lda) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbsv_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSger_64_full_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - integer(c_int) :: k - complex(c_float_complex),target,dimension(:) :: AP - integer(c_int) :: lda - complex(c_float_complex),target,dimension(:) :: x - integer(c_int) :: incx + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda ! - hipblasCtbsv_rank_1 = hipblasCtbsv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda,c_loc(x),incx) + hipblasSger_64_full_rank = hipblasSger_64_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) end function - function hipblasCtbsv_full_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) - use iso_c_binding + function hipblasSger_64_full_rank_devptr(handle,m,n,alpha,x,incx,y,incy,AP,lda) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbsv_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSger_64_full_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - integer(c_int) :: k - complex(c_float_complex),target,dimension(:,:) :: AP - integer(c_int) :: lda - complex(c_float_complex),target,dimension(:) :: x - integer(c_int) :: incx + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda ! - hipblasCtbsv_full_rank = hipblasCtbsv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda,c_loc(x), & - incx) + hipblasSger_64_full_rank_devptr = hipblasSger_64_(handle,m,n,alpha,c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasZtbsv_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) - use iso_c_binding + function hipblasDger_64_assumed_rank(handle,m,n,alpha,x,incx,y,incy,AP,lda) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbsv_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDger_64_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - integer(c_int) :: k - complex(c_double_complex),target,dimension(..) :: AP - integer(c_int) :: lda - complex(c_double_complex),target,dimension(..) :: x - integer(c_int) :: incx + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: incy + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda ! - hipblasZtbsv_assumed_rank = hipblasZtbsv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & - c_loc(x),incx) + hipblasDger_64_assumed_rank = hipblasDger_64_(handle,m,n,c_loc(alpha),c_loc(x),incx, & + c_loc(y),incy,c_loc(AP),lda) end function -#else - function hipblasZtbsv_rank_0(handle,uplo,transA,diag,n,k,AP,lda,x,incx) - use iso_c_binding + function hipblasDger_64_assumed_rank_devptr(handle,m,n,alpha,x,incx,y,incy,AP,lda) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbsv_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDger_64_assumed_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - integer(c_int) :: k - complex(c_double_complex),target :: AP - integer(c_int) :: lda - complex(c_double_complex),target :: x - integer(c_int) :: incx + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: incy + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda ! - hipblasZtbsv_rank_0 = hipblasZtbsv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda,c_loc(x),incx) + hipblasDger_64_assumed_rank_devptr = hipblasDger_64_(handle,m,n,alpha,c_loc(x),incx, & + c_loc(y),incy,c_loc(AP),lda) end function - function hipblasZtbsv_rank_1(handle,uplo,transA,diag,n,k,AP,lda,x,incx) - use iso_c_binding +#else + function hipblasDger_64_rank_0(handle,m,n,alpha,x,incx,y,incy,AP,lda) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbsv_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDger_64_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - integer(c_int) :: k - complex(c_double_complex),target,dimension(:) :: AP - integer(c_int) :: lda - complex(c_double_complex),target,dimension(:) :: x - integer(c_int) :: incx + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target :: x + integer(c_int64_t) :: incx + real(c_double),target :: y + integer(c_int64_t) :: incy + real(c_double),target :: AP + integer(c_int64_t) :: lda ! - hipblasZtbsv_rank_1 = hipblasZtbsv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda,c_loc(x),incx) + hipblasDger_64_rank_0 = hipblasDger_64_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) end function - function hipblasZtbsv_full_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) - use iso_c_binding + function hipblasDger_64_rank_0_devptr(handle,m,n,alpha,x,incx,y,incy,AP,lda) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbsv_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDger_64_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - integer(c_int) :: k - complex(c_double_complex),target,dimension(:,:) :: AP - integer(c_int) :: lda - complex(c_double_complex),target,dimension(:) :: x - integer(c_int) :: incx + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target :: x + integer(c_int64_t) :: incx + real(c_double),target :: y + integer(c_int64_t) :: incy + real(c_double),target :: AP + integer(c_int64_t) :: lda ! - hipblasZtbsv_full_rank = hipblasZtbsv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda,c_loc(x), & - incx) + hipblasDger_64_rank_0_devptr = hipblasDger_64_(handle,m,n,alpha,c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasStbsv_64_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) - use iso_c_binding + function hipblasDger_64_rank_1(handle,m,n,alpha,x,incx,y,incy,AP,lda) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbsv_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDger_64_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_float),target,dimension(..) :: AP - integer(c_int64_t) :: lda - real(c_float),target,dimension(..) :: x + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x integer(c_int64_t) :: incx + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda ! - hipblasStbsv_64_assumed_rank = hipblasStbsv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & - c_loc(x),incx) + hipblasDger_64_rank_1 = hipblasDger_64_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) end function -#else - function hipblasStbsv_64_rank_0(handle,uplo,transA,diag,n,k,AP,lda,x,incx) - use iso_c_binding + function hipblasDger_64_rank_1_devptr(handle,m,n,alpha,x,incx,y,incy,AP,lda) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbsv_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDger_64_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_float),target :: AP - integer(c_int64_t) :: lda - real(c_float),target :: x + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: x integer(c_int64_t) :: incx + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda ! - hipblasStbsv_64_rank_0 = hipblasStbsv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & - c_loc(x),incx) + hipblasDger_64_rank_1_devptr = hipblasDger_64_(handle,m,n,alpha,c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) end function - function hipblasStbsv_64_rank_1(handle,uplo,transA,diag,n,k,AP,lda,x,incx) - use iso_c_binding + function hipblasDger_64_full_rank(handle,m,n,alpha,x,incx,y,incy,AP,lda) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbsv_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDger_64_full_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_float),target,dimension(:) :: AP - integer(c_int64_t) :: lda - real(c_float),target,dimension(:) :: x + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x integer(c_int64_t) :: incx + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda ! - hipblasStbsv_64_rank_1 = hipblasStbsv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & - c_loc(x),incx) + hipblasDger_64_full_rank = hipblasDger_64_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) end function - function hipblasStbsv_64_full_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) - use iso_c_binding + function hipblasDger_64_full_rank_devptr(handle,m,n,alpha,x,incx,y,incy,AP,lda) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbsv_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDger_64_full_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_float),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - real(c_float),target,dimension(:) :: x + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: x integer(c_int64_t) :: incx + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda ! - hipblasStbsv_64_full_rank = hipblasStbsv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & - c_loc(x),incx) + hipblasDger_64_full_rank_devptr = hipblasDger_64_(handle,m,n,alpha,c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasDtbsv_64_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) - use iso_c_binding + function hipblasCgeru_64_assumed_rank(handle,m,n,alpha,x,incx,y,incy,AP,lda) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbsv_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeru_64_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_double),target,dimension(..) :: AP - integer(c_int64_t) :: lda - real(c_double),target,dimension(..) :: x + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: x integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda ! - hipblasDtbsv_64_assumed_rank = hipblasDtbsv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & - c_loc(x),incx) + hipblasCgeru_64_assumed_rank = hipblasCgeru_64_(handle,m,n,c_loc(alpha),c_loc(x),incx, & + c_loc(y),incy,c_loc(AP),lda) end function -#else - function hipblasDtbsv_64_rank_0(handle,uplo,transA,diag,n,k,AP,lda,x,incx) - use iso_c_binding + function hipblasCgeru_64_assumed_rank_devptr(handle,m,n,alpha,x,incx,y,incy,AP,lda) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbsv_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeru_64_assumed_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_double),target :: AP - integer(c_int64_t) :: lda - real(c_double),target :: x + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: x integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda ! - hipblasDtbsv_64_rank_0 = hipblasDtbsv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & - c_loc(x),incx) + hipblasCgeru_64_assumed_rank_devptr = hipblasCgeru_64_(handle,m,n,alpha,c_loc(x),incx, & + c_loc(y),incy,c_loc(AP),lda) end function - function hipblasDtbsv_64_rank_1(handle,uplo,transA,diag,n,k,AP,lda,x,incx) - use iso_c_binding +#else + function hipblasCgeru_64_rank_0(handle,m,n,alpha,x,incx,y,incy,AP,lda) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbsv_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeru_64_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_double),target,dimension(:) :: AP - integer(c_int64_t) :: lda - real(c_double),target,dimension(:) :: x + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: x integer(c_int64_t) :: incx + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda ! - hipblasDtbsv_64_rank_1 = hipblasDtbsv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & - c_loc(x),incx) + hipblasCgeru_64_rank_0 = hipblasCgeru_64_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) end function - function hipblasDtbsv_64_full_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) - use iso_c_binding + function hipblasCgeru_64_rank_0_devptr(handle,m,n,alpha,x,incx,y,incy,AP,lda) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbsv_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeru_64_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_double),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - real(c_double),target,dimension(:) :: x + type(c_ptr),value :: alpha + complex(c_float_complex),target :: x integer(c_int64_t) :: incx + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda ! - hipblasDtbsv_64_full_rank = hipblasDtbsv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & - c_loc(x),incx) + hipblasCgeru_64_rank_0_devptr = hipblasCgeru_64_(handle,m,n,alpha,c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCtbsv_64_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) - use iso_c_binding + function hipblasCgeru_64_rank_1(handle,m,n,alpha,x,incx,y,incy,AP,lda) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbsv_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeru_64_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_float_complex),target,dimension(..) :: AP - integer(c_int64_t) :: lda - complex(c_float_complex),target,dimension(..) :: x + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda ! - hipblasCtbsv_64_assumed_rank = hipblasCtbsv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & - c_loc(x),incx) + hipblasCgeru_64_rank_1 = hipblasCgeru_64_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) end function -#else - function hipblasCtbsv_64_rank_0(handle,uplo,transA,diag,n,k,AP,lda,x,incx) - use iso_c_binding + function hipblasCgeru_64_rank_1_devptr(handle,m,n,alpha,x,incx,y,incy,AP,lda) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbsv_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeru_64_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_float_complex),target :: AP - integer(c_int64_t) :: lda - complex(c_float_complex),target :: x + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: x integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda ! - hipblasCtbsv_64_rank_0 = hipblasCtbsv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & - c_loc(x),incx) + hipblasCgeru_64_rank_1_devptr = hipblasCgeru_64_(handle,m,n,alpha,c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) end function - function hipblasCtbsv_64_rank_1(handle,uplo,transA,diag,n,k,AP,lda,x,incx) - use iso_c_binding + function hipblasCgeru_64_full_rank(handle,m,n,alpha,x,incx,y,incy,AP,lda) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbsv_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeru_64_full_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_float_complex),target,dimension(:) :: AP - integer(c_int64_t) :: lda + complex(c_float_complex),target :: alpha complex(c_float_complex),target,dimension(:) :: x integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda ! - hipblasCtbsv_64_rank_1 = hipblasCtbsv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & - c_loc(x),incx) + hipblasCgeru_64_full_rank = hipblasCgeru_64_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) end function - function hipblasCtbsv_64_full_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) - use iso_c_binding + function hipblasCgeru_64_full_rank_devptr(handle,m,n,alpha,x,incx,y,incy,AP,lda) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbsv_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeru_64_full_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_float_complex),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda + type(c_ptr),value :: alpha complex(c_float_complex),target,dimension(:) :: x integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda ! - hipblasCtbsv_64_full_rank = hipblasCtbsv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & - c_loc(x),incx) + hipblasCgeru_64_full_rank_devptr = hipblasCgeru_64_(handle,m,n,alpha,c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasZtbsv_64_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) - use iso_c_binding + function hipblasCgerc_64_assumed_rank(handle,m,n,alpha,x,incx,y,incy,AP,lda) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbsv_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgerc_64_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_double_complex),target,dimension(..) :: AP - integer(c_int64_t) :: lda - complex(c_double_complex),target,dimension(..) :: x + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: x integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda ! - hipblasZtbsv_64_assumed_rank = hipblasZtbsv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & - c_loc(x),incx) + hipblasCgerc_64_assumed_rank = hipblasCgerc_64_(handle,m,n,c_loc(alpha),c_loc(x),incx, & + c_loc(y),incy,c_loc(AP),lda) end function -#else - function hipblasZtbsv_64_rank_0(handle,uplo,transA,diag,n,k,AP,lda,x,incx) - use iso_c_binding + function hipblasCgerc_64_assumed_rank_devptr(handle,m,n,alpha,x,incx,y,incy,AP,lda) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbsv_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgerc_64_assumed_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_double_complex),target :: AP - integer(c_int64_t) :: lda - complex(c_double_complex),target :: x + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: x integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda ! - hipblasZtbsv_64_rank_0 = hipblasZtbsv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & - c_loc(x),incx) + hipblasCgerc_64_assumed_rank_devptr = hipblasCgerc_64_(handle,m,n,alpha,c_loc(x),incx, & + c_loc(y),incy,c_loc(AP),lda) end function - function hipblasZtbsv_64_rank_1(handle,uplo,transA,diag,n,k,AP,lda,x,incx) - use iso_c_binding +#else + function hipblasCgerc_64_rank_0(handle,m,n,alpha,x,incx,y,incy,AP,lda) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbsv_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgerc_64_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_double_complex),target,dimension(:) :: AP - integer(c_int64_t) :: lda - complex(c_double_complex),target,dimension(:) :: x + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: x integer(c_int64_t) :: incx + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda ! - hipblasZtbsv_64_rank_1 = hipblasZtbsv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & - c_loc(x),incx) + hipblasCgerc_64_rank_0 = hipblasCgerc_64_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) end function - function hipblasZtbsv_64_full_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) - use iso_c_binding + function hipblasCgerc_64_rank_0_devptr(handle,m,n,alpha,x,incx,y,incy,AP,lda) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbsv_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgerc_64_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_double_complex),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - complex(c_double_complex),target,dimension(:) :: x + type(c_ptr),value :: alpha + complex(c_float_complex),target :: x integer(c_int64_t) :: incx + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda ! - hipblasZtbsv_64_full_rank = hipblasZtbsv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & - c_loc(x),incx) + hipblasCgerc_64_rank_0_devptr = hipblasCgerc_64_(handle,m,n,alpha,c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasStbsvStridedBatched_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + function hipblasCgerc_64_rank_1(handle,m,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgerc_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + ! + hipblasCgerc_64_rank_1 = hipblasCgerc_64_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + + function hipblasCgerc_64_rank_1_devptr(handle,m,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgerc_64_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + ! + hipblasCgerc_64_rank_1_devptr = hipblasCgerc_64_(handle,m,n,alpha,c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + + function hipblasCgerc_64_full_rank(handle,m,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgerc_64_full_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + ! + hipblasCgerc_64_full_rank = hipblasCgerc_64_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + + function hipblasCgerc_64_full_rank_devptr(handle,m,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgerc_64_full_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + ! + hipblasCgerc_64_full_rank_devptr = hipblasCgerc_64_(handle,m,n,alpha,c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZgeru_64_assumed_rank(handle,m,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeru_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + ! + hipblasZgeru_64_assumed_rank = hipblasZgeru_64_(handle,m,n,c_loc(alpha),c_loc(x),incx, & + c_loc(y),incy,c_loc(AP),lda) + end function + + function hipblasZgeru_64_assumed_rank_devptr(handle,m,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeru_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + ! + hipblasZgeru_64_assumed_rank_devptr = hipblasZgeru_64_(handle,m,n,alpha,c_loc(x),incx, & + c_loc(y),incy,c_loc(AP),lda) + end function + +#else + function hipblasZgeru_64_rank_0(handle,m,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeru_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + ! + hipblasZgeru_64_rank_0 = hipblasZgeru_64_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + + function hipblasZgeru_64_rank_0_devptr(handle,m,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeru_64_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + ! + hipblasZgeru_64_rank_0_devptr = hipblasZgeru_64_(handle,m,n,alpha,c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + + function hipblasZgeru_64_rank_1(handle,m,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeru_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + ! + hipblasZgeru_64_rank_1 = hipblasZgeru_64_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + + function hipblasZgeru_64_rank_1_devptr(handle,m,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeru_64_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + ! + hipblasZgeru_64_rank_1_devptr = hipblasZgeru_64_(handle,m,n,alpha,c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + + function hipblasZgeru_64_full_rank(handle,m,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeru_64_full_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + ! + hipblasZgeru_64_full_rank = hipblasZgeru_64_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + + function hipblasZgeru_64_full_rank_devptr(handle,m,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeru_64_full_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + ! + hipblasZgeru_64_full_rank_devptr = hipblasZgeru_64_(handle,m,n,alpha,c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZgerc_64_assumed_rank(handle,m,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgerc_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + ! + hipblasZgerc_64_assumed_rank = hipblasZgerc_64_(handle,m,n,c_loc(alpha),c_loc(x),incx, & + c_loc(y),incy,c_loc(AP),lda) + end function + + function hipblasZgerc_64_assumed_rank_devptr(handle,m,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgerc_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + ! + hipblasZgerc_64_assumed_rank_devptr = hipblasZgerc_64_(handle,m,n,alpha,c_loc(x),incx, & + c_loc(y),incy,c_loc(AP),lda) + end function + +#else + function hipblasZgerc_64_rank_0(handle,m,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgerc_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + ! + hipblasZgerc_64_rank_0 = hipblasZgerc_64_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + + function hipblasZgerc_64_rank_0_devptr(handle,m,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgerc_64_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + ! + hipblasZgerc_64_rank_0_devptr = hipblasZgerc_64_(handle,m,n,alpha,c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + + function hipblasZgerc_64_rank_1(handle,m,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgerc_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + ! + hipblasZgerc_64_rank_1 = hipblasZgerc_64_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + + function hipblasZgerc_64_rank_1_devptr(handle,m,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgerc_64_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + ! + hipblasZgerc_64_rank_1_devptr = hipblasZgerc_64_(handle,m,n,alpha,c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + + function hipblasZgerc_64_full_rank(handle,m,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgerc_64_full_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + ! + hipblasZgerc_64_full_rank = hipblasZgerc_64_(handle,m,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + + function hipblasZgerc_64_full_rank_devptr(handle,m,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgerc_64_full_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + ! + hipblasZgerc_64_full_rank_devptr = hipblasZgerc_64_(handle,m,n,alpha,c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSgerStridedBatched_assumed_rank(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgerStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasSgerStridedBatched_assumed_rank = hipblasSgerStridedBatched_(handle,m,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasSgerStridedBatched_assumed_rank_devptr(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgerStridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasSgerStridedBatched_assumed_rank_devptr = hipblasSgerStridedBatched_(handle,m,n,alpha, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#else + function hipblasSgerStridedBatched_rank_0(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP, & + lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgerStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_float),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasSgerStridedBatched_rank_0 = hipblasSgerStridedBatched_(handle,m,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasSgerStridedBatched_rank_0_devptr(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgerStridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_float),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasSgerStridedBatched_rank_0_devptr = hipblasSgerStridedBatched_(handle,m,n,alpha, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasSgerStridedBatched_rank_1(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP, & + lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgerStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasSgerStridedBatched_rank_1 = hipblasSgerStridedBatched_(handle,m,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasSgerStridedBatched_rank_1_devptr(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgerStridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasSgerStridedBatched_rank_1_devptr = hipblasSgerStridedBatched_(handle,m,n,alpha, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasSgerStridedBatched_full_rank(handle,m,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgerStridedBatched_full_rank + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasSgerStridedBatched_full_rank = hipblasSgerStridedBatched_(handle,m,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasSgerStridedBatched_full_rank_devptr(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgerStridedBatched_full_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasSgerStridedBatched_full_rank_devptr = hipblasSgerStridedBatched_(handle,m,n,alpha, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasSgerStridedBatched_strided_rank(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgerStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_float),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasSgerStridedBatched_strided_rank = hipblasSgerStridedBatched_(handle,m,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasSgerStridedBatched_strided_rank_devptr(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgerStridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_float),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasSgerStridedBatched_strided_rank_devptr = hipblasSgerStridedBatched_(handle,m,n,alpha, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDgerStridedBatched_assumed_rank(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgerStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasDgerStridedBatched_assumed_rank = hipblasDgerStridedBatched_(handle,m,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasDgerStridedBatched_assumed_rank_devptr(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgerStridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasDgerStridedBatched_assumed_rank_devptr = hipblasDgerStridedBatched_(handle,m,n,alpha, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#else + function hipblasDgerStridedBatched_rank_0(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP, & + lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgerStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_double),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasDgerStridedBatched_rank_0 = hipblasDgerStridedBatched_(handle,m,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasDgerStridedBatched_rank_0_devptr(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgerStridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_double),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasDgerStridedBatched_rank_0_devptr = hipblasDgerStridedBatched_(handle,m,n,alpha, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasDgerStridedBatched_rank_1(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP, & + lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgerStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasDgerStridedBatched_rank_1 = hipblasDgerStridedBatched_(handle,m,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasDgerStridedBatched_rank_1_devptr(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgerStridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasDgerStridedBatched_rank_1_devptr = hipblasDgerStridedBatched_(handle,m,n,alpha, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasDgerStridedBatched_full_rank(handle,m,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgerStridedBatched_full_rank + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasDgerStridedBatched_full_rank = hipblasDgerStridedBatched_(handle,m,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasDgerStridedBatched_full_rank_devptr(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgerStridedBatched_full_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasDgerStridedBatched_full_rank_devptr = hipblasDgerStridedBatched_(handle,m,n,alpha, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasDgerStridedBatched_strided_rank(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgerStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_double),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasDgerStridedBatched_strided_rank = hipblasDgerStridedBatched_(handle,m,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasDgerStridedBatched_strided_rank_devptr(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgerStridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_double),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasDgerStridedBatched_strided_rank_devptr = hipblasDgerStridedBatched_(handle,m,n,alpha, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCgeruStridedBatched_assumed_rank(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeruStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCgeruStridedBatched_assumed_rank = hipblasCgeruStridedBatched_(handle,m,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCgeruStridedBatched_assumed_rank_devptr(handle,m,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeruStridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCgeruStridedBatched_assumed_rank_devptr = hipblasCgeruStridedBatched_(handle,m,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#else + function hipblasCgeruStridedBatched_rank_0(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP, & + lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeruStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCgeruStridedBatched_rank_0 = hipblasCgeruStridedBatched_(handle,m,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCgeruStridedBatched_rank_0_devptr(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeruStridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCgeruStridedBatched_rank_0_devptr = hipblasCgeruStridedBatched_(handle,m,n,alpha, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCgeruStridedBatched_rank_1(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP, & + lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeruStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCgeruStridedBatched_rank_1 = hipblasCgeruStridedBatched_(handle,m,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCgeruStridedBatched_rank_1_devptr(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeruStridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCgeruStridedBatched_rank_1_devptr = hipblasCgeruStridedBatched_(handle,m,n,alpha, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCgeruStridedBatched_full_rank(handle,m,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeruStridedBatched_full_rank + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCgeruStridedBatched_full_rank = hipblasCgeruStridedBatched_(handle,m,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCgeruStridedBatched_full_rank_devptr(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeruStridedBatched_full_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCgeruStridedBatched_full_rank_devptr = hipblasCgeruStridedBatched_(handle,m,n,alpha, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCgeruStridedBatched_strided_rank(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeruStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCgeruStridedBatched_strided_rank = hipblasCgeruStridedBatched_(handle,m,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCgeruStridedBatched_strided_rank_devptr(handle,m,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeruStridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCgeruStridedBatched_strided_rank_devptr = hipblasCgeruStridedBatched_(handle,m,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCgercStridedBatched_assumed_rank(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgercStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCgercStridedBatched_assumed_rank = hipblasCgercStridedBatched_(handle,m,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCgercStridedBatched_assumed_rank_devptr(handle,m,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgercStridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCgercStridedBatched_assumed_rank_devptr = hipblasCgercStridedBatched_(handle,m,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#else + function hipblasCgercStridedBatched_rank_0(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP, & + lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgercStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCgercStridedBatched_rank_0 = hipblasCgercStridedBatched_(handle,m,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCgercStridedBatched_rank_0_devptr(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgercStridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCgercStridedBatched_rank_0_devptr = hipblasCgercStridedBatched_(handle,m,n,alpha, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCgercStridedBatched_rank_1(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP, & + lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgercStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCgercStridedBatched_rank_1 = hipblasCgercStridedBatched_(handle,m,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCgercStridedBatched_rank_1_devptr(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgercStridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCgercStridedBatched_rank_1_devptr = hipblasCgercStridedBatched_(handle,m,n,alpha, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCgercStridedBatched_full_rank(handle,m,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgercStridedBatched_full_rank + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCgercStridedBatched_full_rank = hipblasCgercStridedBatched_(handle,m,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCgercStridedBatched_full_rank_devptr(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgercStridedBatched_full_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCgercStridedBatched_full_rank_devptr = hipblasCgercStridedBatched_(handle,m,n,alpha, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCgercStridedBatched_strided_rank(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgercStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCgercStridedBatched_strided_rank = hipblasCgercStridedBatched_(handle,m,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCgercStridedBatched_strided_rank_devptr(handle,m,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgercStridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCgercStridedBatched_strided_rank_devptr = hipblasCgercStridedBatched_(handle,m,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZgeruStridedBatched_assumed_rank(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeruStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZgeruStridedBatched_assumed_rank = hipblasZgeruStridedBatched_(handle,m,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZgeruStridedBatched_assumed_rank_devptr(handle,m,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeruStridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZgeruStridedBatched_assumed_rank_devptr = hipblasZgeruStridedBatched_(handle,m,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#else + function hipblasZgeruStridedBatched_rank_0(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP, & + lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeruStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZgeruStridedBatched_rank_0 = hipblasZgeruStridedBatched_(handle,m,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZgeruStridedBatched_rank_0_devptr(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeruStridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZgeruStridedBatched_rank_0_devptr = hipblasZgeruStridedBatched_(handle,m,n,alpha, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZgeruStridedBatched_rank_1(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP, & + lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeruStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZgeruStridedBatched_rank_1 = hipblasZgeruStridedBatched_(handle,m,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZgeruStridedBatched_rank_1_devptr(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeruStridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZgeruStridedBatched_rank_1_devptr = hipblasZgeruStridedBatched_(handle,m,n,alpha, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZgeruStridedBatched_full_rank(handle,m,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeruStridedBatched_full_rank + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZgeruStridedBatched_full_rank = hipblasZgeruStridedBatched_(handle,m,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZgeruStridedBatched_full_rank_devptr(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeruStridedBatched_full_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZgeruStridedBatched_full_rank_devptr = hipblasZgeruStridedBatched_(handle,m,n,alpha, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZgeruStridedBatched_strided_rank(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeruStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZgeruStridedBatched_strided_rank = hipblasZgeruStridedBatched_(handle,m,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZgeruStridedBatched_strided_rank_devptr(handle,m,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeruStridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZgeruStridedBatched_strided_rank_devptr = hipblasZgeruStridedBatched_(handle,m,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZgercStridedBatched_assumed_rank(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgercStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZgercStridedBatched_assumed_rank = hipblasZgercStridedBatched_(handle,m,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZgercStridedBatched_assumed_rank_devptr(handle,m,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgercStridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZgercStridedBatched_assumed_rank_devptr = hipblasZgercStridedBatched_(handle,m,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#else + function hipblasZgercStridedBatched_rank_0(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP, & + lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgercStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZgercStridedBatched_rank_0 = hipblasZgercStridedBatched_(handle,m,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZgercStridedBatched_rank_0_devptr(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgercStridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZgercStridedBatched_rank_0_devptr = hipblasZgercStridedBatched_(handle,m,n,alpha, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZgercStridedBatched_rank_1(handle,m,n,alpha,x,incx,stridex,y,incy,stridey,AP, & + lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgercStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZgercStridedBatched_rank_1 = hipblasZgercStridedBatched_(handle,m,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZgercStridedBatched_rank_1_devptr(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgercStridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZgercStridedBatched_rank_1_devptr = hipblasZgercStridedBatched_(handle,m,n,alpha, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZgercStridedBatched_full_rank(handle,m,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgercStridedBatched_full_rank + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZgercStridedBatched_full_rank = hipblasZgercStridedBatched_(handle,m,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZgercStridedBatched_full_rank_devptr(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgercStridedBatched_full_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZgercStridedBatched_full_rank_devptr = hipblasZgercStridedBatched_(handle,m,n,alpha, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZgercStridedBatched_strided_rank(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgercStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZgercStridedBatched_strided_rank = hipblasZgercStridedBatched_(handle,m,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZgercStridedBatched_strided_rank_devptr(handle,m,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgercStridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZgercStridedBatched_strided_rank_devptr = hipblasZgercStridedBatched_(handle,m,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSgerStridedBatched_64_assumed_rank(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgerStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasSgerStridedBatched_64_assumed_rank = hipblasSgerStridedBatched_64_(handle,m,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasSgerStridedBatched_64_assumed_rank_devptr(handle,m,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgerStridedBatched_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasSgerStridedBatched_64_assumed_rank_devptr = hipblasSgerStridedBatched_64_(handle,m,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#else + function hipblasSgerStridedBatched_64_rank_0(handle,m,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgerStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_float),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasSgerStridedBatched_64_rank_0 = hipblasSgerStridedBatched_64_(handle,m,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasSgerStridedBatched_64_rank_0_devptr(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgerStridedBatched_64_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_float),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasSgerStridedBatched_64_rank_0_devptr = hipblasSgerStridedBatched_64_(handle,m,n,alpha, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasSgerStridedBatched_64_rank_1(handle,m,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgerStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasSgerStridedBatched_64_rank_1 = hipblasSgerStridedBatched_64_(handle,m,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasSgerStridedBatched_64_rank_1_devptr(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgerStridedBatched_64_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasSgerStridedBatched_64_rank_1_devptr = hipblasSgerStridedBatched_64_(handle,m,n,alpha, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasSgerStridedBatched_64_full_rank(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgerStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasSgerStridedBatched_64_full_rank = hipblasSgerStridedBatched_64_(handle,m,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasSgerStridedBatched_64_full_rank_devptr(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgerStridedBatched_64_full_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasSgerStridedBatched_64_full_rank_devptr = hipblasSgerStridedBatched_64_(handle,m,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasSgerStridedBatched_64_strided_rank(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgerStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_float),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasSgerStridedBatched_64_strided_rank = hipblasSgerStridedBatched_64_(handle,m,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasSgerStridedBatched_64_strided_rank_devptr(handle,m,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgerStridedBatched_64_strided_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_float),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasSgerStridedBatched_64_strided_rank_devptr = hipblasSgerStridedBatched_64_(handle,m,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDgerStridedBatched_64_assumed_rank(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgerStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasDgerStridedBatched_64_assumed_rank = hipblasDgerStridedBatched_64_(handle,m,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasDgerStridedBatched_64_assumed_rank_devptr(handle,m,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgerStridedBatched_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasDgerStridedBatched_64_assumed_rank_devptr = hipblasDgerStridedBatched_64_(handle,m,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#else + function hipblasDgerStridedBatched_64_rank_0(handle,m,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgerStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_double),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasDgerStridedBatched_64_rank_0 = hipblasDgerStridedBatched_64_(handle,m,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasDgerStridedBatched_64_rank_0_devptr(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgerStridedBatched_64_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_double),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasDgerStridedBatched_64_rank_0_devptr = hipblasDgerStridedBatched_64_(handle,m,n,alpha, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasDgerStridedBatched_64_rank_1(handle,m,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgerStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasDgerStridedBatched_64_rank_1 = hipblasDgerStridedBatched_64_(handle,m,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasDgerStridedBatched_64_rank_1_devptr(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgerStridedBatched_64_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasDgerStridedBatched_64_rank_1_devptr = hipblasDgerStridedBatched_64_(handle,m,n,alpha, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasDgerStridedBatched_64_full_rank(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgerStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasDgerStridedBatched_64_full_rank = hipblasDgerStridedBatched_64_(handle,m,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasDgerStridedBatched_64_full_rank_devptr(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgerStridedBatched_64_full_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasDgerStridedBatched_64_full_rank_devptr = hipblasDgerStridedBatched_64_(handle,m,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasDgerStridedBatched_64_strided_rank(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgerStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_double),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasDgerStridedBatched_64_strided_rank = hipblasDgerStridedBatched_64_(handle,m,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasDgerStridedBatched_64_strided_rank_devptr(handle,m,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgerStridedBatched_64_strided_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_double),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasDgerStridedBatched_64_strided_rank_devptr = hipblasDgerStridedBatched_64_(handle,m,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCgeruStridedBatched_64_assumed_rank(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeruStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCgeruStridedBatched_64_assumed_rank = hipblasCgeruStridedBatched_64_(handle,m,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCgeruStridedBatched_64_assumed_rank_devptr(handle,m,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeruStridedBatched_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCgeruStridedBatched_64_assumed_rank_devptr = hipblasCgeruStridedBatched_64_(handle,m, & + n,alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#else + function hipblasCgeruStridedBatched_64_rank_0(handle,m,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeruStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCgeruStridedBatched_64_rank_0 = hipblasCgeruStridedBatched_64_(handle,m,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCgeruStridedBatched_64_rank_0_devptr(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeruStridedBatched_64_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCgeruStridedBatched_64_rank_0_devptr = hipblasCgeruStridedBatched_64_(handle,m,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCgeruStridedBatched_64_rank_1(handle,m,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeruStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCgeruStridedBatched_64_rank_1 = hipblasCgeruStridedBatched_64_(handle,m,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCgeruStridedBatched_64_rank_1_devptr(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeruStridedBatched_64_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCgeruStridedBatched_64_rank_1_devptr = hipblasCgeruStridedBatched_64_(handle,m,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCgeruStridedBatched_64_full_rank(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeruStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCgeruStridedBatched_64_full_rank = hipblasCgeruStridedBatched_64_(handle,m,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCgeruStridedBatched_64_full_rank_devptr(handle,m,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeruStridedBatched_64_full_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCgeruStridedBatched_64_full_rank_devptr = hipblasCgeruStridedBatched_64_(handle,m,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCgeruStridedBatched_64_strided_rank(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeruStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCgeruStridedBatched_64_strided_rank = hipblasCgeruStridedBatched_64_(handle,m,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCgeruStridedBatched_64_strided_rank_devptr(handle,m,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeruStridedBatched_64_strided_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCgeruStridedBatched_64_strided_rank_devptr = hipblasCgeruStridedBatched_64_(handle,m, & + n,alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCgercStridedBatched_64_assumed_rank(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgercStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCgercStridedBatched_64_assumed_rank = hipblasCgercStridedBatched_64_(handle,m,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCgercStridedBatched_64_assumed_rank_devptr(handle,m,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgercStridedBatched_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCgercStridedBatched_64_assumed_rank_devptr = hipblasCgercStridedBatched_64_(handle,m, & + n,alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#else + function hipblasCgercStridedBatched_64_rank_0(handle,m,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgercStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCgercStridedBatched_64_rank_0 = hipblasCgercStridedBatched_64_(handle,m,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCgercStridedBatched_64_rank_0_devptr(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgercStridedBatched_64_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCgercStridedBatched_64_rank_0_devptr = hipblasCgercStridedBatched_64_(handle,m,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCgercStridedBatched_64_rank_1(handle,m,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgercStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCgercStridedBatched_64_rank_1 = hipblasCgercStridedBatched_64_(handle,m,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCgercStridedBatched_64_rank_1_devptr(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgercStridedBatched_64_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCgercStridedBatched_64_rank_1_devptr = hipblasCgercStridedBatched_64_(handle,m,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCgercStridedBatched_64_full_rank(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgercStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCgercStridedBatched_64_full_rank = hipblasCgercStridedBatched_64_(handle,m,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCgercStridedBatched_64_full_rank_devptr(handle,m,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgercStridedBatched_64_full_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCgercStridedBatched_64_full_rank_devptr = hipblasCgercStridedBatched_64_(handle,m,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCgercStridedBatched_64_strided_rank(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgercStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCgercStridedBatched_64_strided_rank = hipblasCgercStridedBatched_64_(handle,m,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCgercStridedBatched_64_strided_rank_devptr(handle,m,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgercStridedBatched_64_strided_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCgercStridedBatched_64_strided_rank_devptr = hipblasCgercStridedBatched_64_(handle,m, & + n,alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZgeruStridedBatched_64_assumed_rank(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeruStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZgeruStridedBatched_64_assumed_rank = hipblasZgeruStridedBatched_64_(handle,m,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZgeruStridedBatched_64_assumed_rank_devptr(handle,m,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeruStridedBatched_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZgeruStridedBatched_64_assumed_rank_devptr = hipblasZgeruStridedBatched_64_(handle,m, & + n,alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#else + function hipblasZgeruStridedBatched_64_rank_0(handle,m,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeruStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZgeruStridedBatched_64_rank_0 = hipblasZgeruStridedBatched_64_(handle,m,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZgeruStridedBatched_64_rank_0_devptr(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeruStridedBatched_64_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZgeruStridedBatched_64_rank_0_devptr = hipblasZgeruStridedBatched_64_(handle,m,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZgeruStridedBatched_64_rank_1(handle,m,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeruStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZgeruStridedBatched_64_rank_1 = hipblasZgeruStridedBatched_64_(handle,m,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZgeruStridedBatched_64_rank_1_devptr(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeruStridedBatched_64_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZgeruStridedBatched_64_rank_1_devptr = hipblasZgeruStridedBatched_64_(handle,m,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZgeruStridedBatched_64_full_rank(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeruStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZgeruStridedBatched_64_full_rank = hipblasZgeruStridedBatched_64_(handle,m,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZgeruStridedBatched_64_full_rank_devptr(handle,m,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeruStridedBatched_64_full_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZgeruStridedBatched_64_full_rank_devptr = hipblasZgeruStridedBatched_64_(handle,m,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZgeruStridedBatched_64_strided_rank(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeruStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZgeruStridedBatched_64_strided_rank = hipblasZgeruStridedBatched_64_(handle,m,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZgeruStridedBatched_64_strided_rank_devptr(handle,m,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeruStridedBatched_64_strided_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZgeruStridedBatched_64_strided_rank_devptr = hipblasZgeruStridedBatched_64_(handle,m, & + n,alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZgercStridedBatched_64_assumed_rank(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgercStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZgercStridedBatched_64_assumed_rank = hipblasZgercStridedBatched_64_(handle,m,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZgercStridedBatched_64_assumed_rank_devptr(handle,m,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgercStridedBatched_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZgercStridedBatched_64_assumed_rank_devptr = hipblasZgercStridedBatched_64_(handle,m, & + n,alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#else + function hipblasZgercStridedBatched_64_rank_0(handle,m,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgercStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZgercStridedBatched_64_rank_0 = hipblasZgercStridedBatched_64_(handle,m,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZgercStridedBatched_64_rank_0_devptr(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgercStridedBatched_64_rank_0_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZgercStridedBatched_64_rank_0_devptr = hipblasZgercStridedBatched_64_(handle,m,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZgercStridedBatched_64_rank_1(handle,m,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgercStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZgercStridedBatched_64_rank_1 = hipblasZgercStridedBatched_64_(handle,m,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZgercStridedBatched_64_rank_1_devptr(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgercStridedBatched_64_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZgercStridedBatched_64_rank_1_devptr = hipblasZgercStridedBatched_64_(handle,m,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZgercStridedBatched_64_full_rank(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgercStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZgercStridedBatched_64_full_rank = hipblasZgercStridedBatched_64_(handle,m,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZgercStridedBatched_64_full_rank_devptr(handle,m,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgercStridedBatched_64_full_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZgercStridedBatched_64_full_rank_devptr = hipblasZgercStridedBatched_64_(handle,m,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZgercStridedBatched_64_strided_rank(handle,m,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgercStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZgercStridedBatched_64_strided_rank = hipblasZgercStridedBatched_64_(handle,m,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZgercStridedBatched_64_strided_rank_devptr(handle,m,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgercStridedBatched_64_strided_rank_devptr + type(c_ptr), value :: handle + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZgercStridedBatched_64_strided_rank_devptr = hipblasZgercStridedBatched_64_(handle,m, & + n,alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasChbmv_assumed_rank(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + ! + hipblasChbmv_assumed_rank = hipblasChbmv_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasChbmv_assumed_rank_devptr(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmv_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + ! + hipblasChbmv_assumed_rank_devptr = hipblasChbmv_(handle,uplo,n,k,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) + end function + +#else + function hipblasChbmv_rank_0(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + complex(c_float_complex),target :: x + integer(c_int) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: y + integer(c_int) :: incy + ! + hipblasChbmv_rank_0 = hipblasChbmv_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasChbmv_rank_0_devptr(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmv_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + complex(c_float_complex),target :: x + integer(c_int) :: incx + type(c_ptr),value :: beta + complex(c_float_complex),target :: y + integer(c_int) :: incy + ! + hipblasChbmv_rank_0_devptr = hipblasChbmv_(handle,uplo,n,k,alpha,c_loc(AP),lda,c_loc(x), & + incx,beta,c_loc(y),incy) + end function + + function hipblasChbmv_rank_1(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasChbmv_rank_1 = hipblasChbmv_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasChbmv_rank_1_devptr(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmv_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasChbmv_rank_1_devptr = hipblasChbmv_(handle,uplo,n,k,alpha,c_loc(AP),lda,c_loc(x), & + incx,beta,c_loc(y),incy) + end function + + function hipblasChbmv_full_rank(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmv_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasChbmv_full_rank = hipblasChbmv_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasChbmv_full_rank_devptr(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmv_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasChbmv_full_rank_devptr = hipblasChbmv_(handle,uplo,n,k,alpha,c_loc(AP),lda,c_loc(x), & + incx,beta,c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZhbmv_assumed_rank(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + ! + hipblasZhbmv_assumed_rank = hipblasZhbmv_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasZhbmv_assumed_rank_devptr(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmv_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + ! + hipblasZhbmv_assumed_rank_devptr = hipblasZhbmv_(handle,uplo,n,k,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) + end function + +#else + function hipblasZhbmv_rank_0(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int) :: lda + complex(c_double_complex),target :: x + integer(c_int) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: y + integer(c_int) :: incy + ! + hipblasZhbmv_rank_0 = hipblasZhbmv_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasZhbmv_rank_0_devptr(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmv_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target :: AP + integer(c_int) :: lda + complex(c_double_complex),target :: x + integer(c_int) :: incx + type(c_ptr),value :: beta + complex(c_double_complex),target :: y + integer(c_int) :: incy + ! + hipblasZhbmv_rank_0_devptr = hipblasZhbmv_(handle,uplo,n,k,alpha,c_loc(AP),lda,c_loc(x), & + incx,beta,c_loc(y),incy) + end function + + function hipblasZhbmv_rank_1(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasZhbmv_rank_1 = hipblasZhbmv_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasZhbmv_rank_1_devptr(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmv_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasZhbmv_rank_1_devptr = hipblasZhbmv_(handle,uplo,n,k,alpha,c_loc(AP),lda,c_loc(x), & + incx,beta,c_loc(y),incy) + end function + + function hipblasZhbmv_full_rank(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmv_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasZhbmv_full_rank = hipblasZhbmv_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasZhbmv_full_rank_devptr(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmv_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasZhbmv_full_rank_devptr = hipblasZhbmv_(handle,uplo,n,k,alpha,c_loc(AP),lda,c_loc(x), & + incx,beta,c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasChbmv_64_assumed_rank(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + ! + hipblasChbmv_64_assumed_rank = hipblasChbmv_64_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasChbmv_64_assumed_rank_devptr(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmv_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + ! + hipblasChbmv_64_assumed_rank_devptr = hipblasChbmv_64_(handle,uplo,n,k,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) + end function + +#else + function hipblasChbmv_64_rank_0(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + ! + hipblasChbmv_64_rank_0 = hipblasChbmv_64_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasChbmv_64_rank_0_devptr(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmv_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + ! + hipblasChbmv_64_rank_0_devptr = hipblasChbmv_64_(handle,uplo,n,k,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) + end function + + function hipblasChbmv_64_rank_1(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasChbmv_64_rank_1 = hipblasChbmv_64_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasChbmv_64_rank_1_devptr(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmv_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasChbmv_64_rank_1_devptr = hipblasChbmv_64_(handle,uplo,n,k,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) + end function + + function hipblasChbmv_64_full_rank(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmv_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasChbmv_64_full_rank = hipblasChbmv_64_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasChbmv_64_full_rank_devptr(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmv_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasChbmv_64_full_rank_devptr = hipblasChbmv_64_(handle,uplo,n,k,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZhbmv_64_assumed_rank(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + ! + hipblasZhbmv_64_assumed_rank = hipblasZhbmv_64_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasZhbmv_64_assumed_rank_devptr(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmv_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + ! + hipblasZhbmv_64_assumed_rank_devptr = hipblasZhbmv_64_(handle,uplo,n,k,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) + end function + +#else + function hipblasZhbmv_64_rank_0(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + ! + hipblasZhbmv_64_rank_0 = hipblasZhbmv_64_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasZhbmv_64_rank_0_devptr(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmv_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + ! + hipblasZhbmv_64_rank_0_devptr = hipblasZhbmv_64_(handle,uplo,n,k,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) + end function + + function hipblasZhbmv_64_rank_1(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasZhbmv_64_rank_1 = hipblasZhbmv_64_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasZhbmv_64_rank_1_devptr(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmv_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasZhbmv_64_rank_1_devptr = hipblasZhbmv_64_(handle,uplo,n,k,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) + end function + + function hipblasZhbmv_64_full_rank(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmv_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasZhbmv_64_full_rank = hipblasZhbmv_64_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasZhbmv_64_full_rank_devptr(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmv_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasZhbmv_64_full_rank_devptr = hipblasZhbmv_64_(handle,uplo,n,k,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasChbmvStridedBatched_assumed_rank(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasChbmvStridedBatched_assumed_rank = hipblasChbmvStridedBatched_(handle,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasChbmvStridedBatched_assumed_rank_devptr(handle,uplo,n,k,alpha,AP,lda,strideA, & + x,incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmvStridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasChbmvStridedBatched_assumed_rank_devptr = hipblasChbmvStridedBatched_(handle,uplo,n, & + k,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + +#else + function hipblasChbmvStridedBatched_rank_0(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasChbmvStridedBatched_rank_0 = hipblasChbmvStridedBatched_(handle,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasChbmvStridedBatched_rank_0_devptr(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmvStridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_float_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasChbmvStridedBatched_rank_0_devptr = hipblasChbmvStridedBatched_(handle,uplo,n,k, & + alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasChbmvStridedBatched_rank_1(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasChbmvStridedBatched_rank_1 = hipblasChbmvStridedBatched_(handle,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasChbmvStridedBatched_rank_1_devptr(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmvStridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasChbmvStridedBatched_rank_1_devptr = hipblasChbmvStridedBatched_(handle,uplo,n,k, & + alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasChbmvStridedBatched_full_rank(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmvStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasChbmvStridedBatched_full_rank = hipblasChbmvStridedBatched_(handle,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasChbmvStridedBatched_full_rank_devptr(handle,uplo,n,k,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmvStridedBatched_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasChbmvStridedBatched_full_rank_devptr = hipblasChbmvStridedBatched_(handle,uplo,n,k, & + alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasChbmvStridedBatched_strided_rank(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmvStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasChbmvStridedBatched_strided_rank = hipblasChbmvStridedBatched_(handle,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasChbmvStridedBatched_strided_rank_devptr(handle,uplo,n,k,alpha,AP,lda,strideA, & + x,incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmvStridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasChbmvStridedBatched_strided_rank_devptr = hipblasChbmvStridedBatched_(handle,uplo,n, & + k,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZhbmvStridedBatched_assumed_rank(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZhbmvStridedBatched_assumed_rank = hipblasZhbmvStridedBatched_(handle,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasZhbmvStridedBatched_assumed_rank_devptr(handle,uplo,n,k,alpha,AP,lda,strideA, & + x,incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmvStridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZhbmvStridedBatched_assumed_rank_devptr = hipblasZhbmvStridedBatched_(handle,uplo,n, & + k,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + +#else + function hipblasZhbmvStridedBatched_rank_0(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZhbmvStridedBatched_rank_0 = hipblasZhbmvStridedBatched_(handle,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasZhbmvStridedBatched_rank_0_devptr(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmvStridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_double_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZhbmvStridedBatched_rank_0_devptr = hipblasZhbmvStridedBatched_(handle,uplo,n,k, & + alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasZhbmvStridedBatched_rank_1(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZhbmvStridedBatched_rank_1 = hipblasZhbmvStridedBatched_(handle,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasZhbmvStridedBatched_rank_1_devptr(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmvStridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZhbmvStridedBatched_rank_1_devptr = hipblasZhbmvStridedBatched_(handle,uplo,n,k, & + alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasZhbmvStridedBatched_full_rank(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmvStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZhbmvStridedBatched_full_rank = hipblasZhbmvStridedBatched_(handle,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasZhbmvStridedBatched_full_rank_devptr(handle,uplo,n,k,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmvStridedBatched_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZhbmvStridedBatched_full_rank_devptr = hipblasZhbmvStridedBatched_(handle,uplo,n,k, & + alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasZhbmvStridedBatched_strided_rank(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmvStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZhbmvStridedBatched_strided_rank = hipblasZhbmvStridedBatched_(handle,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasZhbmvStridedBatched_strided_rank_devptr(handle,uplo,n,k,alpha,AP,lda,strideA, & + x,incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmvStridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZhbmvStridedBatched_strided_rank_devptr = hipblasZhbmvStridedBatched_(handle,uplo,n, & + k,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasChbmvStridedBatched_64_assumed_rank(handle,uplo,n,k,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasChbmvStridedBatched_64_assumed_rank = hipblasChbmvStridedBatched_64_(handle,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasChbmvStridedBatched_64_assumed_rank_devptr(handle,uplo,n,k,alpha,AP,lda, & + strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmvStridedBatched_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasChbmvStridedBatched_64_assumed_rank_devptr = hipblasChbmvStridedBatched_64_(handle, & + uplo,n,k,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey, & + batchCount) + end function + +#else + function hipblasChbmvStridedBatched_64_rank_0(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasChbmvStridedBatched_64_rank_0 = hipblasChbmvStridedBatched_64_(handle,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasChbmvStridedBatched_64_rank_0_devptr(handle,uplo,n,k,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmvStridedBatched_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasChbmvStridedBatched_64_rank_0_devptr = hipblasChbmvStridedBatched_64_(handle,uplo,n, & + k,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasChbmvStridedBatched_64_rank_1(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasChbmvStridedBatched_64_rank_1 = hipblasChbmvStridedBatched_64_(handle,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasChbmvStridedBatched_64_rank_1_devptr(handle,uplo,n,k,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmvStridedBatched_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasChbmvStridedBatched_64_rank_1_devptr = hipblasChbmvStridedBatched_64_(handle,uplo,n, & + k,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasChbmvStridedBatched_64_full_rank(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmvStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasChbmvStridedBatched_64_full_rank = hipblasChbmvStridedBatched_64_(handle,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasChbmvStridedBatched_64_full_rank_devptr(handle,uplo,n,k,alpha,AP,lda,strideA, & + x,incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmvStridedBatched_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasChbmvStridedBatched_64_full_rank_devptr = hipblasChbmvStridedBatched_64_(handle,uplo, & + n,k,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasChbmvStridedBatched_64_strided_rank(handle,uplo,n,k,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmvStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasChbmvStridedBatched_64_strided_rank = hipblasChbmvStridedBatched_64_(handle,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasChbmvStridedBatched_64_strided_rank_devptr(handle,uplo,n,k,alpha,AP,lda, & + strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChbmvStridedBatched_64_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasChbmvStridedBatched_64_strided_rank_devptr = hipblasChbmvStridedBatched_64_(handle, & + uplo,n,k,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey, & + batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZhbmvStridedBatched_64_assumed_rank(handle,uplo,n,k,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZhbmvStridedBatched_64_assumed_rank = hipblasZhbmvStridedBatched_64_(handle,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasZhbmvStridedBatched_64_assumed_rank_devptr(handle,uplo,n,k,alpha,AP,lda, & + strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmvStridedBatched_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZhbmvStridedBatched_64_assumed_rank_devptr = hipblasZhbmvStridedBatched_64_(handle, & + uplo,n,k,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey, & + batchCount) + end function + +#else + function hipblasZhbmvStridedBatched_64_rank_0(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZhbmvStridedBatched_64_rank_0 = hipblasZhbmvStridedBatched_64_(handle,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasZhbmvStridedBatched_64_rank_0_devptr(handle,uplo,n,k,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmvStridedBatched_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZhbmvStridedBatched_64_rank_0_devptr = hipblasZhbmvStridedBatched_64_(handle,uplo,n, & + k,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasZhbmvStridedBatched_64_rank_1(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZhbmvStridedBatched_64_rank_1 = hipblasZhbmvStridedBatched_64_(handle,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasZhbmvStridedBatched_64_rank_1_devptr(handle,uplo,n,k,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmvStridedBatched_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZhbmvStridedBatched_64_rank_1_devptr = hipblasZhbmvStridedBatched_64_(handle,uplo,n, & + k,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasZhbmvStridedBatched_64_full_rank(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmvStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZhbmvStridedBatched_64_full_rank = hipblasZhbmvStridedBatched_64_(handle,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasZhbmvStridedBatched_64_full_rank_devptr(handle,uplo,n,k,alpha,AP,lda,strideA, & + x,incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmvStridedBatched_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZhbmvStridedBatched_64_full_rank_devptr = hipblasZhbmvStridedBatched_64_(handle,uplo, & + n,k,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasZhbmvStridedBatched_64_strided_rank(handle,uplo,n,k,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmvStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZhbmvStridedBatched_64_strided_rank = hipblasZhbmvStridedBatched_64_(handle,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasZhbmvStridedBatched_64_strided_rank_devptr(handle,uplo,n,k,alpha,AP,lda, & + strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhbmvStridedBatched_64_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZhbmvStridedBatched_64_strided_rank_devptr = hipblasZhbmvStridedBatched_64_(handle, & + uplo,n,k,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey, & + batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasChemv_assumed_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + ! + hipblasChemv_assumed_rank = hipblasChemv_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasChemv_assumed_rank_devptr(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemv_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + ! + hipblasChemv_assumed_rank_devptr = hipblasChemv_(handle,uplo,n,alpha,c_loc(AP),lda,c_loc(x), & + incx,beta,c_loc(y),incy) + end function + +#else + function hipblasChemv_rank_0(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + complex(c_float_complex),target :: x + integer(c_int) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: y + integer(c_int) :: incy + ! + hipblasChemv_rank_0 = hipblasChemv_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x),incx, & + c_loc(beta),c_loc(y),incy) + end function + + function hipblasChemv_rank_0_devptr(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemv_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + complex(c_float_complex),target :: x + integer(c_int) :: incx + type(c_ptr),value :: beta + complex(c_float_complex),target :: y + integer(c_int) :: incy + ! + hipblasChemv_rank_0_devptr = hipblasChemv_(handle,uplo,n,alpha,c_loc(AP),lda,c_loc(x),incx, & + beta,c_loc(y),incy) + end function + + function hipblasChemv_rank_1(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasChemv_rank_1 = hipblasChemv_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x),incx, & + c_loc(beta),c_loc(y),incy) + end function + + function hipblasChemv_rank_1_devptr(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemv_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasChemv_rank_1_devptr = hipblasChemv_(handle,uplo,n,alpha,c_loc(AP),lda,c_loc(x),incx, & + beta,c_loc(y),incy) + end function + + function hipblasChemv_full_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemv_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasChemv_full_rank = hipblasChemv_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasChemv_full_rank_devptr(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemv_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasChemv_full_rank_devptr = hipblasChemv_(handle,uplo,n,alpha,c_loc(AP),lda,c_loc(x), & + incx,beta,c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZhemv_assumed_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + ! + hipblasZhemv_assumed_rank = hipblasZhemv_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasZhemv_assumed_rank_devptr(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemv_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + ! + hipblasZhemv_assumed_rank_devptr = hipblasZhemv_(handle,uplo,n,alpha,c_loc(AP),lda,c_loc(x), & + incx,beta,c_loc(y),incy) + end function + +#else + function hipblasZhemv_rank_0(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int) :: lda + complex(c_double_complex),target :: x + integer(c_int) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: y + integer(c_int) :: incy + ! + hipblasZhemv_rank_0 = hipblasZhemv_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x),incx, & + c_loc(beta),c_loc(y),incy) + end function + + function hipblasZhemv_rank_0_devptr(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemv_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target :: AP + integer(c_int) :: lda + complex(c_double_complex),target :: x + integer(c_int) :: incx + type(c_ptr),value :: beta + complex(c_double_complex),target :: y + integer(c_int) :: incy + ! + hipblasZhemv_rank_0_devptr = hipblasZhemv_(handle,uplo,n,alpha,c_loc(AP),lda,c_loc(x),incx, & + beta,c_loc(y),incy) + end function + + function hipblasZhemv_rank_1(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasZhemv_rank_1 = hipblasZhemv_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x),incx, & + c_loc(beta),c_loc(y),incy) + end function + + function hipblasZhemv_rank_1_devptr(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemv_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasZhemv_rank_1_devptr = hipblasZhemv_(handle,uplo,n,alpha,c_loc(AP),lda,c_loc(x),incx, & + beta,c_loc(y),incy) + end function + + function hipblasZhemv_full_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemv_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasZhemv_full_rank = hipblasZhemv_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasZhemv_full_rank_devptr(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemv_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasZhemv_full_rank_devptr = hipblasZhemv_(handle,uplo,n,alpha,c_loc(AP),lda,c_loc(x), & + incx,beta,c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasChemv_64_assumed_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + ! + hipblasChemv_64_assumed_rank = hipblasChemv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasChemv_64_assumed_rank_devptr(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemv_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + ! + hipblasChemv_64_assumed_rank_devptr = hipblasChemv_64_(handle,uplo,n,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) + end function + +#else + function hipblasChemv_64_rank_0(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + ! + hipblasChemv_64_rank_0 = hipblasChemv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasChemv_64_rank_0_devptr(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemv_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + ! + hipblasChemv_64_rank_0_devptr = hipblasChemv_64_(handle,uplo,n,alpha,c_loc(AP),lda,c_loc(x), & + incx,beta,c_loc(y),incy) + end function + + function hipblasChemv_64_rank_1(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasChemv_64_rank_1 = hipblasChemv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasChemv_64_rank_1_devptr(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemv_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasChemv_64_rank_1_devptr = hipblasChemv_64_(handle,uplo,n,alpha,c_loc(AP),lda,c_loc(x), & + incx,beta,c_loc(y),incy) + end function + + function hipblasChemv_64_full_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemv_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasChemv_64_full_rank = hipblasChemv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasChemv_64_full_rank_devptr(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemv_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasChemv_64_full_rank_devptr = hipblasChemv_64_(handle,uplo,n,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZhemv_64_assumed_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + ! + hipblasZhemv_64_assumed_rank = hipblasZhemv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasZhemv_64_assumed_rank_devptr(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemv_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + ! + hipblasZhemv_64_assumed_rank_devptr = hipblasZhemv_64_(handle,uplo,n,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) + end function + +#else + function hipblasZhemv_64_rank_0(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + ! + hipblasZhemv_64_rank_0 = hipblasZhemv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasZhemv_64_rank_0_devptr(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemv_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + ! + hipblasZhemv_64_rank_0_devptr = hipblasZhemv_64_(handle,uplo,n,alpha,c_loc(AP),lda,c_loc(x), & + incx,beta,c_loc(y),incy) + end function + + function hipblasZhemv_64_rank_1(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasZhemv_64_rank_1 = hipblasZhemv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasZhemv_64_rank_1_devptr(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemv_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasZhemv_64_rank_1_devptr = hipblasZhemv_64_(handle,uplo,n,alpha,c_loc(AP),lda,c_loc(x), & + incx,beta,c_loc(y),incy) + end function + + function hipblasZhemv_64_full_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemv_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasZhemv_64_full_rank = hipblasZhemv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasZhemv_64_full_rank_devptr(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemv_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasZhemv_64_full_rank_devptr = hipblasZhemv_64_(handle,uplo,n,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasChemvStridedBatched_assumed_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasChemvStridedBatched_assumed_rank = hipblasChemvStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasChemvStridedBatched_assumed_rank_devptr(handle,uplo,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemvStridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasChemvStridedBatched_assumed_rank_devptr = hipblasChemvStridedBatched_(handle,uplo,n, & + alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + +#else + function hipblasChemvStridedBatched_rank_0(handle,uplo,n,alpha,AP,lda,strideA,x,incx,stridex, & + beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasChemvStridedBatched_rank_0 = hipblasChemvStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey,batchCount) + end function + + function hipblasChemvStridedBatched_rank_0_devptr(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemvStridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_float_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasChemvStridedBatched_rank_0_devptr = hipblasChemvStridedBatched_(handle,uplo,n,alpha, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasChemvStridedBatched_rank_1(handle,uplo,n,alpha,AP,lda,strideA,x,incx,stridex, & + beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasChemvStridedBatched_rank_1 = hipblasChemvStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey,batchCount) + end function + + function hipblasChemvStridedBatched_rank_1_devptr(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemvStridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasChemvStridedBatched_rank_1_devptr = hipblasChemvStridedBatched_(handle,uplo,n,alpha, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasChemvStridedBatched_full_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemvStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasChemvStridedBatched_full_rank = hipblasChemvStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasChemvStridedBatched_full_rank_devptr(handle,uplo,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemvStridedBatched_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasChemvStridedBatched_full_rank_devptr = hipblasChemvStridedBatched_(handle,uplo,n, & + alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasChemvStridedBatched_strided_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemvStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasChemvStridedBatched_strided_rank = hipblasChemvStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasChemvStridedBatched_strided_rank_devptr(handle,uplo,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemvStridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasChemvStridedBatched_strided_rank_devptr = hipblasChemvStridedBatched_(handle,uplo,n, & + alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZhemvStridedBatched_assumed_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZhemvStridedBatched_assumed_rank = hipblasZhemvStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasZhemvStridedBatched_assumed_rank_devptr(handle,uplo,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemvStridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZhemvStridedBatched_assumed_rank_devptr = hipblasZhemvStridedBatched_(handle,uplo,n, & + alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + +#else + function hipblasZhemvStridedBatched_rank_0(handle,uplo,n,alpha,AP,lda,strideA,x,incx,stridex, & + beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZhemvStridedBatched_rank_0 = hipblasZhemvStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey,batchCount) + end function + + function hipblasZhemvStridedBatched_rank_0_devptr(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemvStridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_double_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZhemvStridedBatched_rank_0_devptr = hipblasZhemvStridedBatched_(handle,uplo,n,alpha, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasZhemvStridedBatched_rank_1(handle,uplo,n,alpha,AP,lda,strideA,x,incx,stridex, & + beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZhemvStridedBatched_rank_1 = hipblasZhemvStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey,batchCount) + end function + + function hipblasZhemvStridedBatched_rank_1_devptr(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemvStridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZhemvStridedBatched_rank_1_devptr = hipblasZhemvStridedBatched_(handle,uplo,n,alpha, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasZhemvStridedBatched_full_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemvStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZhemvStridedBatched_full_rank = hipblasZhemvStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasZhemvStridedBatched_full_rank_devptr(handle,uplo,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemvStridedBatched_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZhemvStridedBatched_full_rank_devptr = hipblasZhemvStridedBatched_(handle,uplo,n, & + alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasZhemvStridedBatched_strided_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemvStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZhemvStridedBatched_strided_rank = hipblasZhemvStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasZhemvStridedBatched_strided_rank_devptr(handle,uplo,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemvStridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZhemvStridedBatched_strided_rank_devptr = hipblasZhemvStridedBatched_(handle,uplo,n, & + alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasChemvStridedBatched_64_assumed_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasChemvStridedBatched_64_assumed_rank = hipblasChemvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasChemvStridedBatched_64_assumed_rank_devptr(handle,uplo,n,alpha,AP,lda,strideA, & + x,incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemvStridedBatched_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasChemvStridedBatched_64_assumed_rank_devptr = hipblasChemvStridedBatched_64_(handle, & + uplo,n,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey, & + batchCount) + end function + +#else + function hipblasChemvStridedBatched_64_rank_0(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasChemvStridedBatched_64_rank_0 = hipblasChemvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasChemvStridedBatched_64_rank_0_devptr(handle,uplo,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemvStridedBatched_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasChemvStridedBatched_64_rank_0_devptr = hipblasChemvStridedBatched_64_(handle,uplo,n, & + alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasChemvStridedBatched_64_rank_1(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasChemvStridedBatched_64_rank_1 = hipblasChemvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasChemvStridedBatched_64_rank_1_devptr(handle,uplo,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemvStridedBatched_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasChemvStridedBatched_64_rank_1_devptr = hipblasChemvStridedBatched_64_(handle,uplo,n, & + alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasChemvStridedBatched_64_full_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemvStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasChemvStridedBatched_64_full_rank = hipblasChemvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasChemvStridedBatched_64_full_rank_devptr(handle,uplo,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemvStridedBatched_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasChemvStridedBatched_64_full_rank_devptr = hipblasChemvStridedBatched_64_(handle,uplo, & + n,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasChemvStridedBatched_64_strided_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemvStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasChemvStridedBatched_64_strided_rank = hipblasChemvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasChemvStridedBatched_64_strided_rank_devptr(handle,uplo,n,alpha,AP,lda,strideA, & + x,incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemvStridedBatched_64_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasChemvStridedBatched_64_strided_rank_devptr = hipblasChemvStridedBatched_64_(handle, & + uplo,n,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey, & + batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZhemvStridedBatched_64_assumed_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZhemvStridedBatched_64_assumed_rank = hipblasZhemvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasZhemvStridedBatched_64_assumed_rank_devptr(handle,uplo,n,alpha,AP,lda,strideA, & + x,incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemvStridedBatched_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZhemvStridedBatched_64_assumed_rank_devptr = hipblasZhemvStridedBatched_64_(handle, & + uplo,n,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey, & + batchCount) + end function + +#else + function hipblasZhemvStridedBatched_64_rank_0(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZhemvStridedBatched_64_rank_0 = hipblasZhemvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasZhemvStridedBatched_64_rank_0_devptr(handle,uplo,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemvStridedBatched_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZhemvStridedBatched_64_rank_0_devptr = hipblasZhemvStridedBatched_64_(handle,uplo,n, & + alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasZhemvStridedBatched_64_rank_1(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZhemvStridedBatched_64_rank_1 = hipblasZhemvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasZhemvStridedBatched_64_rank_1_devptr(handle,uplo,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemvStridedBatched_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZhemvStridedBatched_64_rank_1_devptr = hipblasZhemvStridedBatched_64_(handle,uplo,n, & + alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasZhemvStridedBatched_64_full_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemvStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZhemvStridedBatched_64_full_rank = hipblasZhemvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasZhemvStridedBatched_64_full_rank_devptr(handle,uplo,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemvStridedBatched_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZhemvStridedBatched_64_full_rank_devptr = hipblasZhemvStridedBatched_64_(handle,uplo, & + n,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasZhemvStridedBatched_64_strided_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemvStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZhemvStridedBatched_64_strided_rank = hipblasZhemvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasZhemvStridedBatched_64_strided_rank_devptr(handle,uplo,n,alpha,AP,lda,strideA, & + x,incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemvStridedBatched_64_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZhemvStridedBatched_64_strided_rank_devptr = hipblasZhemvStridedBatched_64_(handle, & + uplo,n,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey, & + batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCher_assumed_rank(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + ! + hipblasCher_assumed_rank = hipblasCher_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP), & + lda) + end function + + function hipblasCher_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + ! + hipblasCher_assumed_rank_devptr = hipblasCher_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(AP), & + lda) + end function + +#else + function hipblasCher_rank_0(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + complex(c_float_complex),target :: x + integer(c_int) :: incx + complex(c_float_complex),target :: AP + integer(c_int) :: lda + ! + hipblasCher_rank_0 = hipblasCher_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP),lda) + end function + + function hipblasCher_rank_0_devptr(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target :: x + integer(c_int) :: incx + complex(c_float_complex),target :: AP + integer(c_int) :: lda + ! + hipblasCher_rank_0_devptr = hipblasCher_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(AP),lda) + end function + + function hipblasCher_rank_1(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + ! + hipblasCher_rank_1 = hipblasCher_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP),lda) + end function + + function hipblasCher_rank_1_devptr(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + ! + hipblasCher_rank_1_devptr = hipblasCher_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(AP),lda) + end function + + function hipblasCher_full_rank(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + ! + hipblasCher_full_rank = hipblasCher_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP),lda) + end function + + function hipblasCher_full_rank_devptr(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + ! + hipblasCher_full_rank_devptr = hipblasCher_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(AP),lda) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZher_assumed_rank(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + ! + hipblasZher_assumed_rank = hipblasZher_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP), & + lda) + end function + + function hipblasZher_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + ! + hipblasZher_assumed_rank_devptr = hipblasZher_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(AP), & + lda) + end function + +#else + function hipblasZher_rank_0(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + complex(c_double_complex),target :: x + integer(c_int) :: incx + complex(c_double_complex),target :: AP + integer(c_int) :: lda + ! + hipblasZher_rank_0 = hipblasZher_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP),lda) + end function + + function hipblasZher_rank_0_devptr(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target :: x + integer(c_int) :: incx + complex(c_double_complex),target :: AP + integer(c_int) :: lda + ! + hipblasZher_rank_0_devptr = hipblasZher_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(AP),lda) + end function + + function hipblasZher_rank_1(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + ! + hipblasZher_rank_1 = hipblasZher_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP),lda) + end function + + function hipblasZher_rank_1_devptr(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + ! + hipblasZher_rank_1_devptr = hipblasZher_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(AP),lda) + end function + + function hipblasZher_full_rank(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + ! + hipblasZher_full_rank = hipblasZher_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP),lda) + end function + + function hipblasZher_full_rank_devptr(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + ! + hipblasZher_full_rank_devptr = hipblasZher_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(AP),lda) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCher_64_assumed_rank(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + ! + hipblasCher_64_assumed_rank = hipblasCher_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & + c_loc(AP),lda) + end function + + function hipblasCher_64_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + ! + hipblasCher_64_assumed_rank_devptr = hipblasCher_64_(handle,uplo,n,alpha,c_loc(x),incx, & + c_loc(AP),lda) + end function + +#else + function hipblasCher_64_rank_0(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + ! + hipblasCher_64_rank_0 = hipblasCher_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP), & + lda) + end function + + function hipblasCher_64_rank_0_devptr(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + ! + hipblasCher_64_rank_0_devptr = hipblasCher_64_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(AP), & + lda) + end function + + function hipblasCher_64_rank_1(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + ! + hipblasCher_64_rank_1 = hipblasCher_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP), & + lda) + end function + + function hipblasCher_64_rank_1_devptr(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + ! + hipblasCher_64_rank_1_devptr = hipblasCher_64_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(AP), & + lda) + end function + + function hipblasCher_64_full_rank(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + ! + hipblasCher_64_full_rank = hipblasCher_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & + c_loc(AP),lda) + end function + + function hipblasCher_64_full_rank_devptr(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + ! + hipblasCher_64_full_rank_devptr = hipblasCher_64_(handle,uplo,n,alpha,c_loc(x),incx, & + c_loc(AP),lda) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZher_64_assumed_rank(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + ! + hipblasZher_64_assumed_rank = hipblasZher_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & + c_loc(AP),lda) + end function + + function hipblasZher_64_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + ! + hipblasZher_64_assumed_rank_devptr = hipblasZher_64_(handle,uplo,n,alpha,c_loc(x),incx, & + c_loc(AP),lda) + end function + +#else + function hipblasZher_64_rank_0(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + ! + hipblasZher_64_rank_0 = hipblasZher_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP), & + lda) + end function + + function hipblasZher_64_rank_0_devptr(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + ! + hipblasZher_64_rank_0_devptr = hipblasZher_64_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(AP), & + lda) + end function + + function hipblasZher_64_rank_1(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + ! + hipblasZher_64_rank_1 = hipblasZher_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP), & + lda) + end function + + function hipblasZher_64_rank_1_devptr(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + ! + hipblasZher_64_rank_1_devptr = hipblasZher_64_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(AP), & + lda) + end function + + function hipblasZher_64_full_rank(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + ! + hipblasZher_64_full_rank = hipblasZher_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & + c_loc(AP),lda) + end function + + function hipblasZher_64_full_rank_devptr(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + ! + hipblasZher_64_full_rank_devptr = hipblasZher_64_(handle,uplo,n,alpha,c_loc(x),incx, & + c_loc(AP),lda) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCherStridedBatched_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCherStridedBatched_assumed_rank = hipblasCherStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCherStridedBatched_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,stridex,AP, & + lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherStridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCherStridedBatched_assumed_rank_devptr = hipblasCherStridedBatched_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + +#else + function hipblasCherStridedBatched_rank_0(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCherStridedBatched_rank_0 = hipblasCherStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCherStridedBatched_rank_0_devptr(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherStridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCherStridedBatched_rank_0_devptr = hipblasCherStridedBatched_(handle,uplo,n,alpha, & + c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCherStridedBatched_rank_1(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCherStridedBatched_rank_1 = hipblasCherStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCherStridedBatched_rank_1_devptr(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherStridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCherStridedBatched_rank_1_devptr = hipblasCherStridedBatched_(handle,uplo,n,alpha, & + c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCherStridedBatched_full_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCherStridedBatched_full_rank = hipblasCherStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCherStridedBatched_full_rank_devptr(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherStridedBatched_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCherStridedBatched_full_rank_devptr = hipblasCherStridedBatched_(handle,uplo,n,alpha, & + c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCherStridedBatched_strided_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCherStridedBatched_strided_rank = hipblasCherStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCherStridedBatched_strided_rank_devptr(handle,uplo,n,alpha,x,incx,stridex,AP, & + lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherStridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCherStridedBatched_strided_rank_devptr = hipblasCherStridedBatched_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZherStridedBatched_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZherStridedBatched_assumed_rank = hipblasZherStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZherStridedBatched_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,stridex,AP, & + lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherStridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZherStridedBatched_assumed_rank_devptr = hipblasZherStridedBatched_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + +#else + function hipblasZherStridedBatched_rank_0(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZherStridedBatched_rank_0 = hipblasZherStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZherStridedBatched_rank_0_devptr(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherStridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZherStridedBatched_rank_0_devptr = hipblasZherStridedBatched_(handle,uplo,n,alpha, & + c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZherStridedBatched_rank_1(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZherStridedBatched_rank_1 = hipblasZherStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZherStridedBatched_rank_1_devptr(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherStridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZherStridedBatched_rank_1_devptr = hipblasZherStridedBatched_(handle,uplo,n,alpha, & + c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZherStridedBatched_full_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZherStridedBatched_full_rank = hipblasZherStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZherStridedBatched_full_rank_devptr(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherStridedBatched_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZherStridedBatched_full_rank_devptr = hipblasZherStridedBatched_(handle,uplo,n,alpha, & + c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZherStridedBatched_strided_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZherStridedBatched_strided_rank = hipblasZherStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZherStridedBatched_strided_rank_devptr(handle,uplo,n,alpha,x,incx,stridex,AP, & + lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherStridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZherStridedBatched_strided_rank_devptr = hipblasZherStridedBatched_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCherStridedBatched_64_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCherStridedBatched_64_assumed_rank = hipblasCherStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCherStridedBatched_64_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,stridex, & + AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherStridedBatched_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCherStridedBatched_64_assumed_rank_devptr = hipblasCherStridedBatched_64_(handle, & + uplo,n,alpha,c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + +#else + function hipblasCherStridedBatched_64_rank_0(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCherStridedBatched_64_rank_0 = hipblasCherStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCherStridedBatched_64_rank_0_devptr(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherStridedBatched_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCherStridedBatched_64_rank_0_devptr = hipblasCherStridedBatched_64_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCherStridedBatched_64_rank_1(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCherStridedBatched_64_rank_1 = hipblasCherStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCherStridedBatched_64_rank_1_devptr(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherStridedBatched_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCherStridedBatched_64_rank_1_devptr = hipblasCherStridedBatched_64_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCherStridedBatched_64_full_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCherStridedBatched_64_full_rank = hipblasCherStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCherStridedBatched_64_full_rank_devptr(handle,uplo,n,alpha,x,incx,stridex,AP, & + lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherStridedBatched_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCherStridedBatched_64_full_rank_devptr = hipblasCherStridedBatched_64_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCherStridedBatched_64_strided_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCherStridedBatched_64_strided_rank = hipblasCherStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCherStridedBatched_64_strided_rank_devptr(handle,uplo,n,alpha,x,incx,stridex, & + AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherStridedBatched_64_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCherStridedBatched_64_strided_rank_devptr = hipblasCherStridedBatched_64_(handle, & + uplo,n,alpha,c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZherStridedBatched_64_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZherStridedBatched_64_assumed_rank = hipblasZherStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZherStridedBatched_64_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,stridex, & + AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherStridedBatched_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZherStridedBatched_64_assumed_rank_devptr = hipblasZherStridedBatched_64_(handle, & + uplo,n,alpha,c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + +#else + function hipblasZherStridedBatched_64_rank_0(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZherStridedBatched_64_rank_0 = hipblasZherStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZherStridedBatched_64_rank_0_devptr(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherStridedBatched_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZherStridedBatched_64_rank_0_devptr = hipblasZherStridedBatched_64_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZherStridedBatched_64_rank_1(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZherStridedBatched_64_rank_1 = hipblasZherStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZherStridedBatched_64_rank_1_devptr(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherStridedBatched_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZherStridedBatched_64_rank_1_devptr = hipblasZherStridedBatched_64_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZherStridedBatched_64_full_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZherStridedBatched_64_full_rank = hipblasZherStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZherStridedBatched_64_full_rank_devptr(handle,uplo,n,alpha,x,incx,stridex,AP, & + lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherStridedBatched_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZherStridedBatched_64_full_rank_devptr = hipblasZherStridedBatched_64_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZherStridedBatched_64_strided_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZherStridedBatched_64_strided_rank = hipblasZherStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZherStridedBatched_64_strided_rank_devptr(handle,uplo,n,alpha,x,incx,stridex, & + AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherStridedBatched_64_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZherStridedBatched_64_strided_rank_devptr = hipblasZherStridedBatched_64_(handle, & + uplo,n,alpha,c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCher2_assumed_rank(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + ! + hipblasCher2_assumed_rank = hipblasCher2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + + function hipblasCher2_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + ! + hipblasCher2_assumed_rank_devptr = hipblasCher2_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + +#else + function hipblasCher2_rank_0(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: x + integer(c_int) :: incx + complex(c_float_complex),target :: y + integer(c_int) :: incy + complex(c_float_complex),target :: AP + integer(c_int) :: lda + ! + hipblasCher2_rank_0 = hipblasCher2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) + end function + + function hipblasCher2_rank_0_devptr(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target :: x + integer(c_int) :: incx + complex(c_float_complex),target :: y + integer(c_int) :: incy + complex(c_float_complex),target :: AP + integer(c_int) :: lda + ! + hipblasCher2_rank_0_devptr = hipblasCher2_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) + end function + + function hipblasCher2_rank_1(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + ! + hipblasCher2_rank_1 = hipblasCher2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) + end function + + function hipblasCher2_rank_1_devptr(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + ! + hipblasCher2_rank_1_devptr = hipblasCher2_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) + end function + + function hipblasCher2_full_rank(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + ! + hipblasCher2_full_rank = hipblasCher2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + + function hipblasCher2_full_rank_devptr(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + ! + hipblasCher2_full_rank_devptr = hipblasCher2_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZher2_assumed_rank(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + ! + hipblasZher2_assumed_rank = hipblasZher2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + + function hipblasZher2_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + ! + hipblasZher2_assumed_rank_devptr = hipblasZher2_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + +#else + function hipblasZher2_rank_0(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: x + integer(c_int) :: incx + complex(c_double_complex),target :: y + integer(c_int) :: incy + complex(c_double_complex),target :: AP + integer(c_int) :: lda + ! + hipblasZher2_rank_0 = hipblasZher2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) + end function + + function hipblasZher2_rank_0_devptr(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target :: x + integer(c_int) :: incx + complex(c_double_complex),target :: y + integer(c_int) :: incy + complex(c_double_complex),target :: AP + integer(c_int) :: lda + ! + hipblasZher2_rank_0_devptr = hipblasZher2_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) + end function + + function hipblasZher2_rank_1(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + ! + hipblasZher2_rank_1 = hipblasZher2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) + end function + + function hipblasZher2_rank_1_devptr(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + ! + hipblasZher2_rank_1_devptr = hipblasZher2_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) + end function + + function hipblasZher2_full_rank(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + ! + hipblasZher2_full_rank = hipblasZher2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + + function hipblasZher2_full_rank_devptr(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + ! + hipblasZher2_full_rank_devptr = hipblasZher2_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCher2_64_assumed_rank(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + ! + hipblasCher2_64_assumed_rank = hipblasCher2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & + c_loc(y),incy,c_loc(AP),lda) + end function + + function hipblasCher2_64_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + ! + hipblasCher2_64_assumed_rank_devptr = hipblasCher2_64_(handle,uplo,n,alpha,c_loc(x),incx, & + c_loc(y),incy,c_loc(AP),lda) + end function + +#else + function hipblasCher2_64_rank_0(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + ! + hipblasCher2_64_rank_0 = hipblasCher2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + + function hipblasCher2_64_rank_0_devptr(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + ! + hipblasCher2_64_rank_0_devptr = hipblasCher2_64_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + + function hipblasCher2_64_rank_1(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + ! + hipblasCher2_64_rank_1 = hipblasCher2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + + function hipblasCher2_64_rank_1_devptr(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + ! + hipblasCher2_64_rank_1_devptr = hipblasCher2_64_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + + function hipblasCher2_64_full_rank(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + ! + hipblasCher2_64_full_rank = hipblasCher2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & + c_loc(y),incy,c_loc(AP),lda) + end function + + function hipblasCher2_64_full_rank_devptr(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + ! + hipblasCher2_64_full_rank_devptr = hipblasCher2_64_(handle,uplo,n,alpha,c_loc(x),incx, & + c_loc(y),incy,c_loc(AP),lda) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZher2_64_assumed_rank(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + ! + hipblasZher2_64_assumed_rank = hipblasZher2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & + c_loc(y),incy,c_loc(AP),lda) + end function + + function hipblasZher2_64_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + ! + hipblasZher2_64_assumed_rank_devptr = hipblasZher2_64_(handle,uplo,n,alpha,c_loc(x),incx, & + c_loc(y),incy,c_loc(AP),lda) + end function + +#else + function hipblasZher2_64_rank_0(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + ! + hipblasZher2_64_rank_0 = hipblasZher2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + + function hipblasZher2_64_rank_0_devptr(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + ! + hipblasZher2_64_rank_0_devptr = hipblasZher2_64_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + + function hipblasZher2_64_rank_1(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + ! + hipblasZher2_64_rank_1 = hipblasZher2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + + function hipblasZher2_64_rank_1_devptr(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + ! + hipblasZher2_64_rank_1_devptr = hipblasZher2_64_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + + function hipblasZher2_64_full_rank(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + ! + hipblasZher2_64_full_rank = hipblasZher2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & + c_loc(y),incy,c_loc(AP),lda) + end function + + function hipblasZher2_64_full_rank_devptr(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + ! + hipblasZher2_64_full_rank_devptr = hipblasZher2_64_(handle,uplo,n,alpha,c_loc(x),incx, & + c_loc(y),incy,c_loc(AP),lda) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCher2StridedBatched_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2StridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCher2StridedBatched_assumed_rank = hipblasCher2StridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCher2StridedBatched_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2StridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCher2StridedBatched_assumed_rank_devptr = hipblasCher2StridedBatched_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#else + function hipblasCher2StridedBatched_rank_0(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2StridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCher2StridedBatched_rank_0 = hipblasCher2StridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCher2StridedBatched_rank_0_devptr(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2StridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCher2StridedBatched_rank_0_devptr = hipblasCher2StridedBatched_(handle,uplo,n,alpha, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCher2StridedBatched_rank_1(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2StridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCher2StridedBatched_rank_1 = hipblasCher2StridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCher2StridedBatched_rank_1_devptr(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2StridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCher2StridedBatched_rank_1_devptr = hipblasCher2StridedBatched_(handle,uplo,n,alpha, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCher2StridedBatched_full_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2StridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCher2StridedBatched_full_rank = hipblasCher2StridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCher2StridedBatched_full_rank_devptr(handle,uplo,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2StridedBatched_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCher2StridedBatched_full_rank_devptr = hipblasCher2StridedBatched_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCher2StridedBatched_strided_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2StridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCher2StridedBatched_strided_rank = hipblasCher2StridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCher2StridedBatched_strided_rank_devptr(handle,uplo,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2StridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCher2StridedBatched_strided_rank_devptr = hipblasCher2StridedBatched_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZher2StridedBatched_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2StridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZher2StridedBatched_assumed_rank = hipblasZher2StridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZher2StridedBatched_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2StridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZher2StridedBatched_assumed_rank_devptr = hipblasZher2StridedBatched_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#else + function hipblasZher2StridedBatched_rank_0(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2StridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZher2StridedBatched_rank_0 = hipblasZher2StridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZher2StridedBatched_rank_0_devptr(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2StridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZher2StridedBatched_rank_0_devptr = hipblasZher2StridedBatched_(handle,uplo,n,alpha, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZher2StridedBatched_rank_1(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2StridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZher2StridedBatched_rank_1 = hipblasZher2StridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZher2StridedBatched_rank_1_devptr(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2StridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZher2StridedBatched_rank_1_devptr = hipblasZher2StridedBatched_(handle,uplo,n,alpha, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZher2StridedBatched_full_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2StridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZher2StridedBatched_full_rank = hipblasZher2StridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZher2StridedBatched_full_rank_devptr(handle,uplo,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2StridedBatched_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZher2StridedBatched_full_rank_devptr = hipblasZher2StridedBatched_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZher2StridedBatched_strided_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2StridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZher2StridedBatched_strided_rank = hipblasZher2StridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZher2StridedBatched_strided_rank_devptr(handle,uplo,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2StridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZher2StridedBatched_strided_rank_devptr = hipblasZher2StridedBatched_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCher2StridedBatched_64_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2StridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCher2StridedBatched_64_assumed_rank = hipblasCher2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCher2StridedBatched_64_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,stridex, & + y,incy,stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2StridedBatched_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCher2StridedBatched_64_assumed_rank_devptr = hipblasCher2StridedBatched_64_(handle, & + uplo,n,alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#else + function hipblasCher2StridedBatched_64_rank_0(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2StridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCher2StridedBatched_64_rank_0 = hipblasCher2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCher2StridedBatched_64_rank_0_devptr(handle,uplo,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2StridedBatched_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCher2StridedBatched_64_rank_0_devptr = hipblasCher2StridedBatched_64_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCher2StridedBatched_64_rank_1(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2StridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCher2StridedBatched_64_rank_1 = hipblasCher2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCher2StridedBatched_64_rank_1_devptr(handle,uplo,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2StridedBatched_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCher2StridedBatched_64_rank_1_devptr = hipblasCher2StridedBatched_64_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCher2StridedBatched_64_full_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2StridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCher2StridedBatched_64_full_rank = hipblasCher2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCher2StridedBatched_64_full_rank_devptr(handle,uplo,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2StridedBatched_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCher2StridedBatched_64_full_rank_devptr = hipblasCher2StridedBatched_64_(handle,uplo, & + n,alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCher2StridedBatched_64_strided_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2StridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCher2StridedBatched_64_strided_rank = hipblasCher2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCher2StridedBatched_64_strided_rank_devptr(handle,uplo,n,alpha,x,incx,stridex, & + y,incy,stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2StridedBatched_64_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCher2StridedBatched_64_strided_rank_devptr = hipblasCher2StridedBatched_64_(handle, & + uplo,n,alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZher2StridedBatched_64_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2StridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZher2StridedBatched_64_assumed_rank = hipblasZher2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZher2StridedBatched_64_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,stridex, & + y,incy,stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2StridedBatched_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZher2StridedBatched_64_assumed_rank_devptr = hipblasZher2StridedBatched_64_(handle, & + uplo,n,alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#else + function hipblasZher2StridedBatched_64_rank_0(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2StridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZher2StridedBatched_64_rank_0 = hipblasZher2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZher2StridedBatched_64_rank_0_devptr(handle,uplo,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2StridedBatched_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZher2StridedBatched_64_rank_0_devptr = hipblasZher2StridedBatched_64_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZher2StridedBatched_64_rank_1(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2StridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZher2StridedBatched_64_rank_1 = hipblasZher2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZher2StridedBatched_64_rank_1_devptr(handle,uplo,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2StridedBatched_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZher2StridedBatched_64_rank_1_devptr = hipblasZher2StridedBatched_64_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZher2StridedBatched_64_full_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2StridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZher2StridedBatched_64_full_rank = hipblasZher2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZher2StridedBatched_64_full_rank_devptr(handle,uplo,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2StridedBatched_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZher2StridedBatched_64_full_rank_devptr = hipblasZher2StridedBatched_64_(handle,uplo, & + n,alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZher2StridedBatched_64_strided_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2StridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZher2StridedBatched_64_strided_rank = hipblasZher2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZher2StridedBatched_64_strided_rank_devptr(handle,uplo,n,alpha,x,incx,stridex, & + y,incy,stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2StridedBatched_64_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZher2StridedBatched_64_strided_rank_devptr = hipblasZher2StridedBatched_64_(handle, & + uplo,n,alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasChpmv_assumed_rank(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + ! + hipblasChpmv_assumed_rank = hipblasChpmv_(handle,uplo,n,c_loc(alpha),c_loc(AP),c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasChpmv_assumed_rank_devptr(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmv_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: AP + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + ! + hipblasChpmv_assumed_rank_devptr = hipblasChpmv_(handle,uplo,n,alpha,c_loc(AP),c_loc(x), & + incx,beta,c_loc(y),incy) + end function + +#else + function hipblasChpmv_rank_0(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + complex(c_float_complex),target :: x + integer(c_int) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: y + integer(c_int) :: incy + ! + hipblasChpmv_rank_0 = hipblasChpmv_(handle,uplo,n,c_loc(alpha),c_loc(AP),c_loc(x),incx, & + c_loc(beta),c_loc(y),incy) + end function + + function hipblasChpmv_rank_0_devptr(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmv_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target :: AP + complex(c_float_complex),target :: x + integer(c_int) :: incx + type(c_ptr),value :: beta + complex(c_float_complex),target :: y + integer(c_int) :: incy + ! + hipblasChpmv_rank_0_devptr = hipblasChpmv_(handle,uplo,n,alpha,c_loc(AP),c_loc(x),incx,beta, & + c_loc(y),incy) + end function + + function hipblasChpmv_rank_1(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasChpmv_rank_1 = hipblasChpmv_(handle,uplo,n,c_loc(alpha),c_loc(AP),c_loc(x),incx, & + c_loc(beta),c_loc(y),incy) + end function + + function hipblasChpmv_rank_1_devptr(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmv_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: AP + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasChpmv_rank_1_devptr = hipblasChpmv_(handle,uplo,n,alpha,c_loc(AP),c_loc(x),incx,beta, & + c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZhpmv_assumed_rank(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + ! + hipblasZhpmv_assumed_rank = hipblasZhpmv_(handle,uplo,n,c_loc(alpha),c_loc(AP),c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasZhpmv_assumed_rank_devptr(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmv_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: AP + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + ! + hipblasZhpmv_assumed_rank_devptr = hipblasZhpmv_(handle,uplo,n,alpha,c_loc(AP),c_loc(x), & + incx,beta,c_loc(y),incy) + end function + +#else + function hipblasZhpmv_rank_0(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + complex(c_double_complex),target :: x + integer(c_int) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: y + integer(c_int) :: incy + ! + hipblasZhpmv_rank_0 = hipblasZhpmv_(handle,uplo,n,c_loc(alpha),c_loc(AP),c_loc(x),incx, & + c_loc(beta),c_loc(y),incy) + end function + + function hipblasZhpmv_rank_0_devptr(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmv_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target :: AP + complex(c_double_complex),target :: x + integer(c_int) :: incx + type(c_ptr),value :: beta + complex(c_double_complex),target :: y + integer(c_int) :: incy + ! + hipblasZhpmv_rank_0_devptr = hipblasZhpmv_(handle,uplo,n,alpha,c_loc(AP),c_loc(x),incx,beta, & + c_loc(y),incy) + end function + + function hipblasZhpmv_rank_1(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasZhpmv_rank_1 = hipblasZhpmv_(handle,uplo,n,c_loc(alpha),c_loc(AP),c_loc(x),incx, & + c_loc(beta),c_loc(y),incy) + end function + + function hipblasZhpmv_rank_1_devptr(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmv_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: AP + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasZhpmv_rank_1_devptr = hipblasZhpmv_(handle,uplo,n,alpha,c_loc(AP),c_loc(x),incx,beta, & + c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasChpmv_64_assumed_rank(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + ! + hipblasChpmv_64_assumed_rank = hipblasChpmv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP), & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasChpmv_64_assumed_rank_devptr(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmv_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: AP + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + ! + hipblasChpmv_64_assumed_rank_devptr = hipblasChpmv_64_(handle,uplo,n,alpha,c_loc(AP), & + c_loc(x),incx,beta,c_loc(y),incy) + end function + +#else + function hipblasChpmv_64_rank_0(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + ! + hipblasChpmv_64_rank_0 = hipblasChpmv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasChpmv_64_rank_0_devptr(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmv_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target :: AP + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + ! + hipblasChpmv_64_rank_0_devptr = hipblasChpmv_64_(handle,uplo,n,alpha,c_loc(AP),c_loc(x), & + incx,beta,c_loc(y),incy) + end function + + function hipblasChpmv_64_rank_1(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasChpmv_64_rank_1 = hipblasChpmv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasChpmv_64_rank_1_devptr(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmv_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: AP + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasChpmv_64_rank_1_devptr = hipblasChpmv_64_(handle,uplo,n,alpha,c_loc(AP),c_loc(x), & + incx,beta,c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZhpmv_64_assumed_rank(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + ! + hipblasZhpmv_64_assumed_rank = hipblasZhpmv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP), & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasZhpmv_64_assumed_rank_devptr(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmv_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: AP + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + ! + hipblasZhpmv_64_assumed_rank_devptr = hipblasZhpmv_64_(handle,uplo,n,alpha,c_loc(AP), & + c_loc(x),incx,beta,c_loc(y),incy) + end function + +#else + function hipblasZhpmv_64_rank_0(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + ! + hipblasZhpmv_64_rank_0 = hipblasZhpmv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasZhpmv_64_rank_0_devptr(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmv_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target :: AP + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + ! + hipblasZhpmv_64_rank_0_devptr = hipblasZhpmv_64_(handle,uplo,n,alpha,c_loc(AP),c_loc(x), & + incx,beta,c_loc(y),incy) + end function + + function hipblasZhpmv_64_rank_1(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasZhpmv_64_rank_1 = hipblasZhpmv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasZhpmv_64_rank_1_devptr(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmv_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: AP + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasZhpmv_64_rank_1_devptr = hipblasZhpmv_64_(handle,uplo,n,alpha,c_loc(AP),c_loc(x), & + incx,beta,c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasChpmvStridedBatched_assumed_rank(handle,uplo,n,alpha,AP,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasChpmvStridedBatched_assumed_rank = hipblasChpmvStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey, & + batchCount) + end function + + function hipblasChpmvStridedBatched_assumed_rank_devptr(handle,uplo,n,alpha,AP,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmvStridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasChpmvStridedBatched_assumed_rank_devptr = hipblasChpmvStridedBatched_(handle,uplo,n, & + alpha,c_loc(AP),strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + +#else + function hipblasChpmvStridedBatched_rank_0(handle,uplo,n,alpha,AP,strideA,x,incx,stridex,beta, & + y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasChpmvStridedBatched_rank_0 = hipblasChpmvStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey,batchCount) + end function + + function hipblasChpmvStridedBatched_rank_0_devptr(handle,uplo,n,alpha,AP,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmvStridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_float_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasChpmvStridedBatched_rank_0_devptr = hipblasChpmvStridedBatched_(handle,uplo,n,alpha, & + c_loc(AP),strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasChpmvStridedBatched_rank_1(handle,uplo,n,alpha,AP,strideA,x,incx,stridex,beta, & + y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasChpmvStridedBatched_rank_1 = hipblasChpmvStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey,batchCount) + end function + + function hipblasChpmvStridedBatched_rank_1_devptr(handle,uplo,n,alpha,AP,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmvStridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasChpmvStridedBatched_rank_1_devptr = hipblasChpmvStridedBatched_(handle,uplo,n,alpha, & + c_loc(AP),strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasChpmvStridedBatched_strided_rank(handle,uplo,n,alpha,AP,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmvStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasChpmvStridedBatched_strided_rank = hipblasChpmvStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey, & + batchCount) + end function + + function hipblasChpmvStridedBatched_strided_rank_devptr(handle,uplo,n,alpha,AP,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmvStridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasChpmvStridedBatched_strided_rank_devptr = hipblasChpmvStridedBatched_(handle,uplo,n, & + alpha,c_loc(AP),strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZhpmvStridedBatched_assumed_rank(handle,uplo,n,alpha,AP,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZhpmvStridedBatched_assumed_rank = hipblasZhpmvStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey, & + batchCount) + end function + + function hipblasZhpmvStridedBatched_assumed_rank_devptr(handle,uplo,n,alpha,AP,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmvStridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZhpmvStridedBatched_assumed_rank_devptr = hipblasZhpmvStridedBatched_(handle,uplo,n, & + alpha,c_loc(AP),strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + +#else + function hipblasZhpmvStridedBatched_rank_0(handle,uplo,n,alpha,AP,strideA,x,incx,stridex,beta, & + y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZhpmvStridedBatched_rank_0 = hipblasZhpmvStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey,batchCount) + end function + + function hipblasZhpmvStridedBatched_rank_0_devptr(handle,uplo,n,alpha,AP,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmvStridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_double_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZhpmvStridedBatched_rank_0_devptr = hipblasZhpmvStridedBatched_(handle,uplo,n,alpha, & + c_loc(AP),strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasZhpmvStridedBatched_rank_1(handle,uplo,n,alpha,AP,strideA,x,incx,stridex,beta, & + y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZhpmvStridedBatched_rank_1 = hipblasZhpmvStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey,batchCount) + end function + + function hipblasZhpmvStridedBatched_rank_1_devptr(handle,uplo,n,alpha,AP,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmvStridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZhpmvStridedBatched_rank_1_devptr = hipblasZhpmvStridedBatched_(handle,uplo,n,alpha, & + c_loc(AP),strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasZhpmvStridedBatched_strided_rank(handle,uplo,n,alpha,AP,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmvStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZhpmvStridedBatched_strided_rank = hipblasZhpmvStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey, & + batchCount) + end function + + function hipblasZhpmvStridedBatched_strided_rank_devptr(handle,uplo,n,alpha,AP,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmvStridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZhpmvStridedBatched_strided_rank_devptr = hipblasZhpmvStridedBatched_(handle,uplo,n, & + alpha,c_loc(AP),strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasChpmvStridedBatched_64_assumed_rank(handle,uplo,n,alpha,AP,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasChpmvStridedBatched_64_assumed_rank = hipblasChpmvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey, & + batchCount) + end function + + function hipblasChpmvStridedBatched_64_assumed_rank_devptr(handle,uplo,n,alpha,AP,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmvStridedBatched_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasChpmvStridedBatched_64_assumed_rank_devptr = hipblasChpmvStridedBatched_64_(handle, & + uplo,n,alpha,c_loc(AP),strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + +#else + function hipblasChpmvStridedBatched_64_rank_0(handle,uplo,n,alpha,AP,strideA,x,incx,stridex, & + beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasChpmvStridedBatched_64_rank_0 = hipblasChpmvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey, & + batchCount) + end function + + function hipblasChpmvStridedBatched_64_rank_0_devptr(handle,uplo,n,alpha,AP,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmvStridedBatched_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasChpmvStridedBatched_64_rank_0_devptr = hipblasChpmvStridedBatched_64_(handle,uplo,n, & + alpha,c_loc(AP),strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasChpmvStridedBatched_64_rank_1(handle,uplo,n,alpha,AP,strideA,x,incx,stridex, & + beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasChpmvStridedBatched_64_rank_1 = hipblasChpmvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey, & + batchCount) + end function + + function hipblasChpmvStridedBatched_64_rank_1_devptr(handle,uplo,n,alpha,AP,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmvStridedBatched_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasChpmvStridedBatched_64_rank_1_devptr = hipblasChpmvStridedBatched_64_(handle,uplo,n, & + alpha,c_loc(AP),strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasChpmvStridedBatched_64_strided_rank(handle,uplo,n,alpha,AP,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmvStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasChpmvStridedBatched_64_strided_rank = hipblasChpmvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey, & + batchCount) + end function + + function hipblasChpmvStridedBatched_64_strided_rank_devptr(handle,uplo,n,alpha,AP,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpmvStridedBatched_64_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasChpmvStridedBatched_64_strided_rank_devptr = hipblasChpmvStridedBatched_64_(handle, & + uplo,n,alpha,c_loc(AP),strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZhpmvStridedBatched_64_assumed_rank(handle,uplo,n,alpha,AP,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZhpmvStridedBatched_64_assumed_rank = hipblasZhpmvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey, & + batchCount) + end function + + function hipblasZhpmvStridedBatched_64_assumed_rank_devptr(handle,uplo,n,alpha,AP,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmvStridedBatched_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZhpmvStridedBatched_64_assumed_rank_devptr = hipblasZhpmvStridedBatched_64_(handle, & + uplo,n,alpha,c_loc(AP),strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + +#else + function hipblasZhpmvStridedBatched_64_rank_0(handle,uplo,n,alpha,AP,strideA,x,incx,stridex, & + beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZhpmvStridedBatched_64_rank_0 = hipblasZhpmvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey, & + batchCount) + end function + + function hipblasZhpmvStridedBatched_64_rank_0_devptr(handle,uplo,n,alpha,AP,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmvStridedBatched_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZhpmvStridedBatched_64_rank_0_devptr = hipblasZhpmvStridedBatched_64_(handle,uplo,n, & + alpha,c_loc(AP),strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasZhpmvStridedBatched_64_rank_1(handle,uplo,n,alpha,AP,strideA,x,incx,stridex, & + beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZhpmvStridedBatched_64_rank_1 = hipblasZhpmvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey, & + batchCount) + end function + + function hipblasZhpmvStridedBatched_64_rank_1_devptr(handle,uplo,n,alpha,AP,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmvStridedBatched_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZhpmvStridedBatched_64_rank_1_devptr = hipblasZhpmvStridedBatched_64_(handle,uplo,n, & + alpha,c_loc(AP),strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasZhpmvStridedBatched_64_strided_rank(handle,uplo,n,alpha,AP,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmvStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZhpmvStridedBatched_64_strided_rank = hipblasZhpmvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey, & + batchCount) + end function + + function hipblasZhpmvStridedBatched_64_strided_rank_devptr(handle,uplo,n,alpha,AP,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpmvStridedBatched_64_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZhpmvStridedBatched_64_strided_rank_devptr = hipblasZhpmvStridedBatched_64_(handle, & + uplo,n,alpha,c_loc(AP),strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasChpr_assumed_rank(handle,uplo,n,alpha,x,incx,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(..) :: AP + ! + hipblasChpr_assumed_rank = hipblasChpr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + end function + + function hipblasChpr_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(..) :: AP + ! + hipblasChpr_assumed_rank_devptr = hipblasChpr_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(AP)) + end function + +#else + function hipblasChpr_rank_0(handle,uplo,n,alpha,x,incx,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + complex(c_float_complex),target :: x + integer(c_int) :: incx + complex(c_float_complex),target :: AP + ! + hipblasChpr_rank_0 = hipblasChpr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + end function + + function hipblasChpr_rank_0_devptr(handle,uplo,n,alpha,x,incx,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target :: x + integer(c_int) :: incx + complex(c_float_complex),target :: AP + ! + hipblasChpr_rank_0_devptr = hipblasChpr_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(AP)) + end function + + function hipblasChpr_rank_1(handle,uplo,n,alpha,x,incx,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(:) :: AP + ! + hipblasChpr_rank_1 = hipblasChpr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + end function + + function hipblasChpr_rank_1_devptr(handle,uplo,n,alpha,x,incx,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(:) :: AP + ! + hipblasChpr_rank_1_devptr = hipblasChpr_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(AP)) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZhpr_assumed_rank(handle,uplo,n,alpha,x,incx,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(..) :: AP + ! + hipblasZhpr_assumed_rank = hipblasZhpr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + end function + + function hipblasZhpr_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(..) :: AP + ! + hipblasZhpr_assumed_rank_devptr = hipblasZhpr_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(AP)) + end function + +#else + function hipblasZhpr_rank_0(handle,uplo,n,alpha,x,incx,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + complex(c_double_complex),target :: x + integer(c_int) :: incx + complex(c_double_complex),target :: AP + ! + hipblasZhpr_rank_0 = hipblasZhpr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + end function + + function hipblasZhpr_rank_0_devptr(handle,uplo,n,alpha,x,incx,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target :: x + integer(c_int) :: incx + complex(c_double_complex),target :: AP + ! + hipblasZhpr_rank_0_devptr = hipblasZhpr_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(AP)) + end function + + function hipblasZhpr_rank_1(handle,uplo,n,alpha,x,incx,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(:) :: AP + ! + hipblasZhpr_rank_1 = hipblasZhpr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + end function + + function hipblasZhpr_rank_1_devptr(handle,uplo,n,alpha,x,incx,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(:) :: AP + ! + hipblasZhpr_rank_1_devptr = hipblasZhpr_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(AP)) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasChpr_64_assumed_rank(handle,uplo,n,alpha,x,incx,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(..) :: AP + ! + hipblasChpr_64_assumed_rank = hipblasChpr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & + c_loc(AP)) + end function + + function hipblasChpr_64_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(..) :: AP + ! + hipblasChpr_64_assumed_rank_devptr = hipblasChpr_64_(handle,uplo,n,alpha,c_loc(x),incx, & + c_loc(AP)) + end function + +#else + function hipblasChpr_64_rank_0(handle,uplo,n,alpha,x,incx,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: AP + ! + hipblasChpr_64_rank_0 = hipblasChpr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + end function + + function hipblasChpr_64_rank_0_devptr(handle,uplo,n,alpha,x,incx,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: AP + ! + hipblasChpr_64_rank_0_devptr = hipblasChpr_64_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(AP)) + end function + + function hipblasChpr_64_rank_1(handle,uplo,n,alpha,x,incx,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(:) :: AP + ! + hipblasChpr_64_rank_1 = hipblasChpr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + end function + + function hipblasChpr_64_rank_1_devptr(handle,uplo,n,alpha,x,incx,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(:) :: AP + ! + hipblasChpr_64_rank_1_devptr = hipblasChpr_64_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(AP)) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZhpr_64_assumed_rank(handle,uplo,n,alpha,x,incx,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(..) :: AP + ! + hipblasZhpr_64_assumed_rank = hipblasZhpr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & + c_loc(AP)) + end function + + function hipblasZhpr_64_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(..) :: AP + ! + hipblasZhpr_64_assumed_rank_devptr = hipblasZhpr_64_(handle,uplo,n,alpha,c_loc(x),incx, & + c_loc(AP)) + end function + +#else + function hipblasZhpr_64_rank_0(handle,uplo,n,alpha,x,incx,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: AP + ! + hipblasZhpr_64_rank_0 = hipblasZhpr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + end function + + function hipblasZhpr_64_rank_0_devptr(handle,uplo,n,alpha,x,incx,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: AP + ! + hipblasZhpr_64_rank_0_devptr = hipblasZhpr_64_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(AP)) + end function + + function hipblasZhpr_64_rank_1(handle,uplo,n,alpha,x,incx,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(:) :: AP + ! + hipblasZhpr_64_rank_1 = hipblasZhpr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + end function + + function hipblasZhpr_64_rank_1_devptr(handle,uplo,n,alpha,x,incx,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(:) :: AP + ! + hipblasZhpr_64_rank_1_devptr = hipblasZhpr_64_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(AP)) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasChprStridedBatched_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChprStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasChprStridedBatched_assumed_rank = hipblasChprStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasChprStridedBatched_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,stridex,AP, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChprStridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasChprStridedBatched_assumed_rank_devptr = hipblasChprStridedBatched_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + +#else + function hipblasChprStridedBatched_rank_0(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChprStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasChprStridedBatched_rank_0 = hipblasChprStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasChprStridedBatched_rank_0_devptr(handle,uplo,n,alpha,x,incx,stridex,AP, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChprStridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasChprStridedBatched_rank_0_devptr = hipblasChprStridedBatched_(handle,uplo,n,alpha, & + c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasChprStridedBatched_rank_1(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChprStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasChprStridedBatched_rank_1 = hipblasChprStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasChprStridedBatched_rank_1_devptr(handle,uplo,n,alpha,x,incx,stridex,AP, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChprStridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasChprStridedBatched_rank_1_devptr = hipblasChprStridedBatched_(handle,uplo,n,alpha, & + c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasChprStridedBatched_strided_rank(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChprStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasChprStridedBatched_strided_rank = hipblasChprStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasChprStridedBatched_strided_rank_devptr(handle,uplo,n,alpha,x,incx,stridex,AP, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChprStridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasChprStridedBatched_strided_rank_devptr = hipblasChprStridedBatched_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZhprStridedBatched_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhprStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZhprStridedBatched_assumed_rank = hipblasZhprStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasZhprStridedBatched_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,stridex,AP, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhprStridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZhprStridedBatched_assumed_rank_devptr = hipblasZhprStridedBatched_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + +#else + function hipblasZhprStridedBatched_rank_0(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhprStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZhprStridedBatched_rank_0 = hipblasZhprStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasZhprStridedBatched_rank_0_devptr(handle,uplo,n,alpha,x,incx,stridex,AP, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhprStridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZhprStridedBatched_rank_0_devptr = hipblasZhprStridedBatched_(handle,uplo,n,alpha, & + c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasZhprStridedBatched_rank_1(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhprStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZhprStridedBatched_rank_1 = hipblasZhprStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasZhprStridedBatched_rank_1_devptr(handle,uplo,n,alpha,x,incx,stridex,AP, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhprStridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZhprStridedBatched_rank_1_devptr = hipblasZhprStridedBatched_(handle,uplo,n,alpha, & + c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasZhprStridedBatched_strided_rank(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhprStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZhprStridedBatched_strided_rank = hipblasZhprStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasZhprStridedBatched_strided_rank_devptr(handle,uplo,n,alpha,x,incx,stridex,AP, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhprStridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZhprStridedBatched_strided_rank_devptr = hipblasZhprStridedBatched_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasChprStridedBatched_64_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,AP, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChprStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasChprStridedBatched_64_assumed_rank = hipblasChprStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasChprStridedBatched_64_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,stridex, & + AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChprStridedBatched_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasChprStridedBatched_64_assumed_rank_devptr = hipblasChprStridedBatched_64_(handle, & + uplo,n,alpha,c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + +#else + function hipblasChprStridedBatched_64_rank_0(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChprStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasChprStridedBatched_64_rank_0 = hipblasChprStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasChprStridedBatched_64_rank_0_devptr(handle,uplo,n,alpha,x,incx,stridex,AP, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChprStridedBatched_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasChprStridedBatched_64_rank_0_devptr = hipblasChprStridedBatched_64_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasChprStridedBatched_64_rank_1(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChprStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasChprStridedBatched_64_rank_1 = hipblasChprStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasChprStridedBatched_64_rank_1_devptr(handle,uplo,n,alpha,x,incx,stridex,AP, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChprStridedBatched_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasChprStridedBatched_64_rank_1_devptr = hipblasChprStridedBatched_64_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasChprStridedBatched_64_strided_rank(handle,uplo,n,alpha,x,incx,stridex,AP, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChprStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasChprStridedBatched_64_strided_rank = hipblasChprStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasChprStridedBatched_64_strided_rank_devptr(handle,uplo,n,alpha,x,incx,stridex, & + AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChprStridedBatched_64_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasChprStridedBatched_64_strided_rank_devptr = hipblasChprStridedBatched_64_(handle, & + uplo,n,alpha,c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZhprStridedBatched_64_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,AP, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhprStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZhprStridedBatched_64_assumed_rank = hipblasZhprStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasZhprStridedBatched_64_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,stridex, & + AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhprStridedBatched_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZhprStridedBatched_64_assumed_rank_devptr = hipblasZhprStridedBatched_64_(handle, & + uplo,n,alpha,c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + +#else + function hipblasZhprStridedBatched_64_rank_0(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhprStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZhprStridedBatched_64_rank_0 = hipblasZhprStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasZhprStridedBatched_64_rank_0_devptr(handle,uplo,n,alpha,x,incx,stridex,AP, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhprStridedBatched_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZhprStridedBatched_64_rank_0_devptr = hipblasZhprStridedBatched_64_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasZhprStridedBatched_64_rank_1(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhprStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZhprStridedBatched_64_rank_1 = hipblasZhprStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasZhprStridedBatched_64_rank_1_devptr(handle,uplo,n,alpha,x,incx,stridex,AP, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhprStridedBatched_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZhprStridedBatched_64_rank_1_devptr = hipblasZhprStridedBatched_64_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasZhprStridedBatched_64_strided_rank(handle,uplo,n,alpha,x,incx,stridex,AP, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhprStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZhprStridedBatched_64_strided_rank = hipblasZhprStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasZhprStridedBatched_64_strided_rank_devptr(handle,uplo,n,alpha,x,incx,stridex, & + AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhprStridedBatched_64_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZhprStridedBatched_64_strided_rank_devptr = hipblasZhprStridedBatched_64_(handle, & + uplo,n,alpha,c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasChpr2_assumed_rank(handle,uplo,n,alpha,x,incx,y,incy,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + complex(c_float_complex),target,dimension(..) :: AP + ! + hipblasChpr2_assumed_rank = hipblasChpr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP)) + end function + + function hipblasChpr2_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,y,incy,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + complex(c_float_complex),target,dimension(..) :: AP + ! + hipblasChpr2_assumed_rank_devptr = hipblasChpr2_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(y), & + incy,c_loc(AP)) + end function + +#else + function hipblasChpr2_rank_0(handle,uplo,n,alpha,x,incx,y,incy,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: x + integer(c_int) :: incx + complex(c_float_complex),target :: y + integer(c_int) :: incy + complex(c_float_complex),target :: AP + ! + hipblasChpr2_rank_0 = hipblasChpr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP)) + end function + + function hipblasChpr2_rank_0_devptr(handle,uplo,n,alpha,x,incx,y,incy,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target :: x + integer(c_int) :: incx + complex(c_float_complex),target :: y + integer(c_int) :: incy + complex(c_float_complex),target :: AP + ! + hipblasChpr2_rank_0_devptr = hipblasChpr2_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(y),incy, & + c_loc(AP)) + end function + + function hipblasChpr2_rank_1(handle,uplo,n,alpha,x,incx,y,incy,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + complex(c_float_complex),target,dimension(:) :: AP + ! + hipblasChpr2_rank_1 = hipblasChpr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP)) + end function + + function hipblasChpr2_rank_1_devptr(handle,uplo,n,alpha,x,incx,y,incy,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + complex(c_float_complex),target,dimension(:) :: AP + ! + hipblasChpr2_rank_1_devptr = hipblasChpr2_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(y),incy, & + c_loc(AP)) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZhpr2_assumed_rank(handle,uplo,n,alpha,x,incx,y,incy,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + complex(c_double_complex),target,dimension(..) :: AP + ! + hipblasZhpr2_assumed_rank = hipblasZhpr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP)) + end function + + function hipblasZhpr2_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,y,incy,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + complex(c_double_complex),target,dimension(..) :: AP + ! + hipblasZhpr2_assumed_rank_devptr = hipblasZhpr2_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(y), & + incy,c_loc(AP)) + end function + +#else + function hipblasZhpr2_rank_0(handle,uplo,n,alpha,x,incx,y,incy,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: x + integer(c_int) :: incx + complex(c_double_complex),target :: y + integer(c_int) :: incy + complex(c_double_complex),target :: AP + ! + hipblasZhpr2_rank_0 = hipblasZhpr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP)) + end function + + function hipblasZhpr2_rank_0_devptr(handle,uplo,n,alpha,x,incx,y,incy,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target :: x + integer(c_int) :: incx + complex(c_double_complex),target :: y + integer(c_int) :: incy + complex(c_double_complex),target :: AP + ! + hipblasZhpr2_rank_0_devptr = hipblasZhpr2_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(y),incy, & + c_loc(AP)) + end function + + function hipblasZhpr2_rank_1(handle,uplo,n,alpha,x,incx,y,incy,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + complex(c_double_complex),target,dimension(:) :: AP + ! + hipblasZhpr2_rank_1 = hipblasZhpr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP)) + end function + + function hipblasZhpr2_rank_1_devptr(handle,uplo,n,alpha,x,incx,y,incy,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + complex(c_double_complex),target,dimension(:) :: AP + ! + hipblasZhpr2_rank_1_devptr = hipblasZhpr2_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(y),incy, & + c_loc(AP)) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasChpr2_64_assumed_rank(handle,uplo,n,alpha,x,incx,y,incy,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + complex(c_float_complex),target,dimension(..) :: AP + ! + hipblasChpr2_64_assumed_rank = hipblasChpr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & + c_loc(y),incy,c_loc(AP)) + end function + + function hipblasChpr2_64_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,y,incy,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + complex(c_float_complex),target,dimension(..) :: AP + ! + hipblasChpr2_64_assumed_rank_devptr = hipblasChpr2_64_(handle,uplo,n,alpha,c_loc(x),incx, & + c_loc(y),incy,c_loc(AP)) + end function + +#else + function hipblasChpr2_64_rank_0(handle,uplo,n,alpha,x,incx,y,incy,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + complex(c_float_complex),target :: AP + ! + hipblasChpr2_64_rank_0 = hipblasChpr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP)) + end function + + function hipblasChpr2_64_rank_0_devptr(handle,uplo,n,alpha,x,incx,y,incy,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + complex(c_float_complex),target :: AP + ! + hipblasChpr2_64_rank_0_devptr = hipblasChpr2_64_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(y), & + incy,c_loc(AP)) + end function + + function hipblasChpr2_64_rank_1(handle,uplo,n,alpha,x,incx,y,incy,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + complex(c_float_complex),target,dimension(:) :: AP + ! + hipblasChpr2_64_rank_1 = hipblasChpr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP)) + end function + + function hipblasChpr2_64_rank_1_devptr(handle,uplo,n,alpha,x,incx,y,incy,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + complex(c_float_complex),target,dimension(:) :: AP + ! + hipblasChpr2_64_rank_1_devptr = hipblasChpr2_64_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(y), & + incy,c_loc(AP)) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZhpr2_64_assumed_rank(handle,uplo,n,alpha,x,incx,y,incy,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + complex(c_double_complex),target,dimension(..) :: AP + ! + hipblasZhpr2_64_assumed_rank = hipblasZhpr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & + c_loc(y),incy,c_loc(AP)) + end function + + function hipblasZhpr2_64_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,y,incy,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + complex(c_double_complex),target,dimension(..) :: AP + ! + hipblasZhpr2_64_assumed_rank_devptr = hipblasZhpr2_64_(handle,uplo,n,alpha,c_loc(x),incx, & + c_loc(y),incy,c_loc(AP)) + end function + +#else + function hipblasZhpr2_64_rank_0(handle,uplo,n,alpha,x,incx,y,incy,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + complex(c_double_complex),target :: AP + ! + hipblasZhpr2_64_rank_0 = hipblasZhpr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP)) + end function + + function hipblasZhpr2_64_rank_0_devptr(handle,uplo,n,alpha,x,incx,y,incy,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + complex(c_double_complex),target :: AP + ! + hipblasZhpr2_64_rank_0_devptr = hipblasZhpr2_64_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(y), & + incy,c_loc(AP)) + end function + + function hipblasZhpr2_64_rank_1(handle,uplo,n,alpha,x,incx,y,incy,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + complex(c_double_complex),target,dimension(:) :: AP + ! + hipblasZhpr2_64_rank_1 = hipblasZhpr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP)) + end function + + function hipblasZhpr2_64_rank_1_devptr(handle,uplo,n,alpha,x,incx,y,incy,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + complex(c_double_complex),target,dimension(:) :: AP + ! + hipblasZhpr2_64_rank_1_devptr = hipblasZhpr2_64_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(y), & + incy,c_loc(AP)) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasChpr2StridedBatched_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2StridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasChpr2StridedBatched_assumed_rank = hipblasChpr2StridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + + function hipblasChpr2StridedBatched_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2StridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasChpr2StridedBatched_assumed_rank_devptr = hipblasChpr2StridedBatched_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + +#else + function hipblasChpr2StridedBatched_rank_0(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2StridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasChpr2StridedBatched_rank_0 = hipblasChpr2StridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + + function hipblasChpr2StridedBatched_rank_0_devptr(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2StridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasChpr2StridedBatched_rank_0_devptr = hipblasChpr2StridedBatched_(handle,uplo,n,alpha, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + + function hipblasChpr2StridedBatched_rank_1(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2StridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasChpr2StridedBatched_rank_1 = hipblasChpr2StridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + + function hipblasChpr2StridedBatched_rank_1_devptr(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2StridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasChpr2StridedBatched_rank_1_devptr = hipblasChpr2StridedBatched_(handle,uplo,n,alpha, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + + function hipblasChpr2StridedBatched_strided_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2StridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasChpr2StridedBatched_strided_rank = hipblasChpr2StridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + + function hipblasChpr2StridedBatched_strided_rank_devptr(handle,uplo,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2StridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasChpr2StridedBatched_strided_rank_devptr = hipblasChpr2StridedBatched_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZhpr2StridedBatched_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2StridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZhpr2StridedBatched_assumed_rank = hipblasZhpr2StridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + + function hipblasZhpr2StridedBatched_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2StridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZhpr2StridedBatched_assumed_rank_devptr = hipblasZhpr2StridedBatched_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + +#else + function hipblasZhpr2StridedBatched_rank_0(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2StridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZhpr2StridedBatched_rank_0 = hipblasZhpr2StridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + + function hipblasZhpr2StridedBatched_rank_0_devptr(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2StridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZhpr2StridedBatched_rank_0_devptr = hipblasZhpr2StridedBatched_(handle,uplo,n,alpha, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + + function hipblasZhpr2StridedBatched_rank_1(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2StridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZhpr2StridedBatched_rank_1 = hipblasZhpr2StridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + + function hipblasZhpr2StridedBatched_rank_1_devptr(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2StridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZhpr2StridedBatched_rank_1_devptr = hipblasZhpr2StridedBatched_(handle,uplo,n,alpha, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + + function hipblasZhpr2StridedBatched_strided_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2StridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZhpr2StridedBatched_strided_rank = hipblasZhpr2StridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + + function hipblasZhpr2StridedBatched_strided_rank_devptr(handle,uplo,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2StridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZhpr2StridedBatched_strided_rank_devptr = hipblasZhpr2StridedBatched_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasChpr2StridedBatched_64_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2StridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasChpr2StridedBatched_64_assumed_rank = hipblasChpr2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + + function hipblasChpr2StridedBatched_64_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,stridex, & + y,incy,stridey,AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2StridedBatched_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasChpr2StridedBatched_64_assumed_rank_devptr = hipblasChpr2StridedBatched_64_(handle, & + uplo,n,alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + +#else + function hipblasChpr2StridedBatched_64_rank_0(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2StridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasChpr2StridedBatched_64_rank_0 = hipblasChpr2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + + function hipblasChpr2StridedBatched_64_rank_0_devptr(handle,uplo,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2StridedBatched_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasChpr2StridedBatched_64_rank_0_devptr = hipblasChpr2StridedBatched_64_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + + function hipblasChpr2StridedBatched_64_rank_1(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2StridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasChpr2StridedBatched_64_rank_1 = hipblasChpr2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + + function hipblasChpr2StridedBatched_64_rank_1_devptr(handle,uplo,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2StridedBatched_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasChpr2StridedBatched_64_rank_1_devptr = hipblasChpr2StridedBatched_64_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + + function hipblasChpr2StridedBatched_64_strided_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2StridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasChpr2StridedBatched_64_strided_rank = hipblasChpr2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + + function hipblasChpr2StridedBatched_64_strided_rank_devptr(handle,uplo,n,alpha,x,incx,stridex, & + y,incy,stridey,AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChpr2StridedBatched_64_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasChpr2StridedBatched_64_strided_rank_devptr = hipblasChpr2StridedBatched_64_(handle, & + uplo,n,alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZhpr2StridedBatched_64_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2StridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZhpr2StridedBatched_64_assumed_rank = hipblasZhpr2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + + function hipblasZhpr2StridedBatched_64_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,stridex, & + y,incy,stridey,AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2StridedBatched_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZhpr2StridedBatched_64_assumed_rank_devptr = hipblasZhpr2StridedBatched_64_(handle, & + uplo,n,alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + +#else + function hipblasZhpr2StridedBatched_64_rank_0(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2StridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZhpr2StridedBatched_64_rank_0 = hipblasZhpr2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + + function hipblasZhpr2StridedBatched_64_rank_0_devptr(handle,uplo,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2StridedBatched_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZhpr2StridedBatched_64_rank_0_devptr = hipblasZhpr2StridedBatched_64_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + + function hipblasZhpr2StridedBatched_64_rank_1(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2StridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZhpr2StridedBatched_64_rank_1 = hipblasZhpr2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + + function hipblasZhpr2StridedBatched_64_rank_1_devptr(handle,uplo,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2StridedBatched_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZhpr2StridedBatched_64_rank_1_devptr = hipblasZhpr2StridedBatched_64_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + + function hipblasZhpr2StridedBatched_64_strided_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2StridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZhpr2StridedBatched_64_strided_rank = hipblasZhpr2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + + function hipblasZhpr2StridedBatched_64_strided_rank_devptr(handle,uplo,n,alpha,x,incx,stridex, & + y,incy,stridey,AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhpr2StridedBatched_64_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZhpr2StridedBatched_64_strided_rank_devptr = hipblasZhpr2StridedBatched_64_(handle, & + uplo,n,alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSsbmv_assumed_rank(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + real(c_float),target :: beta + real(c_float),target,dimension(..) :: y + integer(c_int) :: incy + ! + hipblasSsbmv_assumed_rank = hipblasSsbmv_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasSsbmv_assumed_rank_devptr(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmv_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: beta + real(c_float),target,dimension(..) :: y + integer(c_int) :: incy + ! + hipblasSsbmv_assumed_rank_devptr = hipblasSsbmv_(handle,uplo,n,k,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) + end function + +#else + function hipblasSsbmv_rank_0(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int) :: lda + real(c_float),target :: x + integer(c_int) :: incx + real(c_float),target :: beta + real(c_float),target :: y + integer(c_int) :: incy + ! + hipblasSsbmv_rank_0 = hipblasSsbmv_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasSsbmv_rank_0_devptr(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmv_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_float),target :: AP + integer(c_int) :: lda + real(c_float),target :: x + integer(c_int) :: incx + type(c_ptr),value :: beta + real(c_float),target :: y + integer(c_int) :: incy + ! + hipblasSsbmv_rank_0_devptr = hipblasSsbmv_(handle,uplo,n,k,alpha,c_loc(AP),lda,c_loc(x), & + incx,beta,c_loc(y),incy) + end function + + function hipblasSsbmv_rank_1(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + real(c_float),target :: beta + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasSsbmv_rank_1 = hipblasSsbmv_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasSsbmv_rank_1_devptr(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmv_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: beta + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasSsbmv_rank_1_devptr = hipblasSsbmv_(handle,uplo,n,k,alpha,c_loc(AP),lda,c_loc(x), & + incx,beta,c_loc(y),incy) + end function + + function hipblasSsbmv_full_rank(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmv_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + real(c_float),target :: beta + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasSsbmv_full_rank = hipblasSsbmv_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasSsbmv_full_rank_devptr(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmv_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: beta + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasSsbmv_full_rank_devptr = hipblasSsbmv_(handle,uplo,n,k,alpha,c_loc(AP),lda,c_loc(x), & + incx,beta,c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDsbmv_assumed_rank(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + real(c_double),target :: beta + real(c_double),target,dimension(..) :: y + integer(c_int) :: incy + ! + hipblasDsbmv_assumed_rank = hipblasDsbmv_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasDsbmv_assumed_rank_devptr(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmv_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: beta + real(c_double),target,dimension(..) :: y + integer(c_int) :: incy + ! + hipblasDsbmv_assumed_rank_devptr = hipblasDsbmv_(handle,uplo,n,k,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) + end function + +#else + function hipblasDsbmv_rank_0(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int) :: lda + real(c_double),target :: x + integer(c_int) :: incx + real(c_double),target :: beta + real(c_double),target :: y + integer(c_int) :: incy + ! + hipblasDsbmv_rank_0 = hipblasDsbmv_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasDsbmv_rank_0_devptr(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmv_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_double),target :: AP + integer(c_int) :: lda + real(c_double),target :: x + integer(c_int) :: incx + type(c_ptr),value :: beta + real(c_double),target :: y + integer(c_int) :: incy + ! + hipblasDsbmv_rank_0_devptr = hipblasDsbmv_(handle,uplo,n,k,alpha,c_loc(AP),lda,c_loc(x), & + incx,beta,c_loc(y),incy) + end function + + function hipblasDsbmv_rank_1(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + real(c_double),target :: beta + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasDsbmv_rank_1 = hipblasDsbmv_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasDsbmv_rank_1_devptr(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmv_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: beta + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasDsbmv_rank_1_devptr = hipblasDsbmv_(handle,uplo,n,k,alpha,c_loc(AP),lda,c_loc(x), & + incx,beta,c_loc(y),incy) + end function + + function hipblasDsbmv_full_rank(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmv_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + real(c_double),target :: beta + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasDsbmv_full_rank = hipblasDsbmv_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasDsbmv_full_rank_devptr(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmv_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: beta + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasDsbmv_full_rank_devptr = hipblasDsbmv_(handle,uplo,n,k,alpha,c_loc(AP),lda,c_loc(x), & + incx,beta,c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSsbmv_64_assumed_rank(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_float),target :: beta + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy + ! + hipblasSsbmv_64_assumed_rank = hipblasSsbmv_64_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasSsbmv_64_assumed_rank_devptr(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmv_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy + ! + hipblasSsbmv_64_assumed_rank_devptr = hipblasSsbmv_64_(handle,uplo,n,k,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) + end function + +#else + function hipblasSsbmv_64_rank_0(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int64_t) :: lda + real(c_float),target :: x + integer(c_int64_t) :: incx + real(c_float),target :: beta + real(c_float),target :: y + integer(c_int64_t) :: incy + ! + hipblasSsbmv_64_rank_0 = hipblasSsbmv_64_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasSsbmv_64_rank_0_devptr(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmv_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_float),target :: AP + integer(c_int64_t) :: lda + real(c_float),target :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + real(c_float),target :: y + integer(c_int64_t) :: incy + ! + hipblasSsbmv_64_rank_0_devptr = hipblasSsbmv_64_(handle,uplo,n,k,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) + end function + + function hipblasSsbmv_64_rank_1(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_float),target :: beta + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasSsbmv_64_rank_1 = hipblasSsbmv_64_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasSsbmv_64_rank_1_devptr(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmv_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasSsbmv_64_rank_1_devptr = hipblasSsbmv_64_(handle,uplo,n,k,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) + end function + + function hipblasSsbmv_64_full_rank(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmv_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_float),target :: beta + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasSsbmv_64_full_rank = hipblasSsbmv_64_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasSsbmv_64_full_rank_devptr(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmv_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasSsbmv_64_full_rank_devptr = hipblasSsbmv_64_(handle,uplo,n,k,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDsbmv_64_assumed_rank(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_double),target :: beta + real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: incy + ! + hipblasDsbmv_64_assumed_rank = hipblasDsbmv_64_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasDsbmv_64_assumed_rank_devptr(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmv_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: incy + ! + hipblasDsbmv_64_assumed_rank_devptr = hipblasDsbmv_64_(handle,uplo,n,k,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) + end function + +#else + function hipblasDsbmv_64_rank_0(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int64_t) :: lda + real(c_double),target :: x + integer(c_int64_t) :: incx + real(c_double),target :: beta + real(c_double),target :: y + integer(c_int64_t) :: incy + ! + hipblasDsbmv_64_rank_0 = hipblasDsbmv_64_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasDsbmv_64_rank_0_devptr(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmv_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_double),target :: AP + integer(c_int64_t) :: lda + real(c_double),target :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + real(c_double),target :: y + integer(c_int64_t) :: incy + ! + hipblasDsbmv_64_rank_0_devptr = hipblasDsbmv_64_(handle,uplo,n,k,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) + end function + + function hipblasDsbmv_64_rank_1(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_double),target :: beta + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasDsbmv_64_rank_1 = hipblasDsbmv_64_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasDsbmv_64_rank_1_devptr(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmv_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasDsbmv_64_rank_1_devptr = hipblasDsbmv_64_(handle,uplo,n,k,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) + end function + + function hipblasDsbmv_64_full_rank(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmv_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_double),target :: beta + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasDsbmv_64_full_rank = hipblasDsbmv_64_(handle,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasDsbmv_64_full_rank_devptr(handle,uplo,n,k,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmv_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasDsbmv_64_full_rank_devptr = hipblasDsbmv_64_(handle,uplo,n,k,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSsbmvStridedBatched_assumed_rank(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasSsbmvStridedBatched_assumed_rank = hipblasSsbmvStridedBatched_(handle,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasSsbmvStridedBatched_assumed_rank_devptr(handle,uplo,n,k,alpha,AP,lda,strideA, & + x,incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmvStridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_float),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasSsbmvStridedBatched_assumed_rank_devptr = hipblasSsbmvStridedBatched_(handle,uplo,n, & + k,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + +#else + function hipblasSsbmvStridedBatched_rank_0(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasSsbmvStridedBatched_rank_0 = hipblasSsbmvStridedBatched_(handle,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasSsbmvStridedBatched_rank_0_devptr(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmvStridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_float),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_float),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasSsbmvStridedBatched_rank_0_devptr = hipblasSsbmvStridedBatched_(handle,uplo,n,k, & + alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasSsbmvStridedBatched_rank_1(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasSsbmvStridedBatched_rank_1 = hipblasSsbmvStridedBatched_(handle,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasSsbmvStridedBatched_rank_1_devptr(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmvStridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasSsbmvStridedBatched_rank_1_devptr = hipblasSsbmvStridedBatched_(handle,uplo,n,k, & + alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasSsbmvStridedBatched_full_rank(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmvStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasSsbmvStridedBatched_full_rank = hipblasSsbmvStridedBatched_(handle,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasSsbmvStridedBatched_full_rank_devptr(handle,uplo,n,k,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmvStridedBatched_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasSsbmvStridedBatched_full_rank_devptr = hipblasSsbmvStridedBatched_(handle,uplo,n,k, & + alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasSsbmvStridedBatched_strided_rank(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmvStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasSsbmvStridedBatched_strided_rank = hipblasSsbmvStridedBatched_(handle,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasSsbmvStridedBatched_strided_rank_devptr(handle,uplo,n,k,alpha,AP,lda,strideA, & + x,incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmvStridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_float),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasSsbmvStridedBatched_strided_rank_devptr = hipblasSsbmvStridedBatched_(handle,uplo,n, & + k,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDsbmvStridedBatched_assumed_rank(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasDsbmvStridedBatched_assumed_rank = hipblasDsbmvStridedBatched_(handle,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasDsbmvStridedBatched_assumed_rank_devptr(handle,uplo,n,k,alpha,AP,lda,strideA, & + x,incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmvStridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_double),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasDsbmvStridedBatched_assumed_rank_devptr = hipblasDsbmvStridedBatched_(handle,uplo,n, & + k,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + +#else + function hipblasDsbmvStridedBatched_rank_0(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasDsbmvStridedBatched_rank_0 = hipblasDsbmvStridedBatched_(handle,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasDsbmvStridedBatched_rank_0_devptr(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmvStridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_double),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_double),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasDsbmvStridedBatched_rank_0_devptr = hipblasDsbmvStridedBatched_(handle,uplo,n,k, & + alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasDsbmvStridedBatched_rank_1(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasDsbmvStridedBatched_rank_1 = hipblasDsbmvStridedBatched_(handle,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasDsbmvStridedBatched_rank_1_devptr(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmvStridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasDsbmvStridedBatched_rank_1_devptr = hipblasDsbmvStridedBatched_(handle,uplo,n,k, & + alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasDsbmvStridedBatched_full_rank(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmvStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasDsbmvStridedBatched_full_rank = hipblasDsbmvStridedBatched_(handle,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasDsbmvStridedBatched_full_rank_devptr(handle,uplo,n,k,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmvStridedBatched_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasDsbmvStridedBatched_full_rank_devptr = hipblasDsbmvStridedBatched_(handle,uplo,n,k, & + alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasDsbmvStridedBatched_strided_rank(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmvStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasDsbmvStridedBatched_strided_rank = hipblasDsbmvStridedBatched_(handle,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasDsbmvStridedBatched_strided_rank_devptr(handle,uplo,n,k,alpha,AP,lda,strideA, & + x,incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmvStridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_double),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasDsbmvStridedBatched_strided_rank_devptr = hipblasDsbmvStridedBatched_(handle,uplo,n, & + k,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSsbmvStridedBatched_64_assumed_rank(handle,uplo,n,k,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasSsbmvStridedBatched_64_assumed_rank = hipblasSsbmvStridedBatched_64_(handle,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasSsbmvStridedBatched_64_assumed_rank_devptr(handle,uplo,n,k,alpha,AP,lda, & + strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmvStridedBatched_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasSsbmvStridedBatched_64_assumed_rank_devptr = hipblasSsbmvStridedBatched_64_(handle, & + uplo,n,k,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey, & + batchCount) + end function + +#else + function hipblasSsbmvStridedBatched_64_rank_0(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasSsbmvStridedBatched_64_rank_0 = hipblasSsbmvStridedBatched_64_(handle,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasSsbmvStridedBatched_64_rank_0_devptr(handle,uplo,n,k,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmvStridedBatched_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_float),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_float),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasSsbmvStridedBatched_64_rank_0_devptr = hipblasSsbmvStridedBatched_64_(handle,uplo,n, & + k,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasSsbmvStridedBatched_64_rank_1(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasSsbmvStridedBatched_64_rank_1 = hipblasSsbmvStridedBatched_64_(handle,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasSsbmvStridedBatched_64_rank_1_devptr(handle,uplo,n,k,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmvStridedBatched_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasSsbmvStridedBatched_64_rank_1_devptr = hipblasSsbmvStridedBatched_64_(handle,uplo,n, & + k,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasSsbmvStridedBatched_64_full_rank(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmvStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasSsbmvStridedBatched_64_full_rank = hipblasSsbmvStridedBatched_64_(handle,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasSsbmvStridedBatched_64_full_rank_devptr(handle,uplo,n,k,alpha,AP,lda,strideA, & + x,incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmvStridedBatched_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasSsbmvStridedBatched_64_full_rank_devptr = hipblasSsbmvStridedBatched_64_(handle,uplo, & + n,k,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasSsbmvStridedBatched_64_strided_rank(handle,uplo,n,k,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmvStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasSsbmvStridedBatched_64_strided_rank = hipblasSsbmvStridedBatched_64_(handle,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasSsbmvStridedBatched_64_strided_rank_devptr(handle,uplo,n,k,alpha,AP,lda, & + strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsbmvStridedBatched_64_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_float),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasSsbmvStridedBatched_64_strided_rank_devptr = hipblasSsbmvStridedBatched_64_(handle, & + uplo,n,k,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey, & + batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDsbmvStridedBatched_64_assumed_rank(handle,uplo,n,k,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasDsbmvStridedBatched_64_assumed_rank = hipblasDsbmvStridedBatched_64_(handle,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasDsbmvStridedBatched_64_assumed_rank_devptr(handle,uplo,n,k,alpha,AP,lda, & + strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmvStridedBatched_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasDsbmvStridedBatched_64_assumed_rank_devptr = hipblasDsbmvStridedBatched_64_(handle, & + uplo,n,k,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey, & + batchCount) + end function + +#else + function hipblasDsbmvStridedBatched_64_rank_0(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasDsbmvStridedBatched_64_rank_0 = hipblasDsbmvStridedBatched_64_(handle,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasDsbmvStridedBatched_64_rank_0_devptr(handle,uplo,n,k,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmvStridedBatched_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_double),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_double),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasDsbmvStridedBatched_64_rank_0_devptr = hipblasDsbmvStridedBatched_64_(handle,uplo,n, & + k,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasDsbmvStridedBatched_64_rank_1(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasDsbmvStridedBatched_64_rank_1 = hipblasDsbmvStridedBatched_64_(handle,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasDsbmvStridedBatched_64_rank_1_devptr(handle,uplo,n,k,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmvStridedBatched_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasDsbmvStridedBatched_64_rank_1_devptr = hipblasDsbmvStridedBatched_64_(handle,uplo,n, & + k,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasDsbmvStridedBatched_64_full_rank(handle,uplo,n,k,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmvStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasDsbmvStridedBatched_64_full_rank = hipblasDsbmvStridedBatched_64_(handle,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasDsbmvStridedBatched_64_full_rank_devptr(handle,uplo,n,k,alpha,AP,lda,strideA, & + x,incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmvStridedBatched_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasDsbmvStridedBatched_64_full_rank_devptr = hipblasDsbmvStridedBatched_64_(handle,uplo, & + n,k,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasDsbmvStridedBatched_64_strided_rank(handle,uplo,n,k,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmvStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasDsbmvStridedBatched_64_strided_rank = hipblasDsbmvStridedBatched_64_(handle,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasDsbmvStridedBatched_64_strided_rank_devptr(handle,uplo,n,k,alpha,AP,lda, & + strideA,x,incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsbmvStridedBatched_64_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_double),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasDsbmvStridedBatched_64_strided_rank_devptr = hipblasDsbmvStridedBatched_64_(handle, & + uplo,n,k,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey, & + batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSspmv_assumed_rank(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + real(c_float),target :: beta + real(c_float),target,dimension(..) :: y + integer(c_int) :: incy + ! + hipblasSspmv_assumed_rank = hipblasSspmv_(handle,uplo,n,c_loc(alpha),c_loc(AP),c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasSspmv_assumed_rank_devptr(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmv_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: AP + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: beta + real(c_float),target,dimension(..) :: y + integer(c_int) :: incy + ! + hipblasSspmv_assumed_rank_devptr = hipblasSspmv_(handle,uplo,n,alpha,c_loc(AP),c_loc(x), & + incx,beta,c_loc(y),incy) + end function + +#else + function hipblasSspmv_rank_0(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target :: AP + real(c_float),target :: x + integer(c_int) :: incx + real(c_float),target :: beta + real(c_float),target :: y + integer(c_int) :: incy + ! + hipblasSspmv_rank_0 = hipblasSspmv_(handle,uplo,n,c_loc(alpha),c_loc(AP),c_loc(x),incx, & + c_loc(beta),c_loc(y),incy) + end function + + function hipblasSspmv_rank_0_devptr(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmv_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target :: AP + real(c_float),target :: x + integer(c_int) :: incx + type(c_ptr),value :: beta + real(c_float),target :: y + integer(c_int) :: incy + ! + hipblasSspmv_rank_0_devptr = hipblasSspmv_(handle,uplo,n,alpha,c_loc(AP),c_loc(x),incx,beta, & + c_loc(y),incy) + end function + + function hipblasSspmv_rank_1(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + real(c_float),target :: beta + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasSspmv_rank_1 = hipblasSspmv_(handle,uplo,n,c_loc(alpha),c_loc(AP),c_loc(x),incx, & + c_loc(beta),c_loc(y),incy) + end function + + function hipblasSspmv_rank_1_devptr(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmv_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: AP + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: beta + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasSspmv_rank_1_devptr = hipblasSspmv_(handle,uplo,n,alpha,c_loc(AP),c_loc(x),incx,beta, & + c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDspmv_assumed_rank(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + real(c_double),target :: beta + real(c_double),target,dimension(..) :: y + integer(c_int) :: incy + ! + hipblasDspmv_assumed_rank = hipblasDspmv_(handle,uplo,n,c_loc(alpha),c_loc(AP),c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasDspmv_assumed_rank_devptr(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmv_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: AP + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: beta + real(c_double),target,dimension(..) :: y + integer(c_int) :: incy + ! + hipblasDspmv_assumed_rank_devptr = hipblasDspmv_(handle,uplo,n,alpha,c_loc(AP),c_loc(x), & + incx,beta,c_loc(y),incy) + end function + +#else + function hipblasDspmv_rank_0(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target :: AP + real(c_double),target :: x + integer(c_int) :: incx + real(c_double),target :: beta + real(c_double),target :: y + integer(c_int) :: incy + ! + hipblasDspmv_rank_0 = hipblasDspmv_(handle,uplo,n,c_loc(alpha),c_loc(AP),c_loc(x),incx, & + c_loc(beta),c_loc(y),incy) + end function + + function hipblasDspmv_rank_0_devptr(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmv_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target :: AP + real(c_double),target :: x + integer(c_int) :: incx + type(c_ptr),value :: beta + real(c_double),target :: y + integer(c_int) :: incy + ! + hipblasDspmv_rank_0_devptr = hipblasDspmv_(handle,uplo,n,alpha,c_loc(AP),c_loc(x),incx,beta, & + c_loc(y),incy) + end function + + function hipblasDspmv_rank_1(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + real(c_double),target :: beta + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasDspmv_rank_1 = hipblasDspmv_(handle,uplo,n,c_loc(alpha),c_loc(AP),c_loc(x),incx, & + c_loc(beta),c_loc(y),incy) + end function + + function hipblasDspmv_rank_1_devptr(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmv_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: AP + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: beta + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasDspmv_rank_1_devptr = hipblasDspmv_(handle,uplo,n,alpha,c_loc(AP),c_loc(x),incx,beta, & + c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSspmv_64_assumed_rank(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_float),target :: beta + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy + ! + hipblasSspmv_64_assumed_rank = hipblasSspmv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP), & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasSspmv_64_assumed_rank_devptr(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmv_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: AP + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy + ! + hipblasSspmv_64_assumed_rank_devptr = hipblasSspmv_64_(handle,uplo,n,alpha,c_loc(AP), & + c_loc(x),incx,beta,c_loc(y),incy) + end function + +#else + function hipblasSspmv_64_rank_0(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target :: AP + real(c_float),target :: x + integer(c_int64_t) :: incx + real(c_float),target :: beta + real(c_float),target :: y + integer(c_int64_t) :: incy + ! + hipblasSspmv_64_rank_0 = hipblasSspmv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasSspmv_64_rank_0_devptr(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmv_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target :: AP + real(c_float),target :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + real(c_float),target :: y + integer(c_int64_t) :: incy + ! + hipblasSspmv_64_rank_0_devptr = hipblasSspmv_64_(handle,uplo,n,alpha,c_loc(AP),c_loc(x), & + incx,beta,c_loc(y),incy) + end function + + function hipblasSspmv_64_rank_1(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_float),target :: beta + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasSspmv_64_rank_1 = hipblasSspmv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasSspmv_64_rank_1_devptr(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmv_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: AP + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasSspmv_64_rank_1_devptr = hipblasSspmv_64_(handle,uplo,n,alpha,c_loc(AP),c_loc(x), & + incx,beta,c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDspmv_64_assumed_rank(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_double),target :: beta + real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: incy + ! + hipblasDspmv_64_assumed_rank = hipblasDspmv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP), & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasDspmv_64_assumed_rank_devptr(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmv_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: AP + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: incy + ! + hipblasDspmv_64_assumed_rank_devptr = hipblasDspmv_64_(handle,uplo,n,alpha,c_loc(AP), & + c_loc(x),incx,beta,c_loc(y),incy) + end function + +#else + function hipblasDspmv_64_rank_0(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target :: AP + real(c_double),target :: x + integer(c_int64_t) :: incx + real(c_double),target :: beta + real(c_double),target :: y + integer(c_int64_t) :: incy + ! + hipblasDspmv_64_rank_0 = hipblasDspmv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasDspmv_64_rank_0_devptr(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmv_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target :: AP + real(c_double),target :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + real(c_double),target :: y + integer(c_int64_t) :: incy + ! + hipblasDspmv_64_rank_0_devptr = hipblasDspmv_64_(handle,uplo,n,alpha,c_loc(AP),c_loc(x), & + incx,beta,c_loc(y),incy) + end function + + function hipblasDspmv_64_rank_1(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_double),target :: beta + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasDspmv_64_rank_1 = hipblasDspmv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasDspmv_64_rank_1_devptr(handle,uplo,n,alpha,AP,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmv_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: AP + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasDspmv_64_rank_1_devptr = hipblasDspmv_64_(handle,uplo,n,alpha,c_loc(AP),c_loc(x), & + incx,beta,c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSspmvStridedBatched_assumed_rank(handle,uplo,n,alpha,AP,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasSspmvStridedBatched_assumed_rank = hipblasSspmvStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey, & + batchCount) + end function + + function hipblasSspmvStridedBatched_assumed_rank_devptr(handle,uplo,n,alpha,AP,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmvStridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_float),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasSspmvStridedBatched_assumed_rank_devptr = hipblasSspmvStridedBatched_(handle,uplo,n, & + alpha,c_loc(AP),strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + +#else + function hipblasSspmvStridedBatched_rank_0(handle,uplo,n,alpha,AP,strideA,x,incx,stridex,beta, & + y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int64_t) :: strideA + real(c_float),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasSspmvStridedBatched_rank_0 = hipblasSspmvStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey,batchCount) + end function + + function hipblasSspmvStridedBatched_rank_0_devptr(handle,uplo,n,alpha,AP,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmvStridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target :: AP + integer(c_int64_t) :: strideA + real(c_float),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_float),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasSspmvStridedBatched_rank_0_devptr = hipblasSspmvStridedBatched_(handle,uplo,n,alpha, & + c_loc(AP),strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasSspmvStridedBatched_rank_1(handle,uplo,n,alpha,AP,strideA,x,incx,stridex,beta, & + y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasSspmvStridedBatched_rank_1 = hipblasSspmvStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey,batchCount) + end function + + function hipblasSspmvStridedBatched_rank_1_devptr(handle,uplo,n,alpha,AP,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmvStridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasSspmvStridedBatched_rank_1_devptr = hipblasSspmvStridedBatched_(handle,uplo,n,alpha, & + c_loc(AP),strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasSspmvStridedBatched_strided_rank(handle,uplo,n,alpha,AP,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmvStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasSspmvStridedBatched_strided_rank = hipblasSspmvStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey, & + batchCount) + end function + + function hipblasSspmvStridedBatched_strided_rank_devptr(handle,uplo,n,alpha,AP,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmvStridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_float),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasSspmvStridedBatched_strided_rank_devptr = hipblasSspmvStridedBatched_(handle,uplo,n, & + alpha,c_loc(AP),strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDspmvStridedBatched_assumed_rank(handle,uplo,n,alpha,AP,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasDspmvStridedBatched_assumed_rank = hipblasDspmvStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey, & + batchCount) + end function + + function hipblasDspmvStridedBatched_assumed_rank_devptr(handle,uplo,n,alpha,AP,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmvStridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_double),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasDspmvStridedBatched_assumed_rank_devptr = hipblasDspmvStridedBatched_(handle,uplo,n, & + alpha,c_loc(AP),strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + +#else + function hipblasDspmvStridedBatched_rank_0(handle,uplo,n,alpha,AP,strideA,x,incx,stridex,beta, & + y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int64_t) :: strideA + real(c_double),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasDspmvStridedBatched_rank_0 = hipblasDspmvStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey,batchCount) + end function + + function hipblasDspmvStridedBatched_rank_0_devptr(handle,uplo,n,alpha,AP,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmvStridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target :: AP + integer(c_int64_t) :: strideA + real(c_double),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_double),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasDspmvStridedBatched_rank_0_devptr = hipblasDspmvStridedBatched_(handle,uplo,n,alpha, & + c_loc(AP),strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasDspmvStridedBatched_rank_1(handle,uplo,n,alpha,AP,strideA,x,incx,stridex,beta, & + y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasDspmvStridedBatched_rank_1 = hipblasDspmvStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey,batchCount) + end function + + function hipblasDspmvStridedBatched_rank_1_devptr(handle,uplo,n,alpha,AP,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmvStridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasDspmvStridedBatched_rank_1_devptr = hipblasDspmvStridedBatched_(handle,uplo,n,alpha, & + c_loc(AP),strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasDspmvStridedBatched_strided_rank(handle,uplo,n,alpha,AP,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmvStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasDspmvStridedBatched_strided_rank = hipblasDspmvStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey, & + batchCount) + end function + + function hipblasDspmvStridedBatched_strided_rank_devptr(handle,uplo,n,alpha,AP,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmvStridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_double),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasDspmvStridedBatched_strided_rank_devptr = hipblasDspmvStridedBatched_(handle,uplo,n, & + alpha,c_loc(AP),strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSspmvStridedBatched_64_assumed_rank(handle,uplo,n,alpha,AP,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasSspmvStridedBatched_64_assumed_rank = hipblasSspmvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey, & + batchCount) + end function + + function hipblasSspmvStridedBatched_64_assumed_rank_devptr(handle,uplo,n,alpha,AP,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmvStridedBatched_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasSspmvStridedBatched_64_assumed_rank_devptr = hipblasSspmvStridedBatched_64_(handle, & + uplo,n,alpha,c_loc(AP),strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + +#else + function hipblasSspmvStridedBatched_64_rank_0(handle,uplo,n,alpha,AP,strideA,x,incx,stridex, & + beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int64_t) :: strideA + real(c_float),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasSspmvStridedBatched_64_rank_0 = hipblasSspmvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey, & + batchCount) + end function + + function hipblasSspmvStridedBatched_64_rank_0_devptr(handle,uplo,n,alpha,AP,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmvStridedBatched_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target :: AP + integer(c_int64_t) :: strideA + real(c_float),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_float),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasSspmvStridedBatched_64_rank_0_devptr = hipblasSspmvStridedBatched_64_(handle,uplo,n, & + alpha,c_loc(AP),strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasSspmvStridedBatched_64_rank_1(handle,uplo,n,alpha,AP,strideA,x,incx,stridex, & + beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasSspmvStridedBatched_64_rank_1 = hipblasSspmvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey, & + batchCount) + end function + + function hipblasSspmvStridedBatched_64_rank_1_devptr(handle,uplo,n,alpha,AP,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmvStridedBatched_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasSspmvStridedBatched_64_rank_1_devptr = hipblasSspmvStridedBatched_64_(handle,uplo,n, & + alpha,c_loc(AP),strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasSspmvStridedBatched_64_strided_rank(handle,uplo,n,alpha,AP,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmvStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasSspmvStridedBatched_64_strided_rank = hipblasSspmvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey, & + batchCount) + end function + + function hipblasSspmvStridedBatched_64_strided_rank_devptr(handle,uplo,n,alpha,AP,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspmvStridedBatched_64_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_float),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasSspmvStridedBatched_64_strided_rank_devptr = hipblasSspmvStridedBatched_64_(handle, & + uplo,n,alpha,c_loc(AP),strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDspmvStridedBatched_64_assumed_rank(handle,uplo,n,alpha,AP,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasDspmvStridedBatched_64_assumed_rank = hipblasDspmvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey, & + batchCount) + end function + + function hipblasDspmvStridedBatched_64_assumed_rank_devptr(handle,uplo,n,alpha,AP,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmvStridedBatched_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasDspmvStridedBatched_64_assumed_rank_devptr = hipblasDspmvStridedBatched_64_(handle, & + uplo,n,alpha,c_loc(AP),strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + +#else + function hipblasDspmvStridedBatched_64_rank_0(handle,uplo,n,alpha,AP,strideA,x,incx,stridex, & + beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int64_t) :: strideA + real(c_double),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasDspmvStridedBatched_64_rank_0 = hipblasDspmvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey, & + batchCount) + end function + + function hipblasDspmvStridedBatched_64_rank_0_devptr(handle,uplo,n,alpha,AP,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmvStridedBatched_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target :: AP + integer(c_int64_t) :: strideA + real(c_double),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_double),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasDspmvStridedBatched_64_rank_0_devptr = hipblasDspmvStridedBatched_64_(handle,uplo,n, & + alpha,c_loc(AP),strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasDspmvStridedBatched_64_rank_1(handle,uplo,n,alpha,AP,strideA,x,incx,stridex, & + beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasDspmvStridedBatched_64_rank_1 = hipblasDspmvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey, & + batchCount) + end function + + function hipblasDspmvStridedBatched_64_rank_1_devptr(handle,uplo,n,alpha,AP,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmvStridedBatched_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasDspmvStridedBatched_64_rank_1_devptr = hipblasDspmvStridedBatched_64_(handle,uplo,n, & + alpha,c_loc(AP),strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasDspmvStridedBatched_64_strided_rank(handle,uplo,n,alpha,AP,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmvStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasDspmvStridedBatched_64_strided_rank = hipblasDspmvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey, & + batchCount) + end function + + function hipblasDspmvStridedBatched_64_strided_rank_devptr(handle,uplo,n,alpha,AP,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspmvStridedBatched_64_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_double),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasDspmvStridedBatched_64_strided_rank_devptr = hipblasDspmvStridedBatched_64_(handle, & + uplo,n,alpha,c_loc(AP),strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSspr_assumed_rank(handle,uplo,n,alpha,x,incx,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + real(c_float),target,dimension(..) :: AP + ! + hipblasSspr_assumed_rank = hipblasSspr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + end function + + function hipblasSspr_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + real(c_float),target,dimension(..) :: AP + ! + hipblasSspr_assumed_rank_devptr = hipblasSspr_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(AP)) + end function + +#else + function hipblasSspr_rank_0(handle,uplo,n,alpha,x,incx,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target :: x + integer(c_int) :: incx + real(c_float),target :: AP + ! + hipblasSspr_rank_0 = hipblasSspr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + end function + + function hipblasSspr_rank_0_devptr(handle,uplo,n,alpha,x,incx,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target :: x + integer(c_int) :: incx + real(c_float),target :: AP + ! + hipblasSspr_rank_0_devptr = hipblasSspr_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(AP)) + end function + + function hipblasSspr_rank_1(handle,uplo,n,alpha,x,incx,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + real(c_float),target,dimension(:) :: AP + ! + hipblasSspr_rank_1 = hipblasSspr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + end function + + function hipblasSspr_rank_1_devptr(handle,uplo,n,alpha,x,incx,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + real(c_float),target,dimension(:) :: AP + ! + hipblasSspr_rank_1_devptr = hipblasSspr_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(AP)) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDspr_assumed_rank(handle,uplo,n,alpha,x,incx,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + real(c_double),target,dimension(..) :: AP + ! + hipblasDspr_assumed_rank = hipblasDspr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + end function + + function hipblasDspr_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + real(c_double),target,dimension(..) :: AP + ! + hipblasDspr_assumed_rank_devptr = hipblasDspr_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(AP)) + end function + +#else + function hipblasDspr_rank_0(handle,uplo,n,alpha,x,incx,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target :: x + integer(c_int) :: incx + real(c_double),target :: AP + ! + hipblasDspr_rank_0 = hipblasDspr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + end function + + function hipblasDspr_rank_0_devptr(handle,uplo,n,alpha,x,incx,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target :: x + integer(c_int) :: incx + real(c_double),target :: AP + ! + hipblasDspr_rank_0_devptr = hipblasDspr_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(AP)) + end function + + function hipblasDspr_rank_1(handle,uplo,n,alpha,x,incx,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + real(c_double),target,dimension(:) :: AP + ! + hipblasDspr_rank_1 = hipblasDspr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + end function + + function hipblasDspr_rank_1_devptr(handle,uplo,n,alpha,x,incx,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + real(c_double),target,dimension(:) :: AP + ! + hipblasDspr_rank_1_devptr = hipblasDspr_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(AP)) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCspr_assumed_rank(handle,uplo,n,alpha,x,incx,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCspr_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(..) :: AP + ! + hipblasCspr_assumed_rank = hipblasCspr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + end function + + function hipblasCspr_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCspr_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(..) :: AP + ! + hipblasCspr_assumed_rank_devptr = hipblasCspr_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(AP)) + end function + +#else + function hipblasCspr_rank_0(handle,uplo,n,alpha,x,incx,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCspr_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: x + integer(c_int) :: incx + complex(c_float_complex),target :: AP + ! + hipblasCspr_rank_0 = hipblasCspr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + end function + + function hipblasCspr_rank_0_devptr(handle,uplo,n,alpha,x,incx,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCspr_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target :: x + integer(c_int) :: incx + complex(c_float_complex),target :: AP + ! + hipblasCspr_rank_0_devptr = hipblasCspr_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(AP)) + end function + + function hipblasCspr_rank_1(handle,uplo,n,alpha,x,incx,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCspr_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(:) :: AP + ! + hipblasCspr_rank_1 = hipblasCspr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + end function + + function hipblasCspr_rank_1_devptr(handle,uplo,n,alpha,x,incx,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCspr_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(:) :: AP + ! + hipblasCspr_rank_1_devptr = hipblasCspr_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(AP)) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZspr_assumed_rank(handle,uplo,n,alpha,x,incx,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZspr_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(..) :: AP + ! + hipblasZspr_assumed_rank = hipblasZspr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + end function + + function hipblasZspr_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZspr_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(..) :: AP + ! + hipblasZspr_assumed_rank_devptr = hipblasZspr_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(AP)) + end function + +#else + function hipblasZspr_rank_0(handle,uplo,n,alpha,x,incx,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZspr_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: x + integer(c_int) :: incx + complex(c_double_complex),target :: AP + ! + hipblasZspr_rank_0 = hipblasZspr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + end function + + function hipblasZspr_rank_0_devptr(handle,uplo,n,alpha,x,incx,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZspr_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target :: x + integer(c_int) :: incx + complex(c_double_complex),target :: AP + ! + hipblasZspr_rank_0_devptr = hipblasZspr_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(AP)) + end function + + function hipblasZspr_rank_1(handle,uplo,n,alpha,x,incx,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZspr_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(:) :: AP + ! + hipblasZspr_rank_1 = hipblasZspr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + end function + + function hipblasZspr_rank_1_devptr(handle,uplo,n,alpha,x,incx,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZspr_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(:) :: AP + ! + hipblasZspr_rank_1_devptr = hipblasZspr_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(AP)) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSspr_64_assumed_rank(handle,uplo,n,alpha,x,incx,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_float),target,dimension(..) :: AP + ! + hipblasSspr_64_assumed_rank = hipblasSspr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & + c_loc(AP)) + end function + + function hipblasSspr_64_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_float),target,dimension(..) :: AP + ! + hipblasSspr_64_assumed_rank_devptr = hipblasSspr_64_(handle,uplo,n,alpha,c_loc(x),incx, & + c_loc(AP)) + end function + +#else + function hipblasSspr_64_rank_0(handle,uplo,n,alpha,x,incx,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target :: x + integer(c_int64_t) :: incx + real(c_float),target :: AP + ! + hipblasSspr_64_rank_0 = hipblasSspr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + end function + + function hipblasSspr_64_rank_0_devptr(handle,uplo,n,alpha,x,incx,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target :: x + integer(c_int64_t) :: incx + real(c_float),target :: AP + ! + hipblasSspr_64_rank_0_devptr = hipblasSspr_64_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(AP)) + end function + + function hipblasSspr_64_rank_1(handle,uplo,n,alpha,x,incx,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_float),target,dimension(:) :: AP + ! + hipblasSspr_64_rank_1 = hipblasSspr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + end function + + function hipblasSspr_64_rank_1_devptr(handle,uplo,n,alpha,x,incx,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_float),target,dimension(:) :: AP + ! + hipblasSspr_64_rank_1_devptr = hipblasSspr_64_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(AP)) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDspr_64_assumed_rank(handle,uplo,n,alpha,x,incx,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_double),target,dimension(..) :: AP + ! + hipblasDspr_64_assumed_rank = hipblasDspr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & + c_loc(AP)) + end function + + function hipblasDspr_64_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_double),target,dimension(..) :: AP + ! + hipblasDspr_64_assumed_rank_devptr = hipblasDspr_64_(handle,uplo,n,alpha,c_loc(x),incx, & + c_loc(AP)) + end function + +#else + function hipblasDspr_64_rank_0(handle,uplo,n,alpha,x,incx,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target :: x + integer(c_int64_t) :: incx + real(c_double),target :: AP + ! + hipblasDspr_64_rank_0 = hipblasDspr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + end function + + function hipblasDspr_64_rank_0_devptr(handle,uplo,n,alpha,x,incx,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target :: x + integer(c_int64_t) :: incx + real(c_double),target :: AP + ! + hipblasDspr_64_rank_0_devptr = hipblasDspr_64_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(AP)) + end function + + function hipblasDspr_64_rank_1(handle,uplo,n,alpha,x,incx,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_double),target,dimension(:) :: AP + ! + hipblasDspr_64_rank_1 = hipblasDspr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + end function + + function hipblasDspr_64_rank_1_devptr(handle,uplo,n,alpha,x,incx,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_double),target,dimension(:) :: AP + ! + hipblasDspr_64_rank_1_devptr = hipblasDspr_64_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(AP)) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCspr_64_assumed_rank(handle,uplo,n,alpha,x,incx,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCspr_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(..) :: AP + ! + hipblasCspr_64_assumed_rank = hipblasCspr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & + c_loc(AP)) + end function + + function hipblasCspr_64_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCspr_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(..) :: AP + ! + hipblasCspr_64_assumed_rank_devptr = hipblasCspr_64_(handle,uplo,n,alpha,c_loc(x),incx, & + c_loc(AP)) + end function + +#else + function hipblasCspr_64_rank_0(handle,uplo,n,alpha,x,incx,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCspr_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: AP + ! + hipblasCspr_64_rank_0 = hipblasCspr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + end function + + function hipblasCspr_64_rank_0_devptr(handle,uplo,n,alpha,x,incx,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCspr_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: AP + ! + hipblasCspr_64_rank_0_devptr = hipblasCspr_64_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(AP)) + end function + + function hipblasCspr_64_rank_1(handle,uplo,n,alpha,x,incx,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCspr_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(:) :: AP + ! + hipblasCspr_64_rank_1 = hipblasCspr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + end function + + function hipblasCspr_64_rank_1_devptr(handle,uplo,n,alpha,x,incx,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCspr_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(:) :: AP + ! + hipblasCspr_64_rank_1_devptr = hipblasCspr_64_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(AP)) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZspr_64_assumed_rank(handle,uplo,n,alpha,x,incx,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZspr_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(..) :: AP + ! + hipblasZspr_64_assumed_rank = hipblasZspr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & + c_loc(AP)) + end function + + function hipblasZspr_64_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZspr_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(..) :: AP + ! + hipblasZspr_64_assumed_rank_devptr = hipblasZspr_64_(handle,uplo,n,alpha,c_loc(x),incx, & + c_loc(AP)) + end function + +#else + function hipblasZspr_64_rank_0(handle,uplo,n,alpha,x,incx,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZspr_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: AP + ! + hipblasZspr_64_rank_0 = hipblasZspr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + end function + + function hipblasZspr_64_rank_0_devptr(handle,uplo,n,alpha,x,incx,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZspr_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: AP + ! + hipblasZspr_64_rank_0_devptr = hipblasZspr_64_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(AP)) + end function + + function hipblasZspr_64_rank_1(handle,uplo,n,alpha,x,incx,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZspr_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(:) :: AP + ! + hipblasZspr_64_rank_1 = hipblasZspr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP)) + end function + + function hipblasZspr_64_rank_1_devptr(handle,uplo,n,alpha,x,incx,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZspr_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(:) :: AP + ! + hipblasZspr_64_rank_1_devptr = hipblasZspr_64_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(AP)) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSsprStridedBatched_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsprStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasSsprStridedBatched_assumed_rank = hipblasSsprStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasSsprStridedBatched_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,stridex,AP, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsprStridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasSsprStridedBatched_assumed_rank_devptr = hipblasSsprStridedBatched_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + +#else + function hipblasSsprStridedBatched_rank_0(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsprStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasSsprStridedBatched_rank_0 = hipblasSsprStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasSsprStridedBatched_rank_0_devptr(handle,uplo,n,alpha,x,incx,stridex,AP, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsprStridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasSsprStridedBatched_rank_0_devptr = hipblasSsprStridedBatched_(handle,uplo,n,alpha, & + c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasSsprStridedBatched_rank_1(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsprStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasSsprStridedBatched_rank_1 = hipblasSsprStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasSsprStridedBatched_rank_1_devptr(handle,uplo,n,alpha,x,incx,stridex,AP, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsprStridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasSsprStridedBatched_rank_1_devptr = hipblasSsprStridedBatched_(handle,uplo,n,alpha, & + c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasSsprStridedBatched_strided_rank(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsprStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasSsprStridedBatched_strided_rank = hipblasSsprStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasSsprStridedBatched_strided_rank_devptr(handle,uplo,n,alpha,x,incx,stridex,AP, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsprStridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasSsprStridedBatched_strided_rank_devptr = hipblasSsprStridedBatched_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDsprStridedBatched_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsprStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasDsprStridedBatched_assumed_rank = hipblasDsprStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasDsprStridedBatched_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,stridex,AP, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsprStridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasDsprStridedBatched_assumed_rank_devptr = hipblasDsprStridedBatched_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + +#else + function hipblasDsprStridedBatched_rank_0(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsprStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasDsprStridedBatched_rank_0 = hipblasDsprStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasDsprStridedBatched_rank_0_devptr(handle,uplo,n,alpha,x,incx,stridex,AP, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsprStridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasDsprStridedBatched_rank_0_devptr = hipblasDsprStridedBatched_(handle,uplo,n,alpha, & + c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasDsprStridedBatched_rank_1(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsprStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasDsprStridedBatched_rank_1 = hipblasDsprStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasDsprStridedBatched_rank_1_devptr(handle,uplo,n,alpha,x,incx,stridex,AP, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsprStridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasDsprStridedBatched_rank_1_devptr = hipblasDsprStridedBatched_(handle,uplo,n,alpha, & + c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasDsprStridedBatched_strided_rank(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsprStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasDsprStridedBatched_strided_rank = hipblasDsprStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasDsprStridedBatched_strided_rank_devptr(handle,uplo,n,alpha,x,incx,stridex,AP, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsprStridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasDsprStridedBatched_strided_rank_devptr = hipblasDsprStridedBatched_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCsprStridedBatched_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsprStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCsprStridedBatched_assumed_rank = hipblasCsprStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasCsprStridedBatched_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,stridex,AP, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsprStridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCsprStridedBatched_assumed_rank_devptr = hipblasCsprStridedBatched_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + +#else + function hipblasCsprStridedBatched_rank_0(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsprStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCsprStridedBatched_rank_0 = hipblasCsprStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasCsprStridedBatched_rank_0_devptr(handle,uplo,n,alpha,x,incx,stridex,AP, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsprStridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCsprStridedBatched_rank_0_devptr = hipblasCsprStridedBatched_(handle,uplo,n,alpha, & + c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasCsprStridedBatched_rank_1(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsprStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCsprStridedBatched_rank_1 = hipblasCsprStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasCsprStridedBatched_rank_1_devptr(handle,uplo,n,alpha,x,incx,stridex,AP, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsprStridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCsprStridedBatched_rank_1_devptr = hipblasCsprStridedBatched_(handle,uplo,n,alpha, & + c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasCsprStridedBatched_strided_rank(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsprStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCsprStridedBatched_strided_rank = hipblasCsprStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasCsprStridedBatched_strided_rank_devptr(handle,uplo,n,alpha,x,incx,stridex,AP, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsprStridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCsprStridedBatched_strided_rank_devptr = hipblasCsprStridedBatched_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZsprStridedBatched_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsprStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZsprStridedBatched_assumed_rank = hipblasZsprStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasZsprStridedBatched_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,stridex,AP, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsprStridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZsprStridedBatched_assumed_rank_devptr = hipblasZsprStridedBatched_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + +#else + function hipblasZsprStridedBatched_rank_0(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsprStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZsprStridedBatched_rank_0 = hipblasZsprStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasZsprStridedBatched_rank_0_devptr(handle,uplo,n,alpha,x,incx,stridex,AP, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsprStridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZsprStridedBatched_rank_0_devptr = hipblasZsprStridedBatched_(handle,uplo,n,alpha, & + c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasZsprStridedBatched_rank_1(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsprStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZsprStridedBatched_rank_1 = hipblasZsprStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasZsprStridedBatched_rank_1_devptr(handle,uplo,n,alpha,x,incx,stridex,AP, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsprStridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZsprStridedBatched_rank_1_devptr = hipblasZsprStridedBatched_(handle,uplo,n,alpha, & + c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasZsprStridedBatched_strided_rank(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsprStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZsprStridedBatched_strided_rank = hipblasZsprStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasZsprStridedBatched_strided_rank_devptr(handle,uplo,n,alpha,x,incx,stridex,AP, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsprStridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZsprStridedBatched_strided_rank_devptr = hipblasZsprStridedBatched_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSsprStridedBatched_64_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,AP, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsprStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasSsprStridedBatched_64_assumed_rank = hipblasSsprStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasSsprStridedBatched_64_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,stridex, & + AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsprStridedBatched_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasSsprStridedBatched_64_assumed_rank_devptr = hipblasSsprStridedBatched_64_(handle, & + uplo,n,alpha,c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + +#else + function hipblasSsprStridedBatched_64_rank_0(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsprStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasSsprStridedBatched_64_rank_0 = hipblasSsprStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasSsprStridedBatched_64_rank_0_devptr(handle,uplo,n,alpha,x,incx,stridex,AP, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsprStridedBatched_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasSsprStridedBatched_64_rank_0_devptr = hipblasSsprStridedBatched_64_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasSsprStridedBatched_64_rank_1(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsprStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasSsprStridedBatched_64_rank_1 = hipblasSsprStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasSsprStridedBatched_64_rank_1_devptr(handle,uplo,n,alpha,x,incx,stridex,AP, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsprStridedBatched_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasSsprStridedBatched_64_rank_1_devptr = hipblasSsprStridedBatched_64_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasSsprStridedBatched_64_strided_rank(handle,uplo,n,alpha,x,incx,stridex,AP, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsprStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasSsprStridedBatched_64_strided_rank = hipblasSsprStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasSsprStridedBatched_64_strided_rank_devptr(handle,uplo,n,alpha,x,incx,stridex, & + AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsprStridedBatched_64_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasSsprStridedBatched_64_strided_rank_devptr = hipblasSsprStridedBatched_64_(handle, & + uplo,n,alpha,c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDsprStridedBatched_64_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,AP, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsprStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasDsprStridedBatched_64_assumed_rank = hipblasDsprStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasDsprStridedBatched_64_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,stridex, & + AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsprStridedBatched_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasDsprStridedBatched_64_assumed_rank_devptr = hipblasDsprStridedBatched_64_(handle, & + uplo,n,alpha,c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + +#else + function hipblasDsprStridedBatched_64_rank_0(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsprStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasDsprStridedBatched_64_rank_0 = hipblasDsprStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasDsprStridedBatched_64_rank_0_devptr(handle,uplo,n,alpha,x,incx,stridex,AP, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsprStridedBatched_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasDsprStridedBatched_64_rank_0_devptr = hipblasDsprStridedBatched_64_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasDsprStridedBatched_64_rank_1(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsprStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasDsprStridedBatched_64_rank_1 = hipblasDsprStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasDsprStridedBatched_64_rank_1_devptr(handle,uplo,n,alpha,x,incx,stridex,AP, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsprStridedBatched_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasDsprStridedBatched_64_rank_1_devptr = hipblasDsprStridedBatched_64_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasDsprStridedBatched_64_strided_rank(handle,uplo,n,alpha,x,incx,stridex,AP, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsprStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasDsprStridedBatched_64_strided_rank = hipblasDsprStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasDsprStridedBatched_64_strided_rank_devptr(handle,uplo,n,alpha,x,incx,stridex, & + AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsprStridedBatched_64_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasDsprStridedBatched_64_strided_rank_devptr = hipblasDsprStridedBatched_64_(handle, & + uplo,n,alpha,c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCsprStridedBatched_64_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,AP, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsprStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCsprStridedBatched_64_assumed_rank = hipblasCsprStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasCsprStridedBatched_64_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,stridex, & + AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsprStridedBatched_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCsprStridedBatched_64_assumed_rank_devptr = hipblasCsprStridedBatched_64_(handle, & + uplo,n,alpha,c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + +#else + function hipblasCsprStridedBatched_64_rank_0(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsprStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCsprStridedBatched_64_rank_0 = hipblasCsprStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasCsprStridedBatched_64_rank_0_devptr(handle,uplo,n,alpha,x,incx,stridex,AP, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsprStridedBatched_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCsprStridedBatched_64_rank_0_devptr = hipblasCsprStridedBatched_64_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasCsprStridedBatched_64_rank_1(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsprStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCsprStridedBatched_64_rank_1 = hipblasCsprStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasCsprStridedBatched_64_rank_1_devptr(handle,uplo,n,alpha,x,incx,stridex,AP, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsprStridedBatched_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCsprStridedBatched_64_rank_1_devptr = hipblasCsprStridedBatched_64_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasCsprStridedBatched_64_strided_rank(handle,uplo,n,alpha,x,incx,stridex,AP, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsprStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCsprStridedBatched_64_strided_rank = hipblasCsprStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasCsprStridedBatched_64_strided_rank_devptr(handle,uplo,n,alpha,x,incx,stridex, & + AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsprStridedBatched_64_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCsprStridedBatched_64_strided_rank_devptr = hipblasCsprStridedBatched_64_(handle, & + uplo,n,alpha,c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZsprStridedBatched_64_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,AP, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsprStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZsprStridedBatched_64_assumed_rank = hipblasZsprStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasZsprStridedBatched_64_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,stridex, & + AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsprStridedBatched_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZsprStridedBatched_64_assumed_rank_devptr = hipblasZsprStridedBatched_64_(handle, & + uplo,n,alpha,c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + +#else + function hipblasZsprStridedBatched_64_rank_0(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsprStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZsprStridedBatched_64_rank_0 = hipblasZsprStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasZsprStridedBatched_64_rank_0_devptr(handle,uplo,n,alpha,x,incx,stridex,AP, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsprStridedBatched_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZsprStridedBatched_64_rank_0_devptr = hipblasZsprStridedBatched_64_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasZsprStridedBatched_64_rank_1(handle,uplo,n,alpha,x,incx,stridex,AP,strideA, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsprStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZsprStridedBatched_64_rank_1 = hipblasZsprStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasZsprStridedBatched_64_rank_1_devptr(handle,uplo,n,alpha,x,incx,stridex,AP, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsprStridedBatched_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZsprStridedBatched_64_rank_1_devptr = hipblasZsprStridedBatched_64_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasZsprStridedBatched_64_strided_rank(handle,uplo,n,alpha,x,incx,stridex,AP, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsprStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZsprStridedBatched_64_strided_rank = hipblasZsprStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + + function hipblasZsprStridedBatched_64_strided_rank_devptr(handle,uplo,n,alpha,x,incx,stridex, & + AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsprStridedBatched_64_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZsprStridedBatched_64_strided_rank_devptr = hipblasZsprStridedBatched_64_(handle, & + uplo,n,alpha,c_loc(x),incx,stridex,c_loc(AP),strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSspr2_assumed_rank(handle,uplo,n,alpha,x,incx,y,incy,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + real(c_float),target,dimension(..) :: y + integer(c_int) :: incy + real(c_float),target,dimension(..) :: AP + ! + hipblasSspr2_assumed_rank = hipblasSspr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP)) + end function + + function hipblasSspr2_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,y,incy,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + real(c_float),target,dimension(..) :: y + integer(c_int) :: incy + real(c_float),target,dimension(..) :: AP + ! + hipblasSspr2_assumed_rank_devptr = hipblasSspr2_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(y), & + incy,c_loc(AP)) + end function + +#else + function hipblasSspr2_rank_0(handle,uplo,n,alpha,x,incx,y,incy,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target :: x + integer(c_int) :: incx + real(c_float),target :: y + integer(c_int) :: incy + real(c_float),target :: AP + ! + hipblasSspr2_rank_0 = hipblasSspr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP)) + end function + + function hipblasSspr2_rank_0_devptr(handle,uplo,n,alpha,x,incx,y,incy,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target :: x + integer(c_int) :: incx + real(c_float),target :: y + integer(c_int) :: incy + real(c_float),target :: AP + ! + hipblasSspr2_rank_0_devptr = hipblasSspr2_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(y),incy, & + c_loc(AP)) + end function + + function hipblasSspr2_rank_1(handle,uplo,n,alpha,x,incx,y,incy,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + real(c_float),target,dimension(:) :: AP + ! + hipblasSspr2_rank_1 = hipblasSspr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP)) + end function + + function hipblasSspr2_rank_1_devptr(handle,uplo,n,alpha,x,incx,y,incy,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + real(c_float),target,dimension(:) :: AP + ! + hipblasSspr2_rank_1_devptr = hipblasSspr2_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(y),incy, & + c_loc(AP)) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDspr2_assumed_rank(handle,uplo,n,alpha,x,incx,y,incy,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + real(c_double),target,dimension(..) :: y + integer(c_int) :: incy + real(c_double),target,dimension(..) :: AP + ! + hipblasDspr2_assumed_rank = hipblasDspr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP)) + end function + + function hipblasDspr2_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,y,incy,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + real(c_double),target,dimension(..) :: y + integer(c_int) :: incy + real(c_double),target,dimension(..) :: AP + ! + hipblasDspr2_assumed_rank_devptr = hipblasDspr2_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(y), & + incy,c_loc(AP)) + end function + +#else + function hipblasDspr2_rank_0(handle,uplo,n,alpha,x,incx,y,incy,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target :: x + integer(c_int) :: incx + real(c_double),target :: y + integer(c_int) :: incy + real(c_double),target :: AP + ! + hipblasDspr2_rank_0 = hipblasDspr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP)) + end function + + function hipblasDspr2_rank_0_devptr(handle,uplo,n,alpha,x,incx,y,incy,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target :: x + integer(c_int) :: incx + real(c_double),target :: y + integer(c_int) :: incy + real(c_double),target :: AP + ! + hipblasDspr2_rank_0_devptr = hipblasDspr2_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(y),incy, & + c_loc(AP)) + end function + + function hipblasDspr2_rank_1(handle,uplo,n,alpha,x,incx,y,incy,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + real(c_double),target,dimension(:) :: AP + ! + hipblasDspr2_rank_1 = hipblasDspr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP)) + end function + + function hipblasDspr2_rank_1_devptr(handle,uplo,n,alpha,x,incx,y,incy,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + real(c_double),target,dimension(:) :: AP + ! + hipblasDspr2_rank_1_devptr = hipblasDspr2_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(y),incy, & + c_loc(AP)) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSspr2_64_assumed_rank(handle,uplo,n,alpha,x,incx,y,incy,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy + real(c_float),target,dimension(..) :: AP + ! + hipblasSspr2_64_assumed_rank = hipblasSspr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & + c_loc(y),incy,c_loc(AP)) + end function + + function hipblasSspr2_64_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,y,incy,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy + real(c_float),target,dimension(..) :: AP + ! + hipblasSspr2_64_assumed_rank_devptr = hipblasSspr2_64_(handle,uplo,n,alpha,c_loc(x),incx, & + c_loc(y),incy,c_loc(AP)) + end function + +#else + function hipblasSspr2_64_rank_0(handle,uplo,n,alpha,x,incx,y,incy,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target :: x + integer(c_int64_t) :: incx + real(c_float),target :: y + integer(c_int64_t) :: incy + real(c_float),target :: AP + ! + hipblasSspr2_64_rank_0 = hipblasSspr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP)) + end function + + function hipblasSspr2_64_rank_0_devptr(handle,uplo,n,alpha,x,incx,y,incy,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target :: x + integer(c_int64_t) :: incx + real(c_float),target :: y + integer(c_int64_t) :: incy + real(c_float),target :: AP + ! + hipblasSspr2_64_rank_0_devptr = hipblasSspr2_64_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(y), & + incy,c_loc(AP)) + end function + + function hipblasSspr2_64_rank_1(handle,uplo,n,alpha,x,incx,y,incy,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + real(c_float),target,dimension(:) :: AP + ! + hipblasSspr2_64_rank_1 = hipblasSspr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP)) + end function + + function hipblasSspr2_64_rank_1_devptr(handle,uplo,n,alpha,x,incx,y,incy,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + real(c_float),target,dimension(:) :: AP + ! + hipblasSspr2_64_rank_1_devptr = hipblasSspr2_64_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(y), & + incy,c_loc(AP)) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDspr2_64_assumed_rank(handle,uplo,n,alpha,x,incx,y,incy,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: incy + real(c_double),target,dimension(..) :: AP + ! + hipblasDspr2_64_assumed_rank = hipblasDspr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & + c_loc(y),incy,c_loc(AP)) + end function + + function hipblasDspr2_64_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,y,incy,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: incy + real(c_double),target,dimension(..) :: AP + ! + hipblasDspr2_64_assumed_rank_devptr = hipblasDspr2_64_(handle,uplo,n,alpha,c_loc(x),incx, & + c_loc(y),incy,c_loc(AP)) + end function + +#else + function hipblasDspr2_64_rank_0(handle,uplo,n,alpha,x,incx,y,incy,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target :: x + integer(c_int64_t) :: incx + real(c_double),target :: y + integer(c_int64_t) :: incy + real(c_double),target :: AP + ! + hipblasDspr2_64_rank_0 = hipblasDspr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP)) + end function + + function hipblasDspr2_64_rank_0_devptr(handle,uplo,n,alpha,x,incx,y,incy,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target :: x + integer(c_int64_t) :: incx + real(c_double),target :: y + integer(c_int64_t) :: incy + real(c_double),target :: AP + ! + hipblasDspr2_64_rank_0_devptr = hipblasDspr2_64_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(y), & + incy,c_loc(AP)) + end function + + function hipblasDspr2_64_rank_1(handle,uplo,n,alpha,x,incx,y,incy,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + real(c_double),target,dimension(:) :: AP + ! + hipblasDspr2_64_rank_1 = hipblasDspr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP)) + end function + + function hipblasDspr2_64_rank_1_devptr(handle,uplo,n,alpha,x,incx,y,incy,AP) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + real(c_double),target,dimension(:) :: AP + ! + hipblasDspr2_64_rank_1_devptr = hipblasDspr2_64_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(y), & + incy,c_loc(AP)) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSspr2StridedBatched_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2StridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasSspr2StridedBatched_assumed_rank = hipblasSspr2StridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + + function hipblasSspr2StridedBatched_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2StridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasSspr2StridedBatched_assumed_rank_devptr = hipblasSspr2StridedBatched_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + +#else + function hipblasSspr2StridedBatched_rank_0(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2StridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_float),target :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasSspr2StridedBatched_rank_0 = hipblasSspr2StridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + + function hipblasSspr2StridedBatched_rank_0_devptr(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2StridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_float),target :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasSspr2StridedBatched_rank_0_devptr = hipblasSspr2StridedBatched_(handle,uplo,n,alpha, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + + function hipblasSspr2StridedBatched_rank_1(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2StridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasSspr2StridedBatched_rank_1 = hipblasSspr2StridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + + function hipblasSspr2StridedBatched_rank_1_devptr(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2StridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasSspr2StridedBatched_rank_1_devptr = hipblasSspr2StridedBatched_(handle,uplo,n,alpha, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + + function hipblasSspr2StridedBatched_strided_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2StridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasSspr2StridedBatched_strided_rank = hipblasSspr2StridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + + function hipblasSspr2StridedBatched_strided_rank_devptr(handle,uplo,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2StridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasSspr2StridedBatched_strided_rank_devptr = hipblasSspr2StridedBatched_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDspr2StridedBatched_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2StridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasDspr2StridedBatched_assumed_rank = hipblasDspr2StridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + + function hipblasDspr2StridedBatched_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2StridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasDspr2StridedBatched_assumed_rank_devptr = hipblasDspr2StridedBatched_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + +#else + function hipblasDspr2StridedBatched_rank_0(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2StridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_double),target :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasDspr2StridedBatched_rank_0 = hipblasDspr2StridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + + function hipblasDspr2StridedBatched_rank_0_devptr(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2StridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_double),target :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasDspr2StridedBatched_rank_0_devptr = hipblasDspr2StridedBatched_(handle,uplo,n,alpha, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + + function hipblasDspr2StridedBatched_rank_1(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2StridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasDspr2StridedBatched_rank_1 = hipblasDspr2StridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + + function hipblasDspr2StridedBatched_rank_1_devptr(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2StridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasDspr2StridedBatched_rank_1_devptr = hipblasDspr2StridedBatched_(handle,uplo,n,alpha, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + + function hipblasDspr2StridedBatched_strided_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2StridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasDspr2StridedBatched_strided_rank = hipblasDspr2StridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + + function hipblasDspr2StridedBatched_strided_rank_devptr(handle,uplo,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2StridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasDspr2StridedBatched_strided_rank_devptr = hipblasDspr2StridedBatched_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSspr2StridedBatched_64_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2StridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasSspr2StridedBatched_64_assumed_rank = hipblasSspr2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + + function hipblasSspr2StridedBatched_64_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,stridex, & + y,incy,stridey,AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2StridedBatched_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasSspr2StridedBatched_64_assumed_rank_devptr = hipblasSspr2StridedBatched_64_(handle, & + uplo,n,alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + +#else + function hipblasSspr2StridedBatched_64_rank_0(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2StridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_float),target :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasSspr2StridedBatched_64_rank_0 = hipblasSspr2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + + function hipblasSspr2StridedBatched_64_rank_0_devptr(handle,uplo,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2StridedBatched_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_float),target :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasSspr2StridedBatched_64_rank_0_devptr = hipblasSspr2StridedBatched_64_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + + function hipblasSspr2StridedBatched_64_rank_1(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2StridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasSspr2StridedBatched_64_rank_1 = hipblasSspr2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + + function hipblasSspr2StridedBatched_64_rank_1_devptr(handle,uplo,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2StridedBatched_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasSspr2StridedBatched_64_rank_1_devptr = hipblasSspr2StridedBatched_64_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + + function hipblasSspr2StridedBatched_64_strided_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2StridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasSspr2StridedBatched_64_strided_rank = hipblasSspr2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + + function hipblasSspr2StridedBatched_64_strided_rank_devptr(handle,uplo,n,alpha,x,incx,stridex, & + y,incy,stridey,AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSspr2StridedBatched_64_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasSspr2StridedBatched_64_strided_rank_devptr = hipblasSspr2StridedBatched_64_(handle, & + uplo,n,alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDspr2StridedBatched_64_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2StridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasDspr2StridedBatched_64_assumed_rank = hipblasDspr2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + + function hipblasDspr2StridedBatched_64_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,stridex, & + y,incy,stridey,AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2StridedBatched_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasDspr2StridedBatched_64_assumed_rank_devptr = hipblasDspr2StridedBatched_64_(handle, & + uplo,n,alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + +#else + function hipblasDspr2StridedBatched_64_rank_0(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2StridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_double),target :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasDspr2StridedBatched_64_rank_0 = hipblasDspr2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + + function hipblasDspr2StridedBatched_64_rank_0_devptr(handle,uplo,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2StridedBatched_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_double),target :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasDspr2StridedBatched_64_rank_0_devptr = hipblasDspr2StridedBatched_64_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + + function hipblasDspr2StridedBatched_64_rank_1(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2StridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasDspr2StridedBatched_64_rank_1 = hipblasDspr2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + + function hipblasDspr2StridedBatched_64_rank_1_devptr(handle,uplo,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2StridedBatched_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasDspr2StridedBatched_64_rank_1_devptr = hipblasDspr2StridedBatched_64_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + + function hipblasDspr2StridedBatched_64_strided_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2StridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasDspr2StridedBatched_64_strided_rank = hipblasDspr2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + + function hipblasDspr2StridedBatched_64_strided_rank_devptr(handle,uplo,n,alpha,x,incx,stridex, & + y,incy,stridey,AP,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDspr2StridedBatched_64_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasDspr2StridedBatched_64_strided_rank_devptr = hipblasDspr2StridedBatched_64_(handle, & + uplo,n,alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSsymv_assumed_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + real(c_float),target :: beta + real(c_float),target,dimension(..) :: y + integer(c_int) :: incy + ! + hipblasSsymv_assumed_rank = hipblasSsymv_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasSsymv_assumed_rank_devptr(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymv_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: beta + real(c_float),target,dimension(..) :: y + integer(c_int) :: incy + ! + hipblasSsymv_assumed_rank_devptr = hipblasSsymv_(handle,uplo,n,alpha,c_loc(AP),lda,c_loc(x), & + incx,beta,c_loc(y),incy) + end function + +#else + function hipblasSsymv_rank_0(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int) :: lda + real(c_float),target :: x + integer(c_int) :: incx + real(c_float),target :: beta + real(c_float),target :: y + integer(c_int) :: incy + ! + hipblasSsymv_rank_0 = hipblasSsymv_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x),incx, & + c_loc(beta),c_loc(y),incy) + end function + + function hipblasSsymv_rank_0_devptr(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymv_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target :: AP + integer(c_int) :: lda + real(c_float),target :: x + integer(c_int) :: incx + type(c_ptr),value :: beta + real(c_float),target :: y + integer(c_int) :: incy + ! + hipblasSsymv_rank_0_devptr = hipblasSsymv_(handle,uplo,n,alpha,c_loc(AP),lda,c_loc(x),incx, & + beta,c_loc(y),incy) + end function + + function hipblasSsymv_rank_1(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + real(c_float),target :: beta + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasSsymv_rank_1 = hipblasSsymv_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x),incx, & + c_loc(beta),c_loc(y),incy) + end function + + function hipblasSsymv_rank_1_devptr(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymv_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: beta + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasSsymv_rank_1_devptr = hipblasSsymv_(handle,uplo,n,alpha,c_loc(AP),lda,c_loc(x),incx, & + beta,c_loc(y),incy) + end function + + function hipblasSsymv_full_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymv_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + real(c_float),target :: beta + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasSsymv_full_rank = hipblasSsymv_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasSsymv_full_rank_devptr(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymv_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: beta + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasSsymv_full_rank_devptr = hipblasSsymv_(handle,uplo,n,alpha,c_loc(AP),lda,c_loc(x), & + incx,beta,c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDsymv_assumed_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + real(c_double),target :: beta + real(c_double),target,dimension(..) :: y + integer(c_int) :: incy + ! + hipblasDsymv_assumed_rank = hipblasDsymv_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasDsymv_assumed_rank_devptr(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymv_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: beta + real(c_double),target,dimension(..) :: y + integer(c_int) :: incy + ! + hipblasDsymv_assumed_rank_devptr = hipblasDsymv_(handle,uplo,n,alpha,c_loc(AP),lda,c_loc(x), & + incx,beta,c_loc(y),incy) + end function + +#else + function hipblasDsymv_rank_0(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int) :: lda + real(c_double),target :: x + integer(c_int) :: incx + real(c_double),target :: beta + real(c_double),target :: y + integer(c_int) :: incy + ! + hipblasDsymv_rank_0 = hipblasDsymv_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x),incx, & + c_loc(beta),c_loc(y),incy) + end function + + function hipblasDsymv_rank_0_devptr(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymv_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target :: AP + integer(c_int) :: lda + real(c_double),target :: x + integer(c_int) :: incx + type(c_ptr),value :: beta + real(c_double),target :: y + integer(c_int) :: incy + ! + hipblasDsymv_rank_0_devptr = hipblasDsymv_(handle,uplo,n,alpha,c_loc(AP),lda,c_loc(x),incx, & + beta,c_loc(y),incy) + end function + + function hipblasDsymv_rank_1(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + real(c_double),target :: beta + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasDsymv_rank_1 = hipblasDsymv_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x),incx, & + c_loc(beta),c_loc(y),incy) + end function + + function hipblasDsymv_rank_1_devptr(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymv_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: beta + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasDsymv_rank_1_devptr = hipblasDsymv_(handle,uplo,n,alpha,c_loc(AP),lda,c_loc(x),incx, & + beta,c_loc(y),incy) + end function + + function hipblasDsymv_full_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymv_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + real(c_double),target :: beta + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasDsymv_full_rank = hipblasDsymv_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasDsymv_full_rank_devptr(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymv_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: beta + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasDsymv_full_rank_devptr = hipblasDsymv_(handle,uplo,n,alpha,c_loc(AP),lda,c_loc(x), & + incx,beta,c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCsymv_assumed_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + ! + hipblasCsymv_assumed_rank = hipblasCsymv_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasCsymv_assumed_rank_devptr(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymv_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + ! + hipblasCsymv_assumed_rank_devptr = hipblasCsymv_(handle,uplo,n,alpha,c_loc(AP),lda,c_loc(x), & + incx,beta,c_loc(y),incy) + end function + +#else + function hipblasCsymv_rank_0(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + complex(c_float_complex),target :: x + integer(c_int) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: y + integer(c_int) :: incy + ! + hipblasCsymv_rank_0 = hipblasCsymv_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x),incx, & + c_loc(beta),c_loc(y),incy) + end function + + function hipblasCsymv_rank_0_devptr(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymv_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + complex(c_float_complex),target :: x + integer(c_int) :: incx + type(c_ptr),value :: beta + complex(c_float_complex),target :: y + integer(c_int) :: incy + ! + hipblasCsymv_rank_0_devptr = hipblasCsymv_(handle,uplo,n,alpha,c_loc(AP),lda,c_loc(x),incx, & + beta,c_loc(y),incy) + end function + + function hipblasCsymv_rank_1(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasCsymv_rank_1 = hipblasCsymv_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x),incx, & + c_loc(beta),c_loc(y),incy) + end function + + function hipblasCsymv_rank_1_devptr(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymv_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasCsymv_rank_1_devptr = hipblasCsymv_(handle,uplo,n,alpha,c_loc(AP),lda,c_loc(x),incx, & + beta,c_loc(y),incy) + end function + + function hipblasCsymv_full_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymv_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasCsymv_full_rank = hipblasCsymv_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasCsymv_full_rank_devptr(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymv_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasCsymv_full_rank_devptr = hipblasCsymv_(handle,uplo,n,alpha,c_loc(AP),lda,c_loc(x), & + incx,beta,c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZsymv_assumed_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + ! + hipblasZsymv_assumed_rank = hipblasZsymv_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasZsymv_assumed_rank_devptr(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymv_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + ! + hipblasZsymv_assumed_rank_devptr = hipblasZsymv_(handle,uplo,n,alpha,c_loc(AP),lda,c_loc(x), & + incx,beta,c_loc(y),incy) + end function + +#else + function hipblasZsymv_rank_0(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int) :: lda + complex(c_double_complex),target :: x + integer(c_int) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: y + integer(c_int) :: incy + ! + hipblasZsymv_rank_0 = hipblasZsymv_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x),incx, & + c_loc(beta),c_loc(y),incy) + end function + + function hipblasZsymv_rank_0_devptr(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymv_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target :: AP + integer(c_int) :: lda + complex(c_double_complex),target :: x + integer(c_int) :: incx + type(c_ptr),value :: beta + complex(c_double_complex),target :: y + integer(c_int) :: incy + ! + hipblasZsymv_rank_0_devptr = hipblasZsymv_(handle,uplo,n,alpha,c_loc(AP),lda,c_loc(x),incx, & + beta,c_loc(y),incy) + end function + + function hipblasZsymv_rank_1(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasZsymv_rank_1 = hipblasZsymv_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x),incx, & + c_loc(beta),c_loc(y),incy) + end function + + function hipblasZsymv_rank_1_devptr(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymv_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasZsymv_rank_1_devptr = hipblasZsymv_(handle,uplo,n,alpha,c_loc(AP),lda,c_loc(x),incx, & + beta,c_loc(y),incy) + end function + + function hipblasZsymv_full_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymv_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasZsymv_full_rank = hipblasZsymv_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasZsymv_full_rank_devptr(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymv_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + ! + hipblasZsymv_full_rank_devptr = hipblasZsymv_(handle,uplo,n,alpha,c_loc(AP),lda,c_loc(x), & + incx,beta,c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSsymv_64_assumed_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_float),target :: beta + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy + ! + hipblasSsymv_64_assumed_rank = hipblasSsymv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasSsymv_64_assumed_rank_devptr(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymv_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy + ! + hipblasSsymv_64_assumed_rank_devptr = hipblasSsymv_64_(handle,uplo,n,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) + end function + +#else + function hipblasSsymv_64_rank_0(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int64_t) :: lda + real(c_float),target :: x + integer(c_int64_t) :: incx + real(c_float),target :: beta + real(c_float),target :: y + integer(c_int64_t) :: incy + ! + hipblasSsymv_64_rank_0 = hipblasSsymv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasSsymv_64_rank_0_devptr(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymv_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target :: AP + integer(c_int64_t) :: lda + real(c_float),target :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + real(c_float),target :: y + integer(c_int64_t) :: incy + ! + hipblasSsymv_64_rank_0_devptr = hipblasSsymv_64_(handle,uplo,n,alpha,c_loc(AP),lda,c_loc(x), & + incx,beta,c_loc(y),incy) + end function + + function hipblasSsymv_64_rank_1(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_float),target :: beta + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasSsymv_64_rank_1 = hipblasSsymv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasSsymv_64_rank_1_devptr(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymv_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasSsymv_64_rank_1_devptr = hipblasSsymv_64_(handle,uplo,n,alpha,c_loc(AP),lda,c_loc(x), & + incx,beta,c_loc(y),incy) + end function + + function hipblasSsymv_64_full_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymv_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_float),target :: beta + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasSsymv_64_full_rank = hipblasSsymv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasSsymv_64_full_rank_devptr(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymv_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasSsymv_64_full_rank_devptr = hipblasSsymv_64_(handle,uplo,n,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDsymv_64_assumed_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_double),target :: beta + real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: incy + ! + hipblasDsymv_64_assumed_rank = hipblasDsymv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasDsymv_64_assumed_rank_devptr(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymv_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: incy + ! + hipblasDsymv_64_assumed_rank_devptr = hipblasDsymv_64_(handle,uplo,n,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) + end function + +#else + function hipblasDsymv_64_rank_0(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int64_t) :: lda + real(c_double),target :: x + integer(c_int64_t) :: incx + real(c_double),target :: beta + real(c_double),target :: y + integer(c_int64_t) :: incy + ! + hipblasDsymv_64_rank_0 = hipblasDsymv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasDsymv_64_rank_0_devptr(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymv_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target :: AP + integer(c_int64_t) :: lda + real(c_double),target :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + real(c_double),target :: y + integer(c_int64_t) :: incy + ! + hipblasDsymv_64_rank_0_devptr = hipblasDsymv_64_(handle,uplo,n,alpha,c_loc(AP),lda,c_loc(x), & + incx,beta,c_loc(y),incy) + end function + + function hipblasDsymv_64_rank_1(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_double),target :: beta + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasDsymv_64_rank_1 = hipblasDsymv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasDsymv_64_rank_1_devptr(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymv_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasDsymv_64_rank_1_devptr = hipblasDsymv_64_(handle,uplo,n,alpha,c_loc(AP),lda,c_loc(x), & + incx,beta,c_loc(y),incy) + end function + + function hipblasDsymv_64_full_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymv_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_double),target :: beta + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasDsymv_64_full_rank = hipblasDsymv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasDsymv_64_full_rank_devptr(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymv_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasDsymv_64_full_rank_devptr = hipblasDsymv_64_(handle,uplo,n,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCsymv_64_assumed_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + ! + hipblasCsymv_64_assumed_rank = hipblasCsymv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasCsymv_64_assumed_rank_devptr(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymv_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + ! + hipblasCsymv_64_assumed_rank_devptr = hipblasCsymv_64_(handle,uplo,n,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) + end function + +#else + function hipblasCsymv_64_rank_0(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + ! + hipblasCsymv_64_rank_0 = hipblasCsymv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasCsymv_64_rank_0_devptr(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymv_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + ! + hipblasCsymv_64_rank_0_devptr = hipblasCsymv_64_(handle,uplo,n,alpha,c_loc(AP),lda,c_loc(x), & + incx,beta,c_loc(y),incy) + end function + + function hipblasCsymv_64_rank_1(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasCsymv_64_rank_1 = hipblasCsymv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasCsymv_64_rank_1_devptr(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymv_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasCsymv_64_rank_1_devptr = hipblasCsymv_64_(handle,uplo,n,alpha,c_loc(AP),lda,c_loc(x), & + incx,beta,c_loc(y),incy) + end function + + function hipblasCsymv_64_full_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymv_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasCsymv_64_full_rank = hipblasCsymv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasCsymv_64_full_rank_devptr(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymv_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasCsymv_64_full_rank_devptr = hipblasCsymv_64_(handle,uplo,n,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZsymv_64_assumed_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + ! + hipblasZsymv_64_assumed_rank = hipblasZsymv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasZsymv_64_assumed_rank_devptr(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymv_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + ! + hipblasZsymv_64_assumed_rank_devptr = hipblasZsymv_64_(handle,uplo,n,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) + end function + +#else + function hipblasZsymv_64_rank_0(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + ! + hipblasZsymv_64_rank_0 = hipblasZsymv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasZsymv_64_rank_0_devptr(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymv_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + ! + hipblasZsymv_64_rank_0_devptr = hipblasZsymv_64_(handle,uplo,n,alpha,c_loc(AP),lda,c_loc(x), & + incx,beta,c_loc(y),incy) + end function + + function hipblasZsymv_64_rank_1(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasZsymv_64_rank_1 = hipblasZsymv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda,c_loc(x), & + incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasZsymv_64_rank_1_devptr(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymv_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasZsymv_64_rank_1_devptr = hipblasZsymv_64_(handle,uplo,n,alpha,c_loc(AP),lda,c_loc(x), & + incx,beta,c_loc(y),incy) + end function + + function hipblasZsymv_64_full_rank(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymv_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasZsymv_64_full_rank = hipblasZsymv_64_(handle,uplo,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(x),incx,c_loc(beta),c_loc(y),incy) + end function + + function hipblasZsymv_64_full_rank_devptr(handle,uplo,n,alpha,AP,lda,x,incx,beta,y,incy) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymv_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + ! + hipblasZsymv_64_full_rank_devptr = hipblasZsymv_64_(handle,uplo,n,alpha,c_loc(AP),lda, & + c_loc(x),incx,beta,c_loc(y),incy) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSsymvStridedBatched_assumed_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasSsymvStridedBatched_assumed_rank = hipblasSsymvStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasSsymvStridedBatched_assumed_rank_devptr(handle,uplo,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymvStridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_float),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasSsymvStridedBatched_assumed_rank_devptr = hipblasSsymvStridedBatched_(handle,uplo,n, & + alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + +#else + function hipblasSsymvStridedBatched_rank_0(handle,uplo,n,alpha,AP,lda,strideA,x,incx,stridex, & + beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasSsymvStridedBatched_rank_0 = hipblasSsymvStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey,batchCount) + end function + + function hipblasSsymvStridedBatched_rank_0_devptr(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymvStridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_float),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasSsymvStridedBatched_rank_0_devptr = hipblasSsymvStridedBatched_(handle,uplo,n,alpha, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasSsymvStridedBatched_rank_1(handle,uplo,n,alpha,AP,lda,strideA,x,incx,stridex, & + beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasSsymvStridedBatched_rank_1 = hipblasSsymvStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey,batchCount) + end function + + function hipblasSsymvStridedBatched_rank_1_devptr(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymvStridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasSsymvStridedBatched_rank_1_devptr = hipblasSsymvStridedBatched_(handle,uplo,n,alpha, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasSsymvStridedBatched_full_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymvStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasSsymvStridedBatched_full_rank = hipblasSsymvStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasSsymvStridedBatched_full_rank_devptr(handle,uplo,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymvStridedBatched_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasSsymvStridedBatched_full_rank_devptr = hipblasSsymvStridedBatched_(handle,uplo,n, & + alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasSsymvStridedBatched_strided_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymvStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasSsymvStridedBatched_strided_rank = hipblasSsymvStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasSsymvStridedBatched_strided_rank_devptr(handle,uplo,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymvStridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_float),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasSsymvStridedBatched_strided_rank_devptr = hipblasSsymvStridedBatched_(handle,uplo,n, & + alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDsymvStridedBatched_assumed_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasDsymvStridedBatched_assumed_rank = hipblasDsymvStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasDsymvStridedBatched_assumed_rank_devptr(handle,uplo,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymvStridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_double),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasDsymvStridedBatched_assumed_rank_devptr = hipblasDsymvStridedBatched_(handle,uplo,n, & + alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + +#else + function hipblasDsymvStridedBatched_rank_0(handle,uplo,n,alpha,AP,lda,strideA,x,incx,stridex, & + beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasDsymvStridedBatched_rank_0 = hipblasDsymvStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey,batchCount) + end function + + function hipblasDsymvStridedBatched_rank_0_devptr(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymvStridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_double),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasDsymvStridedBatched_rank_0_devptr = hipblasDsymvStridedBatched_(handle,uplo,n,alpha, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasDsymvStridedBatched_rank_1(handle,uplo,n,alpha,AP,lda,strideA,x,incx,stridex, & + beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasDsymvStridedBatched_rank_1 = hipblasDsymvStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey,batchCount) + end function + + function hipblasDsymvStridedBatched_rank_1_devptr(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymvStridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasDsymvStridedBatched_rank_1_devptr = hipblasDsymvStridedBatched_(handle,uplo,n,alpha, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasDsymvStridedBatched_full_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymvStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasDsymvStridedBatched_full_rank = hipblasDsymvStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasDsymvStridedBatched_full_rank_devptr(handle,uplo,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymvStridedBatched_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasDsymvStridedBatched_full_rank_devptr = hipblasDsymvStridedBatched_(handle,uplo,n, & + alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasDsymvStridedBatched_strided_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymvStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasDsymvStridedBatched_strided_rank = hipblasDsymvStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasDsymvStridedBatched_strided_rank_devptr(handle,uplo,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymvStridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_double),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasDsymvStridedBatched_strided_rank_devptr = hipblasDsymvStridedBatched_(handle,uplo,n, & + alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCsymvStridedBatched_assumed_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasCsymvStridedBatched_assumed_rank = hipblasCsymvStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasCsymvStridedBatched_assumed_rank_devptr(handle,uplo,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymvStridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasCsymvStridedBatched_assumed_rank_devptr = hipblasCsymvStridedBatched_(handle,uplo,n, & + alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + +#else + function hipblasCsymvStridedBatched_rank_0(handle,uplo,n,alpha,AP,lda,strideA,x,incx,stridex, & + beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasCsymvStridedBatched_rank_0 = hipblasCsymvStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey,batchCount) + end function + + function hipblasCsymvStridedBatched_rank_0_devptr(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymvStridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_float_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasCsymvStridedBatched_rank_0_devptr = hipblasCsymvStridedBatched_(handle,uplo,n,alpha, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasCsymvStridedBatched_rank_1(handle,uplo,n,alpha,AP,lda,strideA,x,incx,stridex, & + beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasCsymvStridedBatched_rank_1 = hipblasCsymvStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey,batchCount) + end function + + function hipblasCsymvStridedBatched_rank_1_devptr(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymvStridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasCsymvStridedBatched_rank_1_devptr = hipblasCsymvStridedBatched_(handle,uplo,n,alpha, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasCsymvStridedBatched_full_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymvStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasCsymvStridedBatched_full_rank = hipblasCsymvStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasCsymvStridedBatched_full_rank_devptr(handle,uplo,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymvStridedBatched_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasCsymvStridedBatched_full_rank_devptr = hipblasCsymvStridedBatched_(handle,uplo,n, & + alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasCsymvStridedBatched_strided_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymvStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasCsymvStridedBatched_strided_rank = hipblasCsymvStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasCsymvStridedBatched_strided_rank_devptr(handle,uplo,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymvStridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasCsymvStridedBatched_strided_rank_devptr = hipblasCsymvStridedBatched_(handle,uplo,n, & + alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZsymvStridedBatched_assumed_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZsymvStridedBatched_assumed_rank = hipblasZsymvStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasZsymvStridedBatched_assumed_rank_devptr(handle,uplo,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymvStridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZsymvStridedBatched_assumed_rank_devptr = hipblasZsymvStridedBatched_(handle,uplo,n, & + alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + +#else + function hipblasZsymvStridedBatched_rank_0(handle,uplo,n,alpha,AP,lda,strideA,x,incx,stridex, & + beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZsymvStridedBatched_rank_0 = hipblasZsymvStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey,batchCount) + end function + + function hipblasZsymvStridedBatched_rank_0_devptr(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymvStridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_double_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZsymvStridedBatched_rank_0_devptr = hipblasZsymvStridedBatched_(handle,uplo,n,alpha, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasZsymvStridedBatched_rank_1(handle,uplo,n,alpha,AP,lda,strideA,x,incx,stridex, & + beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZsymvStridedBatched_rank_1 = hipblasZsymvStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy,stridey,batchCount) + end function + + function hipblasZsymvStridedBatched_rank_1_devptr(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymvStridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZsymvStridedBatched_rank_1_devptr = hipblasZsymvStridedBatched_(handle,uplo,n,alpha, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasZsymvStridedBatched_full_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymvStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZsymvStridedBatched_full_rank = hipblasZsymvStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasZsymvStridedBatched_full_rank_devptr(handle,uplo,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymvStridedBatched_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZsymvStridedBatched_full_rank_devptr = hipblasZsymvStridedBatched_(handle,uplo,n, & + alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasZsymvStridedBatched_strided_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymvStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZsymvStridedBatched_strided_rank = hipblasZsymvStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasZsymvStridedBatched_strided_rank_devptr(handle,uplo,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymvStridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + integer(c_int) :: batchCount + ! + hipblasZsymvStridedBatched_strided_rank_devptr = hipblasZsymvStridedBatched_(handle,uplo,n, & + alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSsymvStridedBatched_64_assumed_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasSsymvStridedBatched_64_assumed_rank = hipblasSsymvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasSsymvStridedBatched_64_assumed_rank_devptr(handle,uplo,n,alpha,AP,lda,strideA, & + x,incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymvStridedBatched_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasSsymvStridedBatched_64_assumed_rank_devptr = hipblasSsymvStridedBatched_64_(handle, & + uplo,n,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey, & + batchCount) + end function + +#else + function hipblasSsymvStridedBatched_64_rank_0(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasSsymvStridedBatched_64_rank_0 = hipblasSsymvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasSsymvStridedBatched_64_rank_0_devptr(handle,uplo,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymvStridedBatched_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_float),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasSsymvStridedBatched_64_rank_0_devptr = hipblasSsymvStridedBatched_64_(handle,uplo,n, & + alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasSsymvStridedBatched_64_rank_1(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasSsymvStridedBatched_64_rank_1 = hipblasSsymvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasSsymvStridedBatched_64_rank_1_devptr(handle,uplo,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymvStridedBatched_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasSsymvStridedBatched_64_rank_1_devptr = hipblasSsymvStridedBatched_64_(handle,uplo,n, & + alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasSsymvStridedBatched_64_full_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymvStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasSsymvStridedBatched_64_full_rank = hipblasSsymvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasSsymvStridedBatched_64_full_rank_devptr(handle,uplo,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymvStridedBatched_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasSsymvStridedBatched_64_full_rank_devptr = hipblasSsymvStridedBatched_64_(handle,uplo, & + n,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasSsymvStridedBatched_64_strided_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymvStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: beta + real(c_float),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasSsymvStridedBatched_64_strided_rank = hipblasSsymvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasSsymvStridedBatched_64_strided_rank_devptr(handle,uplo,n,alpha,AP,lda,strideA, & + x,incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymvStridedBatched_64_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_float),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasSsymvStridedBatched_64_strided_rank_devptr = hipblasSsymvStridedBatched_64_(handle, & + uplo,n,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey, & + batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDsymvStridedBatched_64_assumed_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasDsymvStridedBatched_64_assumed_rank = hipblasDsymvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasDsymvStridedBatched_64_assumed_rank_devptr(handle,uplo,n,alpha,AP,lda,strideA, & + x,incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymvStridedBatched_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasDsymvStridedBatched_64_assumed_rank_devptr = hipblasDsymvStridedBatched_64_(handle, & + uplo,n,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey, & + batchCount) + end function + +#else + function hipblasDsymvStridedBatched_64_rank_0(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasDsymvStridedBatched_64_rank_0 = hipblasDsymvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasDsymvStridedBatched_64_rank_0_devptr(handle,uplo,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymvStridedBatched_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_double),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasDsymvStridedBatched_64_rank_0_devptr = hipblasDsymvStridedBatched_64_(handle,uplo,n, & + alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasDsymvStridedBatched_64_rank_1(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasDsymvStridedBatched_64_rank_1 = hipblasDsymvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasDsymvStridedBatched_64_rank_1_devptr(handle,uplo,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymvStridedBatched_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasDsymvStridedBatched_64_rank_1_devptr = hipblasDsymvStridedBatched_64_(handle,uplo,n, & + alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasDsymvStridedBatched_64_full_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymvStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasDsymvStridedBatched_64_full_rank = hipblasDsymvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasDsymvStridedBatched_64_full_rank_devptr(handle,uplo,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymvStridedBatched_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasDsymvStridedBatched_64_full_rank_devptr = hipblasDsymvStridedBatched_64_(handle,uplo, & + n,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasDsymvStridedBatched_64_strided_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymvStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasDsymvStridedBatched_64_strided_rank = hipblasDsymvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasDsymvStridedBatched_64_strided_rank_devptr(handle,uplo,n,alpha,AP,lda,strideA, & + x,incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymvStridedBatched_64_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_double),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasDsymvStridedBatched_64_strided_rank_devptr = hipblasDsymvStridedBatched_64_(handle, & + uplo,n,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey, & + batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCsymvStridedBatched_64_assumed_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasCsymvStridedBatched_64_assumed_rank = hipblasCsymvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasCsymvStridedBatched_64_assumed_rank_devptr(handle,uplo,n,alpha,AP,lda,strideA, & + x,incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymvStridedBatched_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasCsymvStridedBatched_64_assumed_rank_devptr = hipblasCsymvStridedBatched_64_(handle, & + uplo,n,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey, & + batchCount) + end function + +#else + function hipblasCsymvStridedBatched_64_rank_0(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasCsymvStridedBatched_64_rank_0 = hipblasCsymvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasCsymvStridedBatched_64_rank_0_devptr(handle,uplo,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymvStridedBatched_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasCsymvStridedBatched_64_rank_0_devptr = hipblasCsymvStridedBatched_64_(handle,uplo,n, & + alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasCsymvStridedBatched_64_rank_1(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasCsymvStridedBatched_64_rank_1 = hipblasCsymvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasCsymvStridedBatched_64_rank_1_devptr(handle,uplo,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymvStridedBatched_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasCsymvStridedBatched_64_rank_1_devptr = hipblasCsymvStridedBatched_64_(handle,uplo,n, & + alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasCsymvStridedBatched_64_full_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymvStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasCsymvStridedBatched_64_full_rank = hipblasCsymvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasCsymvStridedBatched_64_full_rank_devptr(handle,uplo,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymvStridedBatched_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasCsymvStridedBatched_64_full_rank_devptr = hipblasCsymvStridedBatched_64_(handle,uplo, & + n,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasCsymvStridedBatched_64_strided_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymvStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasCsymvStridedBatched_64_strided_rank = hipblasCsymvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasCsymvStridedBatched_64_strided_rank_devptr(handle,uplo,n,alpha,AP,lda,strideA, & + x,incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymvStridedBatched_64_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasCsymvStridedBatched_64_strided_rank_devptr = hipblasCsymvStridedBatched_64_(handle, & + uplo,n,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey, & + batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZsymvStridedBatched_64_assumed_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZsymvStridedBatched_64_assumed_rank = hipblasZsymvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasZsymvStridedBatched_64_assumed_rank_devptr(handle,uplo,n,alpha,AP,lda,strideA, & + x,incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymvStridedBatched_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZsymvStridedBatched_64_assumed_rank_devptr = hipblasZsymvStridedBatched_64_(handle, & + uplo,n,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey, & + batchCount) + end function + +#else + function hipblasZsymvStridedBatched_64_rank_0(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZsymvStridedBatched_64_rank_0 = hipblasZsymvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasZsymvStridedBatched_64_rank_0_devptr(handle,uplo,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymvStridedBatched_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZsymvStridedBatched_64_rank_0_devptr = hipblasZsymvStridedBatched_64_(handle,uplo,n, & + alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasZsymvStridedBatched_64_rank_1(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZsymvStridedBatched_64_rank_1 = hipblasZsymvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasZsymvStridedBatched_64_rank_1_devptr(handle,uplo,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymvStridedBatched_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZsymvStridedBatched_64_rank_1_devptr = hipblasZsymvStridedBatched_64_(handle,uplo,n, & + alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasZsymvStridedBatched_64_full_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymvStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZsymvStridedBatched_64_full_rank = hipblasZsymvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasZsymvStridedBatched_64_full_rank_devptr(handle,uplo,n,alpha,AP,lda,strideA,x, & + incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymvStridedBatched_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZsymvStridedBatched_64_full_rank_devptr = hipblasZsymvStridedBatched_64_(handle,uplo, & + n,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey,batchCount) + end function + + function hipblasZsymvStridedBatched_64_strided_rank(handle,uplo,n,alpha,AP,lda,strideA,x,incx, & + stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymvStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZsymvStridedBatched_64_strided_rank = hipblasZsymvStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(beta),c_loc(y),incy, & + stridey,batchCount) + end function + + function hipblasZsymvStridedBatched_64_strided_rank_devptr(handle,uplo,n,alpha,AP,lda,strideA, & + x,incx,stridex,beta,y,incy,stridey,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymvStridedBatched_64_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + integer(c_int64_t) :: batchCount + ! + hipblasZsymvStridedBatched_64_strided_rank_devptr = hipblasZsymvStridedBatched_64_(handle, & + uplo,n,alpha,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,beta,c_loc(y),incy,stridey, & + batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSsyr_assumed_rank(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + ! + hipblasSsyr_assumed_rank = hipblasSsyr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP), & + lda) + end function + + function hipblasSsyr_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + ! + hipblasSsyr_assumed_rank_devptr = hipblasSsyr_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(AP), & + lda) + end function + +#else + function hipblasSsyr_rank_0(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target :: x + integer(c_int) :: incx + real(c_float),target :: AP + integer(c_int) :: lda + ! + hipblasSsyr_rank_0 = hipblasSsyr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP),lda) + end function + + function hipblasSsyr_rank_0_devptr(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target :: x + integer(c_int) :: incx + real(c_float),target :: AP + integer(c_int) :: lda + ! + hipblasSsyr_rank_0_devptr = hipblasSsyr_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(AP),lda) + end function + + function hipblasSsyr_rank_1(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + ! + hipblasSsyr_rank_1 = hipblasSsyr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP),lda) + end function + + function hipblasSsyr_rank_1_devptr(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + ! + hipblasSsyr_rank_1_devptr = hipblasSsyr_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(AP),lda) + end function + + function hipblasSsyr_full_rank(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + ! + hipblasSsyr_full_rank = hipblasSsyr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP),lda) + end function + + function hipblasSsyr_full_rank_devptr(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + ! + hipblasSsyr_full_rank_devptr = hipblasSsyr_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(AP),lda) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDsyr_assumed_rank(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + ! + hipblasDsyr_assumed_rank = hipblasDsyr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP), & + lda) + end function + + function hipblasDsyr_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + ! + hipblasDsyr_assumed_rank_devptr = hipblasDsyr_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(AP), & + lda) + end function + +#else + function hipblasDsyr_rank_0(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target :: x + integer(c_int) :: incx + real(c_double),target :: AP + integer(c_int) :: lda + ! + hipblasDsyr_rank_0 = hipblasDsyr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP),lda) + end function + + function hipblasDsyr_rank_0_devptr(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target :: x + integer(c_int) :: incx + real(c_double),target :: AP + integer(c_int) :: lda + ! + hipblasDsyr_rank_0_devptr = hipblasDsyr_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(AP),lda) + end function + + function hipblasDsyr_rank_1(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + ! + hipblasDsyr_rank_1 = hipblasDsyr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP),lda) + end function + + function hipblasDsyr_rank_1_devptr(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + ! + hipblasDsyr_rank_1_devptr = hipblasDsyr_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(AP),lda) + end function + + function hipblasDsyr_full_rank(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + ! + hipblasDsyr_full_rank = hipblasDsyr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP),lda) + end function + + function hipblasDsyr_full_rank_devptr(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + ! + hipblasDsyr_full_rank_devptr = hipblasDsyr_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(AP),lda) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCsyr_assumed_rank(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + ! + hipblasCsyr_assumed_rank = hipblasCsyr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP), & + lda) + end function + + function hipblasCsyr_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + ! + hipblasCsyr_assumed_rank_devptr = hipblasCsyr_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(AP), & + lda) + end function + +#else + function hipblasCsyr_rank_0(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: x + integer(c_int) :: incx + complex(c_float_complex),target :: AP + integer(c_int) :: lda + ! + hipblasCsyr_rank_0 = hipblasCsyr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP),lda) + end function + + function hipblasCsyr_rank_0_devptr(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target :: x + integer(c_int) :: incx + complex(c_float_complex),target :: AP + integer(c_int) :: lda + ! + hipblasCsyr_rank_0_devptr = hipblasCsyr_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(AP),lda) + end function + + function hipblasCsyr_rank_1(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + ! + hipblasCsyr_rank_1 = hipblasCsyr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP),lda) + end function + + function hipblasCsyr_rank_1_devptr(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + ! + hipblasCsyr_rank_1_devptr = hipblasCsyr_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(AP),lda) + end function + + function hipblasCsyr_full_rank(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + ! + hipblasCsyr_full_rank = hipblasCsyr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP),lda) + end function + + function hipblasCsyr_full_rank_devptr(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + ! + hipblasCsyr_full_rank_devptr = hipblasCsyr_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(AP),lda) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZsyr_assumed_rank(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + ! + hipblasZsyr_assumed_rank = hipblasZsyr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP), & + lda) + end function + + function hipblasZsyr_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + ! + hipblasZsyr_assumed_rank_devptr = hipblasZsyr_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(AP), & + lda) + end function + +#else + function hipblasZsyr_rank_0(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: x + integer(c_int) :: incx + complex(c_double_complex),target :: AP + integer(c_int) :: lda + ! + hipblasZsyr_rank_0 = hipblasZsyr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP),lda) + end function + + function hipblasZsyr_rank_0_devptr(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target :: x + integer(c_int) :: incx + complex(c_double_complex),target :: AP + integer(c_int) :: lda + ! + hipblasZsyr_rank_0_devptr = hipblasZsyr_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(AP),lda) + end function + + function hipblasZsyr_rank_1(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + ! + hipblasZsyr_rank_1 = hipblasZsyr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP),lda) + end function + + function hipblasZsyr_rank_1_devptr(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + ! + hipblasZsyr_rank_1_devptr = hipblasZsyr_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(AP),lda) + end function + + function hipblasZsyr_full_rank(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + ! + hipblasZsyr_full_rank = hipblasZsyr_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP),lda) + end function + + function hipblasZsyr_full_rank_devptr(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + ! + hipblasZsyr_full_rank_devptr = hipblasZsyr_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(AP),lda) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSsyr_64_assumed_rank(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + ! + hipblasSsyr_64_assumed_rank = hipblasSsyr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & + c_loc(AP),lda) + end function + + function hipblasSsyr_64_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + ! + hipblasSsyr_64_assumed_rank_devptr = hipblasSsyr_64_(handle,uplo,n,alpha,c_loc(x),incx, & + c_loc(AP),lda) + end function + +#else + function hipblasSsyr_64_rank_0(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target :: x + integer(c_int64_t) :: incx + real(c_float),target :: AP + integer(c_int64_t) :: lda + ! + hipblasSsyr_64_rank_0 = hipblasSsyr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP), & + lda) + end function + + function hipblasSsyr_64_rank_0_devptr(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target :: x + integer(c_int64_t) :: incx + real(c_float),target :: AP + integer(c_int64_t) :: lda + ! + hipblasSsyr_64_rank_0_devptr = hipblasSsyr_64_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(AP), & + lda) + end function + + function hipblasSsyr_64_rank_1(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + ! + hipblasSsyr_64_rank_1 = hipblasSsyr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP), & + lda) + end function + + function hipblasSsyr_64_rank_1_devptr(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + ! + hipblasSsyr_64_rank_1_devptr = hipblasSsyr_64_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(AP), & + lda) + end function + + function hipblasSsyr_64_full_rank(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + ! + hipblasSsyr_64_full_rank = hipblasSsyr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & + c_loc(AP),lda) + end function + + function hipblasSsyr_64_full_rank_devptr(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + ! + hipblasSsyr_64_full_rank_devptr = hipblasSsyr_64_(handle,uplo,n,alpha,c_loc(x),incx, & + c_loc(AP),lda) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDsyr_64_assumed_rank(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + ! + hipblasDsyr_64_assumed_rank = hipblasDsyr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & + c_loc(AP),lda) + end function + + function hipblasDsyr_64_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + ! + hipblasDsyr_64_assumed_rank_devptr = hipblasDsyr_64_(handle,uplo,n,alpha,c_loc(x),incx, & + c_loc(AP),lda) + end function + +#else + function hipblasDsyr_64_rank_0(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target :: x + integer(c_int64_t) :: incx + real(c_double),target :: AP + integer(c_int64_t) :: lda + ! + hipblasDsyr_64_rank_0 = hipblasDsyr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP), & + lda) + end function + + function hipblasDsyr_64_rank_0_devptr(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target :: x + integer(c_int64_t) :: incx + real(c_double),target :: AP + integer(c_int64_t) :: lda + ! + hipblasDsyr_64_rank_0_devptr = hipblasDsyr_64_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(AP), & + lda) + end function + + function hipblasDsyr_64_rank_1(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + ! + hipblasDsyr_64_rank_1 = hipblasDsyr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP), & + lda) + end function + + function hipblasDsyr_64_rank_1_devptr(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + ! + hipblasDsyr_64_rank_1_devptr = hipblasDsyr_64_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(AP), & + lda) + end function + + function hipblasDsyr_64_full_rank(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + ! + hipblasDsyr_64_full_rank = hipblasDsyr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & + c_loc(AP),lda) + end function + + function hipblasDsyr_64_full_rank_devptr(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + ! + hipblasDsyr_64_full_rank_devptr = hipblasDsyr_64_(handle,uplo,n,alpha,c_loc(x),incx, & + c_loc(AP),lda) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCsyr_64_assumed_rank(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + ! + hipblasCsyr_64_assumed_rank = hipblasCsyr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & + c_loc(AP),lda) + end function + + function hipblasCsyr_64_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + ! + hipblasCsyr_64_assumed_rank_devptr = hipblasCsyr_64_(handle,uplo,n,alpha,c_loc(x),incx, & + c_loc(AP),lda) + end function + +#else + function hipblasCsyr_64_rank_0(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + ! + hipblasCsyr_64_rank_0 = hipblasCsyr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP), & + lda) + end function + + function hipblasCsyr_64_rank_0_devptr(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + ! + hipblasCsyr_64_rank_0_devptr = hipblasCsyr_64_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(AP), & + lda) + end function + + function hipblasCsyr_64_rank_1(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + ! + hipblasCsyr_64_rank_1 = hipblasCsyr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP), & + lda) + end function + + function hipblasCsyr_64_rank_1_devptr(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + ! + hipblasCsyr_64_rank_1_devptr = hipblasCsyr_64_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(AP), & + lda) + end function + + function hipblasCsyr_64_full_rank(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + ! + hipblasCsyr_64_full_rank = hipblasCsyr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & + c_loc(AP),lda) + end function + + function hipblasCsyr_64_full_rank_devptr(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + ! + hipblasCsyr_64_full_rank_devptr = hipblasCsyr_64_(handle,uplo,n,alpha,c_loc(x),incx, & + c_loc(AP),lda) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZsyr_64_assumed_rank(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + ! + hipblasZsyr_64_assumed_rank = hipblasZsyr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & + c_loc(AP),lda) + end function + + function hipblasZsyr_64_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + ! + hipblasZsyr_64_assumed_rank_devptr = hipblasZsyr_64_(handle,uplo,n,alpha,c_loc(x),incx, & + c_loc(AP),lda) + end function + +#else + function hipblasZsyr_64_rank_0(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + ! + hipblasZsyr_64_rank_0 = hipblasZsyr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP), & + lda) + end function + + function hipblasZsyr_64_rank_0_devptr(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + ! + hipblasZsyr_64_rank_0_devptr = hipblasZsyr_64_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(AP), & + lda) + end function + + function hipblasZsyr_64_rank_1(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + ! + hipblasZsyr_64_rank_1 = hipblasZsyr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(AP), & + lda) + end function + + function hipblasZsyr_64_rank_1_devptr(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + ! + hipblasZsyr_64_rank_1_devptr = hipblasZsyr_64_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(AP), & + lda) + end function + + function hipblasZsyr_64_full_rank(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + ! + hipblasZsyr_64_full_rank = hipblasZsyr_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & + c_loc(AP),lda) + end function + + function hipblasZsyr_64_full_rank_devptr(handle,uplo,n,alpha,x,incx,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + ! + hipblasZsyr_64_full_rank_devptr = hipblasZsyr_64_(handle,uplo,n,alpha,c_loc(x),incx, & + c_loc(AP),lda) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSsyrStridedBatched_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasSsyrStridedBatched_assumed_rank = hipblasSsyrStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasSsyrStridedBatched_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,stridex,AP, & + lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrStridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasSsyrStridedBatched_assumed_rank_devptr = hipblasSsyrStridedBatched_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + +#else + function hipblasSsyrStridedBatched_rank_0(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasSsyrStridedBatched_rank_0 = hipblasSsyrStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasSsyrStridedBatched_rank_0_devptr(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrStridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasSsyrStridedBatched_rank_0_devptr = hipblasSsyrStridedBatched_(handle,uplo,n,alpha, & + c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasSsyrStridedBatched_rank_1(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasSsyrStridedBatched_rank_1 = hipblasSsyrStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasSsyrStridedBatched_rank_1_devptr(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrStridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasSsyrStridedBatched_rank_1_devptr = hipblasSsyrStridedBatched_(handle,uplo,n,alpha, & + c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasSsyrStridedBatched_full_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasSsyrStridedBatched_full_rank = hipblasSsyrStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasSsyrStridedBatched_full_rank_devptr(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrStridedBatched_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasSsyrStridedBatched_full_rank_devptr = hipblasSsyrStridedBatched_(handle,uplo,n,alpha, & + c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasSsyrStridedBatched_strided_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasSsyrStridedBatched_strided_rank = hipblasSsyrStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasSsyrStridedBatched_strided_rank_devptr(handle,uplo,n,alpha,x,incx,stridex,AP, & + lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrStridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasSsyrStridedBatched_strided_rank_devptr = hipblasSsyrStridedBatched_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDsyrStridedBatched_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasDsyrStridedBatched_assumed_rank = hipblasDsyrStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasDsyrStridedBatched_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,stridex,AP, & + lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrStridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasDsyrStridedBatched_assumed_rank_devptr = hipblasDsyrStridedBatched_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + +#else + function hipblasDsyrStridedBatched_rank_0(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasDsyrStridedBatched_rank_0 = hipblasDsyrStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasDsyrStridedBatched_rank_0_devptr(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrStridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasDsyrStridedBatched_rank_0_devptr = hipblasDsyrStridedBatched_(handle,uplo,n,alpha, & + c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasDsyrStridedBatched_rank_1(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasDsyrStridedBatched_rank_1 = hipblasDsyrStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasDsyrStridedBatched_rank_1_devptr(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrStridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasDsyrStridedBatched_rank_1_devptr = hipblasDsyrStridedBatched_(handle,uplo,n,alpha, & + c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasDsyrStridedBatched_full_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasDsyrStridedBatched_full_rank = hipblasDsyrStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasDsyrStridedBatched_full_rank_devptr(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrStridedBatched_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasDsyrStridedBatched_full_rank_devptr = hipblasDsyrStridedBatched_(handle,uplo,n,alpha, & + c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasDsyrStridedBatched_strided_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasDsyrStridedBatched_strided_rank = hipblasDsyrStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasDsyrStridedBatched_strided_rank_devptr(handle,uplo,n,alpha,x,incx,stridex,AP, & + lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrStridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasDsyrStridedBatched_strided_rank_devptr = hipblasDsyrStridedBatched_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCsyrStridedBatched_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCsyrStridedBatched_assumed_rank = hipblasCsyrStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCsyrStridedBatched_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,stridex,AP, & + lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrStridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCsyrStridedBatched_assumed_rank_devptr = hipblasCsyrStridedBatched_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + +#else + function hipblasCsyrStridedBatched_rank_0(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCsyrStridedBatched_rank_0 = hipblasCsyrStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCsyrStridedBatched_rank_0_devptr(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrStridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCsyrStridedBatched_rank_0_devptr = hipblasCsyrStridedBatched_(handle,uplo,n,alpha, & + c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCsyrStridedBatched_rank_1(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCsyrStridedBatched_rank_1 = hipblasCsyrStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCsyrStridedBatched_rank_1_devptr(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrStridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCsyrStridedBatched_rank_1_devptr = hipblasCsyrStridedBatched_(handle,uplo,n,alpha, & + c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCsyrStridedBatched_full_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCsyrStridedBatched_full_rank = hipblasCsyrStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCsyrStridedBatched_full_rank_devptr(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrStridedBatched_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCsyrStridedBatched_full_rank_devptr = hipblasCsyrStridedBatched_(handle,uplo,n,alpha, & + c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCsyrStridedBatched_strided_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCsyrStridedBatched_strided_rank = hipblasCsyrStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCsyrStridedBatched_strided_rank_devptr(handle,uplo,n,alpha,x,incx,stridex,AP, & + lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrStridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCsyrStridedBatched_strided_rank_devptr = hipblasCsyrStridedBatched_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZsyrStridedBatched_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZsyrStridedBatched_assumed_rank = hipblasZsyrStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZsyrStridedBatched_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,stridex,AP, & + lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrStridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZsyrStridedBatched_assumed_rank_devptr = hipblasZsyrStridedBatched_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + +#else + function hipblasZsyrStridedBatched_rank_0(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZsyrStridedBatched_rank_0 = hipblasZsyrStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZsyrStridedBatched_rank_0_devptr(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrStridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZsyrStridedBatched_rank_0_devptr = hipblasZsyrStridedBatched_(handle,uplo,n,alpha, & + c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZsyrStridedBatched_rank_1(handle,uplo,n,alpha,x,incx,stridex,AP,lda,strideA, & + batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZsyrStridedBatched_rank_1 = hipblasZsyrStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZsyrStridedBatched_rank_1_devptr(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrStridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZsyrStridedBatched_rank_1_devptr = hipblasZsyrStridedBatched_(handle,uplo,n,alpha, & + c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZsyrStridedBatched_full_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZsyrStridedBatched_full_rank = hipblasZsyrStridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZsyrStridedBatched_full_rank_devptr(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrStridedBatched_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZsyrStridedBatched_full_rank_devptr = hipblasZsyrStridedBatched_(handle,uplo,n,alpha, & + c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZsyrStridedBatched_strided_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZsyrStridedBatched_strided_rank = hipblasZsyrStridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZsyrStridedBatched_strided_rank_devptr(handle,uplo,n,alpha,x,incx,stridex,AP, & + lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrStridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZsyrStridedBatched_strided_rank_devptr = hipblasZsyrStridedBatched_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSsyrStridedBatched_64_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasSsyrStridedBatched_64_assumed_rank = hipblasSsyrStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasSsyrStridedBatched_64_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,stridex, & + AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrStridedBatched_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasSsyrStridedBatched_64_assumed_rank_devptr = hipblasSsyrStridedBatched_64_(handle, & + uplo,n,alpha,c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + +#else + function hipblasSsyrStridedBatched_64_rank_0(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasSsyrStridedBatched_64_rank_0 = hipblasSsyrStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasSsyrStridedBatched_64_rank_0_devptr(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrStridedBatched_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasSsyrStridedBatched_64_rank_0_devptr = hipblasSsyrStridedBatched_64_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasSsyrStridedBatched_64_rank_1(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasSsyrStridedBatched_64_rank_1 = hipblasSsyrStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasSsyrStridedBatched_64_rank_1_devptr(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrStridedBatched_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasSsyrStridedBatched_64_rank_1_devptr = hipblasSsyrStridedBatched_64_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasSsyrStridedBatched_64_full_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasSsyrStridedBatched_64_full_rank = hipblasSsyrStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasSsyrStridedBatched_64_full_rank_devptr(handle,uplo,n,alpha,x,incx,stridex,AP, & + lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrStridedBatched_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasSsyrStridedBatched_64_full_rank_devptr = hipblasSsyrStridedBatched_64_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasSsyrStridedBatched_64_strided_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasSsyrStridedBatched_64_strided_rank = hipblasSsyrStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasSsyrStridedBatched_64_strided_rank_devptr(handle,uplo,n,alpha,x,incx,stridex, & + AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrStridedBatched_64_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasSsyrStridedBatched_64_strided_rank_devptr = hipblasSsyrStridedBatched_64_(handle, & + uplo,n,alpha,c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDsyrStridedBatched_64_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasDsyrStridedBatched_64_assumed_rank = hipblasDsyrStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasDsyrStridedBatched_64_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,stridex, & + AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrStridedBatched_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasDsyrStridedBatched_64_assumed_rank_devptr = hipblasDsyrStridedBatched_64_(handle, & + uplo,n,alpha,c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + +#else + function hipblasDsyrStridedBatched_64_rank_0(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasDsyrStridedBatched_64_rank_0 = hipblasDsyrStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasDsyrStridedBatched_64_rank_0_devptr(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrStridedBatched_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasDsyrStridedBatched_64_rank_0_devptr = hipblasDsyrStridedBatched_64_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasDsyrStridedBatched_64_rank_1(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasDsyrStridedBatched_64_rank_1 = hipblasDsyrStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasDsyrStridedBatched_64_rank_1_devptr(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrStridedBatched_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasDsyrStridedBatched_64_rank_1_devptr = hipblasDsyrStridedBatched_64_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasDsyrStridedBatched_64_full_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasDsyrStridedBatched_64_full_rank = hipblasDsyrStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasDsyrStridedBatched_64_full_rank_devptr(handle,uplo,n,alpha,x,incx,stridex,AP, & + lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrStridedBatched_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasDsyrStridedBatched_64_full_rank_devptr = hipblasDsyrStridedBatched_64_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasDsyrStridedBatched_64_strided_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasDsyrStridedBatched_64_strided_rank = hipblasDsyrStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasDsyrStridedBatched_64_strided_rank_devptr(handle,uplo,n,alpha,x,incx,stridex, & + AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrStridedBatched_64_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasDsyrStridedBatched_64_strided_rank_devptr = hipblasDsyrStridedBatched_64_(handle, & + uplo,n,alpha,c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCsyrStridedBatched_64_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCsyrStridedBatched_64_assumed_rank = hipblasCsyrStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCsyrStridedBatched_64_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,stridex, & + AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrStridedBatched_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCsyrStridedBatched_64_assumed_rank_devptr = hipblasCsyrStridedBatched_64_(handle, & + uplo,n,alpha,c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + +#else + function hipblasCsyrStridedBatched_64_rank_0(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCsyrStridedBatched_64_rank_0 = hipblasCsyrStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCsyrStridedBatched_64_rank_0_devptr(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrStridedBatched_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCsyrStridedBatched_64_rank_0_devptr = hipblasCsyrStridedBatched_64_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCsyrStridedBatched_64_rank_1(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCsyrStridedBatched_64_rank_1 = hipblasCsyrStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCsyrStridedBatched_64_rank_1_devptr(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrStridedBatched_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCsyrStridedBatched_64_rank_1_devptr = hipblasCsyrStridedBatched_64_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCsyrStridedBatched_64_full_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCsyrStridedBatched_64_full_rank = hipblasCsyrStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCsyrStridedBatched_64_full_rank_devptr(handle,uplo,n,alpha,x,incx,stridex,AP, & + lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrStridedBatched_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCsyrStridedBatched_64_full_rank_devptr = hipblasCsyrStridedBatched_64_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCsyrStridedBatched_64_strided_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCsyrStridedBatched_64_strided_rank = hipblasCsyrStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCsyrStridedBatched_64_strided_rank_devptr(handle,uplo,n,alpha,x,incx,stridex, & + AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrStridedBatched_64_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCsyrStridedBatched_64_strided_rank_devptr = hipblasCsyrStridedBatched_64_(handle, & + uplo,n,alpha,c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZsyrStridedBatched_64_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZsyrStridedBatched_64_assumed_rank = hipblasZsyrStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZsyrStridedBatched_64_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,stridex, & + AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrStridedBatched_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZsyrStridedBatched_64_assumed_rank_devptr = hipblasZsyrStridedBatched_64_(handle, & + uplo,n,alpha,c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + +#else + function hipblasZsyrStridedBatched_64_rank_0(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZsyrStridedBatched_64_rank_0 = hipblasZsyrStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZsyrStridedBatched_64_rank_0_devptr(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrStridedBatched_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZsyrStridedBatched_64_rank_0_devptr = hipblasZsyrStridedBatched_64_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZsyrStridedBatched_64_rank_1(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZsyrStridedBatched_64_rank_1 = hipblasZsyrStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZsyrStridedBatched_64_rank_1_devptr(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrStridedBatched_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZsyrStridedBatched_64_rank_1_devptr = hipblasZsyrStridedBatched_64_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZsyrStridedBatched_64_full_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZsyrStridedBatched_64_full_rank = hipblasZsyrStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZsyrStridedBatched_64_full_rank_devptr(handle,uplo,n,alpha,x,incx,stridex,AP, & + lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrStridedBatched_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZsyrStridedBatched_64_full_rank_devptr = hipblasZsyrStridedBatched_64_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZsyrStridedBatched_64_strided_rank(handle,uplo,n,alpha,x,incx,stridex,AP,lda, & + strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZsyrStridedBatched_64_strided_rank = hipblasZsyrStridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZsyrStridedBatched_64_strided_rank_devptr(handle,uplo,n,alpha,x,incx,stridex, & + AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrStridedBatched_64_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZsyrStridedBatched_64_strided_rank_devptr = hipblasZsyrStridedBatched_64_(handle, & + uplo,n,alpha,c_loc(x),incx,stridex,c_loc(AP),lda,strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSsyr2_assumed_rank(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + real(c_float),target,dimension(..) :: y + integer(c_int) :: incy + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + ! + hipblasSsyr2_assumed_rank = hipblasSsyr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + + function hipblasSsyr2_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + real(c_float),target,dimension(..) :: y + integer(c_int) :: incy + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + ! + hipblasSsyr2_assumed_rank_devptr = hipblasSsyr2_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + +#else + function hipblasSsyr2_rank_0(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target :: x + integer(c_int) :: incx + real(c_float),target :: y + integer(c_int) :: incy + real(c_float),target :: AP + integer(c_int) :: lda + ! + hipblasSsyr2_rank_0 = hipblasSsyr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) + end function + + function hipblasSsyr2_rank_0_devptr(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target :: x + integer(c_int) :: incx + real(c_float),target :: y + integer(c_int) :: incy + real(c_float),target :: AP + integer(c_int) :: lda + ! + hipblasSsyr2_rank_0_devptr = hipblasSsyr2_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) + end function + + function hipblasSsyr2_rank_1(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + ! + hipblasSsyr2_rank_1 = hipblasSsyr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) + end function + + function hipblasSsyr2_rank_1_devptr(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + ! + hipblasSsyr2_rank_1_devptr = hipblasSsyr2_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) + end function + + function hipblasSsyr2_full_rank(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + ! + hipblasSsyr2_full_rank = hipblasSsyr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + + function hipblasSsyr2_full_rank_devptr(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + ! + hipblasSsyr2_full_rank_devptr = hipblasSsyr2_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDsyr2_assumed_rank(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + real(c_double),target,dimension(..) :: y + integer(c_int) :: incy + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + ! + hipblasDsyr2_assumed_rank = hipblasDsyr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + + function hipblasDsyr2_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + real(c_double),target,dimension(..) :: y + integer(c_int) :: incy + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + ! + hipblasDsyr2_assumed_rank_devptr = hipblasDsyr2_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + +#else + function hipblasDsyr2_rank_0(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target :: x + integer(c_int) :: incx + real(c_double),target :: y + integer(c_int) :: incy + real(c_double),target :: AP + integer(c_int) :: lda + ! + hipblasDsyr2_rank_0 = hipblasDsyr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) + end function + + function hipblasDsyr2_rank_0_devptr(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target :: x + integer(c_int) :: incx + real(c_double),target :: y + integer(c_int) :: incy + real(c_double),target :: AP + integer(c_int) :: lda + ! + hipblasDsyr2_rank_0_devptr = hipblasDsyr2_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) + end function + + function hipblasDsyr2_rank_1(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + ! + hipblasDsyr2_rank_1 = hipblasDsyr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) + end function + + function hipblasDsyr2_rank_1_devptr(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + ! + hipblasDsyr2_rank_1_devptr = hipblasDsyr2_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) + end function + + function hipblasDsyr2_full_rank(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + ! + hipblasDsyr2_full_rank = hipblasDsyr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + + function hipblasDsyr2_full_rank_devptr(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + ! + hipblasDsyr2_full_rank_devptr = hipblasDsyr2_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCsyr2_assumed_rank(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + ! + hipblasCsyr2_assumed_rank = hipblasCsyr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + + function hipblasCsyr2_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + ! + hipblasCsyr2_assumed_rank_devptr = hipblasCsyr2_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + +#else + function hipblasCsyr2_rank_0(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: x + integer(c_int) :: incx + complex(c_float_complex),target :: y + integer(c_int) :: incy + complex(c_float_complex),target :: AP + integer(c_int) :: lda + ! + hipblasCsyr2_rank_0 = hipblasCsyr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) + end function + + function hipblasCsyr2_rank_0_devptr(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target :: x + integer(c_int) :: incx + complex(c_float_complex),target :: y + integer(c_int) :: incy + complex(c_float_complex),target :: AP + integer(c_int) :: lda + ! + hipblasCsyr2_rank_0_devptr = hipblasCsyr2_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) + end function + + function hipblasCsyr2_rank_1(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + ! + hipblasCsyr2_rank_1 = hipblasCsyr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) + end function + + function hipblasCsyr2_rank_1_devptr(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + ! + hipblasCsyr2_rank_1_devptr = hipblasCsyr2_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) + end function + + function hipblasCsyr2_full_rank(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + ! + hipblasCsyr2_full_rank = hipblasCsyr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + + function hipblasCsyr2_full_rank_devptr(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + ! + hipblasCsyr2_full_rank_devptr = hipblasCsyr2_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZsyr2_assumed_rank(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + ! + hipblasZsyr2_assumed_rank = hipblasZsyr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + + function hipblasZsyr2_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + ! + hipblasZsyr2_assumed_rank_devptr = hipblasZsyr2_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + +#else + function hipblasZsyr2_rank_0(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: x + integer(c_int) :: incx + complex(c_double_complex),target :: y + integer(c_int) :: incy + complex(c_double_complex),target :: AP + integer(c_int) :: lda + ! + hipblasZsyr2_rank_0 = hipblasZsyr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) + end function + + function hipblasZsyr2_rank_0_devptr(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target :: x + integer(c_int) :: incx + complex(c_double_complex),target :: y + integer(c_int) :: incy + complex(c_double_complex),target :: AP + integer(c_int) :: lda + ! + hipblasZsyr2_rank_0_devptr = hipblasZsyr2_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) + end function + + function hipblasZsyr2_rank_1(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + ! + hipblasZsyr2_rank_1 = hipblasZsyr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) + end function + + function hipblasZsyr2_rank_1_devptr(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + ! + hipblasZsyr2_rank_1_devptr = hipblasZsyr2_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(y),incy, & + c_loc(AP),lda) + end function + + function hipblasZsyr2_full_rank(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + ! + hipblasZsyr2_full_rank = hipblasZsyr2_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + + function hipblasZsyr2_full_rank_devptr(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + ! + hipblasZsyr2_full_rank_devptr = hipblasZsyr2_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSsyr2_64_assumed_rank(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + ! + hipblasSsyr2_64_assumed_rank = hipblasSsyr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & + c_loc(y),incy,c_loc(AP),lda) + end function + + function hipblasSsyr2_64_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + ! + hipblasSsyr2_64_assumed_rank_devptr = hipblasSsyr2_64_(handle,uplo,n,alpha,c_loc(x),incx, & + c_loc(y),incy,c_loc(AP),lda) + end function + +#else + function hipblasSsyr2_64_rank_0(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target :: x + integer(c_int64_t) :: incx + real(c_float),target :: y + integer(c_int64_t) :: incy + real(c_float),target :: AP + integer(c_int64_t) :: lda + ! + hipblasSsyr2_64_rank_0 = hipblasSsyr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + + function hipblasSsyr2_64_rank_0_devptr(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target :: x + integer(c_int64_t) :: incx + real(c_float),target :: y + integer(c_int64_t) :: incy + real(c_float),target :: AP + integer(c_int64_t) :: lda + ! + hipblasSsyr2_64_rank_0_devptr = hipblasSsyr2_64_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + + function hipblasSsyr2_64_rank_1(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + ! + hipblasSsyr2_64_rank_1 = hipblasSsyr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + + function hipblasSsyr2_64_rank_1_devptr(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + ! + hipblasSsyr2_64_rank_1_devptr = hipblasSsyr2_64_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + + function hipblasSsyr2_64_full_rank(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + ! + hipblasSsyr2_64_full_rank = hipblasSsyr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & + c_loc(y),incy,c_loc(AP),lda) + end function + + function hipblasSsyr2_64_full_rank_devptr(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + ! + hipblasSsyr2_64_full_rank_devptr = hipblasSsyr2_64_(handle,uplo,n,alpha,c_loc(x),incx, & + c_loc(y),incy,c_loc(AP),lda) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDsyr2_64_assumed_rank(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: incy + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + ! + hipblasDsyr2_64_assumed_rank = hipblasDsyr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & + c_loc(y),incy,c_loc(AP),lda) + end function + + function hipblasDsyr2_64_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: incy + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + ! + hipblasDsyr2_64_assumed_rank_devptr = hipblasDsyr2_64_(handle,uplo,n,alpha,c_loc(x),incx, & + c_loc(y),incy,c_loc(AP),lda) + end function + +#else + function hipblasDsyr2_64_rank_0(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target :: x + integer(c_int64_t) :: incx + real(c_double),target :: y + integer(c_int64_t) :: incy + real(c_double),target :: AP + integer(c_int64_t) :: lda + ! + hipblasDsyr2_64_rank_0 = hipblasDsyr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + + function hipblasDsyr2_64_rank_0_devptr(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target :: x + integer(c_int64_t) :: incx + real(c_double),target :: y + integer(c_int64_t) :: incy + real(c_double),target :: AP + integer(c_int64_t) :: lda + ! + hipblasDsyr2_64_rank_0_devptr = hipblasDsyr2_64_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + + function hipblasDsyr2_64_rank_1(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + ! + hipblasDsyr2_64_rank_1 = hipblasDsyr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + + function hipblasDsyr2_64_rank_1_devptr(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + ! + hipblasDsyr2_64_rank_1_devptr = hipblasDsyr2_64_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + + function hipblasDsyr2_64_full_rank(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + ! + hipblasDsyr2_64_full_rank = hipblasDsyr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & + c_loc(y),incy,c_loc(AP),lda) + end function + + function hipblasDsyr2_64_full_rank_devptr(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + ! + hipblasDsyr2_64_full_rank_devptr = hipblasDsyr2_64_(handle,uplo,n,alpha,c_loc(x),incx, & + c_loc(y),incy,c_loc(AP),lda) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCsyr2_64_assumed_rank(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + ! + hipblasCsyr2_64_assumed_rank = hipblasCsyr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & + c_loc(y),incy,c_loc(AP),lda) + end function + + function hipblasCsyr2_64_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + ! + hipblasCsyr2_64_assumed_rank_devptr = hipblasCsyr2_64_(handle,uplo,n,alpha,c_loc(x),incx, & + c_loc(y),incy,c_loc(AP),lda) + end function + +#else + function hipblasCsyr2_64_rank_0(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + ! + hipblasCsyr2_64_rank_0 = hipblasCsyr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + + function hipblasCsyr2_64_rank_0_devptr(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + ! + hipblasCsyr2_64_rank_0_devptr = hipblasCsyr2_64_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + + function hipblasCsyr2_64_rank_1(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + ! + hipblasCsyr2_64_rank_1 = hipblasCsyr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + + function hipblasCsyr2_64_rank_1_devptr(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + ! + hipblasCsyr2_64_rank_1_devptr = hipblasCsyr2_64_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + + function hipblasCsyr2_64_full_rank(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + ! + hipblasCsyr2_64_full_rank = hipblasCsyr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & + c_loc(y),incy,c_loc(AP),lda) + end function + + function hipblasCsyr2_64_full_rank_devptr(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + ! + hipblasCsyr2_64_full_rank_devptr = hipblasCsyr2_64_(handle,uplo,n,alpha,c_loc(x),incx, & + c_loc(y),incy,c_loc(AP),lda) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZsyr2_64_assumed_rank(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + ! + hipblasZsyr2_64_assumed_rank = hipblasZsyr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & + c_loc(y),incy,c_loc(AP),lda) + end function + + function hipblasZsyr2_64_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + ! + hipblasZsyr2_64_assumed_rank_devptr = hipblasZsyr2_64_(handle,uplo,n,alpha,c_loc(x),incx, & + c_loc(y),incy,c_loc(AP),lda) + end function + +#else + function hipblasZsyr2_64_rank_0(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + ! + hipblasZsyr2_64_rank_0 = hipblasZsyr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + + function hipblasZsyr2_64_rank_0_devptr(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + ! + hipblasZsyr2_64_rank_0_devptr = hipblasZsyr2_64_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + + function hipblasZsyr2_64_rank_1(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + ! + hipblasZsyr2_64_rank_1 = hipblasZsyr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + + function hipblasZsyr2_64_rank_1_devptr(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + ! + hipblasZsyr2_64_rank_1_devptr = hipblasZsyr2_64_(handle,uplo,n,alpha,c_loc(x),incx,c_loc(y), & + incy,c_loc(AP),lda) + end function + + function hipblasZsyr2_64_full_rank(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + ! + hipblasZsyr2_64_full_rank = hipblasZsyr2_64_(handle,uplo,n,c_loc(alpha),c_loc(x),incx, & + c_loc(y),incy,c_loc(AP),lda) + end function + + function hipblasZsyr2_64_full_rank_devptr(handle,uplo,n,alpha,x,incx,y,incy,AP,lda) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + ! + hipblasZsyr2_64_full_rank_devptr = hipblasZsyr2_64_(handle,uplo,n,alpha,c_loc(x),incx, & + c_loc(y),incy,c_loc(AP),lda) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSsyr2StridedBatched_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2StridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasSsyr2StridedBatched_assumed_rank = hipblasSsyr2StridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasSsyr2StridedBatched_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2StridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasSsyr2StridedBatched_assumed_rank_devptr = hipblasSsyr2StridedBatched_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#else + function hipblasSsyr2StridedBatched_rank_0(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2StridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_float),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasSsyr2StridedBatched_rank_0 = hipblasSsyr2StridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasSsyr2StridedBatched_rank_0_devptr(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2StridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_float),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasSsyr2StridedBatched_rank_0_devptr = hipblasSsyr2StridedBatched_(handle,uplo,n,alpha, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasSsyr2StridedBatched_rank_1(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2StridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasSsyr2StridedBatched_rank_1 = hipblasSsyr2StridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasSsyr2StridedBatched_rank_1_devptr(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2StridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasSsyr2StridedBatched_rank_1_devptr = hipblasSsyr2StridedBatched_(handle,uplo,n,alpha, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasSsyr2StridedBatched_full_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2StridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasSsyr2StridedBatched_full_rank = hipblasSsyr2StridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasSsyr2StridedBatched_full_rank_devptr(handle,uplo,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2StridedBatched_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasSsyr2StridedBatched_full_rank_devptr = hipblasSsyr2StridedBatched_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasSsyr2StridedBatched_strided_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2StridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_float),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasSsyr2StridedBatched_strided_rank = hipblasSsyr2StridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasSsyr2StridedBatched_strided_rank_devptr(handle,uplo,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2StridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_float),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasSsyr2StridedBatched_strided_rank_devptr = hipblasSsyr2StridedBatched_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDsyr2StridedBatched_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2StridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasDsyr2StridedBatched_assumed_rank = hipblasDsyr2StridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasDsyr2StridedBatched_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2StridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasDsyr2StridedBatched_assumed_rank_devptr = hipblasDsyr2StridedBatched_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#else + function hipblasDsyr2StridedBatched_rank_0(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2StridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_double),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasDsyr2StridedBatched_rank_0 = hipblasDsyr2StridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasDsyr2StridedBatched_rank_0_devptr(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2StridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_double),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasDsyr2StridedBatched_rank_0_devptr = hipblasDsyr2StridedBatched_(handle,uplo,n,alpha, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasDsyr2StridedBatched_rank_1(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2StridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasDsyr2StridedBatched_rank_1 = hipblasDsyr2StridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasDsyr2StridedBatched_rank_1_devptr(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2StridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasDsyr2StridedBatched_rank_1_devptr = hipblasDsyr2StridedBatched_(handle,uplo,n,alpha, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasDsyr2StridedBatched_full_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2StridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasDsyr2StridedBatched_full_rank = hipblasDsyr2StridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasDsyr2StridedBatched_full_rank_devptr(handle,uplo,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2StridedBatched_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasDsyr2StridedBatched_full_rank_devptr = hipblasDsyr2StridedBatched_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasDsyr2StridedBatched_strided_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2StridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_double),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasDsyr2StridedBatched_strided_rank = hipblasDsyr2StridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasDsyr2StridedBatched_strided_rank_devptr(handle,uplo,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2StridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + real(c_double),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasDsyr2StridedBatched_strided_rank_devptr = hipblasDsyr2StridedBatched_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCsyr2StridedBatched_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2StridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCsyr2StridedBatched_assumed_rank = hipblasCsyr2StridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCsyr2StridedBatched_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2StridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCsyr2StridedBatched_assumed_rank_devptr = hipblasCsyr2StridedBatched_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#else + function hipblasCsyr2StridedBatched_rank_0(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2StridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCsyr2StridedBatched_rank_0 = hipblasCsyr2StridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCsyr2StridedBatched_rank_0_devptr(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2StridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCsyr2StridedBatched_rank_0_devptr = hipblasCsyr2StridedBatched_(handle,uplo,n,alpha, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCsyr2StridedBatched_rank_1(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2StridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCsyr2StridedBatched_rank_1 = hipblasCsyr2StridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCsyr2StridedBatched_rank_1_devptr(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2StridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCsyr2StridedBatched_rank_1_devptr = hipblasCsyr2StridedBatched_(handle,uplo,n,alpha, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCsyr2StridedBatched_full_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2StridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCsyr2StridedBatched_full_rank = hipblasCsyr2StridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCsyr2StridedBatched_full_rank_devptr(handle,uplo,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2StridedBatched_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCsyr2StridedBatched_full_rank_devptr = hipblasCsyr2StridedBatched_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCsyr2StridedBatched_strided_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2StridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCsyr2StridedBatched_strided_rank = hipblasCsyr2StridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCsyr2StridedBatched_strided_rank_devptr(handle,uplo,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2StridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasCsyr2StridedBatched_strided_rank_devptr = hipblasCsyr2StridedBatched_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZsyr2StridedBatched_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2StridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZsyr2StridedBatched_assumed_rank = hipblasZsyr2StridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZsyr2StridedBatched_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2StridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZsyr2StridedBatched_assumed_rank_devptr = hipblasZsyr2StridedBatched_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#else + function hipblasZsyr2StridedBatched_rank_0(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2StridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZsyr2StridedBatched_rank_0 = hipblasZsyr2StridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZsyr2StridedBatched_rank_0_devptr(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2StridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZsyr2StridedBatched_rank_0_devptr = hipblasZsyr2StridedBatched_(handle,uplo,n,alpha, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZsyr2StridedBatched_rank_1(handle,uplo,n,alpha,x,incx,stridex,y,incy,stridey, & + AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2StridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZsyr2StridedBatched_rank_1 = hipblasZsyr2StridedBatched_(handle,uplo,n,c_loc(alpha), & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZsyr2StridedBatched_rank_1_devptr(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2StridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZsyr2StridedBatched_rank_1_devptr = hipblasZsyr2StridedBatched_(handle,uplo,n,alpha, & + c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZsyr2StridedBatched_full_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2StridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZsyr2StridedBatched_full_rank = hipblasZsyr2StridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZsyr2StridedBatched_full_rank_devptr(handle,uplo,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2StridedBatched_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZsyr2StridedBatched_full_rank_devptr = hipblasZsyr2StridedBatched_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZsyr2StridedBatched_strided_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2StridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZsyr2StridedBatched_strided_rank = hipblasZsyr2StridedBatched_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZsyr2StridedBatched_strided_rank_devptr(handle,uplo,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2StridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int) :: batchCount + ! + hipblasZsyr2StridedBatched_strided_rank_devptr = hipblasZsyr2StridedBatched_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSsyr2StridedBatched_64_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2StridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasSsyr2StridedBatched_64_assumed_rank = hipblasSsyr2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasSsyr2StridedBatched_64_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,stridex, & + y,incy,stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2StridedBatched_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasSsyr2StridedBatched_64_assumed_rank_devptr = hipblasSsyr2StridedBatched_64_(handle, & + uplo,n,alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#else + function hipblasSsyr2StridedBatched_64_rank_0(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2StridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_float),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasSsyr2StridedBatched_64_rank_0 = hipblasSsyr2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasSsyr2StridedBatched_64_rank_0_devptr(handle,uplo,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2StridedBatched_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_float),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasSsyr2StridedBatched_64_rank_0_devptr = hipblasSsyr2StridedBatched_64_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasSsyr2StridedBatched_64_rank_1(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2StridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasSsyr2StridedBatched_64_rank_1 = hipblasSsyr2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasSsyr2StridedBatched_64_rank_1_devptr(handle,uplo,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2StridedBatched_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasSsyr2StridedBatched_64_rank_1_devptr = hipblasSsyr2StridedBatched_64_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasSsyr2StridedBatched_64_full_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2StridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasSsyr2StridedBatched_64_full_rank = hipblasSsyr2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasSsyr2StridedBatched_64_full_rank_devptr(handle,uplo,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2StridedBatched_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasSsyr2StridedBatched_64_full_rank_devptr = hipblasSsyr2StridedBatched_64_(handle,uplo, & + n,alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasSsyr2StridedBatched_64_strided_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2StridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_float),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasSsyr2StridedBatched_64_strided_rank = hipblasSsyr2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasSsyr2StridedBatched_64_strided_rank_devptr(handle,uplo,n,alpha,x,incx,stridex, & + y,incy,stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2StridedBatched_64_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_float),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasSsyr2StridedBatched_64_strided_rank_devptr = hipblasSsyr2StridedBatched_64_(handle, & + uplo,n,alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDsyr2StridedBatched_64_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2StridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasDsyr2StridedBatched_64_assumed_rank = hipblasDsyr2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasDsyr2StridedBatched_64_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,stridex, & + y,incy,stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2StridedBatched_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasDsyr2StridedBatched_64_assumed_rank_devptr = hipblasDsyr2StridedBatched_64_(handle, & + uplo,n,alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#else + function hipblasDsyr2StridedBatched_64_rank_0(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2StridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_double),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasDsyr2StridedBatched_64_rank_0 = hipblasDsyr2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasDsyr2StridedBatched_64_rank_0_devptr(handle,uplo,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2StridedBatched_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_double),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasDsyr2StridedBatched_64_rank_0_devptr = hipblasDsyr2StridedBatched_64_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasDsyr2StridedBatched_64_rank_1(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2StridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasDsyr2StridedBatched_64_rank_1 = hipblasDsyr2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasDsyr2StridedBatched_64_rank_1_devptr(handle,uplo,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2StridedBatched_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasDsyr2StridedBatched_64_rank_1_devptr = hipblasDsyr2StridedBatched_64_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasDsyr2StridedBatched_64_full_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2StridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasDsyr2StridedBatched_64_full_rank = hipblasDsyr2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasDsyr2StridedBatched_64_full_rank_devptr(handle,uplo,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2StridedBatched_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasDsyr2StridedBatched_64_full_rank_devptr = hipblasDsyr2StridedBatched_64_(handle,uplo, & + n,alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasDsyr2StridedBatched_64_strided_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2StridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_double),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasDsyr2StridedBatched_64_strided_rank = hipblasDsyr2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasDsyr2StridedBatched_64_strided_rank_devptr(handle,uplo,n,alpha,x,incx,stridex, & + y,incy,stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2StridedBatched_64_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + real(c_double),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasDsyr2StridedBatched_64_strided_rank_devptr = hipblasDsyr2StridedBatched_64_(handle, & + uplo,n,alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCsyr2StridedBatched_64_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2StridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCsyr2StridedBatched_64_assumed_rank = hipblasCsyr2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCsyr2StridedBatched_64_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,stridex, & + y,incy,stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2StridedBatched_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCsyr2StridedBatched_64_assumed_rank_devptr = hipblasCsyr2StridedBatched_64_(handle, & + uplo,n,alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#else + function hipblasCsyr2StridedBatched_64_rank_0(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2StridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCsyr2StridedBatched_64_rank_0 = hipblasCsyr2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCsyr2StridedBatched_64_rank_0_devptr(handle,uplo,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2StridedBatched_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCsyr2StridedBatched_64_rank_0_devptr = hipblasCsyr2StridedBatched_64_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCsyr2StridedBatched_64_rank_1(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2StridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCsyr2StridedBatched_64_rank_1 = hipblasCsyr2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCsyr2StridedBatched_64_rank_1_devptr(handle,uplo,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2StridedBatched_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCsyr2StridedBatched_64_rank_1_devptr = hipblasCsyr2StridedBatched_64_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCsyr2StridedBatched_64_full_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2StridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCsyr2StridedBatched_64_full_rank = hipblasCsyr2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCsyr2StridedBatched_64_full_rank_devptr(handle,uplo,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2StridedBatched_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCsyr2StridedBatched_64_full_rank_devptr = hipblasCsyr2StridedBatched_64_(handle,uplo, & + n,alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCsyr2StridedBatched_64_strided_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2StridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCsyr2StridedBatched_64_strided_rank = hipblasCsyr2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasCsyr2StridedBatched_64_strided_rank_devptr(handle,uplo,n,alpha,x,incx,stridex, & + y,incy,stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2StridedBatched_64_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasCsyr2StridedBatched_64_strided_rank_devptr = hipblasCsyr2StridedBatched_64_(handle, & + uplo,n,alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZsyr2StridedBatched_64_assumed_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2StridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZsyr2StridedBatched_64_assumed_rank = hipblasZsyr2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZsyr2StridedBatched_64_assumed_rank_devptr(handle,uplo,n,alpha,x,incx,stridex, & + y,incy,stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2StridedBatched_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZsyr2StridedBatched_64_assumed_rank_devptr = hipblasZsyr2StridedBatched_64_(handle, & + uplo,n,alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#else + function hipblasZsyr2StridedBatched_64_rank_0(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2StridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZsyr2StridedBatched_64_rank_0 = hipblasZsyr2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZsyr2StridedBatched_64_rank_0_devptr(handle,uplo,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2StridedBatched_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZsyr2StridedBatched_64_rank_0_devptr = hipblasZsyr2StridedBatched_64_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZsyr2StridedBatched_64_rank_1(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2StridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZsyr2StridedBatched_64_rank_1 = hipblasZsyr2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZsyr2StridedBatched_64_rank_1_devptr(handle,uplo,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2StridedBatched_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZsyr2StridedBatched_64_rank_1_devptr = hipblasZsyr2StridedBatched_64_(handle,uplo,n, & + alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZsyr2StridedBatched_64_full_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2StridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZsyr2StridedBatched_64_full_rank = hipblasZsyr2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZsyr2StridedBatched_64_full_rank_devptr(handle,uplo,n,alpha,x,incx,stridex,y, & + incy,stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2StridedBatched_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZsyr2StridedBatched_64_full_rank_devptr = hipblasZsyr2StridedBatched_64_(handle,uplo, & + n,alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZsyr2StridedBatched_64_strided_rank(handle,uplo,n,alpha,x,incx,stridex,y,incy, & + stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2StridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZsyr2StridedBatched_64_strided_rank = hipblasZsyr2StridedBatched_64_(handle,uplo,n, & + c_loc(alpha),c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + + function hipblasZsyr2StridedBatched_64_strided_rank_devptr(handle,uplo,n,alpha,x,incx,stridex, & + y,incy,stridey,AP,lda,strideA,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2StridedBatched_64_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:) :: y + integer(c_int64_t) :: incy + integer(c_int64_t) :: stridey + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + integer(c_int64_t) :: batchCount + ! + hipblasZsyr2StridedBatched_64_strided_rank_devptr = hipblasZsyr2StridedBatched_64_(handle, & + uplo,n,alpha,c_loc(x),incx,stridex,c_loc(y),incy,stridey,c_loc(AP),lda,strideA,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasStbmv_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbmv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + ! + hipblasStbmv_assumed_rank = hipblasStbmv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#else + function hipblasStbmv_rank_0(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbmv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: AP + integer(c_int) :: lda + real(c_float),target :: x + integer(c_int) :: incx + ! + hipblasStbmv_rank_0 = hipblasStbmv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda,c_loc(x),incx) + end function + + function hipblasStbmv_rank_1(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbmv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasStbmv_rank_1 = hipblasStbmv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda,c_loc(x),incx) + end function + + function hipblasStbmv_full_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbmv_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasStbmv_full_rank = hipblasStbmv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda,c_loc(x), & + incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDtbmv_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbmv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + ! + hipblasDtbmv_assumed_rank = hipblasDtbmv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#else + function hipblasDtbmv_rank_0(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbmv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: AP + integer(c_int) :: lda + real(c_double),target :: x + integer(c_int) :: incx + ! + hipblasDtbmv_rank_0 = hipblasDtbmv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda,c_loc(x),incx) + end function + + function hipblasDtbmv_rank_1(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbmv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasDtbmv_rank_1 = hipblasDtbmv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda,c_loc(x),incx) + end function + + function hipblasDtbmv_full_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbmv_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasDtbmv_full_rank = hipblasDtbmv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda,c_loc(x), & + incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCtbmv_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbmv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + ! + hipblasCtbmv_assumed_rank = hipblasCtbmv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#else + function hipblasCtbmv_rank_0(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbmv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: AP + integer(c_int) :: lda + complex(c_float_complex),target :: x + integer(c_int) :: incx + ! + hipblasCtbmv_rank_0 = hipblasCtbmv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda,c_loc(x),incx) + end function + + function hipblasCtbmv_rank_1(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbmv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasCtbmv_rank_1 = hipblasCtbmv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda,c_loc(x),incx) + end function + + function hipblasCtbmv_full_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbmv_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasCtbmv_full_rank = hipblasCtbmv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda,c_loc(x), & + incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZtbmv_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbmv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + ! + hipblasZtbmv_assumed_rank = hipblasZtbmv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#else + function hipblasZtbmv_rank_0(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbmv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: AP + integer(c_int) :: lda + complex(c_double_complex),target :: x + integer(c_int) :: incx + ! + hipblasZtbmv_rank_0 = hipblasZtbmv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda,c_loc(x),incx) + end function + + function hipblasZtbmv_rank_1(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbmv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasZtbmv_rank_1 = hipblasZtbmv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda,c_loc(x),incx) + end function + + function hipblasZtbmv_full_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbmv_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasZtbmv_full_rank = hipblasZtbmv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda,c_loc(x), & + incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasStbmv_64_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbmv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + ! + hipblasStbmv_64_assumed_rank = hipblasStbmv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#else + function hipblasStbmv_64_rank_0(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbmv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: AP + integer(c_int64_t) :: lda + real(c_float),target :: x + integer(c_int64_t) :: incx + ! + hipblasStbmv_64_rank_0 = hipblasStbmv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + + function hipblasStbmv_64_rank_1(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbmv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasStbmv_64_rank_1 = hipblasStbmv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + + function hipblasStbmv_64_full_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbmv_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasStbmv_64_full_rank = hipblasStbmv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDtbmv_64_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbmv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + ! + hipblasDtbmv_64_assumed_rank = hipblasDtbmv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#else + function hipblasDtbmv_64_rank_0(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbmv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: AP + integer(c_int64_t) :: lda + real(c_double),target :: x + integer(c_int64_t) :: incx + ! + hipblasDtbmv_64_rank_0 = hipblasDtbmv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + + function hipblasDtbmv_64_rank_1(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbmv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasDtbmv_64_rank_1 = hipblasDtbmv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + + function hipblasDtbmv_64_full_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbmv_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasDtbmv_64_full_rank = hipblasDtbmv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCtbmv_64_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbmv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + ! + hipblasCtbmv_64_assumed_rank = hipblasCtbmv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#else + function hipblasCtbmv_64_rank_0(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbmv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + ! + hipblasCtbmv_64_rank_0 = hipblasCtbmv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + + function hipblasCtbmv_64_rank_1(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbmv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasCtbmv_64_rank_1 = hipblasCtbmv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + + function hipblasCtbmv_64_full_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbmv_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasCtbmv_64_full_rank = hipblasCtbmv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZtbmv_64_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbmv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + ! + hipblasZtbmv_64_assumed_rank = hipblasZtbmv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#else + function hipblasZtbmv_64_rank_0(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbmv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + ! + hipblasZtbmv_64_rank_0 = hipblasZtbmv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + + function hipblasZtbmv_64_rank_1(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbmv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasZtbmv_64_rank_1 = hipblasZtbmv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + + function hipblasZtbmv_64_full_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbmv_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasZtbmv_64_full_rank = hipblasZtbmv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasStbmvStridedBatched_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbmvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasStbmvStridedBatched_assumed_rank = hipblasStbmvStridedBatched_(handle,uplo,transA, & + diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasStbmvStridedBatched_rank_0(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbmvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasStbmvStridedBatched_rank_0 = hipblasStbmvStridedBatched_(handle,uplo,transA,diag,n,k, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasStbmvStridedBatched_rank_1(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbmvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasStbmvStridedBatched_rank_1 = hipblasStbmvStridedBatched_(handle,uplo,transA,diag,n,k, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasStbmvStridedBatched_full_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbmvStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasStbmvStridedBatched_full_rank = hipblasStbmvStridedBatched_(handle,uplo,transA,diag, & + n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasStbmvStridedBatched_strided_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbmvStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasStbmvStridedBatched_strided_rank = hipblasStbmvStridedBatched_(handle,uplo,transA, & + diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDtbmvStridedBatched_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbmvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasDtbmvStridedBatched_assumed_rank = hipblasDtbmvStridedBatched_(handle,uplo,transA, & + diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasDtbmvStridedBatched_rank_0(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbmvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasDtbmvStridedBatched_rank_0 = hipblasDtbmvStridedBatched_(handle,uplo,transA,diag,n,k, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasDtbmvStridedBatched_rank_1(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbmvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasDtbmvStridedBatched_rank_1 = hipblasDtbmvStridedBatched_(handle,uplo,transA,diag,n,k, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasDtbmvStridedBatched_full_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbmvStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasDtbmvStridedBatched_full_rank = hipblasDtbmvStridedBatched_(handle,uplo,transA,diag, & + n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasDtbmvStridedBatched_strided_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbmvStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasDtbmvStridedBatched_strided_rank = hipblasDtbmvStridedBatched_(handle,uplo,transA, & + diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCtbmvStridedBatched_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbmvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasCtbmvStridedBatched_assumed_rank = hipblasCtbmvStridedBatched_(handle,uplo,transA, & + diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasCtbmvStridedBatched_rank_0(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbmvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasCtbmvStridedBatched_rank_0 = hipblasCtbmvStridedBatched_(handle,uplo,transA,diag,n,k, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasCtbmvStridedBatched_rank_1(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbmvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasCtbmvStridedBatched_rank_1 = hipblasCtbmvStridedBatched_(handle,uplo,transA,diag,n,k, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasCtbmvStridedBatched_full_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbmvStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasCtbmvStridedBatched_full_rank = hipblasCtbmvStridedBatched_(handle,uplo,transA,diag, & + n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasCtbmvStridedBatched_strided_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbmvStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasCtbmvStridedBatched_strided_rank = hipblasCtbmvStridedBatched_(handle,uplo,transA, & + diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZtbmvStridedBatched_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbmvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasZtbmvStridedBatched_assumed_rank = hipblasZtbmvStridedBatched_(handle,uplo,transA, & + diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasZtbmvStridedBatched_rank_0(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbmvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasZtbmvStridedBatched_rank_0 = hipblasZtbmvStridedBatched_(handle,uplo,transA,diag,n,k, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasZtbmvStridedBatched_rank_1(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbmvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasZtbmvStridedBatched_rank_1 = hipblasZtbmvStridedBatched_(handle,uplo,transA,diag,n,k, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasZtbmvStridedBatched_full_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbmvStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasZtbmvStridedBatched_full_rank = hipblasZtbmvStridedBatched_(handle,uplo,transA,diag, & + n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasZtbmvStridedBatched_strided_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbmvStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasZtbmvStridedBatched_strided_rank = hipblasZtbmvStridedBatched_(handle,uplo,transA, & + diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasStbmvStridedBatched_64_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda, & + strideA,x,incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbmvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasStbmvStridedBatched_64_assumed_rank = hipblasStbmvStridedBatched_64_(handle,uplo, & + transA,diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasStbmvStridedBatched_64_rank_0(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbmvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasStbmvStridedBatched_64_rank_0 = hipblasStbmvStridedBatched_64_(handle,uplo,transA, & + diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasStbmvStridedBatched_64_rank_1(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbmvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasStbmvStridedBatched_64_rank_1 = hipblasStbmvStridedBatched_64_(handle,uplo,transA, & + diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasStbmvStridedBatched_64_full_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbmvStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasStbmvStridedBatched_64_full_rank = hipblasStbmvStridedBatched_64_(handle,uplo,transA, & + diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasStbmvStridedBatched_64_strided_rank(handle,uplo,transA,diag,n,k,AP,lda, & + strideA,x,incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbmvStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasStbmvStridedBatched_64_strided_rank = hipblasStbmvStridedBatched_64_(handle,uplo, & + transA,diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDtbmvStridedBatched_64_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda, & + strideA,x,incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbmvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasDtbmvStridedBatched_64_assumed_rank = hipblasDtbmvStridedBatched_64_(handle,uplo, & + transA,diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasDtbmvStridedBatched_64_rank_0(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbmvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasDtbmvStridedBatched_64_rank_0 = hipblasDtbmvStridedBatched_64_(handle,uplo,transA, & + diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasDtbmvStridedBatched_64_rank_1(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbmvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasDtbmvStridedBatched_64_rank_1 = hipblasDtbmvStridedBatched_64_(handle,uplo,transA, & + diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasDtbmvStridedBatched_64_full_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbmvStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasDtbmvStridedBatched_64_full_rank = hipblasDtbmvStridedBatched_64_(handle,uplo,transA, & + diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasDtbmvStridedBatched_64_strided_rank(handle,uplo,transA,diag,n,k,AP,lda, & + strideA,x,incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbmvStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasDtbmvStridedBatched_64_strided_rank = hipblasDtbmvStridedBatched_64_(handle,uplo, & + transA,diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCtbmvStridedBatched_64_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda, & + strideA,x,incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbmvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasCtbmvStridedBatched_64_assumed_rank = hipblasCtbmvStridedBatched_64_(handle,uplo, & + transA,diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasCtbmvStridedBatched_64_rank_0(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbmvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasCtbmvStridedBatched_64_rank_0 = hipblasCtbmvStridedBatched_64_(handle,uplo,transA, & + diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasCtbmvStridedBatched_64_rank_1(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbmvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasCtbmvStridedBatched_64_rank_1 = hipblasCtbmvStridedBatched_64_(handle,uplo,transA, & + diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasCtbmvStridedBatched_64_full_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbmvStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasCtbmvStridedBatched_64_full_rank = hipblasCtbmvStridedBatched_64_(handle,uplo,transA, & + diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasCtbmvStridedBatched_64_strided_rank(handle,uplo,transA,diag,n,k,AP,lda, & + strideA,x,incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbmvStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasCtbmvStridedBatched_64_strided_rank = hipblasCtbmvStridedBatched_64_(handle,uplo, & + transA,diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZtbmvStridedBatched_64_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda, & + strideA,x,incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbmvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasZtbmvStridedBatched_64_assumed_rank = hipblasZtbmvStridedBatched_64_(handle,uplo, & + transA,diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasZtbmvStridedBatched_64_rank_0(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbmvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasZtbmvStridedBatched_64_rank_0 = hipblasZtbmvStridedBatched_64_(handle,uplo,transA, & + diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasZtbmvStridedBatched_64_rank_1(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbmvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasZtbmvStridedBatched_64_rank_1 = hipblasZtbmvStridedBatched_64_(handle,uplo,transA, & + diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasZtbmvStridedBatched_64_full_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbmvStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasZtbmvStridedBatched_64_full_rank = hipblasZtbmvStridedBatched_64_(handle,uplo,transA, & + diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasZtbmvStridedBatched_64_strided_rank(handle,uplo,transA,diag,n,k,AP,lda, & + strideA,x,incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbmvStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasZtbmvStridedBatched_64_strided_rank = hipblasZtbmvStridedBatched_64_(handle,uplo, & + transA,diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasStbsv_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbsv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + ! + hipblasStbsv_assumed_rank = hipblasStbsv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#else + function hipblasStbsv_rank_0(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbsv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: AP + integer(c_int) :: lda + real(c_float),target :: x + integer(c_int) :: incx + ! + hipblasStbsv_rank_0 = hipblasStbsv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda,c_loc(x),incx) + end function + + function hipblasStbsv_rank_1(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbsv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasStbsv_rank_1 = hipblasStbsv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda,c_loc(x),incx) + end function + + function hipblasStbsv_full_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbsv_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasStbsv_full_rank = hipblasStbsv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda,c_loc(x), & + incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDtbsv_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbsv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + ! + hipblasDtbsv_assumed_rank = hipblasDtbsv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#else + function hipblasDtbsv_rank_0(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbsv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: AP + integer(c_int) :: lda + real(c_double),target :: x + integer(c_int) :: incx + ! + hipblasDtbsv_rank_0 = hipblasDtbsv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda,c_loc(x),incx) + end function + + function hipblasDtbsv_rank_1(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbsv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasDtbsv_rank_1 = hipblasDtbsv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda,c_loc(x),incx) + end function + + function hipblasDtbsv_full_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbsv_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasDtbsv_full_rank = hipblasDtbsv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda,c_loc(x), & + incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCtbsv_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbsv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + ! + hipblasCtbsv_assumed_rank = hipblasCtbsv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#else + function hipblasCtbsv_rank_0(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbsv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: AP + integer(c_int) :: lda + complex(c_float_complex),target :: x + integer(c_int) :: incx + ! + hipblasCtbsv_rank_0 = hipblasCtbsv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda,c_loc(x),incx) + end function + + function hipblasCtbsv_rank_1(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbsv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasCtbsv_rank_1 = hipblasCtbsv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda,c_loc(x),incx) + end function + + function hipblasCtbsv_full_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbsv_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasCtbsv_full_rank = hipblasCtbsv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda,c_loc(x), & + incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZtbsv_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbsv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + ! + hipblasZtbsv_assumed_rank = hipblasZtbsv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#else + function hipblasZtbsv_rank_0(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbsv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: AP + integer(c_int) :: lda + complex(c_double_complex),target :: x + integer(c_int) :: incx + ! + hipblasZtbsv_rank_0 = hipblasZtbsv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda,c_loc(x),incx) + end function + + function hipblasZtbsv_rank_1(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbsv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasZtbsv_rank_1 = hipblasZtbsv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda,c_loc(x),incx) + end function + + function hipblasZtbsv_full_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbsv_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasZtbsv_full_rank = hipblasZtbsv_(handle,uplo,transA,diag,n,k,c_loc(AP),lda,c_loc(x), & + incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasStbsv_64_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbsv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + ! + hipblasStbsv_64_assumed_rank = hipblasStbsv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#else + function hipblasStbsv_64_rank_0(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbsv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: AP + integer(c_int64_t) :: lda + real(c_float),target :: x + integer(c_int64_t) :: incx + ! + hipblasStbsv_64_rank_0 = hipblasStbsv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + + function hipblasStbsv_64_rank_1(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbsv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasStbsv_64_rank_1 = hipblasStbsv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + + function hipblasStbsv_64_full_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbsv_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasStbsv_64_full_rank = hipblasStbsv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDtbsv_64_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbsv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + ! + hipblasDtbsv_64_assumed_rank = hipblasDtbsv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#else + function hipblasDtbsv_64_rank_0(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbsv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: AP + integer(c_int64_t) :: lda + real(c_double),target :: x + integer(c_int64_t) :: incx + ! + hipblasDtbsv_64_rank_0 = hipblasDtbsv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + + function hipblasDtbsv_64_rank_1(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbsv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasDtbsv_64_rank_1 = hipblasDtbsv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + + function hipblasDtbsv_64_full_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbsv_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasDtbsv_64_full_rank = hipblasDtbsv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCtbsv_64_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbsv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + ! + hipblasCtbsv_64_assumed_rank = hipblasCtbsv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#else + function hipblasCtbsv_64_rank_0(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbsv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + ! + hipblasCtbsv_64_rank_0 = hipblasCtbsv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + + function hipblasCtbsv_64_rank_1(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbsv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasCtbsv_64_rank_1 = hipblasCtbsv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + + function hipblasCtbsv_64_full_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbsv_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasCtbsv_64_full_rank = hipblasCtbsv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZtbsv_64_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbsv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + ! + hipblasZtbsv_64_assumed_rank = hipblasZtbsv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#else + function hipblasZtbsv_64_rank_0(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbsv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + ! + hipblasZtbsv_64_rank_0 = hipblasZtbsv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + + function hipblasZtbsv_64_rank_1(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbsv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasZtbsv_64_rank_1 = hipblasZtbsv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + + function hipblasZtbsv_64_full_rank(handle,uplo,transA,diag,n,k,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbsv_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasZtbsv_64_full_rank = hipblasZtbsv_64_(handle,uplo,transA,diag,n,k,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasStbsvStridedBatched_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbsvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasStbsvStridedBatched_assumed_rank = hipblasStbsvStridedBatched_(handle,uplo,transA, & + diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasStbsvStridedBatched_rank_0(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbsvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasStbsvStridedBatched_rank_0 = hipblasStbsvStridedBatched_(handle,uplo,transA,diag,n,k, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasStbsvStridedBatched_rank_1(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbsvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasStbsvStridedBatched_rank_1 = hipblasStbsvStridedBatched_(handle,uplo,transA,diag,n,k, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasStbsvStridedBatched_full_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbsvStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasStbsvStridedBatched_full_rank = hipblasStbsvStridedBatched_(handle,uplo,transA,diag, & + n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasStbsvStridedBatched_strided_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbsvStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasStbsvStridedBatched_strided_rank = hipblasStbsvStridedBatched_(handle,uplo,transA, & + diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDtbsvStridedBatched_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbsvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasDtbsvStridedBatched_assumed_rank = hipblasDtbsvStridedBatched_(handle,uplo,transA, & + diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasDtbsvStridedBatched_rank_0(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbsvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasDtbsvStridedBatched_rank_0 = hipblasDtbsvStridedBatched_(handle,uplo,transA,diag,n,k, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasDtbsvStridedBatched_rank_1(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbsvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasDtbsvStridedBatched_rank_1 = hipblasDtbsvStridedBatched_(handle,uplo,transA,diag,n,k, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasDtbsvStridedBatched_full_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbsvStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasDtbsvStridedBatched_full_rank = hipblasDtbsvStridedBatched_(handle,uplo,transA,diag, & + n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasDtbsvStridedBatched_strided_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbsvStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasDtbsvStridedBatched_strided_rank = hipblasDtbsvStridedBatched_(handle,uplo,transA, & + diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCtbsvStridedBatched_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbsvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasCtbsvStridedBatched_assumed_rank = hipblasCtbsvStridedBatched_(handle,uplo,transA, & + diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasCtbsvStridedBatched_rank_0(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbsvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasCtbsvStridedBatched_rank_0 = hipblasCtbsvStridedBatched_(handle,uplo,transA,diag,n,k, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasCtbsvStridedBatched_rank_1(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbsvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasCtbsvStridedBatched_rank_1 = hipblasCtbsvStridedBatched_(handle,uplo,transA,diag,n,k, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasCtbsvStridedBatched_full_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbsvStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasCtbsvStridedBatched_full_rank = hipblasCtbsvStridedBatched_(handle,uplo,transA,diag, & + n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasCtbsvStridedBatched_strided_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbsvStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasCtbsvStridedBatched_strided_rank = hipblasCtbsvStridedBatched_(handle,uplo,transA, & + diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZtbsvStridedBatched_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbsvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasZtbsvStridedBatched_assumed_rank = hipblasZtbsvStridedBatched_(handle,uplo,transA, & + diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasZtbsvStridedBatched_rank_0(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbsvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasZtbsvStridedBatched_rank_0 = hipblasZtbsvStridedBatched_(handle,uplo,transA,diag,n,k, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasZtbsvStridedBatched_rank_1(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbsvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasZtbsvStridedBatched_rank_1 = hipblasZtbsvStridedBatched_(handle,uplo,transA,diag,n,k, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasZtbsvStridedBatched_full_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbsvStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasZtbsvStridedBatched_full_rank = hipblasZtbsvStridedBatched_(handle,uplo,transA,diag, & + n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasZtbsvStridedBatched_strided_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbsvStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasZtbsvStridedBatched_strided_rank = hipblasZtbsvStridedBatched_(handle,uplo,transA, & + diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasStbsvStridedBatched_64_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda, & + strideA,x,incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbsvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasStbsvStridedBatched_64_assumed_rank = hipblasStbsvStridedBatched_64_(handle,uplo, & + transA,diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasStbsvStridedBatched_64_rank_0(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbsvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasStbsvStridedBatched_64_rank_0 = hipblasStbsvStridedBatched_64_(handle,uplo,transA, & + diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasStbsvStridedBatched_64_rank_1(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbsvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasStbsvStridedBatched_64_rank_1 = hipblasStbsvStridedBatched_64_(handle,uplo,transA, & + diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasStbsvStridedBatched_64_full_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbsvStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasStbsvStridedBatched_64_full_rank = hipblasStbsvStridedBatched_64_(handle,uplo,transA, & + diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasStbsvStridedBatched_64_strided_rank(handle,uplo,transA,diag,n,k,AP,lda, & + strideA,x,incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbsvStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasStbsvStridedBatched_64_strided_rank = hipblasStbsvStridedBatched_64_(handle,uplo, & + transA,diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDtbsvStridedBatched_64_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda, & + strideA,x,incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbsvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasDtbsvStridedBatched_64_assumed_rank = hipblasDtbsvStridedBatched_64_(handle,uplo, & + transA,diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasDtbsvStridedBatched_64_rank_0(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbsvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasDtbsvStridedBatched_64_rank_0 = hipblasDtbsvStridedBatched_64_(handle,uplo,transA, & + diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasDtbsvStridedBatched_64_rank_1(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbsvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasDtbsvStridedBatched_64_rank_1 = hipblasDtbsvStridedBatched_64_(handle,uplo,transA, & + diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasDtbsvStridedBatched_64_full_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbsvStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasDtbsvStridedBatched_64_full_rank = hipblasDtbsvStridedBatched_64_(handle,uplo,transA, & + diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasDtbsvStridedBatched_64_strided_rank(handle,uplo,transA,diag,n,k,AP,lda, & + strideA,x,incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbsvStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasDtbsvStridedBatched_64_strided_rank = hipblasDtbsvStridedBatched_64_(handle,uplo, & + transA,diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCtbsvStridedBatched_64_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda, & + strideA,x,incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbsvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasCtbsvStridedBatched_64_assumed_rank = hipblasCtbsvStridedBatched_64_(handle,uplo, & + transA,diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasCtbsvStridedBatched_64_rank_0(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbsvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasCtbsvStridedBatched_64_rank_0 = hipblasCtbsvStridedBatched_64_(handle,uplo,transA, & + diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasCtbsvStridedBatched_64_rank_1(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbsvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasCtbsvStridedBatched_64_rank_1 = hipblasCtbsvStridedBatched_64_(handle,uplo,transA, & + diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasCtbsvStridedBatched_64_full_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbsvStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasCtbsvStridedBatched_64_full_rank = hipblasCtbsvStridedBatched_64_(handle,uplo,transA, & + diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasCtbsvStridedBatched_64_strided_rank(handle,uplo,transA,diag,n,k,AP,lda, & + strideA,x,incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbsvStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasCtbsvStridedBatched_64_strided_rank = hipblasCtbsvStridedBatched_64_(handle,uplo, & + transA,diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZtbsvStridedBatched_64_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda, & + strideA,x,incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbsvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasZtbsvStridedBatched_64_assumed_rank = hipblasZtbsvStridedBatched_64_(handle,uplo, & + transA,diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasZtbsvStridedBatched_64_rank_0(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbsvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasZtbsvStridedBatched_64_rank_0 = hipblasZtbsvStridedBatched_64_(handle,uplo,transA, & + diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasZtbsvStridedBatched_64_rank_1(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbsvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasZtbsvStridedBatched_64_rank_1 = hipblasZtbsvStridedBatched_64_(handle,uplo,transA, & + diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasZtbsvStridedBatched_64_full_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbsvStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasZtbsvStridedBatched_64_full_rank = hipblasZtbsvStridedBatched_64_(handle,uplo,transA, & + diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasZtbsvStridedBatched_64_strided_rank(handle,uplo,transA,diag,n,k,AP,lda, & + strideA,x,incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbsvStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasZtbsvStridedBatched_64_strided_rank = hipblasZtbsvStridedBatched_64_(handle,uplo, & + transA,diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasStpmv_assumed_rank(handle,uplo,transA,diag,n,AP,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpmv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_float),target,dimension(..) :: AP + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + ! + hipblasStpmv_assumed_rank = hipblasStpmv_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + +#else + function hipblasStpmv_rank_0(handle,uplo,transA,diag,n,AP,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpmv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_float),target :: AP + real(c_float),target :: x + integer(c_int) :: incx + ! + hipblasStpmv_rank_0 = hipblasStpmv_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + + function hipblasStpmv_rank_1(handle,uplo,transA,diag,n,AP,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpmv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_float),target,dimension(:) :: AP + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasStpmv_rank_1 = hipblasStpmv_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDtpmv_assumed_rank(handle,uplo,transA,diag,n,AP,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpmv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_double),target,dimension(..) :: AP + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + ! + hipblasDtpmv_assumed_rank = hipblasDtpmv_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + +#else + function hipblasDtpmv_rank_0(handle,uplo,transA,diag,n,AP,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpmv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_double),target :: AP + real(c_double),target :: x + integer(c_int) :: incx + ! + hipblasDtpmv_rank_0 = hipblasDtpmv_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + + function hipblasDtpmv_rank_1(handle,uplo,transA,diag,n,AP,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpmv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_double),target,dimension(:) :: AP + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasDtpmv_rank_1 = hipblasDtpmv_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCtpmv_assumed_rank(handle,uplo,transA,diag,n,AP,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpmv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_float_complex),target,dimension(..) :: AP + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + ! + hipblasCtpmv_assumed_rank = hipblasCtpmv_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + +#else + function hipblasCtpmv_rank_0(handle,uplo,transA,diag,n,AP,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpmv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_float_complex),target :: AP + complex(c_float_complex),target :: x + integer(c_int) :: incx + ! + hipblasCtpmv_rank_0 = hipblasCtpmv_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + + function hipblasCtpmv_rank_1(handle,uplo,transA,diag,n,AP,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpmv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: AP + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasCtpmv_rank_1 = hipblasCtpmv_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZtpmv_assumed_rank(handle,uplo,transA,diag,n,AP,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpmv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_double_complex),target,dimension(..) :: AP + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + ! + hipblasZtpmv_assumed_rank = hipblasZtpmv_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + +#else + function hipblasZtpmv_rank_0(handle,uplo,transA,diag,n,AP,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpmv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_double_complex),target :: AP + complex(c_double_complex),target :: x + integer(c_int) :: incx + ! + hipblasZtpmv_rank_0 = hipblasZtpmv_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + + function hipblasZtpmv_rank_1(handle,uplo,transA,diag,n,AP,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpmv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: AP + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasZtpmv_rank_1 = hipblasZtpmv_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasStpmv_64_assumed_rank(handle,uplo,transA,diag,n,AP,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpmv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_float),target,dimension(..) :: AP + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + ! + hipblasStpmv_64_assumed_rank = hipblasStpmv_64_(handle,uplo,transA,diag,n,c_loc(AP), & + c_loc(x),incx) + end function + +#else + function hipblasStpmv_64_rank_0(handle,uplo,transA,diag,n,AP,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpmv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_float),target :: AP + real(c_float),target :: x + integer(c_int64_t) :: incx + ! + hipblasStpmv_64_rank_0 = hipblasStpmv_64_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + + function hipblasStpmv_64_rank_1(handle,uplo,transA,diag,n,AP,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpmv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_float),target,dimension(:) :: AP + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasStpmv_64_rank_1 = hipblasStpmv_64_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDtpmv_64_assumed_rank(handle,uplo,transA,diag,n,AP,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpmv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_double),target,dimension(..) :: AP + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + ! + hipblasDtpmv_64_assumed_rank = hipblasDtpmv_64_(handle,uplo,transA,diag,n,c_loc(AP), & + c_loc(x),incx) + end function + +#else + function hipblasDtpmv_64_rank_0(handle,uplo,transA,diag,n,AP,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpmv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_double),target :: AP + real(c_double),target :: x + integer(c_int64_t) :: incx + ! + hipblasDtpmv_64_rank_0 = hipblasDtpmv_64_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + + function hipblasDtpmv_64_rank_1(handle,uplo,transA,diag,n,AP,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpmv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_double),target,dimension(:) :: AP + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasDtpmv_64_rank_1 = hipblasDtpmv_64_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCtpmv_64_assumed_rank(handle,uplo,transA,diag,n,AP,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpmv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(..) :: AP + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + ! + hipblasCtpmv_64_assumed_rank = hipblasCtpmv_64_(handle,uplo,transA,diag,n,c_loc(AP), & + c_loc(x),incx) + end function + +#else + function hipblasCtpmv_64_rank_0(handle,uplo,transA,diag,n,AP,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpmv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_float_complex),target :: AP + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + ! + hipblasCtpmv_64_rank_0 = hipblasCtpmv_64_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + + function hipblasCtpmv_64_rank_1(handle,uplo,transA,diag,n,AP,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpmv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:) :: AP + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasCtpmv_64_rank_1 = hipblasCtpmv_64_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZtpmv_64_assumed_rank(handle,uplo,transA,diag,n,AP,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpmv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(..) :: AP + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + ! + hipblasZtpmv_64_assumed_rank = hipblasZtpmv_64_(handle,uplo,transA,diag,n,c_loc(AP), & + c_loc(x),incx) + end function + +#else + function hipblasZtpmv_64_rank_0(handle,uplo,transA,diag,n,AP,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpmv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_double_complex),target :: AP + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + ! + hipblasZtpmv_64_rank_0 = hipblasZtpmv_64_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + + function hipblasZtpmv_64_rank_1(handle,uplo,transA,diag,n,AP,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpmv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:) :: AP + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasZtpmv_64_rank_1 = hipblasZtpmv_64_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasStpmvStridedBatched_assumed_rank(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpmvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasStpmvStridedBatched_assumed_rank = hipblasStpmvStridedBatched_(handle,uplo,transA, & + diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasStpmvStridedBatched_rank_0(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpmvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_float),target :: AP + integer(c_int64_t) :: strideA + real(c_float),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasStpmvStridedBatched_rank_0 = hipblasStpmvStridedBatched_(handle,uplo,transA,diag,n, & + c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasStpmvStridedBatched_rank_1(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpmvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasStpmvStridedBatched_rank_1 = hipblasStpmvStridedBatched_(handle,uplo,transA,diag,n, & + c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasStpmvStridedBatched_strided_rank(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpmvStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasStpmvStridedBatched_strided_rank = hipblasStpmvStridedBatched_(handle,uplo,transA, & + diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDtpmvStridedBatched_assumed_rank(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpmvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasDtpmvStridedBatched_assumed_rank = hipblasDtpmvStridedBatched_(handle,uplo,transA, & + diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasDtpmvStridedBatched_rank_0(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpmvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_double),target :: AP + integer(c_int64_t) :: strideA + real(c_double),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasDtpmvStridedBatched_rank_0 = hipblasDtpmvStridedBatched_(handle,uplo,transA,diag,n, & + c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasDtpmvStridedBatched_rank_1(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpmvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasDtpmvStridedBatched_rank_1 = hipblasDtpmvStridedBatched_(handle,uplo,transA,diag,n, & + c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasDtpmvStridedBatched_strided_rank(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpmvStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasDtpmvStridedBatched_strided_rank = hipblasDtpmvStridedBatched_(handle,uplo,transA, & + diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCtpmvStridedBatched_assumed_rank(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpmvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasCtpmvStridedBatched_assumed_rank = hipblasCtpmvStridedBatched_(handle,uplo,transA, & + diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasCtpmvStridedBatched_rank_0(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpmvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_float_complex),target :: AP + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasCtpmvStridedBatched_rank_0 = hipblasCtpmvStridedBatched_(handle,uplo,transA,diag,n, & + c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasCtpmvStridedBatched_rank_1(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpmvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasCtpmvStridedBatched_rank_1 = hipblasCtpmvStridedBatched_(handle,uplo,transA,diag,n, & + c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasCtpmvStridedBatched_strided_rank(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpmvStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasCtpmvStridedBatched_strided_rank = hipblasCtpmvStridedBatched_(handle,uplo,transA, & + diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZtpmvStridedBatched_assumed_rank(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpmvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasZtpmvStridedBatched_assumed_rank = hipblasZtpmvStridedBatched_(handle,uplo,transA, & + diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasZtpmvStridedBatched_rank_0(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpmvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_double_complex),target :: AP + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasZtpmvStridedBatched_rank_0 = hipblasZtpmvStridedBatched_(handle,uplo,transA,diag,n, & + c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasZtpmvStridedBatched_rank_1(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpmvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasZtpmvStridedBatched_rank_1 = hipblasZtpmvStridedBatched_(handle,uplo,transA,diag,n, & + c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasZtpmvStridedBatched_strided_rank(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpmvStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasZtpmvStridedBatched_strided_rank = hipblasZtpmvStridedBatched_(handle,uplo,transA, & + diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasStpmvStridedBatched_64_assumed_rank(handle,uplo,transA,diag,n,AP,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpmvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasStpmvStridedBatched_64_assumed_rank = hipblasStpmvStridedBatched_64_(handle,uplo, & + transA,diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasStpmvStridedBatched_64_rank_0(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpmvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_float),target :: AP + integer(c_int64_t) :: strideA + real(c_float),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasStpmvStridedBatched_64_rank_0 = hipblasStpmvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasStpmvStridedBatched_64_rank_1(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpmvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasStpmvStridedBatched_64_rank_1 = hipblasStpmvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasStpmvStridedBatched_64_strided_rank(handle,uplo,transA,diag,n,AP,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpmvStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasStpmvStridedBatched_64_strided_rank = hipblasStpmvStridedBatched_64_(handle,uplo, & + transA,diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDtpmvStridedBatched_64_assumed_rank(handle,uplo,transA,diag,n,AP,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpmvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasDtpmvStridedBatched_64_assumed_rank = hipblasDtpmvStridedBatched_64_(handle,uplo, & + transA,diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasDtpmvStridedBatched_64_rank_0(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpmvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_double),target :: AP + integer(c_int64_t) :: strideA + real(c_double),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasDtpmvStridedBatched_64_rank_0 = hipblasDtpmvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasDtpmvStridedBatched_64_rank_1(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpmvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasDtpmvStridedBatched_64_rank_1 = hipblasDtpmvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasDtpmvStridedBatched_64_strided_rank(handle,uplo,transA,diag,n,AP,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpmvStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasDtpmvStridedBatched_64_strided_rank = hipblasDtpmvStridedBatched_64_(handle,uplo, & + transA,diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCtpmvStridedBatched_64_assumed_rank(handle,uplo,transA,diag,n,AP,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpmvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasCtpmvStridedBatched_64_assumed_rank = hipblasCtpmvStridedBatched_64_(handle,uplo, & + transA,diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasCtpmvStridedBatched_64_rank_0(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpmvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_float_complex),target :: AP + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasCtpmvStridedBatched_64_rank_0 = hipblasCtpmvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasCtpmvStridedBatched_64_rank_1(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpmvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasCtpmvStridedBatched_64_rank_1 = hipblasCtpmvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasCtpmvStridedBatched_64_strided_rank(handle,uplo,transA,diag,n,AP,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpmvStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasCtpmvStridedBatched_64_strided_rank = hipblasCtpmvStridedBatched_64_(handle,uplo, & + transA,diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZtpmvStridedBatched_64_assumed_rank(handle,uplo,transA,diag,n,AP,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpmvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasZtpmvStridedBatched_64_assumed_rank = hipblasZtpmvStridedBatched_64_(handle,uplo, & + transA,diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasZtpmvStridedBatched_64_rank_0(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpmvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_double_complex),target :: AP + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasZtpmvStridedBatched_64_rank_0 = hipblasZtpmvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasZtpmvStridedBatched_64_rank_1(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpmvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasZtpmvStridedBatched_64_rank_1 = hipblasZtpmvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasZtpmvStridedBatched_64_strided_rank(handle,uplo,transA,diag,n,AP,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpmvStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasZtpmvStridedBatched_64_strided_rank = hipblasZtpmvStridedBatched_64_(handle,uplo, & + transA,diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasStpsv_assumed_rank(handle,uplo,transA,diag,n,AP,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpsv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_float),target,dimension(..) :: AP + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + ! + hipblasStpsv_assumed_rank = hipblasStpsv_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + +#else + function hipblasStpsv_rank_0(handle,uplo,transA,diag,n,AP,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpsv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_float),target :: AP + real(c_float),target :: x + integer(c_int) :: incx + ! + hipblasStpsv_rank_0 = hipblasStpsv_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + + function hipblasStpsv_rank_1(handle,uplo,transA,diag,n,AP,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpsv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_float),target,dimension(:) :: AP + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasStpsv_rank_1 = hipblasStpsv_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDtpsv_assumed_rank(handle,uplo,transA,diag,n,AP,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpsv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_double),target,dimension(..) :: AP + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + ! + hipblasDtpsv_assumed_rank = hipblasDtpsv_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + +#else + function hipblasDtpsv_rank_0(handle,uplo,transA,diag,n,AP,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpsv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_double),target :: AP + real(c_double),target :: x + integer(c_int) :: incx + ! + hipblasDtpsv_rank_0 = hipblasDtpsv_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + + function hipblasDtpsv_rank_1(handle,uplo,transA,diag,n,AP,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpsv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_double),target,dimension(:) :: AP + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasDtpsv_rank_1 = hipblasDtpsv_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCtpsv_assumed_rank(handle,uplo,transA,diag,n,AP,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpsv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_float_complex),target,dimension(..) :: AP + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + ! + hipblasCtpsv_assumed_rank = hipblasCtpsv_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + +#else + function hipblasCtpsv_rank_0(handle,uplo,transA,diag,n,AP,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpsv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_float_complex),target :: AP + complex(c_float_complex),target :: x + integer(c_int) :: incx + ! + hipblasCtpsv_rank_0 = hipblasCtpsv_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + + function hipblasCtpsv_rank_1(handle,uplo,transA,diag,n,AP,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpsv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: AP + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasCtpsv_rank_1 = hipblasCtpsv_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZtpsv_assumed_rank(handle,uplo,transA,diag,n,AP,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpsv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_double_complex),target,dimension(..) :: AP + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + ! + hipblasZtpsv_assumed_rank = hipblasZtpsv_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + +#else + function hipblasZtpsv_rank_0(handle,uplo,transA,diag,n,AP,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpsv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_double_complex),target :: AP + complex(c_double_complex),target :: x + integer(c_int) :: incx + ! + hipblasZtpsv_rank_0 = hipblasZtpsv_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + + function hipblasZtpsv_rank_1(handle,uplo,transA,diag,n,AP,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpsv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: AP + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasZtpsv_rank_1 = hipblasZtpsv_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasStpsv_64_assumed_rank(handle,uplo,transA,diag,n,AP,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpsv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_float),target,dimension(..) :: AP + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + ! + hipblasStpsv_64_assumed_rank = hipblasStpsv_64_(handle,uplo,transA,diag,n,c_loc(AP), & + c_loc(x),incx) + end function + +#else + function hipblasStpsv_64_rank_0(handle,uplo,transA,diag,n,AP,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpsv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_float),target :: AP + real(c_float),target :: x + integer(c_int64_t) :: incx + ! + hipblasStpsv_64_rank_0 = hipblasStpsv_64_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + + function hipblasStpsv_64_rank_1(handle,uplo,transA,diag,n,AP,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpsv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_float),target,dimension(:) :: AP + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasStpsv_64_rank_1 = hipblasStpsv_64_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDtpsv_64_assumed_rank(handle,uplo,transA,diag,n,AP,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpsv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_double),target,dimension(..) :: AP + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + ! + hipblasDtpsv_64_assumed_rank = hipblasDtpsv_64_(handle,uplo,transA,diag,n,c_loc(AP), & + c_loc(x),incx) + end function + +#else + function hipblasDtpsv_64_rank_0(handle,uplo,transA,diag,n,AP,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpsv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_double),target :: AP + real(c_double),target :: x + integer(c_int64_t) :: incx + ! + hipblasDtpsv_64_rank_0 = hipblasDtpsv_64_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + + function hipblasDtpsv_64_rank_1(handle,uplo,transA,diag,n,AP,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpsv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_double),target,dimension(:) :: AP + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasDtpsv_64_rank_1 = hipblasDtpsv_64_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCtpsv_64_assumed_rank(handle,uplo,transA,diag,n,AP,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpsv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(..) :: AP + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + ! + hipblasCtpsv_64_assumed_rank = hipblasCtpsv_64_(handle,uplo,transA,diag,n,c_loc(AP), & + c_loc(x),incx) + end function + +#else + function hipblasCtpsv_64_rank_0(handle,uplo,transA,diag,n,AP,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpsv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_float_complex),target :: AP + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + ! + hipblasCtpsv_64_rank_0 = hipblasCtpsv_64_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + + function hipblasCtpsv_64_rank_1(handle,uplo,transA,diag,n,AP,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpsv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:) :: AP + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasCtpsv_64_rank_1 = hipblasCtpsv_64_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZtpsv_64_assumed_rank(handle,uplo,transA,diag,n,AP,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpsv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(..) :: AP + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + ! + hipblasZtpsv_64_assumed_rank = hipblasZtpsv_64_(handle,uplo,transA,diag,n,c_loc(AP), & + c_loc(x),incx) + end function + +#else + function hipblasZtpsv_64_rank_0(handle,uplo,transA,diag,n,AP,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpsv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_double_complex),target :: AP + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + ! + hipblasZtpsv_64_rank_0 = hipblasZtpsv_64_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + + function hipblasZtpsv_64_rank_1(handle,uplo,transA,diag,n,AP,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpsv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:) :: AP + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasZtpsv_64_rank_1 = hipblasZtpsv_64_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasStpsvStridedBatched_assumed_rank(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpsvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasStpsvStridedBatched_assumed_rank = hipblasStpsvStridedBatched_(handle,uplo,transA, & + diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasStpsvStridedBatched_rank_0(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpsvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_float),target :: AP + integer(c_int64_t) :: strideA + real(c_float),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasStpsvStridedBatched_rank_0 = hipblasStpsvStridedBatched_(handle,uplo,transA,diag,n, & + c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasStpsvStridedBatched_rank_1(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpsvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasStpsvStridedBatched_rank_1 = hipblasStpsvStridedBatched_(handle,uplo,transA,diag,n, & + c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasStpsvStridedBatched_strided_rank(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpsvStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasStpsvStridedBatched_strided_rank = hipblasStpsvStridedBatched_(handle,uplo,transA, & + diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDtpsvStridedBatched_assumed_rank(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpsvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasDtpsvStridedBatched_assumed_rank = hipblasDtpsvStridedBatched_(handle,uplo,transA, & + diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasDtpsvStridedBatched_rank_0(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpsvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_double),target :: AP + integer(c_int64_t) :: strideA + real(c_double),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasDtpsvStridedBatched_rank_0 = hipblasDtpsvStridedBatched_(handle,uplo,transA,diag,n, & + c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasDtpsvStridedBatched_rank_1(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpsvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasDtpsvStridedBatched_rank_1 = hipblasDtpsvStridedBatched_(handle,uplo,transA,diag,n, & + c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasDtpsvStridedBatched_strided_rank(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpsvStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasDtpsvStridedBatched_strided_rank = hipblasDtpsvStridedBatched_(handle,uplo,transA, & + diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCtpsvStridedBatched_assumed_rank(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpsvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasCtpsvStridedBatched_assumed_rank = hipblasCtpsvStridedBatched_(handle,uplo,transA, & + diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasCtpsvStridedBatched_rank_0(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpsvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_float_complex),target :: AP + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasCtpsvStridedBatched_rank_0 = hipblasCtpsvStridedBatched_(handle,uplo,transA,diag,n, & + c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasCtpsvStridedBatched_rank_1(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpsvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasCtpsvStridedBatched_rank_1 = hipblasCtpsvStridedBatched_(handle,uplo,transA,diag,n, & + c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasCtpsvStridedBatched_strided_rank(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpsvStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasCtpsvStridedBatched_strided_rank = hipblasCtpsvStridedBatched_(handle,uplo,transA, & + diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZtpsvStridedBatched_assumed_rank(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpsvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasZtpsvStridedBatched_assumed_rank = hipblasZtpsvStridedBatched_(handle,uplo,transA, & + diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasZtpsvStridedBatched_rank_0(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpsvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_double_complex),target :: AP + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasZtpsvStridedBatched_rank_0 = hipblasZtpsvStridedBatched_(handle,uplo,transA,diag,n, & + c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasZtpsvStridedBatched_rank_1(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpsvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasZtpsvStridedBatched_rank_1 = hipblasZtpsvStridedBatched_(handle,uplo,transA,diag,n, & + c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasZtpsvStridedBatched_strided_rank(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpsvStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasZtpsvStridedBatched_strided_rank = hipblasZtpsvStridedBatched_(handle,uplo,transA, & + diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasStpsvStridedBatched_64_assumed_rank(handle,uplo,transA,diag,n,AP,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpsvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasStpsvStridedBatched_64_assumed_rank = hipblasStpsvStridedBatched_64_(handle,uplo, & + transA,diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasStpsvStridedBatched_64_rank_0(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpsvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_float),target :: AP + integer(c_int64_t) :: strideA + real(c_float),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasStpsvStridedBatched_64_rank_0 = hipblasStpsvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasStpsvStridedBatched_64_rank_1(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpsvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasStpsvStridedBatched_64_rank_1 = hipblasStpsvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasStpsvStridedBatched_64_strided_rank(handle,uplo,transA,diag,n,AP,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpsvStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasStpsvStridedBatched_64_strided_rank = hipblasStpsvStridedBatched_64_(handle,uplo, & + transA,diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDtpsvStridedBatched_64_assumed_rank(handle,uplo,transA,diag,n,AP,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpsvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasDtpsvStridedBatched_64_assumed_rank = hipblasDtpsvStridedBatched_64_(handle,uplo, & + transA,diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasDtpsvStridedBatched_64_rank_0(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpsvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_double),target :: AP + integer(c_int64_t) :: strideA + real(c_double),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasDtpsvStridedBatched_64_rank_0 = hipblasDtpsvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasDtpsvStridedBatched_64_rank_1(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpsvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasDtpsvStridedBatched_64_rank_1 = hipblasDtpsvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasDtpsvStridedBatched_64_strided_rank(handle,uplo,transA,diag,n,AP,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpsvStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasDtpsvStridedBatched_64_strided_rank = hipblasDtpsvStridedBatched_64_(handle,uplo, & + transA,diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCtpsvStridedBatched_64_assumed_rank(handle,uplo,transA,diag,n,AP,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpsvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasCtpsvStridedBatched_64_assumed_rank = hipblasCtpsvStridedBatched_64_(handle,uplo, & + transA,diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasCtpsvStridedBatched_64_rank_0(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpsvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_float_complex),target :: AP + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasCtpsvStridedBatched_64_rank_0 = hipblasCtpsvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasCtpsvStridedBatched_64_rank_1(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpsvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasCtpsvStridedBatched_64_rank_1 = hipblasCtpsvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasCtpsvStridedBatched_64_strided_rank(handle,uplo,transA,diag,n,AP,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpsvStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasCtpsvStridedBatched_64_strided_rank = hipblasCtpsvStridedBatched_64_(handle,uplo, & + transA,diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZtpsvStridedBatched_64_assumed_rank(handle,uplo,transA,diag,n,AP,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpsvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasZtpsvStridedBatched_64_assumed_rank = hipblasZtpsvStridedBatched_64_(handle,uplo, & + transA,diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasZtpsvStridedBatched_64_rank_0(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpsvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_double_complex),target :: AP + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasZtpsvStridedBatched_64_rank_0 = hipblasZtpsvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasZtpsvStridedBatched_64_rank_1(handle,uplo,transA,diag,n,AP,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpsvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasZtpsvStridedBatched_64_rank_1 = hipblasZtpsvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasZtpsvStridedBatched_64_strided_rank(handle,uplo,transA,diag,n,AP,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpsvStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasZtpsvStridedBatched_64_strided_rank = hipblasZtpsvStridedBatched_64_(handle,uplo, & + transA,diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasStrmv_assumed_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + ! + hipblasStrmv_assumed_rank = hipblasStrmv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x), & + incx) + end function + +#else + function hipblasStrmv_rank_0(handle,uplo,transA,diag,n,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_float),target :: AP + integer(c_int) :: lda + real(c_float),target :: x + integer(c_int) :: incx + ! + hipblasStrmv_rank_0 = hipblasStrmv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x),incx) + end function + + function hipblasStrmv_rank_1(handle,uplo,transA,diag,n,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasStrmv_rank_1 = hipblasStrmv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x),incx) + end function + + function hipblasStrmv_full_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmv_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasStrmv_full_rank = hipblasStrmv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDtrmv_assumed_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + ! + hipblasDtrmv_assumed_rank = hipblasDtrmv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x), & + incx) + end function + +#else + function hipblasDtrmv_rank_0(handle,uplo,transA,diag,n,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_double),target :: AP + integer(c_int) :: lda + real(c_double),target :: x + integer(c_int) :: incx + ! + hipblasDtrmv_rank_0 = hipblasDtrmv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x),incx) + end function + + function hipblasDtrmv_rank_1(handle,uplo,transA,diag,n,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasDtrmv_rank_1 = hipblasDtrmv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x),incx) + end function + + function hipblasDtrmv_full_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmv_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasDtrmv_full_rank = hipblasDtrmv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCtrmv_assumed_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + ! + hipblasCtrmv_assumed_rank = hipblasCtrmv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x), & + incx) + end function + +#else + function hipblasCtrmv_rank_0(handle,uplo,transA,diag,n,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_float_complex),target :: AP + integer(c_int) :: lda + complex(c_float_complex),target :: x + integer(c_int) :: incx + ! + hipblasCtrmv_rank_0 = hipblasCtrmv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x),incx) + end function + + function hipblasCtrmv_rank_1(handle,uplo,transA,diag,n,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasCtrmv_rank_1 = hipblasCtrmv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x),incx) + end function + + function hipblasCtrmv_full_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmv_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasCtrmv_full_rank = hipblasCtrmv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZtrmv_assumed_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + ! + hipblasZtrmv_assumed_rank = hipblasZtrmv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x), & + incx) + end function + +#else + function hipblasZtrmv_rank_0(handle,uplo,transA,diag,n,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_double_complex),target :: AP + integer(c_int) :: lda + complex(c_double_complex),target :: x + integer(c_int) :: incx + ! + hipblasZtrmv_rank_0 = hipblasZtrmv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x),incx) + end function + + function hipblasZtrmv_rank_1(handle,uplo,transA,diag,n,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasZtrmv_rank_1 = hipblasZtrmv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x),incx) + end function + + function hipblasZtrmv_full_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmv_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasZtrmv_full_rank = hipblasZtrmv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasStrmv_64_assumed_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + ! + hipblasStrmv_64_assumed_rank = hipblasStrmv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#else + function hipblasStrmv_64_rank_0(handle,uplo,transA,diag,n,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_float),target :: AP + integer(c_int64_t) :: lda + real(c_float),target :: x + integer(c_int64_t) :: incx + ! + hipblasStrmv_64_rank_0 = hipblasStrmv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x), & + incx) + end function + + function hipblasStrmv_64_rank_1(handle,uplo,transA,diag,n,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasStrmv_64_rank_1 = hipblasStrmv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x), & + incx) + end function + + function hipblasStrmv_64_full_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmv_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasStrmv_64_full_rank = hipblasStrmv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDtrmv_64_assumed_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + ! + hipblasDtrmv_64_assumed_rank = hipblasDtrmv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#else + function hipblasDtrmv_64_rank_0(handle,uplo,transA,diag,n,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_double),target :: AP + integer(c_int64_t) :: lda + real(c_double),target :: x + integer(c_int64_t) :: incx + ! + hipblasDtrmv_64_rank_0 = hipblasDtrmv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x), & + incx) + end function + + function hipblasDtrmv_64_rank_1(handle,uplo,transA,diag,n,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasDtrmv_64_rank_1 = hipblasDtrmv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x), & + incx) + end function + + function hipblasDtrmv_64_full_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmv_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasDtrmv_64_full_rank = hipblasDtrmv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCtrmv_64_assumed_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + ! + hipblasCtrmv_64_assumed_rank = hipblasCtrmv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#else + function hipblasCtrmv_64_rank_0(handle,uplo,transA,diag,n,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + ! + hipblasCtrmv_64_rank_0 = hipblasCtrmv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x), & + incx) + end function + + function hipblasCtrmv_64_rank_1(handle,uplo,transA,diag,n,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasCtrmv_64_rank_1 = hipblasCtrmv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x), & + incx) + end function + + function hipblasCtrmv_64_full_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmv_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasCtrmv_64_full_rank = hipblasCtrmv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZtrmv_64_assumed_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + ! + hipblasZtrmv_64_assumed_rank = hipblasZtrmv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#else + function hipblasZtrmv_64_rank_0(handle,uplo,transA,diag,n,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + ! + hipblasZtrmv_64_rank_0 = hipblasZtrmv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x), & + incx) + end function + + function hipblasZtrmv_64_rank_1(handle,uplo,transA,diag,n,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasZtrmv_64_rank_1 = hipblasZtrmv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x), & + incx) + end function + + function hipblasZtrmv_64_full_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmv_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasZtrmv_64_full_rank = hipblasZtrmv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasStrmvStridedBatched_assumed_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasStrmvStridedBatched_assumed_rank = hipblasStrmvStridedBatched_(handle,uplo,transA, & + diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasStrmvStridedBatched_rank_0(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_float),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasStrmvStridedBatched_rank_0 = hipblasStrmvStridedBatched_(handle,uplo,transA,diag,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasStrmvStridedBatched_rank_1(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasStrmvStridedBatched_rank_1 = hipblasStrmvStridedBatched_(handle,uplo,transA,diag,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasStrmvStridedBatched_full_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmvStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasStrmvStridedBatched_full_rank = hipblasStrmvStridedBatched_(handle,uplo,transA,diag, & + n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasStrmvStridedBatched_strided_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmvStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_float),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasStrmvStridedBatched_strided_rank = hipblasStrmvStridedBatched_(handle,uplo,transA, & + diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDtrmvStridedBatched_assumed_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasDtrmvStridedBatched_assumed_rank = hipblasDtrmvStridedBatched_(handle,uplo,transA, & + diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasDtrmvStridedBatched_rank_0(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_double),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasDtrmvStridedBatched_rank_0 = hipblasDtrmvStridedBatched_(handle,uplo,transA,diag,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasDtrmvStridedBatched_rank_1(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasDtrmvStridedBatched_rank_1 = hipblasDtrmvStridedBatched_(handle,uplo,transA,diag,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasDtrmvStridedBatched_full_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmvStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasDtrmvStridedBatched_full_rank = hipblasDtrmvStridedBatched_(handle,uplo,transA,diag, & + n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasDtrmvStridedBatched_strided_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmvStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_double),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasDtrmvStridedBatched_strided_rank = hipblasDtrmvStridedBatched_(handle,uplo,transA, & + diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCtrmvStridedBatched_assumed_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasCtrmvStridedBatched_assumed_rank = hipblasCtrmvStridedBatched_(handle,uplo,transA, & + diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasCtrmvStridedBatched_rank_0(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_float_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasCtrmvStridedBatched_rank_0 = hipblasCtrmvStridedBatched_(handle,uplo,transA,diag,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasCtrmvStridedBatched_rank_1(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasCtrmvStridedBatched_rank_1 = hipblasCtrmvStridedBatched_(handle,uplo,transA,diag,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasCtrmvStridedBatched_full_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmvStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasCtrmvStridedBatched_full_rank = hipblasCtrmvStridedBatched_(handle,uplo,transA,diag, & + n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasCtrmvStridedBatched_strided_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmvStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasCtrmvStridedBatched_strided_rank = hipblasCtrmvStridedBatched_(handle,uplo,transA, & + diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZtrmvStridedBatched_assumed_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasZtrmvStridedBatched_assumed_rank = hipblasZtrmvStridedBatched_(handle,uplo,transA, & + diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasZtrmvStridedBatched_rank_0(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_double_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasZtrmvStridedBatched_rank_0 = hipblasZtrmvStridedBatched_(handle,uplo,transA,diag,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasZtrmvStridedBatched_rank_1(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasZtrmvStridedBatched_rank_1 = hipblasZtrmvStridedBatched_(handle,uplo,transA,diag,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasZtrmvStridedBatched_full_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmvStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasZtrmvStridedBatched_full_rank = hipblasZtrmvStridedBatched_(handle,uplo,transA,diag, & + n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasZtrmvStridedBatched_strided_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmvStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasZtrmvStridedBatched_strided_rank = hipblasZtrmvStridedBatched_(handle,uplo,transA, & + diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasStrmvStridedBatched_64_assumed_rank(handle,uplo,transA,diag,n,AP,lda,strideA, & + x,incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasStrmvStridedBatched_64_assumed_rank = hipblasStrmvStridedBatched_64_(handle,uplo, & + transA,diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasStrmvStridedBatched_64_rank_0(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_float),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasStrmvStridedBatched_64_rank_0 = hipblasStrmvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasStrmvStridedBatched_64_rank_1(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasStrmvStridedBatched_64_rank_1 = hipblasStrmvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasStrmvStridedBatched_64_full_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmvStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasStrmvStridedBatched_64_full_rank = hipblasStrmvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasStrmvStridedBatched_64_strided_rank(handle,uplo,transA,diag,n,AP,lda,strideA, & + x,incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmvStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_float),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasStrmvStridedBatched_64_strided_rank = hipblasStrmvStridedBatched_64_(handle,uplo, & + transA,diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDtrmvStridedBatched_64_assumed_rank(handle,uplo,transA,diag,n,AP,lda,strideA, & + x,incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasDtrmvStridedBatched_64_assumed_rank = hipblasDtrmvStridedBatched_64_(handle,uplo, & + transA,diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasDtrmvStridedBatched_64_rank_0(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_double),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasDtrmvStridedBatched_64_rank_0 = hipblasDtrmvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasDtrmvStridedBatched_64_rank_1(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasDtrmvStridedBatched_64_rank_1 = hipblasDtrmvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasDtrmvStridedBatched_64_full_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmvStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasDtrmvStridedBatched_64_full_rank = hipblasDtrmvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasDtrmvStridedBatched_64_strided_rank(handle,uplo,transA,diag,n,AP,lda,strideA, & + x,incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmvStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_double),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasDtrmvStridedBatched_64_strided_rank = hipblasDtrmvStridedBatched_64_(handle,uplo, & + transA,diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCtrmvStridedBatched_64_assumed_rank(handle,uplo,transA,diag,n,AP,lda,strideA, & + x,incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasCtrmvStridedBatched_64_assumed_rank = hipblasCtrmvStridedBatched_64_(handle,uplo, & + transA,diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasCtrmvStridedBatched_64_rank_0(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasCtrmvStridedBatched_64_rank_0 = hipblasCtrmvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasCtrmvStridedBatched_64_rank_1(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasCtrmvStridedBatched_64_rank_1 = hipblasCtrmvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasCtrmvStridedBatched_64_full_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmvStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasCtrmvStridedBatched_64_full_rank = hipblasCtrmvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasCtrmvStridedBatched_64_strided_rank(handle,uplo,transA,diag,n,AP,lda,strideA, & + x,incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmvStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasCtrmvStridedBatched_64_strided_rank = hipblasCtrmvStridedBatched_64_(handle,uplo, & + transA,diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZtrmvStridedBatched_64_assumed_rank(handle,uplo,transA,diag,n,AP,lda,strideA, & + x,incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasZtrmvStridedBatched_64_assumed_rank = hipblasZtrmvStridedBatched_64_(handle,uplo, & + transA,diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasZtrmvStridedBatched_64_rank_0(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasZtrmvStridedBatched_64_rank_0 = hipblasZtrmvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasZtrmvStridedBatched_64_rank_1(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasZtrmvStridedBatched_64_rank_1 = hipblasZtrmvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasZtrmvStridedBatched_64_full_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmvStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasZtrmvStridedBatched_64_full_rank = hipblasZtrmvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasZtrmvStridedBatched_64_strided_rank(handle,uplo,transA,diag,n,AP,lda,strideA, & + x,incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmvStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasZtrmvStridedBatched_64_strided_rank = hipblasZtrmvStridedBatched_64_(handle,uplo, & + transA,diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasStrsv_assumed_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + ! + hipblasStrsv_assumed_rank = hipblasStrsv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x), & + incx) + end function + +#else + function hipblasStrsv_rank_0(handle,uplo,transA,diag,n,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_float),target :: AP + integer(c_int) :: lda + real(c_float),target :: x + integer(c_int) :: incx + ! + hipblasStrsv_rank_0 = hipblasStrsv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x),incx) + end function + + function hipblasStrsv_rank_1(handle,uplo,transA,diag,n,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasStrsv_rank_1 = hipblasStrsv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x),incx) + end function + + function hipblasStrsv_full_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsv_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasStrsv_full_rank = hipblasStrsv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDtrsv_assumed_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + ! + hipblasDtrsv_assumed_rank = hipblasDtrsv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x), & + incx) + end function + +#else + function hipblasDtrsv_rank_0(handle,uplo,transA,diag,n,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_double),target :: AP + integer(c_int) :: lda + real(c_double),target :: x + integer(c_int) :: incx + ! + hipblasDtrsv_rank_0 = hipblasDtrsv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x),incx) + end function + + function hipblasDtrsv_rank_1(handle,uplo,transA,diag,n,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasDtrsv_rank_1 = hipblasDtrsv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x),incx) + end function + + function hipblasDtrsv_full_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsv_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasDtrsv_full_rank = hipblasDtrsv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCtrsv_assumed_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + ! + hipblasCtrsv_assumed_rank = hipblasCtrsv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x), & + incx) + end function + +#else + function hipblasCtrsv_rank_0(handle,uplo,transA,diag,n,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_float_complex),target :: AP + integer(c_int) :: lda + complex(c_float_complex),target :: x + integer(c_int) :: incx + ! + hipblasCtrsv_rank_0 = hipblasCtrsv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x),incx) + end function + + function hipblasCtrsv_rank_1(handle,uplo,transA,diag,n,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasCtrsv_rank_1 = hipblasCtrsv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x),incx) + end function + + function hipblasCtrsv_full_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsv_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasCtrsv_full_rank = hipblasCtrsv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZtrsv_assumed_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsv_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + ! + hipblasZtrsv_assumed_rank = hipblasZtrsv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x), & + incx) + end function + +#else + function hipblasZtrsv_rank_0(handle,uplo,transA,diag,n,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsv_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_double_complex),target :: AP + integer(c_int) :: lda + complex(c_double_complex),target :: x + integer(c_int) :: incx + ! + hipblasZtrsv_rank_0 = hipblasZtrsv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x),incx) + end function + + function hipblasZtrsv_rank_1(handle,uplo,transA,diag,n,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsv_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasZtrsv_rank_1 = hipblasZtrsv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x),incx) + end function + + function hipblasZtrsv_full_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsv_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + ! + hipblasZtrsv_full_rank = hipblasZtrsv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasStrsv_64_assumed_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + ! + hipblasStrsv_64_assumed_rank = hipblasStrsv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#else + function hipblasStrsv_64_rank_0(handle,uplo,transA,diag,n,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_float),target :: AP + integer(c_int64_t) :: lda + real(c_float),target :: x + integer(c_int64_t) :: incx + ! + hipblasStrsv_64_rank_0 = hipblasStrsv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x), & + incx) + end function + + function hipblasStrsv_64_rank_1(handle,uplo,transA,diag,n,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasStrsv_64_rank_1 = hipblasStrsv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x), & + incx) + end function + + function hipblasStrsv_64_full_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsv_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasStrsv_64_full_rank = hipblasStrsv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDtrsv_64_assumed_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + ! + hipblasDtrsv_64_assumed_rank = hipblasDtrsv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#else + function hipblasDtrsv_64_rank_0(handle,uplo,transA,diag,n,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_double),target :: AP + integer(c_int64_t) :: lda + real(c_double),target :: x + integer(c_int64_t) :: incx + ! + hipblasDtrsv_64_rank_0 = hipblasDtrsv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x), & + incx) + end function + + function hipblasDtrsv_64_rank_1(handle,uplo,transA,diag,n,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasDtrsv_64_rank_1 = hipblasDtrsv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x), & + incx) + end function + + function hipblasDtrsv_64_full_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsv_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasDtrsv_64_full_rank = hipblasDtrsv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCtrsv_64_assumed_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + ! + hipblasCtrsv_64_assumed_rank = hipblasCtrsv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#else + function hipblasCtrsv_64_rank_0(handle,uplo,transA,diag,n,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + ! + hipblasCtrsv_64_rank_0 = hipblasCtrsv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x), & + incx) + end function + + function hipblasCtrsv_64_rank_1(handle,uplo,transA,diag,n,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasCtrsv_64_rank_1 = hipblasCtrsv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x), & + incx) + end function + + function hipblasCtrsv_64_full_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsv_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasCtrsv_64_full_rank = hipblasCtrsv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZtrsv_64_assumed_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsv_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + ! + hipblasZtrsv_64_assumed_rank = hipblasZtrsv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#else + function hipblasZtrsv_64_rank_0(handle,uplo,transA,diag,n,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsv_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + ! + hipblasZtrsv_64_rank_0 = hipblasZtrsv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x), & + incx) + end function + + function hipblasZtrsv_64_rank_1(handle,uplo,transA,diag,n,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsv_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasZtrsv_64_rank_1 = hipblasZtrsv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x), & + incx) + end function + + function hipblasZtrsv_64_full_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsv_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + ! + hipblasZtrsv_64_full_rank = hipblasZtrsv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda, & + c_loc(x),incx) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasStrsvStridedBatched_assumed_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasStrsvStridedBatched_assumed_rank = hipblasStrsvStridedBatched_(handle,uplo,transA, & + diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasStrsvStridedBatched_rank_0(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_float),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasStrsvStridedBatched_rank_0 = hipblasStrsvStridedBatched_(handle,uplo,transA,diag,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasStrsvStridedBatched_rank_1(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasStrsvStridedBatched_rank_1 = hipblasStrsvStridedBatched_(handle,uplo,transA,diag,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasStrsvStridedBatched_full_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsvStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasStrsvStridedBatched_full_rank = hipblasStrsvStridedBatched_(handle,uplo,transA,diag, & + n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasStrsvStridedBatched_strided_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsvStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_float),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasStrsvStridedBatched_strided_rank = hipblasStrsvStridedBatched_(handle,uplo,transA, & + diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDtrsvStridedBatched_assumed_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasDtrsvStridedBatched_assumed_rank = hipblasDtrsvStridedBatched_(handle,uplo,transA, & + diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasDtrsvStridedBatched_rank_0(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_double),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasDtrsvStridedBatched_rank_0 = hipblasDtrsvStridedBatched_(handle,uplo,transA,diag,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasDtrsvStridedBatched_rank_1(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasDtrsvStridedBatched_rank_1 = hipblasDtrsvStridedBatched_(handle,uplo,transA,diag,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasDtrsvStridedBatched_full_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsvStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasDtrsvStridedBatched_full_rank = hipblasDtrsvStridedBatched_(handle,uplo,transA,diag, & + n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasDtrsvStridedBatched_strided_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsvStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_double),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasDtrsvStridedBatched_strided_rank = hipblasDtrsvStridedBatched_(handle,uplo,transA, & + diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCtrsvStridedBatched_assumed_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasCtrsvStridedBatched_assumed_rank = hipblasCtrsvStridedBatched_(handle,uplo,transA, & + diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasCtrsvStridedBatched_rank_0(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_float_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasCtrsvStridedBatched_rank_0 = hipblasCtrsvStridedBatched_(handle,uplo,transA,diag,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasCtrsvStridedBatched_rank_1(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasCtrsvStridedBatched_rank_1 = hipblasCtrsvStridedBatched_(handle,uplo,transA,diag,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasCtrsvStridedBatched_full_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsvStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasCtrsvStridedBatched_full_rank = hipblasCtrsvStridedBatched_(handle,uplo,transA,diag, & + n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasCtrsvStridedBatched_strided_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsvStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasCtrsvStridedBatched_strided_rank = hipblasCtrsvStridedBatched_(handle,uplo,transA, & + diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZtrsvStridedBatched_assumed_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsvStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasZtrsvStridedBatched_assumed_rank = hipblasZtrsvStridedBatched_(handle,uplo,transA, & + diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasZtrsvStridedBatched_rank_0(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsvStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_double_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasZtrsvStridedBatched_rank_0 = hipblasZtrsvStridedBatched_(handle,uplo,transA,diag,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasZtrsvStridedBatched_rank_1(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsvStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasZtrsvStridedBatched_rank_1 = hipblasZtrsvStridedBatched_(handle,uplo,transA,diag,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasZtrsvStridedBatched_full_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsvStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasZtrsvStridedBatched_full_rank = hipblasZtrsvStridedBatched_(handle,uplo,transA,diag, & + n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasZtrsvStridedBatched_strided_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsvStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + integer(c_int) :: batchCount + ! + hipblasZtrsvStridedBatched_strided_rank = hipblasZtrsvStridedBatched_(handle,uplo,transA, & + diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasStrsvStridedBatched_64_assumed_rank(handle,uplo,transA,diag,n,AP,lda,strideA, & + x,incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasStrsvStridedBatched_64_assumed_rank = hipblasStrsvStridedBatched_64_(handle,uplo, & + transA,diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasStrsvStridedBatched_64_rank_0(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_float),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasStrsvStridedBatched_64_rank_0 = hipblasStrsvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasStrsvStridedBatched_64_rank_1(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasStrsvStridedBatched_64_rank_1 = hipblasStrsvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasStrsvStridedBatched_64_full_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsvStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasStrsvStridedBatched_64_full_rank = hipblasStrsvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasStrsvStridedBatched_64_strided_rank(handle,uplo,transA,diag,n,AP,lda,strideA, & + x,incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsvStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_float),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasStrsvStridedBatched_64_strided_rank = hipblasStrsvStridedBatched_64_(handle,uplo, & + transA,diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDtrsvStridedBatched_64_assumed_rank(handle,uplo,transA,diag,n,AP,lda,strideA, & + x,incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasDtrsvStridedBatched_64_assumed_rank = hipblasDtrsvStridedBatched_64_(handle,uplo, & + transA,diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasDtrsvStridedBatched_64_rank_0(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_double),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasDtrsvStridedBatched_64_rank_0 = hipblasDtrsvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasDtrsvStridedBatched_64_rank_1(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasDtrsvStridedBatched_64_rank_1 = hipblasDtrsvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasDtrsvStridedBatched_64_full_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsvStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasDtrsvStridedBatched_64_full_rank = hipblasDtrsvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasDtrsvStridedBatched_64_strided_rank(handle,uplo,transA,diag,n,AP,lda,strideA, & + x,incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsvStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + real(c_double),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasDtrsvStridedBatched_64_strided_rank = hipblasDtrsvStridedBatched_64_(handle,uplo, & + transA,diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCtrsvStridedBatched_64_assumed_rank(handle,uplo,transA,diag,n,AP,lda,strideA, & + x,incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasCtrsvStridedBatched_64_assumed_rank = hipblasCtrsvStridedBatched_64_(handle,uplo, & + transA,diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasCtrsvStridedBatched_64_rank_0(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasCtrsvStridedBatched_64_rank_0 = hipblasCtrsvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasCtrsvStridedBatched_64_rank_1(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasCtrsvStridedBatched_64_rank_1 = hipblasCtrsvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasCtrsvStridedBatched_64_full_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x, & + incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsvStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasCtrsvStridedBatched_64_full_rank = hipblasCtrsvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasCtrsvStridedBatched_64_strided_rank(handle,uplo,transA,diag,n,AP,lda,strideA, & + x,incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsvStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasCtrsvStridedBatched_64_strided_rank = hipblasCtrsvStridedBatched_64_(handle,uplo, & + transA,diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZtrsvStridedBatched_64_assumed_rank(handle,uplo,transA,diag,n,AP,lda,strideA, & + x,incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsvStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasZtrsvStridedBatched_64_assumed_rank = hipblasZtrsvStridedBatched_64_(handle,uplo, & + transA,diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#else + function hipblasZtrsvStridedBatched_64_rank_0(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsvStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasZtrsvStridedBatched_64_rank_0 = hipblasZtrsvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasZtrsvStridedBatched_64_rank_1(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & + stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsvStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasZtrsvStridedBatched_64_rank_1 = hipblasZtrsvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasZtrsvStridedBatched_64_full_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x, & incx,stridex,batchCount) - use iso_c_binding implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbsvStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsvStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasZtrsvStridedBatched_64_full_rank = hipblasZtrsvStridedBatched_64_(handle,uplo,transA, & + diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + + function hipblasZtrsvStridedBatched_64_strided_rank(handle,uplo,transA,diag,n,AP,lda,strideA, & + x,incx,stridex,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsvStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + integer(c_int64_t) :: batchCount + ! + hipblasZtrsvStridedBatched_64_strided_rank = hipblasZtrsvStridedBatched_64_(handle,uplo, & + transA,diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSgemm_assumed_rank(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemm_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(..) :: BP + integer(c_int) :: ldb + real(c_float),target :: beta + real(c_float),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasSgemm_assumed_rank = hipblasSgemm_(handle,transA,transB,m,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasSgemm_assumed_rank_devptr(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta, & + CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemm_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(..) :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + real(c_float),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasSgemm_assumed_rank_devptr = hipblasSgemm_(handle,transA,transB,m,n,k,alpha,c_loc(AP), & + lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + +#else + function hipblasSgemm_rank_0(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemm_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int) :: lda + real(c_float),target :: BP + integer(c_int) :: ldb + real(c_float),target :: beta + real(c_float),target :: CP + integer(c_int) :: ldc + ! + hipblasSgemm_rank_0 = hipblasSgemm_(handle,transA,transB,m,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasSgemm_rank_0_devptr(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemm_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_float),target :: AP + integer(c_int) :: lda + real(c_float),target :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + real(c_float),target :: CP + integer(c_int) :: ldc + ! + hipblasSgemm_rank_0_devptr = hipblasSgemm_(handle,transA,transB,m,n,k,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + + function hipblasSgemm_rank_1(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemm_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(:) :: BP + integer(c_int) :: ldb + real(c_float),target :: beta + real(c_float),target,dimension(:) :: CP + integer(c_int) :: ldc + ! + hipblasSgemm_rank_1 = hipblasSgemm_(handle,transA,transB,m,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasSgemm_rank_1_devptr(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemm_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(:) :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + real(c_float),target,dimension(:) :: CP + integer(c_int) :: ldc + ! + hipblasSgemm_rank_1_devptr = hipblasSgemm_(handle,transA,transB,m,n,k,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + + function hipblasSgemm_full_rank(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemm_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(:,:) :: BP + integer(c_int) :: ldb + real(c_float),target :: beta + real(c_float),target,dimension(:,:) :: CP + integer(c_int) :: ldc + ! + hipblasSgemm_full_rank = hipblasSgemm_(handle,transA,transB,m,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasSgemm_full_rank_devptr(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP, & + ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemm_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(:,:) :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + real(c_float),target,dimension(:,:) :: CP + integer(c_int) :: ldc + ! + hipblasSgemm_full_rank_devptr = hipblasSgemm_(handle,transA,transB,m,n,k,alpha,c_loc(AP), & + lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDgemm_assumed_rank(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemm_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(..) :: BP + integer(c_int) :: ldb + real(c_double),target :: beta + real(c_double),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasDgemm_assumed_rank = hipblasDgemm_(handle,transA,transB,m,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasDgemm_assumed_rank_devptr(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta, & + CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemm_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(..) :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + real(c_double),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasDgemm_assumed_rank_devptr = hipblasDgemm_(handle,transA,transB,m,n,k,alpha,c_loc(AP), & + lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + +#else + function hipblasDgemm_rank_0(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemm_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int) :: lda + real(c_double),target :: BP + integer(c_int) :: ldb + real(c_double),target :: beta + real(c_double),target :: CP + integer(c_int) :: ldc + ! + hipblasDgemm_rank_0 = hipblasDgemm_(handle,transA,transB,m,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasDgemm_rank_0_devptr(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemm_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_double),target :: AP + integer(c_int) :: lda + real(c_double),target :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + real(c_double),target :: CP + integer(c_int) :: ldc + ! + hipblasDgemm_rank_0_devptr = hipblasDgemm_(handle,transA,transB,m,n,k,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + + function hipblasDgemm_rank_1(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemm_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(:) :: BP + integer(c_int) :: ldb + real(c_double),target :: beta + real(c_double),target,dimension(:) :: CP + integer(c_int) :: ldc + ! + hipblasDgemm_rank_1 = hipblasDgemm_(handle,transA,transB,m,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasDgemm_rank_1_devptr(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemm_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(:) :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + real(c_double),target,dimension(:) :: CP + integer(c_int) :: ldc + ! + hipblasDgemm_rank_1_devptr = hipblasDgemm_(handle,transA,transB,m,n,k,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + + function hipblasDgemm_full_rank(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemm_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(:,:) :: BP + integer(c_int) :: ldb + real(c_double),target :: beta + real(c_double),target,dimension(:,:) :: CP + integer(c_int) :: ldc + ! + hipblasDgemm_full_rank = hipblasDgemm_(handle,transA,transB,m,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasDgemm_full_rank_devptr(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP, & + ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemm_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(:,:) :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + real(c_double),target,dimension(:,:) :: CP + integer(c_int) :: ldc + ! + hipblasDgemm_full_rank_devptr = hipblasDgemm_(handle,transA,transB,m,n,k,alpha,c_loc(AP), & + lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCgemm_assumed_rank(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemm_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasCgemm_assumed_rank = hipblasCgemm_(handle,transA,transB,m,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCgemm_assumed_rank_devptr(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta, & + CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemm_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasCgemm_assumed_rank_devptr = hipblasCgemm_(handle,transA,transB,m,n,k,alpha,c_loc(AP), & + lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + +#else + function hipblasCgemm_rank_0(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemm_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + complex(c_float_complex),target :: BP + integer(c_int) :: ldb + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: CP + integer(c_int) :: ldc + ! + hipblasCgemm_rank_0 = hipblasCgemm_(handle,transA,transB,m,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCgemm_rank_0_devptr(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemm_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + complex(c_float_complex),target :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + complex(c_float_complex),target :: CP + integer(c_int) :: ldc + ! + hipblasCgemm_rank_0_devptr = hipblasCgemm_(handle,transA,transB,m,n,k,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + + function hipblasCgemm_rank_1(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemm_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + ! + hipblasCgemm_rank_1 = hipblasCgemm_(handle,transA,transB,m,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCgemm_rank_1_devptr(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemm_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + ! + hipblasCgemm_rank_1_devptr = hipblasCgemm_(handle,transA,transB,m,n,k,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + + function hipblasCgemm_full_rank(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemm_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + ! + hipblasCgemm_full_rank = hipblasCgemm_(handle,transA,transB,m,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCgemm_full_rank_devptr(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP, & + ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemm_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + ! + hipblasCgemm_full_rank_devptr = hipblasCgemm_(handle,transA,transB,m,n,k,alpha,c_loc(AP), & + lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZgemm_assumed_rank(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemm_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasZgemm_assumed_rank = hipblasZgemm_(handle,transA,transB,m,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZgemm_assumed_rank_devptr(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta, & + CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemm_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasZgemm_assumed_rank_devptr = hipblasZgemm_(handle,transA,transB,m,n,k,alpha,c_loc(AP), & + lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + +#else + function hipblasZgemm_rank_0(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemm_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int) :: lda + complex(c_double_complex),target :: BP + integer(c_int) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: CP + integer(c_int) :: ldc + ! + hipblasZgemm_rank_0 = hipblasZgemm_(handle,transA,transB,m,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZgemm_rank_0_devptr(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemm_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target :: AP + integer(c_int) :: lda + complex(c_double_complex),target :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + complex(c_double_complex),target :: CP + integer(c_int) :: ldc + ! + hipblasZgemm_rank_0_devptr = hipblasZgemm_(handle,transA,transB,m,n,k,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + + function hipblasZgemm_rank_1(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemm_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + ! + hipblasZgemm_rank_1 = hipblasZgemm_(handle,transA,transB,m,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZgemm_rank_1_devptr(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemm_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + ! + hipblasZgemm_rank_1_devptr = hipblasZgemm_(handle,transA,transB,m,n,k,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + + function hipblasZgemm_full_rank(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemm_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + ! + hipblasZgemm_full_rank = hipblasZgemm_(handle,transA,transB,m,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZgemm_full_rank_devptr(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP, & + ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemm_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + ! + hipblasZgemm_full_rank_devptr = hipblasZgemm_(handle,transA,transB,m,n,k,alpha,c_loc(AP), & + lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSgemm_64_assumed_rank(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP, & + ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemm_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + real(c_float),target :: beta + real(c_float),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasSgemm_64_assumed_rank = hipblasSgemm_64_(handle,transA,transB,m,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasSgemm_64_assumed_rank_devptr(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb, & + beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemm_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + real(c_float),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasSgemm_64_assumed_rank_devptr = hipblasSgemm_64_(handle,transA,transB,m,n,k,alpha, & + c_loc(AP),lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + +#else + function hipblasSgemm_64_rank_0(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemm_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int64_t) :: lda + real(c_float),target :: BP + integer(c_int64_t) :: ldb + real(c_float),target :: beta + real(c_float),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasSgemm_64_rank_0 = hipblasSgemm_64_(handle,transA,transB,m,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasSgemm_64_rank_0_devptr(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP, & + ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemm_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_float),target :: AP + integer(c_int64_t) :: lda + real(c_float),target :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + real(c_float),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasSgemm_64_rank_0_devptr = hipblasSgemm_64_(handle,transA,transB,m,n,k,alpha,c_loc(AP), & + lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + + function hipblasSgemm_64_rank_1(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemm_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + real(c_float),target :: beta + real(c_float),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasSgemm_64_rank_1 = hipblasSgemm_64_(handle,transA,transB,m,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasSgemm_64_rank_1_devptr(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP, & + ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemm_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + real(c_float),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasSgemm_64_rank_1_devptr = hipblasSgemm_64_(handle,transA,transB,m,n,k,alpha,c_loc(AP), & + lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + + function hipblasSgemm_64_full_rank(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemm_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + real(c_float),target :: beta + real(c_float),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasSgemm_64_full_rank = hipblasSgemm_64_(handle,transA,transB,m,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasSgemm_64_full_rank_devptr(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta, & + CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemm_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + real(c_float),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasSgemm_64_full_rank_devptr = hipblasSgemm_64_(handle,transA,transB,m,n,k,alpha, & + c_loc(AP),lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDgemm_64_assumed_rank(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP, & + ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemm_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + real(c_double),target :: beta + real(c_double),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasDgemm_64_assumed_rank = hipblasDgemm_64_(handle,transA,transB,m,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasDgemm_64_assumed_rank_devptr(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb, & + beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemm_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + real(c_double),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasDgemm_64_assumed_rank_devptr = hipblasDgemm_64_(handle,transA,transB,m,n,k,alpha, & + c_loc(AP),lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + +#else + function hipblasDgemm_64_rank_0(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemm_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int64_t) :: lda + real(c_double),target :: BP + integer(c_int64_t) :: ldb + real(c_double),target :: beta + real(c_double),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasDgemm_64_rank_0 = hipblasDgemm_64_(handle,transA,transB,m,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasDgemm_64_rank_0_devptr(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP, & + ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemm_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_double),target :: AP + integer(c_int64_t) :: lda + real(c_double),target :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + real(c_double),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasDgemm_64_rank_0_devptr = hipblasDgemm_64_(handle,transA,transB,m,n,k,alpha,c_loc(AP), & + lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + + function hipblasDgemm_64_rank_1(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemm_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + real(c_double),target :: beta + real(c_double),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasDgemm_64_rank_1 = hipblasDgemm_64_(handle,transA,transB,m,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasDgemm_64_rank_1_devptr(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP, & + ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemm_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + real(c_double),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasDgemm_64_rank_1_devptr = hipblasDgemm_64_(handle,transA,transB,m,n,k,alpha,c_loc(AP), & + lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + + function hipblasDgemm_64_full_rank(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemm_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + real(c_double),target :: beta + real(c_double),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasDgemm_64_full_rank = hipblasDgemm_64_(handle,transA,transB,m,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasDgemm_64_full_rank_devptr(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta, & + CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemm_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + real(c_double),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasDgemm_64_full_rank_devptr = hipblasDgemm_64_(handle,transA,transB,m,n,k,alpha, & + c_loc(AP),lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCgemm_64_assumed_rank(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP, & + ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemm_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCgemm_64_assumed_rank = hipblasCgemm_64_(handle,transA,transB,m,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCgemm_64_assumed_rank_devptr(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb, & + beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemm_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCgemm_64_assumed_rank_devptr = hipblasCgemm_64_(handle,transA,transB,m,n,k,alpha, & + c_loc(AP),lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + +#else + function hipblasCgemm_64_rank_0(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemm_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target :: BP + integer(c_int64_t) :: ldb + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasCgemm_64_rank_0 = hipblasCgemm_64_(handle,transA,transB,m,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCgemm_64_rank_0_devptr(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP, & + ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemm_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + complex(c_float_complex),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasCgemm_64_rank_0_devptr = hipblasCgemm_64_(handle,transA,transB,m,n,k,alpha,c_loc(AP), & + lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + + function hipblasCgemm_64_rank_1(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemm_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCgemm_64_rank_1 = hipblasCgemm_64_(handle,transA,transB,m,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCgemm_64_rank_1_devptr(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP, & + ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemm_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCgemm_64_rank_1_devptr = hipblasCgemm_64_(handle,transA,transB,m,n,k,alpha,c_loc(AP), & + lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + + function hipblasCgemm_64_full_rank(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemm_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCgemm_64_full_rank = hipblasCgemm_64_(handle,transA,transB,m,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCgemm_64_full_rank_devptr(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta, & + CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemm_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCgemm_64_full_rank_devptr = hipblasCgemm_64_(handle,transA,transB,m,n,k,alpha, & + c_loc(AP),lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZgemm_64_assumed_rank(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP, & + ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemm_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZgemm_64_assumed_rank = hipblasZgemm_64_(handle,transA,transB,m,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZgemm_64_assumed_rank_devptr(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb, & + beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemm_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZgemm_64_assumed_rank_devptr = hipblasZgemm_64_(handle,transA,transB,m,n,k,alpha, & + c_loc(AP),lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + +#else + function hipblasZgemm_64_rank_0(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemm_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target :: BP + integer(c_int64_t) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasZgemm_64_rank_0 = hipblasZgemm_64_(handle,transA,transB,m,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZgemm_64_rank_0_devptr(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP, & + ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemm_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + complex(c_double_complex),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasZgemm_64_rank_0_devptr = hipblasZgemm_64_(handle,transA,transB,m,n,k,alpha,c_loc(AP), & + lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + + function hipblasZgemm_64_rank_1(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemm_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZgemm_64_rank_1 = hipblasZgemm_64_(handle,transA,transB,m,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZgemm_64_rank_1_devptr(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP, & + ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemm_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZgemm_64_rank_1_devptr = hipblasZgemm_64_(handle,transA,transB,m,n,k,alpha,c_loc(AP), & + lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + + function hipblasZgemm_64_full_rank(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemm_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZgemm_64_full_rank = hipblasZgemm_64_(handle,transA,transB,m,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZgemm_64_full_rank_devptr(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta, & + CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemm_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZgemm_64_full_rank_devptr = hipblasZgemm_64_(handle,transA,transB,m,n,k,alpha, & + c_loc(AP),lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSgemmGroupedBatched_assumed_rank(handle,transA_array,transB_array,m_array, & + n_array,k_array,alpha_array,Aarray,lda_array,Barray,ldb_array,beta_array,Carray,ldc_array, & + group_count,group_size) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmGroupedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)),target,dimension(..) :: transA_array + integer(kind(HIPBLAS_OP_N)),target,dimension(..) :: transB_array + integer(c_int),target,dimension(..) :: m_array + integer(c_int),target,dimension(..) :: n_array + integer(c_int),target,dimension(..) :: k_array + real(c_float),target,dimension(..) :: alpha_array + type(c_ptr), value :: Aarray + integer(c_int),target,dimension(..) :: lda_array + type(c_ptr), value :: Barray + integer(c_int),target,dimension(..) :: ldb_array + real(c_float),target,dimension(..) :: beta_array + type(c_ptr), value :: Carray + integer(c_int),target,dimension(..) :: ldc_array + integer(c_int) :: group_count + integer(c_int),target,dimension(..) :: group_size + ! + hipblasSgemmGroupedBatched_assumed_rank = hipblasSgemmGroupedBatched_(handle, & + c_loc(transA_array),c_loc(transB_array),c_loc(m_array),c_loc(n_array),c_loc(k_array), & + c_loc(alpha_array),Aarray,c_loc(lda_array),Barray,c_loc(ldb_array),c_loc(beta_array), & + Carray,c_loc(ldc_array),group_count,c_loc(group_size)) + end function + +#else + function hipblasSgemmGroupedBatched_rank_0(handle,transA_array,transB_array,m_array,n_array, & + k_array,alpha_array,Aarray,lda_array,Barray,ldb_array,beta_array,Carray,ldc_array, & + group_count,group_size) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmGroupedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)),target :: transA_array + integer(kind(HIPBLAS_OP_N)),target :: transB_array + integer(c_int),target :: m_array + integer(c_int),target :: n_array + integer(c_int),target :: k_array + real(c_float),target :: alpha_array + type(c_ptr), value :: Aarray + integer(c_int),target :: lda_array + type(c_ptr), value :: Barray + integer(c_int),target :: ldb_array + real(c_float),target :: beta_array + type(c_ptr), value :: Carray + integer(c_int),target :: ldc_array + integer(c_int) :: group_count + integer(c_int),target :: group_size + ! + hipblasSgemmGroupedBatched_rank_0 = hipblasSgemmGroupedBatched_(handle,c_loc(transA_array), & + c_loc(transB_array),c_loc(m_array),c_loc(n_array),c_loc(k_array),c_loc(alpha_array), & + Aarray,c_loc(lda_array),Barray,c_loc(ldb_array),c_loc(beta_array),Carray,c_loc(ldc_array), & + group_count,c_loc(group_size)) + end function + + function hipblasSgemmGroupedBatched_rank_1(handle,transA_array,transB_array,m_array,n_array, & + k_array,alpha_array,Aarray,lda_array,Barray,ldb_array,beta_array,Carray,ldc_array, & + group_count,group_size) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmGroupedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)),target,dimension(:) :: transA_array + integer(kind(HIPBLAS_OP_N)),target,dimension(:) :: transB_array + integer(c_int),target,dimension(:) :: m_array + integer(c_int),target,dimension(:) :: n_array + integer(c_int),target,dimension(:) :: k_array + real(c_float),target,dimension(:) :: alpha_array + type(c_ptr), value :: Aarray + integer(c_int),target,dimension(:) :: lda_array + type(c_ptr), value :: Barray + integer(c_int),target,dimension(:) :: ldb_array + real(c_float),target,dimension(:) :: beta_array + type(c_ptr), value :: Carray + integer(c_int),target,dimension(:) :: ldc_array + integer(c_int) :: group_count + integer(c_int),target,dimension(:) :: group_size + ! + hipblasSgemmGroupedBatched_rank_1 = hipblasSgemmGroupedBatched_(handle,c_loc(transA_array), & + c_loc(transB_array),c_loc(m_array),c_loc(n_array),c_loc(k_array),c_loc(alpha_array), & + Aarray,c_loc(lda_array),Barray,c_loc(ldb_array),c_loc(beta_array),Carray,c_loc(ldc_array), & + group_count,c_loc(group_size)) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDgemmGroupedBatched_assumed_rank(handle,transA_array,transB_array,m_array, & + n_array,k_array,alpha_array,Aarray,lda_array,Barray,ldb_array,beta_array,Carray,ldc_array, & + group_count,group_size) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmGroupedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)),target,dimension(..) :: transA_array + integer(kind(HIPBLAS_OP_N)),target,dimension(..) :: transB_array + integer(c_int),target,dimension(..) :: m_array + integer(c_int),target,dimension(..) :: n_array + integer(c_int),target,dimension(..) :: k_array + real(c_double),target,dimension(..) :: alpha_array + type(c_ptr), value :: Aarray + integer(c_int),target,dimension(..) :: lda_array + type(c_ptr), value :: Barray + integer(c_int),target,dimension(..) :: ldb_array + real(c_double),target,dimension(..) :: beta_array + type(c_ptr), value :: Carray + integer(c_int),target,dimension(..) :: ldc_array + integer(c_int) :: group_count + integer(c_int),target,dimension(..) :: group_size + ! + hipblasDgemmGroupedBatched_assumed_rank = hipblasDgemmGroupedBatched_(handle, & + c_loc(transA_array),c_loc(transB_array),c_loc(m_array),c_loc(n_array),c_loc(k_array), & + c_loc(alpha_array),Aarray,c_loc(lda_array),Barray,c_loc(ldb_array),c_loc(beta_array), & + Carray,c_loc(ldc_array),group_count,c_loc(group_size)) + end function + +#else + function hipblasDgemmGroupedBatched_rank_0(handle,transA_array,transB_array,m_array,n_array, & + k_array,alpha_array,Aarray,lda_array,Barray,ldb_array,beta_array,Carray,ldc_array, & + group_count,group_size) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmGroupedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)),target :: transA_array + integer(kind(HIPBLAS_OP_N)),target :: transB_array + integer(c_int),target :: m_array + integer(c_int),target :: n_array + integer(c_int),target :: k_array + real(c_double),target :: alpha_array + type(c_ptr), value :: Aarray + integer(c_int),target :: lda_array + type(c_ptr), value :: Barray + integer(c_int),target :: ldb_array + real(c_double),target :: beta_array + type(c_ptr), value :: Carray + integer(c_int),target :: ldc_array + integer(c_int) :: group_count + integer(c_int),target :: group_size + ! + hipblasDgemmGroupedBatched_rank_0 = hipblasDgemmGroupedBatched_(handle,c_loc(transA_array), & + c_loc(transB_array),c_loc(m_array),c_loc(n_array),c_loc(k_array),c_loc(alpha_array), & + Aarray,c_loc(lda_array),Barray,c_loc(ldb_array),c_loc(beta_array),Carray,c_loc(ldc_array), & + group_count,c_loc(group_size)) + end function + + function hipblasDgemmGroupedBatched_rank_1(handle,transA_array,transB_array,m_array,n_array, & + k_array,alpha_array,Aarray,lda_array,Barray,ldb_array,beta_array,Carray,ldc_array, & + group_count,group_size) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmGroupedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)),target,dimension(:) :: transA_array + integer(kind(HIPBLAS_OP_N)),target,dimension(:) :: transB_array + integer(c_int),target,dimension(:) :: m_array + integer(c_int),target,dimension(:) :: n_array + integer(c_int),target,dimension(:) :: k_array + real(c_double),target,dimension(:) :: alpha_array + type(c_ptr), value :: Aarray + integer(c_int),target,dimension(:) :: lda_array + type(c_ptr), value :: Barray + integer(c_int),target,dimension(:) :: ldb_array + real(c_double),target,dimension(:) :: beta_array + type(c_ptr), value :: Carray + integer(c_int),target,dimension(:) :: ldc_array + integer(c_int) :: group_count + integer(c_int),target,dimension(:) :: group_size + ! + hipblasDgemmGroupedBatched_rank_1 = hipblasDgemmGroupedBatched_(handle,c_loc(transA_array), & + c_loc(transB_array),c_loc(m_array),c_loc(n_array),c_loc(k_array),c_loc(alpha_array), & + Aarray,c_loc(lda_array),Barray,c_loc(ldb_array),c_loc(beta_array),Carray,c_loc(ldc_array), & + group_count,c_loc(group_size)) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSgemmGroupedBatched_64_assumed_rank(handle,transA_array,transB_array,m_array, & + n_array,k_array,alpha_array,Aarray,lda_array,Barray,ldb_array,beta_array,Carray,ldc_array, & + group_count,group_size) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmGroupedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)),target,dimension(..) :: transA_array + integer(kind(HIPBLAS_OP_N)),target,dimension(..) :: transB_array + integer(c_int64_t),target,dimension(..) :: m_array + integer(c_int64_t),target,dimension(..) :: n_array + integer(c_int64_t),target,dimension(..) :: k_array + real(c_float),target,dimension(..) :: alpha_array + type(c_ptr), value :: Aarray + integer(c_int64_t),target,dimension(..) :: lda_array + type(c_ptr), value :: Barray + integer(c_int64_t),target,dimension(..) :: ldb_array + real(c_float),target,dimension(..) :: beta_array + type(c_ptr), value :: Carray + integer(c_int64_t),target,dimension(..) :: ldc_array + integer(c_int64_t) :: group_count + integer(c_int64_t),target,dimension(..) :: group_size + ! + hipblasSgemmGroupedBatched_64_assumed_rank = hipblasSgemmGroupedBatched_64_(handle, & + c_loc(transA_array),c_loc(transB_array),c_loc(m_array),c_loc(n_array),c_loc(k_array), & + c_loc(alpha_array),Aarray,c_loc(lda_array),Barray,c_loc(ldb_array),c_loc(beta_array), & + Carray,c_loc(ldc_array),group_count,c_loc(group_size)) + end function + +#else + function hipblasSgemmGroupedBatched_64_rank_0(handle,transA_array,transB_array,m_array, & + n_array,k_array,alpha_array,Aarray,lda_array,Barray,ldb_array,beta_array,Carray,ldc_array, & + group_count,group_size) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmGroupedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)),target :: transA_array + integer(kind(HIPBLAS_OP_N)),target :: transB_array + integer(c_int64_t),target :: m_array + integer(c_int64_t),target :: n_array + integer(c_int64_t),target :: k_array + real(c_float),target :: alpha_array + type(c_ptr), value :: Aarray + integer(c_int64_t),target :: lda_array + type(c_ptr), value :: Barray + integer(c_int64_t),target :: ldb_array + real(c_float),target :: beta_array + type(c_ptr), value :: Carray + integer(c_int64_t),target :: ldc_array + integer(c_int64_t) :: group_count + integer(c_int64_t),target :: group_size + ! + hipblasSgemmGroupedBatched_64_rank_0 = hipblasSgemmGroupedBatched_64_(handle, & + c_loc(transA_array),c_loc(transB_array),c_loc(m_array),c_loc(n_array),c_loc(k_array), & + c_loc(alpha_array),Aarray,c_loc(lda_array),Barray,c_loc(ldb_array),c_loc(beta_array), & + Carray,c_loc(ldc_array),group_count,c_loc(group_size)) + end function + + function hipblasSgemmGroupedBatched_64_rank_1(handle,transA_array,transB_array,m_array, & + n_array,k_array,alpha_array,Aarray,lda_array,Barray,ldb_array,beta_array,Carray,ldc_array, & + group_count,group_size) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmGroupedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)),target,dimension(:) :: transA_array + integer(kind(HIPBLAS_OP_N)),target,dimension(:) :: transB_array + integer(c_int64_t),target,dimension(:) :: m_array + integer(c_int64_t),target,dimension(:) :: n_array + integer(c_int64_t),target,dimension(:) :: k_array + real(c_float),target,dimension(:) :: alpha_array + type(c_ptr), value :: Aarray + integer(c_int64_t),target,dimension(:) :: lda_array + type(c_ptr), value :: Barray + integer(c_int64_t),target,dimension(:) :: ldb_array + real(c_float),target,dimension(:) :: beta_array + type(c_ptr), value :: Carray + integer(c_int64_t),target,dimension(:) :: ldc_array + integer(c_int64_t) :: group_count + integer(c_int64_t),target,dimension(:) :: group_size + ! + hipblasSgemmGroupedBatched_64_rank_1 = hipblasSgemmGroupedBatched_64_(handle, & + c_loc(transA_array),c_loc(transB_array),c_loc(m_array),c_loc(n_array),c_loc(k_array), & + c_loc(alpha_array),Aarray,c_loc(lda_array),Barray,c_loc(ldb_array),c_loc(beta_array), & + Carray,c_loc(ldc_array),group_count,c_loc(group_size)) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDgemmGroupedBatched_64_assumed_rank(handle,transA_array,transB_array,m_array, & + n_array,k_array,alpha_array,Aarray,lda_array,Barray,ldb_array,beta_array,Carray,ldc_array, & + group_count,group_size) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmGroupedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)),target,dimension(..) :: transA_array + integer(kind(HIPBLAS_OP_N)),target,dimension(..) :: transB_array + integer(c_int64_t),target,dimension(..) :: m_array + integer(c_int64_t),target,dimension(..) :: n_array + integer(c_int64_t),target,dimension(..) :: k_array + real(c_double),target,dimension(..) :: alpha_array + type(c_ptr), value :: Aarray + integer(c_int64_t),target,dimension(..) :: lda_array + type(c_ptr), value :: Barray + integer(c_int64_t),target,dimension(..) :: ldb_array + real(c_double),target,dimension(..) :: beta_array + type(c_ptr), value :: Carray + integer(c_int64_t),target,dimension(..) :: ldc_array + integer(c_int64_t) :: group_count + integer(c_int64_t),target,dimension(..) :: group_size + ! + hipblasDgemmGroupedBatched_64_assumed_rank = hipblasDgemmGroupedBatched_64_(handle, & + c_loc(transA_array),c_loc(transB_array),c_loc(m_array),c_loc(n_array),c_loc(k_array), & + c_loc(alpha_array),Aarray,c_loc(lda_array),Barray,c_loc(ldb_array),c_loc(beta_array), & + Carray,c_loc(ldc_array),group_count,c_loc(group_size)) + end function + +#else + function hipblasDgemmGroupedBatched_64_rank_0(handle,transA_array,transB_array,m_array, & + n_array,k_array,alpha_array,Aarray,lda_array,Barray,ldb_array,beta_array,Carray,ldc_array, & + group_count,group_size) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmGroupedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)),target :: transA_array + integer(kind(HIPBLAS_OP_N)),target :: transB_array + integer(c_int64_t),target :: m_array + integer(c_int64_t),target :: n_array + integer(c_int64_t),target :: k_array + real(c_double),target :: alpha_array + type(c_ptr), value :: Aarray + integer(c_int64_t),target :: lda_array + type(c_ptr), value :: Barray + integer(c_int64_t),target :: ldb_array + real(c_double),target :: beta_array + type(c_ptr), value :: Carray + integer(c_int64_t),target :: ldc_array + integer(c_int64_t) :: group_count + integer(c_int64_t),target :: group_size + ! + hipblasDgemmGroupedBatched_64_rank_0 = hipblasDgemmGroupedBatched_64_(handle, & + c_loc(transA_array),c_loc(transB_array),c_loc(m_array),c_loc(n_array),c_loc(k_array), & + c_loc(alpha_array),Aarray,c_loc(lda_array),Barray,c_loc(ldb_array),c_loc(beta_array), & + Carray,c_loc(ldc_array),group_count,c_loc(group_size)) + end function + + function hipblasDgemmGroupedBatched_64_rank_1(handle,transA_array,transB_array,m_array, & + n_array,k_array,alpha_array,Aarray,lda_array,Barray,ldb_array,beta_array,Carray,ldc_array, & + group_count,group_size) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmGroupedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)),target,dimension(:) :: transA_array + integer(kind(HIPBLAS_OP_N)),target,dimension(:) :: transB_array + integer(c_int64_t),target,dimension(:) :: m_array + integer(c_int64_t),target,dimension(:) :: n_array + integer(c_int64_t),target,dimension(:) :: k_array + real(c_double),target,dimension(:) :: alpha_array + type(c_ptr), value :: Aarray + integer(c_int64_t),target,dimension(:) :: lda_array + type(c_ptr), value :: Barray + integer(c_int64_t),target,dimension(:) :: ldb_array + real(c_double),target,dimension(:) :: beta_array + type(c_ptr), value :: Carray + integer(c_int64_t),target,dimension(:) :: ldc_array + integer(c_int64_t) :: group_count + integer(c_int64_t),target,dimension(:) :: group_size + ! + hipblasDgemmGroupedBatched_64_rank_1 = hipblasDgemmGroupedBatched_64_(handle, & + c_loc(transA_array),c_loc(transB_array),c_loc(m_array),c_loc(n_array),c_loc(k_array), & + c_loc(alpha_array),Aarray,c_loc(lda_array),Barray,c_loc(ldb_array),c_loc(beta_array), & + Carray,c_loc(ldc_array),group_count,c_loc(group_size)) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSgemmStridedBatched_assumed_rank(handle,transA,transB,m,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + real(c_float),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasSgemmStridedBatched_assumed_rank = hipblasSgemmStridedBatched_(handle,transA,transB, & + m,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasSgemmStridedBatched_assumed_rank_devptr(handle,transA,transB,m,n,k,alpha,AP, & + lda,strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmStridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + real(c_float),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasSgemmStridedBatched_assumed_rank_devptr = hipblasSgemmStridedBatched_(handle,transA, & + transB,m,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) + end function + +#else + function hipblasSgemmStridedBatched_rank_0(handle,transA,transB,m,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + real(c_float),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasSgemmStridedBatched_rank_0 = hipblasSgemmStridedBatched_(handle,transA,transB,m,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasSgemmStridedBatched_rank_0_devptr(handle,transA,transB,m,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmStridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_float),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + real(c_float),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasSgemmStridedBatched_rank_0_devptr = hipblasSgemmStridedBatched_(handle,transA,transB, & + m,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) + end function + + function hipblasSgemmStridedBatched_rank_1(handle,transA,transB,m,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + real(c_float),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasSgemmStridedBatched_rank_1 = hipblasSgemmStridedBatched_(handle,transA,transB,m,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasSgemmStridedBatched_rank_1_devptr(handle,transA,transB,m,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmStridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + real(c_float),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasSgemmStridedBatched_rank_1_devptr = hipblasSgemmStridedBatched_(handle,transA,transB, & + m,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) + end function + + function hipblasSgemmStridedBatched_full_rank(handle,transA,transB,m,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + real(c_float),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasSgemmStridedBatched_full_rank = hipblasSgemmStridedBatched_(handle,transA,transB,m,n, & + k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasSgemmStridedBatched_full_rank_devptr(handle,transA,transB,m,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmStridedBatched_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + real(c_float),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasSgemmStridedBatched_full_rank_devptr = hipblasSgemmStridedBatched_(handle,transA, & + transB,m,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) + end function + + function hipblasSgemmStridedBatched_strided_rank(handle,transA,transB,m,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:,:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + real(c_float),target,dimension(:,:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasSgemmStridedBatched_strided_rank = hipblasSgemmStridedBatched_(handle,transA,transB, & + m,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasSgemmStridedBatched_strided_rank_devptr(handle,transA,transB,m,n,k,alpha,AP, & + lda,strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmStridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:,:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + real(c_float),target,dimension(:,:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasSgemmStridedBatched_strided_rank_devptr = hipblasSgemmStridedBatched_(handle,transA, & + transB,m,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDgemmStridedBatched_assumed_rank(handle,transA,transB,m,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + real(c_double),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasDgemmStridedBatched_assumed_rank = hipblasDgemmStridedBatched_(handle,transA,transB, & + m,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasDgemmStridedBatched_assumed_rank_devptr(handle,transA,transB,m,n,k,alpha,AP, & + lda,strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmStridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + real(c_double),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasDgemmStridedBatched_assumed_rank_devptr = hipblasDgemmStridedBatched_(handle,transA, & + transB,m,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) + end function + +#else + function hipblasDgemmStridedBatched_rank_0(handle,transA,transB,m,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + real(c_double),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasDgemmStridedBatched_rank_0 = hipblasDgemmStridedBatched_(handle,transA,transB,m,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasDgemmStridedBatched_rank_0_devptr(handle,transA,transB,m,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmStridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_double),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + real(c_double),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasDgemmStridedBatched_rank_0_devptr = hipblasDgemmStridedBatched_(handle,transA,transB, & + m,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) + end function + + function hipblasDgemmStridedBatched_rank_1(handle,transA,transB,m,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + real(c_double),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasDgemmStridedBatched_rank_1 = hipblasDgemmStridedBatched_(handle,transA,transB,m,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasDgemmStridedBatched_rank_1_devptr(handle,transA,transB,m,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmStridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + real(c_double),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasDgemmStridedBatched_rank_1_devptr = hipblasDgemmStridedBatched_(handle,transA,transB, & + m,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) + end function + + function hipblasDgemmStridedBatched_full_rank(handle,transA,transB,m,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + real(c_double),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasDgemmStridedBatched_full_rank = hipblasDgemmStridedBatched_(handle,transA,transB,m,n, & + k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasDgemmStridedBatched_full_rank_devptr(handle,transA,transB,m,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmStridedBatched_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + real(c_double),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasDgemmStridedBatched_full_rank_devptr = hipblasDgemmStridedBatched_(handle,transA, & + transB,m,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) + end function + + function hipblasDgemmStridedBatched_strided_rank(handle,transA,transB,m,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + real(c_double),target,dimension(:,:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasDgemmStridedBatched_strided_rank = hipblasDgemmStridedBatched_(handle,transA,transB, & + m,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasDgemmStridedBatched_strided_rank_devptr(handle,transA,transB,m,n,k,alpha,AP, & + lda,strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmStridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + real(c_double),target,dimension(:,:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasDgemmStridedBatched_strided_rank_devptr = hipblasDgemmStridedBatched_(handle,transA, & + transB,m,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCgemmStridedBatched_assumed_rank(handle,transA,transB,m,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemmStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCgemmStridedBatched_assumed_rank = hipblasCgemmStridedBatched_(handle,transA,transB, & + m,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasCgemmStridedBatched_assumed_rank_devptr(handle,transA,transB,m,n,k,alpha,AP, & + lda,strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemmStridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCgemmStridedBatched_assumed_rank_devptr = hipblasCgemmStridedBatched_(handle,transA, & + transB,m,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) + end function + +#else + function hipblasCgemmStridedBatched_rank_0(handle,transA,transB,m,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemmStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCgemmStridedBatched_rank_0 = hipblasCgemmStridedBatched_(handle,transA,transB,m,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasCgemmStridedBatched_rank_0_devptr(handle,transA,transB,m,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemmStridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_float_complex),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCgemmStridedBatched_rank_0_devptr = hipblasCgemmStridedBatched_(handle,transA,transB, & + m,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) + end function + + function hipblasCgemmStridedBatched_rank_1(handle,transA,transB,m,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemmStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCgemmStridedBatched_rank_1 = hipblasCgemmStridedBatched_(handle,transA,transB,m,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasCgemmStridedBatched_rank_1_devptr(handle,transA,transB,m,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemmStridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCgemmStridedBatched_rank_1_devptr = hipblasCgemmStridedBatched_(handle,transA,transB, & + m,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) + end function + + function hipblasCgemmStridedBatched_full_rank(handle,transA,transB,m,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemmStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCgemmStridedBatched_full_rank = hipblasCgemmStridedBatched_(handle,transA,transB,m,n, & + k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasCgemmStridedBatched_full_rank_devptr(handle,transA,transB,m,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemmStridedBatched_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCgemmStridedBatched_full_rank_devptr = hipblasCgemmStridedBatched_(handle,transA, & + transB,m,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) + end function + + function hipblasCgemmStridedBatched_strided_rank(handle,transA,transB,m,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemmStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:,:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCgemmStridedBatched_strided_rank = hipblasCgemmStridedBatched_(handle,transA,transB, & + m,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasCgemmStridedBatched_strided_rank_devptr(handle,transA,transB,m,n,k,alpha,AP, & + lda,strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemmStridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:,:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCgemmStridedBatched_strided_rank_devptr = hipblasCgemmStridedBatched_(handle,transA, & + transB,m,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZgemmStridedBatched_assumed_rank(handle,transA,transB,m,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemmStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZgemmStridedBatched_assumed_rank = hipblasZgemmStridedBatched_(handle,transA,transB, & + m,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasZgemmStridedBatched_assumed_rank_devptr(handle,transA,transB,m,n,k,alpha,AP, & + lda,strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemmStridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZgemmStridedBatched_assumed_rank_devptr = hipblasZgemmStridedBatched_(handle,transA, & + transB,m,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) + end function + +#else + function hipblasZgemmStridedBatched_rank_0(handle,transA,transB,m,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemmStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZgemmStridedBatched_rank_0 = hipblasZgemmStridedBatched_(handle,transA,transB,m,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasZgemmStridedBatched_rank_0_devptr(handle,transA,transB,m,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemmStridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_double_complex),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZgemmStridedBatched_rank_0_devptr = hipblasZgemmStridedBatched_(handle,transA,transB, & + m,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) + end function + + function hipblasZgemmStridedBatched_rank_1(handle,transA,transB,m,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemmStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZgemmStridedBatched_rank_1 = hipblasZgemmStridedBatched_(handle,transA,transB,m,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasZgemmStridedBatched_rank_1_devptr(handle,transA,transB,m,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemmStridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZgemmStridedBatched_rank_1_devptr = hipblasZgemmStridedBatched_(handle,transA,transB, & + m,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) + end function + + function hipblasZgemmStridedBatched_full_rank(handle,transA,transB,m,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemmStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZgemmStridedBatched_full_rank = hipblasZgemmStridedBatched_(handle,transA,transB,m,n, & + k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasZgemmStridedBatched_full_rank_devptr(handle,transA,transB,m,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemmStridedBatched_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZgemmStridedBatched_full_rank_devptr = hipblasZgemmStridedBatched_(handle,transA, & + transB,m,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) + end function + + function hipblasZgemmStridedBatched_strided_rank(handle,transA,transB,m,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemmStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZgemmStridedBatched_strided_rank = hipblasZgemmStridedBatched_(handle,transA,transB, & + m,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasZgemmStridedBatched_strided_rank_devptr(handle,transA,transB,m,n,k,alpha,AP, & + lda,strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemmStridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:,:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZgemmStridedBatched_strided_rank_devptr = hipblasZgemmStridedBatched_(handle,transA, & + transB,m,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSgemmStridedBatched_64_assumed_rank(handle,transA,transB,m,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + real(c_float),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasSgemmStridedBatched_64_assumed_rank = hipblasSgemmStridedBatched_64_(handle,transA, & + transB,m,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta), & + c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasSgemmStridedBatched_64_assumed_rank_devptr(handle,transA,transB,m,n,k,alpha, & + AP,lda,strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmStridedBatched_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + real(c_float),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasSgemmStridedBatched_64_assumed_rank_devptr = hipblasSgemmStridedBatched_64_(handle, & + transA,transB,m,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc, & + strideC,batchCount) + end function + +#else + function hipblasSgemmStridedBatched_64_rank_0(handle,transA,transB,m,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + real(c_float),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasSgemmStridedBatched_64_rank_0 = hipblasSgemmStridedBatched_64_(handle,transA,transB, & + m,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasSgemmStridedBatched_64_rank_0_devptr(handle,transA,transB,m,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmStridedBatched_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_float),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + real(c_float),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasSgemmStridedBatched_64_rank_0_devptr = hipblasSgemmStridedBatched_64_(handle,transA, & + transB,m,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) + end function + + function hipblasSgemmStridedBatched_64_rank_1(handle,transA,transB,m,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + real(c_float),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasSgemmStridedBatched_64_rank_1 = hipblasSgemmStridedBatched_64_(handle,transA,transB, & + m,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasSgemmStridedBatched_64_rank_1_devptr(handle,transA,transB,m,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmStridedBatched_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + real(c_float),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasSgemmStridedBatched_64_rank_1_devptr = hipblasSgemmStridedBatched_64_(handle,transA, & + transB,m,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) + end function + + function hipblasSgemmStridedBatched_64_full_rank(handle,transA,transB,m,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + real(c_float),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasSgemmStridedBatched_64_full_rank = hipblasSgemmStridedBatched_64_(handle,transA, & + transB,m,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta), & + c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasSgemmStridedBatched_64_full_rank_devptr(handle,transA,transB,m,n,k,alpha,AP, & + lda,strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmStridedBatched_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + real(c_float),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasSgemmStridedBatched_64_full_rank_devptr = hipblasSgemmStridedBatched_64_(handle, & + transA,transB,m,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasSgemmStridedBatched_64_strided_rank(handle,transA,transB,m,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:,:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + real(c_float),target,dimension(:,:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasSgemmStridedBatched_64_strided_rank = hipblasSgemmStridedBatched_64_(handle,transA, & + transB,m,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta), & + c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasSgemmStridedBatched_64_strided_rank_devptr(handle,transA,transB,m,n,k,alpha, & + AP,lda,strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmStridedBatched_64_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:,:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + real(c_float),target,dimension(:,:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasSgemmStridedBatched_64_strided_rank_devptr = hipblasSgemmStridedBatched_64_(handle, & + transA,transB,m,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc, & + strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDgemmStridedBatched_64_assumed_rank(handle,transA,transB,m,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + real(c_double),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasDgemmStridedBatched_64_assumed_rank = hipblasDgemmStridedBatched_64_(handle,transA, & + transB,m,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta), & + c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasDgemmStridedBatched_64_assumed_rank_devptr(handle,transA,transB,m,n,k,alpha, & + AP,lda,strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmStridedBatched_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + real(c_double),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasDgemmStridedBatched_64_assumed_rank_devptr = hipblasDgemmStridedBatched_64_(handle, & + transA,transB,m,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc, & + strideC,batchCount) + end function + +#else + function hipblasDgemmStridedBatched_64_rank_0(handle,transA,transB,m,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + real(c_double),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasDgemmStridedBatched_64_rank_0 = hipblasDgemmStridedBatched_64_(handle,transA,transB, & + m,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasDgemmStridedBatched_64_rank_0_devptr(handle,transA,transB,m,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmStridedBatched_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_double),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + real(c_double),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasDgemmStridedBatched_64_rank_0_devptr = hipblasDgemmStridedBatched_64_(handle,transA, & + transB,m,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) + end function + + function hipblasDgemmStridedBatched_64_rank_1(handle,transA,transB,m,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + real(c_double),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasDgemmStridedBatched_64_rank_1 = hipblasDgemmStridedBatched_64_(handle,transA,transB, & + m,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasDgemmStridedBatched_64_rank_1_devptr(handle,transA,transB,m,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmStridedBatched_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + real(c_double),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasDgemmStridedBatched_64_rank_1_devptr = hipblasDgemmStridedBatched_64_(handle,transA, & + transB,m,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) + end function + + function hipblasDgemmStridedBatched_64_full_rank(handle,transA,transB,m,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + real(c_double),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasDgemmStridedBatched_64_full_rank = hipblasDgemmStridedBatched_64_(handle,transA, & + transB,m,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta), & + c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasDgemmStridedBatched_64_full_rank_devptr(handle,transA,transB,m,n,k,alpha,AP, & + lda,strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmStridedBatched_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + real(c_double),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasDgemmStridedBatched_64_full_rank_devptr = hipblasDgemmStridedBatched_64_(handle, & + transA,transB,m,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasDgemmStridedBatched_64_strided_rank(handle,transA,transB,m,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + real(c_double),target,dimension(:,:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasDgemmStridedBatched_64_strided_rank = hipblasDgemmStridedBatched_64_(handle,transA, & + transB,m,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta), & + c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasDgemmStridedBatched_64_strided_rank_devptr(handle,transA,transB,m,n,k,alpha, & + AP,lda,strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmStridedBatched_64_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + real(c_double),target,dimension(:,:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasDgemmStridedBatched_64_strided_rank_devptr = hipblasDgemmStridedBatched_64_(handle, & + transA,transB,m,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc, & + strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCgemmStridedBatched_64_assumed_rank(handle,transA,transB,m,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemmStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCgemmStridedBatched_64_assumed_rank = hipblasCgemmStridedBatched_64_(handle,transA, & + transB,m,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta), & + c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasCgemmStridedBatched_64_assumed_rank_devptr(handle,transA,transB,m,n,k,alpha, & + AP,lda,strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemmStridedBatched_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCgemmStridedBatched_64_assumed_rank_devptr = hipblasCgemmStridedBatched_64_(handle, & + transA,transB,m,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc, & + strideC,batchCount) + end function + +#else + function hipblasCgemmStridedBatched_64_rank_0(handle,transA,transB,m,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemmStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCgemmStridedBatched_64_rank_0 = hipblasCgemmStridedBatched_64_(handle,transA,transB, & + m,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasCgemmStridedBatched_64_rank_0_devptr(handle,transA,transB,m,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemmStridedBatched_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_float_complex),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCgemmStridedBatched_64_rank_0_devptr = hipblasCgemmStridedBatched_64_(handle,transA, & + transB,m,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) + end function + + function hipblasCgemmStridedBatched_64_rank_1(handle,transA,transB,m,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemmStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCgemmStridedBatched_64_rank_1 = hipblasCgemmStridedBatched_64_(handle,transA,transB, & + m,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasCgemmStridedBatched_64_rank_1_devptr(handle,transA,transB,m,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemmStridedBatched_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCgemmStridedBatched_64_rank_1_devptr = hipblasCgemmStridedBatched_64_(handle,transA, & + transB,m,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) + end function + + function hipblasCgemmStridedBatched_64_full_rank(handle,transA,transB,m,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemmStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCgemmStridedBatched_64_full_rank = hipblasCgemmStridedBatched_64_(handle,transA, & + transB,m,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta), & + c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasCgemmStridedBatched_64_full_rank_devptr(handle,transA,transB,m,n,k,alpha,AP, & + lda,strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemmStridedBatched_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCgemmStridedBatched_64_full_rank_devptr = hipblasCgemmStridedBatched_64_(handle, & + transA,transB,m,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasCgemmStridedBatched_64_strided_rank(handle,transA,transB,m,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemmStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:,:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCgemmStridedBatched_64_strided_rank = hipblasCgemmStridedBatched_64_(handle,transA, & + transB,m,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta), & + c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasCgemmStridedBatched_64_strided_rank_devptr(handle,transA,transB,m,n,k,alpha, & + AP,lda,strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemmStridedBatched_64_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:,:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCgemmStridedBatched_64_strided_rank_devptr = hipblasCgemmStridedBatched_64_(handle, & + transA,transB,m,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc, & + strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZgemmStridedBatched_64_assumed_rank(handle,transA,transB,m,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemmStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZgemmStridedBatched_64_assumed_rank = hipblasZgemmStridedBatched_64_(handle,transA, & + transB,m,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta), & + c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasZgemmStridedBatched_64_assumed_rank_devptr(handle,transA,transB,m,n,k,alpha, & + AP,lda,strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemmStridedBatched_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZgemmStridedBatched_64_assumed_rank_devptr = hipblasZgemmStridedBatched_64_(handle, & + transA,transB,m,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc, & + strideC,batchCount) + end function + +#else + function hipblasZgemmStridedBatched_64_rank_0(handle,transA,transB,m,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemmStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZgemmStridedBatched_64_rank_0 = hipblasZgemmStridedBatched_64_(handle,transA,transB, & + m,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasZgemmStridedBatched_64_rank_0_devptr(handle,transA,transB,m,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemmStridedBatched_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_double_complex),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZgemmStridedBatched_64_rank_0_devptr = hipblasZgemmStridedBatched_64_(handle,transA, & + transB,m,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) + end function + + function hipblasZgemmStridedBatched_64_rank_1(handle,transA,transB,m,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemmStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZgemmStridedBatched_64_rank_1 = hipblasZgemmStridedBatched_64_(handle,transA,transB, & + m,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasZgemmStridedBatched_64_rank_1_devptr(handle,transA,transB,m,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemmStridedBatched_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZgemmStridedBatched_64_rank_1_devptr = hipblasZgemmStridedBatched_64_(handle,transA, & + transB,m,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) + end function + + function hipblasZgemmStridedBatched_64_full_rank(handle,transA,transB,m,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemmStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZgemmStridedBatched_64_full_rank = hipblasZgemmStridedBatched_64_(handle,transA, & + transB,m,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta), & + c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasZgemmStridedBatched_64_full_rank_devptr(handle,transA,transB,m,n,k,alpha,AP, & + lda,strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemmStridedBatched_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZgemmStridedBatched_64_full_rank_devptr = hipblasZgemmStridedBatched_64_(handle, & + transA,transB,m,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasZgemmStridedBatched_64_strided_rank(handle,transA,transB,m,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemmStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZgemmStridedBatched_64_strided_rank = hipblasZgemmStridedBatched_64_(handle,transA, & + transB,m,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta), & + c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasZgemmStridedBatched_64_strided_rank_devptr(handle,transA,transB,m,n,k,alpha, & + AP,lda,strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemmStridedBatched_64_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:,:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZgemmStridedBatched_64_strided_rank_devptr = hipblasZgemmStridedBatched_64_(handle, & + transA,transB,m,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc, & + strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCherk_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherk_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_float),target :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasCherk_assumed_rank = hipblasCherk_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCherk_assumed_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherk_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasCherk_assumed_rank_devptr = hipblasCherk_(handle,uplo,transA,n,k,alpha,c_loc(AP),lda, & + beta,c_loc(CP),ldc) + end function + +#else + function hipblasCherk_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherk_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + real(c_float),target :: beta + complex(c_float_complex),target :: CP + integer(c_int) :: ldc + ! + hipblasCherk_rank_0 = hipblasCherk_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCherk_rank_0_devptr(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherk_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + type(c_ptr),value :: beta + complex(c_float_complex),target :: CP + integer(c_int) :: ldc + ! + hipblasCherk_rank_0_devptr = hipblasCherk_(handle,uplo,transA,n,k,alpha,c_loc(AP),lda,beta, & + c_loc(CP),ldc) + end function + + function hipblasCherk_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherk_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_float),target :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + ! + hipblasCherk_rank_1 = hipblasCherk_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCherk_rank_1_devptr(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherk_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + ! + hipblasCherk_rank_1_devptr = hipblasCherk_(handle,uplo,transA,n,k,alpha,c_loc(AP),lda,beta, & + c_loc(CP),ldc) + end function + + function hipblasCherk_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherk_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_float),target :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + ! + hipblasCherk_full_rank = hipblasCherk_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCherk_full_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherk_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + ! + hipblasCherk_full_rank_devptr = hipblasCherk_(handle,uplo,transA,n,k,alpha,c_loc(AP),lda, & + beta,c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZherk_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherk_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_double),target :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasZherk_assumed_rank = hipblasZherk_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZherk_assumed_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherk_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasZherk_assumed_rank_devptr = hipblasZherk_(handle,uplo,transA,n,k,alpha,c_loc(AP),lda, & + beta,c_loc(CP),ldc) + end function + +#else + function hipblasZherk_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherk_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int) :: lda + real(c_double),target :: beta + complex(c_double_complex),target :: CP + integer(c_int) :: ldc + ! + hipblasZherk_rank_0 = hipblasZherk_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZherk_rank_0_devptr(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherk_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target :: AP + integer(c_int) :: lda + type(c_ptr),value :: beta + complex(c_double_complex),target :: CP + integer(c_int) :: ldc + ! + hipblasZherk_rank_0_devptr = hipblasZherk_(handle,uplo,transA,n,k,alpha,c_loc(AP),lda,beta, & + c_loc(CP),ldc) + end function + + function hipblasZherk_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherk_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_double),target :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + ! + hipblasZherk_rank_1 = hipblasZherk_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZherk_rank_1_devptr(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherk_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + ! + hipblasZherk_rank_1_devptr = hipblasZherk_(handle,uplo,transA,n,k,alpha,c_loc(AP),lda,beta, & + c_loc(CP),ldc) + end function + + function hipblasZherk_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherk_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_double),target :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + ! + hipblasZherk_full_rank = hipblasZherk_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZherk_full_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherk_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + ! + hipblasZherk_full_rank_devptr = hipblasZherk_(handle,uplo,transA,n,k,alpha,c_loc(AP),lda, & + beta,c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCherk_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherk_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_float),target :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCherk_64_assumed_rank = hipblasCherk_64_(handle,uplo,transA,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCherk_64_assumed_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherk_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCherk_64_assumed_rank_devptr = hipblasCherk_64_(handle,uplo,transA,n,k,alpha, & + c_loc(AP),lda,beta,c_loc(CP),ldc) + end function + +#else + function hipblasCherk_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherk_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + real(c_float),target :: beta + complex(c_float_complex),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasCherk_64_rank_0 = hipblasCherk_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCherk_64_rank_0_devptr(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherk_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + type(c_ptr),value :: beta + complex(c_float_complex),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasCherk_64_rank_0_devptr = hipblasCherk_64_(handle,uplo,transA,n,k,alpha,c_loc(AP),lda, & + beta,c_loc(CP),ldc) + end function + + function hipblasCherk_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherk_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + real(c_float),target :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCherk_64_rank_1 = hipblasCherk_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCherk_64_rank_1_devptr(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherk_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCherk_64_rank_1_devptr = hipblasCherk_64_(handle,uplo,transA,n,k,alpha,c_loc(AP),lda, & + beta,c_loc(CP),ldc) + end function + + function hipblasCherk_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherk_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + real(c_float),target :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCherk_64_full_rank = hipblasCherk_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCherk_64_full_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherk_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCherk_64_full_rank_devptr = hipblasCherk_64_(handle,uplo,transA,n,k,alpha,c_loc(AP), & + lda,beta,c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZherk_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherk_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_double),target :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZherk_64_assumed_rank = hipblasZherk_64_(handle,uplo,transA,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZherk_64_assumed_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherk_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZherk_64_assumed_rank_devptr = hipblasZherk_64_(handle,uplo,transA,n,k,alpha, & + c_loc(AP),lda,beta,c_loc(CP),ldc) + end function + +#else + function hipblasZherk_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherk_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + real(c_double),target :: beta + complex(c_double_complex),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasZherk_64_rank_0 = hipblasZherk_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZherk_64_rank_0_devptr(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherk_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + type(c_ptr),value :: beta + complex(c_double_complex),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasZherk_64_rank_0_devptr = hipblasZherk_64_(handle,uplo,transA,n,k,alpha,c_loc(AP),lda, & + beta,c_loc(CP),ldc) + end function + + function hipblasZherk_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherk_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + real(c_double),target :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZherk_64_rank_1 = hipblasZherk_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZherk_64_rank_1_devptr(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherk_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZherk_64_rank_1_devptr = hipblasZherk_64_(handle,uplo,transA,n,k,alpha,c_loc(AP),lda, & + beta,c_loc(CP),ldc) + end function + + function hipblasZherk_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherk_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + real(c_double),target :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZherk_64_full_rank = hipblasZherk_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZherk_64_full_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherk_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZherk_64_full_rank_devptr = hipblasZherk_64_(handle,uplo,transA,n,k,alpha,c_loc(AP), & + lda,beta,c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCherkStridedBatched_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCherkStridedBatched_assumed_rank = hipblasCherkStridedBatched_(handle,uplo,transA,n, & + k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasCherkStridedBatched_assumed_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkStridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCherkStridedBatched_assumed_rank_devptr = hipblasCherkStridedBatched_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,beta,c_loc(CP),ldc,strideC,batchCount) + end function + +#else + function hipblasCherkStridedBatched_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta, & + CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: beta + complex(c_float_complex),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCherkStridedBatched_rank_0 = hipblasCherkStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasCherkStridedBatched_rank_0_devptr(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkStridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr),value :: beta + complex(c_float_complex),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCherkStridedBatched_rank_0_devptr = hipblasCherkStridedBatched_(handle,uplo,transA,n, & + k,alpha,c_loc(AP),lda,strideA,beta,c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasCherkStridedBatched_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta, & + CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCherkStridedBatched_rank_1 = hipblasCherkStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasCherkStridedBatched_rank_1_devptr(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkStridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCherkStridedBatched_rank_1_devptr = hipblasCherkStridedBatched_(handle,uplo,transA,n, & + k,alpha,c_loc(AP),lda,strideA,beta,c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasCherkStridedBatched_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCherkStridedBatched_full_rank = hipblasCherkStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasCherkStridedBatched_full_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkStridedBatched_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCherkStridedBatched_full_rank_devptr = hipblasCherkStridedBatched_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,beta,c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasCherkStridedBatched_strided_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: beta + complex(c_float_complex),target,dimension(:,:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCherkStridedBatched_strided_rank = hipblasCherkStridedBatched_(handle,uplo,transA,n, & + k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasCherkStridedBatched_strided_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkStridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:,:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCherkStridedBatched_strided_rank_devptr = hipblasCherkStridedBatched_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,beta,c_loc(CP),ldc,strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZherkStridedBatched_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZherkStridedBatched_assumed_rank = hipblasZherkStridedBatched_(handle,uplo,transA,n, & + k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasZherkStridedBatched_assumed_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkStridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZherkStridedBatched_assumed_rank_devptr = hipblasZherkStridedBatched_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,beta,c_loc(CP),ldc,strideC,batchCount) + end function + +#else + function hipblasZherkStridedBatched_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta, & + CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: beta + complex(c_double_complex),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZherkStridedBatched_rank_0 = hipblasZherkStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasZherkStridedBatched_rank_0_devptr(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkStridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr),value :: beta + complex(c_double_complex),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZherkStridedBatched_rank_0_devptr = hipblasZherkStridedBatched_(handle,uplo,transA,n, & + k,alpha,c_loc(AP),lda,strideA,beta,c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasZherkStridedBatched_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta, & + CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZherkStridedBatched_rank_1 = hipblasZherkStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasZherkStridedBatched_rank_1_devptr(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkStridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZherkStridedBatched_rank_1_devptr = hipblasZherkStridedBatched_(handle,uplo,transA,n, & + k,alpha,c_loc(AP),lda,strideA,beta,c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasZherkStridedBatched_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZherkStridedBatched_full_rank = hipblasZherkStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasZherkStridedBatched_full_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkStridedBatched_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZherkStridedBatched_full_rank_devptr = hipblasZherkStridedBatched_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,beta,c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasZherkStridedBatched_strided_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: beta + complex(c_double_complex),target,dimension(:,:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZherkStridedBatched_strided_rank = hipblasZherkStridedBatched_(handle,uplo,transA,n, & + k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasZherkStridedBatched_strided_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkStridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:,:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZherkStridedBatched_strided_rank_devptr = hipblasZherkStridedBatched_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,beta,c_loc(CP),ldc,strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCherkStridedBatched_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCherkStridedBatched_64_assumed_rank = hipblasCherkStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasCherkStridedBatched_64_assumed_rank_devptr(handle,uplo,transA,n,k,alpha,AP, & + lda,strideA,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkStridedBatched_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCherkStridedBatched_64_assumed_rank_devptr = hipblasCherkStridedBatched_64_(handle, & + uplo,transA,n,k,alpha,c_loc(AP),lda,strideA,beta,c_loc(CP),ldc,strideC,batchCount) + end function + +#else + function hipblasCherkStridedBatched_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: beta + complex(c_float_complex),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCherkStridedBatched_64_rank_0 = hipblasCherkStridedBatched_64_(handle,uplo,transA,n, & + k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasCherkStridedBatched_64_rank_0_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkStridedBatched_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr),value :: beta + complex(c_float_complex),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCherkStridedBatched_64_rank_0_devptr = hipblasCherkStridedBatched_64_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,beta,c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasCherkStridedBatched_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCherkStridedBatched_64_rank_1 = hipblasCherkStridedBatched_64_(handle,uplo,transA,n, & + k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasCherkStridedBatched_64_rank_1_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkStridedBatched_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCherkStridedBatched_64_rank_1_devptr = hipblasCherkStridedBatched_64_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,beta,c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasCherkStridedBatched_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCherkStridedBatched_64_full_rank = hipblasCherkStridedBatched_64_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasCherkStridedBatched_64_full_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkStridedBatched_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCherkStridedBatched_64_full_rank_devptr = hipblasCherkStridedBatched_64_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,beta,c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasCherkStridedBatched_64_strided_rank(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: beta + complex(c_float_complex),target,dimension(:,:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCherkStridedBatched_64_strided_rank = hipblasCherkStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasCherkStridedBatched_64_strided_rank_devptr(handle,uplo,transA,n,k,alpha,AP, & + lda,strideA,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkStridedBatched_64_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:,:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCherkStridedBatched_64_strided_rank_devptr = hipblasCherkStridedBatched_64_(handle, & + uplo,transA,n,k,alpha,c_loc(AP),lda,strideA,beta,c_loc(CP),ldc,strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZherkStridedBatched_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZherkStridedBatched_64_assumed_rank = hipblasZherkStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasZherkStridedBatched_64_assumed_rank_devptr(handle,uplo,transA,n,k,alpha,AP, & + lda,strideA,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkStridedBatched_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZherkStridedBatched_64_assumed_rank_devptr = hipblasZherkStridedBatched_64_(handle, & + uplo,transA,n,k,alpha,c_loc(AP),lda,strideA,beta,c_loc(CP),ldc,strideC,batchCount) + end function + +#else + function hipblasZherkStridedBatched_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: beta + complex(c_double_complex),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZherkStridedBatched_64_rank_0 = hipblasZherkStridedBatched_64_(handle,uplo,transA,n, & + k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasZherkStridedBatched_64_rank_0_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkStridedBatched_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr),value :: beta + complex(c_double_complex),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZherkStridedBatched_64_rank_0_devptr = hipblasZherkStridedBatched_64_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,beta,c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasZherkStridedBatched_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZherkStridedBatched_64_rank_1 = hipblasZherkStridedBatched_64_(handle,uplo,transA,n, & + k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasZherkStridedBatched_64_rank_1_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkStridedBatched_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZherkStridedBatched_64_rank_1_devptr = hipblasZherkStridedBatched_64_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,beta,c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasZherkStridedBatched_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZherkStridedBatched_64_full_rank = hipblasZherkStridedBatched_64_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasZherkStridedBatched_64_full_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkStridedBatched_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZherkStridedBatched_64_full_rank_devptr = hipblasZherkStridedBatched_64_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,beta,c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasZherkStridedBatched_64_strided_rank(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: beta + complex(c_double_complex),target,dimension(:,:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZherkStridedBatched_64_strided_rank = hipblasZherkStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasZherkStridedBatched_64_strided_rank_devptr(handle,uplo,transA,n,k,alpha,AP, & + lda,strideA,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkStridedBatched_64_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:,:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZherkStridedBatched_64_strided_rank_devptr = hipblasZherkStridedBatched_64_(handle, & + uplo,transA,n,k,alpha,c_loc(AP),lda,strideA,beta,c_loc(CP),ldc,strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCherkx_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkx_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + real(c_float),target :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasCherkx_assumed_rank = hipblasCherkx_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCherkx_assumed_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP, & + ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkx_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasCherkx_assumed_rank_devptr = hipblasCherkx_(handle,uplo,transA,n,k,alpha,c_loc(AP), & + lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + +#else + function hipblasCherkx_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkx_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + complex(c_float_complex),target :: BP + integer(c_int) :: ldb + real(c_float),target :: beta + complex(c_float_complex),target :: CP + integer(c_int) :: ldc + ! + hipblasCherkx_rank_0 = hipblasCherkx_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCherkx_rank_0_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkx_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + complex(c_float_complex),target :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + complex(c_float_complex),target :: CP + integer(c_int) :: ldc + ! + hipblasCherkx_rank_0_devptr = hipblasCherkx_(handle,uplo,transA,n,k,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + + function hipblasCherkx_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkx_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + real(c_float),target :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + ! + hipblasCherkx_rank_1 = hipblasCherkx_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCherkx_rank_1_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkx_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + ! + hipblasCherkx_rank_1_devptr = hipblasCherkx_(handle,uplo,transA,n,k,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + + function hipblasCherkx_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkx_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + real(c_float),target :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + ! + hipblasCherkx_full_rank = hipblasCherkx_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCherkx_full_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkx_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + ! + hipblasCherkx_full_rank_devptr = hipblasCherkx_(handle,uplo,transA,n,k,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZherkx_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkx_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + real(c_double),target :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasZherkx_assumed_rank = hipblasZherkx_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZherkx_assumed_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP, & + ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkx_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasZherkx_assumed_rank_devptr = hipblasZherkx_(handle,uplo,transA,n,k,alpha,c_loc(AP), & + lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + +#else + function hipblasZherkx_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkx_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int) :: lda + complex(c_double_complex),target :: BP + integer(c_int) :: ldb + real(c_double),target :: beta + complex(c_double_complex),target :: CP + integer(c_int) :: ldc + ! + hipblasZherkx_rank_0 = hipblasZherkx_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZherkx_rank_0_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkx_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target :: AP + integer(c_int) :: lda + complex(c_double_complex),target :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + complex(c_double_complex),target :: CP + integer(c_int) :: ldc + ! + hipblasZherkx_rank_0_devptr = hipblasZherkx_(handle,uplo,transA,n,k,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + + function hipblasZherkx_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkx_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + real(c_double),target :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + ! + hipblasZherkx_rank_1 = hipblasZherkx_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZherkx_rank_1_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkx_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + ! + hipblasZherkx_rank_1_devptr = hipblasZherkx_(handle,uplo,transA,n,k,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + + function hipblasZherkx_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkx_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + real(c_double),target :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + ! + hipblasZherkx_full_rank = hipblasZherkx_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZherkx_full_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkx_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + ! + hipblasZherkx_full_rank_devptr = hipblasZherkx_(handle,uplo,transA,n,k,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCherkx_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkx_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + real(c_float),target :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCherkx_64_assumed_rank = hipblasCherkx_64_(handle,uplo,transA,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCherkx_64_assumed_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta, & + CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkx_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCherkx_64_assumed_rank_devptr = hipblasCherkx_64_(handle,uplo,transA,n,k,alpha, & + c_loc(AP),lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + +#else + function hipblasCherkx_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkx_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target :: BP + integer(c_int64_t) :: ldb + real(c_float),target :: beta + complex(c_float_complex),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasCherkx_64_rank_0 = hipblasCherkx_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCherkx_64_rank_0_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkx_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + complex(c_float_complex),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasCherkx_64_rank_0_devptr = hipblasCherkx_64_(handle,uplo,transA,n,k,alpha,c_loc(AP), & + lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + + function hipblasCherkx_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkx_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + real(c_float),target :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCherkx_64_rank_1 = hipblasCherkx_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCherkx_64_rank_1_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkx_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCherkx_64_rank_1_devptr = hipblasCherkx_64_(handle,uplo,transA,n,k,alpha,c_loc(AP), & + lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + + function hipblasCherkx_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkx_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + real(c_float),target :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCherkx_64_full_rank = hipblasCherkx_64_(handle,uplo,transA,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCherkx_64_full_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP, & + ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkx_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCherkx_64_full_rank_devptr = hipblasCherkx_64_(handle,uplo,transA,n,k,alpha, & + c_loc(AP),lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZherkx_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkx_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + real(c_double),target :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZherkx_64_assumed_rank = hipblasZherkx_64_(handle,uplo,transA,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZherkx_64_assumed_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta, & + CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkx_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZherkx_64_assumed_rank_devptr = hipblasZherkx_64_(handle,uplo,transA,n,k,alpha, & + c_loc(AP),lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + +#else + function hipblasZherkx_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkx_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target :: BP + integer(c_int64_t) :: ldb + real(c_double),target :: beta + complex(c_double_complex),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasZherkx_64_rank_0 = hipblasZherkx_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZherkx_64_rank_0_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkx_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + complex(c_double_complex),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasZherkx_64_rank_0_devptr = hipblasZherkx_64_(handle,uplo,transA,n,k,alpha,c_loc(AP), & + lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + + function hipblasZherkx_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkx_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + real(c_double),target :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZherkx_64_rank_1 = hipblasZherkx_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZherkx_64_rank_1_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkx_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZherkx_64_rank_1_devptr = hipblasZherkx_64_(handle,uplo,transA,n,k,alpha,c_loc(AP), & + lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + + function hipblasZherkx_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkx_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + real(c_double),target :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZherkx_64_full_rank = hipblasZherkx_64_(handle,uplo,transA,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZherkx_64_full_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP, & + ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkx_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZherkx_64_full_rank_devptr = hipblasZherkx_64_(handle,uplo,transA,n,k,alpha, & + c_loc(AP),lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCherkxStridedBatched_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkxStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCherkxStridedBatched_assumed_rank = hipblasCherkxStridedBatched_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasCherkxStridedBatched_assumed_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkxStridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCherkxStridedBatched_assumed_rank_devptr = hipblasCherkxStridedBatched_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) + end function + +#else + function hipblasCherkxStridedBatched_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkxStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + complex(c_float_complex),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCherkxStridedBatched_rank_0 = hipblasCherkxStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasCherkxStridedBatched_rank_0_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkxStridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_float_complex),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCherkxStridedBatched_rank_0_devptr = hipblasCherkxStridedBatched_(handle,uplo,transA, & + n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasCherkxStridedBatched_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkxStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCherkxStridedBatched_rank_1 = hipblasCherkxStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasCherkxStridedBatched_rank_1_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkxStridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCherkxStridedBatched_rank_1_devptr = hipblasCherkxStridedBatched_(handle,uplo,transA, & + n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasCherkxStridedBatched_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkxStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCherkxStridedBatched_full_rank = hipblasCherkxStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasCherkxStridedBatched_full_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkxStridedBatched_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCherkxStridedBatched_full_rank_devptr = hipblasCherkxStridedBatched_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) + end function + + function hipblasCherkxStridedBatched_strided_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkxStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + complex(c_float_complex),target,dimension(:,:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCherkxStridedBatched_strided_rank = hipblasCherkxStridedBatched_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasCherkxStridedBatched_strided_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkxStridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:,:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCherkxStridedBatched_strided_rank_devptr = hipblasCherkxStridedBatched_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZherkxStridedBatched_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkxStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZherkxStridedBatched_assumed_rank = hipblasZherkxStridedBatched_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasZherkxStridedBatched_assumed_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkxStridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZherkxStridedBatched_assumed_rank_devptr = hipblasZherkxStridedBatched_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) + end function + +#else + function hipblasZherkxStridedBatched_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkxStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + complex(c_double_complex),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZherkxStridedBatched_rank_0 = hipblasZherkxStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasZherkxStridedBatched_rank_0_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkxStridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_double_complex),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZherkxStridedBatched_rank_0_devptr = hipblasZherkxStridedBatched_(handle,uplo,transA, & + n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasZherkxStridedBatched_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkxStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZherkxStridedBatched_rank_1 = hipblasZherkxStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasZherkxStridedBatched_rank_1_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkxStridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZherkxStridedBatched_rank_1_devptr = hipblasZherkxStridedBatched_(handle,uplo,transA, & + n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasZherkxStridedBatched_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkxStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZherkxStridedBatched_full_rank = hipblasZherkxStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasZherkxStridedBatched_full_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkxStridedBatched_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZherkxStridedBatched_full_rank_devptr = hipblasZherkxStridedBatched_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) + end function + + function hipblasZherkxStridedBatched_strided_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkxStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + complex(c_double_complex),target,dimension(:,:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZherkxStridedBatched_strided_rank = hipblasZherkxStridedBatched_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasZherkxStridedBatched_strided_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkxStridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:,:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZherkxStridedBatched_strided_rank_devptr = hipblasZherkxStridedBatched_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCherkxStridedBatched_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkxStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCherkxStridedBatched_64_assumed_rank = hipblasCherkxStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) + end function + + function hipblasCherkxStridedBatched_64_assumed_rank_devptr(handle,uplo,transA,n,k,alpha,AP, & + lda,strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkxStridedBatched_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCherkxStridedBatched_64_assumed_rank_devptr = hipblasCherkxStridedBatched_64_(handle, & + uplo,transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc, & + strideC,batchCount) + end function + +#else + function hipblasCherkxStridedBatched_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkxStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + complex(c_float_complex),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCherkxStridedBatched_64_rank_0 = hipblasCherkxStridedBatched_64_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasCherkxStridedBatched_64_rank_0_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkxStridedBatched_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_float_complex),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCherkxStridedBatched_64_rank_0_devptr = hipblasCherkxStridedBatched_64_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) + end function + + function hipblasCherkxStridedBatched_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkxStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCherkxStridedBatched_64_rank_1 = hipblasCherkxStridedBatched_64_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasCherkxStridedBatched_64_rank_1_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkxStridedBatched_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCherkxStridedBatched_64_rank_1_devptr = hipblasCherkxStridedBatched_64_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) + end function + + function hipblasCherkxStridedBatched_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkxStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCherkxStridedBatched_64_full_rank = hipblasCherkxStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) + end function + + function hipblasCherkxStridedBatched_64_full_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkxStridedBatched_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCherkxStridedBatched_64_full_rank_devptr = hipblasCherkxStridedBatched_64_(handle, & + uplo,transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasCherkxStridedBatched_64_strided_rank(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkxStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + complex(c_float_complex),target,dimension(:,:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCherkxStridedBatched_64_strided_rank = hipblasCherkxStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) + end function + + function hipblasCherkxStridedBatched_64_strided_rank_devptr(handle,uplo,transA,n,k,alpha,AP, & + lda,strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkxStridedBatched_64_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:,:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCherkxStridedBatched_64_strided_rank_devptr = hipblasCherkxStridedBatched_64_(handle, & + uplo,transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc, & + strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZherkxStridedBatched_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkxStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZherkxStridedBatched_64_assumed_rank = hipblasZherkxStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) + end function + + function hipblasZherkxStridedBatched_64_assumed_rank_devptr(handle,uplo,transA,n,k,alpha,AP, & + lda,strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkxStridedBatched_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZherkxStridedBatched_64_assumed_rank_devptr = hipblasZherkxStridedBatched_64_(handle, & + uplo,transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc, & + strideC,batchCount) + end function + +#else + function hipblasZherkxStridedBatched_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkxStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + complex(c_double_complex),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZherkxStridedBatched_64_rank_0 = hipblasZherkxStridedBatched_64_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasZherkxStridedBatched_64_rank_0_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkxStridedBatched_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_double_complex),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZherkxStridedBatched_64_rank_0_devptr = hipblasZherkxStridedBatched_64_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) + end function + + function hipblasZherkxStridedBatched_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkxStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZherkxStridedBatched_64_rank_1 = hipblasZherkxStridedBatched_64_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasZherkxStridedBatched_64_rank_1_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkxStridedBatched_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZherkxStridedBatched_64_rank_1_devptr = hipblasZherkxStridedBatched_64_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) + end function + + function hipblasZherkxStridedBatched_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkxStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZherkxStridedBatched_64_full_rank = hipblasZherkxStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) + end function + + function hipblasZherkxStridedBatched_64_full_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkxStridedBatched_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZherkxStridedBatched_64_full_rank_devptr = hipblasZherkxStridedBatched_64_(handle, & + uplo,transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasZherkxStridedBatched_64_strided_rank(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkxStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + complex(c_double_complex),target,dimension(:,:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZherkxStridedBatched_64_strided_rank = hipblasZherkxStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) + end function + + function hipblasZherkxStridedBatched_64_strided_rank_devptr(handle,uplo,transA,n,k,alpha,AP, & + lda,strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkxStridedBatched_64_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:,:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZherkxStridedBatched_64_strided_rank_devptr = hipblasZherkxStridedBatched_64_(handle, & + uplo,transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc, & + strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCher2k_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2k_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + real(c_float),target :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasCher2k_assumed_rank = hipblasCher2k_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCher2k_assumed_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP, & + ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2k_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasCher2k_assumed_rank_devptr = hipblasCher2k_(handle,uplo,transA,n,k,alpha,c_loc(AP), & + lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + +#else + function hipblasCher2k_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2k_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + complex(c_float_complex),target :: BP + integer(c_int) :: ldb + real(c_float),target :: beta + complex(c_float_complex),target :: CP + integer(c_int) :: ldc + ! + hipblasCher2k_rank_0 = hipblasCher2k_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCher2k_rank_0_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2k_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + complex(c_float_complex),target :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + complex(c_float_complex),target :: CP + integer(c_int) :: ldc + ! + hipblasCher2k_rank_0_devptr = hipblasCher2k_(handle,uplo,transA,n,k,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + + function hipblasCher2k_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2k_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + real(c_float),target :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + ! + hipblasCher2k_rank_1 = hipblasCher2k_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCher2k_rank_1_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2k_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + ! + hipblasCher2k_rank_1_devptr = hipblasCher2k_(handle,uplo,transA,n,k,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + + function hipblasCher2k_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2k_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + real(c_float),target :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + ! + hipblasCher2k_full_rank = hipblasCher2k_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCher2k_full_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2k_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + ! + hipblasCher2k_full_rank_devptr = hipblasCher2k_(handle,uplo,transA,n,k,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZher2k_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2k_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + real(c_double),target :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasZher2k_assumed_rank = hipblasZher2k_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZher2k_assumed_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP, & + ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2k_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasZher2k_assumed_rank_devptr = hipblasZher2k_(handle,uplo,transA,n,k,alpha,c_loc(AP), & + lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + +#else + function hipblasZher2k_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2k_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int) :: lda + complex(c_double_complex),target :: BP + integer(c_int) :: ldb + real(c_double),target :: beta + complex(c_double_complex),target :: CP + integer(c_int) :: ldc + ! + hipblasZher2k_rank_0 = hipblasZher2k_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZher2k_rank_0_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2k_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target :: AP + integer(c_int) :: lda + complex(c_double_complex),target :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + complex(c_double_complex),target :: CP + integer(c_int) :: ldc + ! + hipblasZher2k_rank_0_devptr = hipblasZher2k_(handle,uplo,transA,n,k,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + + function hipblasZher2k_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2k_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + real(c_double),target :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + ! + hipblasZher2k_rank_1 = hipblasZher2k_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZher2k_rank_1_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2k_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + ! + hipblasZher2k_rank_1_devptr = hipblasZher2k_(handle,uplo,transA,n,k,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + + function hipblasZher2k_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2k_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + real(c_double),target :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + ! + hipblasZher2k_full_rank = hipblasZher2k_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZher2k_full_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2k_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + ! + hipblasZher2k_full_rank_devptr = hipblasZher2k_(handle,uplo,transA,n,k,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCher2k_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2k_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + real(c_float),target :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCher2k_64_assumed_rank = hipblasCher2k_64_(handle,uplo,transA,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCher2k_64_assumed_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta, & + CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2k_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCher2k_64_assumed_rank_devptr = hipblasCher2k_64_(handle,uplo,transA,n,k,alpha, & + c_loc(AP),lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + +#else + function hipblasCher2k_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2k_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target :: BP + integer(c_int64_t) :: ldb + real(c_float),target :: beta + complex(c_float_complex),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasCher2k_64_rank_0 = hipblasCher2k_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCher2k_64_rank_0_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2k_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + complex(c_float_complex),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasCher2k_64_rank_0_devptr = hipblasCher2k_64_(handle,uplo,transA,n,k,alpha,c_loc(AP), & + lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + + function hipblasCher2k_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2k_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + real(c_float),target :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCher2k_64_rank_1 = hipblasCher2k_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCher2k_64_rank_1_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2k_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCher2k_64_rank_1_devptr = hipblasCher2k_64_(handle,uplo,transA,n,k,alpha,c_loc(AP), & + lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + + function hipblasCher2k_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2k_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + real(c_float),target :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCher2k_64_full_rank = hipblasCher2k_64_(handle,uplo,transA,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCher2k_64_full_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP, & + ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2k_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCher2k_64_full_rank_devptr = hipblasCher2k_64_(handle,uplo,transA,n,k,alpha, & + c_loc(AP),lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZher2k_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2k_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + real(c_double),target :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZher2k_64_assumed_rank = hipblasZher2k_64_(handle,uplo,transA,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZher2k_64_assumed_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta, & + CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2k_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZher2k_64_assumed_rank_devptr = hipblasZher2k_64_(handle,uplo,transA,n,k,alpha, & + c_loc(AP),lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + +#else + function hipblasZher2k_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2k_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target :: BP + integer(c_int64_t) :: ldb + real(c_double),target :: beta + complex(c_double_complex),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasZher2k_64_rank_0 = hipblasZher2k_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZher2k_64_rank_0_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2k_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + complex(c_double_complex),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasZher2k_64_rank_0_devptr = hipblasZher2k_64_(handle,uplo,transA,n,k,alpha,c_loc(AP), & + lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + + function hipblasZher2k_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2k_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + real(c_double),target :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZher2k_64_rank_1 = hipblasZher2k_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZher2k_64_rank_1_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2k_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZher2k_64_rank_1_devptr = hipblasZher2k_64_(handle,uplo,transA,n,k,alpha,c_loc(AP), & + lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + + function hipblasZher2k_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2k_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + real(c_double),target :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZher2k_64_full_rank = hipblasZher2k_64_(handle,uplo,transA,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZher2k_64_full_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP, & + ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2k_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZher2k_64_full_rank_devptr = hipblasZher2k_64_(handle,uplo,transA,n,k,alpha, & + c_loc(AP),lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCher2kStridedBatched_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2kStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCher2kStridedBatched_assumed_rank = hipblasCher2kStridedBatched_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasCher2kStridedBatched_assumed_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2kStridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCher2kStridedBatched_assumed_rank_devptr = hipblasCher2kStridedBatched_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) + end function + +#else + function hipblasCher2kStridedBatched_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2kStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + complex(c_float_complex),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCher2kStridedBatched_rank_0 = hipblasCher2kStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasCher2kStridedBatched_rank_0_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2kStridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_float_complex),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCher2kStridedBatched_rank_0_devptr = hipblasCher2kStridedBatched_(handle,uplo,transA, & + n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasCher2kStridedBatched_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2kStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCher2kStridedBatched_rank_1 = hipblasCher2kStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasCher2kStridedBatched_rank_1_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2kStridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCher2kStridedBatched_rank_1_devptr = hipblasCher2kStridedBatched_(handle,uplo,transA, & + n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasCher2kStridedBatched_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2kStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCher2kStridedBatched_full_rank = hipblasCher2kStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasCher2kStridedBatched_full_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2kStridedBatched_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCher2kStridedBatched_full_rank_devptr = hipblasCher2kStridedBatched_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) + end function + + function hipblasCher2kStridedBatched_strided_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2kStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + complex(c_float_complex),target,dimension(:,:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCher2kStridedBatched_strided_rank = hipblasCher2kStridedBatched_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasCher2kStridedBatched_strided_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2kStridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:,:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCher2kStridedBatched_strided_rank_devptr = hipblasCher2kStridedBatched_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZher2kStridedBatched_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2kStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZher2kStridedBatched_assumed_rank = hipblasZher2kStridedBatched_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasZher2kStridedBatched_assumed_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2kStridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZher2kStridedBatched_assumed_rank_devptr = hipblasZher2kStridedBatched_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) + end function + +#else + function hipblasZher2kStridedBatched_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2kStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + complex(c_double_complex),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZher2kStridedBatched_rank_0 = hipblasZher2kStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasZher2kStridedBatched_rank_0_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2kStridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_double_complex),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZher2kStridedBatched_rank_0_devptr = hipblasZher2kStridedBatched_(handle,uplo,transA, & + n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasZher2kStridedBatched_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2kStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZher2kStridedBatched_rank_1 = hipblasZher2kStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasZher2kStridedBatched_rank_1_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2kStridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZher2kStridedBatched_rank_1_devptr = hipblasZher2kStridedBatched_(handle,uplo,transA, & + n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasZher2kStridedBatched_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2kStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZher2kStridedBatched_full_rank = hipblasZher2kStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasZher2kStridedBatched_full_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2kStridedBatched_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZher2kStridedBatched_full_rank_devptr = hipblasZher2kStridedBatched_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) + end function + + function hipblasZher2kStridedBatched_strided_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2kStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + complex(c_double_complex),target,dimension(:,:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZher2kStridedBatched_strided_rank = hipblasZher2kStridedBatched_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasZher2kStridedBatched_strided_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2kStridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:,:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZher2kStridedBatched_strided_rank_devptr = hipblasZher2kStridedBatched_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCher2kStridedBatched_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2kStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCher2kStridedBatched_64_assumed_rank = hipblasCher2kStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) + end function + + function hipblasCher2kStridedBatched_64_assumed_rank_devptr(handle,uplo,transA,n,k,alpha,AP, & + lda,strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2kStridedBatched_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCher2kStridedBatched_64_assumed_rank_devptr = hipblasCher2kStridedBatched_64_(handle, & + uplo,transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc, & + strideC,batchCount) + end function + +#else + function hipblasCher2kStridedBatched_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2kStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + complex(c_float_complex),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCher2kStridedBatched_64_rank_0 = hipblasCher2kStridedBatched_64_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasCher2kStridedBatched_64_rank_0_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2kStridedBatched_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_float_complex),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCher2kStridedBatched_64_rank_0_devptr = hipblasCher2kStridedBatched_64_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) + end function + + function hipblasCher2kStridedBatched_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2kStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCher2kStridedBatched_64_rank_1 = hipblasCher2kStridedBatched_64_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasCher2kStridedBatched_64_rank_1_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2kStridedBatched_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCher2kStridedBatched_64_rank_1_devptr = hipblasCher2kStridedBatched_64_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) + end function + + function hipblasCher2kStridedBatched_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2kStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCher2kStridedBatched_64_full_rank = hipblasCher2kStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) + end function + + function hipblasCher2kStridedBatched_64_full_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2kStridedBatched_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCher2kStridedBatched_64_full_rank_devptr = hipblasCher2kStridedBatched_64_(handle, & + uplo,transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasCher2kStridedBatched_64_strided_rank(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2kStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + complex(c_float_complex),target,dimension(:,:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCher2kStridedBatched_64_strided_rank = hipblasCher2kStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) + end function + + function hipblasCher2kStridedBatched_64_strided_rank_devptr(handle,uplo,transA,n,k,alpha,AP, & + lda,strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2kStridedBatched_64_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:,:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCher2kStridedBatched_64_strided_rank_devptr = hipblasCher2kStridedBatched_64_(handle, & + uplo,transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc, & + strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZher2kStridedBatched_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2kStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZher2kStridedBatched_64_assumed_rank = hipblasZher2kStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) + end function + + function hipblasZher2kStridedBatched_64_assumed_rank_devptr(handle,uplo,transA,n,k,alpha,AP, & + lda,strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2kStridedBatched_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZher2kStridedBatched_64_assumed_rank_devptr = hipblasZher2kStridedBatched_64_(handle, & + uplo,transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc, & + strideC,batchCount) + end function + +#else + function hipblasZher2kStridedBatched_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2kStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + complex(c_double_complex),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZher2kStridedBatched_64_rank_0 = hipblasZher2kStridedBatched_64_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasZher2kStridedBatched_64_rank_0_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2kStridedBatched_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_double_complex),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZher2kStridedBatched_64_rank_0_devptr = hipblasZher2kStridedBatched_64_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) + end function + + function hipblasZher2kStridedBatched_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2kStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZher2kStridedBatched_64_rank_1 = hipblasZher2kStridedBatched_64_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasZher2kStridedBatched_64_rank_1_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2kStridedBatched_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZher2kStridedBatched_64_rank_1_devptr = hipblasZher2kStridedBatched_64_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) + end function + + function hipblasZher2kStridedBatched_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2kStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZher2kStridedBatched_64_full_rank = hipblasZher2kStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) + end function + + function hipblasZher2kStridedBatched_64_full_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2kStridedBatched_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZher2kStridedBatched_64_full_rank_devptr = hipblasZher2kStridedBatched_64_(handle, & + uplo,transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasZher2kStridedBatched_64_strided_rank(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2kStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + complex(c_double_complex),target,dimension(:,:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZher2kStridedBatched_64_strided_rank = hipblasZher2kStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) + end function + + function hipblasZher2kStridedBatched_64_strided_rank_devptr(handle,uplo,transA,n,k,alpha,AP, & + lda,strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2kStridedBatched_64_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:,:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZher2kStridedBatched_64_strided_rank_devptr = hipblasZher2kStridedBatched_64_(handle, & + uplo,transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc, & + strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSsymm_assumed_rank(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymm_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(..) :: BP + integer(c_int) :: ldb + real(c_float),target :: beta + real(c_float),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasSsymm_assumed_rank = hipblasSsymm_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasSsymm_assumed_rank_devptr(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymm_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(..) :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + real(c_float),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasSsymm_assumed_rank_devptr = hipblasSsymm_(handle,side,uplo,m,n,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + +#else + function hipblasSsymm_rank_0(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymm_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int) :: lda + real(c_float),target :: BP + integer(c_int) :: ldb + real(c_float),target :: beta + real(c_float),target :: CP + integer(c_int) :: ldc + ! + hipblasSsymm_rank_0 = hipblasSsymm_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasSsymm_rank_0_devptr(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymm_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target :: AP + integer(c_int) :: lda + real(c_float),target :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + real(c_float),target :: CP + integer(c_int) :: ldc + ! + hipblasSsymm_rank_0_devptr = hipblasSsymm_(handle,side,uplo,m,n,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + + function hipblasSsymm_rank_1(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymm_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(:) :: BP + integer(c_int) :: ldb + real(c_float),target :: beta + real(c_float),target,dimension(:) :: CP + integer(c_int) :: ldc + ! + hipblasSsymm_rank_1 = hipblasSsymm_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasSsymm_rank_1_devptr(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymm_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(:) :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + real(c_float),target,dimension(:) :: CP + integer(c_int) :: ldc + ! + hipblasSsymm_rank_1_devptr = hipblasSsymm_(handle,side,uplo,m,n,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + + function hipblasSsymm_full_rank(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymm_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(:,:) :: BP + integer(c_int) :: ldb + real(c_float),target :: beta + real(c_float),target,dimension(:,:) :: CP + integer(c_int) :: ldc + ! + hipblasSsymm_full_rank = hipblasSsymm_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasSsymm_full_rank_devptr(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymm_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(:,:) :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + real(c_float),target,dimension(:,:) :: CP + integer(c_int) :: ldc + ! + hipblasSsymm_full_rank_devptr = hipblasSsymm_(handle,side,uplo,m,n,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDsymm_assumed_rank(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymm_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(..) :: BP + integer(c_int) :: ldb + real(c_double),target :: beta + real(c_double),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasDsymm_assumed_rank = hipblasDsymm_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasDsymm_assumed_rank_devptr(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymm_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(..) :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + real(c_double),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasDsymm_assumed_rank_devptr = hipblasDsymm_(handle,side,uplo,m,n,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + +#else + function hipblasDsymm_rank_0(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymm_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int) :: lda + real(c_double),target :: BP + integer(c_int) :: ldb + real(c_double),target :: beta + real(c_double),target :: CP + integer(c_int) :: ldc + ! + hipblasDsymm_rank_0 = hipblasDsymm_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasDsymm_rank_0_devptr(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymm_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target :: AP + integer(c_int) :: lda + real(c_double),target :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + real(c_double),target :: CP + integer(c_int) :: ldc + ! + hipblasDsymm_rank_0_devptr = hipblasDsymm_(handle,side,uplo,m,n,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + + function hipblasDsymm_rank_1(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymm_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(:) :: BP + integer(c_int) :: ldb + real(c_double),target :: beta + real(c_double),target,dimension(:) :: CP + integer(c_int) :: ldc + ! + hipblasDsymm_rank_1 = hipblasDsymm_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasDsymm_rank_1_devptr(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymm_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(:) :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + real(c_double),target,dimension(:) :: CP + integer(c_int) :: ldc + ! + hipblasDsymm_rank_1_devptr = hipblasDsymm_(handle,side,uplo,m,n,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + + function hipblasDsymm_full_rank(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymm_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(:,:) :: BP + integer(c_int) :: ldb + real(c_double),target :: beta + real(c_double),target,dimension(:,:) :: CP + integer(c_int) :: ldc + ! + hipblasDsymm_full_rank = hipblasDsymm_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasDsymm_full_rank_devptr(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymm_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(:,:) :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + real(c_double),target,dimension(:,:) :: CP + integer(c_int) :: ldc + ! + hipblasDsymm_full_rank_devptr = hipblasDsymm_(handle,side,uplo,m,n,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCsymm_assumed_rank(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymm_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasCsymm_assumed_rank = hipblasCsymm_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCsymm_assumed_rank_devptr(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymm_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasCsymm_assumed_rank_devptr = hipblasCsymm_(handle,side,uplo,m,n,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + +#else + function hipblasCsymm_rank_0(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymm_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + complex(c_float_complex),target :: BP + integer(c_int) :: ldb + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: CP + integer(c_int) :: ldc + ! + hipblasCsymm_rank_0 = hipblasCsymm_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCsymm_rank_0_devptr(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymm_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + complex(c_float_complex),target :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + complex(c_float_complex),target :: CP + integer(c_int) :: ldc + ! + hipblasCsymm_rank_0_devptr = hipblasCsymm_(handle,side,uplo,m,n,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + + function hipblasCsymm_rank_1(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymm_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + ! + hipblasCsymm_rank_1 = hipblasCsymm_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCsymm_rank_1_devptr(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymm_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + ! + hipblasCsymm_rank_1_devptr = hipblasCsymm_(handle,side,uplo,m,n,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + + function hipblasCsymm_full_rank(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymm_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + ! + hipblasCsymm_full_rank = hipblasCsymm_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCsymm_full_rank_devptr(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymm_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + ! + hipblasCsymm_full_rank_devptr = hipblasCsymm_(handle,side,uplo,m,n,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZsymm_assumed_rank(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymm_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasZsymm_assumed_rank = hipblasZsymm_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZsymm_assumed_rank_devptr(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymm_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasZsymm_assumed_rank_devptr = hipblasZsymm_(handle,side,uplo,m,n,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + +#else + function hipblasZsymm_rank_0(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymm_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int) :: lda + complex(c_double_complex),target :: BP + integer(c_int) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: CP + integer(c_int) :: ldc + ! + hipblasZsymm_rank_0 = hipblasZsymm_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZsymm_rank_0_devptr(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymm_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target :: AP + integer(c_int) :: lda + complex(c_double_complex),target :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + complex(c_double_complex),target :: CP + integer(c_int) :: ldc + ! + hipblasZsymm_rank_0_devptr = hipblasZsymm_(handle,side,uplo,m,n,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + + function hipblasZsymm_rank_1(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymm_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + ! + hipblasZsymm_rank_1 = hipblasZsymm_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZsymm_rank_1_devptr(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymm_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + ! + hipblasZsymm_rank_1_devptr = hipblasZsymm_(handle,side,uplo,m,n,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + + function hipblasZsymm_full_rank(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymm_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + ! + hipblasZsymm_full_rank = hipblasZsymm_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZsymm_full_rank_devptr(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymm_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + ! + hipblasZsymm_full_rank_devptr = hipblasZsymm_(handle,side,uplo,m,n,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSsymm_64_assumed_rank(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymm_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + real(c_float),target :: beta + real(c_float),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasSsymm_64_assumed_rank = hipblasSsymm_64_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasSsymm_64_assumed_rank_devptr(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP, & + ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymm_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + real(c_float),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasSsymm_64_assumed_rank_devptr = hipblasSsymm_64_(handle,side,uplo,m,n,alpha,c_loc(AP), & + lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + +#else + function hipblasSsymm_64_rank_0(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymm_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int64_t) :: lda + real(c_float),target :: BP + integer(c_int64_t) :: ldb + real(c_float),target :: beta + real(c_float),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasSsymm_64_rank_0 = hipblasSsymm_64_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasSsymm_64_rank_0_devptr(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymm_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target :: AP + integer(c_int64_t) :: lda + real(c_float),target :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + real(c_float),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasSsymm_64_rank_0_devptr = hipblasSsymm_64_(handle,side,uplo,m,n,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + + function hipblasSsymm_64_rank_1(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymm_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + real(c_float),target :: beta + real(c_float),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasSsymm_64_rank_1 = hipblasSsymm_64_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasSsymm_64_rank_1_devptr(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymm_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + real(c_float),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasSsymm_64_rank_1_devptr = hipblasSsymm_64_(handle,side,uplo,m,n,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + + function hipblasSsymm_64_full_rank(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymm_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + real(c_float),target :: beta + real(c_float),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasSsymm_64_full_rank = hipblasSsymm_64_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasSsymm_64_full_rank_devptr(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymm_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + real(c_float),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasSsymm_64_full_rank_devptr = hipblasSsymm_64_(handle,side,uplo,m,n,alpha,c_loc(AP), & + lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDsymm_64_assumed_rank(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymm_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + real(c_double),target :: beta + real(c_double),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasDsymm_64_assumed_rank = hipblasDsymm_64_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasDsymm_64_assumed_rank_devptr(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP, & + ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymm_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + real(c_double),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasDsymm_64_assumed_rank_devptr = hipblasDsymm_64_(handle,side,uplo,m,n,alpha,c_loc(AP), & + lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + +#else + function hipblasDsymm_64_rank_0(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymm_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int64_t) :: lda + real(c_double),target :: BP + integer(c_int64_t) :: ldb + real(c_double),target :: beta + real(c_double),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasDsymm_64_rank_0 = hipblasDsymm_64_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasDsymm_64_rank_0_devptr(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymm_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target :: AP + integer(c_int64_t) :: lda + real(c_double),target :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + real(c_double),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasDsymm_64_rank_0_devptr = hipblasDsymm_64_(handle,side,uplo,m,n,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + + function hipblasDsymm_64_rank_1(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymm_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + real(c_double),target :: beta + real(c_double),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasDsymm_64_rank_1 = hipblasDsymm_64_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasDsymm_64_rank_1_devptr(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymm_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + real(c_double),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasDsymm_64_rank_1_devptr = hipblasDsymm_64_(handle,side,uplo,m,n,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + + function hipblasDsymm_64_full_rank(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymm_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + real(c_double),target :: beta + real(c_double),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasDsymm_64_full_rank = hipblasDsymm_64_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasDsymm_64_full_rank_devptr(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymm_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + real(c_double),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasDsymm_64_full_rank_devptr = hipblasDsymm_64_(handle,side,uplo,m,n,alpha,c_loc(AP), & + lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCsymm_64_assumed_rank(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymm_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCsymm_64_assumed_rank = hipblasCsymm_64_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCsymm_64_assumed_rank_devptr(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP, & + ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymm_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCsymm_64_assumed_rank_devptr = hipblasCsymm_64_(handle,side,uplo,m,n,alpha,c_loc(AP), & + lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + +#else + function hipblasCsymm_64_rank_0(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymm_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target :: BP + integer(c_int64_t) :: ldb + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasCsymm_64_rank_0 = hipblasCsymm_64_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCsymm_64_rank_0_devptr(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymm_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + complex(c_float_complex),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasCsymm_64_rank_0_devptr = hipblasCsymm_64_(handle,side,uplo,m,n,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + + function hipblasCsymm_64_rank_1(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymm_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCsymm_64_rank_1 = hipblasCsymm_64_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCsymm_64_rank_1_devptr(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymm_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCsymm_64_rank_1_devptr = hipblasCsymm_64_(handle,side,uplo,m,n,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + + function hipblasCsymm_64_full_rank(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymm_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCsymm_64_full_rank = hipblasCsymm_64_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCsymm_64_full_rank_devptr(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymm_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCsymm_64_full_rank_devptr = hipblasCsymm_64_(handle,side,uplo,m,n,alpha,c_loc(AP), & + lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZsymm_64_assumed_rank(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymm_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZsymm_64_assumed_rank = hipblasZsymm_64_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZsymm_64_assumed_rank_devptr(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP, & + ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymm_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZsymm_64_assumed_rank_devptr = hipblasZsymm_64_(handle,side,uplo,m,n,alpha,c_loc(AP), & + lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + +#else + function hipblasZsymm_64_rank_0(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymm_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target :: BP + integer(c_int64_t) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasZsymm_64_rank_0 = hipblasZsymm_64_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZsymm_64_rank_0_devptr(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymm_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + complex(c_double_complex),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasZsymm_64_rank_0_devptr = hipblasZsymm_64_(handle,side,uplo,m,n,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + + function hipblasZsymm_64_rank_1(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymm_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZsymm_64_rank_1 = hipblasZsymm_64_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZsymm_64_rank_1_devptr(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymm_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZsymm_64_rank_1_devptr = hipblasZsymm_64_(handle,side,uplo,m,n,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + + function hipblasZsymm_64_full_rank(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymm_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZsymm_64_full_rank = hipblasZsymm_64_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZsymm_64_full_rank_devptr(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymm_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZsymm_64_full_rank_devptr = hipblasZsymm_64_(handle,side,uplo,m,n,alpha,c_loc(AP), & + lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSsymmStridedBatched_assumed_rank(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymmStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + real(c_float),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasSsymmStridedBatched_assumed_rank = hipblasSsymmStridedBatched_(handle,side,uplo,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasSsymmStridedBatched_assumed_rank_devptr(handle,side,uplo,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymmStridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + real(c_float),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasSsymmStridedBatched_assumed_rank_devptr = hipblasSsymmStridedBatched_(handle,side, & + uplo,m,n,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) + end function + +#else + function hipblasSsymmStridedBatched_rank_0(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymmStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + real(c_float),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasSsymmStridedBatched_rank_0 = hipblasSsymmStridedBatched_(handle,side,uplo,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasSsymmStridedBatched_rank_0_devptr(handle,side,uplo,m,n,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymmStridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + real(c_float),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasSsymmStridedBatched_rank_0_devptr = hipblasSsymmStridedBatched_(handle,side,uplo,m,n, & + alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasSsymmStridedBatched_rank_1(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymmStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + real(c_float),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasSsymmStridedBatched_rank_1 = hipblasSsymmStridedBatched_(handle,side,uplo,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasSsymmStridedBatched_rank_1_devptr(handle,side,uplo,m,n,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymmStridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + real(c_float),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasSsymmStridedBatched_rank_1_devptr = hipblasSsymmStridedBatched_(handle,side,uplo,m,n, & + alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasSsymmStridedBatched_full_rank(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymmStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + real(c_float),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasSsymmStridedBatched_full_rank = hipblasSsymmStridedBatched_(handle,side,uplo,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasSsymmStridedBatched_full_rank_devptr(handle,side,uplo,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymmStridedBatched_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + real(c_float),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasSsymmStridedBatched_full_rank_devptr = hipblasSsymmStridedBatched_(handle,side,uplo, & + m,n,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasSsymmStridedBatched_strided_rank(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymmStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:,:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + real(c_float),target,dimension(:,:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasSsymmStridedBatched_strided_rank = hipblasSsymmStridedBatched_(handle,side,uplo,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasSsymmStridedBatched_strided_rank_devptr(handle,side,uplo,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymmStridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:,:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + real(c_float),target,dimension(:,:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasSsymmStridedBatched_strided_rank_devptr = hipblasSsymmStridedBatched_(handle,side, & + uplo,m,n,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDsymmStridedBatched_assumed_rank(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymmStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + real(c_double),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasDsymmStridedBatched_assumed_rank = hipblasDsymmStridedBatched_(handle,side,uplo,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasDsymmStridedBatched_assumed_rank_devptr(handle,side,uplo,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymmStridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + real(c_double),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasDsymmStridedBatched_assumed_rank_devptr = hipblasDsymmStridedBatched_(handle,side, & + uplo,m,n,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) + end function + +#else + function hipblasDsymmStridedBatched_rank_0(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymmStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + real(c_double),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasDsymmStridedBatched_rank_0 = hipblasDsymmStridedBatched_(handle,side,uplo,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasDsymmStridedBatched_rank_0_devptr(handle,side,uplo,m,n,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymmStridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + real(c_double),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasDsymmStridedBatched_rank_0_devptr = hipblasDsymmStridedBatched_(handle,side,uplo,m,n, & + alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasDsymmStridedBatched_rank_1(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymmStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + real(c_double),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasDsymmStridedBatched_rank_1 = hipblasDsymmStridedBatched_(handle,side,uplo,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasDsymmStridedBatched_rank_1_devptr(handle,side,uplo,m,n,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymmStridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + real(c_double),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasDsymmStridedBatched_rank_1_devptr = hipblasDsymmStridedBatched_(handle,side,uplo,m,n, & + alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasDsymmStridedBatched_full_rank(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymmStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + real(c_double),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasDsymmStridedBatched_full_rank = hipblasDsymmStridedBatched_(handle,side,uplo,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasDsymmStridedBatched_full_rank_devptr(handle,side,uplo,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymmStridedBatched_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + real(c_double),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasDsymmStridedBatched_full_rank_devptr = hipblasDsymmStridedBatched_(handle,side,uplo, & + m,n,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasDsymmStridedBatched_strided_rank(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymmStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + real(c_double),target,dimension(:,:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasDsymmStridedBatched_strided_rank = hipblasDsymmStridedBatched_(handle,side,uplo,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasDsymmStridedBatched_strided_rank_devptr(handle,side,uplo,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymmStridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + real(c_double),target,dimension(:,:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasDsymmStridedBatched_strided_rank_devptr = hipblasDsymmStridedBatched_(handle,side, & + uplo,m,n,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCsymmStridedBatched_assumed_rank(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymmStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCsymmStridedBatched_assumed_rank = hipblasCsymmStridedBatched_(handle,side,uplo,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasCsymmStridedBatched_assumed_rank_devptr(handle,side,uplo,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymmStridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCsymmStridedBatched_assumed_rank_devptr = hipblasCsymmStridedBatched_(handle,side, & + uplo,m,n,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) + end function + +#else + function hipblasCsymmStridedBatched_rank_0(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymmStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCsymmStridedBatched_rank_0 = hipblasCsymmStridedBatched_(handle,side,uplo,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasCsymmStridedBatched_rank_0_devptr(handle,side,uplo,m,n,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymmStridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_float_complex),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCsymmStridedBatched_rank_0_devptr = hipblasCsymmStridedBatched_(handle,side,uplo,m,n, & + alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasCsymmStridedBatched_rank_1(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymmStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCsymmStridedBatched_rank_1 = hipblasCsymmStridedBatched_(handle,side,uplo,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasCsymmStridedBatched_rank_1_devptr(handle,side,uplo,m,n,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymmStridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCsymmStridedBatched_rank_1_devptr = hipblasCsymmStridedBatched_(handle,side,uplo,m,n, & + alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasCsymmStridedBatched_full_rank(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymmStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCsymmStridedBatched_full_rank = hipblasCsymmStridedBatched_(handle,side,uplo,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasCsymmStridedBatched_full_rank_devptr(handle,side,uplo,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymmStridedBatched_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCsymmStridedBatched_full_rank_devptr = hipblasCsymmStridedBatched_(handle,side,uplo, & + m,n,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasCsymmStridedBatched_strided_rank(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymmStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:,:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCsymmStridedBatched_strided_rank = hipblasCsymmStridedBatched_(handle,side,uplo,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasCsymmStridedBatched_strided_rank_devptr(handle,side,uplo,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymmStridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:,:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCsymmStridedBatched_strided_rank_devptr = hipblasCsymmStridedBatched_(handle,side, & + uplo,m,n,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZsymmStridedBatched_assumed_rank(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymmStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZsymmStridedBatched_assumed_rank = hipblasZsymmStridedBatched_(handle,side,uplo,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasZsymmStridedBatched_assumed_rank_devptr(handle,side,uplo,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymmStridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZsymmStridedBatched_assumed_rank_devptr = hipblasZsymmStridedBatched_(handle,side, & + uplo,m,n,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) + end function + +#else + function hipblasZsymmStridedBatched_rank_0(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymmStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZsymmStridedBatched_rank_0 = hipblasZsymmStridedBatched_(handle,side,uplo,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasZsymmStridedBatched_rank_0_devptr(handle,side,uplo,m,n,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymmStridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_double_complex),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZsymmStridedBatched_rank_0_devptr = hipblasZsymmStridedBatched_(handle,side,uplo,m,n, & + alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasZsymmStridedBatched_rank_1(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymmStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZsymmStridedBatched_rank_1 = hipblasZsymmStridedBatched_(handle,side,uplo,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasZsymmStridedBatched_rank_1_devptr(handle,side,uplo,m,n,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymmStridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZsymmStridedBatched_rank_1_devptr = hipblasZsymmStridedBatched_(handle,side,uplo,m,n, & + alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasZsymmStridedBatched_full_rank(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymmStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZsymmStridedBatched_full_rank = hipblasZsymmStridedBatched_(handle,side,uplo,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasZsymmStridedBatched_full_rank_devptr(handle,side,uplo,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymmStridedBatched_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZsymmStridedBatched_full_rank_devptr = hipblasZsymmStridedBatched_(handle,side,uplo, & + m,n,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasZsymmStridedBatched_strided_rank(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymmStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZsymmStridedBatched_strided_rank = hipblasZsymmStridedBatched_(handle,side,uplo,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasZsymmStridedBatched_strided_rank_devptr(handle,side,uplo,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymmStridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:,:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZsymmStridedBatched_strided_rank_devptr = hipblasZsymmStridedBatched_(handle,side, & + uplo,m,n,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSsymmStridedBatched_64_assumed_rank(handle,side,uplo,m,n,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymmStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + real(c_float),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasSsymmStridedBatched_64_assumed_rank = hipblasSsymmStridedBatched_64_(handle,side, & + uplo,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) + end function + + function hipblasSsymmStridedBatched_64_assumed_rank_devptr(handle,side,uplo,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymmStridedBatched_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + real(c_float),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasSsymmStridedBatched_64_assumed_rank_devptr = hipblasSsymmStridedBatched_64_(handle, & + side,uplo,m,n,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc, & + strideC,batchCount) + end function + +#else + function hipblasSsymmStridedBatched_64_rank_0(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymmStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + real(c_float),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasSsymmStridedBatched_64_rank_0 = hipblasSsymmStridedBatched_64_(handle,side,uplo,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasSsymmStridedBatched_64_rank_0_devptr(handle,side,uplo,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymmStridedBatched_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + real(c_float),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasSsymmStridedBatched_64_rank_0_devptr = hipblasSsymmStridedBatched_64_(handle,side, & + uplo,m,n,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) + end function + + function hipblasSsymmStridedBatched_64_rank_1(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymmStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + real(c_float),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasSsymmStridedBatched_64_rank_1 = hipblasSsymmStridedBatched_64_(handle,side,uplo,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasSsymmStridedBatched_64_rank_1_devptr(handle,side,uplo,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymmStridedBatched_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + real(c_float),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasSsymmStridedBatched_64_rank_1_devptr = hipblasSsymmStridedBatched_64_(handle,side, & + uplo,m,n,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) + end function + + function hipblasSsymmStridedBatched_64_full_rank(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymmStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + real(c_float),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasSsymmStridedBatched_64_full_rank = hipblasSsymmStridedBatched_64_(handle,side,uplo,m, & + n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasSsymmStridedBatched_64_full_rank_devptr(handle,side,uplo,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymmStridedBatched_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + real(c_float),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasSsymmStridedBatched_64_full_rank_devptr = hipblasSsymmStridedBatched_64_(handle,side, & + uplo,m,n,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) + end function + + function hipblasSsymmStridedBatched_64_strided_rank(handle,side,uplo,m,n,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymmStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:,:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + real(c_float),target,dimension(:,:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasSsymmStridedBatched_64_strided_rank = hipblasSsymmStridedBatched_64_(handle,side, & + uplo,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) + end function + + function hipblasSsymmStridedBatched_64_strided_rank_devptr(handle,side,uplo,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymmStridedBatched_64_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:,:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + real(c_float),target,dimension(:,:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasSsymmStridedBatched_64_strided_rank_devptr = hipblasSsymmStridedBatched_64_(handle, & + side,uplo,m,n,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc, & + strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDsymmStridedBatched_64_assumed_rank(handle,side,uplo,m,n,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymmStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + real(c_double),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasDsymmStridedBatched_64_assumed_rank = hipblasDsymmStridedBatched_64_(handle,side, & + uplo,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) + end function + + function hipblasDsymmStridedBatched_64_assumed_rank_devptr(handle,side,uplo,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymmStridedBatched_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + real(c_double),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasDsymmStridedBatched_64_assumed_rank_devptr = hipblasDsymmStridedBatched_64_(handle, & + side,uplo,m,n,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc, & + strideC,batchCount) + end function + +#else + function hipblasDsymmStridedBatched_64_rank_0(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymmStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + real(c_double),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasDsymmStridedBatched_64_rank_0 = hipblasDsymmStridedBatched_64_(handle,side,uplo,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasDsymmStridedBatched_64_rank_0_devptr(handle,side,uplo,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymmStridedBatched_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + real(c_double),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasDsymmStridedBatched_64_rank_0_devptr = hipblasDsymmStridedBatched_64_(handle,side, & + uplo,m,n,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) + end function + + function hipblasDsymmStridedBatched_64_rank_1(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymmStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + real(c_double),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasDsymmStridedBatched_64_rank_1 = hipblasDsymmStridedBatched_64_(handle,side,uplo,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasDsymmStridedBatched_64_rank_1_devptr(handle,side,uplo,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymmStridedBatched_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + real(c_double),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasDsymmStridedBatched_64_rank_1_devptr = hipblasDsymmStridedBatched_64_(handle,side, & + uplo,m,n,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) + end function + + function hipblasDsymmStridedBatched_64_full_rank(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymmStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + real(c_double),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasDsymmStridedBatched_64_full_rank = hipblasDsymmStridedBatched_64_(handle,side,uplo,m, & + n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasDsymmStridedBatched_64_full_rank_devptr(handle,side,uplo,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymmStridedBatched_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + real(c_double),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasDsymmStridedBatched_64_full_rank_devptr = hipblasDsymmStridedBatched_64_(handle,side, & + uplo,m,n,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) + end function + + function hipblasDsymmStridedBatched_64_strided_rank(handle,side,uplo,m,n,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymmStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + real(c_double),target,dimension(:,:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasDsymmStridedBatched_64_strided_rank = hipblasDsymmStridedBatched_64_(handle,side, & + uplo,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) + end function + + function hipblasDsymmStridedBatched_64_strided_rank_devptr(handle,side,uplo,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymmStridedBatched_64_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + real(c_double),target,dimension(:,:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasDsymmStridedBatched_64_strided_rank_devptr = hipblasDsymmStridedBatched_64_(handle, & + side,uplo,m,n,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc, & + strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCsymmStridedBatched_64_assumed_rank(handle,side,uplo,m,n,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymmStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCsymmStridedBatched_64_assumed_rank = hipblasCsymmStridedBatched_64_(handle,side, & + uplo,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) + end function + + function hipblasCsymmStridedBatched_64_assumed_rank_devptr(handle,side,uplo,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymmStridedBatched_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCsymmStridedBatched_64_assumed_rank_devptr = hipblasCsymmStridedBatched_64_(handle, & + side,uplo,m,n,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc, & + strideC,batchCount) + end function + +#else + function hipblasCsymmStridedBatched_64_rank_0(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymmStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCsymmStridedBatched_64_rank_0 = hipblasCsymmStridedBatched_64_(handle,side,uplo,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasCsymmStridedBatched_64_rank_0_devptr(handle,side,uplo,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymmStridedBatched_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_float_complex),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCsymmStridedBatched_64_rank_0_devptr = hipblasCsymmStridedBatched_64_(handle,side, & + uplo,m,n,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) + end function + + function hipblasCsymmStridedBatched_64_rank_1(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymmStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCsymmStridedBatched_64_rank_1 = hipblasCsymmStridedBatched_64_(handle,side,uplo,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasCsymmStridedBatched_64_rank_1_devptr(handle,side,uplo,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymmStridedBatched_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCsymmStridedBatched_64_rank_1_devptr = hipblasCsymmStridedBatched_64_(handle,side, & + uplo,m,n,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) + end function + + function hipblasCsymmStridedBatched_64_full_rank(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymmStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCsymmStridedBatched_64_full_rank = hipblasCsymmStridedBatched_64_(handle,side,uplo,m, & + n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasCsymmStridedBatched_64_full_rank_devptr(handle,side,uplo,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymmStridedBatched_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCsymmStridedBatched_64_full_rank_devptr = hipblasCsymmStridedBatched_64_(handle,side, & + uplo,m,n,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) + end function + + function hipblasCsymmStridedBatched_64_strided_rank(handle,side,uplo,m,n,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymmStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:,:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCsymmStridedBatched_64_strided_rank = hipblasCsymmStridedBatched_64_(handle,side, & + uplo,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) + end function + + function hipblasCsymmStridedBatched_64_strided_rank_devptr(handle,side,uplo,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymmStridedBatched_64_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:,:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCsymmStridedBatched_64_strided_rank_devptr = hipblasCsymmStridedBatched_64_(handle, & + side,uplo,m,n,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc, & + strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZsymmStridedBatched_64_assumed_rank(handle,side,uplo,m,n,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymmStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZsymmStridedBatched_64_assumed_rank = hipblasZsymmStridedBatched_64_(handle,side, & + uplo,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) + end function + + function hipblasZsymmStridedBatched_64_assumed_rank_devptr(handle,side,uplo,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymmStridedBatched_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZsymmStridedBatched_64_assumed_rank_devptr = hipblasZsymmStridedBatched_64_(handle, & + side,uplo,m,n,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc, & + strideC,batchCount) + end function + +#else + function hipblasZsymmStridedBatched_64_rank_0(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymmStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZsymmStridedBatched_64_rank_0 = hipblasZsymmStridedBatched_64_(handle,side,uplo,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasZsymmStridedBatched_64_rank_0_devptr(handle,side,uplo,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymmStridedBatched_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_double_complex),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZsymmStridedBatched_64_rank_0_devptr = hipblasZsymmStridedBatched_64_(handle,side, & + uplo,m,n,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) + end function + + function hipblasZsymmStridedBatched_64_rank_1(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymmStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZsymmStridedBatched_64_rank_1 = hipblasZsymmStridedBatched_64_(handle,side,uplo,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasZsymmStridedBatched_64_rank_1_devptr(handle,side,uplo,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymmStridedBatched_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZsymmStridedBatched_64_rank_1_devptr = hipblasZsymmStridedBatched_64_(handle,side, & + uplo,m,n,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) + end function + + function hipblasZsymmStridedBatched_64_full_rank(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymmStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZsymmStridedBatched_64_full_rank = hipblasZsymmStridedBatched_64_(handle,side,uplo,m, & + n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasZsymmStridedBatched_64_full_rank_devptr(handle,side,uplo,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymmStridedBatched_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZsymmStridedBatched_64_full_rank_devptr = hipblasZsymmStridedBatched_64_(handle,side, & + uplo,m,n,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) + end function + + function hipblasZsymmStridedBatched_64_strided_rank(handle,side,uplo,m,n,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymmStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZsymmStridedBatched_64_strided_rank = hipblasZsymmStridedBatched_64_(handle,side, & + uplo,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) + end function + + function hipblasZsymmStridedBatched_64_strided_rank_devptr(handle,side,uplo,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymmStridedBatched_64_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:,:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZsymmStridedBatched_64_strided_rank_devptr = hipblasZsymmStridedBatched_64_(handle, & + side,uplo,m,n,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc, & + strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSsyrk_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrk_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_float),target :: beta + real(c_float),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasSsyrk_assumed_rank = hipblasSsyrk_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasSsyrk_assumed_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrk_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + type(c_ptr),value :: beta + real(c_float),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasSsyrk_assumed_rank_devptr = hipblasSsyrk_(handle,uplo,transA,n,k,alpha,c_loc(AP),lda, & + beta,c_loc(CP),ldc) + end function + +#else + function hipblasSsyrk_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrk_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int) :: lda + real(c_float),target :: beta + real(c_float),target :: CP + integer(c_int) :: ldc + ! + hipblasSsyrk_rank_0 = hipblasSsyrk_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasSsyrk_rank_0_devptr(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrk_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_float),target :: AP + integer(c_int) :: lda + type(c_ptr),value :: beta + real(c_float),target :: CP + integer(c_int) :: ldc + ! + hipblasSsyrk_rank_0_devptr = hipblasSsyrk_(handle,uplo,transA,n,k,alpha,c_loc(AP),lda,beta, & + c_loc(CP),ldc) + end function + + function hipblasSsyrk_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrk_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_float),target :: beta + real(c_float),target,dimension(:) :: CP + integer(c_int) :: ldc + ! + hipblasSsyrk_rank_1 = hipblasSsyrk_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasSsyrk_rank_1_devptr(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrk_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + type(c_ptr),value :: beta + real(c_float),target,dimension(:) :: CP + integer(c_int) :: ldc + ! + hipblasSsyrk_rank_1_devptr = hipblasSsyrk_(handle,uplo,transA,n,k,alpha,c_loc(AP),lda,beta, & + c_loc(CP),ldc) + end function + + function hipblasSsyrk_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrk_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_float),target :: beta + real(c_float),target,dimension(:,:) :: CP + integer(c_int) :: ldc + ! + hipblasSsyrk_full_rank = hipblasSsyrk_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasSsyrk_full_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrk_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + type(c_ptr),value :: beta + real(c_float),target,dimension(:,:) :: CP + integer(c_int) :: ldc + ! + hipblasSsyrk_full_rank_devptr = hipblasSsyrk_(handle,uplo,transA,n,k,alpha,c_loc(AP),lda, & + beta,c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDsyrk_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrk_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_double),target :: beta + real(c_double),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasDsyrk_assumed_rank = hipblasDsyrk_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasDsyrk_assumed_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrk_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + type(c_ptr),value :: beta + real(c_double),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasDsyrk_assumed_rank_devptr = hipblasDsyrk_(handle,uplo,transA,n,k,alpha,c_loc(AP),lda, & + beta,c_loc(CP),ldc) + end function + +#else + function hipblasDsyrk_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrk_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int) :: lda + real(c_double),target :: beta + real(c_double),target :: CP + integer(c_int) :: ldc + ! + hipblasDsyrk_rank_0 = hipblasDsyrk_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasDsyrk_rank_0_devptr(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrk_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_double),target :: AP + integer(c_int) :: lda + type(c_ptr),value :: beta + real(c_double),target :: CP + integer(c_int) :: ldc + ! + hipblasDsyrk_rank_0_devptr = hipblasDsyrk_(handle,uplo,transA,n,k,alpha,c_loc(AP),lda,beta, & + c_loc(CP),ldc) + end function + + function hipblasDsyrk_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrk_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_double),target :: beta + real(c_double),target,dimension(:) :: CP + integer(c_int) :: ldc + ! + hipblasDsyrk_rank_1 = hipblasDsyrk_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasDsyrk_rank_1_devptr(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrk_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + type(c_ptr),value :: beta + real(c_double),target,dimension(:) :: CP + integer(c_int) :: ldc + ! + hipblasDsyrk_rank_1_devptr = hipblasDsyrk_(handle,uplo,transA,n,k,alpha,c_loc(AP),lda,beta, & + c_loc(CP),ldc) + end function + + function hipblasDsyrk_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrk_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_double),target :: beta + real(c_double),target,dimension(:,:) :: CP + integer(c_int) :: ldc + ! + hipblasDsyrk_full_rank = hipblasDsyrk_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasDsyrk_full_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrk_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + type(c_ptr),value :: beta + real(c_double),target,dimension(:,:) :: CP + integer(c_int) :: ldc + ! + hipblasDsyrk_full_rank_devptr = hipblasDsyrk_(handle,uplo,transA,n,k,alpha,c_loc(AP),lda, & + beta,c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCsyrk_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrk_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasCsyrk_assumed_rank = hipblasCsyrk_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCsyrk_assumed_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrk_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasCsyrk_assumed_rank_devptr = hipblasCsyrk_(handle,uplo,transA,n,k,alpha,c_loc(AP),lda, & + beta,c_loc(CP),ldc) + end function + +#else + function hipblasCsyrk_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrk_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: CP + integer(c_int) :: ldc + ! + hipblasCsyrk_rank_0 = hipblasCsyrk_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCsyrk_rank_0_devptr(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrk_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + type(c_ptr),value :: beta + complex(c_float_complex),target :: CP + integer(c_int) :: ldc + ! + hipblasCsyrk_rank_0_devptr = hipblasCsyrk_(handle,uplo,transA,n,k,alpha,c_loc(AP),lda,beta, & + c_loc(CP),ldc) + end function + + function hipblasCsyrk_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrk_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + ! + hipblasCsyrk_rank_1 = hipblasCsyrk_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCsyrk_rank_1_devptr(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrk_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + ! + hipblasCsyrk_rank_1_devptr = hipblasCsyrk_(handle,uplo,transA,n,k,alpha,c_loc(AP),lda,beta, & + c_loc(CP),ldc) + end function + + function hipblasCsyrk_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrk_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + ! + hipblasCsyrk_full_rank = hipblasCsyrk_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCsyrk_full_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrk_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + ! + hipblasCsyrk_full_rank_devptr = hipblasCsyrk_(handle,uplo,transA,n,k,alpha,c_loc(AP),lda, & + beta,c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZsyrk_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrk_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasZsyrk_assumed_rank = hipblasZsyrk_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZsyrk_assumed_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrk_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasZsyrk_assumed_rank_devptr = hipblasZsyrk_(handle,uplo,transA,n,k,alpha,c_loc(AP),lda, & + beta,c_loc(CP),ldc) + end function + +#else + function hipblasZsyrk_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrk_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int) :: lda + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: CP + integer(c_int) :: ldc + ! + hipblasZsyrk_rank_0 = hipblasZsyrk_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZsyrk_rank_0_devptr(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrk_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target :: AP + integer(c_int) :: lda + type(c_ptr),value :: beta + complex(c_double_complex),target :: CP + integer(c_int) :: ldc + ! + hipblasZsyrk_rank_0_devptr = hipblasZsyrk_(handle,uplo,transA,n,k,alpha,c_loc(AP),lda,beta, & + c_loc(CP),ldc) + end function + + function hipblasZsyrk_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrk_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + ! + hipblasZsyrk_rank_1 = hipblasZsyrk_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZsyrk_rank_1_devptr(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrk_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + ! + hipblasZsyrk_rank_1_devptr = hipblasZsyrk_(handle,uplo,transA,n,k,alpha,c_loc(AP),lda,beta, & + c_loc(CP),ldc) + end function + + function hipblasZsyrk_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrk_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + ! + hipblasZsyrk_full_rank = hipblasZsyrk_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZsyrk_full_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrk_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + ! + hipblasZsyrk_full_rank_devptr = hipblasZsyrk_(handle,uplo,transA,n,k,alpha,c_loc(AP),lda, & + beta,c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSsyrk_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrk_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_float),target :: beta + real(c_float),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasSsyrk_64_assumed_rank = hipblasSsyrk_64_(handle,uplo,transA,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasSsyrk_64_assumed_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrk_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + type(c_ptr),value :: beta + real(c_float),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasSsyrk_64_assumed_rank_devptr = hipblasSsyrk_64_(handle,uplo,transA,n,k,alpha, & + c_loc(AP),lda,beta,c_loc(CP),ldc) + end function + +#else + function hipblasSsyrk_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrk_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int64_t) :: lda + real(c_float),target :: beta + real(c_float),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasSsyrk_64_rank_0 = hipblasSsyrk_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasSsyrk_64_rank_0_devptr(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrk_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_float),target :: AP + integer(c_int64_t) :: lda + type(c_ptr),value :: beta + real(c_float),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasSsyrk_64_rank_0_devptr = hipblasSsyrk_64_(handle,uplo,transA,n,k,alpha,c_loc(AP),lda, & + beta,c_loc(CP),ldc) + end function + + function hipblasSsyrk_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrk_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + real(c_float),target :: beta + real(c_float),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasSsyrk_64_rank_1 = hipblasSsyrk_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasSsyrk_64_rank_1_devptr(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrk_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + type(c_ptr),value :: beta + real(c_float),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasSsyrk_64_rank_1_devptr = hipblasSsyrk_64_(handle,uplo,transA,n,k,alpha,c_loc(AP),lda, & + beta,c_loc(CP),ldc) + end function + + function hipblasSsyrk_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrk_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + real(c_float),target :: beta + real(c_float),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasSsyrk_64_full_rank = hipblasSsyrk_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasSsyrk_64_full_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrk_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + type(c_ptr),value :: beta + real(c_float),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasSsyrk_64_full_rank_devptr = hipblasSsyrk_64_(handle,uplo,transA,n,k,alpha,c_loc(AP), & + lda,beta,c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDsyrk_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrk_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_double),target :: beta + real(c_double),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasDsyrk_64_assumed_rank = hipblasDsyrk_64_(handle,uplo,transA,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasDsyrk_64_assumed_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrk_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + type(c_ptr),value :: beta + real(c_double),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasDsyrk_64_assumed_rank_devptr = hipblasDsyrk_64_(handle,uplo,transA,n,k,alpha, & + c_loc(AP),lda,beta,c_loc(CP),ldc) + end function + +#else + function hipblasDsyrk_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrk_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int64_t) :: lda + real(c_double),target :: beta + real(c_double),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasDsyrk_64_rank_0 = hipblasDsyrk_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasDsyrk_64_rank_0_devptr(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrk_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_double),target :: AP + integer(c_int64_t) :: lda + type(c_ptr),value :: beta + real(c_double),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasDsyrk_64_rank_0_devptr = hipblasDsyrk_64_(handle,uplo,transA,n,k,alpha,c_loc(AP),lda, & + beta,c_loc(CP),ldc) + end function + + function hipblasDsyrk_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrk_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + real(c_double),target :: beta + real(c_double),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasDsyrk_64_rank_1 = hipblasDsyrk_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasDsyrk_64_rank_1_devptr(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrk_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + type(c_ptr),value :: beta + real(c_double),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasDsyrk_64_rank_1_devptr = hipblasDsyrk_64_(handle,uplo,transA,n,k,alpha,c_loc(AP),lda, & + beta,c_loc(CP),ldc) + end function + + function hipblasDsyrk_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrk_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + real(c_double),target :: beta + real(c_double),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasDsyrk_64_full_rank = hipblasDsyrk_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasDsyrk_64_full_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrk_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + type(c_ptr),value :: beta + real(c_double),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasDsyrk_64_full_rank_devptr = hipblasDsyrk_64_(handle,uplo,transA,n,k,alpha,c_loc(AP), & + lda,beta,c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCsyrk_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrk_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCsyrk_64_assumed_rank = hipblasCsyrk_64_(handle,uplo,transA,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCsyrk_64_assumed_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrk_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCsyrk_64_assumed_rank_devptr = hipblasCsyrk_64_(handle,uplo,transA,n,k,alpha, & + c_loc(AP),lda,beta,c_loc(CP),ldc) + end function + +#else + function hipblasCsyrk_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrk_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasCsyrk_64_rank_0 = hipblasCsyrk_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCsyrk_64_rank_0_devptr(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrk_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + type(c_ptr),value :: beta + complex(c_float_complex),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasCsyrk_64_rank_0_devptr = hipblasCsyrk_64_(handle,uplo,transA,n,k,alpha,c_loc(AP),lda, & + beta,c_loc(CP),ldc) + end function + + function hipblasCsyrk_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrk_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCsyrk_64_rank_1 = hipblasCsyrk_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCsyrk_64_rank_1_devptr(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrk_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCsyrk_64_rank_1_devptr = hipblasCsyrk_64_(handle,uplo,transA,n,k,alpha,c_loc(AP),lda, & + beta,c_loc(CP),ldc) + end function + + function hipblasCsyrk_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrk_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCsyrk_64_full_rank = hipblasCsyrk_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasCsyrk_64_full_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrk_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCsyrk_64_full_rank_devptr = hipblasCsyrk_64_(handle,uplo,transA,n,k,alpha,c_loc(AP), & + lda,beta,c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZsyrk_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrk_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZsyrk_64_assumed_rank = hipblasZsyrk_64_(handle,uplo,transA,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZsyrk_64_assumed_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrk_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZsyrk_64_assumed_rank_devptr = hipblasZsyrk_64_(handle,uplo,transA,n,k,alpha, & + c_loc(AP),lda,beta,c_loc(CP),ldc) + end function + +#else + function hipblasZsyrk_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrk_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasZsyrk_64_rank_0 = hipblasZsyrk_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZsyrk_64_rank_0_devptr(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrk_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + type(c_ptr),value :: beta + complex(c_double_complex),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasZsyrk_64_rank_0_devptr = hipblasZsyrk_64_(handle,uplo,transA,n,k,alpha,c_loc(AP),lda, & + beta,c_loc(CP),ldc) + end function + + function hipblasZsyrk_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrk_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZsyrk_64_rank_1 = hipblasZsyrk_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZsyrk_64_rank_1_devptr(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrk_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZsyrk_64_rank_1_devptr = hipblasZsyrk_64_(handle,uplo,transA,n,k,alpha,c_loc(AP),lda, & + beta,c_loc(CP),ldc) + end function + + function hipblasZsyrk_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrk_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZsyrk_64_full_rank = hipblasZsyrk_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZsyrk_64_full_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrk_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZsyrk_64_full_rank_devptr = hipblasZsyrk_64_(handle,uplo,transA,n,k,alpha,c_loc(AP), & + lda,beta,c_loc(CP),ldc) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSsyrkStridedBatched_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: beta + real(c_float),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasSsyrkStridedBatched_assumed_rank = hipblasSsyrkStridedBatched_(handle,uplo,transA,n, & + k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasSsyrkStridedBatched_assumed_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkStridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr),value :: beta + real(c_float),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasSsyrkStridedBatched_assumed_rank_devptr = hipblasSsyrkStridedBatched_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,beta,c_loc(CP),ldc,strideC,batchCount) + end function + +#else + function hipblasSsyrkStridedBatched_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta, & + CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: beta + real(c_float),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasSsyrkStridedBatched_rank_0 = hipblasSsyrkStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasSsyrkStridedBatched_rank_0_devptr(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkStridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_float),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr),value :: beta + real(c_float),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasSsyrkStridedBatched_rank_0_devptr = hipblasSsyrkStridedBatched_(handle,uplo,transA,n, & + k,alpha,c_loc(AP),lda,strideA,beta,c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasSsyrkStridedBatched_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta, & + CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: beta + real(c_float),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasSsyrkStridedBatched_rank_1 = hipblasSsyrkStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasSsyrkStridedBatched_rank_1_devptr(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkStridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr),value :: beta + real(c_float),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasSsyrkStridedBatched_rank_1_devptr = hipblasSsyrkStridedBatched_(handle,uplo,transA,n, & + k,alpha,c_loc(AP),lda,strideA,beta,c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasSsyrkStridedBatched_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: beta + real(c_float),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasSsyrkStridedBatched_full_rank = hipblasSsyrkStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasSsyrkStridedBatched_full_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkStridedBatched_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr),value :: beta + real(c_float),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasSsyrkStridedBatched_full_rank_devptr = hipblasSsyrkStridedBatched_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,beta,c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasSsyrkStridedBatched_strided_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: beta + real(c_float),target,dimension(:,:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasSsyrkStridedBatched_strided_rank = hipblasSsyrkStridedBatched_(handle,uplo,transA,n, & + k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasSsyrkStridedBatched_strided_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkStridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr),value :: beta + real(c_float),target,dimension(:,:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasSsyrkStridedBatched_strided_rank_devptr = hipblasSsyrkStridedBatched_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,beta,c_loc(CP),ldc,strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDsyrkStridedBatched_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: beta + real(c_double),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasDsyrkStridedBatched_assumed_rank = hipblasDsyrkStridedBatched_(handle,uplo,transA,n, & + k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasDsyrkStridedBatched_assumed_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkStridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr),value :: beta + real(c_double),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasDsyrkStridedBatched_assumed_rank_devptr = hipblasDsyrkStridedBatched_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,beta,c_loc(CP),ldc,strideC,batchCount) + end function + +#else + function hipblasDsyrkStridedBatched_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta, & + CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: beta + real(c_double),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasDsyrkStridedBatched_rank_0 = hipblasDsyrkStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasDsyrkStridedBatched_rank_0_devptr(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkStridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_double),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr),value :: beta + real(c_double),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasDsyrkStridedBatched_rank_0_devptr = hipblasDsyrkStridedBatched_(handle,uplo,transA,n, & + k,alpha,c_loc(AP),lda,strideA,beta,c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasDsyrkStridedBatched_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta, & + CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: beta + real(c_double),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasDsyrkStridedBatched_rank_1 = hipblasDsyrkStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasDsyrkStridedBatched_rank_1_devptr(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkStridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr),value :: beta + real(c_double),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasDsyrkStridedBatched_rank_1_devptr = hipblasDsyrkStridedBatched_(handle,uplo,transA,n, & + k,alpha,c_loc(AP),lda,strideA,beta,c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasDsyrkStridedBatched_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: beta + real(c_double),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasDsyrkStridedBatched_full_rank = hipblasDsyrkStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasDsyrkStridedBatched_full_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkStridedBatched_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr),value :: beta + real(c_double),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasDsyrkStridedBatched_full_rank_devptr = hipblasDsyrkStridedBatched_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,beta,c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasDsyrkStridedBatched_strided_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: beta + real(c_double),target,dimension(:,:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasDsyrkStridedBatched_strided_rank = hipblasDsyrkStridedBatched_(handle,uplo,transA,n, & + k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasDsyrkStridedBatched_strided_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkStridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr),value :: beta + real(c_double),target,dimension(:,:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasDsyrkStridedBatched_strided_rank_devptr = hipblasDsyrkStridedBatched_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,beta,c_loc(CP),ldc,strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCsyrkStridedBatched_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCsyrkStridedBatched_assumed_rank = hipblasCsyrkStridedBatched_(handle,uplo,transA,n, & + k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasCsyrkStridedBatched_assumed_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkStridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCsyrkStridedBatched_assumed_rank_devptr = hipblasCsyrkStridedBatched_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,beta,c_loc(CP),ldc,strideC,batchCount) + end function + +#else + function hipblasCsyrkStridedBatched_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta, & + CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCsyrkStridedBatched_rank_0 = hipblasCsyrkStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasCsyrkStridedBatched_rank_0_devptr(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkStridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr),value :: beta + complex(c_float_complex),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCsyrkStridedBatched_rank_0_devptr = hipblasCsyrkStridedBatched_(handle,uplo,transA,n, & + k,alpha,c_loc(AP),lda,strideA,beta,c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasCsyrkStridedBatched_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta, & + CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCsyrkStridedBatched_rank_1 = hipblasCsyrkStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasCsyrkStridedBatched_rank_1_devptr(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkStridedBatched_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCsyrkStridedBatched_rank_1_devptr = hipblasCsyrkStridedBatched_(handle,uplo,transA,n, & + k,alpha,c_loc(AP),lda,strideA,beta,c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasCsyrkStridedBatched_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCsyrkStridedBatched_full_rank = hipblasCsyrkStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasCsyrkStridedBatched_full_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkStridedBatched_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCsyrkStridedBatched_full_rank_devptr = hipblasCsyrkStridedBatched_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,beta,c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasCsyrkStridedBatched_strided_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:,:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCsyrkStridedBatched_strided_rank = hipblasCsyrkStridedBatched_(handle,uplo,transA,n, & + k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasCsyrkStridedBatched_strided_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkStridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:,:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCsyrkStridedBatched_strided_rank_devptr = hipblasCsyrkStridedBatched_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,beta,c_loc(CP),ldc,strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZsyrkStridedBatched_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZsyrkStridedBatched_assumed_rank = hipblasZsyrkStridedBatched_(handle,uplo,transA,n, & + k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasZsyrkStridedBatched_assumed_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkStridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZsyrkStridedBatched_assumed_rank_devptr = hipblasZsyrkStridedBatched_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,beta,c_loc(CP),ldc,strideC,batchCount) + end function + +#else + function hipblasZsyrkStridedBatched_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta, & + CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkStridedBatched_rank_0 type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n integer(c_int) :: k - real(c_float),target,dimension(..) :: AP + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - real(c_float),target,dimension(..) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC integer(c_int) :: batchCount ! - hipblasStbsvStridedBatched_assumed_rank = hipblasStbsvStridedBatched_(handle,uplo,transA, & - diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasZsyrkStridedBatched_rank_0 = hipblasZsyrkStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) end function -#else - function hipblasStbsvStridedBatched_rank_0(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasZsyrkStridedBatched_rank_0_devptr(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbsvStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkStridedBatched_rank_0_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n integer(c_int) :: k - real(c_float),target :: AP + type(c_ptr),value :: alpha + complex(c_double_complex),target :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - real(c_float),target :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_double_complex),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC integer(c_int) :: batchCount ! - hipblasStbsvStridedBatched_rank_0 = hipblasStbsvStridedBatched_(handle,uplo,transA,diag,n,k, & - c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasZsyrkStridedBatched_rank_0_devptr = hipblasZsyrkStridedBatched_(handle,uplo,transA,n, & + k,alpha,c_loc(AP),lda,strideA,beta,c_loc(CP),ldc,strideC,batchCount) end function - function hipblasStbsvStridedBatched_rank_1(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasZsyrkStridedBatched_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta, & + CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbsvStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkStridedBatched_rank_1 type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n integer(c_int) :: k - real(c_float),target,dimension(:) :: AP + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - real(c_float),target,dimension(:) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC integer(c_int) :: batchCount ! - hipblasStbsvStridedBatched_rank_1 = hipblasStbsvStridedBatched_(handle,uplo,transA,diag,n,k, & - c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasZsyrkStridedBatched_rank_1 = hipblasZsyrkStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) end function - function hipblasStbsvStridedBatched_full_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & - incx,stridex,batchCount) - use iso_c_binding + function hipblasZsyrkStridedBatched_rank_1_devptr(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbsvStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkStridedBatched_rank_1_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n integer(c_int) :: k - real(c_float),target,dimension(:,:) :: AP + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - real(c_float),target,dimension(:) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC integer(c_int) :: batchCount ! - hipblasStbsvStridedBatched_full_rank = hipblasStbsvStridedBatched_(handle,uplo,transA,diag, & - n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasZsyrkStridedBatched_rank_1_devptr = hipblasZsyrkStridedBatched_(handle,uplo,transA,n, & + k,alpha,c_loc(AP),lda,strideA,beta,c_loc(CP),ldc,strideC,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDtbsvStridedBatched_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & - incx,stridex,batchCount) - use iso_c_binding + function hipblasZsyrkStridedBatched_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbsvStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkStridedBatched_full_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n integer(c_int) :: k - real(c_double),target,dimension(..) :: AP + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - real(c_double),target,dimension(..) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC integer(c_int) :: batchCount ! - hipblasDtbsvStridedBatched_assumed_rank = hipblasDtbsvStridedBatched_(handle,uplo,transA, & - diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasZsyrkStridedBatched_full_rank = hipblasZsyrkStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) end function -#else - function hipblasDtbsvStridedBatched_rank_0(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasZsyrkStridedBatched_full_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbsvStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkStridedBatched_full_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n integer(c_int) :: k - real(c_double),target :: AP + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - real(c_double),target :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC integer(c_int) :: batchCount ! - hipblasDtbsvStridedBatched_rank_0 = hipblasDtbsvStridedBatched_(handle,uplo,transA,diag,n,k, & - c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasZsyrkStridedBatched_full_rank_devptr = hipblasZsyrkStridedBatched_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,beta,c_loc(CP),ldc,strideC,batchCount) end function - function hipblasDtbsvStridedBatched_rank_1(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasZsyrkStridedBatched_strided_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbsvStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkStridedBatched_strided_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n integer(c_int) :: k - real(c_double),target,dimension(:) :: AP + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:,:) :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - real(c_double),target,dimension(:) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC integer(c_int) :: batchCount ! - hipblasDtbsvStridedBatched_rank_1 = hipblasDtbsvStridedBatched_(handle,uplo,transA,diag,n,k, & - c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasZsyrkStridedBatched_strided_rank = hipblasZsyrkStridedBatched_(handle,uplo,transA,n, & + k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) end function - function hipblasDtbsvStridedBatched_full_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & - incx,stridex,batchCount) - use iso_c_binding + function hipblasZsyrkStridedBatched_strided_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbsvStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkStridedBatched_strided_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n integer(c_int) :: k - real(c_double),target,dimension(:,:) :: AP + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:,:) :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - real(c_double),target,dimension(:) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:,:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC integer(c_int) :: batchCount ! - hipblasDtbsvStridedBatched_full_rank = hipblasDtbsvStridedBatched_(handle,uplo,transA,diag, & - n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasZsyrkStridedBatched_strided_rank_devptr = hipblasZsyrkStridedBatched_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,beta,c_loc(CP),ldc,strideC,batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCtbsvStridedBatched_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & - incx,stridex,batchCount) - use iso_c_binding + function hipblasSsyrkStridedBatched_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbsvStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkStridedBatched_64_assumed_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - integer(c_int) :: k - complex(c_float_complex),target,dimension(..) :: AP - integer(c_int) :: lda + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(..) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount + real(c_float),target :: beta + real(c_float),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasCtbsvStridedBatched_assumed_rank = hipblasCtbsvStridedBatched_(handle,uplo,transA, & - diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasSsyrkStridedBatched_64_assumed_rank = hipblasSsyrkStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasSsyrkStridedBatched_64_assumed_rank_devptr(handle,uplo,transA,n,k,alpha,AP, & + lda,strideA,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkStridedBatched_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr),value :: beta + real(c_float),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasSsyrkStridedBatched_64_assumed_rank_devptr = hipblasSsyrkStridedBatched_64_(handle, & + uplo,transA,n,k,alpha,c_loc(AP),lda,strideA,beta,c_loc(CP),ldc,strideC,batchCount) end function #else - function hipblasCtbsvStridedBatched_rank_0(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasSsyrkStridedBatched_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbsvStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkStridedBatched_64_rank_0 type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - integer(c_int) :: k - complex(c_float_complex),target :: AP - integer(c_int) :: lda + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount + real(c_float),target :: beta + real(c_float),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasCtbsvStridedBatched_rank_0 = hipblasCtbsvStridedBatched_(handle,uplo,transA,diag,n,k, & - c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasSsyrkStridedBatched_64_rank_0 = hipblasSsyrkStridedBatched_64_(handle,uplo,transA,n, & + k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) end function - function hipblasCtbsvStridedBatched_rank_1(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasSsyrkStridedBatched_64_rank_0_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbsvStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkStridedBatched_64_rank_0_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - integer(c_int) :: k - complex(c_float_complex),target,dimension(:) :: AP - integer(c_int) :: lda + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_float),target :: AP + integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount + type(c_ptr),value :: beta + real(c_float),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasCtbsvStridedBatched_rank_1 = hipblasCtbsvStridedBatched_(handle,uplo,transA,diag,n,k, & - c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasSsyrkStridedBatched_64_rank_0_devptr = hipblasSsyrkStridedBatched_64_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,beta,c_loc(CP),ldc,strideC,batchCount) end function - function hipblasCtbsvStridedBatched_full_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & - incx,stridex,batchCount) - use iso_c_binding + function hipblasSsyrkStridedBatched_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbsvStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkStridedBatched_64_rank_1 type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - integer(c_int) :: k - complex(c_float_complex),target,dimension(:,:) :: AP - integer(c_int) :: lda + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount + real(c_float),target :: beta + real(c_float),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasCtbsvStridedBatched_full_rank = hipblasCtbsvStridedBatched_(handle,uplo,transA,diag, & - n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasSsyrkStridedBatched_64_rank_1 = hipblasSsyrkStridedBatched_64_(handle,uplo,transA,n, & + k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZtbsvStridedBatched_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & - incx,stridex,batchCount) - use iso_c_binding + function hipblasSsyrkStridedBatched_64_rank_1_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbsvStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkStridedBatched_64_rank_1_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - integer(c_int) :: k - complex(c_double_complex),target,dimension(..) :: AP - integer(c_int) :: lda + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(..) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount + type(c_ptr),value :: beta + real(c_float),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasZtbsvStridedBatched_assumed_rank = hipblasZtbsvStridedBatched_(handle,uplo,transA, & - diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasSsyrkStridedBatched_64_rank_1_devptr = hipblasSsyrkStridedBatched_64_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,beta,c_loc(CP),ldc,strideC,batchCount) end function -#else - function hipblasZtbsvStridedBatched_rank_0(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasSsyrkStridedBatched_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbsvStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkStridedBatched_64_full_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - integer(c_int) :: k - complex(c_double_complex),target :: AP - integer(c_int) :: lda + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount + real(c_float),target :: beta + real(c_float),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasZtbsvStridedBatched_rank_0 = hipblasZtbsvStridedBatched_(handle,uplo,transA,diag,n,k, & - c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasSsyrkStridedBatched_64_full_rank = hipblasSsyrkStridedBatched_64_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) end function - function hipblasZtbsvStridedBatched_rank_1(handle,uplo,transA,diag,n,k,AP,lda,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasSsyrkStridedBatched_64_full_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbsvStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkStridedBatched_64_full_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - integer(c_int) :: k - complex(c_double_complex),target,dimension(:) :: AP - integer(c_int) :: lda + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount + type(c_ptr),value :: beta + real(c_float),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasZtbsvStridedBatched_rank_1 = hipblasZtbsvStridedBatched_(handle,uplo,transA,diag,n,k, & - c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasSsyrkStridedBatched_64_full_rank_devptr = hipblasSsyrkStridedBatched_64_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,beta,c_loc(CP),ldc,strideC,batchCount) end function - function hipblasZtbsvStridedBatched_full_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & - incx,stridex,batchCount) - use iso_c_binding + function hipblasSsyrkStridedBatched_64_strided_rank(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbsvStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkStridedBatched_64_strided_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - integer(c_int) :: k - complex(c_double_complex),target,dimension(:,:) :: AP - integer(c_int) :: lda + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount + real(c_float),target :: beta + real(c_float),target,dimension(:,:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasZtbsvStridedBatched_full_rank = hipblasZtbsvStridedBatched_(handle,uplo,transA,diag, & - n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasSsyrkStridedBatched_64_strided_rank = hipblasSsyrkStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasSsyrkStridedBatched_64_strided_rank_devptr(handle,uplo,transA,n,k,alpha,AP, & + lda,strideA,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkStridedBatched_64_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr),value :: beta + real(c_float),target,dimension(:,:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasSsyrkStridedBatched_64_strided_rank_devptr = hipblasSsyrkStridedBatched_64_(handle, & + uplo,transA,n,k,alpha,c_loc(AP),lda,strideA,beta,c_loc(CP),ldc,strideC,batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasStbsvStridedBatched_64_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda, & - strideA,x,incx,stridex,batchCount) - use iso_c_binding + function hipblasDsyrkStridedBatched_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbsvStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkStridedBatched_64_assumed_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: n integer(c_int64_t) :: k - real(c_float),target,dimension(..) :: AP + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - real(c_float),target,dimension(..) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasStbsvStridedBatched_64_assumed_rank = hipblasStbsvStridedBatched_64_(handle,uplo, & - transA,diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasDsyrkStridedBatched_64_assumed_rank = hipblasDsyrkStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasDsyrkStridedBatched_64_assumed_rank_devptr(handle,uplo,transA,n,k,alpha,AP, & + lda,strideA,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkStridedBatched_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr),value :: beta + real(c_double),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasDsyrkStridedBatched_64_assumed_rank_devptr = hipblasDsyrkStridedBatched_64_(handle, & + uplo,transA,n,k,alpha,c_loc(AP),lda,strideA,beta,c_loc(CP),ldc,strideC,batchCount) end function #else - function hipblasStbsvStridedBatched_64_rank_0(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & - incx,stridex,batchCount) - use iso_c_binding + function hipblasDsyrkStridedBatched_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbsvStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkStridedBatched_64_rank_0 type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: n integer(c_int64_t) :: k - real(c_float),target :: AP + real(c_double),target :: alpha + real(c_double),target :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - real(c_float),target :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasStbsvStridedBatched_64_rank_0 = hipblasStbsvStridedBatched_64_(handle,uplo,transA, & - diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasDsyrkStridedBatched_64_rank_0 = hipblasDsyrkStridedBatched_64_(handle,uplo,transA,n, & + k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) end function - function hipblasStbsvStridedBatched_64_rank_1(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & - incx,stridex,batchCount) - use iso_c_binding + function hipblasDsyrkStridedBatched_64_rank_0_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkStridedBatched_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_double),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr),value :: beta + real(c_double),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasDsyrkStridedBatched_64_rank_0_devptr = hipblasDsyrkStridedBatched_64_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,beta,c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasDsyrkStridedBatched_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: beta + real(c_double),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasDsyrkStridedBatched_64_rank_1 = hipblasDsyrkStridedBatched_64_(handle,uplo,transA,n, & + k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasDsyrkStridedBatched_64_rank_1_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbsvStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkStridedBatched_64_rank_1_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: n integer(c_int64_t) :: k - real(c_float),target,dimension(:) :: AP + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - real(c_float),target,dimension(:) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_double),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasStbsvStridedBatched_64_rank_1 = hipblasStbsvStridedBatched_64_(handle,uplo,transA, & - diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasDsyrkStridedBatched_64_rank_1_devptr = hipblasDsyrkStridedBatched_64_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,beta,c_loc(CP),ldc,strideC,batchCount) end function - function hipblasStbsvStridedBatched_64_full_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & - incx,stridex,batchCount) - use iso_c_binding + function hipblasDsyrkStridedBatched_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStbsvStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkStridedBatched_64_full_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: n integer(c_int64_t) :: k - real(c_float),target,dimension(:,:) :: AP + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - real(c_float),target,dimension(:) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasStbsvStridedBatched_64_full_rank = hipblasStbsvStridedBatched_64_(handle,uplo,transA, & - diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasDsyrkStridedBatched_64_full_rank = hipblasDsyrkStridedBatched_64_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDtbsvStridedBatched_64_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda, & - strideA,x,incx,stridex,batchCount) - use iso_c_binding + function hipblasDsyrkStridedBatched_64_full_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbsvStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkStridedBatched_64_full_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: n integer(c_int64_t) :: k - real(c_double),target,dimension(..) :: AP + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:) :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - real(c_double),target,dimension(..) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_double),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasDtbsvStridedBatched_64_assumed_rank = hipblasDtbsvStridedBatched_64_(handle,uplo, & - transA,diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasDsyrkStridedBatched_64_full_rank_devptr = hipblasDsyrkStridedBatched_64_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,beta,c_loc(CP),ldc,strideC,batchCount) end function -#else - function hipblasDtbsvStridedBatched_64_rank_0(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & - incx,stridex,batchCount) - use iso_c_binding + function hipblasDsyrkStridedBatched_64_strided_rank(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbsvStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkStridedBatched_64_strided_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: n integer(c_int64_t) :: k - real(c_double),target :: AP + real(c_double),target :: alpha + real(c_double),target,dimension(:,:,:) :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - real(c_double),target :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex + real(c_double),target :: beta + real(c_double),target,dimension(:,:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasDtbsvStridedBatched_64_rank_0 = hipblasDtbsvStridedBatched_64_(handle,uplo,transA, & - diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasDsyrkStridedBatched_64_strided_rank = hipblasDsyrkStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) end function - function hipblasDtbsvStridedBatched_64_rank_1(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & - incx,stridex,batchCount) - use iso_c_binding + function hipblasDsyrkStridedBatched_64_strided_rank_devptr(handle,uplo,transA,n,k,alpha,AP, & + lda,strideA,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbsvStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkStridedBatched_64_strided_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: n integer(c_int64_t) :: k - real(c_double),target,dimension(:) :: AP + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:,:) :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - real(c_double),target,dimension(:) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + real(c_double),target,dimension(:,:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasDtbsvStridedBatched_64_rank_1 = hipblasDtbsvStridedBatched_64_(handle,uplo,transA, & - diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasDsyrkStridedBatched_64_strided_rank_devptr = hipblasDsyrkStridedBatched_64_(handle, & + uplo,transA,n,k,alpha,c_loc(AP),lda,strideA,beta,c_loc(CP),ldc,strideC,batchCount) end function - function hipblasDtbsvStridedBatched_64_full_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & - incx,stridex,batchCount) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCsyrkStridedBatched_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtbsvStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkStridedBatched_64_assumed_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: n integer(c_int64_t) :: k - real(c_double),target,dimension(:,:) :: AP + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - real(c_double),target,dimension(:) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasDtbsvStridedBatched_64_full_rank = hipblasDtbsvStridedBatched_64_(handle,uplo,transA, & - diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasCsyrkStridedBatched_64_assumed_rank = hipblasCsyrkStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCtbsvStridedBatched_64_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda, & - strideA,x,incx,stridex,batchCount) - use iso_c_binding + function hipblasCsyrkStridedBatched_64_assumed_rank_devptr(handle,uplo,transA,n,k,alpha,AP, & + lda,strideA,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbsvStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkStridedBatched_64_assumed_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: n integer(c_int64_t) :: k + type(c_ptr),value :: alpha complex(c_float_complex),target,dimension(..) :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(..) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasCtbsvStridedBatched_64_assumed_rank = hipblasCtbsvStridedBatched_64_(handle,uplo, & - transA,diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasCsyrkStridedBatched_64_assumed_rank_devptr = hipblasCsyrkStridedBatched_64_(handle, & + uplo,transA,n,k,alpha,c_loc(AP),lda,strideA,beta,c_loc(CP),ldc,strideC,batchCount) end function #else - function hipblasCtbsvStridedBatched_64_rank_0(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & - incx,stridex,batchCount) - use iso_c_binding + function hipblasCsyrkStridedBatched_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbsvStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkStridedBatched_64_rank_0 type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: n integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha complex(c_float_complex),target :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasCtbsvStridedBatched_64_rank_0 = hipblasCtbsvStridedBatched_64_(handle,uplo,transA, & - diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasCsyrkStridedBatched_64_rank_0 = hipblasCsyrkStridedBatched_64_(handle,uplo,transA,n, & + k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) end function - function hipblasCtbsvStridedBatched_64_rank_1(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & - incx,stridex,batchCount) - use iso_c_binding + function hipblasCsyrkStridedBatched_64_rank_0_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbsvStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkStridedBatched_64_rank_0_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: n integer(c_int64_t) :: k - complex(c_float_complex),target,dimension(:) :: AP + type(c_ptr),value :: alpha + complex(c_float_complex),target :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_float_complex),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasCtbsvStridedBatched_64_rank_1 = hipblasCtbsvStridedBatched_64_(handle,uplo,transA, & - diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasCsyrkStridedBatched_64_rank_0_devptr = hipblasCsyrkStridedBatched_64_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,beta,c_loc(CP),ldc,strideC,batchCount) end function - function hipblasCtbsvStridedBatched_64_full_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & - incx,stridex,batchCount) - use iso_c_binding + function hipblasCsyrkStridedBatched_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtbsvStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkStridedBatched_64_rank_1 type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: n integer(c_int64_t) :: k - complex(c_float_complex),target,dimension(:,:) :: AP + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasCtbsvStridedBatched_64_full_rank = hipblasCtbsvStridedBatched_64_(handle,uplo,transA, & - diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasCsyrkStridedBatched_64_rank_1 = hipblasCsyrkStridedBatched_64_(handle,uplo,transA,n, & + k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZtbsvStridedBatched_64_assumed_rank(handle,uplo,transA,diag,n,k,AP,lda, & - strideA,x,incx,stridex,batchCount) - use iso_c_binding + function hipblasCsyrkStridedBatched_64_rank_1_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbsvStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkStridedBatched_64_rank_1_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: n integer(c_int64_t) :: k - complex(c_double_complex),target,dimension(..) :: AP + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(..) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasZtbsvStridedBatched_64_assumed_rank = hipblasZtbsvStridedBatched_64_(handle,uplo, & - transA,diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasCsyrkStridedBatched_64_rank_1_devptr = hipblasCsyrkStridedBatched_64_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,beta,c_loc(CP),ldc,strideC,batchCount) end function -#else - function hipblasZtbsvStridedBatched_64_rank_0(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & - incx,stridex,batchCount) - use iso_c_binding + function hipblasCsyrkStridedBatched_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbsvStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkStridedBatched_64_full_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: n integer(c_int64_t) :: k - complex(c_double_complex),target :: AP + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasZtbsvStridedBatched_64_rank_0 = hipblasZtbsvStridedBatched_64_(handle,uplo,transA, & - diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasCsyrkStridedBatched_64_full_rank = hipblasCsyrkStridedBatched_64_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) end function - function hipblasZtbsvStridedBatched_64_rank_1(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & - incx,stridex,batchCount) - use iso_c_binding + function hipblasCsyrkStridedBatched_64_full_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbsvStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkStridedBatched_64_full_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: n integer(c_int64_t) :: k - complex(c_double_complex),target,dimension(:) :: AP + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasZtbsvStridedBatched_64_rank_1 = hipblasZtbsvStridedBatched_64_(handle,uplo,transA, & - diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasCsyrkStridedBatched_64_full_rank_devptr = hipblasCsyrkStridedBatched_64_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,beta,c_loc(CP),ldc,strideC,batchCount) end function - function hipblasZtbsvStridedBatched_64_full_rank(handle,uplo,transA,diag,n,k,AP,lda,strideA,x, & - incx,stridex,batchCount) - use iso_c_binding + function hipblasCsyrkStridedBatched_64_strided_rank(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtbsvStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkStridedBatched_64_strided_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: n integer(c_int64_t) :: k - complex(c_double_complex),target,dimension(:,:) :: AP + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:,:) :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:,:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasZtbsvStridedBatched_64_full_rank = hipblasZtbsvStridedBatched_64_(handle,uplo,transA, & - diag,n,k,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) - end function - -#endif -#ifdef USE_ASSUMED_RANK - function hipblasStpmv_assumed_rank(handle,uplo,transA,diag,n,AP,x,incx) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpmv_assumed_rank - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - real(c_float),target,dimension(..) :: AP - real(c_float),target,dimension(..) :: x - integer(c_int) :: incx - ! - hipblasStpmv_assumed_rank = hipblasStpmv_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + hipblasCsyrkStridedBatched_64_strided_rank = hipblasCsyrkStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) end function -#else - function hipblasStpmv_rank_0(handle,uplo,transA,diag,n,AP,x,incx) - use iso_c_binding + function hipblasCsyrkStridedBatched_64_strided_rank_devptr(handle,uplo,transA,n,k,alpha,AP, & + lda,strideA,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpmv_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkStridedBatched_64_strided_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - real(c_float),target :: AP - real(c_float),target :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:,:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasStpmv_rank_0 = hipblasStpmv_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + hipblasCsyrkStridedBatched_64_strided_rank_devptr = hipblasCsyrkStridedBatched_64_(handle, & + uplo,transA,n,k,alpha,c_loc(AP),lda,strideA,beta,c_loc(CP),ldc,strideC,batchCount) end function - function hipblasStpmv_rank_1(handle,uplo,transA,diag,n,AP,x,incx) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZsyrkStridedBatched_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpmv_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkStridedBatched_64_assumed_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - real(c_float),target,dimension(:) :: AP - real(c_float),target,dimension(:) :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasStpmv_rank_1 = hipblasStpmv_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + hipblasZsyrkStridedBatched_64_assumed_rank = hipblasZsyrkStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDtpmv_assumed_rank(handle,uplo,transA,diag,n,AP,x,incx) - use iso_c_binding + function hipblasZsyrkStridedBatched_64_assumed_rank_devptr(handle,uplo,transA,n,k,alpha,AP, & + lda,strideA,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpmv_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkStridedBatched_64_assumed_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - real(c_double),target,dimension(..) :: AP - real(c_double),target,dimension(..) :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasDtpmv_assumed_rank = hipblasDtpmv_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + hipblasZsyrkStridedBatched_64_assumed_rank_devptr = hipblasZsyrkStridedBatched_64_(handle, & + uplo,transA,n,k,alpha,c_loc(AP),lda,strideA,beta,c_loc(CP),ldc,strideC,batchCount) end function #else - function hipblasDtpmv_rank_0(handle,uplo,transA,diag,n,AP,x,incx) - use iso_c_binding + function hipblasZsyrkStridedBatched_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpmv_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkStridedBatched_64_rank_0 type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - real(c_double),target :: AP - real(c_double),target :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasDtpmv_rank_0 = hipblasDtpmv_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + hipblasZsyrkStridedBatched_64_rank_0 = hipblasZsyrkStridedBatched_64_(handle,uplo,transA,n, & + k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) end function - function hipblasDtpmv_rank_1(handle,uplo,transA,diag,n,AP,x,incx) - use iso_c_binding + function hipblasZsyrkStridedBatched_64_rank_0_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpmv_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkStridedBatched_64_rank_0_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - real(c_double),target,dimension(:) :: AP - real(c_double),target,dimension(:) :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr),value :: beta + complex(c_double_complex),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasDtpmv_rank_1 = hipblasDtpmv_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + hipblasZsyrkStridedBatched_64_rank_0_devptr = hipblasZsyrkStridedBatched_64_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,beta,c_loc(CP),ldc,strideC,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCtpmv_assumed_rank(handle,uplo,transA,diag,n,AP,x,incx) - use iso_c_binding + function hipblasZsyrkStridedBatched_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpmv_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkStridedBatched_64_rank_1 type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - complex(c_float_complex),target,dimension(..) :: AP - complex(c_float_complex),target,dimension(..) :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasCtpmv_assumed_rank = hipblasCtpmv_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + hipblasZsyrkStridedBatched_64_rank_1 = hipblasZsyrkStridedBatched_64_(handle,uplo,transA,n, & + k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) end function -#else - function hipblasCtpmv_rank_0(handle,uplo,transA,diag,n,AP,x,incx) - use iso_c_binding + function hipblasZsyrkStridedBatched_64_rank_1_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpmv_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkStridedBatched_64_rank_1_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - complex(c_float_complex),target :: AP - complex(c_float_complex),target :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasCtpmv_rank_0 = hipblasCtpmv_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + hipblasZsyrkStridedBatched_64_rank_1_devptr = hipblasZsyrkStridedBatched_64_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,beta,c_loc(CP),ldc,strideC,batchCount) end function - function hipblasCtpmv_rank_1(handle,uplo,transA,diag,n,AP,x,incx) - use iso_c_binding + function hipblasZsyrkStridedBatched_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpmv_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkStridedBatched_64_full_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - complex(c_float_complex),target,dimension(:) :: AP - complex(c_float_complex),target,dimension(:) :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasCtpmv_rank_1 = hipblasCtpmv_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + hipblasZsyrkStridedBatched_64_full_rank = hipblasZsyrkStridedBatched_64_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZtpmv_assumed_rank(handle,uplo,transA,diag,n,AP,x,incx) - use iso_c_binding + function hipblasZsyrkStridedBatched_64_full_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpmv_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkStridedBatched_64_full_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - complex(c_double_complex),target,dimension(..) :: AP - complex(c_double_complex),target,dimension(..) :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasZtpmv_assumed_rank = hipblasZtpmv_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + hipblasZsyrkStridedBatched_64_full_rank_devptr = hipblasZsyrkStridedBatched_64_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,beta,c_loc(CP),ldc,strideC,batchCount) end function -#else - function hipblasZtpmv_rank_0(handle,uplo,transA,diag,n,AP,x,incx) - use iso_c_binding + function hipblasZsyrkStridedBatched_64_strided_rank(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpmv_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkStridedBatched_64_strided_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - complex(c_double_complex),target :: AP - complex(c_double_complex),target :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasZtpmv_rank_0 = hipblasZtpmv_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + hipblasZsyrkStridedBatched_64_strided_rank = hipblasZsyrkStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) end function - function hipblasZtpmv_rank_1(handle,uplo,transA,diag,n,AP,x,incx) - use iso_c_binding + function hipblasZsyrkStridedBatched_64_strided_rank_devptr(handle,uplo,transA,n,k,alpha,AP, & + lda,strideA,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpmv_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkStridedBatched_64_strided_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - complex(c_double_complex),target,dimension(:) :: AP - complex(c_double_complex),target,dimension(:) :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:,:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasZtpmv_rank_1 = hipblasZtpmv_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + hipblasZsyrkStridedBatched_64_strided_rank_devptr = hipblasZsyrkStridedBatched_64_(handle, & + uplo,transA,n,k,alpha,c_loc(AP),lda,strideA,beta,c_loc(CP),ldc,strideC,batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasStpmv_64_assumed_rank(handle,uplo,transA,diag,n,AP,x,incx) - use iso_c_binding + function hipblasSsyr2k_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpmv_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2k_assumed_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha real(c_float),target,dimension(..) :: AP - real(c_float),target,dimension(..) :: x - integer(c_int64_t) :: incx - ! - hipblasStpmv_64_assumed_rank = hipblasStpmv_64_(handle,uplo,transA,diag,n,c_loc(AP), & - c_loc(x),incx) - end function - -#else - function hipblasStpmv_64_rank_0(handle,uplo,transA,diag,n,AP,x,incx) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpmv_64_rank_0 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - real(c_float),target :: AP - real(c_float),target :: x - integer(c_int64_t) :: incx + integer(c_int) :: lda + real(c_float),target,dimension(..) :: BP + integer(c_int) :: ldb + real(c_float),target :: beta + real(c_float),target,dimension(..) :: CP + integer(c_int) :: ldc ! - hipblasStpmv_64_rank_0 = hipblasStpmv_64_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + hipblasSsyr2k_assumed_rank = hipblasSsyr2k_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function - function hipblasStpmv_64_rank_1(handle,uplo,transA,diag,n,AP,x,incx) - use iso_c_binding + function hipblasSsyr2k_assumed_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP, & + ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpmv_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2k_assumed_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - real(c_float),target,dimension(:) :: AP - real(c_float),target,dimension(:) :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(..) :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + real(c_float),target,dimension(..) :: CP + integer(c_int) :: ldc ! - hipblasStpmv_64_rank_1 = hipblasStpmv_64_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + hipblasSsyr2k_assumed_rank_devptr = hipblasSsyr2k_(handle,uplo,transA,n,k,alpha,c_loc(AP), & + lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDtpmv_64_assumed_rank(handle,uplo,transA,diag,n,AP,x,incx) - use iso_c_binding +#else + function hipblasSsyr2k_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpmv_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2k_rank_0 type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - real(c_double),target,dimension(..) :: AP - real(c_double),target,dimension(..) :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int) :: lda + real(c_float),target :: BP + integer(c_int) :: ldb + real(c_float),target :: beta + real(c_float),target :: CP + integer(c_int) :: ldc ! - hipblasDtpmv_64_assumed_rank = hipblasDtpmv_64_(handle,uplo,transA,diag,n,c_loc(AP), & - c_loc(x),incx) + hipblasSsyr2k_rank_0 = hipblasSsyr2k_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function -#else - function hipblasDtpmv_64_rank_0(handle,uplo,transA,diag,n,AP,x,incx) - use iso_c_binding + function hipblasSsyr2k_rank_0_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpmv_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2k_rank_0_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - real(c_double),target :: AP - real(c_double),target :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_float),target :: AP + integer(c_int) :: lda + real(c_float),target :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + real(c_float),target :: CP + integer(c_int) :: ldc ! - hipblasDtpmv_64_rank_0 = hipblasDtpmv_64_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + hipblasSsyr2k_rank_0_devptr = hipblasSsyr2k_(handle,uplo,transA,n,k,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) end function - function hipblasDtpmv_64_rank_1(handle,uplo,transA,diag,n,AP,x,incx) - use iso_c_binding + function hipblasSsyr2k_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpmv_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2k_rank_1 type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - real(c_double),target,dimension(:) :: AP - real(c_double),target,dimension(:) :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(:) :: BP + integer(c_int) :: ldb + real(c_float),target :: beta + real(c_float),target,dimension(:) :: CP + integer(c_int) :: ldc ! - hipblasDtpmv_64_rank_1 = hipblasDtpmv_64_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + hipblasSsyr2k_rank_1 = hipblasSsyr2k_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCtpmv_64_assumed_rank(handle,uplo,transA,diag,n,AP,x,incx) - use iso_c_binding + function hipblasSsyr2k_rank_1_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpmv_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2k_rank_1_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - complex(c_float_complex),target,dimension(..) :: AP - complex(c_float_complex),target,dimension(..) :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(:) :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + real(c_float),target,dimension(:) :: CP + integer(c_int) :: ldc ! - hipblasCtpmv_64_assumed_rank = hipblasCtpmv_64_(handle,uplo,transA,diag,n,c_loc(AP), & - c_loc(x),incx) + hipblasSsyr2k_rank_1_devptr = hipblasSsyr2k_(handle,uplo,transA,n,k,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) end function -#else - function hipblasCtpmv_64_rank_0(handle,uplo,transA,diag,n,AP,x,incx) - use iso_c_binding + function hipblasSsyr2k_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpmv_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2k_full_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - complex(c_float_complex),target :: AP - complex(c_float_complex),target :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(:,:) :: BP + integer(c_int) :: ldb + real(c_float),target :: beta + real(c_float),target,dimension(:,:) :: CP + integer(c_int) :: ldc ! - hipblasCtpmv_64_rank_0 = hipblasCtpmv_64_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + hipblasSsyr2k_full_rank = hipblasSsyr2k_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function - function hipblasCtpmv_64_rank_1(handle,uplo,transA,diag,n,AP,x,incx) - use iso_c_binding + function hipblasSsyr2k_full_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpmv_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2k_full_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - complex(c_float_complex),target,dimension(:) :: AP - complex(c_float_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(:,:) :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + real(c_float),target,dimension(:,:) :: CP + integer(c_int) :: ldc ! - hipblasCtpmv_64_rank_1 = hipblasCtpmv_64_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + hipblasSsyr2k_full_rank_devptr = hipblasSsyr2k_(handle,uplo,transA,n,k,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasZtpmv_64_assumed_rank(handle,uplo,transA,diag,n,AP,x,incx) - use iso_c_binding + function hipblasDsyr2k_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpmv_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2k_assumed_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - complex(c_double_complex),target,dimension(..) :: AP - complex(c_double_complex),target,dimension(..) :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(..) :: BP + integer(c_int) :: ldb + real(c_double),target :: beta + real(c_double),target,dimension(..) :: CP + integer(c_int) :: ldc ! - hipblasZtpmv_64_assumed_rank = hipblasZtpmv_64_(handle,uplo,transA,diag,n,c_loc(AP), & - c_loc(x),incx) + hipblasDsyr2k_assumed_rank = hipblasDsyr2k_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function -#else - function hipblasZtpmv_64_rank_0(handle,uplo,transA,diag,n,AP,x,incx) - use iso_c_binding + function hipblasDsyr2k_assumed_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP, & + ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpmv_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2k_assumed_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - complex(c_double_complex),target :: AP - complex(c_double_complex),target :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(..) :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + real(c_double),target,dimension(..) :: CP + integer(c_int) :: ldc ! - hipblasZtpmv_64_rank_0 = hipblasZtpmv_64_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + hipblasDsyr2k_assumed_rank_devptr = hipblasDsyr2k_(handle,uplo,transA,n,k,alpha,c_loc(AP), & + lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) end function - function hipblasZtpmv_64_rank_1(handle,uplo,transA,diag,n,AP,x,incx) - use iso_c_binding +#else + function hipblasDsyr2k_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpmv_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2k_rank_0 type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - complex(c_double_complex),target,dimension(:) :: AP - complex(c_double_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int) :: lda + real(c_double),target :: BP + integer(c_int) :: ldb + real(c_double),target :: beta + real(c_double),target :: CP + integer(c_int) :: ldc ! - hipblasZtpmv_64_rank_1 = hipblasZtpmv_64_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + hipblasDsyr2k_rank_0 = hipblasDsyr2k_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasStpmvStridedBatched_assumed_rank(handle,uplo,transA,diag,n,AP,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasDsyr2k_rank_0_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpmvStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2k_rank_0_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - real(c_float),target,dimension(..) :: AP - integer(c_int64_t) :: strideA - real(c_float),target,dimension(..) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_double),target :: AP + integer(c_int) :: lda + real(c_double),target :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + real(c_double),target :: CP + integer(c_int) :: ldc ! - hipblasStpmvStridedBatched_assumed_rank = hipblasStpmvStridedBatched_(handle,uplo,transA, & - diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + hipblasDsyr2k_rank_0_devptr = hipblasDsyr2k_(handle,uplo,transA,n,k,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) end function -#else - function hipblasStpmvStridedBatched_rank_0(handle,uplo,transA,diag,n,AP,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasDsyr2k_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpmvStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2k_rank_1 type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - real(c_float),target :: AP - integer(c_int64_t) :: strideA - real(c_float),target :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(:) :: BP + integer(c_int) :: ldb + real(c_double),target :: beta + real(c_double),target,dimension(:) :: CP + integer(c_int) :: ldc ! - hipblasStpmvStridedBatched_rank_0 = hipblasStpmvStridedBatched_(handle,uplo,transA,diag,n, & - c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + hipblasDsyr2k_rank_1 = hipblasDsyr2k_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function - function hipblasStpmvStridedBatched_rank_1(handle,uplo,transA,diag,n,AP,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasDsyr2k_rank_1_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpmvStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2k_rank_1_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - real(c_float),target,dimension(:) :: AP - integer(c_int64_t) :: strideA - real(c_float),target,dimension(:) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(:) :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + real(c_double),target,dimension(:) :: CP + integer(c_int) :: ldc ! - hipblasStpmvStridedBatched_rank_1 = hipblasStpmvStridedBatched_(handle,uplo,transA,diag,n, & - c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + hipblasDsyr2k_rank_1_devptr = hipblasDsyr2k_(handle,uplo,transA,n,k,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDtpmvStridedBatched_assumed_rank(handle,uplo,transA,diag,n,AP,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasDsyr2k_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpmvStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2k_full_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - real(c_double),target,dimension(..) :: AP - integer(c_int64_t) :: strideA - real(c_double),target,dimension(..) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(:,:) :: BP + integer(c_int) :: ldb + real(c_double),target :: beta + real(c_double),target,dimension(:,:) :: CP + integer(c_int) :: ldc ! - hipblasDtpmvStridedBatched_assumed_rank = hipblasDtpmvStridedBatched_(handle,uplo,transA, & - diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + hipblasDsyr2k_full_rank = hipblasDsyr2k_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function -#else - function hipblasDtpmvStridedBatched_rank_0(handle,uplo,transA,diag,n,AP,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasDsyr2k_full_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpmvStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2k_full_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - real(c_double),target :: AP - integer(c_int64_t) :: strideA - real(c_double),target :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(:,:) :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + real(c_double),target,dimension(:,:) :: CP + integer(c_int) :: ldc ! - hipblasDtpmvStridedBatched_rank_0 = hipblasDtpmvStridedBatched_(handle,uplo,transA,diag,n, & - c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + hipblasDsyr2k_full_rank_devptr = hipblasDsyr2k_(handle,uplo,transA,n,k,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) end function - function hipblasDtpmvStridedBatched_rank_1(handle,uplo,transA,diag,n,AP,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCsyr2k_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpmvStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2k_assumed_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - real(c_double),target,dimension(:) :: AP - integer(c_int64_t) :: strideA - real(c_double),target,dimension(:) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int) :: ldc ! - hipblasDtpmvStridedBatched_rank_1 = hipblasDtpmvStridedBatched_(handle,uplo,transA,diag,n, & - c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + hipblasCsyr2k_assumed_rank = hipblasCsyr2k_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCtpmvStridedBatched_assumed_rank(handle,uplo,transA,diag,n,AP,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasCsyr2k_assumed_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP, & + ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpmvStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2k_assumed_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha complex(c_float_complex),target,dimension(..) :: AP - integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(..) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount + integer(c_int) :: lda + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int) :: ldc ! - hipblasCtpmvStridedBatched_assumed_rank = hipblasCtpmvStridedBatched_(handle,uplo,transA, & - diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + hipblasCsyr2k_assumed_rank_devptr = hipblasCsyr2k_(handle,uplo,transA,n,k,alpha,c_loc(AP), & + lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) end function #else - function hipblasCtpmvStridedBatched_rank_0(handle,uplo,transA,diag,n,AP,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasCsyr2k_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpmvStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2k_rank_0 type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha complex(c_float_complex),target :: AP - integer(c_int64_t) :: strideA - complex(c_float_complex),target :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount + integer(c_int) :: lda + complex(c_float_complex),target :: BP + integer(c_int) :: ldb + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: CP + integer(c_int) :: ldc ! - hipblasCtpmvStridedBatched_rank_0 = hipblasCtpmvStridedBatched_(handle,uplo,transA,diag,n, & - c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + hipblasCsyr2k_rank_0 = hipblasCsyr2k_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function - function hipblasCtpmvStridedBatched_rank_1(handle,uplo,transA,diag,n,AP,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasCsyr2k_rank_0_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpmvStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2k_rank_0_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - complex(c_float_complex),target,dimension(:) :: AP - integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + complex(c_float_complex),target :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + complex(c_float_complex),target :: CP + integer(c_int) :: ldc ! - hipblasCtpmvStridedBatched_rank_1 = hipblasCtpmvStridedBatched_(handle,uplo,transA,diag,n, & - c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + hipblasCsyr2k_rank_0_devptr = hipblasCsyr2k_(handle,uplo,transA,n,k,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZtpmvStridedBatched_assumed_rank(handle,uplo,transA,diag,n,AP,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasCsyr2k_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpmvStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2k_rank_1 type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - complex(c_double_complex),target,dimension(..) :: AP - integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(..) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int) :: ldc ! - hipblasZtpmvStridedBatched_assumed_rank = hipblasZtpmvStridedBatched_(handle,uplo,transA, & - diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + hipblasCsyr2k_rank_1 = hipblasCsyr2k_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function -#else - function hipblasZtpmvStridedBatched_rank_0(handle,uplo,transA,diag,n,AP,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasCsyr2k_rank_1_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpmvStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2k_rank_1_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - complex(c_double_complex),target :: AP - integer(c_int64_t) :: strideA - complex(c_double_complex),target :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int) :: ldc ! - hipblasZtpmvStridedBatched_rank_0 = hipblasZtpmvStridedBatched_(handle,uplo,transA,diag,n, & - c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + hipblasCsyr2k_rank_1_devptr = hipblasCsyr2k_(handle,uplo,transA,n,k,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) end function - function hipblasZtpmvStridedBatched_rank_1(handle,uplo,transA,diag,n,AP,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasCsyr2k_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpmvStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2k_full_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - complex(c_double_complex),target,dimension(:) :: AP - integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc ! - hipblasZtpmvStridedBatched_rank_1 = hipblasZtpmvStridedBatched_(handle,uplo,transA,diag,n, & - c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + hipblasCsyr2k_full_rank = hipblasCsyr2k_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasStpmvStridedBatched_64_assumed_rank(handle,uplo,transA,diag,n,AP,strideA,x, & - incx,stridex,batchCount) - use iso_c_binding + function hipblasCsyr2k_full_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpmvStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2k_full_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - real(c_float),target,dimension(..) :: AP - integer(c_int64_t) :: strideA - real(c_float),target,dimension(..) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc ! - hipblasStpmvStridedBatched_64_assumed_rank = hipblasStpmvStridedBatched_64_(handle,uplo, & - transA,diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + hipblasCsyr2k_full_rank_devptr = hipblasCsyr2k_(handle,uplo,transA,n,k,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) end function -#else - function hipblasStpmvStridedBatched_64_rank_0(handle,uplo,transA,diag,n,AP,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZsyr2k_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpmvStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2k_assumed_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - real(c_float),target :: AP - integer(c_int64_t) :: strideA - real(c_float),target :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int) :: ldc ! - hipblasStpmvStridedBatched_64_rank_0 = hipblasStpmvStridedBatched_64_(handle,uplo,transA, & - diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + hipblasZsyr2k_assumed_rank = hipblasZsyr2k_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function - function hipblasStpmvStridedBatched_64_rank_1(handle,uplo,transA,diag,n,AP,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasZsyr2k_assumed_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP, & + ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpmvStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2k_assumed_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - real(c_float),target,dimension(:) :: AP - integer(c_int64_t) :: strideA - real(c_float),target,dimension(:) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int) :: ldc ! - hipblasStpmvStridedBatched_64_rank_1 = hipblasStpmvStridedBatched_64_(handle,uplo,transA, & - diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + hipblasZsyr2k_assumed_rank_devptr = hipblasZsyr2k_(handle,uplo,transA,n,k,alpha,c_loc(AP), & + lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDtpmvStridedBatched_64_assumed_rank(handle,uplo,transA,diag,n,AP,strideA,x, & - incx,stridex,batchCount) - use iso_c_binding +#else + function hipblasZsyr2k_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpmvStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2k_rank_0 type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - real(c_double),target,dimension(..) :: AP - integer(c_int64_t) :: strideA - real(c_double),target,dimension(..) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int) :: lda + complex(c_double_complex),target :: BP + integer(c_int) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: CP + integer(c_int) :: ldc ! - hipblasDtpmvStridedBatched_64_assumed_rank = hipblasDtpmvStridedBatched_64_(handle,uplo, & - transA,diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + hipblasZsyr2k_rank_0 = hipblasZsyr2k_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function -#else - function hipblasDtpmvStridedBatched_64_rank_0(handle,uplo,transA,diag,n,AP,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasZsyr2k_rank_0_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpmvStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2k_rank_0_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - real(c_double),target :: AP - integer(c_int64_t) :: strideA - real(c_double),target :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target :: AP + integer(c_int) :: lda + complex(c_double_complex),target :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + complex(c_double_complex),target :: CP + integer(c_int) :: ldc ! - hipblasDtpmvStridedBatched_64_rank_0 = hipblasDtpmvStridedBatched_64_(handle,uplo,transA, & - diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + hipblasZsyr2k_rank_0_devptr = hipblasZsyr2k_(handle,uplo,transA,n,k,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) end function - function hipblasDtpmvStridedBatched_64_rank_1(handle,uplo,transA,diag,n,AP,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasZsyr2k_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpmvStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2k_rank_1 type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - real(c_double),target,dimension(:) :: AP - integer(c_int64_t) :: strideA - real(c_double),target,dimension(:) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int) :: ldc ! - hipblasDtpmvStridedBatched_64_rank_1 = hipblasDtpmvStridedBatched_64_(handle,uplo,transA, & - diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + hipblasZsyr2k_rank_1 = hipblasZsyr2k_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCtpmvStridedBatched_64_assumed_rank(handle,uplo,transA,diag,n,AP,strideA,x, & - incx,stridex,batchCount) - use iso_c_binding + function hipblasZsyr2k_rank_1_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpmvStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2k_rank_1_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - complex(c_float_complex),target,dimension(..) :: AP - integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(..) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int) :: ldc ! - hipblasCtpmvStridedBatched_64_assumed_rank = hipblasCtpmvStridedBatched_64_(handle,uplo, & - transA,diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + hipblasZsyr2k_rank_1_devptr = hipblasZsyr2k_(handle,uplo,transA,n,k,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) end function -#else - function hipblasCtpmvStridedBatched_64_rank_0(handle,uplo,transA,diag,n,AP,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasZsyr2k_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpmvStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2k_full_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - complex(c_float_complex),target :: AP - integer(c_int64_t) :: strideA - complex(c_float_complex),target :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc ! - hipblasCtpmvStridedBatched_64_rank_0 = hipblasCtpmvStridedBatched_64_(handle,uplo,transA, & - diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + hipblasZsyr2k_full_rank = hipblasZsyr2k_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function - function hipblasCtpmvStridedBatched_64_rank_1(handle,uplo,transA,diag,n,AP,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasZsyr2k_full_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpmvStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2k_full_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - complex(c_float_complex),target,dimension(:) :: AP - integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc ! - hipblasCtpmvStridedBatched_64_rank_1 = hipblasCtpmvStridedBatched_64_(handle,uplo,transA, & - diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + hipblasZsyr2k_full_rank_devptr = hipblasZsyr2k_(handle,uplo,transA,n,k,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasZtpmvStridedBatched_64_assumed_rank(handle,uplo,transA,diag,n,AP,strideA,x, & - incx,stridex,batchCount) - use iso_c_binding + function hipblasSsyr2k_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpmvStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2k_64_assumed_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: n - complex(c_double_complex),target,dimension(..) :: AP - integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(..) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + real(c_float),target :: beta + real(c_float),target,dimension(..) :: CP + integer(c_int64_t) :: ldc ! - hipblasZtpmvStridedBatched_64_assumed_rank = hipblasZtpmvStridedBatched_64_(handle,uplo, & - transA,diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + hipblasSsyr2k_64_assumed_rank = hipblasSsyr2k_64_(handle,uplo,transA,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function -#else - function hipblasZtpmvStridedBatched_64_rank_0(handle,uplo,transA,diag,n,AP,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasSsyr2k_64_assumed_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta, & + CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpmvStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2k_64_assumed_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: n - complex(c_double_complex),target :: AP - integer(c_int64_t) :: strideA - complex(c_double_complex),target :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + real(c_float),target,dimension(..) :: CP + integer(c_int64_t) :: ldc ! - hipblasZtpmvStridedBatched_64_rank_0 = hipblasZtpmvStridedBatched_64_(handle,uplo,transA, & - diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + hipblasSsyr2k_64_assumed_rank_devptr = hipblasSsyr2k_64_(handle,uplo,transA,n,k,alpha, & + c_loc(AP),lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) end function - function hipblasZtpmvStridedBatched_64_rank_1(handle,uplo,transA,diag,n,AP,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding +#else + function hipblasSsyr2k_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpmvStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2k_64_rank_0 type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: n - complex(c_double_complex),target,dimension(:) :: AP - integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount - ! - hipblasZtpmvStridedBatched_64_rank_1 = hipblasZtpmvStridedBatched_64_(handle,uplo,transA, & - diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) - end function - -#endif -#ifdef USE_ASSUMED_RANK - function hipblasStpsv_assumed_rank(handle,uplo,transA,diag,n,AP,x,incx) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpsv_assumed_rank - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - real(c_float),target,dimension(..) :: AP - real(c_float),target,dimension(..) :: x - integer(c_int) :: incx + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int64_t) :: lda + real(c_float),target :: BP + integer(c_int64_t) :: ldb + real(c_float),target :: beta + real(c_float),target :: CP + integer(c_int64_t) :: ldc ! - hipblasStpsv_assumed_rank = hipblasStpsv_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + hipblasSsyr2k_64_rank_0 = hipblasSsyr2k_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function -#else - function hipblasStpsv_rank_0(handle,uplo,transA,diag,n,AP,x,incx) - use iso_c_binding + function hipblasSsyr2k_64_rank_0_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpsv_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2k_64_rank_0_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha real(c_float),target :: AP - real(c_float),target :: x - integer(c_int) :: incx + integer(c_int64_t) :: lda + real(c_float),target :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + real(c_float),target :: CP + integer(c_int64_t) :: ldc ! - hipblasStpsv_rank_0 = hipblasStpsv_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + hipblasSsyr2k_64_rank_0_devptr = hipblasSsyr2k_64_(handle,uplo,transA,n,k,alpha,c_loc(AP), & + lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) end function - function hipblasStpsv_rank_1(handle,uplo,transA,diag,n,AP,x,incx) - use iso_c_binding + function hipblasSsyr2k_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpsv_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2k_64_rank_1 type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha real(c_float),target,dimension(:) :: AP - real(c_float),target,dimension(:) :: x - integer(c_int) :: incx + integer(c_int64_t) :: lda + real(c_float),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + real(c_float),target :: beta + real(c_float),target,dimension(:) :: CP + integer(c_int64_t) :: ldc ! - hipblasStpsv_rank_1 = hipblasStpsv_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + hipblasSsyr2k_64_rank_1 = hipblasSsyr2k_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDtpsv_assumed_rank(handle,uplo,transA,diag,n,AP,x,incx) - use iso_c_binding + function hipblasSsyr2k_64_rank_1_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpsv_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2k_64_rank_1_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - real(c_double),target,dimension(..) :: AP - real(c_double),target,dimension(..) :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + real(c_float),target,dimension(:) :: CP + integer(c_int64_t) :: ldc ! - hipblasDtpsv_assumed_rank = hipblasDtpsv_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + hipblasSsyr2k_64_rank_1_devptr = hipblasSsyr2k_64_(handle,uplo,transA,n,k,alpha,c_loc(AP), & + lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) end function -#else - function hipblasDtpsv_rank_0(handle,uplo,transA,diag,n,AP,x,incx) - use iso_c_binding + function hipblasSsyr2k_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpsv_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2k_64_full_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - real(c_double),target :: AP - real(c_double),target :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + real(c_float),target :: beta + real(c_float),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc ! - hipblasDtpsv_rank_0 = hipblasDtpsv_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + hipblasSsyr2k_64_full_rank = hipblasSsyr2k_64_(handle,uplo,transA,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function - function hipblasDtpsv_rank_1(handle,uplo,transA,diag,n,AP,x,incx) - use iso_c_binding + function hipblasSsyr2k_64_full_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP, & + ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpsv_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2k_64_full_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - real(c_double),target,dimension(:) :: AP - real(c_double),target,dimension(:) :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + real(c_float),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc ! - hipblasDtpsv_rank_1 = hipblasDtpsv_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + hipblasSsyr2k_64_full_rank_devptr = hipblasSsyr2k_64_(handle,uplo,transA,n,k,alpha, & + c_loc(AP),lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCtpsv_assumed_rank(handle,uplo,transA,diag,n,AP,x,incx) - use iso_c_binding + function hipblasDsyr2k_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpsv_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2k_64_assumed_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - complex(c_float_complex),target,dimension(..) :: AP - complex(c_float_complex),target,dimension(..) :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + real(c_double),target :: beta + real(c_double),target,dimension(..) :: CP + integer(c_int64_t) :: ldc ! - hipblasCtpsv_assumed_rank = hipblasCtpsv_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + hipblasDsyr2k_64_assumed_rank = hipblasDsyr2k_64_(handle,uplo,transA,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function -#else - function hipblasCtpsv_rank_0(handle,uplo,transA,diag,n,AP,x,incx) - use iso_c_binding + function hipblasDsyr2k_64_assumed_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta, & + CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpsv_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2k_64_assumed_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - complex(c_float_complex),target :: AP - complex(c_float_complex),target :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + real(c_double),target,dimension(..) :: CP + integer(c_int64_t) :: ldc ! - hipblasCtpsv_rank_0 = hipblasCtpsv_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + hipblasDsyr2k_64_assumed_rank_devptr = hipblasDsyr2k_64_(handle,uplo,transA,n,k,alpha, & + c_loc(AP),lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) end function - function hipblasCtpsv_rank_1(handle,uplo,transA,diag,n,AP,x,incx) - use iso_c_binding +#else + function hipblasDsyr2k_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpsv_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2k_64_rank_0 type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - complex(c_float_complex),target,dimension(:) :: AP - complex(c_float_complex),target,dimension(:) :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int64_t) :: lda + real(c_double),target :: BP + integer(c_int64_t) :: ldb + real(c_double),target :: beta + real(c_double),target :: CP + integer(c_int64_t) :: ldc ! - hipblasCtpsv_rank_1 = hipblasCtpsv_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + hipblasDsyr2k_64_rank_0 = hipblasDsyr2k_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZtpsv_assumed_rank(handle,uplo,transA,diag,n,AP,x,incx) - use iso_c_binding + function hipblasDsyr2k_64_rank_0_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpsv_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2k_64_rank_0_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - complex(c_double_complex),target,dimension(..) :: AP - complex(c_double_complex),target,dimension(..) :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_double),target :: AP + integer(c_int64_t) :: lda + real(c_double),target :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + real(c_double),target :: CP + integer(c_int64_t) :: ldc ! - hipblasZtpsv_assumed_rank = hipblasZtpsv_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + hipblasDsyr2k_64_rank_0_devptr = hipblasDsyr2k_64_(handle,uplo,transA,n,k,alpha,c_loc(AP), & + lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) end function -#else - function hipblasZtpsv_rank_0(handle,uplo,transA,diag,n,AP,x,incx) - use iso_c_binding + function hipblasDsyr2k_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpsv_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2k_64_rank_1 type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - complex(c_double_complex),target :: AP - complex(c_double_complex),target :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + real(c_double),target :: beta + real(c_double),target,dimension(:) :: CP + integer(c_int64_t) :: ldc ! - hipblasZtpsv_rank_0 = hipblasZtpsv_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + hipblasDsyr2k_64_rank_1 = hipblasDsyr2k_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function - function hipblasZtpsv_rank_1(handle,uplo,transA,diag,n,AP,x,incx) - use iso_c_binding + function hipblasDsyr2k_64_rank_1_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpsv_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2k_64_rank_1_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - complex(c_double_complex),target,dimension(:) :: AP - complex(c_double_complex),target,dimension(:) :: x - integer(c_int) :: incx + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + real(c_double),target,dimension(:) :: CP + integer(c_int64_t) :: ldc ! - hipblasZtpsv_rank_1 = hipblasZtpsv_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + hipblasDsyr2k_64_rank_1_devptr = hipblasDsyr2k_64_(handle,uplo,transA,n,k,alpha,c_loc(AP), & + lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasStpsv_64_assumed_rank(handle,uplo,transA,diag,n,AP,x,incx) - use iso_c_binding + function hipblasDsyr2k_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpsv_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2k_64_full_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: n - real(c_float),target,dimension(..) :: AP - real(c_float),target,dimension(..) :: x - integer(c_int64_t) :: incx + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + real(c_double),target :: beta + real(c_double),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc ! - hipblasStpsv_64_assumed_rank = hipblasStpsv_64_(handle,uplo,transA,diag,n,c_loc(AP), & - c_loc(x),incx) + hipblasDsyr2k_64_full_rank = hipblasDsyr2k_64_(handle,uplo,transA,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function -#else - function hipblasStpsv_64_rank_0(handle,uplo,transA,diag,n,AP,x,incx) - use iso_c_binding + function hipblasDsyr2k_64_full_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP, & + ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpsv_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2k_64_full_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: n - real(c_float),target :: AP - real(c_float),target :: x - integer(c_int64_t) :: incx + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + real(c_double),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc ! - hipblasStpsv_64_rank_0 = hipblasStpsv_64_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + hipblasDsyr2k_64_full_rank_devptr = hipblasDsyr2k_64_(handle,uplo,transA,n,k,alpha, & + c_loc(AP),lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) end function - function hipblasStpsv_64_rank_1(handle,uplo,transA,diag,n,AP,x,incx) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCsyr2k_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpsv_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2k_64_assumed_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: n - real(c_float),target,dimension(:) :: AP - real(c_float),target,dimension(:) :: x - integer(c_int64_t) :: incx + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc ! - hipblasStpsv_64_rank_1 = hipblasStpsv_64_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + hipblasCsyr2k_64_assumed_rank = hipblasCsyr2k_64_(handle,uplo,transA,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDtpsv_64_assumed_rank(handle,uplo,transA,diag,n,AP,x,incx) - use iso_c_binding + function hipblasCsyr2k_64_assumed_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta, & + CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpsv_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2k_64_assumed_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: n - real(c_double),target,dimension(..) :: AP - real(c_double),target,dimension(..) :: x - integer(c_int64_t) :: incx + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc ! - hipblasDtpsv_64_assumed_rank = hipblasDtpsv_64_(handle,uplo,transA,diag,n,c_loc(AP), & - c_loc(x),incx) + hipblasCsyr2k_64_assumed_rank_devptr = hipblasCsyr2k_64_(handle,uplo,transA,n,k,alpha, & + c_loc(AP),lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) end function #else - function hipblasDtpsv_64_rank_0(handle,uplo,transA,diag,n,AP,x,incx) - use iso_c_binding + function hipblasCsyr2k_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpsv_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2k_64_rank_0 type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: n - real(c_double),target :: AP - real(c_double),target :: x - integer(c_int64_t) :: incx + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target :: BP + integer(c_int64_t) :: ldb + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: CP + integer(c_int64_t) :: ldc ! - hipblasDtpsv_64_rank_0 = hipblasDtpsv_64_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + hipblasCsyr2k_64_rank_0 = hipblasCsyr2k_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function - function hipblasDtpsv_64_rank_1(handle,uplo,transA,diag,n,AP,x,incx) - use iso_c_binding + function hipblasCsyr2k_64_rank_0_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpsv_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2k_64_rank_0_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: n - real(c_double),target,dimension(:) :: AP - real(c_double),target,dimension(:) :: x - integer(c_int64_t) :: incx + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + complex(c_float_complex),target :: CP + integer(c_int64_t) :: ldc ! - hipblasDtpsv_64_rank_1 = hipblasDtpsv_64_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + hipblasCsyr2k_64_rank_0_devptr = hipblasCsyr2k_64_(handle,uplo,transA,n,k,alpha,c_loc(AP), & + lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCtpsv_64_assumed_rank(handle,uplo,transA,diag,n,AP,x,incx) - use iso_c_binding + function hipblasCsyr2k_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpsv_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2k_64_rank_1 type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: n - complex(c_float_complex),target,dimension(..) :: AP - complex(c_float_complex),target,dimension(..) :: x - integer(c_int64_t) :: incx + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc ! - hipblasCtpsv_64_assumed_rank = hipblasCtpsv_64_(handle,uplo,transA,diag,n,c_loc(AP), & - c_loc(x),incx) + hipblasCsyr2k_64_rank_1 = hipblasCsyr2k_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function -#else - function hipblasCtpsv_64_rank_0(handle,uplo,transA,diag,n,AP,x,incx) - use iso_c_binding + function hipblasCsyr2k_64_rank_1_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpsv_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2k_64_rank_1_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: n - complex(c_float_complex),target :: AP - complex(c_float_complex),target :: x - integer(c_int64_t) :: incx + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc ! - hipblasCtpsv_64_rank_0 = hipblasCtpsv_64_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + hipblasCsyr2k_64_rank_1_devptr = hipblasCsyr2k_64_(handle,uplo,transA,n,k,alpha,c_loc(AP), & + lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) end function - function hipblasCtpsv_64_rank_1(handle,uplo,transA,diag,n,AP,x,incx) - use iso_c_binding + function hipblasCsyr2k_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpsv_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2k_64_full_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: n - complex(c_float_complex),target,dimension(:) :: AP - complex(c_float_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc ! - hipblasCtpsv_64_rank_1 = hipblasCtpsv_64_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + hipblasCsyr2k_64_full_rank = hipblasCsyr2k_64_(handle,uplo,transA,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZtpsv_64_assumed_rank(handle,uplo,transA,diag,n,AP,x,incx) - use iso_c_binding + function hipblasCsyr2k_64_full_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP, & + ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpsv_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2k_64_full_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: n - complex(c_double_complex),target,dimension(..) :: AP - complex(c_double_complex),target,dimension(..) :: x - integer(c_int64_t) :: incx + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc ! - hipblasZtpsv_64_assumed_rank = hipblasZtpsv_64_(handle,uplo,transA,diag,n,c_loc(AP), & - c_loc(x),incx) + hipblasCsyr2k_64_full_rank_devptr = hipblasCsyr2k_64_(handle,uplo,transA,n,k,alpha, & + c_loc(AP),lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) end function -#else - function hipblasZtpsv_64_rank_0(handle,uplo,transA,diag,n,AP,x,incx) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZsyr2k_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpsv_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2k_64_assumed_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: n - complex(c_double_complex),target :: AP - complex(c_double_complex),target :: x - integer(c_int64_t) :: incx + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc ! - hipblasZtpsv_64_rank_0 = hipblasZtpsv_64_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + hipblasZsyr2k_64_assumed_rank = hipblasZsyr2k_64_(handle,uplo,transA,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function - function hipblasZtpsv_64_rank_1(handle,uplo,transA,diag,n,AP,x,incx) - use iso_c_binding + function hipblasZsyr2k_64_assumed_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta, & + CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpsv_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2k_64_assumed_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: n - complex(c_double_complex),target,dimension(:) :: AP - complex(c_double_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc ! - hipblasZtpsv_64_rank_1 = hipblasZtpsv_64_(handle,uplo,transA,diag,n,c_loc(AP),c_loc(x),incx) + hipblasZsyr2k_64_assumed_rank_devptr = hipblasZsyr2k_64_(handle,uplo,transA,n,k,alpha, & + c_loc(AP),lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasStpsvStridedBatched_assumed_rank(handle,uplo,transA,diag,n,AP,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding +#else + function hipblasZsyr2k_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpsvStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2k_64_rank_0 type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - real(c_float),target,dimension(..) :: AP - integer(c_int64_t) :: strideA - real(c_float),target,dimension(..) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target :: BP + integer(c_int64_t) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: CP + integer(c_int64_t) :: ldc ! - hipblasStpsvStridedBatched_assumed_rank = hipblasStpsvStridedBatched_(handle,uplo,transA, & - diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + hipblasZsyr2k_64_rank_0 = hipblasZsyr2k_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function -#else - function hipblasStpsvStridedBatched_rank_0(handle,uplo,transA,diag,n,AP,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasZsyr2k_64_rank_0_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpsvStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2k_64_rank_0_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - real(c_float),target :: AP - integer(c_int64_t) :: strideA - real(c_float),target :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + complex(c_double_complex),target :: CP + integer(c_int64_t) :: ldc ! - hipblasStpsvStridedBatched_rank_0 = hipblasStpsvStridedBatched_(handle,uplo,transA,diag,n, & - c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + hipblasZsyr2k_64_rank_0_devptr = hipblasZsyr2k_64_(handle,uplo,transA,n,k,alpha,c_loc(AP), & + lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) end function - function hipblasStpsvStridedBatched_rank_1(handle,uplo,transA,diag,n,AP,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasZsyr2k_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpsvStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2k_64_rank_1 type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - real(c_float),target,dimension(:) :: AP - integer(c_int64_t) :: strideA - real(c_float),target,dimension(:) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc ! - hipblasStpsvStridedBatched_rank_1 = hipblasStpsvStridedBatched_(handle,uplo,transA,diag,n, & - c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + hipblasZsyr2k_64_rank_1 = hipblasZsyr2k_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDtpsvStridedBatched_assumed_rank(handle,uplo,transA,diag,n,AP,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasZsyr2k_64_rank_1_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpsvStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2k_64_rank_1_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - real(c_double),target,dimension(..) :: AP - integer(c_int64_t) :: strideA - real(c_double),target,dimension(..) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc ! - hipblasDtpsvStridedBatched_assumed_rank = hipblasDtpsvStridedBatched_(handle,uplo,transA, & - diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + hipblasZsyr2k_64_rank_1_devptr = hipblasZsyr2k_64_(handle,uplo,transA,n,k,alpha,c_loc(AP), & + lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) end function -#else - function hipblasDtpsvStridedBatched_rank_0(handle,uplo,transA,diag,n,AP,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasZsyr2k_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpsvStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2k_64_full_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - real(c_double),target :: AP - integer(c_int64_t) :: strideA - real(c_double),target :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc ! - hipblasDtpsvStridedBatched_rank_0 = hipblasDtpsvStridedBatched_(handle,uplo,transA,diag,n, & - c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + hipblasZsyr2k_64_full_rank = hipblasZsyr2k_64_(handle,uplo,transA,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function - function hipblasDtpsvStridedBatched_rank_1(handle,uplo,transA,diag,n,AP,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasZsyr2k_64_full_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP, & + ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpsvStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2k_64_full_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - real(c_double),target,dimension(:) :: AP - integer(c_int64_t) :: strideA - real(c_double),target,dimension(:) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc ! - hipblasDtpsvStridedBatched_rank_1 = hipblasDtpsvStridedBatched_(handle,uplo,transA,diag,n, & - c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + hipblasZsyr2k_64_full_rank_devptr = hipblasZsyr2k_64_(handle,uplo,transA,n,k,alpha, & + c_loc(AP),lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCtpsvStridedBatched_assumed_rank(handle,uplo,transA,diag,n,AP,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasSsyr2kStridedBatched_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpsvStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2kStridedBatched_assumed_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(..) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex + real(c_float),target,dimension(..) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + real(c_float),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC integer(c_int) :: batchCount ! - hipblasCtpsvStridedBatched_assumed_rank = hipblasCtpsvStridedBatched_(handle,uplo,transA, & - diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + hipblasSsyr2kStridedBatched_assumed_rank = hipblasSsyr2kStridedBatched_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) end function -#else - function hipblasCtpsvStridedBatched_rank_0(handle,uplo,transA,diag,n,AP,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasSsyr2kStridedBatched_assumed_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpsvStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2kStridedBatched_assumed_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - complex(c_float_complex),target :: AP + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex + real(c_float),target,dimension(..) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + real(c_float),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC integer(c_int) :: batchCount ! - hipblasCtpsvStridedBatched_rank_0 = hipblasCtpsvStridedBatched_(handle,uplo,transA,diag,n, & - c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + hipblasSsyr2kStridedBatched_assumed_rank_devptr = hipblasSsyr2kStridedBatched_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) end function - function hipblasCtpsvStridedBatched_rank_1(handle,uplo,transA,diag,n,AP,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding +#else + function hipblasSsyr2kStridedBatched_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpsvStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2kStridedBatched_rank_0 type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex + real(c_float),target :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + real(c_float),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC integer(c_int) :: batchCount ! - hipblasCtpsvStridedBatched_rank_1 = hipblasCtpsvStridedBatched_(handle,uplo,transA,diag,n, & - c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + hipblasSsyr2kStridedBatched_rank_0 = hipblasSsyr2kStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZtpsvStridedBatched_assumed_rank(handle,uplo,transA,diag,n,AP,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasSsyr2kStridedBatched_rank_0_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpsvStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2kStridedBatched_rank_0_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_float),target :: AP + integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(..) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex + real(c_float),target :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + real(c_float),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC integer(c_int) :: batchCount ! - hipblasZtpsvStridedBatched_assumed_rank = hipblasZtpsvStridedBatched_(handle,uplo,transA, & - diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + hipblasSsyr2kStridedBatched_rank_0_devptr = hipblasSsyr2kStridedBatched_(handle,uplo,transA, & + n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC,batchCount) end function -#else - function hipblasZtpsvStridedBatched_rank_0(handle,uplo,transA,diag,n,AP,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasSsyr2kStridedBatched_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpsvStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2kStridedBatched_rank_1 type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - complex(c_double_complex),target :: AP + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex + real(c_float),target,dimension(:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + real(c_float),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC integer(c_int) :: batchCount ! - hipblasZtpsvStridedBatched_rank_0 = hipblasZtpsvStridedBatched_(handle,uplo,transA,diag,n, & - c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + hipblasSsyr2kStridedBatched_rank_1 = hipblasSsyr2kStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) end function - function hipblasZtpsvStridedBatched_rank_1(handle,uplo,transA,diag,n,AP,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasSsyr2kStridedBatched_rank_1_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpsvStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2kStridedBatched_rank_1_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex + real(c_float),target,dimension(:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + real(c_float),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC integer(c_int) :: batchCount ! - hipblasZtpsvStridedBatched_rank_1 = hipblasZtpsvStridedBatched_(handle,uplo,transA,diag,n, & - c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + hipblasSsyr2kStridedBatched_rank_1_devptr = hipblasSsyr2kStridedBatched_(handle,uplo,transA, & + n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasStpsvStridedBatched_64_assumed_rank(handle,uplo,transA,diag,n,AP,strideA,x, & - incx,stridex,batchCount) - use iso_c_binding + function hipblasSsyr2kStridedBatched_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpsvStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2kStridedBatched_full_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - real(c_float),target,dimension(..) :: AP + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda integer(c_int64_t) :: strideA - real(c_float),target,dimension(..) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount + real(c_float),target,dimension(:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + real(c_float),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasStpsvStridedBatched_64_assumed_rank = hipblasStpsvStridedBatched_64_(handle,uplo, & - transA,diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + hipblasSsyr2kStridedBatched_full_rank = hipblasSsyr2kStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) end function -#else - function hipblasStpsvStridedBatched_64_rank_0(handle,uplo,transA,diag,n,AP,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasSsyr2kStridedBatched_full_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpsvStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2kStridedBatched_full_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - real(c_float),target :: AP + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda integer(c_int64_t) :: strideA - real(c_float),target :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount + real(c_float),target,dimension(:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + real(c_float),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasStpsvStridedBatched_64_rank_0 = hipblasStpsvStridedBatched_64_(handle,uplo,transA, & - diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + hipblasSsyr2kStridedBatched_full_rank_devptr = hipblasSsyr2kStridedBatched_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) end function - function hipblasStpsvStridedBatched_64_rank_1(handle,uplo,transA,diag,n,AP,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasSsyr2kStridedBatched_strided_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStpsvStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2kStridedBatched_strided_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - real(c_float),target,dimension(:) :: AP + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:,:,:) :: AP + integer(c_int) :: lda integer(c_int64_t) :: strideA - real(c_float),target,dimension(:) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount + real(c_float),target,dimension(:,:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + real(c_float),target,dimension(:,:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasStpsvStridedBatched_64_rank_1 = hipblasStpsvStridedBatched_64_(handle,uplo,transA, & - diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + hipblasSsyr2kStridedBatched_strided_rank = hipblasSsyr2kStridedBatched_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDtpsvStridedBatched_64_assumed_rank(handle,uplo,transA,diag,n,AP,strideA,x, & - incx,stridex,batchCount) - use iso_c_binding + function hipblasSsyr2kStridedBatched_strided_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpsvStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2kStridedBatched_strided_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - real(c_double),target,dimension(..) :: AP + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:,:) :: AP + integer(c_int) :: lda integer(c_int64_t) :: strideA - real(c_double),target,dimension(..) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount + real(c_float),target,dimension(:,:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + real(c_float),target,dimension(:,:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasDtpsvStridedBatched_64_assumed_rank = hipblasDtpsvStridedBatched_64_(handle,uplo, & - transA,diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + hipblasSsyr2kStridedBatched_strided_rank_devptr = hipblasSsyr2kStridedBatched_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) end function -#else - function hipblasDtpsvStridedBatched_64_rank_0(handle,uplo,transA,diag,n,AP,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDsyr2kStridedBatched_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpsvStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2kStridedBatched_assumed_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - real(c_double),target :: AP + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda integer(c_int64_t) :: strideA - real(c_double),target :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount + real(c_double),target,dimension(..) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + real(c_double),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasDtpsvStridedBatched_64_rank_0 = hipblasDtpsvStridedBatched_64_(handle,uplo,transA, & - diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + hipblasDsyr2kStridedBatched_assumed_rank = hipblasDsyr2kStridedBatched_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) end function - function hipblasDtpsvStridedBatched_64_rank_1(handle,uplo,transA,diag,n,AP,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasDsyr2kStridedBatched_assumed_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtpsvStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2kStridedBatched_assumed_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - real(c_double),target,dimension(:) :: AP + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda integer(c_int64_t) :: strideA - real(c_double),target,dimension(:) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount + real(c_double),target,dimension(..) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + real(c_double),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasDtpsvStridedBatched_64_rank_1 = hipblasDtpsvStridedBatched_64_(handle,uplo,transA, & - diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + hipblasDsyr2kStridedBatched_assumed_rank_devptr = hipblasDsyr2kStridedBatched_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCtpsvStridedBatched_64_assumed_rank(handle,uplo,transA,diag,n,AP,strideA,x, & - incx,stridex,batchCount) - use iso_c_binding +#else + function hipblasDsyr2kStridedBatched_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpsvStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2kStridedBatched_rank_0 type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(..) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount + real(c_double),target :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + real(c_double),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasCtpsvStridedBatched_64_assumed_rank = hipblasCtpsvStridedBatched_64_(handle,uplo, & - transA,diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + hipblasDsyr2kStridedBatched_rank_0 = hipblasDsyr2kStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) end function -#else - function hipblasCtpsvStridedBatched_64_rank_0(handle,uplo,transA,diag,n,AP,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasDsyr2kStridedBatched_rank_0_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpsvStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2kStridedBatched_rank_0_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - complex(c_float_complex),target :: AP + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_double),target :: AP + integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount + real(c_double),target :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + real(c_double),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasCtpsvStridedBatched_64_rank_0 = hipblasCtpsvStridedBatched_64_(handle,uplo,transA, & - diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + hipblasDsyr2kStridedBatched_rank_0_devptr = hipblasDsyr2kStridedBatched_(handle,uplo,transA, & + n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC,batchCount) end function - function hipblasCtpsvStridedBatched_64_rank_1(handle,uplo,transA,diag,n,AP,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasDsyr2kStridedBatched_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtpsvStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2kStridedBatched_rank_1 type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount + real(c_double),target,dimension(:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + real(c_double),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasCtpsvStridedBatched_64_rank_1 = hipblasCtpsvStridedBatched_64_(handle,uplo,transA, & - diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + hipblasDsyr2kStridedBatched_rank_1 = hipblasDsyr2kStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZtpsvStridedBatched_64_assumed_rank(handle,uplo,transA,diag,n,AP,strideA,x, & - incx,stridex,batchCount) - use iso_c_binding + function hipblasDsyr2kStridedBatched_rank_1_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpsvStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2kStridedBatched_rank_1_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(..) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount + real(c_double),target,dimension(:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + real(c_double),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasZtpsvStridedBatched_64_assumed_rank = hipblasZtpsvStridedBatched_64_(handle,uplo, & - transA,diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + hipblasDsyr2kStridedBatched_rank_1_devptr = hipblasDsyr2kStridedBatched_(handle,uplo,transA, & + n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC,batchCount) end function -#else - function hipblasZtpsvStridedBatched_64_rank_0(handle,uplo,transA,diag,n,AP,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasDsyr2kStridedBatched_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpsvStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2kStridedBatched_full_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - complex(c_double_complex),target :: AP + integer(c_int) :: n + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount + real(c_double),target,dimension(:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + real(c_double),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasZtpsvStridedBatched_64_rank_0 = hipblasZtpsvStridedBatched_64_(handle,uplo,transA, & - diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + hipblasDsyr2kStridedBatched_full_rank = hipblasDsyr2kStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) end function - function hipblasZtpsvStridedBatched_64_rank_1(handle,uplo,transA,diag,n,AP,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasDsyr2kStridedBatched_full_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtpsvStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2kStridedBatched_full_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount + real(c_double),target,dimension(:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + real(c_double),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasZtpsvStridedBatched_64_rank_1 = hipblasZtpsvStridedBatched_64_(handle,uplo,transA, & - diag,n,c_loc(AP),strideA,c_loc(x),incx,stridex,batchCount) + hipblasDsyr2kStridedBatched_full_rank_devptr = hipblasDsyr2kStridedBatched_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasStrmv_assumed_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) - use iso_c_binding + function hipblasDsyr2kStridedBatched_strided_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmv_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2kStridedBatched_strided_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - real(c_float),target,dimension(..) :: AP + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:,:,:) :: AP integer(c_int) :: lda - real(c_float),target,dimension(..) :: x - integer(c_int) :: incx + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + real(c_double),target,dimension(:,:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasStrmv_assumed_rank = hipblasStrmv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x), & - incx) + hipblasDsyr2kStridedBatched_strided_rank = hipblasDsyr2kStridedBatched_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) end function -#else - function hipblasStrmv_rank_0(handle,uplo,transA,diag,n,AP,lda,x,incx) - use iso_c_binding + function hipblasDsyr2kStridedBatched_strided_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmv_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2kStridedBatched_strided_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - real(c_float),target :: AP + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:,:) :: AP integer(c_int) :: lda - real(c_float),target :: x - integer(c_int) :: incx + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + real(c_double),target,dimension(:,:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasStrmv_rank_0 = hipblasStrmv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x),incx) + hipblasDsyr2kStridedBatched_strided_rank_devptr = hipblasDsyr2kStridedBatched_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) end function - function hipblasStrmv_rank_1(handle,uplo,transA,diag,n,AP,lda,x,incx) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCsyr2kStridedBatched_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmv_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2kStridedBatched_assumed_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - real(c_float),target,dimension(:) :: AP + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP integer(c_int) :: lda - real(c_float),target,dimension(:) :: x - integer(c_int) :: incx + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasStrmv_rank_1 = hipblasStrmv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x),incx) + hipblasCsyr2kStridedBatched_assumed_rank = hipblasCsyr2kStridedBatched_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) end function - function hipblasStrmv_full_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) - use iso_c_binding + function hipblasCsyr2kStridedBatched_assumed_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmv_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2kStridedBatched_assumed_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: AP integer(c_int) :: lda - real(c_float),target,dimension(:) :: x - integer(c_int) :: incx + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasStrmv_full_rank = hipblasStrmv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x),incx) + hipblasCsyr2kStridedBatched_assumed_rank_devptr = hipblasCsyr2kStridedBatched_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDtrmv_assumed_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) - use iso_c_binding +#else + function hipblasCsyr2kStridedBatched_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmv_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2kStridedBatched_rank_0 type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - real(c_double),target,dimension(..) :: AP + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP integer(c_int) :: lda - real(c_double),target,dimension(..) :: x - integer(c_int) :: incx + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasDtrmv_assumed_rank = hipblasDtrmv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x), & - incx) + hipblasCsyr2kStridedBatched_rank_0 = hipblasCsyr2kStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) end function -#else - function hipblasDtrmv_rank_0(handle,uplo,transA,diag,n,AP,lda,x,incx) - use iso_c_binding + function hipblasCsyr2kStridedBatched_rank_0_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmv_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2kStridedBatched_rank_0_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - real(c_double),target :: AP + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target :: AP integer(c_int) :: lda - real(c_double),target :: x - integer(c_int) :: incx + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_float_complex),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasDtrmv_rank_0 = hipblasDtrmv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x),incx) + hipblasCsyr2kStridedBatched_rank_0_devptr = hipblasCsyr2kStridedBatched_(handle,uplo,transA, & + n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC,batchCount) end function - function hipblasDtrmv_rank_1(handle,uplo,transA,diag,n,AP,lda,x,incx) - use iso_c_binding + function hipblasCsyr2kStridedBatched_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmv_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2kStridedBatched_rank_1 type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - real(c_double),target,dimension(:) :: AP + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP integer(c_int) :: lda - real(c_double),target,dimension(:) :: x - integer(c_int) :: incx + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasDtrmv_rank_1 = hipblasDtrmv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x),incx) + hipblasCsyr2kStridedBatched_rank_1 = hipblasCsyr2kStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) end function - function hipblasDtrmv_full_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) - use iso_c_binding + function hipblasCsyr2kStridedBatched_rank_1_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmv_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2kStridedBatched_rank_1_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: AP integer(c_int) :: lda - real(c_double),target,dimension(:) :: x - integer(c_int) :: incx + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasDtrmv_full_rank = hipblasDtrmv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x),incx) + hipblasCsyr2kStridedBatched_rank_1_devptr = hipblasCsyr2kStridedBatched_(handle,uplo,transA, & + n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCtrmv_assumed_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) - use iso_c_binding + function hipblasCsyr2kStridedBatched_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmv_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2kStridedBatched_full_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP integer(c_int) :: lda - complex(c_float_complex),target,dimension(..) :: x - integer(c_int) :: incx + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasCtrmv_assumed_rank = hipblasCtrmv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x), & - incx) + hipblasCsyr2kStridedBatched_full_rank = hipblasCsyr2kStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) end function -#else - function hipblasCtrmv_rank_0(handle,uplo,transA,diag,n,AP,lda,x,incx) - use iso_c_binding + function hipblasCsyr2kStridedBatched_full_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmv_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2kStridedBatched_full_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - complex(c_float_complex),target :: AP + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP integer(c_int) :: lda - complex(c_float_complex),target :: x - integer(c_int) :: incx + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasCtrmv_rank_0 = hipblasCtrmv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x),incx) + hipblasCsyr2kStridedBatched_full_rank_devptr = hipblasCsyr2kStridedBatched_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) end function - function hipblasCtrmv_rank_1(handle,uplo,transA,diag,n,AP,lda,x,incx) - use iso_c_binding + function hipblasCsyr2kStridedBatched_strided_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmv_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2kStridedBatched_strided_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:,:) :: AP integer(c_int) :: lda - complex(c_float_complex),target,dimension(:) :: x - integer(c_int) :: incx + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:,:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasCtrmv_rank_1 = hipblasCtrmv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x),incx) + hipblasCsyr2kStridedBatched_strided_rank = hipblasCsyr2kStridedBatched_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) end function - function hipblasCtrmv_full_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) - use iso_c_binding + function hipblasCsyr2kStridedBatched_strided_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmv_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2kStridedBatched_strided_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:,:) :: AP integer(c_int) :: lda - complex(c_float_complex),target,dimension(:) :: x - integer(c_int) :: incx + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:,:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasCtrmv_full_rank = hipblasCtrmv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x),incx) + hipblasCsyr2kStridedBatched_strided_rank_devptr = hipblasCsyr2kStridedBatched_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasZtrmv_assumed_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) - use iso_c_binding + function hipblasZsyr2kStridedBatched_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmv_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2kStridedBatched_assumed_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha complex(c_double_complex),target,dimension(..) :: AP integer(c_int) :: lda - complex(c_double_complex),target,dimension(..) :: x - integer(c_int) :: incx + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasZtrmv_assumed_rank = hipblasZtrmv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x), & - incx) + hipblasZsyr2kStridedBatched_assumed_rank = hipblasZsyr2kStridedBatched_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) end function -#else - function hipblasZtrmv_rank_0(handle,uplo,transA,diag,n,AP,lda,x,incx) - use iso_c_binding + function hipblasZsyr2kStridedBatched_assumed_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmv_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2kStridedBatched_assumed_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - complex(c_double_complex),target :: AP + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: AP integer(c_int) :: lda - complex(c_double_complex),target :: x - integer(c_int) :: incx + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasZtrmv_rank_0 = hipblasZtrmv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x),incx) + hipblasZsyr2kStridedBatched_assumed_rank_devptr = hipblasZsyr2kStridedBatched_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) end function - function hipblasZtrmv_rank_1(handle,uplo,transA,diag,n,AP,lda,x,incx) - use iso_c_binding +#else + function hipblasZsyr2kStridedBatched_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmv_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2kStridedBatched_rank_0 type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP integer(c_int) :: lda - complex(c_double_complex),target,dimension(:) :: x - integer(c_int) :: incx + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasZtrmv_rank_1 = hipblasZtrmv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x),incx) + hipblasZsyr2kStridedBatched_rank_0 = hipblasZsyr2kStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) end function - function hipblasZtrmv_full_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) - use iso_c_binding + function hipblasZsyr2kStridedBatched_rank_0_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmv_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2kStridedBatched_rank_0_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target :: AP integer(c_int) :: lda - complex(c_double_complex),target,dimension(:) :: x - integer(c_int) :: incx - ! - hipblasZtrmv_full_rank = hipblasZtrmv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x),incx) - end function - -#endif -#ifdef USE_ASSUMED_RANK - function hipblasStrmv_64_assumed_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmv_64_assumed_rank - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - real(c_float),target,dimension(..) :: AP - integer(c_int64_t) :: lda - real(c_float),target,dimension(..) :: x - integer(c_int64_t) :: incx + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_double_complex),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasStrmv_64_assumed_rank = hipblasStrmv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda, & - c_loc(x),incx) + hipblasZsyr2kStridedBatched_rank_0_devptr = hipblasZsyr2kStridedBatched_(handle,uplo,transA, & + n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC,batchCount) end function -#else - function hipblasStrmv_64_rank_0(handle,uplo,transA,diag,n,AP,lda,x,incx) - use iso_c_binding + function hipblasZsyr2kStridedBatched_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmv_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2kStridedBatched_rank_1 type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - real(c_float),target :: AP - integer(c_int64_t) :: lda - real(c_float),target :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasStrmv_64_rank_0 = hipblasStrmv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x), & - incx) + hipblasZsyr2kStridedBatched_rank_1 = hipblasZsyr2kStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) end function - function hipblasStrmv_64_rank_1(handle,uplo,transA,diag,n,AP,lda,x,incx) - use iso_c_binding + function hipblasZsyr2kStridedBatched_rank_1_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmv_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2kStridedBatched_rank_1_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - real(c_float),target,dimension(:) :: AP - integer(c_int64_t) :: lda - real(c_float),target,dimension(:) :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasStrmv_64_rank_1 = hipblasStrmv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x), & - incx) + hipblasZsyr2kStridedBatched_rank_1_devptr = hipblasZsyr2kStridedBatched_(handle,uplo,transA, & + n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC,batchCount) end function - function hipblasStrmv_64_full_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) - use iso_c_binding + function hipblasZsyr2kStridedBatched_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmv_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2kStridedBatched_full_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - real(c_float),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - real(c_float),target,dimension(:) :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasStrmv_64_full_rank = hipblasStrmv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda, & - c_loc(x),incx) + hipblasZsyr2kStridedBatched_full_rank = hipblasZsyr2kStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDtrmv_64_assumed_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) - use iso_c_binding + function hipblasZsyr2kStridedBatched_full_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmv_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2kStridedBatched_full_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - real(c_double),target,dimension(..) :: AP - integer(c_int64_t) :: lda - real(c_double),target,dimension(..) :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasDtrmv_64_assumed_rank = hipblasDtrmv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda, & - c_loc(x),incx) + hipblasZsyr2kStridedBatched_full_rank_devptr = hipblasZsyr2kStridedBatched_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) end function -#else - function hipblasDtrmv_64_rank_0(handle,uplo,transA,diag,n,AP,lda,x,incx) - use iso_c_binding + function hipblasZsyr2kStridedBatched_strided_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmv_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2kStridedBatched_strided_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - real(c_double),target :: AP - integer(c_int64_t) :: lda - real(c_double),target :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasDtrmv_64_rank_0 = hipblasDtrmv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x), & - incx) + hipblasZsyr2kStridedBatched_strided_rank = hipblasZsyr2kStridedBatched_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) end function - function hipblasDtrmv_64_rank_1(handle,uplo,transA,diag,n,AP,lda,x,incx) - use iso_c_binding + function hipblasZsyr2kStridedBatched_strided_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmv_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2kStridedBatched_strided_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - real(c_double),target,dimension(:) :: AP - integer(c_int64_t) :: lda - real(c_double),target,dimension(:) :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:,:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasDtrmv_64_rank_1 = hipblasDtrmv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x), & - incx) + hipblasZsyr2kStridedBatched_strided_rank_devptr = hipblasZsyr2kStridedBatched_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) end function - function hipblasDtrmv_64_full_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSsyr2kStridedBatched_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmv_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2kStridedBatched_64_assumed_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: n - real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP integer(c_int64_t) :: lda - real(c_double),target,dimension(:) :: x - integer(c_int64_t) :: incx + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + real(c_float),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasDtrmv_64_full_rank = hipblasDtrmv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda, & - c_loc(x),incx) + hipblasSsyr2kStridedBatched_64_assumed_rank = hipblasSsyr2kStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCtrmv_64_assumed_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) - use iso_c_binding + function hipblasSsyr2kStridedBatched_64_assumed_rank_devptr(handle,uplo,transA,n,k,alpha,AP, & + lda,strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmv_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2kStridedBatched_64_assumed_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: n - complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: AP integer(c_int64_t) :: lda - complex(c_float_complex),target,dimension(..) :: x - integer(c_int64_t) :: incx + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + real(c_float),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasCtrmv_64_assumed_rank = hipblasCtrmv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda, & - c_loc(x),incx) + hipblasSsyr2kStridedBatched_64_assumed_rank_devptr = hipblasSsyr2kStridedBatched_64_(handle, & + uplo,transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc, & + strideC,batchCount) end function #else - function hipblasCtrmv_64_rank_0(handle,uplo,transA,diag,n,AP,lda,x,incx) - use iso_c_binding + function hipblasSsyr2kStridedBatched_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmv_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2kStridedBatched_64_rank_0 type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: n - complex(c_float_complex),target :: AP + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target :: AP integer(c_int64_t) :: lda - complex(c_float_complex),target :: x - integer(c_int64_t) :: incx + integer(c_int64_t) :: strideA + real(c_float),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + real(c_float),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasCtrmv_64_rank_0 = hipblasCtrmv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x), & - incx) + hipblasSsyr2kStridedBatched_64_rank_0 = hipblasSsyr2kStridedBatched_64_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) end function - function hipblasCtrmv_64_rank_1(handle,uplo,transA,diag,n,AP,lda,x,incx) - use iso_c_binding + function hipblasSsyr2kStridedBatched_64_rank_0_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmv_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2kStridedBatched_64_rank_0_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: n - complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_float),target :: AP integer(c_int64_t) :: lda - complex(c_float_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx + integer(c_int64_t) :: strideA + real(c_float),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + real(c_float),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasCtrmv_64_rank_1 = hipblasCtrmv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x), & - incx) + hipblasSsyr2kStridedBatched_64_rank_0_devptr = hipblasSsyr2kStridedBatched_64_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) end function - function hipblasCtrmv_64_full_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) - use iso_c_binding + function hipblasSsyr2kStridedBatched_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmv_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2kStridedBatched_64_rank_1 type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: n - complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP integer(c_int64_t) :: lda - complex(c_float_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + real(c_float),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasCtrmv_64_full_rank = hipblasCtrmv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda, & - c_loc(x),incx) + hipblasSsyr2kStridedBatched_64_rank_1 = hipblasSsyr2kStridedBatched_64_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZtrmv_64_assumed_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) - use iso_c_binding + function hipblasSsyr2kStridedBatched_64_rank_1_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmv_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2kStridedBatched_64_rank_1_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: n - complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: AP integer(c_int64_t) :: lda - complex(c_double_complex),target,dimension(..) :: x - integer(c_int64_t) :: incx + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + real(c_float),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasZtrmv_64_assumed_rank = hipblasZtrmv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda, & - c_loc(x),incx) + hipblasSsyr2kStridedBatched_64_rank_1_devptr = hipblasSsyr2kStridedBatched_64_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) end function -#else - function hipblasZtrmv_64_rank_0(handle,uplo,transA,diag,n,AP,lda,x,incx) - use iso_c_binding + function hipblasSsyr2kStridedBatched_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmv_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2kStridedBatched_64_full_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: n - complex(c_double_complex),target :: AP + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP integer(c_int64_t) :: lda - complex(c_double_complex),target :: x - integer(c_int64_t) :: incx + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + real(c_float),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasZtrmv_64_rank_0 = hipblasZtrmv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x), & - incx) + hipblasSsyr2kStridedBatched_64_full_rank = hipblasSsyr2kStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) end function - function hipblasZtrmv_64_rank_1(handle,uplo,transA,diag,n,AP,lda,x,incx) - use iso_c_binding + function hipblasSsyr2kStridedBatched_64_full_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmv_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2kStridedBatched_64_full_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: n - complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:) :: AP integer(c_int64_t) :: lda - complex(c_double_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + real(c_float),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasZtrmv_64_rank_1 = hipblasZtrmv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x), & - incx) + hipblasSsyr2kStridedBatched_64_full_rank_devptr = hipblasSsyr2kStridedBatched_64_(handle, & + uplo,transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc, & + strideC,batchCount) end function - function hipblasZtrmv_64_full_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) - use iso_c_binding + function hipblasSsyr2kStridedBatched_64_strided_rank(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmv_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2kStridedBatched_64_strided_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: n - complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:,:,:) :: AP integer(c_int64_t) :: lda - complex(c_double_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx - ! - hipblasZtrmv_64_full_rank = hipblasZtrmv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda, & - c_loc(x),incx) - end function - -#endif -#ifdef USE_ASSUMED_RANK - function hipblasStrmvStridedBatched_assumed_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x, & - incx,stridex,batchCount) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmvStridedBatched_assumed_rank - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - real(c_float),target,dimension(..) :: AP - integer(c_int) :: lda integer(c_int64_t) :: strideA - real(c_float),target,dimension(..) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount + real(c_float),target,dimension(:,:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + real(c_float),target,dimension(:,:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasStrmvStridedBatched_assumed_rank = hipblasStrmvStridedBatched_(handle,uplo,transA, & - diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasSsyr2kStridedBatched_64_strided_rank = hipblasSsyr2kStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) end function -#else - function hipblasStrmvStridedBatched_rank_0(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasSsyr2kStridedBatched_64_strided_rank_devptr(handle,uplo,transA,n,k,alpha,AP, & + lda,strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmvStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2kStridedBatched_64_strided_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - real(c_float),target :: AP - integer(c_int) :: lda + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - real(c_float),target :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount + real(c_float),target,dimension(:,:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + real(c_float),target,dimension(:,:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasStrmvStridedBatched_rank_0 = hipblasStrmvStridedBatched_(handle,uplo,transA,diag,n, & - c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasSsyr2kStridedBatched_64_strided_rank_devptr = hipblasSsyr2kStridedBatched_64_(handle, & + uplo,transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc, & + strideC,batchCount) end function - function hipblasStrmvStridedBatched_rank_1(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDsyr2kStridedBatched_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmvStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2kStridedBatched_64_assumed_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - real(c_float),target,dimension(:) :: AP - integer(c_int) :: lda + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - real(c_float),target,dimension(:) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount + real(c_double),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + real(c_double),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasStrmvStridedBatched_rank_1 = hipblasStrmvStridedBatched_(handle,uplo,transA,diag,n, & - c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasDsyr2kStridedBatched_64_assumed_rank = hipblasDsyr2kStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) end function - function hipblasStrmvStridedBatched_full_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasDsyr2kStridedBatched_64_assumed_rank_devptr(handle,uplo,transA,n,k,alpha,AP, & + lda,strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmvStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2kStridedBatched_64_assumed_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - real(c_float),target,dimension(:,:) :: AP - integer(c_int) :: lda + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - real(c_float),target,dimension(:) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount + real(c_double),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + real(c_double),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasStrmvStridedBatched_full_rank = hipblasStrmvStridedBatched_(handle,uplo,transA,diag, & - n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasDsyr2kStridedBatched_64_assumed_rank_devptr = hipblasDsyr2kStridedBatched_64_(handle, & + uplo,transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc, & + strideC,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDtrmvStridedBatched_assumed_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x, & - incx,stridex,batchCount) - use iso_c_binding +#else + function hipblasDsyr2kStridedBatched_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmvStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2kStridedBatched_64_rank_0 type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - real(c_double),target,dimension(..) :: AP - integer(c_int) :: lda + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - real(c_double),target,dimension(..) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount + real(c_double),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + real(c_double),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasDtrmvStridedBatched_assumed_rank = hipblasDtrmvStridedBatched_(handle,uplo,transA, & - diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasDsyr2kStridedBatched_64_rank_0 = hipblasDsyr2kStridedBatched_64_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) end function -#else - function hipblasDtrmvStridedBatched_rank_0(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasDsyr2kStridedBatched_64_rank_0_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmvStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2kStridedBatched_64_rank_0_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha real(c_double),target :: AP - integer(c_int) :: lda + integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - real(c_double),target :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount + real(c_double),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + real(c_double),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasDtrmvStridedBatched_rank_0 = hipblasDtrmvStridedBatched_(handle,uplo,transA,diag,n, & - c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasDsyr2kStridedBatched_64_rank_0_devptr = hipblasDsyr2kStridedBatched_64_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) end function - function hipblasDtrmvStridedBatched_rank_1(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasDsyr2kStridedBatched_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmvStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2kStridedBatched_64_rank_1 type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha real(c_double),target,dimension(:) :: AP - integer(c_int) :: lda + integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - real(c_double),target,dimension(:) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount + real(c_double),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + real(c_double),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasDtrmvStridedBatched_rank_1 = hipblasDtrmvStridedBatched_(handle,uplo,transA,diag,n, & - c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasDsyr2kStridedBatched_64_rank_1 = hipblasDsyr2kStridedBatched_64_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) end function - function hipblasDtrmvStridedBatched_full_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasDsyr2kStridedBatched_64_rank_1_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmvStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2kStridedBatched_64_rank_1_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - real(c_double),target,dimension(:,:) :: AP - integer(c_int) :: lda + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - real(c_double),target,dimension(:) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount + real(c_double),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + real(c_double),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasDtrmvStridedBatched_full_rank = hipblasDtrmvStridedBatched_(handle,uplo,transA,diag, & - n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasDsyr2kStridedBatched_64_rank_1_devptr = hipblasDsyr2kStridedBatched_64_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCtrmvStridedBatched_assumed_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x, & - incx,stridex,batchCount) - use iso_c_binding + function hipblasDsyr2kStridedBatched_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmvStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2kStridedBatched_64_full_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - complex(c_float_complex),target,dimension(..) :: AP - integer(c_int) :: lda + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(..) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount + real(c_double),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + real(c_double),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasCtrmvStridedBatched_assumed_rank = hipblasCtrmvStridedBatched_(handle,uplo,transA, & - diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasDsyr2kStridedBatched_64_full_rank = hipblasDsyr2kStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) end function -#else - function hipblasCtrmvStridedBatched_rank_0(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasDsyr2kStridedBatched_64_full_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmvStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2kStridedBatched_64_full_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - complex(c_float_complex),target :: AP - integer(c_int) :: lda + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount + real(c_double),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + real(c_double),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasCtrmvStridedBatched_rank_0 = hipblasCtrmvStridedBatched_(handle,uplo,transA,diag,n, & - c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasDsyr2kStridedBatched_64_full_rank_devptr = hipblasDsyr2kStridedBatched_64_(handle, & + uplo,transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc, & + strideC,batchCount) end function - function hipblasCtrmvStridedBatched_rank_1(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasDsyr2kStridedBatched_64_strided_rank(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmvStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2kStridedBatched_64_strided_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - complex(c_float_complex),target,dimension(:) :: AP - integer(c_int) :: lda + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount + real(c_double),target,dimension(:,:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: beta + real(c_double),target,dimension(:,:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasCtrmvStridedBatched_rank_1 = hipblasCtrmvStridedBatched_(handle,uplo,transA,diag,n, & - c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasDsyr2kStridedBatched_64_strided_rank = hipblasDsyr2kStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) end function - function hipblasCtrmvStridedBatched_full_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasDsyr2kStridedBatched_64_strided_rank_devptr(handle,uplo,transA,n,k,alpha,AP, & + lda,strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmvStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2kStridedBatched_64_strided_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - complex(c_float_complex),target,dimension(:,:) :: AP - integer(c_int) :: lda + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount + real(c_double),target,dimension(:,:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + real(c_double),target,dimension(:,:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasCtrmvStridedBatched_full_rank = hipblasCtrmvStridedBatched_(handle,uplo,transA,diag, & - n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasDsyr2kStridedBatched_64_strided_rank_devptr = hipblasDsyr2kStridedBatched_64_(handle, & + uplo,transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc, & + strideC,batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasZtrmvStridedBatched_assumed_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x, & - incx,stridex,batchCount) - use iso_c_binding + function hipblasCsyr2kStridedBatched_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmvStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2kStridedBatched_64_assumed_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - complex(c_double_complex),target,dimension(..) :: AP - integer(c_int) :: lda + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(..) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasZtrmvStridedBatched_assumed_rank = hipblasZtrmvStridedBatched_(handle,uplo,transA, & - diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasCsyr2kStridedBatched_64_assumed_rank = hipblasCsyr2kStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) end function -#else - function hipblasZtrmvStridedBatched_rank_0(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasCsyr2kStridedBatched_64_assumed_rank_devptr(handle,uplo,transA,n,k,alpha,AP, & + lda,strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmvStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2kStridedBatched_64_assumed_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - complex(c_double_complex),target :: AP - integer(c_int) :: lda + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasZtrmvStridedBatched_rank_0 = hipblasZtrmvStridedBatched_(handle,uplo,transA,diag,n, & - c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasCsyr2kStridedBatched_64_assumed_rank_devptr = hipblasCsyr2kStridedBatched_64_(handle, & + uplo,transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc, & + strideC,batchCount) end function - function hipblasZtrmvStridedBatched_rank_1(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding +#else + function hipblasCsyr2kStridedBatched_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmvStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2kStridedBatched_64_rank_0 type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - complex(c_double_complex),target,dimension(:) :: AP - integer(c_int) :: lda + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount + complex(c_float_complex),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasZtrmvStridedBatched_rank_1 = hipblasZtrmvStridedBatched_(handle,uplo,transA,diag,n, & - c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasCsyr2kStridedBatched_64_rank_0 = hipblasCsyr2kStridedBatched_64_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) end function - function hipblasZtrmvStridedBatched_full_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasCsyr2kStridedBatched_64_rank_0_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmvStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2kStridedBatched_64_rank_0_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - complex(c_double_complex),target,dimension(:,:) :: AP - integer(c_int) :: lda + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount + complex(c_float_complex),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_float_complex),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasZtrmvStridedBatched_full_rank = hipblasZtrmvStridedBatched_(handle,uplo,transA,diag, & - n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasCsyr2kStridedBatched_64_rank_0_devptr = hipblasCsyr2kStridedBatched_64_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasStrmvStridedBatched_64_assumed_rank(handle,uplo,transA,diag,n,AP,lda,strideA, & - x,incx,stridex,batchCount) - use iso_c_binding + function hipblasCsyr2kStridedBatched_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmvStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2kStridedBatched_64_rank_1 type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: n - real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - real(c_float),target,dimension(..) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasStrmvStridedBatched_64_assumed_rank = hipblasStrmvStridedBatched_64_(handle,uplo, & - transA,diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasCsyr2kStridedBatched_64_rank_1 = hipblasCsyr2kStridedBatched_64_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) end function -#else - function hipblasStrmvStridedBatched_64_rank_0(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasCsyr2kStridedBatched_64_rank_1_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmvStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2kStridedBatched_64_rank_1_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: n - real(c_float),target :: AP + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - real(c_float),target :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasStrmvStridedBatched_64_rank_0 = hipblasStrmvStridedBatched_64_(handle,uplo,transA, & - diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasCsyr2kStridedBatched_64_rank_1_devptr = hipblasCsyr2kStridedBatched_64_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) end function - function hipblasStrmvStridedBatched_64_rank_1(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasCsyr2kStridedBatched_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmvStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2kStridedBatched_64_full_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: n - real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - real(c_float),target,dimension(:) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasStrmvStridedBatched_64_rank_1 = hipblasStrmvStridedBatched_64_(handle,uplo,transA, & - diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasCsyr2kStridedBatched_64_full_rank = hipblasCsyr2kStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) end function - function hipblasStrmvStridedBatched_64_full_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x, & - incx,stridex,batchCount) - use iso_c_binding + function hipblasCsyr2kStridedBatched_64_full_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmvStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2kStridedBatched_64_full_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: n - real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - real(c_float),target,dimension(:) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasStrmvStridedBatched_64_full_rank = hipblasStrmvStridedBatched_64_(handle,uplo,transA, & - diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasCsyr2kStridedBatched_64_full_rank_devptr = hipblasCsyr2kStridedBatched_64_(handle, & + uplo,transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc, & + strideC,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDtrmvStridedBatched_64_assumed_rank(handle,uplo,transA,diag,n,AP,lda,strideA, & - x,incx,stridex,batchCount) - use iso_c_binding + function hipblasCsyr2kStridedBatched_64_strided_rank(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmvStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2kStridedBatched_64_strided_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: n - real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:,:) :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - real(c_double),target,dimension(..) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:,:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasDtrmvStridedBatched_64_assumed_rank = hipblasDtrmvStridedBatched_64_(handle,uplo, & - transA,diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasCsyr2kStridedBatched_64_strided_rank = hipblasCsyr2kStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) end function -#else - function hipblasDtrmvStridedBatched_64_rank_0(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasCsyr2kStridedBatched_64_strided_rank_devptr(handle,uplo,transA,n,k,alpha,AP, & + lda,strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmvStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2kStridedBatched_64_strided_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: n - real(c_double),target :: AP + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:,:) :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - real(c_double),target :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:,:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasDtrmvStridedBatched_64_rank_0 = hipblasDtrmvStridedBatched_64_(handle,uplo,transA, & - diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasCsyr2kStridedBatched_64_strided_rank_devptr = hipblasCsyr2kStridedBatched_64_(handle, & + uplo,transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc, & + strideC,batchCount) end function - function hipblasDtrmvStridedBatched_64_rank_1(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZsyr2kStridedBatched_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmvStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2kStridedBatched_64_assumed_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: n - real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - real(c_double),target,dimension(:) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasDtrmvStridedBatched_64_rank_1 = hipblasDtrmvStridedBatched_64_(handle,uplo,transA, & - diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasZsyr2kStridedBatched_64_assumed_rank = hipblasZsyr2kStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) end function - function hipblasDtrmvStridedBatched_64_full_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x, & - incx,stridex,batchCount) - use iso_c_binding + function hipblasZsyr2kStridedBatched_64_assumed_rank_devptr(handle,uplo,transA,n,k,alpha,AP, & + lda,strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmvStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2kStridedBatched_64_assumed_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: n - real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - real(c_double),target,dimension(:) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasDtrmvStridedBatched_64_full_rank = hipblasDtrmvStridedBatched_64_(handle,uplo,transA, & - diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasZsyr2kStridedBatched_64_assumed_rank_devptr = hipblasZsyr2kStridedBatched_64_(handle, & + uplo,transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc, & + strideC,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCtrmvStridedBatched_64_assumed_rank(handle,uplo,transA,diag,n,AP,lda,strideA, & - x,incx,stridex,batchCount) - use iso_c_binding +#else + function hipblasZsyr2kStridedBatched_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmvStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2kStridedBatched_64_rank_0 type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: n - complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(..) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex + complex(c_double_complex),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasCtrmvStridedBatched_64_assumed_rank = hipblasCtrmvStridedBatched_64_(handle,uplo, & - transA,diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasZsyr2kStridedBatched_64_rank_0 = hipblasZsyr2kStridedBatched_64_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) end function -#else - function hipblasCtrmvStridedBatched_64_rank_0(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasZsyr2kStridedBatched_64_rank_0_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmvStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2kStridedBatched_64_rank_0_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: n - complex(c_float_complex),target :: AP + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex + complex(c_double_complex),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_double_complex),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasCtrmvStridedBatched_64_rank_0 = hipblasCtrmvStridedBatched_64_(handle,uplo,transA, & - diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasZsyr2kStridedBatched_64_rank_0_devptr = hipblasZsyr2kStridedBatched_64_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) end function - function hipblasCtrmvStridedBatched_64_rank_1(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasZsyr2kStridedBatched_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmvStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2kStridedBatched_64_rank_1 type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: n - complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasCtrmvStridedBatched_64_rank_1 = hipblasCtrmvStridedBatched_64_(handle,uplo,transA, & - diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasZsyr2kStridedBatched_64_rank_1 = hipblasZsyr2kStridedBatched_64_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) end function - function hipblasCtrmvStridedBatched_64_full_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x, & - incx,stridex,batchCount) - use iso_c_binding + function hipblasZsyr2kStridedBatched_64_rank_1_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmvStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2kStridedBatched_64_rank_1_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: n - complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasCtrmvStridedBatched_64_full_rank = hipblasCtrmvStridedBatched_64_(handle,uplo,transA, & - diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasZsyr2kStridedBatched_64_rank_1_devptr = hipblasZsyr2kStridedBatched_64_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZtrmvStridedBatched_64_assumed_rank(handle,uplo,transA,diag,n,AP,lda,strideA, & - x,incx,stridex,batchCount) - use iso_c_binding + function hipblasZsyr2kStridedBatched_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmvStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2kStridedBatched_64_full_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: n - complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(..) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasZtrmvStridedBatched_64_assumed_rank = hipblasZtrmvStridedBatched_64_(handle,uplo, & - transA,diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasZsyr2kStridedBatched_64_full_rank = hipblasZsyr2kStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) end function -#else - function hipblasZtrmvStridedBatched_64_rank_0(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasZsyr2kStridedBatched_64_full_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmvStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2kStridedBatched_64_full_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: n - complex(c_double_complex),target :: AP + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasZtrmvStridedBatched_64_rank_0 = hipblasZtrmvStridedBatched_64_(handle,uplo,transA, & - diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasZsyr2kStridedBatched_64_full_rank_devptr = hipblasZsyr2kStridedBatched_64_(handle, & + uplo,transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc, & + strideC,batchCount) end function - function hipblasZtrmvStridedBatched_64_rank_1(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasZsyr2kStridedBatched_64_strided_rank(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmvStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2kStridedBatched_64_strided_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: n - complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:,:) :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasZtrmvStridedBatched_64_rank_1 = hipblasZtrmvStridedBatched_64_(handle,uplo,transA, & - diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasZsyr2kStridedBatched_64_strided_rank = hipblasZsyr2kStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) end function - function hipblasZtrmvStridedBatched_64_full_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x, & - incx,stridex,batchCount) - use iso_c_binding + function hipblasZsyr2kStridedBatched_64_strided_rank_devptr(handle,uplo,transA,n,k,alpha,AP, & + lda,strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmvStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2kStridedBatched_64_strided_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: n - complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:,:) :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:,:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasZtrmvStridedBatched_64_full_rank = hipblasZtrmvStridedBatched_64_(handle,uplo,transA, & - diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasZsyr2kStridedBatched_64_strided_rank_devptr = hipblasZsyr2kStridedBatched_64_(handle, & + uplo,transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc, & + strideC,batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasStrsv_assumed_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) - use iso_c_binding + function hipblasSsyrkx_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsv_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkx_assumed_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha real(c_float),target,dimension(..) :: AP integer(c_int) :: lda - real(c_float),target,dimension(..) :: x - integer(c_int) :: incx + real(c_float),target,dimension(..) :: BP + integer(c_int) :: ldb + real(c_float),target :: beta + real(c_float),target,dimension(..) :: CP + integer(c_int) :: ldc ! - hipblasStrsv_assumed_rank = hipblasStrsv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x), & - incx) + hipblasSsyrkx_assumed_rank = hipblasSsyrkx_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function -#else - function hipblasStrsv_rank_0(handle,uplo,transA,diag,n,AP,lda,x,incx) - use iso_c_binding + function hipblasSsyrkx_assumed_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP, & + ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsv_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkx_assumed_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - real(c_float),target :: AP + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: AP integer(c_int) :: lda - real(c_float),target :: x - integer(c_int) :: incx + real(c_float),target,dimension(..) :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + real(c_float),target,dimension(..) :: CP + integer(c_int) :: ldc ! - hipblasStrsv_rank_0 = hipblasStrsv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x),incx) + hipblasSsyrkx_assumed_rank_devptr = hipblasSsyrkx_(handle,uplo,transA,n,k,alpha,c_loc(AP), & + lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) end function - function hipblasStrsv_rank_1(handle,uplo,transA,diag,n,AP,lda,x,incx) - use iso_c_binding +#else + function hipblasSsyrkx_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsv_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkx_rank_0 type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - real(c_float),target,dimension(:) :: AP + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target :: AP integer(c_int) :: lda - real(c_float),target,dimension(:) :: x - integer(c_int) :: incx + real(c_float),target :: BP + integer(c_int) :: ldb + real(c_float),target :: beta + real(c_float),target :: CP + integer(c_int) :: ldc ! - hipblasStrsv_rank_1 = hipblasStrsv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x),incx) + hipblasSsyrkx_rank_0 = hipblasSsyrkx_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function - function hipblasStrsv_full_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) - use iso_c_binding + function hipblasSsyrkx_rank_0_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsv_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkx_rank_0_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_float),target :: AP integer(c_int) :: lda - real(c_float),target,dimension(:) :: x - integer(c_int) :: incx + real(c_float),target :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + real(c_float),target :: CP + integer(c_int) :: ldc ! - hipblasStrsv_full_rank = hipblasStrsv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x),incx) + hipblasSsyrkx_rank_0_devptr = hipblasSsyrkx_(handle,uplo,transA,n,k,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDtrsv_assumed_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) - use iso_c_binding + function hipblasSsyrkx_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsv_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkx_rank_1 type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - real(c_double),target,dimension(..) :: AP + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP integer(c_int) :: lda - real(c_double),target,dimension(..) :: x - integer(c_int) :: incx + real(c_float),target,dimension(:) :: BP + integer(c_int) :: ldb + real(c_float),target :: beta + real(c_float),target,dimension(:) :: CP + integer(c_int) :: ldc ! - hipblasDtrsv_assumed_rank = hipblasDtrsv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x), & - incx) + hipblasSsyrkx_rank_1 = hipblasSsyrkx_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function -#else - function hipblasDtrsv_rank_0(handle,uplo,transA,diag,n,AP,lda,x,incx) - use iso_c_binding + function hipblasSsyrkx_rank_1_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsv_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkx_rank_1_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - real(c_double),target :: AP + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: AP integer(c_int) :: lda - real(c_double),target :: x - integer(c_int) :: incx + real(c_float),target,dimension(:) :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + real(c_float),target,dimension(:) :: CP + integer(c_int) :: ldc ! - hipblasDtrsv_rank_0 = hipblasDtrsv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x),incx) + hipblasSsyrkx_rank_1_devptr = hipblasSsyrkx_(handle,uplo,transA,n,k,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) end function - function hipblasDtrsv_rank_1(handle,uplo,transA,diag,n,AP,lda,x,incx) - use iso_c_binding + function hipblasSsyrkx_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsv_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkx_full_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - real(c_double),target,dimension(:) :: AP + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP integer(c_int) :: lda - real(c_double),target,dimension(:) :: x - integer(c_int) :: incx + real(c_float),target,dimension(:,:) :: BP + integer(c_int) :: ldb + real(c_float),target :: beta + real(c_float),target,dimension(:,:) :: CP + integer(c_int) :: ldc ! - hipblasDtrsv_rank_1 = hipblasDtrsv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x),incx) + hipblasSsyrkx_full_rank = hipblasSsyrkx_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function - function hipblasDtrsv_full_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) - use iso_c_binding + function hipblasSsyrkx_full_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsv_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkx_full_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:) :: AP integer(c_int) :: lda - real(c_double),target,dimension(:) :: x - integer(c_int) :: incx + real(c_float),target,dimension(:,:) :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + real(c_float),target,dimension(:,:) :: CP + integer(c_int) :: ldc ! - hipblasDtrsv_full_rank = hipblasDtrsv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x),incx) + hipblasSsyrkx_full_rank_devptr = hipblasSsyrkx_(handle,uplo,transA,n,k,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCtrsv_assumed_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) - use iso_c_binding + function hipblasDsyrkx_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsv_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkx_assumed_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP integer(c_int) :: lda - complex(c_float_complex),target,dimension(..) :: x - integer(c_int) :: incx + real(c_double),target,dimension(..) :: BP + integer(c_int) :: ldb + real(c_double),target :: beta + real(c_double),target,dimension(..) :: CP + integer(c_int) :: ldc ! - hipblasCtrsv_assumed_rank = hipblasCtrsv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x), & - incx) + hipblasDsyrkx_assumed_rank = hipblasDsyrkx_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function -#else - function hipblasCtrsv_rank_0(handle,uplo,transA,diag,n,AP,lda,x,incx) - use iso_c_binding + function hipblasDsyrkx_assumed_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP, & + ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsv_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkx_assumed_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - complex(c_float_complex),target :: AP + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: AP integer(c_int) :: lda - complex(c_float_complex),target :: x - integer(c_int) :: incx + real(c_double),target,dimension(..) :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + real(c_double),target,dimension(..) :: CP + integer(c_int) :: ldc ! - hipblasCtrsv_rank_0 = hipblasCtrsv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x),incx) + hipblasDsyrkx_assumed_rank_devptr = hipblasDsyrkx_(handle,uplo,transA,n,k,alpha,c_loc(AP), & + lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) end function - function hipblasCtrsv_rank_1(handle,uplo,transA,diag,n,AP,lda,x,incx) - use iso_c_binding +#else + function hipblasDsyrkx_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsv_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkx_rank_0 type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target :: AP integer(c_int) :: lda - complex(c_float_complex),target,dimension(:) :: x - integer(c_int) :: incx + real(c_double),target :: BP + integer(c_int) :: ldb + real(c_double),target :: beta + real(c_double),target :: CP + integer(c_int) :: ldc ! - hipblasCtrsv_rank_1 = hipblasCtrsv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x),incx) + hipblasDsyrkx_rank_0 = hipblasDsyrkx_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function - function hipblasCtrsv_full_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) - use iso_c_binding + function hipblasDsyrkx_rank_0_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsv_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkx_rank_0_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_double),target :: AP integer(c_int) :: lda - complex(c_float_complex),target,dimension(:) :: x - integer(c_int) :: incx + real(c_double),target :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + real(c_double),target :: CP + integer(c_int) :: ldc ! - hipblasCtrsv_full_rank = hipblasCtrsv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x),incx) + hipblasDsyrkx_rank_0_devptr = hipblasDsyrkx_(handle,uplo,transA,n,k,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZtrsv_assumed_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) - use iso_c_binding + function hipblasDsyrkx_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsv_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkx_rank_1 type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP integer(c_int) :: lda - complex(c_double_complex),target,dimension(..) :: x - integer(c_int) :: incx + real(c_double),target,dimension(:) :: BP + integer(c_int) :: ldb + real(c_double),target :: beta + real(c_double),target,dimension(:) :: CP + integer(c_int) :: ldc ! - hipblasZtrsv_assumed_rank = hipblasZtrsv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x), & - incx) + hipblasDsyrkx_rank_1 = hipblasDsyrkx_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function -#else - function hipblasZtrsv_rank_0(handle,uplo,transA,diag,n,AP,lda,x,incx) - use iso_c_binding + function hipblasDsyrkx_rank_1_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsv_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkx_rank_1_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - complex(c_double_complex),target :: AP + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: AP integer(c_int) :: lda - complex(c_double_complex),target :: x - integer(c_int) :: incx + real(c_double),target,dimension(:) :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + real(c_double),target,dimension(:) :: CP + integer(c_int) :: ldc ! - hipblasZtrsv_rank_0 = hipblasZtrsv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x),incx) + hipblasDsyrkx_rank_1_devptr = hipblasDsyrkx_(handle,uplo,transA,n,k,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) end function - function hipblasZtrsv_rank_1(handle,uplo,transA,diag,n,AP,lda,x,incx) - use iso_c_binding + function hipblasDsyrkx_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsv_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkx_full_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP integer(c_int) :: lda - complex(c_double_complex),target,dimension(:) :: x - integer(c_int) :: incx + real(c_double),target,dimension(:,:) :: BP + integer(c_int) :: ldb + real(c_double),target :: beta + real(c_double),target,dimension(:,:) :: CP + integer(c_int) :: ldc ! - hipblasZtrsv_rank_1 = hipblasZtrsv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x),incx) + hipblasDsyrkx_full_rank = hipblasDsyrkx_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function - function hipblasZtrsv_full_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) - use iso_c_binding + function hipblasDsyrkx_full_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsv_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkx_full_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:) :: AP integer(c_int) :: lda - complex(c_double_complex),target,dimension(:) :: x - integer(c_int) :: incx + real(c_double),target,dimension(:,:) :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + real(c_double),target,dimension(:,:) :: CP + integer(c_int) :: ldc ! - hipblasZtrsv_full_rank = hipblasZtrsv_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x),incx) + hipblasDsyrkx_full_rank_devptr = hipblasDsyrkx_(handle,uplo,transA,n,k,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasStrsv_64_assumed_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) - use iso_c_binding + function hipblasCsyrkx_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsv_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkx_assumed_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - real(c_float),target,dimension(..) :: AP - integer(c_int64_t) :: lda - real(c_float),target,dimension(..) :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int) :: ldc ! - hipblasStrsv_64_assumed_rank = hipblasStrsv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda, & - c_loc(x),incx) + hipblasCsyrkx_assumed_rank = hipblasCsyrkx_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function -#else - function hipblasStrsv_64_rank_0(handle,uplo,transA,diag,n,AP,lda,x,incx) - use iso_c_binding + function hipblasCsyrkx_assumed_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP, & + ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsv_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkx_assumed_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - real(c_float),target :: AP - integer(c_int64_t) :: lda - real(c_float),target :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int) :: ldc ! - hipblasStrsv_64_rank_0 = hipblasStrsv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x), & - incx) + hipblasCsyrkx_assumed_rank_devptr = hipblasCsyrkx_(handle,uplo,transA,n,k,alpha,c_loc(AP), & + lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) end function - function hipblasStrsv_64_rank_1(handle,uplo,transA,diag,n,AP,lda,x,incx) - use iso_c_binding +#else + function hipblasCsyrkx_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsv_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkx_rank_0 type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - real(c_float),target,dimension(:) :: AP - integer(c_int64_t) :: lda - real(c_float),target,dimension(:) :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + complex(c_float_complex),target :: BP + integer(c_int) :: ldb + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: CP + integer(c_int) :: ldc ! - hipblasStrsv_64_rank_1 = hipblasStrsv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x), & - incx) + hipblasCsyrkx_rank_0 = hipblasCsyrkx_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function - function hipblasStrsv_64_full_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) - use iso_c_binding + function hipblasCsyrkx_rank_0_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsv_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkx_rank_0_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - real(c_float),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - real(c_float),target,dimension(:) :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + complex(c_float_complex),target :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + complex(c_float_complex),target :: CP + integer(c_int) :: ldc ! - hipblasStrsv_64_full_rank = hipblasStrsv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda, & - c_loc(x),incx) + hipblasCsyrkx_rank_0_devptr = hipblasCsyrkx_(handle,uplo,transA,n,k,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDtrsv_64_assumed_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) - use iso_c_binding + function hipblasCsyrkx_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsv_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkx_rank_1 type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - real(c_double),target,dimension(..) :: AP - integer(c_int64_t) :: lda - real(c_double),target,dimension(..) :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int) :: ldc ! - hipblasDtrsv_64_assumed_rank = hipblasDtrsv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda, & - c_loc(x),incx) + hipblasCsyrkx_rank_1 = hipblasCsyrkx_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function -#else - function hipblasDtrsv_64_rank_0(handle,uplo,transA,diag,n,AP,lda,x,incx) - use iso_c_binding + function hipblasCsyrkx_rank_1_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsv_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkx_rank_1_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - real(c_double),target :: AP - integer(c_int64_t) :: lda - real(c_double),target :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int) :: ldc ! - hipblasDtrsv_64_rank_0 = hipblasDtrsv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x), & - incx) + hipblasCsyrkx_rank_1_devptr = hipblasCsyrkx_(handle,uplo,transA,n,k,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) end function - function hipblasDtrsv_64_rank_1(handle,uplo,transA,diag,n,AP,lda,x,incx) - use iso_c_binding + function hipblasCsyrkx_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsv_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkx_full_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - real(c_double),target,dimension(:) :: AP - integer(c_int64_t) :: lda - real(c_double),target,dimension(:) :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc ! - hipblasDtrsv_64_rank_1 = hipblasDtrsv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x), & - incx) + hipblasCsyrkx_full_rank = hipblasCsyrkx_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function - function hipblasDtrsv_64_full_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) - use iso_c_binding + function hipblasCsyrkx_full_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsv_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkx_full_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - real(c_double),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - real(c_double),target,dimension(:) :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc ! - hipblasDtrsv_64_full_rank = hipblasDtrsv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda, & - c_loc(x),incx) + hipblasCsyrkx_full_rank_devptr = hipblasCsyrkx_(handle,uplo,transA,n,k,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCtrsv_64_assumed_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) - use iso_c_binding + function hipblasZsyrkx_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsv_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkx_assumed_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - complex(c_float_complex),target,dimension(..) :: AP - integer(c_int64_t) :: lda - complex(c_float_complex),target,dimension(..) :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int) :: ldc ! - hipblasCtrsv_64_assumed_rank = hipblasCtrsv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda, & - c_loc(x),incx) + hipblasZsyrkx_assumed_rank = hipblasZsyrkx_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function -#else - function hipblasCtrsv_64_rank_0(handle,uplo,transA,diag,n,AP,lda,x,incx) - use iso_c_binding + function hipblasZsyrkx_assumed_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP, & + ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsv_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkx_assumed_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - complex(c_float_complex),target :: AP - integer(c_int64_t) :: lda - complex(c_float_complex),target :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int) :: ldc ! - hipblasCtrsv_64_rank_0 = hipblasCtrsv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x), & - incx) + hipblasZsyrkx_assumed_rank_devptr = hipblasZsyrkx_(handle,uplo,transA,n,k,alpha,c_loc(AP), & + lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) end function - function hipblasCtrsv_64_rank_1(handle,uplo,transA,diag,n,AP,lda,x,incx) - use iso_c_binding +#else + function hipblasZsyrkx_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsv_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkx_rank_0 type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - complex(c_float_complex),target,dimension(:) :: AP - integer(c_int64_t) :: lda - complex(c_float_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int) :: lda + complex(c_double_complex),target :: BP + integer(c_int) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: CP + integer(c_int) :: ldc ! - hipblasCtrsv_64_rank_1 = hipblasCtrsv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x), & - incx) + hipblasZsyrkx_rank_0 = hipblasZsyrkx_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function - function hipblasCtrsv_64_full_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) - use iso_c_binding + function hipblasZsyrkx_rank_0_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsv_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkx_rank_0_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - complex(c_float_complex),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - complex(c_float_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target :: AP + integer(c_int) :: lda + complex(c_double_complex),target :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + complex(c_double_complex),target :: CP + integer(c_int) :: ldc ! - hipblasCtrsv_64_full_rank = hipblasCtrsv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda, & - c_loc(x),incx) + hipblasZsyrkx_rank_0_devptr = hipblasZsyrkx_(handle,uplo,transA,n,k,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZtrsv_64_assumed_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) - use iso_c_binding + function hipblasZsyrkx_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsv_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkx_rank_1 type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - complex(c_double_complex),target,dimension(..) :: AP - integer(c_int64_t) :: lda - complex(c_double_complex),target,dimension(..) :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int) :: ldc ! - hipblasZtrsv_64_assumed_rank = hipblasZtrsv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda, & - c_loc(x),incx) + hipblasZsyrkx_rank_1 = hipblasZsyrkx_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function -#else - function hipblasZtrsv_64_rank_0(handle,uplo,transA,diag,n,AP,lda,x,incx) - use iso_c_binding + function hipblasZsyrkx_rank_1_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsv_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkx_rank_1_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - complex(c_double_complex),target :: AP - integer(c_int64_t) :: lda - complex(c_double_complex),target :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int) :: ldc ! - hipblasZtrsv_64_rank_0 = hipblasZtrsv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x), & - incx) + hipblasZsyrkx_rank_1_devptr = hipblasZsyrkx_(handle,uplo,transA,n,k,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) end function - function hipblasZtrsv_64_rank_1(handle,uplo,transA,diag,n,AP,lda,x,incx) - use iso_c_binding + function hipblasZsyrkx_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsv_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkx_full_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n - complex(c_double_complex),target,dimension(:) :: AP - integer(c_int64_t) :: lda - complex(c_double_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc ! - hipblasZtrsv_64_rank_1 = hipblasZtrsv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda,c_loc(x), & - incx) + hipblasZsyrkx_full_rank = hipblasZsyrkx_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function - function hipblasZtrsv_64_full_rank(handle,uplo,transA,diag,n,AP,lda,x,incx) - use iso_c_binding + function hipblasZsyrkx_full_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsv_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkx_full_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: n + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha complex(c_double_complex),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - complex(c_double_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc ! - hipblasZtrsv_64_full_rank = hipblasZtrsv_64_(handle,uplo,transA,diag,n,c_loc(AP),lda, & - c_loc(x),incx) + hipblasZsyrkx_full_rank_devptr = hipblasZsyrkx_(handle,uplo,transA,n,k,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasStrsvStridedBatched_assumed_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x, & - incx,stridex,batchCount) - use iso_c_binding + function hipblasSsyrkx_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsvStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkx_64_assumed_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha real(c_float),target,dimension(..) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_float),target,dimension(..) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount + integer(c_int64_t) :: lda + real(c_float),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + real(c_float),target :: beta + real(c_float),target,dimension(..) :: CP + integer(c_int64_t) :: ldc ! - hipblasStrsvStridedBatched_assumed_rank = hipblasStrsvStridedBatched_(handle,uplo,transA, & - diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasSsyrkx_64_assumed_rank = hipblasSsyrkx_64_(handle,uplo,transA,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function -#else - function hipblasStrsvStridedBatched_rank_0(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasSsyrkx_64_assumed_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta, & + CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsvStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkx_64_assumed_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - real(c_float),target :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_float),target :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + real(c_float),target,dimension(..) :: CP + integer(c_int64_t) :: ldc ! - hipblasStrsvStridedBatched_rank_0 = hipblasStrsvStridedBatched_(handle,uplo,transA,diag,n, & - c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasSsyrkx_64_assumed_rank_devptr = hipblasSsyrkx_64_(handle,uplo,transA,n,k,alpha, & + c_loc(AP),lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) end function - function hipblasStrsvStridedBatched_rank_1(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding +#else + function hipblasSsyrkx_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsvStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkx_64_rank_0 type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - real(c_float),target,dimension(:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_float),target,dimension(:) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int64_t) :: lda + real(c_float),target :: BP + integer(c_int64_t) :: ldb + real(c_float),target :: beta + real(c_float),target :: CP + integer(c_int64_t) :: ldc ! - hipblasStrsvStridedBatched_rank_1 = hipblasStrsvStridedBatched_(handle,uplo,transA,diag,n, & - c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasSsyrkx_64_rank_0 = hipblasSsyrkx_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function - function hipblasStrsvStridedBatched_full_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasSsyrkx_64_rank_0_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsvStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkx_64_rank_0_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - real(c_float),target,dimension(:,:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_float),target,dimension(:) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_float),target :: AP + integer(c_int64_t) :: lda + real(c_float),target :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + real(c_float),target :: CP + integer(c_int64_t) :: ldc ! - hipblasStrsvStridedBatched_full_rank = hipblasStrsvStridedBatched_(handle,uplo,transA,diag, & - n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasSsyrkx_64_rank_0_devptr = hipblasSsyrkx_64_(handle,uplo,transA,n,k,alpha,c_loc(AP), & + lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDtrsvStridedBatched_assumed_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x, & - incx,stridex,batchCount) - use iso_c_binding + function hipblasSsyrkx_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsvStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkx_64_rank_1 type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - real(c_double),target,dimension(..) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_double),target,dimension(..) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + real(c_float),target :: beta + real(c_float),target,dimension(:) :: CP + integer(c_int64_t) :: ldc ! - hipblasDtrsvStridedBatched_assumed_rank = hipblasDtrsvStridedBatched_(handle,uplo,transA, & - diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasSsyrkx_64_rank_1 = hipblasSsyrkx_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function -#else - function hipblasDtrsvStridedBatched_rank_0(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasSsyrkx_64_rank_1_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsvStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkx_64_rank_1_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - real(c_double),target :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_double),target :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + real(c_float),target,dimension(:) :: CP + integer(c_int64_t) :: ldc ! - hipblasDtrsvStridedBatched_rank_0 = hipblasDtrsvStridedBatched_(handle,uplo,transA,diag,n, & - c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasSsyrkx_64_rank_1_devptr = hipblasSsyrkx_64_(handle,uplo,transA,n,k,alpha,c_loc(AP), & + lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) end function - function hipblasDtrsvStridedBatched_rank_1(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasSsyrkx_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsvStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkx_64_full_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - real(c_double),target,dimension(:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_double),target,dimension(:) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + real(c_float),target :: beta + real(c_float),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc ! - hipblasDtrsvStridedBatched_rank_1 = hipblasDtrsvStridedBatched_(handle,uplo,transA,diag,n, & - c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasSsyrkx_64_full_rank = hipblasSsyrkx_64_(handle,uplo,transA,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function - function hipblasDtrsvStridedBatched_full_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasSsyrkx_64_full_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP, & + ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsvStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkx_64_full_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - real(c_double),target,dimension(:,:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_double),target,dimension(:) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + real(c_float),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc ! - hipblasDtrsvStridedBatched_full_rank = hipblasDtrsvStridedBatched_(handle,uplo,transA,diag, & - n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasSsyrkx_64_full_rank_devptr = hipblasSsyrkx_64_(handle,uplo,transA,n,k,alpha, & + c_loc(AP),lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCtrsvStridedBatched_assumed_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x, & - incx,stridex,batchCount) - use iso_c_binding + function hipblasDsyrkx_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsvStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkx_64_assumed_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - complex(c_float_complex),target,dimension(..) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(..) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + real(c_double),target :: beta + real(c_double),target,dimension(..) :: CP + integer(c_int64_t) :: ldc ! - hipblasCtrsvStridedBatched_assumed_rank = hipblasCtrsvStridedBatched_(handle,uplo,transA, & - diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasDsyrkx_64_assumed_rank = hipblasDsyrkx_64_(handle,uplo,transA,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function -#else - function hipblasCtrsvStridedBatched_rank_0(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasDsyrkx_64_assumed_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta, & + CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsvStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkx_64_assumed_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - complex(c_float_complex),target :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - complex(c_float_complex),target :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + real(c_double),target,dimension(..) :: CP + integer(c_int64_t) :: ldc ! - hipblasCtrsvStridedBatched_rank_0 = hipblasCtrsvStridedBatched_(handle,uplo,transA,diag,n, & - c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasDsyrkx_64_assumed_rank_devptr = hipblasDsyrkx_64_(handle,uplo,transA,n,k,alpha, & + c_loc(AP),lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) end function - function hipblasCtrsvStridedBatched_rank_1(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding +#else + function hipblasDsyrkx_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsvStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkx_64_rank_0 type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - complex(c_float_complex),target,dimension(:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int64_t) :: lda + real(c_double),target :: BP + integer(c_int64_t) :: ldb + real(c_double),target :: beta + real(c_double),target :: CP + integer(c_int64_t) :: ldc ! - hipblasCtrsvStridedBatched_rank_1 = hipblasCtrsvStridedBatched_(handle,uplo,transA,diag,n, & - c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasDsyrkx_64_rank_0 = hipblasDsyrkx_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function - function hipblasCtrsvStridedBatched_full_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasDsyrkx_64_rank_0_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsvStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkx_64_rank_0_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - complex(c_float_complex),target,dimension(:,:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_double),target :: AP + integer(c_int64_t) :: lda + real(c_double),target :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + real(c_double),target :: CP + integer(c_int64_t) :: ldc ! - hipblasCtrsvStridedBatched_full_rank = hipblasCtrsvStridedBatched_(handle,uplo,transA,diag, & - n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasDsyrkx_64_rank_0_devptr = hipblasDsyrkx_64_(handle,uplo,transA,n,k,alpha,c_loc(AP), & + lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZtrsvStridedBatched_assumed_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x, & - incx,stridex,batchCount) - use iso_c_binding + function hipblasDsyrkx_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsvStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkx_64_rank_1 type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - complex(c_double_complex),target,dimension(..) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(..) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + real(c_double),target :: beta + real(c_double),target,dimension(:) :: CP + integer(c_int64_t) :: ldc ! - hipblasZtrsvStridedBatched_assumed_rank = hipblasZtrsvStridedBatched_(handle,uplo,transA, & - diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasDsyrkx_64_rank_1 = hipblasDsyrkx_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function -#else - function hipblasZtrsvStridedBatched_rank_0(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasDsyrkx_64_rank_1_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsvStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkx_64_rank_1_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - complex(c_double_complex),target :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - complex(c_double_complex),target :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + real(c_double),target,dimension(:) :: CP + integer(c_int64_t) :: ldc ! - hipblasZtrsvStridedBatched_rank_0 = hipblasZtrsvStridedBatched_(handle,uplo,transA,diag,n, & - c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasDsyrkx_64_rank_1_devptr = hipblasDsyrkx_64_(handle,uplo,transA,n,k,alpha,c_loc(AP), & + lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) end function - function hipblasZtrsvStridedBatched_rank_1(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasDsyrkx_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsvStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkx_64_full_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - complex(c_double_complex),target,dimension(:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + real(c_double),target :: beta + real(c_double),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc ! - hipblasZtrsvStridedBatched_rank_1 = hipblasZtrsvStridedBatched_(handle,uplo,transA,diag,n, & - c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasDsyrkx_64_full_rank = hipblasDsyrkx_64_(handle,uplo,transA,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function - function hipblasZtrsvStridedBatched_full_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasDsyrkx_64_full_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP, & + ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsvStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkx_64_full_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: n - complex(c_double_complex),target,dimension(:,:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - integer(c_int) :: batchCount + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + real(c_double),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc ! - hipblasZtrsvStridedBatched_full_rank = hipblasZtrsvStridedBatched_(handle,uplo,transA,diag, & - n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasDsyrkx_64_full_rank_devptr = hipblasDsyrkx_64_(handle,uplo,transA,n,k,alpha, & + c_loc(AP),lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasStrsvStridedBatched_64_assumed_rank(handle,uplo,transA,diag,n,AP,lda,strideA, & - x,incx,stridex,batchCount) - use iso_c_binding + function hipblasCsyrkx_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsvStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkx_64_assumed_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: n - real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - real(c_float),target,dimension(..) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc ! - hipblasStrsvStridedBatched_64_assumed_rank = hipblasStrsvStridedBatched_64_(handle,uplo, & - transA,diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasCsyrkx_64_assumed_rank = hipblasCsyrkx_64_(handle,uplo,transA,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function -#else - function hipblasStrsvStridedBatched_64_rank_0(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasCsyrkx_64_assumed_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta, & + CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsvStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkx_64_assumed_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: n - real(c_float),target :: AP + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: AP integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - real(c_float),target :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc ! - hipblasStrsvStridedBatched_64_rank_0 = hipblasStrsvStridedBatched_64_(handle,uplo,transA, & - diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasCsyrkx_64_assumed_rank_devptr = hipblasCsyrkx_64_(handle,uplo,transA,n,k,alpha, & + c_loc(AP),lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) end function - function hipblasStrsvStridedBatched_64_rank_1(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding +#else + function hipblasCsyrkx_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsvStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkx_64_rank_0 type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: n - real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - real(c_float),target,dimension(:) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount + complex(c_float_complex),target :: BP + integer(c_int64_t) :: ldb + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: CP + integer(c_int64_t) :: ldc ! - hipblasStrsvStridedBatched_64_rank_1 = hipblasStrsvStridedBatched_64_(handle,uplo,transA, & - diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasCsyrkx_64_rank_0 = hipblasCsyrkx_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function - function hipblasStrsvStridedBatched_64_full_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x, & - incx,stridex,batchCount) - use iso_c_binding + function hipblasCsyrkx_64_rank_0_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsvStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkx_64_rank_0_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: n - real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target :: AP integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - real(c_float),target,dimension(:) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount + complex(c_float_complex),target :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + complex(c_float_complex),target :: CP + integer(c_int64_t) :: ldc ! - hipblasStrsvStridedBatched_64_full_rank = hipblasStrsvStridedBatched_64_(handle,uplo,transA, & - diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasCsyrkx_64_rank_0_devptr = hipblasCsyrkx_64_(handle,uplo,transA,n,k,alpha,c_loc(AP), & + lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDtrsvStridedBatched_64_assumed_rank(handle,uplo,transA,diag,n,AP,lda,strideA, & - x,incx,stridex,batchCount) - use iso_c_binding + function hipblasCsyrkx_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsvStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkx_64_rank_1 type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: n - real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - real(c_double),target,dimension(..) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc ! - hipblasDtrsvStridedBatched_64_assumed_rank = hipblasDtrsvStridedBatched_64_(handle,uplo, & - transA,diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasCsyrkx_64_rank_1 = hipblasCsyrkx_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function -#else - function hipblasDtrsvStridedBatched_64_rank_0(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasCsyrkx_64_rank_1_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsvStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkx_64_rank_1_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: n - real(c_double),target :: AP + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: AP integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - real(c_double),target :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc ! - hipblasDtrsvStridedBatched_64_rank_0 = hipblasDtrsvStridedBatched_64_(handle,uplo,transA, & - diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasCsyrkx_64_rank_1_devptr = hipblasCsyrkx_64_(handle,uplo,transA,n,k,alpha,c_loc(AP), & + lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) end function - function hipblasDtrsvStridedBatched_64_rank_1(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasCsyrkx_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsvStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkx_64_full_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: n - real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - real(c_double),target,dimension(:) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc ! - hipblasDtrsvStridedBatched_64_rank_1 = hipblasDtrsvStridedBatched_64_(handle,uplo,transA, & - diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasCsyrkx_64_full_rank = hipblasCsyrkx_64_(handle,uplo,transA,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function - function hipblasDtrsvStridedBatched_64_full_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x, & - incx,stridex,batchCount) - use iso_c_binding + function hipblasCsyrkx_64_full_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP, & + ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsvStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkx_64_full_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: n - real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - real(c_double),target,dimension(:) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc ! - hipblasDtrsvStridedBatched_64_full_rank = hipblasDtrsvStridedBatched_64_(handle,uplo,transA, & - diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasCsyrkx_64_full_rank_devptr = hipblasCsyrkx_64_(handle,uplo,transA,n,k,alpha, & + c_loc(AP),lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCtrsvStridedBatched_64_assumed_rank(handle,uplo,transA,diag,n,AP,lda,strideA, & - x,incx,stridex,batchCount) - use iso_c_binding + function hipblasZsyrkx_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsvStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkx_64_assumed_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: n - complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(..) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc ! - hipblasCtrsvStridedBatched_64_assumed_rank = hipblasCtrsvStridedBatched_64_(handle,uplo, & - transA,diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasZsyrkx_64_assumed_rank = hipblasZsyrkx_64_(handle,uplo,transA,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function -#else - function hipblasCtrsvStridedBatched_64_rank_0(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasZsyrkx_64_assumed_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta, & + CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsvStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkx_64_assumed_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: n - complex(c_float_complex),target :: AP + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: AP integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - complex(c_float_complex),target :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc ! - hipblasCtrsvStridedBatched_64_rank_0 = hipblasCtrsvStridedBatched_64_(handle,uplo,transA, & - diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasZsyrkx_64_assumed_rank_devptr = hipblasZsyrkx_64_(handle,uplo,transA,n,k,alpha, & + c_loc(AP),lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) end function - function hipblasCtrsvStridedBatched_64_rank_1(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding +#else + function hipblasZsyrkx_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsvStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkx_64_rank_0 type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: n - complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount + complex(c_double_complex),target :: BP + integer(c_int64_t) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: CP + integer(c_int64_t) :: ldc ! - hipblasCtrsvStridedBatched_64_rank_1 = hipblasCtrsvStridedBatched_64_(handle,uplo,transA, & - diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasZsyrkx_64_rank_0 = hipblasZsyrkx_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function - function hipblasCtrsvStridedBatched_64_full_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x, & - incx,stridex,batchCount) - use iso_c_binding + function hipblasZsyrkx_64_rank_0_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsvStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkx_64_rank_0_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: n - complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target :: AP integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount + complex(c_double_complex),target :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + complex(c_double_complex),target :: CP + integer(c_int64_t) :: ldc ! - hipblasCtrsvStridedBatched_64_full_rank = hipblasCtrsvStridedBatched_64_(handle,uplo,transA, & - diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasZsyrkx_64_rank_0_devptr = hipblasZsyrkx_64_(handle,uplo,transA,n,k,alpha,c_loc(AP), & + lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZtrsvStridedBatched_64_assumed_rank(handle,uplo,transA,diag,n,AP,lda,strideA, & - x,incx,stridex,batchCount) - use iso_c_binding + function hipblasZsyrkx_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsvStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkx_64_rank_1 type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: n - complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(..) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc ! - hipblasZtrsvStridedBatched_64_assumed_rank = hipblasZtrsvStridedBatched_64_(handle,uplo, & - transA,diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasZsyrkx_64_rank_1 = hipblasZsyrkx_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function -#else - function hipblasZtrsvStridedBatched_64_rank_0(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasZsyrkx_64_rank_1_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsvStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkx_64_rank_1_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: n - complex(c_double_complex),target :: AP + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: AP integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - complex(c_double_complex),target :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc ! - hipblasZtrsvStridedBatched_64_rank_0 = hipblasZtrsvStridedBatched_64_(handle,uplo,transA, & - diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasZsyrkx_64_rank_1_devptr = hipblasZsyrkx_64_(handle,uplo,transA,n,k,alpha,c_loc(AP), & + lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) end function - function hipblasZtrsvStridedBatched_64_rank_1(handle,uplo,transA,diag,n,AP,lda,strideA,x,incx, & - stridex,batchCount) - use iso_c_binding + function hipblasZsyrkx_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsvStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkx_64_full_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: n - complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc ! - hipblasZtrsvStridedBatched_64_rank_1 = hipblasZtrsvStridedBatched_64_(handle,uplo,transA, & - diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasZsyrkx_64_full_rank = hipblasZsyrkx_64_(handle,uplo,transA,n,k,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function - function hipblasZtrsvStridedBatched_64_full_rank(handle,uplo,transA,diag,n,AP,lda,strideA,x, & - incx,stridex,batchCount) - use iso_c_binding + function hipblasZsyrkx_64_full_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP, & + ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsvStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkx_64_full_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha complex(c_double_complex),target,dimension(:,:) :: AP integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - integer(c_int64_t) :: batchCount + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc ! - hipblasZtrsvStridedBatched_64_full_rank = hipblasZtrsvStridedBatched_64_(handle,uplo,transA, & - diag,n,c_loc(AP),lda,strideA,c_loc(x),incx,stridex,batchCount) + hipblasZsyrkx_64_full_rank_devptr = hipblasZsyrkx_64_(handle,uplo,transA,n,k,alpha, & + c_loc(AP),lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasSgemm_assumed_rank(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasSsyrkxStridedBatched_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemm_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkxStridedBatched_assumed_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int) :: m integer(c_int) :: n integer(c_int) :: k real(c_float),target :: alpha real(c_float),target,dimension(..) :: AP integer(c_int) :: lda + integer(c_int64_t) :: strideA real(c_float),target,dimension(..) :: BP integer(c_int) :: ldb + integer(c_int64_t) :: strideB real(c_float),target :: beta real(c_float),target,dimension(..) :: CP integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasSsyrkxStridedBatched_assumed_rank = hipblasSsyrkxStridedBatched_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasSsyrkxStridedBatched_assumed_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkxStridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + real(c_float),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasSsyrkxStridedBatched_assumed_rank_devptr = hipblasSsyrkxStridedBatched_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) + end function + +#else + function hipblasSsyrkxStridedBatched_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkxStridedBatched_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + real(c_float),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasSsyrkxStridedBatched_rank_0 = hipblasSsyrkxStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasSsyrkxStridedBatched_rank_0_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkxStridedBatched_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_float),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + real(c_float),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasSgemm_assumed_rank = hipblasSgemm_(handle,transA,transB,m,n,k,c_loc(alpha),c_loc(AP), & - lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasSsyrkxStridedBatched_rank_0_devptr = hipblasSsyrkxStridedBatched_(handle,uplo,transA, & + n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC,batchCount) end function -#else - function hipblasSgemm_rank_0(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasSsyrkxStridedBatched_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemm_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkxStridedBatched_rank_1 type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int) :: m integer(c_int) :: n integer(c_int) :: k real(c_float),target :: alpha - real(c_float),target :: AP + real(c_float),target,dimension(:) :: AP integer(c_int) :: lda - real(c_float),target :: BP + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: BP integer(c_int) :: ldb + integer(c_int64_t) :: strideB real(c_float),target :: beta - real(c_float),target :: CP + real(c_float),target,dimension(:) :: CP integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasSgemm_rank_0 = hipblasSgemm_(handle,transA,transB,m,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasSsyrkxStridedBatched_rank_1 = hipblasSsyrkxStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) end function - function hipblasSgemm_rank_1(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasSsyrkxStridedBatched_rank_1_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemm_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkxStridedBatched_rank_1_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int) :: m integer(c_int) :: n integer(c_int) :: k - real(c_float),target :: alpha + type(c_ptr),value :: alpha real(c_float),target,dimension(:) :: AP integer(c_int) :: lda + integer(c_int64_t) :: strideA real(c_float),target,dimension(:) :: BP integer(c_int) :: ldb - real(c_float),target :: beta + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta real(c_float),target,dimension(:) :: CP integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasSgemm_rank_1 = hipblasSgemm_(handle,transA,transB,m,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasSsyrkxStridedBatched_rank_1_devptr = hipblasSsyrkxStridedBatched_(handle,uplo,transA, & + n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC,batchCount) end function - function hipblasSgemm_full_rank(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasSsyrkxStridedBatched_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemm_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkxStridedBatched_full_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int) :: m integer(c_int) :: n integer(c_int) :: k real(c_float),target :: alpha real(c_float),target,dimension(:,:) :: AP integer(c_int) :: lda + integer(c_int64_t) :: strideA real(c_float),target,dimension(:,:) :: BP integer(c_int) :: ldb + integer(c_int64_t) :: strideB real(c_float),target :: beta real(c_float),target,dimension(:,:) :: CP integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasSgemm_full_rank = hipblasSgemm_(handle,transA,transB,m,n,k,c_loc(alpha),c_loc(AP), & - lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasSsyrkxStridedBatched_full_rank = hipblasSsyrkxStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDgemm_assumed_rank(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasSsyrkxStridedBatched_full_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemm_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkxStridedBatched_full_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int) :: m integer(c_int) :: n integer(c_int) :: k - real(c_double),target :: alpha - real(c_double),target,dimension(..) :: AP + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:) :: AP integer(c_int) :: lda - real(c_double),target,dimension(..) :: BP + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:,:) :: BP integer(c_int) :: ldb - real(c_double),target :: beta - real(c_double),target,dimension(..) :: CP + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + real(c_float),target,dimension(:,:) :: CP integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasDgemm_assumed_rank = hipblasDgemm_(handle,transA,transB,m,n,k,c_loc(alpha),c_loc(AP), & - lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasSsyrkxStridedBatched_full_rank_devptr = hipblasSsyrkxStridedBatched_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) end function -#else - function hipblasDgemm_rank_0(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasSsyrkxStridedBatched_strided_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemm_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkxStridedBatched_strided_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int) :: m integer(c_int) :: n integer(c_int) :: k - real(c_double),target :: alpha - real(c_double),target :: AP + real(c_float),target :: alpha + real(c_float),target,dimension(:,:,:) :: AP integer(c_int) :: lda - real(c_double),target :: BP + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:,:,:) :: BP integer(c_int) :: ldb - real(c_double),target :: beta - real(c_double),target :: CP + integer(c_int64_t) :: strideB + real(c_float),target :: beta + real(c_float),target,dimension(:,:,:) :: CP integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasDgemm_rank_0 = hipblasDgemm_(handle,transA,transB,m,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasSsyrkxStridedBatched_strided_rank = hipblasSsyrkxStridedBatched_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) end function - function hipblasDgemm_rank_1(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasSsyrkxStridedBatched_strided_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemm_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkxStridedBatched_strided_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int) :: m integer(c_int) :: n integer(c_int) :: k - real(c_double),target :: alpha - real(c_double),target,dimension(:) :: AP + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:,:) :: AP integer(c_int) :: lda - real(c_double),target,dimension(:) :: BP + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:,:,:) :: BP integer(c_int) :: ldb - real(c_double),target :: beta - real(c_double),target,dimension(:) :: CP + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + real(c_float),target,dimension(:,:,:) :: CP integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasDgemm_rank_1 = hipblasDgemm_(handle,transA,transB,m,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasSsyrkxStridedBatched_strided_rank_devptr = hipblasSsyrkxStridedBatched_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) end function - function hipblasDgemm_full_rank(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDsyrkxStridedBatched_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemm_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkxStridedBatched_assumed_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int) :: m integer(c_int) :: n integer(c_int) :: k real(c_double),target :: alpha - real(c_double),target,dimension(:,:) :: AP + real(c_double),target,dimension(..) :: AP integer(c_int) :: lda - real(c_double),target,dimension(:,:) :: BP + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: BP integer(c_int) :: ldb + integer(c_int64_t) :: strideB real(c_double),target :: beta - real(c_double),target,dimension(:,:) :: CP + real(c_double),target,dimension(..) :: CP integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasDgemm_full_rank = hipblasDgemm_(handle,transA,transB,m,n,k,c_loc(alpha),c_loc(AP), & - lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasDsyrkxStridedBatched_assumed_rank = hipblasDsyrkxStridedBatched_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCgemm_assumed_rank(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasDsyrkxStridedBatched_assumed_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemm_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkxStridedBatched_assumed_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int) :: m integer(c_int) :: n integer(c_int) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: AP + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: AP integer(c_int) :: lda - complex(c_float_complex),target,dimension(..) :: BP + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: BP integer(c_int) :: ldb - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(..) :: CP + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + real(c_double),target,dimension(..) :: CP integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasCgemm_assumed_rank = hipblasCgemm_(handle,transA,transB,m,n,k,c_loc(alpha),c_loc(AP), & - lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasDsyrkxStridedBatched_assumed_rank_devptr = hipblasDsyrkxStridedBatched_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) end function #else - function hipblasCgemm_rank_0(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasDsyrkxStridedBatched_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemm_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkxStridedBatched_rank_0 type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int) :: m integer(c_int) :: n integer(c_int) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: AP + real(c_double),target :: alpha + real(c_double),target :: AP integer(c_int) :: lda - complex(c_float_complex),target :: BP + integer(c_int64_t) :: strideA + real(c_double),target :: BP integer(c_int) :: ldb - complex(c_float_complex),target :: beta - complex(c_float_complex),target :: CP + integer(c_int64_t) :: strideB + real(c_double),target :: beta + real(c_double),target :: CP integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasCgemm_rank_0 = hipblasCgemm_(handle,transA,transB,m,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasDsyrkxStridedBatched_rank_0 = hipblasDsyrkxStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) end function - function hipblasCgemm_rank_1(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasDsyrkxStridedBatched_rank_0_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemm_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkxStridedBatched_rank_0_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int) :: m integer(c_int) :: n integer(c_int) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: AP + type(c_ptr),value :: alpha + real(c_double),target :: AP integer(c_int) :: lda - complex(c_float_complex),target,dimension(:) :: BP + integer(c_int64_t) :: strideA + real(c_double),target :: BP integer(c_int) :: ldb - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:) :: CP + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + real(c_double),target :: CP integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasCgemm_rank_1 = hipblasCgemm_(handle,transA,transB,m,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasDsyrkxStridedBatched_rank_0_devptr = hipblasDsyrkxStridedBatched_(handle,uplo,transA, & + n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC,batchCount) end function - function hipblasCgemm_full_rank(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasDsyrkxStridedBatched_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemm_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkxStridedBatched_rank_1 type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int) :: m integer(c_int) :: n integer(c_int) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:,:) :: AP + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP integer(c_int) :: lda - complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: BP integer(c_int) :: ldb - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: strideB + real(c_double),target :: beta + real(c_double),target,dimension(:) :: CP integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasCgemm_full_rank = hipblasCgemm_(handle,transA,transB,m,n,k,c_loc(alpha),c_loc(AP), & - lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasDsyrkxStridedBatched_rank_1 = hipblasDsyrkxStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZgemm_assumed_rank(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasDsyrkxStridedBatched_rank_1_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemm_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkxStridedBatched_rank_1_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int) :: m integer(c_int) :: n integer(c_int) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: AP + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: AP integer(c_int) :: lda - complex(c_double_complex),target,dimension(..) :: BP + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: BP integer(c_int) :: ldb - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(..) :: CP + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + real(c_double),target,dimension(:) :: CP integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasZgemm_assumed_rank = hipblasZgemm_(handle,transA,transB,m,n,k,c_loc(alpha),c_loc(AP), & - lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasDsyrkxStridedBatched_rank_1_devptr = hipblasDsyrkxStridedBatched_(handle,uplo,transA, & + n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC,batchCount) end function -#else - function hipblasZgemm_rank_0(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasDsyrkxStridedBatched_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemm_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkxStridedBatched_full_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int) :: m integer(c_int) :: n integer(c_int) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: AP + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP integer(c_int) :: lda - complex(c_double_complex),target :: BP + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:) :: BP integer(c_int) :: ldb - complex(c_double_complex),target :: beta - complex(c_double_complex),target :: CP + integer(c_int64_t) :: strideB + real(c_double),target :: beta + real(c_double),target,dimension(:,:) :: CP integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasZgemm_rank_0 = hipblasZgemm_(handle,transA,transB,m,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasDsyrkxStridedBatched_full_rank = hipblasDsyrkxStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) end function - function hipblasZgemm_rank_1(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasDsyrkxStridedBatched_full_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemm_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkxStridedBatched_full_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int) :: m integer(c_int) :: n integer(c_int) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: AP + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:) :: AP integer(c_int) :: lda - complex(c_double_complex),target,dimension(:) :: BP + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:) :: BP integer(c_int) :: ldb - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:) :: CP + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + real(c_double),target,dimension(:,:) :: CP integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasZgemm_rank_1 = hipblasZgemm_(handle,transA,transB,m,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasDsyrkxStridedBatched_full_rank_devptr = hipblasDsyrkxStridedBatched_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) end function - function hipblasZgemm_full_rank(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasDsyrkxStridedBatched_strided_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemm_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkxStridedBatched_strided_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int) :: m integer(c_int) :: n integer(c_int) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:,:) :: AP + real(c_double),target :: alpha + real(c_double),target,dimension(:,:,:) :: AP integer(c_int) :: lda - complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:,:) :: BP integer(c_int) :: ldb - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: strideB + real(c_double),target :: beta + real(c_double),target,dimension(:,:,:) :: CP integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasZgemm_full_rank = hipblasZgemm_(handle,transA,transB,m,n,k,c_loc(alpha),c_loc(AP), & - lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) - end function - -#endif -#ifdef USE_ASSUMED_RANK - function hipblasSgemm_64_assumed_rank(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP, & - ldc) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemm_64_assumed_rank - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int64_t) :: m - integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_float),target :: alpha - real(c_float),target,dimension(..) :: AP - integer(c_int64_t) :: lda - real(c_float),target,dimension(..) :: BP - integer(c_int64_t) :: ldb - real(c_float),target :: beta - real(c_float),target,dimension(..) :: CP - integer(c_int64_t) :: ldc - ! - hipblasSgemm_64_assumed_rank = hipblasSgemm_64_(handle,transA,transB,m,n,k,c_loc(alpha), & - c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasDsyrkxStridedBatched_strided_rank = hipblasDsyrkxStridedBatched_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) end function -#else - function hipblasSgemm_64_rank_0(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasDsyrkxStridedBatched_strided_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemm_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkxStridedBatched_strided_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int64_t) :: m - integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_float),target :: alpha - real(c_float),target :: AP - integer(c_int64_t) :: lda - real(c_float),target :: BP - integer(c_int64_t) :: ldb - real(c_float),target :: beta - real(c_float),target :: CP - integer(c_int64_t) :: ldc + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + real(c_double),target,dimension(:,:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasSgemm_64_rank_0 = hipblasSgemm_64_(handle,transA,transB,m,n,k,c_loc(alpha),c_loc(AP), & - lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasDsyrkxStridedBatched_strided_rank_devptr = hipblasDsyrkxStridedBatched_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) end function - function hipblasSgemm_64_rank_1(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCsyrkxStridedBatched_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemm_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkxStridedBatched_assumed_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int64_t) :: m - integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_float),target :: alpha - real(c_float),target,dimension(:) :: AP - integer(c_int64_t) :: lda - real(c_float),target,dimension(:) :: BP - integer(c_int64_t) :: ldb - real(c_float),target :: beta - real(c_float),target,dimension(:) :: CP - integer(c_int64_t) :: ldc + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasSgemm_64_rank_1 = hipblasSgemm_64_(handle,transA,transB,m,n,k,c_loc(alpha),c_loc(AP), & - lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasCsyrkxStridedBatched_assumed_rank = hipblasCsyrkxStridedBatched_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) end function - function hipblasSgemm_64_full_rank(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasCsyrkxStridedBatched_assumed_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemm_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkxStridedBatched_assumed_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int64_t) :: m - integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_float),target :: alpha - real(c_float),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - real(c_float),target,dimension(:,:) :: BP - integer(c_int64_t) :: ldb - real(c_float),target :: beta - real(c_float),target,dimension(:,:) :: CP - integer(c_int64_t) :: ldc + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasSgemm_64_full_rank = hipblasSgemm_64_(handle,transA,transB,m,n,k,c_loc(alpha), & - c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasCsyrkxStridedBatched_assumed_rank_devptr = hipblasCsyrkxStridedBatched_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDgemm_64_assumed_rank(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP, & - ldc) - use iso_c_binding +#else + function hipblasCsyrkxStridedBatched_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemm_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkxStridedBatched_rank_0 type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int64_t) :: m - integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_double),target :: alpha - real(c_double),target,dimension(..) :: AP - integer(c_int64_t) :: lda - real(c_double),target,dimension(..) :: BP - integer(c_int64_t) :: ldb - real(c_double),target :: beta - real(c_double),target,dimension(..) :: CP - integer(c_int64_t) :: ldc + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasDgemm_64_assumed_rank = hipblasDgemm_64_(handle,transA,transB,m,n,k,c_loc(alpha), & - c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasCsyrkxStridedBatched_rank_0 = hipblasCsyrkxStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) end function -#else - function hipblasDgemm_64_rank_0(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasCsyrkxStridedBatched_rank_0_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemm_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkxStridedBatched_rank_0_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int64_t) :: m - integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_double),target :: alpha - real(c_double),target :: AP - integer(c_int64_t) :: lda - real(c_double),target :: BP - integer(c_int64_t) :: ldb - real(c_double),target :: beta - real(c_double),target :: CP - integer(c_int64_t) :: ldc + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_float_complex),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasDgemm_64_rank_0 = hipblasDgemm_64_(handle,transA,transB,m,n,k,c_loc(alpha),c_loc(AP), & - lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasCsyrkxStridedBatched_rank_0_devptr = hipblasCsyrkxStridedBatched_(handle,uplo,transA, & + n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC,batchCount) end function - function hipblasDgemm_64_rank_1(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasCsyrkxStridedBatched_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemm_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkxStridedBatched_rank_1 type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int64_t) :: m - integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_double),target :: alpha - real(c_double),target,dimension(:) :: AP - integer(c_int64_t) :: lda - real(c_double),target,dimension(:) :: BP - integer(c_int64_t) :: ldb - real(c_double),target :: beta - real(c_double),target,dimension(:) :: CP - integer(c_int64_t) :: ldc + integer(c_int) :: n + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasDgemm_64_rank_1 = hipblasDgemm_64_(handle,transA,transB,m,n,k,c_loc(alpha),c_loc(AP), & - lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasCsyrkxStridedBatched_rank_1 = hipblasCsyrkxStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) end function - function hipblasDgemm_64_full_rank(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasCsyrkxStridedBatched_rank_1_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemm_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkxStridedBatched_rank_1_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int64_t) :: m - integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_double),target :: alpha - real(c_double),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - real(c_double),target,dimension(:,:) :: BP - integer(c_int64_t) :: ldb - real(c_double),target :: beta - real(c_double),target,dimension(:,:) :: CP - integer(c_int64_t) :: ldc + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasDgemm_64_full_rank = hipblasDgemm_64_(handle,transA,transB,m,n,k,c_loc(alpha), & - c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasCsyrkxStridedBatched_rank_1_devptr = hipblasCsyrkxStridedBatched_(handle,uplo,transA, & + n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCgemm_64_assumed_rank(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP, & - ldc) - use iso_c_binding + function hipblasCsyrkxStridedBatched_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemm_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkxStridedBatched_full_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int64_t) :: m - integer(c_int64_t) :: n - integer(c_int64_t) :: k + integer(c_int) :: n + integer(c_int) :: k complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: AP - integer(c_int64_t) :: lda - complex(c_float_complex),target,dimension(..) :: BP - integer(c_int64_t) :: ldb + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(..) :: CP - integer(c_int64_t) :: ldc + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasCgemm_64_assumed_rank = hipblasCgemm_64_(handle,transA,transB,m,n,k,c_loc(alpha), & - c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasCsyrkxStridedBatched_full_rank = hipblasCsyrkxStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) end function -#else - function hipblasCgemm_64_rank_0(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasCsyrkxStridedBatched_full_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemm_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkxStridedBatched_full_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int64_t) :: m - integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: AP - integer(c_int64_t) :: lda - complex(c_float_complex),target :: BP - integer(c_int64_t) :: ldb - complex(c_float_complex),target :: beta - complex(c_float_complex),target :: CP - integer(c_int64_t) :: ldc + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasCgemm_64_rank_0 = hipblasCgemm_64_(handle,transA,transB,m,n,k,c_loc(alpha),c_loc(AP), & - lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasCsyrkxStridedBatched_full_rank_devptr = hipblasCsyrkxStridedBatched_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) end function - function hipblasCgemm_64_rank_1(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasCsyrkxStridedBatched_strided_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemm_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkxStridedBatched_strided_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int64_t) :: m - integer(c_int64_t) :: n - integer(c_int64_t) :: k + integer(c_int) :: n + integer(c_int) :: k complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: AP - integer(c_int64_t) :: lda - complex(c_float_complex),target,dimension(:) :: BP - integer(c_int64_t) :: ldb + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:) :: CP - integer(c_int64_t) :: ldc + complex(c_float_complex),target,dimension(:,:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasCgemm_64_rank_1 = hipblasCgemm_64_(handle,transA,transB,m,n,k,c_loc(alpha),c_loc(AP), & - lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasCsyrkxStridedBatched_strided_rank = hipblasCsyrkxStridedBatched_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) end function - function hipblasCgemm_64_full_rank(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasCsyrkxStridedBatched_strided_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemm_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkxStridedBatched_strided_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int64_t) :: m - integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - complex(c_float_complex),target,dimension(:,:) :: BP - integer(c_int64_t) :: ldb - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:,:) :: CP - integer(c_int64_t) :: ldc + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:,:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasCgemm_64_full_rank = hipblasCgemm_64_(handle,transA,transB,m,n,k,c_loc(alpha), & - c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasCsyrkxStridedBatched_strided_rank_devptr = hipblasCsyrkxStridedBatched_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasZgemm_64_assumed_rank(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP, & - ldc) - use iso_c_binding + function hipblasZsyrkxStridedBatched_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemm_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkxStridedBatched_assumed_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int64_t) :: m - integer(c_int64_t) :: n - integer(c_int64_t) :: k + integer(c_int) :: n + integer(c_int) :: k complex(c_double_complex),target :: alpha complex(c_double_complex),target,dimension(..) :: AP - integer(c_int64_t) :: lda + integer(c_int) :: lda + integer(c_int64_t) :: strideA complex(c_double_complex),target,dimension(..) :: BP - integer(c_int64_t) :: ldb + integer(c_int) :: ldb + integer(c_int64_t) :: strideB complex(c_double_complex),target :: beta complex(c_double_complex),target,dimension(..) :: CP - integer(c_int64_t) :: ldc + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasZgemm_64_assumed_rank = hipblasZgemm_64_(handle,transA,transB,m,n,k,c_loc(alpha), & - c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasZsyrkxStridedBatched_assumed_rank = hipblasZsyrkxStridedBatched_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasZsyrkxStridedBatched_assumed_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkxStridedBatched_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZsyrkxStridedBatched_assumed_rank_devptr = hipblasZsyrkxStridedBatched_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) end function #else - function hipblasZgemm_64_rank_0(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasZsyrkxStridedBatched_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemm_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkxStridedBatched_rank_0 type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int64_t) :: m - integer(c_int64_t) :: n - integer(c_int64_t) :: k + integer(c_int) :: n + integer(c_int) :: k complex(c_double_complex),target :: alpha complex(c_double_complex),target :: AP - integer(c_int64_t) :: lda + integer(c_int) :: lda + integer(c_int64_t) :: strideA complex(c_double_complex),target :: BP - integer(c_int64_t) :: ldb + integer(c_int) :: ldb + integer(c_int64_t) :: strideB complex(c_double_complex),target :: beta complex(c_double_complex),target :: CP - integer(c_int64_t) :: ldc + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasZgemm_64_rank_0 = hipblasZgemm_64_(handle,transA,transB,m,n,k,c_loc(alpha),c_loc(AP), & - lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasZsyrkxStridedBatched_rank_0 = hipblasZsyrkxStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) end function - function hipblasZgemm_64_rank_1(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasZsyrkxStridedBatched_rank_0_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemm_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkxStridedBatched_rank_0_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int64_t) :: m - integer(c_int64_t) :: n - integer(c_int64_t) :: k + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_double_complex),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZsyrkxStridedBatched_rank_0_devptr = hipblasZsyrkxStridedBatched_(handle,uplo,transA, & + n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasZsyrkxStridedBatched_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkxStridedBatched_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k complex(c_double_complex),target :: alpha complex(c_double_complex),target,dimension(:) :: AP - integer(c_int64_t) :: lda + integer(c_int) :: lda + integer(c_int64_t) :: strideA complex(c_double_complex),target,dimension(:) :: BP - integer(c_int64_t) :: ldb + integer(c_int) :: ldb + integer(c_int64_t) :: strideB complex(c_double_complex),target :: beta complex(c_double_complex),target,dimension(:) :: CP - integer(c_int64_t) :: ldc + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasZgemm_64_rank_1 = hipblasZgemm_64_(handle,transA,transB,m,n,k,c_loc(alpha),c_loc(AP), & - lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasZsyrkxStridedBatched_rank_1 = hipblasZsyrkxStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) end function - function hipblasZgemm_64_full_rank(handle,transA,transB,m,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasZsyrkxStridedBatched_rank_1_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemm_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkxStridedBatched_rank_1_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int64_t) :: m - integer(c_int64_t) :: n - integer(c_int64_t) :: k + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZsyrkxStridedBatched_rank_1_devptr = hipblasZsyrkxStridedBatched_(handle,uplo,transA, & + n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasZsyrkxStridedBatched_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkxStridedBatched_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k complex(c_double_complex),target :: alpha complex(c_double_complex),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda + integer(c_int) :: lda + integer(c_int64_t) :: strideA complex(c_double_complex),target,dimension(:,:) :: BP - integer(c_int64_t) :: ldb + integer(c_int) :: ldb + integer(c_int64_t) :: strideB complex(c_double_complex),target :: beta complex(c_double_complex),target,dimension(:,:) :: CP - integer(c_int64_t) :: ldc + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasZgemm_64_full_rank = hipblasZgemm_64_(handle,transA,transB,m,n,k,c_loc(alpha), & - c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasZsyrkxStridedBatched_full_rank = hipblasZsyrkxStridedBatched_(handle,uplo,transA,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasSgemmStridedBatched_assumed_rank(handle,transA,transB,m,n,k,alpha,AP,lda, & + function hipblasZsyrkxStridedBatched_full_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkxStridedBatched_full_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZsyrkxStridedBatched_full_rank_devptr = hipblasZsyrkxStridedBatched_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) + end function + + function hipblasZsyrkxStridedBatched_strided_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkxStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZsyrkxStridedBatched_strided_rank = hipblasZsyrkxStridedBatched_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasZsyrkxStridedBatched_strided_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkxStridedBatched_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int) :: m integer(c_int) :: n integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:,:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZsyrkxStridedBatched_strided_rank_devptr = hipblasZsyrkxStridedBatched_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSsyrkxStridedBatched_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkxStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k real(c_float),target :: alpha real(c_float),target,dimension(..) :: AP - integer(c_int) :: lda + integer(c_int64_t) :: lda integer(c_int64_t) :: strideA real(c_float),target,dimension(..) :: BP - integer(c_int) :: ldb + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: beta + real(c_float),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasSsyrkxStridedBatched_64_assumed_rank = hipblasSsyrkxStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) + end function + + function hipblasSsyrkxStridedBatched_64_assumed_rank_devptr(handle,uplo,transA,n,k,alpha,AP, & + lda,strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkxStridedBatched_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: BP + integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - real(c_float),target :: beta + type(c_ptr),value :: beta real(c_float),target,dimension(..) :: CP - integer(c_int) :: ldc + integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount ! - hipblasSgemmStridedBatched_assumed_rank = hipblasSgemmStridedBatched_(handle,transA,transB, & - m,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + hipblasSsyrkxStridedBatched_64_assumed_rank_devptr = hipblasSsyrkxStridedBatched_64_(handle, & + uplo,transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc, & strideC,batchCount) end function #else - function hipblasSgemmStridedBatched_rank_0(handle,transA,transB,m,n,k,alpha,AP,lda,strideA,BP, & + function hipblasSsyrkxStridedBatched_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkxStridedBatched_64_rank_0 type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int) :: m - integer(c_int) :: n - integer(c_int) :: k + integer(c_int64_t) :: n + integer(c_int64_t) :: k real(c_float),target :: alpha real(c_float),target :: AP - integer(c_int) :: lda + integer(c_int64_t) :: lda integer(c_int64_t) :: strideA real(c_float),target :: BP - integer(c_int) :: ldb + integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB real(c_float),target :: beta real(c_float),target :: CP - integer(c_int) :: ldc + integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount ! - hipblasSgemmStridedBatched_rank_0 = hipblasSgemmStridedBatched_(handle,transA,transB,m,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + hipblasSsyrkxStridedBatched_64_rank_0 = hipblasSsyrkxStridedBatched_64_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & strideC,batchCount) end function - function hipblasSgemmStridedBatched_rank_1(handle,transA,transB,m,n,k,alpha,AP,lda,strideA,BP, & + function hipblasSsyrkxStridedBatched_64_rank_0_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkxStridedBatched_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_float),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + real(c_float),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasSsyrkxStridedBatched_64_rank_0_devptr = hipblasSsyrkxStridedBatched_64_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) + end function + + function hipblasSsyrkxStridedBatched_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkxStridedBatched_64_rank_1 type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int) :: m - integer(c_int) :: n - integer(c_int) :: k + integer(c_int64_t) :: n + integer(c_int64_t) :: k real(c_float),target :: alpha real(c_float),target,dimension(:) :: AP - integer(c_int) :: lda + integer(c_int64_t) :: lda integer(c_int64_t) :: strideA real(c_float),target,dimension(:) :: BP - integer(c_int) :: ldb + integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB real(c_float),target :: beta real(c_float),target,dimension(:) :: CP - integer(c_int) :: ldc + integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount ! - hipblasSgemmStridedBatched_rank_1 = hipblasSgemmStridedBatched_(handle,transA,transB,m,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + hipblasSsyrkxStridedBatched_64_rank_1 = hipblasSsyrkxStridedBatched_64_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & strideC,batchCount) end function - function hipblasSgemmStridedBatched_full_rank(handle,transA,transB,m,n,k,alpha,AP,lda,strideA, & - BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasSsyrkxStridedBatched_64_rank_1_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkxStridedBatched_64_rank_1_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int) :: m - integer(c_int) :: n - integer(c_int) :: k - real(c_float),target :: alpha - real(c_float),target,dimension(:,:) :: AP - integer(c_int) :: lda + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - real(c_float),target,dimension(:,:) :: BP - integer(c_int) :: ldb + real(c_float),target,dimension(:) :: BP + integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - real(c_float),target :: beta - real(c_float),target,dimension(:,:) :: CP - integer(c_int) :: ldc + type(c_ptr),value :: beta + real(c_float),target,dimension(:) :: CP + integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount ! - hipblasSgemmStridedBatched_full_rank = hipblasSgemmStridedBatched_(handle,transA,transB,m,n, & - k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasSsyrkxStridedBatched_64_rank_1_devptr = hipblasSsyrkxStridedBatched_64_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDgemmStridedBatched_assumed_rank(handle,transA,transB,m,n,k,alpha,AP,lda, & - strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasSsyrkxStridedBatched_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkxStridedBatched_64_full_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int) :: m - integer(c_int) :: n - integer(c_int) :: k - real(c_double),target :: alpha - real(c_double),target,dimension(..) :: AP - integer(c_int) :: lda + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - real(c_double),target,dimension(..) :: BP - integer(c_int) :: ldb + real(c_float),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - real(c_double),target :: beta - real(c_double),target,dimension(..) :: CP - integer(c_int) :: ldc + real(c_float),target :: beta + real(c_float),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount ! - hipblasDgemmStridedBatched_assumed_rank = hipblasDgemmStridedBatched_(handle,transA,transB, & - m,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasSsyrkxStridedBatched_64_full_rank = hipblasSsyrkxStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) end function -#else - function hipblasDgemmStridedBatched_rank_0(handle,transA,transB,m,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasSsyrkxStridedBatched_64_full_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkxStridedBatched_64_full_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int) :: m - integer(c_int) :: n - integer(c_int) :: k - real(c_double),target :: alpha - real(c_double),target :: AP - integer(c_int) :: lda + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - real(c_double),target :: BP - integer(c_int) :: ldb + real(c_float),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - real(c_double),target :: beta - real(c_double),target :: CP - integer(c_int) :: ldc + type(c_ptr),value :: beta + real(c_float),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount ! - hipblasDgemmStridedBatched_rank_0 = hipblasDgemmStridedBatched_(handle,transA,transB,m,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + hipblasSsyrkxStridedBatched_64_full_rank_devptr = hipblasSsyrkxStridedBatched_64_(handle, & + uplo,transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc, & strideC,batchCount) end function - function hipblasDgemmStridedBatched_rank_1(handle,transA,transB,m,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasSsyrkxStridedBatched_64_strided_rank(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkxStridedBatched_64_strided_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int) :: m - integer(c_int) :: n - integer(c_int) :: k - real(c_double),target :: alpha - real(c_double),target,dimension(:) :: AP - integer(c_int) :: lda + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_float),target :: alpha + real(c_float),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - real(c_double),target,dimension(:) :: BP - integer(c_int) :: ldb + real(c_float),target,dimension(:,:,:) :: BP + integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - real(c_double),target :: beta - real(c_double),target,dimension(:) :: CP - integer(c_int) :: ldc + real(c_float),target :: beta + real(c_float),target,dimension(:,:,:) :: CP + integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount ! - hipblasDgemmStridedBatched_rank_1 = hipblasDgemmStridedBatched_(handle,transA,transB,m,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasSsyrkxStridedBatched_64_strided_rank = hipblasSsyrkxStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) end function - function hipblasDgemmStridedBatched_full_rank(handle,transA,transB,m,n,k,alpha,AP,lda,strideA, & - BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasSsyrkxStridedBatched_64_strided_rank_devptr(handle,uplo,transA,n,k,alpha,AP, & + lda,strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkxStridedBatched_64_strided_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int) :: m - integer(c_int) :: n - integer(c_int) :: k - real(c_double),target :: alpha - real(c_double),target,dimension(:,:) :: AP - integer(c_int) :: lda + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - real(c_double),target,dimension(:,:) :: BP - integer(c_int) :: ldb + real(c_float),target,dimension(:,:,:) :: BP + integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - real(c_double),target :: beta - real(c_double),target,dimension(:,:) :: CP - integer(c_int) :: ldc + type(c_ptr),value :: beta + real(c_float),target,dimension(:,:,:) :: CP + integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount ! - hipblasDgemmStridedBatched_full_rank = hipblasDgemmStridedBatched_(handle,transA,transB,m,n, & - k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + hipblasSsyrkxStridedBatched_64_strided_rank_devptr = hipblasSsyrkxStridedBatched_64_(handle, & + uplo,transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc, & strideC,batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCgemmStridedBatched_assumed_rank(handle,transA,transB,m,n,k,alpha,AP,lda, & + function hipblasDsyrkxStridedBatched_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda, & strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemmStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkxStridedBatched_64_assumed_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int) :: m - integer(c_int) :: n - integer(c_int) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: AP - integer(c_int) :: lda + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(..) :: BP - integer(c_int) :: ldb + real(c_double),target,dimension(..) :: BP + integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(..) :: CP - integer(c_int) :: ldc + real(c_double),target :: beta + real(c_double),target,dimension(..) :: CP + integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount ! - hipblasCgemmStridedBatched_assumed_rank = hipblasCgemmStridedBatched_(handle,transA,transB, & - m,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasDsyrkxStridedBatched_64_assumed_rank = hipblasDsyrkxStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) end function -#else - function hipblasCgemmStridedBatched_rank_0(handle,transA,transB,m,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasDsyrkxStridedBatched_64_assumed_rank_devptr(handle,uplo,transA,n,k,alpha,AP, & + lda,strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemmStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkxStridedBatched_64_assumed_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int) :: m - integer(c_int) :: n - integer(c_int) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: AP - integer(c_int) :: lda + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target :: BP - integer(c_int) :: ldb + real(c_double),target,dimension(..) :: BP + integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - complex(c_float_complex),target :: beta - complex(c_float_complex),target :: CP - integer(c_int) :: ldc + type(c_ptr),value :: beta + real(c_double),target,dimension(..) :: CP + integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount ! - hipblasCgemmStridedBatched_rank_0 = hipblasCgemmStridedBatched_(handle,transA,transB,m,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + hipblasDsyrkxStridedBatched_64_assumed_rank_devptr = hipblasDsyrkxStridedBatched_64_(handle, & + uplo,transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc, & strideC,batchCount) end function - function hipblasCgemmStridedBatched_rank_1(handle,transA,transB,m,n,k,alpha,AP,lda,strideA,BP, & +#else + function hipblasDsyrkxStridedBatched_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemmStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkxStridedBatched_64_rank_0 type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int) :: m - integer(c_int) :: n - integer(c_int) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: AP - integer(c_int) :: lda + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:) :: BP - integer(c_int) :: ldb + real(c_double),target :: BP + integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:) :: CP - integer(c_int) :: ldc + real(c_double),target :: beta + real(c_double),target :: CP + integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount ! - hipblasCgemmStridedBatched_rank_1 = hipblasCgemmStridedBatched_(handle,transA,transB,m,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + hipblasDsyrkxStridedBatched_64_rank_0 = hipblasDsyrkxStridedBatched_64_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & strideC,batchCount) end function - function hipblasCgemmStridedBatched_full_rank(handle,transA,transB,m,n,k,alpha,AP,lda,strideA, & - BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasDsyrkxStridedBatched_64_rank_0_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemmStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkxStridedBatched_64_rank_0_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int) :: m - integer(c_int) :: n - integer(c_int) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:,:) :: AP - integer(c_int) :: lda + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_double),target :: AP + integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:,:) :: BP - integer(c_int) :: ldb + real(c_double),target :: BP + integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:,:) :: CP - integer(c_int) :: ldc + type(c_ptr),value :: beta + real(c_double),target :: CP + integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount ! - hipblasCgemmStridedBatched_full_rank = hipblasCgemmStridedBatched_(handle,transA,transB,m,n, & - k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasDsyrkxStridedBatched_64_rank_0_devptr = hipblasDsyrkxStridedBatched_64_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZgemmStridedBatched_assumed_rank(handle,transA,transB,m,n,k,alpha,AP,lda, & - strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasDsyrkxStridedBatched_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemmStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkxStridedBatched_64_rank_1 type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int) :: m - integer(c_int) :: n - integer(c_int) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: AP - integer(c_int) :: lda + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(..) :: BP - integer(c_int) :: ldb + real(c_double),target,dimension(:) :: BP + integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(..) :: CP - integer(c_int) :: ldc + real(c_double),target :: beta + real(c_double),target,dimension(:) :: CP + integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount ! - hipblasZgemmStridedBatched_assumed_rank = hipblasZgemmStridedBatched_(handle,transA,transB, & - m,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + hipblasDsyrkxStridedBatched_64_rank_1 = hipblasDsyrkxStridedBatched_64_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & strideC,batchCount) end function -#else - function hipblasZgemmStridedBatched_rank_0(handle,transA,transB,m,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasDsyrkxStridedBatched_64_rank_1_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemmStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkxStridedBatched_64_rank_1_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int) :: m - integer(c_int) :: n - integer(c_int) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: AP - integer(c_int) :: lda + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target :: BP - integer(c_int) :: ldb + real(c_double),target,dimension(:) :: BP + integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - complex(c_double_complex),target :: beta - complex(c_double_complex),target :: CP - integer(c_int) :: ldc + type(c_ptr),value :: beta + real(c_double),target,dimension(:) :: CP + integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount ! - hipblasZgemmStridedBatched_rank_0 = hipblasZgemmStridedBatched_(handle,transA,transB,m,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasDsyrkxStridedBatched_64_rank_1_devptr = hipblasDsyrkxStridedBatched_64_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) end function - function hipblasZgemmStridedBatched_rank_1(handle,transA,transB,m,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasDsyrkxStridedBatched_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemmStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkxStridedBatched_64_full_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int) :: m - integer(c_int) :: n - integer(c_int) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: AP - integer(c_int) :: lda + integer(c_int64_t) :: n + integer(c_int64_t) :: k + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:) :: BP - integer(c_int) :: ldb + real(c_double),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:) :: CP - integer(c_int) :: ldc + real(c_double),target :: beta + real(c_double),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount ! - hipblasZgemmStridedBatched_rank_1 = hipblasZgemmStridedBatched_(handle,transA,transB,m,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasDsyrkxStridedBatched_64_full_rank = hipblasDsyrkxStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) end function - function hipblasZgemmStridedBatched_full_rank(handle,transA,transB,m,n,k,alpha,AP,lda,strideA, & - BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasDsyrkxStridedBatched_64_full_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemmStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkxStridedBatched_64_full_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int) :: m - integer(c_int) :: n - integer(c_int) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:,:) :: AP - integer(c_int) :: lda + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:,:) :: BP - integer(c_int) :: ldb + real(c_double),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:,:) :: CP - integer(c_int) :: ldc + type(c_ptr),value :: beta + real(c_double),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount ! - hipblasZgemmStridedBatched_full_rank = hipblasZgemmStridedBatched_(handle,transA,transB,m,n, & - k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + hipblasDsyrkxStridedBatched_64_full_rank_devptr = hipblasDsyrkxStridedBatched_64_(handle, & + uplo,transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc, & strideC,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasSgemmStridedBatched_64_assumed_rank(handle,transA,transB,m,n,k,alpha,AP,lda, & + function hipblasDsyrkxStridedBatched_64_strided_rank(handle,uplo,transA,n,k,alpha,AP,lda, & strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkxStridedBatched_64_strided_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int64_t) :: m integer(c_int64_t) :: n integer(c_int64_t) :: k - real(c_float),target :: alpha - real(c_float),target,dimension(..) :: AP + real(c_double),target :: alpha + real(c_double),target,dimension(:,:,:) :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - real(c_float),target,dimension(..) :: BP + real(c_double),target,dimension(:,:,:) :: BP integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - real(c_float),target :: beta - real(c_float),target,dimension(..) :: CP + real(c_double),target :: beta + real(c_double),target,dimension(:,:,:) :: CP integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasSgemmStridedBatched_64_assumed_rank = hipblasSgemmStridedBatched_64_(handle,transA, & - transB,m,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta), & - c_loc(CP),ldc,strideC,batchCount) + hipblasDsyrkxStridedBatched_64_strided_rank = hipblasDsyrkxStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) end function -#else - function hipblasSgemmStridedBatched_64_rank_0(handle,transA,transB,m,n,k,alpha,AP,lda,strideA, & - BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasDsyrkxStridedBatched_64_strided_rank_devptr(handle,uplo,transA,n,k,alpha,AP, & + lda,strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkxStridedBatched_64_strided_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int64_t) :: m integer(c_int64_t) :: n integer(c_int64_t) :: k - real(c_float),target :: alpha - real(c_float),target :: AP + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:,:) :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - real(c_float),target :: BP + real(c_double),target,dimension(:,:,:) :: BP integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - real(c_float),target :: beta - real(c_float),target :: CP + type(c_ptr),value :: beta + real(c_double),target,dimension(:,:,:) :: CP integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasSgemmStridedBatched_64_rank_0 = hipblasSgemmStridedBatched_64_(handle,transA,transB, & - m,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + hipblasDsyrkxStridedBatched_64_strided_rank_devptr = hipblasDsyrkxStridedBatched_64_(handle, & + uplo,transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc, & strideC,batchCount) end function - function hipblasSgemmStridedBatched_64_rank_1(handle,transA,transB,m,n,k,alpha,AP,lda,strideA, & - BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCsyrkxStridedBatched_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkxStridedBatched_64_assumed_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int64_t) :: m integer(c_int64_t) :: n integer(c_int64_t) :: k - real(c_float),target :: alpha - real(c_float),target,dimension(:) :: AP + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - real(c_float),target,dimension(:) :: BP + complex(c_float_complex),target,dimension(..) :: BP integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - real(c_float),target :: beta - real(c_float),target,dimension(:) :: CP + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: CP integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasSgemmStridedBatched_64_rank_1 = hipblasSgemmStridedBatched_64_(handle,transA,transB, & - m,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasCsyrkxStridedBatched_64_assumed_rank = hipblasCsyrkxStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) end function - function hipblasSgemmStridedBatched_64_full_rank(handle,transA,transB,m,n,k,alpha,AP,lda, & - strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasCsyrkxStridedBatched_64_assumed_rank_devptr(handle,uplo,transA,n,k,alpha,AP, & + lda,strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgemmStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkxStridedBatched_64_assumed_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int64_t) :: m integer(c_int64_t) :: n integer(c_int64_t) :: k - real(c_float),target :: alpha - real(c_float),target,dimension(:,:) :: AP + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - real(c_float),target,dimension(:,:) :: BP + complex(c_float_complex),target,dimension(..) :: BP integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - real(c_float),target :: beta - real(c_float),target,dimension(:,:) :: CP + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(..) :: CP integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasSgemmStridedBatched_64_full_rank = hipblasSgemmStridedBatched_64_(handle,transA, & - transB,m,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta), & - c_loc(CP),ldc,strideC,batchCount) + hipblasCsyrkxStridedBatched_64_assumed_rank_devptr = hipblasCsyrkxStridedBatched_64_(handle, & + uplo,transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc, & + strideC,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDgemmStridedBatched_64_assumed_rank(handle,transA,transB,m,n,k,alpha,AP,lda, & - strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding +#else + function hipblasCsyrkxStridedBatched_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkxStridedBatched_64_rank_0 type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int64_t) :: m integer(c_int64_t) :: n integer(c_int64_t) :: k - real(c_double),target :: alpha - real(c_double),target,dimension(..) :: AP + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - real(c_double),target,dimension(..) :: BP + complex(c_float_complex),target :: BP integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - real(c_double),target :: beta - real(c_double),target,dimension(..) :: CP + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: CP integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasDgemmStridedBatched_64_assumed_rank = hipblasDgemmStridedBatched_64_(handle,transA, & - transB,m,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta), & - c_loc(CP),ldc,strideC,batchCount) + hipblasCsyrkxStridedBatched_64_rank_0 = hipblasCsyrkxStridedBatched_64_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) end function -#else - function hipblasDgemmStridedBatched_64_rank_0(handle,transA,transB,m,n,k,alpha,AP,lda,strideA, & - BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasCsyrkxStridedBatched_64_rank_0_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkxStridedBatched_64_rank_0_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int64_t) :: m integer(c_int64_t) :: n integer(c_int64_t) :: k - real(c_double),target :: alpha - real(c_double),target :: AP + type(c_ptr),value :: alpha + complex(c_float_complex),target :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - real(c_double),target :: BP + complex(c_float_complex),target :: BP integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - real(c_double),target :: beta - real(c_double),target :: CP + type(c_ptr),value :: beta + complex(c_float_complex),target :: CP integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasDgemmStridedBatched_64_rank_0 = hipblasDgemmStridedBatched_64_(handle,transA,transB, & - m,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasCsyrkxStridedBatched_64_rank_0_devptr = hipblasCsyrkxStridedBatched_64_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) end function - function hipblasDgemmStridedBatched_64_rank_1(handle,transA,transB,m,n,k,alpha,AP,lda,strideA, & - BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasCsyrkxStridedBatched_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkxStridedBatched_64_rank_1 type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int64_t) :: m integer(c_int64_t) :: n integer(c_int64_t) :: k - real(c_double),target :: alpha - real(c_double),target,dimension(:) :: AP + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - real(c_double),target,dimension(:) :: BP + complex(c_float_complex),target,dimension(:) :: BP integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - real(c_double),target :: beta - real(c_double),target,dimension(:) :: CP + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: CP integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasDgemmStridedBatched_64_rank_1 = hipblasDgemmStridedBatched_64_(handle,transA,transB, & - m,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + hipblasCsyrkxStridedBatched_64_rank_1 = hipblasCsyrkxStridedBatched_64_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & strideC,batchCount) end function - function hipblasDgemmStridedBatched_64_full_rank(handle,transA,transB,m,n,k,alpha,AP,lda, & + function hipblasCsyrkxStridedBatched_64_rank_1_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgemmStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkxStridedBatched_64_rank_1_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int64_t) :: m integer(c_int64_t) :: n integer(c_int64_t) :: k - real(c_double),target :: alpha - real(c_double),target,dimension(:,:) :: AP + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - real(c_double),target,dimension(:,:) :: BP + complex(c_float_complex),target,dimension(:) :: BP integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - real(c_double),target :: beta - real(c_double),target,dimension(:,:) :: CP + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: CP integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasDgemmStridedBatched_64_full_rank = hipblasDgemmStridedBatched_64_(handle,transA, & - transB,m,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta), & - c_loc(CP),ldc,strideC,batchCount) + hipblasCsyrkxStridedBatched_64_rank_1_devptr = hipblasCsyrkxStridedBatched_64_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCgemmStridedBatched_64_assumed_rank(handle,transA,transB,m,n,k,alpha,AP,lda, & - strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasCsyrkxStridedBatched_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemmStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkxStridedBatched_64_full_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int64_t) :: m integer(c_int64_t) :: n integer(c_int64_t) :: k complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: AP + complex(c_float_complex),target,dimension(:,:) :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(..) :: BP + complex(c_float_complex),target,dimension(:,:) :: BP integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(..) :: CP + complex(c_float_complex),target,dimension(:,:) :: CP integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasCgemmStridedBatched_64_assumed_rank = hipblasCgemmStridedBatched_64_(handle,transA, & - transB,m,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta), & - c_loc(CP),ldc,strideC,batchCount) + hipblasCsyrkxStridedBatched_64_full_rank = hipblasCsyrkxStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) end function -#else - function hipblasCgemmStridedBatched_64_rank_0(handle,transA,transB,m,n,k,alpha,AP,lda,strideA, & - BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasCsyrkxStridedBatched_64_full_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemmStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkxStridedBatched_64_full_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int64_t) :: m integer(c_int64_t) :: n integer(c_int64_t) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: AP + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target :: BP + complex(c_float_complex),target,dimension(:,:) :: BP integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - complex(c_float_complex),target :: beta - complex(c_float_complex),target :: CP + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:,:) :: CP integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasCgemmStridedBatched_64_rank_0 = hipblasCgemmStridedBatched_64_(handle,transA,transB, & - m,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + hipblasCsyrkxStridedBatched_64_full_rank_devptr = hipblasCsyrkxStridedBatched_64_(handle, & + uplo,transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc, & strideC,batchCount) end function - function hipblasCgemmStridedBatched_64_rank_1(handle,transA,transB,m,n,k,alpha,AP,lda,strideA, & - BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasCsyrkxStridedBatched_64_strided_rank(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemmStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkxStridedBatched_64_strided_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int64_t) :: m integer(c_int64_t) :: n integer(c_int64_t) :: k complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: AP + complex(c_float_complex),target,dimension(:,:,:) :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:) :: BP + complex(c_float_complex),target,dimension(:,:,:) :: BP integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:) :: CP + complex(c_float_complex),target,dimension(:,:,:) :: CP integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasCgemmStridedBatched_64_rank_1 = hipblasCgemmStridedBatched_64_(handle,transA,transB, & - m,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasCsyrkxStridedBatched_64_strided_rank = hipblasCsyrkxStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) end function - function hipblasCgemmStridedBatched_64_full_rank(handle,transA,transB,m,n,k,alpha,AP,lda, & - strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasCsyrkxStridedBatched_64_strided_rank_devptr(handle,uplo,transA,n,k,alpha,AP, & + lda,strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgemmStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkxStridedBatched_64_strided_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int64_t) :: m integer(c_int64_t) :: n integer(c_int64_t) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:,:) :: AP + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:,:) :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:,:) :: BP + complex(c_float_complex),target,dimension(:,:,:) :: BP integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:,:) :: CP + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:,:,:) :: CP integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasCgemmStridedBatched_64_full_rank = hipblasCgemmStridedBatched_64_(handle,transA, & - transB,m,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta), & - c_loc(CP),ldc,strideC,batchCount) + hipblasCsyrkxStridedBatched_64_strided_rank_devptr = hipblasCsyrkxStridedBatched_64_(handle, & + uplo,transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc, & + strideC,batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasZgemmStridedBatched_64_assumed_rank(handle,transA,transB,m,n,k,alpha,AP,lda, & + function hipblasZsyrkxStridedBatched_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda, & strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemmStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkxStridedBatched_64_assumed_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int64_t) :: m integer(c_int64_t) :: n integer(c_int64_t) :: k complex(c_double_complex),target :: alpha @@ -87329,21 +141688,46 @@ function hipblasZgemmStridedBatched_64_assumed_rank(handle,transA,transB,m,n,k,a integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasZgemmStridedBatched_64_assumed_rank = hipblasZgemmStridedBatched_64_(handle,transA, & - transB,m,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta), & - c_loc(CP),ldc,strideC,batchCount) + hipblasZsyrkxStridedBatched_64_assumed_rank = hipblasZsyrkxStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) + end function + + function hipblasZsyrkxStridedBatched_64_assumed_rank_devptr(handle,uplo,transA,n,k,alpha,AP, & + lda,strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkxStridedBatched_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZsyrkxStridedBatched_64_assumed_rank_devptr = hipblasZsyrkxStridedBatched_64_(handle, & + uplo,transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc, & + strideC,batchCount) end function #else - function hipblasZgemmStridedBatched_64_rank_0(handle,transA,transB,m,n,k,alpha,AP,lda,strideA, & - BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZsyrkxStridedBatched_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemmStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkxStridedBatched_64_rank_0 type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int64_t) :: m integer(c_int64_t) :: n integer(c_int64_t) :: k complex(c_double_complex),target :: alpha @@ -87359,20 +141743,45 @@ function hipblasZgemmStridedBatched_64_rank_0(handle,transA,transB,m,n,k,alpha,A integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasZgemmStridedBatched_64_rank_0 = hipblasZgemmStridedBatched_64_(handle,transA,transB, & - m,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + hipblasZsyrkxStridedBatched_64_rank_0 = hipblasZsyrkxStridedBatched_64_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & strideC,batchCount) end function - function hipblasZgemmStridedBatched_64_rank_1(handle,transA,transB,m,n,k,alpha,AP,lda,strideA, & - BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZsyrkxStridedBatched_64_rank_0_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemmStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkxStridedBatched_64_rank_0_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_double_complex),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZsyrkxStridedBatched_64_rank_0_devptr = hipblasZsyrkxStridedBatched_64_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) + end function + + function hipblasZsyrkxStridedBatched_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkxStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int64_t) :: m integer(c_int64_t) :: n integer(c_int64_t) :: k complex(c_double_complex),target :: alpha @@ -87388,20 +141797,45 @@ function hipblasZgemmStridedBatched_64_rank_1(handle,transA,transB,m,n,k,alpha,A integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasZgemmStridedBatched_64_rank_1 = hipblasZgemmStridedBatched_64_(handle,transA,transB, & - m,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + hipblasZsyrkxStridedBatched_64_rank_1 = hipblasZsyrkxStridedBatched_64_(handle,uplo,transA, & + n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & strideC,batchCount) end function - function hipblasZgemmStridedBatched_64_full_rank(handle,transA,transB,m,n,k,alpha,AP,lda, & + function hipblasZsyrkxStridedBatched_64_rank_1_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgemmStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkxStridedBatched_64_rank_1_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZsyrkxStridedBatched_64_rank_1_devptr = hipblasZsyrkxStridedBatched_64_(handle,uplo, & + transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) + end function + + function hipblasZsyrkxStridedBatched_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkxStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int64_t) :: m integer(c_int64_t) :: n integer(c_int64_t) :: k complex(c_double_complex),target :: alpha @@ -87417,11645 +141851,12069 @@ function hipblasZgemmStridedBatched_64_full_rank(handle,transA,transB,m,n,k,alph integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasZgemmStridedBatched_64_full_rank = hipblasZgemmStridedBatched_64_(handle,transA, & - transB,m,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta), & - c_loc(CP),ldc,strideC,batchCount) + hipblasZsyrkxStridedBatched_64_full_rank = hipblasZsyrkxStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) + end function + + function hipblasZsyrkxStridedBatched_64_full_rank_devptr(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkxStridedBatched_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZsyrkxStridedBatched_64_full_rank_devptr = hipblasZsyrkxStridedBatched_64_(handle, & + uplo,transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasZsyrkxStridedBatched_64_strided_rank(handle,uplo,transA,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkxStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZsyrkxStridedBatched_64_strided_rank = hipblasZsyrkxStridedBatched_64_(handle,uplo, & + transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) + end function + + function hipblasZsyrkxStridedBatched_64_strided_rank_devptr(handle,uplo,transA,n,k,alpha,AP, & + lda,strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkxStridedBatched_64_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:,:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZsyrkxStridedBatched_64_strided_rank_devptr = hipblasZsyrkxStridedBatched_64_(handle, & + uplo,transA,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc, & + strideC,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSgeam_assumed_rank(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeam_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_float),target :: beta + real(c_float),target,dimension(..) :: BP + integer(c_int) :: ldb + real(c_float),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasSgeam_assumed_rank = hipblasSgeam_(handle,transA,transB,m,n,c_loc(alpha),c_loc(AP), & + lda,c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) + end function + + function hipblasSgeam_assumed_rank_devptr(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb, & + CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeam_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + type(c_ptr),value :: beta + real(c_float),target,dimension(..) :: BP + integer(c_int) :: ldb + real(c_float),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasSgeam_assumed_rank_devptr = hipblasSgeam_(handle,transA,transB,m,n,alpha,c_loc(AP), & + lda,beta,c_loc(BP),ldb,c_loc(CP),ldc) + end function + +#else + function hipblasSgeam_rank_0(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeam_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int) :: lda + real(c_float),target :: beta + real(c_float),target :: BP + integer(c_int) :: ldb + real(c_float),target :: CP + integer(c_int) :: ldc + ! + hipblasSgeam_rank_0 = hipblasSgeam_(handle,transA,transB,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) + end function + + function hipblasSgeam_rank_0_devptr(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeam_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target :: AP + integer(c_int) :: lda + type(c_ptr),value :: beta + real(c_float),target :: BP + integer(c_int) :: ldb + real(c_float),target :: CP + integer(c_int) :: ldc + ! + hipblasSgeam_rank_0_devptr = hipblasSgeam_(handle,transA,transB,m,n,alpha,c_loc(AP),lda, & + beta,c_loc(BP),ldb,c_loc(CP),ldc) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCherk_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) - use iso_c_binding + function hipblasSgeam_rank_1(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherk_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeam_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k real(c_float),target :: alpha - complex(c_float_complex),target,dimension(..) :: AP + real(c_float),target,dimension(:) :: AP integer(c_int) :: lda real(c_float),target :: beta - complex(c_float_complex),target,dimension(..) :: CP + real(c_float),target,dimension(:) :: BP + integer(c_int) :: ldb + real(c_float),target,dimension(:) :: CP integer(c_int) :: ldc ! - hipblasCherk_assumed_rank = hipblasCherk_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(beta),c_loc(CP),ldc) + hipblasSgeam_rank_1 = hipblasSgeam_(handle,transA,transB,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) end function -#else - function hipblasCherk_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) - use iso_c_binding + function hipblasSgeam_rank_1_devptr(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherk_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeam_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - real(c_float),target :: alpha - complex(c_float_complex),target :: AP + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: AP integer(c_int) :: lda - real(c_float),target :: beta - complex(c_float_complex),target :: CP + type(c_ptr),value :: beta + real(c_float),target,dimension(:) :: BP + integer(c_int) :: ldb + real(c_float),target,dimension(:) :: CP integer(c_int) :: ldc ! - hipblasCherk_rank_0 = hipblasCherk_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(beta),c_loc(CP),ldc) + hipblasSgeam_rank_1_devptr = hipblasSgeam_(handle,transA,transB,m,n,alpha,c_loc(AP),lda, & + beta,c_loc(BP),ldb,c_loc(CP),ldc) end function - function hipblasCherk_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) - use iso_c_binding + function hipblasSgeam_full_rank(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherk_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeam_full_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k real(c_float),target :: alpha - complex(c_float_complex),target,dimension(:) :: AP + real(c_float),target,dimension(:,:) :: AP integer(c_int) :: lda real(c_float),target :: beta - complex(c_float_complex),target,dimension(:) :: CP + real(c_float),target,dimension(:,:) :: BP + integer(c_int) :: ldb + real(c_float),target,dimension(:,:) :: CP integer(c_int) :: ldc ! - hipblasCherk_rank_1 = hipblasCherk_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(beta),c_loc(CP),ldc) + hipblasSgeam_full_rank = hipblasSgeam_(handle,transA,transB,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) end function - function hipblasCherk_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) - use iso_c_binding + function hipblasSgeam_full_rank_devptr(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherk_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeam_full_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - real(c_float),target :: alpha - complex(c_float_complex),target,dimension(:,:) :: AP + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:) :: AP integer(c_int) :: lda - real(c_float),target :: beta - complex(c_float_complex),target,dimension(:,:) :: CP + type(c_ptr),value :: beta + real(c_float),target,dimension(:,:) :: BP + integer(c_int) :: ldb + real(c_float),target,dimension(:,:) :: CP integer(c_int) :: ldc ! - hipblasCherk_full_rank = hipblasCherk_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(beta),c_loc(CP),ldc) + hipblasSgeam_full_rank_devptr = hipblasSgeam_(handle,transA,transB,m,n,alpha,c_loc(AP),lda, & + beta,c_loc(BP),ldb,c_loc(CP),ldc) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasZherk_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) - use iso_c_binding + function hipblasDgeam_assumed_rank(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherk_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeam_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k real(c_double),target :: alpha - complex(c_double_complex),target,dimension(..) :: AP + real(c_double),target,dimension(..) :: AP integer(c_int) :: lda real(c_double),target :: beta - complex(c_double_complex),target,dimension(..) :: CP + real(c_double),target,dimension(..) :: BP + integer(c_int) :: ldb + real(c_double),target,dimension(..) :: CP integer(c_int) :: ldc ! - hipblasZherk_assumed_rank = hipblasZherk_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(beta),c_loc(CP),ldc) + hipblasDgeam_assumed_rank = hipblasDgeam_(handle,transA,transB,m,n,c_loc(alpha),c_loc(AP), & + lda,c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) + end function + + function hipblasDgeam_assumed_rank_devptr(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb, & + CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeam_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + type(c_ptr),value :: beta + real(c_double),target,dimension(..) :: BP + integer(c_int) :: ldb + real(c_double),target,dimension(..) :: CP + integer(c_int) :: ldc + ! + hipblasDgeam_assumed_rank_devptr = hipblasDgeam_(handle,transA,transB,m,n,alpha,c_loc(AP), & + lda,beta,c_loc(BP),ldb,c_loc(CP),ldc) end function #else - function hipblasZherk_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) - use iso_c_binding + function hipblasDgeam_rank_0(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherk_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeam_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k real(c_double),target :: alpha - complex(c_double_complex),target :: AP + real(c_double),target :: AP integer(c_int) :: lda real(c_double),target :: beta - complex(c_double_complex),target :: CP + real(c_double),target :: BP + integer(c_int) :: ldb + real(c_double),target :: CP integer(c_int) :: ldc ! - hipblasZherk_rank_0 = hipblasZherk_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(beta),c_loc(CP),ldc) + hipblasDgeam_rank_0 = hipblasDgeam_(handle,transA,transB,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) end function - function hipblasZherk_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) - use iso_c_binding + function hipblasDgeam_rank_0_devptr(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherk_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeam_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target :: AP + integer(c_int) :: lda + type(c_ptr),value :: beta + real(c_double),target :: BP + integer(c_int) :: ldb + real(c_double),target :: CP + integer(c_int) :: ldc + ! + hipblasDgeam_rank_0_devptr = hipblasDgeam_(handle,transA,transB,m,n,alpha,c_loc(AP),lda, & + beta,c_loc(BP),ldb,c_loc(CP),ldc) + end function + + function hipblasDgeam_rank_1(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeam_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k real(c_double),target :: alpha - complex(c_double_complex),target,dimension(:) :: AP + real(c_double),target,dimension(:) :: AP integer(c_int) :: lda real(c_double),target :: beta - complex(c_double_complex),target,dimension(:) :: CP + real(c_double),target,dimension(:) :: BP + integer(c_int) :: ldb + real(c_double),target,dimension(:) :: CP integer(c_int) :: ldc ! - hipblasZherk_rank_1 = hipblasZherk_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(beta),c_loc(CP),ldc) + hipblasDgeam_rank_1 = hipblasDgeam_(handle,transA,transB,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) end function - function hipblasZherk_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) - use iso_c_binding + function hipblasDgeam_rank_1_devptr(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherk_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeam_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + type(c_ptr),value :: beta + real(c_double),target,dimension(:) :: BP + integer(c_int) :: ldb + real(c_double),target,dimension(:) :: CP + integer(c_int) :: ldc + ! + hipblasDgeam_rank_1_devptr = hipblasDgeam_(handle,transA,transB,m,n,alpha,c_loc(AP),lda, & + beta,c_loc(BP),ldb,c_loc(CP),ldc) + end function + + function hipblasDgeam_full_rank(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeam_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k real(c_double),target :: alpha - complex(c_double_complex),target,dimension(:,:) :: AP + real(c_double),target,dimension(:,:) :: AP integer(c_int) :: lda real(c_double),target :: beta - complex(c_double_complex),target,dimension(:,:) :: CP + real(c_double),target,dimension(:,:) :: BP + integer(c_int) :: ldb + real(c_double),target,dimension(:,:) :: CP integer(c_int) :: ldc ! - hipblasZherk_full_rank = hipblasZherk_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(beta),c_loc(CP),ldc) + hipblasDgeam_full_rank = hipblasDgeam_(handle,transA,transB,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) + end function + + function hipblasDgeam_full_rank_devptr(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeam_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + type(c_ptr),value :: beta + real(c_double),target,dimension(:,:) :: BP + integer(c_int) :: ldb + real(c_double),target,dimension(:,:) :: CP + integer(c_int) :: ldc + ! + hipblasDgeam_full_rank_devptr = hipblasDgeam_(handle,transA,transB,m,n,alpha,c_loc(AP),lda, & + beta,c_loc(BP),ldb,c_loc(CP),ldc) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCherk_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) - use iso_c_binding + function hipblasCgeam_assumed_rank(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherk_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeam_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_float),target :: alpha + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha complex(c_float_complex),target,dimension(..) :: AP - integer(c_int64_t) :: lda - real(c_float),target :: beta + integer(c_int) :: lda + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int) :: ldb complex(c_float_complex),target,dimension(..) :: CP - integer(c_int64_t) :: ldc + integer(c_int) :: ldc ! - hipblasCherk_64_assumed_rank = hipblasCherk_64_(handle,uplo,transA,n,k,c_loc(alpha), & - c_loc(AP),lda,c_loc(beta),c_loc(CP),ldc) + hipblasCgeam_assumed_rank = hipblasCgeam_(handle,transA,transB,m,n,c_loc(alpha),c_loc(AP), & + lda,c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) end function -#else - function hipblasCherk_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) - use iso_c_binding + function hipblasCgeam_assumed_rank_devptr(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb, & + CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherk_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeam_assumed_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_float),target :: alpha - complex(c_float_complex),target :: AP - integer(c_int64_t) :: lda - real(c_float),target :: beta - complex(c_float_complex),target :: CP - integer(c_int64_t) :: ldc + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int) :: ldc ! - hipblasCherk_64_rank_0 = hipblasCherk_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(beta),c_loc(CP),ldc) + hipblasCgeam_assumed_rank_devptr = hipblasCgeam_(handle,transA,transB,m,n,alpha,c_loc(AP), & + lda,beta,c_loc(BP),ldb,c_loc(CP),ldc) end function - function hipblasCherk_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) - use iso_c_binding +#else + function hipblasCgeam_rank_0(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherk_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeam_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_float),target :: alpha - complex(c_float_complex),target,dimension(:) :: AP - integer(c_int64_t) :: lda - real(c_float),target :: beta - complex(c_float_complex),target,dimension(:) :: CP - integer(c_int64_t) :: ldc + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: BP + integer(c_int) :: ldb + complex(c_float_complex),target :: CP + integer(c_int) :: ldc ! - hipblasCherk_64_rank_1 = hipblasCherk_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(beta),c_loc(CP),ldc) + hipblasCgeam_rank_0 = hipblasCgeam_(handle,transA,transB,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) end function - function hipblasCherk_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) - use iso_c_binding + function hipblasCgeam_rank_0_devptr(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherk_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeam_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_float),target :: alpha - complex(c_float_complex),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - real(c_float),target :: beta - complex(c_float_complex),target,dimension(:,:) :: CP - integer(c_int64_t) :: ldc + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target :: AP + integer(c_int) :: lda + type(c_ptr),value :: beta + complex(c_float_complex),target :: BP + integer(c_int) :: ldb + complex(c_float_complex),target :: CP + integer(c_int) :: ldc ! - hipblasCherk_64_full_rank = hipblasCherk_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & - lda,c_loc(beta),c_loc(CP),ldc) + hipblasCgeam_rank_0_devptr = hipblasCgeam_(handle,transA,transB,m,n,alpha,c_loc(AP),lda, & + beta,c_loc(BP),ldb,c_loc(CP),ldc) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZherk_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) - use iso_c_binding + function hipblasCgeam_rank_1(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherk_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeam_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_double),target :: alpha - complex(c_double_complex),target,dimension(..) :: AP - integer(c_int64_t) :: lda - real(c_double),target :: beta - complex(c_double_complex),target,dimension(..) :: CP - integer(c_int64_t) :: ldc + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int) :: ldc ! - hipblasZherk_64_assumed_rank = hipblasZherk_64_(handle,uplo,transA,n,k,c_loc(alpha), & - c_loc(AP),lda,c_loc(beta),c_loc(CP),ldc) + hipblasCgeam_rank_1 = hipblasCgeam_(handle,transA,transB,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) end function -#else - function hipblasZherk_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) - use iso_c_binding + function hipblasCgeam_rank_1_devptr(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherk_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeam_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_double),target :: alpha - complex(c_double_complex),target :: AP - integer(c_int64_t) :: lda - real(c_double),target :: beta - complex(c_double_complex),target :: CP - integer(c_int64_t) :: ldc + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int) :: ldc ! - hipblasZherk_64_rank_0 = hipblasZherk_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(beta),c_loc(CP),ldc) + hipblasCgeam_rank_1_devptr = hipblasCgeam_(handle,transA,transB,m,n,alpha,c_loc(AP),lda, & + beta,c_loc(BP),ldb,c_loc(CP),ldc) end function - function hipblasZherk_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) - use iso_c_binding + function hipblasCgeam_full_rank(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherk_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeam_full_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_double),target :: alpha - complex(c_double_complex),target,dimension(:) :: AP - integer(c_int64_t) :: lda - real(c_double),target :: beta - complex(c_double_complex),target,dimension(:) :: CP - integer(c_int64_t) :: ldc + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc ! - hipblasZherk_64_rank_1 = hipblasZherk_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(beta),c_loc(CP),ldc) + hipblasCgeam_full_rank = hipblasCgeam_(handle,transA,transB,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) end function - function hipblasZherk_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) - use iso_c_binding + function hipblasCgeam_full_rank_devptr(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherk_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeam_full_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_double),target :: alpha - complex(c_double_complex),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - real(c_double),target :: beta - complex(c_double_complex),target,dimension(:,:) :: CP - integer(c_int64_t) :: ldc + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc ! - hipblasZherk_64_full_rank = hipblasZherk_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & - lda,c_loc(beta),c_loc(CP),ldc) + hipblasCgeam_full_rank_devptr = hipblasCgeam_(handle,transA,transB,m,n,alpha,c_loc(AP),lda, & + beta,c_loc(BP),ldb,c_loc(CP),ldc) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCherkStridedBatched_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & - beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZgeam_assumed_rank(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeam_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - real(c_float),target :: alpha - complex(c_float_complex),target,dimension(..) :: AP + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_float),target :: beta - complex(c_float_complex),target,dimension(..) :: CP + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + complex(c_double_complex),target,dimension(..) :: CP integer(c_int) :: ldc - integer(c_int64_t) :: strideC - integer(c_int) :: batchCount ! - hipblasCherkStridedBatched_assumed_rank = hipblasCherkStridedBatched_(handle,uplo,transA,n, & - k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + hipblasZgeam_assumed_rank = hipblasZgeam_(handle,transA,transB,m,n,c_loc(alpha),c_loc(AP), & + lda,c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) end function -#else - function hipblasCherkStridedBatched_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta, & - CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZgeam_assumed_rank_devptr(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb, & + CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeam_assumed_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - real(c_float),target :: alpha - complex(c_float_complex),target :: AP + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: AP integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_float),target :: beta - complex(c_float_complex),target :: CP + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + complex(c_double_complex),target,dimension(..) :: CP integer(c_int) :: ldc - integer(c_int64_t) :: strideC - integer(c_int) :: batchCount ! - hipblasCherkStridedBatched_rank_0 = hipblasCherkStridedBatched_(handle,uplo,transA,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + hipblasZgeam_assumed_rank_devptr = hipblasZgeam_(handle,transA,transB,m,n,alpha,c_loc(AP), & + lda,beta,c_loc(BP),ldb,c_loc(CP),ldc) end function - function hipblasCherkStridedBatched_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta, & - CP,ldc,strideC,batchCount) - use iso_c_binding +#else + function hipblasZgeam_rank_0(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeam_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - real(c_float),target :: alpha - complex(c_float_complex),target,dimension(:) :: AP + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_float),target :: beta - complex(c_float_complex),target,dimension(:) :: CP + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: BP + integer(c_int) :: ldb + complex(c_double_complex),target :: CP integer(c_int) :: ldc - integer(c_int64_t) :: strideC - integer(c_int) :: batchCount ! - hipblasCherkStridedBatched_rank_1 = hipblasCherkStridedBatched_(handle,uplo,transA,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + hipblasZgeam_rank_0 = hipblasZgeam_(handle,transA,transB,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) end function - function hipblasCherkStridedBatched_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & - beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZgeam_rank_0_devptr(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeam_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - real(c_float),target :: alpha - complex(c_float_complex),target,dimension(:,:) :: AP + type(c_ptr),value :: alpha + complex(c_double_complex),target :: AP integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_float),target :: beta - complex(c_float_complex),target,dimension(:,:) :: CP + type(c_ptr),value :: beta + complex(c_double_complex),target :: BP + integer(c_int) :: ldb + complex(c_double_complex),target :: CP integer(c_int) :: ldc - integer(c_int64_t) :: strideC - integer(c_int) :: batchCount ! - hipblasCherkStridedBatched_full_rank = hipblasCherkStridedBatched_(handle,uplo,transA,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + hipblasZgeam_rank_0_devptr = hipblasZgeam_(handle,transA,transB,m,n,alpha,c_loc(AP),lda, & + beta,c_loc(BP),ldb,c_loc(CP),ldc) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZherkStridedBatched_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & - beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZgeam_rank_1(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeam_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - real(c_double),target :: alpha - complex(c_double_complex),target,dimension(..) :: AP + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_double),target :: beta - complex(c_double_complex),target,dimension(..) :: CP + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + complex(c_double_complex),target,dimension(:) :: CP integer(c_int) :: ldc - integer(c_int64_t) :: strideC - integer(c_int) :: batchCount ! - hipblasZherkStridedBatched_assumed_rank = hipblasZherkStridedBatched_(handle,uplo,transA,n, & - k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + hipblasZgeam_rank_1 = hipblasZgeam_(handle,transA,transB,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) end function -#else - function hipblasZherkStridedBatched_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta, & - CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZgeam_rank_1_devptr(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeam_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - real(c_double),target :: alpha - complex(c_double_complex),target :: AP + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: AP integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_double),target :: beta - complex(c_double_complex),target :: CP + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + complex(c_double_complex),target,dimension(:) :: CP integer(c_int) :: ldc - integer(c_int64_t) :: strideC - integer(c_int) :: batchCount ! - hipblasZherkStridedBatched_rank_0 = hipblasZherkStridedBatched_(handle,uplo,transA,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + hipblasZgeam_rank_1_devptr = hipblasZgeam_(handle,transA,transB,m,n,alpha,c_loc(AP),lda, & + beta,c_loc(BP),ldb,c_loc(CP),ldc) end function - function hipblasZherkStridedBatched_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta, & - CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZgeam_full_rank(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeam_full_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - real(c_double),target :: alpha - complex(c_double_complex),target,dimension(:) :: AP + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_double),target :: beta - complex(c_double_complex),target,dimension(:) :: CP + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + complex(c_double_complex),target,dimension(:,:) :: CP integer(c_int) :: ldc - integer(c_int64_t) :: strideC - integer(c_int) :: batchCount ! - hipblasZherkStridedBatched_rank_1 = hipblasZherkStridedBatched_(handle,uplo,transA,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + hipblasZgeam_full_rank = hipblasZgeam_(handle,transA,transB,m,n,c_loc(alpha),c_loc(AP),lda, & + c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) end function - function hipblasZherkStridedBatched_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & - beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZgeam_full_rank_devptr(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeam_full_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - real(c_double),target :: alpha + type(c_ptr),value :: alpha complex(c_double_complex),target,dimension(:,:) :: AP integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_double),target :: beta + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb complex(c_double_complex),target,dimension(:,:) :: CP integer(c_int) :: ldc - integer(c_int64_t) :: strideC - integer(c_int) :: batchCount ! - hipblasZherkStridedBatched_full_rank = hipblasZherkStridedBatched_(handle,uplo,transA,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + hipblasZgeam_full_rank_devptr = hipblasZgeam_(handle,transA,transB,m,n,alpha,c_loc(AP),lda, & + beta,c_loc(BP),ldb,c_loc(CP),ldc) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCherkStridedBatched_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda, & - strideA,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasSgeam_64_assumed_rank(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeam_64_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k real(c_float),target :: alpha - complex(c_float_complex),target,dimension(..) :: AP + real(c_float),target,dimension(..) :: AP integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA real(c_float),target :: beta - complex(c_float_complex),target,dimension(..) :: CP + real(c_float),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + real(c_float),target,dimension(..) :: CP integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount ! - hipblasCherkStridedBatched_64_assumed_rank = hipblasCherkStridedBatched_64_(handle,uplo, & - transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + hipblasSgeam_64_assumed_rank = hipblasSgeam_64_(handle,transA,transB,m,n,c_loc(alpha), & + c_loc(AP),lda,c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) end function -#else - function hipblasCherkStridedBatched_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & - beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasSgeam_64_assumed_rank_devptr(handle,transA,transB,m,n,alpha,AP,lda,beta,BP, & + ldb,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeam_64_assumed_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_float),target :: alpha - complex(c_float_complex),target :: AP + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: AP integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - real(c_float),target :: beta - complex(c_float_complex),target :: CP + type(c_ptr),value :: beta + real(c_float),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + real(c_float),target,dimension(..) :: CP integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount ! - hipblasCherkStridedBatched_64_rank_0 = hipblasCherkStridedBatched_64_(handle,uplo,transA,n, & - k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + hipblasSgeam_64_assumed_rank_devptr = hipblasSgeam_64_(handle,transA,transB,m,n,alpha, & + c_loc(AP),lda,beta,c_loc(BP),ldb,c_loc(CP),ldc) end function - function hipblasCherkStridedBatched_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & - beta,CP,ldc,strideC,batchCount) - use iso_c_binding +#else + function hipblasSgeam_64_rank_0(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeam_64_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k real(c_float),target :: alpha - complex(c_float_complex),target,dimension(:) :: AP + real(c_float),target :: AP integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA real(c_float),target :: beta - complex(c_float_complex),target,dimension(:) :: CP + real(c_float),target :: BP + integer(c_int64_t) :: ldb + real(c_float),target :: CP integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount ! - hipblasCherkStridedBatched_64_rank_1 = hipblasCherkStridedBatched_64_(handle,uplo,transA,n, & - k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + hipblasSgeam_64_rank_0 = hipblasSgeam_64_(handle,transA,transB,m,n,c_loc(alpha),c_loc(AP), & + lda,c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) end function - function hipblasCherkStridedBatched_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & - beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasSgeam_64_rank_0_devptr(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeam_64_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_float),target :: alpha - complex(c_float_complex),target,dimension(:,:) :: AP + type(c_ptr),value :: alpha + real(c_float),target :: AP integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - real(c_float),target :: beta - complex(c_float_complex),target,dimension(:,:) :: CP + type(c_ptr),value :: beta + real(c_float),target :: BP + integer(c_int64_t) :: ldb + real(c_float),target :: CP integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount ! - hipblasCherkStridedBatched_64_full_rank = hipblasCherkStridedBatched_64_(handle,uplo,transA, & - n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + hipblasSgeam_64_rank_0_devptr = hipblasSgeam_64_(handle,transA,transB,m,n,alpha,c_loc(AP), & + lda,beta,c_loc(BP),ldb,c_loc(CP),ldc) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZherkStridedBatched_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda, & - strideA,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasSgeam_64_rank_1(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeam_64_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_double),target :: alpha - complex(c_double_complex),target,dimension(..) :: AP + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - real(c_double),target :: beta - complex(c_double_complex),target,dimension(..) :: CP + real(c_float),target :: beta + real(c_float),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + real(c_float),target,dimension(:) :: CP integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount ! - hipblasZherkStridedBatched_64_assumed_rank = hipblasZherkStridedBatched_64_(handle,uplo, & - transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + hipblasSgeam_64_rank_1 = hipblasSgeam_64_(handle,transA,transB,m,n,c_loc(alpha),c_loc(AP), & + lda,c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) end function -#else - function hipblasZherkStridedBatched_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & - beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasSgeam_64_rank_1_devptr(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeam_64_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_double),target :: alpha - complex(c_double_complex),target :: AP + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: AP integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - real(c_double),target :: beta - complex(c_double_complex),target :: CP + type(c_ptr),value :: beta + real(c_float),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + real(c_float),target,dimension(:) :: CP integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount ! - hipblasZherkStridedBatched_64_rank_0 = hipblasZherkStridedBatched_64_(handle,uplo,transA,n, & - k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + hipblasSgeam_64_rank_1_devptr = hipblasSgeam_64_(handle,transA,transB,m,n,alpha,c_loc(AP), & + lda,beta,c_loc(BP),ldb,c_loc(CP),ldc) end function - function hipblasZherkStridedBatched_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & - beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasSgeam_64_full_rank(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeam_64_full_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_double),target :: alpha - complex(c_double_complex),target,dimension(:) :: AP + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - real(c_double),target :: beta - complex(c_double_complex),target,dimension(:) :: CP + real(c_float),target :: beta + real(c_float),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + real(c_float),target,dimension(:,:) :: CP integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount ! - hipblasZherkStridedBatched_64_rank_1 = hipblasZherkStridedBatched_64_(handle,uplo,transA,n, & - k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + hipblasSgeam_64_full_rank = hipblasSgeam_64_(handle,transA,transB,m,n,c_loc(alpha), & + c_loc(AP),lda,c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) end function - function hipblasZherkStridedBatched_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & - beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasSgeam_64_full_rank_devptr(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb, & + CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeam_64_full_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_double),target :: alpha - complex(c_double_complex),target,dimension(:,:) :: AP + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:) :: AP integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - real(c_double),target :: beta - complex(c_double_complex),target,dimension(:,:) :: CP + type(c_ptr),value :: beta + real(c_float),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + real(c_float),target,dimension(:,:) :: CP integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount ! - hipblasZherkStridedBatched_64_full_rank = hipblasZherkStridedBatched_64_(handle,uplo,transA, & - n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + hipblasSgeam_64_full_rank_devptr = hipblasSgeam_64_(handle,transA,transB,m,n,alpha, & + c_loc(AP),lda,beta,c_loc(BP),ldb,c_loc(CP),ldc) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCherkx_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasDgeam_64_assumed_rank(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkx_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeam_64_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int) :: n - integer(c_int) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: AP - integer(c_int) :: lda - complex(c_float_complex),target,dimension(..) :: BP - integer(c_int) :: ldb - real(c_float),target :: beta - complex(c_float_complex),target,dimension(..) :: CP - integer(c_int) :: ldc + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_double),target :: beta + real(c_double),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + real(c_double),target,dimension(..) :: CP + integer(c_int64_t) :: ldc ! - hipblasCherkx_assumed_rank = hipblasCherkx_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & - lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasDgeam_64_assumed_rank = hipblasDgeam_64_(handle,transA,transB,m,n,c_loc(alpha), & + c_loc(AP),lda,c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) end function -#else - function hipblasCherkx_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasDgeam_64_assumed_rank_devptr(handle,transA,transB,m,n,alpha,AP,lda,beta,BP, & + ldb,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkx_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeam_64_assumed_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int) :: n - integer(c_int) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: AP - integer(c_int) :: lda - complex(c_float_complex),target :: BP - integer(c_int) :: ldb - real(c_float),target :: beta - complex(c_float_complex),target :: CP - integer(c_int) :: ldc + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + type(c_ptr),value :: beta + real(c_double),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + real(c_double),target,dimension(..) :: CP + integer(c_int64_t) :: ldc ! - hipblasCherkx_rank_0 = hipblasCherkx_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasDgeam_64_assumed_rank_devptr = hipblasDgeam_64_(handle,transA,transB,m,n,alpha, & + c_loc(AP),lda,beta,c_loc(BP),ldb,c_loc(CP),ldc) end function - function hipblasCherkx_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding +#else + function hipblasDgeam_64_rank_0(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkx_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeam_64_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int) :: n - integer(c_int) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: AP - integer(c_int) :: lda - complex(c_float_complex),target,dimension(:) :: BP - integer(c_int) :: ldb - real(c_float),target :: beta - complex(c_float_complex),target,dimension(:) :: CP - integer(c_int) :: ldc + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int64_t) :: lda + real(c_double),target :: beta + real(c_double),target :: BP + integer(c_int64_t) :: ldb + real(c_double),target :: CP + integer(c_int64_t) :: ldc ! - hipblasCherkx_rank_1 = hipblasCherkx_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasDgeam_64_rank_0 = hipblasDgeam_64_(handle,transA,transB,m,n,c_loc(alpha),c_loc(AP), & + lda,c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) end function - function hipblasCherkx_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasDgeam_64_rank_0_devptr(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkx_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeam_64_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int) :: n - integer(c_int) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:,:) :: AP - integer(c_int) :: lda - complex(c_float_complex),target,dimension(:,:) :: BP - integer(c_int) :: ldb - real(c_float),target :: beta - complex(c_float_complex),target,dimension(:,:) :: CP - integer(c_int) :: ldc + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target :: AP + integer(c_int64_t) :: lda + type(c_ptr),value :: beta + real(c_double),target :: BP + integer(c_int64_t) :: ldb + real(c_double),target :: CP + integer(c_int64_t) :: ldc ! - hipblasCherkx_full_rank = hipblasCherkx_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasDgeam_64_rank_0_devptr = hipblasDgeam_64_(handle,transA,transB,m,n,alpha,c_loc(AP), & + lda,beta,c_loc(BP),ldb,c_loc(CP),ldc) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZherkx_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasDgeam_64_rank_1(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkx_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeam_64_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int) :: n - integer(c_int) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: AP - integer(c_int) :: lda - complex(c_double_complex),target,dimension(..) :: BP - integer(c_int) :: ldb + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda real(c_double),target :: beta - complex(c_double_complex),target,dimension(..) :: CP - integer(c_int) :: ldc + real(c_double),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + real(c_double),target,dimension(:) :: CP + integer(c_int64_t) :: ldc ! - hipblasZherkx_assumed_rank = hipblasZherkx_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & - lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasDgeam_64_rank_1 = hipblasDgeam_64_(handle,transA,transB,m,n,c_loc(alpha),c_loc(AP), & + lda,c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) end function -#else - function hipblasZherkx_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasDgeam_64_rank_1_devptr(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkx_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeam_64_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int) :: n - integer(c_int) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: AP - integer(c_int) :: lda - complex(c_double_complex),target :: BP - integer(c_int) :: ldb - real(c_double),target :: beta - complex(c_double_complex),target :: CP - integer(c_int) :: ldc + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + type(c_ptr),value :: beta + real(c_double),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + real(c_double),target,dimension(:) :: CP + integer(c_int64_t) :: ldc ! - hipblasZherkx_rank_0 = hipblasZherkx_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasDgeam_64_rank_1_devptr = hipblasDgeam_64_(handle,transA,transB,m,n,alpha,c_loc(AP), & + lda,beta,c_loc(BP),ldb,c_loc(CP),ldc) end function - function hipblasZherkx_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasDgeam_64_full_rank(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkx_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeam_64_full_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int) :: n - integer(c_int) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: AP - integer(c_int) :: lda - complex(c_double_complex),target,dimension(:) :: BP - integer(c_int) :: ldb + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda real(c_double),target :: beta - complex(c_double_complex),target,dimension(:) :: CP - integer(c_int) :: ldc + real(c_double),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + real(c_double),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc ! - hipblasZherkx_rank_1 = hipblasZherkx_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasDgeam_64_full_rank = hipblasDgeam_64_(handle,transA,transB,m,n,c_loc(alpha), & + c_loc(AP),lda,c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) end function - function hipblasZherkx_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasDgeam_64_full_rank_devptr(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb, & + CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkx_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeam_64_full_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int) :: n - integer(c_int) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:,:) :: AP - integer(c_int) :: lda - complex(c_double_complex),target,dimension(:,:) :: BP - integer(c_int) :: ldb - real(c_double),target :: beta - complex(c_double_complex),target,dimension(:,:) :: CP - integer(c_int) :: ldc + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + type(c_ptr),value :: beta + real(c_double),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + real(c_double),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc ! - hipblasZherkx_full_rank = hipblasZherkx_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasDgeam_64_full_rank_devptr = hipblasDgeam_64_(handle,transA,transB,m,n,alpha, & + c_loc(AP),lda,beta,c_loc(BP),ldb,c_loc(CP),ldc) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCherkx_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasCgeam_64_assumed_rank(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkx_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeam_64_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k complex(c_float_complex),target :: alpha complex(c_float_complex),target,dimension(..) :: AP integer(c_int64_t) :: lda + complex(c_float_complex),target :: beta complex(c_float_complex),target,dimension(..) :: BP integer(c_int64_t) :: ldb - real(c_float),target :: beta complex(c_float_complex),target,dimension(..) :: CP integer(c_int64_t) :: ldc ! - hipblasCherkx_64_assumed_rank = hipblasCherkx_64_(handle,uplo,transA,n,k,c_loc(alpha), & - c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasCgeam_64_assumed_rank = hipblasCgeam_64_(handle,transA,transB,m,n,c_loc(alpha), & + c_loc(AP),lda,c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) + end function + + function hipblasCgeam_64_assumed_rank_devptr(handle,transA,transB,m,n,alpha,AP,lda,beta,BP, & + ldb,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeam_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCgeam_64_assumed_rank_devptr = hipblasCgeam_64_(handle,transA,transB,m,n,alpha, & + c_loc(AP),lda,beta,c_loc(BP),ldb,c_loc(CP),ldc) end function #else - function hipblasCherkx_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasCgeam_64_rank_0(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkx_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeam_64_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k complex(c_float_complex),target :: alpha complex(c_float_complex),target :: AP integer(c_int64_t) :: lda + complex(c_float_complex),target :: beta complex(c_float_complex),target :: BP integer(c_int64_t) :: ldb - real(c_float),target :: beta complex(c_float_complex),target :: CP integer(c_int64_t) :: ldc ! - hipblasCherkx_64_rank_0 = hipblasCherkx_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & - lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasCgeam_64_rank_0 = hipblasCgeam_64_(handle,transA,transB,m,n,c_loc(alpha),c_loc(AP), & + lda,c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) end function - function hipblasCherkx_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasCgeam_64_rank_0_devptr(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkx_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeam_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + type(c_ptr),value :: beta + complex(c_float_complex),target :: BP + integer(c_int64_t) :: ldb + complex(c_float_complex),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasCgeam_64_rank_0_devptr = hipblasCgeam_64_(handle,transA,transB,m,n,alpha,c_loc(AP), & + lda,beta,c_loc(BP),ldb,c_loc(CP),ldc) + end function + + function hipblasCgeam_64_rank_1(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeam_64_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k complex(c_float_complex),target :: alpha complex(c_float_complex),target,dimension(:) :: AP integer(c_int64_t) :: lda + complex(c_float_complex),target :: beta complex(c_float_complex),target,dimension(:) :: BP integer(c_int64_t) :: ldb - real(c_float),target :: beta complex(c_float_complex),target,dimension(:) :: CP integer(c_int64_t) :: ldc ! - hipblasCherkx_64_rank_1 = hipblasCherkx_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & - lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasCgeam_64_rank_1 = hipblasCgeam_64_(handle,transA,transB,m,n,c_loc(alpha),c_loc(AP), & + lda,c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) end function - function hipblasCherkx_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasCgeam_64_rank_1_devptr(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkx_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeam_64_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCgeam_64_rank_1_devptr = hipblasCgeam_64_(handle,transA,transB,m,n,alpha,c_loc(AP), & + lda,beta,c_loc(BP),ldb,c_loc(CP),ldc) + end function + + function hipblasCgeam_64_full_rank(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeam_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k complex(c_float_complex),target :: alpha complex(c_float_complex),target,dimension(:,:) :: AP integer(c_int64_t) :: lda + complex(c_float_complex),target :: beta complex(c_float_complex),target,dimension(:,:) :: BP integer(c_int64_t) :: ldb - real(c_float),target :: beta complex(c_float_complex),target,dimension(:,:) :: CP integer(c_int64_t) :: ldc ! - hipblasCherkx_64_full_rank = hipblasCherkx_64_(handle,uplo,transA,n,k,c_loc(alpha), & - c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasCgeam_64_full_rank = hipblasCgeam_64_(handle,transA,transB,m,n,c_loc(alpha), & + c_loc(AP),lda,c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) + end function + + function hipblasCgeam_64_full_rank_devptr(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb, & + CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeam_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasCgeam_64_full_rank_devptr = hipblasCgeam_64_(handle,transA,transB,m,n,alpha, & + c_loc(AP),lda,beta,c_loc(BP),ldb,c_loc(CP),ldc) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasZherkx_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasZgeam_64_assumed_rank(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkx_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeam_64_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k complex(c_double_complex),target :: alpha complex(c_double_complex),target,dimension(..) :: AP integer(c_int64_t) :: lda + complex(c_double_complex),target :: beta complex(c_double_complex),target,dimension(..) :: BP integer(c_int64_t) :: ldb - real(c_double),target :: beta complex(c_double_complex),target,dimension(..) :: CP integer(c_int64_t) :: ldc ! - hipblasZherkx_64_assumed_rank = hipblasZherkx_64_(handle,uplo,transA,n,k,c_loc(alpha), & - c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasZgeam_64_assumed_rank = hipblasZgeam_64_(handle,transA,transB,m,n,c_loc(alpha), & + c_loc(AP),lda,c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) + end function + + function hipblasZgeam_64_assumed_rank_devptr(handle,transA,transB,m,n,alpha,AP,lda,beta,BP, & + ldb,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeam_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZgeam_64_assumed_rank_devptr = hipblasZgeam_64_(handle,transA,transB,m,n,alpha, & + c_loc(AP),lda,beta,c_loc(BP),ldb,c_loc(CP),ldc) end function #else - function hipblasZherkx_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasZgeam_64_rank_0(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkx_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeam_64_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k complex(c_double_complex),target :: alpha complex(c_double_complex),target :: AP integer(c_int64_t) :: lda + complex(c_double_complex),target :: beta complex(c_double_complex),target :: BP integer(c_int64_t) :: ldb - real(c_double),target :: beta complex(c_double_complex),target :: CP integer(c_int64_t) :: ldc ! - hipblasZherkx_64_rank_0 = hipblasZherkx_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & - lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasZgeam_64_rank_0 = hipblasZgeam_64_(handle,transA,transB,m,n,c_loc(alpha),c_loc(AP), & + lda,c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) end function - function hipblasZherkx_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasZgeam_64_rank_0_devptr(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkx_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeam_64_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + type(c_ptr),value :: beta + complex(c_double_complex),target :: BP + integer(c_int64_t) :: ldb + complex(c_double_complex),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasZgeam_64_rank_0_devptr = hipblasZgeam_64_(handle,transA,transB,m,n,alpha,c_loc(AP), & + lda,beta,c_loc(BP),ldb,c_loc(CP),ldc) + end function + + function hipblasZgeam_64_rank_1(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeam_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k complex(c_double_complex),target :: alpha complex(c_double_complex),target,dimension(:) :: AP integer(c_int64_t) :: lda + complex(c_double_complex),target :: beta complex(c_double_complex),target,dimension(:) :: BP integer(c_int64_t) :: ldb - real(c_double),target :: beta complex(c_double_complex),target,dimension(:) :: CP integer(c_int64_t) :: ldc ! - hipblasZherkx_64_rank_1 = hipblasZherkx_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & - lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasZgeam_64_rank_1 = hipblasZgeam_64_(handle,transA,transB,m,n,c_loc(alpha),c_loc(AP), & + lda,c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) end function - function hipblasZherkx_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasZgeam_64_rank_1_devptr(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkx_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeam_64_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZgeam_64_rank_1_devptr = hipblasZgeam_64_(handle,transA,transB,m,n,alpha,c_loc(AP), & + lda,beta,c_loc(BP),ldb,c_loc(CP),ldc) + end function + + function hipblasZgeam_64_full_rank(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeam_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k complex(c_double_complex),target :: alpha complex(c_double_complex),target,dimension(:,:) :: AP integer(c_int64_t) :: lda + complex(c_double_complex),target :: beta complex(c_double_complex),target,dimension(:,:) :: BP integer(c_int64_t) :: ldb - real(c_double),target :: beta complex(c_double_complex),target,dimension(:,:) :: CP integer(c_int64_t) :: ldc ! - hipblasZherkx_64_full_rank = hipblasZherkx_64_(handle,uplo,transA,n,k,c_loc(alpha), & - c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasZgeam_64_full_rank = hipblasZgeam_64_(handle,transA,transB,m,n,c_loc(alpha), & + c_loc(AP),lda,c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) + end function + + function hipblasZgeam_64_full_rank_devptr(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb, & + CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeam_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZgeam_64_full_rank_devptr = hipblasZgeam_64_(handle,transA,transB,m,n,alpha, & + c_loc(AP),lda,beta,c_loc(BP),ldb,c_loc(CP),ldc) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCherkxStridedBatched_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & - BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasSgeamStridedBatched_assumed_rank(handle,transA,transB,m,n,alpha,AP,lda, & + strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkxStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeamStridedBatched_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: AP + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(..) :: BP + real(c_float),target :: beta + real(c_float),target,dimension(..) :: BP integer(c_int) :: ldb integer(c_int64_t) :: strideB - real(c_float),target :: beta - complex(c_float_complex),target,dimension(..) :: CP + real(c_float),target,dimension(..) :: CP integer(c_int) :: ldc integer(c_int64_t) :: strideC integer(c_int) :: batchCount ! - hipblasCherkxStridedBatched_assumed_rank = hipblasCherkxStridedBatched_(handle,uplo,transA, & - n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + hipblasSgeamStridedBatched_assumed_rank = hipblasSgeamStridedBatched_(handle,transA,transB, & + m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & strideC,batchCount) end function -#else - function hipblasCherkxStridedBatched_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasSgeamStridedBatched_assumed_rank_devptr(handle,transA,transB,m,n,alpha,AP,lda, & + strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkxStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeamStridedBatched_assumed_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: AP + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target :: BP + type(c_ptr),value :: beta + real(c_float),target,dimension(..) :: BP integer(c_int) :: ldb integer(c_int64_t) :: strideB - real(c_float),target :: beta - complex(c_float_complex),target :: CP + real(c_float),target,dimension(..) :: CP integer(c_int) :: ldc integer(c_int64_t) :: strideC integer(c_int) :: batchCount ! - hipblasCherkxStridedBatched_rank_0 = hipblasCherkxStridedBatched_(handle,uplo,transA,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasSgeamStridedBatched_assumed_rank_devptr = hipblasSgeamStridedBatched_(handle,transA, & + transB,m,n,alpha,c_loc(AP),lda,strideA,beta,c_loc(BP),ldb,strideB,c_loc(CP),ldc,strideC, & + batchCount) end function - function hipblasCherkxStridedBatched_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding +#else + function hipblasSgeamStridedBatched_rank_0(handle,transA,transB,m,n,alpha,AP,lda,strideA,beta, & + BP,ldb,strideB,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkxStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeamStridedBatched_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: AP + real(c_float),target :: alpha + real(c_float),target :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:) :: BP + real(c_float),target :: beta + real(c_float),target :: BP integer(c_int) :: ldb integer(c_int64_t) :: strideB - real(c_float),target :: beta - complex(c_float_complex),target,dimension(:) :: CP + real(c_float),target :: CP integer(c_int) :: ldc integer(c_int64_t) :: strideC integer(c_int) :: batchCount ! - hipblasCherkxStridedBatched_rank_1 = hipblasCherkxStridedBatched_(handle,uplo,transA,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + hipblasSgeamStridedBatched_rank_0 = hipblasSgeamStridedBatched_(handle,transA,transB,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & strideC,batchCount) end function - function hipblasCherkxStridedBatched_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasSgeamStridedBatched_rank_0_devptr(handle,transA,transB,m,n,alpha,AP,lda, & + strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkxStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeamStridedBatched_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:,:) :: AP + type(c_ptr),value :: alpha + real(c_float),target :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:,:) :: BP + type(c_ptr),value :: beta + real(c_float),target :: BP integer(c_int) :: ldb integer(c_int64_t) :: strideB - real(c_float),target :: beta - complex(c_float_complex),target,dimension(:,:) :: CP + real(c_float),target :: CP integer(c_int) :: ldc integer(c_int64_t) :: strideC integer(c_int) :: batchCount ! - hipblasCherkxStridedBatched_full_rank = hipblasCherkxStridedBatched_(handle,uplo,transA,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasSgeamStridedBatched_rank_0_devptr = hipblasSgeamStridedBatched_(handle,transA,transB, & + m,n,alpha,c_loc(AP),lda,strideA,beta,c_loc(BP),ldb,strideB,c_loc(CP),ldc,strideC,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZherkxStridedBatched_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & - BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasSgeamStridedBatched_rank_1(handle,transA,transB,m,n,alpha,AP,lda,strideA,beta, & + BP,ldb,strideB,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkxStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeamStridedBatched_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: AP + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(..) :: BP + real(c_float),target :: beta + real(c_float),target,dimension(:) :: BP integer(c_int) :: ldb integer(c_int64_t) :: strideB - real(c_double),target :: beta - complex(c_double_complex),target,dimension(..) :: CP + real(c_float),target,dimension(:) :: CP integer(c_int) :: ldc integer(c_int64_t) :: strideC integer(c_int) :: batchCount ! - hipblasZherkxStridedBatched_assumed_rank = hipblasZherkxStridedBatched_(handle,uplo,transA, & - n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + hipblasSgeamStridedBatched_rank_1 = hipblasSgeamStridedBatched_(handle,transA,transB,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & strideC,batchCount) end function -#else - function hipblasZherkxStridedBatched_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasSgeamStridedBatched_rank_1_devptr(handle,transA,transB,m,n,alpha,AP,lda, & + strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkxStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeamStridedBatched_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: AP + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target :: BP + type(c_ptr),value :: beta + real(c_float),target,dimension(:) :: BP integer(c_int) :: ldb integer(c_int64_t) :: strideB - real(c_double),target :: beta - complex(c_double_complex),target :: CP + real(c_float),target,dimension(:) :: CP integer(c_int) :: ldc integer(c_int64_t) :: strideC integer(c_int) :: batchCount ! - hipblasZherkxStridedBatched_rank_0 = hipblasZherkxStridedBatched_(handle,uplo,transA,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasSgeamStridedBatched_rank_1_devptr = hipblasSgeamStridedBatched_(handle,transA,transB, & + m,n,alpha,c_loc(AP),lda,strideA,beta,c_loc(BP),ldb,strideB,c_loc(CP),ldc,strideC,batchCount) end function - function hipblasZherkxStridedBatched_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasSgeamStridedBatched_full_rank(handle,transA,transB,m,n,alpha,AP,lda,strideA, & + beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkxStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeamStridedBatched_full_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: AP + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:) :: BP + real(c_float),target :: beta + real(c_float),target,dimension(:,:) :: BP integer(c_int) :: ldb integer(c_int64_t) :: strideB - real(c_double),target :: beta - complex(c_double_complex),target,dimension(:) :: CP + real(c_float),target,dimension(:,:) :: CP integer(c_int) :: ldc integer(c_int64_t) :: strideC integer(c_int) :: batchCount ! - hipblasZherkxStridedBatched_rank_1 = hipblasZherkxStridedBatched_(handle,uplo,transA,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + hipblasSgeamStridedBatched_full_rank = hipblasSgeamStridedBatched_(handle,transA,transB,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & strideC,batchCount) end function - function hipblasZherkxStridedBatched_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasSgeamStridedBatched_full_rank_devptr(handle,transA,transB,m,n,alpha,AP,lda, & + strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkxStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeamStridedBatched_full_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:,:) :: AP + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:) :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:,:) :: BP + type(c_ptr),value :: beta + real(c_float),target,dimension(:,:) :: BP integer(c_int) :: ldb integer(c_int64_t) :: strideB - real(c_double),target :: beta - complex(c_double_complex),target,dimension(:,:) :: CP + real(c_float),target,dimension(:,:) :: CP integer(c_int) :: ldc integer(c_int64_t) :: strideC integer(c_int) :: batchCount ! - hipblasZherkxStridedBatched_full_rank = hipblasZherkxStridedBatched_(handle,uplo,transA,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasSgeamStridedBatched_full_rank_devptr = hipblasSgeamStridedBatched_(handle,transA, & + transB,m,n,alpha,c_loc(AP),lda,strideA,beta,c_loc(BP),ldb,strideB,c_loc(CP),ldc,strideC, & + batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCherkxStridedBatched_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda, & - strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasSgeamStridedBatched_strided_rank(handle,transA,transB,m,n,alpha,AP,lda, & + strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkxStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeamStridedBatched_strided_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: AP - integer(c_int64_t) :: lda + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:,:,:) :: AP + integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(..) :: BP - integer(c_int64_t) :: ldb - integer(c_int64_t) :: strideB real(c_float),target :: beta - complex(c_float_complex),target,dimension(..) :: CP - integer(c_int64_t) :: ldc + real(c_float),target,dimension(:,:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target,dimension(:,:,:) :: CP + integer(c_int) :: ldc integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + integer(c_int) :: batchCount ! - hipblasCherkxStridedBatched_64_assumed_rank = hipblasCherkxStridedBatched_64_(handle,uplo, & - transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & - ldc,strideC,batchCount) + hipblasSgeamStridedBatched_strided_rank = hipblasSgeamStridedBatched_(handle,transA,transB, & + m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & + strideC,batchCount) end function -#else - function hipblasCherkxStridedBatched_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasSgeamStridedBatched_strided_rank_devptr(handle,transA,transB,m,n,alpha,AP,lda, & + strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkxStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeamStridedBatched_strided_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: AP - integer(c_int64_t) :: lda + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:,:) :: AP + integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target :: BP - integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + real(c_float),target,dimension(:,:,:) :: BP + integer(c_int) :: ldb integer(c_int64_t) :: strideB - real(c_float),target :: beta - complex(c_float_complex),target :: CP - integer(c_int64_t) :: ldc + real(c_float),target,dimension(:,:,:) :: CP + integer(c_int) :: ldc integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount - ! - hipblasCherkxStridedBatched_64_rank_0 = hipblasCherkxStridedBatched_64_(handle,uplo,transA, & - n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + integer(c_int) :: batchCount + ! + hipblasSgeamStridedBatched_strided_rank_devptr = hipblasSgeamStridedBatched_(handle,transA, & + transB,m,n,alpha,c_loc(AP),lda,strideA,beta,c_loc(BP),ldb,strideB,c_loc(CP),ldc,strideC, & + batchCount) end function - function hipblasCherkxStridedBatched_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDgeamStridedBatched_assumed_rank(handle,transA,transB,m,n,alpha,AP,lda, & + strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkxStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeamStridedBatched_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: AP - integer(c_int64_t) :: lda + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:) :: BP - integer(c_int64_t) :: ldb + real(c_double),target :: beta + real(c_double),target,dimension(..) :: BP + integer(c_int) :: ldb integer(c_int64_t) :: strideB - real(c_float),target :: beta - complex(c_float_complex),target,dimension(:) :: CP - integer(c_int64_t) :: ldc + real(c_double),target,dimension(..) :: CP + integer(c_int) :: ldc integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + integer(c_int) :: batchCount ! - hipblasCherkxStridedBatched_64_rank_1 = hipblasCherkxStridedBatched_64_(handle,uplo,transA, & - n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + hipblasDgeamStridedBatched_assumed_rank = hipblasDgeamStridedBatched_(handle,transA,transB, & + m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & strideC,batchCount) end function - function hipblasCherkxStridedBatched_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & - BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasDgeamStridedBatched_assumed_rank_devptr(handle,transA,transB,m,n,alpha,AP,lda, & + strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCherkxStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeamStridedBatched_assumed_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:,:) :: BP - integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + real(c_double),target,dimension(..) :: BP + integer(c_int) :: ldb integer(c_int64_t) :: strideB - real(c_float),target :: beta - complex(c_float_complex),target,dimension(:,:) :: CP - integer(c_int64_t) :: ldc + real(c_double),target,dimension(..) :: CP + integer(c_int) :: ldc integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + integer(c_int) :: batchCount ! - hipblasCherkxStridedBatched_64_full_rank = hipblasCherkxStridedBatched_64_(handle,uplo, & - transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & - ldc,strideC,batchCount) + hipblasDgeamStridedBatched_assumed_rank_devptr = hipblasDgeamStridedBatched_(handle,transA, & + transB,m,n,alpha,c_loc(AP),lda,strideA,beta,c_loc(BP),ldb,strideB,c_loc(CP),ldc,strideC, & + batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZherkxStridedBatched_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda, & - strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding +#else + function hipblasDgeamStridedBatched_rank_0(handle,transA,transB,m,n,alpha,AP,lda,strideA,beta, & + BP,ldb,strideB,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkxStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeamStridedBatched_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: AP - integer(c_int64_t) :: lda + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(..) :: BP - integer(c_int64_t) :: ldb - integer(c_int64_t) :: strideB real(c_double),target :: beta - complex(c_double_complex),target,dimension(..) :: CP - integer(c_int64_t) :: ldc + real(c_double),target :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target :: CP + integer(c_int) :: ldc integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + integer(c_int) :: batchCount ! - hipblasZherkxStridedBatched_64_assumed_rank = hipblasZherkxStridedBatched_64_(handle,uplo, & - transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & - ldc,strideC,batchCount) + hipblasDgeamStridedBatched_rank_0 = hipblasDgeamStridedBatched_(handle,transA,transB,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & + strideC,batchCount) end function -#else - function hipblasZherkxStridedBatched_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasDgeamStridedBatched_rank_0_devptr(handle,transA,transB,m,n,alpha,AP,lda, & + strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkxStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeamStridedBatched_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: AP - integer(c_int64_t) :: lda + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target :: AP + integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target :: BP - integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + real(c_double),target :: BP + integer(c_int) :: ldb integer(c_int64_t) :: strideB - real(c_double),target :: beta - complex(c_double_complex),target :: CP - integer(c_int64_t) :: ldc + real(c_double),target :: CP + integer(c_int) :: ldc integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + integer(c_int) :: batchCount ! - hipblasZherkxStridedBatched_64_rank_0 = hipblasZherkxStridedBatched_64_(handle,uplo,transA, & - n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasDgeamStridedBatched_rank_0_devptr = hipblasDgeamStridedBatched_(handle,transA,transB, & + m,n,alpha,c_loc(AP),lda,strideA,beta,c_loc(BP),ldb,strideB,c_loc(CP),ldc,strideC,batchCount) end function - function hipblasZherkxStridedBatched_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasDgeamStridedBatched_rank_1(handle,transA,transB,m,n,alpha,AP,lda,strideA,beta, & + BP,ldb,strideB,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkxStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeamStridedBatched_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: AP - integer(c_int64_t) :: lda + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:) :: BP - integer(c_int64_t) :: ldb - integer(c_int64_t) :: strideB real(c_double),target :: beta - complex(c_double_complex),target,dimension(:) :: CP - integer(c_int64_t) :: ldc + real(c_double),target,dimension(:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target,dimension(:) :: CP + integer(c_int) :: ldc integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + integer(c_int) :: batchCount ! - hipblasZherkxStridedBatched_64_rank_1 = hipblasZherkxStridedBatched_64_(handle,uplo,transA, & - n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + hipblasDgeamStridedBatched_rank_1 = hipblasDgeamStridedBatched_(handle,transA,transB,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & strideC,batchCount) end function - function hipblasZherkxStridedBatched_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & - BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasDgeamStridedBatched_rank_1_devptr(handle,transA,transB,m,n,alpha,AP,lda, & + strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZherkxStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeamStridedBatched_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:,:) :: BP - integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + real(c_double),target,dimension(:) :: BP + integer(c_int) :: ldb integer(c_int64_t) :: strideB - real(c_double),target :: beta - complex(c_double_complex),target,dimension(:,:) :: CP - integer(c_int64_t) :: ldc + real(c_double),target,dimension(:) :: CP + integer(c_int) :: ldc integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + integer(c_int) :: batchCount ! - hipblasZherkxStridedBatched_64_full_rank = hipblasZherkxStridedBatched_64_(handle,uplo, & - transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & - ldc,strideC,batchCount) + hipblasDgeamStridedBatched_rank_1_devptr = hipblasDgeamStridedBatched_(handle,transA,transB, & + m,n,alpha,c_loc(AP),lda,strideA,beta,c_loc(BP),ldb,strideB,c_loc(CP),ldc,strideC,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCher2k_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasDgeamStridedBatched_full_rank(handle,transA,transB,m,n,alpha,AP,lda,strideA, & + beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2k_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeamStridedBatched_full_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: AP + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP integer(c_int) :: lda - complex(c_float_complex),target,dimension(..) :: BP + integer(c_int64_t) :: strideA + real(c_double),target :: beta + real(c_double),target,dimension(:,:) :: BP integer(c_int) :: ldb - real(c_float),target :: beta - complex(c_float_complex),target,dimension(..) :: CP + integer(c_int64_t) :: strideB + real(c_double),target,dimension(:,:) :: CP integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasCher2k_assumed_rank = hipblasCher2k_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & - lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasDgeamStridedBatched_full_rank = hipblasDgeamStridedBatched_(handle,transA,transB,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & + strideC,batchCount) end function -#else - function hipblasCher2k_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasDgeamStridedBatched_full_rank_devptr(handle,transA,transB,m,n,alpha,AP,lda, & + strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2k_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeamStridedBatched_full_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: AP + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:) :: AP integer(c_int) :: lda - complex(c_float_complex),target :: BP + integer(c_int64_t) :: strideA + type(c_ptr),value :: beta + real(c_double),target,dimension(:,:) :: BP integer(c_int) :: ldb - real(c_float),target :: beta - complex(c_float_complex),target :: CP + integer(c_int64_t) :: strideB + real(c_double),target,dimension(:,:) :: CP integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasCher2k_rank_0 = hipblasCher2k_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasDgeamStridedBatched_full_rank_devptr = hipblasDgeamStridedBatched_(handle,transA, & + transB,m,n,alpha,c_loc(AP),lda,strideA,beta,c_loc(BP),ldb,strideB,c_loc(CP),ldc,strideC, & + batchCount) end function - function hipblasCher2k_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasDgeamStridedBatched_strided_rank(handle,transA,transB,m,n,alpha,AP,lda, & + strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2k_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeamStridedBatched_strided_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: AP + real(c_double),target :: alpha + real(c_double),target,dimension(:,:,:) :: AP integer(c_int) :: lda - complex(c_float_complex),target,dimension(:) :: BP + integer(c_int64_t) :: strideA + real(c_double),target :: beta + real(c_double),target,dimension(:,:,:) :: BP integer(c_int) :: ldb - real(c_float),target :: beta - complex(c_float_complex),target,dimension(:) :: CP + integer(c_int64_t) :: strideB + real(c_double),target,dimension(:,:,:) :: CP integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasCher2k_rank_1 = hipblasCher2k_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasDgeamStridedBatched_strided_rank = hipblasDgeamStridedBatched_(handle,transA,transB, & + m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & + strideC,batchCount) end function - function hipblasCher2k_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasDgeamStridedBatched_strided_rank_devptr(handle,transA,transB,m,n,alpha,AP,lda, & + strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2k_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeamStridedBatched_strided_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:,:) :: AP + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:,:) :: AP integer(c_int) :: lda - complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: strideA + type(c_ptr),value :: beta + real(c_double),target,dimension(:,:,:) :: BP integer(c_int) :: ldb - real(c_float),target :: beta - complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: strideB + real(c_double),target,dimension(:,:,:) :: CP integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasCher2k_full_rank = hipblasCher2k_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasDgeamStridedBatched_strided_rank_devptr = hipblasDgeamStridedBatched_(handle,transA, & + transB,m,n,alpha,c_loc(AP),lda,strideA,beta,c_loc(BP),ldb,strideB,c_loc(CP),ldc,strideC, & + batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasZher2k_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasCgeamStridedBatched_assumed_rank(handle,transA,transB,m,n,alpha,AP,lda, & + strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2k_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeamStridedBatched_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: AP + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP integer(c_int) :: lda - complex(c_double_complex),target,dimension(..) :: BP + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: BP integer(c_int) :: ldb - real(c_double),target :: beta - complex(c_double_complex),target,dimension(..) :: CP + integer(c_int64_t) :: strideB + complex(c_float_complex),target,dimension(..) :: CP integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasZher2k_assumed_rank = hipblasZher2k_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & - lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasCgeamStridedBatched_assumed_rank = hipblasCgeamStridedBatched_(handle,transA,transB, & + m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & + strideC,batchCount) end function -#else - function hipblasZher2k_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasCgeamStridedBatched_assumed_rank_devptr(handle,transA,transB,m,n,alpha,AP,lda, & + strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2k_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeamStridedBatched_assumed_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: AP + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: AP integer(c_int) :: lda - complex(c_double_complex),target :: BP + integer(c_int64_t) :: strideA + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(..) :: BP integer(c_int) :: ldb - real(c_double),target :: beta - complex(c_double_complex),target :: CP + integer(c_int64_t) :: strideB + complex(c_float_complex),target,dimension(..) :: CP integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasZher2k_rank_0 = hipblasZher2k_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasCgeamStridedBatched_assumed_rank_devptr = hipblasCgeamStridedBatched_(handle,transA, & + transB,m,n,alpha,c_loc(AP),lda,strideA,beta,c_loc(BP),ldb,strideB,c_loc(CP),ldc,strideC, & + batchCount) end function - function hipblasZher2k_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding +#else + function hipblasCgeamStridedBatched_rank_0(handle,transA,transB,m,n,alpha,AP,lda,strideA,beta, & + BP,ldb,strideB,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2k_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeamStridedBatched_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: AP + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP integer(c_int) :: lda - complex(c_double_complex),target,dimension(:) :: BP + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: BP integer(c_int) :: ldb - real(c_double),target :: beta - complex(c_double_complex),target,dimension(:) :: CP + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: CP integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasZher2k_rank_1 = hipblasZher2k_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasCgeamStridedBatched_rank_0 = hipblasCgeamStridedBatched_(handle,transA,transB,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & + strideC,batchCount) end function - function hipblasZher2k_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasCgeamStridedBatched_rank_0_devptr(handle,transA,transB,m,n,alpha,AP,lda, & + strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2k_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeamStridedBatched_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:,:) :: AP + type(c_ptr),value :: alpha + complex(c_float_complex),target :: AP integer(c_int) :: lda - complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: strideA + type(c_ptr),value :: beta + complex(c_float_complex),target :: BP integer(c_int) :: ldb - real(c_double),target :: beta - complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: CP integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasZher2k_full_rank = hipblasZher2k_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasCgeamStridedBatched_rank_0_devptr = hipblasCgeamStridedBatched_(handle,transA,transB, & + m,n,alpha,c_loc(AP),lda,strideA,beta,c_loc(BP),ldb,strideB,c_loc(CP),ldc,strideC,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCher2k_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasCgeamStridedBatched_rank_1(handle,transA,transB,m,n,alpha,AP,lda,strideA,beta, & + BP,ldb,strideB,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2k_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeamStridedBatched_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: n - integer(c_int64_t) :: k + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: AP - integer(c_int64_t) :: lda - complex(c_float_complex),target,dimension(..) :: BP - integer(c_int64_t) :: ldb - real(c_float),target :: beta - complex(c_float_complex),target,dimension(..) :: CP - integer(c_int64_t) :: ldc + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasCher2k_64_assumed_rank = hipblasCher2k_64_(handle,uplo,transA,n,k,c_loc(alpha), & - c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasCgeamStridedBatched_rank_1 = hipblasCgeamStridedBatched_(handle,transA,transB,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & + strideC,batchCount) end function -#else - function hipblasCher2k_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasCgeamStridedBatched_rank_1_devptr(handle,transA,transB,m,n,alpha,AP,lda, & + strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2k_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeamStridedBatched_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: AP - integer(c_int64_t) :: lda - complex(c_float_complex),target :: BP - integer(c_int64_t) :: ldb - real(c_float),target :: beta - complex(c_float_complex),target :: CP - integer(c_int64_t) :: ldc + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasCher2k_64_rank_0 = hipblasCher2k_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & - lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasCgeamStridedBatched_rank_1_devptr = hipblasCgeamStridedBatched_(handle,transA,transB, & + m,n,alpha,c_loc(AP),lda,strideA,beta,c_loc(BP),ldb,strideB,c_loc(CP),ldc,strideC,batchCount) end function - function hipblasCher2k_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasCgeamStridedBatched_full_rank(handle,transA,transB,m,n,alpha,AP,lda,strideA, & + beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2k_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeamStridedBatched_full_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: n - integer(c_int64_t) :: k + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: AP - integer(c_int64_t) :: lda - complex(c_float_complex),target,dimension(:) :: BP - integer(c_int64_t) :: ldb - real(c_float),target :: beta - complex(c_float_complex),target,dimension(:) :: CP - integer(c_int64_t) :: ldc + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasCher2k_64_rank_1 = hipblasCher2k_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & - lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasCgeamStridedBatched_full_rank = hipblasCgeamStridedBatched_(handle,transA,transB,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & + strideC,batchCount) end function - function hipblasCher2k_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasCgeamStridedBatched_full_rank_devptr(handle,transA,transB,m,n,alpha,AP,lda, & + strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2k_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeamStridedBatched_full_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_float_complex),target :: alpha + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha complex(c_float_complex),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr),value :: beta complex(c_float_complex),target,dimension(:,:) :: BP - integer(c_int64_t) :: ldb - real(c_float),target :: beta + integer(c_int) :: ldb + integer(c_int64_t) :: strideB complex(c_float_complex),target,dimension(:,:) :: CP - integer(c_int64_t) :: ldc + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasCher2k_64_full_rank = hipblasCher2k_64_(handle,uplo,transA,n,k,c_loc(alpha), & - c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasCgeamStridedBatched_full_rank_devptr = hipblasCgeamStridedBatched_(handle,transA, & + transB,m,n,alpha,c_loc(AP),lda,strideA,beta,c_loc(BP),ldb,strideB,c_loc(CP),ldc,strideC, & + batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZher2k_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasCgeamStridedBatched_strided_rank(handle,transA,transB,m,n,alpha,AP,lda, & + strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2k_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeamStridedBatched_strided_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: AP - integer(c_int64_t) :: lda - complex(c_double_complex),target,dimension(..) :: BP - integer(c_int64_t) :: ldb - real(c_double),target :: beta - complex(c_double_complex),target,dimension(..) :: CP - integer(c_int64_t) :: ldc + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:,:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target,dimension(:,:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasZher2k_64_assumed_rank = hipblasZher2k_64_(handle,uplo,transA,n,k,c_loc(alpha), & - c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasCgeamStridedBatched_strided_rank = hipblasCgeamStridedBatched_(handle,transA,transB, & + m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & + strideC,batchCount) end function -#else - function hipblasZher2k_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasCgeamStridedBatched_strided_rank_devptr(handle,transA,transB,m,n,alpha,AP,lda, & + strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2k_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeamStridedBatched_strided_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: AP - integer(c_int64_t) :: lda - complex(c_double_complex),target :: BP - integer(c_int64_t) :: ldb - real(c_double),target :: beta - complex(c_double_complex),target :: CP - integer(c_int64_t) :: ldc + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:,:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target,dimension(:,:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasZher2k_64_rank_0 = hipblasZher2k_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & - lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasCgeamStridedBatched_strided_rank_devptr = hipblasCgeamStridedBatched_(handle,transA, & + transB,m,n,alpha,c_loc(AP),lda,strideA,beta,c_loc(BP),ldb,strideB,c_loc(CP),ldc,strideC, & + batchCount) end function - function hipblasZher2k_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZgeamStridedBatched_assumed_rank(handle,transA,transB,m,n,alpha,AP,lda, & + strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2k_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeamStridedBatched_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: n - integer(c_int64_t) :: k + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: AP - integer(c_int64_t) :: lda - complex(c_double_complex),target,dimension(:) :: BP - integer(c_int64_t) :: ldb - real(c_double),target :: beta - complex(c_double_complex),target,dimension(:) :: CP - integer(c_int64_t) :: ldc + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasZher2k_64_rank_1 = hipblasZher2k_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & - lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasZgeamStridedBatched_assumed_rank = hipblasZgeamStridedBatched_(handle,transA,transB, & + m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & + strideC,batchCount) end function - function hipblasZher2k_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasZgeamStridedBatched_assumed_rank_devptr(handle,transA,transB,m,n,alpha,AP,lda, & + strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2k_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeamStridedBatched_assumed_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - complex(c_double_complex),target,dimension(:,:) :: BP - integer(c_int64_t) :: ldb - real(c_double),target :: beta - complex(c_double_complex),target,dimension(:,:) :: CP - integer(c_int64_t) :: ldc + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasZher2k_64_full_rank = hipblasZher2k_64_(handle,uplo,transA,n,k,c_loc(alpha), & - c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasZgeamStridedBatched_assumed_rank_devptr = hipblasZgeamStridedBatched_(handle,transA, & + transB,m,n,alpha,c_loc(AP),lda,strideA,beta,c_loc(BP),ldb,strideB,c_loc(CP),ldc,strideC, & + batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCher2kStridedBatched_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & - BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding +#else + function hipblasZgeamStridedBatched_rank_0(handle,transA,transB,m,n,alpha,AP,lda,strideA,beta, & + BP,ldb,strideB,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2kStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeamStridedBatched_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: AP + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(..) :: BP + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: BP integer(c_int) :: ldb integer(c_int64_t) :: strideB - real(c_float),target :: beta - complex(c_float_complex),target,dimension(..) :: CP + complex(c_double_complex),target :: CP integer(c_int) :: ldc integer(c_int64_t) :: strideC integer(c_int) :: batchCount ! - hipblasCher2kStridedBatched_assumed_rank = hipblasCher2kStridedBatched_(handle,uplo,transA, & - n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + hipblasZgeamStridedBatched_rank_0 = hipblasZgeamStridedBatched_(handle,transA,transB,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & strideC,batchCount) end function -#else - function hipblasCher2kStridedBatched_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZgeamStridedBatched_rank_0_devptr(handle,transA,transB,m,n,alpha,AP,lda, & + strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2kStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeamStridedBatched_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: AP + type(c_ptr),value :: alpha + complex(c_double_complex),target :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target :: BP + type(c_ptr),value :: beta + complex(c_double_complex),target :: BP integer(c_int) :: ldb integer(c_int64_t) :: strideB - real(c_float),target :: beta - complex(c_float_complex),target :: CP + complex(c_double_complex),target :: CP integer(c_int) :: ldc integer(c_int64_t) :: strideC integer(c_int) :: batchCount ! - hipblasCher2kStridedBatched_rank_0 = hipblasCher2kStridedBatched_(handle,uplo,transA,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasZgeamStridedBatched_rank_0_devptr = hipblasZgeamStridedBatched_(handle,transA,transB, & + m,n,alpha,c_loc(AP),lda,strideA,beta,c_loc(BP),ldb,strideB,c_loc(CP),ldc,strideC,batchCount) end function - function hipblasCher2kStridedBatched_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZgeamStridedBatched_rank_1(handle,transA,transB,m,n,alpha,AP,lda,strideA,beta, & + BP,ldb,strideB,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2kStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeamStridedBatched_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: AP + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:) :: BP + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: BP integer(c_int) :: ldb integer(c_int64_t) :: strideB - real(c_float),target :: beta - complex(c_float_complex),target,dimension(:) :: CP + complex(c_double_complex),target,dimension(:) :: CP integer(c_int) :: ldc integer(c_int64_t) :: strideC integer(c_int) :: batchCount ! - hipblasCher2kStridedBatched_rank_1 = hipblasCher2kStridedBatched_(handle,uplo,transA,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + hipblasZgeamStridedBatched_rank_1 = hipblasZgeamStridedBatched_(handle,transA,transB,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & strideC,batchCount) end function - function hipblasCher2kStridedBatched_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZgeamStridedBatched_rank_1_devptr(handle,transA,transB,m,n,alpha,AP,lda, & + strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2kStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeamStridedBatched_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:,:) :: AP + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:,:) :: BP + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: BP integer(c_int) :: ldb integer(c_int64_t) :: strideB - real(c_float),target :: beta - complex(c_float_complex),target,dimension(:,:) :: CP + complex(c_double_complex),target,dimension(:) :: CP integer(c_int) :: ldc integer(c_int64_t) :: strideC integer(c_int) :: batchCount ! - hipblasCher2kStridedBatched_full_rank = hipblasCher2kStridedBatched_(handle,uplo,transA,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasZgeamStridedBatched_rank_1_devptr = hipblasZgeamStridedBatched_(handle,transA,transB, & + m,n,alpha,c_loc(AP),lda,strideA,beta,c_loc(BP),ldb,strideB,c_loc(CP),ldc,strideC,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZher2kStridedBatched_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & - BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZgeamStridedBatched_full_rank(handle,transA,transB,m,n,alpha,AP,lda,strideA, & + beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2kStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeamStridedBatched_full_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: AP + complex(c_double_complex),target,dimension(:,:) :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(..) :: BP + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:) :: BP integer(c_int) :: ldb integer(c_int64_t) :: strideB - real(c_double),target :: beta - complex(c_double_complex),target,dimension(..) :: CP + complex(c_double_complex),target,dimension(:,:) :: CP integer(c_int) :: ldc integer(c_int64_t) :: strideC integer(c_int) :: batchCount ! - hipblasZher2kStridedBatched_assumed_rank = hipblasZher2kStridedBatched_(handle,uplo,transA, & - n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + hipblasZgeamStridedBatched_full_rank = hipblasZgeamStridedBatched_(handle,transA,transB,m,n, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & strideC,batchCount) end function -#else - function hipblasZher2kStridedBatched_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZgeamStridedBatched_full_rank_devptr(handle,transA,transB,m,n,alpha,AP,lda, & + strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2kStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeamStridedBatched_full_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: AP + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target :: BP + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:,:) :: BP integer(c_int) :: ldb integer(c_int64_t) :: strideB - real(c_double),target :: beta - complex(c_double_complex),target :: CP + complex(c_double_complex),target,dimension(:,:) :: CP integer(c_int) :: ldc integer(c_int64_t) :: strideC integer(c_int) :: batchCount ! - hipblasZher2kStridedBatched_rank_0 = hipblasZher2kStridedBatched_(handle,uplo,transA,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasZgeamStridedBatched_full_rank_devptr = hipblasZgeamStridedBatched_(handle,transA, & + transB,m,n,alpha,c_loc(AP),lda,strideA,beta,c_loc(BP),ldb,strideB,c_loc(CP),ldc,strideC, & + batchCount) end function - function hipblasZher2kStridedBatched_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZgeamStridedBatched_strided_rank(handle,transA,transB,m,n,alpha,AP,lda, & + strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2kStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeamStridedBatched_strided_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: AP + complex(c_double_complex),target,dimension(:,:,:) :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:) :: BP + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:,:) :: BP integer(c_int) :: ldb integer(c_int64_t) :: strideB - real(c_double),target :: beta - complex(c_double_complex),target,dimension(:) :: CP + complex(c_double_complex),target,dimension(:,:,:) :: CP integer(c_int) :: ldc integer(c_int64_t) :: strideC integer(c_int) :: batchCount ! - hipblasZher2kStridedBatched_rank_1 = hipblasZher2kStridedBatched_(handle,uplo,transA,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + hipblasZgeamStridedBatched_strided_rank = hipblasZgeamStridedBatched_(handle,transA,transB, & + m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & strideC,batchCount) end function - function hipblasZher2kStridedBatched_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZgeamStridedBatched_strided_rank_devptr(handle,transA,transB,m,n,alpha,AP,lda, & + strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2kStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeamStridedBatched_strided_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:,:) :: AP + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:,:) :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:,:) :: BP + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:,:,:) :: BP integer(c_int) :: ldb integer(c_int64_t) :: strideB - real(c_double),target :: beta - complex(c_double_complex),target,dimension(:,:) :: CP + complex(c_double_complex),target,dimension(:,:,:) :: CP integer(c_int) :: ldc integer(c_int64_t) :: strideC integer(c_int) :: batchCount ! - hipblasZher2kStridedBatched_full_rank = hipblasZher2kStridedBatched_(handle,uplo,transA,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasZgeamStridedBatched_strided_rank_devptr = hipblasZgeamStridedBatched_(handle,transA, & + transB,m,n,alpha,c_loc(AP),lda,strideA,beta,c_loc(BP),ldb,strideB,c_loc(CP),ldc,strideC, & + batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCher2kStridedBatched_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda, & - strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasSgeamStridedBatched_64_assumed_rank(handle,transA,transB,m,n,alpha,AP,lda, & + strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2kStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeamStridedBatched_64_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: AP + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(..) :: BP + real(c_float),target :: beta + real(c_float),target,dimension(..) :: BP integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - real(c_float),target :: beta - complex(c_float_complex),target,dimension(..) :: CP + real(c_float),target,dimension(..) :: CP integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasCher2kStridedBatched_64_assumed_rank = hipblasCher2kStridedBatched_64_(handle,uplo, & - transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + hipblasSgeamStridedBatched_64_assumed_rank = hipblasSgeamStridedBatched_64_(handle,transA, & + transB,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP), & ldc,strideC,batchCount) end function + function hipblasSgeamStridedBatched_64_assumed_rank_devptr(handle,transA,transB,m,n,alpha,AP, & + lda,strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeamStridedBatched_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr),value :: beta + real(c_float),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasSgeamStridedBatched_64_assumed_rank_devptr = hipblasSgeamStridedBatched_64_(handle, & + transA,transB,m,n,alpha,c_loc(AP),lda,strideA,beta,c_loc(BP),ldb,strideB,c_loc(CP),ldc, & + strideC,batchCount) + end function + #else - function hipblasCher2kStridedBatched_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasSgeamStridedBatched_64_rank_0(handle,transA,transB,m,n,alpha,AP,lda,strideA, & + beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2kStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeamStridedBatched_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: beta + real(c_float),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasSgeamStridedBatched_64_rank_0 = hipblasSgeamStridedBatched_64_(handle,transA,transB, & + m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasSgeamStridedBatched_64_rank_0_devptr(handle,transA,transB,m,n,alpha,AP,lda, & + strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeamStridedBatched_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr),value :: beta + real(c_float),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasSgeamStridedBatched_64_rank_0_devptr = hipblasSgeamStridedBatched_64_(handle,transA, & + transB,m,n,alpha,c_loc(AP),lda,strideA,beta,c_loc(BP),ldb,strideB,c_loc(CP),ldc,strideC, & + batchCount) + end function + + function hipblasSgeamStridedBatched_64_rank_1(handle,transA,transB,m,n,alpha,AP,lda,strideA, & + beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeamStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: beta + real(c_float),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasSgeamStridedBatched_64_rank_1 = hipblasSgeamStridedBatched_64_(handle,transA,transB, & + m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & + strideC,batchCount) + end function + + function hipblasSgeamStridedBatched_64_rank_1_devptr(handle,transA,transB,m,n,alpha,AP,lda, & + strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeamStridedBatched_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr),value :: beta + real(c_float),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasSgeamStridedBatched_64_rank_1_devptr = hipblasSgeamStridedBatched_64_(handle,transA, & + transB,m,n,alpha,c_loc(AP),lda,strideA,beta,c_loc(BP),ldb,strideB,c_loc(CP),ldc,strideC, & + batchCount) + end function + + function hipblasSgeamStridedBatched_64_full_rank(handle,transA,transB,m,n,alpha,AP,lda, & + strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeamStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: beta + real(c_float),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_float),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasSgeamStridedBatched_64_full_rank = hipblasSgeamStridedBatched_64_(handle,transA, & + transB,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP), & + ldc,strideC,batchCount) + end function + + function hipblasSgeamStridedBatched_64_full_rank_devptr(handle,transA,transB,m,n,alpha,AP,lda, & + strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeamStridedBatched_64_full_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: AP + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:) :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target :: BP + type(c_ptr),value :: beta + real(c_float),target,dimension(:,:) :: BP integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - real(c_float),target :: beta - complex(c_float_complex),target :: CP + real(c_float),target,dimension(:,:) :: CP integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasCher2kStridedBatched_64_rank_0 = hipblasCher2kStridedBatched_64_(handle,uplo,transA, & - n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + hipblasSgeamStridedBatched_64_full_rank_devptr = hipblasSgeamStridedBatched_64_(handle, & + transA,transB,m,n,alpha,c_loc(AP),lda,strideA,beta,c_loc(BP),ldb,strideB,c_loc(CP),ldc, & strideC,batchCount) end function - function hipblasCher2kStridedBatched_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasSgeamStridedBatched_64_strided_rank(handle,transA,transB,m,n,alpha,AP,lda, & + strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2kStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeamStridedBatched_64_strided_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: AP + real(c_float),target :: alpha + real(c_float),target,dimension(:,:,:) :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:) :: BP + real(c_float),target :: beta + real(c_float),target,dimension(:,:,:) :: BP integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - real(c_float),target :: beta - complex(c_float_complex),target,dimension(:) :: CP + real(c_float),target,dimension(:,:,:) :: CP integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasCher2kStridedBatched_64_rank_1 = hipblasCher2kStridedBatched_64_(handle,uplo,transA, & - n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasSgeamStridedBatched_64_strided_rank = hipblasSgeamStridedBatched_64_(handle,transA, & + transB,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP), & + ldc,strideC,batchCount) end function - function hipblasCher2kStridedBatched_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & - BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasSgeamStridedBatched_64_strided_rank_devptr(handle,transA,transB,m,n,alpha,AP, & + lda,strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCher2kStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeamStridedBatched_64_strided_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:,:) :: AP + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:,:) :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:,:) :: BP + type(c_ptr),value :: beta + real(c_float),target,dimension(:,:,:) :: BP integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - real(c_float),target :: beta - complex(c_float_complex),target,dimension(:,:) :: CP + real(c_float),target,dimension(:,:,:) :: CP integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasCher2kStridedBatched_64_full_rank = hipblasCher2kStridedBatched_64_(handle,uplo, & - transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & - ldc,strideC,batchCount) + hipblasSgeamStridedBatched_64_strided_rank_devptr = hipblasSgeamStridedBatched_64_(handle, & + transA,transB,m,n,alpha,c_loc(AP),lda,strideA,beta,c_loc(BP),ldb,strideB,c_loc(CP),ldc, & + strideC,batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasZher2kStridedBatched_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda, & - strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasDgeamStridedBatched_64_assumed_rank(handle,transA,transB,m,n,alpha,AP,lda, & + strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2kStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeamStridedBatched_64_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: AP + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(..) :: BP + real(c_double),target :: beta + real(c_double),target,dimension(..) :: BP integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - real(c_double),target :: beta - complex(c_double_complex),target,dimension(..) :: CP + real(c_double),target,dimension(..) :: CP integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasZher2kStridedBatched_64_assumed_rank = hipblasZher2kStridedBatched_64_(handle,uplo, & - transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + hipblasDgeamStridedBatched_64_assumed_rank = hipblasDgeamStridedBatched_64_(handle,transA, & + transB,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP), & ldc,strideC,batchCount) end function -#else - function hipblasZher2kStridedBatched_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasDgeamStridedBatched_64_assumed_rank_devptr(handle,transA,transB,m,n,alpha,AP, & + lda,strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2kStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeamStridedBatched_64_assumed_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: AP + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target :: BP + type(c_ptr),value :: beta + real(c_double),target,dimension(..) :: BP integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - real(c_double),target :: beta - complex(c_double_complex),target :: CP + real(c_double),target,dimension(..) :: CP integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasZher2kStridedBatched_64_rank_0 = hipblasZher2kStridedBatched_64_(handle,uplo,transA, & - n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + hipblasDgeamStridedBatched_64_assumed_rank_devptr = hipblasDgeamStridedBatched_64_(handle, & + transA,transB,m,n,alpha,c_loc(AP),lda,strideA,beta,c_loc(BP),ldb,strideB,c_loc(CP),ldc, & strideC,batchCount) end function - function hipblasZher2kStridedBatched_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding +#else + function hipblasDgeamStridedBatched_64_rank_0(handle,transA,transB,m,n,alpha,AP,lda,strideA, & + beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2kStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeamStridedBatched_64_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: AP + real(c_double),target :: alpha + real(c_double),target :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:) :: BP + real(c_double),target :: beta + real(c_double),target :: BP integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - real(c_double),target :: beta - complex(c_double_complex),target,dimension(:) :: CP + real(c_double),target :: CP integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasZher2kStridedBatched_64_rank_1 = hipblasZher2kStridedBatched_64_(handle,uplo,transA, & - n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + hipblasDgeamStridedBatched_64_rank_0 = hipblasDgeamStridedBatched_64_(handle,transA,transB, & + m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & strideC,batchCount) end function - function hipblasZher2kStridedBatched_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & - BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasDgeamStridedBatched_64_rank_0_devptr(handle,transA,transB,m,n,alpha,AP,lda, & + strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZher2kStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeamStridedBatched_64_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:,:) :: AP + type(c_ptr),value :: alpha + real(c_double),target :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:,:) :: BP + type(c_ptr),value :: beta + real(c_double),target :: BP integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - real(c_double),target :: beta - complex(c_double_complex),target,dimension(:,:) :: CP + real(c_double),target :: CP integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasZher2kStridedBatched_64_full_rank = hipblasZher2kStridedBatched_64_(handle,uplo, & - transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & - ldc,strideC,batchCount) - end function - -#endif -#ifdef USE_ASSUMED_RANK - function hipblasSsymm_assumed_rank(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymm_assumed_rank - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: m - integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(..) :: AP - integer(c_int) :: lda - real(c_float),target,dimension(..) :: BP - integer(c_int) :: ldb - real(c_float),target :: beta - real(c_float),target,dimension(..) :: CP - integer(c_int) :: ldc - ! - hipblasSsymm_assumed_rank = hipblasSsymm_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) - end function - -#else - function hipblasSsymm_rank_0(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymm_rank_0 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: m - integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target :: AP - integer(c_int) :: lda - real(c_float),target :: BP - integer(c_int) :: ldb - real(c_float),target :: beta - real(c_float),target :: CP - integer(c_int) :: ldc - ! - hipblasSsymm_rank_0 = hipblasSsymm_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) - end function - - function hipblasSsymm_rank_1(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymm_rank_1 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: m - integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(:) :: AP - integer(c_int) :: lda - real(c_float),target,dimension(:) :: BP - integer(c_int) :: ldb - real(c_float),target :: beta - real(c_float),target,dimension(:) :: CP - integer(c_int) :: ldc - ! - hipblasSsymm_rank_1 = hipblasSsymm_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) - end function - - function hipblasSsymm_full_rank(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymm_full_rank - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: m - integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(:,:) :: AP - integer(c_int) :: lda - real(c_float),target,dimension(:,:) :: BP - integer(c_int) :: ldb - real(c_float),target :: beta - real(c_float),target,dimension(:,:) :: CP - integer(c_int) :: ldc - ! - hipblasSsymm_full_rank = hipblasSsymm_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) - end function - -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDsymm_assumed_rank(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymm_assumed_rank - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: m - integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(..) :: AP - integer(c_int) :: lda - real(c_double),target,dimension(..) :: BP - integer(c_int) :: ldb - real(c_double),target :: beta - real(c_double),target,dimension(..) :: CP - integer(c_int) :: ldc - ! - hipblasDsymm_assumed_rank = hipblasDsymm_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasDgeamStridedBatched_64_rank_0_devptr = hipblasDgeamStridedBatched_64_(handle,transA, & + transB,m,n,alpha,c_loc(AP),lda,strideA,beta,c_loc(BP),ldb,strideB,c_loc(CP),ldc,strideC, & + batchCount) end function -#else - function hipblasDsymm_rank_0(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasDgeamStridedBatched_64_rank_1(handle,transA,transB,m,n,alpha,AP,lda,strideA, & + beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymm_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeamStridedBatched_64_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: m - integer(c_int) :: n + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n real(c_double),target :: alpha - real(c_double),target :: AP - integer(c_int) :: lda - real(c_double),target :: BP - integer(c_int) :: ldb + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA real(c_double),target :: beta - real(c_double),target :: CP - integer(c_int) :: ldc + real(c_double),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasDsymm_rank_0 = hipblasDsymm_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasDgeamStridedBatched_64_rank_1 = hipblasDgeamStridedBatched_64_(handle,transA,transB, & + m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & + strideC,batchCount) end function - function hipblasDsymm_rank_1(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasDgeamStridedBatched_64_rank_1_devptr(handle,transA,transB,m,n,alpha,AP,lda, & + strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymm_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeamStridedBatched_64_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: m - integer(c_int) :: n - real(c_double),target :: alpha + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha real(c_double),target,dimension(:) :: AP - integer(c_int) :: lda + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr),value :: beta real(c_double),target,dimension(:) :: BP - integer(c_int) :: ldb - real(c_double),target :: beta + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB real(c_double),target,dimension(:) :: CP - integer(c_int) :: ldc + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasDsymm_rank_1 = hipblasDsymm_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasDgeamStridedBatched_64_rank_1_devptr = hipblasDgeamStridedBatched_64_(handle,transA, & + transB,m,n,alpha,c_loc(AP),lda,strideA,beta,c_loc(BP),ldb,strideB,c_loc(CP),ldc,strideC, & + batchCount) end function - function hipblasDsymm_full_rank(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasDgeamStridedBatched_64_full_rank(handle,transA,transB,m,n,alpha,AP,lda, & + strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymm_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeamStridedBatched_64_full_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: m - integer(c_int) :: n + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n real(c_double),target :: alpha real(c_double),target,dimension(:,:) :: AP - integer(c_int) :: lda - real(c_double),target,dimension(:,:) :: BP - integer(c_int) :: ldb + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA real(c_double),target :: beta - real(c_double),target,dimension(:,:) :: CP - integer(c_int) :: ldc - ! - hipblasDsymm_full_rank = hipblasDsymm_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) - end function - -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCsymm_assumed_rank(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymm_assumed_rank - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: m - integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: AP - integer(c_int) :: lda - complex(c_float_complex),target,dimension(..) :: BP - integer(c_int) :: ldb - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(..) :: CP - integer(c_int) :: ldc - ! - hipblasCsymm_assumed_rank = hipblasCsymm_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) - end function - -#else - function hipblasCsymm_rank_0(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymm_rank_0 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: m - integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: AP - integer(c_int) :: lda - complex(c_float_complex),target :: BP - integer(c_int) :: ldb - complex(c_float_complex),target :: beta - complex(c_float_complex),target :: CP - integer(c_int) :: ldc - ! - hipblasCsymm_rank_0 = hipblasCsymm_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) - end function - - function hipblasCsymm_rank_1(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymm_rank_1 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: m - integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: AP - integer(c_int) :: lda - complex(c_float_complex),target,dimension(:) :: BP - integer(c_int) :: ldb - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:) :: CP - integer(c_int) :: ldc - ! - hipblasCsymm_rank_1 = hipblasCsymm_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) - end function - - function hipblasCsymm_full_rank(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymm_full_rank - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: m - integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:,:) :: AP - integer(c_int) :: lda - complex(c_float_complex),target,dimension(:,:) :: BP - integer(c_int) :: ldb - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:,:) :: CP - integer(c_int) :: ldc - ! - hipblasCsymm_full_rank = hipblasCsymm_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) - end function - -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZsymm_assumed_rank(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymm_assumed_rank - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: m - integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: AP - integer(c_int) :: lda - complex(c_double_complex),target,dimension(..) :: BP - integer(c_int) :: ldb - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(..) :: CP - integer(c_int) :: ldc - ! - hipblasZsymm_assumed_rank = hipblasZsymm_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) - end function - -#else - function hipblasZsymm_rank_0(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymm_rank_0 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: m - integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: AP - integer(c_int) :: lda - complex(c_double_complex),target :: BP - integer(c_int) :: ldb - complex(c_double_complex),target :: beta - complex(c_double_complex),target :: CP - integer(c_int) :: ldc - ! - hipblasZsymm_rank_0 = hipblasZsymm_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) - end function - - function hipblasZsymm_rank_1(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymm_rank_1 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: m - integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: AP - integer(c_int) :: lda - complex(c_double_complex),target,dimension(:) :: BP - integer(c_int) :: ldb - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:) :: CP - integer(c_int) :: ldc - ! - hipblasZsymm_rank_1 = hipblasZsymm_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) - end function - - function hipblasZsymm_full_rank(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymm_full_rank - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: m - integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:,:) :: AP - integer(c_int) :: lda - complex(c_double_complex),target,dimension(:,:) :: BP - integer(c_int) :: ldb - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:,:) :: CP - integer(c_int) :: ldc + real(c_double),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + real(c_double),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasZsymm_full_rank = hipblasZsymm_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasDgeamStridedBatched_64_full_rank = hipblasDgeamStridedBatched_64_(handle,transA, & + transB,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP), & + ldc,strideC,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasSsymm_64_assumed_rank(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasDgeamStridedBatched_64_full_rank_devptr(handle,transA,transB,m,n,alpha,AP,lda, & + strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymm_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeamStridedBatched_64_full_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB integer(c_int64_t) :: m integer(c_int64_t) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(..) :: AP + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:) :: AP integer(c_int64_t) :: lda - real(c_float),target,dimension(..) :: BP + integer(c_int64_t) :: strideA + type(c_ptr),value :: beta + real(c_double),target,dimension(:,:) :: BP integer(c_int64_t) :: ldb - real(c_float),target :: beta - real(c_float),target,dimension(..) :: CP + integer(c_int64_t) :: strideB + real(c_double),target,dimension(:,:) :: CP integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasSsymm_64_assumed_rank = hipblasSsymm_64_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP), & - lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasDgeamStridedBatched_64_full_rank_devptr = hipblasDgeamStridedBatched_64_(handle, & + transA,transB,m,n,alpha,c_loc(AP),lda,strideA,beta,c_loc(BP),ldb,strideB,c_loc(CP),ldc, & + strideC,batchCount) end function -#else - function hipblasSsymm_64_rank_0(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasDgeamStridedBatched_64_strided_rank(handle,transA,transB,m,n,alpha,AP,lda, & + strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymm_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeamStridedBatched_64_strided_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB integer(c_int64_t) :: m integer(c_int64_t) :: n - real(c_float),target :: alpha - real(c_float),target :: AP + real(c_double),target :: alpha + real(c_double),target,dimension(:,:,:) :: AP integer(c_int64_t) :: lda - real(c_float),target :: BP + integer(c_int64_t) :: strideA + real(c_double),target :: beta + real(c_double),target,dimension(:,:,:) :: BP integer(c_int64_t) :: ldb - real(c_float),target :: beta - real(c_float),target :: CP + integer(c_int64_t) :: strideB + real(c_double),target,dimension(:,:,:) :: CP integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasSsymm_64_rank_0 = hipblasSsymm_64_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasDgeamStridedBatched_64_strided_rank = hipblasDgeamStridedBatched_64_(handle,transA, & + transB,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP), & + ldc,strideC,batchCount) end function - function hipblasSsymm_64_rank_1(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasDgeamStridedBatched_64_strided_rank_devptr(handle,transA,transB,m,n,alpha,AP, & + lda,strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymm_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeamStridedBatched_64_strided_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB integer(c_int64_t) :: m integer(c_int64_t) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(:) :: AP + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:,:) :: AP integer(c_int64_t) :: lda - real(c_float),target,dimension(:) :: BP + integer(c_int64_t) :: strideA + type(c_ptr),value :: beta + real(c_double),target,dimension(:,:,:) :: BP integer(c_int64_t) :: ldb - real(c_float),target :: beta - real(c_float),target,dimension(:) :: CP + integer(c_int64_t) :: strideB + real(c_double),target,dimension(:,:,:) :: CP integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasSsymm_64_rank_1 = hipblasSsymm_64_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasDgeamStridedBatched_64_strided_rank_devptr = hipblasDgeamStridedBatched_64_(handle, & + transA,transB,m,n,alpha,c_loc(AP),lda,strideA,beta,c_loc(BP),ldb,strideB,c_loc(CP),ldc, & + strideC,batchCount) end function - function hipblasSsymm_64_full_rank(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCgeamStridedBatched_64_assumed_rank(handle,transA,transB,m,n,alpha,AP,lda, & + strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymm_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeamStridedBatched_64_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB integer(c_int64_t) :: m integer(c_int64_t) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(:,:) :: AP + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP integer(c_int64_t) :: lda - real(c_float),target,dimension(:,:) :: BP + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: BP integer(c_int64_t) :: ldb - real(c_float),target :: beta - real(c_float),target,dimension(:,:) :: CP + integer(c_int64_t) :: strideB + complex(c_float_complex),target,dimension(..) :: CP integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasSsymm_64_full_rank = hipblasSsymm_64_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP), & - lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasCgeamStridedBatched_64_assumed_rank = hipblasCgeamStridedBatched_64_(handle,transA, & + transB,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP), & + ldc,strideC,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDsymm_64_assumed_rank(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasCgeamStridedBatched_64_assumed_rank_devptr(handle,transA,transB,m,n,alpha,AP, & + lda,strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymm_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeamStridedBatched_64_assumed_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB integer(c_int64_t) :: m integer(c_int64_t) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(..) :: AP + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: AP integer(c_int64_t) :: lda - real(c_double),target,dimension(..) :: BP + integer(c_int64_t) :: strideA + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(..) :: BP integer(c_int64_t) :: ldb - real(c_double),target :: beta - real(c_double),target,dimension(..) :: CP + integer(c_int64_t) :: strideB + complex(c_float_complex),target,dimension(..) :: CP integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasDsymm_64_assumed_rank = hipblasDsymm_64_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP), & - lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasCgeamStridedBatched_64_assumed_rank_devptr = hipblasCgeamStridedBatched_64_(handle, & + transA,transB,m,n,alpha,c_loc(AP),lda,strideA,beta,c_loc(BP),ldb,strideB,c_loc(CP),ldc, & + strideC,batchCount) end function #else - function hipblasDsymm_64_rank_0(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasCgeamStridedBatched_64_rank_0(handle,transA,transB,m,n,alpha,AP,lda,strideA, & + beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymm_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeamStridedBatched_64_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB integer(c_int64_t) :: m integer(c_int64_t) :: n - real(c_double),target :: alpha - real(c_double),target :: AP + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP integer(c_int64_t) :: lda - real(c_double),target :: BP + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: BP integer(c_int64_t) :: ldb - real(c_double),target :: beta - real(c_double),target :: CP + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: CP integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasDsymm_64_rank_0 = hipblasDsymm_64_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasCgeamStridedBatched_64_rank_0 = hipblasCgeamStridedBatched_64_(handle,transA,transB, & + m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & + strideC,batchCount) end function - function hipblasDsymm_64_rank_1(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasCgeamStridedBatched_64_rank_0_devptr(handle,transA,transB,m,n,alpha,AP,lda, & + strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymm_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeamStridedBatched_64_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB integer(c_int64_t) :: m integer(c_int64_t) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(:) :: AP + type(c_ptr),value :: alpha + complex(c_float_complex),target :: AP integer(c_int64_t) :: lda - real(c_double),target,dimension(:) :: BP + integer(c_int64_t) :: strideA + type(c_ptr),value :: beta + complex(c_float_complex),target :: BP integer(c_int64_t) :: ldb - real(c_double),target :: beta - real(c_double),target,dimension(:) :: CP + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: CP integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasDsymm_64_rank_1 = hipblasDsymm_64_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasCgeamStridedBatched_64_rank_0_devptr = hipblasCgeamStridedBatched_64_(handle,transA, & + transB,m,n,alpha,c_loc(AP),lda,strideA,beta,c_loc(BP),ldb,strideB,c_loc(CP),ldc,strideC, & + batchCount) end function - function hipblasDsymm_64_full_rank(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasCgeamStridedBatched_64_rank_1(handle,transA,transB,m,n,alpha,AP,lda,strideA, & + beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymm_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeamStridedBatched_64_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB integer(c_int64_t) :: m integer(c_int64_t) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(:,:) :: AP + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP integer(c_int64_t) :: lda - real(c_double),target,dimension(:,:) :: BP + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: BP integer(c_int64_t) :: ldb - real(c_double),target :: beta - real(c_double),target,dimension(:,:) :: CP + integer(c_int64_t) :: strideB + complex(c_float_complex),target,dimension(:) :: CP integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasDsymm_64_full_rank = hipblasDsymm_64_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP), & - lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasCgeamStridedBatched_64_rank_1 = hipblasCgeamStridedBatched_64_(handle,transA,transB, & + m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & + strideC,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCsymm_64_assumed_rank(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasCgeamStridedBatched_64_rank_1_devptr(handle,transA,transB,m,n,alpha,AP,lda, & + strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymm_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeamStridedBatched_64_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: AP + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: AP integer(c_int64_t) :: lda - complex(c_float_complex),target,dimension(..) :: BP + integer(c_int64_t) :: strideA + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: BP integer(c_int64_t) :: ldb - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(..) :: CP + integer(c_int64_t) :: strideB + complex(c_float_complex),target,dimension(:) :: CP integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasCsymm_64_assumed_rank = hipblasCsymm_64_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP), & - lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasCgeamStridedBatched_64_rank_1_devptr = hipblasCgeamStridedBatched_64_(handle,transA, & + transB,m,n,alpha,c_loc(AP),lda,strideA,beta,c_loc(BP),ldb,strideB,c_loc(CP),ldc,strideC, & + batchCount) end function -#else - function hipblasCsymm_64_rank_0(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasCgeamStridedBatched_64_full_rank(handle,transA,transB,m,n,alpha,AP,lda, & + strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymm_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeamStridedBatched_64_full_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB integer(c_int64_t) :: m integer(c_int64_t) :: n complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: AP + complex(c_float_complex),target,dimension(:,:) :: AP integer(c_int64_t) :: lda - complex(c_float_complex),target :: BP - integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideA complex(c_float_complex),target :: beta - complex(c_float_complex),target :: CP + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target,dimension(:,:) :: CP integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasCsymm_64_rank_0 = hipblasCsymm_64_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasCgeamStridedBatched_64_full_rank = hipblasCgeamStridedBatched_64_(handle,transA, & + transB,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP), & + ldc,strideC,batchCount) end function - function hipblasCsymm_64_rank_1(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasCgeamStridedBatched_64_full_rank_devptr(handle,transA,transB,m,n,alpha,AP,lda, & + strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymm_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeamStridedBatched_64_full_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: AP + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP integer(c_int64_t) :: lda - complex(c_float_complex),target,dimension(:) :: BP + integer(c_int64_t) :: strideA + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:,:) :: BP integer(c_int64_t) :: ldb - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:) :: CP + integer(c_int64_t) :: strideB + complex(c_float_complex),target,dimension(:,:) :: CP integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasCsymm_64_rank_1 = hipblasCsymm_64_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasCgeamStridedBatched_64_full_rank_devptr = hipblasCgeamStridedBatched_64_(handle, & + transA,transB,m,n,alpha,c_loc(AP),lda,strideA,beta,c_loc(BP),ldb,strideB,c_loc(CP),ldc, & + strideC,batchCount) end function - function hipblasCsymm_64_full_rank(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasCgeamStridedBatched_64_strided_rank(handle,transA,transB,m,n,alpha,AP,lda, & + strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymm_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeamStridedBatched_64_strided_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB integer(c_int64_t) :: m integer(c_int64_t) :: n complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:,:) :: AP + complex(c_float_complex),target,dimension(:,:,:) :: AP integer(c_int64_t) :: lda - complex(c_float_complex),target,dimension(:,:) :: BP - integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideA complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:,:) :: CP + complex(c_float_complex),target,dimension(:,:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target,dimension(:,:,:) :: CP integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasCsymm_64_full_rank = hipblasCsymm_64_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP), & - lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasCgeamStridedBatched_64_strided_rank = hipblasCgeamStridedBatched_64_(handle,transA, & + transB,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP), & + ldc,strideC,batchCount) + end function + + function hipblasCgeamStridedBatched_64_strided_rank_devptr(handle,transA,transB,m,n,alpha,AP, & + lda,strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeamStridedBatched_64_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:,:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target,dimension(:,:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCgeamStridedBatched_64_strided_rank_devptr = hipblasCgeamStridedBatched_64_(handle, & + transA,transB,m,n,alpha,c_loc(AP),lda,strideA,beta,c_loc(BP),ldb,strideB,c_loc(CP),ldc, & + strideC,batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasZsymm_64_assumed_rank(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasZgeamStridedBatched_64_assumed_rank(handle,transA,transB,m,n,alpha,AP,lda, & + strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymm_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeamStridedBatched_64_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB integer(c_int64_t) :: m integer(c_int64_t) :: n complex(c_double_complex),target :: alpha complex(c_double_complex),target,dimension(..) :: AP integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: beta complex(c_double_complex),target,dimension(..) :: BP integer(c_int64_t) :: ldb - complex(c_double_complex),target :: beta + integer(c_int64_t) :: strideB complex(c_double_complex),target,dimension(..) :: CP integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasZsymm_64_assumed_rank = hipblasZsymm_64_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP), & - lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasZgeamStridedBatched_64_assumed_rank = hipblasZgeamStridedBatched_64_(handle,transA, & + transB,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP), & + ldc,strideC,batchCount) + end function + + function hipblasZgeamStridedBatched_64_assumed_rank_devptr(handle,transA,transB,m,n,alpha,AP, & + lda,strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeamStridedBatched_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZgeamStridedBatched_64_assumed_rank_devptr = hipblasZgeamStridedBatched_64_(handle, & + transA,transB,m,n,alpha,c_loc(AP),lda,strideA,beta,c_loc(BP),ldb,strideB,c_loc(CP),ldc, & + strideC,batchCount) end function #else - function hipblasZsymm_64_rank_0(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasZgeamStridedBatched_64_rank_0(handle,transA,transB,m,n,alpha,AP,lda,strideA, & + beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymm_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeamStridedBatched_64_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB integer(c_int64_t) :: m integer(c_int64_t) :: n complex(c_double_complex),target :: alpha complex(c_double_complex),target :: AP integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: beta complex(c_double_complex),target :: BP integer(c_int64_t) :: ldb - complex(c_double_complex),target :: beta + integer(c_int64_t) :: strideB complex(c_double_complex),target :: CP integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasZsymm_64_rank_0 = hipblasZsymm_64_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasZgeamStridedBatched_64_rank_0 = hipblasZgeamStridedBatched_64_(handle,transA,transB, & + m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & + strideC,batchCount) end function - function hipblasZsymm_64_rank_1(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasZgeamStridedBatched_64_rank_0_devptr(handle,transA,transB,m,n,alpha,AP,lda, & + strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymm_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeamStridedBatched_64_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + type(c_ptr),value :: beta + complex(c_double_complex),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZgeamStridedBatched_64_rank_0_devptr = hipblasZgeamStridedBatched_64_(handle,transA, & + transB,m,n,alpha,c_loc(AP),lda,strideA,beta,c_loc(BP),ldb,strideB,c_loc(CP),ldc,strideC, & + batchCount) + end function + + function hipblasZgeamStridedBatched_64_rank_1(handle,transA,transB,m,n,alpha,AP,lda,strideA, & + beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeamStridedBatched_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB integer(c_int64_t) :: m integer(c_int64_t) :: n complex(c_double_complex),target :: alpha complex(c_double_complex),target,dimension(:) :: AP integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: beta complex(c_double_complex),target,dimension(:) :: BP integer(c_int64_t) :: ldb - complex(c_double_complex),target :: beta + integer(c_int64_t) :: strideB complex(c_double_complex),target,dimension(:) :: CP integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasZsymm_64_rank_1 = hipblasZsymm_64_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasZgeamStridedBatched_64_rank_1 = hipblasZgeamStridedBatched_64_(handle,transA,transB, & + m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & + strideC,batchCount) end function - function hipblasZsymm_64_full_rank(handle,side,uplo,m,n,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasZgeamStridedBatched_64_rank_1_devptr(handle,transA,transB,m,n,alpha,AP,lda, & + strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymm_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeamStridedBatched_64_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:,:) :: AP + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: AP integer(c_int64_t) :: lda - complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: strideA + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: BP integer(c_int64_t) :: ldb - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: strideB + complex(c_double_complex),target,dimension(:) :: CP integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasZsymm_64_full_rank = hipblasZsymm_64_(handle,side,uplo,m,n,c_loc(alpha),c_loc(AP), & - lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasZgeamStridedBatched_64_rank_1_devptr = hipblasZgeamStridedBatched_64_(handle,transA, & + transB,m,n,alpha,c_loc(AP),lda,strideA,beta,c_loc(BP),ldb,strideB,c_loc(CP),ldc,strideC, & + batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasSsymmStridedBatched_assumed_rank(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZgeamStridedBatched_64_full_rank(handle,transA,transB,m,n,alpha,AP,lda, & + strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymmStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeamStridedBatched_64_full_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: m - integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(..) :: AP - integer(c_int) :: lda + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - real(c_float),target,dimension(..) :: BP - integer(c_int) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - real(c_float),target :: beta - real(c_float),target,dimension(..) :: CP - integer(c_int) :: ldc + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount ! - hipblasSsymmStridedBatched_assumed_rank = hipblasSsymmStridedBatched_(handle,side,uplo,m,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasZgeamStridedBatched_64_full_rank = hipblasZgeamStridedBatched_64_(handle,transA, & + transB,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP), & + ldc,strideC,batchCount) end function -#else - function hipblasSsymmStridedBatched_rank_0(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP,ldb, & - strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymmStridedBatched_rank_0 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: m - integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target :: AP - integer(c_int) :: lda + function hipblasZgeamStridedBatched_64_full_rank_devptr(handle,transA,transB,m,n,alpha,AP,lda, & + strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeamStridedBatched_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - real(c_float),target :: BP - integer(c_int) :: ldb + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - real(c_float),target :: beta - real(c_float),target :: CP - integer(c_int) :: ldc + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount ! - hipblasSsymmStridedBatched_rank_0 = hipblasSsymmStridedBatched_(handle,side,uplo,m,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + hipblasZgeamStridedBatched_64_full_rank_devptr = hipblasZgeamStridedBatched_64_(handle, & + transA,transB,m,n,alpha,c_loc(AP),lda,strideA,beta,c_loc(BP),ldb,strideB,c_loc(CP),ldc, & strideC,batchCount) end function - function hipblasSsymmStridedBatched_rank_1(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP,ldb, & - strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZgeamStridedBatched_64_strided_rank(handle,transA,transB,m,n,alpha,AP,lda, & + strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymmStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeamStridedBatched_64_strided_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: m - integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(:) :: AP - integer(c_int) :: lda + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - real(c_float),target,dimension(:) :: BP - integer(c_int) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:,:) :: BP + integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - real(c_float),target :: beta - real(c_float),target,dimension(:) :: CP - integer(c_int) :: ldc + complex(c_double_complex),target,dimension(:,:,:) :: CP + integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount ! - hipblasSsymmStridedBatched_rank_1 = hipblasSsymmStridedBatched_(handle,side,uplo,m,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasZgeamStridedBatched_64_strided_rank = hipblasZgeamStridedBatched_64_(handle,transA, & + transB,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP), & + ldc,strideC,batchCount) end function - function hipblasSsymmStridedBatched_full_rank(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZgeamStridedBatched_64_strided_rank_devptr(handle,transA,transB,m,n,alpha,AP, & + lda,strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymmStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeamStridedBatched_64_strided_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: m - integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(:,:) :: AP - integer(c_int) :: lda + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_OP_N)) :: transB + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - real(c_float),target,dimension(:,:) :: BP - integer(c_int) :: ldb + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:,:,:) :: BP + integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - real(c_float),target :: beta - real(c_float),target,dimension(:,:) :: CP - integer(c_int) :: ldc + complex(c_double_complex),target,dimension(:,:,:) :: CP + integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount ! - hipblasSsymmStridedBatched_full_rank = hipblasSsymmStridedBatched_(handle,side,uplo,m,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + hipblasZgeamStridedBatched_64_strided_rank_devptr = hipblasZgeamStridedBatched_64_(handle, & + transA,transB,m,n,alpha,c_loc(AP),lda,strideA,beta,c_loc(BP),ldb,strideB,c_loc(CP),ldc, & strideC,batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasDsymmStridedBatched_assumed_rank(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasChemm_assumed_rank(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymmStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemm_assumed_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: m integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(..) :: AP + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_double),target,dimension(..) :: BP + complex(c_float_complex),target,dimension(..) :: BP integer(c_int) :: ldb - integer(c_int64_t) :: strideB - real(c_double),target :: beta - real(c_double),target,dimension(..) :: CP + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: CP integer(c_int) :: ldc - integer(c_int64_t) :: strideC - integer(c_int) :: batchCount ! - hipblasDsymmStridedBatched_assumed_rank = hipblasDsymmStridedBatched_(handle,side,uplo,m,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasChemm_assumed_rank = hipblasChemm_(handle,side,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function -#else - function hipblasDsymmStridedBatched_rank_0(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP,ldb, & - strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasChemm_assumed_rank_devptr(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymmStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemm_assumed_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: m integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target :: AP + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: AP integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_double),target :: BP + complex(c_float_complex),target,dimension(..) :: BP integer(c_int) :: ldb - integer(c_int64_t) :: strideB - real(c_double),target :: beta - real(c_double),target :: CP + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(..) :: CP integer(c_int) :: ldc - integer(c_int64_t) :: strideC - integer(c_int) :: batchCount ! - hipblasDsymmStridedBatched_rank_0 = hipblasDsymmStridedBatched_(handle,side,uplo,m,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasChemm_assumed_rank_devptr = hipblasChemm_(handle,side,uplo,n,k,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) end function - function hipblasDsymmStridedBatched_rank_1(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP,ldb, & - strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding +#else + function hipblasChemm_rank_0(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymmStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemm_rank_0 type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: m integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(:) :: AP + integer(c_int) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_double),target,dimension(:) :: BP + complex(c_float_complex),target :: BP integer(c_int) :: ldb - integer(c_int64_t) :: strideB - real(c_double),target :: beta - real(c_double),target,dimension(:) :: CP + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: CP integer(c_int) :: ldc - integer(c_int64_t) :: strideC - integer(c_int) :: batchCount ! - hipblasDsymmStridedBatched_rank_1 = hipblasDsymmStridedBatched_(handle,side,uplo,m,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasChemm_rank_0 = hipblasChemm_(handle,side,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function - function hipblasDsymmStridedBatched_full_rank(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasChemm_rank_0_devptr(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymmStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemm_rank_0_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: m integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target :: AP integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_double),target,dimension(:,:) :: BP + complex(c_float_complex),target :: BP integer(c_int) :: ldb - integer(c_int64_t) :: strideB - real(c_double),target :: beta - real(c_double),target,dimension(:,:) :: CP + type(c_ptr),value :: beta + complex(c_float_complex),target :: CP integer(c_int) :: ldc - integer(c_int64_t) :: strideC - integer(c_int) :: batchCount ! - hipblasDsymmStridedBatched_full_rank = hipblasDsymmStridedBatched_(handle,side,uplo,m,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasChemm_rank_0_devptr = hipblasChemm_(handle,side,uplo,n,k,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCsymmStridedBatched_assumed_rank(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasChemm_rank_1(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymmStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemm_rank_1 type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: m integer(c_int) :: n + integer(c_int) :: k complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: AP + complex(c_float_complex),target,dimension(:) :: AP integer(c_int) :: lda - integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(..) :: BP + complex(c_float_complex),target,dimension(:) :: BP integer(c_int) :: ldb - integer(c_int64_t) :: strideB complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(..) :: CP + complex(c_float_complex),target,dimension(:) :: CP integer(c_int) :: ldc - integer(c_int64_t) :: strideC - integer(c_int) :: batchCount ! - hipblasCsymmStridedBatched_assumed_rank = hipblasCsymmStridedBatched_(handle,side,uplo,m,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasChemm_rank_1 = hipblasChemm_(handle,side,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function -#else - function hipblasCsymmStridedBatched_rank_0(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP,ldb, & - strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasChemm_rank_1_devptr(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymmStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemm_rank_1_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: m integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: AP + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: AP integer(c_int) :: lda - integer(c_int64_t) :: strideA - complex(c_float_complex),target :: BP + complex(c_float_complex),target,dimension(:) :: BP integer(c_int) :: ldb - integer(c_int64_t) :: strideB - complex(c_float_complex),target :: beta - complex(c_float_complex),target :: CP + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: CP integer(c_int) :: ldc - integer(c_int64_t) :: strideC - integer(c_int) :: batchCount ! - hipblasCsymmStridedBatched_rank_0 = hipblasCsymmStridedBatched_(handle,side,uplo,m,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasChemm_rank_1_devptr = hipblasChemm_(handle,side,uplo,n,k,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) end function - function hipblasCsymmStridedBatched_rank_1(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP,ldb, & - strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasChemm_full_rank(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymmStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemm_full_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: m integer(c_int) :: n + integer(c_int) :: k complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: AP + complex(c_float_complex),target,dimension(:,:) :: AP integer(c_int) :: lda - integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:) :: BP + complex(c_float_complex),target,dimension(:,:) :: BP integer(c_int) :: ldb - integer(c_int64_t) :: strideB complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:) :: CP + complex(c_float_complex),target,dimension(:,:) :: CP integer(c_int) :: ldc - integer(c_int64_t) :: strideC - integer(c_int) :: batchCount ! - hipblasCsymmStridedBatched_rank_1 = hipblasCsymmStridedBatched_(handle,side,uplo,m,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasChemm_full_rank = hipblasChemm_(handle,side,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function - function hipblasCsymmStridedBatched_full_rank(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasChemm_full_rank_devptr(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymmStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemm_full_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: m integer(c_int) :: n - complex(c_float_complex),target :: alpha + integer(c_int) :: k + type(c_ptr),value :: alpha complex(c_float_complex),target,dimension(:,:) :: AP integer(c_int) :: lda - integer(c_int64_t) :: strideA complex(c_float_complex),target,dimension(:,:) :: BP integer(c_int) :: ldb - integer(c_int64_t) :: strideB - complex(c_float_complex),target :: beta + type(c_ptr),value :: beta complex(c_float_complex),target,dimension(:,:) :: CP integer(c_int) :: ldc - integer(c_int64_t) :: strideC - integer(c_int) :: batchCount ! - hipblasCsymmStridedBatched_full_rank = hipblasCsymmStridedBatched_(handle,side,uplo,m,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasChemm_full_rank_devptr = hipblasChemm_(handle,side,uplo,n,k,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasZsymmStridedBatched_assumed_rank(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZhemm_assumed_rank(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymmStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemm_assumed_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: m integer(c_int) :: n + integer(c_int) :: k complex(c_double_complex),target :: alpha complex(c_double_complex),target,dimension(..) :: AP integer(c_int) :: lda - integer(c_int64_t) :: strideA complex(c_double_complex),target,dimension(..) :: BP integer(c_int) :: ldb - integer(c_int64_t) :: strideB complex(c_double_complex),target :: beta complex(c_double_complex),target,dimension(..) :: CP integer(c_int) :: ldc - integer(c_int64_t) :: strideC - integer(c_int) :: batchCount ! - hipblasZsymmStridedBatched_assumed_rank = hipblasZsymmStridedBatched_(handle,side,uplo,m,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasZhemm_assumed_rank = hipblasZhemm_(handle,side,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function -#else - function hipblasZsymmStridedBatched_rank_0(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP,ldb, & - strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZhemm_assumed_rank_devptr(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymmStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemm_assumed_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: m integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: AP + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: AP integer(c_int) :: lda - integer(c_int64_t) :: strideA - complex(c_double_complex),target :: BP + complex(c_double_complex),target,dimension(..) :: BP integer(c_int) :: ldb - integer(c_int64_t) :: strideB - complex(c_double_complex),target :: beta - complex(c_double_complex),target :: CP + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(..) :: CP integer(c_int) :: ldc - integer(c_int64_t) :: strideC - integer(c_int) :: batchCount ! - hipblasZsymmStridedBatched_rank_0 = hipblasZsymmStridedBatched_(handle,side,uplo,m,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasZhemm_assumed_rank_devptr = hipblasZhemm_(handle,side,uplo,n,k,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) end function - function hipblasZsymmStridedBatched_rank_1(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP,ldb, & - strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding +#else + function hipblasZhemm_rank_0(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymmStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemm_rank_0 type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: m integer(c_int) :: n + integer(c_int) :: k complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: AP + complex(c_double_complex),target :: AP integer(c_int) :: lda - integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:) :: BP + complex(c_double_complex),target :: BP integer(c_int) :: ldb - integer(c_int64_t) :: strideB complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:) :: CP + complex(c_double_complex),target :: CP integer(c_int) :: ldc - integer(c_int64_t) :: strideC - integer(c_int) :: batchCount ! - hipblasZsymmStridedBatched_rank_1 = hipblasZsymmStridedBatched_(handle,side,uplo,m,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasZhemm_rank_0 = hipblasZhemm_(handle,side,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function - function hipblasZsymmStridedBatched_full_rank(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZhemm_rank_0_devptr(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymmStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemm_rank_0_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int) :: m integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target :: AP integer(c_int) :: lda - integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:,:) :: BP + complex(c_double_complex),target :: BP integer(c_int) :: ldb - integer(c_int64_t) :: strideB - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:,:) :: CP + type(c_ptr),value :: beta + complex(c_double_complex),target :: CP integer(c_int) :: ldc - integer(c_int64_t) :: strideC - integer(c_int) :: batchCount ! - hipblasZsymmStridedBatched_full_rank = hipblasZsymmStridedBatched_(handle,side,uplo,m,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasZhemm_rank_0_devptr = hipblasZhemm_(handle,side,uplo,n,k,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasSsymmStridedBatched_64_assumed_rank(handle,side,uplo,m,n,alpha,AP,lda,strideA, & - BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZhemm_rank_1(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymmStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemm_rank_1 type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: m - integer(c_int64_t) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(..) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - real(c_float),target,dimension(..) :: BP - integer(c_int64_t) :: ldb - integer(c_int64_t) :: strideB - real(c_float),target :: beta - real(c_float),target,dimension(..) :: CP - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int) :: ldc ! - hipblasSsymmStridedBatched_64_assumed_rank = hipblasSsymmStridedBatched_64_(handle,side, & - uplo,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & - ldc,strideC,batchCount) + hipblasZhemm_rank_1 = hipblasZhemm_(handle,side,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function -#else - function hipblasSsymmStridedBatched_64_rank_0(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZhemm_rank_1_devptr(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymmStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemm_rank_1_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: m - integer(c_int64_t) :: n - real(c_float),target :: alpha - real(c_float),target :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - real(c_float),target :: BP - integer(c_int64_t) :: ldb - integer(c_int64_t) :: strideB - real(c_float),target :: beta - real(c_float),target :: CP - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int) :: ldc ! - hipblasSsymmStridedBatched_64_rank_0 = hipblasSsymmStridedBatched_64_(handle,side,uplo,m,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasZhemm_rank_1_devptr = hipblasZhemm_(handle,side,uplo,n,k,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) end function - function hipblasSsymmStridedBatched_64_rank_1(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZhemm_full_rank(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymmStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemm_full_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: m - integer(c_int64_t) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - real(c_float),target,dimension(:) :: BP - integer(c_int64_t) :: ldb - integer(c_int64_t) :: strideB - real(c_float),target :: beta - real(c_float),target,dimension(:) :: CP - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc ! - hipblasSsymmStridedBatched_64_rank_1 = hipblasSsymmStridedBatched_64_(handle,side,uplo,m,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasZhemm_full_rank = hipblasZhemm_(handle,side,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function - function hipblasSsymmStridedBatched_64_full_rank(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZhemm_full_rank_devptr(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsymmStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemm_full_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: m - integer(c_int64_t) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - real(c_float),target,dimension(:,:) :: BP - integer(c_int64_t) :: ldb - integer(c_int64_t) :: strideB - real(c_float),target :: beta - real(c_float),target,dimension(:,:) :: CP - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc ! - hipblasSsymmStridedBatched_64_full_rank = hipblasSsymmStridedBatched_64_(handle,side,uplo,m, & - n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasZhemm_full_rank_devptr = hipblasZhemm_(handle,side,uplo,n,k,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasDsymmStridedBatched_64_assumed_rank(handle,side,uplo,m,n,alpha,AP,lda,strideA, & - BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasChemm_64_assumed_rank(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymmStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemm_64_assumed_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: m integer(c_int64_t) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - real(c_double),target,dimension(..) :: BP + complex(c_float_complex),target,dimension(..) :: BP integer(c_int64_t) :: ldb - integer(c_int64_t) :: strideB - real(c_double),target :: beta - real(c_double),target,dimension(..) :: CP + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: CP integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount ! - hipblasDsymmStridedBatched_64_assumed_rank = hipblasDsymmStridedBatched_64_(handle,side, & - uplo,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & - ldc,strideC,batchCount) - end function - -#else - function hipblasDsymmStridedBatched_64_rank_0(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + hipblasChemm_64_assumed_rank = hipblasChemm_64_(handle,side,uplo,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasChemm_64_assumed_rank_devptr(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP, & + ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymmStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemm_64_assumed_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: m integer(c_int64_t) :: n - real(c_double),target :: alpha - real(c_double),target :: AP + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: AP integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - real(c_double),target :: BP + complex(c_float_complex),target,dimension(..) :: BP integer(c_int64_t) :: ldb - integer(c_int64_t) :: strideB - real(c_double),target :: beta - real(c_double),target :: CP + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(..) :: CP integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount ! - hipblasDsymmStridedBatched_64_rank_0 = hipblasDsymmStridedBatched_64_(handle,side,uplo,m,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasChemm_64_assumed_rank_devptr = hipblasChemm_64_(handle,side,uplo,n,k,alpha,c_loc(AP), & + lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) end function - function hipblasDsymmStridedBatched_64_rank_1(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding +#else + function hipblasChemm_64_rank_0(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymmStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemm_64_rank_0 type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: m integer(c_int64_t) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - real(c_double),target,dimension(:) :: BP + complex(c_float_complex),target :: BP integer(c_int64_t) :: ldb - integer(c_int64_t) :: strideB - real(c_double),target :: beta - real(c_double),target,dimension(:) :: CP + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: CP integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount ! - hipblasDsymmStridedBatched_64_rank_1 = hipblasDsymmStridedBatched_64_(handle,side,uplo,m,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasChemm_64_rank_0 = hipblasChemm_64_(handle,side,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function - function hipblasDsymmStridedBatched_64_full_rank(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasChemm_64_rank_0_devptr(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsymmStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemm_64_rank_0_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: m integer(c_int64_t) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target :: AP integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - real(c_double),target,dimension(:,:) :: BP + complex(c_float_complex),target :: BP integer(c_int64_t) :: ldb - integer(c_int64_t) :: strideB - real(c_double),target :: beta - real(c_double),target,dimension(:,:) :: CP + type(c_ptr),value :: beta + complex(c_float_complex),target :: CP integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount ! - hipblasDsymmStridedBatched_64_full_rank = hipblasDsymmStridedBatched_64_(handle,side,uplo,m, & - n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasChemm_64_rank_0_devptr = hipblasChemm_64_(handle,side,uplo,n,k,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCsymmStridedBatched_64_assumed_rank(handle,side,uplo,m,n,alpha,AP,lda,strideA, & - BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasChemm_64_rank_1(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymmStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemm_64_rank_1 type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: m integer(c_int64_t) :: n + integer(c_int64_t) :: k complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: AP + complex(c_float_complex),target,dimension(:) :: AP integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(..) :: BP + complex(c_float_complex),target,dimension(:) :: BP integer(c_int64_t) :: ldb - integer(c_int64_t) :: strideB complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(..) :: CP + complex(c_float_complex),target,dimension(:) :: CP integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount ! - hipblasCsymmStridedBatched_64_assumed_rank = hipblasCsymmStridedBatched_64_(handle,side, & - uplo,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & - ldc,strideC,batchCount) + hipblasChemm_64_rank_1 = hipblasChemm_64_(handle,side,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function -#else - function hipblasCsymmStridedBatched_64_rank_0(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasChemm_64_rank_1_devptr(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymmStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemm_64_rank_1_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: AP + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: AP integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - complex(c_float_complex),target :: BP + complex(c_float_complex),target,dimension(:) :: BP integer(c_int64_t) :: ldb - integer(c_int64_t) :: strideB - complex(c_float_complex),target :: beta - complex(c_float_complex),target :: CP + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: CP integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount ! - hipblasCsymmStridedBatched_64_rank_0 = hipblasCsymmStridedBatched_64_(handle,side,uplo,m,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasChemm_64_rank_1_devptr = hipblasChemm_64_(handle,side,uplo,n,k,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) end function - function hipblasCsymmStridedBatched_64_rank_1(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasChemm_64_full_rank(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymmStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemm_64_full_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: m integer(c_int64_t) :: n + integer(c_int64_t) :: k complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: AP + complex(c_float_complex),target,dimension(:,:) :: AP integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:) :: BP + complex(c_float_complex),target,dimension(:,:) :: BP integer(c_int64_t) :: ldb - integer(c_int64_t) :: strideB complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:) :: CP + complex(c_float_complex),target,dimension(:,:) :: CP integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount ! - hipblasCsymmStridedBatched_64_rank_1 = hipblasCsymmStridedBatched_64_(handle,side,uplo,m,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasChemm_64_full_rank = hipblasChemm_64_(handle,side,uplo,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function - function hipblasCsymmStridedBatched_64_full_rank(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasChemm_64_full_rank_devptr(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsymmStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemm_64_full_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha + integer(c_int64_t) :: k + type(c_ptr),value :: alpha complex(c_float_complex),target,dimension(:,:) :: AP integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA complex(c_float_complex),target,dimension(:,:) :: BP integer(c_int64_t) :: ldb - integer(c_int64_t) :: strideB - complex(c_float_complex),target :: beta + type(c_ptr),value :: beta complex(c_float_complex),target,dimension(:,:) :: CP integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount ! - hipblasCsymmStridedBatched_64_full_rank = hipblasCsymmStridedBatched_64_(handle,side,uplo,m, & - n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasChemm_64_full_rank_devptr = hipblasChemm_64_(handle,side,uplo,n,k,alpha,c_loc(AP), & + lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasZsymmStridedBatched_64_assumed_rank(handle,side,uplo,m,n,alpha,AP,lda,strideA, & - BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZhemm_64_assumed_rank(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymmStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemm_64_assumed_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: m integer(c_int64_t) :: n + integer(c_int64_t) :: k complex(c_double_complex),target :: alpha complex(c_double_complex),target,dimension(..) :: AP integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA complex(c_double_complex),target,dimension(..) :: BP integer(c_int64_t) :: ldb - integer(c_int64_t) :: strideB complex(c_double_complex),target :: beta complex(c_double_complex),target,dimension(..) :: CP integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount ! - hipblasZsymmStridedBatched_64_assumed_rank = hipblasZsymmStridedBatched_64_(handle,side, & - uplo,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & - ldc,strideC,batchCount) + hipblasZhemm_64_assumed_rank = hipblasZhemm_64_(handle,side,uplo,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + end function + + function hipblasZhemm_64_assumed_rank_devptr(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP, & + ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemm_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + ! + hipblasZhemm_64_assumed_rank_devptr = hipblasZhemm_64_(handle,side,uplo,n,k,alpha,c_loc(AP), & + lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) end function #else - function hipblasZsymmStridedBatched_64_rank_0(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZhemm_64_rank_0(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymmStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemm_64_rank_0 type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: m integer(c_int64_t) :: n + integer(c_int64_t) :: k complex(c_double_complex),target :: alpha complex(c_double_complex),target :: AP integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA complex(c_double_complex),target :: BP integer(c_int64_t) :: ldb - integer(c_int64_t) :: strideB complex(c_double_complex),target :: beta complex(c_double_complex),target :: CP integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount ! - hipblasZsymmStridedBatched_64_rank_0 = hipblasZsymmStridedBatched_64_(handle,side,uplo,m,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasZhemm_64_rank_0 = hipblasZhemm_64_(handle,side,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function - function hipblasZsymmStridedBatched_64_rank_1(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZhemm_64_rank_0_devptr(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymmStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemm_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + complex(c_double_complex),target :: CP + integer(c_int64_t) :: ldc + ! + hipblasZhemm_64_rank_0_devptr = hipblasZhemm_64_(handle,side,uplo,n,k,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) + end function + + function hipblasZhemm_64_rank_1(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemm_64_rank_1 type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: m integer(c_int64_t) :: n + integer(c_int64_t) :: k complex(c_double_complex),target :: alpha complex(c_double_complex),target,dimension(:) :: AP integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA complex(c_double_complex),target,dimension(:) :: BP integer(c_int64_t) :: ldb - integer(c_int64_t) :: strideB complex(c_double_complex),target :: beta complex(c_double_complex),target,dimension(:) :: CP integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount ! - hipblasZsymmStridedBatched_64_rank_1 = hipblasZsymmStridedBatched_64_(handle,side,uplo,m,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasZhemm_64_rank_1 = hipblasZhemm_64_(handle,side,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & + c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function - function hipblasZsymmStridedBatched_64_full_rank(handle,side,uplo,m,n,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZhemm_64_rank_1_devptr(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsymmStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemm_64_rank_1_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: AP integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:,:) :: BP + complex(c_double_complex),target,dimension(:) :: BP integer(c_int64_t) :: ldb - integer(c_int64_t) :: strideB - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:,:) :: CP + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: CP integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount ! - hipblasZsymmStridedBatched_64_full_rank = hipblasZsymmStridedBatched_64_(handle,side,uplo,m, & - n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasZhemm_64_rank_1_devptr = hipblasZhemm_64_(handle,side,uplo,n,k,alpha,c_loc(AP),lda, & + c_loc(BP),ldb,beta,c_loc(CP),ldc) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasSsyrk_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) - use iso_c_binding + function hipblasZhemm_64_full_rank(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrk_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemm_64_full_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int) :: n - integer(c_int) :: k - real(c_float),target :: alpha - real(c_float),target,dimension(..) :: AP - integer(c_int) :: lda - real(c_float),target :: beta - real(c_float),target,dimension(..) :: CP - integer(c_int) :: ldc + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc ! - hipblasSsyrk_assumed_rank = hipblasSsyrk_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(beta),c_loc(CP),ldc) + hipblasZhemm_64_full_rank = hipblasZhemm_64_(handle,side,uplo,n,k,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) end function -#else - function hipblasSsyrk_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) - use iso_c_binding + function hipblasZhemm_64_full_rank_devptr(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrk_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemm_64_full_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int) :: n - integer(c_int) :: k - real(c_float),target :: alpha - real(c_float),target :: AP - integer(c_int) :: lda - real(c_float),target :: beta - real(c_float),target :: CP - integer(c_int) :: ldc + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc ! - hipblasSsyrk_rank_0 = hipblasSsyrk_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(beta),c_loc(CP),ldc) + hipblasZhemm_64_full_rank_devptr = hipblasZhemm_64_(handle,side,uplo,n,k,alpha,c_loc(AP), & + lda,c_loc(BP),ldb,beta,c_loc(CP),ldc) end function - function hipblasSsyrk_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasChemmStridedBatched_assumed_rank(handle,side,uplo,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrk_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemmStridedBatched_assumed_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA integer(c_int) :: n integer(c_int) :: k - real(c_float),target :: alpha - real(c_float),target,dimension(:) :: AP + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP integer(c_int) :: lda - real(c_float),target :: beta - real(c_float),target,dimension(:) :: CP + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: CP integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasSsyrk_rank_1 = hipblasSsyrk_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(beta),c_loc(CP),ldc) + hipblasChemmStridedBatched_assumed_rank = hipblasChemmStridedBatched_(handle,side,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) end function - function hipblasSsyrk_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) - use iso_c_binding + function hipblasChemmStridedBatched_assumed_rank_devptr(handle,side,uplo,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrk_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemmStridedBatched_assumed_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA integer(c_int) :: n integer(c_int) :: k - real(c_float),target :: alpha - real(c_float),target,dimension(:,:) :: AP + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: AP integer(c_int) :: lda - real(c_float),target :: beta - real(c_float),target,dimension(:,:) :: CP + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(..) :: CP integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasSsyrk_full_rank = hipblasSsyrk_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(beta),c_loc(CP),ldc) + hipblasChemmStridedBatched_assumed_rank_devptr = hipblasChemmStridedBatched_(handle,side, & + uplo,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDsyrk_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) - use iso_c_binding +#else + function hipblasChemmStridedBatched_rank_0(handle,side,uplo,n,k,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrk_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemmStridedBatched_rank_0 type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA integer(c_int) :: n integer(c_int) :: k - real(c_double),target :: alpha - real(c_double),target,dimension(..) :: AP + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP integer(c_int) :: lda - real(c_double),target :: beta - real(c_double),target,dimension(..) :: CP + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target :: CP integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasDsyrk_assumed_rank = hipblasDsyrk_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(beta),c_loc(CP),ldc) + hipblasChemmStridedBatched_rank_0 = hipblasChemmStridedBatched_(handle,side,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) end function -#else - function hipblasDsyrk_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) - use iso_c_binding + function hipblasChemmStridedBatched_rank_0_devptr(handle,side,uplo,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrk_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemmStridedBatched_rank_0_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA integer(c_int) :: n integer(c_int) :: k - real(c_double),target :: alpha - real(c_double),target :: AP + type(c_ptr),value :: alpha + complex(c_float_complex),target :: AP integer(c_int) :: lda - real(c_double),target :: beta - real(c_double),target :: CP + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_float_complex),target :: CP integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasDsyrk_rank_0 = hipblasDsyrk_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(beta),c_loc(CP),ldc) + hipblasChemmStridedBatched_rank_0_devptr = hipblasChemmStridedBatched_(handle,side,uplo,n,k, & + alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC,batchCount) end function - function hipblasDsyrk_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) - use iso_c_binding + function hipblasChemmStridedBatched_rank_1(handle,side,uplo,n,k,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrk_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemmStridedBatched_rank_1 type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA integer(c_int) :: n integer(c_int) :: k - real(c_double),target :: alpha - real(c_double),target,dimension(:) :: AP + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP integer(c_int) :: lda - real(c_double),target :: beta - real(c_double),target,dimension(:) :: CP + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:) :: CP integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasDsyrk_rank_1 = hipblasDsyrk_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(beta),c_loc(CP),ldc) + hipblasChemmStridedBatched_rank_1 = hipblasChemmStridedBatched_(handle,side,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) end function - function hipblasDsyrk_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) - use iso_c_binding + function hipblasChemmStridedBatched_rank_1_devptr(handle,side,uplo,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrk_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemmStridedBatched_rank_1_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA integer(c_int) :: n integer(c_int) :: k - real(c_double),target :: alpha - real(c_double),target,dimension(:,:) :: AP + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: AP integer(c_int) :: lda - real(c_double),target :: beta - real(c_double),target,dimension(:,:) :: CP + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: CP integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasDsyrk_full_rank = hipblasDsyrk_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(beta),c_loc(CP),ldc) + hipblasChemmStridedBatched_rank_1_devptr = hipblasChemmStridedBatched_(handle,side,uplo,n,k, & + alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCsyrk_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) - use iso_c_binding + function hipblasChemmStridedBatched_full_rank(handle,side,uplo,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrk_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemmStridedBatched_full_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA integer(c_int) :: n integer(c_int) :: k complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: AP + complex(c_float_complex),target,dimension(:,:) :: AP integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(..) :: CP + complex(c_float_complex),target,dimension(:,:) :: CP integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasCsyrk_assumed_rank = hipblasCsyrk_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(beta),c_loc(CP),ldc) + hipblasChemmStridedBatched_full_rank = hipblasChemmStridedBatched_(handle,side,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) end function -#else - function hipblasCsyrk_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) - use iso_c_binding + function hipblasChemmStridedBatched_full_rank_devptr(handle,side,uplo,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrk_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemmStridedBatched_full_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA integer(c_int) :: n integer(c_int) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: AP + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP integer(c_int) :: lda - complex(c_float_complex),target :: beta - complex(c_float_complex),target :: CP + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:,:) :: CP integer(c_int) :: ldc - ! - hipblasCsyrk_rank_0 = hipblasCsyrk_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(beta),c_loc(CP),ldc) + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasChemmStridedBatched_full_rank_devptr = hipblasChemmStridedBatched_(handle,side,uplo, & + n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC,batchCount) end function - function hipblasCsyrk_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) - use iso_c_binding + function hipblasChemmStridedBatched_strided_rank(handle,side,uplo,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrk_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemmStridedBatched_strided_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA integer(c_int) :: n integer(c_int) :: k complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: AP + complex(c_float_complex),target,dimension(:,:,:) :: AP integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:) :: CP + complex(c_float_complex),target,dimension(:,:,:) :: CP integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasCsyrk_rank_1 = hipblasCsyrk_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(beta),c_loc(CP),ldc) + hipblasChemmStridedBatched_strided_rank = hipblasChemmStridedBatched_(handle,side,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) end function - function hipblasCsyrk_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) - use iso_c_binding + function hipblasChemmStridedBatched_strided_rank_devptr(handle,side,uplo,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrk_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemmStridedBatched_strided_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA integer(c_int) :: n integer(c_int) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:,:) :: AP + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:,:) :: AP integer(c_int) :: lda - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:,:,:) :: CP integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasCsyrk_full_rank = hipblasCsyrk_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(beta),c_loc(CP),ldc) + hipblasChemmStridedBatched_strided_rank_devptr = hipblasChemmStridedBatched_(handle,side, & + uplo,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasZsyrk_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) - use iso_c_binding + function hipblasZhemmStridedBatched_assumed_rank(handle,side,uplo,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrk_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemmStridedBatched_assumed_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA integer(c_int) :: n integer(c_int) :: k complex(c_double_complex),target :: alpha complex(c_double_complex),target,dimension(..) :: AP integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB complex(c_double_complex),target :: beta complex(c_double_complex),target,dimension(..) :: CP integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasZsyrk_assumed_rank = hipblasZsyrk_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(beta),c_loc(CP),ldc) + hipblasZhemmStridedBatched_assumed_rank = hipblasZhemmStridedBatched_(handle,side,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) end function -#else - function hipblasZsyrk_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) - use iso_c_binding + function hipblasZhemmStridedBatched_assumed_rank_devptr(handle,side,uplo,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrk_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemmStridedBatched_assumed_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA integer(c_int) :: n integer(c_int) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: AP + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: AP integer(c_int) :: lda - complex(c_double_complex),target :: beta - complex(c_double_complex),target :: CP + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(..) :: CP integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasZsyrk_rank_0 = hipblasZsyrk_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(beta),c_loc(CP),ldc) + hipblasZhemmStridedBatched_assumed_rank_devptr = hipblasZhemmStridedBatched_(handle,side, & + uplo,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) end function - function hipblasZsyrk_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) - use iso_c_binding +#else + function hipblasZhemmStridedBatched_rank_0(handle,side,uplo,n,k,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrk_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemmStridedBatched_rank_0 type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA integer(c_int) :: n integer(c_int) :: k complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: AP + complex(c_double_complex),target :: AP integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:) :: CP + complex(c_double_complex),target :: CP integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasZsyrk_rank_1 = hipblasZsyrk_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(beta),c_loc(CP),ldc) + hipblasZhemmStridedBatched_rank_0 = hipblasZhemmStridedBatched_(handle,side,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) end function - function hipblasZsyrk_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) - use iso_c_binding + function hipblasZhemmStridedBatched_rank_0_devptr(handle,side,uplo,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrk_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemmStridedBatched_rank_0_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA integer(c_int) :: n integer(c_int) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:,:) :: AP + type(c_ptr),value :: alpha + complex(c_double_complex),target :: AP integer(c_int) :: lda - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_double_complex),target :: CP integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasZsyrk_full_rank = hipblasZsyrk_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(beta),c_loc(CP),ldc) - end function - -#endif -#ifdef USE_ASSUMED_RANK - function hipblasSsyrk_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrk_64_assumed_rank - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_float),target :: alpha - real(c_float),target,dimension(..) :: AP - integer(c_int64_t) :: lda - real(c_float),target :: beta - real(c_float),target,dimension(..) :: CP - integer(c_int64_t) :: ldc - ! - hipblasSsyrk_64_assumed_rank = hipblasSsyrk_64_(handle,uplo,transA,n,k,c_loc(alpha), & - c_loc(AP),lda,c_loc(beta),c_loc(CP),ldc) + hipblasZhemmStridedBatched_rank_0_devptr = hipblasZhemmStridedBatched_(handle,side,uplo,n,k, & + alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC,batchCount) end function -#else - function hipblasSsyrk_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) - use iso_c_binding + function hipblasZhemmStridedBatched_rank_1(handle,side,uplo,n,k,alpha,AP,lda,strideA,BP,ldb, & + strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrk_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemmStridedBatched_rank_1 type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_float),target :: alpha - real(c_float),target :: AP - integer(c_int64_t) :: lda - real(c_float),target :: beta - real(c_float),target :: CP - integer(c_int64_t) :: ldc + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasSsyrk_64_rank_0 = hipblasSsyrk_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(beta),c_loc(CP),ldc) + hipblasZhemmStridedBatched_rank_1 = hipblasZhemmStridedBatched_(handle,side,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) end function - function hipblasSsyrk_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) - use iso_c_binding + function hipblasZhemmStridedBatched_rank_1_devptr(handle,side,uplo,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrk_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemmStridedBatched_rank_1_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_float),target :: alpha - real(c_float),target,dimension(:) :: AP - integer(c_int64_t) :: lda - real(c_float),target :: beta - real(c_float),target,dimension(:) :: CP - integer(c_int64_t) :: ldc + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasSsyrk_64_rank_1 = hipblasSsyrk_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(beta),c_loc(CP),ldc) + hipblasZhemmStridedBatched_rank_1_devptr = hipblasZhemmStridedBatched_(handle,side,uplo,n,k, & + alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC,batchCount) end function - function hipblasSsyrk_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) - use iso_c_binding + function hipblasZhemmStridedBatched_full_rank(handle,side,uplo,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrk_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemmStridedBatched_full_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_float),target :: alpha - real(c_float),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - real(c_float),target :: beta - real(c_float),target,dimension(:,:) :: CP - integer(c_int64_t) :: ldc + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasSsyrk_64_full_rank = hipblasSsyrk_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & - lda,c_loc(beta),c_loc(CP),ldc) + hipblasZhemmStridedBatched_full_rank = hipblasZhemmStridedBatched_(handle,side,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDsyrk_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) - use iso_c_binding + function hipblasZhemmStridedBatched_full_rank_devptr(handle,side,uplo,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrk_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemmStridedBatched_full_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_double),target :: alpha - real(c_double),target,dimension(..) :: AP - integer(c_int64_t) :: lda - real(c_double),target :: beta - real(c_double),target,dimension(..) :: CP - integer(c_int64_t) :: ldc + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasDsyrk_64_assumed_rank = hipblasDsyrk_64_(handle,uplo,transA,n,k,c_loc(alpha), & - c_loc(AP),lda,c_loc(beta),c_loc(CP),ldc) + hipblasZhemmStridedBatched_full_rank_devptr = hipblasZhemmStridedBatched_(handle,side,uplo, & + n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC,batchCount) end function -#else - function hipblasDsyrk_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) - use iso_c_binding + function hipblasZhemmStridedBatched_strided_rank(handle,side,uplo,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrk_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemmStridedBatched_strided_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_double),target :: alpha - real(c_double),target :: AP - integer(c_int64_t) :: lda - real(c_double),target :: beta - real(c_double),target :: CP - integer(c_int64_t) :: ldc + integer(c_int) :: n + integer(c_int) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasDsyrk_64_rank_0 = hipblasDsyrk_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(beta),c_loc(CP),ldc) + hipblasZhemmStridedBatched_strided_rank = hipblasZhemmStridedBatched_(handle,side,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) end function - function hipblasDsyrk_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) - use iso_c_binding + function hipblasZhemmStridedBatched_strided_rank_devptr(handle,side,uplo,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrk_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemmStridedBatched_strided_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_double),target :: alpha - real(c_double),target,dimension(:) :: AP - integer(c_int64_t) :: lda - real(c_double),target :: beta - real(c_double),target,dimension(:) :: CP - integer(c_int64_t) :: ldc + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:,:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasDsyrk_64_rank_1 = hipblasDsyrk_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(beta),c_loc(CP),ldc) + hipblasZhemmStridedBatched_strided_rank_devptr = hipblasZhemmStridedBatched_(handle,side, & + uplo,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) end function - function hipblasDsyrk_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasChemmStridedBatched_64_assumed_rank(handle,side,uplo,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrk_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemmStridedBatched_64_assumed_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA integer(c_int64_t) :: n integer(c_int64_t) :: k - real(c_double),target :: alpha - real(c_double),target,dimension(:,:) :: AP + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP integer(c_int64_t) :: lda - real(c_double),target :: beta - real(c_double),target,dimension(:,:) :: CP + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(..) :: CP integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasDsyrk_64_full_rank = hipblasDsyrk_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & - lda,c_loc(beta),c_loc(CP),ldc) + hipblasChemmStridedBatched_64_assumed_rank = hipblasChemmStridedBatched_64_(handle,side, & + uplo,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCsyrk_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) - use iso_c_binding + function hipblasChemmStridedBatched_64_assumed_rank_devptr(handle,side,uplo,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrk_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemmStridedBatched_64_assumed_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA integer(c_int64_t) :: n integer(c_int64_t) :: k - complex(c_float_complex),target :: alpha + type(c_ptr),value :: alpha complex(c_float_complex),target,dimension(..) :: AP integer(c_int64_t) :: lda - complex(c_float_complex),target :: beta + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta complex(c_float_complex),target,dimension(..) :: CP integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasCsyrk_64_assumed_rank = hipblasCsyrk_64_(handle,uplo,transA,n,k,c_loc(alpha), & - c_loc(AP),lda,c_loc(beta),c_loc(CP),ldc) + hipblasChemmStridedBatched_64_assumed_rank_devptr = hipblasChemmStridedBatched_64_(handle, & + side,uplo,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc, & + strideC,batchCount) end function #else - function hipblasCsyrk_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) - use iso_c_binding + function hipblasChemmStridedBatched_64_rank_0(handle,side,uplo,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrk_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemmStridedBatched_64_rank_0 type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA integer(c_int64_t) :: n integer(c_int64_t) :: k complex(c_float_complex),target :: alpha complex(c_float_complex),target :: AP integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB complex(c_float_complex),target :: beta complex(c_float_complex),target :: CP integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasCsyrk_64_rank_0 = hipblasCsyrk_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(beta),c_loc(CP),ldc) + hipblasChemmStridedBatched_64_rank_0 = hipblasChemmStridedBatched_64_(handle,side,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) end function - function hipblasCsyrk_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) - use iso_c_binding + function hipblasChemmStridedBatched_64_rank_0_devptr(handle,side,uplo,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrk_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemmStridedBatched_64_rank_0_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA integer(c_int64_t) :: n integer(c_int64_t) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: AP + type(c_ptr),value :: alpha + complex(c_float_complex),target :: AP integer(c_int64_t) :: lda - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:) :: CP + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_float_complex),target :: CP integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasCsyrk_64_rank_1 = hipblasCsyrk_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(beta),c_loc(CP),ldc) + hipblasChemmStridedBatched_64_rank_0_devptr = hipblasChemmStridedBatched_64_(handle,side, & + uplo,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) end function - function hipblasCsyrk_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) - use iso_c_binding + function hipblasChemmStridedBatched_64_rank_1(handle,side,uplo,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrk_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemmStridedBatched_64_rank_1 type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA integer(c_int64_t) :: n integer(c_int64_t) :: k complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:,:) :: AP + complex(c_float_complex),target,dimension(:) :: AP integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:,:) :: CP - integer(c_int64_t) :: ldc - ! - hipblasCsyrk_64_full_rank = hipblasCsyrk_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & - lda,c_loc(beta),c_loc(CP),ldc) - end function - -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZsyrk_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrk_64_assumed_rank - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: AP - integer(c_int64_t) :: lda - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(..) :: CP + complex(c_float_complex),target,dimension(:) :: CP integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasZsyrk_64_assumed_rank = hipblasZsyrk_64_(handle,uplo,transA,n,k,c_loc(alpha), & - c_loc(AP),lda,c_loc(beta),c_loc(CP),ldc) + hipblasChemmStridedBatched_64_rank_1 = hipblasChemmStridedBatched_64_(handle,side,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) end function -#else - function hipblasZsyrk_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) - use iso_c_binding + function hipblasChemmStridedBatched_64_rank_1_devptr(handle,side,uplo,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrk_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemmStridedBatched_64_rank_1_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA integer(c_int64_t) :: n integer(c_int64_t) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: AP + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: AP integer(c_int64_t) :: lda - complex(c_double_complex),target :: beta - complex(c_double_complex),target :: CP + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:) :: CP integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasZsyrk_64_rank_0 = hipblasZsyrk_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(beta),c_loc(CP),ldc) + hipblasChemmStridedBatched_64_rank_1_devptr = hipblasChemmStridedBatched_64_(handle,side, & + uplo,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) end function - function hipblasZsyrk_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) - use iso_c_binding + function hipblasChemmStridedBatched_64_full_rank(handle,side,uplo,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrk_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemmStridedBatched_64_full_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA integer(c_int64_t) :: n integer(c_int64_t) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: AP + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP integer(c_int64_t) :: lda - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:) :: CP + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:,:) :: CP integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasZsyrk_64_rank_1 = hipblasZsyrk_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(beta),c_loc(CP),ldc) + hipblasChemmStridedBatched_64_full_rank = hipblasChemmStridedBatched_64_(handle,side,uplo,n, & + k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) end function - function hipblasZsyrk_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,beta,CP,ldc) - use iso_c_binding + function hipblasChemmStridedBatched_64_full_rank_devptr(handle,side,uplo,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrk_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemmStridedBatched_64_full_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA integer(c_int64_t) :: n integer(c_int64_t) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:,:) :: AP + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP integer(c_int64_t) :: lda - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:,:) :: CP integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasZsyrk_64_full_rank = hipblasZsyrk_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & - lda,c_loc(beta),c_loc(CP),ldc) + hipblasChemmStridedBatched_64_full_rank_devptr = hipblasChemmStridedBatched_64_(handle,side, & + uplo,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasSsyrkStridedBatched_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & - beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasChemmStridedBatched_64_strided_rank(handle,side,uplo,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemmStridedBatched_64_strided_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int) :: n - integer(c_int) :: k - real(c_float),target :: alpha - real(c_float),target,dimension(..) :: AP - integer(c_int) :: lda + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - real(c_float),target :: beta - real(c_float),target,dimension(..) :: CP - integer(c_int) :: ldc + complex(c_float_complex),target,dimension(:,:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: beta + complex(c_float_complex),target,dimension(:,:,:) :: CP + integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount ! - hipblasSsyrkStridedBatched_assumed_rank = hipblasSsyrkStridedBatched_(handle,uplo,transA,n, & - k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + hipblasChemmStridedBatched_64_strided_rank = hipblasChemmStridedBatched_64_(handle,side, & + uplo,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) end function -#else - function hipblasSsyrkStridedBatched_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta, & - CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasChemmStridedBatched_64_strided_rank_devptr(handle,side,uplo,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemmStridedBatched_64_strided_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int) :: n - integer(c_int) :: k - real(c_float),target :: alpha - real(c_float),target :: AP - integer(c_int) :: lda + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - real(c_float),target :: beta - real(c_float),target :: CP - integer(c_int) :: ldc + complex(c_float_complex),target,dimension(:,:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_float_complex),target,dimension(:,:,:) :: CP + integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount ! - hipblasSsyrkStridedBatched_rank_0 = hipblasSsyrkStridedBatched_(handle,uplo,transA,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + hipblasChemmStridedBatched_64_strided_rank_devptr = hipblasChemmStridedBatched_64_(handle, & + side,uplo,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc, & + strideC,batchCount) end function - function hipblasSsyrkStridedBatched_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta, & - CP,ldc,strideC,batchCount) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZhemmStridedBatched_64_assumed_rank(handle,side,uplo,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemmStridedBatched_64_assumed_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int) :: n - integer(c_int) :: k - real(c_float),target :: alpha - real(c_float),target,dimension(:) :: AP - integer(c_int) :: lda + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - real(c_float),target :: beta - real(c_float),target,dimension(:) :: CP - integer(c_int) :: ldc + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount ! - hipblasSsyrkStridedBatched_rank_1 = hipblasSsyrkStridedBatched_(handle,uplo,transA,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + hipblasZhemmStridedBatched_64_assumed_rank = hipblasZhemmStridedBatched_64_(handle,side, & + uplo,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) end function - function hipblasSsyrkStridedBatched_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & - beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZhemmStridedBatched_64_assumed_rank_devptr(handle,side,uplo,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemmStridedBatched_64_assumed_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int) :: n - integer(c_int) :: k - real(c_float),target :: alpha - real(c_float),target,dimension(:,:) :: AP - integer(c_int) :: lda + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - real(c_float),target :: beta - real(c_float),target,dimension(:,:) :: CP - integer(c_int) :: ldc + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount ! - hipblasSsyrkStridedBatched_full_rank = hipblasSsyrkStridedBatched_(handle,uplo,transA,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + hipblasZhemmStridedBatched_64_assumed_rank_devptr = hipblasZhemmStridedBatched_64_(handle, & + side,uplo,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc, & + strideC,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDsyrkStridedBatched_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & - beta,CP,ldc,strideC,batchCount) - use iso_c_binding +#else + function hipblasZhemmStridedBatched_64_rank_0(handle,side,uplo,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemmStridedBatched_64_rank_0 type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int) :: n - integer(c_int) :: k - real(c_double),target :: alpha - real(c_double),target,dimension(..) :: AP - integer(c_int) :: lda + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - real(c_double),target :: beta - real(c_double),target,dimension(..) :: CP - integer(c_int) :: ldc + complex(c_double_complex),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target :: CP + integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount ! - hipblasDsyrkStridedBatched_assumed_rank = hipblasDsyrkStridedBatched_(handle,uplo,transA,n, & - k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + hipblasZhemmStridedBatched_64_rank_0 = hipblasZhemmStridedBatched_64_(handle,side,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) end function -#else - function hipblasDsyrkStridedBatched_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta, & - CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZhemmStridedBatched_64_rank_0_devptr(handle,side,uplo,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemmStridedBatched_64_rank_0_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int) :: n - integer(c_int) :: k - real(c_double),target :: alpha - real(c_double),target :: AP - integer(c_int) :: lda + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - real(c_double),target :: beta - real(c_double),target :: CP - integer(c_int) :: ldc + complex(c_double_complex),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_double_complex),target :: CP + integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount ! - hipblasDsyrkStridedBatched_rank_0 = hipblasDsyrkStridedBatched_(handle,uplo,transA,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + hipblasZhemmStridedBatched_64_rank_0_devptr = hipblasZhemmStridedBatched_64_(handle,side, & + uplo,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) end function - function hipblasDsyrkStridedBatched_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta, & - CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZhemmStridedBatched_64_rank_1(handle,side,uplo,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemmStridedBatched_64_rank_1 type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int) :: n - integer(c_int) :: k - real(c_double),target :: alpha - real(c_double),target,dimension(:) :: AP - integer(c_int) :: lda + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - real(c_double),target :: beta - real(c_double),target,dimension(:) :: CP - integer(c_int) :: ldc + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount ! - hipblasDsyrkStridedBatched_rank_1 = hipblasDsyrkStridedBatched_(handle,uplo,transA,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + hipblasZhemmStridedBatched_64_rank_1 = hipblasZhemmStridedBatched_64_(handle,side,uplo,n,k, & + c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) end function - function hipblasDsyrkStridedBatched_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & - beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZhemmStridedBatched_64_rank_1_devptr(handle,side,uplo,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemmStridedBatched_64_rank_1_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int) :: n - integer(c_int) :: k - real(c_double),target :: alpha - real(c_double),target,dimension(:,:) :: AP - integer(c_int) :: lda + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - real(c_double),target :: beta - real(c_double),target,dimension(:,:) :: CP - integer(c_int) :: ldc + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount ! - hipblasDsyrkStridedBatched_full_rank = hipblasDsyrkStridedBatched_(handle,uplo,transA,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + hipblasZhemmStridedBatched_64_rank_1_devptr = hipblasZhemmStridedBatched_64_(handle,side, & + uplo,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCsyrkStridedBatched_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & - beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZhemmStridedBatched_64_full_rank(handle,side,uplo,n,k,alpha,AP,lda,strideA,BP, & + ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemmStridedBatched_64_full_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int) :: n - integer(c_int) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: AP - integer(c_int) :: lda + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(..) :: CP - integer(c_int) :: ldc + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount ! - hipblasCsyrkStridedBatched_assumed_rank = hipblasCsyrkStridedBatched_(handle,uplo,transA,n, & - k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + hipblasZhemmStridedBatched_64_full_rank = hipblasZhemmStridedBatched_64_(handle,side,uplo,n, & + k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + strideC,batchCount) end function -#else - function hipblasCsyrkStridedBatched_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta, & - CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZhemmStridedBatched_64_full_rank_devptr(handle,side,uplo,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemmStridedBatched_64_full_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int) :: n - integer(c_int) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: AP - integer(c_int) :: lda + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target :: beta - complex(c_float_complex),target :: CP - integer(c_int) :: ldc + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount ! - hipblasCsyrkStridedBatched_rank_0 = hipblasCsyrkStridedBatched_(handle,uplo,transA,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + hipblasZhemmStridedBatched_64_full_rank_devptr = hipblasZhemmStridedBatched_64_(handle,side, & + uplo,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc,strideC, & + batchCount) end function - function hipblasCsyrkStridedBatched_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta, & - CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZhemmStridedBatched_64_strided_rank(handle,side,uplo,n,k,alpha,AP,lda,strideA, & + BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemmStridedBatched_64_strided_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int) :: n - integer(c_int) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: AP - integer(c_int) :: lda + integer(c_int64_t) :: n + integer(c_int64_t) :: k + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:) :: CP - integer(c_int) :: ldc + complex(c_double_complex),target,dimension(:,:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: beta + complex(c_double_complex),target,dimension(:,:,:) :: CP + integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount ! - hipblasCsyrkStridedBatched_rank_1 = hipblasCsyrkStridedBatched_(handle,uplo,transA,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + hipblasZhemmStridedBatched_64_strided_rank = hipblasZhemmStridedBatched_64_(handle,side, & + uplo,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & + ldc,strideC,batchCount) end function - function hipblasCsyrkStridedBatched_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & - beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZhemmStridedBatched_64_strided_rank_devptr(handle,side,uplo,n,k,alpha,AP,lda, & + strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemmStridedBatched_64_strided_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int) :: n - integer(c_int) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:,:) :: AP - integer(c_int) :: lda + integer(c_int64_t) :: n + integer(c_int64_t) :: k + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:,:) :: CP - integer(c_int) :: ldc + complex(c_double_complex),target,dimension(:,:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: beta + complex(c_double_complex),target,dimension(:,:,:) :: CP + integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount ! - hipblasCsyrkStridedBatched_full_rank = hipblasCsyrkStridedBatched_(handle,uplo,transA,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + hipblasZhemmStridedBatched_64_strided_rank_devptr = hipblasZhemmStridedBatched_64_(handle, & + side,uplo,n,k,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,beta,c_loc(CP),ldc, & + strideC,batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasZsyrkStridedBatched_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & - beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasStrmm_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmm_assumed_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: AP + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: A integer(c_int) :: lda - integer(c_int64_t) :: strideA - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(..) :: CP + real(c_float),target,dimension(..) :: B + integer(c_int) :: ldb + real(c_float),target,dimension(..) :: C integer(c_int) :: ldc - integer(c_int64_t) :: strideC - integer(c_int) :: batchCount ! - hipblasZsyrkStridedBatched_assumed_rank = hipblasZsyrkStridedBatched_(handle,uplo,transA,n, & - k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + hipblasStrmm_assumed_rank = hipblasStrmm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) end function -#else - function hipblasZsyrkStridedBatched_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta, & - CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasStrmm_assumed_rank_devptr(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb, & + C,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmm_assumed_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: AP + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: A integer(c_int) :: lda - integer(c_int64_t) :: strideA - complex(c_double_complex),target :: beta - complex(c_double_complex),target :: CP + real(c_float),target,dimension(..) :: B + integer(c_int) :: ldb + real(c_float),target,dimension(..) :: C integer(c_int) :: ldc - integer(c_int64_t) :: strideC - integer(c_int) :: batchCount ! - hipblasZsyrkStridedBatched_rank_0 = hipblasZsyrkStridedBatched_(handle,uplo,transA,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + hipblasStrmm_assumed_rank_devptr = hipblasStrmm_(handle,side,uplo,transA,diag,m,n,alpha, & + c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) end function - function hipblasZsyrkStridedBatched_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,beta, & - CP,ldc,strideC,batchCount) - use iso_c_binding +#else + function hipblasStrmm_rank_0(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmm_rank_0 type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: AP + real(c_float),target :: alpha + real(c_float),target :: A integer(c_int) :: lda - integer(c_int64_t) :: strideA - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:) :: CP + real(c_float),target :: B + integer(c_int) :: ldb + real(c_float),target :: C integer(c_int) :: ldc - integer(c_int64_t) :: strideC - integer(c_int) :: batchCount ! - hipblasZsyrkStridedBatched_rank_1 = hipblasZsyrkStridedBatched_(handle,uplo,transA,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + hipblasStrmm_rank_0 = hipblasStrmm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha),c_loc(A), & + lda,c_loc(B),ldb,c_loc(C),ldc) end function - function hipblasZsyrkStridedBatched_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & - beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasStrmm_rank_0_devptr(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmm_rank_0_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:,:) :: AP + type(c_ptr),value :: alpha + real(c_float),target :: A integer(c_int) :: lda - integer(c_int64_t) :: strideA - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:,:) :: CP + real(c_float),target :: B + integer(c_int) :: ldb + real(c_float),target :: C integer(c_int) :: ldc - integer(c_int64_t) :: strideC - integer(c_int) :: batchCount ! - hipblasZsyrkStridedBatched_full_rank = hipblasZsyrkStridedBatched_(handle,uplo,transA,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + hipblasStrmm_rank_0_devptr = hipblasStrmm_(handle,side,uplo,transA,diag,m,n,alpha,c_loc(A), & + lda,c_loc(B),ldb,c_loc(C),ldc) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasSsyrkStridedBatched_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda, & - strideA,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasStrmm_rank_1(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmm_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_float),target :: alpha - real(c_float),target,dimension(..) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - real(c_float),target :: beta - real(c_float),target,dimension(..) :: CP - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: A + integer(c_int) :: lda + real(c_float),target,dimension(:) :: B + integer(c_int) :: ldb + real(c_float),target,dimension(:) :: C + integer(c_int) :: ldc ! - hipblasSsyrkStridedBatched_64_assumed_rank = hipblasSsyrkStridedBatched_64_(handle,uplo, & - transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + hipblasStrmm_rank_1 = hipblasStrmm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha),c_loc(A), & + lda,c_loc(B),ldb,c_loc(C),ldc) end function -#else - function hipblasSsyrkStridedBatched_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & - beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasStrmm_rank_1_devptr(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmm_rank_1_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_float),target :: alpha - real(c_float),target :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - real(c_float),target :: beta - real(c_float),target :: CP - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: A + integer(c_int) :: lda + real(c_float),target,dimension(:) :: B + integer(c_int) :: ldb + real(c_float),target,dimension(:) :: C + integer(c_int) :: ldc ! - hipblasSsyrkStridedBatched_64_rank_0 = hipblasSsyrkStridedBatched_64_(handle,uplo,transA,n, & - k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + hipblasStrmm_rank_1_devptr = hipblasStrmm_(handle,side,uplo,transA,diag,m,n,alpha,c_loc(A), & + lda,c_loc(B),ldb,c_loc(C),ldc) end function - function hipblasSsyrkStridedBatched_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & - beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasStrmm_full_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmm_full_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: n - integer(c_int64_t) :: k + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n real(c_float),target :: alpha - real(c_float),target,dimension(:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - real(c_float),target :: beta - real(c_float),target,dimension(:) :: CP - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + real(c_float),target,dimension(:,:) :: A + integer(c_int) :: lda + real(c_float),target,dimension(:,:) :: B + integer(c_int) :: ldb + real(c_float),target,dimension(:,:) :: C + integer(c_int) :: ldc ! - hipblasSsyrkStridedBatched_64_rank_1 = hipblasSsyrkStridedBatched_64_(handle,uplo,transA,n, & - k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + hipblasStrmm_full_rank = hipblasStrmm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) end function - function hipblasSsyrkStridedBatched_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & - beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasStrmm_full_rank_devptr(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmm_full_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_float),target :: alpha - real(c_float),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - real(c_float),target :: beta - real(c_float),target,dimension(:,:) :: CP - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:) :: A + integer(c_int) :: lda + real(c_float),target,dimension(:,:) :: B + integer(c_int) :: ldb + real(c_float),target,dimension(:,:) :: C + integer(c_int) :: ldc ! - hipblasSsyrkStridedBatched_64_full_rank = hipblasSsyrkStridedBatched_64_(handle,uplo,transA, & - n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + hipblasStrmm_full_rank_devptr = hipblasStrmm_(handle,side,uplo,transA,diag,m,n,alpha, & + c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasDsyrkStridedBatched_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda, & - strideA,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasDtrmm_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmm_assumed_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: n - integer(c_int64_t) :: k + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n real(c_double),target :: alpha - real(c_double),target,dimension(..) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - real(c_double),target :: beta - real(c_double),target,dimension(..) :: CP - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + real(c_double),target,dimension(..) :: A + integer(c_int) :: lda + real(c_double),target,dimension(..) :: B + integer(c_int) :: ldb + real(c_double),target,dimension(..) :: C + integer(c_int) :: ldc ! - hipblasDsyrkStridedBatched_64_assumed_rank = hipblasDsyrkStridedBatched_64_(handle,uplo, & - transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + hipblasDtrmm_assumed_rank = hipblasDtrmm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) end function -#else - function hipblasDsyrkStridedBatched_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & - beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasDtrmm_assumed_rank_devptr(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb, & + C,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmm_assumed_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_double),target :: alpha - real(c_double),target :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - real(c_double),target :: beta - real(c_double),target :: CP - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: A + integer(c_int) :: lda + real(c_double),target,dimension(..) :: B + integer(c_int) :: ldb + real(c_double),target,dimension(..) :: C + integer(c_int) :: ldc ! - hipblasDsyrkStridedBatched_64_rank_0 = hipblasDsyrkStridedBatched_64_(handle,uplo,transA,n, & - k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + hipblasDtrmm_assumed_rank_devptr = hipblasDtrmm_(handle,side,uplo,transA,diag,m,n,alpha, & + c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) end function - function hipblasDsyrkStridedBatched_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & - beta,CP,ldc,strideC,batchCount) - use iso_c_binding +#else + function hipblasDtrmm_rank_0(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmm_rank_0 type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: n - integer(c_int64_t) :: k + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n real(c_double),target :: alpha - real(c_double),target,dimension(:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - real(c_double),target :: beta - real(c_double),target,dimension(:) :: CP - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + real(c_double),target :: A + integer(c_int) :: lda + real(c_double),target :: B + integer(c_int) :: ldb + real(c_double),target :: C + integer(c_int) :: ldc ! - hipblasDsyrkStridedBatched_64_rank_1 = hipblasDsyrkStridedBatched_64_(handle,uplo,transA,n, & - k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + hipblasDtrmm_rank_0 = hipblasDtrmm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha),c_loc(A), & + lda,c_loc(B),ldb,c_loc(C),ldc) end function - function hipblasDsyrkStridedBatched_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & - beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasDtrmm_rank_0_devptr(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmm_rank_0_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_double),target :: alpha - real(c_double),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - real(c_double),target :: beta - real(c_double),target,dimension(:,:) :: CP - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target :: A + integer(c_int) :: lda + real(c_double),target :: B + integer(c_int) :: ldb + real(c_double),target :: C + integer(c_int) :: ldc ! - hipblasDsyrkStridedBatched_64_full_rank = hipblasDsyrkStridedBatched_64_(handle,uplo,transA, & - n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + hipblasDtrmm_rank_0_devptr = hipblasDtrmm_(handle,side,uplo,transA,diag,m,n,alpha,c_loc(A), & + lda,c_loc(B),ldb,c_loc(C),ldc) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCsyrkStridedBatched_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda, & - strideA,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasDtrmm_rank_1(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmm_rank_1 type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(..) :: CP - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: A + integer(c_int) :: lda + real(c_double),target,dimension(:) :: B + integer(c_int) :: ldb + real(c_double),target,dimension(:) :: C + integer(c_int) :: ldc ! - hipblasCsyrkStridedBatched_64_assumed_rank = hipblasCsyrkStridedBatched_64_(handle,uplo, & - transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + hipblasDtrmm_rank_1 = hipblasDtrmm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha),c_loc(A), & + lda,c_loc(B),ldb,c_loc(C),ldc) end function -#else - function hipblasCsyrkStridedBatched_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & - beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasDtrmm_rank_1_devptr(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmm_rank_1_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - complex(c_float_complex),target :: beta - complex(c_float_complex),target :: CP - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: A + integer(c_int) :: lda + real(c_double),target,dimension(:) :: B + integer(c_int) :: ldb + real(c_double),target,dimension(:) :: C + integer(c_int) :: ldc ! - hipblasCsyrkStridedBatched_64_rank_0 = hipblasCsyrkStridedBatched_64_(handle,uplo,transA,n, & - k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + hipblasDtrmm_rank_1_devptr = hipblasDtrmm_(handle,side,uplo,transA,diag,m,n,alpha,c_loc(A), & + lda,c_loc(B),ldb,c_loc(C),ldc) end function - function hipblasCsyrkStridedBatched_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & - beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasDtrmm_full_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmm_full_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:) :: CP - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: A + integer(c_int) :: lda + real(c_double),target,dimension(:,:) :: B + integer(c_int) :: ldb + real(c_double),target,dimension(:,:) :: C + integer(c_int) :: ldc ! - hipblasCsyrkStridedBatched_64_rank_1 = hipblasCsyrkStridedBatched_64_(handle,uplo,transA,n, & - k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + hipblasDtrmm_full_rank = hipblasDtrmm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) end function - function hipblasCsyrkStridedBatched_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & - beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasDtrmm_full_rank_devptr(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmm_full_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:,:) :: CP - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:) :: A + integer(c_int) :: lda + real(c_double),target,dimension(:,:) :: B + integer(c_int) :: ldb + real(c_double),target,dimension(:,:) :: C + integer(c_int) :: ldc ! - hipblasCsyrkStridedBatched_64_full_rank = hipblasCsyrkStridedBatched_64_(handle,uplo,transA, & - n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + hipblasDtrmm_full_rank_devptr = hipblasDtrmm_(handle,side,uplo,transA,diag,m,n,alpha, & + c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasZsyrkStridedBatched_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda, & - strideA,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasCtrmm_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmm_assumed_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(..) :: CP - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: A + integer(c_int) :: lda + complex(c_float_complex),target,dimension(..) :: B + integer(c_int) :: ldb + complex(c_float_complex),target,dimension(..) :: C + integer(c_int) :: ldc ! - hipblasZsyrkStridedBatched_64_assumed_rank = hipblasZsyrkStridedBatched_64_(handle,uplo, & - transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + hipblasCtrmm_assumed_rank = hipblasCtrmm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) end function -#else - function hipblasZsyrkStridedBatched_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & - beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasCtrmm_assumed_rank_devptr(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb, & + C,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmm_assumed_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - complex(c_double_complex),target :: beta - complex(c_double_complex),target :: CP - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: A + integer(c_int) :: lda + complex(c_float_complex),target,dimension(..) :: B + integer(c_int) :: ldb + complex(c_float_complex),target,dimension(..) :: C + integer(c_int) :: ldc ! - hipblasZsyrkStridedBatched_64_rank_0 = hipblasZsyrkStridedBatched_64_(handle,uplo,transA,n, & - k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + hipblasCtrmm_assumed_rank_devptr = hipblasCtrmm_(handle,side,uplo,transA,diag,m,n,alpha, & + c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) end function - function hipblasZsyrkStridedBatched_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & - beta,CP,ldc,strideC,batchCount) - use iso_c_binding +#else + function hipblasCtrmm_rank_0(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmm_rank_0 type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:) :: CP - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: A + integer(c_int) :: lda + complex(c_float_complex),target :: B + integer(c_int) :: ldb + complex(c_float_complex),target :: C + integer(c_int) :: ldc ! - hipblasZsyrkStridedBatched_64_rank_1 = hipblasZsyrkStridedBatched_64_(handle,uplo,transA,n, & - k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + hipblasCtrmm_rank_0 = hipblasCtrmm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha),c_loc(A), & + lda,c_loc(B),ldb,c_loc(C),ldc) end function - function hipblasZsyrkStridedBatched_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & - beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasCtrmm_rank_0_devptr(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmm_rank_0_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:,:) :: CP - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target :: A + integer(c_int) :: lda + complex(c_float_complex),target :: B + integer(c_int) :: ldb + complex(c_float_complex),target :: C + integer(c_int) :: ldc ! - hipblasZsyrkStridedBatched_64_full_rank = hipblasZsyrkStridedBatched_64_(handle,uplo,transA, & - n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(CP),ldc,strideC,batchCount) + hipblasCtrmm_rank_0_devptr = hipblasCtrmm_(handle,side,uplo,transA,diag,m,n,alpha,c_loc(A), & + lda,c_loc(B),ldb,c_loc(C),ldc) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasSsyr2k_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasCtrmm_rank_1(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2k_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmm_rank_1 type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - real(c_float),target :: alpha - real(c_float),target,dimension(..) :: AP + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: A integer(c_int) :: lda - real(c_float),target,dimension(..) :: BP + complex(c_float_complex),target,dimension(:) :: B integer(c_int) :: ldb - real(c_float),target :: beta - real(c_float),target,dimension(..) :: CP + complex(c_float_complex),target,dimension(:) :: C integer(c_int) :: ldc ! - hipblasSsyr2k_assumed_rank = hipblasSsyr2k_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & - lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasCtrmm_rank_1 = hipblasCtrmm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha),c_loc(A), & + lda,c_loc(B),ldb,c_loc(C),ldc) end function -#else - function hipblasSsyr2k_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasCtrmm_rank_1_devptr(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2k_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmm_rank_1_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - real(c_float),target :: alpha - real(c_float),target :: AP + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: A integer(c_int) :: lda - real(c_float),target :: BP + complex(c_float_complex),target,dimension(:) :: B integer(c_int) :: ldb - real(c_float),target :: beta - real(c_float),target :: CP + complex(c_float_complex),target,dimension(:) :: C integer(c_int) :: ldc ! - hipblasSsyr2k_rank_0 = hipblasSsyr2k_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasCtrmm_rank_1_devptr = hipblasCtrmm_(handle,side,uplo,transA,diag,m,n,alpha,c_loc(A), & + lda,c_loc(B),ldb,c_loc(C),ldc) end function - function hipblasSsyr2k_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasCtrmm_full_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2k_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmm_full_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int) :: n - integer(c_int) :: k - real(c_float),target :: alpha - real(c_float),target,dimension(:) :: AP + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: A integer(c_int) :: lda - real(c_float),target,dimension(:) :: BP + complex(c_float_complex),target,dimension(:,:) :: B integer(c_int) :: ldb - real(c_float),target :: beta - real(c_float),target,dimension(:) :: CP + complex(c_float_complex),target,dimension(:,:) :: C integer(c_int) :: ldc ! - hipblasSsyr2k_rank_1 = hipblasSsyr2k_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasCtrmm_full_rank = hipblasCtrmm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) end function - function hipblasSsyr2k_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasCtrmm_full_rank_devptr(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2k_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmm_full_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - real(c_float),target :: alpha - real(c_float),target,dimension(:,:) :: AP + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: A integer(c_int) :: lda - real(c_float),target,dimension(:,:) :: BP + complex(c_float_complex),target,dimension(:,:) :: B integer(c_int) :: ldb - real(c_float),target :: beta - real(c_float),target,dimension(:,:) :: CP + complex(c_float_complex),target,dimension(:,:) :: C integer(c_int) :: ldc ! - hipblasSsyr2k_full_rank = hipblasSsyr2k_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasCtrmm_full_rank_devptr = hipblasCtrmm_(handle,side,uplo,transA,diag,m,n,alpha, & + c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasDsyr2k_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasZtrmm_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2k_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmm_assumed_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - real(c_double),target :: alpha - real(c_double),target,dimension(..) :: AP + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: A integer(c_int) :: lda - real(c_double),target,dimension(..) :: BP + complex(c_double_complex),target,dimension(..) :: B integer(c_int) :: ldb - real(c_double),target :: beta - real(c_double),target,dimension(..) :: CP + complex(c_double_complex),target,dimension(..) :: C integer(c_int) :: ldc ! - hipblasDsyr2k_assumed_rank = hipblasDsyr2k_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & - lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasZtrmm_assumed_rank = hipblasZtrmm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) end function -#else - function hipblasDsyr2k_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasZtrmm_assumed_rank_devptr(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb, & + C,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2k_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmm_assumed_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - real(c_double),target :: alpha - real(c_double),target :: AP + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: A integer(c_int) :: lda - real(c_double),target :: BP + complex(c_double_complex),target,dimension(..) :: B integer(c_int) :: ldb - real(c_double),target :: beta - real(c_double),target :: CP + complex(c_double_complex),target,dimension(..) :: C integer(c_int) :: ldc ! - hipblasDsyr2k_rank_0 = hipblasDsyr2k_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasZtrmm_assumed_rank_devptr = hipblasZtrmm_(handle,side,uplo,transA,diag,m,n,alpha, & + c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) end function - function hipblasDsyr2k_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding +#else + function hipblasZtrmm_rank_0(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2k_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmm_rank_0 type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - real(c_double),target :: alpha - real(c_double),target,dimension(:) :: AP + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: A integer(c_int) :: lda - real(c_double),target,dimension(:) :: BP + complex(c_double_complex),target :: B integer(c_int) :: ldb - real(c_double),target :: beta - real(c_double),target,dimension(:) :: CP + complex(c_double_complex),target :: C integer(c_int) :: ldc ! - hipblasDsyr2k_rank_1 = hipblasDsyr2k_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasZtrmm_rank_0 = hipblasZtrmm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha),c_loc(A), & + lda,c_loc(B),ldb,c_loc(C),ldc) end function - function hipblasDsyr2k_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasZtrmm_rank_0_devptr(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2k_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmm_rank_0_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - real(c_double),target :: alpha - real(c_double),target,dimension(:,:) :: AP + type(c_ptr),value :: alpha + complex(c_double_complex),target :: A integer(c_int) :: lda - real(c_double),target,dimension(:,:) :: BP + complex(c_double_complex),target :: B integer(c_int) :: ldb - real(c_double),target :: beta - real(c_double),target,dimension(:,:) :: CP + complex(c_double_complex),target :: C integer(c_int) :: ldc ! - hipblasDsyr2k_full_rank = hipblasDsyr2k_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasZtrmm_rank_0_devptr = hipblasZtrmm_(handle,side,uplo,transA,diag,m,n,alpha,c_loc(A), & + lda,c_loc(B),ldb,c_loc(C),ldc) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCsyr2k_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasZtrmm_rank_1(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2k_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmm_rank_1 type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: AP + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: A integer(c_int) :: lda - complex(c_float_complex),target,dimension(..) :: BP + complex(c_double_complex),target,dimension(:) :: B integer(c_int) :: ldb - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(..) :: CP + complex(c_double_complex),target,dimension(:) :: C integer(c_int) :: ldc ! - hipblasCsyr2k_assumed_rank = hipblasCsyr2k_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & - lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasZtrmm_rank_1 = hipblasZtrmm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha),c_loc(A), & + lda,c_loc(B),ldb,c_loc(C),ldc) end function -#else - function hipblasCsyr2k_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasZtrmm_rank_1_devptr(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2k_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmm_rank_1_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: AP + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: A integer(c_int) :: lda - complex(c_float_complex),target :: BP + complex(c_double_complex),target,dimension(:) :: B integer(c_int) :: ldb - complex(c_float_complex),target :: beta - complex(c_float_complex),target :: CP + complex(c_double_complex),target,dimension(:) :: C integer(c_int) :: ldc ! - hipblasCsyr2k_rank_0 = hipblasCsyr2k_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasZtrmm_rank_1_devptr = hipblasZtrmm_(handle,side,uplo,transA,diag,m,n,alpha,c_loc(A), & + lda,c_loc(B),ldb,c_loc(C),ldc) end function - function hipblasCsyr2k_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasZtrmm_full_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2k_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmm_full_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: AP + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: A integer(c_int) :: lda - complex(c_float_complex),target,dimension(:) :: BP + complex(c_double_complex),target,dimension(:,:) :: B integer(c_int) :: ldb - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:) :: CP + complex(c_double_complex),target,dimension(:,:) :: C integer(c_int) :: ldc ! - hipblasCsyr2k_rank_1 = hipblasCsyr2k_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasZtrmm_full_rank = hipblasZtrmm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) end function - function hipblasCsyr2k_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasZtrmm_full_rank_devptr(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2k_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmm_full_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:,:) :: AP + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: A integer(c_int) :: lda - complex(c_float_complex),target,dimension(:,:) :: BP + complex(c_double_complex),target,dimension(:,:) :: B integer(c_int) :: ldb - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:,:) :: CP + complex(c_double_complex),target,dimension(:,:) :: C integer(c_int) :: ldc ! - hipblasCsyr2k_full_rank = hipblasCsyr2k_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasZtrmm_full_rank_devptr = hipblasZtrmm_(handle,side,uplo,transA,diag,m,n,alpha, & + c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasZsyr2k_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasStrmm_64_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2k_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmm_64_assumed_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int) :: n - integer(c_int) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: AP - integer(c_int) :: lda - complex(c_double_complex),target,dimension(..) :: BP - integer(c_int) :: ldb - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(..) :: CP - integer(c_int) :: ldc + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: A + integer(c_int64_t) :: lda + real(c_float),target,dimension(..) :: B + integer(c_int64_t) :: ldb + real(c_float),target,dimension(..) :: C + integer(c_int64_t) :: ldc ! - hipblasZsyr2k_assumed_rank = hipblasZsyr2k_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & - lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasStrmm_64_assumed_rank = hipblasStrmm_64_(handle,side,uplo,transA,diag,m,n, & + c_loc(alpha),c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) end function -#else - function hipblasZsyr2k_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasStrmm_64_assumed_rank_devptr(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B, & + ldb,C,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2k_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmm_64_assumed_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int) :: n - integer(c_int) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: AP - integer(c_int) :: lda - complex(c_double_complex),target :: BP - integer(c_int) :: ldb - complex(c_double_complex),target :: beta - complex(c_double_complex),target :: CP - integer(c_int) :: ldc + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: A + integer(c_int64_t) :: lda + real(c_float),target,dimension(..) :: B + integer(c_int64_t) :: ldb + real(c_float),target,dimension(..) :: C + integer(c_int64_t) :: ldc ! - hipblasZsyr2k_rank_0 = hipblasZsyr2k_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasStrmm_64_assumed_rank_devptr = hipblasStrmm_64_(handle,side,uplo,transA,diag,m,n, & + alpha,c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) end function - function hipblasZsyr2k_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding +#else + function hipblasStrmm_64_rank_0(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2k_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmm_64_rank_0 type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int) :: n - integer(c_int) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: AP - integer(c_int) :: lda - complex(c_double_complex),target,dimension(:) :: BP - integer(c_int) :: ldb - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:) :: CP - integer(c_int) :: ldc + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target :: A + integer(c_int64_t) :: lda + real(c_float),target :: B + integer(c_int64_t) :: ldb + real(c_float),target :: C + integer(c_int64_t) :: ldc ! - hipblasZsyr2k_rank_1 = hipblasZsyr2k_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasStrmm_64_rank_0 = hipblasStrmm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) end function - function hipblasZsyr2k_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasStrmm_64_rank_0_devptr(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2k_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmm_64_rank_0_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int) :: n - integer(c_int) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:,:) :: AP - integer(c_int) :: lda - complex(c_double_complex),target,dimension(:,:) :: BP - integer(c_int) :: ldb - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:,:) :: CP - integer(c_int) :: ldc + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target :: A + integer(c_int64_t) :: lda + real(c_float),target :: B + integer(c_int64_t) :: ldb + real(c_float),target :: C + integer(c_int64_t) :: ldc ! - hipblasZsyr2k_full_rank = hipblasZsyr2k_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasStrmm_64_rank_0_devptr = hipblasStrmm_64_(handle,side,uplo,transA,diag,m,n,alpha, & + c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasSsyr2k_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasStrmm_64_rank_1(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2k_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmm_64_rank_1 type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k real(c_float),target :: alpha - real(c_float),target,dimension(..) :: AP + real(c_float),target,dimension(:) :: A integer(c_int64_t) :: lda - real(c_float),target,dimension(..) :: BP + real(c_float),target,dimension(:) :: B integer(c_int64_t) :: ldb - real(c_float),target :: beta - real(c_float),target,dimension(..) :: CP + real(c_float),target,dimension(:) :: C integer(c_int64_t) :: ldc ! - hipblasSsyr2k_64_assumed_rank = hipblasSsyr2k_64_(handle,uplo,transA,n,k,c_loc(alpha), & - c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasStrmm_64_rank_1 = hipblasStrmm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) end function -#else - function hipblasSsyr2k_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasStrmm_64_rank_1_devptr(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2k_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmm_64_rank_1_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_float),target :: alpha - real(c_float),target :: AP + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: A integer(c_int64_t) :: lda - real(c_float),target :: BP + real(c_float),target,dimension(:) :: B integer(c_int64_t) :: ldb - real(c_float),target :: beta - real(c_float),target :: CP + real(c_float),target,dimension(:) :: C integer(c_int64_t) :: ldc ! - hipblasSsyr2k_64_rank_0 = hipblasSsyr2k_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & - lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasStrmm_64_rank_1_devptr = hipblasStrmm_64_(handle,side,uplo,transA,diag,m,n,alpha, & + c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) end function - function hipblasSsyr2k_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasStrmm_64_full_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2k_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmm_64_full_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k real(c_float),target :: alpha - real(c_float),target,dimension(:) :: AP + real(c_float),target,dimension(:,:) :: A integer(c_int64_t) :: lda - real(c_float),target,dimension(:) :: BP + real(c_float),target,dimension(:,:) :: B integer(c_int64_t) :: ldb - real(c_float),target :: beta - real(c_float),target,dimension(:) :: CP + real(c_float),target,dimension(:,:) :: C integer(c_int64_t) :: ldc ! - hipblasSsyr2k_64_rank_1 = hipblasSsyr2k_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & - lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasStrmm_64_full_rank = hipblasStrmm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) end function - function hipblasSsyr2k_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasStrmm_64_full_rank_devptr(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb, & + C,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2k_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmm_64_full_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_float),target :: alpha - real(c_float),target,dimension(:,:) :: AP + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:) :: A integer(c_int64_t) :: lda - real(c_float),target,dimension(:,:) :: BP + real(c_float),target,dimension(:,:) :: B integer(c_int64_t) :: ldb - real(c_float),target :: beta - real(c_float),target,dimension(:,:) :: CP + real(c_float),target,dimension(:,:) :: C integer(c_int64_t) :: ldc ! - hipblasSsyr2k_64_full_rank = hipblasSsyr2k_64_(handle,uplo,transA,n,k,c_loc(alpha), & - c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasStrmm_64_full_rank_devptr = hipblasStrmm_64_(handle,side,uplo,transA,diag,m,n,alpha, & + c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasDsyr2k_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasDtrmm_64_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2k_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmm_64_assumed_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k real(c_double),target :: alpha - real(c_double),target,dimension(..) :: AP + real(c_double),target,dimension(..) :: A integer(c_int64_t) :: lda - real(c_double),target,dimension(..) :: BP + real(c_double),target,dimension(..) :: B integer(c_int64_t) :: ldb - real(c_double),target :: beta - real(c_double),target,dimension(..) :: CP + real(c_double),target,dimension(..) :: C integer(c_int64_t) :: ldc ! - hipblasDsyr2k_64_assumed_rank = hipblasDsyr2k_64_(handle,uplo,transA,n,k,c_loc(alpha), & - c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasDtrmm_64_assumed_rank = hipblasDtrmm_64_(handle,side,uplo,transA,diag,m,n, & + c_loc(alpha),c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) + end function + + function hipblasDtrmm_64_assumed_rank_devptr(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B, & + ldb,C,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmm_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: A + integer(c_int64_t) :: lda + real(c_double),target,dimension(..) :: B + integer(c_int64_t) :: ldb + real(c_double),target,dimension(..) :: C + integer(c_int64_t) :: ldc + ! + hipblasDtrmm_64_assumed_rank_devptr = hipblasDtrmm_64_(handle,side,uplo,transA,diag,m,n, & + alpha,c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) end function #else - function hipblasDsyr2k_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasDtrmm_64_rank_0(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2k_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmm_64_rank_0 type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k real(c_double),target :: alpha - real(c_double),target :: AP + real(c_double),target :: A integer(c_int64_t) :: lda - real(c_double),target :: BP + real(c_double),target :: B integer(c_int64_t) :: ldb - real(c_double),target :: beta - real(c_double),target :: CP + real(c_double),target :: C integer(c_int64_t) :: ldc ! - hipblasDsyr2k_64_rank_0 = hipblasDsyr2k_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & - lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasDtrmm_64_rank_0 = hipblasDtrmm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) end function - function hipblasDsyr2k_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasDtrmm_64_rank_0_devptr(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2k_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmm_64_rank_0_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target :: A + integer(c_int64_t) :: lda + real(c_double),target :: B + integer(c_int64_t) :: ldb + real(c_double),target :: C + integer(c_int64_t) :: ldc + ! + hipblasDtrmm_64_rank_0_devptr = hipblasDtrmm_64_(handle,side,uplo,transA,diag,m,n,alpha, & + c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) + end function + + function hipblasDtrmm_64_rank_1(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmm_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k real(c_double),target :: alpha - real(c_double),target,dimension(:) :: AP + real(c_double),target,dimension(:) :: A integer(c_int64_t) :: lda - real(c_double),target,dimension(:) :: BP + real(c_double),target,dimension(:) :: B integer(c_int64_t) :: ldb - real(c_double),target :: beta - real(c_double),target,dimension(:) :: CP + real(c_double),target,dimension(:) :: C + integer(c_int64_t) :: ldc + ! + hipblasDtrmm_64_rank_1 = hipblasDtrmm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) + end function + + function hipblasDtrmm_64_rank_1_devptr(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmm_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: A + integer(c_int64_t) :: lda + real(c_double),target,dimension(:) :: B + integer(c_int64_t) :: ldb + real(c_double),target,dimension(:) :: C + integer(c_int64_t) :: ldc + ! + hipblasDtrmm_64_rank_1_devptr = hipblasDtrmm_64_(handle,side,uplo,transA,diag,m,n,alpha, & + c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) + end function + + function hipblasDtrmm_64_full_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmm_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: A + integer(c_int64_t) :: lda + real(c_double),target,dimension(:,:) :: B + integer(c_int64_t) :: ldb + real(c_double),target,dimension(:,:) :: C integer(c_int64_t) :: ldc ! - hipblasDsyr2k_64_rank_1 = hipblasDsyr2k_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & - lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasDtrmm_64_full_rank = hipblasDtrmm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) end function - function hipblasDsyr2k_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasDtrmm_64_full_rank_devptr(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb, & + C,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2k_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmm_64_full_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_double),target :: alpha - real(c_double),target,dimension(:,:) :: AP + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:) :: A integer(c_int64_t) :: lda - real(c_double),target,dimension(:,:) :: BP + real(c_double),target,dimension(:,:) :: B integer(c_int64_t) :: ldb - real(c_double),target :: beta - real(c_double),target,dimension(:,:) :: CP + real(c_double),target,dimension(:,:) :: C integer(c_int64_t) :: ldc ! - hipblasDsyr2k_64_full_rank = hipblasDsyr2k_64_(handle,uplo,transA,n,k,c_loc(alpha), & - c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasDtrmm_64_full_rank_devptr = hipblasDtrmm_64_(handle,side,uplo,transA,diag,m,n,alpha, & + c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCsyr2k_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasCtrmm_64_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2k_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmm_64_assumed_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: AP + complex(c_float_complex),target,dimension(..) :: A integer(c_int64_t) :: lda - complex(c_float_complex),target,dimension(..) :: BP + complex(c_float_complex),target,dimension(..) :: B integer(c_int64_t) :: ldb - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(..) :: CP + complex(c_float_complex),target,dimension(..) :: C integer(c_int64_t) :: ldc ! - hipblasCsyr2k_64_assumed_rank = hipblasCsyr2k_64_(handle,uplo,transA,n,k,c_loc(alpha), & - c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasCtrmm_64_assumed_rank = hipblasCtrmm_64_(handle,side,uplo,transA,diag,m,n, & + c_loc(alpha),c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) end function -#else - function hipblasCsyr2k_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasCtrmm_64_assumed_rank_devptr(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B, & + ldb,C,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2k_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmm_64_assumed_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: AP + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: A integer(c_int64_t) :: lda - complex(c_float_complex),target :: BP + complex(c_float_complex),target,dimension(..) :: B integer(c_int64_t) :: ldb - complex(c_float_complex),target :: beta - complex(c_float_complex),target :: CP + complex(c_float_complex),target,dimension(..) :: C integer(c_int64_t) :: ldc ! - hipblasCsyr2k_64_rank_0 = hipblasCsyr2k_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & - lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasCtrmm_64_assumed_rank_devptr = hipblasCtrmm_64_(handle,side,uplo,transA,diag,m,n, & + alpha,c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) end function - function hipblasCsyr2k_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding +#else + function hipblasCtrmm_64_rank_0(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2k_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmm_64_rank_0 type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: AP + complex(c_float_complex),target :: A integer(c_int64_t) :: lda - complex(c_float_complex),target,dimension(:) :: BP + complex(c_float_complex),target :: B integer(c_int64_t) :: ldb - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:) :: CP + complex(c_float_complex),target :: C integer(c_int64_t) :: ldc ! - hipblasCsyr2k_64_rank_1 = hipblasCsyr2k_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & - lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasCtrmm_64_rank_0 = hipblasCtrmm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) end function - function hipblasCsyr2k_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasCtrmm_64_rank_0_devptr(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2k_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmm_64_rank_0_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:,:) :: AP + type(c_ptr),value :: alpha + complex(c_float_complex),target :: A integer(c_int64_t) :: lda - complex(c_float_complex),target,dimension(:,:) :: BP + complex(c_float_complex),target :: B integer(c_int64_t) :: ldb - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:,:) :: CP + complex(c_float_complex),target :: C integer(c_int64_t) :: ldc ! - hipblasCsyr2k_64_full_rank = hipblasCsyr2k_64_(handle,uplo,transA,n,k,c_loc(alpha), & - c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasCtrmm_64_rank_0_devptr = hipblasCtrmm_64_(handle,side,uplo,transA,diag,m,n,alpha, & + c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZsyr2k_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasCtrmm_64_rank_1(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2k_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmm_64_rank_1 type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: AP + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: A integer(c_int64_t) :: lda - complex(c_double_complex),target,dimension(..) :: BP + complex(c_float_complex),target,dimension(:) :: B integer(c_int64_t) :: ldb - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(..) :: CP + complex(c_float_complex),target,dimension(:) :: C integer(c_int64_t) :: ldc ! - hipblasZsyr2k_64_assumed_rank = hipblasZsyr2k_64_(handle,uplo,transA,n,k,c_loc(alpha), & - c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasCtrmm_64_rank_1 = hipblasCtrmm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) end function -#else - function hipblasZsyr2k_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasCtrmm_64_rank_1_devptr(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2k_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmm_64_rank_1_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: AP + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: A integer(c_int64_t) :: lda - complex(c_double_complex),target :: BP + complex(c_float_complex),target,dimension(:) :: B integer(c_int64_t) :: ldb - complex(c_double_complex),target :: beta - complex(c_double_complex),target :: CP + complex(c_float_complex),target,dimension(:) :: C integer(c_int64_t) :: ldc ! - hipblasZsyr2k_64_rank_0 = hipblasZsyr2k_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & - lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasCtrmm_64_rank_1_devptr = hipblasCtrmm_64_(handle,side,uplo,transA,diag,m,n,alpha, & + c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) end function - function hipblasZsyr2k_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasCtrmm_64_full_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2k_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmm_64_full_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: AP + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: A integer(c_int64_t) :: lda - complex(c_double_complex),target,dimension(:) :: BP + complex(c_float_complex),target,dimension(:,:) :: B integer(c_int64_t) :: ldb - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:) :: CP + complex(c_float_complex),target,dimension(:,:) :: C integer(c_int64_t) :: ldc ! - hipblasZsyr2k_64_rank_1 = hipblasZsyr2k_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & - lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasCtrmm_64_full_rank = hipblasCtrmm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) end function - function hipblasZsyr2k_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasCtrmm_64_full_rank_devptr(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb, & + C,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2k_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmm_64_full_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:,:) :: AP + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: A integer(c_int64_t) :: lda - complex(c_double_complex),target,dimension(:,:) :: BP + complex(c_float_complex),target,dimension(:,:) :: B integer(c_int64_t) :: ldb - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:,:) :: CP + complex(c_float_complex),target,dimension(:,:) :: C integer(c_int64_t) :: ldc ! - hipblasZsyr2k_64_full_rank = hipblasZsyr2k_64_(handle,uplo,transA,n,k,c_loc(alpha), & - c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasCtrmm_64_full_rank_devptr = hipblasCtrmm_64_(handle,side,uplo,transA,diag,m,n,alpha, & + c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasSsyr2kStridedBatched_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & - BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZtrmm_64_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2kStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmm_64_assumed_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int) :: n - integer(c_int) :: k - real(c_float),target :: alpha - real(c_float),target,dimension(..) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_float),target,dimension(..) :: BP - integer(c_int) :: ldb - integer(c_int64_t) :: strideB - real(c_float),target :: beta - real(c_float),target,dimension(..) :: CP - integer(c_int) :: ldc - integer(c_int64_t) :: strideC - integer(c_int) :: batchCount + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: A + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(..) :: B + integer(c_int64_t) :: ldb + complex(c_double_complex),target,dimension(..) :: C + integer(c_int64_t) :: ldc ! - hipblasSsyr2kStridedBatched_assumed_rank = hipblasSsyr2kStridedBatched_(handle,uplo,transA, & - n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasZtrmm_64_assumed_rank = hipblasZtrmm_64_(handle,side,uplo,transA,diag,m,n, & + c_loc(alpha),c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) end function -#else - function hipblasSsyr2kStridedBatched_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZtrmm_64_assumed_rank_devptr(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B, & + ldb,C,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2kStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmm_64_assumed_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int) :: n - integer(c_int) :: k - real(c_float),target :: alpha - real(c_float),target :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_float),target :: BP - integer(c_int) :: ldb - integer(c_int64_t) :: strideB - real(c_float),target :: beta - real(c_float),target :: CP - integer(c_int) :: ldc - integer(c_int64_t) :: strideC - integer(c_int) :: batchCount + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: A + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(..) :: B + integer(c_int64_t) :: ldb + complex(c_double_complex),target,dimension(..) :: C + integer(c_int64_t) :: ldc ! - hipblasSsyr2kStridedBatched_rank_0 = hipblasSsyr2kStridedBatched_(handle,uplo,transA,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasZtrmm_64_assumed_rank_devptr = hipblasZtrmm_64_(handle,side,uplo,transA,diag,m,n, & + alpha,c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) end function - function hipblasSsyr2kStridedBatched_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding +#else + function hipblasZtrmm_64_rank_0(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2kStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmm_64_rank_0 type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int) :: n - integer(c_int) :: k - real(c_float),target :: alpha - real(c_float),target,dimension(:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_float),target,dimension(:) :: BP - integer(c_int) :: ldb - integer(c_int64_t) :: strideB - real(c_float),target :: beta - real(c_float),target,dimension(:) :: CP - integer(c_int) :: ldc - integer(c_int64_t) :: strideC - integer(c_int) :: batchCount + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: A + integer(c_int64_t) :: lda + complex(c_double_complex),target :: B + integer(c_int64_t) :: ldb + complex(c_double_complex),target :: C + integer(c_int64_t) :: ldc ! - hipblasSsyr2kStridedBatched_rank_1 = hipblasSsyr2kStridedBatched_(handle,uplo,transA,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasZtrmm_64_rank_0 = hipblasZtrmm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) end function - function hipblasSsyr2kStridedBatched_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZtrmm_64_rank_0_devptr(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2kStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmm_64_rank_0_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int) :: n - integer(c_int) :: k - real(c_float),target :: alpha - real(c_float),target,dimension(:,:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_float),target,dimension(:,:) :: BP - integer(c_int) :: ldb - integer(c_int64_t) :: strideB - real(c_float),target :: beta - real(c_float),target,dimension(:,:) :: CP - integer(c_int) :: ldc - integer(c_int64_t) :: strideC - integer(c_int) :: batchCount + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target :: A + integer(c_int64_t) :: lda + complex(c_double_complex),target :: B + integer(c_int64_t) :: ldb + complex(c_double_complex),target :: C + integer(c_int64_t) :: ldc ! - hipblasSsyr2kStridedBatched_full_rank = hipblasSsyr2kStridedBatched_(handle,uplo,transA,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasZtrmm_64_rank_0_devptr = hipblasZtrmm_64_(handle,side,uplo,transA,diag,m,n,alpha, & + c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDsyr2kStridedBatched_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & - BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZtrmm_64_rank_1(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2kStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmm_64_rank_1 type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int) :: n - integer(c_int) :: k - real(c_double),target :: alpha - real(c_double),target,dimension(..) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_double),target,dimension(..) :: BP - integer(c_int) :: ldb - integer(c_int64_t) :: strideB - real(c_double),target :: beta - real(c_double),target,dimension(..) :: CP - integer(c_int) :: ldc - integer(c_int64_t) :: strideC - integer(c_int) :: batchCount + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: A + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:) :: B + integer(c_int64_t) :: ldb + complex(c_double_complex),target,dimension(:) :: C + integer(c_int64_t) :: ldc ! - hipblasDsyr2kStridedBatched_assumed_rank = hipblasDsyr2kStridedBatched_(handle,uplo,transA, & - n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasZtrmm_64_rank_1 = hipblasZtrmm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) end function -#else - function hipblasDsyr2kStridedBatched_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZtrmm_64_rank_1_devptr(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2kStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmm_64_rank_1_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int) :: n - integer(c_int) :: k - real(c_double),target :: alpha - real(c_double),target :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_double),target :: BP - integer(c_int) :: ldb - integer(c_int64_t) :: strideB - real(c_double),target :: beta - real(c_double),target :: CP - integer(c_int) :: ldc - integer(c_int64_t) :: strideC - integer(c_int) :: batchCount + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: A + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:) :: B + integer(c_int64_t) :: ldb + complex(c_double_complex),target,dimension(:) :: C + integer(c_int64_t) :: ldc ! - hipblasDsyr2kStridedBatched_rank_0 = hipblasDsyr2kStridedBatched_(handle,uplo,transA,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasZtrmm_64_rank_1_devptr = hipblasZtrmm_64_(handle,side,uplo,transA,diag,m,n,alpha, & + c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) end function - function hipblasDsyr2kStridedBatched_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZtrmm_64_full_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2kStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmm_64_full_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int) :: n - integer(c_int) :: k - real(c_double),target :: alpha - real(c_double),target,dimension(:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_double),target,dimension(:) :: BP - integer(c_int) :: ldb - integer(c_int64_t) :: strideB - real(c_double),target :: beta - real(c_double),target,dimension(:) :: CP - integer(c_int) :: ldc - integer(c_int64_t) :: strideC - integer(c_int) :: batchCount + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: A + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:,:) :: B + integer(c_int64_t) :: ldb + complex(c_double_complex),target,dimension(:,:) :: C + integer(c_int64_t) :: ldc ! - hipblasDsyr2kStridedBatched_rank_1 = hipblasDsyr2kStridedBatched_(handle,uplo,transA,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasZtrmm_64_full_rank = hipblasZtrmm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) end function - function hipblasDsyr2kStridedBatched_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZtrmm_64_full_rank_devptr(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb, & + C,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2kStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmm_64_full_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int) :: n - integer(c_int) :: k - real(c_double),target :: alpha - real(c_double),target,dimension(:,:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_double),target,dimension(:,:) :: BP - integer(c_int) :: ldb - integer(c_int64_t) :: strideB - real(c_double),target :: beta - real(c_double),target,dimension(:,:) :: CP - integer(c_int) :: ldc - integer(c_int64_t) :: strideC - integer(c_int) :: batchCount + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: A + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:,:) :: B + integer(c_int64_t) :: ldb + complex(c_double_complex),target,dimension(:,:) :: C + integer(c_int64_t) :: ldc ! - hipblasDsyr2kStridedBatched_full_rank = hipblasDsyr2kStridedBatched_(handle,uplo,transA,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasZtrmm_64_full_rank_devptr = hipblasZtrmm_64_(handle,side,uplo,transA,diag,m,n,alpha, & + c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCsyr2kStridedBatched_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & - BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2kStridedBatched_assumed_rank - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int) :: n - integer(c_int) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(..) :: BP - integer(c_int) :: ldb - integer(c_int64_t) :: strideB - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(..) :: CP - integer(c_int) :: ldc - integer(c_int64_t) :: strideC - integer(c_int) :: batchCount - ! - hipblasCsyr2kStridedBatched_assumed_rank = hipblasCsyr2kStridedBatched_(handle,uplo,transA, & - n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) - end function - -#else - function hipblasCsyr2kStridedBatched_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2kStridedBatched_rank_0 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int) :: n - integer(c_int) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - complex(c_float_complex),target :: BP - integer(c_int) :: ldb - integer(c_int64_t) :: strideB - complex(c_float_complex),target :: beta - complex(c_float_complex),target :: CP - integer(c_int) :: ldc - integer(c_int64_t) :: strideC - integer(c_int) :: batchCount - ! - hipblasCsyr2kStridedBatched_rank_0 = hipblasCsyr2kStridedBatched_(handle,uplo,transA,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) - end function - - function hipblasCsyr2kStridedBatched_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasStrmmStridedBatched_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & + strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2kStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmmStridedBatched_assumed_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: AP + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: A integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:) :: BP + real(c_float),target,dimension(..) :: B integer(c_int) :: ldb integer(c_int64_t) :: strideB - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:) :: CP + real(c_float),target,dimension(..) :: C integer(c_int) :: ldc integer(c_int64_t) :: strideC integer(c_int) :: batchCount ! - hipblasCsyr2kStridedBatched_rank_1 = hipblasCsyr2kStridedBatched_(handle,uplo,transA,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + hipblasStrmmStridedBatched_assumed_rank = hipblasStrmmStridedBatched_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & strideC,batchCount) end function - function hipblasCsyr2kStridedBatched_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasStrmmStridedBatched_assumed_rank_devptr(handle,side,uplo,transA,diag,m,n, & + alpha,A,lda,strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2kStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmmStridedBatched_assumed_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:,:) :: AP + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: A integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:,:) :: BP + real(c_float),target,dimension(..) :: B integer(c_int) :: ldb integer(c_int64_t) :: strideB - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:,:) :: CP + real(c_float),target,dimension(..) :: C integer(c_int) :: ldc integer(c_int64_t) :: strideC integer(c_int) :: batchCount ! - hipblasCsyr2kStridedBatched_full_rank = hipblasCsyr2kStridedBatched_(handle,uplo,transA,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasStrmmStridedBatched_assumed_rank_devptr = hipblasStrmmStridedBatched_(handle,side, & + uplo,transA,diag,m,n,alpha,c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc,strideC, & + batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZsyr2kStridedBatched_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & - BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding +#else + function hipblasStrmmStridedBatched_rank_0(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & + strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2kStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmmStridedBatched_rank_0 type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: AP + real(c_float),target :: alpha + real(c_float),target :: A integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(..) :: BP + real(c_float),target :: B integer(c_int) :: ldb integer(c_int64_t) :: strideB - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(..) :: CP + real(c_float),target :: C integer(c_int) :: ldc integer(c_int64_t) :: strideC integer(c_int) :: batchCount ! - hipblasZsyr2kStridedBatched_assumed_rank = hipblasZsyr2kStridedBatched_(handle,uplo,transA, & - n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasStrmmStridedBatched_rank_0 = hipblasStrmmStridedBatched_(handle,side,uplo,transA, & + diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc,strideC, & + batchCount) end function -#else - function hipblasZsyr2kStridedBatched_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasStrmmStridedBatched_rank_0_devptr(handle,side,uplo,transA,diag,m,n,alpha,A, & + lda,strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2kStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmmStridedBatched_rank_0_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: AP + type(c_ptr),value :: alpha + real(c_float),target :: A integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target :: BP + real(c_float),target :: B integer(c_int) :: ldb integer(c_int64_t) :: strideB - complex(c_double_complex),target :: beta - complex(c_double_complex),target :: CP + real(c_float),target :: C integer(c_int) :: ldc integer(c_int64_t) :: strideC integer(c_int) :: batchCount ! - hipblasZsyr2kStridedBatched_rank_0 = hipblasZsyr2kStridedBatched_(handle,uplo,transA,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasStrmmStridedBatched_rank_0_devptr = hipblasStrmmStridedBatched_(handle,side,uplo, & + transA,diag,m,n,alpha,c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc,strideC, & + batchCount) end function - function hipblasZsyr2kStridedBatched_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasStrmmStridedBatched_rank_1(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & + strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2kStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmmStridedBatched_rank_1 type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: AP + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: A integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:) :: BP + real(c_float),target,dimension(:) :: B integer(c_int) :: ldb integer(c_int64_t) :: strideB - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:) :: CP + real(c_float),target,dimension(:) :: C integer(c_int) :: ldc integer(c_int64_t) :: strideC integer(c_int) :: batchCount ! - hipblasZsyr2kStridedBatched_rank_1 = hipblasZsyr2kStridedBatched_(handle,uplo,transA,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasStrmmStridedBatched_rank_1 = hipblasStrmmStridedBatched_(handle,side,uplo,transA, & + diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc,strideC, & + batchCount) end function - function hipblasZsyr2kStridedBatched_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasStrmmStridedBatched_rank_1_devptr(handle,side,uplo,transA,diag,m,n,alpha,A, & + lda,strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2kStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmmStridedBatched_rank_1_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:,:) :: AP + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: A integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:,:) :: BP + real(c_float),target,dimension(:) :: B integer(c_int) :: ldb integer(c_int64_t) :: strideB - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:,:) :: CP + real(c_float),target,dimension(:) :: C integer(c_int) :: ldc integer(c_int64_t) :: strideC integer(c_int) :: batchCount ! - hipblasZsyr2kStridedBatched_full_rank = hipblasZsyr2kStridedBatched_(handle,uplo,transA,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasStrmmStridedBatched_rank_1_devptr = hipblasStrmmStridedBatched_(handle,side,uplo, & + transA,diag,m,n,alpha,c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc,strideC, & + batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasSsyr2kStridedBatched_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda, & - strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasStrmmStridedBatched_full_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & + strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2kStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmmStridedBatched_full_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: n - integer(c_int64_t) :: k + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n real(c_float),target :: alpha - real(c_float),target,dimension(..) :: AP - integer(c_int64_t) :: lda + real(c_float),target,dimension(:,:) :: A + integer(c_int) :: lda integer(c_int64_t) :: strideA - real(c_float),target,dimension(..) :: BP - integer(c_int64_t) :: ldb + real(c_float),target,dimension(:,:) :: B + integer(c_int) :: ldb integer(c_int64_t) :: strideB - real(c_float),target :: beta - real(c_float),target,dimension(..) :: CP - integer(c_int64_t) :: ldc + real(c_float),target,dimension(:,:) :: C + integer(c_int) :: ldc integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + integer(c_int) :: batchCount ! - hipblasSsyr2kStridedBatched_64_assumed_rank = hipblasSsyr2kStridedBatched_64_(handle,uplo, & - transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & - ldc,strideC,batchCount) + hipblasStrmmStridedBatched_full_rank = hipblasStrmmStridedBatched_(handle,side,uplo,transA, & + diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc,strideC, & + batchCount) end function -#else - function hipblasSsyr2kStridedBatched_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasStrmmStridedBatched_full_rank_devptr(handle,side,uplo,transA,diag,m,n,alpha,A, & + lda,strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2kStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmmStridedBatched_full_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_float),target :: alpha - real(c_float),target :: AP - integer(c_int64_t) :: lda + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:) :: A + integer(c_int) :: lda integer(c_int64_t) :: strideA - real(c_float),target :: BP - integer(c_int64_t) :: ldb + real(c_float),target,dimension(:,:) :: B + integer(c_int) :: ldb integer(c_int64_t) :: strideB - real(c_float),target :: beta - real(c_float),target :: CP - integer(c_int64_t) :: ldc + real(c_float),target,dimension(:,:) :: C + integer(c_int) :: ldc integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + integer(c_int) :: batchCount ! - hipblasSsyr2kStridedBatched_64_rank_0 = hipblasSsyr2kStridedBatched_64_(handle,uplo,transA, & - n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasStrmmStridedBatched_full_rank_devptr = hipblasStrmmStridedBatched_(handle,side,uplo, & + transA,diag,m,n,alpha,c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc,strideC, & + batchCount) end function - function hipblasSsyr2kStridedBatched_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasStrmmStridedBatched_strided_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & + strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2kStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmmStridedBatched_strided_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: n - integer(c_int64_t) :: k + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n real(c_float),target :: alpha - real(c_float),target,dimension(:) :: AP - integer(c_int64_t) :: lda + real(c_float),target,dimension(:,:,:) :: A + integer(c_int) :: lda integer(c_int64_t) :: strideA - real(c_float),target,dimension(:) :: BP - integer(c_int64_t) :: ldb + real(c_float),target,dimension(:,:,:) :: B + integer(c_int) :: ldb integer(c_int64_t) :: strideB - real(c_float),target :: beta - real(c_float),target,dimension(:) :: CP - integer(c_int64_t) :: ldc + real(c_float),target,dimension(:,:,:) :: C + integer(c_int) :: ldc integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + integer(c_int) :: batchCount ! - hipblasSsyr2kStridedBatched_64_rank_1 = hipblasSsyr2kStridedBatched_64_(handle,uplo,transA, & - n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + hipblasStrmmStridedBatched_strided_rank = hipblasStrmmStridedBatched_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & strideC,batchCount) end function - function hipblasSsyr2kStridedBatched_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & - BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasStrmmStridedBatched_strided_rank_devptr(handle,side,uplo,transA,diag,m,n, & + alpha,A,lda,strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyr2kStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmmStridedBatched_strided_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_float),target :: alpha - real(c_float),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:,:) :: A + integer(c_int) :: lda integer(c_int64_t) :: strideA - real(c_float),target,dimension(:,:) :: BP - integer(c_int64_t) :: ldb + real(c_float),target,dimension(:,:,:) :: B + integer(c_int) :: ldb integer(c_int64_t) :: strideB - real(c_float),target :: beta - real(c_float),target,dimension(:,:) :: CP - integer(c_int64_t) :: ldc + real(c_float),target,dimension(:,:,:) :: C + integer(c_int) :: ldc integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + integer(c_int) :: batchCount ! - hipblasSsyr2kStridedBatched_64_full_rank = hipblasSsyr2kStridedBatched_64_(handle,uplo, & - transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & - ldc,strideC,batchCount) + hipblasStrmmStridedBatched_strided_rank_devptr = hipblasStrmmStridedBatched_(handle,side, & + uplo,transA,diag,m,n,alpha,c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc,strideC, & + batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasDsyr2kStridedBatched_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda, & - strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2kStridedBatched_64_assumed_rank - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_double),target :: alpha - real(c_double),target,dimension(..) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - real(c_double),target,dimension(..) :: BP - integer(c_int64_t) :: ldb - integer(c_int64_t) :: strideB - real(c_double),target :: beta - real(c_double),target,dimension(..) :: CP - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount - ! - hipblasDsyr2kStridedBatched_64_assumed_rank = hipblasDsyr2kStridedBatched_64_(handle,uplo, & - transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & - ldc,strideC,batchCount) - end function - -#else - function hipblasDsyr2kStridedBatched_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2kStridedBatched_64_rank_0 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_double),target :: alpha - real(c_double),target :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - real(c_double),target :: BP - integer(c_int64_t) :: ldb - integer(c_int64_t) :: strideB - real(c_double),target :: beta - real(c_double),target :: CP - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount - ! - hipblasDsyr2kStridedBatched_64_rank_0 = hipblasDsyr2kStridedBatched_64_(handle,uplo,transA, & - n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) - end function - - function hipblasDsyr2kStridedBatched_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasDtrmmStridedBatched_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & + strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2kStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmmStridedBatched_assumed_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: n - integer(c_int64_t) :: k + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n real(c_double),target :: alpha - real(c_double),target,dimension(:) :: AP - integer(c_int64_t) :: lda + real(c_double),target,dimension(..) :: A + integer(c_int) :: lda integer(c_int64_t) :: strideA - real(c_double),target,dimension(:) :: BP - integer(c_int64_t) :: ldb + real(c_double),target,dimension(..) :: B + integer(c_int) :: ldb integer(c_int64_t) :: strideB - real(c_double),target :: beta - real(c_double),target,dimension(:) :: CP - integer(c_int64_t) :: ldc + real(c_double),target,dimension(..) :: C + integer(c_int) :: ldc integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + integer(c_int) :: batchCount ! - hipblasDsyr2kStridedBatched_64_rank_1 = hipblasDsyr2kStridedBatched_64_(handle,uplo,transA, & - n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + hipblasDtrmmStridedBatched_assumed_rank = hipblasDtrmmStridedBatched_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & strideC,batchCount) end function - function hipblasDsyr2kStridedBatched_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & - BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyr2kStridedBatched_64_full_rank - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_double),target :: alpha - real(c_double),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - real(c_double),target,dimension(:,:) :: BP - integer(c_int64_t) :: ldb - integer(c_int64_t) :: strideB - real(c_double),target :: beta - real(c_double),target,dimension(:,:) :: CP - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount - ! - hipblasDsyr2kStridedBatched_64_full_rank = hipblasDsyr2kStridedBatched_64_(handle,uplo, & - transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & - ldc,strideC,batchCount) - end function - -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCsyr2kStridedBatched_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda, & - strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasDtrmmStridedBatched_assumed_rank_devptr(handle,side,uplo,transA,diag,m,n, & + alpha,A,lda,strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2kStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmmStridedBatched_assumed_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: AP - integer(c_int64_t) :: lda + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: A + integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(..) :: BP - integer(c_int64_t) :: ldb + real(c_double),target,dimension(..) :: B + integer(c_int) :: ldb integer(c_int64_t) :: strideB - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(..) :: CP - integer(c_int64_t) :: ldc + real(c_double),target,dimension(..) :: C + integer(c_int) :: ldc integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + integer(c_int) :: batchCount ! - hipblasCsyr2kStridedBatched_64_assumed_rank = hipblasCsyr2kStridedBatched_64_(handle,uplo, & - transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & - ldc,strideC,batchCount) + hipblasDtrmmStridedBatched_assumed_rank_devptr = hipblasDtrmmStridedBatched_(handle,side, & + uplo,transA,diag,m,n,alpha,c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc,strideC, & + batchCount) end function #else - function hipblasCsyr2kStridedBatched_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2kStridedBatched_64_rank_0 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - complex(c_float_complex),target :: BP - integer(c_int64_t) :: ldb - integer(c_int64_t) :: strideB - complex(c_float_complex),target :: beta - complex(c_float_complex),target :: CP - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount - ! - hipblasCsyr2kStridedBatched_64_rank_0 = hipblasCsyr2kStridedBatched_64_(handle,uplo,transA, & - n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) - end function - - function hipblasCsyr2kStridedBatched_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2kStridedBatched_64_rank_1 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:) :: BP - integer(c_int64_t) :: ldb - integer(c_int64_t) :: strideB - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:) :: CP - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount - ! - hipblasCsyr2kStridedBatched_64_rank_1 = hipblasCsyr2kStridedBatched_64_(handle,uplo,transA, & - n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) - end function - - function hipblasCsyr2kStridedBatched_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & - BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasDtrmmStridedBatched_rank_0(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & + strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyr2kStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmmStridedBatched_rank_0 type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target :: A + integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:,:) :: BP - integer(c_int64_t) :: ldb + real(c_double),target :: B + integer(c_int) :: ldb integer(c_int64_t) :: strideB - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:,:) :: CP - integer(c_int64_t) :: ldc + real(c_double),target :: C + integer(c_int) :: ldc integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + integer(c_int) :: batchCount ! - hipblasCsyr2kStridedBatched_64_full_rank = hipblasCsyr2kStridedBatched_64_(handle,uplo, & - transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & - ldc,strideC,batchCount) + hipblasDtrmmStridedBatched_rank_0 = hipblasDtrmmStridedBatched_(handle,side,uplo,transA, & + diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc,strideC, & + batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZsyr2kStridedBatched_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda, & - strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasDtrmmStridedBatched_rank_0_devptr(handle,side,uplo,transA,diag,m,n,alpha,A, & + lda,strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2kStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmmStridedBatched_rank_0_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: AP - integer(c_int64_t) :: lda + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target :: A + integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(..) :: BP - integer(c_int64_t) :: ldb + real(c_double),target :: B + integer(c_int) :: ldb integer(c_int64_t) :: strideB - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(..) :: CP - integer(c_int64_t) :: ldc + real(c_double),target :: C + integer(c_int) :: ldc integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + integer(c_int) :: batchCount ! - hipblasZsyr2kStridedBatched_64_assumed_rank = hipblasZsyr2kStridedBatched_64_(handle,uplo, & - transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & - ldc,strideC,batchCount) + hipblasDtrmmStridedBatched_rank_0_devptr = hipblasDtrmmStridedBatched_(handle,side,uplo, & + transA,diag,m,n,alpha,c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc,strideC, & + batchCount) end function -#else - function hipblasZsyr2kStridedBatched_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasDtrmmStridedBatched_rank_1(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & + strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2kStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmmStridedBatched_rank_1 type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: AP - integer(c_int64_t) :: lda + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: A + integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target :: BP - integer(c_int64_t) :: ldb + real(c_double),target,dimension(:) :: B + integer(c_int) :: ldb integer(c_int64_t) :: strideB - complex(c_double_complex),target :: beta - complex(c_double_complex),target :: CP - integer(c_int64_t) :: ldc + real(c_double),target,dimension(:) :: C + integer(c_int) :: ldc integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + integer(c_int) :: batchCount ! - hipblasZsyr2kStridedBatched_64_rank_0 = hipblasZsyr2kStridedBatched_64_(handle,uplo,transA, & - n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasDtrmmStridedBatched_rank_1 = hipblasDtrmmStridedBatched_(handle,side,uplo,transA, & + diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc,strideC, & + batchCount) end function - function hipblasZsyr2kStridedBatched_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasDtrmmStridedBatched_rank_1_devptr(handle,side,uplo,transA,diag,m,n,alpha,A, & + lda,strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2kStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmmStridedBatched_rank_1_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: AP - integer(c_int64_t) :: lda + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: A + integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:) :: BP - integer(c_int64_t) :: ldb + real(c_double),target,dimension(:) :: B + integer(c_int) :: ldb integer(c_int64_t) :: strideB - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:) :: CP - integer(c_int64_t) :: ldc + real(c_double),target,dimension(:) :: C + integer(c_int) :: ldc integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + integer(c_int) :: batchCount ! - hipblasZsyr2kStridedBatched_64_rank_1 = hipblasZsyr2kStridedBatched_64_(handle,uplo,transA, & - n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasDtrmmStridedBatched_rank_1_devptr = hipblasDtrmmStridedBatched_(handle,side,uplo, & + transA,diag,m,n,alpha,c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc,strideC, & + batchCount) end function - function hipblasZsyr2kStridedBatched_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & - BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasDtrmmStridedBatched_full_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & + strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyr2kStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmmStridedBatched_full_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: A + integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:,:) :: BP - integer(c_int64_t) :: ldb + real(c_double),target,dimension(:,:) :: B + integer(c_int) :: ldb integer(c_int64_t) :: strideB - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:,:) :: CP - integer(c_int64_t) :: ldc + real(c_double),target,dimension(:,:) :: C + integer(c_int) :: ldc integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + integer(c_int) :: batchCount ! - hipblasZsyr2kStridedBatched_64_full_rank = hipblasZsyr2kStridedBatched_64_(handle,uplo, & - transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & - ldc,strideC,batchCount) + hipblasDtrmmStridedBatched_full_rank = hipblasDtrmmStridedBatched_(handle,side,uplo,transA, & + diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc,strideC, & + batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasSsyrkx_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasDtrmmStridedBatched_full_rank_devptr(handle,side,uplo,transA,diag,m,n,alpha,A, & + lda,strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkx_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmmStridedBatched_full_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - real(c_float),target :: alpha - real(c_float),target,dimension(..) :: AP + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:) :: A integer(c_int) :: lda - real(c_float),target,dimension(..) :: BP + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:) :: B integer(c_int) :: ldb - real(c_float),target :: beta - real(c_float),target,dimension(..) :: CP + integer(c_int64_t) :: strideB + real(c_double),target,dimension(:,:) :: C integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasSsyrkx_assumed_rank = hipblasSsyrkx_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & - lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasDtrmmStridedBatched_full_rank_devptr = hipblasDtrmmStridedBatched_(handle,side,uplo, & + transA,diag,m,n,alpha,c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc,strideC, & + batchCount) end function -#else - function hipblasSsyrkx_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasDtrmmStridedBatched_strided_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & + strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkx_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmmStridedBatched_strided_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - real(c_float),target :: alpha - real(c_float),target :: AP + real(c_double),target :: alpha + real(c_double),target,dimension(:,:,:) :: A integer(c_int) :: lda - real(c_float),target :: BP + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:,:) :: B integer(c_int) :: ldb - real(c_float),target :: beta - real(c_float),target :: CP + integer(c_int64_t) :: strideB + real(c_double),target,dimension(:,:,:) :: C integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasSsyrkx_rank_0 = hipblasSsyrkx_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasDtrmmStridedBatched_strided_rank = hipblasDtrmmStridedBatched_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & + strideC,batchCount) end function - function hipblasSsyrkx_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasDtrmmStridedBatched_strided_rank_devptr(handle,side,uplo,transA,diag,m,n, & + alpha,A,lda,strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkx_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmmStridedBatched_strided_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - real(c_float),target :: alpha - real(c_float),target,dimension(:) :: AP + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:,:) :: A integer(c_int) :: lda - real(c_float),target,dimension(:) :: BP + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:,:) :: B integer(c_int) :: ldb - real(c_float),target :: beta - real(c_float),target,dimension(:) :: CP + integer(c_int64_t) :: strideB + real(c_double),target,dimension(:,:,:) :: C integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasSsyrkx_rank_1 = hipblasSsyrkx_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasDtrmmStridedBatched_strided_rank_devptr = hipblasDtrmmStridedBatched_(handle,side, & + uplo,transA,diag,m,n,alpha,c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc,strideC, & + batchCount) end function - function hipblasSsyrkx_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCtrmmStridedBatched_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & + strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkx_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmmStridedBatched_assumed_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - real(c_float),target :: alpha - real(c_float),target,dimension(:,:) :: AP + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: A integer(c_int) :: lda - real(c_float),target,dimension(:,:) :: BP + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: B integer(c_int) :: ldb - real(c_float),target :: beta - real(c_float),target,dimension(:,:) :: CP + integer(c_int64_t) :: strideB + complex(c_float_complex),target,dimension(..) :: C integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasSsyrkx_full_rank = hipblasSsyrkx_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasCtrmmStridedBatched_assumed_rank = hipblasCtrmmStridedBatched_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & + strideC,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDsyrkx_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasCtrmmStridedBatched_assumed_rank_devptr(handle,side,uplo,transA,diag,m,n, & + alpha,A,lda,strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkx_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmmStridedBatched_assumed_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - real(c_double),target :: alpha - real(c_double),target,dimension(..) :: AP + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: A integer(c_int) :: lda - real(c_double),target,dimension(..) :: BP + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: B integer(c_int) :: ldb - real(c_double),target :: beta - real(c_double),target,dimension(..) :: CP + integer(c_int64_t) :: strideB + complex(c_float_complex),target,dimension(..) :: C integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasDsyrkx_assumed_rank = hipblasDsyrkx_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & - lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasCtrmmStridedBatched_assumed_rank_devptr = hipblasCtrmmStridedBatched_(handle,side, & + uplo,transA,diag,m,n,alpha,c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc,strideC, & + batchCount) end function #else - function hipblasDsyrkx_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasCtrmmStridedBatched_rank_0(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & + strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkx_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmmStridedBatched_rank_0 type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - real(c_double),target :: alpha - real(c_double),target :: AP + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: A integer(c_int) :: lda - real(c_double),target :: BP + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: B integer(c_int) :: ldb - real(c_double),target :: beta - real(c_double),target :: CP + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: C integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasDsyrkx_rank_0 = hipblasDsyrkx_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasCtrmmStridedBatched_rank_0 = hipblasCtrmmStridedBatched_(handle,side,uplo,transA, & + diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc,strideC, & + batchCount) end function - function hipblasDsyrkx_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasCtrmmStridedBatched_rank_0_devptr(handle,side,uplo,transA,diag,m,n,alpha,A, & + lda,strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkx_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmmStridedBatched_rank_0_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - real(c_double),target :: alpha - real(c_double),target,dimension(:) :: AP + type(c_ptr),value :: alpha + complex(c_float_complex),target :: A integer(c_int) :: lda - real(c_double),target,dimension(:) :: BP + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: B integer(c_int) :: ldb - real(c_double),target :: beta - real(c_double),target,dimension(:) :: CP + integer(c_int64_t) :: strideB + complex(c_float_complex),target :: C integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasDsyrkx_rank_1 = hipblasDsyrkx_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasCtrmmStridedBatched_rank_0_devptr = hipblasCtrmmStridedBatched_(handle,side,uplo, & + transA,diag,m,n,alpha,c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc,strideC, & + batchCount) end function - function hipblasDsyrkx_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasCtrmmStridedBatched_rank_1(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & + strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkx_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmmStridedBatched_rank_1 type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - real(c_double),target :: alpha - real(c_double),target,dimension(:,:) :: AP + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: A integer(c_int) :: lda - real(c_double),target,dimension(:,:) :: BP + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: B integer(c_int) :: ldb - real(c_double),target :: beta - real(c_double),target,dimension(:,:) :: CP + integer(c_int64_t) :: strideB + complex(c_float_complex),target,dimension(:) :: C integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasDsyrkx_full_rank = hipblasDsyrkx_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasCtrmmStridedBatched_rank_1 = hipblasCtrmmStridedBatched_(handle,side,uplo,transA, & + diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc,strideC, & + batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCsyrkx_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasCtrmmStridedBatched_rank_1_devptr(handle,side,uplo,transA,diag,m,n,alpha,A, & + lda,strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkx_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmmStridedBatched_rank_1_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: AP + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: A integer(c_int) :: lda - complex(c_float_complex),target,dimension(..) :: BP + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: B integer(c_int) :: ldb - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(..) :: CP + integer(c_int64_t) :: strideB + complex(c_float_complex),target,dimension(:) :: C integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasCsyrkx_assumed_rank = hipblasCsyrkx_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & - lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasCtrmmStridedBatched_rank_1_devptr = hipblasCtrmmStridedBatched_(handle,side,uplo, & + transA,diag,m,n,alpha,c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc,strideC, & + batchCount) end function -#else - function hipblasCsyrkx_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasCtrmmStridedBatched_full_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & + strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkx_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmmStridedBatched_full_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: AP + complex(c_float_complex),target,dimension(:,:) :: A integer(c_int) :: lda - complex(c_float_complex),target :: BP + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: B integer(c_int) :: ldb - complex(c_float_complex),target :: beta - complex(c_float_complex),target :: CP + integer(c_int64_t) :: strideB + complex(c_float_complex),target,dimension(:,:) :: C integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasCsyrkx_rank_0 = hipblasCsyrkx_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasCtrmmStridedBatched_full_rank = hipblasCtrmmStridedBatched_(handle,side,uplo,transA, & + diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc,strideC, & + batchCount) end function - function hipblasCsyrkx_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasCtrmmStridedBatched_full_rank_devptr(handle,side,uplo,transA,diag,m,n,alpha,A, & + lda,strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkx_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmmStridedBatched_full_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: AP + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: A integer(c_int) :: lda - complex(c_float_complex),target,dimension(:) :: BP + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: B integer(c_int) :: ldb - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:) :: CP + integer(c_int64_t) :: strideB + complex(c_float_complex),target,dimension(:,:) :: C integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasCsyrkx_rank_1 = hipblasCsyrkx_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasCtrmmStridedBatched_full_rank_devptr = hipblasCtrmmStridedBatched_(handle,side,uplo, & + transA,diag,m,n,alpha,c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc,strideC, & + batchCount) end function - function hipblasCsyrkx_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasCtrmmStridedBatched_strided_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & + strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkx_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmmStridedBatched_strided_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:,:) :: AP + complex(c_float_complex),target,dimension(:,:,:) :: A integer(c_int) :: lda - complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:,:) :: B integer(c_int) :: ldb - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: strideB + complex(c_float_complex),target,dimension(:,:,:) :: C integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasCsyrkx_full_rank = hipblasCsyrkx_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasCtrmmStridedBatched_strided_rank = hipblasCtrmmStridedBatched_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & + strideC,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZsyrkx_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasCtrmmStridedBatched_strided_rank_devptr(handle,side,uplo,transA,diag,m,n, & + alpha,A,lda,strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkx_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmmStridedBatched_strided_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: AP + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:,:) :: A integer(c_int) :: lda - complex(c_double_complex),target,dimension(..) :: BP + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:,:) :: B integer(c_int) :: ldb - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(..) :: CP + integer(c_int64_t) :: strideB + complex(c_float_complex),target,dimension(:,:,:) :: C integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasZsyrkx_assumed_rank = hipblasZsyrkx_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & - lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasCtrmmStridedBatched_strided_rank_devptr = hipblasCtrmmStridedBatched_(handle,side, & + uplo,transA,diag,m,n,alpha,c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc,strideC, & + batchCount) end function -#else - function hipblasZsyrkx_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZtrmmStridedBatched_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & + strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkx_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmmStridedBatched_assumed_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: AP + complex(c_double_complex),target,dimension(..) :: A integer(c_int) :: lda - complex(c_double_complex),target :: BP + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: B integer(c_int) :: ldb - complex(c_double_complex),target :: beta - complex(c_double_complex),target :: CP + integer(c_int64_t) :: strideB + complex(c_double_complex),target,dimension(..) :: C integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasZsyrkx_rank_0 = hipblasZsyrkx_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasZtrmmStridedBatched_assumed_rank = hipblasZtrmmStridedBatched_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & + strideC,batchCount) end function - function hipblasZsyrkx_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasZtrmmStridedBatched_assumed_rank_devptr(handle,side,uplo,transA,diag,m,n, & + alpha,A,lda,strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkx_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmmStridedBatched_assumed_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: AP + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: A integer(c_int) :: lda - complex(c_double_complex),target,dimension(:) :: BP + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: B integer(c_int) :: ldb - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:) :: CP + integer(c_int64_t) :: strideB + complex(c_double_complex),target,dimension(..) :: C integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasZsyrkx_rank_1 = hipblasZsyrkx_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasZtrmmStridedBatched_assumed_rank_devptr = hipblasZtrmmStridedBatched_(handle,side, & + uplo,transA,diag,m,n,alpha,c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc,strideC, & + batchCount) end function - function hipblasZsyrkx_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding +#else + function hipblasZtrmmStridedBatched_rank_0(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & + strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkx_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmmStridedBatched_rank_0 type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:,:) :: AP + complex(c_double_complex),target :: A integer(c_int) :: lda - complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: B integer(c_int) :: ldb - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: C integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasZsyrkx_full_rank = hipblasZsyrkx_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasZtrmmStridedBatched_rank_0 = hipblasZtrmmStridedBatched_(handle,side,uplo,transA, & + diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc,strideC, & + batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasSsyrkx_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasZtrmmStridedBatched_rank_0_devptr(handle,side,uplo,transA,diag,m,n,alpha,A, & + lda,strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkx_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmmStridedBatched_rank_0_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_float),target :: alpha - real(c_float),target,dimension(..) :: AP - integer(c_int64_t) :: lda - real(c_float),target,dimension(..) :: BP - integer(c_int64_t) :: ldb - real(c_float),target :: beta - real(c_float),target,dimension(..) :: CP - integer(c_int64_t) :: ldc + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target :: C + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasSsyrkx_64_assumed_rank = hipblasSsyrkx_64_(handle,uplo,transA,n,k,c_loc(alpha), & - c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasZtrmmStridedBatched_rank_0_devptr = hipblasZtrmmStridedBatched_(handle,side,uplo, & + transA,diag,m,n,alpha,c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc,strideC, & + batchCount) end function -#else - function hipblasSsyrkx_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasZtrmmStridedBatched_rank_1(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & + strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkx_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmmStridedBatched_rank_1 type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_float),target :: alpha - real(c_float),target :: AP - integer(c_int64_t) :: lda - real(c_float),target :: BP - integer(c_int64_t) :: ldb - real(c_float),target :: beta - real(c_float),target :: CP - integer(c_int64_t) :: ldc + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target,dimension(:) :: C + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasSsyrkx_64_rank_0 = hipblasSsyrkx_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & - lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasZtrmmStridedBatched_rank_1 = hipblasZtrmmStridedBatched_(handle,side,uplo,transA, & + diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc,strideC, & + batchCount) end function - function hipblasSsyrkx_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasZtrmmStridedBatched_rank_1_devptr(handle,side,uplo,transA,diag,m,n,alpha,A, & + lda,strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkx_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmmStridedBatched_rank_1_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_float),target :: alpha - real(c_float),target,dimension(:) :: AP - integer(c_int64_t) :: lda - real(c_float),target,dimension(:) :: BP - integer(c_int64_t) :: ldb - real(c_float),target :: beta - real(c_float),target,dimension(:) :: CP - integer(c_int64_t) :: ldc + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target,dimension(:) :: C + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasSsyrkx_64_rank_1 = hipblasSsyrkx_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & - lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasZtrmmStridedBatched_rank_1_devptr = hipblasZtrmmStridedBatched_(handle,side,uplo, & + transA,diag,m,n,alpha,c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc,strideC, & + batchCount) end function - function hipblasSsyrkx_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasZtrmmStridedBatched_full_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & + strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkx_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmmStridedBatched_full_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_float),target :: alpha - real(c_float),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - real(c_float),target,dimension(:,:) :: BP - integer(c_int64_t) :: ldb - real(c_float),target :: beta - real(c_float),target,dimension(:,:) :: CP - integer(c_int64_t) :: ldc + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target,dimension(:,:) :: C + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasSsyrkx_64_full_rank = hipblasSsyrkx_64_(handle,uplo,transA,n,k,c_loc(alpha), & - c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasZtrmmStridedBatched_full_rank = hipblasZtrmmStridedBatched_(handle,side,uplo,transA, & + diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc,strideC, & + batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDsyrkx_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasZtrmmStridedBatched_full_rank_devptr(handle,side,uplo,transA,diag,m,n,alpha,A, & + lda,strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkx_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmmStridedBatched_full_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_double),target :: alpha - real(c_double),target,dimension(..) :: AP - integer(c_int64_t) :: lda - real(c_double),target,dimension(..) :: BP - integer(c_int64_t) :: ldb - real(c_double),target :: beta - real(c_double),target,dimension(..) :: CP - integer(c_int64_t) :: ldc + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target,dimension(:,:) :: C + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasDsyrkx_64_assumed_rank = hipblasDsyrkx_64_(handle,uplo,transA,n,k,c_loc(alpha), & - c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasZtrmmStridedBatched_full_rank_devptr = hipblasZtrmmStridedBatched_(handle,side,uplo, & + transA,diag,m,n,alpha,c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc,strideC, & + batchCount) end function -#else - function hipblasDsyrkx_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasZtrmmStridedBatched_strided_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & + strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkx_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmmStridedBatched_strided_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_double),target :: alpha - real(c_double),target :: AP - integer(c_int64_t) :: lda - real(c_double),target :: BP - integer(c_int64_t) :: ldb - real(c_double),target :: beta - real(c_double),target :: CP - integer(c_int64_t) :: ldc + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:,:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:,:) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target,dimension(:,:,:) :: C + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasDsyrkx_64_rank_0 = hipblasDsyrkx_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & - lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasZtrmmStridedBatched_strided_rank = hipblasZtrmmStridedBatched_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & + strideC,batchCount) end function - function hipblasDsyrkx_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasZtrmmStridedBatched_strided_rank_devptr(handle,side,uplo,transA,diag,m,n, & + alpha,A,lda,strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkx_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmmStridedBatched_strided_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_double),target :: alpha - real(c_double),target,dimension(:) :: AP - integer(c_int64_t) :: lda - real(c_double),target,dimension(:) :: BP - integer(c_int64_t) :: ldb - real(c_double),target :: beta - real(c_double),target,dimension(:) :: CP - integer(c_int64_t) :: ldc + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:,:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:,:) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + complex(c_double_complex),target,dimension(:,:,:) :: C + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount ! - hipblasDsyrkx_64_rank_1 = hipblasDsyrkx_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & - lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasZtrmmStridedBatched_strided_rank_devptr = hipblasZtrmmStridedBatched_(handle,side, & + uplo,transA,diag,m,n,alpha,c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc,strideC, & + batchCount) end function - function hipblasDsyrkx_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasStrmmStridedBatched_64_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,A, & + lda,strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkx_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmmStridedBatched_64_assumed_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_double),target :: alpha - real(c_double),target,dimension(:,:) :: AP + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: A integer(c_int64_t) :: lda - real(c_double),target,dimension(:,:) :: BP + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: B integer(c_int64_t) :: ldb - real(c_double),target :: beta - real(c_double),target,dimension(:,:) :: CP + integer(c_int64_t) :: strideB + real(c_float),target,dimension(..) :: C integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasDsyrkx_64_full_rank = hipblasDsyrkx_64_(handle,uplo,transA,n,k,c_loc(alpha), & - c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasStrmmStridedBatched_64_assumed_rank = hipblasStrmmStridedBatched_64_(handle,side, & + uplo,transA,diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & + strideC,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCsyrkx_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasStrmmStridedBatched_64_assumed_rank_devptr(handle,side,uplo,transA,diag,m,n, & + alpha,A,lda,strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkx_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmmStridedBatched_64_assumed_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: AP + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: A integer(c_int64_t) :: lda - complex(c_float_complex),target,dimension(..) :: BP + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: B integer(c_int64_t) :: ldb - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(..) :: CP + integer(c_int64_t) :: strideB + real(c_float),target,dimension(..) :: C integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasCsyrkx_64_assumed_rank = hipblasCsyrkx_64_(handle,uplo,transA,n,k,c_loc(alpha), & - c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasStrmmStridedBatched_64_assumed_rank_devptr = hipblasStrmmStridedBatched_64_(handle, & + side,uplo,transA,diag,m,n,alpha,c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & + strideC,batchCount) end function #else - function hipblasCsyrkx_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasStrmmStridedBatched_64_rank_0(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & + strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkx_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmmStridedBatched_64_rank_0 type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: AP + real(c_float),target :: alpha + real(c_float),target :: A integer(c_int64_t) :: lda - complex(c_float_complex),target :: BP + integer(c_int64_t) :: strideA + real(c_float),target :: B integer(c_int64_t) :: ldb - complex(c_float_complex),target :: beta - complex(c_float_complex),target :: CP + integer(c_int64_t) :: strideB + real(c_float),target :: C integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasCsyrkx_64_rank_0 = hipblasCsyrkx_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & - lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasStrmmStridedBatched_64_rank_0 = hipblasStrmmStridedBatched_64_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & + strideC,batchCount) end function - function hipblasCsyrkx_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasStrmmStridedBatched_64_rank_0_devptr(handle,side,uplo,transA,diag,m,n,alpha,A, & + lda,strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkx_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmmStridedBatched_64_rank_0_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: AP + type(c_ptr),value :: alpha + real(c_float),target :: A integer(c_int64_t) :: lda - complex(c_float_complex),target,dimension(:) :: BP + integer(c_int64_t) :: strideA + real(c_float),target :: B integer(c_int64_t) :: ldb - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:) :: CP + integer(c_int64_t) :: strideB + real(c_float),target :: C integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasCsyrkx_64_rank_1 = hipblasCsyrkx_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & - lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasStrmmStridedBatched_64_rank_0_devptr = hipblasStrmmStridedBatched_64_(handle,side, & + uplo,transA,diag,m,n,alpha,c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc,strideC, & + batchCount) end function - function hipblasCsyrkx_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasStrmmStridedBatched_64_rank_1(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & + strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkx_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmmStridedBatched_64_rank_1 type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:,:) :: AP + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: A integer(c_int64_t) :: lda - complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: B integer(c_int64_t) :: ldb - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: strideB + real(c_float),target,dimension(:) :: C integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasCsyrkx_64_full_rank = hipblasCsyrkx_64_(handle,uplo,transA,n,k,c_loc(alpha), & - c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasStrmmStridedBatched_64_rank_1 = hipblasStrmmStridedBatched_64_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & + strideC,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZsyrkx_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasStrmmStridedBatched_64_rank_1_devptr(handle,side,uplo,transA,diag,m,n,alpha,A, & + lda,strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkx_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmmStridedBatched_64_rank_1_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: AP + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: A integer(c_int64_t) :: lda - complex(c_double_complex),target,dimension(..) :: BP + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: B integer(c_int64_t) :: ldb - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(..) :: CP + integer(c_int64_t) :: strideB + real(c_float),target,dimension(:) :: C integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasZsyrkx_64_assumed_rank = hipblasZsyrkx_64_(handle,uplo,transA,n,k,c_loc(alpha), & - c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasStrmmStridedBatched_64_rank_1_devptr = hipblasStrmmStridedBatched_64_(handle,side, & + uplo,transA,diag,m,n,alpha,c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc,strideC, & + batchCount) end function -#else - function hipblasZsyrkx_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasStrmmStridedBatched_64_full_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & + strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkx_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmmStridedBatched_64_full_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: AP + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: A integer(c_int64_t) :: lda - complex(c_double_complex),target :: BP + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:,:) :: B integer(c_int64_t) :: ldb - complex(c_double_complex),target :: beta - complex(c_double_complex),target :: CP + integer(c_int64_t) :: strideB + real(c_float),target,dimension(:,:) :: C integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasZsyrkx_64_rank_0 = hipblasZsyrkx_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & - lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasStrmmStridedBatched_64_full_rank = hipblasStrmmStridedBatched_64_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & + strideC,batchCount) end function - function hipblasZsyrkx_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasStrmmStridedBatched_64_full_rank_devptr(handle,side,uplo,transA,diag,m,n, & + alpha,A,lda,strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkx_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmmStridedBatched_64_full_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: AP + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:) :: A integer(c_int64_t) :: lda - complex(c_double_complex),target,dimension(:) :: BP + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:,:) :: B integer(c_int64_t) :: ldb - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:) :: CP + integer(c_int64_t) :: strideB + real(c_float),target,dimension(:,:) :: C integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasZsyrkx_64_rank_1 = hipblasZsyrkx_64_(handle,uplo,transA,n,k,c_loc(alpha),c_loc(AP), & - lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasStrmmStridedBatched_64_full_rank_devptr = hipblasStrmmStridedBatched_64_(handle,side, & + uplo,transA,diag,m,n,alpha,c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc,strideC, & + batchCount) end function - function hipblasZsyrkx_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasStrmmStridedBatched_64_strided_rank(handle,side,uplo,transA,diag,m,n,alpha,A, & + lda,strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkx_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmmStridedBatched_64_strided_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:,:) :: AP + real(c_float),target :: alpha + real(c_float),target,dimension(:,:,:) :: A integer(c_int64_t) :: lda - complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:,:,:) :: B integer(c_int64_t) :: ldb - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: strideB + real(c_float),target,dimension(:,:,:) :: C integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount ! - hipblasZsyrkx_64_full_rank = hipblasZsyrkx_64_(handle,uplo,transA,n,k,c_loc(alpha), & - c_loc(AP),lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasStrmmStridedBatched_64_strided_rank = hipblasStrmmStridedBatched_64_(handle,side, & + uplo,transA,diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & + strideC,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasSsyrkxStridedBatched_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & - BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasStrmmStridedBatched_64_strided_rank_devptr(handle,side,uplo,transA,diag,m,n, & + alpha,A,lda,strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkxStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmmStridedBatched_64_strided_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int) :: n - integer(c_int) :: k - real(c_float),target :: alpha - real(c_float),target,dimension(..) :: AP - integer(c_int) :: lda + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:,:) :: A + integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - real(c_float),target,dimension(..) :: BP - integer(c_int) :: ldb + real(c_float),target,dimension(:,:,:) :: B + integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - real(c_float),target :: beta - real(c_float),target,dimension(..) :: CP - integer(c_int) :: ldc + real(c_float),target,dimension(:,:,:) :: C + integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount ! - hipblasSsyrkxStridedBatched_assumed_rank = hipblasSsyrkxStridedBatched_(handle,uplo,transA, & - n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + hipblasStrmmStridedBatched_64_strided_rank_devptr = hipblasStrmmStridedBatched_64_(handle, & + side,uplo,transA,diag,m,n,alpha,c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & strideC,batchCount) end function -#else - function hipblasSsyrkxStridedBatched_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDtrmmStridedBatched_64_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,A, & + lda,strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkxStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmmStridedBatched_64_assumed_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int) :: n - integer(c_int) :: k - real(c_float),target :: alpha - real(c_float),target :: AP - integer(c_int) :: lda + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: A + integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - real(c_float),target :: BP - integer(c_int) :: ldb + real(c_double),target,dimension(..) :: B + integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - real(c_float),target :: beta - real(c_float),target :: CP - integer(c_int) :: ldc + real(c_double),target,dimension(..) :: C + integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount ! - hipblasSsyrkxStridedBatched_rank_0 = hipblasSsyrkxStridedBatched_(handle,uplo,transA,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + hipblasDtrmmStridedBatched_64_assumed_rank = hipblasDtrmmStridedBatched_64_(handle,side, & + uplo,transA,diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & strideC,batchCount) end function - function hipblasSsyrkxStridedBatched_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasDtrmmStridedBatched_64_assumed_rank_devptr(handle,side,uplo,transA,diag,m,n, & + alpha,A,lda,strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkxStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmmStridedBatched_64_assumed_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int) :: n - integer(c_int) :: k - real(c_float),target :: alpha - real(c_float),target,dimension(:) :: AP - integer(c_int) :: lda + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: A + integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - real(c_float),target,dimension(:) :: BP - integer(c_int) :: ldb + real(c_double),target,dimension(..) :: B + integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - real(c_float),target :: beta - real(c_float),target,dimension(:) :: CP - integer(c_int) :: ldc + real(c_double),target,dimension(..) :: C + integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount ! - hipblasSsyrkxStridedBatched_rank_1 = hipblasSsyrkxStridedBatched_(handle,uplo,transA,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + hipblasDtrmmStridedBatched_64_assumed_rank_devptr = hipblasDtrmmStridedBatched_64_(handle, & + side,uplo,transA,diag,m,n,alpha,c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & strideC,batchCount) end function - function hipblasSsyrkxStridedBatched_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding +#else + function hipblasDtrmmStridedBatched_64_rank_0(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & + strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkxStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmmStridedBatched_64_rank_0 type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int) :: n - integer(c_int) :: k - real(c_float),target :: alpha - real(c_float),target,dimension(:,:) :: AP - integer(c_int) :: lda + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target :: A + integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - real(c_float),target,dimension(:,:) :: BP - integer(c_int) :: ldb + real(c_double),target :: B + integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - real(c_float),target :: beta - real(c_float),target,dimension(:,:) :: CP - integer(c_int) :: ldc + real(c_double),target :: C + integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount ! - hipblasSsyrkxStridedBatched_full_rank = hipblasSsyrkxStridedBatched_(handle,uplo,transA,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + hipblasDtrmmStridedBatched_64_rank_0 = hipblasDtrmmStridedBatched_64_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & strideC,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDsyrkxStridedBatched_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & - BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasDtrmmStridedBatched_64_rank_0_devptr(handle,side,uplo,transA,diag,m,n,alpha,A, & + lda,strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkxStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmmStridedBatched_64_rank_0_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int) :: n - integer(c_int) :: k - real(c_double),target :: alpha - real(c_double),target,dimension(..) :: AP - integer(c_int) :: lda + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target :: A + integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - real(c_double),target,dimension(..) :: BP - integer(c_int) :: ldb + real(c_double),target :: B + integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - real(c_double),target :: beta - real(c_double),target,dimension(..) :: CP - integer(c_int) :: ldc + real(c_double),target :: C + integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount ! - hipblasDsyrkxStridedBatched_assumed_rank = hipblasDsyrkxStridedBatched_(handle,uplo,transA, & - n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasDtrmmStridedBatched_64_rank_0_devptr = hipblasDtrmmStridedBatched_64_(handle,side, & + uplo,transA,diag,m,n,alpha,c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc,strideC, & + batchCount) end function -#else - function hipblasDsyrkxStridedBatched_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasDtrmmStridedBatched_64_rank_1(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & + strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkxStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmmStridedBatched_64_rank_1 type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int) :: n - integer(c_int) :: k + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n real(c_double),target :: alpha - real(c_double),target :: AP - integer(c_int) :: lda + real(c_double),target,dimension(:) :: A + integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - real(c_double),target :: BP - integer(c_int) :: ldb + real(c_double),target,dimension(:) :: B + integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - real(c_double),target :: beta - real(c_double),target :: CP - integer(c_int) :: ldc + real(c_double),target,dimension(:) :: C + integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount ! - hipblasDsyrkxStridedBatched_rank_0 = hipblasDsyrkxStridedBatched_(handle,uplo,transA,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + hipblasDtrmmStridedBatched_64_rank_1 = hipblasDtrmmStridedBatched_64_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & strideC,batchCount) end function - function hipblasDsyrkxStridedBatched_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasDtrmmStridedBatched_64_rank_1_devptr(handle,side,uplo,transA,diag,m,n,alpha,A, & + lda,strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkxStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmmStridedBatched_64_rank_1_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int) :: n - integer(c_int) :: k - real(c_double),target :: alpha - real(c_double),target,dimension(:) :: AP - integer(c_int) :: lda + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: A + integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - real(c_double),target,dimension(:) :: BP - integer(c_int) :: ldb + real(c_double),target,dimension(:) :: B + integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - real(c_double),target :: beta - real(c_double),target,dimension(:) :: CP - integer(c_int) :: ldc + real(c_double),target,dimension(:) :: C + integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount ! - hipblasDsyrkxStridedBatched_rank_1 = hipblasDsyrkxStridedBatched_(handle,uplo,transA,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasDtrmmStridedBatched_64_rank_1_devptr = hipblasDtrmmStridedBatched_64_(handle,side, & + uplo,transA,diag,m,n,alpha,c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc,strideC, & + batchCount) end function - function hipblasDsyrkxStridedBatched_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasDtrmmStridedBatched_64_full_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & + strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkxStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmmStridedBatched_64_full_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int) :: n - integer(c_int) :: k + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n real(c_double),target :: alpha - real(c_double),target,dimension(:,:) :: AP - integer(c_int) :: lda + real(c_double),target,dimension(:,:) :: A + integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - real(c_double),target,dimension(:,:) :: BP - integer(c_int) :: ldb + real(c_double),target,dimension(:,:) :: B + integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - real(c_double),target :: beta - real(c_double),target,dimension(:,:) :: CP - integer(c_int) :: ldc + real(c_double),target,dimension(:,:) :: C + integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount ! - hipblasDsyrkxStridedBatched_full_rank = hipblasDsyrkxStridedBatched_(handle,uplo,transA,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + hipblasDtrmmStridedBatched_64_full_rank = hipblasDtrmmStridedBatched_64_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & strideC,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCsyrkxStridedBatched_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & - BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasDtrmmStridedBatched_64_full_rank_devptr(handle,side,uplo,transA,diag,m,n, & + alpha,A,lda,strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkxStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmmStridedBatched_64_full_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int) :: n - integer(c_int) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: AP - integer(c_int) :: lda + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:) :: A + integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(..) :: BP - integer(c_int) :: ldb + real(c_double),target,dimension(:,:) :: B + integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(..) :: CP - integer(c_int) :: ldc + real(c_double),target,dimension(:,:) :: C + integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount ! - hipblasCsyrkxStridedBatched_assumed_rank = hipblasCsyrkxStridedBatched_(handle,uplo,transA, & - n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasDtrmmStridedBatched_64_full_rank_devptr = hipblasDtrmmStridedBatched_64_(handle,side, & + uplo,transA,diag,m,n,alpha,c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc,strideC, & + batchCount) end function -#else - function hipblasCsyrkxStridedBatched_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasDtrmmStridedBatched_64_strided_rank(handle,side,uplo,transA,diag,m,n,alpha,A, & + lda,strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkxStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmmStridedBatched_64_strided_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int) :: n - integer(c_int) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: AP - integer(c_int) :: lda + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:,:,:) :: A + integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target :: BP - integer(c_int) :: ldb + real(c_double),target,dimension(:,:,:) :: B + integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - complex(c_float_complex),target :: beta - complex(c_float_complex),target :: CP - integer(c_int) :: ldc + real(c_double),target,dimension(:,:,:) :: C + integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount ! - hipblasCsyrkxStridedBatched_rank_0 = hipblasCsyrkxStridedBatched_(handle,uplo,transA,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + hipblasDtrmmStridedBatched_64_strided_rank = hipblasDtrmmStridedBatched_64_(handle,side, & + uplo,transA,diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & strideC,batchCount) end function - function hipblasCsyrkxStridedBatched_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasDtrmmStridedBatched_64_strided_rank_devptr(handle,side,uplo,transA,diag,m,n, & + alpha,A,lda,strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkxStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmmStridedBatched_64_strided_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int) :: n - integer(c_int) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: AP - integer(c_int) :: lda + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:,:) :: A + integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:) :: BP - integer(c_int) :: ldb + real(c_double),target,dimension(:,:,:) :: B + integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:) :: CP - integer(c_int) :: ldc + real(c_double),target,dimension(:,:,:) :: C + integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount ! - hipblasCsyrkxStridedBatched_rank_1 = hipblasCsyrkxStridedBatched_(handle,uplo,transA,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + hipblasDtrmmStridedBatched_64_strided_rank_devptr = hipblasDtrmmStridedBatched_64_(handle, & + side,uplo,transA,diag,m,n,alpha,c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & strideC,batchCount) end function - function hipblasCsyrkxStridedBatched_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCtrmmStridedBatched_64_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,A, & + lda,strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkxStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmmStridedBatched_64_assumed_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int) :: n - integer(c_int) :: k + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:,:) :: AP - integer(c_int) :: lda + complex(c_float_complex),target,dimension(..) :: A + integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:,:) :: BP - integer(c_int) :: ldb + complex(c_float_complex),target,dimension(..) :: B + integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:,:) :: CP - integer(c_int) :: ldc + complex(c_float_complex),target,dimension(..) :: C + integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount ! - hipblasCsyrkxStridedBatched_full_rank = hipblasCsyrkxStridedBatched_(handle,uplo,transA,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + hipblasCtrmmStridedBatched_64_assumed_rank = hipblasCtrmmStridedBatched_64_(handle,side, & + uplo,transA,diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & strideC,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZsyrkxStridedBatched_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & - BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasCtrmmStridedBatched_64_assumed_rank_devptr(handle,side,uplo,transA,diag,m,n, & + alpha,A,lda,strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkxStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmmStridedBatched_64_assumed_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int) :: n - integer(c_int) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: AP - integer(c_int) :: lda + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: A + integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(..) :: BP - integer(c_int) :: ldb + complex(c_float_complex),target,dimension(..) :: B + integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(..) :: CP - integer(c_int) :: ldc + complex(c_float_complex),target,dimension(..) :: C + integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount ! - hipblasZsyrkxStridedBatched_assumed_rank = hipblasZsyrkxStridedBatched_(handle,uplo,transA, & - n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + hipblasCtrmmStridedBatched_64_assumed_rank_devptr = hipblasCtrmmStridedBatched_64_(handle, & + side,uplo,transA,diag,m,n,alpha,c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & strideC,batchCount) end function #else - function hipblasZsyrkxStridedBatched_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasCtrmmStridedBatched_64_rank_0(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & + strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkxStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmmStridedBatched_64_rank_0 type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int) :: n - integer(c_int) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: AP - integer(c_int) :: lda + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: A + integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target :: BP - integer(c_int) :: ldb + complex(c_float_complex),target :: B + integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - complex(c_double_complex),target :: beta - complex(c_double_complex),target :: CP - integer(c_int) :: ldc + complex(c_float_complex),target :: C + integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount ! - hipblasZsyrkxStridedBatched_rank_0 = hipblasZsyrkxStridedBatched_(handle,uplo,transA,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + hipblasCtrmmStridedBatched_64_rank_0 = hipblasCtrmmStridedBatched_64_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & strideC,batchCount) end function - function hipblasZsyrkxStridedBatched_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasCtrmmStridedBatched_64_rank_0_devptr(handle,side,uplo,transA,diag,m,n,alpha,A, & + lda,strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkxStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmmStridedBatched_64_rank_0_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int) :: n - integer(c_int) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: AP - integer(c_int) :: lda + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target :: A + integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:) :: BP - integer(c_int) :: ldb + complex(c_float_complex),target :: B + integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:) :: CP - integer(c_int) :: ldc + complex(c_float_complex),target :: C + integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount ! - hipblasZsyrkxStridedBatched_rank_1 = hipblasZsyrkxStridedBatched_(handle,uplo,transA,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasCtrmmStridedBatched_64_rank_0_devptr = hipblasCtrmmStridedBatched_64_(handle,side, & + uplo,transA,diag,m,n,alpha,c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc,strideC, & + batchCount) end function - function hipblasZsyrkxStridedBatched_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasCtrmmStridedBatched_64_rank_1(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & + strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkxStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmmStridedBatched_64_rank_1 type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int) :: n - integer(c_int) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:,:) :: AP - integer(c_int) :: lda + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: A + integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:,:) :: BP - integer(c_int) :: ldb + complex(c_float_complex),target,dimension(:) :: B + integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:,:) :: CP - integer(c_int) :: ldc + complex(c_float_complex),target,dimension(:) :: C + integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC - integer(c_int) :: batchCount + integer(c_int64_t) :: batchCount ! - hipblasZsyrkxStridedBatched_full_rank = hipblasZsyrkxStridedBatched_(handle,uplo,transA,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + hipblasCtrmmStridedBatched_64_rank_1 = hipblasCtrmmStridedBatched_64_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & strideC,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasSsyrkxStridedBatched_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda, & - strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasCtrmmStridedBatched_64_rank_1_devptr(handle,side,uplo,transA,diag,m,n,alpha,A, & + lda,strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkxStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmmStridedBatched_64_rank_1_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_float),target :: alpha - real(c_float),target,dimension(..) :: AP + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: A integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - real(c_float),target,dimension(..) :: BP + complex(c_float_complex),target,dimension(:) :: B integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - real(c_float),target :: beta - real(c_float),target,dimension(..) :: CP + complex(c_float_complex),target,dimension(:) :: C integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasSsyrkxStridedBatched_64_assumed_rank = hipblasSsyrkxStridedBatched_64_(handle,uplo, & - transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & - ldc,strideC,batchCount) + hipblasCtrmmStridedBatched_64_rank_1_devptr = hipblasCtrmmStridedBatched_64_(handle,side, & + uplo,transA,diag,m,n,alpha,c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc,strideC, & + batchCount) end function -#else - function hipblasSsyrkxStridedBatched_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasCtrmmStridedBatched_64_full_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & + strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkxStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmmStridedBatched_64_full_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_float),target :: alpha - real(c_float),target :: AP + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: A integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - real(c_float),target :: BP + complex(c_float_complex),target,dimension(:,:) :: B integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - real(c_float),target :: beta - real(c_float),target :: CP + complex(c_float_complex),target,dimension(:,:) :: C integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasSsyrkxStridedBatched_64_rank_0 = hipblasSsyrkxStridedBatched_64_(handle,uplo,transA, & - n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + hipblasCtrmmStridedBatched_64_full_rank = hipblasCtrmmStridedBatched_64_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & strideC,batchCount) end function - function hipblasSsyrkxStridedBatched_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasCtrmmStridedBatched_64_full_rank_devptr(handle,side,uplo,transA,diag,m,n, & + alpha,A,lda,strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkxStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmmStridedBatched_64_full_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_float),target :: alpha - real(c_float),target,dimension(:) :: AP + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: A integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - real(c_float),target,dimension(:) :: BP + complex(c_float_complex),target,dimension(:,:) :: B integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - real(c_float),target :: beta - real(c_float),target,dimension(:) :: CP + complex(c_float_complex),target,dimension(:,:) :: C integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasSsyrkxStridedBatched_64_rank_1 = hipblasSsyrkxStridedBatched_64_(handle,uplo,transA, & - n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasCtrmmStridedBatched_64_full_rank_devptr = hipblasCtrmmStridedBatched_64_(handle,side, & + uplo,transA,diag,m,n,alpha,c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc,strideC, & + batchCount) end function - function hipblasSsyrkxStridedBatched_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & - BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasCtrmmStridedBatched_64_strided_rank(handle,side,uplo,transA,diag,m,n,alpha,A, & + lda,strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSsyrkxStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmmStridedBatched_64_strided_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_float),target :: alpha - real(c_float),target,dimension(:,:) :: AP + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:,:) :: A integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - real(c_float),target,dimension(:,:) :: BP + complex(c_float_complex),target,dimension(:,:,:) :: B integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - real(c_float),target :: beta - real(c_float),target,dimension(:,:) :: CP + complex(c_float_complex),target,dimension(:,:,:) :: C integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasSsyrkxStridedBatched_64_full_rank = hipblasSsyrkxStridedBatched_64_(handle,uplo, & - transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & - ldc,strideC,batchCount) + hipblasCtrmmStridedBatched_64_strided_rank = hipblasCtrmmStridedBatched_64_(handle,side, & + uplo,transA,diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & + strideC,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDsyrkxStridedBatched_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda, & - strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasCtrmmStridedBatched_64_strided_rank_devptr(handle,side,uplo,transA,diag,m,n, & + alpha,A,lda,strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkxStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmmStridedBatched_64_strided_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_double),target :: alpha - real(c_double),target,dimension(..) :: AP + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:,:) :: A integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - real(c_double),target,dimension(..) :: BP + complex(c_float_complex),target,dimension(:,:,:) :: B integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - real(c_double),target :: beta - real(c_double),target,dimension(..) :: CP + complex(c_float_complex),target,dimension(:,:,:) :: C integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasDsyrkxStridedBatched_64_assumed_rank = hipblasDsyrkxStridedBatched_64_(handle,uplo, & - transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & - ldc,strideC,batchCount) + hipblasCtrmmStridedBatched_64_strided_rank_devptr = hipblasCtrmmStridedBatched_64_(handle, & + side,uplo,transA,diag,m,n,alpha,c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & + strideC,batchCount) end function -#else - function hipblasDsyrkxStridedBatched_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZtrmmStridedBatched_64_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,A, & + lda,strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkxStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmmStridedBatched_64_assumed_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_double),target :: alpha - real(c_double),target :: AP + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: A integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - real(c_double),target :: BP + complex(c_double_complex),target,dimension(..) :: B integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - real(c_double),target :: beta - real(c_double),target :: CP + complex(c_double_complex),target,dimension(..) :: C integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasDsyrkxStridedBatched_64_rank_0 = hipblasDsyrkxStridedBatched_64_(handle,uplo,transA, & - n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + hipblasZtrmmStridedBatched_64_assumed_rank = hipblasZtrmmStridedBatched_64_(handle,side, & + uplo,transA,diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & strideC,batchCount) end function - function hipblasDsyrkxStridedBatched_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZtrmmStridedBatched_64_assumed_rank_devptr(handle,side,uplo,transA,diag,m,n, & + alpha,A,lda,strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkxStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmmStridedBatched_64_assumed_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_double),target :: alpha - real(c_double),target,dimension(:) :: AP + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: A integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - real(c_double),target,dimension(:) :: BP + complex(c_double_complex),target,dimension(..) :: B integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - real(c_double),target :: beta - real(c_double),target,dimension(:) :: CP + complex(c_double_complex),target,dimension(..) :: C integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasDsyrkxStridedBatched_64_rank_1 = hipblasDsyrkxStridedBatched_64_(handle,uplo,transA, & - n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + hipblasZtrmmStridedBatched_64_assumed_rank_devptr = hipblasZtrmmStridedBatched_64_(handle, & + side,uplo,transA,diag,m,n,alpha,c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & strideC,batchCount) end function - function hipblasDsyrkxStridedBatched_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & - BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding +#else + function hipblasZtrmmStridedBatched_64_rank_0(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & + strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDsyrkxStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmmStridedBatched_64_rank_0 type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - real(c_double),target :: alpha - real(c_double),target,dimension(:,:) :: AP + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: A integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - real(c_double),target,dimension(:,:) :: BP + complex(c_double_complex),target :: B integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - real(c_double),target :: beta - real(c_double),target,dimension(:,:) :: CP + complex(c_double_complex),target :: C integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasDsyrkxStridedBatched_64_full_rank = hipblasDsyrkxStridedBatched_64_(handle,uplo, & - transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & - ldc,strideC,batchCount) + hipblasZtrmmStridedBatched_64_rank_0 = hipblasZtrmmStridedBatched_64_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & + strideC,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCsyrkxStridedBatched_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda, & - strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZtrmmStridedBatched_64_rank_0_devptr(handle,side,uplo,transA,diag,m,n,alpha,A, & + lda,strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkxStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmmStridedBatched_64_rank_0_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: AP + type(c_ptr),value :: alpha + complex(c_double_complex),target :: A integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(..) :: BP + complex(c_double_complex),target :: B integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(..) :: CP + complex(c_double_complex),target :: C integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasCsyrkxStridedBatched_64_assumed_rank = hipblasCsyrkxStridedBatched_64_(handle,uplo, & - transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & - ldc,strideC,batchCount) + hipblasZtrmmStridedBatched_64_rank_0_devptr = hipblasZtrmmStridedBatched_64_(handle,side, & + uplo,transA,diag,m,n,alpha,c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc,strideC, & + batchCount) end function -#else - function hipblasCsyrkxStridedBatched_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZtrmmStridedBatched_64_rank_1(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & + strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkxStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmmStridedBatched_64_rank_1 type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: AP + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: A integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target :: BP + complex(c_double_complex),target,dimension(:) :: B integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - complex(c_float_complex),target :: beta - complex(c_float_complex),target :: CP + complex(c_double_complex),target,dimension(:) :: C integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasCsyrkxStridedBatched_64_rank_0 = hipblasCsyrkxStridedBatched_64_(handle,uplo,transA, & - n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + hipblasZtrmmStridedBatched_64_rank_1 = hipblasZtrmmStridedBatched_64_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & strideC,batchCount) end function - function hipblasCsyrkxStridedBatched_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZtrmmStridedBatched_64_rank_1_devptr(handle,side,uplo,transA,diag,m,n,alpha,A, & + lda,strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkxStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmmStridedBatched_64_rank_1_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: AP + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: A integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:) :: BP + complex(c_double_complex),target,dimension(:) :: B integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:) :: CP + complex(c_double_complex),target,dimension(:) :: C integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasCsyrkxStridedBatched_64_rank_1 = hipblasCsyrkxStridedBatched_64_(handle,uplo,transA, & - n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasZtrmmStridedBatched_64_rank_1_devptr = hipblasZtrmmStridedBatched_64_(handle,side, & + uplo,transA,diag,m,n,alpha,c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc,strideC, & + batchCount) end function - function hipblasCsyrkxStridedBatched_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & - BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZtrmmStridedBatched_64_full_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & + strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsyrkxStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmmStridedBatched_64_full_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:,:) :: AP + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: A integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:,:) :: BP + complex(c_double_complex),target,dimension(:,:) :: B integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:,:) :: CP + complex(c_double_complex),target,dimension(:,:) :: C integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasCsyrkxStridedBatched_64_full_rank = hipblasCsyrkxStridedBatched_64_(handle,uplo, & - transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & - ldc,strideC,batchCount) + hipblasZtrmmStridedBatched_64_full_rank = hipblasZtrmmStridedBatched_64_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & + strideC,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZsyrkxStridedBatched_64_assumed_rank(handle,uplo,transA,n,k,alpha,AP,lda, & - strideA,BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZtrmmStridedBatched_64_full_rank_devptr(handle,side,uplo,transA,diag,m,n, & + alpha,A,lda,strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkxStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmmStridedBatched_64_full_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: AP + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: A integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(..) :: BP + complex(c_double_complex),target,dimension(:,:) :: B integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(..) :: CP + complex(c_double_complex),target,dimension(:,:) :: C integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasZsyrkxStridedBatched_64_assumed_rank = hipblasZsyrkxStridedBatched_64_(handle,uplo, & - transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & - ldc,strideC,batchCount) + hipblasZtrmmStridedBatched_64_full_rank_devptr = hipblasZtrmmStridedBatched_64_(handle,side, & + uplo,transA,diag,m,n,alpha,c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc,strideC, & + batchCount) end function -#else - function hipblasZsyrkxStridedBatched_64_rank_0(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZtrmmStridedBatched_64_strided_rank(handle,side,uplo,transA,diag,m,n,alpha,A, & + lda,strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkxStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmmStridedBatched_64_strided_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: AP + complex(c_double_complex),target,dimension(:,:,:) :: A integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target :: BP + complex(c_double_complex),target,dimension(:,:,:) :: B integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - complex(c_double_complex),target :: beta - complex(c_double_complex),target :: CP + complex(c_double_complex),target,dimension(:,:,:) :: C integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasZsyrkxStridedBatched_64_rank_0 = hipblasZsyrkxStridedBatched_64_(handle,uplo,transA, & - n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + hipblasZtrmmStridedBatched_64_strided_rank = hipblasZtrmmStridedBatched_64_(handle,side, & + uplo,transA,diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & strideC,batchCount) end function - function hipblasZsyrkxStridedBatched_64_rank_1(handle,uplo,transA,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZtrmmStridedBatched_64_strided_rank_devptr(handle,side,uplo,transA,diag,m,n, & + alpha,A,lda,strideA,B,ldb,strideB,C,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkxStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmmStridedBatched_64_strided_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: AP + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:,:) :: A integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:) :: BP + complex(c_double_complex),target,dimension(:,:,:) :: B integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:) :: CP + complex(c_double_complex),target,dimension(:,:,:) :: C integer(c_int64_t) :: ldc integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasZsyrkxStridedBatched_64_rank_1 = hipblasZsyrkxStridedBatched_64_(handle,uplo,transA, & - n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & + hipblasZtrmmStridedBatched_64_strided_rank_devptr = hipblasZtrmmStridedBatched_64_(handle, & + side,uplo,transA,diag,m,n,alpha,c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & strideC,batchCount) end function - function hipblasZsyrkxStridedBatched_64_full_rank(handle,uplo,transA,n,k,alpha,AP,lda,strideA, & - BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasStrsm_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsm_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(..) :: BP + integer(c_int) :: ldb + ! + hipblasStrsm_assumed_rank = hipblasStrsm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb) + end function + + function hipblasStrsm_assumed_rank_devptr(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsm_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(..) :: BP + integer(c_int) :: ldb + ! + hipblasStrsm_assumed_rank_devptr = hipblasStrsm_(handle,side,uplo,transA,diag,m,n,alpha, & + c_loc(AP),lda,c_loc(BP),ldb) + end function + +#else + function hipblasStrsm_rank_0(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsm_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int) :: lda + real(c_float),target :: BP + integer(c_int) :: ldb + ! + hipblasStrsm_rank_0 = hipblasStrsm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb) + end function + + function hipblasStrsm_rank_0_devptr(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsm_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target :: AP + integer(c_int) :: lda + real(c_float),target :: BP + integer(c_int) :: ldb + ! + hipblasStrsm_rank_0_devptr = hipblasStrsm_(handle,side,uplo,transA,diag,m,n,alpha,c_loc(AP), & + lda,c_loc(BP),ldb) + end function + + function hipblasStrsm_rank_1(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsm_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(:) :: BP + integer(c_int) :: ldb + ! + hipblasStrsm_rank_1 = hipblasStrsm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb) + end function + + function hipblasStrsm_rank_1_devptr(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsm_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(:) :: BP + integer(c_int) :: ldb + ! + hipblasStrsm_rank_1_devptr = hipblasStrsm_(handle,side,uplo,transA,diag,m,n,alpha,c_loc(AP), & + lda,c_loc(BP),ldb) + end function + + function hipblasStrsm_full_rank(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsm_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(:,:) :: BP + integer(c_int) :: ldb + ! + hipblasStrsm_full_rank = hipblasStrsm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb) + end function + + function hipblasStrsm_full_rank_devptr(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsm_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(:,:) :: BP + integer(c_int) :: ldb + ! + hipblasStrsm_full_rank_devptr = hipblasStrsm_(handle,side,uplo,transA,diag,m,n,alpha, & + c_loc(AP),lda,c_loc(BP),ldb) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDtrsm_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsm_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(..) :: BP + integer(c_int) :: ldb + ! + hipblasDtrsm_assumed_rank = hipblasDtrsm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb) + end function + + function hipblasDtrsm_assumed_rank_devptr(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsm_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(..) :: BP + integer(c_int) :: ldb + ! + hipblasDtrsm_assumed_rank_devptr = hipblasDtrsm_(handle,side,uplo,transA,diag,m,n,alpha, & + c_loc(AP),lda,c_loc(BP),ldb) + end function + +#else + function hipblasDtrsm_rank_0(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsm_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int) :: lda + real(c_double),target :: BP + integer(c_int) :: ldb + ! + hipblasDtrsm_rank_0 = hipblasDtrsm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb) + end function + + function hipblasDtrsm_rank_0_devptr(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsm_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target :: AP + integer(c_int) :: lda + real(c_double),target :: BP + integer(c_int) :: ldb + ! + hipblasDtrsm_rank_0_devptr = hipblasDtrsm_(handle,side,uplo,transA,diag,m,n,alpha,c_loc(AP), & + lda,c_loc(BP),ldb) + end function + + function hipblasDtrsm_rank_1(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsm_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(:) :: BP + integer(c_int) :: ldb + ! + hipblasDtrsm_rank_1 = hipblasDtrsm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb) + end function + + function hipblasDtrsm_rank_1_devptr(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsm_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(:) :: BP + integer(c_int) :: ldb + ! + hipblasDtrsm_rank_1_devptr = hipblasDtrsm_(handle,side,uplo,transA,diag,m,n,alpha,c_loc(AP), & + lda,c_loc(BP),ldb) + end function + + function hipblasDtrsm_full_rank(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsm_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(:,:) :: BP + integer(c_int) :: ldb + ! + hipblasDtrsm_full_rank = hipblasDtrsm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb) + end function + + function hipblasDtrsm_full_rank_devptr(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZsyrkxStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsm_full_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:,:) :: BP - integer(c_int64_t) :: ldb - integer(c_int64_t) :: strideB - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:,:) :: CP - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_double),target,dimension(:,:) :: BP + integer(c_int) :: ldb ! - hipblasZsyrkxStridedBatched_64_full_rank = hipblasZsyrkxStridedBatched_64_(handle,uplo, & - transA,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & - ldc,strideC,batchCount) + hipblasDtrsm_full_rank_devptr = hipblasDtrsm_(handle,side,uplo,transA,diag,m,n,alpha, & + c_loc(AP),lda,c_loc(BP),ldb) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasSgeam_assumed_rank(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) - use iso_c_binding + function hipblasCtrsm_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeam_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsm_assumed_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: m integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(..) :: AP + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP integer(c_int) :: lda - real(c_float),target :: beta - real(c_float),target,dimension(..) :: BP + complex(c_float_complex),target,dimension(..) :: BP integer(c_int) :: ldb - real(c_float),target,dimension(..) :: CP - integer(c_int) :: ldc ! - hipblasSgeam_assumed_rank = hipblasSgeam_(handle,transA,transB,m,n,c_loc(alpha),c_loc(AP), & - lda,c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) + hipblasCtrsm_assumed_rank = hipblasCtrsm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb) end function -#else - function hipblasSgeam_rank_0(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) - use iso_c_binding + function hipblasCtrsm_assumed_rank_devptr(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeam_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsm_assumed_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: m integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target :: AP + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: AP integer(c_int) :: lda - real(c_float),target :: beta - real(c_float),target :: BP + complex(c_float_complex),target,dimension(..) :: BP integer(c_int) :: ldb - real(c_float),target :: CP - integer(c_int) :: ldc ! - hipblasSgeam_rank_0 = hipblasSgeam_(handle,transA,transB,m,n,c_loc(alpha),c_loc(AP),lda, & - c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) + hipblasCtrsm_assumed_rank_devptr = hipblasCtrsm_(handle,side,uplo,transA,diag,m,n,alpha, & + c_loc(AP),lda,c_loc(BP),ldb) end function - function hipblasSgeam_rank_1(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) - use iso_c_binding +#else + function hipblasCtrsm_rank_0(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeam_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsm_rank_0 type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: m integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(:) :: AP + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP integer(c_int) :: lda - real(c_float),target :: beta - real(c_float),target,dimension(:) :: BP + complex(c_float_complex),target :: BP integer(c_int) :: ldb - real(c_float),target,dimension(:) :: CP - integer(c_int) :: ldc ! - hipblasSgeam_rank_1 = hipblasSgeam_(handle,transA,transB,m,n,c_loc(alpha),c_loc(AP),lda, & - c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) + hipblasCtrsm_rank_0 = hipblasCtrsm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb) end function - function hipblasSgeam_full_rank(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) - use iso_c_binding + function hipblasCtrsm_rank_0_devptr(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeam_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsm_rank_0_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: m integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(:,:) :: AP + type(c_ptr),value :: alpha + complex(c_float_complex),target :: AP integer(c_int) :: lda - real(c_float),target :: beta - real(c_float),target,dimension(:,:) :: BP + complex(c_float_complex),target :: BP integer(c_int) :: ldb - real(c_float),target,dimension(:,:) :: CP - integer(c_int) :: ldc ! - hipblasSgeam_full_rank = hipblasSgeam_(handle,transA,transB,m,n,c_loc(alpha),c_loc(AP),lda, & - c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) + hipblasCtrsm_rank_0_devptr = hipblasCtrsm_(handle,side,uplo,transA,diag,m,n,alpha,c_loc(AP), & + lda,c_loc(BP),ldb) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDgeam_assumed_rank(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) - use iso_c_binding + function hipblasCtrsm_rank_1(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeam_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsm_rank_1 type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: m integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(..) :: AP + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP integer(c_int) :: lda - real(c_double),target :: beta - real(c_double),target,dimension(..) :: BP + complex(c_float_complex),target,dimension(:) :: BP integer(c_int) :: ldb - real(c_double),target,dimension(..) :: CP - integer(c_int) :: ldc ! - hipblasDgeam_assumed_rank = hipblasDgeam_(handle,transA,transB,m,n,c_loc(alpha),c_loc(AP), & - lda,c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) + hipblasCtrsm_rank_1 = hipblasCtrsm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb) end function -#else - function hipblasDgeam_rank_0(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) - use iso_c_binding + function hipblasCtrsm_rank_1_devptr(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeam_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsm_rank_1_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: m integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target :: AP + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: AP integer(c_int) :: lda - real(c_double),target :: beta - real(c_double),target :: BP + complex(c_float_complex),target,dimension(:) :: BP integer(c_int) :: ldb - real(c_double),target :: CP - integer(c_int) :: ldc ! - hipblasDgeam_rank_0 = hipblasDgeam_(handle,transA,transB,m,n,c_loc(alpha),c_loc(AP),lda, & - c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) + hipblasCtrsm_rank_1_devptr = hipblasCtrsm_(handle,side,uplo,transA,diag,m,n,alpha,c_loc(AP), & + lda,c_loc(BP),ldb) end function - function hipblasDgeam_rank_1(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) - use iso_c_binding + function hipblasCtrsm_full_rank(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeam_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsm_full_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: m integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(:) :: AP + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP integer(c_int) :: lda - real(c_double),target :: beta - real(c_double),target,dimension(:) :: BP + complex(c_float_complex),target,dimension(:,:) :: BP integer(c_int) :: ldb - real(c_double),target,dimension(:) :: CP - integer(c_int) :: ldc ! - hipblasDgeam_rank_1 = hipblasDgeam_(handle,transA,transB,m,n,c_loc(alpha),c_loc(AP),lda, & - c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) + hipblasCtrsm_full_rank = hipblasCtrsm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb) end function - function hipblasDgeam_full_rank(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) - use iso_c_binding + function hipblasCtrsm_full_rank_devptr(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeam_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsm_full_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: m integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(:,:) :: AP + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP integer(c_int) :: lda - real(c_double),target :: beta - real(c_double),target,dimension(:,:) :: BP + complex(c_float_complex),target,dimension(:,:) :: BP integer(c_int) :: ldb - real(c_double),target,dimension(:,:) :: CP - integer(c_int) :: ldc ! - hipblasDgeam_full_rank = hipblasDgeam_(handle,transA,transB,m,n,c_loc(alpha),c_loc(AP),lda, & - c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) + hipblasCtrsm_full_rank_devptr = hipblasCtrsm_(handle,side,uplo,transA,diag,m,n,alpha, & + c_loc(AP),lda,c_loc(BP),ldb) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCgeam_assumed_rank(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) - use iso_c_binding + function hipblasZtrsm_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeam_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsm_assumed_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: m integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: AP + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP integer(c_int) :: lda - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(..) :: BP + complex(c_double_complex),target,dimension(..) :: BP integer(c_int) :: ldb - complex(c_float_complex),target,dimension(..) :: CP - integer(c_int) :: ldc ! - hipblasCgeam_assumed_rank = hipblasCgeam_(handle,transA,transB,m,n,c_loc(alpha),c_loc(AP), & - lda,c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) + hipblasZtrsm_assumed_rank = hipblasZtrsm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb) end function -#else - function hipblasCgeam_rank_0(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) - use iso_c_binding + function hipblasZtrsm_assumed_rank_devptr(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeam_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsm_assumed_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: m integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: AP + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: AP integer(c_int) :: lda - complex(c_float_complex),target :: beta - complex(c_float_complex),target :: BP + complex(c_double_complex),target,dimension(..) :: BP integer(c_int) :: ldb - complex(c_float_complex),target :: CP - integer(c_int) :: ldc ! - hipblasCgeam_rank_0 = hipblasCgeam_(handle,transA,transB,m,n,c_loc(alpha),c_loc(AP),lda, & - c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) + hipblasZtrsm_assumed_rank_devptr = hipblasZtrsm_(handle,side,uplo,transA,diag,m,n,alpha, & + c_loc(AP),lda,c_loc(BP),ldb) end function - function hipblasCgeam_rank_1(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) - use iso_c_binding +#else + function hipblasZtrsm_rank_0(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeam_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsm_rank_0 type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: m integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: AP + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP integer(c_int) :: lda - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:) :: BP + complex(c_double_complex),target :: BP integer(c_int) :: ldb - complex(c_float_complex),target,dimension(:) :: CP - integer(c_int) :: ldc ! - hipblasCgeam_rank_1 = hipblasCgeam_(handle,transA,transB,m,n,c_loc(alpha),c_loc(AP),lda, & - c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) + hipblasZtrsm_rank_0 = hipblasZtrsm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb) end function - function hipblasCgeam_full_rank(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) - use iso_c_binding + function hipblasZtrsm_rank_0_devptr(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeam_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsm_rank_0_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: m integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:,:) :: AP + type(c_ptr),value :: alpha + complex(c_double_complex),target :: AP integer(c_int) :: lda - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:,:) :: BP + complex(c_double_complex),target :: BP integer(c_int) :: ldb - complex(c_float_complex),target,dimension(:,:) :: CP - integer(c_int) :: ldc ! - hipblasCgeam_full_rank = hipblasCgeam_(handle,transA,transB,m,n,c_loc(alpha),c_loc(AP),lda, & - c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) + hipblasZtrsm_rank_0_devptr = hipblasZtrsm_(handle,side,uplo,transA,diag,m,n,alpha,c_loc(AP), & + lda,c_loc(BP),ldb) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZgeam_assumed_rank(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) - use iso_c_binding + function hipblasZtrsm_rank_1(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeam_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsm_rank_1 type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: m integer(c_int) :: n complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: AP + complex(c_double_complex),target,dimension(:) :: AP integer(c_int) :: lda - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(..) :: BP + complex(c_double_complex),target,dimension(:) :: BP integer(c_int) :: ldb - complex(c_double_complex),target,dimension(..) :: CP - integer(c_int) :: ldc ! - hipblasZgeam_assumed_rank = hipblasZgeam_(handle,transA,transB,m,n,c_loc(alpha),c_loc(AP), & - lda,c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) + hipblasZtrsm_rank_1 = hipblasZtrsm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha),c_loc(AP), & + lda,c_loc(BP),ldb) end function -#else - function hipblasZgeam_rank_0(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) - use iso_c_binding + function hipblasZtrsm_rank_1_devptr(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeam_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsm_rank_1_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: m integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: AP + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: AP integer(c_int) :: lda - complex(c_double_complex),target :: beta - complex(c_double_complex),target :: BP + complex(c_double_complex),target,dimension(:) :: BP integer(c_int) :: ldb - complex(c_double_complex),target :: CP - integer(c_int) :: ldc ! - hipblasZgeam_rank_0 = hipblasZgeam_(handle,transA,transB,m,n,c_loc(alpha),c_loc(AP),lda, & - c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) + hipblasZtrsm_rank_1_devptr = hipblasZtrsm_(handle,side,uplo,transA,diag,m,n,alpha,c_loc(AP), & + lda,c_loc(BP),ldb) end function - function hipblasZgeam_rank_1(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) - use iso_c_binding + function hipblasZtrsm_full_rank(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeam_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsm_full_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: m integer(c_int) :: n complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: AP + complex(c_double_complex),target,dimension(:,:) :: AP integer(c_int) :: lda - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:) :: BP + complex(c_double_complex),target,dimension(:,:) :: BP integer(c_int) :: ldb - complex(c_double_complex),target,dimension(:) :: CP - integer(c_int) :: ldc ! - hipblasZgeam_rank_1 = hipblasZgeam_(handle,transA,transB,m,n,c_loc(alpha),c_loc(AP),lda, & - c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) + hipblasZtrsm_full_rank = hipblasZtrsm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb) end function - function hipblasZgeam_full_rank(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) - use iso_c_binding + function hipblasZtrsm_full_rank_devptr(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeam_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsm_full_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: m integer(c_int) :: n - complex(c_double_complex),target :: alpha + type(c_ptr),value :: alpha complex(c_double_complex),target,dimension(:,:) :: AP integer(c_int) :: lda - complex(c_double_complex),target :: beta complex(c_double_complex),target,dimension(:,:) :: BP integer(c_int) :: ldb - complex(c_double_complex),target,dimension(:,:) :: CP - integer(c_int) :: ldc ! - hipblasZgeam_full_rank = hipblasZgeam_(handle,transA,transB,m,n,c_loc(alpha),c_loc(AP),lda, & - c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) + hipblasZtrsm_full_rank_devptr = hipblasZtrsm_(handle,side,uplo,transA,diag,m,n,alpha, & + c_loc(AP),lda,c_loc(BP),ldb) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasSgeam_64_assumed_rank(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) - use iso_c_binding + function hipblasStrsm_64_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeam_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsm_64_assumed_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: m integer(c_int64_t) :: n real(c_float),target :: alpha real(c_float),target,dimension(..) :: AP integer(c_int64_t) :: lda - real(c_float),target :: beta real(c_float),target,dimension(..) :: BP integer(c_int64_t) :: ldb - real(c_float),target,dimension(..) :: CP - integer(c_int64_t) :: ldc ! - hipblasSgeam_64_assumed_rank = hipblasSgeam_64_(handle,transA,transB,m,n,c_loc(alpha), & - c_loc(AP),lda,c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) + hipblasStrsm_64_assumed_rank = hipblasStrsm_64_(handle,side,uplo,transA,diag,m,n, & + c_loc(alpha),c_loc(AP),lda,c_loc(BP),ldb) + end function + + function hipblasStrsm_64_assumed_rank_devptr(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP, & + ldb) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsm_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + ! + hipblasStrsm_64_assumed_rank_devptr = hipblasStrsm_64_(handle,side,uplo,transA,diag,m,n, & + alpha,c_loc(AP),lda,c_loc(BP),ldb) end function #else - function hipblasSgeam_64_rank_0(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) - use iso_c_binding + function hipblasStrsm_64_rank_0(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsm_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target :: AP + integer(c_int64_t) :: lda + real(c_float),target :: BP + integer(c_int64_t) :: ldb + ! + hipblasStrsm_64_rank_0 = hipblasStrsm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb) + end function + + function hipblasStrsm_64_rank_0_devptr(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsm_64_rank_0_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target :: AP + integer(c_int64_t) :: lda + real(c_float),target :: BP + integer(c_int64_t) :: ldb + ! + hipblasStrsm_64_rank_0_devptr = hipblasStrsm_64_(handle,side,uplo,transA,diag,m,n,alpha, & + c_loc(AP),lda,c_loc(BP),ldb) + end function + + function hipblasStrsm_64_rank_1(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsm_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + ! + hipblasStrsm_64_rank_1 = hipblasStrsm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb) + end function + + function hipblasStrsm_64_rank_1_devptr(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsm_64_rank_1_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + ! + hipblasStrsm_64_rank_1_devptr = hipblasStrsm_64_(handle,side,uplo,transA,diag,m,n,alpha, & + c_loc(AP),lda,c_loc(BP),ldb) + end function + + function hipblasStrsm_64_full_rank(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsm_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + ! + hipblasStrsm_64_full_rank = hipblasStrsm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb) + end function + + function hipblasStrsm_64_full_rank_devptr(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsm_64_full_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + real(c_float),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + ! + hipblasStrsm_64_full_rank_devptr = hipblasStrsm_64_(handle,side,uplo,transA,diag,m,n,alpha, & + c_loc(AP),lda,c_loc(BP),ldb) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDtrsm_64_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsm_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + real(c_double),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + ! + hipblasDtrsm_64_assumed_rank = hipblasDtrsm_64_(handle,side,uplo,transA,diag,m,n, & + c_loc(alpha),c_loc(AP),lda,c_loc(BP),ldb) + end function + + function hipblasDtrsm_64_assumed_rank_devptr(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP, & + ldb) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeam_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsm_64_assumed_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: m integer(c_int64_t) :: n - real(c_float),target :: alpha - real(c_float),target :: AP + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: AP integer(c_int64_t) :: lda - real(c_float),target :: beta - real(c_float),target :: BP + real(c_double),target,dimension(..) :: BP integer(c_int64_t) :: ldb - real(c_float),target :: CP - integer(c_int64_t) :: ldc ! - hipblasSgeam_64_rank_0 = hipblasSgeam_64_(handle,transA,transB,m,n,c_loc(alpha),c_loc(AP), & - lda,c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) + hipblasDtrsm_64_assumed_rank_devptr = hipblasDtrsm_64_(handle,side,uplo,transA,diag,m,n, & + alpha,c_loc(AP),lda,c_loc(BP),ldb) end function - function hipblasSgeam_64_rank_1(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) - use iso_c_binding +#else + function hipblasDtrsm_64_rank_0(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeam_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsm_64_rank_0 type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: m integer(c_int64_t) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(:) :: AP + real(c_double),target :: alpha + real(c_double),target :: AP integer(c_int64_t) :: lda - real(c_float),target :: beta - real(c_float),target,dimension(:) :: BP + real(c_double),target :: BP integer(c_int64_t) :: ldb - real(c_float),target,dimension(:) :: CP - integer(c_int64_t) :: ldc ! - hipblasSgeam_64_rank_1 = hipblasSgeam_64_(handle,transA,transB,m,n,c_loc(alpha),c_loc(AP), & - lda,c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) + hipblasDtrsm_64_rank_0 = hipblasDtrsm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb) end function - function hipblasSgeam_64_full_rank(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) - use iso_c_binding + function hipblasDtrsm_64_rank_0_devptr(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeam_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsm_64_rank_0_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: m integer(c_int64_t) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(:,:) :: AP + type(c_ptr),value :: alpha + real(c_double),target :: AP integer(c_int64_t) :: lda - real(c_float),target :: beta - real(c_float),target,dimension(:,:) :: BP + real(c_double),target :: BP integer(c_int64_t) :: ldb - real(c_float),target,dimension(:,:) :: CP - integer(c_int64_t) :: ldc ! - hipblasSgeam_64_full_rank = hipblasSgeam_64_(handle,transA,transB,m,n,c_loc(alpha), & - c_loc(AP),lda,c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) + hipblasDtrsm_64_rank_0_devptr = hipblasDtrsm_64_(handle,side,uplo,transA,diag,m,n,alpha, & + c_loc(AP),lda,c_loc(BP),ldb) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDgeam_64_assumed_rank(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) - use iso_c_binding + function hipblasDtrsm_64_rank_1(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeam_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsm_64_rank_1 type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: m integer(c_int64_t) :: n real(c_double),target :: alpha - real(c_double),target,dimension(..) :: AP + real(c_double),target,dimension(:) :: AP integer(c_int64_t) :: lda - real(c_double),target :: beta - real(c_double),target,dimension(..) :: BP + real(c_double),target,dimension(:) :: BP integer(c_int64_t) :: ldb - real(c_double),target,dimension(..) :: CP - integer(c_int64_t) :: ldc ! - hipblasDgeam_64_assumed_rank = hipblasDgeam_64_(handle,transA,transB,m,n,c_loc(alpha), & - c_loc(AP),lda,c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) + hipblasDtrsm_64_rank_1 = hipblasDtrsm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb) end function -#else - function hipblasDgeam_64_rank_0(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) - use iso_c_binding + function hipblasDtrsm_64_rank_1_devptr(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeam_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsm_64_rank_1_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: m integer(c_int64_t) :: n - real(c_double),target :: alpha - real(c_double),target :: AP + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: AP integer(c_int64_t) :: lda - real(c_double),target :: beta - real(c_double),target :: BP + real(c_double),target,dimension(:) :: BP integer(c_int64_t) :: ldb - real(c_double),target :: CP - integer(c_int64_t) :: ldc ! - hipblasDgeam_64_rank_0 = hipblasDgeam_64_(handle,transA,transB,m,n,c_loc(alpha),c_loc(AP), & - lda,c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) + hipblasDtrsm_64_rank_1_devptr = hipblasDtrsm_64_(handle,side,uplo,transA,diag,m,n,alpha, & + c_loc(AP),lda,c_loc(BP),ldb) end function - function hipblasDgeam_64_rank_1(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) - use iso_c_binding + function hipblasDtrsm_64_full_rank(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeam_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsm_64_full_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: m integer(c_int64_t) :: n real(c_double),target :: alpha - real(c_double),target,dimension(:) :: AP + real(c_double),target,dimension(:,:) :: AP integer(c_int64_t) :: lda - real(c_double),target :: beta - real(c_double),target,dimension(:) :: BP + real(c_double),target,dimension(:,:) :: BP integer(c_int64_t) :: ldb - real(c_double),target,dimension(:) :: CP - integer(c_int64_t) :: ldc ! - hipblasDgeam_64_rank_1 = hipblasDgeam_64_(handle,transA,transB,m,n,c_loc(alpha),c_loc(AP), & - lda,c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) + hipblasDtrsm_64_full_rank = hipblasDtrsm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb) end function - function hipblasDgeam_64_full_rank(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) - use iso_c_binding + function hipblasDtrsm_64_full_rank_devptr(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeam_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsm_64_full_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: m integer(c_int64_t) :: n - real(c_double),target :: alpha + type(c_ptr),value :: alpha real(c_double),target,dimension(:,:) :: AP integer(c_int64_t) :: lda - real(c_double),target :: beta real(c_double),target,dimension(:,:) :: BP integer(c_int64_t) :: ldb - real(c_double),target,dimension(:,:) :: CP - integer(c_int64_t) :: ldc ! - hipblasDgeam_64_full_rank = hipblasDgeam_64_(handle,transA,transB,m,n,c_loc(alpha), & - c_loc(AP),lda,c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) + hipblasDtrsm_64_full_rank_devptr = hipblasDtrsm_64_(handle,side,uplo,transA,diag,m,n,alpha, & + c_loc(AP),lda,c_loc(BP),ldb) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCgeam_64_assumed_rank(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) - use iso_c_binding + function hipblasCtrsm_64_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeam_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsm_64_assumed_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: m integer(c_int64_t) :: n complex(c_float_complex),target :: alpha complex(c_float_complex),target,dimension(..) :: AP integer(c_int64_t) :: lda - complex(c_float_complex),target :: beta complex(c_float_complex),target,dimension(..) :: BP integer(c_int64_t) :: ldb - complex(c_float_complex),target,dimension(..) :: CP - integer(c_int64_t) :: ldc ! - hipblasCgeam_64_assumed_rank = hipblasCgeam_64_(handle,transA,transB,m,n,c_loc(alpha), & - c_loc(AP),lda,c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) + hipblasCtrsm_64_assumed_rank = hipblasCtrsm_64_(handle,side,uplo,transA,diag,m,n, & + c_loc(alpha),c_loc(AP),lda,c_loc(BP),ldb) + end function + + function hipblasCtrsm_64_assumed_rank_devptr(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP, & + ldb) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsm_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + ! + hipblasCtrsm_64_assumed_rank_devptr = hipblasCtrsm_64_(handle,side,uplo,transA,diag,m,n, & + alpha,c_loc(AP),lda,c_loc(BP),ldb) end function #else - function hipblasCgeam_64_rank_0(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) - use iso_c_binding + function hipblasCtrsm_64_rank_0(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeam_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsm_64_rank_0 type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: m integer(c_int64_t) :: n complex(c_float_complex),target :: alpha complex(c_float_complex),target :: AP integer(c_int64_t) :: lda - complex(c_float_complex),target :: beta complex(c_float_complex),target :: BP integer(c_int64_t) :: ldb - complex(c_float_complex),target :: CP - integer(c_int64_t) :: ldc ! - hipblasCgeam_64_rank_0 = hipblasCgeam_64_(handle,transA,transB,m,n,c_loc(alpha),c_loc(AP), & - lda,c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) + hipblasCtrsm_64_rank_0 = hipblasCtrsm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb) end function - function hipblasCgeam_64_rank_1(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) - use iso_c_binding + function hipblasCtrsm_64_rank_0_devptr(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeam_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsm_64_rank_0_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_float_complex),target :: BP + integer(c_int64_t) :: ldb + ! + hipblasCtrsm_64_rank_0_devptr = hipblasCtrsm_64_(handle,side,uplo,transA,diag,m,n,alpha, & + c_loc(AP),lda,c_loc(BP),ldb) + end function + + function hipblasCtrsm_64_rank_1(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsm_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: m integer(c_int64_t) :: n complex(c_float_complex),target :: alpha complex(c_float_complex),target,dimension(:) :: AP integer(c_int64_t) :: lda - complex(c_float_complex),target :: beta complex(c_float_complex),target,dimension(:) :: BP integer(c_int64_t) :: ldb - complex(c_float_complex),target,dimension(:) :: CP - integer(c_int64_t) :: ldc ! - hipblasCgeam_64_rank_1 = hipblasCgeam_64_(handle,transA,transB,m,n,c_loc(alpha),c_loc(AP), & - lda,c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) + hipblasCtrsm_64_rank_1 = hipblasCtrsm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb) end function - function hipblasCgeam_64_full_rank(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) - use iso_c_binding + function hipblasCtrsm_64_rank_1_devptr(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeam_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsm_64_rank_1_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:,:) :: AP + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: AP integer(c_int64_t) :: lda - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:,:) :: BP + complex(c_float_complex),target,dimension(:) :: BP integer(c_int64_t) :: ldb - complex(c_float_complex),target,dimension(:,:) :: CP - integer(c_int64_t) :: ldc ! - hipblasCgeam_64_full_rank = hipblasCgeam_64_(handle,transA,transB,m,n,c_loc(alpha), & - c_loc(AP),lda,c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) + hipblasCtrsm_64_rank_1_devptr = hipblasCtrsm_64_(handle,side,uplo,transA,diag,m,n,alpha, & + c_loc(AP),lda,c_loc(BP),ldb) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZgeam_64_assumed_rank(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) - use iso_c_binding + function hipblasCtrsm_64_full_rank(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeam_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsm_64_full_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: AP + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP integer(c_int64_t) :: lda - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(..) :: BP + complex(c_float_complex),target,dimension(:,:) :: BP integer(c_int64_t) :: ldb - complex(c_double_complex),target,dimension(..) :: CP - integer(c_int64_t) :: ldc ! - hipblasZgeam_64_assumed_rank = hipblasZgeam_64_(handle,transA,transB,m,n,c_loc(alpha), & - c_loc(AP),lda,c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) + hipblasCtrsm_64_full_rank = hipblasCtrsm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb) end function -#else - function hipblasZgeam_64_rank_0(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) - use iso_c_binding + function hipblasCtrsm_64_full_rank_devptr(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeam_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsm_64_full_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: AP + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP integer(c_int64_t) :: lda - complex(c_double_complex),target :: beta - complex(c_double_complex),target :: BP + complex(c_float_complex),target,dimension(:,:) :: BP integer(c_int64_t) :: ldb - complex(c_double_complex),target :: CP - integer(c_int64_t) :: ldc ! - hipblasZgeam_64_rank_0 = hipblasZgeam_64_(handle,transA,transB,m,n,c_loc(alpha),c_loc(AP), & - lda,c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) + hipblasCtrsm_64_full_rank_devptr = hipblasCtrsm_64_(handle,side,uplo,transA,diag,m,n,alpha, & + c_loc(AP),lda,c_loc(BP),ldb) end function - function hipblasZgeam_64_rank_1(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZtrsm_64_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeam_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsm_64_assumed_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: m integer(c_int64_t) :: n complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: AP + complex(c_double_complex),target,dimension(..) :: AP integer(c_int64_t) :: lda - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:) :: BP + complex(c_double_complex),target,dimension(..) :: BP integer(c_int64_t) :: ldb - complex(c_double_complex),target,dimension(:) :: CP - integer(c_int64_t) :: ldc ! - hipblasZgeam_64_rank_1 = hipblasZgeam_64_(handle,transA,transB,m,n,c_loc(alpha),c_loc(AP), & - lda,c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) + hipblasZtrsm_64_assumed_rank = hipblasZtrsm_64_(handle,side,uplo,transA,diag,m,n, & + c_loc(alpha),c_loc(AP),lda,c_loc(BP),ldb) end function - function hipblasZgeam_64_full_rank(handle,transA,transB,m,n,alpha,AP,lda,beta,BP,ldb,CP,ldc) - use iso_c_binding + function hipblasZtrsm_64_assumed_rank_devptr(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP, & + ldb) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeam_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsm_64_assumed_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:,:) :: AP + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: AP integer(c_int64_t) :: lda - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:,:) :: BP + complex(c_double_complex),target,dimension(..) :: BP integer(c_int64_t) :: ldb - complex(c_double_complex),target,dimension(:,:) :: CP - integer(c_int64_t) :: ldc ! - hipblasZgeam_64_full_rank = hipblasZgeam_64_(handle,transA,transB,m,n,c_loc(alpha), & - c_loc(AP),lda,c_loc(beta),c_loc(BP),ldb,c_loc(CP),ldc) + hipblasZtrsm_64_assumed_rank_devptr = hipblasZtrsm_64_(handle,side,uplo,transA,diag,m,n, & + alpha,c_loc(AP),lda,c_loc(BP),ldb) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasSgeamStridedBatched_assumed_rank(handle,transA,transB,m,n,alpha,AP,lda, & - strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) - use iso_c_binding +#else + function hipblasZtrsm_64_rank_0(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeamStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsm_64_rank_0 type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int) :: m - integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(..) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_float),target :: beta - real(c_float),target,dimension(..) :: BP - integer(c_int) :: ldb - integer(c_int64_t) :: strideB - real(c_float),target,dimension(..) :: CP - integer(c_int) :: ldc - integer(c_int64_t) :: strideC - integer(c_int) :: batchCount + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target :: BP + integer(c_int64_t) :: ldb ! - hipblasSgeamStridedBatched_assumed_rank = hipblasSgeamStridedBatched_(handle,transA,transB, & - m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & - strideC,batchCount) + hipblasZtrsm_64_rank_0 = hipblasZtrsm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb) end function -#else - function hipblasSgeamStridedBatched_rank_0(handle,transA,transB,m,n,alpha,AP,lda,strideA,beta, & - BP,ldb,strideB,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZtrsm_64_rank_0_devptr(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeamStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsm_64_rank_0_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int) :: m - integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_float),target :: beta - real(c_float),target :: BP - integer(c_int) :: ldb - integer(c_int64_t) :: strideB - real(c_float),target :: CP - integer(c_int) :: ldc - integer(c_int64_t) :: strideC - integer(c_int) :: batchCount + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target :: BP + integer(c_int64_t) :: ldb ! - hipblasSgeamStridedBatched_rank_0 = hipblasSgeamStridedBatched_(handle,transA,transB,m,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & - strideC,batchCount) + hipblasZtrsm_64_rank_0_devptr = hipblasZtrsm_64_(handle,side,uplo,transA,diag,m,n,alpha, & + c_loc(AP),lda,c_loc(BP),ldb) end function - function hipblasSgeamStridedBatched_rank_1(handle,transA,transB,m,n,alpha,AP,lda,strideA,beta, & - BP,ldb,strideB,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZtrsm_64_rank_1(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeamStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsm_64_rank_1 type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int) :: m - integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_float),target :: beta - real(c_float),target,dimension(:) :: BP - integer(c_int) :: ldb - integer(c_int64_t) :: strideB - real(c_float),target,dimension(:) :: CP - integer(c_int) :: ldc - integer(c_int64_t) :: strideC - integer(c_int) :: batchCount + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb ! - hipblasSgeamStridedBatched_rank_1 = hipblasSgeamStridedBatched_(handle,transA,transB,m,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & - strideC,batchCount) + hipblasZtrsm_64_rank_1 = hipblasZtrsm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb) end function - function hipblasSgeamStridedBatched_full_rank(handle,transA,transB,m,n,alpha,AP,lda,strideA, & - beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZtrsm_64_rank_1_devptr(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeamStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsm_64_rank_1_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int) :: m - integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(:,:) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_float),target :: beta - real(c_float),target,dimension(:,:) :: BP - integer(c_int) :: ldb - integer(c_int64_t) :: strideB - real(c_float),target,dimension(:,:) :: CP - integer(c_int) :: ldc - integer(c_int64_t) :: strideC - integer(c_int) :: batchCount + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb ! - hipblasSgeamStridedBatched_full_rank = hipblasSgeamStridedBatched_(handle,transA,transB,m,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & - strideC,batchCount) + hipblasZtrsm_64_rank_1_devptr = hipblasZtrsm_64_(handle,side,uplo,transA,diag,m,n,alpha, & + c_loc(AP),lda,c_loc(BP),ldb) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDgeamStridedBatched_assumed_rank(handle,transA,transB,m,n,alpha,AP,lda, & - strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZtrsm_64_full_rank(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeamStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsm_64_full_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int) :: m - integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(..) :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_double),target :: beta - real(c_double),target,dimension(..) :: BP - integer(c_int) :: ldb - integer(c_int64_t) :: strideB - real(c_double),target,dimension(..) :: CP - integer(c_int) :: ldc - integer(c_int64_t) :: strideC - integer(c_int) :: batchCount + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb ! - hipblasDgeamStridedBatched_assumed_rank = hipblasDgeamStridedBatched_(handle,transA,transB, & - m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & - strideC,batchCount) + hipblasZtrsm_64_full_rank = hipblasZtrsm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & + c_loc(AP),lda,c_loc(BP),ldb) end function -#else - function hipblasDgeamStridedBatched_rank_0(handle,transA,transB,m,n,alpha,AP,lda,strideA,beta, & - BP,ldb,strideB,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZtrsm_64_full_rank_devptr(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeamStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsm_64_full_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int) :: m - integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target :: AP - integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_double),target :: beta - real(c_double),target :: BP - integer(c_int) :: ldb - integer(c_int64_t) :: strideB - real(c_double),target :: CP - integer(c_int) :: ldc - integer(c_int64_t) :: strideC - integer(c_int) :: batchCount + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb ! - hipblasDgeamStridedBatched_rank_0 = hipblasDgeamStridedBatched_(handle,transA,transB,m,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & - strideC,batchCount) + hipblasZtrsm_64_full_rank_devptr = hipblasZtrsm_64_(handle,side,uplo,transA,diag,m,n,alpha, & + c_loc(AP),lda,c_loc(BP),ldb) end function - function hipblasDgeamStridedBatched_rank_1(handle,transA,transB,m,n,alpha,AP,lda,strideA,beta, & - BP,ldb,strideB,CP,ldc,strideC,batchCount) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasStrsmStridedBatched_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,AP, & + lda,strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeamStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsmStridedBatched_assumed_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: m integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(:) :: AP + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - real(c_double),target :: beta - real(c_double),target,dimension(:) :: BP + real(c_float),target,dimension(..) :: BP integer(c_int) :: ldb integer(c_int64_t) :: strideB - real(c_double),target,dimension(:) :: CP - integer(c_int) :: ldc - integer(c_int64_t) :: strideC integer(c_int) :: batchCount ! - hipblasDgeamStridedBatched_rank_1 = hipblasDgeamStridedBatched_(handle,transA,transB,m,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & - strideC,batchCount) + hipblasStrsmStridedBatched_assumed_rank = hipblasStrsmStridedBatched_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function - function hipblasDgeamStridedBatched_full_rank(handle,transA,transB,m,n,alpha,AP,lda,strideA, & - beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasStrsmStridedBatched_assumed_rank_devptr(handle,side,uplo,transA,diag,m,n, & + alpha,AP,lda,strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeamStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsmStridedBatched_assumed_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: m integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(:,:) :: AP + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - real(c_double),target :: beta - real(c_double),target,dimension(:,:) :: BP + real(c_float),target,dimension(..) :: BP integer(c_int) :: ldb integer(c_int64_t) :: strideB - real(c_double),target,dimension(:,:) :: CP - integer(c_int) :: ldc - integer(c_int64_t) :: strideC integer(c_int) :: batchCount ! - hipblasDgeamStridedBatched_full_rank = hipblasDgeamStridedBatched_(handle,transA,transB,m,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & - strideC,batchCount) + hipblasStrsmStridedBatched_assumed_rank_devptr = hipblasStrsmStridedBatched_(handle,side, & + uplo,transA,diag,m,n,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCgeamStridedBatched_assumed_rank(handle,transA,transB,m,n,alpha,AP,lda, & - strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) - use iso_c_binding +#else + function hipblasStrsmStridedBatched_rank_0(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeamStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsmStridedBatched_rank_0 type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: m integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: AP + real(c_float),target :: alpha + real(c_float),target :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(..) :: BP + real(c_float),target :: BP integer(c_int) :: ldb integer(c_int64_t) :: strideB - complex(c_float_complex),target,dimension(..) :: CP - integer(c_int) :: ldc - integer(c_int64_t) :: strideC integer(c_int) :: batchCount ! - hipblasCgeamStridedBatched_assumed_rank = hipblasCgeamStridedBatched_(handle,transA,transB, & - m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & - strideC,batchCount) + hipblasStrsmStridedBatched_rank_0 = hipblasStrsmStridedBatched_(handle,side,uplo,transA, & + diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function -#else - function hipblasCgeamStridedBatched_rank_0(handle,transA,transB,m,n,alpha,AP,lda,strideA,beta, & - BP,ldb,strideB,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasStrsmStridedBatched_rank_0_devptr(handle,side,uplo,transA,diag,m,n,alpha,AP, & + lda,strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeamStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsmStridedBatched_rank_0_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: m integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: AP + type(c_ptr),value :: alpha + real(c_float),target :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target :: beta - complex(c_float_complex),target :: BP + real(c_float),target :: BP integer(c_int) :: ldb integer(c_int64_t) :: strideB - complex(c_float_complex),target :: CP - integer(c_int) :: ldc - integer(c_int64_t) :: strideC integer(c_int) :: batchCount ! - hipblasCgeamStridedBatched_rank_0 = hipblasCgeamStridedBatched_(handle,transA,transB,m,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & - strideC,batchCount) + hipblasStrsmStridedBatched_rank_0_devptr = hipblasStrsmStridedBatched_(handle,side,uplo, & + transA,diag,m,n,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function - function hipblasCgeamStridedBatched_rank_1(handle,transA,transB,m,n,alpha,AP,lda,strideA,beta, & - BP,ldb,strideB,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasStrsmStridedBatched_rank_1(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeamStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsmStridedBatched_rank_1 type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: m integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: AP + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:) :: BP + real(c_float),target,dimension(:) :: BP integer(c_int) :: ldb integer(c_int64_t) :: strideB - complex(c_float_complex),target,dimension(:) :: CP - integer(c_int) :: ldc - integer(c_int64_t) :: strideC integer(c_int) :: batchCount ! - hipblasCgeamStridedBatched_rank_1 = hipblasCgeamStridedBatched_(handle,transA,transB,m,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & - strideC,batchCount) + hipblasStrsmStridedBatched_rank_1 = hipblasStrsmStridedBatched_(handle,side,uplo,transA, & + diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function - function hipblasCgeamStridedBatched_full_rank(handle,transA,transB,m,n,alpha,AP,lda,strideA, & - beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasStrsmStridedBatched_rank_1_devptr(handle,side,uplo,transA,diag,m,n,alpha,AP, & + lda,strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeamStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsmStridedBatched_rank_1_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: m integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:,:) :: AP + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:,:) :: BP + real(c_float),target,dimension(:) :: BP integer(c_int) :: ldb integer(c_int64_t) :: strideB - complex(c_float_complex),target,dimension(:,:) :: CP - integer(c_int) :: ldc - integer(c_int64_t) :: strideC integer(c_int) :: batchCount ! - hipblasCgeamStridedBatched_full_rank = hipblasCgeamStridedBatched_(handle,transA,transB,m,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & - strideC,batchCount) + hipblasStrsmStridedBatched_rank_1_devptr = hipblasStrsmStridedBatched_(handle,side,uplo, & + transA,diag,m,n,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZgeamStridedBatched_assumed_rank(handle,transA,transB,m,n,alpha,AP,lda, & - strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasStrsmStridedBatched_full_rank(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeamStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsmStridedBatched_full_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: m integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: AP + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(..) :: BP + real(c_float),target,dimension(:,:) :: BP integer(c_int) :: ldb integer(c_int64_t) :: strideB - complex(c_double_complex),target,dimension(..) :: CP - integer(c_int) :: ldc - integer(c_int64_t) :: strideC integer(c_int) :: batchCount ! - hipblasZgeamStridedBatched_assumed_rank = hipblasZgeamStridedBatched_(handle,transA,transB, & - m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & - strideC,batchCount) + hipblasStrsmStridedBatched_full_rank = hipblasStrsmStridedBatched_(handle,side,uplo,transA, & + diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function -#else - function hipblasZgeamStridedBatched_rank_0(handle,transA,transB,m,n,alpha,AP,lda,strideA,beta, & - BP,ldb,strideB,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasStrsmStridedBatched_full_rank_devptr(handle,side,uplo,transA,diag,m,n,alpha, & + AP,lda,strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeamStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsmStridedBatched_full_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: m integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: AP + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:) :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target :: beta - complex(c_double_complex),target :: BP + real(c_float),target,dimension(:,:) :: BP integer(c_int) :: ldb integer(c_int64_t) :: strideB - complex(c_double_complex),target :: CP - integer(c_int) :: ldc - integer(c_int64_t) :: strideC integer(c_int) :: batchCount ! - hipblasZgeamStridedBatched_rank_0 = hipblasZgeamStridedBatched_(handle,transA,transB,m,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & - strideC,batchCount) + hipblasStrsmStridedBatched_full_rank_devptr = hipblasStrsmStridedBatched_(handle,side,uplo, & + transA,diag,m,n,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function - function hipblasZgeamStridedBatched_rank_1(handle,transA,transB,m,n,alpha,AP,lda,strideA,beta, & - BP,ldb,strideB,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasStrsmStridedBatched_strided_rank(handle,side,uplo,transA,diag,m,n,alpha,AP, & + lda,strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeamStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsmStridedBatched_strided_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: m integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: AP + real(c_float),target :: alpha + real(c_float),target,dimension(:,:,:) :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:) :: BP + real(c_float),target,dimension(:,:,:) :: BP integer(c_int) :: ldb integer(c_int64_t) :: strideB - complex(c_double_complex),target,dimension(:) :: CP - integer(c_int) :: ldc - integer(c_int64_t) :: strideC integer(c_int) :: batchCount ! - hipblasZgeamStridedBatched_rank_1 = hipblasZgeamStridedBatched_(handle,transA,transB,m,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & - strideC,batchCount) + hipblasStrsmStridedBatched_strided_rank = hipblasStrsmStridedBatched_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function - function hipblasZgeamStridedBatched_full_rank(handle,transA,transB,m,n,alpha,AP,lda,strideA, & - beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasStrsmStridedBatched_strided_rank_devptr(handle,side,uplo,transA,diag,m,n, & + alpha,AP,lda,strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeamStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsmStridedBatched_strided_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: m integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:,:) :: AP + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:,:) :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:,:) :: BP + real(c_float),target,dimension(:,:,:) :: BP integer(c_int) :: ldb integer(c_int64_t) :: strideB - complex(c_double_complex),target,dimension(:,:) :: CP - integer(c_int) :: ldc - integer(c_int64_t) :: strideC integer(c_int) :: batchCount ! - hipblasZgeamStridedBatched_full_rank = hipblasZgeamStridedBatched_(handle,transA,transB,m,n, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & - strideC,batchCount) - end function - -#endif -#ifdef USE_ASSUMED_RANK - function hipblasSgeamStridedBatched_64_assumed_rank(handle,transA,transB,m,n,alpha,AP,lda, & - strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeamStridedBatched_64_assumed_rank - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int64_t) :: m - integer(c_int64_t) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(..) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - real(c_float),target :: beta - real(c_float),target,dimension(..) :: BP - integer(c_int64_t) :: ldb - integer(c_int64_t) :: strideB - real(c_float),target,dimension(..) :: CP - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount - ! - hipblasSgeamStridedBatched_64_assumed_rank = hipblasSgeamStridedBatched_64_(handle,transA, & - transB,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP), & - ldc,strideC,batchCount) - end function - -#else - function hipblasSgeamStridedBatched_64_rank_0(handle,transA,transB,m,n,alpha,AP,lda,strideA, & - beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeamStridedBatched_64_rank_0 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int64_t) :: m - integer(c_int64_t) :: n - real(c_float),target :: alpha - real(c_float),target :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - real(c_float),target :: beta - real(c_float),target :: BP - integer(c_int64_t) :: ldb - integer(c_int64_t) :: strideB - real(c_float),target :: CP - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount - ! - hipblasSgeamStridedBatched_64_rank_0 = hipblasSgeamStridedBatched_64_(handle,transA,transB, & - m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & - strideC,batchCount) - end function - - function hipblasSgeamStridedBatched_64_rank_1(handle,transA,transB,m,n,alpha,AP,lda,strideA, & - beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeamStridedBatched_64_rank_1 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int64_t) :: m - integer(c_int64_t) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - real(c_float),target :: beta - real(c_float),target,dimension(:) :: BP - integer(c_int64_t) :: ldb - integer(c_int64_t) :: strideB - real(c_float),target,dimension(:) :: CP - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount - ! - hipblasSgeamStridedBatched_64_rank_1 = hipblasSgeamStridedBatched_64_(handle,transA,transB, & - m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & - strideC,batchCount) - end function - - function hipblasSgeamStridedBatched_64_full_rank(handle,transA,transB,m,n,alpha,AP,lda, & - strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeamStridedBatched_64_full_rank - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int64_t) :: m - integer(c_int64_t) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - real(c_float),target :: beta - real(c_float),target,dimension(:,:) :: BP - integer(c_int64_t) :: ldb - integer(c_int64_t) :: strideB - real(c_float),target,dimension(:,:) :: CP - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount - ! - hipblasSgeamStridedBatched_64_full_rank = hipblasSgeamStridedBatched_64_(handle,transA, & - transB,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP), & - ldc,strideC,batchCount) - end function - -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDgeamStridedBatched_64_assumed_rank(handle,transA,transB,m,n,alpha,AP,lda, & - strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeamStridedBatched_64_assumed_rank - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int64_t) :: m - integer(c_int64_t) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(..) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - real(c_double),target :: beta - real(c_double),target,dimension(..) :: BP - integer(c_int64_t) :: ldb - integer(c_int64_t) :: strideB - real(c_double),target,dimension(..) :: CP - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount - ! - hipblasDgeamStridedBatched_64_assumed_rank = hipblasDgeamStridedBatched_64_(handle,transA, & - transB,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP), & - ldc,strideC,batchCount) - end function - -#else - function hipblasDgeamStridedBatched_64_rank_0(handle,transA,transB,m,n,alpha,AP,lda,strideA, & - beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeamStridedBatched_64_rank_0 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int64_t) :: m - integer(c_int64_t) :: n - real(c_double),target :: alpha - real(c_double),target :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - real(c_double),target :: beta - real(c_double),target :: BP - integer(c_int64_t) :: ldb - integer(c_int64_t) :: strideB - real(c_double),target :: CP - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount - ! - hipblasDgeamStridedBatched_64_rank_0 = hipblasDgeamStridedBatched_64_(handle,transA,transB, & - m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & - strideC,batchCount) - end function - - function hipblasDgeamStridedBatched_64_rank_1(handle,transA,transB,m,n,alpha,AP,lda,strideA, & - beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeamStridedBatched_64_rank_1 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int64_t) :: m - integer(c_int64_t) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - real(c_double),target :: beta - real(c_double),target,dimension(:) :: BP - integer(c_int64_t) :: ldb - integer(c_int64_t) :: strideB - real(c_double),target,dimension(:) :: CP - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount - ! - hipblasDgeamStridedBatched_64_rank_1 = hipblasDgeamStridedBatched_64_(handle,transA,transB, & - m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & - strideC,batchCount) - end function - - function hipblasDgeamStridedBatched_64_full_rank(handle,transA,transB,m,n,alpha,AP,lda, & - strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeamStridedBatched_64_full_rank - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int64_t) :: m - integer(c_int64_t) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - real(c_double),target :: beta - real(c_double),target,dimension(:,:) :: BP - integer(c_int64_t) :: ldb - integer(c_int64_t) :: strideB - real(c_double),target,dimension(:,:) :: CP - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount - ! - hipblasDgeamStridedBatched_64_full_rank = hipblasDgeamStridedBatched_64_(handle,transA, & - transB,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP), & - ldc,strideC,batchCount) - end function - -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCgeamStridedBatched_64_assumed_rank(handle,transA,transB,m,n,alpha,AP,lda, & - strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeamStridedBatched_64_assumed_rank - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int64_t) :: m - integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(..) :: BP - integer(c_int64_t) :: ldb - integer(c_int64_t) :: strideB - complex(c_float_complex),target,dimension(..) :: CP - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount - ! - hipblasCgeamStridedBatched_64_assumed_rank = hipblasCgeamStridedBatched_64_(handle,transA, & - transB,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP), & - ldc,strideC,batchCount) - end function - -#else - function hipblasCgeamStridedBatched_64_rank_0(handle,transA,transB,m,n,alpha,AP,lda,strideA, & - beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeamStridedBatched_64_rank_0 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int64_t) :: m - integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - complex(c_float_complex),target :: beta - complex(c_float_complex),target :: BP - integer(c_int64_t) :: ldb - integer(c_int64_t) :: strideB - complex(c_float_complex),target :: CP - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount - ! - hipblasCgeamStridedBatched_64_rank_0 = hipblasCgeamStridedBatched_64_(handle,transA,transB, & - m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & - strideC,batchCount) + hipblasStrsmStridedBatched_strided_rank_devptr = hipblasStrsmStridedBatched_(handle,side, & + uplo,transA,diag,m,n,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function - function hipblasCgeamStridedBatched_64_rank_1(handle,transA,transB,m,n,alpha,AP,lda,strideA, & - beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDtrsmStridedBatched_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,AP, & + lda,strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeamStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsmStridedBatched_assumed_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int64_t) :: m - integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: AP - integer(c_int64_t) :: lda + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:) :: BP - integer(c_int64_t) :: ldb + real(c_double),target,dimension(..) :: BP + integer(c_int) :: ldb integer(c_int64_t) :: strideB - complex(c_float_complex),target,dimension(:) :: CP - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + integer(c_int) :: batchCount ! - hipblasCgeamStridedBatched_64_rank_1 = hipblasCgeamStridedBatched_64_(handle,transA,transB, & - m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & - strideC,batchCount) + hipblasDtrsmStridedBatched_assumed_rank = hipblasDtrsmStridedBatched_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function - function hipblasCgeamStridedBatched_64_full_rank(handle,transA,transB,m,n,alpha,AP,lda, & - strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasDtrsmStridedBatched_assumed_rank_devptr(handle,side,uplo,transA,diag,m,n, & + alpha,AP,lda,strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeamStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsmStridedBatched_assumed_rank_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int64_t) :: m - integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:,:) :: BP - integer(c_int64_t) :: ldb + real(c_double),target,dimension(..) :: BP + integer(c_int) :: ldb integer(c_int64_t) :: strideB - complex(c_float_complex),target,dimension(:,:) :: CP - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + integer(c_int) :: batchCount ! - hipblasCgeamStridedBatched_64_full_rank = hipblasCgeamStridedBatched_64_(handle,transA, & - transB,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP), & - ldc,strideC,batchCount) + hipblasDtrsmStridedBatched_assumed_rank_devptr = hipblasDtrsmStridedBatched_(handle,side, & + uplo,transA,diag,m,n,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZgeamStridedBatched_64_assumed_rank(handle,transA,transB,m,n,alpha,AP,lda, & - strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) - use iso_c_binding +#else + function hipblasDtrsmStridedBatched_rank_0(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeamStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsmStridedBatched_rank_0 type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int64_t) :: m - integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: AP - integer(c_int64_t) :: lda + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(..) :: BP - integer(c_int64_t) :: ldb + real(c_double),target :: BP + integer(c_int) :: ldb integer(c_int64_t) :: strideB - complex(c_double_complex),target,dimension(..) :: CP - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + integer(c_int) :: batchCount ! - hipblasZgeamStridedBatched_64_assumed_rank = hipblasZgeamStridedBatched_64_(handle,transA, & - transB,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP), & - ldc,strideC,batchCount) + hipblasDtrsmStridedBatched_rank_0 = hipblasDtrsmStridedBatched_(handle,side,uplo,transA, & + diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function -#else - function hipblasZgeamStridedBatched_64_rank_0(handle,transA,transB,m,n,alpha,AP,lda,strideA, & - beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasDtrsmStridedBatched_rank_0_devptr(handle,side,uplo,transA,diag,m,n,alpha,AP, & + lda,strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeamStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsmStridedBatched_rank_0_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int64_t) :: m - integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: AP - integer(c_int64_t) :: lda + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target :: AP + integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target :: beta - complex(c_double_complex),target :: BP - integer(c_int64_t) :: ldb + real(c_double),target :: BP + integer(c_int) :: ldb integer(c_int64_t) :: strideB - complex(c_double_complex),target :: CP - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + integer(c_int) :: batchCount ! - hipblasZgeamStridedBatched_64_rank_0 = hipblasZgeamStridedBatched_64_(handle,transA,transB, & - m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & - strideC,batchCount) + hipblasDtrsmStridedBatched_rank_0_devptr = hipblasDtrsmStridedBatched_(handle,side,uplo, & + transA,diag,m,n,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function - function hipblasZgeamStridedBatched_64_rank_1(handle,transA,transB,m,n,alpha,AP,lda,strideA, & - beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasDtrsmStridedBatched_rank_1(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeamStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsmStridedBatched_rank_1 type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int64_t) :: m - integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: AP - integer(c_int64_t) :: lda + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:) :: BP - integer(c_int64_t) :: ldb + real(c_double),target,dimension(:) :: BP + integer(c_int) :: ldb integer(c_int64_t) :: strideB - complex(c_double_complex),target,dimension(:) :: CP - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + integer(c_int) :: batchCount ! - hipblasZgeamStridedBatched_64_rank_1 = hipblasZgeamStridedBatched_64_(handle,transA,transB, & - m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP),ldc, & - strideC,batchCount) + hipblasDtrsmStridedBatched_rank_1 = hipblasDtrsmStridedBatched_(handle,side,uplo,transA, & + diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function - function hipblasZgeamStridedBatched_64_full_rank(handle,transA,transB,m,n,alpha,AP,lda, & - strideA,beta,BP,ldb,strideB,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasDtrsmStridedBatched_rank_1_devptr(handle,side,uplo,transA,diag,m,n,alpha,AP, & + lda,strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeamStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsmStridedBatched_rank_1_devptr type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_OP_N)) :: transB - integer(c_int64_t) :: m - integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:,:) :: BP - integer(c_int64_t) :: ldb + real(c_double),target,dimension(:) :: BP + integer(c_int) :: ldb integer(c_int64_t) :: strideB - complex(c_double_complex),target,dimension(:,:) :: CP - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + integer(c_int) :: batchCount ! - hipblasZgeamStridedBatched_64_full_rank = hipblasZgeamStridedBatched_64_(handle,transA, & - transB,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(beta),c_loc(BP),ldb,strideB,c_loc(CP), & - ldc,strideC,batchCount) + hipblasDtrsmStridedBatched_rank_1_devptr = hipblasDtrsmStridedBatched_(handle,side,uplo, & + transA,diag,m,n,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasChemm_assumed_rank(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasDtrsmStridedBatched_full_rank(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemm_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsmStridedBatched_full_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: AP + real(c_double),target :: alpha + real(c_double),target,dimension(:,:) :: AP integer(c_int) :: lda - complex(c_float_complex),target,dimension(..) :: BP + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:) :: BP integer(c_int) :: ldb - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(..) :: CP - integer(c_int) :: ldc + integer(c_int64_t) :: strideB + integer(c_int) :: batchCount ! - hipblasChemm_assumed_rank = hipblasChemm_(handle,side,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasDtrsmStridedBatched_full_rank = hipblasDtrsmStridedBatched_(handle,side,uplo,transA, & + diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function -#else - function hipblasChemm_rank_0(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasDtrsmStridedBatched_full_rank_devptr(handle,side,uplo,transA,diag,m,n,alpha, & + AP,lda,strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemm_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsmStridedBatched_full_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: AP + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:) :: AP integer(c_int) :: lda - complex(c_float_complex),target :: BP + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:) :: BP integer(c_int) :: ldb - complex(c_float_complex),target :: beta - complex(c_float_complex),target :: CP - integer(c_int) :: ldc + integer(c_int64_t) :: strideB + integer(c_int) :: batchCount ! - hipblasChemm_rank_0 = hipblasChemm_(handle,side,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasDtrsmStridedBatched_full_rank_devptr = hipblasDtrsmStridedBatched_(handle,side,uplo, & + transA,diag,m,n,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function - function hipblasChemm_rank_1(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasDtrsmStridedBatched_strided_rank(handle,side,uplo,transA,diag,m,n,alpha,AP, & + lda,strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemm_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsmStridedBatched_strided_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: AP + real(c_double),target :: alpha + real(c_double),target,dimension(:,:,:) :: AP integer(c_int) :: lda - complex(c_float_complex),target,dimension(:) :: BP + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:,:) :: BP integer(c_int) :: ldb - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:) :: CP - integer(c_int) :: ldc + integer(c_int64_t) :: strideB + integer(c_int) :: batchCount ! - hipblasChemm_rank_1 = hipblasChemm_(handle,side,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasDtrsmStridedBatched_strided_rank = hipblasDtrsmStridedBatched_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function - function hipblasChemm_full_rank(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasDtrsmStridedBatched_strided_rank_devptr(handle,side,uplo,transA,diag,m,n, & + alpha,AP,lda,strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemm_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsmStridedBatched_strided_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:,:) :: AP + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:,:) :: AP integer(c_int) :: lda - complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:,:) :: BP integer(c_int) :: ldb - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:,:) :: CP - integer(c_int) :: ldc + integer(c_int64_t) :: strideB + integer(c_int) :: batchCount ! - hipblasChemm_full_rank = hipblasChemm_(handle,side,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasDtrsmStridedBatched_strided_rank_devptr = hipblasDtrsmStridedBatched_(handle,side, & + uplo,transA,diag,m,n,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasZhemm_assumed_rank(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasCtrsmStridedBatched_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,AP, & + lda,strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemm_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsmStridedBatched_assumed_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: AP + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(..) :: AP integer(c_int) :: lda - complex(c_double_complex),target,dimension(..) :: BP + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: BP integer(c_int) :: ldb - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(..) :: CP - integer(c_int) :: ldc + integer(c_int64_t) :: strideB + integer(c_int) :: batchCount ! - hipblasZhemm_assumed_rank = hipblasZhemm_(handle,side,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasCtrsmStridedBatched_assumed_rank = hipblasCtrsmStridedBatched_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function -#else - function hipblasZhemm_rank_0(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasCtrsmStridedBatched_assumed_rank_devptr(handle,side,uplo,transA,diag,m,n, & + alpha,AP,lda,strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemm_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsmStridedBatched_assumed_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: AP + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: AP integer(c_int) :: lda - complex(c_double_complex),target :: BP + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: BP integer(c_int) :: ldb - complex(c_double_complex),target :: beta - complex(c_double_complex),target :: CP - integer(c_int) :: ldc + integer(c_int64_t) :: strideB + integer(c_int) :: batchCount ! - hipblasZhemm_rank_0 = hipblasZhemm_(handle,side,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasCtrsmStridedBatched_assumed_rank_devptr = hipblasCtrsmStridedBatched_(handle,side, & + uplo,transA,diag,m,n,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function - function hipblasZhemm_rank_1(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding +#else + function hipblasCtrsmStridedBatched_rank_0(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemm_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsmStridedBatched_rank_0 type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: AP + complex(c_float_complex),target :: alpha + complex(c_float_complex),target :: AP integer(c_int) :: lda - complex(c_double_complex),target,dimension(:) :: BP + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: BP integer(c_int) :: ldb - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:) :: CP - integer(c_int) :: ldc + integer(c_int64_t) :: strideB + integer(c_int) :: batchCount ! - hipblasZhemm_rank_1 = hipblasZhemm_(handle,side,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasCtrsmStridedBatched_rank_0 = hipblasCtrsmStridedBatched_(handle,side,uplo,transA, & + diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function - function hipblasZhemm_full_rank(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasCtrsmStridedBatched_rank_0_devptr(handle,side,uplo,transA,diag,m,n,alpha,AP, & + lda,strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemm_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsmStridedBatched_rank_0_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:,:) :: AP + type(c_ptr),value :: alpha + complex(c_float_complex),target :: AP integer(c_int) :: lda - complex(c_double_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: BP integer(c_int) :: ldb - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:,:) :: CP - integer(c_int) :: ldc + integer(c_int64_t) :: strideB + integer(c_int) :: batchCount ! - hipblasZhemm_full_rank = hipblasZhemm_(handle,side,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasCtrsmStridedBatched_rank_0_devptr = hipblasCtrsmStridedBatched_(handle,side,uplo, & + transA,diag,m,n,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasChemm_64_assumed_rank(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasCtrsmStridedBatched_rank_1(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemm_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsmStridedBatched_rank_1 type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - integer(c_int64_t) :: k + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: AP - integer(c_int64_t) :: lda - complex(c_float_complex),target,dimension(..) :: BP - integer(c_int64_t) :: ldb - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(..) :: CP - integer(c_int64_t) :: ldc + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int) :: batchCount ! - hipblasChemm_64_assumed_rank = hipblasChemm_64_(handle,side,uplo,n,k,c_loc(alpha),c_loc(AP), & - lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasCtrsmStridedBatched_rank_1 = hipblasCtrsmStridedBatched_(handle,side,uplo,transA, & + diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function -#else - function hipblasChemm_64_rank_0(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasCtrsmStridedBatched_rank_1_devptr(handle,side,uplo,transA,diag,m,n,alpha,AP, & + lda,strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemm_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsmStridedBatched_rank_1_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: AP - integer(c_int64_t) :: lda - complex(c_float_complex),target :: BP - integer(c_int64_t) :: ldb - complex(c_float_complex),target :: beta - complex(c_float_complex),target :: CP - integer(c_int64_t) :: ldc + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int) :: batchCount ! - hipblasChemm_64_rank_0 = hipblasChemm_64_(handle,side,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasCtrsmStridedBatched_rank_1_devptr = hipblasCtrsmStridedBatched_(handle,side,uplo, & + transA,diag,m,n,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function - function hipblasChemm_64_rank_1(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasCtrsmStridedBatched_full_rank(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemm_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsmStridedBatched_full_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - integer(c_int64_t) :: k + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: AP - integer(c_int64_t) :: lda - complex(c_float_complex),target,dimension(:) :: BP - integer(c_int64_t) :: ldb - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:) :: CP - integer(c_int64_t) :: ldc + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int) :: batchCount ! - hipblasChemm_64_rank_1 = hipblasChemm_64_(handle,side,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasCtrsmStridedBatched_full_rank = hipblasCtrsmStridedBatched_(handle,side,uplo,transA, & + diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function - function hipblasChemm_64_full_rank(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasCtrsmStridedBatched_full_rank_devptr(handle,side,uplo,transA,diag,m,n,alpha, & + AP,lda,strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemm_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsmStridedBatched_full_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_float_complex),target :: alpha + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha complex(c_float_complex),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda + integer(c_int) :: lda + integer(c_int64_t) :: strideA complex(c_float_complex),target,dimension(:,:) :: BP - integer(c_int64_t) :: ldb - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:,:) :: CP - integer(c_int64_t) :: ldc + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int) :: batchCount ! - hipblasChemm_64_full_rank = hipblasChemm_64_(handle,side,uplo,n,k,c_loc(alpha),c_loc(AP), & - lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasCtrsmStridedBatched_full_rank_devptr = hipblasCtrsmStridedBatched_(handle,side,uplo, & + transA,diag,m,n,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZhemm_64_assumed_rank(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasCtrsmStridedBatched_strided_rank(handle,side,uplo,transA,diag,m,n,alpha,AP, & + lda,strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemm_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsmStridedBatched_strided_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: AP - integer(c_int64_t) :: lda - complex(c_double_complex),target,dimension(..) :: BP - integer(c_int64_t) :: ldb - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(..) :: CP - integer(c_int64_t) :: ldc + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int) :: batchCount ! - hipblasZhemm_64_assumed_rank = hipblasZhemm_64_(handle,side,uplo,n,k,c_loc(alpha),c_loc(AP), & - lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasCtrsmStridedBatched_strided_rank = hipblasCtrsmStridedBatched_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function -#else - function hipblasZhemm_64_rank_0(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasCtrsmStridedBatched_strided_rank_devptr(handle,side,uplo,transA,diag,m,n, & + alpha,AP,lda,strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemm_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsmStridedBatched_strided_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: AP - integer(c_int64_t) :: lda - complex(c_double_complex),target :: BP - integer(c_int64_t) :: ldb - complex(c_double_complex),target :: beta - complex(c_double_complex),target :: CP - integer(c_int64_t) :: ldc + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:,:) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int) :: batchCount ! - hipblasZhemm_64_rank_0 = hipblasZhemm_64_(handle,side,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasCtrsmStridedBatched_strided_rank_devptr = hipblasCtrsmStridedBatched_(handle,side, & + uplo,transA,diag,m,n,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function - function hipblasZhemm_64_rank_1(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZtrsmStridedBatched_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,AP, & + lda,strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemm_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsmStridedBatched_assumed_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - integer(c_int64_t) :: k + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: AP - integer(c_int64_t) :: lda - complex(c_double_complex),target,dimension(:) :: BP - integer(c_int64_t) :: ldb - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:) :: CP - integer(c_int64_t) :: ldc + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int) :: batchCount ! - hipblasZhemm_64_rank_1 = hipblasZhemm_64_(handle,side,uplo,n,k,c_loc(alpha),c_loc(AP),lda, & - c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasZtrsmStridedBatched_assumed_rank = hipblasZtrsmStridedBatched_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function - function hipblasZhemm_64_full_rank(handle,side,uplo,n,k,alpha,AP,lda,BP,ldb,beta,CP,ldc) - use iso_c_binding + function hipblasZtrsmStridedBatched_assumed_rank_devptr(handle,side,uplo,transA,diag,m,n, & + alpha,AP,lda,strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemm_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsmStridedBatched_assumed_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - complex(c_double_complex),target,dimension(:,:) :: BP - integer(c_int64_t) :: ldb - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:,:) :: CP - integer(c_int64_t) :: ldc + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: BP + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int) :: batchCount ! - hipblasZhemm_64_full_rank = hipblasZhemm_64_(handle,side,uplo,n,k,c_loc(alpha),c_loc(AP), & - lda,c_loc(BP),ldb,c_loc(beta),c_loc(CP),ldc) + hipblasZtrsmStridedBatched_assumed_rank_devptr = hipblasZtrsmStridedBatched_(handle,side, & + uplo,transA,diag,m,n,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasChemmStridedBatched_assumed_rank(handle,side,uplo,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding +#else + function hipblasZtrsmStridedBatched_rank_0(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemmStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsmStridedBatched_rank_0 type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: AP + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(..) :: BP + complex(c_double_complex),target :: BP integer(c_int) :: ldb integer(c_int64_t) :: strideB - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(..) :: CP - integer(c_int) :: ldc - integer(c_int64_t) :: strideC integer(c_int) :: batchCount ! - hipblasChemmStridedBatched_assumed_rank = hipblasChemmStridedBatched_(handle,side,uplo,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasZtrsmStridedBatched_rank_0 = hipblasZtrsmStridedBatched_(handle,side,uplo,transA, & + diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function -#else - function hipblasChemmStridedBatched_rank_0(handle,side,uplo,n,k,alpha,AP,lda,strideA,BP,ldb, & - strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZtrsmStridedBatched_rank_0_devptr(handle,side,uplo,transA,diag,m,n,alpha,AP, & + lda,strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemmStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsmStridedBatched_rank_0_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: AP + type(c_ptr),value :: alpha + complex(c_double_complex),target :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target :: BP + complex(c_double_complex),target :: BP integer(c_int) :: ldb integer(c_int64_t) :: strideB - complex(c_float_complex),target :: beta - complex(c_float_complex),target :: CP - integer(c_int) :: ldc - integer(c_int64_t) :: strideC integer(c_int) :: batchCount ! - hipblasChemmStridedBatched_rank_0 = hipblasChemmStridedBatched_(handle,side,uplo,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasZtrsmStridedBatched_rank_0_devptr = hipblasZtrsmStridedBatched_(handle,side,uplo, & + transA,diag,m,n,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function - function hipblasChemmStridedBatched_rank_1(handle,side,uplo,n,k,alpha,AP,lda,strideA,BP,ldb, & - strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZtrsmStridedBatched_rank_1(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemmStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsmStridedBatched_rank_1 type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: AP + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:) :: BP + complex(c_double_complex),target,dimension(:) :: BP integer(c_int) :: ldb integer(c_int64_t) :: strideB - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:) :: CP - integer(c_int) :: ldc - integer(c_int64_t) :: strideC integer(c_int) :: batchCount ! - hipblasChemmStridedBatched_rank_1 = hipblasChemmStridedBatched_(handle,side,uplo,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasZtrsmStridedBatched_rank_1 = hipblasZtrsmStridedBatched_(handle,side,uplo,transA, & + diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function - function hipblasChemmStridedBatched_full_rank(handle,side,uplo,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZtrsmStridedBatched_rank_1_devptr(handle,side,uplo,transA,diag,m,n,alpha,AP, & + lda,strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemmStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsmStridedBatched_rank_1_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:,:) :: AP + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:,:) :: BP + complex(c_double_complex),target,dimension(:) :: BP integer(c_int) :: ldb integer(c_int64_t) :: strideB - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:,:) :: CP - integer(c_int) :: ldc - integer(c_int64_t) :: strideC integer(c_int) :: batchCount ! - hipblasChemmStridedBatched_full_rank = hipblasChemmStridedBatched_(handle,side,uplo,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasZtrsmStridedBatched_rank_1_devptr = hipblasZtrsmStridedBatched_(handle,side,uplo, & + transA,diag,m,n,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZhemmStridedBatched_assumed_rank(handle,side,uplo,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZtrsmStridedBatched_full_rank(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemmStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsmStridedBatched_full_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: AP + complex(c_double_complex),target,dimension(:,:) :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(..) :: BP + complex(c_double_complex),target,dimension(:,:) :: BP integer(c_int) :: ldb integer(c_int64_t) :: strideB - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(..) :: CP - integer(c_int) :: ldc - integer(c_int64_t) :: strideC integer(c_int) :: batchCount ! - hipblasZhemmStridedBatched_assumed_rank = hipblasZhemmStridedBatched_(handle,side,uplo,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasZtrsmStridedBatched_full_rank = hipblasZtrsmStridedBatched_(handle,side,uplo,transA, & + diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function -#else - function hipblasZhemmStridedBatched_rank_0(handle,side,uplo,n,k,alpha,AP,lda,strideA,BP,ldb, & - strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZtrsmStridedBatched_full_rank_devptr(handle,side,uplo,transA,diag,m,n,alpha, & + AP,lda,strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemmStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsmStridedBatched_full_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: AP + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target :: BP + complex(c_double_complex),target,dimension(:,:) :: BP integer(c_int) :: ldb integer(c_int64_t) :: strideB - complex(c_double_complex),target :: beta - complex(c_double_complex),target :: CP - integer(c_int) :: ldc - integer(c_int64_t) :: strideC integer(c_int) :: batchCount ! - hipblasZhemmStridedBatched_rank_0 = hipblasZhemmStridedBatched_(handle,side,uplo,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasZtrsmStridedBatched_full_rank_devptr = hipblasZtrsmStridedBatched_(handle,side,uplo, & + transA,diag,m,n,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function - function hipblasZhemmStridedBatched_rank_1(handle,side,uplo,n,k,alpha,AP,lda,strideA,BP,ldb, & - strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZtrsmStridedBatched_strided_rank(handle,side,uplo,transA,diag,m,n,alpha,AP, & + lda,strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemmStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsmStridedBatched_strided_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: AP + complex(c_double_complex),target,dimension(:,:,:) :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:) :: BP + complex(c_double_complex),target,dimension(:,:,:) :: BP integer(c_int) :: ldb integer(c_int64_t) :: strideB - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:) :: CP - integer(c_int) :: ldc - integer(c_int64_t) :: strideC integer(c_int) :: batchCount ! - hipblasZhemmStridedBatched_rank_1 = hipblasZhemmStridedBatched_(handle,side,uplo,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasZtrsmStridedBatched_strided_rank = hipblasZtrsmStridedBatched_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function - function hipblasZhemmStridedBatched_full_rank(handle,side,uplo,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZtrsmStridedBatched_strided_rank_devptr(handle,side,uplo,transA,diag,m,n, & + alpha,AP,lda,strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemmStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsmStridedBatched_strided_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: m integer(c_int) :: n - integer(c_int) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:,:) :: AP + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:,:) :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:,:) :: BP + complex(c_double_complex),target,dimension(:,:,:) :: BP integer(c_int) :: ldb integer(c_int64_t) :: strideB - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:,:) :: CP - integer(c_int) :: ldc - integer(c_int64_t) :: strideC integer(c_int) :: batchCount ! - hipblasZhemmStridedBatched_full_rank = hipblasZhemmStridedBatched_(handle,side,uplo,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasZtrsmStridedBatched_strided_rank_devptr = hipblasZtrsmStridedBatched_(handle,side, & + uplo,transA,diag,m,n,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasChemmStridedBatched_64_assumed_rank(handle,side,uplo,n,k,alpha,AP,lda,strideA, & - BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasStrsmStridedBatched_64_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,AP, & + lda,strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemmStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsmStridedBatched_64_assumed_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: AP + real(c_float),target :: alpha + real(c_float),target,dimension(..) :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(..) :: BP + real(c_float),target,dimension(..) :: BP integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(..) :: CP - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasChemmStridedBatched_64_assumed_rank = hipblasChemmStridedBatched_64_(handle,side, & - uplo,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & - ldc,strideC,batchCount) + hipblasStrsmStridedBatched_64_assumed_rank = hipblasStrsmStridedBatched_64_(handle,side, & + uplo,transA,diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) + end function + + function hipblasStrsmStridedBatched_64_assumed_rank_devptr(handle,side,uplo,transA,diag,m,n, & + alpha,AP,lda,strideA,BP,ldb,strideB,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsmStridedBatched_64_assumed_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + integer(c_int64_t) :: batchCount + ! + hipblasStrsmStridedBatched_64_assumed_rank_devptr = hipblasStrsmStridedBatched_64_(handle, & + side,uplo,transA,diag,m,n,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function #else - function hipblasChemmStridedBatched_64_rank_0(handle,side,uplo,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasStrsmStridedBatched_64_rank_0(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemmStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsmStridedBatched_64_rank_0 type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: AP + real(c_float),target :: alpha + real(c_float),target :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target :: BP + real(c_float),target :: BP integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - complex(c_float_complex),target :: beta - complex(c_float_complex),target :: CP - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasChemmStridedBatched_64_rank_0 = hipblasChemmStridedBatched_64_(handle,side,uplo,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasStrsmStridedBatched_64_rank_0 = hipblasStrsmStridedBatched_64_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function - function hipblasChemmStridedBatched_64_rank_1(handle,side,uplo,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasStrsmStridedBatched_64_rank_0_devptr(handle,side,uplo,transA,diag,m,n,alpha, & + AP,lda,strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemmStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsmStridedBatched_64_rank_0_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: AP + type(c_ptr),value :: alpha + real(c_float),target :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:) :: BP + real(c_float),target :: BP integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:) :: CP - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasChemmStridedBatched_64_rank_1 = hipblasChemmStridedBatched_64_(handle,side,uplo,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasStrsmStridedBatched_64_rank_0_devptr = hipblasStrsmStridedBatched_64_(handle,side, & + uplo,transA,diag,m,n,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function - function hipblasChemmStridedBatched_64_full_rank(handle,side,uplo,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasStrsmStridedBatched_64_rank_1(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasChemmStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsmStridedBatched_64_rank_1 type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:,:) :: AP + real(c_float),target :: alpha + real(c_float),target,dimension(:) :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:,:) :: BP + real(c_float),target,dimension(:) :: BP integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - complex(c_float_complex),target :: beta - complex(c_float_complex),target,dimension(:,:) :: CP - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasChemmStridedBatched_64_full_rank = hipblasChemmStridedBatched_64_(handle,side,uplo,n, & - k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasStrsmStridedBatched_64_rank_1 = hipblasStrsmStridedBatched_64_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZhemmStridedBatched_64_assumed_rank(handle,side,uplo,n,k,alpha,AP,lda,strideA, & - BP,ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasStrsmStridedBatched_64_rank_1_devptr(handle,side,uplo,transA,diag,m,n,alpha, & + AP,lda,strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemmStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsmStridedBatched_64_rank_1_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: AP + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(..) :: BP + real(c_float),target,dimension(:) :: BP integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(..) :: CP - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasZhemmStridedBatched_64_assumed_rank = hipblasZhemmStridedBatched_64_(handle,side, & - uplo,n,k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP), & - ldc,strideC,batchCount) + hipblasStrsmStridedBatched_64_rank_1_devptr = hipblasStrsmStridedBatched_64_(handle,side, & + uplo,transA,diag,m,n,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function -#else - function hipblasZhemmStridedBatched_64_rank_0(handle,side,uplo,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasStrsmStridedBatched_64_full_rank(handle,side,uplo,transA,diag,m,n,alpha,AP, & + lda,strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemmStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsmStridedBatched_64_full_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: AP + real(c_float),target :: alpha + real(c_float),target,dimension(:,:) :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target :: BP + real(c_float),target,dimension(:,:) :: BP integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - complex(c_double_complex),target :: beta - complex(c_double_complex),target :: CP - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasZhemmStridedBatched_64_rank_0 = hipblasZhemmStridedBatched_64_(handle,side,uplo,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasStrsmStridedBatched_64_full_rank = hipblasStrsmStridedBatched_64_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function - function hipblasZhemmStridedBatched_64_rank_1(handle,side,uplo,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasStrsmStridedBatched_64_full_rank_devptr(handle,side,uplo,transA,diag,m,n, & + alpha,AP,lda,strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemmStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsmStridedBatched_64_full_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: AP + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:) :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:) :: BP + real(c_float),target,dimension(:,:) :: BP integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:) :: CP - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasZhemmStridedBatched_64_rank_1 = hipblasZhemmStridedBatched_64_(handle,side,uplo,n,k, & - c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasStrsmStridedBatched_64_full_rank_devptr = hipblasStrsmStridedBatched_64_(handle,side, & + uplo,transA,diag,m,n,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function - function hipblasZhemmStridedBatched_64_full_rank(handle,side,uplo,n,k,alpha,AP,lda,strideA,BP, & - ldb,strideB,beta,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasStrsmStridedBatched_64_strided_rank(handle,side,uplo,transA,diag,m,n,alpha,AP, & + lda,strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZhemmStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsmStridedBatched_64_strided_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m integer(c_int64_t) :: n - integer(c_int64_t) :: k - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:,:) :: AP + real(c_float),target :: alpha + real(c_float),target,dimension(:,:,:) :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:,:) :: BP + real(c_float),target,dimension(:,:,:) :: BP integer(c_int64_t) :: ldb integer(c_int64_t) :: strideB - complex(c_double_complex),target :: beta - complex(c_double_complex),target,dimension(:,:) :: CP - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasZhemmStridedBatched_64_full_rank = hipblasZhemmStridedBatched_64_(handle,side,uplo,n, & - k,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,c_loc(beta),c_loc(CP),ldc, & - strideC,batchCount) + hipblasStrsmStridedBatched_64_strided_rank = hipblasStrsmStridedBatched_64_(handle,side, & + uplo,transA,diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) + end function + + function hipblasStrsmStridedBatched_64_strided_rank_devptr(handle,side,uplo,transA,diag,m,n, & + alpha,AP,lda,strideA,BP,ldb,strideB,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsmStridedBatched_64_strided_rank_devptr + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:,:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + integer(c_int64_t) :: batchCount + ! + hipblasStrsmStridedBatched_64_strided_rank_devptr = hipblasStrsmStridedBatched_64_(handle, & + side,uplo,transA,diag,m,n,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDtrsmStridedBatched_64_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,AP, & + lda,strideA,BP,ldb,strideB,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsmStridedBatched_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_OP_N)) :: transA + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + integer(c_int64_t) :: batchCount + ! + hipblasDtrsmStridedBatched_64_assumed_rank = hipblasDtrsmStridedBatched_64_(handle,side, & + uplo,transA,diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasStrmm_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) - use iso_c_binding + function hipblasDtrsmStridedBatched_64_assumed_rank_devptr(handle,side,uplo,transA,diag,m,n, & + alpha,AP,lda,strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmm_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsmStridedBatched_64_assumed_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: m - integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(..) :: A - integer(c_int) :: lda - real(c_float),target,dimension(..) :: B - integer(c_int) :: ldb - real(c_float),target,dimension(..) :: C - integer(c_int) :: ldc + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + integer(c_int64_t) :: batchCount ! - hipblasStrmm_assumed_rank = hipblasStrmm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & - c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) + hipblasDtrsmStridedBatched_64_assumed_rank_devptr = hipblasDtrsmStridedBatched_64_(handle, & + side,uplo,transA,diag,m,n,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function #else - function hipblasStrmm_rank_0(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) - use iso_c_binding + function hipblasDtrsmStridedBatched_64_rank_0(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmm_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsmStridedBatched_64_rank_0 type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: m - integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target :: A - integer(c_int) :: lda - real(c_float),target :: B - integer(c_int) :: ldb - real(c_float),target :: C - integer(c_int) :: ldc + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + integer(c_int64_t) :: batchCount ! - hipblasStrmm_rank_0 = hipblasStrmm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha),c_loc(A), & - lda,c_loc(B),ldb,c_loc(C),ldc) + hipblasDtrsmStridedBatched_64_rank_0 = hipblasDtrsmStridedBatched_64_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function - function hipblasStrmm_rank_1(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) - use iso_c_binding + function hipblasDtrsmStridedBatched_64_rank_0_devptr(handle,side,uplo,transA,diag,m,n,alpha, & + AP,lda,strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmm_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsmStridedBatched_64_rank_0_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: m - integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(:) :: A - integer(c_int) :: lda - real(c_float),target,dimension(:) :: B - integer(c_int) :: ldb - real(c_float),target,dimension(:) :: C - integer(c_int) :: ldc + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + integer(c_int64_t) :: batchCount ! - hipblasStrmm_rank_1 = hipblasStrmm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha),c_loc(A), & - lda,c_loc(B),ldb,c_loc(C),ldc) + hipblasDtrsmStridedBatched_64_rank_0_devptr = hipblasDtrsmStridedBatched_64_(handle,side, & + uplo,transA,diag,m,n,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function - function hipblasStrmm_full_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) - use iso_c_binding + function hipblasDtrsmStridedBatched_64_rank_1(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmm_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsmStridedBatched_64_rank_1 type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: m - integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(:,:) :: A - integer(c_int) :: lda - real(c_float),target,dimension(:,:) :: B - integer(c_int) :: ldb - real(c_float),target,dimension(:,:) :: C - integer(c_int) :: ldc + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + integer(c_int64_t) :: batchCount ! - hipblasStrmm_full_rank = hipblasStrmm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & - c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) + hipblasDtrsmStridedBatched_64_rank_1 = hipblasDtrsmStridedBatched_64_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDtrmm_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) - use iso_c_binding + function hipblasDtrsmStridedBatched_64_rank_1_devptr(handle,side,uplo,transA,diag,m,n,alpha, & + AP,lda,strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmm_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsmStridedBatched_64_rank_1_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: m - integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(..) :: A - integer(c_int) :: lda - real(c_double),target,dimension(..) :: B - integer(c_int) :: ldb - real(c_double),target,dimension(..) :: C - integer(c_int) :: ldc + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + integer(c_int64_t) :: batchCount ! - hipblasDtrmm_assumed_rank = hipblasDtrmm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & - c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) + hipblasDtrsmStridedBatched_64_rank_1_devptr = hipblasDtrsmStridedBatched_64_(handle,side, & + uplo,transA,diag,m,n,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function -#else - function hipblasDtrmm_rank_0(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) - use iso_c_binding + function hipblasDtrsmStridedBatched_64_full_rank(handle,side,uplo,transA,diag,m,n,alpha,AP, & + lda,strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmm_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsmStridedBatched_64_full_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: m - integer(c_int) :: n + integer(c_int64_t) :: m + integer(c_int64_t) :: n real(c_double),target :: alpha - real(c_double),target :: A - integer(c_int) :: lda - real(c_double),target :: B - integer(c_int) :: ldb - real(c_double),target :: C - integer(c_int) :: ldc + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + integer(c_int64_t) :: batchCount ! - hipblasDtrmm_rank_0 = hipblasDtrmm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha),c_loc(A), & - lda,c_loc(B),ldb,c_loc(C),ldc) + hipblasDtrsmStridedBatched_64_full_rank = hipblasDtrsmStridedBatched_64_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function - function hipblasDtrmm_rank_1(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) - use iso_c_binding + function hipblasDtrsmStridedBatched_64_full_rank_devptr(handle,side,uplo,transA,diag,m,n, & + alpha,AP,lda,strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmm_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsmStridedBatched_64_full_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: m - integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(:) :: A - integer(c_int) :: lda - real(c_double),target,dimension(:) :: B - integer(c_int) :: ldb - real(c_double),target,dimension(:) :: C - integer(c_int) :: ldc + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + integer(c_int64_t) :: batchCount ! - hipblasDtrmm_rank_1 = hipblasDtrmm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha),c_loc(A), & - lda,c_loc(B),ldb,c_loc(C),ldc) + hipblasDtrsmStridedBatched_64_full_rank_devptr = hipblasDtrsmStridedBatched_64_(handle,side, & + uplo,transA,diag,m,n,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function - function hipblasDtrmm_full_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) - use iso_c_binding + function hipblasDtrsmStridedBatched_64_strided_rank(handle,side,uplo,transA,diag,m,n,alpha,AP, & + lda,strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmm_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsmStridedBatched_64_strided_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: m - integer(c_int) :: n + integer(c_int64_t) :: m + integer(c_int64_t) :: n real(c_double),target :: alpha - real(c_double),target,dimension(:,:) :: A - integer(c_int) :: lda - real(c_double),target,dimension(:,:) :: B - integer(c_int) :: ldb - real(c_double),target,dimension(:,:) :: C - integer(c_int) :: ldc + real(c_double),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + integer(c_int64_t) :: batchCount ! - hipblasDtrmm_full_rank = hipblasDtrmm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & - c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) + hipblasDtrsmStridedBatched_64_strided_rank = hipblasDtrsmStridedBatched_64_(handle,side, & + uplo,transA,diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCtrmm_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) - use iso_c_binding + function hipblasDtrsmStridedBatched_64_strided_rank_devptr(handle,side,uplo,transA,diag,m,n, & + alpha,AP,lda,strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmm_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsmStridedBatched_64_strided_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: m - integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: A - integer(c_int) :: lda - complex(c_float_complex),target,dimension(..) :: B - integer(c_int) :: ldb - complex(c_float_complex),target,dimension(..) :: C - integer(c_int) :: ldc + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + integer(c_int64_t) :: batchCount ! - hipblasCtrmm_assumed_rank = hipblasCtrmm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & - c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) + hipblasDtrsmStridedBatched_64_strided_rank_devptr = hipblasDtrsmStridedBatched_64_(handle, & + side,uplo,transA,diag,m,n,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function -#else - function hipblasCtrmm_rank_0(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCtrsmStridedBatched_64_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,AP, & + lda,strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmm_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsmStridedBatched_64_assumed_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: m - integer(c_int) :: n + integer(c_int64_t) :: m + integer(c_int64_t) :: n complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: A - integer(c_int) :: lda - complex(c_float_complex),target :: B - integer(c_int) :: ldb - complex(c_float_complex),target :: C - integer(c_int) :: ldc + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + integer(c_int64_t) :: batchCount ! - hipblasCtrmm_rank_0 = hipblasCtrmm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha),c_loc(A), & - lda,c_loc(B),ldb,c_loc(C),ldc) + hipblasCtrsmStridedBatched_64_assumed_rank = hipblasCtrsmStridedBatched_64_(handle,side, & + uplo,transA,diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function - function hipblasCtrmm_rank_1(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) - use iso_c_binding + function hipblasCtrsmStridedBatched_64_assumed_rank_devptr(handle,side,uplo,transA,diag,m,n, & + alpha,AP,lda,strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmm_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsmStridedBatched_64_assumed_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: m - integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: A - integer(c_int) :: lda - complex(c_float_complex),target,dimension(:) :: B - integer(c_int) :: ldb - complex(c_float_complex),target,dimension(:) :: C - integer(c_int) :: ldc + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(..) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + integer(c_int64_t) :: batchCount ! - hipblasCtrmm_rank_1 = hipblasCtrmm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha),c_loc(A), & - lda,c_loc(B),ldb,c_loc(C),ldc) + hipblasCtrsmStridedBatched_64_assumed_rank_devptr = hipblasCtrsmStridedBatched_64_(handle, & + side,uplo,transA,diag,m,n,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function - function hipblasCtrmm_full_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) - use iso_c_binding +#else + function hipblasCtrsmStridedBatched_64_rank_0(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmm_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsmStridedBatched_64_rank_0 type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: m - integer(c_int) :: n + integer(c_int64_t) :: m + integer(c_int64_t) :: n complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:,:) :: A - integer(c_int) :: lda - complex(c_float_complex),target,dimension(:,:) :: B - integer(c_int) :: ldb - complex(c_float_complex),target,dimension(:,:) :: C - integer(c_int) :: ldc + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + integer(c_int64_t) :: batchCount ! - hipblasCtrmm_full_rank = hipblasCtrmm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & - c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) + hipblasCtrsmStridedBatched_64_rank_0 = hipblasCtrsmStridedBatched_64_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZtrmm_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) - use iso_c_binding + function hipblasCtrsmStridedBatched_64_rank_0_devptr(handle,side,uplo,transA,diag,m,n,alpha, & + AP,lda,strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmm_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsmStridedBatched_64_rank_0_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: m - integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: A - integer(c_int) :: lda - complex(c_double_complex),target,dimension(..) :: B - integer(c_int) :: ldb - complex(c_double_complex),target,dimension(..) :: C - integer(c_int) :: ldc + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + integer(c_int64_t) :: batchCount ! - hipblasZtrmm_assumed_rank = hipblasZtrmm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & - c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) + hipblasCtrsmStridedBatched_64_rank_0_devptr = hipblasCtrsmStridedBatched_64_(handle,side, & + uplo,transA,diag,m,n,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function -#else - function hipblasZtrmm_rank_0(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) - use iso_c_binding + function hipblasCtrsmStridedBatched_64_rank_1(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmm_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsmStridedBatched_64_rank_1 type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: m - integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: A - integer(c_int) :: lda - complex(c_double_complex),target :: B - integer(c_int) :: ldb - complex(c_double_complex),target :: C - integer(c_int) :: ldc + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + integer(c_int64_t) :: batchCount ! - hipblasZtrmm_rank_0 = hipblasZtrmm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha),c_loc(A), & - lda,c_loc(B),ldb,c_loc(C),ldc) + hipblasCtrsmStridedBatched_64_rank_1 = hipblasCtrsmStridedBatched_64_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function - function hipblasZtrmm_rank_1(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) - use iso_c_binding + function hipblasCtrsmStridedBatched_64_rank_1_devptr(handle,side,uplo,transA,diag,m,n,alpha, & + AP,lda,strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmm_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsmStridedBatched_64_rank_1_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: m - integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: A - integer(c_int) :: lda - complex(c_double_complex),target,dimension(:) :: B - integer(c_int) :: ldb - complex(c_double_complex),target,dimension(:) :: C - integer(c_int) :: ldc + integer(c_int64_t) :: m + integer(c_int64_t) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + integer(c_int64_t) :: batchCount ! - hipblasZtrmm_rank_1 = hipblasZtrmm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha),c_loc(A), & - lda,c_loc(B),ldb,c_loc(C),ldc) + hipblasCtrsmStridedBatched_64_rank_1_devptr = hipblasCtrsmStridedBatched_64_(handle,side, & + uplo,transA,diag,m,n,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function - function hipblasZtrmm_full_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) - use iso_c_binding + function hipblasCtrsmStridedBatched_64_full_rank(handle,side,uplo,transA,diag,m,n,alpha,AP, & + lda,strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmm_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsmStridedBatched_64_full_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo integer(kind(HIPBLAS_OP_N)) :: transA integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: m - integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:,:) :: A - integer(c_int) :: lda - complex(c_double_complex),target,dimension(:,:) :: B - integer(c_int) :: ldb - complex(c_double_complex),target,dimension(:,:) :: C - integer(c_int) :: ldc + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: BP + integer(c_int64_t) :: ldb + integer(c_int64_t) :: strideB + integer(c_int64_t) :: batchCount ! - hipblasZtrmm_full_rank = hipblasZtrmm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & - c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) + hipblasCtrsmStridedBatched_64_full_rank = hipblasCtrsmStridedBatched_64_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasStrmm_64_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) - use iso_c_binding + function hipblasCtrsmStridedBatched_64_full_rank_devptr(handle,side,uplo,transA,diag,m,n, & + alpha,AP,lda,strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmm_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsmStridedBatched_64_full_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo @@ -99063,23 +153921,23 @@ function hipblasStrmm_64_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,A,l integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: m integer(c_int64_t) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(..) :: A + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: AP integer(c_int64_t) :: lda - real(c_float),target,dimension(..) :: B + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: BP integer(c_int64_t) :: ldb - real(c_float),target,dimension(..) :: C - integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideB + integer(c_int64_t) :: batchCount ! - hipblasStrmm_64_assumed_rank = hipblasStrmm_64_(handle,side,uplo,transA,diag,m,n, & - c_loc(alpha),c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) + hipblasCtrsmStridedBatched_64_full_rank_devptr = hipblasCtrsmStridedBatched_64_(handle,side, & + uplo,transA,diag,m,n,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function -#else - function hipblasStrmm_64_rank_0(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) - use iso_c_binding + function hipblasCtrsmStridedBatched_64_strided_rank(handle,side,uplo,transA,diag,m,n,alpha,AP, & + lda,strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmm_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsmStridedBatched_64_strided_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo @@ -99087,22 +153945,23 @@ function hipblasStrmm_64_rank_0(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,l integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: m integer(c_int64_t) :: n - real(c_float),target :: alpha - real(c_float),target :: A + complex(c_float_complex),target :: alpha + complex(c_float_complex),target,dimension(:,:,:) :: AP integer(c_int64_t) :: lda - real(c_float),target :: B + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:,:) :: BP integer(c_int64_t) :: ldb - real(c_float),target :: C - integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideB + integer(c_int64_t) :: batchCount ! - hipblasStrmm_64_rank_0 = hipblasStrmm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & - c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) + hipblasCtrsmStridedBatched_64_strided_rank = hipblasCtrsmStridedBatched_64_(handle,side, & + uplo,transA,diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function - function hipblasStrmm_64_rank_1(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) - use iso_c_binding + function hipblasCtrsmStridedBatched_64_strided_rank_devptr(handle,side,uplo,transA,diag,m,n, & + alpha,AP,lda,strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmm_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsmStridedBatched_64_strided_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo @@ -99110,22 +153969,25 @@ function hipblasStrmm_64_rank_1(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,l integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: m integer(c_int64_t) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(:) :: A + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:,:) :: AP integer(c_int64_t) :: lda - real(c_float),target,dimension(:) :: B + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:,:) :: BP integer(c_int64_t) :: ldb - real(c_float),target,dimension(:) :: C - integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideB + integer(c_int64_t) :: batchCount ! - hipblasStrmm_64_rank_1 = hipblasStrmm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & - c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) + hipblasCtrsmStridedBatched_64_strided_rank_devptr = hipblasCtrsmStridedBatched_64_(handle, & + side,uplo,transA,diag,m,n,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function - function hipblasStrmm_64_full_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZtrsmStridedBatched_64_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,AP, & + lda,strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmm_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsmStridedBatched_64_assumed_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo @@ -99133,24 +153995,23 @@ function hipblasStrmm_64_full_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda, integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: m integer(c_int64_t) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(:,:) :: A + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(..) :: AP integer(c_int64_t) :: lda - real(c_float),target,dimension(:,:) :: B + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: BP integer(c_int64_t) :: ldb - real(c_float),target,dimension(:,:) :: C - integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideB + integer(c_int64_t) :: batchCount ! - hipblasStrmm_64_full_rank = hipblasStrmm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & - c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) + hipblasZtrsmStridedBatched_64_assumed_rank = hipblasZtrsmStridedBatched_64_(handle,side, & + uplo,transA,diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDtrmm_64_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) - use iso_c_binding + function hipblasZtrsmStridedBatched_64_assumed_rank_devptr(handle,side,uplo,transA,diag,m,n, & + alpha,AP,lda,strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmm_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsmStridedBatched_64_assumed_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo @@ -99158,23 +154019,24 @@ function hipblasDtrmm_64_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,A,l integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: m integer(c_int64_t) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(..) :: A + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(..) :: AP integer(c_int64_t) :: lda - real(c_double),target,dimension(..) :: B + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: BP integer(c_int64_t) :: ldb - real(c_double),target,dimension(..) :: C - integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideB + integer(c_int64_t) :: batchCount ! - hipblasDtrmm_64_assumed_rank = hipblasDtrmm_64_(handle,side,uplo,transA,diag,m,n, & - c_loc(alpha),c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) + hipblasZtrsmStridedBatched_64_assumed_rank_devptr = hipblasZtrsmStridedBatched_64_(handle, & + side,uplo,transA,diag,m,n,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function #else - function hipblasDtrmm_64_rank_0(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) - use iso_c_binding + function hipblasZtrsmStridedBatched_64_rank_0(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmm_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsmStridedBatched_64_rank_0 type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo @@ -99182,22 +154044,23 @@ function hipblasDtrmm_64_rank_0(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,l integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: m integer(c_int64_t) :: n - real(c_double),target :: alpha - real(c_double),target :: A + complex(c_double_complex),target :: alpha + complex(c_double_complex),target :: AP integer(c_int64_t) :: lda - real(c_double),target :: B + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: BP integer(c_int64_t) :: ldb - real(c_double),target :: C - integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideB + integer(c_int64_t) :: batchCount ! - hipblasDtrmm_64_rank_0 = hipblasDtrmm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & - c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) + hipblasZtrsmStridedBatched_64_rank_0 = hipblasZtrsmStridedBatched_64_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function - function hipblasDtrmm_64_rank_1(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) - use iso_c_binding + function hipblasZtrsmStridedBatched_64_rank_0_devptr(handle,side,uplo,transA,diag,m,n,alpha, & + AP,lda,strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmm_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsmStridedBatched_64_rank_0_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo @@ -99205,22 +154068,23 @@ function hipblasDtrmm_64_rank_1(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,l integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: m integer(c_int64_t) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(:) :: A + type(c_ptr),value :: alpha + complex(c_double_complex),target :: AP integer(c_int64_t) :: lda - real(c_double),target,dimension(:) :: B + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: BP integer(c_int64_t) :: ldb - real(c_double),target,dimension(:) :: C - integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideB + integer(c_int64_t) :: batchCount ! - hipblasDtrmm_64_rank_1 = hipblasDtrmm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & - c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) + hipblasZtrsmStridedBatched_64_rank_0_devptr = hipblasZtrsmStridedBatched_64_(handle,side, & + uplo,transA,diag,m,n,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function - function hipblasDtrmm_64_full_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) - use iso_c_binding + function hipblasZtrsmStridedBatched_64_rank_1(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & + strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmm_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsmStridedBatched_64_rank_1 type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo @@ -99228,24 +154092,23 @@ function hipblasDtrmm_64_full_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda, integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: m integer(c_int64_t) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(:,:) :: A + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:) :: AP integer(c_int64_t) :: lda - real(c_double),target,dimension(:,:) :: B + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: BP integer(c_int64_t) :: ldb - real(c_double),target,dimension(:,:) :: C - integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideB + integer(c_int64_t) :: batchCount ! - hipblasDtrmm_64_full_rank = hipblasDtrmm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & - c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) + hipblasZtrsmStridedBatched_64_rank_1 = hipblasZtrsmStridedBatched_64_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCtrmm_64_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) - use iso_c_binding + function hipblasZtrsmStridedBatched_64_rank_1_devptr(handle,side,uplo,transA,diag,m,n,alpha, & + AP,lda,strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmm_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsmStridedBatched_64_rank_1_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo @@ -99253,23 +154116,23 @@ function hipblasCtrmm_64_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,A,l integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: A + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: AP integer(c_int64_t) :: lda - complex(c_float_complex),target,dimension(..) :: B + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: BP integer(c_int64_t) :: ldb - complex(c_float_complex),target,dimension(..) :: C - integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideB + integer(c_int64_t) :: batchCount ! - hipblasCtrmm_64_assumed_rank = hipblasCtrmm_64_(handle,side,uplo,transA,diag,m,n, & - c_loc(alpha),c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) + hipblasZtrsmStridedBatched_64_rank_1_devptr = hipblasZtrsmStridedBatched_64_(handle,side, & + uplo,transA,diag,m,n,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function -#else - function hipblasCtrmm_64_rank_0(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) - use iso_c_binding + function hipblasZtrsmStridedBatched_64_full_rank(handle,side,uplo,transA,diag,m,n,alpha,AP, & + lda,strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmm_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsmStridedBatched_64_full_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo @@ -99277,22 +154140,23 @@ function hipblasCtrmm_64_rank_0(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,l integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: A + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP integer(c_int64_t) :: lda - complex(c_float_complex),target :: B + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: BP integer(c_int64_t) :: ldb - complex(c_float_complex),target :: C - integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideB + integer(c_int64_t) :: batchCount ! - hipblasCtrmm_64_rank_0 = hipblasCtrmm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & - c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) + hipblasZtrsmStridedBatched_64_full_rank = hipblasZtrsmStridedBatched_64_(handle,side,uplo, & + transA,diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function - function hipblasCtrmm_64_rank_1(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) - use iso_c_binding + function hipblasZtrsmStridedBatched_64_full_rank_devptr(handle,side,uplo,transA,diag,m,n, & + alpha,AP,lda,strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmm_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsmStridedBatched_64_full_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo @@ -99300,22 +154164,23 @@ function hipblasCtrmm_64_rank_1(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,l integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: A + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: AP integer(c_int64_t) :: lda - complex(c_float_complex),target,dimension(:) :: B + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:) :: BP integer(c_int64_t) :: ldb - complex(c_float_complex),target,dimension(:) :: C - integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideB + integer(c_int64_t) :: batchCount ! - hipblasCtrmm_64_rank_1 = hipblasCtrmm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & - c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) + hipblasZtrsmStridedBatched_64_full_rank_devptr = hipblasZtrsmStridedBatched_64_(handle,side, & + uplo,transA,diag,m,n,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function - function hipblasCtrmm_64_full_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) - use iso_c_binding + function hipblasZtrsmStridedBatched_64_strided_rank(handle,side,uplo,transA,diag,m,n,alpha,AP, & + lda,strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmm_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsmStridedBatched_64_strided_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo @@ -99323,24 +154188,23 @@ function hipblasCtrmm_64_full_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda, integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:,:) :: A + complex(c_double_complex),target :: alpha + complex(c_double_complex),target,dimension(:,:,:) :: AP integer(c_int64_t) :: lda - complex(c_float_complex),target,dimension(:,:) :: B + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:,:) :: BP integer(c_int64_t) :: ldb - complex(c_float_complex),target,dimension(:,:) :: C - integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideB + integer(c_int64_t) :: batchCount ! - hipblasCtrmm_64_full_rank = hipblasCtrmm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & - c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) + hipblasZtrsmStridedBatched_64_strided_rank = hipblasZtrsmStridedBatched_64_(handle,side, & + uplo,transA,diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZtrmm_64_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) - use iso_c_binding + function hipblasZtrsmStridedBatched_64_strided_rank_devptr(handle,side,uplo,transA,diag,m,n, & + alpha,AP,lda,strideA,BP,ldb,strideB,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmm_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsmStridedBatched_64_strided_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo @@ -99348,6552 +154212,5922 @@ function hipblasZtrmm_64_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,A,l integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: A + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:,:) :: AP integer(c_int64_t) :: lda - complex(c_double_complex),target,dimension(..) :: B + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:,:,:) :: BP integer(c_int64_t) :: ldb - complex(c_double_complex),target,dimension(..) :: C - integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideB + integer(c_int64_t) :: batchCount ! - hipblasZtrmm_64_assumed_rank = hipblasZtrmm_64_(handle,side,uplo,transA,diag,m,n, & - c_loc(alpha),c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) + hipblasZtrsmStridedBatched_64_strided_rank_devptr = hipblasZtrsmStridedBatched_64_(handle, & + side,uplo,transA,diag,m,n,alpha,c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasStrtri_assumed_rank(handle,uplo,diag,n,AP,lda,invA,ldinvA) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrtri_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + real(c_float),target,dimension(..) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(..) :: invA + integer(c_int) :: ldinvA + ! + hipblasStrtri_assumed_rank = hipblasStrtri_(handle,uplo,diag,n,c_loc(AP),lda,c_loc(invA), & + ldinvA) end function #else - function hipblasZtrmm_64_rank_0(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) - use iso_c_binding + function hipblasStrtri_rank_0(handle,uplo,diag,n,AP,lda,invA,ldinvA) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmm_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrtri_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: m - integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: A - integer(c_int64_t) :: lda - complex(c_double_complex),target :: B - integer(c_int64_t) :: ldb - complex(c_double_complex),target :: C - integer(c_int64_t) :: ldc + integer(c_int) :: n + real(c_float),target :: AP + integer(c_int) :: lda + real(c_float),target :: invA + integer(c_int) :: ldinvA ! - hipblasZtrmm_64_rank_0 = hipblasZtrmm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & - c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) + hipblasStrtri_rank_0 = hipblasStrtri_(handle,uplo,diag,n,c_loc(AP),lda,c_loc(invA),ldinvA) end function - function hipblasZtrmm_64_rank_1(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) - use iso_c_binding + function hipblasStrtri_rank_1(handle,uplo,diag,n,AP,lda,invA,ldinvA) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmm_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrtri_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: m - integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: A - integer(c_int64_t) :: lda - complex(c_double_complex),target,dimension(:) :: B - integer(c_int64_t) :: ldb - complex(c_double_complex),target,dimension(:) :: C - integer(c_int64_t) :: ldc + integer(c_int) :: n + real(c_float),target,dimension(:) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(:) :: invA + integer(c_int) :: ldinvA ! - hipblasZtrmm_64_rank_1 = hipblasZtrmm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & - c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) + hipblasStrtri_rank_1 = hipblasStrtri_(handle,uplo,diag,n,c_loc(AP),lda,c_loc(invA),ldinvA) end function - function hipblasZtrmm_64_full_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda,B,ldb,C,ldc) - use iso_c_binding + function hipblasStrtri_full_rank(handle,uplo,diag,n,AP,lda,invA,ldinvA) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmm_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrtri_full_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: m - integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:,:) :: A - integer(c_int64_t) :: lda - complex(c_double_complex),target,dimension(:,:) :: B - integer(c_int64_t) :: ldb - complex(c_double_complex),target,dimension(:,:) :: C - integer(c_int64_t) :: ldc + integer(c_int) :: n + real(c_float),target,dimension(:,:) :: AP + integer(c_int) :: lda + real(c_float),target,dimension(:,:) :: invA + integer(c_int) :: ldinvA ! - hipblasZtrmm_64_full_rank = hipblasZtrmm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & - c_loc(A),lda,c_loc(B),ldb,c_loc(C),ldc) + hipblasStrtri_full_rank = hipblasStrtri_(handle,uplo,diag,n,c_loc(AP),lda,c_loc(invA),ldinvA) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasStrmmStridedBatched_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & - strideA,B,ldb,strideB,C,ldc,strideC,batchCount) - use iso_c_binding + function hipblasDtrtri_assumed_rank(handle,uplo,diag,n,AP,lda,invA,ldinvA) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmmStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrtri_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: m integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(..) :: A + real(c_double),target,dimension(..) :: AP integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_float),target,dimension(..) :: B - integer(c_int) :: ldb - integer(c_int64_t) :: strideB - real(c_float),target,dimension(..) :: C - integer(c_int) :: ldc - integer(c_int64_t) :: strideC - integer(c_int) :: batchCount + real(c_double),target,dimension(..) :: invA + integer(c_int) :: ldinvA ! - hipblasStrmmStridedBatched_assumed_rank = hipblasStrmmStridedBatched_(handle,side,uplo, & - transA,diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & - strideC,batchCount) + hipblasDtrtri_assumed_rank = hipblasDtrtri_(handle,uplo,diag,n,c_loc(AP),lda,c_loc(invA), & + ldinvA) end function #else - function hipblasStrmmStridedBatched_rank_0(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & - strideA,B,ldb,strideB,C,ldc,strideC,batchCount) - use iso_c_binding + function hipblasDtrtri_rank_0(handle,uplo,diag,n,AP,lda,invA,ldinvA) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmmStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrtri_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: m integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target :: A + real(c_double),target :: AP integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_float),target :: B - integer(c_int) :: ldb - integer(c_int64_t) :: strideB - real(c_float),target :: C - integer(c_int) :: ldc - integer(c_int64_t) :: strideC - integer(c_int) :: batchCount + real(c_double),target :: invA + integer(c_int) :: ldinvA ! - hipblasStrmmStridedBatched_rank_0 = hipblasStrmmStridedBatched_(handle,side,uplo,transA, & - diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc,strideC, & - batchCount) + hipblasDtrtri_rank_0 = hipblasDtrtri_(handle,uplo,diag,n,c_loc(AP),lda,c_loc(invA),ldinvA) end function - function hipblasStrmmStridedBatched_rank_1(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & - strideA,B,ldb,strideB,C,ldc,strideC,batchCount) - use iso_c_binding + function hipblasDtrtri_rank_1(handle,uplo,diag,n,AP,lda,invA,ldinvA) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmmStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrtri_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: m integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(:) :: A + real(c_double),target,dimension(:) :: AP integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_float),target,dimension(:) :: B - integer(c_int) :: ldb - integer(c_int64_t) :: strideB - real(c_float),target,dimension(:) :: C - integer(c_int) :: ldc - integer(c_int64_t) :: strideC - integer(c_int) :: batchCount + real(c_double),target,dimension(:) :: invA + integer(c_int) :: ldinvA ! - hipblasStrmmStridedBatched_rank_1 = hipblasStrmmStridedBatched_(handle,side,uplo,transA, & - diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc,strideC, & - batchCount) + hipblasDtrtri_rank_1 = hipblasDtrtri_(handle,uplo,diag,n,c_loc(AP),lda,c_loc(invA),ldinvA) end function - function hipblasStrmmStridedBatched_full_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & - strideA,B,ldb,strideB,C,ldc,strideC,batchCount) - use iso_c_binding + function hipblasDtrtri_full_rank(handle,uplo,diag,n,AP,lda,invA,ldinvA) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmmStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrtri_full_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: m integer(c_int) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(:,:) :: A + real(c_double),target,dimension(:,:) :: AP integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_float),target,dimension(:,:) :: B - integer(c_int) :: ldb - integer(c_int64_t) :: strideB - real(c_float),target,dimension(:,:) :: C - integer(c_int) :: ldc - integer(c_int64_t) :: strideC - integer(c_int) :: batchCount + real(c_double),target,dimension(:,:) :: invA + integer(c_int) :: ldinvA ! - hipblasStrmmStridedBatched_full_rank = hipblasStrmmStridedBatched_(handle,side,uplo,transA, & - diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc,strideC, & - batchCount) + hipblasDtrtri_full_rank = hipblasDtrtri_(handle,uplo,diag,n,c_loc(AP),lda,c_loc(invA),ldinvA) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasDtrmmStridedBatched_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & - strideA,B,ldb,strideB,C,ldc,strideC,batchCount) - use iso_c_binding + function hipblasCtrtri_assumed_rank(handle,uplo,diag,n,AP,lda,invA,ldinvA) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmmStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrtri_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: m integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(..) :: A + complex(c_float_complex),target,dimension(..) :: AP integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_double),target,dimension(..) :: B - integer(c_int) :: ldb - integer(c_int64_t) :: strideB - real(c_double),target,dimension(..) :: C - integer(c_int) :: ldc - integer(c_int64_t) :: strideC - integer(c_int) :: batchCount + complex(c_float_complex),target,dimension(..) :: invA + integer(c_int) :: ldinvA ! - hipblasDtrmmStridedBatched_assumed_rank = hipblasDtrmmStridedBatched_(handle,side,uplo, & - transA,diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & - strideC,batchCount) + hipblasCtrtri_assumed_rank = hipblasCtrtri_(handle,uplo,diag,n,c_loc(AP),lda,c_loc(invA), & + ldinvA) end function #else - function hipblasDtrmmStridedBatched_rank_0(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & - strideA,B,ldb,strideB,C,ldc,strideC,batchCount) - use iso_c_binding + function hipblasCtrtri_rank_0(handle,uplo,diag,n,AP,lda,invA,ldinvA) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmmStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrtri_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: m integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target :: A + complex(c_float_complex),target :: AP integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_double),target :: B - integer(c_int) :: ldb - integer(c_int64_t) :: strideB - real(c_double),target :: C - integer(c_int) :: ldc - integer(c_int64_t) :: strideC - integer(c_int) :: batchCount + complex(c_float_complex),target :: invA + integer(c_int) :: ldinvA ! - hipblasDtrmmStridedBatched_rank_0 = hipblasDtrmmStridedBatched_(handle,side,uplo,transA, & - diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc,strideC, & - batchCount) + hipblasCtrtri_rank_0 = hipblasCtrtri_(handle,uplo,diag,n,c_loc(AP),lda,c_loc(invA),ldinvA) end function - function hipblasDtrmmStridedBatched_rank_1(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & - strideA,B,ldb,strideB,C,ldc,strideC,batchCount) - use iso_c_binding + function hipblasCtrtri_rank_1(handle,uplo,diag,n,AP,lda,invA,ldinvA) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmmStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrtri_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: m integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(:) :: A + complex(c_float_complex),target,dimension(:) :: AP integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_double),target,dimension(:) :: B - integer(c_int) :: ldb - integer(c_int64_t) :: strideB - real(c_double),target,dimension(:) :: C - integer(c_int) :: ldc - integer(c_int64_t) :: strideC - integer(c_int) :: batchCount + complex(c_float_complex),target,dimension(:) :: invA + integer(c_int) :: ldinvA ! - hipblasDtrmmStridedBatched_rank_1 = hipblasDtrmmStridedBatched_(handle,side,uplo,transA, & - diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc,strideC, & - batchCount) + hipblasCtrtri_rank_1 = hipblasCtrtri_(handle,uplo,diag,n,c_loc(AP),lda,c_loc(invA),ldinvA) end function - function hipblasDtrmmStridedBatched_full_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & - strideA,B,ldb,strideB,C,ldc,strideC,batchCount) - use iso_c_binding + function hipblasCtrtri_full_rank(handle,uplo,diag,n,AP,lda,invA,ldinvA) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmmStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrtri_full_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: m integer(c_int) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(:,:) :: A + complex(c_float_complex),target,dimension(:,:) :: AP integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_double),target,dimension(:,:) :: B - integer(c_int) :: ldb - integer(c_int64_t) :: strideB - real(c_double),target,dimension(:,:) :: C - integer(c_int) :: ldc - integer(c_int64_t) :: strideC - integer(c_int) :: batchCount + complex(c_float_complex),target,dimension(:,:) :: invA + integer(c_int) :: ldinvA ! - hipblasDtrmmStridedBatched_full_rank = hipblasDtrmmStridedBatched_(handle,side,uplo,transA, & - diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc,strideC, & - batchCount) + hipblasCtrtri_full_rank = hipblasCtrtri_(handle,uplo,diag,n,c_loc(AP),lda,c_loc(invA),ldinvA) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCtrmmStridedBatched_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & - strideA,B,ldb,strideB,C,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZtrtri_assumed_rank(handle,uplo,diag,n,AP,lda,invA,ldinvA) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmmStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrtri_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: m integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: A + complex(c_double_complex),target,dimension(..) :: AP integer(c_int) :: lda - integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(..) :: B - integer(c_int) :: ldb - integer(c_int64_t) :: strideB - complex(c_float_complex),target,dimension(..) :: C - integer(c_int) :: ldc - integer(c_int64_t) :: strideC - integer(c_int) :: batchCount + complex(c_double_complex),target,dimension(..) :: invA + integer(c_int) :: ldinvA ! - hipblasCtrmmStridedBatched_assumed_rank = hipblasCtrmmStridedBatched_(handle,side,uplo, & - transA,diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & - strideC,batchCount) + hipblasZtrtri_assumed_rank = hipblasZtrtri_(handle,uplo,diag,n,c_loc(AP),lda,c_loc(invA), & + ldinvA) end function #else - function hipblasCtrmmStridedBatched_rank_0(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & - strideA,B,ldb,strideB,C,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZtrtri_rank_0(handle,uplo,diag,n,AP,lda,invA,ldinvA) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmmStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrtri_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: m integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: A + complex(c_double_complex),target :: AP integer(c_int) :: lda - integer(c_int64_t) :: strideA - complex(c_float_complex),target :: B - integer(c_int) :: ldb - integer(c_int64_t) :: strideB - complex(c_float_complex),target :: C - integer(c_int) :: ldc - integer(c_int64_t) :: strideC - integer(c_int) :: batchCount + complex(c_double_complex),target :: invA + integer(c_int) :: ldinvA ! - hipblasCtrmmStridedBatched_rank_0 = hipblasCtrmmStridedBatched_(handle,side,uplo,transA, & - diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc,strideC, & - batchCount) + hipblasZtrtri_rank_0 = hipblasZtrtri_(handle,uplo,diag,n,c_loc(AP),lda,c_loc(invA),ldinvA) end function - function hipblasCtrmmStridedBatched_rank_1(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & - strideA,B,ldb,strideB,C,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZtrtri_rank_1(handle,uplo,diag,n,AP,lda,invA,ldinvA) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmmStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrtri_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: m integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: A + complex(c_double_complex),target,dimension(:) :: AP integer(c_int) :: lda - integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:) :: B - integer(c_int) :: ldb - integer(c_int64_t) :: strideB - complex(c_float_complex),target,dimension(:) :: C - integer(c_int) :: ldc - integer(c_int64_t) :: strideC - integer(c_int) :: batchCount + complex(c_double_complex),target,dimension(:) :: invA + integer(c_int) :: ldinvA ! - hipblasCtrmmStridedBatched_rank_1 = hipblasCtrmmStridedBatched_(handle,side,uplo,transA, & - diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc,strideC, & - batchCount) + hipblasZtrtri_rank_1 = hipblasZtrtri_(handle,uplo,diag,n,c_loc(AP),lda,c_loc(invA),ldinvA) end function - function hipblasCtrmmStridedBatched_full_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & - strideA,B,ldb,strideB,C,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZtrtri_full_rank(handle,uplo,diag,n,AP,lda,invA,ldinvA) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmmStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrtri_full_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: m integer(c_int) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:,:) :: A + complex(c_double_complex),target,dimension(:,:) :: AP integer(c_int) :: lda - integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:,:) :: B - integer(c_int) :: ldb - integer(c_int64_t) :: strideB - complex(c_float_complex),target,dimension(:,:) :: C - integer(c_int) :: ldc - integer(c_int64_t) :: strideC - integer(c_int) :: batchCount + complex(c_double_complex),target,dimension(:,:) :: invA + integer(c_int) :: ldinvA ! - hipblasCtrmmStridedBatched_full_rank = hipblasCtrmmStridedBatched_(handle,side,uplo,transA, & - diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc,strideC, & - batchCount) + hipblasZtrtri_full_rank = hipblasZtrtri_(handle,uplo,diag,n,c_loc(AP),lda,c_loc(invA),ldinvA) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasZtrmmStridedBatched_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & - strideA,B,ldb,strideB,C,ldc,strideC,batchCount) - use iso_c_binding + function hipblasStrtriStridedBatched_assumed_rank(handle,uplo,diag,n,AP,lda,strideA,invA, & + ldinvA,stride_invA,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmmStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrtriStridedBatched_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: m integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: A + real(c_float),target,dimension(..) :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(..) :: B - integer(c_int) :: ldb - integer(c_int64_t) :: strideB - complex(c_double_complex),target,dimension(..) :: C - integer(c_int) :: ldc - integer(c_int64_t) :: strideC + real(c_float),target,dimension(..) :: invA + integer(c_int) :: ldinvA + integer(c_int64_t) :: stride_invA integer(c_int) :: batchCount ! - hipblasZtrmmStridedBatched_assumed_rank = hipblasZtrmmStridedBatched_(handle,side,uplo, & - transA,diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & - strideC,batchCount) + hipblasStrtriStridedBatched_assumed_rank = hipblasStrtriStridedBatched_(handle,uplo,diag,n, & + c_loc(AP),lda,strideA,c_loc(invA),ldinvA,stride_invA,batchCount) end function #else - function hipblasZtrmmStridedBatched_rank_0(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & - strideA,B,ldb,strideB,C,ldc,strideC,batchCount) - use iso_c_binding + function hipblasStrtriStridedBatched_rank_0(handle,uplo,diag,n,AP,lda,strideA,invA,ldinvA, & + stride_invA,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmmStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrtriStridedBatched_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: m integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: A + real(c_float),target :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target :: B - integer(c_int) :: ldb - integer(c_int64_t) :: strideB - complex(c_double_complex),target :: C - integer(c_int) :: ldc - integer(c_int64_t) :: strideC + real(c_float),target :: invA + integer(c_int) :: ldinvA + integer(c_int64_t) :: stride_invA integer(c_int) :: batchCount ! - hipblasZtrmmStridedBatched_rank_0 = hipblasZtrmmStridedBatched_(handle,side,uplo,transA, & - diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc,strideC, & - batchCount) + hipblasStrtriStridedBatched_rank_0 = hipblasStrtriStridedBatched_(handle,uplo,diag,n, & + c_loc(AP),lda,strideA,c_loc(invA),ldinvA,stride_invA,batchCount) end function - function hipblasZtrmmStridedBatched_rank_1(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & - strideA,B,ldb,strideB,C,ldc,strideC,batchCount) - use iso_c_binding + function hipblasStrtriStridedBatched_rank_1(handle,uplo,diag,n,AP,lda,strideA,invA,ldinvA, & + stride_invA,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmmStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrtriStridedBatched_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: m integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: A + real(c_float),target,dimension(:) :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:) :: B - integer(c_int) :: ldb - integer(c_int64_t) :: strideB - complex(c_double_complex),target,dimension(:) :: C - integer(c_int) :: ldc - integer(c_int64_t) :: strideC + real(c_float),target,dimension(:) :: invA + integer(c_int) :: ldinvA + integer(c_int64_t) :: stride_invA integer(c_int) :: batchCount ! - hipblasZtrmmStridedBatched_rank_1 = hipblasZtrmmStridedBatched_(handle,side,uplo,transA, & - diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc,strideC, & - batchCount) + hipblasStrtriStridedBatched_rank_1 = hipblasStrtriStridedBatched_(handle,uplo,diag,n, & + c_loc(AP),lda,strideA,c_loc(invA),ldinvA,stride_invA,batchCount) end function - function hipblasZtrmmStridedBatched_full_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & - strideA,B,ldb,strideB,C,ldc,strideC,batchCount) - use iso_c_binding + function hipblasStrtriStridedBatched_full_rank(handle,uplo,diag,n,AP,lda,strideA,invA,ldinvA, & + stride_invA,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmmStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrtriStridedBatched_full_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int) :: m integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:,:) :: A + real(c_float),target,dimension(:,:) :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:,:) :: B - integer(c_int) :: ldb - integer(c_int64_t) :: strideB - complex(c_double_complex),target,dimension(:,:) :: C - integer(c_int) :: ldc - integer(c_int64_t) :: strideC + real(c_float),target,dimension(:,:) :: invA + integer(c_int) :: ldinvA + integer(c_int64_t) :: stride_invA integer(c_int) :: batchCount ! - hipblasZtrmmStridedBatched_full_rank = hipblasZtrmmStridedBatched_(handle,side,uplo,transA, & - diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc,strideC, & - batchCount) + hipblasStrtriStridedBatched_full_rank = hipblasStrtriStridedBatched_(handle,uplo,diag,n, & + c_loc(AP),lda,strideA,c_loc(invA),ldinvA,stride_invA,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasStrmmStridedBatched_64_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,A, & - lda,strideA,B,ldb,strideB,C,ldc,strideC,batchCount) - use iso_c_binding + function hipblasStrtriStridedBatched_strided_rank(handle,uplo,diag,n,AP,lda,strideA,invA, & + ldinvA,stride_invA,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmmStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrtriStridedBatched_strided_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: m - integer(c_int64_t) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(..) :: A - integer(c_int64_t) :: lda + integer(c_int) :: n + real(c_float),target,dimension(:,:,:) :: AP + integer(c_int) :: lda integer(c_int64_t) :: strideA - real(c_float),target,dimension(..) :: B - integer(c_int64_t) :: ldb - integer(c_int64_t) :: strideB - real(c_float),target,dimension(..) :: C - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + real(c_float),target,dimension(:,:,:) :: invA + integer(c_int) :: ldinvA + integer(c_int64_t) :: stride_invA + integer(c_int) :: batchCount ! - hipblasStrmmStridedBatched_64_assumed_rank = hipblasStrmmStridedBatched_64_(handle,side, & - uplo,transA,diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & - strideC,batchCount) + hipblasStrtriStridedBatched_strided_rank = hipblasStrtriStridedBatched_(handle,uplo,diag,n, & + c_loc(AP),lda,strideA,c_loc(invA),ldinvA,stride_invA,batchCount) end function -#else - function hipblasStrmmStridedBatched_64_rank_0(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & - strideA,B,ldb,strideB,C,ldc,strideC,batchCount) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDtrtriStridedBatched_assumed_rank(handle,uplo,diag,n,AP,lda,strideA,invA, & + ldinvA,stride_invA,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmmStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrtriStridedBatched_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: m - integer(c_int64_t) :: n - real(c_float),target :: alpha - real(c_float),target :: A - integer(c_int64_t) :: lda + integer(c_int) :: n + real(c_double),target,dimension(..) :: AP + integer(c_int) :: lda integer(c_int64_t) :: strideA - real(c_float),target :: B - integer(c_int64_t) :: ldb - integer(c_int64_t) :: strideB - real(c_float),target :: C - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + real(c_double),target,dimension(..) :: invA + integer(c_int) :: ldinvA + integer(c_int64_t) :: stride_invA + integer(c_int) :: batchCount ! - hipblasStrmmStridedBatched_64_rank_0 = hipblasStrmmStridedBatched_64_(handle,side,uplo, & - transA,diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & - strideC,batchCount) + hipblasDtrtriStridedBatched_assumed_rank = hipblasDtrtriStridedBatched_(handle,uplo,diag,n, & + c_loc(AP),lda,strideA,c_loc(invA),ldinvA,stride_invA,batchCount) end function - function hipblasStrmmStridedBatched_64_rank_1(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & - strideA,B,ldb,strideB,C,ldc,strideC,batchCount) - use iso_c_binding +#else + function hipblasDtrtriStridedBatched_rank_0(handle,uplo,diag,n,AP,lda,strideA,invA,ldinvA, & + stride_invA,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmmStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrtriStridedBatched_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: m - integer(c_int64_t) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(:) :: A - integer(c_int64_t) :: lda + integer(c_int) :: n + real(c_double),target :: AP + integer(c_int) :: lda integer(c_int64_t) :: strideA - real(c_float),target,dimension(:) :: B - integer(c_int64_t) :: ldb - integer(c_int64_t) :: strideB - real(c_float),target,dimension(:) :: C - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + real(c_double),target :: invA + integer(c_int) :: ldinvA + integer(c_int64_t) :: stride_invA + integer(c_int) :: batchCount ! - hipblasStrmmStridedBatched_64_rank_1 = hipblasStrmmStridedBatched_64_(handle,side,uplo, & - transA,diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & - strideC,batchCount) + hipblasDtrtriStridedBatched_rank_0 = hipblasDtrtriStridedBatched_(handle,uplo,diag,n, & + c_loc(AP),lda,strideA,c_loc(invA),ldinvA,stride_invA,batchCount) end function - function hipblasStrmmStridedBatched_64_full_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & - strideA,B,ldb,strideB,C,ldc,strideC,batchCount) - use iso_c_binding + function hipblasDtrtriStridedBatched_rank_1(handle,uplo,diag,n,AP,lda,strideA,invA,ldinvA, & + stride_invA,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrmmStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrtriStridedBatched_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: m - integer(c_int64_t) :: n - real(c_float),target :: alpha - real(c_float),target,dimension(:,:) :: A - integer(c_int64_t) :: lda + integer(c_int) :: n + real(c_double),target,dimension(:) :: AP + integer(c_int) :: lda integer(c_int64_t) :: strideA - real(c_float),target,dimension(:,:) :: B - integer(c_int64_t) :: ldb - integer(c_int64_t) :: strideB - real(c_float),target,dimension(:,:) :: C - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + real(c_double),target,dimension(:) :: invA + integer(c_int) :: ldinvA + integer(c_int64_t) :: stride_invA + integer(c_int) :: batchCount ! - hipblasStrmmStridedBatched_64_full_rank = hipblasStrmmStridedBatched_64_(handle,side,uplo, & - transA,diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & - strideC,batchCount) + hipblasDtrtriStridedBatched_rank_1 = hipblasDtrtriStridedBatched_(handle,uplo,diag,n, & + c_loc(AP),lda,strideA,c_loc(invA),ldinvA,stride_invA,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDtrmmStridedBatched_64_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,A, & - lda,strideA,B,ldb,strideB,C,ldc,strideC,batchCount) - use iso_c_binding + function hipblasDtrtriStridedBatched_full_rank(handle,uplo,diag,n,AP,lda,strideA,invA,ldinvA, & + stride_invA,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmmStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrtriStridedBatched_full_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: m - integer(c_int64_t) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(..) :: A - integer(c_int64_t) :: lda + integer(c_int) :: n + real(c_double),target,dimension(:,:) :: AP + integer(c_int) :: lda integer(c_int64_t) :: strideA - real(c_double),target,dimension(..) :: B - integer(c_int64_t) :: ldb - integer(c_int64_t) :: strideB - real(c_double),target,dimension(..) :: C - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + real(c_double),target,dimension(:,:) :: invA + integer(c_int) :: ldinvA + integer(c_int64_t) :: stride_invA + integer(c_int) :: batchCount ! - hipblasDtrmmStridedBatched_64_assumed_rank = hipblasDtrmmStridedBatched_64_(handle,side, & - uplo,transA,diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & - strideC,batchCount) + hipblasDtrtriStridedBatched_full_rank = hipblasDtrtriStridedBatched_(handle,uplo,diag,n, & + c_loc(AP),lda,strideA,c_loc(invA),ldinvA,stride_invA,batchCount) end function -#else - function hipblasDtrmmStridedBatched_64_rank_0(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & - strideA,B,ldb,strideB,C,ldc,strideC,batchCount) - use iso_c_binding + function hipblasDtrtriStridedBatched_strided_rank(handle,uplo,diag,n,AP,lda,strideA,invA, & + ldinvA,stride_invA,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmmStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrtriStridedBatched_strided_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: m - integer(c_int64_t) :: n - real(c_double),target :: alpha - real(c_double),target :: A - integer(c_int64_t) :: lda + integer(c_int) :: n + real(c_double),target,dimension(:,:,:) :: AP + integer(c_int) :: lda integer(c_int64_t) :: strideA - real(c_double),target :: B - integer(c_int64_t) :: ldb - integer(c_int64_t) :: strideB - real(c_double),target :: C - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + real(c_double),target,dimension(:,:,:) :: invA + integer(c_int) :: ldinvA + integer(c_int64_t) :: stride_invA + integer(c_int) :: batchCount ! - hipblasDtrmmStridedBatched_64_rank_0 = hipblasDtrmmStridedBatched_64_(handle,side,uplo, & - transA,diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & - strideC,batchCount) + hipblasDtrtriStridedBatched_strided_rank = hipblasDtrtriStridedBatched_(handle,uplo,diag,n, & + c_loc(AP),lda,strideA,c_loc(invA),ldinvA,stride_invA,batchCount) end function - function hipblasDtrmmStridedBatched_64_rank_1(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & - strideA,B,ldb,strideB,C,ldc,strideC,batchCount) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCtrtriStridedBatched_assumed_rank(handle,uplo,diag,n,AP,lda,strideA,invA, & + ldinvA,stride_invA,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmmStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrtriStridedBatched_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: m - integer(c_int64_t) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(:) :: A - integer(c_int64_t) :: lda + integer(c_int) :: n + complex(c_float_complex),target,dimension(..) :: AP + integer(c_int) :: lda integer(c_int64_t) :: strideA - real(c_double),target,dimension(:) :: B - integer(c_int64_t) :: ldb - integer(c_int64_t) :: strideB - real(c_double),target,dimension(:) :: C - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + complex(c_float_complex),target,dimension(..) :: invA + integer(c_int) :: ldinvA + integer(c_int64_t) :: stride_invA + integer(c_int) :: batchCount ! - hipblasDtrmmStridedBatched_64_rank_1 = hipblasDtrmmStridedBatched_64_(handle,side,uplo, & - transA,diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & - strideC,batchCount) + hipblasCtrtriStridedBatched_assumed_rank = hipblasCtrtriStridedBatched_(handle,uplo,diag,n, & + c_loc(AP),lda,strideA,c_loc(invA),ldinvA,stride_invA,batchCount) end function - function hipblasDtrmmStridedBatched_64_full_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & - strideA,B,ldb,strideB,C,ldc,strideC,batchCount) - use iso_c_binding +#else + function hipblasCtrtriStridedBatched_rank_0(handle,uplo,diag,n,AP,lda,strideA,invA,ldinvA, & + stride_invA,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrmmStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrtriStridedBatched_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: m - integer(c_int64_t) :: n - real(c_double),target :: alpha - real(c_double),target,dimension(:,:) :: A - integer(c_int64_t) :: lda + integer(c_int) :: n + complex(c_float_complex),target :: AP + integer(c_int) :: lda integer(c_int64_t) :: strideA - real(c_double),target,dimension(:,:) :: B - integer(c_int64_t) :: ldb - integer(c_int64_t) :: strideB - real(c_double),target,dimension(:,:) :: C - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + complex(c_float_complex),target :: invA + integer(c_int) :: ldinvA + integer(c_int64_t) :: stride_invA + integer(c_int) :: batchCount ! - hipblasDtrmmStridedBatched_64_full_rank = hipblasDtrmmStridedBatched_64_(handle,side,uplo, & - transA,diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & - strideC,batchCount) + hipblasCtrtriStridedBatched_rank_0 = hipblasCtrtriStridedBatched_(handle,uplo,diag,n, & + c_loc(AP),lda,strideA,c_loc(invA),ldinvA,stride_invA,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCtrmmStridedBatched_64_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,A, & - lda,strideA,B,ldb,strideB,C,ldc,strideC,batchCount) - use iso_c_binding + function hipblasCtrtriStridedBatched_rank_1(handle,uplo,diag,n,AP,lda,strideA,invA,ldinvA, & + stride_invA,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmmStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrtriStridedBatched_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: m - integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(..) :: A - integer(c_int64_t) :: lda + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: AP + integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(..) :: B - integer(c_int64_t) :: ldb - integer(c_int64_t) :: strideB - complex(c_float_complex),target,dimension(..) :: C - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + complex(c_float_complex),target,dimension(:) :: invA + integer(c_int) :: ldinvA + integer(c_int64_t) :: stride_invA + integer(c_int) :: batchCount ! - hipblasCtrmmStridedBatched_64_assumed_rank = hipblasCtrmmStridedBatched_64_(handle,side, & - uplo,transA,diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & - strideC,batchCount) + hipblasCtrtriStridedBatched_rank_1 = hipblasCtrtriStridedBatched_(handle,uplo,diag,n, & + c_loc(AP),lda,strideA,c_loc(invA),ldinvA,stride_invA,batchCount) end function -#else - function hipblasCtrmmStridedBatched_64_rank_0(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & - strideA,B,ldb,strideB,C,ldc,strideC,batchCount) - use iso_c_binding + function hipblasCtrtriStridedBatched_full_rank(handle,uplo,diag,n,AP,lda,strideA,invA,ldinvA, & + stride_invA,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmmStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrtriStridedBatched_full_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: m - integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target :: A - integer(c_int64_t) :: lda + integer(c_int) :: n + complex(c_float_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target :: B - integer(c_int64_t) :: ldb - integer(c_int64_t) :: strideB - complex(c_float_complex),target :: C - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + complex(c_float_complex),target,dimension(:,:) :: invA + integer(c_int) :: ldinvA + integer(c_int64_t) :: stride_invA + integer(c_int) :: batchCount ! - hipblasCtrmmStridedBatched_64_rank_0 = hipblasCtrmmStridedBatched_64_(handle,side,uplo, & - transA,diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & - strideC,batchCount) + hipblasCtrtriStridedBatched_full_rank = hipblasCtrtriStridedBatched_(handle,uplo,diag,n, & + c_loc(AP),lda,strideA,c_loc(invA),ldinvA,stride_invA,batchCount) end function - function hipblasCtrmmStridedBatched_64_rank_1(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & - strideA,B,ldb,strideB,C,ldc,strideC,batchCount) - use iso_c_binding + function hipblasCtrtriStridedBatched_strided_rank(handle,uplo,diag,n,AP,lda,strideA,invA, & + ldinvA,stride_invA,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmmStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrtriStridedBatched_strided_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: m - integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:) :: A - integer(c_int64_t) :: lda + integer(c_int) :: n + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:) :: B - integer(c_int64_t) :: ldb - integer(c_int64_t) :: strideB - complex(c_float_complex),target,dimension(:) :: C - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + complex(c_float_complex),target,dimension(:,:,:) :: invA + integer(c_int) :: ldinvA + integer(c_int64_t) :: stride_invA + integer(c_int) :: batchCount ! - hipblasCtrmmStridedBatched_64_rank_1 = hipblasCtrmmStridedBatched_64_(handle,side,uplo, & - transA,diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & - strideC,batchCount) + hipblasCtrtriStridedBatched_strided_rank = hipblasCtrtriStridedBatched_(handle,uplo,diag,n, & + c_loc(AP),lda,strideA,c_loc(invA),ldinvA,stride_invA,batchCount) end function - function hipblasCtrmmStridedBatched_64_full_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & - strideA,B,ldb,strideB,C,ldc,strideC,batchCount) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZtrtriStridedBatched_assumed_rank(handle,uplo,diag,n,AP,lda,strideA,invA, & + ldinvA,stride_invA,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrmmStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrtriStridedBatched_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: m - integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha - complex(c_float_complex),target,dimension(:,:) :: A - integer(c_int64_t) :: lda + integer(c_int) :: n + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:,:) :: B - integer(c_int64_t) :: ldb - integer(c_int64_t) :: strideB - complex(c_float_complex),target,dimension(:,:) :: C - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + complex(c_double_complex),target,dimension(..) :: invA + integer(c_int) :: ldinvA + integer(c_int64_t) :: stride_invA + integer(c_int) :: batchCount ! - hipblasCtrmmStridedBatched_64_full_rank = hipblasCtrmmStridedBatched_64_(handle,side,uplo, & - transA,diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & - strideC,batchCount) + hipblasZtrtriStridedBatched_assumed_rank = hipblasZtrtriStridedBatched_(handle,uplo,diag,n, & + c_loc(AP),lda,strideA,c_loc(invA),ldinvA,stride_invA,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZtrmmStridedBatched_64_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,A, & - lda,strideA,B,ldb,strideB,C,ldc,strideC,batchCount) - use iso_c_binding +#else + function hipblasZtrtriStridedBatched_rank_0(handle,uplo,diag,n,AP,lda,strideA,invA,ldinvA, & + stride_invA,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmmStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrtriStridedBatched_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: m - integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: A - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(..) :: B - integer(c_int64_t) :: ldb - integer(c_int64_t) :: strideB - complex(c_double_complex),target,dimension(..) :: C - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag + integer(c_int) :: n + complex(c_double_complex),target :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: invA + integer(c_int) :: ldinvA + integer(c_int64_t) :: stride_invA + integer(c_int) :: batchCount ! - hipblasZtrmmStridedBatched_64_assumed_rank = hipblasZtrmmStridedBatched_64_(handle,side, & - uplo,transA,diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & - strideC,batchCount) + hipblasZtrtriStridedBatched_rank_0 = hipblasZtrtriStridedBatched_(handle,uplo,diag,n, & + c_loc(AP),lda,strideA,c_loc(invA),ldinvA,stride_invA,batchCount) end function -#else - function hipblasZtrmmStridedBatched_64_rank_0(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & - strideA,B,ldb,strideB,C,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZtrtriStridedBatched_rank_1(handle,uplo,diag,n,AP,lda,strideA,invA,ldinvA, & + stride_invA,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmmStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrtriStridedBatched_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: m - integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: A - integer(c_int64_t) :: lda + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: AP + integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target :: B - integer(c_int64_t) :: ldb - integer(c_int64_t) :: strideB - complex(c_double_complex),target :: C - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + complex(c_double_complex),target,dimension(:) :: invA + integer(c_int) :: ldinvA + integer(c_int64_t) :: stride_invA + integer(c_int) :: batchCount ! - hipblasZtrmmStridedBatched_64_rank_0 = hipblasZtrmmStridedBatched_64_(handle,side,uplo, & - transA,diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & - strideC,batchCount) + hipblasZtrtriStridedBatched_rank_1 = hipblasZtrtriStridedBatched_(handle,uplo,diag,n, & + c_loc(AP),lda,strideA,c_loc(invA),ldinvA,stride_invA,batchCount) end function - function hipblasZtrmmStridedBatched_64_rank_1(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & - strideA,B,ldb,strideB,C,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZtrtriStridedBatched_full_rank(handle,uplo,diag,n,AP,lda,strideA,invA,ldinvA, & + stride_invA,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmmStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrtriStridedBatched_full_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: m - integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: A - integer(c_int64_t) :: lda + integer(c_int) :: n + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:) :: B - integer(c_int64_t) :: ldb - integer(c_int64_t) :: strideB - complex(c_double_complex),target,dimension(:) :: C - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + complex(c_double_complex),target,dimension(:,:) :: invA + integer(c_int) :: ldinvA + integer(c_int64_t) :: stride_invA + integer(c_int) :: batchCount ! - hipblasZtrmmStridedBatched_64_rank_1 = hipblasZtrmmStridedBatched_64_(handle,side,uplo, & - transA,diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & - strideC,batchCount) + hipblasZtrtriStridedBatched_full_rank = hipblasZtrtriStridedBatched_(handle,uplo,diag,n, & + c_loc(AP),lda,strideA,c_loc(invA),ldinvA,stride_invA,batchCount) end function - function hipblasZtrmmStridedBatched_64_full_rank(handle,side,uplo,transA,diag,m,n,alpha,A,lda, & - strideA,B,ldb,strideB,C,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZtrtriStridedBatched_strided_rank(handle,uplo,diag,n,AP,lda,strideA,invA, & + ldinvA,stride_invA,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrmmStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrtriStridedBatched_strided_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag - integer(c_int64_t) :: m - integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:,:) :: A - integer(c_int64_t) :: lda + integer(c_int) :: n + complex(c_double_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:,:) :: B - integer(c_int64_t) :: ldb - integer(c_int64_t) :: strideB - complex(c_double_complex),target,dimension(:,:) :: C - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + complex(c_double_complex),target,dimension(:,:,:) :: invA + integer(c_int) :: ldinvA + integer(c_int64_t) :: stride_invA + integer(c_int) :: batchCount ! - hipblasZtrmmStridedBatched_64_full_rank = hipblasZtrmmStridedBatched_64_(handle,side,uplo, & - transA,diag,m,n,c_loc(alpha),c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(C),ldc, & - strideC,batchCount) + hipblasZtrtriStridedBatched_strided_rank = hipblasZtrtriStridedBatched_(handle,uplo,diag,n, & + c_loc(AP),lda,strideA,c_loc(invA),ldinvA,stride_invA,batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasStrsm_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) - use iso_c_binding + function hipblasSdgmm_assumed_rank(handle,side,m,n,AP,lda,x,incx,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsm_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdgmm_assumed_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: m integer(c_int) :: n - real(c_float),target :: alpha real(c_float),target,dimension(..) :: AP integer(c_int) :: lda - real(c_float),target,dimension(..) :: BP - integer(c_int) :: ldb + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + real(c_float),target,dimension(..) :: CP + integer(c_int) :: ldc ! - hipblasStrsm_assumed_rank = hipblasStrsm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & - c_loc(AP),lda,c_loc(BP),ldb) + hipblasSdgmm_assumed_rank = hipblasSdgmm_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx, & + c_loc(CP),ldc) end function #else - function hipblasStrsm_rank_0(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) - use iso_c_binding + function hipblasSdgmm_rank_0(handle,side,m,n,AP,lda,x,incx,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsm_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdgmm_rank_0 type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: m integer(c_int) :: n - real(c_float),target :: alpha real(c_float),target :: AP integer(c_int) :: lda - real(c_float),target :: BP - integer(c_int) :: ldb + real(c_float),target :: x + integer(c_int) :: incx + real(c_float),target :: CP + integer(c_int) :: ldc ! - hipblasStrsm_rank_0 = hipblasStrsm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha),c_loc(AP), & - lda,c_loc(BP),ldb) + hipblasSdgmm_rank_0 = hipblasSdgmm_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx,c_loc(CP),ldc) end function - function hipblasStrsm_rank_1(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) - use iso_c_binding + function hipblasSdgmm_rank_1(handle,side,m,n,AP,lda,x,incx,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsm_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdgmm_rank_1 type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: m integer(c_int) :: n - real(c_float),target :: alpha real(c_float),target,dimension(:) :: AP integer(c_int) :: lda - real(c_float),target,dimension(:) :: BP - integer(c_int) :: ldb + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + real(c_float),target,dimension(:) :: CP + integer(c_int) :: ldc ! - hipblasStrsm_rank_1 = hipblasStrsm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha),c_loc(AP), & - lda,c_loc(BP),ldb) + hipblasSdgmm_rank_1 = hipblasSdgmm_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx,c_loc(CP),ldc) end function - function hipblasStrsm_full_rank(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) - use iso_c_binding + function hipblasSdgmm_full_rank(handle,side,m,n,AP,lda,x,incx,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsm_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdgmm_full_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: m integer(c_int) :: n - real(c_float),target :: alpha real(c_float),target,dimension(:,:) :: AP integer(c_int) :: lda - real(c_float),target,dimension(:,:) :: BP - integer(c_int) :: ldb + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + real(c_float),target,dimension(:,:) :: CP + integer(c_int) :: ldc ! - hipblasStrsm_full_rank = hipblasStrsm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & - c_loc(AP),lda,c_loc(BP),ldb) + hipblasSdgmm_full_rank = hipblasSdgmm_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx, & + c_loc(CP),ldc) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasDtrsm_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) - use iso_c_binding + function hipblasDdgmm_assumed_rank(handle,side,m,n,AP,lda,x,incx,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsm_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdgmm_assumed_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: m integer(c_int) :: n - real(c_double),target :: alpha real(c_double),target,dimension(..) :: AP integer(c_int) :: lda - real(c_double),target,dimension(..) :: BP - integer(c_int) :: ldb + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + real(c_double),target,dimension(..) :: CP + integer(c_int) :: ldc ! - hipblasDtrsm_assumed_rank = hipblasDtrsm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & - c_loc(AP),lda,c_loc(BP),ldb) + hipblasDdgmm_assumed_rank = hipblasDdgmm_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx, & + c_loc(CP),ldc) end function #else - function hipblasDtrsm_rank_0(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) - use iso_c_binding + function hipblasDdgmm_rank_0(handle,side,m,n,AP,lda,x,incx,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsm_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdgmm_rank_0 type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: m integer(c_int) :: n - real(c_double),target :: alpha real(c_double),target :: AP integer(c_int) :: lda - real(c_double),target :: BP - integer(c_int) :: ldb + real(c_double),target :: x + integer(c_int) :: incx + real(c_double),target :: CP + integer(c_int) :: ldc ! - hipblasDtrsm_rank_0 = hipblasDtrsm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha),c_loc(AP), & - lda,c_loc(BP),ldb) + hipblasDdgmm_rank_0 = hipblasDdgmm_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx,c_loc(CP),ldc) end function - function hipblasDtrsm_rank_1(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) - use iso_c_binding + function hipblasDdgmm_rank_1(handle,side,m,n,AP,lda,x,incx,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsm_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdgmm_rank_1 type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: m integer(c_int) :: n - real(c_double),target :: alpha real(c_double),target,dimension(:) :: AP integer(c_int) :: lda - real(c_double),target,dimension(:) :: BP - integer(c_int) :: ldb + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + real(c_double),target,dimension(:) :: CP + integer(c_int) :: ldc ! - hipblasDtrsm_rank_1 = hipblasDtrsm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha),c_loc(AP), & - lda,c_loc(BP),ldb) + hipblasDdgmm_rank_1 = hipblasDdgmm_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx,c_loc(CP),ldc) end function - function hipblasDtrsm_full_rank(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) - use iso_c_binding + function hipblasDdgmm_full_rank(handle,side,m,n,AP,lda,x,incx,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsm_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdgmm_full_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: m integer(c_int) :: n - real(c_double),target :: alpha real(c_double),target,dimension(:,:) :: AP integer(c_int) :: lda - real(c_double),target,dimension(:,:) :: BP - integer(c_int) :: ldb + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + real(c_double),target,dimension(:,:) :: CP + integer(c_int) :: ldc ! - hipblasDtrsm_full_rank = hipblasDtrsm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & - c_loc(AP),lda,c_loc(BP),ldb) + hipblasDdgmm_full_rank = hipblasDdgmm_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx, & + c_loc(CP),ldc) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCtrsm_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) - use iso_c_binding + function hipblasCdgmm_assumed_rank(handle,side,m,n,AP,lda,x,incx,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsm_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdgmm_assumed_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: m integer(c_int) :: n - complex(c_float_complex),target :: alpha complex(c_float_complex),target,dimension(..) :: AP integer(c_int) :: lda - complex(c_float_complex),target,dimension(..) :: BP - integer(c_int) :: ldb + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int) :: ldc ! - hipblasCtrsm_assumed_rank = hipblasCtrsm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & - c_loc(AP),lda,c_loc(BP),ldb) + hipblasCdgmm_assumed_rank = hipblasCdgmm_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx, & + c_loc(CP),ldc) end function #else - function hipblasCtrsm_rank_0(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) - use iso_c_binding + function hipblasCdgmm_rank_0(handle,side,m,n,AP,lda,x,incx,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsm_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdgmm_rank_0 type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: m integer(c_int) :: n - complex(c_float_complex),target :: alpha complex(c_float_complex),target :: AP integer(c_int) :: lda - complex(c_float_complex),target :: BP - integer(c_int) :: ldb + complex(c_float_complex),target :: x + integer(c_int) :: incx + complex(c_float_complex),target :: CP + integer(c_int) :: ldc ! - hipblasCtrsm_rank_0 = hipblasCtrsm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha),c_loc(AP), & - lda,c_loc(BP),ldb) + hipblasCdgmm_rank_0 = hipblasCdgmm_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx,c_loc(CP),ldc) end function - function hipblasCtrsm_rank_1(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) - use iso_c_binding + function hipblasCdgmm_rank_1(handle,side,m,n,AP,lda,x,incx,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsm_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdgmm_rank_1 type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: m integer(c_int) :: n - complex(c_float_complex),target :: alpha complex(c_float_complex),target,dimension(:) :: AP integer(c_int) :: lda - complex(c_float_complex),target,dimension(:) :: BP - integer(c_int) :: ldb + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int) :: ldc ! - hipblasCtrsm_rank_1 = hipblasCtrsm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha),c_loc(AP), & - lda,c_loc(BP),ldb) + hipblasCdgmm_rank_1 = hipblasCdgmm_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx,c_loc(CP),ldc) end function - function hipblasCtrsm_full_rank(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) - use iso_c_binding + function hipblasCdgmm_full_rank(handle,side,m,n,AP,lda,x,incx,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsm_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdgmm_full_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: m integer(c_int) :: n - complex(c_float_complex),target :: alpha complex(c_float_complex),target,dimension(:,:) :: AP integer(c_int) :: lda - complex(c_float_complex),target,dimension(:,:) :: BP - integer(c_int) :: ldb + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc ! - hipblasCtrsm_full_rank = hipblasCtrsm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & - c_loc(AP),lda,c_loc(BP),ldb) + hipblasCdgmm_full_rank = hipblasCdgmm_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx, & + c_loc(CP),ldc) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasZtrsm_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) - use iso_c_binding + function hipblasZdgmm_assumed_rank(handle,side,m,n,AP,lda,x,incx,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsm_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdgmm_assumed_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: m integer(c_int) :: n - complex(c_double_complex),target :: alpha complex(c_double_complex),target,dimension(..) :: AP integer(c_int) :: lda - complex(c_double_complex),target,dimension(..) :: BP - integer(c_int) :: ldb + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int) :: ldc ! - hipblasZtrsm_assumed_rank = hipblasZtrsm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & - c_loc(AP),lda,c_loc(BP),ldb) + hipblasZdgmm_assumed_rank = hipblasZdgmm_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx, & + c_loc(CP),ldc) end function #else - function hipblasZtrsm_rank_0(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) - use iso_c_binding + function hipblasZdgmm_rank_0(handle,side,m,n,AP,lda,x,incx,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsm_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdgmm_rank_0 type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: m integer(c_int) :: n - complex(c_double_complex),target :: alpha complex(c_double_complex),target :: AP integer(c_int) :: lda - complex(c_double_complex),target :: BP - integer(c_int) :: ldb + complex(c_double_complex),target :: x + integer(c_int) :: incx + complex(c_double_complex),target :: CP + integer(c_int) :: ldc ! - hipblasZtrsm_rank_0 = hipblasZtrsm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha),c_loc(AP), & - lda,c_loc(BP),ldb) + hipblasZdgmm_rank_0 = hipblasZdgmm_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx,c_loc(CP),ldc) end function - function hipblasZtrsm_rank_1(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) - use iso_c_binding + function hipblasZdgmm_rank_1(handle,side,m,n,AP,lda,x,incx,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsm_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdgmm_rank_1 type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: m integer(c_int) :: n - complex(c_double_complex),target :: alpha complex(c_double_complex),target,dimension(:) :: AP integer(c_int) :: lda - complex(c_double_complex),target,dimension(:) :: BP - integer(c_int) :: ldb + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int) :: ldc ! - hipblasZtrsm_rank_1 = hipblasZtrsm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha),c_loc(AP), & - lda,c_loc(BP),ldb) + hipblasZdgmm_rank_1 = hipblasZdgmm_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx,c_loc(CP),ldc) end function - function hipblasZtrsm_full_rank(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) - use iso_c_binding + function hipblasZdgmm_full_rank(handle,side,m,n,AP,lda,x,incx,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsm_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdgmm_full_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: m integer(c_int) :: n - complex(c_double_complex),target :: alpha complex(c_double_complex),target,dimension(:,:) :: AP integer(c_int) :: lda - complex(c_double_complex),target,dimension(:,:) :: BP - integer(c_int) :: ldb + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc ! - hipblasZtrsm_full_rank = hipblasZtrsm_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & - c_loc(AP),lda,c_loc(BP),ldb) + hipblasZdgmm_full_rank = hipblasZdgmm_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx, & + c_loc(CP),ldc) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasStrsm_64_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) - use iso_c_binding + function hipblasSdgmm_64_assumed_rank(handle,side,m,n,AP,lda,x,incx,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsm_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdgmm_64_assumed_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: m integer(c_int64_t) :: n - real(c_float),target :: alpha real(c_float),target,dimension(..) :: AP integer(c_int64_t) :: lda - real(c_float),target,dimension(..) :: BP - integer(c_int64_t) :: ldb + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_float),target,dimension(..) :: CP + integer(c_int64_t) :: ldc ! - hipblasStrsm_64_assumed_rank = hipblasStrsm_64_(handle,side,uplo,transA,diag,m,n, & - c_loc(alpha),c_loc(AP),lda,c_loc(BP),ldb) + hipblasSdgmm_64_assumed_rank = hipblasSdgmm_64_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx, & + c_loc(CP),ldc) end function #else - function hipblasStrsm_64_rank_0(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) - use iso_c_binding + function hipblasSdgmm_64_rank_0(handle,side,m,n,AP,lda,x,incx,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsm_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdgmm_64_rank_0 type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: m integer(c_int64_t) :: n - real(c_float),target :: alpha real(c_float),target :: AP integer(c_int64_t) :: lda - real(c_float),target :: BP - integer(c_int64_t) :: ldb + real(c_float),target :: x + integer(c_int64_t) :: incx + real(c_float),target :: CP + integer(c_int64_t) :: ldc ! - hipblasStrsm_64_rank_0 = hipblasStrsm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & - c_loc(AP),lda,c_loc(BP),ldb) + hipblasSdgmm_64_rank_0 = hipblasSdgmm_64_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx, & + c_loc(CP),ldc) end function - function hipblasStrsm_64_rank_1(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) - use iso_c_binding + function hipblasSdgmm_64_rank_1(handle,side,m,n,AP,lda,x,incx,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsm_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdgmm_64_rank_1 type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: m integer(c_int64_t) :: n - real(c_float),target :: alpha real(c_float),target,dimension(:) :: AP integer(c_int64_t) :: lda - real(c_float),target,dimension(:) :: BP - integer(c_int64_t) :: ldb + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_float),target,dimension(:) :: CP + integer(c_int64_t) :: ldc ! - hipblasStrsm_64_rank_1 = hipblasStrsm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & - c_loc(AP),lda,c_loc(BP),ldb) + hipblasSdgmm_64_rank_1 = hipblasSdgmm_64_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx, & + c_loc(CP),ldc) end function - function hipblasStrsm_64_full_rank(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) - use iso_c_binding + function hipblasSdgmm_64_full_rank(handle,side,m,n,AP,lda,x,incx,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsm_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdgmm_64_full_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: m integer(c_int64_t) :: n - real(c_float),target :: alpha real(c_float),target,dimension(:,:) :: AP integer(c_int64_t) :: lda - real(c_float),target,dimension(:,:) :: BP - integer(c_int64_t) :: ldb + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_float),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc ! - hipblasStrsm_64_full_rank = hipblasStrsm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & - c_loc(AP),lda,c_loc(BP),ldb) + hipblasSdgmm_64_full_rank = hipblasSdgmm_64_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx, & + c_loc(CP),ldc) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasDtrsm_64_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) - use iso_c_binding + function hipblasDdgmm_64_assumed_rank(handle,side,m,n,AP,lda,x,incx,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsm_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdgmm_64_assumed_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: m integer(c_int64_t) :: n - real(c_double),target :: alpha real(c_double),target,dimension(..) :: AP integer(c_int64_t) :: lda - real(c_double),target,dimension(..) :: BP - integer(c_int64_t) :: ldb + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + real(c_double),target,dimension(..) :: CP + integer(c_int64_t) :: ldc ! - hipblasDtrsm_64_assumed_rank = hipblasDtrsm_64_(handle,side,uplo,transA,diag,m,n, & - c_loc(alpha),c_loc(AP),lda,c_loc(BP),ldb) + hipblasDdgmm_64_assumed_rank = hipblasDdgmm_64_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx, & + c_loc(CP),ldc) end function #else - function hipblasDtrsm_64_rank_0(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) - use iso_c_binding + function hipblasDdgmm_64_rank_0(handle,side,m,n,AP,lda,x,incx,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsm_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdgmm_64_rank_0 type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: m integer(c_int64_t) :: n - real(c_double),target :: alpha real(c_double),target :: AP integer(c_int64_t) :: lda - real(c_double),target :: BP - integer(c_int64_t) :: ldb + real(c_double),target :: x + integer(c_int64_t) :: incx + real(c_double),target :: CP + integer(c_int64_t) :: ldc ! - hipblasDtrsm_64_rank_0 = hipblasDtrsm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & - c_loc(AP),lda,c_loc(BP),ldb) + hipblasDdgmm_64_rank_0 = hipblasDdgmm_64_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx, & + c_loc(CP),ldc) end function - function hipblasDtrsm_64_rank_1(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) - use iso_c_binding + function hipblasDdgmm_64_rank_1(handle,side,m,n,AP,lda,x,incx,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsm_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdgmm_64_rank_1 type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: m integer(c_int64_t) :: n - real(c_double),target :: alpha real(c_double),target,dimension(:) :: AP integer(c_int64_t) :: lda - real(c_double),target,dimension(:) :: BP - integer(c_int64_t) :: ldb + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_double),target,dimension(:) :: CP + integer(c_int64_t) :: ldc ! - hipblasDtrsm_64_rank_1 = hipblasDtrsm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & - c_loc(AP),lda,c_loc(BP),ldb) + hipblasDdgmm_64_rank_1 = hipblasDdgmm_64_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx, & + c_loc(CP),ldc) end function - function hipblasDtrsm_64_full_rank(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) - use iso_c_binding + function hipblasDdgmm_64_full_rank(handle,side,m,n,AP,lda,x,incx,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsm_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdgmm_64_full_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: m integer(c_int64_t) :: n - real(c_double),target :: alpha real(c_double),target,dimension(:,:) :: AP integer(c_int64_t) :: lda - real(c_double),target,dimension(:,:) :: BP - integer(c_int64_t) :: ldb + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + real(c_double),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc ! - hipblasDtrsm_64_full_rank = hipblasDtrsm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & - c_loc(AP),lda,c_loc(BP),ldb) + hipblasDdgmm_64_full_rank = hipblasDdgmm_64_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx, & + c_loc(CP),ldc) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCtrsm_64_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) - use iso_c_binding + function hipblasCdgmm_64_assumed_rank(handle,side,m,n,AP,lda,x,incx,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsm_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdgmm_64_assumed_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha complex(c_float_complex),target,dimension(..) :: AP integer(c_int64_t) :: lda - complex(c_float_complex),target,dimension(..) :: BP - integer(c_int64_t) :: ldb + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc ! - hipblasCtrsm_64_assumed_rank = hipblasCtrsm_64_(handle,side,uplo,transA,diag,m,n, & - c_loc(alpha),c_loc(AP),lda,c_loc(BP),ldb) + hipblasCdgmm_64_assumed_rank = hipblasCdgmm_64_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx, & + c_loc(CP),ldc) end function #else - function hipblasCtrsm_64_rank_0(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) - use iso_c_binding + function hipblasCdgmm_64_rank_0(handle,side,m,n,AP,lda,x,incx,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsm_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdgmm_64_rank_0 type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha complex(c_float_complex),target :: AP integer(c_int64_t) :: lda - complex(c_float_complex),target :: BP - integer(c_int64_t) :: ldb + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target :: CP + integer(c_int64_t) :: ldc ! - hipblasCtrsm_64_rank_0 = hipblasCtrsm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & - c_loc(AP),lda,c_loc(BP),ldb) + hipblasCdgmm_64_rank_0 = hipblasCdgmm_64_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx, & + c_loc(CP),ldc) end function - function hipblasCtrsm_64_rank_1(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) - use iso_c_binding + function hipblasCdgmm_64_rank_1(handle,side,m,n,AP,lda,x,incx,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsm_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdgmm_64_rank_1 type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha complex(c_float_complex),target,dimension(:) :: AP integer(c_int64_t) :: lda - complex(c_float_complex),target,dimension(:) :: BP - integer(c_int64_t) :: ldb + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc ! - hipblasCtrsm_64_rank_1 = hipblasCtrsm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & - c_loc(AP),lda,c_loc(BP),ldb) + hipblasCdgmm_64_rank_1 = hipblasCdgmm_64_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx, & + c_loc(CP),ldc) end function - function hipblasCtrsm_64_full_rank(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) - use iso_c_binding + function hipblasCdgmm_64_full_rank(handle,side,m,n,AP,lda,x,incx,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsm_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdgmm_64_full_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha complex(c_float_complex),target,dimension(:,:) :: AP integer(c_int64_t) :: lda - complex(c_float_complex),target,dimension(:,:) :: BP - integer(c_int64_t) :: ldb + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc ! - hipblasCtrsm_64_full_rank = hipblasCtrsm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & - c_loc(AP),lda,c_loc(BP),ldb) + hipblasCdgmm_64_full_rank = hipblasCdgmm_64_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx, & + c_loc(CP),ldc) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasZtrsm_64_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) - use iso_c_binding + function hipblasZdgmm_64_assumed_rank(handle,side,m,n,AP,lda,x,incx,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsm_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdgmm_64_assumed_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha complex(c_double_complex),target,dimension(..) :: AP integer(c_int64_t) :: lda - complex(c_double_complex),target,dimension(..) :: BP - integer(c_int64_t) :: ldb + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc ! - hipblasZtrsm_64_assumed_rank = hipblasZtrsm_64_(handle,side,uplo,transA,diag,m,n, & - c_loc(alpha),c_loc(AP),lda,c_loc(BP),ldb) + hipblasZdgmm_64_assumed_rank = hipblasZdgmm_64_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx, & + c_loc(CP),ldc) end function #else - function hipblasZtrsm_64_rank_0(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) - use iso_c_binding + function hipblasZdgmm_64_rank_0(handle,side,m,n,AP,lda,x,incx,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsm_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdgmm_64_rank_0 type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha complex(c_double_complex),target :: AP integer(c_int64_t) :: lda - complex(c_double_complex),target :: BP - integer(c_int64_t) :: ldb + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target :: CP + integer(c_int64_t) :: ldc ! - hipblasZtrsm_64_rank_0 = hipblasZtrsm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & - c_loc(AP),lda,c_loc(BP),ldb) + hipblasZdgmm_64_rank_0 = hipblasZdgmm_64_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx, & + c_loc(CP),ldc) end function - function hipblasZtrsm_64_rank_1(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) - use iso_c_binding + function hipblasZdgmm_64_rank_1(handle,side,m,n,AP,lda,x,incx,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsm_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdgmm_64_rank_1 type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha complex(c_double_complex),target,dimension(:) :: AP integer(c_int64_t) :: lda - complex(c_double_complex),target,dimension(:) :: BP - integer(c_int64_t) :: ldb + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc ! - hipblasZtrsm_64_rank_1 = hipblasZtrsm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & - c_loc(AP),lda,c_loc(BP),ldb) + hipblasZdgmm_64_rank_1 = hipblasZdgmm_64_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx, & + c_loc(CP),ldc) end function - function hipblasZtrsm_64_full_rank(handle,side,uplo,transA,diag,m,n,alpha,AP,lda,BP,ldb) - use iso_c_binding + function hipblasZdgmm_64_full_rank(handle,side,m,n,AP,lda,x,incx,CP,ldc) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsm_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdgmm_64_full_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha complex(c_double_complex),target,dimension(:,:) :: AP integer(c_int64_t) :: lda - complex(c_double_complex),target,dimension(:,:) :: BP - integer(c_int64_t) :: ldb + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc ! - hipblasZtrsm_64_full_rank = hipblasZtrsm_64_(handle,side,uplo,transA,diag,m,n,c_loc(alpha), & - c_loc(AP),lda,c_loc(BP),ldb) + hipblasZdgmm_64_full_rank = hipblasZdgmm_64_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx, & + c_loc(CP),ldc) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasStrsmStridedBatched_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,AP, & - lda,strideA,BP,ldb,strideB,batchCount) - use iso_c_binding + function hipblasSdgmmStridedBatched_assumed_rank(handle,side,m,n,AP,lda,strideA,x,incx, & + stridex,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsmStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdgmmStridedBatched_assumed_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: m integer(c_int) :: n - real(c_float),target :: alpha real(c_float),target,dimension(..) :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - real(c_float),target,dimension(..) :: BP - integer(c_int) :: ldb - integer(c_int64_t) :: strideB + real(c_float),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC integer(c_int) :: batchCount ! - hipblasStrsmStridedBatched_assumed_rank = hipblasStrsmStridedBatched_(handle,side,uplo, & - transA,diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) + hipblasSdgmmStridedBatched_assumed_rank = hipblasSdgmmStridedBatched_(handle,side,m,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) end function #else - function hipblasStrsmStridedBatched_rank_0(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & - strideA,BP,ldb,strideB,batchCount) - use iso_c_binding + function hipblasSdgmmStridedBatched_rank_0(handle,side,m,n,AP,lda,strideA,x,incx,stridex,CP, & + ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsmStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdgmmStridedBatched_rank_0 type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: m integer(c_int) :: n - real(c_float),target :: alpha real(c_float),target :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - real(c_float),target :: BP - integer(c_int) :: ldb - integer(c_int64_t) :: strideB + real(c_float),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC integer(c_int) :: batchCount ! - hipblasStrsmStridedBatched_rank_0 = hipblasStrsmStridedBatched_(handle,side,uplo,transA, & - diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) + hipblasSdgmmStridedBatched_rank_0 = hipblasSdgmmStridedBatched_(handle,side,m,n,c_loc(AP), & + lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) end function - function hipblasStrsmStridedBatched_rank_1(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & - strideA,BP,ldb,strideB,batchCount) - use iso_c_binding + function hipblasSdgmmStridedBatched_rank_1(handle,side,m,n,AP,lda,strideA,x,incx,stridex,CP, & + ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsmStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdgmmStridedBatched_rank_1 type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: m integer(c_int) :: n - real(c_float),target :: alpha real(c_float),target,dimension(:) :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - real(c_float),target,dimension(:) :: BP - integer(c_int) :: ldb - integer(c_int64_t) :: strideB + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC integer(c_int) :: batchCount ! - hipblasStrsmStridedBatched_rank_1 = hipblasStrsmStridedBatched_(handle,side,uplo,transA, & - diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) + hipblasSdgmmStridedBatched_rank_1 = hipblasSdgmmStridedBatched_(handle,side,m,n,c_loc(AP), & + lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) end function - function hipblasStrsmStridedBatched_full_rank(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & - strideA,BP,ldb,strideB,batchCount) - use iso_c_binding + function hipblasSdgmmStridedBatched_full_rank(handle,side,m,n,AP,lda,strideA,x,incx,stridex, & + CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsmStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdgmmStridedBatched_full_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: m integer(c_int) :: n - real(c_float),target :: alpha real(c_float),target,dimension(:,:) :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - real(c_float),target,dimension(:,:) :: BP - integer(c_int) :: ldb - integer(c_int64_t) :: strideB + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC integer(c_int) :: batchCount ! - hipblasStrsmStridedBatched_full_rank = hipblasStrsmStridedBatched_(handle,side,uplo,transA, & - diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) + hipblasSdgmmStridedBatched_full_rank = hipblasSdgmmStridedBatched_(handle,side,m,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasSdgmmStridedBatched_strided_rank(handle,side,m,n,AP,lda,strideA,x,incx, & + stridex,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdgmmStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:,:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasSdgmmStridedBatched_strided_rank = hipblasSdgmmStridedBatched_(handle,side,m,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasDtrsmStridedBatched_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,AP, & - lda,strideA,BP,ldb,strideB,batchCount) - use iso_c_binding + function hipblasDdgmmStridedBatched_assumed_rank(handle,side,m,n,AP,lda,strideA,x,incx, & + stridex,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsmStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdgmmStridedBatched_assumed_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: m integer(c_int) :: n - real(c_double),target :: alpha real(c_double),target,dimension(..) :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - real(c_double),target,dimension(..) :: BP - integer(c_int) :: ldb - integer(c_int64_t) :: strideB + real(c_double),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC integer(c_int) :: batchCount ! - hipblasDtrsmStridedBatched_assumed_rank = hipblasDtrsmStridedBatched_(handle,side,uplo, & - transA,diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) + hipblasDdgmmStridedBatched_assumed_rank = hipblasDdgmmStridedBatched_(handle,side,m,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) end function #else - function hipblasDtrsmStridedBatched_rank_0(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & - strideA,BP,ldb,strideB,batchCount) - use iso_c_binding + function hipblasDdgmmStridedBatched_rank_0(handle,side,m,n,AP,lda,strideA,x,incx,stridex,CP, & + ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsmStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdgmmStridedBatched_rank_0 type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: m integer(c_int) :: n - real(c_double),target :: alpha real(c_double),target :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - real(c_double),target :: BP - integer(c_int) :: ldb - integer(c_int64_t) :: strideB + real(c_double),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC integer(c_int) :: batchCount ! - hipblasDtrsmStridedBatched_rank_0 = hipblasDtrsmStridedBatched_(handle,side,uplo,transA, & - diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) + hipblasDdgmmStridedBatched_rank_0 = hipblasDdgmmStridedBatched_(handle,side,m,n,c_loc(AP), & + lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) end function - function hipblasDtrsmStridedBatched_rank_1(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & - strideA,BP,ldb,strideB,batchCount) - use iso_c_binding + function hipblasDdgmmStridedBatched_rank_1(handle,side,m,n,AP,lda,strideA,x,incx,stridex,CP, & + ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsmStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdgmmStridedBatched_rank_1 type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: m integer(c_int) :: n - real(c_double),target :: alpha real(c_double),target,dimension(:) :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - real(c_double),target,dimension(:) :: BP - integer(c_int) :: ldb - integer(c_int64_t) :: strideB + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC integer(c_int) :: batchCount ! - hipblasDtrsmStridedBatched_rank_1 = hipblasDtrsmStridedBatched_(handle,side,uplo,transA, & - diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) + hipblasDdgmmStridedBatched_rank_1 = hipblasDdgmmStridedBatched_(handle,side,m,n,c_loc(AP), & + lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) end function - function hipblasDtrsmStridedBatched_full_rank(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & - strideA,BP,ldb,strideB,batchCount) - use iso_c_binding + function hipblasDdgmmStridedBatched_full_rank(handle,side,m,n,AP,lda,strideA,x,incx,stridex, & + CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsmStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdgmmStridedBatched_full_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: m integer(c_int) :: n - real(c_double),target :: alpha real(c_double),target,dimension(:,:) :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - real(c_double),target,dimension(:,:) :: BP - integer(c_int) :: ldb - integer(c_int64_t) :: strideB + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC integer(c_int) :: batchCount ! - hipblasDtrsmStridedBatched_full_rank = hipblasDtrsmStridedBatched_(handle,side,uplo,transA, & - diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) + hipblasDdgmmStridedBatched_full_rank = hipblasDdgmmStridedBatched_(handle,side,m,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasDdgmmStridedBatched_strided_rank(handle,side,m,n,AP,lda,strideA,x,incx, & + stridex,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdgmmStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:,:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasDdgmmStridedBatched_strided_rank = hipblasDdgmmStridedBatched_(handle,side,m,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCtrsmStridedBatched_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,AP, & - lda,strideA,BP,ldb,strideB,batchCount) - use iso_c_binding + function hipblasCdgmmStridedBatched_assumed_rank(handle,side,m,n,AP,lda,strideA,x,incx, & + stridex,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsmStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdgmmStridedBatched_assumed_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: m integer(c_int) :: n - complex(c_float_complex),target :: alpha complex(c_float_complex),target,dimension(..) :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(..) :: BP - integer(c_int) :: ldb - integer(c_int64_t) :: strideB + complex(c_float_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC integer(c_int) :: batchCount ! - hipblasCtrsmStridedBatched_assumed_rank = hipblasCtrsmStridedBatched_(handle,side,uplo, & - transA,diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) + hipblasCdgmmStridedBatched_assumed_rank = hipblasCdgmmStridedBatched_(handle,side,m,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) end function #else - function hipblasCtrsmStridedBatched_rank_0(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & - strideA,BP,ldb,strideB,batchCount) - use iso_c_binding + function hipblasCdgmmStridedBatched_rank_0(handle,side,m,n,AP,lda,strideA,x,incx,stridex,CP, & + ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsmStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdgmmStridedBatched_rank_0 type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: m integer(c_int) :: n - complex(c_float_complex),target :: alpha complex(c_float_complex),target :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target :: BP - integer(c_int) :: ldb - integer(c_int64_t) :: strideB + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC integer(c_int) :: batchCount ! - hipblasCtrsmStridedBatched_rank_0 = hipblasCtrsmStridedBatched_(handle,side,uplo,transA, & - diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) + hipblasCdgmmStridedBatched_rank_0 = hipblasCdgmmStridedBatched_(handle,side,m,n,c_loc(AP), & + lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) end function - function hipblasCtrsmStridedBatched_rank_1(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & - strideA,BP,ldb,strideB,batchCount) - use iso_c_binding + function hipblasCdgmmStridedBatched_rank_1(handle,side,m,n,AP,lda,strideA,x,incx,stridex,CP, & + ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsmStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdgmmStridedBatched_rank_1 type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: m integer(c_int) :: n - complex(c_float_complex),target :: alpha complex(c_float_complex),target,dimension(:) :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:) :: BP - integer(c_int) :: ldb - integer(c_int64_t) :: strideB + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC integer(c_int) :: batchCount ! - hipblasCtrsmStridedBatched_rank_1 = hipblasCtrsmStridedBatched_(handle,side,uplo,transA, & - diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) + hipblasCdgmmStridedBatched_rank_1 = hipblasCdgmmStridedBatched_(handle,side,m,n,c_loc(AP), & + lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) end function - function hipblasCtrsmStridedBatched_full_rank(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & - strideA,BP,ldb,strideB,batchCount) - use iso_c_binding + function hipblasCdgmmStridedBatched_full_rank(handle,side,m,n,AP,lda,strideA,x,incx,stridex, & + CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsmStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdgmmStridedBatched_full_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: m integer(c_int) :: n - complex(c_float_complex),target :: alpha complex(c_float_complex),target,dimension(:,:) :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:,:) :: BP - integer(c_int) :: ldb - integer(c_int64_t) :: strideB + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC integer(c_int) :: batchCount ! - hipblasCtrsmStridedBatched_full_rank = hipblasCtrsmStridedBatched_(handle,side,uplo,transA, & - diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) + hipblasCdgmmStridedBatched_full_rank = hipblasCdgmmStridedBatched_(handle,side,m,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasCdgmmStridedBatched_strided_rank(handle,side,m,n,AP,lda,strideA,x,incx, & + stridex,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdgmmStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasCdgmmStridedBatched_strided_rank = hipblasCdgmmStridedBatched_(handle,side,m,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasZtrsmStridedBatched_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,AP, & - lda,strideA,BP,ldb,strideB,batchCount) - use iso_c_binding + function hipblasZdgmmStridedBatched_assumed_rank(handle,side,m,n,AP,lda,strideA,x,incx, & + stridex,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdgmmStridedBatched_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target,dimension(..) :: AP + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC + integer(c_int) :: batchCount + ! + hipblasZdgmmStridedBatched_assumed_rank = hipblasZdgmmStridedBatched_(handle,side,m,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) + end function + +#else + function hipblasZdgmmStridedBatched_rank_0(handle,side,m,n,AP,lda,strideA,x,incx,stridex,CP, & + ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsmStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdgmmStridedBatched_rank_0 type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: m integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(..) :: AP + complex(c_double_complex),target :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(..) :: BP - integer(c_int) :: ldb - integer(c_int64_t) :: strideB + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC integer(c_int) :: batchCount ! - hipblasZtrsmStridedBatched_assumed_rank = hipblasZtrsmStridedBatched_(handle,side,uplo, & - transA,diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) + hipblasZdgmmStridedBatched_rank_0 = hipblasZdgmmStridedBatched_(handle,side,m,n,c_loc(AP), & + lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) end function -#else - function hipblasZtrsmStridedBatched_rank_0(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & - strideA,BP,ldb,strideB,batchCount) - use iso_c_binding + function hipblasZdgmmStridedBatched_rank_1(handle,side,m,n,AP,lda,strideA,x,incx,stridex,CP, & + ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsmStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdgmmStridedBatched_rank_1 type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: m integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target :: AP + complex(c_double_complex),target,dimension(:) :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target :: BP - integer(c_int) :: ldb - integer(c_int64_t) :: strideB + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC integer(c_int) :: batchCount ! - hipblasZtrsmStridedBatched_rank_0 = hipblasZtrsmStridedBatched_(handle,side,uplo,transA, & - diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) + hipblasZdgmmStridedBatched_rank_1 = hipblasZdgmmStridedBatched_(handle,side,m,n,c_loc(AP), & + lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) end function - function hipblasZtrsmStridedBatched_rank_1(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & - strideA,BP,ldb,strideB,batchCount) - use iso_c_binding + function hipblasZdgmmStridedBatched_full_rank(handle,side,m,n,AP,lda,strideA,x,incx,stridex, & + CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsmStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdgmmStridedBatched_full_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: m integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:) :: AP + complex(c_double_complex),target,dimension(:,:) :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:) :: BP - integer(c_int) :: ldb - integer(c_int64_t) :: strideB + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC integer(c_int) :: batchCount ! - hipblasZtrsmStridedBatched_rank_1 = hipblasZtrsmStridedBatched_(handle,side,uplo,transA, & - diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) + hipblasZdgmmStridedBatched_full_rank = hipblasZdgmmStridedBatched_(handle,side,m,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) end function - function hipblasZtrsmStridedBatched_full_rank(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & - strideA,BP,ldb,strideB,batchCount) - use iso_c_binding + function hipblasZdgmmStridedBatched_strided_rank(handle,side,m,n,AP,lda,strideA,x,incx, & + stridex,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsmStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdgmmStridedBatched_strided_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: m integer(c_int) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:,:) :: AP + complex(c_double_complex),target,dimension(:,:,:) :: AP integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:,:) :: BP - integer(c_int) :: ldb - integer(c_int64_t) :: strideB + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:,:) :: CP + integer(c_int) :: ldc + integer(c_int64_t) :: strideC integer(c_int) :: batchCount ! - hipblasZtrsmStridedBatched_full_rank = hipblasZtrsmStridedBatched_(handle,side,uplo,transA, & - diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) + hipblasZdgmmStridedBatched_strided_rank = hipblasZdgmmStridedBatched_(handle,side,m,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasStrsmStridedBatched_64_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,AP, & - lda,strideA,BP,ldb,strideB,batchCount) - use iso_c_binding + function hipblasSdgmmStridedBatched_64_assumed_rank(handle,side,m,n,AP,lda,strideA,x,incx, & + stridex,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsmStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdgmmStridedBatched_64_assumed_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: m integer(c_int64_t) :: n - real(c_float),target :: alpha real(c_float),target,dimension(..) :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - real(c_float),target,dimension(..) :: BP - integer(c_int64_t) :: ldb - integer(c_int64_t) :: strideB + real(c_float),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasStrsmStridedBatched_64_assumed_rank = hipblasStrsmStridedBatched_64_(handle,side, & - uplo,transA,diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) + hipblasSdgmmStridedBatched_64_assumed_rank = hipblasSdgmmStridedBatched_64_(handle,side,m,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) end function #else - function hipblasStrsmStridedBatched_64_rank_0(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & - strideA,BP,ldb,strideB,batchCount) - use iso_c_binding + function hipblasSdgmmStridedBatched_64_rank_0(handle,side,m,n,AP,lda,strideA,x,incx,stridex, & + CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsmStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdgmmStridedBatched_64_rank_0 type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: m integer(c_int64_t) :: n - real(c_float),target :: alpha real(c_float),target :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - real(c_float),target :: BP - integer(c_int64_t) :: ldb - integer(c_int64_t) :: strideB + real(c_float),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasStrsmStridedBatched_64_rank_0 = hipblasStrsmStridedBatched_64_(handle,side,uplo, & - transA,diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) + hipblasSdgmmStridedBatched_64_rank_0 = hipblasSdgmmStridedBatched_64_(handle,side,m,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) end function - function hipblasStrsmStridedBatched_64_rank_1(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & - strideA,BP,ldb,strideB,batchCount) - use iso_c_binding + function hipblasSdgmmStridedBatched_64_rank_1(handle,side,m,n,AP,lda,strideA,x,incx,stridex, & + CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsmStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdgmmStridedBatched_64_rank_1 type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: m integer(c_int64_t) :: n - real(c_float),target :: alpha real(c_float),target,dimension(:) :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - real(c_float),target,dimension(:) :: BP - integer(c_int64_t) :: ldb - integer(c_int64_t) :: strideB + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasStrsmStridedBatched_64_rank_1 = hipblasStrsmStridedBatched_64_(handle,side,uplo, & - transA,diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) + hipblasSdgmmStridedBatched_64_rank_1 = hipblasSdgmmStridedBatched_64_(handle,side,m,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) end function - function hipblasStrsmStridedBatched_64_full_rank(handle,side,uplo,transA,diag,m,n,alpha,AP, & - lda,strideA,BP,ldb,strideB,batchCount) - use iso_c_binding + function hipblasSdgmmStridedBatched_64_full_rank(handle,side,m,n,AP,lda,strideA,x,incx, & + stridex,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrsmStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdgmmStridedBatched_64_full_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: m integer(c_int64_t) :: n - real(c_float),target :: alpha real(c_float),target,dimension(:,:) :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - real(c_float),target,dimension(:,:) :: BP - integer(c_int64_t) :: ldb - integer(c_int64_t) :: strideB + real(c_float),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasStrsmStridedBatched_64_full_rank = hipblasStrsmStridedBatched_64_(handle,side,uplo, & - transA,diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) + hipblasSdgmmStridedBatched_64_full_rank = hipblasSdgmmStridedBatched_64_(handle,side,m,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasSdgmmStridedBatched_64_strided_rank(handle,side,m,n,AP,lda,strideA,x,incx, & + stridex,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdgmmStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_float),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_float),target,dimension(:,:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasSdgmmStridedBatched_64_strided_rank = hipblasSdgmmStridedBatched_64_(handle,side,m,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasDtrsmStridedBatched_64_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,AP, & - lda,strideA,BP,ldb,strideB,batchCount) - use iso_c_binding + function hipblasDdgmmStridedBatched_64_assumed_rank(handle,side,m,n,AP,lda,strideA,x,incx, & + stridex,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsmStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdgmmStridedBatched_64_assumed_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: m integer(c_int64_t) :: n - real(c_double),target :: alpha real(c_double),target,dimension(..) :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - real(c_double),target,dimension(..) :: BP - integer(c_int64_t) :: ldb - integer(c_int64_t) :: strideB + real(c_double),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasDtrsmStridedBatched_64_assumed_rank = hipblasDtrsmStridedBatched_64_(handle,side, & - uplo,transA,diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) + hipblasDdgmmStridedBatched_64_assumed_rank = hipblasDdgmmStridedBatched_64_(handle,side,m,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) end function #else - function hipblasDtrsmStridedBatched_64_rank_0(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & - strideA,BP,ldb,strideB,batchCount) - use iso_c_binding + function hipblasDdgmmStridedBatched_64_rank_0(handle,side,m,n,AP,lda,strideA,x,incx,stridex, & + CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsmStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdgmmStridedBatched_64_rank_0 type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: m integer(c_int64_t) :: n - real(c_double),target :: alpha real(c_double),target :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - real(c_double),target :: BP - integer(c_int64_t) :: ldb - integer(c_int64_t) :: strideB + real(c_double),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasDtrsmStridedBatched_64_rank_0 = hipblasDtrsmStridedBatched_64_(handle,side,uplo, & - transA,diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) + hipblasDdgmmStridedBatched_64_rank_0 = hipblasDdgmmStridedBatched_64_(handle,side,m,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) end function - function hipblasDtrsmStridedBatched_64_rank_1(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & - strideA,BP,ldb,strideB,batchCount) - use iso_c_binding + function hipblasDdgmmStridedBatched_64_rank_1(handle,side,m,n,AP,lda,strideA,x,incx,stridex, & + CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsmStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdgmmStridedBatched_64_rank_1 type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: m integer(c_int64_t) :: n - real(c_double),target :: alpha real(c_double),target,dimension(:) :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - real(c_double),target,dimension(:) :: BP - integer(c_int64_t) :: ldb - integer(c_int64_t) :: strideB + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasDtrsmStridedBatched_64_rank_1 = hipblasDtrsmStridedBatched_64_(handle,side,uplo, & - transA,diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) + hipblasDdgmmStridedBatched_64_rank_1 = hipblasDdgmmStridedBatched_64_(handle,side,m,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) end function - function hipblasDtrsmStridedBatched_64_full_rank(handle,side,uplo,transA,diag,m,n,alpha,AP, & - lda,strideA,BP,ldb,strideB,batchCount) - use iso_c_binding + function hipblasDdgmmStridedBatched_64_full_rank(handle,side,m,n,AP,lda,strideA,x,incx, & + stridex,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrsmStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdgmmStridedBatched_64_full_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: m integer(c_int64_t) :: n - real(c_double),target :: alpha real(c_double),target,dimension(:,:) :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - real(c_double),target,dimension(:,:) :: BP - integer(c_int64_t) :: ldb - integer(c_int64_t) :: strideB + real(c_double),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasDtrsmStridedBatched_64_full_rank = hipblasDtrsmStridedBatched_64_(handle,side,uplo, & - transA,diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) + hipblasDdgmmStridedBatched_64_full_rank = hipblasDdgmmStridedBatched_64_(handle,side,m,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasDdgmmStridedBatched_64_strided_rank(handle,side,m,n,AP,lda,strideA,x,incx, & + stridex,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdgmmStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(c_int64_t) :: m + integer(c_int64_t) :: n + real(c_double),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + real(c_double),target,dimension(:,:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasDdgmmStridedBatched_64_strided_rank = hipblasDdgmmStridedBatched_64_(handle,side,m,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCtrsmStridedBatched_64_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,AP, & - lda,strideA,BP,ldb,strideB,batchCount) - use iso_c_binding + function hipblasCdgmmStridedBatched_64_assumed_rank(handle,side,m,n,AP,lda,strideA,x,incx, & + stridex,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsmStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdgmmStridedBatched_64_assumed_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha complex(c_float_complex),target,dimension(..) :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(..) :: BP - integer(c_int64_t) :: ldb - integer(c_int64_t) :: strideB + complex(c_float_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasCtrsmStridedBatched_64_assumed_rank = hipblasCtrsmStridedBatched_64_(handle,side, & - uplo,transA,diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) + hipblasCdgmmStridedBatched_64_assumed_rank = hipblasCdgmmStridedBatched_64_(handle,side,m,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) end function #else - function hipblasCtrsmStridedBatched_64_rank_0(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & - strideA,BP,ldb,strideB,batchCount) - use iso_c_binding + function hipblasCdgmmStridedBatched_64_rank_0(handle,side,m,n,AP,lda,strideA,x,incx,stridex, & + CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsmStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdgmmStridedBatched_64_rank_0 type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha complex(c_float_complex),target :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target :: BP - integer(c_int64_t) :: ldb - integer(c_int64_t) :: strideB + complex(c_float_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasCtrsmStridedBatched_64_rank_0 = hipblasCtrsmStridedBatched_64_(handle,side,uplo, & - transA,diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) + hipblasCdgmmStridedBatched_64_rank_0 = hipblasCdgmmStridedBatched_64_(handle,side,m,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) end function - function hipblasCtrsmStridedBatched_64_rank_1(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & - strideA,BP,ldb,strideB,batchCount) - use iso_c_binding + function hipblasCdgmmStridedBatched_64_rank_1(handle,side,m,n,AP,lda,strideA,x,incx,stridex, & + CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsmStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdgmmStridedBatched_64_rank_1 type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha complex(c_float_complex),target,dimension(:) :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:) :: BP - integer(c_int64_t) :: ldb - integer(c_int64_t) :: strideB + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasCtrsmStridedBatched_64_rank_1 = hipblasCtrsmStridedBatched_64_(handle,side,uplo, & - transA,diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) + hipblasCdgmmStridedBatched_64_rank_1 = hipblasCdgmmStridedBatched_64_(handle,side,m,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) end function - function hipblasCtrsmStridedBatched_64_full_rank(handle,side,uplo,transA,diag,m,n,alpha,AP, & - lda,strideA,BP,ldb,strideB,batchCount) - use iso_c_binding + function hipblasCdgmmStridedBatched_64_full_rank(handle,side,m,n,AP,lda,strideA,x,incx, & + stridex,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrsmStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdgmmStridedBatched_64_full_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_float_complex),target :: alpha complex(c_float_complex),target,dimension(:,:) :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:,:) :: BP - integer(c_int64_t) :: ldb - integer(c_int64_t) :: strideB + complex(c_float_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasCtrsmStridedBatched_64_full_rank = hipblasCtrsmStridedBatched_64_(handle,side,uplo, & - transA,diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) + hipblasCdgmmStridedBatched_64_full_rank = hipblasCdgmmStridedBatched_64_(handle,side,m,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasCdgmmStridedBatched_64_strided_rank(handle,side,m,n,AP,lda,strideA,x,incx, & + stridex,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdgmmStridedBatched_64_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_float_complex),target,dimension(:,:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_float_complex),target,dimension(:,:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasCdgmmStridedBatched_64_strided_rank = hipblasCdgmmStridedBatched_64_(handle,side,m,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasZtrsmStridedBatched_64_assumed_rank(handle,side,uplo,transA,diag,m,n,alpha,AP, & - lda,strideA,BP,ldb,strideB,batchCount) - use iso_c_binding + function hipblasZdgmmStridedBatched_64_assumed_rank(handle,side,m,n,AP,lda,strideA,x,incx, & + stridex,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsmStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdgmmStridedBatched_64_assumed_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha complex(c_double_complex),target,dimension(..) :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(..) :: BP - integer(c_int64_t) :: ldb - integer(c_int64_t) :: strideB + complex(c_double_complex),target,dimension(..) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(..) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasZtrsmStridedBatched_64_assumed_rank = hipblasZtrsmStridedBatched_64_(handle,side, & - uplo,transA,diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) + hipblasZdgmmStridedBatched_64_assumed_rank = hipblasZdgmmStridedBatched_64_(handle,side,m,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) end function #else - function hipblasZtrsmStridedBatched_64_rank_0(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & - strideA,BP,ldb,strideB,batchCount) - use iso_c_binding + function hipblasZdgmmStridedBatched_64_rank_0(handle,side,m,n,AP,lda,strideA,x,incx,stridex, & + CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsmStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdgmmStridedBatched_64_rank_0 type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha complex(c_double_complex),target :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target :: BP - integer(c_int64_t) :: ldb - integer(c_int64_t) :: strideB + complex(c_double_complex),target :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasZtrsmStridedBatched_64_rank_0 = hipblasZtrsmStridedBatched_64_(handle,side,uplo, & - transA,diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) + hipblasZdgmmStridedBatched_64_rank_0 = hipblasZdgmmStridedBatched_64_(handle,side,m,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) end function - function hipblasZtrsmStridedBatched_64_rank_1(handle,side,uplo,transA,diag,m,n,alpha,AP,lda, & - strideA,BP,ldb,strideB,batchCount) - use iso_c_binding + function hipblasZdgmmStridedBatched_64_rank_1(handle,side,m,n,AP,lda,strideA,x,incx,stridex, & + CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsmStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdgmmStridedBatched_64_rank_1 type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha complex(c_double_complex),target,dimension(:) :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:) :: BP - integer(c_int64_t) :: ldb - integer(c_int64_t) :: strideB + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasZtrsmStridedBatched_64_rank_1 = hipblasZtrsmStridedBatched_64_(handle,side,uplo, & - transA,diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) + hipblasZdgmmStridedBatched_64_rank_1 = hipblasZdgmmStridedBatched_64_(handle,side,m,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) + end function + + function hipblasZdgmmStridedBatched_64_full_rank(handle,side,m,n,AP,lda,strideA,x,incx, & + stridex,CP,ldc,strideC,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdgmmStridedBatched_64_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_SIDE_LEFT)) :: side + integer(c_int64_t) :: m + integer(c_int64_t) :: n + complex(c_double_complex),target,dimension(:,:) :: AP + integer(c_int64_t) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC + integer(c_int64_t) :: batchCount + ! + hipblasZdgmmStridedBatched_64_full_rank = hipblasZdgmmStridedBatched_64_(handle,side,m,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) end function - function hipblasZtrsmStridedBatched_64_full_rank(handle,side,uplo,transA,diag,m,n,alpha,AP, & - lda,strideA,BP,ldb,strideB,batchCount) - use iso_c_binding + function hipblasZdgmmStridedBatched_64_strided_rank(handle,side,m,n,AP,lda,strideA,x,incx, & + stridex,CP,ldc,strideC,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrsmStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdgmmStridedBatched_64_strided_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_OP_N)) :: transA - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int64_t) :: m integer(c_int64_t) :: n - complex(c_double_complex),target :: alpha - complex(c_double_complex),target,dimension(:,:) :: AP + complex(c_double_complex),target,dimension(:,:,:) :: AP integer(c_int64_t) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:,:) :: BP - integer(c_int64_t) :: ldb - integer(c_int64_t) :: strideB + complex(c_double_complex),target,dimension(:,:) :: x + integer(c_int64_t) :: incx + integer(c_int64_t) :: stridex + complex(c_double_complex),target,dimension(:,:,:) :: CP + integer(c_int64_t) :: ldc + integer(c_int64_t) :: strideC integer(c_int64_t) :: batchCount ! - hipblasZtrsmStridedBatched_64_full_rank = hipblasZtrsmStridedBatched_64_(handle,side,uplo, & - transA,diag,m,n,c_loc(alpha),c_loc(AP),lda,strideA,c_loc(BP),ldb,strideB,batchCount) + hipblasZdgmmStridedBatched_64_strided_rank = hipblasZdgmmStridedBatched_64_(handle,side,m,n, & + c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasStrtri_assumed_rank(handle,uplo,diag,n,AP,lda,invA,ldinvA) - use iso_c_binding + function hipblasSgetrf_assumed_rank(handle,n,A,lda,ipiv,myInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrtri_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrf_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - real(c_float),target,dimension(..) :: AP + real(c_float),target,dimension(..) :: A integer(c_int) :: lda - real(c_float),target,dimension(..) :: invA - integer(c_int) :: ldinvA + integer(c_int),target,dimension(..) :: ipiv + integer(c_int),target :: myInfo ! - hipblasStrtri_assumed_rank = hipblasStrtri_(handle,uplo,diag,n,c_loc(AP),lda,c_loc(invA), & - ldinvA) + hipblasSgetrf_assumed_rank = hipblasSgetrf_(handle,n,c_loc(A),lda,c_loc(ipiv),c_loc(myInfo)) end function -#else - function hipblasStrtri_rank_0(handle,uplo,diag,n,AP,lda,invA,ldinvA) - use iso_c_binding + function hipblasSgetrf_assumed_rank_devptr(handle,n,A,lda,ipiv,myInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrtri_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrf_assumed_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - real(c_float),target :: AP + real(c_float),target,dimension(..) :: A integer(c_int) :: lda - real(c_float),target :: invA - integer(c_int) :: ldinvA + integer(c_int),target,dimension(..) :: ipiv + type(c_ptr),value :: myInfo ! - hipblasStrtri_rank_0 = hipblasStrtri_(handle,uplo,diag,n,c_loc(AP),lda,c_loc(invA),ldinvA) + hipblasSgetrf_assumed_rank_devptr = hipblasSgetrf_(handle,n,c_loc(A),lda,c_loc(ipiv),myInfo) end function - function hipblasStrtri_rank_1(handle,uplo,diag,n,AP,lda,invA,ldinvA) - use iso_c_binding +#else + function hipblasSgetrf_rank_0(handle,n,A,lda,ipiv,myInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrtri_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrf_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - real(c_float),target,dimension(:) :: AP + real(c_float),target :: A integer(c_int) :: lda - real(c_float),target,dimension(:) :: invA - integer(c_int) :: ldinvA + integer(c_int),target :: ipiv + integer(c_int),target :: myInfo ! - hipblasStrtri_rank_1 = hipblasStrtri_(handle,uplo,diag,n,c_loc(AP),lda,c_loc(invA),ldinvA) + hipblasSgetrf_rank_0 = hipblasSgetrf_(handle,n,c_loc(A),lda,c_loc(ipiv),c_loc(myInfo)) end function - function hipblasStrtri_full_rank(handle,uplo,diag,n,AP,lda,invA,ldinvA) - use iso_c_binding + function hipblasSgetrf_rank_0_devptr(handle,n,A,lda,ipiv,myInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrtri_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrf_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - real(c_float),target,dimension(:,:) :: AP + real(c_float),target :: A integer(c_int) :: lda - real(c_float),target,dimension(:,:) :: invA - integer(c_int) :: ldinvA + integer(c_int),target :: ipiv + type(c_ptr),value :: myInfo ! - hipblasStrtri_full_rank = hipblasStrtri_(handle,uplo,diag,n,c_loc(AP),lda,c_loc(invA),ldinvA) + hipblasSgetrf_rank_0_devptr = hipblasSgetrf_(handle,n,c_loc(A),lda,c_loc(ipiv),myInfo) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDtrtri_assumed_rank(handle,uplo,diag,n,AP,lda,invA,ldinvA) - use iso_c_binding + function hipblasSgetrf_rank_1(handle,n,A,lda,ipiv,myInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrtri_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrf_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - real(c_double),target,dimension(..) :: AP + real(c_float),target,dimension(:) :: A integer(c_int) :: lda - real(c_double),target,dimension(..) :: invA - integer(c_int) :: ldinvA + integer(c_int),target,dimension(:) :: ipiv + integer(c_int),target :: myInfo ! - hipblasDtrtri_assumed_rank = hipblasDtrtri_(handle,uplo,diag,n,c_loc(AP),lda,c_loc(invA), & - ldinvA) + hipblasSgetrf_rank_1 = hipblasSgetrf_(handle,n,c_loc(A),lda,c_loc(ipiv),c_loc(myInfo)) end function -#else - function hipblasDtrtri_rank_0(handle,uplo,diag,n,AP,lda,invA,ldinvA) - use iso_c_binding + function hipblasSgetrf_rank_1_devptr(handle,n,A,lda,ipiv,myInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrtri_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrf_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - real(c_double),target :: AP + real(c_float),target,dimension(:) :: A integer(c_int) :: lda - real(c_double),target :: invA - integer(c_int) :: ldinvA + integer(c_int),target,dimension(:) :: ipiv + type(c_ptr),value :: myInfo ! - hipblasDtrtri_rank_0 = hipblasDtrtri_(handle,uplo,diag,n,c_loc(AP),lda,c_loc(invA),ldinvA) + hipblasSgetrf_rank_1_devptr = hipblasSgetrf_(handle,n,c_loc(A),lda,c_loc(ipiv),myInfo) end function - function hipblasDtrtri_rank_1(handle,uplo,diag,n,AP,lda,invA,ldinvA) - use iso_c_binding + function hipblasSgetrf_full_rank(handle,n,A,lda,ipiv,myInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrtri_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrf_full_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - real(c_double),target,dimension(:) :: AP + real(c_float),target,dimension(:,:) :: A integer(c_int) :: lda - real(c_double),target,dimension(:) :: invA - integer(c_int) :: ldinvA + integer(c_int),target,dimension(:) :: ipiv + integer(c_int),target :: myInfo ! - hipblasDtrtri_rank_1 = hipblasDtrtri_(handle,uplo,diag,n,c_loc(AP),lda,c_loc(invA),ldinvA) + hipblasSgetrf_full_rank = hipblasSgetrf_(handle,n,c_loc(A),lda,c_loc(ipiv),c_loc(myInfo)) end function - function hipblasDtrtri_full_rank(handle,uplo,diag,n,AP,lda,invA,ldinvA) - use iso_c_binding + function hipblasSgetrf_full_rank_devptr(handle,n,A,lda,ipiv,myInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrtri_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrf_full_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - real(c_double),target,dimension(:,:) :: AP + real(c_float),target,dimension(:,:) :: A integer(c_int) :: lda - real(c_double),target,dimension(:,:) :: invA - integer(c_int) :: ldinvA + integer(c_int),target,dimension(:) :: ipiv + type(c_ptr),value :: myInfo ! - hipblasDtrtri_full_rank = hipblasDtrtri_(handle,uplo,diag,n,c_loc(AP),lda,c_loc(invA),ldinvA) + hipblasSgetrf_full_rank_devptr = hipblasSgetrf_(handle,n,c_loc(A),lda,c_loc(ipiv),myInfo) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCtrtri_assumed_rank(handle,uplo,diag,n,AP,lda,invA,ldinvA) - use iso_c_binding + function hipblasDgetrf_assumed_rank(handle,n,A,lda,ipiv,myInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrtri_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrf_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - complex(c_float_complex),target,dimension(..) :: AP + real(c_double),target,dimension(..) :: A integer(c_int) :: lda - complex(c_float_complex),target,dimension(..) :: invA - integer(c_int) :: ldinvA + integer(c_int),target,dimension(..) :: ipiv + integer(c_int),target :: myInfo ! - hipblasCtrtri_assumed_rank = hipblasCtrtri_(handle,uplo,diag,n,c_loc(AP),lda,c_loc(invA), & - ldinvA) + hipblasDgetrf_assumed_rank = hipblasDgetrf_(handle,n,c_loc(A),lda,c_loc(ipiv),c_loc(myInfo)) end function -#else - function hipblasCtrtri_rank_0(handle,uplo,diag,n,AP,lda,invA,ldinvA) - use iso_c_binding + function hipblasDgetrf_assumed_rank_devptr(handle,n,A,lda,ipiv,myInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrtri_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrf_assumed_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - complex(c_float_complex),target :: AP + real(c_double),target,dimension(..) :: A integer(c_int) :: lda - complex(c_float_complex),target :: invA - integer(c_int) :: ldinvA + integer(c_int),target,dimension(..) :: ipiv + type(c_ptr),value :: myInfo ! - hipblasCtrtri_rank_0 = hipblasCtrtri_(handle,uplo,diag,n,c_loc(AP),lda,c_loc(invA),ldinvA) + hipblasDgetrf_assumed_rank_devptr = hipblasDgetrf_(handle,n,c_loc(A),lda,c_loc(ipiv),myInfo) end function - function hipblasCtrtri_rank_1(handle,uplo,diag,n,AP,lda,invA,ldinvA) - use iso_c_binding +#else + function hipblasDgetrf_rank_0(handle,n,A,lda,ipiv,myInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrtri_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrf_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - complex(c_float_complex),target,dimension(:) :: AP + real(c_double),target :: A integer(c_int) :: lda - complex(c_float_complex),target,dimension(:) :: invA - integer(c_int) :: ldinvA + integer(c_int),target :: ipiv + integer(c_int),target :: myInfo ! - hipblasCtrtri_rank_1 = hipblasCtrtri_(handle,uplo,diag,n,c_loc(AP),lda,c_loc(invA),ldinvA) + hipblasDgetrf_rank_0 = hipblasDgetrf_(handle,n,c_loc(A),lda,c_loc(ipiv),c_loc(myInfo)) end function - function hipblasCtrtri_full_rank(handle,uplo,diag,n,AP,lda,invA,ldinvA) - use iso_c_binding + function hipblasDgetrf_rank_0_devptr(handle,n,A,lda,ipiv,myInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrtri_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrf_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - complex(c_float_complex),target,dimension(:,:) :: AP + real(c_double),target :: A integer(c_int) :: lda - complex(c_float_complex),target,dimension(:,:) :: invA - integer(c_int) :: ldinvA + integer(c_int),target :: ipiv + type(c_ptr),value :: myInfo ! - hipblasCtrtri_full_rank = hipblasCtrtri_(handle,uplo,diag,n,c_loc(AP),lda,c_loc(invA),ldinvA) + hipblasDgetrf_rank_0_devptr = hipblasDgetrf_(handle,n,c_loc(A),lda,c_loc(ipiv),myInfo) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZtrtri_assumed_rank(handle,uplo,diag,n,AP,lda,invA,ldinvA) - use iso_c_binding + function hipblasDgetrf_rank_1(handle,n,A,lda,ipiv,myInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrtri_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrf_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - complex(c_double_complex),target,dimension(..) :: AP + real(c_double),target,dimension(:) :: A integer(c_int) :: lda - complex(c_double_complex),target,dimension(..) :: invA - integer(c_int) :: ldinvA + integer(c_int),target,dimension(:) :: ipiv + integer(c_int),target :: myInfo ! - hipblasZtrtri_assumed_rank = hipblasZtrtri_(handle,uplo,diag,n,c_loc(AP),lda,c_loc(invA), & - ldinvA) + hipblasDgetrf_rank_1 = hipblasDgetrf_(handle,n,c_loc(A),lda,c_loc(ipiv),c_loc(myInfo)) end function -#else - function hipblasZtrtri_rank_0(handle,uplo,diag,n,AP,lda,invA,ldinvA) - use iso_c_binding + function hipblasDgetrf_rank_1_devptr(handle,n,A,lda,ipiv,myInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrtri_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrf_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - complex(c_double_complex),target :: AP + real(c_double),target,dimension(:) :: A integer(c_int) :: lda - complex(c_double_complex),target :: invA - integer(c_int) :: ldinvA + integer(c_int),target,dimension(:) :: ipiv + type(c_ptr),value :: myInfo ! - hipblasZtrtri_rank_0 = hipblasZtrtri_(handle,uplo,diag,n,c_loc(AP),lda,c_loc(invA),ldinvA) + hipblasDgetrf_rank_1_devptr = hipblasDgetrf_(handle,n,c_loc(A),lda,c_loc(ipiv),myInfo) end function - function hipblasZtrtri_rank_1(handle,uplo,diag,n,AP,lda,invA,ldinvA) - use iso_c_binding + function hipblasDgetrf_full_rank(handle,n,A,lda,ipiv,myInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrtri_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrf_full_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - complex(c_double_complex),target,dimension(:) :: AP + real(c_double),target,dimension(:,:) :: A integer(c_int) :: lda - complex(c_double_complex),target,dimension(:) :: invA - integer(c_int) :: ldinvA + integer(c_int),target,dimension(:) :: ipiv + integer(c_int),target :: myInfo ! - hipblasZtrtri_rank_1 = hipblasZtrtri_(handle,uplo,diag,n,c_loc(AP),lda,c_loc(invA),ldinvA) + hipblasDgetrf_full_rank = hipblasDgetrf_(handle,n,c_loc(A),lda,c_loc(ipiv),c_loc(myInfo)) end function - function hipblasZtrtri_full_rank(handle,uplo,diag,n,AP,lda,invA,ldinvA) - use iso_c_binding + function hipblasDgetrf_full_rank_devptr(handle,n,A,lda,ipiv,myInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrtri_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrf_full_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - complex(c_double_complex),target,dimension(:,:) :: AP + real(c_double),target,dimension(:,:) :: A integer(c_int) :: lda - complex(c_double_complex),target,dimension(:,:) :: invA - integer(c_int) :: ldinvA + integer(c_int),target,dimension(:) :: ipiv + type(c_ptr),value :: myInfo ! - hipblasZtrtri_full_rank = hipblasZtrtri_(handle,uplo,diag,n,c_loc(AP),lda,c_loc(invA),ldinvA) + hipblasDgetrf_full_rank_devptr = hipblasDgetrf_(handle,n,c_loc(A),lda,c_loc(ipiv),myInfo) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasStrtriStridedBatched_assumed_rank(handle,uplo,diag,n,AP,lda,strideA,invA, & - ldinvA,stride_invA,batchCount) - use iso_c_binding + function hipblasCgetrf_assumed_rank(handle,n,A,lda,ipiv,myInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrtriStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrf_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - real(c_float),target,dimension(..) :: AP + complex(c_float_complex),target,dimension(..) :: A integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_float),target,dimension(..) :: invA - integer(c_int) :: ldinvA - integer(c_int64_t) :: stride_invA - integer(c_int) :: batchCount + integer(c_int),target,dimension(..) :: ipiv + integer(c_int),target :: myInfo ! - hipblasStrtriStridedBatched_assumed_rank = hipblasStrtriStridedBatched_(handle,uplo,diag,n, & - c_loc(AP),lda,strideA,c_loc(invA),ldinvA,stride_invA,batchCount) + hipblasCgetrf_assumed_rank = hipblasCgetrf_(handle,n,c_loc(A),lda,c_loc(ipiv),c_loc(myInfo)) end function -#else - function hipblasStrtriStridedBatched_rank_0(handle,uplo,diag,n,AP,lda,strideA,invA,ldinvA, & - stride_invA,batchCount) - use iso_c_binding + function hipblasCgetrf_assumed_rank_devptr(handle,n,A,lda,ipiv,myInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrtriStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrf_assumed_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - real(c_float),target :: AP + complex(c_float_complex),target,dimension(..) :: A integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_float),target :: invA - integer(c_int) :: ldinvA - integer(c_int64_t) :: stride_invA - integer(c_int) :: batchCount + integer(c_int),target,dimension(..) :: ipiv + type(c_ptr),value :: myInfo ! - hipblasStrtriStridedBatched_rank_0 = hipblasStrtriStridedBatched_(handle,uplo,diag,n, & - c_loc(AP),lda,strideA,c_loc(invA),ldinvA,stride_invA,batchCount) + hipblasCgetrf_assumed_rank_devptr = hipblasCgetrf_(handle,n,c_loc(A),lda,c_loc(ipiv),myInfo) end function - function hipblasStrtriStridedBatched_rank_1(handle,uplo,diag,n,AP,lda,strideA,invA,ldinvA, & - stride_invA,batchCount) - use iso_c_binding +#else + function hipblasCgetrf_rank_0(handle,n,A,lda,ipiv,myInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrtriStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrf_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - real(c_float),target,dimension(:) :: AP + complex(c_float_complex),target :: A integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_float),target,dimension(:) :: invA - integer(c_int) :: ldinvA - integer(c_int64_t) :: stride_invA - integer(c_int) :: batchCount + integer(c_int),target :: ipiv + integer(c_int),target :: myInfo ! - hipblasStrtriStridedBatched_rank_1 = hipblasStrtriStridedBatched_(handle,uplo,diag,n, & - c_loc(AP),lda,strideA,c_loc(invA),ldinvA,stride_invA,batchCount) + hipblasCgetrf_rank_0 = hipblasCgetrf_(handle,n,c_loc(A),lda,c_loc(ipiv),c_loc(myInfo)) end function - function hipblasStrtriStridedBatched_full_rank(handle,uplo,diag,n,AP,lda,strideA,invA,ldinvA, & - stride_invA,batchCount) - use iso_c_binding + function hipblasCgetrf_rank_0_devptr(handle,n,A,lda,ipiv,myInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasStrtriStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrf_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - real(c_float),target,dimension(:,:) :: AP + complex(c_float_complex),target :: A integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_float),target,dimension(:,:) :: invA - integer(c_int) :: ldinvA - integer(c_int64_t) :: stride_invA - integer(c_int) :: batchCount + integer(c_int),target :: ipiv + type(c_ptr),value :: myInfo ! - hipblasStrtriStridedBatched_full_rank = hipblasStrtriStridedBatched_(handle,uplo,diag,n, & - c_loc(AP),lda,strideA,c_loc(invA),ldinvA,stride_invA,batchCount) + hipblasCgetrf_rank_0_devptr = hipblasCgetrf_(handle,n,c_loc(A),lda,c_loc(ipiv),myInfo) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDtrtriStridedBatched_assumed_rank(handle,uplo,diag,n,AP,lda,strideA,invA, & - ldinvA,stride_invA,batchCount) - use iso_c_binding + function hipblasCgetrf_rank_1(handle,n,A,lda,ipiv,myInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrtriStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrf_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - real(c_double),target,dimension(..) :: AP + complex(c_float_complex),target,dimension(:) :: A integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_double),target,dimension(..) :: invA - integer(c_int) :: ldinvA - integer(c_int64_t) :: stride_invA - integer(c_int) :: batchCount + integer(c_int),target,dimension(:) :: ipiv + integer(c_int),target :: myInfo ! - hipblasDtrtriStridedBatched_assumed_rank = hipblasDtrtriStridedBatched_(handle,uplo,diag,n, & - c_loc(AP),lda,strideA,c_loc(invA),ldinvA,stride_invA,batchCount) + hipblasCgetrf_rank_1 = hipblasCgetrf_(handle,n,c_loc(A),lda,c_loc(ipiv),c_loc(myInfo)) end function -#else - function hipblasDtrtriStridedBatched_rank_0(handle,uplo,diag,n,AP,lda,strideA,invA,ldinvA, & - stride_invA,batchCount) - use iso_c_binding + function hipblasCgetrf_rank_1_devptr(handle,n,A,lda,ipiv,myInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrtriStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrf_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - real(c_double),target :: AP + complex(c_float_complex),target,dimension(:) :: A integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_double),target :: invA - integer(c_int) :: ldinvA - integer(c_int64_t) :: stride_invA - integer(c_int) :: batchCount + integer(c_int),target,dimension(:) :: ipiv + type(c_ptr),value :: myInfo ! - hipblasDtrtriStridedBatched_rank_0 = hipblasDtrtriStridedBatched_(handle,uplo,diag,n, & - c_loc(AP),lda,strideA,c_loc(invA),ldinvA,stride_invA,batchCount) + hipblasCgetrf_rank_1_devptr = hipblasCgetrf_(handle,n,c_loc(A),lda,c_loc(ipiv),myInfo) end function - function hipblasDtrtriStridedBatched_rank_1(handle,uplo,diag,n,AP,lda,strideA,invA,ldinvA, & - stride_invA,batchCount) - use iso_c_binding + function hipblasCgetrf_full_rank(handle,n,A,lda,ipiv,myInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrtriStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrf_full_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - real(c_double),target,dimension(:) :: AP + complex(c_float_complex),target,dimension(:,:) :: A integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_double),target,dimension(:) :: invA - integer(c_int) :: ldinvA - integer(c_int64_t) :: stride_invA - integer(c_int) :: batchCount + integer(c_int),target,dimension(:) :: ipiv + integer(c_int),target :: myInfo ! - hipblasDtrtriStridedBatched_rank_1 = hipblasDtrtriStridedBatched_(handle,uplo,diag,n, & - c_loc(AP),lda,strideA,c_loc(invA),ldinvA,stride_invA,batchCount) + hipblasCgetrf_full_rank = hipblasCgetrf_(handle,n,c_loc(A),lda,c_loc(ipiv),c_loc(myInfo)) end function - function hipblasDtrtriStridedBatched_full_rank(handle,uplo,diag,n,AP,lda,strideA,invA,ldinvA, & - stride_invA,batchCount) - use iso_c_binding + function hipblasCgetrf_full_rank_devptr(handle,n,A,lda,ipiv,myInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDtrtriStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrf_full_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - real(c_double),target,dimension(:,:) :: AP + complex(c_float_complex),target,dimension(:,:) :: A integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_double),target,dimension(:,:) :: invA - integer(c_int) :: ldinvA - integer(c_int64_t) :: stride_invA - integer(c_int) :: batchCount + integer(c_int),target,dimension(:) :: ipiv + type(c_ptr),value :: myInfo ! - hipblasDtrtriStridedBatched_full_rank = hipblasDtrtriStridedBatched_(handle,uplo,diag,n, & - c_loc(AP),lda,strideA,c_loc(invA),ldinvA,stride_invA,batchCount) + hipblasCgetrf_full_rank_devptr = hipblasCgetrf_(handle,n,c_loc(A),lda,c_loc(ipiv),myInfo) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCtrtriStridedBatched_assumed_rank(handle,uplo,diag,n,AP,lda,strideA,invA, & - ldinvA,stride_invA,batchCount) - use iso_c_binding + function hipblasZgetrf_assumed_rank(handle,n,A,lda,ipiv,myInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrtriStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrf_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - complex(c_float_complex),target,dimension(..) :: AP + complex(c_double_complex),target,dimension(..) :: A integer(c_int) :: lda - integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(..) :: invA - integer(c_int) :: ldinvA - integer(c_int64_t) :: stride_invA - integer(c_int) :: batchCount + integer(c_int),target,dimension(..) :: ipiv + integer(c_int),target :: myInfo ! - hipblasCtrtriStridedBatched_assumed_rank = hipblasCtrtriStridedBatched_(handle,uplo,diag,n, & - c_loc(AP),lda,strideA,c_loc(invA),ldinvA,stride_invA,batchCount) + hipblasZgetrf_assumed_rank = hipblasZgetrf_(handle,n,c_loc(A),lda,c_loc(ipiv),c_loc(myInfo)) + end function + + function hipblasZgetrf_assumed_rank_devptr(handle,n,A,lda,ipiv,myInfo) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrf_assumed_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(..) :: A + integer(c_int) :: lda + integer(c_int),target,dimension(..) :: ipiv + type(c_ptr),value :: myInfo + ! + hipblasZgetrf_assumed_rank_devptr = hipblasZgetrf_(handle,n,c_loc(A),lda,c_loc(ipiv),myInfo) end function #else - function hipblasCtrtriStridedBatched_rank_0(handle,uplo,diag,n,AP,lda,strideA,invA,ldinvA, & - stride_invA,batchCount) - use iso_c_binding + function hipblasZgetrf_rank_0(handle,n,A,lda,ipiv,myInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrtriStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrf_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - complex(c_float_complex),target :: AP + complex(c_double_complex),target :: A integer(c_int) :: lda - integer(c_int64_t) :: strideA - complex(c_float_complex),target :: invA - integer(c_int) :: ldinvA - integer(c_int64_t) :: stride_invA - integer(c_int) :: batchCount + integer(c_int),target :: ipiv + integer(c_int),target :: myInfo ! - hipblasCtrtriStridedBatched_rank_0 = hipblasCtrtriStridedBatched_(handle,uplo,diag,n, & - c_loc(AP),lda,strideA,c_loc(invA),ldinvA,stride_invA,batchCount) + hipblasZgetrf_rank_0 = hipblasZgetrf_(handle,n,c_loc(A),lda,c_loc(ipiv),c_loc(myInfo)) end function - function hipblasCtrtriStridedBatched_rank_1(handle,uplo,diag,n,AP,lda,strideA,invA,ldinvA, & - stride_invA,batchCount) - use iso_c_binding + function hipblasZgetrf_rank_0_devptr(handle,n,A,lda,ipiv,myInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrtriStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrf_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - complex(c_float_complex),target,dimension(:) :: AP + complex(c_double_complex),target :: A integer(c_int) :: lda - integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:) :: invA - integer(c_int) :: ldinvA - integer(c_int64_t) :: stride_invA - integer(c_int) :: batchCount + integer(c_int),target :: ipiv + type(c_ptr),value :: myInfo ! - hipblasCtrtriStridedBatched_rank_1 = hipblasCtrtriStridedBatched_(handle,uplo,diag,n, & - c_loc(AP),lda,strideA,c_loc(invA),ldinvA,stride_invA,batchCount) + hipblasZgetrf_rank_0_devptr = hipblasZgetrf_(handle,n,c_loc(A),lda,c_loc(ipiv),myInfo) end function - function hipblasCtrtriStridedBatched_full_rank(handle,uplo,diag,n,AP,lda,strideA,invA,ldinvA, & - stride_invA,batchCount) - use iso_c_binding + function hipblasZgetrf_rank_1(handle,n,A,lda,ipiv,myInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCtrtriStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrf_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - complex(c_float_complex),target,dimension(:,:) :: AP + complex(c_double_complex),target,dimension(:) :: A integer(c_int) :: lda - integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:,:) :: invA - integer(c_int) :: ldinvA - integer(c_int64_t) :: stride_invA - integer(c_int) :: batchCount + integer(c_int),target,dimension(:) :: ipiv + integer(c_int),target :: myInfo ! - hipblasCtrtriStridedBatched_full_rank = hipblasCtrtriStridedBatched_(handle,uplo,diag,n, & - c_loc(AP),lda,strideA,c_loc(invA),ldinvA,stride_invA,batchCount) + hipblasZgetrf_rank_1 = hipblasZgetrf_(handle,n,c_loc(A),lda,c_loc(ipiv),c_loc(myInfo)) + end function + + function hipblasZgetrf_rank_1_devptr(handle,n,A,lda,ipiv,myInfo) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrf_rank_1_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: A + integer(c_int) :: lda + integer(c_int),target,dimension(:) :: ipiv + type(c_ptr),value :: myInfo + ! + hipblasZgetrf_rank_1_devptr = hipblasZgetrf_(handle,n,c_loc(A),lda,c_loc(ipiv),myInfo) + end function + + function hipblasZgetrf_full_rank(handle,n,A,lda,ipiv,myInfo) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrf_full_rank + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(:,:) :: A + integer(c_int) :: lda + integer(c_int),target,dimension(:) :: ipiv + integer(c_int),target :: myInfo + ! + hipblasZgetrf_full_rank = hipblasZgetrf_(handle,n,c_loc(A),lda,c_loc(ipiv),c_loc(myInfo)) + end function + + function hipblasZgetrf_full_rank_devptr(handle,n,A,lda,ipiv,myInfo) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrf_full_rank_devptr + type(c_ptr), value :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(:,:) :: A + integer(c_int) :: lda + integer(c_int),target,dimension(:) :: ipiv + type(c_ptr),value :: myInfo + ! + hipblasZgetrf_full_rank_devptr = hipblasZgetrf_(handle,n,c_loc(A),lda,c_loc(ipiv),myInfo) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasZtrtriStridedBatched_assumed_rank(handle,uplo,diag,n,AP,lda,strideA,invA, & - ldinvA,stride_invA,batchCount) - use iso_c_binding + function hipblasSgetrfBatched_assumed_rank(handle,n,A,lda,ipiv,myInfo,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrtriStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrfBatched_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - complex(c_double_complex),target,dimension(..) :: AP + type(c_ptr), value :: A integer(c_int) :: lda - integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(..) :: invA - integer(c_int) :: ldinvA - integer(c_int64_t) :: stride_invA + type(c_ptr) :: ipiv + integer(c_int),target,dimension(..) :: myInfo integer(c_int) :: batchCount ! - hipblasZtrtriStridedBatched_assumed_rank = hipblasZtrtriStridedBatched_(handle,uplo,diag,n, & - c_loc(AP),lda,strideA,c_loc(invA),ldinvA,stride_invA,batchCount) + hipblasSgetrfBatched_assumed_rank = hipblasSgetrfBatched_(handle,n,A,lda,ipiv,c_loc(myInfo), & + batchCount) end function #else - function hipblasZtrtriStridedBatched_rank_0(handle,uplo,diag,n,AP,lda,strideA,invA,ldinvA, & - stride_invA,batchCount) - use iso_c_binding + function hipblasSgetrfBatched_rank_0(handle,n,A,lda,ipiv,myInfo,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrtriStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrfBatched_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - complex(c_double_complex),target :: AP + type(c_ptr), value :: A integer(c_int) :: lda - integer(c_int64_t) :: strideA - complex(c_double_complex),target :: invA - integer(c_int) :: ldinvA - integer(c_int64_t) :: stride_invA + type(c_ptr) :: ipiv + integer(c_int),target :: myInfo integer(c_int) :: batchCount - ! - hipblasZtrtriStridedBatched_rank_0 = hipblasZtrtriStridedBatched_(handle,uplo,diag,n, & - c_loc(AP),lda,strideA,c_loc(invA),ldinvA,stride_invA,batchCount) + ! + hipblasSgetrfBatched_rank_0 = hipblasSgetrfBatched_(handle,n,A,lda,ipiv,c_loc(myInfo), & + batchCount) end function - function hipblasZtrtriStridedBatched_rank_1(handle,uplo,diag,n,AP,lda,strideA,invA,ldinvA, & - stride_invA,batchCount) - use iso_c_binding + function hipblasSgetrfBatched_rank_1(handle,n,A,lda,ipiv,myInfo,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrtriStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrfBatched_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - complex(c_double_complex),target,dimension(:) :: AP + type(c_ptr), value :: A integer(c_int) :: lda - integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:) :: invA - integer(c_int) :: ldinvA - integer(c_int64_t) :: stride_invA + type(c_ptr) :: ipiv + integer(c_int),target,dimension(:) :: myInfo integer(c_int) :: batchCount ! - hipblasZtrtriStridedBatched_rank_1 = hipblasZtrtriStridedBatched_(handle,uplo,diag,n, & - c_loc(AP),lda,strideA,c_loc(invA),ldinvA,stride_invA,batchCount) + hipblasSgetrfBatched_rank_1 = hipblasSgetrfBatched_(handle,n,A,lda,ipiv,c_loc(myInfo), & + batchCount) end function - function hipblasZtrtriStridedBatched_full_rank(handle,uplo,diag,n,AP,lda,strideA,invA,ldinvA, & - stride_invA,batchCount) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDgetrfBatched_assumed_rank(handle,n,A,lda,ipiv,myInfo,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZtrtriStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrfBatched_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_FILL_MODE_UPPER)) :: uplo - integer(kind(HIPBLAS_DIAG_NON_UNIT)) :: diag integer(c_int) :: n - complex(c_double_complex),target,dimension(:,:) :: AP + type(c_ptr), value :: A integer(c_int) :: lda - integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:,:) :: invA - integer(c_int) :: ldinvA - integer(c_int64_t) :: stride_invA + type(c_ptr) :: ipiv + integer(c_int),target,dimension(..) :: myInfo integer(c_int) :: batchCount ! - hipblasZtrtriStridedBatched_full_rank = hipblasZtrtriStridedBatched_(handle,uplo,diag,n, & - c_loc(AP),lda,strideA,c_loc(invA),ldinvA,stride_invA,batchCount) + hipblasDgetrfBatched_assumed_rank = hipblasDgetrfBatched_(handle,n,A,lda,ipiv,c_loc(myInfo), & + batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasSdgmm_assumed_rank(handle,side,m,n,AP,lda,x,incx,CP,ldc) - use iso_c_binding +#else + function hipblasDgetrfBatched_rank_0(handle,n,A,lda,ipiv,myInfo,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdgmm_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrfBatched_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(c_int) :: m integer(c_int) :: n - real(c_float),target,dimension(..) :: AP + type(c_ptr), value :: A integer(c_int) :: lda - real(c_float),target,dimension(..) :: x - integer(c_int) :: incx - real(c_float),target,dimension(..) :: CP - integer(c_int) :: ldc + type(c_ptr) :: ipiv + integer(c_int),target :: myInfo + integer(c_int) :: batchCount ! - hipblasSdgmm_assumed_rank = hipblasSdgmm_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx, & - c_loc(CP),ldc) + hipblasDgetrfBatched_rank_0 = hipblasDgetrfBatched_(handle,n,A,lda,ipiv,c_loc(myInfo), & + batchCount) end function -#else - function hipblasSdgmm_rank_0(handle,side,m,n,AP,lda,x,incx,CP,ldc) - use iso_c_binding + function hipblasDgetrfBatched_rank_1(handle,n,A,lda,ipiv,myInfo,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdgmm_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrfBatched_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(c_int) :: m integer(c_int) :: n - real(c_float),target :: AP + type(c_ptr), value :: A integer(c_int) :: lda - real(c_float),target :: x - integer(c_int) :: incx - real(c_float),target :: CP - integer(c_int) :: ldc + type(c_ptr) :: ipiv + integer(c_int),target,dimension(:) :: myInfo + integer(c_int) :: batchCount ! - hipblasSdgmm_rank_0 = hipblasSdgmm_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx,c_loc(CP),ldc) + hipblasDgetrfBatched_rank_1 = hipblasDgetrfBatched_(handle,n,A,lda,ipiv,c_loc(myInfo), & + batchCount) end function - function hipblasSdgmm_rank_1(handle,side,m,n,AP,lda,x,incx,CP,ldc) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCgetrfBatched_assumed_rank(handle,n,A,lda,ipiv,myInfo,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdgmm_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrfBatched_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(c_int) :: m integer(c_int) :: n - real(c_float),target,dimension(:) :: AP + type(c_ptr), value :: A integer(c_int) :: lda - real(c_float),target,dimension(:) :: x - integer(c_int) :: incx - real(c_float),target,dimension(:) :: CP - integer(c_int) :: ldc + type(c_ptr) :: ipiv + integer(c_int),target,dimension(..) :: myInfo + integer(c_int) :: batchCount ! - hipblasSdgmm_rank_1 = hipblasSdgmm_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx,c_loc(CP),ldc) + hipblasCgetrfBatched_assumed_rank = hipblasCgetrfBatched_(handle,n,A,lda,ipiv,c_loc(myInfo), & + batchCount) end function - function hipblasSdgmm_full_rank(handle,side,m,n,AP,lda,x,incx,CP,ldc) - use iso_c_binding +#else + function hipblasCgetrfBatched_rank_0(handle,n,A,lda,ipiv,myInfo,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdgmm_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrfBatched_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(c_int) :: m integer(c_int) :: n - real(c_float),target,dimension(:,:) :: AP + type(c_ptr), value :: A integer(c_int) :: lda - real(c_float),target,dimension(:) :: x - integer(c_int) :: incx - real(c_float),target,dimension(:,:) :: CP - integer(c_int) :: ldc + type(c_ptr) :: ipiv + integer(c_int),target :: myInfo + integer(c_int) :: batchCount ! - hipblasSdgmm_full_rank = hipblasSdgmm_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx, & - c_loc(CP),ldc) + hipblasCgetrfBatched_rank_0 = hipblasCgetrfBatched_(handle,n,A,lda,ipiv,c_loc(myInfo), & + batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDdgmm_assumed_rank(handle,side,m,n,AP,lda,x,incx,CP,ldc) - use iso_c_binding + function hipblasCgetrfBatched_rank_1(handle,n,A,lda,ipiv,myInfo,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdgmm_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrfBatched_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(c_int) :: m integer(c_int) :: n - real(c_double),target,dimension(..) :: AP + type(c_ptr), value :: A integer(c_int) :: lda - real(c_double),target,dimension(..) :: x - integer(c_int) :: incx - real(c_double),target,dimension(..) :: CP - integer(c_int) :: ldc + type(c_ptr) :: ipiv + integer(c_int),target,dimension(:) :: myInfo + integer(c_int) :: batchCount ! - hipblasDdgmm_assumed_rank = hipblasDdgmm_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx, & - c_loc(CP),ldc) + hipblasCgetrfBatched_rank_1 = hipblasCgetrfBatched_(handle,n,A,lda,ipiv,c_loc(myInfo), & + batchCount) end function -#else - function hipblasDdgmm_rank_0(handle,side,m,n,AP,lda,x,incx,CP,ldc) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZgetrfBatched_assumed_rank(handle,n,A,lda,ipiv,myInfo,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdgmm_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrfBatched_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(c_int) :: m integer(c_int) :: n - real(c_double),target :: AP + type(c_ptr), value :: A integer(c_int) :: lda - real(c_double),target :: x - integer(c_int) :: incx - real(c_double),target :: CP - integer(c_int) :: ldc + type(c_ptr) :: ipiv + integer(c_int),target,dimension(..) :: myInfo + integer(c_int) :: batchCount ! - hipblasDdgmm_rank_0 = hipblasDdgmm_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx,c_loc(CP),ldc) + hipblasZgetrfBatched_assumed_rank = hipblasZgetrfBatched_(handle,n,A,lda,ipiv,c_loc(myInfo), & + batchCount) end function - function hipblasDdgmm_rank_1(handle,side,m,n,AP,lda,x,incx,CP,ldc) - use iso_c_binding +#else + function hipblasZgetrfBatched_rank_0(handle,n,A,lda,ipiv,myInfo,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdgmm_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrfBatched_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(c_int) :: m integer(c_int) :: n - real(c_double),target,dimension(:) :: AP + type(c_ptr), value :: A integer(c_int) :: lda - real(c_double),target,dimension(:) :: x - integer(c_int) :: incx - real(c_double),target,dimension(:) :: CP - integer(c_int) :: ldc + type(c_ptr) :: ipiv + integer(c_int),target :: myInfo + integer(c_int) :: batchCount ! - hipblasDdgmm_rank_1 = hipblasDdgmm_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx,c_loc(CP),ldc) + hipblasZgetrfBatched_rank_0 = hipblasZgetrfBatched_(handle,n,A,lda,ipiv,c_loc(myInfo), & + batchCount) end function - function hipblasDdgmm_full_rank(handle,side,m,n,AP,lda,x,incx,CP,ldc) - use iso_c_binding + function hipblasZgetrfBatched_rank_1(handle,n,A,lda,ipiv,myInfo,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdgmm_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrfBatched_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(c_int) :: m integer(c_int) :: n - real(c_double),target,dimension(:,:) :: AP + type(c_ptr), value :: A integer(c_int) :: lda - real(c_double),target,dimension(:) :: x - integer(c_int) :: incx - real(c_double),target,dimension(:,:) :: CP - integer(c_int) :: ldc + type(c_ptr) :: ipiv + integer(c_int),target,dimension(:) :: myInfo + integer(c_int) :: batchCount ! - hipblasDdgmm_full_rank = hipblasDdgmm_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx, & - c_loc(CP),ldc) + hipblasZgetrfBatched_rank_1 = hipblasZgetrfBatched_(handle,n,A,lda,ipiv,c_loc(myInfo), & + batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCdgmm_assumed_rank(handle,side,m,n,AP,lda,x,incx,CP,ldc) - use iso_c_binding + function hipblasSgetrfStridedBatched_assumed_rank(handle,n,A,lda,strideA,ipiv,strideP,myInfo, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdgmm_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrfStridedBatched_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(c_int) :: m integer(c_int) :: n - complex(c_float_complex),target,dimension(..) :: AP + real(c_float),target,dimension(..) :: A integer(c_int) :: lda - complex(c_float_complex),target,dimension(..) :: x - integer(c_int) :: incx - complex(c_float_complex),target,dimension(..) :: CP - integer(c_int) :: ldc + integer(c_int64_t) :: strideA + integer(c_int),target,dimension(..) :: ipiv + integer(c_int64_t) :: strideP + integer(c_int),target,dimension(..) :: myInfo + integer(c_int) :: batchCount ! - hipblasCdgmm_assumed_rank = hipblasCdgmm_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx, & - c_loc(CP),ldc) + hipblasSgetrfStridedBatched_assumed_rank = hipblasSgetrfStridedBatched_(handle,n,c_loc(A), & + lda,strideA,c_loc(ipiv),strideP,c_loc(myInfo),batchCount) end function -#else - function hipblasCdgmm_rank_0(handle,side,m,n,AP,lda,x,incx,CP,ldc) - use iso_c_binding + function hipblasSgetrfStridedBatched_assumed_rank_devptr(handle,n,A,lda,strideA,ipiv,strideP, & + myInfo,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdgmm_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrfStridedBatched_assumed_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(c_int) :: m integer(c_int) :: n - complex(c_float_complex),target :: AP + real(c_float),target,dimension(..) :: A integer(c_int) :: lda - complex(c_float_complex),target :: x - integer(c_int) :: incx - complex(c_float_complex),target :: CP - integer(c_int) :: ldc + integer(c_int64_t) :: strideA + integer(c_int),target,dimension(..) :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount ! - hipblasCdgmm_rank_0 = hipblasCdgmm_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx,c_loc(CP),ldc) + hipblasSgetrfStridedBatched_assumed_rank_devptr = hipblasSgetrfStridedBatched_(handle,n, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) end function - function hipblasCdgmm_rank_1(handle,side,m,n,AP,lda,x,incx,CP,ldc) - use iso_c_binding +#else + function hipblasSgetrfStridedBatched_rank_0(handle,n,A,lda,strideA,ipiv,strideP,myInfo, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdgmm_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrfStridedBatched_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(c_int) :: m integer(c_int) :: n - complex(c_float_complex),target,dimension(:) :: AP + real(c_float),target :: A integer(c_int) :: lda - complex(c_float_complex),target,dimension(:) :: x - integer(c_int) :: incx - complex(c_float_complex),target,dimension(:) :: CP - integer(c_int) :: ldc + integer(c_int64_t) :: strideA + integer(c_int),target :: ipiv + integer(c_int64_t) :: strideP + integer(c_int),target :: myInfo + integer(c_int) :: batchCount ! - hipblasCdgmm_rank_1 = hipblasCdgmm_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx,c_loc(CP),ldc) + hipblasSgetrfStridedBatched_rank_0 = hipblasSgetrfStridedBatched_(handle,n,c_loc(A),lda, & + strideA,c_loc(ipiv),strideP,c_loc(myInfo),batchCount) end function - function hipblasCdgmm_full_rank(handle,side,m,n,AP,lda,x,incx,CP,ldc) - use iso_c_binding + function hipblasSgetrfStridedBatched_rank_0_devptr(handle,n,A,lda,strideA,ipiv,strideP,myInfo, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdgmm_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrfStridedBatched_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(c_int) :: m integer(c_int) :: n - complex(c_float_complex),target,dimension(:,:) :: AP + real(c_float),target :: A integer(c_int) :: lda - complex(c_float_complex),target,dimension(:) :: x - integer(c_int) :: incx - complex(c_float_complex),target,dimension(:,:) :: CP - integer(c_int) :: ldc + integer(c_int64_t) :: strideA + integer(c_int),target :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount ! - hipblasCdgmm_full_rank = hipblasCdgmm_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx, & - c_loc(CP),ldc) + hipblasSgetrfStridedBatched_rank_0_devptr = hipblasSgetrfStridedBatched_(handle,n,c_loc(A), & + lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZdgmm_assumed_rank(handle,side,m,n,AP,lda,x,incx,CP,ldc) - use iso_c_binding + function hipblasSgetrfStridedBatched_rank_1(handle,n,A,lda,strideA,ipiv,strideP,myInfo, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdgmm_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrfStridedBatched_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(c_int) :: m integer(c_int) :: n - complex(c_double_complex),target,dimension(..) :: AP + real(c_float),target,dimension(:) :: A integer(c_int) :: lda - complex(c_double_complex),target,dimension(..) :: x - integer(c_int) :: incx - complex(c_double_complex),target,dimension(..) :: CP - integer(c_int) :: ldc + integer(c_int64_t) :: strideA + integer(c_int),target,dimension(:) :: ipiv + integer(c_int64_t) :: strideP + integer(c_int),target,dimension(:) :: myInfo + integer(c_int) :: batchCount ! - hipblasZdgmm_assumed_rank = hipblasZdgmm_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx, & - c_loc(CP),ldc) + hipblasSgetrfStridedBatched_rank_1 = hipblasSgetrfStridedBatched_(handle,n,c_loc(A),lda, & + strideA,c_loc(ipiv),strideP,c_loc(myInfo),batchCount) end function -#else - function hipblasZdgmm_rank_0(handle,side,m,n,AP,lda,x,incx,CP,ldc) - use iso_c_binding + function hipblasSgetrfStridedBatched_rank_1_devptr(handle,n,A,lda,strideA,ipiv,strideP,myInfo, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdgmm_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrfStridedBatched_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(c_int) :: m integer(c_int) :: n - complex(c_double_complex),target :: AP + real(c_float),target,dimension(:) :: A integer(c_int) :: lda - complex(c_double_complex),target :: x - integer(c_int) :: incx - complex(c_double_complex),target :: CP - integer(c_int) :: ldc + integer(c_int64_t) :: strideA + integer(c_int),target,dimension(:) :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount ! - hipblasZdgmm_rank_0 = hipblasZdgmm_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx,c_loc(CP),ldc) + hipblasSgetrfStridedBatched_rank_1_devptr = hipblasSgetrfStridedBatched_(handle,n,c_loc(A), & + lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) end function - function hipblasZdgmm_rank_1(handle,side,m,n,AP,lda,x,incx,CP,ldc) - use iso_c_binding + function hipblasSgetrfStridedBatched_full_rank(handle,n,A,lda,strideA,ipiv,strideP,myInfo, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdgmm_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrfStridedBatched_full_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(c_int) :: m integer(c_int) :: n - complex(c_double_complex),target,dimension(:) :: AP + real(c_float),target,dimension(:,:) :: A integer(c_int) :: lda - complex(c_double_complex),target,dimension(:) :: x - integer(c_int) :: incx - complex(c_double_complex),target,dimension(:) :: CP - integer(c_int) :: ldc + integer(c_int64_t) :: strideA + integer(c_int),target,dimension(:) :: ipiv + integer(c_int64_t) :: strideP + integer(c_int),target,dimension(:) :: myInfo + integer(c_int) :: batchCount ! - hipblasZdgmm_rank_1 = hipblasZdgmm_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx,c_loc(CP),ldc) + hipblasSgetrfStridedBatched_full_rank = hipblasSgetrfStridedBatched_(handle,n,c_loc(A),lda, & + strideA,c_loc(ipiv),strideP,c_loc(myInfo),batchCount) end function - function hipblasZdgmm_full_rank(handle,side,m,n,AP,lda,x,incx,CP,ldc) - use iso_c_binding + function hipblasSgetrfStridedBatched_full_rank_devptr(handle,n,A,lda,strideA,ipiv,strideP, & + myInfo,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdgmm_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrfStridedBatched_full_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(c_int) :: m integer(c_int) :: n - complex(c_double_complex),target,dimension(:,:) :: AP + real(c_float),target,dimension(:,:) :: A integer(c_int) :: lda - complex(c_double_complex),target,dimension(:) :: x - integer(c_int) :: incx - complex(c_double_complex),target,dimension(:,:) :: CP - integer(c_int) :: ldc + integer(c_int64_t) :: strideA + integer(c_int),target,dimension(:) :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount ! - hipblasZdgmm_full_rank = hipblasZdgmm_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx, & - c_loc(CP),ldc) + hipblasSgetrfStridedBatched_full_rank_devptr = hipblasSgetrfStridedBatched_(handle,n, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasSdgmm_64_assumed_rank(handle,side,m,n,AP,lda,x,incx,CP,ldc) - use iso_c_binding + function hipblasSgetrfStridedBatched_strided_rank(handle,n,A,lda,strideA,ipiv,strideP,myInfo, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdgmm_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrfStridedBatched_strided_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(c_int64_t) :: m - integer(c_int64_t) :: n - real(c_float),target,dimension(..) :: AP - integer(c_int64_t) :: lda - real(c_float),target,dimension(..) :: x - integer(c_int64_t) :: incx - real(c_float),target,dimension(..) :: CP - integer(c_int64_t) :: ldc + integer(c_int) :: n + real(c_float),target,dimension(:,:,:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target,dimension(:,:) :: ipiv + integer(c_int64_t) :: strideP + integer(c_int),target,dimension(:) :: myInfo + integer(c_int) :: batchCount ! - hipblasSdgmm_64_assumed_rank = hipblasSdgmm_64_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx, & - c_loc(CP),ldc) + hipblasSgetrfStridedBatched_strided_rank = hipblasSgetrfStridedBatched_(handle,n,c_loc(A), & + lda,strideA,c_loc(ipiv),strideP,c_loc(myInfo),batchCount) end function -#else - function hipblasSdgmm_64_rank_0(handle,side,m,n,AP,lda,x,incx,CP,ldc) - use iso_c_binding + function hipblasSgetrfStridedBatched_strided_rank_devptr(handle,n,A,lda,strideA,ipiv,strideP, & + myInfo,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdgmm_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrfStridedBatched_strided_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(c_int64_t) :: m - integer(c_int64_t) :: n - real(c_float),target :: AP - integer(c_int64_t) :: lda - real(c_float),target :: x - integer(c_int64_t) :: incx - real(c_float),target :: CP - integer(c_int64_t) :: ldc + integer(c_int) :: n + real(c_float),target,dimension(:,:,:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target,dimension(:,:) :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount ! - hipblasSdgmm_64_rank_0 = hipblasSdgmm_64_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx, & - c_loc(CP),ldc) + hipblasSgetrfStridedBatched_strided_rank_devptr = hipblasSgetrfStridedBatched_(handle,n, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) end function - function hipblasSdgmm_64_rank_1(handle,side,m,n,AP,lda,x,incx,CP,ldc) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDgetrfStridedBatched_assumed_rank(handle,n,A,lda,strideA,ipiv,strideP,myInfo, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdgmm_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrfStridedBatched_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(c_int64_t) :: m - integer(c_int64_t) :: n - real(c_float),target,dimension(:) :: AP - integer(c_int64_t) :: lda - real(c_float),target,dimension(:) :: x - integer(c_int64_t) :: incx - real(c_float),target,dimension(:) :: CP - integer(c_int64_t) :: ldc + integer(c_int) :: n + real(c_double),target,dimension(..) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target,dimension(..) :: ipiv + integer(c_int64_t) :: strideP + integer(c_int),target,dimension(..) :: myInfo + integer(c_int) :: batchCount ! - hipblasSdgmm_64_rank_1 = hipblasSdgmm_64_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx, & - c_loc(CP),ldc) + hipblasDgetrfStridedBatched_assumed_rank = hipblasDgetrfStridedBatched_(handle,n,c_loc(A), & + lda,strideA,c_loc(ipiv),strideP,c_loc(myInfo),batchCount) end function - function hipblasSdgmm_64_full_rank(handle,side,m,n,AP,lda,x,incx,CP,ldc) - use iso_c_binding + function hipblasDgetrfStridedBatched_assumed_rank_devptr(handle,n,A,lda,strideA,ipiv,strideP, & + myInfo,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdgmm_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrfStridedBatched_assumed_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(c_int64_t) :: m - integer(c_int64_t) :: n - real(c_float),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - real(c_float),target,dimension(:) :: x - integer(c_int64_t) :: incx - real(c_float),target,dimension(:,:) :: CP - integer(c_int64_t) :: ldc + integer(c_int) :: n + real(c_double),target,dimension(..) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target,dimension(..) :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount ! - hipblasSdgmm_64_full_rank = hipblasSdgmm_64_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx, & - c_loc(CP),ldc) + hipblasDgetrfStridedBatched_assumed_rank_devptr = hipblasDgetrfStridedBatched_(handle,n, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDdgmm_64_assumed_rank(handle,side,m,n,AP,lda,x,incx,CP,ldc) - use iso_c_binding +#else + function hipblasDgetrfStridedBatched_rank_0(handle,n,A,lda,strideA,ipiv,strideP,myInfo, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdgmm_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrfStridedBatched_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(c_int64_t) :: m - integer(c_int64_t) :: n - real(c_double),target,dimension(..) :: AP - integer(c_int64_t) :: lda - real(c_double),target,dimension(..) :: x - integer(c_int64_t) :: incx - real(c_double),target,dimension(..) :: CP - integer(c_int64_t) :: ldc + integer(c_int) :: n + real(c_double),target :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target :: ipiv + integer(c_int64_t) :: strideP + integer(c_int),target :: myInfo + integer(c_int) :: batchCount ! - hipblasDdgmm_64_assumed_rank = hipblasDdgmm_64_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx, & - c_loc(CP),ldc) + hipblasDgetrfStridedBatched_rank_0 = hipblasDgetrfStridedBatched_(handle,n,c_loc(A),lda, & + strideA,c_loc(ipiv),strideP,c_loc(myInfo),batchCount) end function -#else - function hipblasDdgmm_64_rank_0(handle,side,m,n,AP,lda,x,incx,CP,ldc) - use iso_c_binding + function hipblasDgetrfStridedBatched_rank_0_devptr(handle,n,A,lda,strideA,ipiv,strideP,myInfo, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdgmm_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrfStridedBatched_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(c_int64_t) :: m - integer(c_int64_t) :: n - real(c_double),target :: AP - integer(c_int64_t) :: lda - real(c_double),target :: x - integer(c_int64_t) :: incx - real(c_double),target :: CP - integer(c_int64_t) :: ldc + integer(c_int) :: n + real(c_double),target :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount ! - hipblasDdgmm_64_rank_0 = hipblasDdgmm_64_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx, & - c_loc(CP),ldc) + hipblasDgetrfStridedBatched_rank_0_devptr = hipblasDgetrfStridedBatched_(handle,n,c_loc(A), & + lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) end function - function hipblasDdgmm_64_rank_1(handle,side,m,n,AP,lda,x,incx,CP,ldc) - use iso_c_binding + function hipblasDgetrfStridedBatched_rank_1(handle,n,A,lda,strideA,ipiv,strideP,myInfo, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdgmm_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrfStridedBatched_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(c_int64_t) :: m - integer(c_int64_t) :: n - real(c_double),target,dimension(:) :: AP - integer(c_int64_t) :: lda - real(c_double),target,dimension(:) :: x - integer(c_int64_t) :: incx - real(c_double),target,dimension(:) :: CP - integer(c_int64_t) :: ldc + integer(c_int) :: n + real(c_double),target,dimension(:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target,dimension(:) :: ipiv + integer(c_int64_t) :: strideP + integer(c_int),target,dimension(:) :: myInfo + integer(c_int) :: batchCount ! - hipblasDdgmm_64_rank_1 = hipblasDdgmm_64_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx, & - c_loc(CP),ldc) + hipblasDgetrfStridedBatched_rank_1 = hipblasDgetrfStridedBatched_(handle,n,c_loc(A),lda, & + strideA,c_loc(ipiv),strideP,c_loc(myInfo),batchCount) end function - function hipblasDdgmm_64_full_rank(handle,side,m,n,AP,lda,x,incx,CP,ldc) - use iso_c_binding + function hipblasDgetrfStridedBatched_rank_1_devptr(handle,n,A,lda,strideA,ipiv,strideP,myInfo, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdgmm_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrfStridedBatched_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(c_int64_t) :: m - integer(c_int64_t) :: n - real(c_double),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - real(c_double),target,dimension(:) :: x - integer(c_int64_t) :: incx - real(c_double),target,dimension(:,:) :: CP - integer(c_int64_t) :: ldc + integer(c_int) :: n + real(c_double),target,dimension(:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target,dimension(:) :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount ! - hipblasDdgmm_64_full_rank = hipblasDdgmm_64_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx, & - c_loc(CP),ldc) + hipblasDgetrfStridedBatched_rank_1_devptr = hipblasDgetrfStridedBatched_(handle,n,c_loc(A), & + lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCdgmm_64_assumed_rank(handle,side,m,n,AP,lda,x,incx,CP,ldc) - use iso_c_binding + function hipblasDgetrfStridedBatched_full_rank(handle,n,A,lda,strideA,ipiv,strideP,myInfo, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdgmm_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrfStridedBatched_full_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(c_int64_t) :: m - integer(c_int64_t) :: n - complex(c_float_complex),target,dimension(..) :: AP - integer(c_int64_t) :: lda - complex(c_float_complex),target,dimension(..) :: x - integer(c_int64_t) :: incx - complex(c_float_complex),target,dimension(..) :: CP - integer(c_int64_t) :: ldc + integer(c_int) :: n + real(c_double),target,dimension(:,:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target,dimension(:) :: ipiv + integer(c_int64_t) :: strideP + integer(c_int),target,dimension(:) :: myInfo + integer(c_int) :: batchCount ! - hipblasCdgmm_64_assumed_rank = hipblasCdgmm_64_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx, & - c_loc(CP),ldc) + hipblasDgetrfStridedBatched_full_rank = hipblasDgetrfStridedBatched_(handle,n,c_loc(A),lda, & + strideA,c_loc(ipiv),strideP,c_loc(myInfo),batchCount) end function -#else - function hipblasCdgmm_64_rank_0(handle,side,m,n,AP,lda,x,incx,CP,ldc) - use iso_c_binding + function hipblasDgetrfStridedBatched_full_rank_devptr(handle,n,A,lda,strideA,ipiv,strideP, & + myInfo,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdgmm_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrfStridedBatched_full_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(c_int64_t) :: m - integer(c_int64_t) :: n - complex(c_float_complex),target :: AP - integer(c_int64_t) :: lda - complex(c_float_complex),target :: x - integer(c_int64_t) :: incx - complex(c_float_complex),target :: CP - integer(c_int64_t) :: ldc + integer(c_int) :: n + real(c_double),target,dimension(:,:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target,dimension(:) :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount ! - hipblasCdgmm_64_rank_0 = hipblasCdgmm_64_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx, & - c_loc(CP),ldc) + hipblasDgetrfStridedBatched_full_rank_devptr = hipblasDgetrfStridedBatched_(handle,n, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) end function - function hipblasCdgmm_64_rank_1(handle,side,m,n,AP,lda,x,incx,CP,ldc) - use iso_c_binding + function hipblasDgetrfStridedBatched_strided_rank(handle,n,A,lda,strideA,ipiv,strideP,myInfo, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdgmm_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrfStridedBatched_strided_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(c_int64_t) :: m - integer(c_int64_t) :: n - complex(c_float_complex),target,dimension(:) :: AP - integer(c_int64_t) :: lda - complex(c_float_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx - complex(c_float_complex),target,dimension(:) :: CP - integer(c_int64_t) :: ldc + integer(c_int) :: n + real(c_double),target,dimension(:,:,:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target,dimension(:,:) :: ipiv + integer(c_int64_t) :: strideP + integer(c_int),target,dimension(:) :: myInfo + integer(c_int) :: batchCount ! - hipblasCdgmm_64_rank_1 = hipblasCdgmm_64_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx, & - c_loc(CP),ldc) + hipblasDgetrfStridedBatched_strided_rank = hipblasDgetrfStridedBatched_(handle,n,c_loc(A), & + lda,strideA,c_loc(ipiv),strideP,c_loc(myInfo),batchCount) end function - function hipblasCdgmm_64_full_rank(handle,side,m,n,AP,lda,x,incx,CP,ldc) - use iso_c_binding + function hipblasDgetrfStridedBatched_strided_rank_devptr(handle,n,A,lda,strideA,ipiv,strideP, & + myInfo,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdgmm_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrfStridedBatched_strided_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(c_int64_t) :: m - integer(c_int64_t) :: n - complex(c_float_complex),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - complex(c_float_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx - complex(c_float_complex),target,dimension(:,:) :: CP - integer(c_int64_t) :: ldc + integer(c_int) :: n + real(c_double),target,dimension(:,:,:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target,dimension(:,:) :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount ! - hipblasCdgmm_64_full_rank = hipblasCdgmm_64_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx, & - c_loc(CP),ldc) + hipblasDgetrfStridedBatched_strided_rank_devptr = hipblasDgetrfStridedBatched_(handle,n, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasZdgmm_64_assumed_rank(handle,side,m,n,AP,lda,x,incx,CP,ldc) - use iso_c_binding + function hipblasCgetrfStridedBatched_assumed_rank(handle,n,A,lda,strideA,ipiv,strideP,myInfo, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdgmm_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrfStridedBatched_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(c_int64_t) :: m - integer(c_int64_t) :: n - complex(c_double_complex),target,dimension(..) :: AP - integer(c_int64_t) :: lda - complex(c_double_complex),target,dimension(..) :: x - integer(c_int64_t) :: incx - complex(c_double_complex),target,dimension(..) :: CP - integer(c_int64_t) :: ldc + integer(c_int) :: n + complex(c_float_complex),target,dimension(..) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target,dimension(..) :: ipiv + integer(c_int64_t) :: strideP + integer(c_int),target,dimension(..) :: myInfo + integer(c_int) :: batchCount ! - hipblasZdgmm_64_assumed_rank = hipblasZdgmm_64_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx, & - c_loc(CP),ldc) + hipblasCgetrfStridedBatched_assumed_rank = hipblasCgetrfStridedBatched_(handle,n,c_loc(A), & + lda,strideA,c_loc(ipiv),strideP,c_loc(myInfo),batchCount) end function -#else - function hipblasZdgmm_64_rank_0(handle,side,m,n,AP,lda,x,incx,CP,ldc) - use iso_c_binding + function hipblasCgetrfStridedBatched_assumed_rank_devptr(handle,n,A,lda,strideA,ipiv,strideP, & + myInfo,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdgmm_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrfStridedBatched_assumed_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(c_int64_t) :: m - integer(c_int64_t) :: n - complex(c_double_complex),target :: AP - integer(c_int64_t) :: lda - complex(c_double_complex),target :: x - integer(c_int64_t) :: incx - complex(c_double_complex),target :: CP - integer(c_int64_t) :: ldc + integer(c_int) :: n + complex(c_float_complex),target,dimension(..) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target,dimension(..) :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount ! - hipblasZdgmm_64_rank_0 = hipblasZdgmm_64_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx, & - c_loc(CP),ldc) + hipblasCgetrfStridedBatched_assumed_rank_devptr = hipblasCgetrfStridedBatched_(handle,n, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) end function - function hipblasZdgmm_64_rank_1(handle,side,m,n,AP,lda,x,incx,CP,ldc) - use iso_c_binding +#else + function hipblasCgetrfStridedBatched_rank_0(handle,n,A,lda,strideA,ipiv,strideP,myInfo, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdgmm_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrfStridedBatched_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(c_int64_t) :: m - integer(c_int64_t) :: n - complex(c_double_complex),target,dimension(:) :: AP - integer(c_int64_t) :: lda - complex(c_double_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx - complex(c_double_complex),target,dimension(:) :: CP - integer(c_int64_t) :: ldc + integer(c_int) :: n + complex(c_float_complex),target :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target :: ipiv + integer(c_int64_t) :: strideP + integer(c_int),target :: myInfo + integer(c_int) :: batchCount ! - hipblasZdgmm_64_rank_1 = hipblasZdgmm_64_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx, & - c_loc(CP),ldc) + hipblasCgetrfStridedBatched_rank_0 = hipblasCgetrfStridedBatched_(handle,n,c_loc(A),lda, & + strideA,c_loc(ipiv),strideP,c_loc(myInfo),batchCount) end function - function hipblasZdgmm_64_full_rank(handle,side,m,n,AP,lda,x,incx,CP,ldc) - use iso_c_binding + function hipblasCgetrfStridedBatched_rank_0_devptr(handle,n,A,lda,strideA,ipiv,strideP,myInfo, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdgmm_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrfStridedBatched_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(c_int64_t) :: m - integer(c_int64_t) :: n - complex(c_double_complex),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - complex(c_double_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx - complex(c_double_complex),target,dimension(:,:) :: CP - integer(c_int64_t) :: ldc + integer(c_int) :: n + complex(c_float_complex),target :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount ! - hipblasZdgmm_64_full_rank = hipblasZdgmm_64_(handle,side,m,n,c_loc(AP),lda,c_loc(x),incx, & - c_loc(CP),ldc) + hipblasCgetrfStridedBatched_rank_0_devptr = hipblasCgetrfStridedBatched_(handle,n,c_loc(A), & + lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasSdgmmStridedBatched_assumed_rank(handle,side,m,n,AP,lda,strideA,x,incx, & - stridex,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasCgetrfStridedBatched_rank_1(handle,n,A,lda,strideA,ipiv,strideP,myInfo, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdgmmStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrfStridedBatched_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(c_int) :: m integer(c_int) :: n - real(c_float),target,dimension(..) :: AP + complex(c_float_complex),target,dimension(:) :: A integer(c_int) :: lda integer(c_int64_t) :: strideA - real(c_float),target,dimension(..) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - real(c_float),target,dimension(..) :: CP - integer(c_int) :: ldc - integer(c_int64_t) :: strideC + integer(c_int),target,dimension(:) :: ipiv + integer(c_int64_t) :: strideP + integer(c_int),target,dimension(:) :: myInfo integer(c_int) :: batchCount ! - hipblasSdgmmStridedBatched_assumed_rank = hipblasSdgmmStridedBatched_(handle,side,m,n, & - c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) + hipblasCgetrfStridedBatched_rank_1 = hipblasCgetrfStridedBatched_(handle,n,c_loc(A),lda, & + strideA,c_loc(ipiv),strideP,c_loc(myInfo),batchCount) end function -#else - function hipblasSdgmmStridedBatched_rank_0(handle,side,m,n,AP,lda,strideA,x,incx,stridex,CP, & - ldc,strideC,batchCount) - use iso_c_binding + function hipblasCgetrfStridedBatched_rank_1_devptr(handle,n,A,lda,strideA,ipiv,strideP,myInfo, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdgmmStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrfStridedBatched_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(c_int) :: m integer(c_int) :: n - real(c_float),target :: AP + complex(c_float_complex),target,dimension(:) :: A integer(c_int) :: lda integer(c_int64_t) :: strideA - real(c_float),target :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - real(c_float),target :: CP - integer(c_int) :: ldc - integer(c_int64_t) :: strideC + integer(c_int),target,dimension(:) :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr),value :: myInfo integer(c_int) :: batchCount ! - hipblasSdgmmStridedBatched_rank_0 = hipblasSdgmmStridedBatched_(handle,side,m,n,c_loc(AP), & - lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) + hipblasCgetrfStridedBatched_rank_1_devptr = hipblasCgetrfStridedBatched_(handle,n,c_loc(A), & + lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) end function - function hipblasSdgmmStridedBatched_rank_1(handle,side,m,n,AP,lda,strideA,x,incx,stridex,CP, & - ldc,strideC,batchCount) - use iso_c_binding + function hipblasCgetrfStridedBatched_full_rank(handle,n,A,lda,strideA,ipiv,strideP,myInfo, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdgmmStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrfStridedBatched_full_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(c_int) :: m integer(c_int) :: n - real(c_float),target,dimension(:) :: AP + complex(c_float_complex),target,dimension(:,:) :: A integer(c_int) :: lda integer(c_int64_t) :: strideA - real(c_float),target,dimension(:) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - real(c_float),target,dimension(:) :: CP - integer(c_int) :: ldc - integer(c_int64_t) :: strideC + integer(c_int),target,dimension(:) :: ipiv + integer(c_int64_t) :: strideP + integer(c_int),target,dimension(:) :: myInfo integer(c_int) :: batchCount ! - hipblasSdgmmStridedBatched_rank_1 = hipblasSdgmmStridedBatched_(handle,side,m,n,c_loc(AP), & - lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) + hipblasCgetrfStridedBatched_full_rank = hipblasCgetrfStridedBatched_(handle,n,c_loc(A),lda, & + strideA,c_loc(ipiv),strideP,c_loc(myInfo),batchCount) end function - function hipblasSdgmmStridedBatched_full_rank(handle,side,m,n,AP,lda,strideA,x,incx,stridex, & - CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasCgetrfStridedBatched_full_rank_devptr(handle,n,A,lda,strideA,ipiv,strideP, & + myInfo,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdgmmStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrfStridedBatched_full_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(c_int) :: m integer(c_int) :: n - real(c_float),target,dimension(:,:) :: AP + complex(c_float_complex),target,dimension(:,:) :: A integer(c_int) :: lda integer(c_int64_t) :: strideA - real(c_float),target,dimension(:) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - real(c_float),target,dimension(:,:) :: CP - integer(c_int) :: ldc - integer(c_int64_t) :: strideC + integer(c_int),target,dimension(:) :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr),value :: myInfo integer(c_int) :: batchCount ! - hipblasSdgmmStridedBatched_full_rank = hipblasSdgmmStridedBatched_(handle,side,m,n, & - c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) + hipblasCgetrfStridedBatched_full_rank_devptr = hipblasCgetrfStridedBatched_(handle,n, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDdgmmStridedBatched_assumed_rank(handle,side,m,n,AP,lda,strideA,x,incx, & - stridex,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasCgetrfStridedBatched_strided_rank(handle,n,A,lda,strideA,ipiv,strideP,myInfo, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdgmmStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrfStridedBatched_strided_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(c_int) :: m integer(c_int) :: n - real(c_double),target,dimension(..) :: AP + complex(c_float_complex),target,dimension(:,:,:) :: A integer(c_int) :: lda integer(c_int64_t) :: strideA - real(c_double),target,dimension(..) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - real(c_double),target,dimension(..) :: CP - integer(c_int) :: ldc - integer(c_int64_t) :: strideC + integer(c_int),target,dimension(:,:) :: ipiv + integer(c_int64_t) :: strideP + integer(c_int),target,dimension(:) :: myInfo integer(c_int) :: batchCount ! - hipblasDdgmmStridedBatched_assumed_rank = hipblasDdgmmStridedBatched_(handle,side,m,n, & - c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) + hipblasCgetrfStridedBatched_strided_rank = hipblasCgetrfStridedBatched_(handle,n,c_loc(A), & + lda,strideA,c_loc(ipiv),strideP,c_loc(myInfo),batchCount) end function -#else - function hipblasDdgmmStridedBatched_rank_0(handle,side,m,n,AP,lda,strideA,x,incx,stridex,CP, & - ldc,strideC,batchCount) - use iso_c_binding + function hipblasCgetrfStridedBatched_strided_rank_devptr(handle,n,A,lda,strideA,ipiv,strideP, & + myInfo,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdgmmStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrfStridedBatched_strided_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(c_int) :: m integer(c_int) :: n - real(c_double),target :: AP + complex(c_float_complex),target,dimension(:,:,:) :: A integer(c_int) :: lda integer(c_int64_t) :: strideA - real(c_double),target :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - real(c_double),target :: CP - integer(c_int) :: ldc - integer(c_int64_t) :: strideC + integer(c_int),target,dimension(:,:) :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr),value :: myInfo integer(c_int) :: batchCount ! - hipblasDdgmmStridedBatched_rank_0 = hipblasDdgmmStridedBatched_(handle,side,m,n,c_loc(AP), & - lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) + hipblasCgetrfStridedBatched_strided_rank_devptr = hipblasCgetrfStridedBatched_(handle,n, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) end function - function hipblasDdgmmStridedBatched_rank_1(handle,side,m,n,AP,lda,strideA,x,incx,stridex,CP, & - ldc,strideC,batchCount) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZgetrfStridedBatched_assumed_rank(handle,n,A,lda,strideA,ipiv,strideP,myInfo, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdgmmStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrfStridedBatched_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(c_int) :: m integer(c_int) :: n - real(c_double),target,dimension(:) :: AP + complex(c_double_complex),target,dimension(..) :: A integer(c_int) :: lda integer(c_int64_t) :: strideA - real(c_double),target,dimension(:) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - real(c_double),target,dimension(:) :: CP - integer(c_int) :: ldc - integer(c_int64_t) :: strideC + integer(c_int),target,dimension(..) :: ipiv + integer(c_int64_t) :: strideP + integer(c_int),target,dimension(..) :: myInfo integer(c_int) :: batchCount ! - hipblasDdgmmStridedBatched_rank_1 = hipblasDdgmmStridedBatched_(handle,side,m,n,c_loc(AP), & - lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) + hipblasZgetrfStridedBatched_assumed_rank = hipblasZgetrfStridedBatched_(handle,n,c_loc(A), & + lda,strideA,c_loc(ipiv),strideP,c_loc(myInfo),batchCount) end function - function hipblasDdgmmStridedBatched_full_rank(handle,side,m,n,AP,lda,strideA,x,incx,stridex, & - CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZgetrfStridedBatched_assumed_rank_devptr(handle,n,A,lda,strideA,ipiv,strideP, & + myInfo,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdgmmStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrfStridedBatched_assumed_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(c_int) :: m integer(c_int) :: n - real(c_double),target,dimension(:,:) :: AP + complex(c_double_complex),target,dimension(..) :: A integer(c_int) :: lda integer(c_int64_t) :: strideA - real(c_double),target,dimension(:) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - real(c_double),target,dimension(:,:) :: CP - integer(c_int) :: ldc - integer(c_int64_t) :: strideC + integer(c_int),target,dimension(..) :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr),value :: myInfo integer(c_int) :: batchCount ! - hipblasDdgmmStridedBatched_full_rank = hipblasDdgmmStridedBatched_(handle,side,m,n, & - c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) + hipblasZgetrfStridedBatched_assumed_rank_devptr = hipblasZgetrfStridedBatched_(handle,n, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCdgmmStridedBatched_assumed_rank(handle,side,m,n,AP,lda,strideA,x,incx, & - stridex,CP,ldc,strideC,batchCount) - use iso_c_binding +#else + function hipblasZgetrfStridedBatched_rank_0(handle,n,A,lda,strideA,ipiv,strideP,myInfo, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdgmmStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrfStridedBatched_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(c_int) :: m integer(c_int) :: n - complex(c_float_complex),target,dimension(..) :: AP + complex(c_double_complex),target :: A integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(..) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - complex(c_float_complex),target,dimension(..) :: CP - integer(c_int) :: ldc - integer(c_int64_t) :: strideC + integer(c_int),target :: ipiv + integer(c_int64_t) :: strideP + integer(c_int),target :: myInfo integer(c_int) :: batchCount ! - hipblasCdgmmStridedBatched_assumed_rank = hipblasCdgmmStridedBatched_(handle,side,m,n, & - c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) + hipblasZgetrfStridedBatched_rank_0 = hipblasZgetrfStridedBatched_(handle,n,c_loc(A),lda, & + strideA,c_loc(ipiv),strideP,c_loc(myInfo),batchCount) end function -#else - function hipblasCdgmmStridedBatched_rank_0(handle,side,m,n,AP,lda,strideA,x,incx,stridex,CP, & - ldc,strideC,batchCount) - use iso_c_binding + function hipblasZgetrfStridedBatched_rank_0_devptr(handle,n,A,lda,strideA,ipiv,strideP,myInfo, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdgmmStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrfStridedBatched_rank_0_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(c_int) :: m integer(c_int) :: n - complex(c_float_complex),target :: AP + complex(c_double_complex),target :: A integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - complex(c_float_complex),target :: CP - integer(c_int) :: ldc - integer(c_int64_t) :: strideC + integer(c_int),target :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr),value :: myInfo integer(c_int) :: batchCount ! - hipblasCdgmmStridedBatched_rank_0 = hipblasCdgmmStridedBatched_(handle,side,m,n,c_loc(AP), & - lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) + hipblasZgetrfStridedBatched_rank_0_devptr = hipblasZgetrfStridedBatched_(handle,n,c_loc(A), & + lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) end function - function hipblasCdgmmStridedBatched_rank_1(handle,side,m,n,AP,lda,strideA,x,incx,stridex,CP, & - ldc,strideC,batchCount) - use iso_c_binding + function hipblasZgetrfStridedBatched_rank_1(handle,n,A,lda,strideA,ipiv,strideP,myInfo, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdgmmStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrfStridedBatched_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(c_int) :: m integer(c_int) :: n - complex(c_float_complex),target,dimension(:) :: AP + complex(c_double_complex),target,dimension(:) :: A integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - complex(c_float_complex),target,dimension(:) :: CP - integer(c_int) :: ldc - integer(c_int64_t) :: strideC + integer(c_int),target,dimension(:) :: ipiv + integer(c_int64_t) :: strideP + integer(c_int),target,dimension(:) :: myInfo integer(c_int) :: batchCount ! - hipblasCdgmmStridedBatched_rank_1 = hipblasCdgmmStridedBatched_(handle,side,m,n,c_loc(AP), & - lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) + hipblasZgetrfStridedBatched_rank_1 = hipblasZgetrfStridedBatched_(handle,n,c_loc(A),lda, & + strideA,c_loc(ipiv),strideP,c_loc(myInfo),batchCount) end function - function hipblasCdgmmStridedBatched_full_rank(handle,side,m,n,AP,lda,strideA,x,incx,stridex, & - CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZgetrfStridedBatched_rank_1_devptr(handle,n,A,lda,strideA,ipiv,strideP,myInfo, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdgmmStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrfStridedBatched_rank_1_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(c_int) :: m integer(c_int) :: n - complex(c_float_complex),target,dimension(:,:) :: AP + complex(c_double_complex),target,dimension(:) :: A integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - complex(c_float_complex),target,dimension(:,:) :: CP - integer(c_int) :: ldc - integer(c_int64_t) :: strideC + integer(c_int),target,dimension(:) :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr),value :: myInfo integer(c_int) :: batchCount ! - hipblasCdgmmStridedBatched_full_rank = hipblasCdgmmStridedBatched_(handle,side,m,n, & - c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) + hipblasZgetrfStridedBatched_rank_1_devptr = hipblasZgetrfStridedBatched_(handle,n,c_loc(A), & + lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZdgmmStridedBatched_assumed_rank(handle,side,m,n,AP,lda,strideA,x,incx, & - stridex,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZgetrfStridedBatched_full_rank(handle,n,A,lda,strideA,ipiv,strideP,myInfo, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdgmmStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrfStridedBatched_full_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(c_int) :: m integer(c_int) :: n - complex(c_double_complex),target,dimension(..) :: AP + complex(c_double_complex),target,dimension(:,:) :: A integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(..) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - complex(c_double_complex),target,dimension(..) :: CP - integer(c_int) :: ldc - integer(c_int64_t) :: strideC + integer(c_int),target,dimension(:) :: ipiv + integer(c_int64_t) :: strideP + integer(c_int),target,dimension(:) :: myInfo integer(c_int) :: batchCount ! - hipblasZdgmmStridedBatched_assumed_rank = hipblasZdgmmStridedBatched_(handle,side,m,n, & - c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) + hipblasZgetrfStridedBatched_full_rank = hipblasZgetrfStridedBatched_(handle,n,c_loc(A),lda, & + strideA,c_loc(ipiv),strideP,c_loc(myInfo),batchCount) end function -#else - function hipblasZdgmmStridedBatched_rank_0(handle,side,m,n,AP,lda,strideA,x,incx,stridex,CP, & - ldc,strideC,batchCount) - use iso_c_binding + function hipblasZgetrfStridedBatched_full_rank_devptr(handle,n,A,lda,strideA,ipiv,strideP, & + myInfo,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdgmmStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrfStridedBatched_full_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(c_int) :: m integer(c_int) :: n - complex(c_double_complex),target :: AP + complex(c_double_complex),target,dimension(:,:) :: A integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - complex(c_double_complex),target :: CP - integer(c_int) :: ldc - integer(c_int64_t) :: strideC + integer(c_int),target,dimension(:) :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr),value :: myInfo integer(c_int) :: batchCount ! - hipblasZdgmmStridedBatched_rank_0 = hipblasZdgmmStridedBatched_(handle,side,m,n,c_loc(AP), & - lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) + hipblasZgetrfStridedBatched_full_rank_devptr = hipblasZgetrfStridedBatched_(handle,n, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) end function - function hipblasZdgmmStridedBatched_rank_1(handle,side,m,n,AP,lda,strideA,x,incx,stridex,CP, & - ldc,strideC,batchCount) - use iso_c_binding + function hipblasZgetrfStridedBatched_strided_rank(handle,n,A,lda,strideA,ipiv,strideP,myInfo, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdgmmStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrfStridedBatched_strided_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(c_int) :: m integer(c_int) :: n - complex(c_double_complex),target,dimension(:) :: AP + complex(c_double_complex),target,dimension(:,:,:) :: A integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - complex(c_double_complex),target,dimension(:) :: CP - integer(c_int) :: ldc - integer(c_int64_t) :: strideC + integer(c_int),target,dimension(:,:) :: ipiv + integer(c_int64_t) :: strideP + integer(c_int),target,dimension(:) :: myInfo integer(c_int) :: batchCount ! - hipblasZdgmmStridedBatched_rank_1 = hipblasZdgmmStridedBatched_(handle,side,m,n,c_loc(AP), & - lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) + hipblasZgetrfStridedBatched_strided_rank = hipblasZgetrfStridedBatched_(handle,n,c_loc(A), & + lda,strideA,c_loc(ipiv),strideP,c_loc(myInfo),batchCount) end function - function hipblasZdgmmStridedBatched_full_rank(handle,side,m,n,AP,lda,strideA,x,incx,stridex, & - CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZgetrfStridedBatched_strided_rank_devptr(handle,n,A,lda,strideA,ipiv,strideP, & + myInfo,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdgmmStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrfStridedBatched_strided_rank_devptr type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(c_int) :: m integer(c_int) :: n - complex(c_double_complex),target,dimension(:,:) :: AP + complex(c_double_complex),target,dimension(:,:,:) :: A integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:) :: x - integer(c_int) :: incx - integer(c_int64_t) :: stridex - complex(c_double_complex),target,dimension(:,:) :: CP - integer(c_int) :: ldc - integer(c_int64_t) :: strideC + integer(c_int),target,dimension(:,:) :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr),value :: myInfo integer(c_int) :: batchCount ! - hipblasZdgmmStridedBatched_full_rank = hipblasZdgmmStridedBatched_(handle,side,m,n, & - c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) + hipblasZgetrfStridedBatched_strided_rank_devptr = hipblasZgetrfStridedBatched_(handle,n, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasSdgmmStridedBatched_64_assumed_rank(handle,side,m,n,AP,lda,strideA,x,incx, & - stridex,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasSgetrs_assumed_rank(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdgmmStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrs_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(c_int64_t) :: m - integer(c_int64_t) :: n - real(c_float),target,dimension(..) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - real(c_float),target,dimension(..) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - real(c_float),target,dimension(..) :: CP - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + real(c_float),target,dimension(..) :: A + integer(c_int) :: lda + integer(c_int),target,dimension(..) :: ipiv + real(c_float),target,dimension(..) :: B + integer(c_int) :: ldb + integer(c_int),target :: myInfo ! - hipblasSdgmmStridedBatched_64_assumed_rank = hipblasSdgmmStridedBatched_64_(handle,side,m,n, & - c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) + hipblasSgetrs_assumed_rank = hipblasSgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv), & + c_loc(B),ldb,c_loc(myInfo)) end function #else - function hipblasSdgmmStridedBatched_64_rank_0(handle,side,m,n,AP,lda,strideA,x,incx,stridex, & - CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasSgetrs_rank_0(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdgmmStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrs_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(c_int64_t) :: m - integer(c_int64_t) :: n - real(c_float),target :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - real(c_float),target :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - real(c_float),target :: CP - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + real(c_float),target :: A + integer(c_int) :: lda + integer(c_int),target :: ipiv + real(c_float),target :: B + integer(c_int) :: ldb + integer(c_int),target :: myInfo ! - hipblasSdgmmStridedBatched_64_rank_0 = hipblasSdgmmStridedBatched_64_(handle,side,m,n, & - c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) + hipblasSgetrs_rank_0 = hipblasSgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv),c_loc(B), & + ldb,c_loc(myInfo)) end function - function hipblasSdgmmStridedBatched_64_rank_1(handle,side,m,n,AP,lda,strideA,x,incx,stridex, & - CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasSgetrs_rank_1(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdgmmStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrs_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(c_int64_t) :: m - integer(c_int64_t) :: n - real(c_float),target,dimension(:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - real(c_float),target,dimension(:) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - real(c_float),target,dimension(:) :: CP - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + real(c_float),target,dimension(:) :: A + integer(c_int) :: lda + integer(c_int),target,dimension(:) :: ipiv + real(c_float),target,dimension(:) :: B + integer(c_int) :: ldb + integer(c_int),target :: myInfo ! - hipblasSdgmmStridedBatched_64_rank_1 = hipblasSdgmmStridedBatched_64_(handle,side,m,n, & - c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) + hipblasSgetrs_rank_1 = hipblasSgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv),c_loc(B), & + ldb,c_loc(myInfo)) end function - function hipblasSdgmmStridedBatched_64_full_rank(handle,side,m,n,AP,lda,strideA,x,incx, & - stridex,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasSgetrs_full_rank(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdgmmStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrs_full_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(c_int64_t) :: m - integer(c_int64_t) :: n - real(c_float),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - real(c_float),target,dimension(:) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - real(c_float),target,dimension(:,:) :: CP - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + real(c_float),target,dimension(:,:) :: A + integer(c_int) :: lda + integer(c_int),target,dimension(:) :: ipiv + real(c_float),target,dimension(:,:) :: B + integer(c_int) :: ldb + integer(c_int),target :: myInfo ! - hipblasSdgmmStridedBatched_64_full_rank = hipblasSdgmmStridedBatched_64_(handle,side,m,n, & - c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) + hipblasSgetrs_full_rank = hipblasSgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv), & + c_loc(B),ldb,c_loc(myInfo)) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasDdgmmStridedBatched_64_assumed_rank(handle,side,m,n,AP,lda,strideA,x,incx, & - stridex,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasDgetrs_assumed_rank(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdgmmStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrs_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(c_int64_t) :: m - integer(c_int64_t) :: n - real(c_double),target,dimension(..) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - real(c_double),target,dimension(..) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - real(c_double),target,dimension(..) :: CP - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + real(c_double),target,dimension(..) :: A + integer(c_int) :: lda + integer(c_int),target,dimension(..) :: ipiv + real(c_double),target,dimension(..) :: B + integer(c_int) :: ldb + integer(c_int),target :: myInfo ! - hipblasDdgmmStridedBatched_64_assumed_rank = hipblasDdgmmStridedBatched_64_(handle,side,m,n, & - c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) + hipblasDgetrs_assumed_rank = hipblasDgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv), & + c_loc(B),ldb,c_loc(myInfo)) end function #else - function hipblasDdgmmStridedBatched_64_rank_0(handle,side,m,n,AP,lda,strideA,x,incx,stridex, & - CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasDgetrs_rank_0(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdgmmStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrs_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(c_int64_t) :: m - integer(c_int64_t) :: n - real(c_double),target :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - real(c_double),target :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - real(c_double),target :: CP - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + real(c_double),target :: A + integer(c_int) :: lda + integer(c_int),target :: ipiv + real(c_double),target :: B + integer(c_int) :: ldb + integer(c_int),target :: myInfo ! - hipblasDdgmmStridedBatched_64_rank_0 = hipblasDdgmmStridedBatched_64_(handle,side,m,n, & - c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) + hipblasDgetrs_rank_0 = hipblasDgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv),c_loc(B), & + ldb,c_loc(myInfo)) end function - function hipblasDdgmmStridedBatched_64_rank_1(handle,side,m,n,AP,lda,strideA,x,incx,stridex, & - CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasDgetrs_rank_1(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdgmmStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrs_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(c_int64_t) :: m - integer(c_int64_t) :: n - real(c_double),target,dimension(:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - real(c_double),target,dimension(:) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - real(c_double),target,dimension(:) :: CP - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + real(c_double),target,dimension(:) :: A + integer(c_int) :: lda + integer(c_int),target,dimension(:) :: ipiv + real(c_double),target,dimension(:) :: B + integer(c_int) :: ldb + integer(c_int),target :: myInfo ! - hipblasDdgmmStridedBatched_64_rank_1 = hipblasDdgmmStridedBatched_64_(handle,side,m,n, & - c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) + hipblasDgetrs_rank_1 = hipblasDgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv),c_loc(B), & + ldb,c_loc(myInfo)) end function - function hipblasDdgmmStridedBatched_64_full_rank(handle,side,m,n,AP,lda,strideA,x,incx, & - stridex,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasDgetrs_full_rank(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdgmmStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrs_full_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(c_int64_t) :: m - integer(c_int64_t) :: n - real(c_double),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - real(c_double),target,dimension(:) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - real(c_double),target,dimension(:,:) :: CP - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + real(c_double),target,dimension(:,:) :: A + integer(c_int) :: lda + integer(c_int),target,dimension(:) :: ipiv + real(c_double),target,dimension(:,:) :: B + integer(c_int) :: ldb + integer(c_int),target :: myInfo ! - hipblasDdgmmStridedBatched_64_full_rank = hipblasDdgmmStridedBatched_64_(handle,side,m,n, & - c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) + hipblasDgetrs_full_rank = hipblasDgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv), & + c_loc(B),ldb,c_loc(myInfo)) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCdgmmStridedBatched_64_assumed_rank(handle,side,m,n,AP,lda,strideA,x,incx, & - stridex,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasCgetrs_assumed_rank(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdgmmStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrs_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(c_int64_t) :: m - integer(c_int64_t) :: n - complex(c_float_complex),target,dimension(..) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(..) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - complex(c_float_complex),target,dimension(..) :: CP - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + complex(c_float_complex),target,dimension(..) :: A + integer(c_int) :: lda + integer(c_int),target,dimension(..) :: ipiv + complex(c_float_complex),target,dimension(..) :: B + integer(c_int) :: ldb + integer(c_int),target :: myInfo ! - hipblasCdgmmStridedBatched_64_assumed_rank = hipblasCdgmmStridedBatched_64_(handle,side,m,n, & - c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) + hipblasCgetrs_assumed_rank = hipblasCgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv), & + c_loc(B),ldb,c_loc(myInfo)) end function #else - function hipblasCdgmmStridedBatched_64_rank_0(handle,side,m,n,AP,lda,strideA,x,incx,stridex, & - CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasCgetrs_rank_0(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdgmmStridedBatched_64_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrs_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(c_int64_t) :: m - integer(c_int64_t) :: n - complex(c_float_complex),target :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - complex(c_float_complex),target :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - complex(c_float_complex),target :: CP - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + complex(c_float_complex),target :: A + integer(c_int) :: lda + integer(c_int),target :: ipiv + complex(c_float_complex),target :: B + integer(c_int) :: ldb + integer(c_int),target :: myInfo ! - hipblasCdgmmStridedBatched_64_rank_0 = hipblasCdgmmStridedBatched_64_(handle,side,m,n, & - c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) + hipblasCgetrs_rank_0 = hipblasCgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv),c_loc(B), & + ldb,c_loc(myInfo)) end function - function hipblasCdgmmStridedBatched_64_rank_1(handle,side,m,n,AP,lda,strideA,x,incx,stridex, & - CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasCgetrs_rank_1(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdgmmStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrs_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(c_int64_t) :: m - integer(c_int64_t) :: n - complex(c_float_complex),target,dimension(:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - complex(c_float_complex),target,dimension(:) :: CP - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + complex(c_float_complex),target,dimension(:) :: A + integer(c_int) :: lda + integer(c_int),target,dimension(:) :: ipiv + complex(c_float_complex),target,dimension(:) :: B + integer(c_int) :: ldb + integer(c_int),target :: myInfo ! - hipblasCdgmmStridedBatched_64_rank_1 = hipblasCdgmmStridedBatched_64_(handle,side,m,n, & - c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) + hipblasCgetrs_rank_1 = hipblasCgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv),c_loc(B), & + ldb,c_loc(myInfo)) end function - function hipblasCdgmmStridedBatched_64_full_rank(handle,side,m,n,AP,lda,strideA,x,incx, & - stridex,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasCgetrs_full_rank(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdgmmStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrs_full_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(c_int64_t) :: m - integer(c_int64_t) :: n - complex(c_float_complex),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - complex(c_float_complex),target,dimension(:,:) :: CP - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + complex(c_float_complex),target,dimension(:,:) :: A + integer(c_int) :: lda + integer(c_int),target,dimension(:) :: ipiv + complex(c_float_complex),target,dimension(:,:) :: B + integer(c_int) :: ldb + integer(c_int),target :: myInfo ! - hipblasCdgmmStridedBatched_64_full_rank = hipblasCdgmmStridedBatched_64_(handle,side,m,n, & - c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) + hipblasCgetrs_full_rank = hipblasCgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv), & + c_loc(B),ldb,c_loc(myInfo)) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasZdgmmStridedBatched_64_assumed_rank(handle,side,m,n,AP,lda,strideA,x,incx, & - stridex,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZgetrs_assumed_rank(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdgmmStridedBatched_64_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrs_assumed_rank type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(c_int64_t) :: m - integer(c_int64_t) :: n - complex(c_double_complex),target,dimension(..) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(..) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - complex(c_double_complex),target,dimension(..) :: CP - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + complex(c_double_complex),target,dimension(..) :: A + integer(c_int) :: lda + integer(c_int),target,dimension(..) :: ipiv + complex(c_double_complex),target,dimension(..) :: B + integer(c_int) :: ldb + integer(c_int),target :: myInfo ! - hipblasZdgmmStridedBatched_64_assumed_rank = hipblasZdgmmStridedBatched_64_(handle,side,m,n, & - c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) + hipblasZgetrs_assumed_rank = hipblasZgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv), & + c_loc(B),ldb,c_loc(myInfo)) end function #else - function hipblasZdgmmStridedBatched_64_rank_0(handle,side,m,n,AP,lda,strideA,x,incx,stridex, & - CP,ldc,strideC,batchCount) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdgmmStridedBatched_64_rank_0 - type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(c_int64_t) :: m - integer(c_int64_t) :: n - complex(c_double_complex),target :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - complex(c_double_complex),target :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - complex(c_double_complex),target :: CP - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount - ! - hipblasZdgmmStridedBatched_64_rank_0 = hipblasZdgmmStridedBatched_64_(handle,side,m,n, & - c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) - end function - - function hipblasZdgmmStridedBatched_64_rank_1(handle,side,m,n,AP,lda,strideA,x,incx,stridex, & - CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZgetrs_rank_0(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdgmmStridedBatched_64_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrs_rank_0 type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(c_int64_t) :: m - integer(c_int64_t) :: n - complex(c_double_complex),target,dimension(:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - complex(c_double_complex),target,dimension(:) :: CP - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + complex(c_double_complex),target :: A + integer(c_int) :: lda + integer(c_int),target :: ipiv + complex(c_double_complex),target :: B + integer(c_int) :: ldb + integer(c_int),target :: myInfo ! - hipblasZdgmmStridedBatched_64_rank_1 = hipblasZdgmmStridedBatched_64_(handle,side,m,n, & - c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) + hipblasZgetrs_rank_0 = hipblasZgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv),c_loc(B), & + ldb,c_loc(myInfo)) end function - function hipblasZdgmmStridedBatched_64_full_rank(handle,side,m,n,AP,lda,strideA,x,incx, & - stridex,CP,ldc,strideC,batchCount) - use iso_c_binding + function hipblasZgetrs_rank_1(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdgmmStridedBatched_64_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrs_rank_1 type(c_ptr), value :: handle - integer(kind(HIPBLAS_SIDE_LEFT)) :: side - integer(c_int64_t) :: m - integer(c_int64_t) :: n - complex(c_double_complex),target,dimension(:,:) :: AP - integer(c_int64_t) :: lda - integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:) :: x - integer(c_int64_t) :: incx - integer(c_int64_t) :: stridex - complex(c_double_complex),target,dimension(:,:) :: CP - integer(c_int64_t) :: ldc - integer(c_int64_t) :: strideC - integer(c_int64_t) :: batchCount + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + complex(c_double_complex),target,dimension(:) :: A + integer(c_int) :: lda + integer(c_int),target,dimension(:) :: ipiv + complex(c_double_complex),target,dimension(:) :: B + integer(c_int) :: ldb + integer(c_int),target :: myInfo ! - hipblasZdgmmStridedBatched_64_full_rank = hipblasZdgmmStridedBatched_64_(handle,side,m,n, & - c_loc(AP),lda,strideA,c_loc(x),incx,stridex,c_loc(CP),ldc,strideC,batchCount) + hipblasZgetrs_rank_1 = hipblasZgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv),c_loc(B), & + ldb,c_loc(myInfo)) + end function + + function hipblasZgetrs_full_rank(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrs_full_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + complex(c_double_complex),target,dimension(:,:) :: A + integer(c_int) :: lda + integer(c_int),target,dimension(:) :: ipiv + complex(c_double_complex),target,dimension(:,:) :: B + integer(c_int) :: ldb + integer(c_int),target :: myInfo + ! + hipblasZgetrs_full_rank = hipblasZgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv), & + c_loc(B),ldb,c_loc(myInfo)) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasSgetrf_assumed_rank(handle,n,A,lda,ipiv,myInfo) - use iso_c_binding + function hipblasSgetrsStridedBatched_assumed_rank(handle,trans,n,nrhs,A,lda,strideA,ipiv, & + strideP,B,ldb,strideB,myInfo,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrf_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrsStridedBatched_assumed_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans integer(c_int) :: n + integer(c_int) :: nrhs real(c_float),target,dimension(..) :: A integer(c_int) :: lda + integer(c_int64_t) :: strideA integer(c_int),target,dimension(..) :: ipiv - type(c_ptr) :: myInfo + integer(c_int64_t) :: strideP + real(c_float),target,dimension(..) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int),target :: myInfo + integer(c_int) :: batchCount ! - hipblasSgetrf_assumed_rank = hipblasSgetrf_(handle,n,c_loc(A),lda,c_loc(ipiv),myInfo) + hipblasSgetrsStridedBatched_assumed_rank = hipblasSgetrsStridedBatched_(handle,trans,n,nrhs, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,c_loc(myInfo),batchCount) end function #else - function hipblasSgetrf_rank_0(handle,n,A,lda,ipiv,myInfo) - use iso_c_binding + function hipblasSgetrsStridedBatched_rank_0(handle,trans,n,nrhs,A,lda,strideA,ipiv,strideP,B, & + ldb,strideB,myInfo,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrf_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrsStridedBatched_rank_0 type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans integer(c_int) :: n + integer(c_int) :: nrhs real(c_float),target :: A integer(c_int) :: lda + integer(c_int64_t) :: strideA integer(c_int),target :: ipiv - type(c_ptr) :: myInfo + integer(c_int64_t) :: strideP + real(c_float),target :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int),target :: myInfo + integer(c_int) :: batchCount ! - hipblasSgetrf_rank_0 = hipblasSgetrf_(handle,n,c_loc(A),lda,c_loc(ipiv),myInfo) + hipblasSgetrsStridedBatched_rank_0 = hipblasSgetrsStridedBatched_(handle,trans,n,nrhs, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,c_loc(myInfo),batchCount) end function - function hipblasSgetrf_rank_1(handle,n,A,lda,ipiv,myInfo) - use iso_c_binding + function hipblasSgetrsStridedBatched_rank_1(handle,trans,n,nrhs,A,lda,strideA,ipiv,strideP,B, & + ldb,strideB,myInfo,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrf_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrsStridedBatched_rank_1 type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans integer(c_int) :: n + integer(c_int) :: nrhs real(c_float),target,dimension(:) :: A integer(c_int) :: lda + integer(c_int64_t) :: strideA integer(c_int),target,dimension(:) :: ipiv - type(c_ptr) :: myInfo + integer(c_int64_t) :: strideP + real(c_float),target,dimension(:) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int),target :: myInfo + integer(c_int) :: batchCount ! - hipblasSgetrf_rank_1 = hipblasSgetrf_(handle,n,c_loc(A),lda,c_loc(ipiv),myInfo) + hipblasSgetrsStridedBatched_rank_1 = hipblasSgetrsStridedBatched_(handle,trans,n,nrhs, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,c_loc(myInfo),batchCount) end function - function hipblasSgetrf_full_rank(handle,n,A,lda,ipiv,myInfo) - use iso_c_binding + function hipblasSgetrsStridedBatched_full_rank(handle,trans,n,nrhs,A,lda,strideA,ipiv,strideP, & + B,ldb,strideB,myInfo,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrf_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrsStridedBatched_full_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans integer(c_int) :: n + integer(c_int) :: nrhs real(c_float),target,dimension(:,:) :: A integer(c_int) :: lda + integer(c_int64_t) :: strideA integer(c_int),target,dimension(:) :: ipiv - type(c_ptr) :: myInfo + integer(c_int64_t) :: strideP + real(c_float),target,dimension(:,:) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int),target :: myInfo + integer(c_int) :: batchCount + ! + hipblasSgetrsStridedBatched_full_rank = hipblasSgetrsStridedBatched_(handle,trans,n,nrhs, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,c_loc(myInfo),batchCount) + end function + + function hipblasSgetrsStridedBatched_strided_rank(handle,trans,n,nrhs,A,lda,strideA,ipiv, & + strideP,B,ldb,strideB,myInfo,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrsStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + real(c_float),target,dimension(:,:,:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target,dimension(:,:) :: ipiv + integer(c_int64_t) :: strideP + real(c_float),target,dimension(:,:,:) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int),target :: myInfo + integer(c_int) :: batchCount ! - hipblasSgetrf_full_rank = hipblasSgetrf_(handle,n,c_loc(A),lda,c_loc(ipiv),myInfo) + hipblasSgetrsStridedBatched_strided_rank = hipblasSgetrsStridedBatched_(handle,trans,n,nrhs, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,c_loc(myInfo),batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasDgetrf_assumed_rank(handle,n,A,lda,ipiv,myInfo) - use iso_c_binding + function hipblasDgetrsStridedBatched_assumed_rank(handle,trans,n,nrhs,A,lda,strideA,ipiv, & + strideP,B,ldb,strideB,myInfo,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrf_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrsStridedBatched_assumed_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans integer(c_int) :: n + integer(c_int) :: nrhs real(c_double),target,dimension(..) :: A integer(c_int) :: lda + integer(c_int64_t) :: strideA integer(c_int),target,dimension(..) :: ipiv - type(c_ptr) :: myInfo + integer(c_int64_t) :: strideP + real(c_double),target,dimension(..) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int),target :: myInfo + integer(c_int) :: batchCount ! - hipblasDgetrf_assumed_rank = hipblasDgetrf_(handle,n,c_loc(A),lda,c_loc(ipiv),myInfo) + hipblasDgetrsStridedBatched_assumed_rank = hipblasDgetrsStridedBatched_(handle,trans,n,nrhs, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,c_loc(myInfo),batchCount) end function #else - function hipblasDgetrf_rank_0(handle,n,A,lda,ipiv,myInfo) - use iso_c_binding + function hipblasDgetrsStridedBatched_rank_0(handle,trans,n,nrhs,A,lda,strideA,ipiv,strideP,B, & + ldb,strideB,myInfo,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrf_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrsStridedBatched_rank_0 type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans integer(c_int) :: n + integer(c_int) :: nrhs real(c_double),target :: A integer(c_int) :: lda + integer(c_int64_t) :: strideA integer(c_int),target :: ipiv - type(c_ptr) :: myInfo + integer(c_int64_t) :: strideP + real(c_double),target :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int),target :: myInfo + integer(c_int) :: batchCount ! - hipblasDgetrf_rank_0 = hipblasDgetrf_(handle,n,c_loc(A),lda,c_loc(ipiv),myInfo) + hipblasDgetrsStridedBatched_rank_0 = hipblasDgetrsStridedBatched_(handle,trans,n,nrhs, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,c_loc(myInfo),batchCount) end function - function hipblasDgetrf_rank_1(handle,n,A,lda,ipiv,myInfo) - use iso_c_binding + function hipblasDgetrsStridedBatched_rank_1(handle,trans,n,nrhs,A,lda,strideA,ipiv,strideP,B, & + ldb,strideB,myInfo,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrf_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrsStridedBatched_rank_1 type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans integer(c_int) :: n + integer(c_int) :: nrhs real(c_double),target,dimension(:) :: A integer(c_int) :: lda + integer(c_int64_t) :: strideA integer(c_int),target,dimension(:) :: ipiv - type(c_ptr) :: myInfo + integer(c_int64_t) :: strideP + real(c_double),target,dimension(:) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int),target :: myInfo + integer(c_int) :: batchCount ! - hipblasDgetrf_rank_1 = hipblasDgetrf_(handle,n,c_loc(A),lda,c_loc(ipiv),myInfo) + hipblasDgetrsStridedBatched_rank_1 = hipblasDgetrsStridedBatched_(handle,trans,n,nrhs, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,c_loc(myInfo),batchCount) end function - function hipblasDgetrf_full_rank(handle,n,A,lda,ipiv,myInfo) - use iso_c_binding + function hipblasDgetrsStridedBatched_full_rank(handle,trans,n,nrhs,A,lda,strideA,ipiv,strideP, & + B,ldb,strideB,myInfo,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrf_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrsStridedBatched_full_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans integer(c_int) :: n + integer(c_int) :: nrhs real(c_double),target,dimension(:,:) :: A integer(c_int) :: lda + integer(c_int64_t) :: strideA integer(c_int),target,dimension(:) :: ipiv - type(c_ptr) :: myInfo + integer(c_int64_t) :: strideP + real(c_double),target,dimension(:,:) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int),target :: myInfo + integer(c_int) :: batchCount + ! + hipblasDgetrsStridedBatched_full_rank = hipblasDgetrsStridedBatched_(handle,trans,n,nrhs, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,c_loc(myInfo),batchCount) + end function + + function hipblasDgetrsStridedBatched_strided_rank(handle,trans,n,nrhs,A,lda,strideA,ipiv, & + strideP,B,ldb,strideB,myInfo,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrsStridedBatched_strided_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + real(c_double),target,dimension(:,:,:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target,dimension(:,:) :: ipiv + integer(c_int64_t) :: strideP + real(c_double),target,dimension(:,:,:) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int),target :: myInfo + integer(c_int) :: batchCount ! - hipblasDgetrf_full_rank = hipblasDgetrf_(handle,n,c_loc(A),lda,c_loc(ipiv),myInfo) + hipblasDgetrsStridedBatched_strided_rank = hipblasDgetrsStridedBatched_(handle,trans,n,nrhs, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,c_loc(myInfo),batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCgetrf_assumed_rank(handle,n,A,lda,ipiv,myInfo) - use iso_c_binding + function hipblasCgetrsStridedBatched_assumed_rank(handle,trans,n,nrhs,A,lda,strideA,ipiv, & + strideP,B,ldb,strideB,myInfo,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrf_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrsStridedBatched_assumed_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans integer(c_int) :: n + integer(c_int) :: nrhs complex(c_float_complex),target,dimension(..) :: A integer(c_int) :: lda + integer(c_int64_t) :: strideA integer(c_int),target,dimension(..) :: ipiv - type(c_ptr) :: myInfo + integer(c_int64_t) :: strideP + complex(c_float_complex),target,dimension(..) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int),target :: myInfo + integer(c_int) :: batchCount ! - hipblasCgetrf_assumed_rank = hipblasCgetrf_(handle,n,c_loc(A),lda,c_loc(ipiv),myInfo) + hipblasCgetrsStridedBatched_assumed_rank = hipblasCgetrsStridedBatched_(handle,trans,n,nrhs, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,c_loc(myInfo),batchCount) end function #else - function hipblasCgetrf_rank_0(handle,n,A,lda,ipiv,myInfo) - use iso_c_binding + function hipblasCgetrsStridedBatched_rank_0(handle,trans,n,nrhs,A,lda,strideA,ipiv,strideP,B, & + ldb,strideB,myInfo,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrf_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrsStridedBatched_rank_0 type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans integer(c_int) :: n + integer(c_int) :: nrhs complex(c_float_complex),target :: A integer(c_int) :: lda + integer(c_int64_t) :: strideA integer(c_int),target :: ipiv - type(c_ptr) :: myInfo + integer(c_int64_t) :: strideP + complex(c_float_complex),target :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int),target :: myInfo + integer(c_int) :: batchCount ! - hipblasCgetrf_rank_0 = hipblasCgetrf_(handle,n,c_loc(A),lda,c_loc(ipiv),myInfo) + hipblasCgetrsStridedBatched_rank_0 = hipblasCgetrsStridedBatched_(handle,trans,n,nrhs, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,c_loc(myInfo),batchCount) end function - function hipblasCgetrf_rank_1(handle,n,A,lda,ipiv,myInfo) - use iso_c_binding + function hipblasCgetrsStridedBatched_rank_1(handle,trans,n,nrhs,A,lda,strideA,ipiv,strideP,B, & + ldb,strideB,myInfo,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrf_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrsStridedBatched_rank_1 type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans integer(c_int) :: n + integer(c_int) :: nrhs complex(c_float_complex),target,dimension(:) :: A integer(c_int) :: lda + integer(c_int64_t) :: strideA integer(c_int),target,dimension(:) :: ipiv - type(c_ptr) :: myInfo + integer(c_int64_t) :: strideP + complex(c_float_complex),target,dimension(:) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int),target :: myInfo + integer(c_int) :: batchCount ! - hipblasCgetrf_rank_1 = hipblasCgetrf_(handle,n,c_loc(A),lda,c_loc(ipiv),myInfo) + hipblasCgetrsStridedBatched_rank_1 = hipblasCgetrsStridedBatched_(handle,trans,n,nrhs, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,c_loc(myInfo),batchCount) end function - function hipblasCgetrf_full_rank(handle,n,A,lda,ipiv,myInfo) - use iso_c_binding + function hipblasCgetrsStridedBatched_full_rank(handle,trans,n,nrhs,A,lda,strideA,ipiv,strideP, & + B,ldb,strideB,myInfo,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrf_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrsStridedBatched_full_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans integer(c_int) :: n + integer(c_int) :: nrhs complex(c_float_complex),target,dimension(:,:) :: A integer(c_int) :: lda + integer(c_int64_t) :: strideA integer(c_int),target,dimension(:) :: ipiv - type(c_ptr) :: myInfo - ! - hipblasCgetrf_full_rank = hipblasCgetrf_(handle,n,c_loc(A),lda,c_loc(ipiv),myInfo) - end function - -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZgetrf_assumed_rank(handle,n,A,lda,ipiv,myInfo) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrf_assumed_rank - type(c_ptr), value :: handle - integer(c_int) :: n - complex(c_double_complex),target,dimension(..) :: A - integer(c_int) :: lda - integer(c_int),target,dimension(..) :: ipiv - type(c_ptr) :: myInfo - ! - hipblasZgetrf_assumed_rank = hipblasZgetrf_(handle,n,c_loc(A),lda,c_loc(ipiv),myInfo) - end function - -#else - function hipblasZgetrf_rank_0(handle,n,A,lda,ipiv,myInfo) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrf_rank_0 - type(c_ptr), value :: handle - integer(c_int) :: n - complex(c_double_complex),target :: A - integer(c_int) :: lda - integer(c_int),target :: ipiv - type(c_ptr) :: myInfo - ! - hipblasZgetrf_rank_0 = hipblasZgetrf_(handle,n,c_loc(A),lda,c_loc(ipiv),myInfo) - end function - - function hipblasZgetrf_rank_1(handle,n,A,lda,ipiv,myInfo) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrf_rank_1 - type(c_ptr), value :: handle - integer(c_int) :: n - complex(c_double_complex),target,dimension(:) :: A - integer(c_int) :: lda - integer(c_int),target,dimension(:) :: ipiv - type(c_ptr) :: myInfo + integer(c_int64_t) :: strideP + complex(c_float_complex),target,dimension(:,:) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int),target :: myInfo + integer(c_int) :: batchCount ! - hipblasZgetrf_rank_1 = hipblasZgetrf_(handle,n,c_loc(A),lda,c_loc(ipiv),myInfo) + hipblasCgetrsStridedBatched_full_rank = hipblasCgetrsStridedBatched_(handle,trans,n,nrhs, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,c_loc(myInfo),batchCount) end function - function hipblasZgetrf_full_rank(handle,n,A,lda,ipiv,myInfo) - use iso_c_binding + function hipblasCgetrsStridedBatched_strided_rank(handle,trans,n,nrhs,A,lda,strideA,ipiv, & + strideP,B,ldb,strideB,myInfo,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrf_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrsStridedBatched_strided_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans integer(c_int) :: n - complex(c_double_complex),target,dimension(:,:) :: A + integer(c_int) :: nrhs + complex(c_float_complex),target,dimension(:,:,:) :: A integer(c_int) :: lda - integer(c_int),target,dimension(:) :: ipiv - type(c_ptr) :: myInfo + integer(c_int64_t) :: strideA + integer(c_int),target,dimension(:,:) :: ipiv + integer(c_int64_t) :: strideP + complex(c_float_complex),target,dimension(:,:,:) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int),target :: myInfo + integer(c_int) :: batchCount ! - hipblasZgetrf_full_rank = hipblasZgetrf_(handle,n,c_loc(A),lda,c_loc(ipiv),myInfo) + hipblasCgetrsStridedBatched_strided_rank = hipblasCgetrsStridedBatched_(handle,trans,n,nrhs, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,c_loc(myInfo),batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasSgetrfStridedBatched_assumed_rank(handle,n,A,lda,strideA,ipiv,strideP,myInfo, & - batchCount) - use iso_c_binding + function hipblasZgetrsStridedBatched_assumed_rank(handle,trans,n,nrhs,A,lda,strideA,ipiv, & + strideP,B,ldb,strideB,myInfo,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrfStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrsStridedBatched_assumed_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans integer(c_int) :: n - real(c_float),target,dimension(..) :: A + integer(c_int) :: nrhs + complex(c_double_complex),target,dimension(..) :: A integer(c_int) :: lda integer(c_int64_t) :: strideA integer(c_int),target,dimension(..) :: ipiv integer(c_int64_t) :: strideP - type(c_ptr) :: myInfo + complex(c_double_complex),target,dimension(..) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int),target :: myInfo integer(c_int) :: batchCount ! - hipblasSgetrfStridedBatched_assumed_rank = hipblasSgetrfStridedBatched_(handle,n,c_loc(A), & - lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) + hipblasZgetrsStridedBatched_assumed_rank = hipblasZgetrsStridedBatched_(handle,trans,n,nrhs, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,c_loc(myInfo),batchCount) end function #else - function hipblasSgetrfStridedBatched_rank_0(handle,n,A,lda,strideA,ipiv,strideP,myInfo, & - batchCount) - use iso_c_binding + function hipblasZgetrsStridedBatched_rank_0(handle,trans,n,nrhs,A,lda,strideA,ipiv,strideP,B, & + ldb,strideB,myInfo,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrfStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrsStridedBatched_rank_0 type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans integer(c_int) :: n - real(c_float),target :: A + integer(c_int) :: nrhs + complex(c_double_complex),target :: A integer(c_int) :: lda integer(c_int64_t) :: strideA integer(c_int),target :: ipiv integer(c_int64_t) :: strideP - type(c_ptr) :: myInfo + complex(c_double_complex),target :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int),target :: myInfo integer(c_int) :: batchCount ! - hipblasSgetrfStridedBatched_rank_0 = hipblasSgetrfStridedBatched_(handle,n,c_loc(A),lda, & - strideA,c_loc(ipiv),strideP,myInfo,batchCount) + hipblasZgetrsStridedBatched_rank_0 = hipblasZgetrsStridedBatched_(handle,trans,n,nrhs, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,c_loc(myInfo),batchCount) end function - function hipblasSgetrfStridedBatched_rank_1(handle,n,A,lda,strideA,ipiv,strideP,myInfo, & - batchCount) - use iso_c_binding + function hipblasZgetrsStridedBatched_rank_1(handle,trans,n,nrhs,A,lda,strideA,ipiv,strideP,B, & + ldb,strideB,myInfo,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrfStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrsStridedBatched_rank_1 type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans integer(c_int) :: n - real(c_float),target,dimension(:) :: A + integer(c_int) :: nrhs + complex(c_double_complex),target,dimension(:) :: A integer(c_int) :: lda integer(c_int64_t) :: strideA integer(c_int),target,dimension(:) :: ipiv integer(c_int64_t) :: strideP - type(c_ptr) :: myInfo + complex(c_double_complex),target,dimension(:) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int),target :: myInfo integer(c_int) :: batchCount ! - hipblasSgetrfStridedBatched_rank_1 = hipblasSgetrfStridedBatched_(handle,n,c_loc(A),lda, & - strideA,c_loc(ipiv),strideP,myInfo,batchCount) + hipblasZgetrsStridedBatched_rank_1 = hipblasZgetrsStridedBatched_(handle,trans,n,nrhs, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,c_loc(myInfo),batchCount) end function - function hipblasSgetrfStridedBatched_full_rank(handle,n,A,lda,strideA,ipiv,strideP,myInfo, & - batchCount) - use iso_c_binding + function hipblasZgetrsStridedBatched_full_rank(handle,trans,n,nrhs,A,lda,strideA,ipiv,strideP, & + B,ldb,strideB,myInfo,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrfStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrsStridedBatched_full_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans integer(c_int) :: n - real(c_float),target,dimension(:,:) :: A + integer(c_int) :: nrhs + complex(c_double_complex),target,dimension(:,:) :: A integer(c_int) :: lda integer(c_int64_t) :: strideA integer(c_int),target,dimension(:) :: ipiv integer(c_int64_t) :: strideP - type(c_ptr) :: myInfo + complex(c_double_complex),target,dimension(:,:) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int),target :: myInfo integer(c_int) :: batchCount ! - hipblasSgetrfStridedBatched_full_rank = hipblasSgetrfStridedBatched_(handle,n,c_loc(A),lda, & - strideA,c_loc(ipiv),strideP,myInfo,batchCount) + hipblasZgetrsStridedBatched_full_rank = hipblasZgetrsStridedBatched_(handle,trans,n,nrhs, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,c_loc(myInfo),batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDgetrfStridedBatched_assumed_rank(handle,n,A,lda,strideA,ipiv,strideP,myInfo, & - batchCount) - use iso_c_binding + function hipblasZgetrsStridedBatched_strided_rank(handle,trans,n,nrhs,A,lda,strideA,ipiv, & + strideP,B,ldb,strideB,myInfo,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrfStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrsStridedBatched_strided_rank type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)) :: trans integer(c_int) :: n - real(c_double),target,dimension(..) :: A + integer(c_int) :: nrhs + complex(c_double_complex),target,dimension(:,:,:) :: A integer(c_int) :: lda integer(c_int64_t) :: strideA - integer(c_int),target,dimension(..) :: ipiv + integer(c_int),target,dimension(:,:) :: ipiv integer(c_int64_t) :: strideP - type(c_ptr) :: myInfo + complex(c_double_complex),target,dimension(:,:,:) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int),target :: myInfo integer(c_int) :: batchCount ! - hipblasDgetrfStridedBatched_assumed_rank = hipblasDgetrfStridedBatched_(handle,n,c_loc(A), & - lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) + hipblasZgetrsStridedBatched_strided_rank = hipblasZgetrsStridedBatched_(handle,trans,n,nrhs, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,c_loc(myInfo),batchCount) end function -#else - function hipblasDgetrfStridedBatched_rank_0(handle,n,A,lda,strideA,ipiv,strideP,myInfo, & - batchCount) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSgetriBatched_assumed_rank(handle,n,A,lda,ipiv,C,ldc,myInfo,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrfStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetriBatched_assumed_rank type(c_ptr), value :: handle integer(c_int) :: n - real(c_double),target :: A + type(c_ptr), value :: A integer(c_int) :: lda - integer(c_int64_t) :: strideA - integer(c_int),target :: ipiv - integer(c_int64_t) :: strideP - type(c_ptr) :: myInfo + type(c_ptr) :: ipiv + type(c_ptr), value :: C + integer(c_int) :: ldc + integer(c_int),target,dimension(..) :: myInfo integer(c_int) :: batchCount ! - hipblasDgetrfStridedBatched_rank_0 = hipblasDgetrfStridedBatched_(handle,n,c_loc(A),lda, & - strideA,c_loc(ipiv),strideP,myInfo,batchCount) + hipblasSgetriBatched_assumed_rank = hipblasSgetriBatched_(handle,n,A,lda,ipiv,C,ldc, & + c_loc(myInfo),batchCount) end function - function hipblasDgetrfStridedBatched_rank_1(handle,n,A,lda,strideA,ipiv,strideP,myInfo, & - batchCount) - use iso_c_binding +#else + function hipblasSgetriBatched_rank_0(handle,n,A,lda,ipiv,C,ldc,myInfo,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrfStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetriBatched_rank_0 type(c_ptr), value :: handle integer(c_int) :: n - real(c_double),target,dimension(:) :: A + type(c_ptr), value :: A integer(c_int) :: lda - integer(c_int64_t) :: strideA - integer(c_int),target,dimension(:) :: ipiv - integer(c_int64_t) :: strideP - type(c_ptr) :: myInfo + type(c_ptr) :: ipiv + type(c_ptr), value :: C + integer(c_int) :: ldc + integer(c_int),target :: myInfo integer(c_int) :: batchCount ! - hipblasDgetrfStridedBatched_rank_1 = hipblasDgetrfStridedBatched_(handle,n,c_loc(A),lda, & - strideA,c_loc(ipiv),strideP,myInfo,batchCount) + hipblasSgetriBatched_rank_0 = hipblasSgetriBatched_(handle,n,A,lda,ipiv,C,ldc,c_loc(myInfo), & + batchCount) end function - function hipblasDgetrfStridedBatched_full_rank(handle,n,A,lda,strideA,ipiv,strideP,myInfo, & - batchCount) - use iso_c_binding + function hipblasSgetriBatched_rank_1(handle,n,A,lda,ipiv,C,ldc,myInfo,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrfStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetriBatched_rank_1 type(c_ptr), value :: handle integer(c_int) :: n - real(c_double),target,dimension(:,:) :: A + type(c_ptr), value :: A integer(c_int) :: lda - integer(c_int64_t) :: strideA - integer(c_int),target,dimension(:) :: ipiv - integer(c_int64_t) :: strideP - type(c_ptr) :: myInfo + type(c_ptr) :: ipiv + type(c_ptr), value :: C + integer(c_int) :: ldc + integer(c_int),target,dimension(:) :: myInfo integer(c_int) :: batchCount ! - hipblasDgetrfStridedBatched_full_rank = hipblasDgetrfStridedBatched_(handle,n,c_loc(A),lda, & - strideA,c_loc(ipiv),strideP,myInfo,batchCount) + hipblasSgetriBatched_rank_1 = hipblasSgetriBatched_(handle,n,A,lda,ipiv,C,ldc,c_loc(myInfo), & + batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCgetrfStridedBatched_assumed_rank(handle,n,A,lda,strideA,ipiv,strideP,myInfo, & - batchCount) - use iso_c_binding + function hipblasDgetriBatched_assumed_rank(handle,n,A,lda,ipiv,C,ldc,myInfo,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrfStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetriBatched_assumed_rank type(c_ptr), value :: handle integer(c_int) :: n - complex(c_float_complex),target,dimension(..) :: A + type(c_ptr), value :: A integer(c_int) :: lda - integer(c_int64_t) :: strideA - integer(c_int),target,dimension(..) :: ipiv - integer(c_int64_t) :: strideP - type(c_ptr) :: myInfo + type(c_ptr) :: ipiv + type(c_ptr), value :: C + integer(c_int) :: ldc + integer(c_int),target,dimension(..) :: myInfo integer(c_int) :: batchCount ! - hipblasCgetrfStridedBatched_assumed_rank = hipblasCgetrfStridedBatched_(handle,n,c_loc(A), & - lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) + hipblasDgetriBatched_assumed_rank = hipblasDgetriBatched_(handle,n,A,lda,ipiv,C,ldc, & + c_loc(myInfo),batchCount) end function #else - function hipblasCgetrfStridedBatched_rank_0(handle,n,A,lda,strideA,ipiv,strideP,myInfo, & - batchCount) - use iso_c_binding + function hipblasDgetriBatched_rank_0(handle,n,A,lda,ipiv,C,ldc,myInfo,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrfStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetriBatched_rank_0 type(c_ptr), value :: handle integer(c_int) :: n - complex(c_float_complex),target :: A + type(c_ptr), value :: A integer(c_int) :: lda - integer(c_int64_t) :: strideA - integer(c_int),target :: ipiv - integer(c_int64_t) :: strideP - type(c_ptr) :: myInfo + type(c_ptr) :: ipiv + type(c_ptr), value :: C + integer(c_int) :: ldc + integer(c_int),target :: myInfo integer(c_int) :: batchCount ! - hipblasCgetrfStridedBatched_rank_0 = hipblasCgetrfStridedBatched_(handle,n,c_loc(A),lda, & - strideA,c_loc(ipiv),strideP,myInfo,batchCount) + hipblasDgetriBatched_rank_0 = hipblasDgetriBatched_(handle,n,A,lda,ipiv,C,ldc,c_loc(myInfo), & + batchCount) end function - function hipblasCgetrfStridedBatched_rank_1(handle,n,A,lda,strideA,ipiv,strideP,myInfo, & - batchCount) - use iso_c_binding + function hipblasDgetriBatched_rank_1(handle,n,A,lda,ipiv,C,ldc,myInfo,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrfStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetriBatched_rank_1 type(c_ptr), value :: handle integer(c_int) :: n - complex(c_float_complex),target,dimension(:) :: A + type(c_ptr), value :: A integer(c_int) :: lda - integer(c_int64_t) :: strideA - integer(c_int),target,dimension(:) :: ipiv - integer(c_int64_t) :: strideP - type(c_ptr) :: myInfo + type(c_ptr) :: ipiv + type(c_ptr), value :: C + integer(c_int) :: ldc + integer(c_int),target,dimension(:) :: myInfo integer(c_int) :: batchCount ! - hipblasCgetrfStridedBatched_rank_1 = hipblasCgetrfStridedBatched_(handle,n,c_loc(A),lda, & - strideA,c_loc(ipiv),strideP,myInfo,batchCount) + hipblasDgetriBatched_rank_1 = hipblasDgetriBatched_(handle,n,A,lda,ipiv,C,ldc,c_loc(myInfo), & + batchCount) end function - function hipblasCgetrfStridedBatched_full_rank(handle,n,A,lda,strideA,ipiv,strideP,myInfo, & - batchCount) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCgetriBatched_assumed_rank(handle,n,A,lda,ipiv,C,ldc,myInfo,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrfStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetriBatched_assumed_rank type(c_ptr), value :: handle integer(c_int) :: n - complex(c_float_complex),target,dimension(:,:) :: A + type(c_ptr), value :: A integer(c_int) :: lda - integer(c_int64_t) :: strideA - integer(c_int),target,dimension(:) :: ipiv - integer(c_int64_t) :: strideP - type(c_ptr) :: myInfo + type(c_ptr) :: ipiv + type(c_ptr), value :: C + integer(c_int) :: ldc + integer(c_int),target,dimension(..) :: myInfo integer(c_int) :: batchCount ! - hipblasCgetrfStridedBatched_full_rank = hipblasCgetrfStridedBatched_(handle,n,c_loc(A),lda, & - strideA,c_loc(ipiv),strideP,myInfo,batchCount) + hipblasCgetriBatched_assumed_rank = hipblasCgetriBatched_(handle,n,A,lda,ipiv,C,ldc, & + c_loc(myInfo),batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZgetrfStridedBatched_assumed_rank(handle,n,A,lda,strideA,ipiv,strideP,myInfo, & +#else + function hipblasCgetriBatched_rank_0(handle,n,A,lda,ipiv,C,ldc,myInfo,batchCount) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetriBatched_rank_0 + type(c_ptr), value :: handle + integer(c_int) :: n + type(c_ptr), value :: A + integer(c_int) :: lda + type(c_ptr) :: ipiv + type(c_ptr), value :: C + integer(c_int) :: ldc + integer(c_int),target :: myInfo + integer(c_int) :: batchCount + ! + hipblasCgetriBatched_rank_0 = hipblasCgetriBatched_(handle,n,A,lda,ipiv,C,ldc,c_loc(myInfo), & batchCount) - use iso_c_binding + end function + + function hipblasCgetriBatched_rank_1(handle,n,A,lda,ipiv,C,ldc,myInfo,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrfStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetriBatched_rank_1 type(c_ptr), value :: handle integer(c_int) :: n - complex(c_double_complex),target,dimension(..) :: A + type(c_ptr), value :: A integer(c_int) :: lda - integer(c_int64_t) :: strideA - integer(c_int),target,dimension(..) :: ipiv - integer(c_int64_t) :: strideP - type(c_ptr) :: myInfo + type(c_ptr) :: ipiv + type(c_ptr), value :: C + integer(c_int) :: ldc + integer(c_int),target,dimension(:) :: myInfo integer(c_int) :: batchCount ! - hipblasZgetrfStridedBatched_assumed_rank = hipblasZgetrfStridedBatched_(handle,n,c_loc(A), & - lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) + hipblasCgetriBatched_rank_1 = hipblasCgetriBatched_(handle,n,A,lda,ipiv,C,ldc,c_loc(myInfo), & + batchCount) end function -#else - function hipblasZgetrfStridedBatched_rank_0(handle,n,A,lda,strideA,ipiv,strideP,myInfo, & - batchCount) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZgetriBatched_assumed_rank(handle,n,A,lda,ipiv,C,ldc,myInfo,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrfStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetriBatched_assumed_rank type(c_ptr), value :: handle integer(c_int) :: n - complex(c_double_complex),target :: A + type(c_ptr), value :: A integer(c_int) :: lda - integer(c_int64_t) :: strideA - integer(c_int),target :: ipiv - integer(c_int64_t) :: strideP - type(c_ptr) :: myInfo + type(c_ptr) :: ipiv + type(c_ptr), value :: C + integer(c_int) :: ldc + integer(c_int),target,dimension(..) :: myInfo integer(c_int) :: batchCount ! - hipblasZgetrfStridedBatched_rank_0 = hipblasZgetrfStridedBatched_(handle,n,c_loc(A),lda, & - strideA,c_loc(ipiv),strideP,myInfo,batchCount) + hipblasZgetriBatched_assumed_rank = hipblasZgetriBatched_(handle,n,A,lda,ipiv,C,ldc, & + c_loc(myInfo),batchCount) end function - function hipblasZgetrfStridedBatched_rank_1(handle,n,A,lda,strideA,ipiv,strideP,myInfo, & - batchCount) - use iso_c_binding +#else + function hipblasZgetriBatched_rank_0(handle,n,A,lda,ipiv,C,ldc,myInfo,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrfStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetriBatched_rank_0 type(c_ptr), value :: handle integer(c_int) :: n - complex(c_double_complex),target,dimension(:) :: A + type(c_ptr), value :: A integer(c_int) :: lda - integer(c_int64_t) :: strideA - integer(c_int),target,dimension(:) :: ipiv - integer(c_int64_t) :: strideP - type(c_ptr) :: myInfo + type(c_ptr) :: ipiv + type(c_ptr), value :: C + integer(c_int) :: ldc + integer(c_int),target :: myInfo integer(c_int) :: batchCount ! - hipblasZgetrfStridedBatched_rank_1 = hipblasZgetrfStridedBatched_(handle,n,c_loc(A),lda, & - strideA,c_loc(ipiv),strideP,myInfo,batchCount) + hipblasZgetriBatched_rank_0 = hipblasZgetriBatched_(handle,n,A,lda,ipiv,C,ldc,c_loc(myInfo), & + batchCount) end function - function hipblasZgetrfStridedBatched_full_rank(handle,n,A,lda,strideA,ipiv,strideP,myInfo, & - batchCount) - use iso_c_binding + function hipblasZgetriBatched_rank_1(handle,n,A,lda,ipiv,C,ldc,myInfo,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrfStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetriBatched_rank_1 type(c_ptr), value :: handle integer(c_int) :: n - complex(c_double_complex),target,dimension(:,:) :: A + type(c_ptr), value :: A integer(c_int) :: lda - integer(c_int64_t) :: strideA - integer(c_int),target,dimension(:) :: ipiv - integer(c_int64_t) :: strideP - type(c_ptr) :: myInfo + type(c_ptr) :: ipiv + type(c_ptr), value :: C + integer(c_int) :: ldc + integer(c_int),target,dimension(:) :: myInfo integer(c_int) :: batchCount ! - hipblasZgetrfStridedBatched_full_rank = hipblasZgetrfStridedBatched_(handle,n,c_loc(A),lda, & - strideA,c_loc(ipiv),strideP,myInfo,batchCount) + hipblasZgetriBatched_rank_1 = hipblasZgetriBatched_(handle,n,A,lda,ipiv,C,ldc,c_loc(myInfo), & + batchCount) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasSgetrs_assumed_rank(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) - use iso_c_binding + function hipblasSgels_assumed_rank(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrs_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgels_assumed_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n integer(c_int) :: nrhs real(c_float),target,dimension(..) :: A integer(c_int) :: lda - integer(c_int),target,dimension(..) :: ipiv real(c_float),target,dimension(..) :: B integer(c_int) :: ldb integer(c_int),target :: myInfo + integer(c_int),target :: deviceInfo ! - hipblasSgetrs_assumed_rank = hipblasSgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv), & - c_loc(B),ldb,c_loc(myInfo)) + hipblasSgels_assumed_rank = hipblasSgels_(handle,trans,m,n,nrhs,c_loc(A),lda,c_loc(B),ldb, & + c_loc(myInfo),c_loc(deviceInfo)) end function - function hipblasSgetrs_assumed_rank_devptr(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) - use iso_c_binding + function hipblasSgels_assumed_rank_devptr(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrs_assumed_rank_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgels_assumed_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n integer(c_int) :: nrhs real(c_float),target,dimension(..) :: A integer(c_int) :: lda - integer(c_int),target,dimension(..) :: ipiv real(c_float),target,dimension(..) :: B integer(c_int) :: ldb - type(c_ptr),value :: myInfo + integer(c_int),target :: myInfo + type(c_ptr),value :: deviceInfo ! - hipblasSgetrs_assumed_rank_devptr = hipblasSgetrs_(handle,trans,n,nrhs,c_loc(A),lda, & - c_loc(ipiv),c_loc(B),ldb,myInfo) + hipblasSgels_assumed_rank_devptr = hipblasSgels_(handle,trans,m,n,nrhs,c_loc(A),lda, & + c_loc(B),ldb,c_loc(myInfo),deviceInfo) end function #else - function hipblasSgetrs_rank_0(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) - use iso_c_binding + function hipblasSgels_rank_0(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrs_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgels_rank_0 type(c_ptr), value :: handle integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n integer(c_int) :: nrhs real(c_float),target :: A integer(c_int) :: lda - integer(c_int),target :: ipiv real(c_float),target :: B integer(c_int) :: ldb integer(c_int),target :: myInfo + integer(c_int),target :: deviceInfo ! - hipblasSgetrs_rank_0 = hipblasSgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv),c_loc(B), & - ldb,c_loc(myInfo)) + hipblasSgels_rank_0 = hipblasSgels_(handle,trans,m,n,nrhs,c_loc(A),lda,c_loc(B),ldb, & + c_loc(myInfo),c_loc(deviceInfo)) end function - function hipblasSgetrs_rank_0_devptr(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) - use iso_c_binding + function hipblasSgels_rank_0_devptr(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrs_rank_0_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgels_rank_0_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n integer(c_int) :: nrhs real(c_float),target :: A integer(c_int) :: lda - integer(c_int),target :: ipiv real(c_float),target :: B integer(c_int) :: ldb - type(c_ptr),value :: myInfo + integer(c_int),target :: myInfo + type(c_ptr),value :: deviceInfo ! - hipblasSgetrs_rank_0_devptr = hipblasSgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv), & - c_loc(B),ldb,myInfo) + hipblasSgels_rank_0_devptr = hipblasSgels_(handle,trans,m,n,nrhs,c_loc(A),lda,c_loc(B),ldb, & + c_loc(myInfo),deviceInfo) end function - function hipblasSgetrs_rank_1(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) - use iso_c_binding + function hipblasSgels_rank_1(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrs_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgels_rank_1 type(c_ptr), value :: handle integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n integer(c_int) :: nrhs real(c_float),target,dimension(:) :: A integer(c_int) :: lda - integer(c_int),target,dimension(:) :: ipiv real(c_float),target,dimension(:) :: B integer(c_int) :: ldb integer(c_int),target :: myInfo + integer(c_int),target :: deviceInfo ! - hipblasSgetrs_rank_1 = hipblasSgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv),c_loc(B), & - ldb,c_loc(myInfo)) + hipblasSgels_rank_1 = hipblasSgels_(handle,trans,m,n,nrhs,c_loc(A),lda,c_loc(B),ldb, & + c_loc(myInfo),c_loc(deviceInfo)) end function - function hipblasSgetrs_rank_1_devptr(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) - use iso_c_binding + function hipblasSgels_rank_1_devptr(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrs_rank_1_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgels_rank_1_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n integer(c_int) :: nrhs real(c_float),target,dimension(:) :: A integer(c_int) :: lda - integer(c_int),target,dimension(:) :: ipiv real(c_float),target,dimension(:) :: B integer(c_int) :: ldb - type(c_ptr),value :: myInfo + integer(c_int),target :: myInfo + type(c_ptr),value :: deviceInfo ! - hipblasSgetrs_rank_1_devptr = hipblasSgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv), & - c_loc(B),ldb,myInfo) + hipblasSgels_rank_1_devptr = hipblasSgels_(handle,trans,m,n,nrhs,c_loc(A),lda,c_loc(B),ldb, & + c_loc(myInfo),deviceInfo) end function - function hipblasSgetrs_full_rank(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) - use iso_c_binding + function hipblasSgels_full_rank(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrs_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgels_full_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n integer(c_int) :: nrhs real(c_float),target,dimension(:,:) :: A integer(c_int) :: lda - integer(c_int),target,dimension(:) :: ipiv real(c_float),target,dimension(:,:) :: B integer(c_int) :: ldb integer(c_int),target :: myInfo + integer(c_int),target :: deviceInfo ! - hipblasSgetrs_full_rank = hipblasSgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv), & - c_loc(B),ldb,c_loc(myInfo)) + hipblasSgels_full_rank = hipblasSgels_(handle,trans,m,n,nrhs,c_loc(A),lda,c_loc(B),ldb, & + c_loc(myInfo),c_loc(deviceInfo)) end function - function hipblasSgetrs_full_rank_devptr(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) - use iso_c_binding + function hipblasSgels_full_rank_devptr(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrs_full_rank_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgels_full_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n integer(c_int) :: nrhs real(c_float),target,dimension(:,:) :: A integer(c_int) :: lda - integer(c_int),target,dimension(:) :: ipiv real(c_float),target,dimension(:,:) :: B integer(c_int) :: ldb - type(c_ptr),value :: myInfo + integer(c_int),target :: myInfo + type(c_ptr),value :: deviceInfo ! - hipblasSgetrs_full_rank_devptr = hipblasSgetrs_(handle,trans,n,nrhs,c_loc(A),lda, & - c_loc(ipiv),c_loc(B),ldb,myInfo) + hipblasSgels_full_rank_devptr = hipblasSgels_(handle,trans,m,n,nrhs,c_loc(A),lda,c_loc(B), & + ldb,c_loc(myInfo),deviceInfo) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasDgetrs_assumed_rank(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) - use iso_c_binding + function hipblasDgels_assumed_rank(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrs_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgels_assumed_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n integer(c_int) :: nrhs real(c_double),target,dimension(..) :: A integer(c_int) :: lda - integer(c_int),target,dimension(..) :: ipiv real(c_double),target,dimension(..) :: B integer(c_int) :: ldb integer(c_int),target :: myInfo + integer(c_int),target :: deviceInfo ! - hipblasDgetrs_assumed_rank = hipblasDgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv), & - c_loc(B),ldb,c_loc(myInfo)) + hipblasDgels_assumed_rank = hipblasDgels_(handle,trans,m,n,nrhs,c_loc(A),lda,c_loc(B),ldb, & + c_loc(myInfo),c_loc(deviceInfo)) end function - function hipblasDgetrs_assumed_rank_devptr(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) - use iso_c_binding + function hipblasDgels_assumed_rank_devptr(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrs_assumed_rank_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgels_assumed_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n integer(c_int) :: nrhs real(c_double),target,dimension(..) :: A integer(c_int) :: lda - integer(c_int),target,dimension(..) :: ipiv real(c_double),target,dimension(..) :: B integer(c_int) :: ldb - type(c_ptr),value :: myInfo + integer(c_int),target :: myInfo + type(c_ptr),value :: deviceInfo ! - hipblasDgetrs_assumed_rank_devptr = hipblasDgetrs_(handle,trans,n,nrhs,c_loc(A),lda, & - c_loc(ipiv),c_loc(B),ldb,myInfo) + hipblasDgels_assumed_rank_devptr = hipblasDgels_(handle,trans,m,n,nrhs,c_loc(A),lda, & + c_loc(B),ldb,c_loc(myInfo),deviceInfo) end function #else - function hipblasDgetrs_rank_0(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) - use iso_c_binding + function hipblasDgels_rank_0(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrs_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgels_rank_0 type(c_ptr), value :: handle integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n integer(c_int) :: nrhs real(c_double),target :: A integer(c_int) :: lda - integer(c_int),target :: ipiv real(c_double),target :: B integer(c_int) :: ldb integer(c_int),target :: myInfo + integer(c_int),target :: deviceInfo ! - hipblasDgetrs_rank_0 = hipblasDgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv),c_loc(B), & - ldb,c_loc(myInfo)) + hipblasDgels_rank_0 = hipblasDgels_(handle,trans,m,n,nrhs,c_loc(A),lda,c_loc(B),ldb, & + c_loc(myInfo),c_loc(deviceInfo)) end function - function hipblasDgetrs_rank_0_devptr(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) - use iso_c_binding + function hipblasDgels_rank_0_devptr(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrs_rank_0_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgels_rank_0_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n integer(c_int) :: nrhs real(c_double),target :: A integer(c_int) :: lda - integer(c_int),target :: ipiv real(c_double),target :: B integer(c_int) :: ldb - type(c_ptr),value :: myInfo + integer(c_int),target :: myInfo + type(c_ptr),value :: deviceInfo ! - hipblasDgetrs_rank_0_devptr = hipblasDgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv), & - c_loc(B),ldb,myInfo) + hipblasDgels_rank_0_devptr = hipblasDgels_(handle,trans,m,n,nrhs,c_loc(A),lda,c_loc(B),ldb, & + c_loc(myInfo),deviceInfo) end function - function hipblasDgetrs_rank_1(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) - use iso_c_binding + function hipblasDgels_rank_1(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrs_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgels_rank_1 type(c_ptr), value :: handle integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n integer(c_int) :: nrhs real(c_double),target,dimension(:) :: A integer(c_int) :: lda - integer(c_int),target,dimension(:) :: ipiv real(c_double),target,dimension(:) :: B integer(c_int) :: ldb integer(c_int),target :: myInfo + integer(c_int),target :: deviceInfo ! - hipblasDgetrs_rank_1 = hipblasDgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv),c_loc(B), & - ldb,c_loc(myInfo)) + hipblasDgels_rank_1 = hipblasDgels_(handle,trans,m,n,nrhs,c_loc(A),lda,c_loc(B),ldb, & + c_loc(myInfo),c_loc(deviceInfo)) end function - function hipblasDgetrs_rank_1_devptr(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) - use iso_c_binding + function hipblasDgels_rank_1_devptr(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrs_rank_1_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgels_rank_1_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n integer(c_int) :: nrhs real(c_double),target,dimension(:) :: A integer(c_int) :: lda - integer(c_int),target,dimension(:) :: ipiv real(c_double),target,dimension(:) :: B integer(c_int) :: ldb - type(c_ptr),value :: myInfo + integer(c_int),target :: myInfo + type(c_ptr),value :: deviceInfo ! - hipblasDgetrs_rank_1_devptr = hipblasDgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv), & - c_loc(B),ldb,myInfo) + hipblasDgels_rank_1_devptr = hipblasDgels_(handle,trans,m,n,nrhs,c_loc(A),lda,c_loc(B),ldb, & + c_loc(myInfo),deviceInfo) end function - function hipblasDgetrs_full_rank(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) - use iso_c_binding + function hipblasDgels_full_rank(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrs_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgels_full_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n integer(c_int) :: nrhs real(c_double),target,dimension(:,:) :: A integer(c_int) :: lda - integer(c_int),target,dimension(:) :: ipiv real(c_double),target,dimension(:,:) :: B integer(c_int) :: ldb integer(c_int),target :: myInfo + integer(c_int),target :: deviceInfo ! - hipblasDgetrs_full_rank = hipblasDgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv), & - c_loc(B),ldb,c_loc(myInfo)) + hipblasDgels_full_rank = hipblasDgels_(handle,trans,m,n,nrhs,c_loc(A),lda,c_loc(B),ldb, & + c_loc(myInfo),c_loc(deviceInfo)) end function - function hipblasDgetrs_full_rank_devptr(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) - use iso_c_binding + function hipblasDgels_full_rank_devptr(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrs_full_rank_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgels_full_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n integer(c_int) :: nrhs real(c_double),target,dimension(:,:) :: A integer(c_int) :: lda - integer(c_int),target,dimension(:) :: ipiv real(c_double),target,dimension(:,:) :: B integer(c_int) :: ldb - type(c_ptr),value :: myInfo + integer(c_int),target :: myInfo + type(c_ptr),value :: deviceInfo ! - hipblasDgetrs_full_rank_devptr = hipblasDgetrs_(handle,trans,n,nrhs,c_loc(A),lda, & - c_loc(ipiv),c_loc(B),ldb,myInfo) + hipblasDgels_full_rank_devptr = hipblasDgels_(handle,trans,m,n,nrhs,c_loc(A),lda,c_loc(B), & + ldb,c_loc(myInfo),deviceInfo) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasCgetrs_assumed_rank(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) - use iso_c_binding + function hipblasCgels_assumed_rank(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrs_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgels_assumed_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n integer(c_int) :: nrhs complex(c_float_complex),target,dimension(..) :: A integer(c_int) :: lda - integer(c_int),target,dimension(..) :: ipiv complex(c_float_complex),target,dimension(..) :: B integer(c_int) :: ldb integer(c_int),target :: myInfo + integer(c_int),target :: deviceInfo ! - hipblasCgetrs_assumed_rank = hipblasCgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv), & - c_loc(B),ldb,c_loc(myInfo)) + hipblasCgels_assumed_rank = hipblasCgels_(handle,trans,m,n,nrhs,c_loc(A),lda,c_loc(B),ldb, & + c_loc(myInfo),c_loc(deviceInfo)) end function - function hipblasCgetrs_assumed_rank_devptr(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) - use iso_c_binding + function hipblasCgels_assumed_rank_devptr(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrs_assumed_rank_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgels_assumed_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n integer(c_int) :: nrhs complex(c_float_complex),target,dimension(..) :: A integer(c_int) :: lda - integer(c_int),target,dimension(..) :: ipiv complex(c_float_complex),target,dimension(..) :: B integer(c_int) :: ldb - type(c_ptr),value :: myInfo + integer(c_int),target :: myInfo + type(c_ptr),value :: deviceInfo ! - hipblasCgetrs_assumed_rank_devptr = hipblasCgetrs_(handle,trans,n,nrhs,c_loc(A),lda, & - c_loc(ipiv),c_loc(B),ldb,myInfo) + hipblasCgels_assumed_rank_devptr = hipblasCgels_(handle,trans,m,n,nrhs,c_loc(A),lda, & + c_loc(B),ldb,c_loc(myInfo),deviceInfo) end function #else - function hipblasCgetrs_rank_0(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) - use iso_c_binding + function hipblasCgels_rank_0(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrs_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgels_rank_0 type(c_ptr), value :: handle integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n integer(c_int) :: nrhs complex(c_float_complex),target :: A integer(c_int) :: lda - integer(c_int),target :: ipiv complex(c_float_complex),target :: B integer(c_int) :: ldb integer(c_int),target :: myInfo + integer(c_int),target :: deviceInfo ! - hipblasCgetrs_rank_0 = hipblasCgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv),c_loc(B), & - ldb,c_loc(myInfo)) + hipblasCgels_rank_0 = hipblasCgels_(handle,trans,m,n,nrhs,c_loc(A),lda,c_loc(B),ldb, & + c_loc(myInfo),c_loc(deviceInfo)) end function - function hipblasCgetrs_rank_0_devptr(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) - use iso_c_binding + function hipblasCgels_rank_0_devptr(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrs_rank_0_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgels_rank_0_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n integer(c_int) :: nrhs complex(c_float_complex),target :: A integer(c_int) :: lda - integer(c_int),target :: ipiv complex(c_float_complex),target :: B integer(c_int) :: ldb - type(c_ptr),value :: myInfo + integer(c_int),target :: myInfo + type(c_ptr),value :: deviceInfo ! - hipblasCgetrs_rank_0_devptr = hipblasCgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv), & - c_loc(B),ldb,myInfo) + hipblasCgels_rank_0_devptr = hipblasCgels_(handle,trans,m,n,nrhs,c_loc(A),lda,c_loc(B),ldb, & + c_loc(myInfo),deviceInfo) end function - function hipblasCgetrs_rank_1(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) - use iso_c_binding + function hipblasCgels_rank_1(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrs_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgels_rank_1 type(c_ptr), value :: handle integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n integer(c_int) :: nrhs complex(c_float_complex),target,dimension(:) :: A integer(c_int) :: lda - integer(c_int),target,dimension(:) :: ipiv complex(c_float_complex),target,dimension(:) :: B integer(c_int) :: ldb integer(c_int),target :: myInfo + integer(c_int),target :: deviceInfo ! - hipblasCgetrs_rank_1 = hipblasCgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv),c_loc(B), & - ldb,c_loc(myInfo)) + hipblasCgels_rank_1 = hipblasCgels_(handle,trans,m,n,nrhs,c_loc(A),lda,c_loc(B),ldb, & + c_loc(myInfo),c_loc(deviceInfo)) end function - function hipblasCgetrs_rank_1_devptr(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) - use iso_c_binding + function hipblasCgels_rank_1_devptr(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrs_rank_1_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgels_rank_1_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n integer(c_int) :: nrhs complex(c_float_complex),target,dimension(:) :: A integer(c_int) :: lda - integer(c_int),target,dimension(:) :: ipiv complex(c_float_complex),target,dimension(:) :: B integer(c_int) :: ldb - type(c_ptr),value :: myInfo + integer(c_int),target :: myInfo + type(c_ptr),value :: deviceInfo ! - hipblasCgetrs_rank_1_devptr = hipblasCgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv), & - c_loc(B),ldb,myInfo) + hipblasCgels_rank_1_devptr = hipblasCgels_(handle,trans,m,n,nrhs,c_loc(A),lda,c_loc(B),ldb, & + c_loc(myInfo),deviceInfo) end function - function hipblasCgetrs_full_rank(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) - use iso_c_binding + function hipblasCgels_full_rank(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrs_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgels_full_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n integer(c_int) :: nrhs complex(c_float_complex),target,dimension(:,:) :: A integer(c_int) :: lda - integer(c_int),target,dimension(:) :: ipiv complex(c_float_complex),target,dimension(:,:) :: B integer(c_int) :: ldb integer(c_int),target :: myInfo + integer(c_int),target :: deviceInfo ! - hipblasCgetrs_full_rank = hipblasCgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv), & - c_loc(B),ldb,c_loc(myInfo)) + hipblasCgels_full_rank = hipblasCgels_(handle,trans,m,n,nrhs,c_loc(A),lda,c_loc(B),ldb, & + c_loc(myInfo),c_loc(deviceInfo)) end function - function hipblasCgetrs_full_rank_devptr(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) - use iso_c_binding + function hipblasCgels_full_rank_devptr(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrs_full_rank_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgels_full_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n integer(c_int) :: nrhs complex(c_float_complex),target,dimension(:,:) :: A integer(c_int) :: lda - integer(c_int),target,dimension(:) :: ipiv complex(c_float_complex),target,dimension(:,:) :: B integer(c_int) :: ldb - type(c_ptr),value :: myInfo + integer(c_int),target :: myInfo + type(c_ptr),value :: deviceInfo ! - hipblasCgetrs_full_rank_devptr = hipblasCgetrs_(handle,trans,n,nrhs,c_loc(A),lda, & - c_loc(ipiv),c_loc(B),ldb,myInfo) + hipblasCgels_full_rank_devptr = hipblasCgels_(handle,trans,m,n,nrhs,c_loc(A),lda,c_loc(B), & + ldb,c_loc(myInfo),deviceInfo) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasZgetrs_assumed_rank(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) - use iso_c_binding + function hipblasZgels_assumed_rank(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrs_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgels_assumed_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n integer(c_int) :: nrhs complex(c_double_complex),target,dimension(..) :: A integer(c_int) :: lda - integer(c_int),target,dimension(..) :: ipiv complex(c_double_complex),target,dimension(..) :: B integer(c_int) :: ldb integer(c_int),target :: myInfo + integer(c_int),target :: deviceInfo ! - hipblasZgetrs_assumed_rank = hipblasZgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv), & - c_loc(B),ldb,c_loc(myInfo)) + hipblasZgels_assumed_rank = hipblasZgels_(handle,trans,m,n,nrhs,c_loc(A),lda,c_loc(B),ldb, & + c_loc(myInfo),c_loc(deviceInfo)) end function - function hipblasZgetrs_assumed_rank_devptr(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) - use iso_c_binding + function hipblasZgels_assumed_rank_devptr(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrs_assumed_rank_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgels_assumed_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n integer(c_int) :: nrhs complex(c_double_complex),target,dimension(..) :: A integer(c_int) :: lda - integer(c_int),target,dimension(..) :: ipiv complex(c_double_complex),target,dimension(..) :: B integer(c_int) :: ldb - type(c_ptr),value :: myInfo + integer(c_int),target :: myInfo + type(c_ptr),value :: deviceInfo ! - hipblasZgetrs_assumed_rank_devptr = hipblasZgetrs_(handle,trans,n,nrhs,c_loc(A),lda, & - c_loc(ipiv),c_loc(B),ldb,myInfo) + hipblasZgels_assumed_rank_devptr = hipblasZgels_(handle,trans,m,n,nrhs,c_loc(A),lda, & + c_loc(B),ldb,c_loc(myInfo),deviceInfo) end function #else - function hipblasZgetrs_rank_0(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) - use iso_c_binding + function hipblasZgels_rank_0(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrs_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgels_rank_0 type(c_ptr), value :: handle integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n integer(c_int) :: nrhs complex(c_double_complex),target :: A integer(c_int) :: lda - integer(c_int),target :: ipiv complex(c_double_complex),target :: B integer(c_int) :: ldb integer(c_int),target :: myInfo + integer(c_int),target :: deviceInfo ! - hipblasZgetrs_rank_0 = hipblasZgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv),c_loc(B), & - ldb,c_loc(myInfo)) + hipblasZgels_rank_0 = hipblasZgels_(handle,trans,m,n,nrhs,c_loc(A),lda,c_loc(B),ldb, & + c_loc(myInfo),c_loc(deviceInfo)) end function - function hipblasZgetrs_rank_0_devptr(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) - use iso_c_binding + function hipblasZgels_rank_0_devptr(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrs_rank_0_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgels_rank_0_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n integer(c_int) :: nrhs complex(c_double_complex),target :: A integer(c_int) :: lda - integer(c_int),target :: ipiv complex(c_double_complex),target :: B integer(c_int) :: ldb - type(c_ptr),value :: myInfo + integer(c_int),target :: myInfo + type(c_ptr),value :: deviceInfo ! - hipblasZgetrs_rank_0_devptr = hipblasZgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv), & - c_loc(B),ldb,myInfo) + hipblasZgels_rank_0_devptr = hipblasZgels_(handle,trans,m,n,nrhs,c_loc(A),lda,c_loc(B),ldb, & + c_loc(myInfo),deviceInfo) end function - function hipblasZgetrs_rank_1(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) - use iso_c_binding + function hipblasZgels_rank_1(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrs_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgels_rank_1 type(c_ptr), value :: handle integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n integer(c_int) :: nrhs complex(c_double_complex),target,dimension(:) :: A integer(c_int) :: lda - integer(c_int),target,dimension(:) :: ipiv complex(c_double_complex),target,dimension(:) :: B integer(c_int) :: ldb integer(c_int),target :: myInfo + integer(c_int),target :: deviceInfo ! - hipblasZgetrs_rank_1 = hipblasZgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv),c_loc(B), & - ldb,c_loc(myInfo)) + hipblasZgels_rank_1 = hipblasZgels_(handle,trans,m,n,nrhs,c_loc(A),lda,c_loc(B),ldb, & + c_loc(myInfo),c_loc(deviceInfo)) end function - function hipblasZgetrs_rank_1_devptr(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) - use iso_c_binding + function hipblasZgels_rank_1_devptr(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrs_rank_1_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgels_rank_1_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n integer(c_int) :: nrhs complex(c_double_complex),target,dimension(:) :: A integer(c_int) :: lda - integer(c_int),target,dimension(:) :: ipiv complex(c_double_complex),target,dimension(:) :: B integer(c_int) :: ldb - type(c_ptr),value :: myInfo + integer(c_int),target :: myInfo + type(c_ptr),value :: deviceInfo ! - hipblasZgetrs_rank_1_devptr = hipblasZgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv), & - c_loc(B),ldb,myInfo) + hipblasZgels_rank_1_devptr = hipblasZgels_(handle,trans,m,n,nrhs,c_loc(A),lda,c_loc(B),ldb, & + c_loc(myInfo),deviceInfo) end function - function hipblasZgetrs_full_rank(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) - use iso_c_binding + function hipblasZgels_full_rank(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrs_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgels_full_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n integer(c_int) :: nrhs complex(c_double_complex),target,dimension(:,:) :: A integer(c_int) :: lda - integer(c_int),target,dimension(:) :: ipiv complex(c_double_complex),target,dimension(:,:) :: B integer(c_int) :: ldb integer(c_int),target :: myInfo + integer(c_int),target :: deviceInfo ! - hipblasZgetrs_full_rank = hipblasZgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv), & - c_loc(B),ldb,c_loc(myInfo)) + hipblasZgels_full_rank = hipblasZgels_(handle,trans,m,n,nrhs,c_loc(A),lda,c_loc(B),ldb, & + c_loc(myInfo),c_loc(deviceInfo)) end function - function hipblasZgetrs_full_rank_devptr(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) - use iso_c_binding + function hipblasZgels_full_rank_devptr(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrs_full_rank_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgels_full_rank_devptr type(c_ptr), value :: handle integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n integer(c_int) :: nrhs complex(c_double_complex),target,dimension(:,:) :: A integer(c_int) :: lda - integer(c_int),target,dimension(:) :: ipiv complex(c_double_complex),target,dimension(:,:) :: B integer(c_int) :: ldb - type(c_ptr),value :: myInfo + integer(c_int),target :: myInfo + type(c_ptr),value :: deviceInfo ! - hipblasZgetrs_full_rank_devptr = hipblasZgetrs_(handle,trans,n,nrhs,c_loc(A),lda, & - c_loc(ipiv),c_loc(B),ldb,myInfo) + hipblasZgels_full_rank_devptr = hipblasZgels_(handle,trans,m,n,nrhs,c_loc(A),lda,c_loc(B), & + ldb,c_loc(myInfo),deviceInfo) end function #endif #ifdef USE_ASSUMED_RANK - function hipblasSgetrsStridedBatched_assumed_rank(handle,trans,n,nrhs,A,lda,strideA,ipiv, & - strideP,B,ldb,strideB,myInfo,batchCount) - use iso_c_binding + function hipblasSgelsBatched_assumed_rank(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrsStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgelsBatched_assumed_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n integer(c_int) :: nrhs - real(c_float),target,dimension(..) :: A + type(c_ptr), value :: A integer(c_int) :: lda - integer(c_int64_t) :: strideA - integer(c_int),target,dimension(..) :: ipiv - integer(c_int64_t) :: strideP - real(c_float),target,dimension(..) :: B + type(c_ptr), value :: B integer(c_int) :: ldb - integer(c_int64_t) :: strideB integer(c_int),target :: myInfo + integer(c_int),target,dimension(..) :: deviceInfo integer(c_int) :: batchCount ! - hipblasSgetrsStridedBatched_assumed_rank = hipblasSgetrsStridedBatched_(handle,trans,n,nrhs, & - c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,c_loc(myInfo),batchCount) + hipblasSgelsBatched_assumed_rank = hipblasSgelsBatched_(handle,trans,m,n,nrhs,A,lda,B,ldb, & + c_loc(myInfo),c_loc(deviceInfo),batchCount) end function - function hipblasSgetrsStridedBatched_assumed_rank_devptr(handle,trans,n,nrhs,A,lda,strideA, & - ipiv,strideP,B,ldb,strideB,myInfo,batchCount) - use iso_c_binding +#else + function hipblasSgelsBatched_rank_0(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrsStridedBatched_assumed_rank_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgelsBatched_rank_0 type(c_ptr), value :: handle integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n integer(c_int) :: nrhs - real(c_float),target,dimension(..) :: A + type(c_ptr), value :: A integer(c_int) :: lda - integer(c_int64_t) :: strideA - integer(c_int),target,dimension(..) :: ipiv - integer(c_int64_t) :: strideP - real(c_float),target,dimension(..) :: B + type(c_ptr), value :: B integer(c_int) :: ldb - integer(c_int64_t) :: strideB - type(c_ptr),value :: myInfo + integer(c_int),target :: myInfo + integer(c_int),target :: deviceInfo integer(c_int) :: batchCount ! - hipblasSgetrsStridedBatched_assumed_rank_devptr = hipblasSgetrsStridedBatched_(handle,trans, & - n,nrhs,c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,myInfo,batchCount) + hipblasSgelsBatched_rank_0 = hipblasSgelsBatched_(handle,trans,m,n,nrhs,A,lda,B,ldb, & + c_loc(myInfo),c_loc(deviceInfo),batchCount) end function -#else - function hipblasSgetrsStridedBatched_rank_0(handle,trans,n,nrhs,A,lda,strideA,ipiv,strideP,B, & - ldb,strideB,myInfo,batchCount) - use iso_c_binding + function hipblasSgelsBatched_rank_1(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrsStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgelsBatched_rank_1 type(c_ptr), value :: handle integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n integer(c_int) :: nrhs - real(c_float),target :: A + type(c_ptr), value :: A integer(c_int) :: lda - integer(c_int64_t) :: strideA - integer(c_int),target :: ipiv - integer(c_int64_t) :: strideP - real(c_float),target :: B + type(c_ptr), value :: B integer(c_int) :: ldb - integer(c_int64_t) :: strideB integer(c_int),target :: myInfo + integer(c_int),target,dimension(:) :: deviceInfo integer(c_int) :: batchCount ! - hipblasSgetrsStridedBatched_rank_0 = hipblasSgetrsStridedBatched_(handle,trans,n,nrhs, & - c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,c_loc(myInfo),batchCount) + hipblasSgelsBatched_rank_1 = hipblasSgelsBatched_(handle,trans,m,n,nrhs,A,lda,B,ldb, & + c_loc(myInfo),c_loc(deviceInfo),batchCount) end function - function hipblasSgetrsStridedBatched_rank_0_devptr(handle,trans,n,nrhs,A,lda,strideA,ipiv, & - strideP,B,ldb,strideB,myInfo,batchCount) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDgelsBatched_assumed_rank(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrsStridedBatched_rank_0_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgelsBatched_assumed_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n integer(c_int) :: nrhs - real(c_float),target :: A + type(c_ptr), value :: A integer(c_int) :: lda - integer(c_int64_t) :: strideA - integer(c_int),target :: ipiv - integer(c_int64_t) :: strideP - real(c_float),target :: B + type(c_ptr), value :: B integer(c_int) :: ldb - integer(c_int64_t) :: strideB - type(c_ptr),value :: myInfo + integer(c_int),target :: myInfo + integer(c_int),target,dimension(..) :: deviceInfo integer(c_int) :: batchCount ! - hipblasSgetrsStridedBatched_rank_0_devptr = hipblasSgetrsStridedBatched_(handle,trans,n, & - nrhs,c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,myInfo,batchCount) + hipblasDgelsBatched_assumed_rank = hipblasDgelsBatched_(handle,trans,m,n,nrhs,A,lda,B,ldb, & + c_loc(myInfo),c_loc(deviceInfo),batchCount) end function - function hipblasSgetrsStridedBatched_rank_1(handle,trans,n,nrhs,A,lda,strideA,ipiv,strideP,B, & - ldb,strideB,myInfo,batchCount) - use iso_c_binding +#else + function hipblasDgelsBatched_rank_0(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrsStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgelsBatched_rank_0 type(c_ptr), value :: handle integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n integer(c_int) :: nrhs - real(c_float),target,dimension(:) :: A + type(c_ptr), value :: A integer(c_int) :: lda - integer(c_int64_t) :: strideA - integer(c_int),target,dimension(:) :: ipiv - integer(c_int64_t) :: strideP - real(c_float),target,dimension(:) :: B + type(c_ptr), value :: B integer(c_int) :: ldb - integer(c_int64_t) :: strideB integer(c_int),target :: myInfo + integer(c_int),target :: deviceInfo integer(c_int) :: batchCount ! - hipblasSgetrsStridedBatched_rank_1 = hipblasSgetrsStridedBatched_(handle,trans,n,nrhs, & - c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,c_loc(myInfo),batchCount) + hipblasDgelsBatched_rank_0 = hipblasDgelsBatched_(handle,trans,m,n,nrhs,A,lda,B,ldb, & + c_loc(myInfo),c_loc(deviceInfo),batchCount) end function - function hipblasSgetrsStridedBatched_rank_1_devptr(handle,trans,n,nrhs,A,lda,strideA,ipiv, & - strideP,B,ldb,strideB,myInfo,batchCount) - use iso_c_binding + function hipblasDgelsBatched_rank_1(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrsStridedBatched_rank_1_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgelsBatched_rank_1 type(c_ptr), value :: handle integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n integer(c_int) :: nrhs - real(c_float),target,dimension(:) :: A + type(c_ptr), value :: A integer(c_int) :: lda - integer(c_int64_t) :: strideA - integer(c_int),target,dimension(:) :: ipiv - integer(c_int64_t) :: strideP - real(c_float),target,dimension(:) :: B + type(c_ptr), value :: B integer(c_int) :: ldb - integer(c_int64_t) :: strideB - type(c_ptr),value :: myInfo + integer(c_int),target :: myInfo + integer(c_int),target,dimension(:) :: deviceInfo integer(c_int) :: batchCount ! - hipblasSgetrsStridedBatched_rank_1_devptr = hipblasSgetrsStridedBatched_(handle,trans,n, & - nrhs,c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,myInfo,batchCount) + hipblasDgelsBatched_rank_1 = hipblasDgelsBatched_(handle,trans,m,n,nrhs,A,lda,B,ldb, & + c_loc(myInfo),c_loc(deviceInfo),batchCount) end function - function hipblasSgetrsStridedBatched_full_rank(handle,trans,n,nrhs,A,lda,strideA,ipiv,strideP, & - B,ldb,strideB,myInfo,batchCount) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCgelsBatched_assumed_rank(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrsStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgelsBatched_assumed_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n integer(c_int) :: nrhs - real(c_float),target,dimension(:,:) :: A + type(c_ptr), value :: A integer(c_int) :: lda - integer(c_int64_t) :: strideA - integer(c_int),target,dimension(:) :: ipiv - integer(c_int64_t) :: strideP - real(c_float),target,dimension(:,:) :: B + type(c_ptr), value :: B integer(c_int) :: ldb - integer(c_int64_t) :: strideB integer(c_int),target :: myInfo + integer(c_int),target,dimension(..) :: deviceInfo integer(c_int) :: batchCount ! - hipblasSgetrsStridedBatched_full_rank = hipblasSgetrsStridedBatched_(handle,trans,n,nrhs, & - c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,c_loc(myInfo),batchCount) + hipblasCgelsBatched_assumed_rank = hipblasCgelsBatched_(handle,trans,m,n,nrhs,A,lda,B,ldb, & + c_loc(myInfo),c_loc(deviceInfo),batchCount) end function - function hipblasSgetrsStridedBatched_full_rank_devptr(handle,trans,n,nrhs,A,lda,strideA,ipiv, & - strideP,B,ldb,strideB,myInfo,batchCount) - use iso_c_binding +#else + function hipblasCgelsBatched_rank_0(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrsStridedBatched_full_rank_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgelsBatched_rank_0 type(c_ptr), value :: handle integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n integer(c_int) :: nrhs - real(c_float),target,dimension(:,:) :: A + type(c_ptr), value :: A integer(c_int) :: lda - integer(c_int64_t) :: strideA - integer(c_int),target,dimension(:) :: ipiv - integer(c_int64_t) :: strideP - real(c_float),target,dimension(:,:) :: B + type(c_ptr), value :: B integer(c_int) :: ldb - integer(c_int64_t) :: strideB - type(c_ptr),value :: myInfo + integer(c_int),target :: myInfo + integer(c_int),target :: deviceInfo integer(c_int) :: batchCount ! - hipblasSgetrsStridedBatched_full_rank_devptr = hipblasSgetrsStridedBatched_(handle,trans,n, & - nrhs,c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,myInfo,batchCount) + hipblasCgelsBatched_rank_0 = hipblasCgelsBatched_(handle,trans,m,n,nrhs,A,lda,B,ldb, & + c_loc(myInfo),c_loc(deviceInfo),batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasDgetrsStridedBatched_assumed_rank(handle,trans,n,nrhs,A,lda,strideA,ipiv, & - strideP,B,ldb,strideB,myInfo,batchCount) - use iso_c_binding + function hipblasCgelsBatched_rank_1(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrsStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgelsBatched_rank_1 type(c_ptr), value :: handle integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n integer(c_int) :: nrhs - real(c_double),target,dimension(..) :: A + type(c_ptr), value :: A integer(c_int) :: lda - integer(c_int64_t) :: strideA - integer(c_int),target,dimension(..) :: ipiv - integer(c_int64_t) :: strideP - real(c_double),target,dimension(..) :: B + type(c_ptr), value :: B integer(c_int) :: ldb - integer(c_int64_t) :: strideB integer(c_int),target :: myInfo + integer(c_int),target,dimension(:) :: deviceInfo integer(c_int) :: batchCount ! - hipblasDgetrsStridedBatched_assumed_rank = hipblasDgetrsStridedBatched_(handle,trans,n,nrhs, & - c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,c_loc(myInfo),batchCount) + hipblasCgelsBatched_rank_1 = hipblasCgelsBatched_(handle,trans,m,n,nrhs,A,lda,B,ldb, & + c_loc(myInfo),c_loc(deviceInfo),batchCount) end function - function hipblasDgetrsStridedBatched_assumed_rank_devptr(handle,trans,n,nrhs,A,lda,strideA, & - ipiv,strideP,B,ldb,strideB,myInfo,batchCount) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZgelsBatched_assumed_rank(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrsStridedBatched_assumed_rank_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgelsBatched_assumed_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n integer(c_int) :: nrhs - real(c_double),target,dimension(..) :: A + type(c_ptr), value :: A integer(c_int) :: lda - integer(c_int64_t) :: strideA - integer(c_int),target,dimension(..) :: ipiv - integer(c_int64_t) :: strideP - real(c_double),target,dimension(..) :: B + type(c_ptr), value :: B integer(c_int) :: ldb - integer(c_int64_t) :: strideB - type(c_ptr),value :: myInfo + integer(c_int),target :: myInfo + integer(c_int),target,dimension(..) :: deviceInfo integer(c_int) :: batchCount ! - hipblasDgetrsStridedBatched_assumed_rank_devptr = hipblasDgetrsStridedBatched_(handle,trans, & - n,nrhs,c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,myInfo,batchCount) + hipblasZgelsBatched_assumed_rank = hipblasZgelsBatched_(handle,trans,m,n,nrhs,A,lda,B,ldb, & + c_loc(myInfo),c_loc(deviceInfo),batchCount) end function #else - function hipblasDgetrsStridedBatched_rank_0(handle,trans,n,nrhs,A,lda,strideA,ipiv,strideP,B, & - ldb,strideB,myInfo,batchCount) - use iso_c_binding + function hipblasZgelsBatched_rank_0(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrsStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgelsBatched_rank_0 type(c_ptr), value :: handle integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n integer(c_int) :: nrhs - real(c_double),target :: A + type(c_ptr), value :: A integer(c_int) :: lda - integer(c_int64_t) :: strideA - integer(c_int),target :: ipiv - integer(c_int64_t) :: strideP - real(c_double),target :: B + type(c_ptr), value :: B integer(c_int) :: ldb - integer(c_int64_t) :: strideB integer(c_int),target :: myInfo + integer(c_int),target :: deviceInfo integer(c_int) :: batchCount ! - hipblasDgetrsStridedBatched_rank_0 = hipblasDgetrsStridedBatched_(handle,trans,n,nrhs, & - c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,c_loc(myInfo),batchCount) + hipblasZgelsBatched_rank_0 = hipblasZgelsBatched_(handle,trans,m,n,nrhs,A,lda,B,ldb, & + c_loc(myInfo),c_loc(deviceInfo),batchCount) end function - function hipblasDgetrsStridedBatched_rank_0_devptr(handle,trans,n,nrhs,A,lda,strideA,ipiv, & - strideP,B,ldb,strideB,myInfo,batchCount) - use iso_c_binding + function hipblasZgelsBatched_rank_1(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo, & + batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrsStridedBatched_rank_0_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgelsBatched_rank_1 type(c_ptr), value :: handle integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n integer(c_int) :: nrhs - real(c_double),target :: A + type(c_ptr), value :: A integer(c_int) :: lda - integer(c_int64_t) :: strideA - integer(c_int),target :: ipiv - integer(c_int64_t) :: strideP - real(c_double),target :: B + type(c_ptr), value :: B integer(c_int) :: ldb - integer(c_int64_t) :: strideB - type(c_ptr),value :: myInfo + integer(c_int),target :: myInfo + integer(c_int),target,dimension(:) :: deviceInfo integer(c_int) :: batchCount ! - hipblasDgetrsStridedBatched_rank_0_devptr = hipblasDgetrsStridedBatched_(handle,trans,n, & - nrhs,c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,myInfo,batchCount) + hipblasZgelsBatched_rank_1 = hipblasZgelsBatched_(handle,trans,m,n,nrhs,A,lda,B,ldb, & + c_loc(myInfo),c_loc(deviceInfo),batchCount) end function - function hipblasDgetrsStridedBatched_rank_1(handle,trans,n,nrhs,A,lda,strideA,ipiv,strideP,B, & - ldb,strideB,myInfo,batchCount) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasSgelsStridedBatched_assumed_rank(handle,trans,m,n,nrhs,A,lda,strideA,B,ldb, & + strideB,myInfo,deviceInfo,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrsStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgelsStridedBatched_assumed_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n integer(c_int) :: nrhs - real(c_double),target,dimension(:) :: A + real(c_float),target,dimension(..) :: A integer(c_int) :: lda integer(c_int64_t) :: strideA - integer(c_int),target,dimension(:) :: ipiv - integer(c_int64_t) :: strideP - real(c_double),target,dimension(:) :: B + real(c_float),target,dimension(..) :: B integer(c_int) :: ldb integer(c_int64_t) :: strideB integer(c_int),target :: myInfo + integer(c_int),target,dimension(..) :: deviceInfo integer(c_int) :: batchCount ! - hipblasDgetrsStridedBatched_rank_1 = hipblasDgetrsStridedBatched_(handle,trans,n,nrhs, & - c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,c_loc(myInfo),batchCount) + hipblasSgelsStridedBatched_assumed_rank = hipblasSgelsStridedBatched_(handle,trans,m,n,nrhs, & + c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(myInfo),c_loc(deviceInfo),batchCount) end function - function hipblasDgetrsStridedBatched_rank_1_devptr(handle,trans,n,nrhs,A,lda,strideA,ipiv, & - strideP,B,ldb,strideB,myInfo,batchCount) - use iso_c_binding +#else + function hipblasSgelsStridedBatched_rank_0(handle,trans,m,n,nrhs,A,lda,strideA,B,ldb,strideB, & + myInfo,deviceInfo,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrsStridedBatched_rank_1_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgelsStridedBatched_rank_0 type(c_ptr), value :: handle integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n integer(c_int) :: nrhs - real(c_double),target,dimension(:) :: A + real(c_float),target :: A integer(c_int) :: lda integer(c_int64_t) :: strideA - integer(c_int),target,dimension(:) :: ipiv - integer(c_int64_t) :: strideP - real(c_double),target,dimension(:) :: B + real(c_float),target :: B integer(c_int) :: ldb integer(c_int64_t) :: strideB - type(c_ptr),value :: myInfo + integer(c_int),target :: myInfo + integer(c_int),target :: deviceInfo integer(c_int) :: batchCount ! - hipblasDgetrsStridedBatched_rank_1_devptr = hipblasDgetrsStridedBatched_(handle,trans,n, & - nrhs,c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,myInfo,batchCount) + hipblasSgelsStridedBatched_rank_0 = hipblasSgelsStridedBatched_(handle,trans,m,n,nrhs, & + c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(myInfo),c_loc(deviceInfo),batchCount) end function - function hipblasDgetrsStridedBatched_full_rank(handle,trans,n,nrhs,A,lda,strideA,ipiv,strideP, & - B,ldb,strideB,myInfo,batchCount) - use iso_c_binding + function hipblasSgelsStridedBatched_rank_1(handle,trans,m,n,nrhs,A,lda,strideA,B,ldb,strideB, & + myInfo,deviceInfo,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrsStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgelsStridedBatched_rank_1 type(c_ptr), value :: handle integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n integer(c_int) :: nrhs - real(c_double),target,dimension(:,:) :: A + real(c_float),target,dimension(:) :: A integer(c_int) :: lda integer(c_int64_t) :: strideA - integer(c_int),target,dimension(:) :: ipiv - integer(c_int64_t) :: strideP - real(c_double),target,dimension(:,:) :: B + real(c_float),target,dimension(:) :: B integer(c_int) :: ldb integer(c_int64_t) :: strideB integer(c_int),target :: myInfo + integer(c_int),target,dimension(:) :: deviceInfo integer(c_int) :: batchCount ! - hipblasDgetrsStridedBatched_full_rank = hipblasDgetrsStridedBatched_(handle,trans,n,nrhs, & - c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,c_loc(myInfo),batchCount) + hipblasSgelsStridedBatched_rank_1 = hipblasSgelsStridedBatched_(handle,trans,m,n,nrhs, & + c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(myInfo),c_loc(deviceInfo),batchCount) end function - function hipblasDgetrsStridedBatched_full_rank_devptr(handle,trans,n,nrhs,A,lda,strideA,ipiv, & - strideP,B,ldb,strideB,myInfo,batchCount) - use iso_c_binding + function hipblasSgelsStridedBatched_full_rank(handle,trans,m,n,nrhs,A,lda,strideA,B,ldb, & + strideB,myInfo,deviceInfo,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrsStridedBatched_full_rank_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgelsStridedBatched_full_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n integer(c_int) :: nrhs - real(c_double),target,dimension(:,:) :: A + real(c_float),target,dimension(:,:) :: A integer(c_int) :: lda integer(c_int64_t) :: strideA - integer(c_int),target,dimension(:) :: ipiv - integer(c_int64_t) :: strideP - real(c_double),target,dimension(:,:) :: B + real(c_float),target,dimension(:,:) :: B integer(c_int) :: ldb integer(c_int64_t) :: strideB - type(c_ptr),value :: myInfo + integer(c_int),target :: myInfo + integer(c_int),target,dimension(:) :: deviceInfo integer(c_int) :: batchCount ! - hipblasDgetrsStridedBatched_full_rank_devptr = hipblasDgetrsStridedBatched_(handle,trans,n, & - nrhs,c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,myInfo,batchCount) + hipblasSgelsStridedBatched_full_rank = hipblasSgelsStridedBatched_(handle,trans,m,n,nrhs, & + c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(myInfo),c_loc(deviceInfo),batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasCgetrsStridedBatched_assumed_rank(handle,trans,n,nrhs,A,lda,strideA,ipiv, & - strideP,B,ldb,strideB,myInfo,batchCount) - use iso_c_binding + function hipblasSgelsStridedBatched_strided_rank(handle,trans,m,n,nrhs,A,lda,strideA,B,ldb, & + strideB,myInfo,deviceInfo,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrsStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgelsStridedBatched_strided_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n integer(c_int) :: nrhs - complex(c_float_complex),target,dimension(..) :: A + real(c_float),target,dimension(:,:,:) :: A integer(c_int) :: lda integer(c_int64_t) :: strideA - integer(c_int),target,dimension(..) :: ipiv - integer(c_int64_t) :: strideP - complex(c_float_complex),target,dimension(..) :: B + real(c_float),target,dimension(:,:,:) :: B integer(c_int) :: ldb integer(c_int64_t) :: strideB integer(c_int),target :: myInfo + integer(c_int),target,dimension(:) :: deviceInfo integer(c_int) :: batchCount ! - hipblasCgetrsStridedBatched_assumed_rank = hipblasCgetrsStridedBatched_(handle,trans,n,nrhs, & - c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,c_loc(myInfo),batchCount) + hipblasSgelsStridedBatched_strided_rank = hipblasSgelsStridedBatched_(handle,trans,m,n,nrhs, & + c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(myInfo),c_loc(deviceInfo),batchCount) end function - function hipblasCgetrsStridedBatched_assumed_rank_devptr(handle,trans,n,nrhs,A,lda,strideA, & - ipiv,strideP,B,ldb,strideB,myInfo,batchCount) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasDgelsStridedBatched_assumed_rank(handle,trans,m,n,nrhs,A,lda,strideA,B,ldb, & + strideB,myInfo,deviceInfo,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrsStridedBatched_assumed_rank_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgelsStridedBatched_assumed_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n integer(c_int) :: nrhs - complex(c_float_complex),target,dimension(..) :: A + real(c_double),target,dimension(..) :: A integer(c_int) :: lda integer(c_int64_t) :: strideA - integer(c_int),target,dimension(..) :: ipiv - integer(c_int64_t) :: strideP - complex(c_float_complex),target,dimension(..) :: B + real(c_double),target,dimension(..) :: B integer(c_int) :: ldb integer(c_int64_t) :: strideB - type(c_ptr),value :: myInfo + integer(c_int),target :: myInfo + integer(c_int),target,dimension(..) :: deviceInfo integer(c_int) :: batchCount ! - hipblasCgetrsStridedBatched_assumed_rank_devptr = hipblasCgetrsStridedBatched_(handle,trans, & - n,nrhs,c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,myInfo,batchCount) + hipblasDgelsStridedBatched_assumed_rank = hipblasDgelsStridedBatched_(handle,trans,m,n,nrhs, & + c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(myInfo),c_loc(deviceInfo),batchCount) end function #else - function hipblasCgetrsStridedBatched_rank_0(handle,trans,n,nrhs,A,lda,strideA,ipiv,strideP,B, & - ldb,strideB,myInfo,batchCount) - use iso_c_binding + function hipblasDgelsStridedBatched_rank_0(handle,trans,m,n,nrhs,A,lda,strideA,B,ldb,strideB, & + myInfo,deviceInfo,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrsStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgelsStridedBatched_rank_0 type(c_ptr), value :: handle integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n integer(c_int) :: nrhs - complex(c_float_complex),target :: A + real(c_double),target :: A integer(c_int) :: lda integer(c_int64_t) :: strideA - integer(c_int),target :: ipiv - integer(c_int64_t) :: strideP - complex(c_float_complex),target :: B + real(c_double),target :: B integer(c_int) :: ldb integer(c_int64_t) :: strideB integer(c_int),target :: myInfo + integer(c_int),target :: deviceInfo integer(c_int) :: batchCount ! - hipblasCgetrsStridedBatched_rank_0 = hipblasCgetrsStridedBatched_(handle,trans,n,nrhs, & - c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,c_loc(myInfo),batchCount) + hipblasDgelsStridedBatched_rank_0 = hipblasDgelsStridedBatched_(handle,trans,m,n,nrhs, & + c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(myInfo),c_loc(deviceInfo),batchCount) end function - function hipblasCgetrsStridedBatched_rank_0_devptr(handle,trans,n,nrhs,A,lda,strideA,ipiv, & - strideP,B,ldb,strideB,myInfo,batchCount) - use iso_c_binding + function hipblasDgelsStridedBatched_rank_1(handle,trans,m,n,nrhs,A,lda,strideA,B,ldb,strideB, & + myInfo,deviceInfo,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrsStridedBatched_rank_0_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgelsStridedBatched_rank_1 type(c_ptr), value :: handle integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n integer(c_int) :: nrhs - complex(c_float_complex),target :: A + real(c_double),target,dimension(:) :: A integer(c_int) :: lda integer(c_int64_t) :: strideA - integer(c_int),target :: ipiv - integer(c_int64_t) :: strideP - complex(c_float_complex),target :: B + real(c_double),target,dimension(:) :: B integer(c_int) :: ldb integer(c_int64_t) :: strideB - type(c_ptr),value :: myInfo + integer(c_int),target :: myInfo + integer(c_int),target,dimension(:) :: deviceInfo integer(c_int) :: batchCount ! - hipblasCgetrsStridedBatched_rank_0_devptr = hipblasCgetrsStridedBatched_(handle,trans,n, & - nrhs,c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,myInfo,batchCount) + hipblasDgelsStridedBatched_rank_1 = hipblasDgelsStridedBatched_(handle,trans,m,n,nrhs, & + c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(myInfo),c_loc(deviceInfo),batchCount) end function - function hipblasCgetrsStridedBatched_rank_1(handle,trans,n,nrhs,A,lda,strideA,ipiv,strideP,B, & - ldb,strideB,myInfo,batchCount) - use iso_c_binding + function hipblasDgelsStridedBatched_full_rank(handle,trans,m,n,nrhs,A,lda,strideA,B,ldb, & + strideB,myInfo,deviceInfo,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrsStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgelsStridedBatched_full_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n integer(c_int) :: nrhs - complex(c_float_complex),target,dimension(:) :: A + real(c_double),target,dimension(:,:) :: A integer(c_int) :: lda integer(c_int64_t) :: strideA - integer(c_int),target,dimension(:) :: ipiv - integer(c_int64_t) :: strideP - complex(c_float_complex),target,dimension(:) :: B + real(c_double),target,dimension(:,:) :: B integer(c_int) :: ldb integer(c_int64_t) :: strideB integer(c_int),target :: myInfo + integer(c_int),target,dimension(:) :: deviceInfo integer(c_int) :: batchCount ! - hipblasCgetrsStridedBatched_rank_1 = hipblasCgetrsStridedBatched_(handle,trans,n,nrhs, & - c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,c_loc(myInfo),batchCount) + hipblasDgelsStridedBatched_full_rank = hipblasDgelsStridedBatched_(handle,trans,m,n,nrhs, & + c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(myInfo),c_loc(deviceInfo),batchCount) end function - function hipblasCgetrsStridedBatched_rank_1_devptr(handle,trans,n,nrhs,A,lda,strideA,ipiv, & - strideP,B,ldb,strideB,myInfo,batchCount) - use iso_c_binding + function hipblasDgelsStridedBatched_strided_rank(handle,trans,m,n,nrhs,A,lda,strideA,B,ldb, & + strideB,myInfo,deviceInfo,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrsStridedBatched_rank_1_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgelsStridedBatched_strided_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n integer(c_int) :: nrhs - complex(c_float_complex),target,dimension(:) :: A + real(c_double),target,dimension(:,:,:) :: A integer(c_int) :: lda integer(c_int64_t) :: strideA - integer(c_int),target,dimension(:) :: ipiv - integer(c_int64_t) :: strideP - complex(c_float_complex),target,dimension(:) :: B + real(c_double),target,dimension(:,:,:) :: B integer(c_int) :: ldb integer(c_int64_t) :: strideB - type(c_ptr),value :: myInfo + integer(c_int),target :: myInfo + integer(c_int),target,dimension(:) :: deviceInfo integer(c_int) :: batchCount ! - hipblasCgetrsStridedBatched_rank_1_devptr = hipblasCgetrsStridedBatched_(handle,trans,n, & - nrhs,c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,myInfo,batchCount) + hipblasDgelsStridedBatched_strided_rank = hipblasDgelsStridedBatched_(handle,trans,m,n,nrhs, & + c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(myInfo),c_loc(deviceInfo),batchCount) end function - function hipblasCgetrsStridedBatched_full_rank(handle,trans,n,nrhs,A,lda,strideA,ipiv,strideP, & - B,ldb,strideB,myInfo,batchCount) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasCgelsStridedBatched_assumed_rank(handle,trans,m,n,nrhs,A,lda,strideA,B,ldb, & + strideB,myInfo,deviceInfo,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrsStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgelsStridedBatched_assumed_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n integer(c_int) :: nrhs - complex(c_float_complex),target,dimension(:,:) :: A + complex(c_float_complex),target,dimension(..) :: A integer(c_int) :: lda integer(c_int64_t) :: strideA - integer(c_int),target,dimension(:) :: ipiv - integer(c_int64_t) :: strideP - complex(c_float_complex),target,dimension(:,:) :: B + complex(c_float_complex),target,dimension(..) :: B integer(c_int) :: ldb integer(c_int64_t) :: strideB integer(c_int),target :: myInfo + integer(c_int),target,dimension(..) :: deviceInfo integer(c_int) :: batchCount ! - hipblasCgetrsStridedBatched_full_rank = hipblasCgetrsStridedBatched_(handle,trans,n,nrhs, & - c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,c_loc(myInfo),batchCount) + hipblasCgelsStridedBatched_assumed_rank = hipblasCgelsStridedBatched_(handle,trans,m,n,nrhs, & + c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(myInfo),c_loc(deviceInfo),batchCount) end function - function hipblasCgetrsStridedBatched_full_rank_devptr(handle,trans,n,nrhs,A,lda,strideA,ipiv, & - strideP,B,ldb,strideB,myInfo,batchCount) - use iso_c_binding +#else + function hipblasCgelsStridedBatched_rank_0(handle,trans,m,n,nrhs,A,lda,strideA,B,ldb,strideB, & + myInfo,deviceInfo,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrsStridedBatched_full_rank_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgelsStridedBatched_rank_0 type(c_ptr), value :: handle integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n integer(c_int) :: nrhs - complex(c_float_complex),target,dimension(:,:) :: A + complex(c_float_complex),target :: A integer(c_int) :: lda integer(c_int64_t) :: strideA - integer(c_int),target,dimension(:) :: ipiv - integer(c_int64_t) :: strideP - complex(c_float_complex),target,dimension(:,:) :: B + complex(c_float_complex),target :: B integer(c_int) :: ldb integer(c_int64_t) :: strideB - type(c_ptr),value :: myInfo + integer(c_int),target :: myInfo + integer(c_int),target :: deviceInfo integer(c_int) :: batchCount ! - hipblasCgetrsStridedBatched_full_rank_devptr = hipblasCgetrsStridedBatched_(handle,trans,n, & - nrhs,c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,myInfo,batchCount) + hipblasCgelsStridedBatched_rank_0 = hipblasCgelsStridedBatched_(handle,trans,m,n,nrhs, & + c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(myInfo),c_loc(deviceInfo),batchCount) end function -#endif -#ifdef USE_ASSUMED_RANK - function hipblasZgetrsStridedBatched_assumed_rank(handle,trans,n,nrhs,A,lda,strideA,ipiv, & - strideP,B,ldb,strideB,myInfo,batchCount) - use iso_c_binding + function hipblasCgelsStridedBatched_rank_1(handle,trans,m,n,nrhs,A,lda,strideA,B,ldb,strideB, & + myInfo,deviceInfo,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrsStridedBatched_assumed_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgelsStridedBatched_rank_1 type(c_ptr), value :: handle integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n integer(c_int) :: nrhs - complex(c_double_complex),target,dimension(..) :: A + complex(c_float_complex),target,dimension(:) :: A integer(c_int) :: lda integer(c_int64_t) :: strideA - integer(c_int),target,dimension(..) :: ipiv - integer(c_int64_t) :: strideP - complex(c_double_complex),target,dimension(..) :: B + complex(c_float_complex),target,dimension(:) :: B integer(c_int) :: ldb integer(c_int64_t) :: strideB integer(c_int),target :: myInfo + integer(c_int),target,dimension(:) :: deviceInfo integer(c_int) :: batchCount ! - hipblasZgetrsStridedBatched_assumed_rank = hipblasZgetrsStridedBatched_(handle,trans,n,nrhs, & - c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,c_loc(myInfo),batchCount) + hipblasCgelsStridedBatched_rank_1 = hipblasCgelsStridedBatched_(handle,trans,m,n,nrhs, & + c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(myInfo),c_loc(deviceInfo),batchCount) end function - function hipblasZgetrsStridedBatched_assumed_rank_devptr(handle,trans,n,nrhs,A,lda,strideA, & - ipiv,strideP,B,ldb,strideB,myInfo,batchCount) - use iso_c_binding + function hipblasCgelsStridedBatched_full_rank(handle,trans,m,n,nrhs,A,lda,strideA,B,ldb, & + strideB,myInfo,deviceInfo,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrsStridedBatched_assumed_rank_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgelsStridedBatched_full_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n integer(c_int) :: nrhs - complex(c_double_complex),target,dimension(..) :: A + complex(c_float_complex),target,dimension(:,:) :: A integer(c_int) :: lda integer(c_int64_t) :: strideA - integer(c_int),target,dimension(..) :: ipiv - integer(c_int64_t) :: strideP - complex(c_double_complex),target,dimension(..) :: B + complex(c_float_complex),target,dimension(:,:) :: B integer(c_int) :: ldb integer(c_int64_t) :: strideB - type(c_ptr),value :: myInfo + integer(c_int),target :: myInfo + integer(c_int),target,dimension(:) :: deviceInfo integer(c_int) :: batchCount ! - hipblasZgetrsStridedBatched_assumed_rank_devptr = hipblasZgetrsStridedBatched_(handle,trans, & - n,nrhs,c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,myInfo,batchCount) + hipblasCgelsStridedBatched_full_rank = hipblasCgelsStridedBatched_(handle,trans,m,n,nrhs, & + c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(myInfo),c_loc(deviceInfo),batchCount) end function -#else - function hipblasZgetrsStridedBatched_rank_0(handle,trans,n,nrhs,A,lda,strideA,ipiv,strideP,B, & - ldb,strideB,myInfo,batchCount) - use iso_c_binding + function hipblasCgelsStridedBatched_strided_rank(handle,trans,m,n,nrhs,A,lda,strideA,B,ldb, & + strideB,myInfo,deviceInfo,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrsStridedBatched_rank_0 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgelsStridedBatched_strided_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n integer(c_int) :: nrhs - complex(c_double_complex),target :: A + complex(c_float_complex),target,dimension(:,:,:) :: A integer(c_int) :: lda integer(c_int64_t) :: strideA - integer(c_int),target :: ipiv - integer(c_int64_t) :: strideP - complex(c_double_complex),target :: B + complex(c_float_complex),target,dimension(:,:,:) :: B integer(c_int) :: ldb integer(c_int64_t) :: strideB integer(c_int),target :: myInfo + integer(c_int),target,dimension(:) :: deviceInfo integer(c_int) :: batchCount ! - hipblasZgetrsStridedBatched_rank_0 = hipblasZgetrsStridedBatched_(handle,trans,n,nrhs, & - c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,c_loc(myInfo),batchCount) + hipblasCgelsStridedBatched_strided_rank = hipblasCgelsStridedBatched_(handle,trans,m,n,nrhs, & + c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(myInfo),c_loc(deviceInfo),batchCount) end function - function hipblasZgetrsStridedBatched_rank_0_devptr(handle,trans,n,nrhs,A,lda,strideA,ipiv, & - strideP,B,ldb,strideB,myInfo,batchCount) - use iso_c_binding +#endif +#ifdef USE_ASSUMED_RANK + function hipblasZgelsStridedBatched_assumed_rank(handle,trans,m,n,nrhs,A,lda,strideA,B,ldb, & + strideB,myInfo,deviceInfo,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrsStridedBatched_rank_0_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgelsStridedBatched_assumed_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n integer(c_int) :: nrhs - complex(c_double_complex),target :: A + complex(c_double_complex),target,dimension(..) :: A integer(c_int) :: lda integer(c_int64_t) :: strideA - integer(c_int),target :: ipiv - integer(c_int64_t) :: strideP - complex(c_double_complex),target :: B + complex(c_double_complex),target,dimension(..) :: B integer(c_int) :: ldb integer(c_int64_t) :: strideB - type(c_ptr),value :: myInfo + integer(c_int),target :: myInfo + integer(c_int),target,dimension(..) :: deviceInfo integer(c_int) :: batchCount ! - hipblasZgetrsStridedBatched_rank_0_devptr = hipblasZgetrsStridedBatched_(handle,trans,n, & - nrhs,c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,myInfo,batchCount) + hipblasZgelsStridedBatched_assumed_rank = hipblasZgelsStridedBatched_(handle,trans,m,n,nrhs, & + c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(myInfo),c_loc(deviceInfo),batchCount) end function - function hipblasZgetrsStridedBatched_rank_1(handle,trans,n,nrhs,A,lda,strideA,ipiv,strideP,B, & - ldb,strideB,myInfo,batchCount) - use iso_c_binding +#else + function hipblasZgelsStridedBatched_rank_0(handle,trans,m,n,nrhs,A,lda,strideA,B,ldb,strideB, & + myInfo,deviceInfo,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrsStridedBatched_rank_1 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgelsStridedBatched_rank_0 type(c_ptr), value :: handle integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n integer(c_int) :: nrhs - complex(c_double_complex),target,dimension(:) :: A + complex(c_double_complex),target :: A integer(c_int) :: lda integer(c_int64_t) :: strideA - integer(c_int),target,dimension(:) :: ipiv - integer(c_int64_t) :: strideP - complex(c_double_complex),target,dimension(:) :: B + complex(c_double_complex),target :: B integer(c_int) :: ldb integer(c_int64_t) :: strideB integer(c_int),target :: myInfo + integer(c_int),target :: deviceInfo integer(c_int) :: batchCount ! - hipblasZgetrsStridedBatched_rank_1 = hipblasZgetrsStridedBatched_(handle,trans,n,nrhs, & - c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,c_loc(myInfo),batchCount) + hipblasZgelsStridedBatched_rank_0 = hipblasZgelsStridedBatched_(handle,trans,m,n,nrhs, & + c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(myInfo),c_loc(deviceInfo),batchCount) end function - function hipblasZgetrsStridedBatched_rank_1_devptr(handle,trans,n,nrhs,A,lda,strideA,ipiv, & - strideP,B,ldb,strideB,myInfo,batchCount) - use iso_c_binding + function hipblasZgelsStridedBatched_rank_1(handle,trans,m,n,nrhs,A,lda,strideA,B,ldb,strideB, & + myInfo,deviceInfo,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrsStridedBatched_rank_1_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgelsStridedBatched_rank_1 type(c_ptr), value :: handle integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n integer(c_int) :: nrhs complex(c_double_complex),target,dimension(:) :: A integer(c_int) :: lda integer(c_int64_t) :: strideA - integer(c_int),target,dimension(:) :: ipiv - integer(c_int64_t) :: strideP complex(c_double_complex),target,dimension(:) :: B integer(c_int) :: ldb integer(c_int64_t) :: strideB - type(c_ptr),value :: myInfo + integer(c_int),target :: myInfo + integer(c_int),target,dimension(:) :: deviceInfo integer(c_int) :: batchCount ! - hipblasZgetrsStridedBatched_rank_1_devptr = hipblasZgetrsStridedBatched_(handle,trans,n, & - nrhs,c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,myInfo,batchCount) + hipblasZgelsStridedBatched_rank_1 = hipblasZgelsStridedBatched_(handle,trans,m,n,nrhs, & + c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(myInfo),c_loc(deviceInfo),batchCount) end function - function hipblasZgetrsStridedBatched_full_rank(handle,trans,n,nrhs,A,lda,strideA,ipiv,strideP, & - B,ldb,strideB,myInfo,batchCount) - use iso_c_binding + function hipblasZgelsStridedBatched_full_rank(handle,trans,m,n,nrhs,A,lda,strideA,B,ldb, & + strideB,myInfo,deviceInfo,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrsStridedBatched_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgelsStridedBatched_full_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n integer(c_int) :: nrhs complex(c_double_complex),target,dimension(:,:) :: A integer(c_int) :: lda integer(c_int64_t) :: strideA - integer(c_int),target,dimension(:) :: ipiv - integer(c_int64_t) :: strideP complex(c_double_complex),target,dimension(:,:) :: B integer(c_int) :: ldb integer(c_int64_t) :: strideB integer(c_int),target :: myInfo + integer(c_int),target,dimension(:) :: deviceInfo integer(c_int) :: batchCount ! - hipblasZgetrsStridedBatched_full_rank = hipblasZgetrsStridedBatched_(handle,trans,n,nrhs, & - c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,c_loc(myInfo),batchCount) + hipblasZgelsStridedBatched_full_rank = hipblasZgelsStridedBatched_(handle,trans,m,n,nrhs, & + c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(myInfo),c_loc(deviceInfo),batchCount) end function - function hipblasZgetrsStridedBatched_full_rank_devptr(handle,trans,n,nrhs,A,lda,strideA,ipiv, & - strideP,B,ldb,strideB,myInfo,batchCount) - use iso_c_binding + function hipblasZgelsStridedBatched_strided_rank(handle,trans,m,n,nrhs,A,lda,strideA,B,ldb, & + strideB,myInfo,deviceInfo,batchCount) implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrsStridedBatched_full_rank_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgelsStridedBatched_strided_rank type(c_ptr), value :: handle integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m integer(c_int) :: n integer(c_int) :: nrhs - complex(c_double_complex),target,dimension(:,:) :: A + complex(c_double_complex),target,dimension(:,:,:) :: A integer(c_int) :: lda integer(c_int64_t) :: strideA - integer(c_int),target,dimension(:) :: ipiv - integer(c_int64_t) :: strideP - complex(c_double_complex),target,dimension(:,:) :: B + complex(c_double_complex),target,dimension(:,:,:) :: B integer(c_int) :: ldb integer(c_int64_t) :: strideB - type(c_ptr),value :: myInfo + integer(c_int),target :: myInfo + integer(c_int),target,dimension(:) :: deviceInfo integer(c_int) :: batchCount ! - hipblasZgetrsStridedBatched_full_rank_devptr = hipblasZgetrsStridedBatched_(handle,trans,n, & - nrhs,c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,myInfo,batchCount) + hipblasZgelsStridedBatched_strided_rank = hipblasZgelsStridedBatched_(handle,trans,m,n,nrhs, & + c_loc(A),lda,strideA,c_loc(B),ldb,strideB,c_loc(myInfo),c_loc(deviceInfo),batchCount) end function #endif #ifdef USE_ASSUMED_RANK function hipblasSgeqrf_assumed_rank(handle,m,n,A,lda,ipiv,myInfo) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeqrf_assumed_rank type(c_ptr), value :: handle @@ -105907,24 +160141,8 @@ function hipblasSgeqrf_assumed_rank(handle,m,n,A,lda,ipiv,myInfo) hipblasSgeqrf_assumed_rank = hipblasSgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),c_loc(myInfo)) end function - function hipblasSgeqrf_assumed_rank_devptr(handle,m,n,A,lda,ipiv,myInfo) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeqrf_assumed_rank_devptr - type(c_ptr), value :: handle - integer(c_int) :: m - integer(c_int) :: n - real(c_float),target,dimension(..) :: A - integer(c_int) :: lda - real(c_float),target,dimension(..) :: ipiv - type(c_ptr),value :: myInfo - ! - hipblasSgeqrf_assumed_rank_devptr = hipblasSgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),myInfo) - end function - #else function hipblasSgeqrf_rank_0(handle,m,n,A,lda,ipiv,myInfo) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeqrf_rank_0 type(c_ptr), value :: handle @@ -105938,23 +160156,7 @@ function hipblasSgeqrf_rank_0(handle,m,n,A,lda,ipiv,myInfo) hipblasSgeqrf_rank_0 = hipblasSgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),c_loc(myInfo)) end function - function hipblasSgeqrf_rank_0_devptr(handle,m,n,A,lda,ipiv,myInfo) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeqrf_rank_0_devptr - type(c_ptr), value :: handle - integer(c_int) :: m - integer(c_int) :: n - real(c_float),target :: A - integer(c_int) :: lda - real(c_float),target :: ipiv - type(c_ptr),value :: myInfo - ! - hipblasSgeqrf_rank_0_devptr = hipblasSgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),myInfo) - end function - function hipblasSgeqrf_rank_1(handle,m,n,A,lda,ipiv,myInfo) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeqrf_rank_1 type(c_ptr), value :: handle @@ -105968,23 +160170,7 @@ function hipblasSgeqrf_rank_1(handle,m,n,A,lda,ipiv,myInfo) hipblasSgeqrf_rank_1 = hipblasSgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),c_loc(myInfo)) end function - function hipblasSgeqrf_rank_1_devptr(handle,m,n,A,lda,ipiv,myInfo) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeqrf_rank_1_devptr - type(c_ptr), value :: handle - integer(c_int) :: m - integer(c_int) :: n - real(c_float),target,dimension(:) :: A - integer(c_int) :: lda - real(c_float),target,dimension(:) :: ipiv - type(c_ptr),value :: myInfo - ! - hipblasSgeqrf_rank_1_devptr = hipblasSgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),myInfo) - end function - function hipblasSgeqrf_full_rank(handle,m,n,A,lda,ipiv,myInfo) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeqrf_full_rank type(c_ptr), value :: handle @@ -105998,25 +160184,9 @@ function hipblasSgeqrf_full_rank(handle,m,n,A,lda,ipiv,myInfo) hipblasSgeqrf_full_rank = hipblasSgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),c_loc(myInfo)) end function - function hipblasSgeqrf_full_rank_devptr(handle,m,n,A,lda,ipiv,myInfo) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeqrf_full_rank_devptr - type(c_ptr), value :: handle - integer(c_int) :: m - integer(c_int) :: n - real(c_float),target,dimension(:,:) :: A - integer(c_int) :: lda - real(c_float),target,dimension(:) :: ipiv - type(c_ptr),value :: myInfo - ! - hipblasSgeqrf_full_rank_devptr = hipblasSgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),myInfo) - end function - #endif #ifdef USE_ASSUMED_RANK function hipblasDgeqrf_assumed_rank(handle,m,n,A,lda,ipiv,myInfo) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeqrf_assumed_rank type(c_ptr), value :: handle @@ -106030,24 +160200,8 @@ function hipblasDgeqrf_assumed_rank(handle,m,n,A,lda,ipiv,myInfo) hipblasDgeqrf_assumed_rank = hipblasDgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),c_loc(myInfo)) end function - function hipblasDgeqrf_assumed_rank_devptr(handle,m,n,A,lda,ipiv,myInfo) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeqrf_assumed_rank_devptr - type(c_ptr), value :: handle - integer(c_int) :: m - integer(c_int) :: n - real(c_double),target,dimension(..) :: A - integer(c_int) :: lda - real(c_double),target,dimension(..) :: ipiv - type(c_ptr),value :: myInfo - ! - hipblasDgeqrf_assumed_rank_devptr = hipblasDgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),myInfo) - end function - #else function hipblasDgeqrf_rank_0(handle,m,n,A,lda,ipiv,myInfo) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeqrf_rank_0 type(c_ptr), value :: handle @@ -106061,23 +160215,7 @@ function hipblasDgeqrf_rank_0(handle,m,n,A,lda,ipiv,myInfo) hipblasDgeqrf_rank_0 = hipblasDgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),c_loc(myInfo)) end function - function hipblasDgeqrf_rank_0_devptr(handle,m,n,A,lda,ipiv,myInfo) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeqrf_rank_0_devptr - type(c_ptr), value :: handle - integer(c_int) :: m - integer(c_int) :: n - real(c_double),target :: A - integer(c_int) :: lda - real(c_double),target :: ipiv - type(c_ptr),value :: myInfo - ! - hipblasDgeqrf_rank_0_devptr = hipblasDgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),myInfo) - end function - function hipblasDgeqrf_rank_1(handle,m,n,A,lda,ipiv,myInfo) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeqrf_rank_1 type(c_ptr), value :: handle @@ -106091,23 +160229,7 @@ function hipblasDgeqrf_rank_1(handle,m,n,A,lda,ipiv,myInfo) hipblasDgeqrf_rank_1 = hipblasDgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),c_loc(myInfo)) end function - function hipblasDgeqrf_rank_1_devptr(handle,m,n,A,lda,ipiv,myInfo) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeqrf_rank_1_devptr - type(c_ptr), value :: handle - integer(c_int) :: m - integer(c_int) :: n - real(c_double),target,dimension(:) :: A - integer(c_int) :: lda - real(c_double),target,dimension(:) :: ipiv - type(c_ptr),value :: myInfo - ! - hipblasDgeqrf_rank_1_devptr = hipblasDgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),myInfo) - end function - function hipblasDgeqrf_full_rank(handle,m,n,A,lda,ipiv,myInfo) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeqrf_full_rank type(c_ptr), value :: handle @@ -106121,25 +160243,9 @@ function hipblasDgeqrf_full_rank(handle,m,n,A,lda,ipiv,myInfo) hipblasDgeqrf_full_rank = hipblasDgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),c_loc(myInfo)) end function - function hipblasDgeqrf_full_rank_devptr(handle,m,n,A,lda,ipiv,myInfo) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeqrf_full_rank_devptr - type(c_ptr), value :: handle - integer(c_int) :: m - integer(c_int) :: n - real(c_double),target,dimension(:,:) :: A - integer(c_int) :: lda - real(c_double),target,dimension(:) :: ipiv - type(c_ptr),value :: myInfo - ! - hipblasDgeqrf_full_rank_devptr = hipblasDgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),myInfo) - end function - #endif #ifdef USE_ASSUMED_RANK function hipblasCgeqrf_assumed_rank(handle,m,n,A,lda,ipiv,myInfo) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeqrf_assumed_rank type(c_ptr), value :: handle @@ -106153,24 +160259,8 @@ function hipblasCgeqrf_assumed_rank(handle,m,n,A,lda,ipiv,myInfo) hipblasCgeqrf_assumed_rank = hipblasCgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),c_loc(myInfo)) end function - function hipblasCgeqrf_assumed_rank_devptr(handle,m,n,A,lda,ipiv,myInfo) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeqrf_assumed_rank_devptr - type(c_ptr), value :: handle - integer(c_int) :: m - integer(c_int) :: n - complex(c_float_complex),target,dimension(..) :: A - integer(c_int) :: lda - complex(c_float_complex),target,dimension(..) :: ipiv - type(c_ptr),value :: myInfo - ! - hipblasCgeqrf_assumed_rank_devptr = hipblasCgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),myInfo) - end function - #else function hipblasCgeqrf_rank_0(handle,m,n,A,lda,ipiv,myInfo) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeqrf_rank_0 type(c_ptr), value :: handle @@ -106184,23 +160274,7 @@ function hipblasCgeqrf_rank_0(handle,m,n,A,lda,ipiv,myInfo) hipblasCgeqrf_rank_0 = hipblasCgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),c_loc(myInfo)) end function - function hipblasCgeqrf_rank_0_devptr(handle,m,n,A,lda,ipiv,myInfo) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeqrf_rank_0_devptr - type(c_ptr), value :: handle - integer(c_int) :: m - integer(c_int) :: n - complex(c_float_complex),target :: A - integer(c_int) :: lda - complex(c_float_complex),target :: ipiv - type(c_ptr),value :: myInfo - ! - hipblasCgeqrf_rank_0_devptr = hipblasCgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),myInfo) - end function - function hipblasCgeqrf_rank_1(handle,m,n,A,lda,ipiv,myInfo) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeqrf_rank_1 type(c_ptr), value :: handle @@ -106214,23 +160288,7 @@ function hipblasCgeqrf_rank_1(handle,m,n,A,lda,ipiv,myInfo) hipblasCgeqrf_rank_1 = hipblasCgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),c_loc(myInfo)) end function - function hipblasCgeqrf_rank_1_devptr(handle,m,n,A,lda,ipiv,myInfo) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeqrf_rank_1_devptr - type(c_ptr), value :: handle - integer(c_int) :: m - integer(c_int) :: n - complex(c_float_complex),target,dimension(:) :: A - integer(c_int) :: lda - complex(c_float_complex),target,dimension(:) :: ipiv - type(c_ptr),value :: myInfo - ! - hipblasCgeqrf_rank_1_devptr = hipblasCgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),myInfo) - end function - function hipblasCgeqrf_full_rank(handle,m,n,A,lda,ipiv,myInfo) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeqrf_full_rank type(c_ptr), value :: handle @@ -106244,25 +160302,9 @@ function hipblasCgeqrf_full_rank(handle,m,n,A,lda,ipiv,myInfo) hipblasCgeqrf_full_rank = hipblasCgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),c_loc(myInfo)) end function - function hipblasCgeqrf_full_rank_devptr(handle,m,n,A,lda,ipiv,myInfo) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeqrf_full_rank_devptr - type(c_ptr), value :: handle - integer(c_int) :: m - integer(c_int) :: n - complex(c_float_complex),target,dimension(:,:) :: A - integer(c_int) :: lda - complex(c_float_complex),target,dimension(:) :: ipiv - type(c_ptr),value :: myInfo - ! - hipblasCgeqrf_full_rank_devptr = hipblasCgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),myInfo) - end function - #endif #ifdef USE_ASSUMED_RANK function hipblasZgeqrf_assumed_rank(handle,m,n,A,lda,ipiv,myInfo) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeqrf_assumed_rank type(c_ptr), value :: handle @@ -106276,24 +160318,8 @@ function hipblasZgeqrf_assumed_rank(handle,m,n,A,lda,ipiv,myInfo) hipblasZgeqrf_assumed_rank = hipblasZgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),c_loc(myInfo)) end function - function hipblasZgeqrf_assumed_rank_devptr(handle,m,n,A,lda,ipiv,myInfo) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeqrf_assumed_rank_devptr - type(c_ptr), value :: handle - integer(c_int) :: m - integer(c_int) :: n - complex(c_double_complex),target,dimension(..) :: A - integer(c_int) :: lda - complex(c_double_complex),target,dimension(..) :: ipiv - type(c_ptr),value :: myInfo - ! - hipblasZgeqrf_assumed_rank_devptr = hipblasZgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),myInfo) - end function - #else function hipblasZgeqrf_rank_0(handle,m,n,A,lda,ipiv,myInfo) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeqrf_rank_0 type(c_ptr), value :: handle @@ -106307,23 +160333,7 @@ function hipblasZgeqrf_rank_0(handle,m,n,A,lda,ipiv,myInfo) hipblasZgeqrf_rank_0 = hipblasZgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),c_loc(myInfo)) end function - function hipblasZgeqrf_rank_0_devptr(handle,m,n,A,lda,ipiv,myInfo) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeqrf_rank_0_devptr - type(c_ptr), value :: handle - integer(c_int) :: m - integer(c_int) :: n - complex(c_double_complex),target :: A - integer(c_int) :: lda - complex(c_double_complex),target :: ipiv - type(c_ptr),value :: myInfo - ! - hipblasZgeqrf_rank_0_devptr = hipblasZgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),myInfo) - end function - function hipblasZgeqrf_rank_1(handle,m,n,A,lda,ipiv,myInfo) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeqrf_rank_1 type(c_ptr), value :: handle @@ -106337,23 +160347,7 @@ function hipblasZgeqrf_rank_1(handle,m,n,A,lda,ipiv,myInfo) hipblasZgeqrf_rank_1 = hipblasZgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),c_loc(myInfo)) end function - function hipblasZgeqrf_rank_1_devptr(handle,m,n,A,lda,ipiv,myInfo) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeqrf_rank_1_devptr - type(c_ptr), value :: handle - integer(c_int) :: m - integer(c_int) :: n - complex(c_double_complex),target,dimension(:) :: A - integer(c_int) :: lda - complex(c_double_complex),target,dimension(:) :: ipiv - type(c_ptr),value :: myInfo - ! - hipblasZgeqrf_rank_1_devptr = hipblasZgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),myInfo) - end function - function hipblasZgeqrf_full_rank(handle,m,n,A,lda,ipiv,myInfo) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeqrf_full_rank type(c_ptr), value :: handle @@ -106367,26 +160361,10 @@ function hipblasZgeqrf_full_rank(handle,m,n,A,lda,ipiv,myInfo) hipblasZgeqrf_full_rank = hipblasZgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),c_loc(myInfo)) end function - function hipblasZgeqrf_full_rank_devptr(handle,m,n,A,lda,ipiv,myInfo) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeqrf_full_rank_devptr - type(c_ptr), value :: handle - integer(c_int) :: m - integer(c_int) :: n - complex(c_double_complex),target,dimension(:,:) :: A - integer(c_int) :: lda - complex(c_double_complex),target,dimension(:) :: ipiv - type(c_ptr),value :: myInfo - ! - hipblasZgeqrf_full_rank_devptr = hipblasZgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),myInfo) - end function - #endif #ifdef USE_ASSUMED_RANK function hipblasSgeqrfStridedBatched_assumed_rank(handle,m,n,A,lda,strideA,ipiv,strideP, & myInfo,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeqrfStridedBatched_assumed_rank type(c_ptr), value :: handle @@ -106404,30 +160382,9 @@ function hipblasSgeqrfStridedBatched_assumed_rank(handle,m,n,A,lda,strideA,ipiv, lda,strideA,c_loc(ipiv),strideP,c_loc(myInfo),batchCount) end function - function hipblasSgeqrfStridedBatched_assumed_rank_devptr(handle,m,n,A,lda,strideA,ipiv, & - strideP,myInfo,batchCount) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeqrfStridedBatched_assumed_rank_devptr - type(c_ptr), value :: handle - integer(c_int) :: m - integer(c_int) :: n - real(c_float),target,dimension(..) :: A - integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_float),target,dimension(..) :: ipiv - integer(c_int64_t) :: strideP - type(c_ptr),value :: myInfo - integer(c_int) :: batchCount - ! - hipblasSgeqrfStridedBatched_assumed_rank_devptr = hipblasSgeqrfStridedBatched_(handle,m,n, & - c_loc(A),lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) - end function - #else function hipblasSgeqrfStridedBatched_rank_0(handle,m,n,A,lda,strideA,ipiv,strideP,myInfo, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeqrfStridedBatched_rank_0 type(c_ptr), value :: handle @@ -106445,29 +160402,8 @@ function hipblasSgeqrfStridedBatched_rank_0(handle,m,n,A,lda,strideA,ipiv,stride strideA,c_loc(ipiv),strideP,c_loc(myInfo),batchCount) end function - function hipblasSgeqrfStridedBatched_rank_0_devptr(handle,m,n,A,lda,strideA,ipiv,strideP, & - myInfo,batchCount) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeqrfStridedBatched_rank_0_devptr - type(c_ptr), value :: handle - integer(c_int) :: m - integer(c_int) :: n - real(c_float),target :: A - integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_float),target :: ipiv - integer(c_int64_t) :: strideP - type(c_ptr),value :: myInfo - integer(c_int) :: batchCount - ! - hipblasSgeqrfStridedBatched_rank_0_devptr = hipblasSgeqrfStridedBatched_(handle,m,n, & - c_loc(A),lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) - end function - function hipblasSgeqrfStridedBatched_rank_1(handle,m,n,A,lda,strideA,ipiv,strideP,myInfo, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeqrfStridedBatched_rank_1 type(c_ptr), value :: handle @@ -106485,29 +160421,8 @@ function hipblasSgeqrfStridedBatched_rank_1(handle,m,n,A,lda,strideA,ipiv,stride strideA,c_loc(ipiv),strideP,c_loc(myInfo),batchCount) end function - function hipblasSgeqrfStridedBatched_rank_1_devptr(handle,m,n,A,lda,strideA,ipiv,strideP, & - myInfo,batchCount) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeqrfStridedBatched_rank_1_devptr - type(c_ptr), value :: handle - integer(c_int) :: m - integer(c_int) :: n - real(c_float),target,dimension(:) :: A - integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_float),target,dimension(:) :: ipiv - integer(c_int64_t) :: strideP - type(c_ptr),value :: myInfo - integer(c_int) :: batchCount - ! - hipblasSgeqrfStridedBatched_rank_1_devptr = hipblasSgeqrfStridedBatched_(handle,m,n, & - c_loc(A),lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) - end function - function hipblasSgeqrfStridedBatched_full_rank(handle,m,n,A,lda,strideA,ipiv,strideP,myInfo, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeqrfStridedBatched_full_rank type(c_ptr), value :: handle @@ -106525,31 +160440,29 @@ function hipblasSgeqrfStridedBatched_full_rank(handle,m,n,A,lda,strideA,ipiv,str lda,strideA,c_loc(ipiv),strideP,c_loc(myInfo),batchCount) end function - function hipblasSgeqrfStridedBatched_full_rank_devptr(handle,m,n,A,lda,strideA,ipiv,strideP, & + function hipblasSgeqrfStridedBatched_strided_rank(handle,m,n,A,lda,strideA,ipiv,strideP, & myInfo,batchCount) - use iso_c_binding implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeqrfStridedBatched_full_rank_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeqrfStridedBatched_strided_rank type(c_ptr), value :: handle integer(c_int) :: m integer(c_int) :: n - real(c_float),target,dimension(:,:) :: A + real(c_float),target,dimension(:,:,:) :: A integer(c_int) :: lda integer(c_int64_t) :: strideA - real(c_float),target,dimension(:) :: ipiv + real(c_float),target,dimension(:,:) :: ipiv integer(c_int64_t) :: strideP - type(c_ptr),value :: myInfo + integer(c_int),target :: myInfo integer(c_int) :: batchCount ! - hipblasSgeqrfStridedBatched_full_rank_devptr = hipblasSgeqrfStridedBatched_(handle,m,n, & - c_loc(A),lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) + hipblasSgeqrfStridedBatched_strided_rank = hipblasSgeqrfStridedBatched_(handle,m,n,c_loc(A), & + lda,strideA,c_loc(ipiv),strideP,c_loc(myInfo),batchCount) end function #endif #ifdef USE_ASSUMED_RANK function hipblasDgeqrfStridedBatched_assumed_rank(handle,m,n,A,lda,strideA,ipiv,strideP, & myInfo,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeqrfStridedBatched_assumed_rank type(c_ptr), value :: handle @@ -106567,30 +160480,9 @@ function hipblasDgeqrfStridedBatched_assumed_rank(handle,m,n,A,lda,strideA,ipiv, lda,strideA,c_loc(ipiv),strideP,c_loc(myInfo),batchCount) end function - function hipblasDgeqrfStridedBatched_assumed_rank_devptr(handle,m,n,A,lda,strideA,ipiv, & - strideP,myInfo,batchCount) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeqrfStridedBatched_assumed_rank_devptr - type(c_ptr), value :: handle - integer(c_int) :: m - integer(c_int) :: n - real(c_double),target,dimension(..) :: A - integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_double),target,dimension(..) :: ipiv - integer(c_int64_t) :: strideP - type(c_ptr),value :: myInfo - integer(c_int) :: batchCount - ! - hipblasDgeqrfStridedBatched_assumed_rank_devptr = hipblasDgeqrfStridedBatched_(handle,m,n, & - c_loc(A),lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) - end function - #else function hipblasDgeqrfStridedBatched_rank_0(handle,m,n,A,lda,strideA,ipiv,strideP,myInfo, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeqrfStridedBatched_rank_0 type(c_ptr), value :: handle @@ -106608,29 +160500,8 @@ function hipblasDgeqrfStridedBatched_rank_0(handle,m,n,A,lda,strideA,ipiv,stride strideA,c_loc(ipiv),strideP,c_loc(myInfo),batchCount) end function - function hipblasDgeqrfStridedBatched_rank_0_devptr(handle,m,n,A,lda,strideA,ipiv,strideP, & - myInfo,batchCount) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeqrfStridedBatched_rank_0_devptr - type(c_ptr), value :: handle - integer(c_int) :: m - integer(c_int) :: n - real(c_double),target :: A - integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_double),target :: ipiv - integer(c_int64_t) :: strideP - type(c_ptr),value :: myInfo - integer(c_int) :: batchCount - ! - hipblasDgeqrfStridedBatched_rank_0_devptr = hipblasDgeqrfStridedBatched_(handle,m,n, & - c_loc(A),lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) - end function - function hipblasDgeqrfStridedBatched_rank_1(handle,m,n,A,lda,strideA,ipiv,strideP,myInfo, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeqrfStridedBatched_rank_1 type(c_ptr), value :: handle @@ -106648,29 +160519,8 @@ function hipblasDgeqrfStridedBatched_rank_1(handle,m,n,A,lda,strideA,ipiv,stride strideA,c_loc(ipiv),strideP,c_loc(myInfo),batchCount) end function - function hipblasDgeqrfStridedBatched_rank_1_devptr(handle,m,n,A,lda,strideA,ipiv,strideP, & - myInfo,batchCount) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeqrfStridedBatched_rank_1_devptr - type(c_ptr), value :: handle - integer(c_int) :: m - integer(c_int) :: n - real(c_double),target,dimension(:) :: A - integer(c_int) :: lda - integer(c_int64_t) :: strideA - real(c_double),target,dimension(:) :: ipiv - integer(c_int64_t) :: strideP - type(c_ptr),value :: myInfo - integer(c_int) :: batchCount - ! - hipblasDgeqrfStridedBatched_rank_1_devptr = hipblasDgeqrfStridedBatched_(handle,m,n, & - c_loc(A),lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) - end function - function hipblasDgeqrfStridedBatched_full_rank(handle,m,n,A,lda,strideA,ipiv,strideP,myInfo, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeqrfStridedBatched_full_rank type(c_ptr), value :: handle @@ -106688,31 +160538,29 @@ function hipblasDgeqrfStridedBatched_full_rank(handle,m,n,A,lda,strideA,ipiv,str lda,strideA,c_loc(ipiv),strideP,c_loc(myInfo),batchCount) end function - function hipblasDgeqrfStridedBatched_full_rank_devptr(handle,m,n,A,lda,strideA,ipiv,strideP, & + function hipblasDgeqrfStridedBatched_strided_rank(handle,m,n,A,lda,strideA,ipiv,strideP, & myInfo,batchCount) - use iso_c_binding implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeqrfStridedBatched_full_rank_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeqrfStridedBatched_strided_rank type(c_ptr), value :: handle integer(c_int) :: m integer(c_int) :: n - real(c_double),target,dimension(:,:) :: A + real(c_double),target,dimension(:,:,:) :: A integer(c_int) :: lda integer(c_int64_t) :: strideA - real(c_double),target,dimension(:) :: ipiv + real(c_double),target,dimension(:,:) :: ipiv integer(c_int64_t) :: strideP - type(c_ptr),value :: myInfo + integer(c_int),target :: myInfo integer(c_int) :: batchCount ! - hipblasDgeqrfStridedBatched_full_rank_devptr = hipblasDgeqrfStridedBatched_(handle,m,n, & - c_loc(A),lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) + hipblasDgeqrfStridedBatched_strided_rank = hipblasDgeqrfStridedBatched_(handle,m,n,c_loc(A), & + lda,strideA,c_loc(ipiv),strideP,c_loc(myInfo),batchCount) end function #endif #ifdef USE_ASSUMED_RANK function hipblasCgeqrfStridedBatched_assumed_rank(handle,m,n,A,lda,strideA,ipiv,strideP, & myInfo,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeqrfStridedBatched_assumed_rank type(c_ptr), value :: handle @@ -106730,30 +160578,9 @@ function hipblasCgeqrfStridedBatched_assumed_rank(handle,m,n,A,lda,strideA,ipiv, lda,strideA,c_loc(ipiv),strideP,c_loc(myInfo),batchCount) end function - function hipblasCgeqrfStridedBatched_assumed_rank_devptr(handle,m,n,A,lda,strideA,ipiv, & - strideP,myInfo,batchCount) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeqrfStridedBatched_assumed_rank_devptr - type(c_ptr), value :: handle - integer(c_int) :: m - integer(c_int) :: n - complex(c_float_complex),target,dimension(..) :: A - integer(c_int) :: lda - integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(..) :: ipiv - integer(c_int64_t) :: strideP - type(c_ptr),value :: myInfo - integer(c_int) :: batchCount - ! - hipblasCgeqrfStridedBatched_assumed_rank_devptr = hipblasCgeqrfStridedBatched_(handle,m,n, & - c_loc(A),lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) - end function - #else function hipblasCgeqrfStridedBatched_rank_0(handle,m,n,A,lda,strideA,ipiv,strideP,myInfo, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeqrfStridedBatched_rank_0 type(c_ptr), value :: handle @@ -106771,29 +160598,8 @@ function hipblasCgeqrfStridedBatched_rank_0(handle,m,n,A,lda,strideA,ipiv,stride strideA,c_loc(ipiv),strideP,c_loc(myInfo),batchCount) end function - function hipblasCgeqrfStridedBatched_rank_0_devptr(handle,m,n,A,lda,strideA,ipiv,strideP, & - myInfo,batchCount) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeqrfStridedBatched_rank_0_devptr - type(c_ptr), value :: handle - integer(c_int) :: m - integer(c_int) :: n - complex(c_float_complex),target :: A - integer(c_int) :: lda - integer(c_int64_t) :: strideA - complex(c_float_complex),target :: ipiv - integer(c_int64_t) :: strideP - type(c_ptr),value :: myInfo - integer(c_int) :: batchCount - ! - hipblasCgeqrfStridedBatched_rank_0_devptr = hipblasCgeqrfStridedBatched_(handle,m,n, & - c_loc(A),lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) - end function - function hipblasCgeqrfStridedBatched_rank_1(handle,m,n,A,lda,strideA,ipiv,strideP,myInfo, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeqrfStridedBatched_rank_1 type(c_ptr), value :: handle @@ -106811,29 +160617,8 @@ function hipblasCgeqrfStridedBatched_rank_1(handle,m,n,A,lda,strideA,ipiv,stride strideA,c_loc(ipiv),strideP,c_loc(myInfo),batchCount) end function - function hipblasCgeqrfStridedBatched_rank_1_devptr(handle,m,n,A,lda,strideA,ipiv,strideP, & - myInfo,batchCount) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeqrfStridedBatched_rank_1_devptr - type(c_ptr), value :: handle - integer(c_int) :: m - integer(c_int) :: n - complex(c_float_complex),target,dimension(:) :: A - integer(c_int) :: lda - integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:) :: ipiv - integer(c_int64_t) :: strideP - type(c_ptr),value :: myInfo - integer(c_int) :: batchCount - ! - hipblasCgeqrfStridedBatched_rank_1_devptr = hipblasCgeqrfStridedBatched_(handle,m,n, & - c_loc(A),lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) - end function - function hipblasCgeqrfStridedBatched_full_rank(handle,m,n,A,lda,strideA,ipiv,strideP,myInfo, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeqrfStridedBatched_full_rank type(c_ptr), value :: handle @@ -106851,31 +160636,29 @@ function hipblasCgeqrfStridedBatched_full_rank(handle,m,n,A,lda,strideA,ipiv,str lda,strideA,c_loc(ipiv),strideP,c_loc(myInfo),batchCount) end function - function hipblasCgeqrfStridedBatched_full_rank_devptr(handle,m,n,A,lda,strideA,ipiv,strideP, & + function hipblasCgeqrfStridedBatched_strided_rank(handle,m,n,A,lda,strideA,ipiv,strideP, & myInfo,batchCount) - use iso_c_binding implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeqrfStridedBatched_full_rank_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeqrfStridedBatched_strided_rank type(c_ptr), value :: handle integer(c_int) :: m integer(c_int) :: n - complex(c_float_complex),target,dimension(:,:) :: A + complex(c_float_complex),target,dimension(:,:,:) :: A integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_float_complex),target,dimension(:) :: ipiv + complex(c_float_complex),target,dimension(:,:) :: ipiv integer(c_int64_t) :: strideP - type(c_ptr),value :: myInfo + integer(c_int),target :: myInfo integer(c_int) :: batchCount ! - hipblasCgeqrfStridedBatched_full_rank_devptr = hipblasCgeqrfStridedBatched_(handle,m,n, & - c_loc(A),lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) + hipblasCgeqrfStridedBatched_strided_rank = hipblasCgeqrfStridedBatched_(handle,m,n,c_loc(A), & + lda,strideA,c_loc(ipiv),strideP,c_loc(myInfo),batchCount) end function #endif #ifdef USE_ASSUMED_RANK function hipblasZgeqrfStridedBatched_assumed_rank(handle,m,n,A,lda,strideA,ipiv,strideP, & myInfo,batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeqrfStridedBatched_assumed_rank type(c_ptr), value :: handle @@ -106893,30 +160676,9 @@ function hipblasZgeqrfStridedBatched_assumed_rank(handle,m,n,A,lda,strideA,ipiv, lda,strideA,c_loc(ipiv),strideP,c_loc(myInfo),batchCount) end function - function hipblasZgeqrfStridedBatched_assumed_rank_devptr(handle,m,n,A,lda,strideA,ipiv, & - strideP,myInfo,batchCount) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeqrfStridedBatched_assumed_rank_devptr - type(c_ptr), value :: handle - integer(c_int) :: m - integer(c_int) :: n - complex(c_double_complex),target,dimension(..) :: A - integer(c_int) :: lda - integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(..) :: ipiv - integer(c_int64_t) :: strideP - type(c_ptr),value :: myInfo - integer(c_int) :: batchCount - ! - hipblasZgeqrfStridedBatched_assumed_rank_devptr = hipblasZgeqrfStridedBatched_(handle,m,n, & - c_loc(A),lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) - end function - #else function hipblasZgeqrfStridedBatched_rank_0(handle,m,n,A,lda,strideA,ipiv,strideP,myInfo, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeqrfStridedBatched_rank_0 type(c_ptr), value :: handle @@ -106934,29 +160696,8 @@ function hipblasZgeqrfStridedBatched_rank_0(handle,m,n,A,lda,strideA,ipiv,stride strideA,c_loc(ipiv),strideP,c_loc(myInfo),batchCount) end function - function hipblasZgeqrfStridedBatched_rank_0_devptr(handle,m,n,A,lda,strideA,ipiv,strideP, & - myInfo,batchCount) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeqrfStridedBatched_rank_0_devptr - type(c_ptr), value :: handle - integer(c_int) :: m - integer(c_int) :: n - complex(c_double_complex),target :: A - integer(c_int) :: lda - integer(c_int64_t) :: strideA - complex(c_double_complex),target :: ipiv - integer(c_int64_t) :: strideP - type(c_ptr),value :: myInfo - integer(c_int) :: batchCount - ! - hipblasZgeqrfStridedBatched_rank_0_devptr = hipblasZgeqrfStridedBatched_(handle,m,n, & - c_loc(A),lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) - end function - function hipblasZgeqrfStridedBatched_rank_1(handle,m,n,A,lda,strideA,ipiv,strideP,myInfo, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeqrfStridedBatched_rank_1 type(c_ptr), value :: handle @@ -106974,29 +160715,8 @@ function hipblasZgeqrfStridedBatched_rank_1(handle,m,n,A,lda,strideA,ipiv,stride strideA,c_loc(ipiv),strideP,c_loc(myInfo),batchCount) end function - function hipblasZgeqrfStridedBatched_rank_1_devptr(handle,m,n,A,lda,strideA,ipiv,strideP, & - myInfo,batchCount) - use iso_c_binding - implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeqrfStridedBatched_rank_1_devptr - type(c_ptr), value :: handle - integer(c_int) :: m - integer(c_int) :: n - complex(c_double_complex),target,dimension(:) :: A - integer(c_int) :: lda - integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:) :: ipiv - integer(c_int64_t) :: strideP - type(c_ptr),value :: myInfo - integer(c_int) :: batchCount - ! - hipblasZgeqrfStridedBatched_rank_1_devptr = hipblasZgeqrfStridedBatched_(handle,m,n, & - c_loc(A),lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) - end function - function hipblasZgeqrfStridedBatched_full_rank(handle,m,n,A,lda,strideA,ipiv,strideP,myInfo, & batchCount) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeqrfStridedBatched_full_rank type(c_ptr), value :: handle @@ -107014,30 +160734,494 @@ function hipblasZgeqrfStridedBatched_full_rank(handle,m,n,A,lda,strideA,ipiv,str lda,strideA,c_loc(ipiv),strideP,c_loc(myInfo),batchCount) end function - function hipblasZgeqrfStridedBatched_full_rank_devptr(handle,m,n,A,lda,strideA,ipiv,strideP, & + function hipblasZgeqrfStridedBatched_strided_rank(handle,m,n,A,lda,strideA,ipiv,strideP, & myInfo,batchCount) - use iso_c_binding implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeqrfStridedBatched_full_rank_devptr + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeqrfStridedBatched_strided_rank type(c_ptr), value :: handle integer(c_int) :: m integer(c_int) :: n - complex(c_double_complex),target,dimension(:,:) :: A + complex(c_double_complex),target,dimension(:,:,:) :: A integer(c_int) :: lda integer(c_int64_t) :: strideA - complex(c_double_complex),target,dimension(:) :: ipiv + complex(c_double_complex),target,dimension(:,:) :: ipiv integer(c_int64_t) :: strideP - type(c_ptr),value :: myInfo + integer(c_int),target :: myInfo integer(c_int) :: batchCount ! - hipblasZgeqrfStridedBatched_full_rank_devptr = hipblasZgeqrfStridedBatched_(handle,m,n, & - c_loc(A),lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) + hipblasZgeqrfStridedBatched_strided_rank = hipblasZgeqrfStridedBatched_(handle,m,n,c_loc(A), & + lda,strideA,c_loc(ipiv),strideP,c_loc(myInfo),batchCount) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasGemmGroupedBatchedEx_assumed_rank(handle,transA_array,transB_array,m_array, & + n_array,k_array,alpha_array,Aarray,aType,lda_array,Barray,bType,ldb_array,beta_array, & + Carray,cType,ldc_array,Darray,dType,ldd_array,group_count,group_size,computeType,algo) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmGroupedBatchedEx_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)),target,dimension(..) :: transA_array + integer(kind(HIPBLAS_OP_N)),target,dimension(..) :: transB_array + integer(c_int),target,dimension(..) :: m_array + integer(c_int),target,dimension(..) :: n_array + integer(c_int),target,dimension(..) :: k_array + type(c_ptr), value :: alpha_array + type(c_ptr), value :: Aarray + integer(c_int) :: aType + integer(c_int),target,dimension(..) :: lda_array + type(c_ptr), value :: Barray + integer(c_int) :: bType + integer(c_int),target,dimension(..) :: ldb_array + type(c_ptr), value :: beta_array + type(c_ptr), value :: Carray + integer(c_int) :: cType + integer(c_int),target,dimension(..) :: ldc_array + type(c_ptr), value :: Darray + integer(c_int) :: dType + integer(c_int),target,dimension(..) :: ldd_array + integer(c_int) :: group_count + integer(c_int),target,dimension(..) :: group_size + integer(kind(HIPBLAS_COMPUTE_16F)) :: computeType + integer(kind(HIPBLAS_GEMM_DEFAULT)) :: algo + ! + hipblasGemmGroupedBatchedEx_assumed_rank = hipblasGemmGroupedBatchedEx_(handle, & + c_loc(transA_array),c_loc(transB_array),c_loc(m_array),c_loc(n_array),c_loc(k_array), & + alpha_array,Aarray,aType,c_loc(lda_array),Barray,bType,c_loc(ldb_array),beta_array,Carray, & + cType,c_loc(ldc_array),Darray,dType,c_loc(ldd_array),group_count,c_loc(group_size), & + computeType,algo) + end function + +#else + function hipblasGemmGroupedBatchedEx_rank_0(handle,transA_array,transB_array,m_array,n_array, & + k_array,alpha_array,Aarray,aType,lda_array,Barray,bType,ldb_array,beta_array,Carray,cType, & + ldc_array,Darray,dType,ldd_array,group_count,group_size,computeType,algo) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmGroupedBatchedEx_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)),target :: transA_array + integer(kind(HIPBLAS_OP_N)),target :: transB_array + integer(c_int),target :: m_array + integer(c_int),target :: n_array + integer(c_int),target :: k_array + type(c_ptr), value :: alpha_array + type(c_ptr), value :: Aarray + integer(c_int) :: aType + integer(c_int),target :: lda_array + type(c_ptr), value :: Barray + integer(c_int) :: bType + integer(c_int),target :: ldb_array + type(c_ptr), value :: beta_array + type(c_ptr), value :: Carray + integer(c_int) :: cType + integer(c_int),target :: ldc_array + type(c_ptr), value :: Darray + integer(c_int) :: dType + integer(c_int),target :: ldd_array + integer(c_int) :: group_count + integer(c_int),target :: group_size + integer(kind(HIPBLAS_COMPUTE_16F)) :: computeType + integer(kind(HIPBLAS_GEMM_DEFAULT)) :: algo + ! + hipblasGemmGroupedBatchedEx_rank_0 = hipblasGemmGroupedBatchedEx_(handle, & + c_loc(transA_array),c_loc(transB_array),c_loc(m_array),c_loc(n_array),c_loc(k_array), & + alpha_array,Aarray,aType,c_loc(lda_array),Barray,bType,c_loc(ldb_array),beta_array,Carray, & + cType,c_loc(ldc_array),Darray,dType,c_loc(ldd_array),group_count,c_loc(group_size), & + computeType,algo) + end function + + function hipblasGemmGroupedBatchedEx_rank_1(handle,transA_array,transB_array,m_array,n_array, & + k_array,alpha_array,Aarray,aType,lda_array,Barray,bType,ldb_array,beta_array,Carray,cType, & + ldc_array,Darray,dType,ldd_array,group_count,group_size,computeType,algo) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmGroupedBatchedEx_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)),target,dimension(:) :: transA_array + integer(kind(HIPBLAS_OP_N)),target,dimension(:) :: transB_array + integer(c_int),target,dimension(:) :: m_array + integer(c_int),target,dimension(:) :: n_array + integer(c_int),target,dimension(:) :: k_array + type(c_ptr), value :: alpha_array + type(c_ptr), value :: Aarray + integer(c_int) :: aType + integer(c_int),target,dimension(:) :: lda_array + type(c_ptr), value :: Barray + integer(c_int) :: bType + integer(c_int),target,dimension(:) :: ldb_array + type(c_ptr), value :: beta_array + type(c_ptr), value :: Carray + integer(c_int) :: cType + integer(c_int),target,dimension(:) :: ldc_array + type(c_ptr), value :: Darray + integer(c_int) :: dType + integer(c_int),target,dimension(:) :: ldd_array + integer(c_int) :: group_count + integer(c_int),target,dimension(:) :: group_size + integer(kind(HIPBLAS_COMPUTE_16F)) :: computeType + integer(kind(HIPBLAS_GEMM_DEFAULT)) :: algo + ! + hipblasGemmGroupedBatchedEx_rank_1 = hipblasGemmGroupedBatchedEx_(handle, & + c_loc(transA_array),c_loc(transB_array),c_loc(m_array),c_loc(n_array),c_loc(k_array), & + alpha_array,Aarray,aType,c_loc(lda_array),Barray,bType,c_loc(ldb_array),beta_array,Carray, & + cType,c_loc(ldc_array),Darray,dType,c_loc(ldd_array),group_count,c_loc(group_size), & + computeType,algo) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasGemmGroupedBatchedExWithFlags_assumed_rank(handle,transA_array,transB_array, & + m_array,n_array,k_array,alpha_array,Aarray,aType,lda_array,Barray,bType,ldb_array, & + beta_array,Carray,cType,ldc_array,Darray,dType,ldd_array,group_count,group_size, & + computeType,algo,flags) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmGroupedBatchedExWithFlags_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)),target,dimension(..) :: transA_array + integer(kind(HIPBLAS_OP_N)),target,dimension(..) :: transB_array + integer(c_int),target,dimension(..) :: m_array + integer(c_int),target,dimension(..) :: n_array + integer(c_int),target,dimension(..) :: k_array + type(c_ptr), value :: alpha_array + type(c_ptr), value :: Aarray + integer(c_int) :: aType + integer(c_int),target,dimension(..) :: lda_array + type(c_ptr), value :: Barray + integer(c_int) :: bType + integer(c_int),target,dimension(..) :: ldb_array + type(c_ptr), value :: beta_array + type(c_ptr), value :: Carray + integer(c_int) :: cType + integer(c_int),target,dimension(..) :: ldc_array + type(c_ptr), value :: Darray + integer(c_int) :: dType + integer(c_int),target,dimension(..) :: ldd_array + integer(c_int) :: group_count + integer(c_int),target,dimension(..) :: group_size + integer(kind(HIPBLAS_COMPUTE_16F)) :: computeType + integer(kind(HIPBLAS_GEMM_DEFAULT)) :: algo + integer(kind(HIPBLAS_GEMM_FLAGS_NONE)) :: flags + ! + hipblasGemmGroupedBatchedExWithFlags_assumed_rank = hipblasGemmGroupedBatchedExWithFlags_( & + handle,c_loc(transA_array),c_loc(transB_array),c_loc(m_array),c_loc(n_array), & + c_loc(k_array),alpha_array,Aarray,aType,c_loc(lda_array),Barray,bType,c_loc(ldb_array), & + beta_array,Carray,cType,c_loc(ldc_array),Darray,dType,c_loc(ldd_array),group_count, & + c_loc(group_size),computeType,algo,flags) + end function + +#else + function hipblasGemmGroupedBatchedExWithFlags_rank_0(handle,transA_array,transB_array,m_array, & + n_array,k_array,alpha_array,Aarray,aType,lda_array,Barray,bType,ldb_array,beta_array, & + Carray,cType,ldc_array,Darray,dType,ldd_array,group_count,group_size,computeType,algo,flags) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmGroupedBatchedExWithFlags_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)),target :: transA_array + integer(kind(HIPBLAS_OP_N)),target :: transB_array + integer(c_int),target :: m_array + integer(c_int),target :: n_array + integer(c_int),target :: k_array + type(c_ptr), value :: alpha_array + type(c_ptr), value :: Aarray + integer(c_int) :: aType + integer(c_int),target :: lda_array + type(c_ptr), value :: Barray + integer(c_int) :: bType + integer(c_int),target :: ldb_array + type(c_ptr), value :: beta_array + type(c_ptr), value :: Carray + integer(c_int) :: cType + integer(c_int),target :: ldc_array + type(c_ptr), value :: Darray + integer(c_int) :: dType + integer(c_int),target :: ldd_array + integer(c_int) :: group_count + integer(c_int),target :: group_size + integer(kind(HIPBLAS_COMPUTE_16F)) :: computeType + integer(kind(HIPBLAS_GEMM_DEFAULT)) :: algo + integer(kind(HIPBLAS_GEMM_FLAGS_NONE)) :: flags + ! + hipblasGemmGroupedBatchedExWithFlags_rank_0 = hipblasGemmGroupedBatchedExWithFlags_(handle, & + c_loc(transA_array),c_loc(transB_array),c_loc(m_array),c_loc(n_array),c_loc(k_array), & + alpha_array,Aarray,aType,c_loc(lda_array),Barray,bType,c_loc(ldb_array),beta_array,Carray, & + cType,c_loc(ldc_array),Darray,dType,c_loc(ldd_array),group_count,c_loc(group_size), & + computeType,algo,flags) + end function + + function hipblasGemmGroupedBatchedExWithFlags_rank_1(handle,transA_array,transB_array,m_array, & + n_array,k_array,alpha_array,Aarray,aType,lda_array,Barray,bType,ldb_array,beta_array, & + Carray,cType,ldc_array,Darray,dType,ldd_array,group_count,group_size,computeType,algo,flags) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmGroupedBatchedExWithFlags_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)),target,dimension(:) :: transA_array + integer(kind(HIPBLAS_OP_N)),target,dimension(:) :: transB_array + integer(c_int),target,dimension(:) :: m_array + integer(c_int),target,dimension(:) :: n_array + integer(c_int),target,dimension(:) :: k_array + type(c_ptr), value :: alpha_array + type(c_ptr), value :: Aarray + integer(c_int) :: aType + integer(c_int),target,dimension(:) :: lda_array + type(c_ptr), value :: Barray + integer(c_int) :: bType + integer(c_int),target,dimension(:) :: ldb_array + type(c_ptr), value :: beta_array + type(c_ptr), value :: Carray + integer(c_int) :: cType + integer(c_int),target,dimension(:) :: ldc_array + type(c_ptr), value :: Darray + integer(c_int) :: dType + integer(c_int),target,dimension(:) :: ldd_array + integer(c_int) :: group_count + integer(c_int),target,dimension(:) :: group_size + integer(kind(HIPBLAS_COMPUTE_16F)) :: computeType + integer(kind(HIPBLAS_GEMM_DEFAULT)) :: algo + integer(kind(HIPBLAS_GEMM_FLAGS_NONE)) :: flags + ! + hipblasGemmGroupedBatchedExWithFlags_rank_1 = hipblasGemmGroupedBatchedExWithFlags_(handle, & + c_loc(transA_array),c_loc(transB_array),c_loc(m_array),c_loc(n_array),c_loc(k_array), & + alpha_array,Aarray,aType,c_loc(lda_array),Barray,bType,c_loc(ldb_array),beta_array,Carray, & + cType,c_loc(ldc_array),Darray,dType,c_loc(ldd_array),group_count,c_loc(group_size), & + computeType,algo,flags) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasGemmGroupedBatchedEx_64_assumed_rank(handle,transA_array,transB_array,m_array, & + n_array,k_array,alpha_array,Aarray,aType,lda_array,Barray,bType,ldb_array,beta_array, & + Carray,cType,ldc_array,Darray,dType,ldd_array,group_count,group_size,computeType,algo) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmGroupedBatchedEx_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)),target,dimension(..) :: transA_array + integer(kind(HIPBLAS_OP_N)),target,dimension(..) :: transB_array + integer(c_int64_t),target,dimension(..) :: m_array + integer(c_int64_t),target,dimension(..) :: n_array + integer(c_int64_t),target,dimension(..) :: k_array + type(c_ptr), value :: alpha_array + type(c_ptr), value :: Aarray + integer(c_int) :: aType + integer(c_int64_t),target,dimension(..) :: lda_array + type(c_ptr), value :: Barray + integer(c_int) :: bType + integer(c_int64_t),target,dimension(..) :: ldb_array + type(c_ptr), value :: beta_array + type(c_ptr), value :: Carray + integer(c_int) :: cType + integer(c_int64_t),target,dimension(..) :: ldc_array + type(c_ptr), value :: Darray + integer(c_int) :: dType + integer(c_int64_t),target,dimension(..) :: ldd_array + integer(c_int64_t) :: group_count + integer(c_int64_t),target,dimension(..) :: group_size + integer(kind(HIPBLAS_COMPUTE_16F)) :: computeType + integer(kind(HIPBLAS_GEMM_DEFAULT)) :: algo + ! + hipblasGemmGroupedBatchedEx_64_assumed_rank = hipblasGemmGroupedBatchedEx_64_(handle, & + c_loc(transA_array),c_loc(transB_array),c_loc(m_array),c_loc(n_array),c_loc(k_array), & + alpha_array,Aarray,aType,c_loc(lda_array),Barray,bType,c_loc(ldb_array),beta_array,Carray, & + cType,c_loc(ldc_array),Darray,dType,c_loc(ldd_array),group_count,c_loc(group_size), & + computeType,algo) + end function + +#else + function hipblasGemmGroupedBatchedEx_64_rank_0(handle,transA_array,transB_array,m_array, & + n_array,k_array,alpha_array,Aarray,aType,lda_array,Barray,bType,ldb_array,beta_array, & + Carray,cType,ldc_array,Darray,dType,ldd_array,group_count,group_size,computeType,algo) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmGroupedBatchedEx_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)),target :: transA_array + integer(kind(HIPBLAS_OP_N)),target :: transB_array + integer(c_int64_t),target :: m_array + integer(c_int64_t),target :: n_array + integer(c_int64_t),target :: k_array + type(c_ptr), value :: alpha_array + type(c_ptr), value :: Aarray + integer(c_int) :: aType + integer(c_int64_t),target :: lda_array + type(c_ptr), value :: Barray + integer(c_int) :: bType + integer(c_int64_t),target :: ldb_array + type(c_ptr), value :: beta_array + type(c_ptr), value :: Carray + integer(c_int) :: cType + integer(c_int64_t),target :: ldc_array + type(c_ptr), value :: Darray + integer(c_int) :: dType + integer(c_int64_t),target :: ldd_array + integer(c_int64_t) :: group_count + integer(c_int64_t),target :: group_size + integer(kind(HIPBLAS_COMPUTE_16F)) :: computeType + integer(kind(HIPBLAS_GEMM_DEFAULT)) :: algo + ! + hipblasGemmGroupedBatchedEx_64_rank_0 = hipblasGemmGroupedBatchedEx_64_(handle, & + c_loc(transA_array),c_loc(transB_array),c_loc(m_array),c_loc(n_array),c_loc(k_array), & + alpha_array,Aarray,aType,c_loc(lda_array),Barray,bType,c_loc(ldb_array),beta_array,Carray, & + cType,c_loc(ldc_array),Darray,dType,c_loc(ldd_array),group_count,c_loc(group_size), & + computeType,algo) + end function + + function hipblasGemmGroupedBatchedEx_64_rank_1(handle,transA_array,transB_array,m_array, & + n_array,k_array,alpha_array,Aarray,aType,lda_array,Barray,bType,ldb_array,beta_array, & + Carray,cType,ldc_array,Darray,dType,ldd_array,group_count,group_size,computeType,algo) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmGroupedBatchedEx_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)),target,dimension(:) :: transA_array + integer(kind(HIPBLAS_OP_N)),target,dimension(:) :: transB_array + integer(c_int64_t),target,dimension(:) :: m_array + integer(c_int64_t),target,dimension(:) :: n_array + integer(c_int64_t),target,dimension(:) :: k_array + type(c_ptr), value :: alpha_array + type(c_ptr), value :: Aarray + integer(c_int) :: aType + integer(c_int64_t),target,dimension(:) :: lda_array + type(c_ptr), value :: Barray + integer(c_int) :: bType + integer(c_int64_t),target,dimension(:) :: ldb_array + type(c_ptr), value :: beta_array + type(c_ptr), value :: Carray + integer(c_int) :: cType + integer(c_int64_t),target,dimension(:) :: ldc_array + type(c_ptr), value :: Darray + integer(c_int) :: dType + integer(c_int64_t),target,dimension(:) :: ldd_array + integer(c_int64_t) :: group_count + integer(c_int64_t),target,dimension(:) :: group_size + integer(kind(HIPBLAS_COMPUTE_16F)) :: computeType + integer(kind(HIPBLAS_GEMM_DEFAULT)) :: algo + ! + hipblasGemmGroupedBatchedEx_64_rank_1 = hipblasGemmGroupedBatchedEx_64_(handle, & + c_loc(transA_array),c_loc(transB_array),c_loc(m_array),c_loc(n_array),c_loc(k_array), & + alpha_array,Aarray,aType,c_loc(lda_array),Barray,bType,c_loc(ldb_array),beta_array,Carray, & + cType,c_loc(ldc_array),Darray,dType,c_loc(ldd_array),group_count,c_loc(group_size), & + computeType,algo) + end function + +#endif +#ifdef USE_ASSUMED_RANK + function hipblasGemmGroupedBatchedExWithFlags_64_assumed_rank(handle,transA_array, & + transB_array,m_array,n_array,k_array,alpha_array,Aarray,aType,lda_array,Barray,bType, & + ldb_array,beta_array,Carray,cType,ldc_array,Darray,dType,ldd_array,group_count,group_size, & + computeType,algo,flags) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmGroupedBatchedExWithFlags_64_assumed_rank + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)),target,dimension(..) :: transA_array + integer(kind(HIPBLAS_OP_N)),target,dimension(..) :: transB_array + integer(c_int64_t),target,dimension(..) :: m_array + integer(c_int64_t),target,dimension(..) :: n_array + integer(c_int64_t),target,dimension(..) :: k_array + type(c_ptr), value :: alpha_array + type(c_ptr), value :: Aarray + integer(c_int) :: aType + integer(c_int64_t),target,dimension(..) :: lda_array + type(c_ptr), value :: Barray + integer(c_int) :: bType + integer(c_int64_t),target,dimension(..) :: ldb_array + type(c_ptr), value :: beta_array + type(c_ptr), value :: Carray + integer(c_int) :: cType + integer(c_int64_t),target,dimension(..) :: ldc_array + type(c_ptr), value :: Darray + integer(c_int) :: dType + integer(c_int64_t),target,dimension(..) :: ldd_array + integer(c_int64_t) :: group_count + integer(c_int64_t),target,dimension(..) :: group_size + integer(kind(HIPBLAS_COMPUTE_16F)) :: computeType + integer(kind(HIPBLAS_GEMM_DEFAULT)) :: algo + integer(kind(HIPBLAS_GEMM_FLAGS_NONE)) :: flags + ! + hipblasGemmGroupedBatchedExWithFlags_64_assumed_rank = & + hipblasGemmGroupedBatchedExWithFlags_64_(handle,c_loc(transA_array),c_loc(transB_array), & + c_loc(m_array),c_loc(n_array),c_loc(k_array),alpha_array,Aarray,aType,c_loc(lda_array), & + Barray,bType,c_loc(ldb_array),beta_array,Carray,cType,c_loc(ldc_array),Darray,dType, & + c_loc(ldd_array),group_count,c_loc(group_size),computeType,algo,flags) + end function + +#else + function hipblasGemmGroupedBatchedExWithFlags_64_rank_0(handle,transA_array,transB_array, & + m_array,n_array,k_array,alpha_array,Aarray,aType,lda_array,Barray,bType,ldb_array, & + beta_array,Carray,cType,ldc_array,Darray,dType,ldd_array,group_count,group_size, & + computeType,algo,flags) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmGroupedBatchedExWithFlags_64_rank_0 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)),target :: transA_array + integer(kind(HIPBLAS_OP_N)),target :: transB_array + integer(c_int64_t),target :: m_array + integer(c_int64_t),target :: n_array + integer(c_int64_t),target :: k_array + type(c_ptr), value :: alpha_array + type(c_ptr), value :: Aarray + integer(c_int) :: aType + integer(c_int64_t),target :: lda_array + type(c_ptr), value :: Barray + integer(c_int) :: bType + integer(c_int64_t),target :: ldb_array + type(c_ptr), value :: beta_array + type(c_ptr), value :: Carray + integer(c_int) :: cType + integer(c_int64_t),target :: ldc_array + type(c_ptr), value :: Darray + integer(c_int) :: dType + integer(c_int64_t),target :: ldd_array + integer(c_int64_t) :: group_count + integer(c_int64_t),target :: group_size + integer(kind(HIPBLAS_COMPUTE_16F)) :: computeType + integer(kind(HIPBLAS_GEMM_DEFAULT)) :: algo + integer(kind(HIPBLAS_GEMM_FLAGS_NONE)) :: flags + ! + hipblasGemmGroupedBatchedExWithFlags_64_rank_0 = hipblasGemmGroupedBatchedExWithFlags_64_( & + handle,c_loc(transA_array),c_loc(transB_array),c_loc(m_array),c_loc(n_array), & + c_loc(k_array),alpha_array,Aarray,aType,c_loc(lda_array),Barray,bType,c_loc(ldb_array), & + beta_array,Carray,cType,c_loc(ldc_array),Darray,dType,c_loc(ldd_array),group_count, & + c_loc(group_size),computeType,algo,flags) + end function + + function hipblasGemmGroupedBatchedExWithFlags_64_rank_1(handle,transA_array,transB_array, & + m_array,n_array,k_array,alpha_array,Aarray,aType,lda_array,Barray,bType,ldb_array, & + beta_array,Carray,cType,ldc_array,Darray,dType,ldd_array,group_count,group_size, & + computeType,algo,flags) + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasGemmGroupedBatchedExWithFlags_64_rank_1 + type(c_ptr), value :: handle + integer(kind(HIPBLAS_OP_N)),target,dimension(:) :: transA_array + integer(kind(HIPBLAS_OP_N)),target,dimension(:) :: transB_array + integer(c_int64_t),target,dimension(:) :: m_array + integer(c_int64_t),target,dimension(:) :: n_array + integer(c_int64_t),target,dimension(:) :: k_array + type(c_ptr), value :: alpha_array + type(c_ptr), value :: Aarray + integer(c_int) :: aType + integer(c_int64_t),target,dimension(:) :: lda_array + type(c_ptr), value :: Barray + integer(c_int) :: bType + integer(c_int64_t),target,dimension(:) :: ldb_array + type(c_ptr), value :: beta_array + type(c_ptr), value :: Carray + integer(c_int) :: cType + integer(c_int64_t),target,dimension(:) :: ldc_array + type(c_ptr), value :: Darray + integer(c_int) :: dType + integer(c_int64_t),target,dimension(:) :: ldd_array + integer(c_int64_t) :: group_count + integer(c_int64_t),target,dimension(:) :: group_size + integer(kind(HIPBLAS_COMPUTE_16F)) :: computeType + integer(kind(HIPBLAS_GEMM_DEFAULT)) :: algo + integer(kind(HIPBLAS_GEMM_FLAGS_NONE)) :: flags + ! + hipblasGemmGroupedBatchedExWithFlags_64_rank_1 = hipblasGemmGroupedBatchedExWithFlags_64_( & + handle,c_loc(transA_array),c_loc(transB_array),c_loc(m_array),c_loc(n_array), & + c_loc(k_array),alpha_array,Aarray,aType,c_loc(lda_array),Barray,bType,c_loc(ldb_array), & + beta_array,Carray,cType,c_loc(ldc_array),Darray,dType,c_loc(ldd_array),group_count, & + c_loc(group_size),computeType,algo,flags) end function #endif #ifdef USE_ASSUMED_RANK function hipblasSetVector_l_assumed_rank(n,x,incx,y,incy) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -107050,7 +161234,6 @@ function hipblasSetVector_l_assumed_rank(n,x,incx,y,incy) result(ret) end function function hipblasSetVector_i4_assumed_rank(n,x,incx,y,incy) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -107063,7 +161246,6 @@ function hipblasSetVector_i4_assumed_rank(n,x,incx,y,incy) result(ret) end function function hipblasSetVector_i8_assumed_rank(n,x,incx,y,incy) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -107076,7 +161258,6 @@ function hipblasSetVector_i8_assumed_rank(n,x,incx,y,incy) result(ret) end function function hipblasSetVector_r4_assumed_rank(n,x,incx,y,incy) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -107089,7 +161270,6 @@ function hipblasSetVector_r4_assumed_rank(n,x,incx,y,incy) result(ret) end function function hipblasSetVector_r8_assumed_rank(n,x,incx,y,incy) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -107102,7 +161282,6 @@ function hipblasSetVector_r8_assumed_rank(n,x,incx,y,incy) result(ret) end function function hipblasSetVector_c4_assumed_rank(n,x,incx,y,incy) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -107115,7 +161294,6 @@ function hipblasSetVector_c4_assumed_rank(n,x,incx,y,incy) result(ret) end function function hipblasSetVector_c8_assumed_rank(n,x,incx,y,incy) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -107128,7 +161306,6 @@ function hipblasSetVector_c8_assumed_rank(n,x,incx,y,incy) result(ret) end function function hipblasGetVector_l_assumed_rank(n,x,incx,y,incy) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -107141,7 +161318,6 @@ function hipblasGetVector_l_assumed_rank(n,x,incx,y,incy) result(ret) end function function hipblasGetVector_i4_assumed_rank(n,x,incx,y,incy) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -107154,7 +161330,6 @@ function hipblasGetVector_i4_assumed_rank(n,x,incx,y,incy) result(ret) end function function hipblasGetVector_i8_assumed_rank(n,x,incx,y,incy) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -107167,7 +161342,6 @@ function hipblasGetVector_i8_assumed_rank(n,x,incx,y,incy) result(ret) end function function hipblasGetVector_r4_assumed_rank(n,x,incx,y,incy) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -107180,7 +161354,6 @@ function hipblasGetVector_r4_assumed_rank(n,x,incx,y,incy) result(ret) end function function hipblasGetVector_r8_assumed_rank(n,x,incx,y,incy) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -107193,7 +161366,6 @@ function hipblasGetVector_r8_assumed_rank(n,x,incx,y,incy) result(ret) end function function hipblasGetVector_c4_assumed_rank(n,x,incx,y,incy) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -107206,7 +161378,6 @@ function hipblasGetVector_c4_assumed_rank(n,x,incx,y,incy) result(ret) end function function hipblasGetVector_c8_assumed_rank(n,x,incx,y,incy) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -107219,7 +161390,6 @@ function hipblasGetVector_c8_assumed_rank(n,x,incx,y,incy) result(ret) end function function hipblasSetMatrix_l_assumed_rank(rows,cols,A,lda,B,ldb) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -107233,7 +161403,6 @@ function hipblasSetMatrix_l_assumed_rank(rows,cols,A,lda,B,ldb) result(ret) end function function hipblasSetMatrix_i4_assumed_rank(rows,cols,A,lda,B,ldb) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -107247,7 +161416,6 @@ function hipblasSetMatrix_i4_assumed_rank(rows,cols,A,lda,B,ldb) result(ret) end function function hipblasSetMatrix_i8_assumed_rank(rows,cols,A,lda,B,ldb) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -107261,7 +161429,6 @@ function hipblasSetMatrix_i8_assumed_rank(rows,cols,A,lda,B,ldb) result(ret) end function function hipblasSetMatrix_r4_assumed_rank(rows,cols,A,lda,B,ldb) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -107275,7 +161442,6 @@ function hipblasSetMatrix_r4_assumed_rank(rows,cols,A,lda,B,ldb) result(ret) end function function hipblasSetMatrix_r8_assumed_rank(rows,cols,A,lda,B,ldb) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -107289,7 +161455,6 @@ function hipblasSetMatrix_r8_assumed_rank(rows,cols,A,lda,B,ldb) result(ret) end function function hipblasSetMatrix_c4_assumed_rank(rows,cols,A,lda,B,ldb) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -107303,7 +161468,6 @@ function hipblasSetMatrix_c4_assumed_rank(rows,cols,A,lda,B,ldb) result(ret) end function function hipblasSetMatrix_c8_assumed_rank(rows,cols,A,lda,B,ldb) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -107317,7 +161481,6 @@ function hipblasSetMatrix_c8_assumed_rank(rows,cols,A,lda,B,ldb) result(ret) end function function hipblasGetMatrix_l_assumed_rank(rows,cols,A,lda,B,ldb) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -107331,7 +161494,6 @@ function hipblasGetMatrix_l_assumed_rank(rows,cols,A,lda,B,ldb) result(ret) end function function hipblasGetMatrix_i4_assumed_rank(rows,cols,A,lda,B,ldb) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -107345,7 +161507,6 @@ function hipblasGetMatrix_i4_assumed_rank(rows,cols,A,lda,B,ldb) result(ret) end function function hipblasGetMatrix_i8_assumed_rank(rows,cols,A,lda,B,ldb) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -107359,7 +161520,6 @@ function hipblasGetMatrix_i8_assumed_rank(rows,cols,A,lda,B,ldb) result(ret) end function function hipblasGetMatrix_r4_assumed_rank(rows,cols,A,lda,B,ldb) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -107373,7 +161533,6 @@ function hipblasGetMatrix_r4_assumed_rank(rows,cols,A,lda,B,ldb) result(ret) end function function hipblasGetMatrix_r8_assumed_rank(rows,cols,A,lda,B,ldb) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -107387,7 +161546,6 @@ function hipblasGetMatrix_r8_assumed_rank(rows,cols,A,lda,B,ldb) result(ret) end function function hipblasGetMatrix_c4_assumed_rank(rows,cols,A,lda,B,ldb) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -107401,7 +161559,6 @@ function hipblasGetMatrix_c4_assumed_rank(rows,cols,A,lda,B,ldb) result(ret) end function function hipblasGetMatrix_c8_assumed_rank(rows,cols,A,lda,B,ldb) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -107415,7 +161572,6 @@ function hipblasGetMatrix_c8_assumed_rank(rows,cols,A,lda,B,ldb) result(ret) end function function hipblasSetVectorAsync_l_assumed_rank(n,x,incx,y,incy,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -107429,7 +161585,6 @@ function hipblasSetVectorAsync_l_assumed_rank(n,x,incx,y,incy,stream) result(ret end function function hipblasSetVectorAsync_i4_assumed_rank(n,x,incx,y,incy,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -107443,7 +161598,6 @@ function hipblasSetVectorAsync_i4_assumed_rank(n,x,incx,y,incy,stream) result(re end function function hipblasSetVectorAsync_i8_assumed_rank(n,x,incx,y,incy,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -107457,7 +161611,6 @@ function hipblasSetVectorAsync_i8_assumed_rank(n,x,incx,y,incy,stream) result(re end function function hipblasSetVectorAsync_r4_assumed_rank(n,x,incx,y,incy,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -107471,7 +161624,6 @@ function hipblasSetVectorAsync_r4_assumed_rank(n,x,incx,y,incy,stream) result(re end function function hipblasSetVectorAsync_r8_assumed_rank(n,x,incx,y,incy,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -107485,7 +161637,6 @@ function hipblasSetVectorAsync_r8_assumed_rank(n,x,incx,y,incy,stream) result(re end function function hipblasSetVectorAsync_c4_assumed_rank(n,x,incx,y,incy,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -107499,7 +161650,6 @@ function hipblasSetVectorAsync_c4_assumed_rank(n,x,incx,y,incy,stream) result(re end function function hipblasSetVectorAsync_c8_assumed_rank(n,x,incx,y,incy,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -107513,7 +161663,6 @@ function hipblasSetVectorAsync_c8_assumed_rank(n,x,incx,y,incy,stream) result(re end function function hipblasGetVectorAsync_l_assumed_rank(n,x,incx,y,incy,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -107527,7 +161676,6 @@ function hipblasGetVectorAsync_l_assumed_rank(n,x,incx,y,incy,stream) result(ret end function function hipblasGetVectorAsync_i4_assumed_rank(n,x,incx,y,incy,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -107541,7 +161689,6 @@ function hipblasGetVectorAsync_i4_assumed_rank(n,x,incx,y,incy,stream) result(re end function function hipblasGetVectorAsync_i8_assumed_rank(n,x,incx,y,incy,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -107555,7 +161702,6 @@ function hipblasGetVectorAsync_i8_assumed_rank(n,x,incx,y,incy,stream) result(re end function function hipblasGetVectorAsync_r4_assumed_rank(n,x,incx,y,incy,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -107569,7 +161715,6 @@ function hipblasGetVectorAsync_r4_assumed_rank(n,x,incx,y,incy,stream) result(re end function function hipblasGetVectorAsync_r8_assumed_rank(n,x,incx,y,incy,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -107583,7 +161728,6 @@ function hipblasGetVectorAsync_r8_assumed_rank(n,x,incx,y,incy,stream) result(re end function function hipblasGetVectorAsync_c4_assumed_rank(n,x,incx,y,incy,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -107597,7 +161741,6 @@ function hipblasGetVectorAsync_c4_assumed_rank(n,x,incx,y,incy,stream) result(re end function function hipblasGetVectorAsync_c8_assumed_rank(n,x,incx,y,incy,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -107611,7 +161754,6 @@ function hipblasGetVectorAsync_c8_assumed_rank(n,x,incx,y,incy,stream) result(re end function function hipblasSetMatrixAsync_l_assumed_rank(rows,cols,A,lda,B,ldb,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -107626,7 +161768,6 @@ function hipblasSetMatrixAsync_l_assumed_rank(rows,cols,A,lda,B,ldb,stream) resu end function function hipblasSetMatrixAsync_i4_assumed_rank(rows,cols,A,lda,B,ldb,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -107641,7 +161782,6 @@ function hipblasSetMatrixAsync_i4_assumed_rank(rows,cols,A,lda,B,ldb,stream) res end function function hipblasSetMatrixAsync_i8_assumed_rank(rows,cols,A,lda,B,ldb,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -107656,7 +161796,6 @@ function hipblasSetMatrixAsync_i8_assumed_rank(rows,cols,A,lda,B,ldb,stream) res end function function hipblasSetMatrixAsync_r4_assumed_rank(rows,cols,A,lda,B,ldb,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -107671,7 +161810,6 @@ function hipblasSetMatrixAsync_r4_assumed_rank(rows,cols,A,lda,B,ldb,stream) res end function function hipblasSetMatrixAsync_r8_assumed_rank(rows,cols,A,lda,B,ldb,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -107686,7 +161824,6 @@ function hipblasSetMatrixAsync_r8_assumed_rank(rows,cols,A,lda,B,ldb,stream) res end function function hipblasSetMatrixAsync_c4_assumed_rank(rows,cols,A,lda,B,ldb,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -107701,7 +161838,6 @@ function hipblasSetMatrixAsync_c4_assumed_rank(rows,cols,A,lda,B,ldb,stream) res end function function hipblasSetMatrixAsync_c8_assumed_rank(rows,cols,A,lda,B,ldb,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -107716,7 +161852,6 @@ function hipblasSetMatrixAsync_c8_assumed_rank(rows,cols,A,lda,B,ldb,stream) res end function function hipblasGetMatrixAsync_l_assumed_rank(rows,cols,A,lda,B,ldb,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -107731,7 +161866,6 @@ function hipblasGetMatrixAsync_l_assumed_rank(rows,cols,A,lda,B,ldb,stream) resu end function function hipblasGetMatrixAsync_i4_assumed_rank(rows,cols,A,lda,B,ldb,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -107746,7 +161880,6 @@ function hipblasGetMatrixAsync_i4_assumed_rank(rows,cols,A,lda,B,ldb,stream) res end function function hipblasGetMatrixAsync_i8_assumed_rank(rows,cols,A,lda,B,ldb,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -107761,7 +161894,6 @@ function hipblasGetMatrixAsync_i8_assumed_rank(rows,cols,A,lda,B,ldb,stream) res end function function hipblasGetMatrixAsync_r4_assumed_rank(rows,cols,A,lda,B,ldb,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -107776,7 +161908,6 @@ function hipblasGetMatrixAsync_r4_assumed_rank(rows,cols,A,lda,B,ldb,stream) res end function function hipblasGetMatrixAsync_r8_assumed_rank(rows,cols,A,lda,B,ldb,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -107791,7 +161922,6 @@ function hipblasGetMatrixAsync_r8_assumed_rank(rows,cols,A,lda,B,ldb,stream) res end function function hipblasGetMatrixAsync_c4_assumed_rank(rows,cols,A,lda,B,ldb,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -107806,7 +161936,6 @@ function hipblasGetMatrixAsync_c4_assumed_rank(rows,cols,A,lda,B,ldb,stream) res end function function hipblasGetMatrixAsync_c8_assumed_rank(rows,cols,A,lda,B,ldb,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -107822,7 +161951,6 @@ function hipblasGetMatrixAsync_c8_assumed_rank(rows,cols,A,lda,B,ldb,stream) res #else function hipblasSetVector_l_rank_0(n,x,incx,y,incy) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -107835,7 +161963,6 @@ function hipblasSetVector_l_rank_0(n,x,incx,y,incy) result(ret) end function function hipblasSetVector_l_full_rank(n,x,incx,y,incy) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -107848,7 +161975,6 @@ function hipblasSetVector_l_full_rank(n,x,incx,y,incy) result(ret) end function function hipblasSetVector_i4_rank_0(n,x,incx,y,incy) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -107861,7 +161987,6 @@ function hipblasSetVector_i4_rank_0(n,x,incx,y,incy) result(ret) end function function hipblasSetVector_i4_full_rank(n,x,incx,y,incy) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -107874,7 +161999,6 @@ function hipblasSetVector_i4_full_rank(n,x,incx,y,incy) result(ret) end function function hipblasSetVector_i8_rank_0(n,x,incx,y,incy) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -107887,7 +162011,6 @@ function hipblasSetVector_i8_rank_0(n,x,incx,y,incy) result(ret) end function function hipblasSetVector_i8_full_rank(n,x,incx,y,incy) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -107900,7 +162023,6 @@ function hipblasSetVector_i8_full_rank(n,x,incx,y,incy) result(ret) end function function hipblasSetVector_r4_rank_0(n,x,incx,y,incy) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -107913,7 +162035,6 @@ function hipblasSetVector_r4_rank_0(n,x,incx,y,incy) result(ret) end function function hipblasSetVector_r4_full_rank(n,x,incx,y,incy) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -107926,7 +162047,6 @@ function hipblasSetVector_r4_full_rank(n,x,incx,y,incy) result(ret) end function function hipblasSetVector_r8_rank_0(n,x,incx,y,incy) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -107939,7 +162059,6 @@ function hipblasSetVector_r8_rank_0(n,x,incx,y,incy) result(ret) end function function hipblasSetVector_r8_full_rank(n,x,incx,y,incy) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -107952,7 +162071,6 @@ function hipblasSetVector_r8_full_rank(n,x,incx,y,incy) result(ret) end function function hipblasSetVector_c4_rank_0(n,x,incx,y,incy) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -107965,7 +162083,6 @@ function hipblasSetVector_c4_rank_0(n,x,incx,y,incy) result(ret) end function function hipblasSetVector_c4_full_rank(n,x,incx,y,incy) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -107978,7 +162095,6 @@ function hipblasSetVector_c4_full_rank(n,x,incx,y,incy) result(ret) end function function hipblasSetVector_c8_rank_0(n,x,incx,y,incy) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -107991,7 +162107,6 @@ function hipblasSetVector_c8_rank_0(n,x,incx,y,incy) result(ret) end function function hipblasSetVector_c8_full_rank(n,x,incx,y,incy) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -108004,7 +162119,6 @@ function hipblasSetVector_c8_full_rank(n,x,incx,y,incy) result(ret) end function function hipblasGetVector_l_rank_0(n,x,incx,y,incy) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -108017,7 +162131,6 @@ function hipblasGetVector_l_rank_0(n,x,incx,y,incy) result(ret) end function function hipblasGetVector_l_full_rank(n,x,incx,y,incy) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -108030,7 +162143,6 @@ function hipblasGetVector_l_full_rank(n,x,incx,y,incy) result(ret) end function function hipblasGetVector_i4_rank_0(n,x,incx,y,incy) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -108043,7 +162155,6 @@ function hipblasGetVector_i4_rank_0(n,x,incx,y,incy) result(ret) end function function hipblasGetVector_i4_full_rank(n,x,incx,y,incy) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -108056,7 +162167,6 @@ function hipblasGetVector_i4_full_rank(n,x,incx,y,incy) result(ret) end function function hipblasGetVector_i8_rank_0(n,x,incx,y,incy) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -108069,7 +162179,6 @@ function hipblasGetVector_i8_rank_0(n,x,incx,y,incy) result(ret) end function function hipblasGetVector_i8_full_rank(n,x,incx,y,incy) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -108082,7 +162191,6 @@ function hipblasGetVector_i8_full_rank(n,x,incx,y,incy) result(ret) end function function hipblasGetVector_r4_rank_0(n,x,incx,y,incy) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -108095,7 +162203,6 @@ function hipblasGetVector_r4_rank_0(n,x,incx,y,incy) result(ret) end function function hipblasGetVector_r4_full_rank(n,x,incx,y,incy) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -108108,7 +162215,6 @@ function hipblasGetVector_r4_full_rank(n,x,incx,y,incy) result(ret) end function function hipblasGetVector_r8_rank_0(n,x,incx,y,incy) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -108121,7 +162227,6 @@ function hipblasGetVector_r8_rank_0(n,x,incx,y,incy) result(ret) end function function hipblasGetVector_r8_full_rank(n,x,incx,y,incy) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -108134,7 +162239,6 @@ function hipblasGetVector_r8_full_rank(n,x,incx,y,incy) result(ret) end function function hipblasGetVector_c4_rank_0(n,x,incx,y,incy) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -108147,7 +162251,6 @@ function hipblasGetVector_c4_rank_0(n,x,incx,y,incy) result(ret) end function function hipblasGetVector_c4_full_rank(n,x,incx,y,incy) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -108160,7 +162263,6 @@ function hipblasGetVector_c4_full_rank(n,x,incx,y,incy) result(ret) end function function hipblasGetVector_c8_rank_0(n,x,incx,y,incy) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -108173,7 +162275,6 @@ function hipblasGetVector_c8_rank_0(n,x,incx,y,incy) result(ret) end function function hipblasGetVector_c8_full_rank(n,x,incx,y,incy) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -108186,7 +162287,6 @@ function hipblasGetVector_c8_full_rank(n,x,incx,y,incy) result(ret) end function function hipblasSetMatrix_l_full_rank(rows,cols,A,B) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -108198,7 +162298,6 @@ function hipblasSetMatrix_l_full_rank(rows,cols,A,B) result(ret) end function function hipblasSetMatrix_l_rank_0(rows,cols,A,lda,B,ldb) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -108212,7 +162311,6 @@ function hipblasSetMatrix_l_rank_0(rows,cols,A,lda,B,ldb) result(ret) end function function hipblasSetMatrix_l_rank_1(rows,cols,A,lda,B,ldb) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -108226,7 +162324,6 @@ function hipblasSetMatrix_l_rank_1(rows,cols,A,lda,B,ldb) result(ret) end function function hipblasSetMatrix_i4_full_rank(rows,cols,A,B) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -108238,7 +162335,6 @@ function hipblasSetMatrix_i4_full_rank(rows,cols,A,B) result(ret) end function function hipblasSetMatrix_i4_rank_0(rows,cols,A,lda,B,ldb) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -108252,7 +162348,6 @@ function hipblasSetMatrix_i4_rank_0(rows,cols,A,lda,B,ldb) result(ret) end function function hipblasSetMatrix_i4_rank_1(rows,cols,A,lda,B,ldb) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -108266,7 +162361,6 @@ function hipblasSetMatrix_i4_rank_1(rows,cols,A,lda,B,ldb) result(ret) end function function hipblasSetMatrix_i8_full_rank(rows,cols,A,B) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -108278,7 +162372,6 @@ function hipblasSetMatrix_i8_full_rank(rows,cols,A,B) result(ret) end function function hipblasSetMatrix_i8_rank_0(rows,cols,A,lda,B,ldb) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -108292,7 +162385,6 @@ function hipblasSetMatrix_i8_rank_0(rows,cols,A,lda,B,ldb) result(ret) end function function hipblasSetMatrix_i8_rank_1(rows,cols,A,lda,B,ldb) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -108306,7 +162398,6 @@ function hipblasSetMatrix_i8_rank_1(rows,cols,A,lda,B,ldb) result(ret) end function function hipblasSetMatrix_r4_full_rank(rows,cols,A,B) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -108318,7 +162409,6 @@ function hipblasSetMatrix_r4_full_rank(rows,cols,A,B) result(ret) end function function hipblasSetMatrix_r4_rank_0(rows,cols,A,lda,B,ldb) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -108332,7 +162422,6 @@ function hipblasSetMatrix_r4_rank_0(rows,cols,A,lda,B,ldb) result(ret) end function function hipblasSetMatrix_r4_rank_1(rows,cols,A,lda,B,ldb) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -108346,7 +162435,6 @@ function hipblasSetMatrix_r4_rank_1(rows,cols,A,lda,B,ldb) result(ret) end function function hipblasSetMatrix_r8_full_rank(rows,cols,A,B) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -108358,7 +162446,6 @@ function hipblasSetMatrix_r8_full_rank(rows,cols,A,B) result(ret) end function function hipblasSetMatrix_r8_rank_0(rows,cols,A,lda,B,ldb) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -108372,7 +162459,6 @@ function hipblasSetMatrix_r8_rank_0(rows,cols,A,lda,B,ldb) result(ret) end function function hipblasSetMatrix_r8_rank_1(rows,cols,A,lda,B,ldb) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -108386,7 +162472,6 @@ function hipblasSetMatrix_r8_rank_1(rows,cols,A,lda,B,ldb) result(ret) end function function hipblasSetMatrix_c4_full_rank(rows,cols,A,B) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -108398,7 +162483,6 @@ function hipblasSetMatrix_c4_full_rank(rows,cols,A,B) result(ret) end function function hipblasSetMatrix_c4_rank_0(rows,cols,A,lda,B,ldb) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -108412,7 +162496,6 @@ function hipblasSetMatrix_c4_rank_0(rows,cols,A,lda,B,ldb) result(ret) end function function hipblasSetMatrix_c4_rank_1(rows,cols,A,lda,B,ldb) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -108426,7 +162509,6 @@ function hipblasSetMatrix_c4_rank_1(rows,cols,A,lda,B,ldb) result(ret) end function function hipblasSetMatrix_c8_full_rank(rows,cols,A,B) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -108438,7 +162520,6 @@ function hipblasSetMatrix_c8_full_rank(rows,cols,A,B) result(ret) end function function hipblasSetMatrix_c8_rank_0(rows,cols,A,lda,B,ldb) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -108452,7 +162533,6 @@ function hipblasSetMatrix_c8_rank_0(rows,cols,A,lda,B,ldb) result(ret) end function function hipblasSetMatrix_c8_rank_1(rows,cols,A,lda,B,ldb) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -108466,7 +162546,6 @@ function hipblasSetMatrix_c8_rank_1(rows,cols,A,lda,B,ldb) result(ret) end function function hipblasGetMatrix_l_full_rank(rows,cols,A,B) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -108478,7 +162557,6 @@ function hipblasGetMatrix_l_full_rank(rows,cols,A,B) result(ret) end function function hipblasGetMatrix_l_rank_0(rows,cols,A,lda,B,ldb) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -108492,7 +162570,6 @@ function hipblasGetMatrix_l_rank_0(rows,cols,A,lda,B,ldb) result(ret) end function function hipblasGetMatrix_l_rank_1(rows,cols,A,lda,B,ldb) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -108506,7 +162583,6 @@ function hipblasGetMatrix_l_rank_1(rows,cols,A,lda,B,ldb) result(ret) end function function hipblasGetMatrix_i4_full_rank(rows,cols,A,B) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -108518,7 +162594,6 @@ function hipblasGetMatrix_i4_full_rank(rows,cols,A,B) result(ret) end function function hipblasGetMatrix_i4_rank_0(rows,cols,A,lda,B,ldb) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -108532,7 +162607,6 @@ function hipblasGetMatrix_i4_rank_0(rows,cols,A,lda,B,ldb) result(ret) end function function hipblasGetMatrix_i4_rank_1(rows,cols,A,lda,B,ldb) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -108546,7 +162620,6 @@ function hipblasGetMatrix_i4_rank_1(rows,cols,A,lda,B,ldb) result(ret) end function function hipblasGetMatrix_i8_full_rank(rows,cols,A,B) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -108558,7 +162631,6 @@ function hipblasGetMatrix_i8_full_rank(rows,cols,A,B) result(ret) end function function hipblasGetMatrix_i8_rank_0(rows,cols,A,lda,B,ldb) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -108572,7 +162644,6 @@ function hipblasGetMatrix_i8_rank_0(rows,cols,A,lda,B,ldb) result(ret) end function function hipblasGetMatrix_i8_rank_1(rows,cols,A,lda,B,ldb) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -108586,7 +162657,6 @@ function hipblasGetMatrix_i8_rank_1(rows,cols,A,lda,B,ldb) result(ret) end function function hipblasGetMatrix_r4_full_rank(rows,cols,A,B) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -108598,7 +162668,6 @@ function hipblasGetMatrix_r4_full_rank(rows,cols,A,B) result(ret) end function function hipblasGetMatrix_r4_rank_0(rows,cols,A,lda,B,ldb) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -108612,7 +162681,6 @@ function hipblasGetMatrix_r4_rank_0(rows,cols,A,lda,B,ldb) result(ret) end function function hipblasGetMatrix_r4_rank_1(rows,cols,A,lda,B,ldb) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -108626,7 +162694,6 @@ function hipblasGetMatrix_r4_rank_1(rows,cols,A,lda,B,ldb) result(ret) end function function hipblasGetMatrix_r8_full_rank(rows,cols,A,B) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -108638,7 +162705,6 @@ function hipblasGetMatrix_r8_full_rank(rows,cols,A,B) result(ret) end function function hipblasGetMatrix_r8_rank_0(rows,cols,A,lda,B,ldb) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -108652,7 +162718,6 @@ function hipblasGetMatrix_r8_rank_0(rows,cols,A,lda,B,ldb) result(ret) end function function hipblasGetMatrix_r8_rank_1(rows,cols,A,lda,B,ldb) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -108666,7 +162731,6 @@ function hipblasGetMatrix_r8_rank_1(rows,cols,A,lda,B,ldb) result(ret) end function function hipblasGetMatrix_c4_full_rank(rows,cols,A,B) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -108678,7 +162742,6 @@ function hipblasGetMatrix_c4_full_rank(rows,cols,A,B) result(ret) end function function hipblasGetMatrix_c4_rank_0(rows,cols,A,lda,B,ldb) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -108692,7 +162755,6 @@ function hipblasGetMatrix_c4_rank_0(rows,cols,A,lda,B,ldb) result(ret) end function function hipblasGetMatrix_c4_rank_1(rows,cols,A,lda,B,ldb) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -108706,7 +162768,6 @@ function hipblasGetMatrix_c4_rank_1(rows,cols,A,lda,B,ldb) result(ret) end function function hipblasGetMatrix_c8_full_rank(rows,cols,A,B) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -108718,7 +162779,6 @@ function hipblasGetMatrix_c8_full_rank(rows,cols,A,B) result(ret) end function function hipblasGetMatrix_c8_rank_0(rows,cols,A,lda,B,ldb) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -108732,7 +162792,6 @@ function hipblasGetMatrix_c8_rank_0(rows,cols,A,lda,B,ldb) result(ret) end function function hipblasGetMatrix_c8_rank_1(rows,cols,A,lda,B,ldb) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -108746,7 +162805,6 @@ function hipblasGetMatrix_c8_rank_1(rows,cols,A,lda,B,ldb) result(ret) end function function hipblasSetVectorAsync_l_rank_0(n,x,incx,y,incy,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -108760,7 +162818,6 @@ function hipblasSetVectorAsync_l_rank_0(n,x,incx,y,incy,stream) result(ret) end function function hipblasSetVectorAsync_l_full_rank(n,x,incx,y,incy,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -108774,7 +162831,6 @@ function hipblasSetVectorAsync_l_full_rank(n,x,incx,y,incy,stream) result(ret) end function function hipblasSetVectorAsync_i4_rank_0(n,x,incx,y,incy,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -108788,7 +162844,6 @@ function hipblasSetVectorAsync_i4_rank_0(n,x,incx,y,incy,stream) result(ret) end function function hipblasSetVectorAsync_i4_full_rank(n,x,incx,y,incy,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -108802,7 +162857,6 @@ function hipblasSetVectorAsync_i4_full_rank(n,x,incx,y,incy,stream) result(ret) end function function hipblasSetVectorAsync_i8_rank_0(n,x,incx,y,incy,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -108816,7 +162870,6 @@ function hipblasSetVectorAsync_i8_rank_0(n,x,incx,y,incy,stream) result(ret) end function function hipblasSetVectorAsync_i8_full_rank(n,x,incx,y,incy,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -108830,7 +162883,6 @@ function hipblasSetVectorAsync_i8_full_rank(n,x,incx,y,incy,stream) result(ret) end function function hipblasSetVectorAsync_r4_rank_0(n,x,incx,y,incy,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -108844,7 +162896,6 @@ function hipblasSetVectorAsync_r4_rank_0(n,x,incx,y,incy,stream) result(ret) end function function hipblasSetVectorAsync_r4_full_rank(n,x,incx,y,incy,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -108858,7 +162909,6 @@ function hipblasSetVectorAsync_r4_full_rank(n,x,incx,y,incy,stream) result(ret) end function function hipblasSetVectorAsync_r8_rank_0(n,x,incx,y,incy,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -108872,7 +162922,6 @@ function hipblasSetVectorAsync_r8_rank_0(n,x,incx,y,incy,stream) result(ret) end function function hipblasSetVectorAsync_r8_full_rank(n,x,incx,y,incy,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -108886,7 +162935,6 @@ function hipblasSetVectorAsync_r8_full_rank(n,x,incx,y,incy,stream) result(ret) end function function hipblasSetVectorAsync_c4_rank_0(n,x,incx,y,incy,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -108900,7 +162948,6 @@ function hipblasSetVectorAsync_c4_rank_0(n,x,incx,y,incy,stream) result(ret) end function function hipblasSetVectorAsync_c4_full_rank(n,x,incx,y,incy,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -108914,7 +162961,6 @@ function hipblasSetVectorAsync_c4_full_rank(n,x,incx,y,incy,stream) result(ret) end function function hipblasSetVectorAsync_c8_rank_0(n,x,incx,y,incy,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -108928,7 +162974,6 @@ function hipblasSetVectorAsync_c8_rank_0(n,x,incx,y,incy,stream) result(ret) end function function hipblasSetVectorAsync_c8_full_rank(n,x,incx,y,incy,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -108942,7 +162987,6 @@ function hipblasSetVectorAsync_c8_full_rank(n,x,incx,y,incy,stream) result(ret) end function function hipblasGetVectorAsync_l_rank_0(n,x,incx,y,incy,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -108956,7 +163000,6 @@ function hipblasGetVectorAsync_l_rank_0(n,x,incx,y,incy,stream) result(ret) end function function hipblasGetVectorAsync_l_full_rank(n,x,incx,y,incy,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -108970,7 +163013,6 @@ function hipblasGetVectorAsync_l_full_rank(n,x,incx,y,incy,stream) result(ret) end function function hipblasGetVectorAsync_i4_rank_0(n,x,incx,y,incy,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -108984,7 +163026,6 @@ function hipblasGetVectorAsync_i4_rank_0(n,x,incx,y,incy,stream) result(ret) end function function hipblasGetVectorAsync_i4_full_rank(n,x,incx,y,incy,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -108998,7 +163039,6 @@ function hipblasGetVectorAsync_i4_full_rank(n,x,incx,y,incy,stream) result(ret) end function function hipblasGetVectorAsync_i8_rank_0(n,x,incx,y,incy,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -109012,7 +163052,6 @@ function hipblasGetVectorAsync_i8_rank_0(n,x,incx,y,incy,stream) result(ret) end function function hipblasGetVectorAsync_i8_full_rank(n,x,incx,y,incy,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -109026,7 +163065,6 @@ function hipblasGetVectorAsync_i8_full_rank(n,x,incx,y,incy,stream) result(ret) end function function hipblasGetVectorAsync_r4_rank_0(n,x,incx,y,incy,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -109040,7 +163078,6 @@ function hipblasGetVectorAsync_r4_rank_0(n,x,incx,y,incy,stream) result(ret) end function function hipblasGetVectorAsync_r4_full_rank(n,x,incx,y,incy,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -109054,7 +163091,6 @@ function hipblasGetVectorAsync_r4_full_rank(n,x,incx,y,incy,stream) result(ret) end function function hipblasGetVectorAsync_r8_rank_0(n,x,incx,y,incy,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -109068,7 +163104,6 @@ function hipblasGetVectorAsync_r8_rank_0(n,x,incx,y,incy,stream) result(ret) end function function hipblasGetVectorAsync_r8_full_rank(n,x,incx,y,incy,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -109082,7 +163117,6 @@ function hipblasGetVectorAsync_r8_full_rank(n,x,incx,y,incy,stream) result(ret) end function function hipblasGetVectorAsync_c4_rank_0(n,x,incx,y,incy,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -109096,7 +163130,6 @@ function hipblasGetVectorAsync_c4_rank_0(n,x,incx,y,incy,stream) result(ret) end function function hipblasGetVectorAsync_c4_full_rank(n,x,incx,y,incy,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -109110,7 +163143,6 @@ function hipblasGetVectorAsync_c4_full_rank(n,x,incx,y,incy,stream) result(ret) end function function hipblasGetVectorAsync_c8_rank_0(n,x,incx,y,incy,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -109124,7 +163156,6 @@ function hipblasGetVectorAsync_c8_rank_0(n,x,incx,y,incy,stream) result(ret) end function function hipblasGetVectorAsync_c8_full_rank(n,x,incx,y,incy,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: n @@ -109138,7 +163169,6 @@ function hipblasGetVectorAsync_c8_full_rank(n,x,incx,y,incy,stream) result(ret) end function function hipblasSetMatrixAsync_l_full_rank(rows,cols,A,B,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -109151,7 +163181,6 @@ function hipblasSetMatrixAsync_l_full_rank(rows,cols,A,B,stream) result(ret) end function function hipblasSetMatrixAsync_l_rank_0(rows,cols,A,lda,B,ldb,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -109166,7 +163195,6 @@ function hipblasSetMatrixAsync_l_rank_0(rows,cols,A,lda,B,ldb,stream) result(ret end function function hipblasSetMatrixAsync_l_rank_1(rows,cols,A,lda,B,ldb,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -109181,7 +163209,6 @@ function hipblasSetMatrixAsync_l_rank_1(rows,cols,A,lda,B,ldb,stream) result(ret end function function hipblasSetMatrixAsync_i4_full_rank(rows,cols,A,B,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -109194,7 +163221,6 @@ function hipblasSetMatrixAsync_i4_full_rank(rows,cols,A,B,stream) result(ret) end function function hipblasSetMatrixAsync_i4_rank_0(rows,cols,A,lda,B,ldb,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -109209,7 +163235,6 @@ function hipblasSetMatrixAsync_i4_rank_0(rows,cols,A,lda,B,ldb,stream) result(re end function function hipblasSetMatrixAsync_i4_rank_1(rows,cols,A,lda,B,ldb,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -109224,7 +163249,6 @@ function hipblasSetMatrixAsync_i4_rank_1(rows,cols,A,lda,B,ldb,stream) result(re end function function hipblasSetMatrixAsync_i8_full_rank(rows,cols,A,B,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -109237,7 +163261,6 @@ function hipblasSetMatrixAsync_i8_full_rank(rows,cols,A,B,stream) result(ret) end function function hipblasSetMatrixAsync_i8_rank_0(rows,cols,A,lda,B,ldb,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -109252,7 +163275,6 @@ function hipblasSetMatrixAsync_i8_rank_0(rows,cols,A,lda,B,ldb,stream) result(re end function function hipblasSetMatrixAsync_i8_rank_1(rows,cols,A,lda,B,ldb,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -109267,7 +163289,6 @@ function hipblasSetMatrixAsync_i8_rank_1(rows,cols,A,lda,B,ldb,stream) result(re end function function hipblasSetMatrixAsync_r4_full_rank(rows,cols,A,B,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -109280,7 +163301,6 @@ function hipblasSetMatrixAsync_r4_full_rank(rows,cols,A,B,stream) result(ret) end function function hipblasSetMatrixAsync_r4_rank_0(rows,cols,A,lda,B,ldb,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -109295,7 +163315,6 @@ function hipblasSetMatrixAsync_r4_rank_0(rows,cols,A,lda,B,ldb,stream) result(re end function function hipblasSetMatrixAsync_r4_rank_1(rows,cols,A,lda,B,ldb,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -109310,7 +163329,6 @@ function hipblasSetMatrixAsync_r4_rank_1(rows,cols,A,lda,B,ldb,stream) result(re end function function hipblasSetMatrixAsync_r8_full_rank(rows,cols,A,B,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -109323,7 +163341,6 @@ function hipblasSetMatrixAsync_r8_full_rank(rows,cols,A,B,stream) result(ret) end function function hipblasSetMatrixAsync_r8_rank_0(rows,cols,A,lda,B,ldb,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -109338,7 +163355,6 @@ function hipblasSetMatrixAsync_r8_rank_0(rows,cols,A,lda,B,ldb,stream) result(re end function function hipblasSetMatrixAsync_r8_rank_1(rows,cols,A,lda,B,ldb,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -109353,7 +163369,6 @@ function hipblasSetMatrixAsync_r8_rank_1(rows,cols,A,lda,B,ldb,stream) result(re end function function hipblasSetMatrixAsync_c4_full_rank(rows,cols,A,B,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -109366,7 +163381,6 @@ function hipblasSetMatrixAsync_c4_full_rank(rows,cols,A,B,stream) result(ret) end function function hipblasSetMatrixAsync_c4_rank_0(rows,cols,A,lda,B,ldb,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -109381,7 +163395,6 @@ function hipblasSetMatrixAsync_c4_rank_0(rows,cols,A,lda,B,ldb,stream) result(re end function function hipblasSetMatrixAsync_c4_rank_1(rows,cols,A,lda,B,ldb,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -109396,7 +163409,6 @@ function hipblasSetMatrixAsync_c4_rank_1(rows,cols,A,lda,B,ldb,stream) result(re end function function hipblasSetMatrixAsync_c8_full_rank(rows,cols,A,B,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -109409,7 +163421,6 @@ function hipblasSetMatrixAsync_c8_full_rank(rows,cols,A,B,stream) result(ret) end function function hipblasSetMatrixAsync_c8_rank_0(rows,cols,A,lda,B,ldb,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -109424,7 +163435,6 @@ function hipblasSetMatrixAsync_c8_rank_0(rows,cols,A,lda,B,ldb,stream) result(re end function function hipblasSetMatrixAsync_c8_rank_1(rows,cols,A,lda,B,ldb,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -109439,7 +163449,6 @@ function hipblasSetMatrixAsync_c8_rank_1(rows,cols,A,lda,B,ldb,stream) result(re end function function hipblasGetMatrixAsync_l_full_rank(rows,cols,A,B,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -109452,7 +163461,6 @@ function hipblasGetMatrixAsync_l_full_rank(rows,cols,A,B,stream) result(ret) end function function hipblasGetMatrixAsync_l_rank_0(rows,cols,A,lda,B,ldb,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -109467,7 +163475,6 @@ function hipblasGetMatrixAsync_l_rank_0(rows,cols,A,lda,B,ldb,stream) result(ret end function function hipblasGetMatrixAsync_l_rank_1(rows,cols,A,lda,B,ldb,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -109482,7 +163489,6 @@ function hipblasGetMatrixAsync_l_rank_1(rows,cols,A,lda,B,ldb,stream) result(ret end function function hipblasGetMatrixAsync_i4_full_rank(rows,cols,A,B,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -109495,7 +163501,6 @@ function hipblasGetMatrixAsync_i4_full_rank(rows,cols,A,B,stream) result(ret) end function function hipblasGetMatrixAsync_i4_rank_0(rows,cols,A,lda,B,ldb,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -109510,7 +163515,6 @@ function hipblasGetMatrixAsync_i4_rank_0(rows,cols,A,lda,B,ldb,stream) result(re end function function hipblasGetMatrixAsync_i4_rank_1(rows,cols,A,lda,B,ldb,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -109525,7 +163529,6 @@ function hipblasGetMatrixAsync_i4_rank_1(rows,cols,A,lda,B,ldb,stream) result(re end function function hipblasGetMatrixAsync_i8_full_rank(rows,cols,A,B,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -109538,7 +163541,6 @@ function hipblasGetMatrixAsync_i8_full_rank(rows,cols,A,B,stream) result(ret) end function function hipblasGetMatrixAsync_i8_rank_0(rows,cols,A,lda,B,ldb,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -109553,7 +163555,6 @@ function hipblasGetMatrixAsync_i8_rank_0(rows,cols,A,lda,B,ldb,stream) result(re end function function hipblasGetMatrixAsync_i8_rank_1(rows,cols,A,lda,B,ldb,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -109568,7 +163569,6 @@ function hipblasGetMatrixAsync_i8_rank_1(rows,cols,A,lda,B,ldb,stream) result(re end function function hipblasGetMatrixAsync_r4_full_rank(rows,cols,A,B,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -109581,7 +163581,6 @@ function hipblasGetMatrixAsync_r4_full_rank(rows,cols,A,B,stream) result(ret) end function function hipblasGetMatrixAsync_r4_rank_0(rows,cols,A,lda,B,ldb,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -109596,7 +163595,6 @@ function hipblasGetMatrixAsync_r4_rank_0(rows,cols,A,lda,B,ldb,stream) result(re end function function hipblasGetMatrixAsync_r4_rank_1(rows,cols,A,lda,B,ldb,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -109611,7 +163609,6 @@ function hipblasGetMatrixAsync_r4_rank_1(rows,cols,A,lda,B,ldb,stream) result(re end function function hipblasGetMatrixAsync_r8_full_rank(rows,cols,A,B,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -109624,7 +163621,6 @@ function hipblasGetMatrixAsync_r8_full_rank(rows,cols,A,B,stream) result(ret) end function function hipblasGetMatrixAsync_r8_rank_0(rows,cols,A,lda,B,ldb,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -109639,7 +163635,6 @@ function hipblasGetMatrixAsync_r8_rank_0(rows,cols,A,lda,B,ldb,stream) result(re end function function hipblasGetMatrixAsync_r8_rank_1(rows,cols,A,lda,B,ldb,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -109654,7 +163649,6 @@ function hipblasGetMatrixAsync_r8_rank_1(rows,cols,A,lda,B,ldb,stream) result(re end function function hipblasGetMatrixAsync_c4_full_rank(rows,cols,A,B,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -109667,7 +163661,6 @@ function hipblasGetMatrixAsync_c4_full_rank(rows,cols,A,B,stream) result(ret) end function function hipblasGetMatrixAsync_c4_rank_0(rows,cols,A,lda,B,ldb,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -109682,7 +163675,6 @@ function hipblasGetMatrixAsync_c4_rank_0(rows,cols,A,lda,B,ldb,stream) result(re end function function hipblasGetMatrixAsync_c4_rank_1(rows,cols,A,lda,B,ldb,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -109697,7 +163689,6 @@ function hipblasGetMatrixAsync_c4_rank_1(rows,cols,A,lda,B,ldb,stream) result(re end function function hipblasGetMatrixAsync_c8_full_rank(rows,cols,A,B,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -109710,7 +163701,6 @@ function hipblasGetMatrixAsync_c8_full_rank(rows,cols,A,B,stream) result(ret) end function function hipblasGetMatrixAsync_c8_rank_0(rows,cols,A,lda,B,ldb,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows @@ -109725,7 +163715,6 @@ function hipblasGetMatrixAsync_c8_rank_0(rows,cols,A,lda,B,ldb,stream) result(re end function function hipblasGetMatrixAsync_c8_rank_1(rows,cols,A,lda,B,ldb,stream) result(ret) - use iso_c_binding implicit none integer(kind(HIPBLAS_STATUS_SUCCESS)) :: ret integer(c_int),value :: rows diff --git a/bindings/fortran/hipblas/metadata/hipblas.toml b/bindings/fortran/hipblas/metadata/hipblas.toml new file mode 100644 index 000000000000..a2e8e9a97cf8 --- /dev/null +++ b/bindings/fortran/hipblas/metadata/hipblas.toml @@ -0,0 +1,111 @@ +# Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +# SPDX-License-Identifier: MIT +# +# What the hipblas C headers cannot express, beyond the defaults the generator +# derives from them: one table per C function, and a key with braces names +# several. A _64 or _spt variant without a table takes its base's. See "Fixing a +# binding" in the generator README; `gen.sh --explain ` shows what +# applies. + +format = 1 + +["hipblas{S,D,Sc,Dz}asum"] +result = "scalar-pointer-mode" + +# No H: __half has no Fortran type, so hipblasH* take their scalars as type(c_ptr). +["hipblas{S,D,Bf}dot"] +result = "scalar-pointer-mode" + +["hipblas{C,Z}dotc"] +result = "scalar-pointer-mode" + +["hipblas{C,Z}dotu"] +result = "scalar-pointer-mode" + +["hipblas{S,D,C,Z}gels"] +deviceInfo = "scalar-device" +info = "scalar-host" + +["hipblas{S,D,C,Z}gels{Batched,StridedBatched}"] +info = "scalar-host" + +["hipblas{S,D,C,Z}geqrf{,Batched,StridedBatched}"] +info = "scalar-host" + +[hipblasGetProperty] +value = "scalar-host" + +["hipblas{S,D,C,Z}getrf"] +info = "scalar-device" + +["hipblas{S,D,C,Z}getrfBatched"] +ipiv = "always-c-ptr" + +["hipblas{S,D,C,Z}getriBatched"] +ipiv = "always-c-ptr" + +["hipblas{S,D,C,Z}getrs{,StridedBatched}"] +info = "scalar-host" + +["hipblas{S,D,C,Z}getrsBatched"] +ipiv = "always-c-ptr" +info = "scalar-host" + +["hipblasI{s,d,c,z}amax"] +result = "scalar-pointer-mode" + +["hipblasI{s,d,c,z}amin"] +result = "scalar-pointer-mode" + +["hipblas{S,D,Sc,Dz}nrm2"] +result = "scalar-pointer-mode" + +["hipblas{S,D,C,Z,Cs,Zd}rot{,Batched,StridedBatched}"] +c = "scalar-pointer-mode" +s = "scalar-pointer-mode" + +["hipblas{S,D,C,Z}rotg"] +a = "scalar-pointer-mode" +b = "scalar-pointer-mode" +c = "scalar-pointer-mode" +s = "scalar-pointer-mode" + +["hipblas{S,D,C,Z}rotgStridedBatched"] +a = "1d" +b = "1d" +c = "1d" +s = "1d" + +["hipblas{S,D}rotmg"] +d1 = "scalar-pointer-mode" +d2 = "scalar-pointer-mode" +x1 = "scalar-pointer-mode" +y1 = "scalar-pointer-mode" + +["hipblas{S,D}rotmgStridedBatched"] +d1 = "1d" +d2 = "1d" +x1 = "1d" +y1 = "1d" + +# Values per batch entry and rotm's param are buffers in host or device memory per +# the pointer mode: devptr keeps the hipfort forms that take them as type(c_ptr). +# getrfStridedBatched's info, one per batch entry on the device, likewise. + +["hipblas{S,D}dotStridedBatched"] +result = "devptr" + +["hipblas{C,Z}dot{c,u}StridedBatched"] +result = "devptr" + +["hipblas{S,D,Sc,Dz}{asum,nrm2}StridedBatched"] +result = "devptr" + +["hipblasI{s,d,c,z}am{ax,in}StridedBatched"] +result = "devptr" + +["hipblas{S,D}rotm{,StridedBatched}"] +param = "devptr" + +["hipblas{S,D,C,Z}getrfStridedBatched"] +info = "devptr" diff --git a/bindings/fortran/hipblas/test/CMakeLists.txt b/bindings/fortran/hipblas/test/CMakeLists.txt new file mode 100644 index 000000000000..ea50b2bae098 --- /dev/null +++ b/bindings/fortran/hipblas/test/CMakeLists.txt @@ -0,0 +1,302 @@ +# ######################################################################## +# Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +# +# SPDX-License-Identifier: MIT +# +# Permission is hereby granted, free of charge, to any person obtaining a copy +# of this software and associated documentation files (the "Software"), to deal +# in the Software without restriction, including without limitation the rights +# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell cop- +# ies of the Software, and to permit persons to whom the Software is furnished +# to do so, subject to the following conditions: +# +# The above copyright notice and this permission notice shall be included in all +# copies or substantial portions of the Software. +# +# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IM- +# PLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS +# FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR +# COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER +# IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNE- +# CTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. +# +# ######################################################################## + +# Intel's ifx/ifort do not treat .f03/.f08 as Fortran source by default. +if(CMAKE_Fortran_COMPILER_ID MATCHES "Intel") + string(REPLACE "" "-Tf " + CMAKE_Fortran_COMPILE_OBJECT "${CMAKE_Fortran_COMPILE_OBJECT}") +endif() + +# The archive has one section per procedure: keep only the wrappers a test calls. +if(NOT APPLE AND NOT WIN32) + add_link_options(-Wl,--gc-sections) +endif() + +if(NOT TARGET hip::hip_fortran) + find_package(hip-fortran QUIET) +endif() +if(NOT TARGET hip::hip_fortran) + message(STATUS + "hipBLAS: no hip::hip_fortran target, skipping the Fortran binding tests " + "(they `use hip`). Point CMAKE_PREFIX_PATH at a ROCm whose HIP Fortran " + "bindings were built with ${CMAKE_Fortran_COMPILER}.") + return() +endif() + +if(NOT TARGET roc::hipblas) + if(NOT CMAKE_C_COMPILER_LOADED AND NOT CMAKE_CXX_COMPILER_LOADED) + enable_language(C) + endif() + find_package(hipblas QUIET) +endif() +if(NOT TARGET roc::hipblas) + message(STATUS + "hipBLAS: no roc::hipblas target, skipping the Fortran binding tests " + "(they link libhipblas). Point CMAKE_PREFIX_PATH at an installed ROCm to " + "build them standalone.") + return() +endif() + +# hipblas_fortran_add_test( ): a .f03 test calls the C interfaces; a +# .f08 test calls the array overloads and registers as _f2008. +function(hipblas_fortran_add_test name ext) + set(src "${CMAKE_CURRENT_SOURCE_DIR}/${name}.${ext}") + if(ext STREQUAL "f08") + set(name "${name}_f2008") + endif() + set_source_files_properties("${src}" PROPERTIES LANGUAGE Fortran) + add_executable(hipblas_fortran_test_${name} "${src}") + set_target_properties(hipblas_fortran_test_${name} PROPERTIES LINKER_LANGUAGE Fortran) + target_link_libraries(hipblas_fortran_test_${name} PRIVATE + hipblas_fortran hip::hip_fortran roc::hipblas) + # The tests call EXIT, a GNU extension in gfortran. + if(CMAKE_Fortran_COMPILER_ID STREQUAL "GNU") + target_compile_options(hipblas_fortran_test_${name} PRIVATE -std=gnu) + endif() + add_test(NAME hipblas_fortran_${name} COMMAND hipblas_fortran_test_${name}) + set_tests_properties(hipblas_fortran_${name} PROPERTIES LABELS "gpu") +endfunction() + +set(HIPBLAS_FORTRAN_TESTS + caxpy + caxpy_devptr + cdotc + cdotu + cgeam + cgeam_devptr + cgemm + cgemm_batched + cgemm_batched_devptr + cgemm_devptr + cgemm_strided_batched + cgemm_strided_batched_devptr + cgemm_trans + cgemv + cgemv_devptr + cgemv_trans + csymm + csymm_devptr + csyrk + csyrk_devptr + ctrmm + ctrmm_devptr + ctrsm + ctrsm_devptr + ctrsv + dasum + daxpy + daxpy_devptr + ddot + dgeam + dgeam_devptr + dgemm + dgemm_batched + dgemm_batched_devptr + dgemm_devptr + dgemm_strided_batched + dgemm_strided_batched_devptr + dgemm_trans + dgemv + dgemv_devptr + dgemv_trans + dger + dger_devptr + dnrm2 + dscal + dscal_devptr + dsymm + dsymm_devptr + dsyrk + dsyrk_devptr + dtrmm + dtrmm_devptr + dtrsm + dtrsm_devptr + dtrsv + dzasum + dznrm2 + gemmex + gemmex_devptr + hipblas_handle_state + hipblas_pointer_mode + hipblas_version + icamax + idamax + isamax + izamax + sasum + saxpy + saxpy_devptr + scasum + scnrm2 + scopy + sdot + sgeam + sgeam_devptr + sgemm + sgemm_batched + sgemm_batched_devptr + sgemm_devptr + sgemm_strided_batched + sgemm_strided_batched_devptr + sgemm_trans + sgemm_typed + sgemv + sgemv_devptr + sgemv_trans + sger + sger_devptr + snrm2 + snrm2_typed + sswap + ssymm + ssymm_devptr + ssyrk + ssyrk_devptr + strmm + strmm_devptr + strsm + strsm_devptr + strsv + zaxpy + zaxpy_devptr + zaxpy_typed + zdotc + zdotu + zgeam + zgeam_devptr + zgemm + zgemm_batched + zgemm_batched_devptr + zgemm_devptr + zgemm_strided_batched + zgemm_strided_batched_devptr + zgemm_trans + zgemv + zgemv_devptr + zgemv_trans + zsymm + zsymm_devptr + zsyrk + zsyrk_devptr + ztrmm + ztrmm_devptr + ztrsm + ztrsm_devptr + ztrsv) + +set(HIPBLAS_FORTRAN_F2008_TESTS + caxpy + cdotc + cdotu + cgeam + cgemm + cgemm_batched + cgemm_strided_batched + cgemm_trans + cgemv + cgemv_trans + csymm + csyrk + ctrmm + ctrsm + ctrsv + dasum + daxpy + ddot + dgeam + dgemm + dgemm_batched + dgemm_strided_batched + dgemm_trans + dgemv + dgemv_trans + dger + dnrm2 + dscal + dsymm + dsyrk + dtrmm + dtrsm + dtrsv + dzasum + dznrm2 + gemmex + hipblas_handle_state + hipblas_pointer_mode + hipblas_version + icamax + idamax + isamax + izamax + sasum + saxpy + scasum + scnrm2 + scopy + sdot + sgeam + sgemm + sgemm_batched + sgemm_strided_batched + sgemm_trans + sgemv + sgemv_trans + sgeqrf_info_host + sger + sgetrf_strided_batched_info + snrm2 + srot_strided_batched_cs + sswap + ssymm + ssyrk + stpsv + strmm + strsm + strsv + zaxpy + zdotc + zdotu + zgeam + zgemm + zgemm_batched + zgemm_strided_batched + zgemm_trans + zgemv + zgemv_trans + zsymm + zsyrk + ztrmm + ztrsm + ztrsv) + +foreach(_t IN LISTS HIPBLAS_FORTRAN_TESTS) + hipblas_fortran_add_test(${_t} f03) +endforeach() +# The .f08 tests need the array overloads, which FORTRAN_ARRAY_INTERFACES=none leaves out. +if(NOT FORTRAN_ARRAY_INTERFACES STREQUAL "none") + foreach(_t IN LISTS HIPBLAS_FORTRAN_F2008_TESTS) + hipblas_fortran_add_test(${_t} f08) + endforeach() +endif() diff --git a/bindings/fortran/hipblas/test/caxpy.f03 b/bindings/fortran/hipblas/test/caxpy.f03 new file mode 100644 index 000000000000..9f29457b085a --- /dev/null +++ b/bindings/fortran/hipblas/test/caxpy.f03 @@ -0,0 +1,99 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_caxpy + use iso_c_binding + use hip + use hipblas + + implicit none + + integer :: n = 6 + type(c_ptr) :: handle = c_null_ptr + integer :: j + complex(kind=4), allocatable, target, dimension(:) :: x, y, y_exact + + complex(kind=4), target :: alpha = (2.0, 0.) + type(c_ptr) :: dx = c_null_ptr, dy = c_null_ptr + + integer, parameter :: bytes_per_element = 8 + + integer(c_size_t) :: Nxbytes + integer(c_size_t) :: Nybytes + + real(kind=4) :: error + real(kind=4), parameter :: error_max = 10*epsilon(error) + + Nxbytes = n * bytes_per_element + Nybytes = n * bytes_per_element + allocate(x(n)) + allocate(y(n)) + allocate(y_exact(n)) + + do j = 1, n + x(j) = cmplx(j, 0) + y(j) = cmplx(j, 0) + end do + + do j = 1, n + y_exact(j) = alpha*x(j) + y(j) + end do + + write(*,"(a)",advance="no") "-- Running test 'CAXPY' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + call hipCheck(hipMalloc(dx, Nxbytes)) + call hipCheck(hipMalloc(dy, Nybytes)) + + call hipCheck(hipMemcpy(dx, c_loc(x(1)), Nxbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dy, c_loc(y(1)), Nybytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasCaxpy(handle, n, c_loc(alpha), dx, 1, dy, 1)) + + call hipCheck(hipDeviceSynchronize()) + + call hipCheck(hipMemcpy(c_loc(y(1)), dy, Nybytes, hipMemcpyDeviceToHost)) + + do j = 1, n + error = abs((y_exact(j) - y(j))/y_exact(j)) + if (error > error_max) then + write(*,*) "FAILED! Error bigger than max! Error = ", error + call exit(1) + end if + end do + + call hipCheck(hipFree(dx)) + call hipCheck(hipFree(dy)) + + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(x) + deallocate(y) + deallocate(y_exact) + + write(*,*) "PASSED!" + +end program hip_caxpy diff --git a/bindings/fortran/hipblas/test/caxpy.f08 b/bindings/fortran/hipblas/test/caxpy.f08 new file mode 100644 index 000000000000..c457d9a14d54 --- /dev/null +++ b/bindings/fortran/hipblas/test/caxpy.f08 @@ -0,0 +1,90 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_caxpy + use iso_c_binding + use hip + use hipblas + + implicit none + + integer :: n = 6 + type(c_ptr) :: handle = c_null_ptr + integer :: j + complex(kind=4), allocatable, dimension(:) :: x, y, y_exact + + complex(kind=4), target :: alpha = (2.0, 0.) + complex(kind=4), pointer, dimension(:) :: dx, dy + + real(kind=4) :: error + real(kind=4), parameter :: error_max = 10*epsilon(error) + + allocate(x(n)) + allocate(y(n)) + allocate(y_exact(n)) + + do j = 1, n + x(j) = cmplx(j, 0) + y(j) = cmplx(j, 0) + end do + + do j = 1, n + y_exact(j) = alpha*x(j) + y(j) + end do + + write(*,"(a)",advance="no") "-- Running test 'CAXPY' (Fortran 2008 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + call hipCheck(hipMalloc(dx, shape(x))) + call hipCheck(hipMalloc(dy, shape(y))) + + call hipCheck(hipMemcpy(dx, x, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dy, y, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasCaxpy(handle, n, alpha, dx, 1, dy, 1)) + + call hipCheck(hipDeviceSynchronize()) + + call hipCheck(hipMemcpy(y, dy, hipMemcpyDeviceToHost)) + + do j = 1, n + error = abs((y_exact(j) - y(j))/y_exact(j)) + if (error > error_max) then + write(*,*) "FAILED! Error bigger than max! Error = ", error + call exit(1) + end if + end do + + call hipCheck(hipFree(dx)) + call hipCheck(hipFree(dy)) + + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(x, y, y_exact) + + write(*,*) "PASSED!" + +end program hip_caxpy diff --git a/bindings/fortran/hipblas/test/caxpy_devptr.f03 b/bindings/fortran/hipblas/test/caxpy_devptr.f03 new file mode 100644 index 000000000000..1ccd7b1582d8 --- /dev/null +++ b/bindings/fortran/hipblas/test/caxpy_devptr.f03 @@ -0,0 +1,109 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_caxpy + use iso_c_binding + use hip + use hipblas + + implicit none + + integer :: n = 6 + type(c_ptr) :: handle = c_null_ptr + integer :: j + complex(kind=4), allocatable, target, dimension(:) :: x, y, y_exact + + complex(kind=4), target :: alpha = (2.0, 0.) + + ! Device-resident copies of the dual-mode scalars; the library reads them + ! from device memory because the handle is in device pointer mode. + type(c_ptr) :: d_alpha = c_null_ptr + type(c_ptr) :: dx = c_null_ptr, dy = c_null_ptr + + integer, parameter :: bytes_per_element = 8 + + integer(c_size_t) :: Nxbytes + integer(c_size_t) :: Nybytes + + real(kind=4) :: error + real(kind=4), parameter :: error_max = 10*epsilon(error) + + Nxbytes = n * bytes_per_element + Nybytes = n * bytes_per_element + allocate(x(n)) + allocate(y(n)) + allocate(y_exact(n)) + + do j = 1, n + x(j) = cmplx(j, 0) + y(j) = cmplx(j, 0) + end do + + do j = 1, n + y_exact(j) = alpha*x(j) + y(j) + end do + + write(*,"(a)",advance="no") "-- Running test 'CAXPY_devptr' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + ! Switch to device pointer mode and stage the scalars in device memory + call hipblasCheck(hipblasSetPointerMode(handle, HIPBLAS_POINTER_MODE_DEVICE)) + call hipCheck(hipMalloc(d_alpha, c_sizeof(alpha))) + call hipCheck(hipMemcpy(d_alpha, c_loc(alpha), c_sizeof(alpha), hipMemcpyHostToDevice)) + + call hipCheck(hipMalloc(dx, Nxbytes)) + call hipCheck(hipMalloc(dy, Nybytes)) + + call hipCheck(hipMemcpy(dx, c_loc(x(1)), Nxbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dy, c_loc(y(1)), Nybytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasCaxpy(handle, n, d_alpha, dx, 1, dy, 1)) + + call hipCheck(hipDeviceSynchronize()) + + call hipCheck(hipMemcpy(c_loc(y(1)), dy, Nybytes, hipMemcpyDeviceToHost)) + + do j = 1, n + error = abs((y_exact(j) - y(j))/y_exact(j)) + if (error > error_max) then + write(*,*) "FAILED! Error bigger than max! Error = ", error + call exit(1) + end if + end do + + call hipCheck(hipFree(dx)) + call hipCheck(hipFree(dy)) + + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(x) + deallocate(y) + deallocate(y_exact) + + call hipCheck(hipFree(d_alpha)) + write(*,*) "PASSED!" + +end program hip_caxpy diff --git a/bindings/fortran/hipblas/test/cdotc.f03 b/bindings/fortran/hipblas/test/cdotc.f03 new file mode 100644 index 000000000000..aab9d93e518a --- /dev/null +++ b/bindings/fortran/hipblas/test/cdotc.f03 @@ -0,0 +1,75 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_cdotc + use iso_c_binding + use hip + use hipblas + + implicit none + + integer, parameter :: n = 10240 + integer, parameter :: bytes_per_element = 8 + integer(c_size_t) :: Nbytes + complex(kind=4), allocatable, target, dimension(:) :: hx, hy + complex(kind=4), target :: res + complex(kind=4) :: res_exact + double precision :: error + double precision, parameter :: error_max = 10*epsilon(real(1.0,kind=4)) + type(c_ptr) :: dx = c_null_ptr, dy = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + + write(*,"(a)",advance="no") "-- Running test 'CDOTC' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + Nbytes = int(n, c_size_t) * bytes_per_element + allocate(hx(n), hy(n)) + hx = (1.0, 1.0) + hy = (2.0, 0.0) + res_exact = cmplx(2.0*n, -2.0*n, kind=4) + + call hipCheck(hipMalloc(dx, Nbytes)) + call hipCheck(hipMalloc(dy, Nbytes)) + call hipCheck(hipMemcpy(dx, c_loc(hx(1)), Nbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dy, c_loc(hy(1)), Nbytes, hipMemcpyHostToDevice)) + + res = (0.0, 0.0) + call hipblasCheck(hipblasCdotc(handle, n, dx, 1, dy, 1, c_loc(res))) + call hipCheck(hipDeviceSynchronize()) + + error = abs((res_exact - res) / res_exact) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " result = ", res + call exit(1) + end if + + call hipCheck(hipFree(dx)) + call hipCheck(hipFree(dy)) + call hipblasCheck(hipblasDestroy(handle)) + deallocate(hx, hy) + write(*,*) "PASSED!" + +end program hip_cdotc diff --git a/bindings/fortran/hipblas/test/cdotc.f08 b/bindings/fortran/hipblas/test/cdotc.f08 new file mode 100644 index 000000000000..205a949bc0a4 --- /dev/null +++ b/bindings/fortran/hipblas/test/cdotc.f08 @@ -0,0 +1,72 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_cdotc + use iso_c_binding + use hip + use hipblas + + implicit none + + integer, parameter :: n = 10240 + complex(kind=4), allocatable, dimension(:) :: hx, hy + complex(kind=4), pointer, dimension(:) :: dx, dy + complex(kind=4), target :: res + complex(kind=4) :: res_exact + double precision :: error + double precision, parameter :: error_max = 10*epsilon(real(1.0,kind=4)) + type(c_ptr) :: handle = c_null_ptr + + write(*,"(a)",advance="no") "-- Running test 'CDOTC' (Fortran 2008 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + allocate(hx(n), hy(n)) + hx = (1.0, 1.0) + hy = (2.0, 0.0) + res_exact = cmplx(2.0*n, -2.0*n, kind=4) + + call hipCheck(hipMalloc(dx, shape(hx))) + call hipCheck(hipMalloc(dy, shape(hy))) + call hipCheck(hipMemcpy(dx, hx, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dy, hy, hipMemcpyHostToDevice)) + + res = (0.0, 0.0) + call hipblasCheck(hipblasCdotc(handle, n, dx, 1, dy, 1, c_loc(res))) + call hipCheck(hipDeviceSynchronize()) + + error = abs((res_exact - res) / res_exact) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " result = ", res + call exit(1) + end if + + call hipCheck(hipFree(dx)) + call hipCheck(hipFree(dy)) + call hipblasCheck(hipblasDestroy(handle)) + deallocate(hx, hy) + write(*,*) "PASSED!" + +end program hip_cdotc diff --git a/bindings/fortran/hipblas/test/cdotu.f03 b/bindings/fortran/hipblas/test/cdotu.f03 new file mode 100644 index 000000000000..e57fc70a2aa4 --- /dev/null +++ b/bindings/fortran/hipblas/test/cdotu.f03 @@ -0,0 +1,75 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_cdotu + use iso_c_binding + use hip + use hipblas + + implicit none + + integer, parameter :: n = 10240 + integer, parameter :: bytes_per_element = 8 + integer(c_size_t) :: Nbytes + complex(kind=4), allocatable, target, dimension(:) :: hx, hy + complex(kind=4), target :: res + complex(kind=4) :: res_exact + double precision :: error + double precision, parameter :: error_max = 10*epsilon(real(1.0,kind=4)) + type(c_ptr) :: dx = c_null_ptr, dy = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + + write(*,"(a)",advance="no") "-- Running test 'CDOTU' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + Nbytes = int(n, c_size_t) * bytes_per_element + allocate(hx(n), hy(n)) + hx = (1.0, 1.0) + hy = (2.0, 0.0) + res_exact = cmplx(2.0*n, 2.0*n, kind=4) + + call hipCheck(hipMalloc(dx, Nbytes)) + call hipCheck(hipMalloc(dy, Nbytes)) + call hipCheck(hipMemcpy(dx, c_loc(hx(1)), Nbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dy, c_loc(hy(1)), Nbytes, hipMemcpyHostToDevice)) + + res = (0.0, 0.0) + call hipblasCheck(hipblasCdotu(handle, n, dx, 1, dy, 1, c_loc(res))) + call hipCheck(hipDeviceSynchronize()) + + error = abs((res_exact - res) / res_exact) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " result = ", res + call exit(1) + end if + + call hipCheck(hipFree(dx)) + call hipCheck(hipFree(dy)) + call hipblasCheck(hipblasDestroy(handle)) + deallocate(hx, hy) + write(*,*) "PASSED!" + +end program hip_cdotu diff --git a/bindings/fortran/hipblas/test/cdotu.f08 b/bindings/fortran/hipblas/test/cdotu.f08 new file mode 100644 index 000000000000..8960426fef8d --- /dev/null +++ b/bindings/fortran/hipblas/test/cdotu.f08 @@ -0,0 +1,72 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_cdotu + use iso_c_binding + use hip + use hipblas + + implicit none + + integer, parameter :: n = 10240 + complex(kind=4), allocatable, dimension(:) :: hx, hy + complex(kind=4), pointer, dimension(:) :: dx, dy + complex(kind=4), target :: res + complex(kind=4) :: res_exact + double precision :: error + double precision, parameter :: error_max = 10*epsilon(real(1.0,kind=4)) + type(c_ptr) :: handle = c_null_ptr + + write(*,"(a)",advance="no") "-- Running test 'CDOTU' (Fortran 2008 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + allocate(hx(n), hy(n)) + hx = (1.0, 1.0) + hy = (2.0, 0.0) + res_exact = cmplx(2.0*n, 2.0*n, kind=4) + + call hipCheck(hipMalloc(dx, shape(hx))) + call hipCheck(hipMalloc(dy, shape(hy))) + call hipCheck(hipMemcpy(dx, hx, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dy, hy, hipMemcpyHostToDevice)) + + res = (0.0, 0.0) + call hipblasCheck(hipblasCdotu(handle, n, dx, 1, dy, 1, c_loc(res))) + call hipCheck(hipDeviceSynchronize()) + + error = abs((res_exact - res) / res_exact) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " result = ", res + call exit(1) + end if + + call hipCheck(hipFree(dx)) + call hipCheck(hipFree(dy)) + call hipblasCheck(hipblasDestroy(handle)) + deallocate(hx, hy) + write(*,*) "PASSED!" + +end program hip_cdotu diff --git a/bindings/fortran/hipblas/test/cgeam.f03 b/bindings/fortran/hipblas/test/cgeam.f03 new file mode 100644 index 000000000000..fe7c7f295e24 --- /dev/null +++ b/bindings/fortran/hipblas/test/cgeam.f03 @@ -0,0 +1,85 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_cgeam + use iso_c_binding + use hip + use hipblas + + implicit none + + ! C := alpha*op(A) + beta*op(B) with alpha = 2, beta = -1 and no + ! transposition, so C = 2*A - B (a swap of alpha and beta, or of A and B, shows). + integer, parameter :: ld = 2 + integer(c_size_t) :: Nbytes + complex(c_float_complex), target :: alpha = (2.0, 0.0), beta = (-1.0, 0.0) + + complex(c_float_complex), target :: hA(ld,ld) = reshape([(1.0, 0.0), (2.0, 0.0), (3.0, 0.0), (4.0, 0.0)], [ld,ld]) + complex(c_float_complex), target :: hB(ld,ld) = reshape([(10.0, 0.0), (20.0, 0.0), (30.0, 0.0), (40.0, 0.0)], [ld,ld]) + complex(c_float_complex), target :: hC(ld,ld) + complex(c_float_complex) :: expected(ld,ld) = reshape([(-8.0, 0.0), (-16.0, 0.0), (-24.0, 0.0), (-32.0, 0.0)], [ld,ld]) + type(c_ptr) :: dA = c_null_ptr, dB = c_null_ptr, dC = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + integer :: i, j + real(c_float) :: error + real(c_float), parameter :: error_max = 10*epsilon(error) + + write(*,"(a)",advance="no") "-- Running test 'cgeam' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + hC = (0.0, 0.0) + + Nbytes = int(ld*ld, c_size_t) * 8 + call hipCheck(hipMalloc(dA, Nbytes)) + call hipCheck(hipMemcpy(dA, c_loc(hA(1,1)), Nbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMalloc(dB, Nbytes)) + call hipCheck(hipMemcpy(dB, c_loc(hB(1,1)), Nbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMalloc(dC, Nbytes)) + call hipCheck(hipMemcpy(dC, c_loc(hC(1,1)), Nbytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasCgeam(handle, HIPBLAS_OP_N, HIPBLAS_OP_N, ld, ld, & + c_loc(alpha), dA, ld, c_loc(beta), dB, ld, dC, ld)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(c_loc(hC(1,1)), dC, Nbytes, hipMemcpyDeviceToHost)) + + do j = 1, ld + do i = 1, ld + error = abs(expected(i,j) - hC(i,j)) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " at ", i, j + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dB)) + call hipCheck(hipFree(dC)) + call hipblasCheck(hipblasDestroy(handle)) + + write(*,*) "PASSED!" + +end program hip_cgeam diff --git a/bindings/fortran/hipblas/test/cgeam.f08 b/bindings/fortran/hipblas/test/cgeam.f08 new file mode 100644 index 000000000000..a596fc752ab6 --- /dev/null +++ b/bindings/fortran/hipblas/test/cgeam.f08 @@ -0,0 +1,83 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_cgeam + use iso_c_binding + use hip + use hipblas + + implicit none + + ! C := alpha*op(A) + beta*op(B) with alpha = 2, beta = -1 and no + ! transposition, so C = 2*A - B (a swap of alpha and beta, or of A and B, shows). + integer, parameter :: ld = 2 + complex(c_float_complex), target :: alpha = (2.0, 0.0), beta = (-1.0, 0.0) + + complex(c_float_complex) :: hA(ld,ld) = reshape([(1.0, 0.0), (2.0, 0.0), (3.0, 0.0), (4.0, 0.0)], [ld,ld]) + complex(c_float_complex) :: hB(ld,ld) = reshape([(10.0, 0.0), (20.0, 0.0), (30.0, 0.0), (40.0, 0.0)], [ld,ld]) + complex(c_float_complex) :: hC(ld,ld) + complex(c_float_complex) :: expected(ld,ld) = reshape([(-8.0, 0.0), (-16.0, 0.0), (-24.0, 0.0), (-32.0, 0.0)], [ld,ld]) + complex(c_float_complex), pointer, dimension(:,:) :: dA, dB, dC + type(c_ptr) :: handle = c_null_ptr + integer :: i, j + real(c_float) :: error + real(c_float), parameter :: error_max = 10*epsilon(error) + + write(*,"(a)",advance="no") "-- Running test 'cgeam' (Fortran 2008 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + hC = (0.0, 0.0) + + call hipCheck(hipMalloc(dA, shape(hA))) + call hipCheck(hipMemcpy(dA, hA, hipMemcpyHostToDevice)) + call hipCheck(hipMalloc(dB, shape(hB))) + call hipCheck(hipMemcpy(dB, hB, hipMemcpyHostToDevice)) + call hipCheck(hipMalloc(dC, shape(hC))) + call hipCheck(hipMemcpy(dC, hC, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasCgeam(handle, HIPBLAS_OP_N, HIPBLAS_OP_N, ld, ld, & + alpha, dA, size(dA,1), beta, dB, size(dB,1), dC, size(dC,1))) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(hC, dC, hipMemcpyDeviceToHost)) + + do j = 1, ld + do i = 1, ld + error = abs(expected(i,j) - hC(i,j)) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " at ", i, j + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dB)) + call hipCheck(hipFree(dC)) + call hipblasCheck(hipblasDestroy(handle)) + + write(*,*) "PASSED!" + +end program hip_cgeam diff --git a/bindings/fortran/hipblas/test/cgeam_devptr.f03 b/bindings/fortran/hipblas/test/cgeam_devptr.f03 new file mode 100644 index 000000000000..f42343eca1ee --- /dev/null +++ b/bindings/fortran/hipblas/test/cgeam_devptr.f03 @@ -0,0 +1,99 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_cgeam + use iso_c_binding + use hip + use hipblas + + implicit none + + ! C := alpha*op(A) + beta*op(B) with alpha = 2, beta = -1 and no + ! transposition, so C = 2*A - B (a swap of alpha and beta, or of A and B, shows). + integer, parameter :: ld = 2 + integer(c_size_t) :: Nbytes + complex(c_float_complex), target :: alpha = (2.0, 0.0), beta = (-1.0, 0.0) + + ! Device-resident copies of the dual-mode scalars; the library reads them + ! from device memory because the handle is in device pointer mode. + type(c_ptr) :: d_alpha = c_null_ptr + type(c_ptr) :: d_beta = c_null_ptr + + complex(c_float_complex), target :: hA(ld,ld) = reshape([(1.0, 0.0), (2.0, 0.0), (3.0, 0.0), (4.0, 0.0)], [ld,ld]) + complex(c_float_complex), target :: hB(ld,ld) = reshape([(10.0, 0.0), (20.0, 0.0), (30.0, 0.0), (40.0, 0.0)], [ld,ld]) + complex(c_float_complex), target :: hC(ld,ld) + complex(c_float_complex) :: expected(ld,ld) = reshape([(-8.0, 0.0), (-16.0, 0.0), (-24.0, 0.0), (-32.0, 0.0)], [ld,ld]) + type(c_ptr) :: dA = c_null_ptr, dB = c_null_ptr, dC = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + integer :: i, j + real(c_float) :: error + real(c_float), parameter :: error_max = 10*epsilon(error) + + write(*,"(a)",advance="no") "-- Running test 'cgeam_devptr' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + ! Switch to device pointer mode and stage the scalars in device memory + call hipblasCheck(hipblasSetPointerMode(handle, HIPBLAS_POINTER_MODE_DEVICE)) + call hipCheck(hipMalloc(d_alpha, c_sizeof(alpha))) + call hipCheck(hipMalloc(d_beta, c_sizeof(beta))) + call hipCheck(hipMemcpy(d_alpha, c_loc(alpha), c_sizeof(alpha), hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(d_beta, c_loc(beta), c_sizeof(beta), hipMemcpyHostToDevice)) + + hC = (0.0, 0.0) + + Nbytes = int(ld*ld, c_size_t) * 8 + call hipCheck(hipMalloc(dA, Nbytes)) + call hipCheck(hipMemcpy(dA, c_loc(hA(1,1)), Nbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMalloc(dB, Nbytes)) + call hipCheck(hipMemcpy(dB, c_loc(hB(1,1)), Nbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMalloc(dC, Nbytes)) + call hipCheck(hipMemcpy(dC, c_loc(hC(1,1)), Nbytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasCgeam(handle, HIPBLAS_OP_N, HIPBLAS_OP_N, ld, ld, & + d_alpha, dA, ld, d_beta, dB, ld, dC, ld)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(c_loc(hC(1,1)), dC, Nbytes, hipMemcpyDeviceToHost)) + + do j = 1, ld + do i = 1, ld + error = abs(expected(i,j) - hC(i,j)) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " at ", i, j + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dB)) + call hipCheck(hipFree(dC)) + call hipblasCheck(hipblasDestroy(handle)) + + call hipCheck(hipFree(d_alpha)) + call hipCheck(hipFree(d_beta)) + write(*,*) "PASSED!" + +end program hip_cgeam diff --git a/bindings/fortran/hipblas/test/cgemm.f03 b/bindings/fortran/hipblas/test/cgemm.f03 new file mode 100644 index 000000000000..ab19b5ca36fb --- /dev/null +++ b/bindings/fortran/hipblas/test/cgemm.f03 @@ -0,0 +1,123 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2021 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_cgemm + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(kind(HIPBLAS_OP_N)), parameter :: transa = HIPBLAS_OP_N, transb = HIPBLAS_OP_N; + complex(kind=4), target :: alpha = 1.1d0, beta = 0.9d0; + + integer, parameter :: m = 512, n = 512, k = 512; + integer :: lda, ldb, ldc, size_a, size_b, size_c; + + complex(kind=4), allocatable, target, dimension(:,:) :: ha, hb, hc + complex(kind=4), allocatable, dimension(:,:) :: hc_exact + + type(c_ptr) :: da = c_null_ptr, db = c_null_ptr, dc = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + + integer, parameter :: bytes_per_element = 8 ! 2x float + integer(c_size_t) :: Nabytes, Nbbytes, Ncbytes + + integer :: i,j + double precision :: error + double precision, parameter :: error_max = 10*epsilon(real(1.0,kind=4)) + + write(*,"(a)",advance="no") "-- Running test 'CGEMM' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + lda = m; + size_a = k * lda; + Nabytes = size_a*bytes_per_element + + ldb = k; + size_b = n * ldb; + Nbbytes = size_b*bytes_per_element + + ldc = m; + size_c = n * ldc; + Ncbytes = size_c*bytes_per_element + + ! C = A_MxK * B_KxN + + allocate(ha(m,k)) + allocate(hb(k,n)) + allocate(hc(m,n)) + allocate(hc_exact(m,n)) + + ! Use these constant matrices so the exact answer is also a + ! constant matrix and therefore easy to check + ha(:,:) = 1.d0 + hb(:,:) = 2.d0 + hc(:,:) = 3.d0 + hc_exact(:,:) = alpha*k*2.d0 + beta*3.d0 + + ! Allocate device memory + call hipCheck(hipMalloc(da,Nabytes)) + call hipCheck(hipMalloc(db,Nbbytes)) + call hipCheck(hipMalloc(dc,Ncbytes)) + + !Transfer from host to device + call hipCheck(hipMemcpy(da, c_loc(ha(1,1)), Nabytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(db, c_loc(hb(1,1)), Nbbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dc, c_loc(hc(1,1)), Ncbytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasCgemm(handle,transa,transb,m,n,k,c_loc(alpha),da,lda,db,ldb,c_loc(beta),dc,ldc)) + + call hipCheck(hipDeviceSynchronize()) + + ! Transfer data back to host memory + call hipCheck(hipMemcpy(c_loc(hc(1,1)), dc, Ncbytes, hipMemcpyDeviceToHost)) + + do i = 1,m + do j = 1,n + !write(*,*) "hc(i,j)=",hc(i,j),",hc_exact(i,j)=",hc_exact(i,j) + error = abs((hc_exact(i,j) - hc(i,j))/hc_exact(i,j)) + if( error > error_max )then + write(*,*) "FAILED! Error bigger than max! Error = ", error + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(da)) + call hipCheck(hipFree(db)) + call hipCheck(hipFree(dc)) + + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(ha) + deallocate(hb) + deallocate(hc) + deallocate(hc_exact) + + write(*,*) "PASSED!" + +end program hip_cgemm diff --git a/bindings/fortran/hipblas/test/cgemm.f08 b/bindings/fortran/hipblas/test/cgemm.f08 new file mode 100644 index 000000000000..f003c771cd84 --- /dev/null +++ b/bindings/fortran/hipblas/test/cgemm.f08 @@ -0,0 +1,104 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_cgemm + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(kind(HIPBLAS_OP_N)), parameter :: transa = HIPBLAS_OP_N, transb = HIPBLAS_OP_N; + complex(kind=4), target :: alpha = 1.1d0, beta = 0.9d0; + + integer, parameter :: m = 512, n = 512, k = 512; + + complex(kind=4), allocatable, dimension(:,:) :: ha, hb, hc + complex(kind=4), allocatable, dimension(:,:) :: hc_exact + + complex(kind=4), pointer, dimension(:,:) :: da, db, dc + type(c_ptr) :: handle = c_null_ptr + + integer :: i,j + double precision :: error + double precision, parameter :: error_max = 10*epsilon(real(1.0,kind=4)) + + write(*,"(a)",advance="no") "-- Running test 'CGEMM' (Fortran 2008 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + ! C = A_MxK * B_KxN + + allocate(ha(m,k)) + allocate(hb(k,n)) + allocate(hc(m,n)) + allocate(hc_exact(m,n)) + + ! Use these constant matrices so the exact answer is also a + ! constant matrix and therefore easy to check + ha(:,:) = 1.d0 + hb(:,:) = 2.d0 + hc(:,:) = 3.d0 + hc_exact(:,:) = alpha*k*2.d0 + beta*3.d0 + + ! Allocate device memory + call hipCheck(hipMalloc(da,mold=ha)) + call hipCheck(hipMalloc(db,mold=hb)) + call hipCheck(hipMalloc(dc,mold=hc)) + + !Transfer from host to device + call hipCheck(hipMemcpy(da, ha, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(db, hb, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dc, hc, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasCgemm(handle,transa,transb,m,n,k,alpha,da,size(da,1),db,size(db,1),beta,dc,size(dc,1))) + + call hipCheck(hipDeviceSynchronize()) + + ! Transfer data back to host memory + call hipCheck(hipMemcpy(hc, dc, hipMemcpyDeviceToHost)) + + do j = 1,n + do i = 1,m + !write(*,*) "hc(i,j)=",hc(i,j),",hc_exact(i,j)=",hc_exact(i,j) + error = abs((hc_exact(i,j) - hc(i,j))/hc_exact(i,j)) + if( error > error_max )then + write(*,*) "FAILED! Error bigger than max! Error = ", error + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(da)) + call hipCheck(hipFree(db)) + call hipCheck(hipFree(dc)) + + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(ha,hb,hc,hc_exact) + + write(*,*) "PASSED!" + +end program hip_cgemm diff --git a/bindings/fortran/hipblas/test/cgemm_batched.f03 b/bindings/fortran/hipblas/test/cgemm_batched.f03 new file mode 100644 index 000000000000..a3608ba07cc4 --- /dev/null +++ b/bindings/fortran/hipblas/test/cgemm_batched.f03 @@ -0,0 +1,136 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_cgemm_batched + + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(kind(HIPBLAS_OP_N)), parameter :: transa = HIPBLAS_OP_N, transb = HIPBLAS_OP_N + complex(kind=4), target :: alpha = (1.1,0.0), beta = (0.9,0.0) + + integer, parameter :: m = 256, n = 256, k = 256, batch_count = 4 + integer, parameter :: bytes_per_element = 8 ! 2x float + integer, parameter :: size_a = m*k, size_b = k*n, size_c = m*n + integer(c_size_t), parameter :: Nabytes = size_a*bytes_per_element, & + Nbbytes = size_b*bytes_per_element, & + Ncbytes = size_c*bytes_per_element + integer :: lda, ldb, ldc, i, b + + complex(kind=4), allocatable, target, dimension(:,:) :: ha, hb, hc ! (elems, batch) + complex(kind=4), allocatable, dimension(:) :: hc_exact ! one value per batch + + ! Host arrays of device pointers (one device matrix per batch entry) + type(c_ptr), target :: da(batch_count), db(batch_count), dc(batch_count) + ! Device-resident pointer arrays passed to the batched routine + type(c_ptr) :: da_p = c_null_ptr, db_p = c_null_ptr, dc_p = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + + double precision :: error + ! epsilon of the data kind, not the accumulator: these results are complex(kind=4). + double precision, parameter :: error_max = 10*epsilon(real(1.0,kind=4)) + + write(*,"(a)",advance="no") "-- Running test 'CGEMM_BATCHED' (Fortran 2003 interfaces) - " + + ! hipBLAS defaults to host pointer mode: no set-pointer-mode call needed + call hipblasCheck(hipblasCreate(handle)) + + lda = m; ldb = k; ldc = m + + allocate(ha(size_a,0:batch_count-1)) + allocate(hb(size_b,0:batch_count-1)) + allocate(hc(size_c,0:batch_count-1)) + allocate(hc_exact(0:batch_count-1)) + + ! Constant matrices with a distinct per-batch value so the exact answer is + ! a distinct constant per batch. A is held constant; B varies per batch. + ha(:,:) = (1.0,0.0) + do b = 0, batch_count-1 + hb(:,b) = cmplx(b+1,0.0) + hc(:,b) = (3.0,0.0) + hc_exact(b) = alpha*k*cmplx(b+1,0.0) + beta*(3.0,0.0) + end do + + ! Allocate one device matrix per batch entry and copy its host data across + do b = 1, batch_count + call hipCheck(hipMalloc(da(b),Nabytes)) + call hipCheck(hipMalloc(db(b),Nbbytes)) + call hipCheck(hipMalloc(dc(b),Ncbytes)) + call hipCheck(hipMemcpy(da(b), c_loc(ha(1,b-1)), Nabytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(db(b), c_loc(hb(1,b-1)), Nbbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dc(b), c_loc(hc(1,b-1)), Ncbytes, hipMemcpyHostToDevice)) + end do + + ! Allocate the device-resident pointer arrays and copy the host pointer + ! arrays into them (hipBLAS requires the pointer array in device memory) + call hipCheck(hipMalloc(da_p, int(batch_count,c_size_t)*c_sizeof(da(1)))) + call hipCheck(hipMalloc(db_p, int(batch_count,c_size_t)*c_sizeof(db(1)))) + call hipCheck(hipMalloc(dc_p, int(batch_count,c_size_t)*c_sizeof(dc(1)))) + call hipCheck(hipMemcpy(da_p, c_loc(da(1)), int(batch_count,c_size_t)*c_sizeof(da(1)), hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(db_p, c_loc(db(1)), int(batch_count,c_size_t)*c_sizeof(db(1)), hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dc_p, c_loc(dc(1)), int(batch_count,c_size_t)*c_sizeof(dc(1)), hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasCgemmBatched(handle,transa,transb,m,n,k, & + c_loc(alpha),da_p,lda,db_p,ldb,c_loc(beta),dc_p,ldc,batch_count)) + + call hipCheck(hipDeviceSynchronize()) + + ! Transfer each batch result back to host memory + do b = 1, batch_count + call hipCheck(hipMemcpy(c_loc(hc(1,b-1)), dc(b), Ncbytes, hipMemcpyDeviceToHost)) + end do + + do b = 0, batch_count-1 + do i = 1, size_c + error = abs((hc_exact(b) - hc(i,b))/hc_exact(b)) + if( error > error_max )then + write(*,*) "FAILED! Error bigger than max! batch = ", b, " error = ", error + call exit(1) + end if + end do + end do + + do b = 1, batch_count + call hipCheck(hipFree(da(b))) + call hipCheck(hipFree(db(b))) + call hipCheck(hipFree(dc(b))) + end do + call hipCheck(hipFree(da_p)) + call hipCheck(hipFree(db_p)) + call hipCheck(hipFree(dc_p)) + + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(ha) + deallocate(hb) + deallocate(hc) + deallocate(hc_exact) + + write(*,*) "PASSED!" + +end program hip_cgemm_batched diff --git a/bindings/fortran/hipblas/test/cgemm_batched.f08 b/bindings/fortran/hipblas/test/cgemm_batched.f08 new file mode 100644 index 000000000000..317e94690772 --- /dev/null +++ b/bindings/fortran/hipblas/test/cgemm_batched.f08 @@ -0,0 +1,143 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +! Note: hipfort's Fortran 2008 pointer-convenience interfaces for +! hipblas?gemmBatched call c_loc() on a plain array and therefore pass a +! single pointer, not the array of device pointers the routine requires. This +! test consequently uses the type(c_ptr) array-of-pointers idiom (as in f2003); +! only the per-batch device allocation uses the f2008 hipMalloc(source=) style. + +program hip_cgemm_batched + + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(kind(HIPBLAS_OP_N)), parameter :: transa = HIPBLAS_OP_N, transb = HIPBLAS_OP_N + complex(kind=4), target :: alpha = (1.1,0.0), beta = (0.9,0.0) + + integer, parameter :: m = 256, n = 256, k = 256, batch_count = 4 + integer, parameter :: bytes_per_element = 8 ! 2x float + integer, parameter :: size_a = m*k, size_b = k*n, size_c = m*n + integer(c_size_t), parameter :: Ncbytes = size_c*bytes_per_element + integer :: lda, ldb, ldc, i, b + + complex(kind=4), allocatable, target, dimension(:,:) :: ha, hb, hc ! (elems, batch) + complex(kind=4), allocatable, dimension(:) :: hc_exact ! one value per batch + + ! Per-batch device matrices as typed Fortran pointers (reused each iteration) + complex(kind=4), pointer, dimension(:) :: da_b, db_b, dc_b + ! Host arrays of device pointers (one device matrix per batch entry) + type(c_ptr), target :: da(batch_count), db(batch_count), dc(batch_count) + ! Device-resident pointer arrays passed to the batched routine + type(c_ptr) :: da_p = c_null_ptr, db_p = c_null_ptr, dc_p = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + + double precision :: error + ! epsilon of the data kind, not the accumulator: these results are complex(kind=4). + double precision, parameter :: error_max = 10*epsilon(real(1.0,kind=4)) + + write(*,"(a)",advance="no") "-- Running test 'CGEMM_BATCHED' (Fortran 2008 interfaces) - " + + ! hipBLAS defaults to host pointer mode: no set-pointer-mode call needed + call hipblasCheck(hipblasCreate(handle)) + + lda = m; ldb = k; ldc = m + + allocate(ha(size_a,0:batch_count-1)) + allocate(hb(size_b,0:batch_count-1)) + allocate(hc(size_c,0:batch_count-1)) + allocate(hc_exact(0:batch_count-1)) + + ! Constant matrices with a distinct per-batch value so the exact answer is + ! a distinct constant per batch. A is held constant; B varies per batch. + ha(:,:) = (1.0,0.0) + do b = 0, batch_count-1 + hb(:,b) = cmplx(b+1,0.0) + hc(:,b) = (3.0,0.0) + hc_exact(b) = alpha*k*cmplx(b+1,0.0) + beta*(3.0,0.0) + end do + + ! Allocate one device matrix per batch entry (f2008 source= copy) and record + ! its device address in the host pointer array + do b = 1, batch_count + call hipCheck(hipMalloc(da_b,source=ha(:,b-1))) + call hipCheck(hipMalloc(db_b,source=hb(:,b-1))) + call hipCheck(hipMalloc(dc_b,source=hc(:,b-1))) + da(b) = c_loc(da_b(1)) + db(b) = c_loc(db_b(1)) + dc(b) = c_loc(dc_b(1)) + end do + + ! Allocate the device-resident pointer arrays and copy the host pointer + ! arrays into them (hipBLAS requires the pointer array in device memory) + call hipCheck(hipMalloc(da_p, int(batch_count,c_size_t)*c_sizeof(da(1)))) + call hipCheck(hipMalloc(db_p, int(batch_count,c_size_t)*c_sizeof(db(1)))) + call hipCheck(hipMalloc(dc_p, int(batch_count,c_size_t)*c_sizeof(dc(1)))) + call hipCheck(hipMemcpy(da_p, c_loc(da(1)), int(batch_count,c_size_t)*c_sizeof(da(1)), hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(db_p, c_loc(db(1)), int(batch_count,c_size_t)*c_sizeof(db(1)), hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dc_p, c_loc(dc(1)), int(batch_count,c_size_t)*c_sizeof(dc(1)), hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasCgemmBatched(handle,transa,transb,m,n,k, & + c_loc(alpha),da_p,lda,db_p,ldb,c_loc(beta),dc_p,ldc,batch_count)) + + call hipCheck(hipDeviceSynchronize()) + + ! Transfer each batch result back to host memory + do b = 1, batch_count + call hipCheck(hipMemcpy(c_loc(hc(1,b-1)), dc(b), Ncbytes, hipMemcpyDeviceToHost)) + end do + + do b = 0, batch_count-1 + do i = 1, size_c + error = abs((hc_exact(b) - hc(i,b))/hc_exact(b)) + if( error > error_max )then + write(*,*) "FAILED! Error bigger than max! batch = ", b, " error = ", error + call exit(1) + end if + end do + end do + + do b = 1, batch_count + call hipCheck(hipFree(da(b))) + call hipCheck(hipFree(db(b))) + call hipCheck(hipFree(dc(b))) + end do + call hipCheck(hipFree(da_p)) + call hipCheck(hipFree(db_p)) + call hipCheck(hipFree(dc_p)) + + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(ha) + deallocate(hb) + deallocate(hc) + deallocate(hc_exact) + + write(*,*) "PASSED!" + +end program hip_cgemm_batched diff --git a/bindings/fortran/hipblas/test/cgemm_batched_devptr.f03 b/bindings/fortran/hipblas/test/cgemm_batched_devptr.f03 new file mode 100644 index 000000000000..4ab9529a63dc --- /dev/null +++ b/bindings/fortran/hipblas/test/cgemm_batched_devptr.f03 @@ -0,0 +1,150 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_cgemm_batched + + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(kind(HIPBLAS_OP_N)), parameter :: transa = HIPBLAS_OP_N, transb = HIPBLAS_OP_N + complex(kind=4), target :: alpha = (1.1,0.0), beta = (0.9,0.0) + + ! Device-resident copies of the dual-mode scalars; the library reads them + ! from device memory because the handle is in device pointer mode. + type(c_ptr) :: d_alpha = c_null_ptr + type(c_ptr) :: d_beta = c_null_ptr + + integer, parameter :: m = 256, n = 256, k = 256, batch_count = 4 + integer, parameter :: bytes_per_element = 8 ! 2x float + integer, parameter :: size_a = m*k, size_b = k*n, size_c = m*n + integer(c_size_t), parameter :: Nabytes = size_a*bytes_per_element, & + Nbbytes = size_b*bytes_per_element, & + Ncbytes = size_c*bytes_per_element + integer :: lda, ldb, ldc, i, b + + complex(kind=4), allocatable, target, dimension(:,:) :: ha, hb, hc ! (elems, batch) + complex(kind=4), allocatable, dimension(:) :: hc_exact ! one value per batch + + ! Host arrays of device pointers (one device matrix per batch entry) + type(c_ptr), target :: da(batch_count), db(batch_count), dc(batch_count) + ! Device-resident pointer arrays passed to the batched routine + type(c_ptr) :: da_p = c_null_ptr, db_p = c_null_ptr, dc_p = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + + double precision :: error + ! epsilon of the data kind, not the accumulator: these results are complex(kind=4). + double precision, parameter :: error_max = 10*epsilon(real(1.0,kind=4)) + + write(*,"(a)",advance="no") "-- Running test 'CGEMM_BATCHED_devptr' (Fortran 2003 interfaces) - " + + ! hipBLAS defaults to host pointer mode: no set-pointer-mode call needed + call hipblasCheck(hipblasCreate(handle)) + + ! Switch to device pointer mode and stage the scalars in device memory + call hipblasCheck(hipblasSetPointerMode(handle, HIPBLAS_POINTER_MODE_DEVICE)) + call hipCheck(hipMalloc(d_alpha, c_sizeof(alpha))) + call hipCheck(hipMalloc(d_beta, c_sizeof(beta))) + call hipCheck(hipMemcpy(d_alpha, c_loc(alpha), c_sizeof(alpha), hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(d_beta, c_loc(beta), c_sizeof(beta), hipMemcpyHostToDevice)) + + lda = m; ldb = k; ldc = m + + allocate(ha(size_a,0:batch_count-1)) + allocate(hb(size_b,0:batch_count-1)) + allocate(hc(size_c,0:batch_count-1)) + allocate(hc_exact(0:batch_count-1)) + + ! Constant matrices with a distinct per-batch value so the exact answer is + ! a distinct constant per batch. A is held constant; B varies per batch. + ha(:,:) = (1.0,0.0) + do b = 0, batch_count-1 + hb(:,b) = cmplx(b+1,0.0) + hc(:,b) = (3.0,0.0) + hc_exact(b) = alpha*k*cmplx(b+1,0.0) + beta*(3.0,0.0) + end do + + ! Allocate one device matrix per batch entry and copy its host data across + do b = 1, batch_count + call hipCheck(hipMalloc(da(b),Nabytes)) + call hipCheck(hipMalloc(db(b),Nbbytes)) + call hipCheck(hipMalloc(dc(b),Ncbytes)) + call hipCheck(hipMemcpy(da(b), c_loc(ha(1,b-1)), Nabytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(db(b), c_loc(hb(1,b-1)), Nbbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dc(b), c_loc(hc(1,b-1)), Ncbytes, hipMemcpyHostToDevice)) + end do + + ! Allocate the device-resident pointer arrays and copy the host pointer + ! arrays into them (hipBLAS requires the pointer array in device memory) + call hipCheck(hipMalloc(da_p, int(batch_count,c_size_t)*c_sizeof(da(1)))) + call hipCheck(hipMalloc(db_p, int(batch_count,c_size_t)*c_sizeof(db(1)))) + call hipCheck(hipMalloc(dc_p, int(batch_count,c_size_t)*c_sizeof(dc(1)))) + call hipCheck(hipMemcpy(da_p, c_loc(da(1)), int(batch_count,c_size_t)*c_sizeof(da(1)), hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(db_p, c_loc(db(1)), int(batch_count,c_size_t)*c_sizeof(db(1)), hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dc_p, c_loc(dc(1)), int(batch_count,c_size_t)*c_sizeof(dc(1)), hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasCgemmBatched(handle,transa,transb,m,n,k, & + d_alpha,da_p,lda,db_p,ldb,d_beta,dc_p,ldc,batch_count)) + + call hipCheck(hipDeviceSynchronize()) + + ! Transfer each batch result back to host memory + do b = 1, batch_count + call hipCheck(hipMemcpy(c_loc(hc(1,b-1)), dc(b), Ncbytes, hipMemcpyDeviceToHost)) + end do + + do b = 0, batch_count-1 + do i = 1, size_c + error = abs((hc_exact(b) - hc(i,b))/hc_exact(b)) + if( error > error_max )then + write(*,*) "FAILED! Error bigger than max! batch = ", b, " error = ", error + call exit(1) + end if + end do + end do + + do b = 1, batch_count + call hipCheck(hipFree(da(b))) + call hipCheck(hipFree(db(b))) + call hipCheck(hipFree(dc(b))) + end do + call hipCheck(hipFree(da_p)) + call hipCheck(hipFree(db_p)) + call hipCheck(hipFree(dc_p)) + + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(ha) + deallocate(hb) + deallocate(hc) + deallocate(hc_exact) + + call hipCheck(hipFree(d_alpha)) + call hipCheck(hipFree(d_beta)) + write(*,*) "PASSED!" + +end program hip_cgemm_batched diff --git a/bindings/fortran/hipblas/test/cgemm_devptr.f03 b/bindings/fortran/hipblas/test/cgemm_devptr.f03 new file mode 100644 index 000000000000..4504e5d3d9dd --- /dev/null +++ b/bindings/fortran/hipblas/test/cgemm_devptr.f03 @@ -0,0 +1,137 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2021 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_cgemm + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(kind(HIPBLAS_OP_N)), parameter :: transa = HIPBLAS_OP_N, transb = HIPBLAS_OP_N; + complex(kind=4), target :: alpha = 1.1d0, beta = 0.9d0; + + ! Device-resident copies of the dual-mode scalars; the library reads them + ! from device memory because the handle is in device pointer mode. + type(c_ptr) :: d_alpha = c_null_ptr + type(c_ptr) :: d_beta = c_null_ptr + + integer, parameter :: m = 512, n = 512, k = 512; + integer :: lda, ldb, ldc, size_a, size_b, size_c; + + complex(kind=4), allocatable, target, dimension(:,:) :: ha, hb, hc + complex(kind=4), allocatable, dimension(:,:) :: hc_exact + + type(c_ptr) :: da = c_null_ptr, db = c_null_ptr, dc = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + + integer, parameter :: bytes_per_element = 8 ! 2x float + integer(c_size_t) :: Nabytes, Nbbytes, Ncbytes + + integer :: i,j + double precision :: error + double precision, parameter :: error_max = 10*epsilon(real(1.0,kind=4)) + + write(*,"(a)",advance="no") "-- Running test 'CGEMM_devptr' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + ! Switch to device pointer mode and stage the scalars in device memory + call hipblasCheck(hipblasSetPointerMode(handle, HIPBLAS_POINTER_MODE_DEVICE)) + call hipCheck(hipMalloc(d_alpha, c_sizeof(alpha))) + call hipCheck(hipMalloc(d_beta, c_sizeof(beta))) + call hipCheck(hipMemcpy(d_alpha, c_loc(alpha), c_sizeof(alpha), hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(d_beta, c_loc(beta), c_sizeof(beta), hipMemcpyHostToDevice)) + + lda = m; + size_a = k * lda; + Nabytes = size_a*bytes_per_element + + ldb = k; + size_b = n * ldb; + Nbbytes = size_b*bytes_per_element + + ldc = m; + size_c = n * ldc; + Ncbytes = size_c*bytes_per_element + + ! C = A_MxK * B_KxN + + allocate(ha(m,k)) + allocate(hb(k,n)) + allocate(hc(m,n)) + allocate(hc_exact(m,n)) + + ! Use these constant matrices so the exact answer is also a + ! constant matrix and therefore easy to check + ha(:,:) = 1.d0 + hb(:,:) = 2.d0 + hc(:,:) = 3.d0 + hc_exact(:,:) = alpha*k*2.d0 + beta*3.d0 + + ! Allocate device memory + call hipCheck(hipMalloc(da,Nabytes)) + call hipCheck(hipMalloc(db,Nbbytes)) + call hipCheck(hipMalloc(dc,Ncbytes)) + + !Transfer from host to device + call hipCheck(hipMemcpy(da, c_loc(ha(1,1)), Nabytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(db, c_loc(hb(1,1)), Nbbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dc, c_loc(hc(1,1)), Ncbytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasCgemm(handle,transa,transb,m,n,k,d_alpha,da,lda,db,ldb,d_beta,dc,ldc)) + + call hipCheck(hipDeviceSynchronize()) + + ! Transfer data back to host memory + call hipCheck(hipMemcpy(c_loc(hc(1,1)), dc, Ncbytes, hipMemcpyDeviceToHost)) + + do i = 1,m + do j = 1,n + !write(*,*) "hc(i,j)=",hc(i,j),",hc_exact(i,j)=",hc_exact(i,j) + error = abs((hc_exact(i,j) - hc(i,j))/hc_exact(i,j)) + if( error > error_max )then + write(*,*) "FAILED! Error bigger than max! Error = ", error + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(da)) + call hipCheck(hipFree(db)) + call hipCheck(hipFree(dc)) + + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(ha) + deallocate(hb) + deallocate(hc) + deallocate(hc_exact) + + call hipCheck(hipFree(d_alpha)) + call hipCheck(hipFree(d_beta)) + write(*,*) "PASSED!" + +end program hip_cgemm diff --git a/bindings/fortran/hipblas/test/cgemm_strided_batched.f03 b/bindings/fortran/hipblas/test/cgemm_strided_batched.f03 new file mode 100644 index 000000000000..4fc381e3e3b6 --- /dev/null +++ b/bindings/fortran/hipblas/test/cgemm_strided_batched.f03 @@ -0,0 +1,122 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_cgemm_strided_batched + + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(kind(HIPBLAS_OP_N)), parameter :: transa = HIPBLAS_OP_N, transb = HIPBLAS_OP_N + complex(kind=4), target :: alpha = (1.1,0.0), beta = (0.9,0.0) + + integer, parameter :: m = 256, n = 256, k = 256, batch_count = 4 + integer, parameter :: bytes_per_element = 8 ! 2x float + integer :: lda, ldb, ldc, i, b + integer(c_int64_t) :: stride_a, stride_b, stride_c + integer :: size_a, size_b, size_c + integer(c_size_t) :: Nabytes, Nbbytes, Ncbytes + + complex(kind=4), allocatable, target, dimension(:) :: ha, hb, hc + complex(kind=4), allocatable, dimension(:) :: hc_exact ! one value per batch + + type(c_ptr) :: da = c_null_ptr, db = c_null_ptr, dc = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + + double precision :: error + ! epsilon of the data kind, not the accumulator: these results are complex(kind=4). + double precision, parameter :: error_max = 10*epsilon(real(1.0,kind=4)) + + write(*,"(a)",advance="no") "-- Running test 'CGEMM_STRIDED_BATCHED' (Fortran 2003 interfaces) - " + + ! hipBLAS defaults to host pointer mode: no set-pointer-mode call needed + call hipblasCheck(hipblasCreate(handle)) + + lda = m; ldb = k; ldc = m + stride_a = int(lda,c_int64_t)*k + stride_b = int(ldb,c_int64_t)*n + stride_c = int(ldc,c_int64_t)*n + size_a = int(stride_a)*batch_count; Nabytes = size_a*bytes_per_element + size_b = int(stride_b)*batch_count; Nbbytes = size_b*bytes_per_element + size_c = int(stride_c)*batch_count; Ncbytes = size_c*bytes_per_element + + allocate(ha(size_a)) + allocate(hb(size_b)) + allocate(hc(size_c)) + allocate(hc_exact(0:batch_count-1)) + + ! Constant matrices with a distinct per-batch value so the exact answer is + ! a distinct constant per batch. A is held constant; B varies per batch. + ha(:) = (1.0,0.0) + do b = 0, batch_count-1 + hb(b*stride_b+1 : (b+1)*stride_b) = cmplx(b+1,0.0) + hc(b*stride_c+1 : (b+1)*stride_c) = (3.0,0.0) + hc_exact(b) = alpha*k*cmplx(b+1,0.0) + beta*(3.0,0.0) + end do + + ! Allocate device memory + call hipCheck(hipMalloc(da,Nabytes)) + call hipCheck(hipMalloc(db,Nbbytes)) + call hipCheck(hipMalloc(dc,Ncbytes)) + + ! Transfer from host to device + call hipCheck(hipMemcpy(da, c_loc(ha(1)), Nabytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(db, c_loc(hb(1)), Nbbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dc, c_loc(hc(1)), Ncbytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasCgemmStridedBatched(handle,transa,transb,m,n,k, & + c_loc(alpha),da,lda,stride_a,db,ldb,stride_b,c_loc(beta),dc,ldc,stride_c,batch_count)) + + call hipCheck(hipDeviceSynchronize()) + + ! Transfer data back to host memory + call hipCheck(hipMemcpy(c_loc(hc(1)), dc, Ncbytes, hipMemcpyDeviceToHost)) + + do b = 0, batch_count-1 + do i = 1, int(stride_c) + error = abs((hc_exact(b) - hc(b*stride_c+i))/hc_exact(b)) + if( error > error_max )then + write(*,*) "FAILED! Error bigger than max! batch = ", b, " error = ", error + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(da)) + call hipCheck(hipFree(db)) + call hipCheck(hipFree(dc)) + + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(ha) + deallocate(hb) + deallocate(hc) + deallocate(hc_exact) + + write(*,*) "PASSED!" + +end program hip_cgemm_strided_batched diff --git a/bindings/fortran/hipblas/test/cgemm_strided_batched.f08 b/bindings/fortran/hipblas/test/cgemm_strided_batched.f08 new file mode 100644 index 000000000000..b57c75e62d5b --- /dev/null +++ b/bindings/fortran/hipblas/test/cgemm_strided_batched.f08 @@ -0,0 +1,115 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_cgemm_strided_batched + + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(kind(HIPBLAS_OP_N)), parameter :: transa = HIPBLAS_OP_N, transb = HIPBLAS_OP_N + complex(kind=4), target :: alpha = (1.1,0.0), beta = (0.9,0.0) + + integer, parameter :: m = 256, n = 256, k = 256, batch_count = 4 + integer :: lda, ldb, ldc, i, b + integer(c_int64_t) :: stride_a, stride_b, stride_c + integer :: size_a, size_b, size_c + + complex(kind=4), allocatable, dimension(:) :: ha, hb, hc + complex(kind=4), allocatable, dimension(:) :: hc_exact ! one value per batch + + complex(kind=4), pointer, dimension(:) :: da, db, dc + type(c_ptr) :: handle = c_null_ptr + + double precision :: error + ! epsilon of the data kind, not the accumulator: these results are complex(kind=4). + double precision, parameter :: error_max = 10*epsilon(real(1.0,kind=4)) + + write(*,"(a)",advance="no") "-- Running test 'CGEMM_STRIDED_BATCHED' (Fortran 2008 interfaces) - " + + ! hipBLAS defaults to host pointer mode: no set-pointer-mode call needed + call hipblasCheck(hipblasCreate(handle)) + + lda = m; ldb = k; ldc = m + stride_a = int(lda,c_int64_t)*k + stride_b = int(ldb,c_int64_t)*n + stride_c = int(ldc,c_int64_t)*n + size_a = int(stride_a)*batch_count + size_b = int(stride_b)*batch_count + size_c = int(stride_c)*batch_count + + allocate(ha(size_a)) + allocate(hb(size_b)) + allocate(hc(size_c)) + allocate(hc_exact(0:batch_count-1)) + + ! Constant matrices with a distinct per-batch value so the exact answer is + ! a distinct constant per batch. A is held constant; B varies per batch. + ha(:) = (1.0,0.0) + do b = 0, batch_count-1 + hb(b*stride_b+1 : (b+1)*stride_b) = cmplx(b+1,0.0) + hc(b*stride_c+1 : (b+1)*stride_c) = (3.0,0.0) + hc_exact(b) = alpha*k*cmplx(b+1,0.0) + beta*(3.0,0.0) + end do + + ! Allocate device memory + call hipCheck(hipMalloc(da,source=ha)) ! implies (blocking) memcpy + call hipCheck(hipMalloc(db,source=hb)) + call hipCheck(hipMalloc(dc,source=hc)) + + call hipblasCheck(hipblasCgemmStridedBatched(handle,transa,transb,m,n,k, & + alpha,da,lda,stride_a,db,ldb,stride_b,beta,dc,ldc,stride_c,batch_count)) + + call hipCheck(hipDeviceSynchronize()) + + ! Transfer data back to host memory + call hipCheck(hipMemcpy(hc, dc, hipMemcpyDeviceToHost)) + + do b = 0, batch_count-1 + do i = 1, int(stride_c) + error = abs((hc_exact(b) - hc(b*stride_c+i))/hc_exact(b)) + if( error > error_max )then + write(*,*) "FAILED! Error bigger than max! batch = ", b, " error = ", error + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(da)) + call hipCheck(hipFree(db)) + call hipCheck(hipFree(dc)) + + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(ha) + deallocate(hb) + deallocate(hc) + deallocate(hc_exact) + + write(*,*) "PASSED!" + +end program hip_cgemm_strided_batched diff --git a/bindings/fortran/hipblas/test/cgemm_strided_batched_devptr.f03 b/bindings/fortran/hipblas/test/cgemm_strided_batched_devptr.f03 new file mode 100644 index 000000000000..268c3f59081b --- /dev/null +++ b/bindings/fortran/hipblas/test/cgemm_strided_batched_devptr.f03 @@ -0,0 +1,136 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_cgemm_strided_batched + + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(kind(HIPBLAS_OP_N)), parameter :: transa = HIPBLAS_OP_N, transb = HIPBLAS_OP_N + complex(kind=4), target :: alpha = (1.1,0.0), beta = (0.9,0.0) + + ! Device-resident copies of the dual-mode scalars; the library reads them + ! from device memory because the handle is in device pointer mode. + type(c_ptr) :: d_alpha = c_null_ptr + type(c_ptr) :: d_beta = c_null_ptr + + integer, parameter :: m = 256, n = 256, k = 256, batch_count = 4 + integer, parameter :: bytes_per_element = 8 ! 2x float + integer :: lda, ldb, ldc, i, b + integer(c_int64_t) :: stride_a, stride_b, stride_c + integer :: size_a, size_b, size_c + integer(c_size_t) :: Nabytes, Nbbytes, Ncbytes + + complex(kind=4), allocatable, target, dimension(:) :: ha, hb, hc + complex(kind=4), allocatable, dimension(:) :: hc_exact ! one value per batch + + type(c_ptr) :: da = c_null_ptr, db = c_null_ptr, dc = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + + double precision :: error + ! epsilon of the data kind, not the accumulator: these results are complex(kind=4). + double precision, parameter :: error_max = 10*epsilon(real(1.0,kind=4)) + + write(*,"(a)",advance="no") "-- Running test 'CGEMM_STRIDED_BATCHED_devptr' (Fortran 2003 interfaces) - " + + ! hipBLAS defaults to host pointer mode: no set-pointer-mode call needed + call hipblasCheck(hipblasCreate(handle)) + + ! Switch to device pointer mode and stage the scalars in device memory + call hipblasCheck(hipblasSetPointerMode(handle, HIPBLAS_POINTER_MODE_DEVICE)) + call hipCheck(hipMalloc(d_alpha, c_sizeof(alpha))) + call hipCheck(hipMalloc(d_beta, c_sizeof(beta))) + call hipCheck(hipMemcpy(d_alpha, c_loc(alpha), c_sizeof(alpha), hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(d_beta, c_loc(beta), c_sizeof(beta), hipMemcpyHostToDevice)) + + lda = m; ldb = k; ldc = m + stride_a = int(lda,c_int64_t)*k + stride_b = int(ldb,c_int64_t)*n + stride_c = int(ldc,c_int64_t)*n + size_a = int(stride_a)*batch_count; Nabytes = size_a*bytes_per_element + size_b = int(stride_b)*batch_count; Nbbytes = size_b*bytes_per_element + size_c = int(stride_c)*batch_count; Ncbytes = size_c*bytes_per_element + + allocate(ha(size_a)) + allocate(hb(size_b)) + allocate(hc(size_c)) + allocate(hc_exact(0:batch_count-1)) + + ! Constant matrices with a distinct per-batch value so the exact answer is + ! a distinct constant per batch. A is held constant; B varies per batch. + ha(:) = (1.0,0.0) + do b = 0, batch_count-1 + hb(b*stride_b+1 : (b+1)*stride_b) = cmplx(b+1,0.0) + hc(b*stride_c+1 : (b+1)*stride_c) = (3.0,0.0) + hc_exact(b) = alpha*k*cmplx(b+1,0.0) + beta*(3.0,0.0) + end do + + ! Allocate device memory + call hipCheck(hipMalloc(da,Nabytes)) + call hipCheck(hipMalloc(db,Nbbytes)) + call hipCheck(hipMalloc(dc,Ncbytes)) + + ! Transfer from host to device + call hipCheck(hipMemcpy(da, c_loc(ha(1)), Nabytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(db, c_loc(hb(1)), Nbbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dc, c_loc(hc(1)), Ncbytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasCgemmStridedBatched(handle,transa,transb,m,n,k, & + d_alpha,da,lda,stride_a,db,ldb,stride_b,d_beta,dc,ldc,stride_c,batch_count)) + + call hipCheck(hipDeviceSynchronize()) + + ! Transfer data back to host memory + call hipCheck(hipMemcpy(c_loc(hc(1)), dc, Ncbytes, hipMemcpyDeviceToHost)) + + do b = 0, batch_count-1 + do i = 1, int(stride_c) + error = abs((hc_exact(b) - hc(b*stride_c+i))/hc_exact(b)) + if( error > error_max )then + write(*,*) "FAILED! Error bigger than max! batch = ", b, " error = ", error + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(da)) + call hipCheck(hipFree(db)) + call hipCheck(hipFree(dc)) + + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(ha) + deallocate(hb) + deallocate(hc) + deallocate(hc_exact) + + call hipCheck(hipFree(d_alpha)) + call hipCheck(hipFree(d_beta)) + write(*,*) "PASSED!" + +end program hip_cgemm_strided_batched diff --git a/bindings/fortran/hipblas/test/cgemm_trans.f03 b/bindings/fortran/hipblas/test/cgemm_trans.f03 new file mode 100644 index 000000000000..baf14b749d76 --- /dev/null +++ b/bindings/fortran/hipblas/test/cgemm_trans.f03 @@ -0,0 +1,150 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hipblas_cgemm_trans_test + + ! hipblasCgemm with every transa/transb combination. The matrices are rectangular, + ! padded (ld > rows) and filled with varying values, so that a swapped dimension, + ! a wrong leading dimension, a wrong operation constant or a missed conjugation + ! all change the result. The padding rows of C must come back untouched. + + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(kind(HIPBLAS_OP_N)), parameter :: ops(3) = [HIPBLAS_OP_N, & + HIPBLAS_OP_T, HIPBLAS_OP_C] + character(len=1), parameter :: op_names(3) = ['N', 'T', 'C'] + integer, parameter :: m = 37, n = 23, k = 19, pad = 3 + complex(c_float_complex), target :: alpha = (1.5_c_float, -0.5_c_float), beta = (0.5_c_float, 0.25_c_float) + + complex(c_float_complex), allocatable, target :: hA(:,:), hB(:,:), hC(:,:) + complex(c_float_complex), allocatable :: hC0(:,:), opA(:,:), opB(:,:), hC_ref(:,:) + type(c_ptr) :: dA = c_null_ptr, dB = c_null_ptr, dC = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + integer(c_size_t), parameter :: elem = 8 + + integer :: ia, ib, i, j, rows_a, cols_a, rows_b, cols_b, lda, ldb, ldc + real(c_float) :: error, error_max + + write(*,"(a)",advance="no") "-- Running test 'CGEMM transposes' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + call hipblasCheck(hipblasSetPointerMode(handle, HIPBLAS_POINTER_MODE_HOST)) + + error_max = 100 * epsilon(error) * (abs(alpha) * k + abs(beta)) + + do ia = 1, 3 + do ib = 1, 3 + ! op(A) is m x k and op(B) is k x n + if (ops(ia) == HIPBLAS_OP_N) then + rows_a = m; cols_a = k + else + rows_a = k; cols_a = m + end if + if (ops(ib) == HIPBLAS_OP_N) then + rows_b = k; cols_b = n + else + rows_b = n; cols_b = k + end if + lda = rows_a + pad; ldb = rows_b + pad; ldc = m + pad + + allocate(hA(lda, cols_a), hB(ldb, cols_b), hC(ldc, n)) + do j = 1, cols_a + do i = 1, lda + hA(i,j) = fill(i, j, 1) + end do + end do + do j = 1, cols_b + do i = 1, ldb + hB(i,j) = fill(i, j, 2) + end do + end do + do j = 1, n + do i = 1, ldc + hC(i,j) = fill(i, j, 3) + end do + end do + hC0 = hC + + call hipCheck(hipMalloc(dA, size(hA, kind=c_size_t) * elem)) + call hipCheck(hipMalloc(dB, size(hB, kind=c_size_t) * elem)) + call hipCheck(hipMalloc(dC, size(hC, kind=c_size_t) * elem)) + call hipCheck(hipMemcpy(dA, c_loc(hA(1,1)), size(hA, kind=c_size_t) * elem, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dB, c_loc(hB(1,1)), size(hB, kind=c_size_t) * elem, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dC, c_loc(hC(1,1)), size(hC, kind=c_size_t) * elem, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasCgemm(handle, ops(ia), ops(ib), m, n, k, c_loc(alpha), dA, lda, dB, ldb, & + c_loc(beta), dC, ldc)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(c_loc(hC(1,1)), dC, size(hC, kind=c_size_t) * elem, hipMemcpyDeviceToHost)) + + if (ops(ia) == HIPBLAS_OP_N) then + opA = hA(1:m, 1:k) + else + opA = transpose(hA(1:k, 1:m)) + if (ops(ia) == HIPBLAS_OP_C) opA = conjg(opA) + end if + if (ops(ib) == HIPBLAS_OP_N) then + opB = hB(1:k, 1:n) + else + opB = transpose(hB(1:n, 1:k)) + if (ops(ib) == HIPBLAS_OP_C) opB = conjg(opB) + end if + hC_ref = alpha * matmul(opA, opB) + beta * hC0(1:m, 1:n) + + error = maxval(abs(hC(1:m, 1:n) - hC_ref)) + if (error > error_max) then + write(*,*) "FAILED! transa = ", op_names(ia), " transb = ", op_names(ib), " error = ", error + call exit(1) + end if + if (any(hC(m+1:ldc, :) /= hC0(m+1:ldc, :))) then + write(*,*) "FAILED! transa = ", op_names(ia), " transb = ", op_names(ib), " wrote past m in C" + call exit(1) + end if + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dB)) + call hipCheck(hipFree(dC)) + deallocate(hA, hB, hC, hC0, opA, opB, hC_ref) + end do + end do + + call hipblasCheck(hipblasDestroy(handle)) + + write(*,*) "PASSED!" + +contains + + ! Varying small multiples of 1/8, so every product and sum below is exact. + complex(c_float_complex) function fill(i, j, s) + integer, intent(in) :: i, j, s + fill = cmplx(real(mod(7*i + 3*j + s, 13) - 6, c_float) / 8, & + real(mod(5*i + 11*j + s, 17) - 8, c_float) / 8, c_float) + end function fill + +end program hipblas_cgemm_trans_test diff --git a/bindings/fortran/hipblas/test/cgemm_trans.f08 b/bindings/fortran/hipblas/test/cgemm_trans.f08 new file mode 100644 index 000000000000..a4892f9c3745 --- /dev/null +++ b/bindings/fortran/hipblas/test/cgemm_trans.f08 @@ -0,0 +1,145 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hipblas_cgemm_trans_test + + ! hipblasCgemm with every transa/transb combination. The matrices are rectangular, + ! padded (ld > rows) and filled with varying values, so that a swapped dimension, + ! a wrong leading dimension, a wrong operation constant or a missed conjugation + ! all change the result. The padding rows of C must come back untouched. + + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(kind(HIPBLAS_OP_N)), parameter :: ops(3) = [HIPBLAS_OP_N, & + HIPBLAS_OP_T, HIPBLAS_OP_C] + character(len=1), parameter :: op_names(3) = ['N', 'T', 'C'] + integer, parameter :: m = 37, n = 23, k = 19, pad = 3 + complex(c_float_complex), target :: alpha = (1.5_c_float, -0.5_c_float), beta = (0.5_c_float, 0.25_c_float) + + complex(c_float_complex), allocatable :: hA(:,:), hB(:,:), hC(:,:) + complex(c_float_complex), allocatable :: hC0(:,:), opA(:,:), opB(:,:), hC_ref(:,:) + complex(c_float_complex), pointer, dimension(:,:) :: dA, dB, dC + type(c_ptr) :: handle = c_null_ptr + + integer :: ia, ib, i, j, rows_a, cols_a, rows_b, cols_b, lda, ldb, ldc + real(c_float) :: error, error_max + + write(*,"(a)",advance="no") "-- Running test 'CGEMM transposes' (Fortran 2008 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + call hipblasCheck(hipblasSetPointerMode(handle, HIPBLAS_POINTER_MODE_HOST)) + + error_max = 100 * epsilon(error) * (abs(alpha) * k + abs(beta)) + + do ia = 1, 3 + do ib = 1, 3 + ! op(A) is m x k and op(B) is k x n + if (ops(ia) == HIPBLAS_OP_N) then + rows_a = m; cols_a = k + else + rows_a = k; cols_a = m + end if + if (ops(ib) == HIPBLAS_OP_N) then + rows_b = k; cols_b = n + else + rows_b = n; cols_b = k + end if + lda = rows_a + pad; ldb = rows_b + pad; ldc = m + pad + + allocate(hA(lda, cols_a), hB(ldb, cols_b), hC(ldc, n)) + do j = 1, cols_a + do i = 1, lda + hA(i,j) = fill(i, j, 1) + end do + end do + do j = 1, cols_b + do i = 1, ldb + hB(i,j) = fill(i, j, 2) + end do + end do + do j = 1, n + do i = 1, ldc + hC(i,j) = fill(i, j, 3) + end do + end do + hC0 = hC + + call hipCheck(hipMalloc(dA, source=hA)) + call hipCheck(hipMalloc(dB, source=hB)) + call hipCheck(hipMalloc(dC, source=hC)) + + call hipblasCheck(hipblasCgemm(handle, ops(ia), ops(ib), m, n, k, alpha, dA, lda, dB, ldb, beta, dC, ldc)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(hC, dC, hipMemcpyDeviceToHost)) + + if (ops(ia) == HIPBLAS_OP_N) then + opA = hA(1:m, 1:k) + else + opA = transpose(hA(1:k, 1:m)) + if (ops(ia) == HIPBLAS_OP_C) opA = conjg(opA) + end if + if (ops(ib) == HIPBLAS_OP_N) then + opB = hB(1:k, 1:n) + else + opB = transpose(hB(1:n, 1:k)) + if (ops(ib) == HIPBLAS_OP_C) opB = conjg(opB) + end if + hC_ref = alpha * matmul(opA, opB) + beta * hC0(1:m, 1:n) + + error = maxval(abs(hC(1:m, 1:n) - hC_ref)) + if (error > error_max) then + write(*,*) "FAILED! transa = ", op_names(ia), " transb = ", op_names(ib), " error = ", error + call exit(1) + end if + if (any(hC(m+1:ldc, :) /= hC0(m+1:ldc, :))) then + write(*,*) "FAILED! transa = ", op_names(ia), " transb = ", op_names(ib), " wrote past m in C" + call exit(1) + end if + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dB)) + call hipCheck(hipFree(dC)) + deallocate(hA, hB, hC, hC0, opA, opB, hC_ref) + end do + end do + + call hipblasCheck(hipblasDestroy(handle)) + + write(*,*) "PASSED!" + +contains + + ! Varying small multiples of 1/8, so every product and sum below is exact. + complex(c_float_complex) function fill(i, j, s) + integer, intent(in) :: i, j, s + fill = cmplx(real(mod(7*i + 3*j + s, 13) - 6, c_float) / 8, & + real(mod(5*i + 11*j + s, 17) - 8, c_float) / 8, c_float) + end function fill + +end program hipblas_cgemm_trans_test diff --git a/bindings/fortran/hipblas/test/cgemv.f03 b/bindings/fortran/hipblas/test/cgemv.f03 new file mode 100644 index 000000000000..6625413fa43e --- /dev/null +++ b/bindings/fortran/hipblas/test/cgemv.f03 @@ -0,0 +1,82 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hipblas_cgemv_test + use iso_c_binding + use hip + use hipblas + + implicit none + + complex(kind=4), target :: alpha = (1.1, 0.0), beta = (0.9, 0.0) + integer, parameter :: m = 512, n = 512 + integer, parameter :: bytes_per_element = 8 + integer(c_size_t) :: NAbytes, Nxbytes, Nybytes + complex(kind=4), allocatable, target, dimension(:) :: hA, hx, hy + complex(kind=4) :: y_exact + double precision :: error + double precision, parameter :: error_max = 10*epsilon(real(1.0,kind=4)) + type(c_ptr) :: dA = c_null_ptr, dx = c_null_ptr, dy = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + integer :: i + + write(*,"(a)",advance="no") "-- Running test 'CGEMV' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + NAbytes = int(m*n, c_size_t) * bytes_per_element + Nxbytes = int(n, c_size_t) * bytes_per_element + Nybytes = int(m, c_size_t) * bytes_per_element + allocate(hA(m*n), hx(n), hy(m)) + hA = (1.0, 0.0); hx = (1.0, 0.0); hy = (1.0, 0.0) + y_exact = alpha * n + beta + + call hipCheck(hipMalloc(dA, NAbytes)) + call hipCheck(hipMalloc(dx, Nxbytes)) + call hipCheck(hipMalloc(dy, Nybytes)) + call hipCheck(hipMemcpy(dA, c_loc(hA(1)), NAbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dx, c_loc(hx(1)), Nxbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dy, c_loc(hy(1)), Nybytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasCgemv(handle, HIPBLAS_OP_N, m, n, c_loc(alpha), dA, m, dx, 1, c_loc(beta), dy, 1)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(c_loc(hy(1)), dy, Nybytes, hipMemcpyDeviceToHost)) + + do i = 1, m + error = abs((y_exact - hy(i)) / y_exact) + if (error > error_max) then + write(*,*) "FAILED! Error bigger than max! Error = ", error + call exit(1) + end if + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dx)) + call hipCheck(hipFree(dy)) + call hipblasCheck(hipblasDestroy(handle)) + deallocate(hA, hx, hy) + write(*,*) "PASSED!" + +end program hipblas_cgemv_test diff --git a/bindings/fortran/hipblas/test/cgemv.f08 b/bindings/fortran/hipblas/test/cgemv.f08 new file mode 100644 index 000000000000..fd2e7277868f --- /dev/null +++ b/bindings/fortran/hipblas/test/cgemv.f08 @@ -0,0 +1,78 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hipblas_cgemv_test + use iso_c_binding + use hip + use hipblas + + implicit none + + complex(kind=4), target :: alpha = (1.1, 0.0), beta = (0.9, 0.0) + integer, parameter :: m = 512, n = 512 + + complex(kind=4), allocatable, target, dimension(:,:) :: hA + complex(kind=4), allocatable, target, dimension(:) :: hx, hy + complex(kind=4), pointer, dimension(:,:) :: dA + complex(kind=4), pointer, dimension(:) :: dx, dy + type(c_ptr) :: handle = c_null_ptr + + complex(kind=4) :: y_exact + double precision :: error + double precision, parameter :: error_max = 10*epsilon(real(1.0,kind=4)) + integer :: i + + write(*,"(a)",advance="no") "-- Running test 'CGEMV' (Fortran 2008 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + allocate(hA(m,n), hx(n), hy(m)) + hA = (1.0, 0.0); hx = (1.0, 0.0); hy = (1.0, 0.0) + y_exact = alpha * n + beta + + call hipCheck(hipMalloc(dA, source=hA)) + call hipCheck(hipMalloc(dx, source=hx)) + call hipCheck(hipMalloc(dy, source=hy)) + + call hipblasCheck(hipblasCgemv(handle, HIPBLAS_OP_N, m, n, alpha, dA, size(dA,1), dx, 1, beta, dy, 1)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(hy, dy, hipMemcpyDeviceToHost)) + + do i = 1, m + error = abs((y_exact - hy(i)) / y_exact) + if (error > error_max) then + write(*,*) "FAILED! Error bigger than max! Error = ", error + call exit(1) + end if + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dx)) + call hipCheck(hipFree(dy)) + call hipblasCheck(hipblasDestroy(handle)) + deallocate(hA, hx, hy) + write(*,*) "PASSED!" + +end program hipblas_cgemv_test diff --git a/bindings/fortran/hipblas/test/cgemv_devptr.f03 b/bindings/fortran/hipblas/test/cgemv_devptr.f03 new file mode 100644 index 000000000000..f65366f9d000 --- /dev/null +++ b/bindings/fortran/hipblas/test/cgemv_devptr.f03 @@ -0,0 +1,96 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hipblas_cgemv_test + use iso_c_binding + use hip + use hipblas + + implicit none + + complex(kind=4), target :: alpha = (1.1, 0.0), beta = (0.9, 0.0) + + ! Device-resident copies of the dual-mode scalars; the library reads them + ! from device memory because the handle is in device pointer mode. + type(c_ptr) :: d_alpha = c_null_ptr + type(c_ptr) :: d_beta = c_null_ptr + integer, parameter :: m = 512, n = 512 + integer, parameter :: bytes_per_element = 8 + integer(c_size_t) :: NAbytes, Nxbytes, Nybytes + complex(kind=4), allocatable, target, dimension(:) :: hA, hx, hy + complex(kind=4) :: y_exact + double precision :: error + double precision, parameter :: error_max = 10*epsilon(real(1.0,kind=4)) + type(c_ptr) :: dA = c_null_ptr, dx = c_null_ptr, dy = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + integer :: i + + write(*,"(a)",advance="no") "-- Running test 'CGEMV_devptr' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + ! Switch to device pointer mode and stage the scalars in device memory + call hipblasCheck(hipblasSetPointerMode(handle, HIPBLAS_POINTER_MODE_DEVICE)) + call hipCheck(hipMalloc(d_alpha, c_sizeof(alpha))) + call hipCheck(hipMalloc(d_beta, c_sizeof(beta))) + call hipCheck(hipMemcpy(d_alpha, c_loc(alpha), c_sizeof(alpha), hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(d_beta, c_loc(beta), c_sizeof(beta), hipMemcpyHostToDevice)) + + NAbytes = int(m*n, c_size_t) * bytes_per_element + Nxbytes = int(n, c_size_t) * bytes_per_element + Nybytes = int(m, c_size_t) * bytes_per_element + allocate(hA(m*n), hx(n), hy(m)) + hA = (1.0, 0.0); hx = (1.0, 0.0); hy = (1.0, 0.0) + y_exact = alpha * n + beta + + call hipCheck(hipMalloc(dA, NAbytes)) + call hipCheck(hipMalloc(dx, Nxbytes)) + call hipCheck(hipMalloc(dy, Nybytes)) + call hipCheck(hipMemcpy(dA, c_loc(hA(1)), NAbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dx, c_loc(hx(1)), Nxbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dy, c_loc(hy(1)), Nybytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasCgemv(handle, HIPBLAS_OP_N, m, n, d_alpha, dA, m, dx, 1, d_beta, dy, 1)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(c_loc(hy(1)), dy, Nybytes, hipMemcpyDeviceToHost)) + + do i = 1, m + error = abs((y_exact - hy(i)) / y_exact) + if (error > error_max) then + write(*,*) "FAILED! Error bigger than max! Error = ", error + call exit(1) + end if + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dx)) + call hipCheck(hipFree(dy)) + call hipblasCheck(hipblasDestroy(handle)) + deallocate(hA, hx, hy) + call hipCheck(hipFree(d_alpha)) + call hipCheck(hipFree(d_beta)) + write(*,*) "PASSED!" + +end program hipblas_cgemv_test diff --git a/bindings/fortran/hipblas/test/cgemv_trans.f03 b/bindings/fortran/hipblas/test/cgemv_trans.f03 new file mode 100644 index 000000000000..6dd501241981 --- /dev/null +++ b/bindings/fortran/hipblas/test/cgemv_trans.f03 @@ -0,0 +1,141 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hipblas_cgemv_trans_test + + ! hipblasCgemv with every trans value. A is rectangular and padded (lda > m), x and y + ! use different non-unit increments and the values vary, so that a + ! swapped dimension or increment, a wrong leading dimension, a wrong operation + ! constant or a missed conjugation all change the result. The entries of y + ! between the strided ones must come back untouched. + + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(kind(HIPBLAS_OP_N)), parameter :: ops(3) = [HIPBLAS_OP_N, & + HIPBLAS_OP_T, HIPBLAS_OP_C] + character(len=1), parameter :: op_names(3) = ['N', 'T', 'C'] + integer, parameter :: m = 37, n = 23, pad = 3, incx = 2, incy = 3 + integer, parameter :: lda = m + pad + complex(c_float_complex), target :: alpha = (1.5_c_float, -0.5_c_float), beta = (0.5_c_float, 0.25_c_float) + + complex(c_float_complex), allocatable, target :: hA(:,:), hx(:), hy(:) + complex(c_float_complex), allocatable :: hy0(:), opA(:,:), y_ref(:), mask_ref(:) + type(c_ptr) :: dA = c_null_ptr, dx = c_null_ptr, dy = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + integer(c_size_t), parameter :: elem = 8 + + integer :: it, i, j, lx, ly + real(c_float) :: error, error_max + + write(*,"(a)",advance="no") "-- Running test 'CGEMV transposes' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + call hipblasCheck(hipblasSetPointerMode(handle, HIPBLAS_POINTER_MODE_HOST)) + + error_max = 100 * epsilon(error) * (abs(alpha) * max(m, n) + abs(beta)) + + allocate(hA(lda, n)) + do j = 1, n + do i = 1, lda + hA(i,j) = fill(i, j, 1) + end do + end do + + do it = 1, 3 + ! op(A) is ly x lx + if (ops(it) == HIPBLAS_OP_N) then + lx = n; ly = m + else + lx = m; ly = n + end if + + allocate(hx(1 + (lx-1)*incx), hy(1 + (ly-1)*incy)) + do i = 1, size(hx) + hx(i) = fill(i, 1, 2) + end do + do i = 1, size(hy) + hy(i) = fill(i, 1, 3) + end do + hy0 = hy + + call hipCheck(hipMalloc(dA, size(hA, kind=c_size_t) * elem)) + call hipCheck(hipMalloc(dx, size(hx, kind=c_size_t) * elem)) + call hipCheck(hipMalloc(dy, size(hy, kind=c_size_t) * elem)) + call hipCheck(hipMemcpy(dA, c_loc(hA(1,1)), size(hA, kind=c_size_t) * elem, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dx, c_loc(hx(1)), size(hx, kind=c_size_t) * elem, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dy, c_loc(hy(1)), size(hy, kind=c_size_t) * elem, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasCgemv(handle, ops(it), m, n, c_loc(alpha), dA, lda, dx, incx, & + c_loc(beta), dy, incy)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(c_loc(hy(1)), dy, size(hy, kind=c_size_t) * elem, hipMemcpyDeviceToHost)) + + if (ops(it) == HIPBLAS_OP_N) then + opA = hA(1:m, 1:n) + else + opA = transpose(hA(1:m, 1:n)) + if (ops(it) == HIPBLAS_OP_C) opA = conjg(opA) + end if + y_ref = alpha * matmul(opA, hx(1::incx)) + beta * hy0(1::incy) + + error = maxval(abs(hy(1::incy) - y_ref)) + if (error > error_max) then + write(*,*) "FAILED! trans = ", op_names(it), " error = ", error + call exit(1) + end if + ! the strided writes must leave the entries in between alone + mask_ref = hy0 + mask_ref(1::incy) = hy(1::incy) + if (any(hy /= mask_ref)) then + write(*,*) "FAILED! trans = ", op_names(it), " wrote between the strided entries of y" + call exit(1) + end if + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dx)) + call hipCheck(hipFree(dy)) + deallocate(hx, hy, hy0, opA, y_ref, mask_ref) + end do + + deallocate(hA) + + call hipblasCheck(hipblasDestroy(handle)) + + write(*,*) "PASSED!" + +contains + + ! Varying small multiples of 1/8, so every product and sum below is exact. + complex(c_float_complex) function fill(i, j, s) + integer, intent(in) :: i, j, s + fill = cmplx(real(mod(7*i + 3*j + s, 13) - 6, c_float) / 8, & + real(mod(5*i + 11*j + s, 17) - 8, c_float) / 8, c_float) + end function fill + +end program hipblas_cgemv_trans_test diff --git a/bindings/fortran/hipblas/test/cgemv_trans.f08 b/bindings/fortran/hipblas/test/cgemv_trans.f08 new file mode 100644 index 000000000000..7a382a67402a --- /dev/null +++ b/bindings/fortran/hipblas/test/cgemv_trans.f08 @@ -0,0 +1,137 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hipblas_cgemv_trans_test + + ! hipblasCgemv with every trans value. A is rectangular and padded (lda > m), x and y + ! use different non-unit increments and the values vary, so that a + ! swapped dimension or increment, a wrong leading dimension, a wrong operation + ! constant or a missed conjugation all change the result. The entries of y + ! between the strided ones must come back untouched. + + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(kind(HIPBLAS_OP_N)), parameter :: ops(3) = [HIPBLAS_OP_N, & + HIPBLAS_OP_T, HIPBLAS_OP_C] + character(len=1), parameter :: op_names(3) = ['N', 'T', 'C'] + integer, parameter :: m = 37, n = 23, pad = 3, incx = 2, incy = 3 + integer, parameter :: lda = m + pad + complex(c_float_complex), target :: alpha = (1.5_c_float, -0.5_c_float), beta = (0.5_c_float, 0.25_c_float) + + complex(c_float_complex), allocatable :: hA(:,:), hx(:), hy(:) + complex(c_float_complex), allocatable :: hy0(:), opA(:,:), y_ref(:), mask_ref(:) + complex(c_float_complex), pointer, dimension(:,:) :: dA + complex(c_float_complex), pointer, dimension(:) :: dx, dy + type(c_ptr) :: handle = c_null_ptr + + integer :: it, i, j, lx, ly + real(c_float) :: error, error_max + + write(*,"(a)",advance="no") "-- Running test 'CGEMV transposes' (Fortran 2008 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + call hipblasCheck(hipblasSetPointerMode(handle, HIPBLAS_POINTER_MODE_HOST)) + + error_max = 100 * epsilon(error) * (abs(alpha) * max(m, n) + abs(beta)) + + allocate(hA(lda, n)) + do j = 1, n + do i = 1, lda + hA(i,j) = fill(i, j, 1) + end do + end do + + do it = 1, 3 + ! op(A) is ly x lx + if (ops(it) == HIPBLAS_OP_N) then + lx = n; ly = m + else + lx = m; ly = n + end if + + allocate(hx(1 + (lx-1)*incx), hy(1 + (ly-1)*incy)) + do i = 1, size(hx) + hx(i) = fill(i, 1, 2) + end do + do i = 1, size(hy) + hy(i) = fill(i, 1, 3) + end do + hy0 = hy + + call hipCheck(hipMalloc(dA, source=hA)) + call hipCheck(hipMalloc(dx, source=hx)) + call hipCheck(hipMalloc(dy, source=hy)) + + call hipblasCheck(hipblasCgemv(handle, ops(it), m, n, alpha, dA, lda, dx, incx, beta, dy, incy)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(hy, dy, hipMemcpyDeviceToHost)) + + if (ops(it) == HIPBLAS_OP_N) then + opA = hA(1:m, 1:n) + else + opA = transpose(hA(1:m, 1:n)) + if (ops(it) == HIPBLAS_OP_C) opA = conjg(opA) + end if + y_ref = alpha * matmul(opA, hx(1::incx)) + beta * hy0(1::incy) + + error = maxval(abs(hy(1::incy) - y_ref)) + if (error > error_max) then + write(*,*) "FAILED! trans = ", op_names(it), " error = ", error + call exit(1) + end if + ! the strided writes must leave the entries in between alone + mask_ref = hy0 + mask_ref(1::incy) = hy(1::incy) + if (any(hy /= mask_ref)) then + write(*,*) "FAILED! trans = ", op_names(it), " wrote between the strided entries of y" + call exit(1) + end if + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dx)) + call hipCheck(hipFree(dy)) + deallocate(hx, hy, hy0, opA, y_ref, mask_ref) + end do + + deallocate(hA) + + call hipblasCheck(hipblasDestroy(handle)) + + write(*,*) "PASSED!" + +contains + + ! Varying small multiples of 1/8, so every product and sum below is exact. + complex(c_float_complex) function fill(i, j, s) + integer, intent(in) :: i, j, s + fill = cmplx(real(mod(7*i + 3*j + s, 13) - 6, c_float) / 8, & + real(mod(5*i + 11*j + s, 17) - 8, c_float) / 8, c_float) + end function fill + +end program hipblas_cgemv_trans_test diff --git a/bindings/fortran/hipblas/test/csymm.f03 b/bindings/fortran/hipblas/test/csymm.f03 new file mode 100644 index 000000000000..6c53d883fff0 --- /dev/null +++ b/bindings/fortran/hipblas/test/csymm.f03 @@ -0,0 +1,96 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_csymm + use iso_c_binding + use hip + use hipblas + + implicit none + + ! C := alpha*A*B + beta*C with A symmetric (upper triangle referenced) on the left. + ! B is m x n with m /= n and A(2,1) holds junk, so swapping A and B, the side + ! or the triangle changes the result. + integer, parameter :: m = 2, n = 3 + integer(c_size_t) :: Nbytes + complex(c_float_complex), target :: alpha = (1.0, 0.0), beta = (0.0, 0.0) + + complex(c_float_complex), target :: hA(m,m) = reshape([(1.0, 1.0), (7.0, -7.0), (2.0, -1.0), (3.0, 0.5)], [m,m]) + complex(c_float_complex), target :: hB(m,n) = reshape([(1.0, 0.0), (4.0, 1.0), (2.0, -2.0), & + (5.0, 0.0), (3.0, 1.0), (-6.0, 0.0)], [m,n]) + complex(c_float_complex), target :: hC(m,n) + complex(c_float_complex) :: expected(m,n), Aref(m,m) + type(c_ptr) :: dA = c_null_ptr, dB = c_null_ptr, dC = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + integer :: i, j + real(c_float) :: error + real(c_float), parameter :: error_max = 10*epsilon(error) + + write(*,"(a)",advance="no") "-- Running test 'csymm' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + hC = (0.0, 0.0) + + ! Host reference built from the upper triangle only, A(2,1) is junk + do j = 1, m + do i = 1, m + Aref(i,j) = hA(min(i,j), max(i,j)) + end do + end do + expected = alpha*matmul(Aref, hB) + + Nbytes = int(m*m, c_size_t) * 8 + call hipCheck(hipMalloc(dA, Nbytes)) + call hipCheck(hipMemcpy(dA, c_loc(hA(1,1)), Nbytes, hipMemcpyHostToDevice)) + Nbytes = int(m*n, c_size_t) * 8 + call hipCheck(hipMalloc(dB, Nbytes)) + call hipCheck(hipMemcpy(dB, c_loc(hB(1,1)), Nbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMalloc(dC, Nbytes)) + call hipCheck(hipMemcpy(dC, c_loc(hC(1,1)), Nbytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasCsymm(handle, HIPBLAS_SIDE_LEFT, HIPBLAS_FILL_MODE_UPPER, m, n, & + c_loc(alpha), dA, m, dB, m, c_loc(beta), dC, m)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(c_loc(hC(1,1)), dC, Nbytes, hipMemcpyDeviceToHost)) + + do j = 1, n + do i = 1, m + error = abs(expected(i,j) - hC(i,j)) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " at ", i, j + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dB)) + call hipCheck(hipFree(dC)) + call hipblasCheck(hipblasDestroy(handle)) + + write(*,*) "PASSED!" + +end program hip_csymm diff --git a/bindings/fortran/hipblas/test/csymm.f08 b/bindings/fortran/hipblas/test/csymm.f08 new file mode 100644 index 000000000000..d36d5676c6a5 --- /dev/null +++ b/bindings/fortran/hipblas/test/csymm.f08 @@ -0,0 +1,93 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_csymm + use iso_c_binding + use hip + use hipblas + + implicit none + + ! C := alpha*A*B + beta*C with A symmetric (upper triangle referenced) on the left. + ! B is m x n with m /= n and A(2,1) holds junk, so swapping A and B, the side + ! or the triangle changes the result. + integer, parameter :: m = 2, n = 3 + complex(c_float_complex), target :: alpha = (1.0, 0.0), beta = (0.0, 0.0) + + complex(c_float_complex) :: hA(m,m) = reshape([(1.0, 1.0), (7.0, -7.0), (2.0, -1.0), (3.0, 0.5)], [m,m]) + complex(c_float_complex) :: hB(m,n) = reshape([(1.0, 0.0), (4.0, 1.0), (2.0, -2.0), & + (5.0, 0.0), (3.0, 1.0), (-6.0, 0.0)], [m,n]) + complex(c_float_complex) :: hC(m,n) + complex(c_float_complex) :: expected(m,n), Aref(m,m) + complex(c_float_complex), pointer, dimension(:,:) :: dA, dB, dC + type(c_ptr) :: handle = c_null_ptr + integer :: i, j + real(c_float) :: error + real(c_float), parameter :: error_max = 10*epsilon(error) + + write(*,"(a)",advance="no") "-- Running test 'csymm' (Fortran 2008 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + hC = (0.0, 0.0) + + ! Host reference built from the upper triangle only, A(2,1) is junk + do j = 1, m + do i = 1, m + Aref(i,j) = hA(min(i,j), max(i,j)) + end do + end do + expected = alpha*matmul(Aref, hB) + + call hipCheck(hipMalloc(dA, shape(hA))) + call hipCheck(hipMemcpy(dA, hA, hipMemcpyHostToDevice)) + call hipCheck(hipMalloc(dB, shape(hB))) + call hipCheck(hipMemcpy(dB, hB, hipMemcpyHostToDevice)) + call hipCheck(hipMalloc(dC, shape(hC))) + call hipCheck(hipMemcpy(dC, hC, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasCsymm(handle, HIPBLAS_SIDE_LEFT, HIPBLAS_FILL_MODE_UPPER, m, n, & + alpha, dA, size(dA,1), dB, size(dB,1), beta, dC, size(dC,1))) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(hC, dC, hipMemcpyDeviceToHost)) + + do j = 1, n + do i = 1, m + error = abs(expected(i,j) - hC(i,j)) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " at ", i, j + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dB)) + call hipCheck(hipFree(dC)) + call hipblasCheck(hipblasDestroy(handle)) + + write(*,*) "PASSED!" + +end program hip_csymm diff --git a/bindings/fortran/hipblas/test/csymm_devptr.f03 b/bindings/fortran/hipblas/test/csymm_devptr.f03 new file mode 100644 index 000000000000..3a3226a1a49f --- /dev/null +++ b/bindings/fortran/hipblas/test/csymm_devptr.f03 @@ -0,0 +1,110 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_csymm + use iso_c_binding + use hip + use hipblas + + implicit none + + ! C := alpha*A*B + beta*C with A symmetric (upper triangle referenced) on the left. + ! B is m x n with m /= n and A(2,1) holds junk, so swapping A and B, the side + ! or the triangle changes the result. + integer, parameter :: m = 2, n = 3 + integer(c_size_t) :: Nbytes + complex(c_float_complex), target :: alpha = (1.0, 0.0), beta = (0.0, 0.0) + + ! Device-resident copies of the dual-mode scalars; the library reads them + ! from device memory because the handle is in device pointer mode. + type(c_ptr) :: d_alpha = c_null_ptr + type(c_ptr) :: d_beta = c_null_ptr + + complex(c_float_complex), target :: hA(m,m) = reshape([(1.0, 1.0), (7.0, -7.0), (2.0, -1.0), (3.0, 0.5)], [m,m]) + complex(c_float_complex), target :: hB(m,n) = reshape([(1.0, 0.0), (4.0, 1.0), (2.0, -2.0), & + (5.0, 0.0), (3.0, 1.0), (-6.0, 0.0)], [m,n]) + complex(c_float_complex), target :: hC(m,n) + complex(c_float_complex) :: expected(m,n), Aref(m,m) + type(c_ptr) :: dA = c_null_ptr, dB = c_null_ptr, dC = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + integer :: i, j + real(c_float) :: error + real(c_float), parameter :: error_max = 10*epsilon(error) + + write(*,"(a)",advance="no") "-- Running test 'csymm_devptr' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + ! Switch to device pointer mode and stage the scalars in device memory + call hipblasCheck(hipblasSetPointerMode(handle, HIPBLAS_POINTER_MODE_DEVICE)) + call hipCheck(hipMalloc(d_alpha, c_sizeof(alpha))) + call hipCheck(hipMalloc(d_beta, c_sizeof(beta))) + call hipCheck(hipMemcpy(d_alpha, c_loc(alpha), c_sizeof(alpha), hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(d_beta, c_loc(beta), c_sizeof(beta), hipMemcpyHostToDevice)) + + hC = (0.0, 0.0) + + ! Host reference built from the upper triangle only, A(2,1) is junk + do j = 1, m + do i = 1, m + Aref(i,j) = hA(min(i,j), max(i,j)) + end do + end do + expected = alpha*matmul(Aref, hB) + + Nbytes = int(m*m, c_size_t) * 8 + call hipCheck(hipMalloc(dA, Nbytes)) + call hipCheck(hipMemcpy(dA, c_loc(hA(1,1)), Nbytes, hipMemcpyHostToDevice)) + Nbytes = int(m*n, c_size_t) * 8 + call hipCheck(hipMalloc(dB, Nbytes)) + call hipCheck(hipMemcpy(dB, c_loc(hB(1,1)), Nbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMalloc(dC, Nbytes)) + call hipCheck(hipMemcpy(dC, c_loc(hC(1,1)), Nbytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasCsymm(handle, HIPBLAS_SIDE_LEFT, HIPBLAS_FILL_MODE_UPPER, m, n, & + d_alpha, dA, m, dB, m, d_beta, dC, m)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(c_loc(hC(1,1)), dC, Nbytes, hipMemcpyDeviceToHost)) + + do j = 1, n + do i = 1, m + error = abs(expected(i,j) - hC(i,j)) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " at ", i, j + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dB)) + call hipCheck(hipFree(dC)) + call hipblasCheck(hipblasDestroy(handle)) + + call hipCheck(hipFree(d_alpha)) + call hipCheck(hipFree(d_beta)) + write(*,*) "PASSED!" + +end program hip_csymm diff --git a/bindings/fortran/hipblas/test/csyrk.f03 b/bindings/fortran/hipblas/test/csyrk.f03 new file mode 100644 index 000000000000..f125a0f2ec42 --- /dev/null +++ b/bindings/fortran/hipblas/test/csyrk.f03 @@ -0,0 +1,81 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_csyrk + use iso_c_binding + use hip + use hipblas + + implicit none + + ! C := alpha*A*A**T + beta*C, upper triangle. A = [1 0; 2 3] gives + ! A*A**T = [1 2; 2 13], so the referenced upper triangle is 1, 2, 13. + integer, parameter :: ld = 2 + integer(c_size_t) :: Nbytes + complex(c_float_complex), target :: alpha = (1.0, 0.0), beta = (0.0, 0.0) + + complex(c_float_complex), target :: hA(ld,ld) = reshape([(1.0, 0.0), (2.0, 0.0), (0.0, 0.0), (3.0, 0.0)], [ld,ld]) + complex(c_float_complex), target :: hC(ld,ld) + complex(c_float_complex) :: expected(ld,ld) = reshape([(1.0, 0.0), (0.0, 0.0), (2.0, 0.0), (13.0, 0.0)], [ld,ld]) + type(c_ptr) :: dA = c_null_ptr, dC = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + integer :: i, j + real(c_float) :: error + real(c_float), parameter :: error_max = 10*epsilon(error) + + write(*,"(a)",advance="no") "-- Running test 'csyrk' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + hC = (0.0, 0.0) + + Nbytes = int(ld*ld, c_size_t) * 8 + call hipCheck(hipMalloc(dA, Nbytes)) + call hipCheck(hipMemcpy(dA, c_loc(hA(1,1)), Nbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMalloc(dC, Nbytes)) + call hipCheck(hipMemcpy(dC, c_loc(hC(1,1)), Nbytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasCsyrk(handle, HIPBLAS_FILL_MODE_UPPER, HIPBLAS_OP_N, ld, ld, & + c_loc(alpha), dA, ld, c_loc(beta), dC, ld)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(c_loc(hC(1,1)), dC, Nbytes, hipMemcpyDeviceToHost)) + + do j = 1, ld + do i = 1, j + error = abs(expected(i,j) - hC(i,j)) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " at ", i, j + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dC)) + call hipblasCheck(hipblasDestroy(handle)) + + write(*,*) "PASSED!" + +end program hip_csyrk diff --git a/bindings/fortran/hipblas/test/csyrk.f08 b/bindings/fortran/hipblas/test/csyrk.f08 new file mode 100644 index 000000000000..49476f1de9e3 --- /dev/null +++ b/bindings/fortran/hipblas/test/csyrk.f08 @@ -0,0 +1,79 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_csyrk + use iso_c_binding + use hip + use hipblas + + implicit none + + ! C := alpha*A*A**T + beta*C, upper triangle. A = [1 0; 2 3] gives + ! A*A**T = [1 2; 2 13], so the referenced upper triangle is 1, 2, 13. + integer, parameter :: ld = 2 + complex(c_float_complex), target :: alpha = (1.0, 0.0), beta = (0.0, 0.0) + + complex(c_float_complex) :: hA(ld,ld) = reshape([(1.0, 0.0), (2.0, 0.0), (0.0, 0.0), (3.0, 0.0)], [ld,ld]) + complex(c_float_complex) :: hC(ld,ld) + complex(c_float_complex) :: expected(ld,ld) = reshape([(1.0, 0.0), (0.0, 0.0), (2.0, 0.0), (13.0, 0.0)], [ld,ld]) + complex(c_float_complex), pointer, dimension(:,:) :: dA, dC + type(c_ptr) :: handle = c_null_ptr + integer :: i, j + real(c_float) :: error + real(c_float), parameter :: error_max = 10*epsilon(error) + + write(*,"(a)",advance="no") "-- Running test 'csyrk' (Fortran 2008 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + hC = (0.0, 0.0) + + call hipCheck(hipMalloc(dA, shape(hA))) + call hipCheck(hipMemcpy(dA, hA, hipMemcpyHostToDevice)) + call hipCheck(hipMalloc(dC, shape(hC))) + call hipCheck(hipMemcpy(dC, hC, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasCsyrk(handle, HIPBLAS_FILL_MODE_UPPER, HIPBLAS_OP_N, ld, ld, & + alpha, dA, size(dA,1), beta, dC, size(dC,1))) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(hC, dC, hipMemcpyDeviceToHost)) + + do j = 1, ld + do i = 1, j + error = abs(expected(i,j) - hC(i,j)) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " at ", i, j + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dC)) + call hipblasCheck(hipblasDestroy(handle)) + + write(*,*) "PASSED!" + +end program hip_csyrk diff --git a/bindings/fortran/hipblas/test/csyrk_devptr.f03 b/bindings/fortran/hipblas/test/csyrk_devptr.f03 new file mode 100644 index 000000000000..40e455983967 --- /dev/null +++ b/bindings/fortran/hipblas/test/csyrk_devptr.f03 @@ -0,0 +1,95 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_csyrk + use iso_c_binding + use hip + use hipblas + + implicit none + + ! C := alpha*A*A**T + beta*C, upper triangle. A = [1 0; 2 3] gives + ! A*A**T = [1 2; 2 13], so the referenced upper triangle is 1, 2, 13. + integer, parameter :: ld = 2 + integer(c_size_t) :: Nbytes + complex(c_float_complex), target :: alpha = (1.0, 0.0), beta = (0.0, 0.0) + + ! Device-resident copies of the dual-mode scalars; the library reads them + ! from device memory because the handle is in device pointer mode. + type(c_ptr) :: d_alpha = c_null_ptr + type(c_ptr) :: d_beta = c_null_ptr + + complex(c_float_complex), target :: hA(ld,ld) = reshape([(1.0, 0.0), (2.0, 0.0), (0.0, 0.0), (3.0, 0.0)], [ld,ld]) + complex(c_float_complex), target :: hC(ld,ld) + complex(c_float_complex) :: expected(ld,ld) = reshape([(1.0, 0.0), (0.0, 0.0), (2.0, 0.0), (13.0, 0.0)], [ld,ld]) + type(c_ptr) :: dA = c_null_ptr, dC = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + integer :: i, j + real(c_float) :: error + real(c_float), parameter :: error_max = 10*epsilon(error) + + write(*,"(a)",advance="no") "-- Running test 'csyrk_devptr' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + ! Switch to device pointer mode and stage the scalars in device memory + call hipblasCheck(hipblasSetPointerMode(handle, HIPBLAS_POINTER_MODE_DEVICE)) + call hipCheck(hipMalloc(d_alpha, c_sizeof(alpha))) + call hipCheck(hipMalloc(d_beta, c_sizeof(beta))) + call hipCheck(hipMemcpy(d_alpha, c_loc(alpha), c_sizeof(alpha), hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(d_beta, c_loc(beta), c_sizeof(beta), hipMemcpyHostToDevice)) + + hC = (0.0, 0.0) + + Nbytes = int(ld*ld, c_size_t) * 8 + call hipCheck(hipMalloc(dA, Nbytes)) + call hipCheck(hipMemcpy(dA, c_loc(hA(1,1)), Nbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMalloc(dC, Nbytes)) + call hipCheck(hipMemcpy(dC, c_loc(hC(1,1)), Nbytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasCsyrk(handle, HIPBLAS_FILL_MODE_UPPER, HIPBLAS_OP_N, ld, ld, & + d_alpha, dA, ld, d_beta, dC, ld)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(c_loc(hC(1,1)), dC, Nbytes, hipMemcpyDeviceToHost)) + + do j = 1, ld + do i = 1, j + error = abs(expected(i,j) - hC(i,j)) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " at ", i, j + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dC)) + call hipblasCheck(hipblasDestroy(handle)) + + call hipCheck(hipFree(d_alpha)) + call hipCheck(hipFree(d_beta)) + write(*,*) "PASSED!" + +end program hip_csyrk diff --git a/bindings/fortran/hipblas/test/ctrmm.f03 b/bindings/fortran/hipblas/test/ctrmm.f03 new file mode 100644 index 000000000000..d9faacb0ee83 --- /dev/null +++ b/bindings/fortran/hipblas/test/ctrmm.f03 @@ -0,0 +1,97 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_ctrmm + use iso_c_binding + use hip + use hipblas + + implicit none + + ! C := alpha*op(A)*B with A upper triangular on the left (out-of-place trmm). + ! B is m x n with m /= n and A(2,1) holds junk, so swapping A and B, the side + ! or the triangle changes the result. + integer, parameter :: m = 2, n = 3 + integer(c_size_t) :: Nbytes + complex(c_float_complex), target :: alpha = (1.0, 0.0) + + complex(c_float_complex), target :: hA(m,m) = reshape([(1.0, 1.0), (7.0, -7.0), (2.0, -1.0), (3.0, 0.5)], [m,m]) + complex(c_float_complex), target :: hB(m,n) = reshape([(1.0, 0.0), (4.0, 1.0), (2.0, -2.0), & + (5.0, 0.0), (3.0, 1.0), (-6.0, 0.0)], [m,n]) + complex(c_float_complex), target :: hC(m,n) + complex(c_float_complex) :: expected(m,n), Aref(m,m) + type(c_ptr) :: dA = c_null_ptr, dB = c_null_ptr, dC = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + integer :: i, j + real(c_float) :: error + real(c_float), parameter :: error_max = 10*epsilon(error) + + write(*,"(a)",advance="no") "-- Running test 'ctrmm' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + hC = (0.0, 0.0) + + ! Host reference built from the upper triangle only, A(2,1) is junk + Aref = (0.0, 0.0) + do j = 1, m + do i = 1, j + Aref(i,j) = hA(i,j) + end do + end do + expected = alpha*matmul(Aref, hB) + + Nbytes = int(m*m, c_size_t) * 8 + call hipCheck(hipMalloc(dA, Nbytes)) + call hipCheck(hipMemcpy(dA, c_loc(hA(1,1)), Nbytes, hipMemcpyHostToDevice)) + Nbytes = int(m*n, c_size_t) * 8 + call hipCheck(hipMalloc(dB, Nbytes)) + call hipCheck(hipMemcpy(dB, c_loc(hB(1,1)), Nbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMalloc(dC, Nbytes)) + call hipCheck(hipMemcpy(dC, c_loc(hC(1,1)), Nbytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasCtrmm(handle, HIPBLAS_SIDE_LEFT, HIPBLAS_FILL_MODE_UPPER, HIPBLAS_OP_N, & + HIPBLAS_DIAG_NON_UNIT, m, n, c_loc(alpha), dA, m, dB, m, dC, m)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(c_loc(hC(1,1)), dC, Nbytes, hipMemcpyDeviceToHost)) + + do j = 1, n + do i = 1, m + error = abs(expected(i,j) - hC(i,j)) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " at ", i, j + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dB)) + call hipCheck(hipFree(dC)) + call hipblasCheck(hipblasDestroy(handle)) + + write(*,*) "PASSED!" + +end program hip_ctrmm diff --git a/bindings/fortran/hipblas/test/ctrmm.f08 b/bindings/fortran/hipblas/test/ctrmm.f08 new file mode 100644 index 000000000000..33a8e36904cd --- /dev/null +++ b/bindings/fortran/hipblas/test/ctrmm.f08 @@ -0,0 +1,94 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_ctrmm + use iso_c_binding + use hip + use hipblas + + implicit none + + ! C := alpha*op(A)*B with A upper triangular on the left (out-of-place trmm). + ! B is m x n with m /= n and A(2,1) holds junk, so swapping A and B, the side + ! or the triangle changes the result. + integer, parameter :: m = 2, n = 3 + complex(c_float_complex), target :: alpha = (1.0, 0.0) + + complex(c_float_complex) :: hA(m,m) = reshape([(1.0, 1.0), (7.0, -7.0), (2.0, -1.0), (3.0, 0.5)], [m,m]) + complex(c_float_complex) :: hB(m,n) = reshape([(1.0, 0.0), (4.0, 1.0), (2.0, -2.0), & + (5.0, 0.0), (3.0, 1.0), (-6.0, 0.0)], [m,n]) + complex(c_float_complex) :: hC(m,n) + complex(c_float_complex) :: expected(m,n), Aref(m,m) + complex(c_float_complex), pointer, dimension(:,:) :: dA, dB, dC + type(c_ptr) :: handle = c_null_ptr + integer :: i, j + real(c_float) :: error + real(c_float), parameter :: error_max = 10*epsilon(error) + + write(*,"(a)",advance="no") "-- Running test 'ctrmm' (Fortran 2008 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + hC = (0.0, 0.0) + + ! Host reference built from the upper triangle only, A(2,1) is junk + Aref = (0.0, 0.0) + do j = 1, m + do i = 1, j + Aref(i,j) = hA(i,j) + end do + end do + expected = alpha*matmul(Aref, hB) + + call hipCheck(hipMalloc(dA, shape(hA))) + call hipCheck(hipMemcpy(dA, hA, hipMemcpyHostToDevice)) + call hipCheck(hipMalloc(dB, shape(hB))) + call hipCheck(hipMemcpy(dB, hB, hipMemcpyHostToDevice)) + call hipCheck(hipMalloc(dC, shape(hC))) + call hipCheck(hipMemcpy(dC, hC, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasCtrmm(handle, HIPBLAS_SIDE_LEFT, HIPBLAS_FILL_MODE_UPPER, HIPBLAS_OP_N, & + HIPBLAS_DIAG_NON_UNIT, m, n, alpha, dA, size(dA,1), dB, size(dB,1), dC, size(dC,1))) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(hC, dC, hipMemcpyDeviceToHost)) + + do j = 1, n + do i = 1, m + error = abs(expected(i,j) - hC(i,j)) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " at ", i, j + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dB)) + call hipCheck(hipFree(dC)) + call hipblasCheck(hipblasDestroy(handle)) + + write(*,*) "PASSED!" + +end program hip_ctrmm diff --git a/bindings/fortran/hipblas/test/ctrmm_devptr.f03 b/bindings/fortran/hipblas/test/ctrmm_devptr.f03 new file mode 100644 index 000000000000..6b51efa12a03 --- /dev/null +++ b/bindings/fortran/hipblas/test/ctrmm_devptr.f03 @@ -0,0 +1,107 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_ctrmm + use iso_c_binding + use hip + use hipblas + + implicit none + + ! C := alpha*op(A)*B with A upper triangular on the left (out-of-place trmm). + ! B is m x n with m /= n and A(2,1) holds junk, so swapping A and B, the side + ! or the triangle changes the result. + integer, parameter :: m = 2, n = 3 + integer(c_size_t) :: Nbytes + complex(c_float_complex), target :: alpha = (1.0, 0.0) + + ! Device-resident copies of the dual-mode scalars; the library reads them + ! from device memory because the handle is in device pointer mode. + type(c_ptr) :: d_alpha = c_null_ptr + + complex(c_float_complex), target :: hA(m,m) = reshape([(1.0, 1.0), (7.0, -7.0), (2.0, -1.0), (3.0, 0.5)], [m,m]) + complex(c_float_complex), target :: hB(m,n) = reshape([(1.0, 0.0), (4.0, 1.0), (2.0, -2.0), & + (5.0, 0.0), (3.0, 1.0), (-6.0, 0.0)], [m,n]) + complex(c_float_complex), target :: hC(m,n) + complex(c_float_complex) :: expected(m,n), Aref(m,m) + type(c_ptr) :: dA = c_null_ptr, dB = c_null_ptr, dC = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + integer :: i, j + real(c_float) :: error + real(c_float), parameter :: error_max = 10*epsilon(error) + + write(*,"(a)",advance="no") "-- Running test 'ctrmm_devptr' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + ! Switch to device pointer mode and stage the scalars in device memory + call hipblasCheck(hipblasSetPointerMode(handle, HIPBLAS_POINTER_MODE_DEVICE)) + call hipCheck(hipMalloc(d_alpha, c_sizeof(alpha))) + call hipCheck(hipMemcpy(d_alpha, c_loc(alpha), c_sizeof(alpha), hipMemcpyHostToDevice)) + + hC = (0.0, 0.0) + + ! Host reference built from the upper triangle only, A(2,1) is junk + Aref = (0.0, 0.0) + do j = 1, m + do i = 1, j + Aref(i,j) = hA(i,j) + end do + end do + expected = alpha*matmul(Aref, hB) + + Nbytes = int(m*m, c_size_t) * 8 + call hipCheck(hipMalloc(dA, Nbytes)) + call hipCheck(hipMemcpy(dA, c_loc(hA(1,1)), Nbytes, hipMemcpyHostToDevice)) + Nbytes = int(m*n, c_size_t) * 8 + call hipCheck(hipMalloc(dB, Nbytes)) + call hipCheck(hipMemcpy(dB, c_loc(hB(1,1)), Nbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMalloc(dC, Nbytes)) + call hipCheck(hipMemcpy(dC, c_loc(hC(1,1)), Nbytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasCtrmm(handle, HIPBLAS_SIDE_LEFT, HIPBLAS_FILL_MODE_UPPER, HIPBLAS_OP_N, & + HIPBLAS_DIAG_NON_UNIT, m, n, d_alpha, dA, m, dB, m, dC, m)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(c_loc(hC(1,1)), dC, Nbytes, hipMemcpyDeviceToHost)) + + do j = 1, n + do i = 1, m + error = abs(expected(i,j) - hC(i,j)) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " at ", i, j + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dB)) + call hipCheck(hipFree(dC)) + call hipblasCheck(hipblasDestroy(handle)) + + call hipCheck(hipFree(d_alpha)) + write(*,*) "PASSED!" + +end program hip_ctrmm diff --git a/bindings/fortran/hipblas/test/ctrsm.f03 b/bindings/fortran/hipblas/test/ctrsm.f03 new file mode 100644 index 000000000000..2e247cb9c0d5 --- /dev/null +++ b/bindings/fortran/hipblas/test/ctrsm.f03 @@ -0,0 +1,92 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_ctrsm + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(kind(HIPBLAS_SIDE_LEFT)), parameter :: side = HIPBLAS_SIDE_LEFT + integer(kind(HIPBLAS_FILL_MODE_LOWER)), parameter :: uplo = HIPBLAS_FILL_MODE_LOWER + integer(kind(HIPBLAS_OP_N)), parameter :: transA = HIPBLAS_OP_N + integer(kind(HIPBLAS_DIAG_NON_UNIT)), parameter :: diag = HIPBLAS_DIAG_NON_UNIT + integer, parameter :: m = 512, n = 512 + integer, parameter :: bytes_per_element = 8 + complex(kind=4), target :: alpha = (2., 0.) + integer(c_size_t) :: NAbytes, NBbytes + complex(kind=4), allocatable, target, dimension(:) :: hA, hB + complex(kind=4), parameter :: x_exact = (1., 0.) + real(kind=4) :: error + real(kind=4), parameter :: error_max = 10*epsilon(error) + type(c_ptr) :: dA = c_null_ptr, dB = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + integer :: i, j + + write(*,"(a)",advance="no") "-- Running test 'CTRSM' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + NAbytes = int(m, c_size_t) * int(m, c_size_t) * bytes_per_element + NBbytes = int(m, c_size_t) * int(n, c_size_t) * bytes_per_element + allocate(hA(m*m), hB(m*n)) + + hA = (0., 0.) + do j = 1, m + do i = j, m + hA(i + (j-1)*m) = (1., 0.) + end do + end do + do j = 1, n + do i = 1, m + hB(i + (j-1)*m) = cmplx(real(i) / 2., 0.) + end do + end do + + call hipCheck(hipMalloc(dA, NAbytes)) + call hipCheck(hipMalloc(dB, NBbytes)) + call hipCheck(hipMemcpy(dA, c_loc(hA(1)), NAbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dB, c_loc(hB(1)), NBbytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasCtrsm(handle, side, uplo, transA, diag, m, n, c_loc(alpha), dA, m, dB, m)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(c_loc(hB(1)), dB, NBbytes, hipMemcpyDeviceToHost)) + + do i = 1, m*n + error = abs((x_exact - hB(i)) / x_exact) + if (error > error_max) then + write(*,*) "FAILED! Error bigger than max! Error = ", error, " hB(", i, ") = ", hB(i) + call exit(1) + end if + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dB)) + call hipblasCheck(hipblasDestroy(handle)) + deallocate(hA, hB) + write(*,*) "PASSED!" + +end program hip_ctrsm diff --git a/bindings/fortran/hipblas/test/ctrsm.f08 b/bindings/fortran/hipblas/test/ctrsm.f08 new file mode 100644 index 000000000000..d8bad2209631 --- /dev/null +++ b/bindings/fortran/hipblas/test/ctrsm.f08 @@ -0,0 +1,88 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_ctrsm + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(kind(HIPBLAS_SIDE_LEFT)), parameter :: side = HIPBLAS_SIDE_LEFT + integer(kind(HIPBLAS_FILL_MODE_LOWER)), parameter :: uplo = HIPBLAS_FILL_MODE_LOWER + integer(kind(HIPBLAS_OP_N)), parameter :: transA = HIPBLAS_OP_N + integer(kind(HIPBLAS_DIAG_NON_UNIT)), parameter :: diag = HIPBLAS_DIAG_NON_UNIT + integer, parameter :: m = 512, n = 512 + complex(kind=4), target :: alpha = (2., 0.) + complex(kind=4), allocatable, target, dimension(:,:) :: hA, hB + complex(kind=4), pointer, dimension(:,:) :: dA, dB + type(c_ptr) :: handle = c_null_ptr + complex(kind=4), parameter :: x_exact = (1., 0.) + real(kind=4) :: error + real(kind=4), parameter :: error_max = 10*epsilon(error) + integer :: i, j + + write(*,"(a)",advance="no") "-- Running test 'CTRSM' (Fortran 2008 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + allocate(hA(m,m), hB(m,n)) + + hA = (0., 0.) + do j = 1, m + do i = j, m + hA(i,j) = (1., 0.) + end do + end do + do j = 1, n + do i = 1, m + hB(i,j) = cmplx(real(i) / 2., 0.) + end do + end do + + call hipCheck(hipMalloc(dA, source=hA)) + call hipCheck(hipMalloc(dB, source=hB)) + + call hipblasCheck(hipblasCtrsm(handle, side, uplo, transA, diag, m, n, alpha, dA, size(dA,1), dB, size(dB,1))) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(hB, dB, hipMemcpyDeviceToHost)) + + do j = 1, n + do i = 1, m + error = abs((x_exact - hB(i,j)) / x_exact) + if (error > error_max) then + write(*,*) "FAILED! Error bigger than max! Error = ", error, " hB(", i, ",", j, ") = ", hB(i,j) + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dB)) + call hipblasCheck(hipblasDestroy(handle)) + deallocate(hA, hB) + write(*,*) "PASSED!" + +end program hip_ctrsm diff --git a/bindings/fortran/hipblas/test/ctrsm_devptr.f03 b/bindings/fortran/hipblas/test/ctrsm_devptr.f03 new file mode 100644 index 000000000000..f4e02deb6633 --- /dev/null +++ b/bindings/fortran/hipblas/test/ctrsm_devptr.f03 @@ -0,0 +1,102 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_ctrsm + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(kind(HIPBLAS_SIDE_LEFT)), parameter :: side = HIPBLAS_SIDE_LEFT + integer(kind(HIPBLAS_FILL_MODE_LOWER)), parameter :: uplo = HIPBLAS_FILL_MODE_LOWER + integer(kind(HIPBLAS_OP_N)), parameter :: transA = HIPBLAS_OP_N + integer(kind(HIPBLAS_DIAG_NON_UNIT)), parameter :: diag = HIPBLAS_DIAG_NON_UNIT + integer, parameter :: m = 512, n = 512 + integer, parameter :: bytes_per_element = 8 + complex(kind=4), target :: alpha = (2., 0.) + + ! Device-resident copies of the dual-mode scalars; the library reads them + ! from device memory because the handle is in device pointer mode. + type(c_ptr) :: d_alpha = c_null_ptr + integer(c_size_t) :: NAbytes, NBbytes + complex(kind=4), allocatable, target, dimension(:) :: hA, hB + complex(kind=4), parameter :: x_exact = (1., 0.) + real(kind=4) :: error + real(kind=4), parameter :: error_max = 10*epsilon(error) + type(c_ptr) :: dA = c_null_ptr, dB = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + integer :: i, j + + write(*,"(a)",advance="no") "-- Running test 'CTRSM_devptr' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + ! Switch to device pointer mode and stage the scalars in device memory + call hipblasCheck(hipblasSetPointerMode(handle, HIPBLAS_POINTER_MODE_DEVICE)) + call hipCheck(hipMalloc(d_alpha, c_sizeof(alpha))) + call hipCheck(hipMemcpy(d_alpha, c_loc(alpha), c_sizeof(alpha), hipMemcpyHostToDevice)) + + NAbytes = int(m, c_size_t) * int(m, c_size_t) * bytes_per_element + NBbytes = int(m, c_size_t) * int(n, c_size_t) * bytes_per_element + allocate(hA(m*m), hB(m*n)) + + hA = (0., 0.) + do j = 1, m + do i = j, m + hA(i + (j-1)*m) = (1., 0.) + end do + end do + do j = 1, n + do i = 1, m + hB(i + (j-1)*m) = cmplx(real(i) / 2., 0.) + end do + end do + + call hipCheck(hipMalloc(dA, NAbytes)) + call hipCheck(hipMalloc(dB, NBbytes)) + call hipCheck(hipMemcpy(dA, c_loc(hA(1)), NAbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dB, c_loc(hB(1)), NBbytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasCtrsm(handle, side, uplo, transA, diag, m, n, d_alpha, dA, m, dB, m)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(c_loc(hB(1)), dB, NBbytes, hipMemcpyDeviceToHost)) + + do i = 1, m*n + error = abs((x_exact - hB(i)) / x_exact) + if (error > error_max) then + write(*,*) "FAILED! Error bigger than max! Error = ", error, " hB(", i, ") = ", hB(i) + call exit(1) + end if + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dB)) + call hipblasCheck(hipblasDestroy(handle)) + deallocate(hA, hB) + call hipCheck(hipFree(d_alpha)) + write(*,*) "PASSED!" + +end program hip_ctrsm diff --git a/bindings/fortran/hipblas/test/ctrsv.f03 b/bindings/fortran/hipblas/test/ctrsv.f03 new file mode 100644 index 000000000000..002c6d90c706 --- /dev/null +++ b/bindings/fortran/hipblas/test/ctrsv.f03 @@ -0,0 +1,88 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_ctrsv + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(kind(HIPBLAS_FILL_MODE_UPPER)), parameter :: uplo = HIPBLAS_FILL_MODE_LOWER + integer(kind(HIPBLAS_OP_N)), parameter :: transA = HIPBLAS_OP_N + integer(kind(HIPBLAS_DIAG_NON_UNIT)), parameter :: diag = HIPBLAS_DIAG_NON_UNIT + integer, parameter :: m = 512 + integer, parameter :: bytes_per_element = 8 + integer(c_size_t) :: NAbytes, Nxbytes + complex(kind=4), allocatable, target, dimension(:) :: hA, hx + complex(kind=4), parameter :: x_exact = (1., 0.) + real(kind=4) :: error + real(kind=4), parameter :: error_max = 10*epsilon(error) + type(c_ptr) :: dA = c_null_ptr, dx = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + integer :: i, j + + write(*,"(a)",advance="no") "-- Running test 'CTRSV' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + NAbytes = int(m, c_size_t) * int(m, c_size_t) * bytes_per_element + Nxbytes = int(m, c_size_t) * bytes_per_element + allocate(hA(m*m), hx(m)) + + hA = (0., 0.) + do j = 1, m + do i = j, m + hA(i + (j-1)*m) = (1., 0.) + end do + end do + do i = 1, m + hx(i) = cmplx(i, 0.) + end do + + call hipCheck(hipMalloc(dA, NAbytes)) + call hipCheck(hipMalloc(dx, Nxbytes)) + call hipCheck(hipMemcpy(dA, c_loc(hA(1)), NAbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dx, c_loc(hx(1)), Nxbytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasCtrsv(handle, uplo, transA, diag, m, dA, m, dx, 1)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(c_loc(hx(1)), dx, Nxbytes, hipMemcpyDeviceToHost)) + + do i = 1, m + error = abs((x_exact - hx(i)) / x_exact) + if (error > error_max) then + write(*,*) "FAILED! Error bigger than max! Error = ", error, " hx(", i, ") = ", hx(i) + call exit(1) + end if + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dx)) + call hipblasCheck(hipblasDestroy(handle)) + deallocate(hA, hx) + write(*,*) "PASSED!" + +end program hip_ctrsv diff --git a/bindings/fortran/hipblas/test/ctrsv.f08 b/bindings/fortran/hipblas/test/ctrsv.f08 new file mode 100644 index 000000000000..9954d09cca81 --- /dev/null +++ b/bindings/fortran/hipblas/test/ctrsv.f08 @@ -0,0 +1,84 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_ctrsv + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(kind(HIPBLAS_FILL_MODE_UPPER)), parameter :: uplo = HIPBLAS_FILL_MODE_LOWER + integer(kind(HIPBLAS_OP_N)), parameter :: transA = HIPBLAS_OP_N + integer(kind(HIPBLAS_DIAG_NON_UNIT)), parameter :: diag = HIPBLAS_DIAG_NON_UNIT + integer, parameter :: m = 512 + complex(kind=4), allocatable, target, dimension(:,:) :: hA + complex(kind=4), allocatable, target, dimension(:) :: hx + complex(kind=4), pointer, dimension(:,:) :: dA + complex(kind=4), pointer, dimension(:) :: dx + type(c_ptr) :: handle = c_null_ptr + complex(kind=4), parameter :: x_exact = (1., 0.) + real(kind=4) :: error + real(kind=4), parameter :: error_max = 10*epsilon(error) + integer :: i, j + + write(*,"(a)",advance="no") "-- Running test 'CTRSV' (Fortran 2008 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + allocate(hA(m,m), hx(m)) + + hA = (0., 0.) + do j = 1, m + do i = j, m + hA(i,j) = (1., 0.) + end do + end do + do i = 1, m + hx(i) = cmplx(i, 0.) + end do + + call hipCheck(hipMalloc(dA, source=hA)) + call hipCheck(hipMalloc(dx, source=hx)) + + call hipblasCheck(hipblasCtrsv(handle, uplo, transA, diag, m, dA, size(dA,1), dx, 1)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(hx, dx, hipMemcpyDeviceToHost)) + + do i = 1, m + error = abs((x_exact - hx(i)) / x_exact) + if (error > error_max) then + write(*,*) "FAILED! Error bigger than max! Error = ", error, " hx(", i, ") = ", hx(i) + call exit(1) + end if + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dx)) + call hipblasCheck(hipblasDestroy(handle)) + deallocate(hA, hx) + write(*,*) "PASSED!" + +end program hip_ctrsv diff --git a/bindings/fortran/hipblas/test/dasum.f03 b/bindings/fortran/hipblas/test/dasum.f03 new file mode 100644 index 000000000000..ea22d36cec5e --- /dev/null +++ b/bindings/fortran/hipblas/test/dasum.f03 @@ -0,0 +1,72 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_dasum + use iso_c_binding + use hip + use hipblas + + implicit none + + ! asum(x) with x = 1 over n elements, so the result is n. + integer, parameter :: n = 1024 + integer(c_size_t) :: Nbytes + real(c_double), allocatable, target, dimension(:) :: hx + real(c_double), target :: res + real(c_double) :: res_exact, error + real(c_double), parameter :: error_max = 10*epsilon(error) + type(c_ptr) :: dx = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + + write(*,"(a)",advance="no") "-- Running test 'dasum' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + allocate(hx(n)) + hx = 1.0 + res_exact = real(n, kind=kind(res_exact)) + + Nbytes = int(n, c_size_t) * 8 + call hipCheck(hipMalloc(dx, Nbytes)) + call hipCheck(hipMemcpy(dx, c_loc(hx(1)), Nbytes, hipMemcpyHostToDevice)) + + res = 0.0 + call hipblasCheck(hipblasDasum(handle, n, dx, 1, c_loc(res))) + call hipCheck(hipDeviceSynchronize()) + + error = abs((res_exact - res) / res_exact) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " result = ", res + call exit(1) + end if + + call hipCheck(hipFree(dx)) + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(hx) + + write(*,*) "PASSED!" + +end program hip_dasum diff --git a/bindings/fortran/hipblas/test/dasum.f08 b/bindings/fortran/hipblas/test/dasum.f08 new file mode 100644 index 000000000000..6d18cc6ec5bf --- /dev/null +++ b/bindings/fortran/hipblas/test/dasum.f08 @@ -0,0 +1,70 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_dasum + use iso_c_binding + use hip + use hipblas + + implicit none + + ! asum(x) with x = 1 over n elements, so the result is n. + integer, parameter :: n = 1024 + real(c_double), allocatable, dimension(:) :: hx + real(c_double), target :: res + real(c_double) :: res_exact, error + real(c_double), parameter :: error_max = 10*epsilon(error) + real(c_double), pointer, dimension(:) :: dx + type(c_ptr) :: handle = c_null_ptr + + write(*,"(a)",advance="no") "-- Running test 'dasum' (Fortran 2008 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + allocate(hx(n)) + hx = 1.0 + res_exact = real(n, kind=kind(res_exact)) + + call hipCheck(hipMalloc(dx, shape(hx))) + call hipCheck(hipMemcpy(dx, hx, hipMemcpyHostToDevice)) + + res = 0.0 + call hipblasCheck(hipblasDasum(handle, n, dx, 1, c_loc(res))) + call hipCheck(hipDeviceSynchronize()) + + error = abs((res_exact - res) / res_exact) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " result = ", res + call exit(1) + end if + + call hipCheck(hipFree(dx)) + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(hx) + + write(*,*) "PASSED!" + +end program hip_dasum diff --git a/bindings/fortran/hipblas/test/daxpy.f03 b/bindings/fortran/hipblas/test/daxpy.f03 new file mode 100644 index 000000000000..9c93ee820aea --- /dev/null +++ b/bindings/fortran/hipblas/test/daxpy.f03 @@ -0,0 +1,99 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_daxpy + use iso_c_binding + use hip + use hipblas + + implicit none + + integer :: n = 6 + type(c_ptr) :: handle = c_null_ptr + integer :: j + double precision, allocatable, target, dimension(:) :: x, y, y_exact + + double precision, target :: alpha = 2.0d0 + type(c_ptr) :: dx = c_null_ptr, dy = c_null_ptr + + integer, parameter :: bytes_per_element = 8 + + integer(c_size_t) :: Nxbytes + integer(c_size_t) :: Nybytes + + double precision :: error + double precision, parameter :: error_max = 10*epsilon(error) + + Nxbytes = n * bytes_per_element + Nybytes = n * bytes_per_element + allocate(x(n)) + allocate(y(n)) + allocate(y_exact(n)) + + do j = 1, n + x(j) = j + y(j) = j + end do + + do j = 1, n + y_exact(j) = alpha*x(j) + y(j) + end do + + write(*,"(a)",advance="no") "-- Running test 'DAXPY' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + call hipCheck(hipMalloc(dx, Nxbytes)) + call hipCheck(hipMalloc(dy, Nybytes)) + + call hipCheck(hipMemcpy(dx, c_loc(x(1)), Nxbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dy, c_loc(y(1)), Nybytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasDaxpy(handle, n, c_loc(alpha), dx, 1, dy, 1)) + + call hipCheck(hipDeviceSynchronize()) + + call hipCheck(hipMemcpy(c_loc(y(1)), dy, Nybytes, hipMemcpyDeviceToHost)) + + do j = 1, n + error = abs((y_exact(j) - y(j))/y_exact(j)) + if (error > error_max) then + write(*,*) "FAILED! Error bigger than max! Error = ", error + call exit(1) + end if + end do + + call hipCheck(hipFree(dx)) + call hipCheck(hipFree(dy)) + + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(x) + deallocate(y) + deallocate(y_exact) + + write(*,*) "PASSED!" + +end program hip_daxpy diff --git a/bindings/fortran/hipblas/test/daxpy.f08 b/bindings/fortran/hipblas/test/daxpy.f08 new file mode 100644 index 000000000000..c7f0720463d6 --- /dev/null +++ b/bindings/fortran/hipblas/test/daxpy.f08 @@ -0,0 +1,90 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_daxpy + use iso_c_binding + use hip + use hipblas + + implicit none + + integer :: n = 6 + type(c_ptr) :: handle = c_null_ptr + integer :: j + double precision, allocatable, dimension(:) :: x, y, y_exact + + double precision, target :: alpha = 2.0d0 + double precision, pointer, dimension(:) :: dx, dy + + double precision :: error + double precision, parameter :: error_max = 10*epsilon(error) + + allocate(x(n)) + allocate(y(n)) + allocate(y_exact(n)) + + do j = 1, n + x(j) = j + y(j) = j + end do + + do j = 1, n + y_exact(j) = alpha*x(j) + y(j) + end do + + write(*,"(a)",advance="no") "-- Running test 'DAXPY' (Fortran 2008 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + call hipCheck(hipMalloc(dx, shape(x))) + call hipCheck(hipMalloc(dy, shape(y))) + + call hipCheck(hipMemcpy(dx, x, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dy, y, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasDaxpy(handle, n, alpha, dx, 1, dy, 1)) + + call hipCheck(hipDeviceSynchronize()) + + call hipCheck(hipMemcpy(y, dy, hipMemcpyDeviceToHost)) + + do j = 1, n + error = abs((y_exact(j) - y(j))/y_exact(j)) + if (error > error_max) then + write(*,*) "FAILED! Error bigger than max! Error = ", error + call exit(1) + end if + end do + + call hipCheck(hipFree(dx)) + call hipCheck(hipFree(dy)) + + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(x, y, y_exact) + + write(*,*) "PASSED!" + +end program hip_daxpy diff --git a/bindings/fortran/hipblas/test/daxpy_devptr.f03 b/bindings/fortran/hipblas/test/daxpy_devptr.f03 new file mode 100644 index 000000000000..aaa8a269817e --- /dev/null +++ b/bindings/fortran/hipblas/test/daxpy_devptr.f03 @@ -0,0 +1,109 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_daxpy + use iso_c_binding + use hip + use hipblas + + implicit none + + integer :: n = 6 + type(c_ptr) :: handle = c_null_ptr + integer :: j + double precision, allocatable, target, dimension(:) :: x, y, y_exact + + double precision, target :: alpha = 2.0d0 + + ! Device-resident copies of the dual-mode scalars; the library reads them + ! from device memory because the handle is in device pointer mode. + type(c_ptr) :: d_alpha = c_null_ptr + type(c_ptr) :: dx = c_null_ptr, dy = c_null_ptr + + integer, parameter :: bytes_per_element = 8 + + integer(c_size_t) :: Nxbytes + integer(c_size_t) :: Nybytes + + double precision :: error + double precision, parameter :: error_max = 10*epsilon(error) + + Nxbytes = n * bytes_per_element + Nybytes = n * bytes_per_element + allocate(x(n)) + allocate(y(n)) + allocate(y_exact(n)) + + do j = 1, n + x(j) = j + y(j) = j + end do + + do j = 1, n + y_exact(j) = alpha*x(j) + y(j) + end do + + write(*,"(a)",advance="no") "-- Running test 'DAXPY_devptr' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + ! Switch to device pointer mode and stage the scalars in device memory + call hipblasCheck(hipblasSetPointerMode(handle, HIPBLAS_POINTER_MODE_DEVICE)) + call hipCheck(hipMalloc(d_alpha, c_sizeof(alpha))) + call hipCheck(hipMemcpy(d_alpha, c_loc(alpha), c_sizeof(alpha), hipMemcpyHostToDevice)) + + call hipCheck(hipMalloc(dx, Nxbytes)) + call hipCheck(hipMalloc(dy, Nybytes)) + + call hipCheck(hipMemcpy(dx, c_loc(x(1)), Nxbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dy, c_loc(y(1)), Nybytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasDaxpy(handle, n, d_alpha, dx, 1, dy, 1)) + + call hipCheck(hipDeviceSynchronize()) + + call hipCheck(hipMemcpy(c_loc(y(1)), dy, Nybytes, hipMemcpyDeviceToHost)) + + do j = 1, n + error = abs((y_exact(j) - y(j))/y_exact(j)) + if (error > error_max) then + write(*,*) "FAILED! Error bigger than max! Error = ", error + call exit(1) + end if + end do + + call hipCheck(hipFree(dx)) + call hipCheck(hipFree(dy)) + + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(x) + deallocate(y) + deallocate(y_exact) + + call hipCheck(hipFree(d_alpha)) + write(*,*) "PASSED!" + +end program hip_daxpy diff --git a/bindings/fortran/hipblas/test/ddot.f03 b/bindings/fortran/hipblas/test/ddot.f03 new file mode 100644 index 000000000000..9a6b96ef61dc --- /dev/null +++ b/bindings/fortran/hipblas/test/ddot.f03 @@ -0,0 +1,74 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_ddot + use iso_c_binding + use hip + use hipblas + + implicit none + + integer, parameter :: n = 10240 + integer, parameter :: bytes_per_element = 8 + integer(c_size_t) :: Nbytes + double precision, allocatable, target, dimension(:) :: hx, hy + double precision, target :: res + double precision :: res_exact, error + double precision, parameter :: error_max = 10*epsilon(error) + type(c_ptr) :: dx = c_null_ptr, dy = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + + write(*,"(a)",advance="no") "-- Running test 'DDOT' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + Nbytes = int(n, c_size_t) * bytes_per_element + allocate(hx(n), hy(n)) + hx = 1.d0 + hy = 2.d0 + res_exact = 2.d0 * n + + call hipCheck(hipMalloc(dx, Nbytes)) + call hipCheck(hipMalloc(dy, Nbytes)) + call hipCheck(hipMemcpy(dx, c_loc(hx(1)), Nbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dy, c_loc(hy(1)), Nbytes, hipMemcpyHostToDevice)) + + res = 0.d0 + call hipblasCheck(hipblasDdot(handle, n, dx, 1, dy, 1, c_loc(res))) + call hipCheck(hipDeviceSynchronize()) + + error = abs((res_exact - res) / res_exact) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " result = ", res + call exit(1) + end if + + call hipCheck(hipFree(dx)) + call hipCheck(hipFree(dy)) + call hipblasCheck(hipblasDestroy(handle)) + deallocate(hx, hy) + write(*,*) "PASSED!" + +end program hip_ddot diff --git a/bindings/fortran/hipblas/test/ddot.f08 b/bindings/fortran/hipblas/test/ddot.f08 new file mode 100644 index 000000000000..f46915d593fa --- /dev/null +++ b/bindings/fortran/hipblas/test/ddot.f08 @@ -0,0 +1,71 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_ddot + use iso_c_binding + use hip + use hipblas + + implicit none + + integer, parameter :: n = 10240 + double precision, allocatable, dimension(:) :: hx, hy + double precision, pointer, dimension(:) :: dx, dy + double precision, target :: res + double precision :: res_exact, error + double precision, parameter :: error_max = 10*epsilon(error) + type(c_ptr) :: handle = c_null_ptr + + write(*,"(a)",advance="no") "-- Running test 'DDOT' (Fortran 2008 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + allocate(hx(n), hy(n)) + hx = 1.d0 + hy = 2.d0 + res_exact = 2.d0 * n + + call hipCheck(hipMalloc(dx, shape(hx))) + call hipCheck(hipMalloc(dy, shape(hy))) + call hipCheck(hipMemcpy(dx, hx, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dy, hy, hipMemcpyHostToDevice)) + + res = 0.d0 + call hipblasCheck(hipblasDdot(handle, n, dx, 1, dy, 1, c_loc(res))) + call hipCheck(hipDeviceSynchronize()) + + error = abs((res_exact - res) / res_exact) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " result = ", res + call exit(1) + end if + + call hipCheck(hipFree(dx)) + call hipCheck(hipFree(dy)) + call hipblasCheck(hipblasDestroy(handle)) + deallocate(hx, hy) + write(*,*) "PASSED!" + +end program hip_ddot diff --git a/bindings/fortran/hipblas/test/dgeam.f03 b/bindings/fortran/hipblas/test/dgeam.f03 new file mode 100644 index 000000000000..a75690867183 --- /dev/null +++ b/bindings/fortran/hipblas/test/dgeam.f03 @@ -0,0 +1,85 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_dgeam + use iso_c_binding + use hip + use hipblas + + implicit none + + ! C := alpha*op(A) + beta*op(B) with alpha = 2, beta = -1 and no + ! transposition, so C = 2*A - B (a swap of alpha and beta, or of A and B, shows). + integer, parameter :: ld = 2 + integer(c_size_t) :: Nbytes + real(c_double), target :: alpha = 2.0, beta = -1.0 + + real(c_double), target :: hA(ld,ld) = reshape([1.0, 2.0, 3.0, 4.0], [ld,ld]) + real(c_double), target :: hB(ld,ld) = reshape([10.0, 20.0, 30.0, 40.0], [ld,ld]) + real(c_double), target :: hC(ld,ld) + real(c_double) :: expected(ld,ld) = reshape([-8.0, -16.0, -24.0, -32.0], [ld,ld]) + type(c_ptr) :: dA = c_null_ptr, dB = c_null_ptr, dC = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + integer :: i, j + real(c_double) :: error + real(c_double), parameter :: error_max = 10*epsilon(error) + + write(*,"(a)",advance="no") "-- Running test 'dgeam' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + hC = 0.0 + + Nbytes = int(ld*ld, c_size_t) * 8 + call hipCheck(hipMalloc(dA, Nbytes)) + call hipCheck(hipMemcpy(dA, c_loc(hA(1,1)), Nbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMalloc(dB, Nbytes)) + call hipCheck(hipMemcpy(dB, c_loc(hB(1,1)), Nbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMalloc(dC, Nbytes)) + call hipCheck(hipMemcpy(dC, c_loc(hC(1,1)), Nbytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasDgeam(handle, HIPBLAS_OP_N, HIPBLAS_OP_N, ld, ld, & + c_loc(alpha), dA, ld, c_loc(beta), dB, ld, dC, ld)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(c_loc(hC(1,1)), dC, Nbytes, hipMemcpyDeviceToHost)) + + do j = 1, ld + do i = 1, ld + error = abs(expected(i,j) - hC(i,j)) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " at ", i, j + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dB)) + call hipCheck(hipFree(dC)) + call hipblasCheck(hipblasDestroy(handle)) + + write(*,*) "PASSED!" + +end program hip_dgeam diff --git a/bindings/fortran/hipblas/test/dgeam.f08 b/bindings/fortran/hipblas/test/dgeam.f08 new file mode 100644 index 000000000000..0d476a11dcea --- /dev/null +++ b/bindings/fortran/hipblas/test/dgeam.f08 @@ -0,0 +1,83 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_dgeam + use iso_c_binding + use hip + use hipblas + + implicit none + + ! C := alpha*op(A) + beta*op(B) with alpha = 2, beta = -1 and no + ! transposition, so C = 2*A - B (a swap of alpha and beta, or of A and B, shows). + integer, parameter :: ld = 2 + real(c_double), target :: alpha = 2.0, beta = -1.0 + + real(c_double) :: hA(ld,ld) = reshape([1.0, 2.0, 3.0, 4.0], [ld,ld]) + real(c_double) :: hB(ld,ld) = reshape([10.0, 20.0, 30.0, 40.0], [ld,ld]) + real(c_double) :: hC(ld,ld) + real(c_double) :: expected(ld,ld) = reshape([-8.0, -16.0, -24.0, -32.0], [ld,ld]) + real(c_double), pointer, dimension(:,:) :: dA, dB, dC + type(c_ptr) :: handle = c_null_ptr + integer :: i, j + real(c_double) :: error + real(c_double), parameter :: error_max = 10*epsilon(error) + + write(*,"(a)",advance="no") "-- Running test 'dgeam' (Fortran 2008 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + hC = 0.0 + + call hipCheck(hipMalloc(dA, shape(hA))) + call hipCheck(hipMemcpy(dA, hA, hipMemcpyHostToDevice)) + call hipCheck(hipMalloc(dB, shape(hB))) + call hipCheck(hipMemcpy(dB, hB, hipMemcpyHostToDevice)) + call hipCheck(hipMalloc(dC, shape(hC))) + call hipCheck(hipMemcpy(dC, hC, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasDgeam(handle, HIPBLAS_OP_N, HIPBLAS_OP_N, ld, ld, & + alpha, dA, size(dA,1), beta, dB, size(dB,1), dC, size(dC,1))) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(hC, dC, hipMemcpyDeviceToHost)) + + do j = 1, ld + do i = 1, ld + error = abs(expected(i,j) - hC(i,j)) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " at ", i, j + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dB)) + call hipCheck(hipFree(dC)) + call hipblasCheck(hipblasDestroy(handle)) + + write(*,*) "PASSED!" + +end program hip_dgeam diff --git a/bindings/fortran/hipblas/test/dgeam_devptr.f03 b/bindings/fortran/hipblas/test/dgeam_devptr.f03 new file mode 100644 index 000000000000..aad6c6c31ff8 --- /dev/null +++ b/bindings/fortran/hipblas/test/dgeam_devptr.f03 @@ -0,0 +1,99 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_dgeam + use iso_c_binding + use hip + use hipblas + + implicit none + + ! C := alpha*op(A) + beta*op(B) with alpha = 2, beta = -1 and no + ! transposition, so C = 2*A - B (a swap of alpha and beta, or of A and B, shows). + integer, parameter :: ld = 2 + integer(c_size_t) :: Nbytes + real(c_double), target :: alpha = 2.0, beta = -1.0 + + ! Device-resident copies of the dual-mode scalars; the library reads them + ! from device memory because the handle is in device pointer mode. + type(c_ptr) :: d_alpha = c_null_ptr + type(c_ptr) :: d_beta = c_null_ptr + + real(c_double), target :: hA(ld,ld) = reshape([1.0, 2.0, 3.0, 4.0], [ld,ld]) + real(c_double), target :: hB(ld,ld) = reshape([10.0, 20.0, 30.0, 40.0], [ld,ld]) + real(c_double), target :: hC(ld,ld) + real(c_double) :: expected(ld,ld) = reshape([-8.0, -16.0, -24.0, -32.0], [ld,ld]) + type(c_ptr) :: dA = c_null_ptr, dB = c_null_ptr, dC = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + integer :: i, j + real(c_double) :: error + real(c_double), parameter :: error_max = 10*epsilon(error) + + write(*,"(a)",advance="no") "-- Running test 'dgeam_devptr' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + ! Switch to device pointer mode and stage the scalars in device memory + call hipblasCheck(hipblasSetPointerMode(handle, HIPBLAS_POINTER_MODE_DEVICE)) + call hipCheck(hipMalloc(d_alpha, c_sizeof(alpha))) + call hipCheck(hipMalloc(d_beta, c_sizeof(beta))) + call hipCheck(hipMemcpy(d_alpha, c_loc(alpha), c_sizeof(alpha), hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(d_beta, c_loc(beta), c_sizeof(beta), hipMemcpyHostToDevice)) + + hC = 0.0 + + Nbytes = int(ld*ld, c_size_t) * 8 + call hipCheck(hipMalloc(dA, Nbytes)) + call hipCheck(hipMemcpy(dA, c_loc(hA(1,1)), Nbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMalloc(dB, Nbytes)) + call hipCheck(hipMemcpy(dB, c_loc(hB(1,1)), Nbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMalloc(dC, Nbytes)) + call hipCheck(hipMemcpy(dC, c_loc(hC(1,1)), Nbytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasDgeam(handle, HIPBLAS_OP_N, HIPBLAS_OP_N, ld, ld, & + d_alpha, dA, ld, d_beta, dB, ld, dC, ld)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(c_loc(hC(1,1)), dC, Nbytes, hipMemcpyDeviceToHost)) + + do j = 1, ld + do i = 1, ld + error = abs(expected(i,j) - hC(i,j)) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " at ", i, j + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dB)) + call hipCheck(hipFree(dC)) + call hipblasCheck(hipblasDestroy(handle)) + + call hipCheck(hipFree(d_alpha)) + call hipCheck(hipFree(d_beta)) + write(*,*) "PASSED!" + +end program hip_dgeam diff --git a/bindings/fortran/hipblas/test/dgemm.f03 b/bindings/fortran/hipblas/test/dgemm.f03 new file mode 100644 index 000000000000..a3a4b3d143aa --- /dev/null +++ b/bindings/fortran/hipblas/test/dgemm.f03 @@ -0,0 +1,121 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2021 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_dgemm + + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(kind(HIPBLAS_OP_N)), parameter :: transa = HIPBLAS_OP_N, transb = HIPBLAS_OP_N; + double precision, target :: alpha = 1.1d0, beta = 0.9d0; + + integer, parameter :: m = 1024, n = 1024, k = 1024; + integer :: lda, ldb, ldc, size_a, size_b, size_c; + + double precision, allocatable, target, dimension(:) :: ha, hb, hc + double precision, allocatable, dimension(:) :: hc_exact + + type(c_ptr) :: da = c_null_ptr, db = c_null_ptr, dc = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + + integer, parameter :: bytes_per_element = 8 !double precision + integer(c_size_t) :: Nabytes, Nbbytes, Ncbytes + + integer :: i + double precision :: error + double precision, parameter :: error_max = 10*epsilon(error) + + write(*,"(a)",advance="no") "-- Running test 'DGEMM' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + lda = m; + size_a = k * lda; + Nabytes = size_a*bytes_per_element + + ldb = k; + size_b = n * ldb; + Nbbytes = size_b*bytes_per_element + + ldc = m; + size_c = n * ldc; + Ncbytes = size_c*bytes_per_element + + allocate(ha(size_a)) + allocate(hb(size_b)) + allocate(hc(size_c)) + allocate(hc_exact(size_c)) + + ! Use these constant matrices so the exact answer is also a + ! constant matrix and therefore easy to check + ha(:) = 1.d0 + hb(:) = 2.d0 + hc(:) = 3.d0 + hc_exact = alpha*k*2.d0 + beta*3.d0 + + ! Allocate device memory + call hipCheck(hipMalloc(da,Nabytes)) + call hipCheck(hipMalloc(db,Nbbytes)) + call hipCheck(hipMalloc(dc,Ncbytes)) + + !Transfer from host to device + call hipCheck(hipMemcpy(da, c_loc(ha(1)), Nabytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(db, c_loc(hb(1)), Nbbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dc, c_loc(hc(1)), Ncbytes, hipMemcpyHostToDevice)) + + + call hipblasCheck(hipblasDgemm(handle,transa,transb,m,n,k,c_loc(alpha),da,lda,db,ldb,c_loc(beta),dc,ldc)) + + call hipCheck(hipDeviceSynchronize()) + + ! Transfer data back to host memory + call hipCheck(hipMemcpy(c_loc(hc(1)), dc, Ncbytes, hipMemcpyDeviceToHost)) + + + do i = 1,size_c + error = abs((hc_exact(i) - hc(i))/hc_exact(i)) + if( error > error_max )then + write(*,*) "FAILED! Error bigger than max! Error = ", error + call exit(1) + end if + end do + + call hipCheck(hipFree(da)) + call hipCheck(hipFree(db)) + call hipCheck(hipFree(dc)) + + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(ha) + deallocate(hb) + deallocate(hc) + deallocate(hc_exact) + + write(*,*) "PASSED!" + +end program hip_dgemm diff --git a/bindings/fortran/hipblas/test/dgemm.f08 b/bindings/fortran/hipblas/test/dgemm.f08 new file mode 100644 index 000000000000..3caac57b4626 --- /dev/null +++ b/bindings/fortran/hipblas/test/dgemm.f08 @@ -0,0 +1,96 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_dgemm + + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(kind(HIPBLAS_OP_N)), parameter :: transa = HIPBLAS_OP_N, transb = HIPBLAS_OP_N; + double precision, target :: alpha = 1.1d0, beta = 0.9d0; + + integer, parameter :: m = 1024, n = 1024, k = 1024; + + double precision, allocatable, dimension(:,:) :: ha, hb, hc, hc_exact + + double precision, pointer, dimension(:,:) :: da, db, dc + type(c_ptr) :: handle = c_null_ptr + + integer :: i,j + double precision :: error + double precision, parameter :: error_max = 10*epsilon(error) + + write(*,"(a)",advance="no") "-- Running test 'DGEMM' (Fortran 2008 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + allocate(ha(m,k)) + allocate(hb(k,n)) + allocate(hc(m,n)) + allocate(hc_exact(m,n)) + + ! Use these constant matrices so the exact answer is also a + ! constant matrix and therefore easy to check + ha(:,:) = 1.d0 + hb(:,:) = 2.d0 + hc(:,:) = 3.d0 + hc_exact = alpha*k*2.d0 + beta*3.d0 + + ! Allocate device memory + call hipCheck(hipMalloc(da,source=ha)) ! implies (blocking) memcpy + call hipCheck(hipMalloc(db,source=hb)) + call hipCheck(hipMalloc(dc,source=hc)) + + call hipblasCheck(hipblasDgemm(handle,transa,transb,m,n,k,alpha,da,size(da,1),db,size(db,1),beta,dc,size(dc,1))) + + call hipCheck(hipDeviceSynchronize()) + + ! Transfer data back to host memory + call hipCheck(hipMemcpy(hc, dc, hipMemcpyDeviceToHost)) + + do j = 1,n + do i = 1,m + error = abs((hc_exact(i,j) - hc(i,j))/hc_exact(i,j)) + if( error > error_max )then + write(*,*) "FAILED! Error bigger than max! Error = ", error + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(da)) + call hipCheck(hipFree(db)) + call hipCheck(hipFree(dc)) + + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(ha,hb,hc,hc_exact) + + write(*,*) "PASSED!" + +end program hip_dgemm diff --git a/bindings/fortran/hipblas/test/dgemm_batched.f03 b/bindings/fortran/hipblas/test/dgemm_batched.f03 new file mode 100644 index 000000000000..c6bf70299d72 --- /dev/null +++ b/bindings/fortran/hipblas/test/dgemm_batched.f03 @@ -0,0 +1,135 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_dgemm_batched + + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(kind(HIPBLAS_OP_N)), parameter :: transa = HIPBLAS_OP_N, transb = HIPBLAS_OP_N + double precision, target :: alpha = 1.1d0, beta = 0.9d0 + + integer, parameter :: m = 512, n = 512, k = 512, batch_count = 4 + integer, parameter :: bytes_per_element = 8 ! double precision + integer, parameter :: size_a = m*k, size_b = k*n, size_c = m*n + integer(c_size_t), parameter :: Nabytes = size_a*bytes_per_element, & + Nbbytes = size_b*bytes_per_element, & + Ncbytes = size_c*bytes_per_element + integer :: lda, ldb, ldc, i, b + + double precision, allocatable, target, dimension(:,:) :: ha, hb, hc ! (elems, batch) + double precision, allocatable, dimension(:) :: hc_exact ! one value per batch + + ! Host arrays of device pointers (one device matrix per batch entry) + type(c_ptr), target :: da(batch_count), db(batch_count), dc(batch_count) + ! Device-resident pointer arrays passed to the batched routine + type(c_ptr) :: da_p = c_null_ptr, db_p = c_null_ptr, dc_p = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + + double precision :: error + double precision, parameter :: error_max = 10*epsilon(error) + + write(*,"(a)",advance="no") "-- Running test 'DGEMM_BATCHED' (Fortran 2003 interfaces) - " + + ! hipBLAS defaults to host pointer mode: no set-pointer-mode call needed + call hipblasCheck(hipblasCreate(handle)) + + lda = m; ldb = k; ldc = m + + allocate(ha(size_a,0:batch_count-1)) + allocate(hb(size_b,0:batch_count-1)) + allocate(hc(size_c,0:batch_count-1)) + allocate(hc_exact(0:batch_count-1)) + + ! Constant matrices with a distinct per-batch value so the exact answer is + ! a distinct constant per batch. A is held constant; B varies per batch. + ha(:,:) = 1.d0 + do b = 0, batch_count-1 + hb(:,b) = dble(b+1) + hc(:,b) = 3.d0 + hc_exact(b) = alpha*k*dble(b+1) + beta*3.d0 + end do + + ! Allocate one device matrix per batch entry and copy its host data across + do b = 1, batch_count + call hipCheck(hipMalloc(da(b),Nabytes)) + call hipCheck(hipMalloc(db(b),Nbbytes)) + call hipCheck(hipMalloc(dc(b),Ncbytes)) + call hipCheck(hipMemcpy(da(b), c_loc(ha(1,b-1)), Nabytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(db(b), c_loc(hb(1,b-1)), Nbbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dc(b), c_loc(hc(1,b-1)), Ncbytes, hipMemcpyHostToDevice)) + end do + + ! Allocate the device-resident pointer arrays and copy the host pointer + ! arrays into them (hipBLAS requires the pointer array in device memory) + call hipCheck(hipMalloc(da_p, int(batch_count,c_size_t)*c_sizeof(da(1)))) + call hipCheck(hipMalloc(db_p, int(batch_count,c_size_t)*c_sizeof(db(1)))) + call hipCheck(hipMalloc(dc_p, int(batch_count,c_size_t)*c_sizeof(dc(1)))) + call hipCheck(hipMemcpy(da_p, c_loc(da(1)), int(batch_count,c_size_t)*c_sizeof(da(1)), hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(db_p, c_loc(db(1)), int(batch_count,c_size_t)*c_sizeof(db(1)), hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dc_p, c_loc(dc(1)), int(batch_count,c_size_t)*c_sizeof(dc(1)), hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasDgemmBatched(handle,transa,transb,m,n,k, & + c_loc(alpha),da_p,lda,db_p,ldb,c_loc(beta),dc_p,ldc,batch_count)) + + call hipCheck(hipDeviceSynchronize()) + + ! Transfer each batch result back to host memory + do b = 1, batch_count + call hipCheck(hipMemcpy(c_loc(hc(1,b-1)), dc(b), Ncbytes, hipMemcpyDeviceToHost)) + end do + + do b = 0, batch_count-1 + do i = 1, size_c + error = abs((hc_exact(b) - hc(i,b))/hc_exact(b)) + if( error > error_max )then + write(*,*) "FAILED! Error bigger than max! batch = ", b, " error = ", error + call exit(1) + end if + end do + end do + + do b = 1, batch_count + call hipCheck(hipFree(da(b))) + call hipCheck(hipFree(db(b))) + call hipCheck(hipFree(dc(b))) + end do + call hipCheck(hipFree(da_p)) + call hipCheck(hipFree(db_p)) + call hipCheck(hipFree(dc_p)) + + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(ha) + deallocate(hb) + deallocate(hc) + deallocate(hc_exact) + + write(*,*) "PASSED!" + +end program hip_dgemm_batched diff --git a/bindings/fortran/hipblas/test/dgemm_batched.f08 b/bindings/fortran/hipblas/test/dgemm_batched.f08 new file mode 100644 index 000000000000..72b1794a22a5 --- /dev/null +++ b/bindings/fortran/hipblas/test/dgemm_batched.f08 @@ -0,0 +1,142 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +! Note: hipfort's Fortran 2008 pointer-convenience interfaces for +! hipblas?gemmBatched call c_loc() on a plain array and therefore pass a +! single pointer, not the array of device pointers the routine requires. This +! test consequently uses the type(c_ptr) array-of-pointers idiom (as in f2003); +! only the per-batch device allocation uses the f2008 hipMalloc(source=) style. + +program hip_dgemm_batched + + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(kind(HIPBLAS_OP_N)), parameter :: transa = HIPBLAS_OP_N, transb = HIPBLAS_OP_N + double precision, target :: alpha = 1.1d0, beta = 0.9d0 + + integer, parameter :: m = 512, n = 512, k = 512, batch_count = 4 + integer, parameter :: bytes_per_element = 8 ! double precision + integer, parameter :: size_a = m*k, size_b = k*n, size_c = m*n + integer(c_size_t), parameter :: Ncbytes = size_c*bytes_per_element + integer :: lda, ldb, ldc, i, b + + double precision, allocatable, target, dimension(:,:) :: ha, hb, hc ! (elems, batch) + double precision, allocatable, dimension(:) :: hc_exact ! one value per batch + + ! Per-batch device matrices as typed Fortran pointers (reused each iteration) + double precision, pointer, dimension(:) :: da_b, db_b, dc_b + ! Host arrays of device pointers (one device matrix per batch entry) + type(c_ptr), target :: da(batch_count), db(batch_count), dc(batch_count) + ! Device-resident pointer arrays passed to the batched routine + type(c_ptr) :: da_p = c_null_ptr, db_p = c_null_ptr, dc_p = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + + double precision :: error + double precision, parameter :: error_max = 10*epsilon(error) + + write(*,"(a)",advance="no") "-- Running test 'DGEMM_BATCHED' (Fortran 2008 interfaces) - " + + ! hipBLAS defaults to host pointer mode: no set-pointer-mode call needed + call hipblasCheck(hipblasCreate(handle)) + + lda = m; ldb = k; ldc = m + + allocate(ha(size_a,0:batch_count-1)) + allocate(hb(size_b,0:batch_count-1)) + allocate(hc(size_c,0:batch_count-1)) + allocate(hc_exact(0:batch_count-1)) + + ! Constant matrices with a distinct per-batch value so the exact answer is + ! a distinct constant per batch. A is held constant; B varies per batch. + ha(:,:) = 1.d0 + do b = 0, batch_count-1 + hb(:,b) = dble(b+1) + hc(:,b) = 3.d0 + hc_exact(b) = alpha*k*dble(b+1) + beta*3.d0 + end do + + ! Allocate one device matrix per batch entry (f2008 source= copy) and record + ! its device address in the host pointer array + do b = 1, batch_count + call hipCheck(hipMalloc(da_b,source=ha(:,b-1))) + call hipCheck(hipMalloc(db_b,source=hb(:,b-1))) + call hipCheck(hipMalloc(dc_b,source=hc(:,b-1))) + da(b) = c_loc(da_b(1)) + db(b) = c_loc(db_b(1)) + dc(b) = c_loc(dc_b(1)) + end do + + ! Allocate the device-resident pointer arrays and copy the host pointer + ! arrays into them (hipBLAS requires the pointer array in device memory) + call hipCheck(hipMalloc(da_p, int(batch_count,c_size_t)*c_sizeof(da(1)))) + call hipCheck(hipMalloc(db_p, int(batch_count,c_size_t)*c_sizeof(db(1)))) + call hipCheck(hipMalloc(dc_p, int(batch_count,c_size_t)*c_sizeof(dc(1)))) + call hipCheck(hipMemcpy(da_p, c_loc(da(1)), int(batch_count,c_size_t)*c_sizeof(da(1)), hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(db_p, c_loc(db(1)), int(batch_count,c_size_t)*c_sizeof(db(1)), hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dc_p, c_loc(dc(1)), int(batch_count,c_size_t)*c_sizeof(dc(1)), hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasDgemmBatched(handle,transa,transb,m,n,k, & + c_loc(alpha),da_p,lda,db_p,ldb,c_loc(beta),dc_p,ldc,batch_count)) + + call hipCheck(hipDeviceSynchronize()) + + ! Transfer each batch result back to host memory + do b = 1, batch_count + call hipCheck(hipMemcpy(c_loc(hc(1,b-1)), dc(b), Ncbytes, hipMemcpyDeviceToHost)) + end do + + do b = 0, batch_count-1 + do i = 1, size_c + error = abs((hc_exact(b) - hc(i,b))/hc_exact(b)) + if( error > error_max )then + write(*,*) "FAILED! Error bigger than max! batch = ", b, " error = ", error + call exit(1) + end if + end do + end do + + do b = 1, batch_count + call hipCheck(hipFree(da(b))) + call hipCheck(hipFree(db(b))) + call hipCheck(hipFree(dc(b))) + end do + call hipCheck(hipFree(da_p)) + call hipCheck(hipFree(db_p)) + call hipCheck(hipFree(dc_p)) + + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(ha) + deallocate(hb) + deallocate(hc) + deallocate(hc_exact) + + write(*,*) "PASSED!" + +end program hip_dgemm_batched diff --git a/bindings/fortran/hipblas/test/dgemm_batched_devptr.f03 b/bindings/fortran/hipblas/test/dgemm_batched_devptr.f03 new file mode 100644 index 000000000000..1be53269a306 --- /dev/null +++ b/bindings/fortran/hipblas/test/dgemm_batched_devptr.f03 @@ -0,0 +1,149 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_dgemm_batched + + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(kind(HIPBLAS_OP_N)), parameter :: transa = HIPBLAS_OP_N, transb = HIPBLAS_OP_N + double precision, target :: alpha = 1.1d0, beta = 0.9d0 + + ! Device-resident copies of the dual-mode scalars; the library reads them + ! from device memory because the handle is in device pointer mode. + type(c_ptr) :: d_alpha = c_null_ptr + type(c_ptr) :: d_beta = c_null_ptr + + integer, parameter :: m = 512, n = 512, k = 512, batch_count = 4 + integer, parameter :: bytes_per_element = 8 ! double precision + integer, parameter :: size_a = m*k, size_b = k*n, size_c = m*n + integer(c_size_t), parameter :: Nabytes = size_a*bytes_per_element, & + Nbbytes = size_b*bytes_per_element, & + Ncbytes = size_c*bytes_per_element + integer :: lda, ldb, ldc, i, b + + double precision, allocatable, target, dimension(:,:) :: ha, hb, hc ! (elems, batch) + double precision, allocatable, dimension(:) :: hc_exact ! one value per batch + + ! Host arrays of device pointers (one device matrix per batch entry) + type(c_ptr), target :: da(batch_count), db(batch_count), dc(batch_count) + ! Device-resident pointer arrays passed to the batched routine + type(c_ptr) :: da_p = c_null_ptr, db_p = c_null_ptr, dc_p = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + + double precision :: error + double precision, parameter :: error_max = 10*epsilon(error) + + write(*,"(a)",advance="no") "-- Running test 'DGEMM_BATCHED_devptr' (Fortran 2003 interfaces) - " + + ! hipBLAS defaults to host pointer mode: no set-pointer-mode call needed + call hipblasCheck(hipblasCreate(handle)) + + ! Switch to device pointer mode and stage the scalars in device memory + call hipblasCheck(hipblasSetPointerMode(handle, HIPBLAS_POINTER_MODE_DEVICE)) + call hipCheck(hipMalloc(d_alpha, c_sizeof(alpha))) + call hipCheck(hipMalloc(d_beta, c_sizeof(beta))) + call hipCheck(hipMemcpy(d_alpha, c_loc(alpha), c_sizeof(alpha), hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(d_beta, c_loc(beta), c_sizeof(beta), hipMemcpyHostToDevice)) + + lda = m; ldb = k; ldc = m + + allocate(ha(size_a,0:batch_count-1)) + allocate(hb(size_b,0:batch_count-1)) + allocate(hc(size_c,0:batch_count-1)) + allocate(hc_exact(0:batch_count-1)) + + ! Constant matrices with a distinct per-batch value so the exact answer is + ! a distinct constant per batch. A is held constant; B varies per batch. + ha(:,:) = 1.d0 + do b = 0, batch_count-1 + hb(:,b) = dble(b+1) + hc(:,b) = 3.d0 + hc_exact(b) = alpha*k*dble(b+1) + beta*3.d0 + end do + + ! Allocate one device matrix per batch entry and copy its host data across + do b = 1, batch_count + call hipCheck(hipMalloc(da(b),Nabytes)) + call hipCheck(hipMalloc(db(b),Nbbytes)) + call hipCheck(hipMalloc(dc(b),Ncbytes)) + call hipCheck(hipMemcpy(da(b), c_loc(ha(1,b-1)), Nabytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(db(b), c_loc(hb(1,b-1)), Nbbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dc(b), c_loc(hc(1,b-1)), Ncbytes, hipMemcpyHostToDevice)) + end do + + ! Allocate the device-resident pointer arrays and copy the host pointer + ! arrays into them (hipBLAS requires the pointer array in device memory) + call hipCheck(hipMalloc(da_p, int(batch_count,c_size_t)*c_sizeof(da(1)))) + call hipCheck(hipMalloc(db_p, int(batch_count,c_size_t)*c_sizeof(db(1)))) + call hipCheck(hipMalloc(dc_p, int(batch_count,c_size_t)*c_sizeof(dc(1)))) + call hipCheck(hipMemcpy(da_p, c_loc(da(1)), int(batch_count,c_size_t)*c_sizeof(da(1)), hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(db_p, c_loc(db(1)), int(batch_count,c_size_t)*c_sizeof(db(1)), hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dc_p, c_loc(dc(1)), int(batch_count,c_size_t)*c_sizeof(dc(1)), hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasDgemmBatched(handle,transa,transb,m,n,k, & + d_alpha,da_p,lda,db_p,ldb,d_beta,dc_p,ldc,batch_count)) + + call hipCheck(hipDeviceSynchronize()) + + ! Transfer each batch result back to host memory + do b = 1, batch_count + call hipCheck(hipMemcpy(c_loc(hc(1,b-1)), dc(b), Ncbytes, hipMemcpyDeviceToHost)) + end do + + do b = 0, batch_count-1 + do i = 1, size_c + error = abs((hc_exact(b) - hc(i,b))/hc_exact(b)) + if( error > error_max )then + write(*,*) "FAILED! Error bigger than max! batch = ", b, " error = ", error + call exit(1) + end if + end do + end do + + do b = 1, batch_count + call hipCheck(hipFree(da(b))) + call hipCheck(hipFree(db(b))) + call hipCheck(hipFree(dc(b))) + end do + call hipCheck(hipFree(da_p)) + call hipCheck(hipFree(db_p)) + call hipCheck(hipFree(dc_p)) + + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(ha) + deallocate(hb) + deallocate(hc) + deallocate(hc_exact) + + call hipCheck(hipFree(d_alpha)) + call hipCheck(hipFree(d_beta)) + write(*,*) "PASSED!" + +end program hip_dgemm_batched diff --git a/bindings/fortran/hipblas/test/dgemm_devptr.f03 b/bindings/fortran/hipblas/test/dgemm_devptr.f03 new file mode 100644 index 000000000000..329ce781b9d3 --- /dev/null +++ b/bindings/fortran/hipblas/test/dgemm_devptr.f03 @@ -0,0 +1,135 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2021 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_dgemm + + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(kind(HIPBLAS_OP_N)), parameter :: transa = HIPBLAS_OP_N, transb = HIPBLAS_OP_N; + double precision, target :: alpha = 1.1d0, beta = 0.9d0; + + ! Device-resident copies of the dual-mode scalars; the library reads them + ! from device memory because the handle is in device pointer mode. + type(c_ptr) :: d_alpha = c_null_ptr + type(c_ptr) :: d_beta = c_null_ptr + + integer, parameter :: m = 1024, n = 1024, k = 1024; + integer :: lda, ldb, ldc, size_a, size_b, size_c; + + double precision, allocatable, target, dimension(:) :: ha, hb, hc + double precision, allocatable, dimension(:) :: hc_exact + + type(c_ptr) :: da = c_null_ptr, db = c_null_ptr, dc = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + + integer, parameter :: bytes_per_element = 8 !double precision + integer(c_size_t) :: Nabytes, Nbbytes, Ncbytes + + integer :: i + double precision :: error + double precision, parameter :: error_max = 10*epsilon(error) + + write(*,"(a)",advance="no") "-- Running test 'DGEMM_devptr' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + ! Switch to device pointer mode and stage the scalars in device memory + call hipblasCheck(hipblasSetPointerMode(handle, HIPBLAS_POINTER_MODE_DEVICE)) + call hipCheck(hipMalloc(d_alpha, c_sizeof(alpha))) + call hipCheck(hipMalloc(d_beta, c_sizeof(beta))) + call hipCheck(hipMemcpy(d_alpha, c_loc(alpha), c_sizeof(alpha), hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(d_beta, c_loc(beta), c_sizeof(beta), hipMemcpyHostToDevice)) + + lda = m; + size_a = k * lda; + Nabytes = size_a*bytes_per_element + + ldb = k; + size_b = n * ldb; + Nbbytes = size_b*bytes_per_element + + ldc = m; + size_c = n * ldc; + Ncbytes = size_c*bytes_per_element + + allocate(ha(size_a)) + allocate(hb(size_b)) + allocate(hc(size_c)) + allocate(hc_exact(size_c)) + + ! Use these constant matrices so the exact answer is also a + ! constant matrix and therefore easy to check + ha(:) = 1.d0 + hb(:) = 2.d0 + hc(:) = 3.d0 + hc_exact = alpha*k*2.d0 + beta*3.d0 + + ! Allocate device memory + call hipCheck(hipMalloc(da,Nabytes)) + call hipCheck(hipMalloc(db,Nbbytes)) + call hipCheck(hipMalloc(dc,Ncbytes)) + + !Transfer from host to device + call hipCheck(hipMemcpy(da, c_loc(ha(1)), Nabytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(db, c_loc(hb(1)), Nbbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dc, c_loc(hc(1)), Ncbytes, hipMemcpyHostToDevice)) + + + call hipblasCheck(hipblasDgemm(handle,transa,transb,m,n,k,d_alpha,da,lda,db,ldb,d_beta,dc,ldc)) + + call hipCheck(hipDeviceSynchronize()) + + ! Transfer data back to host memory + call hipCheck(hipMemcpy(c_loc(hc(1)), dc, Ncbytes, hipMemcpyDeviceToHost)) + + + do i = 1,size_c + error = abs((hc_exact(i) - hc(i))/hc_exact(i)) + if( error > error_max )then + write(*,*) "FAILED! Error bigger than max! Error = ", error + call exit(1) + end if + end do + + call hipCheck(hipFree(da)) + call hipCheck(hipFree(db)) + call hipCheck(hipFree(dc)) + + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(ha) + deallocate(hb) + deallocate(hc) + deallocate(hc_exact) + + call hipCheck(hipFree(d_alpha)) + call hipCheck(hipFree(d_beta)) + write(*,*) "PASSED!" + +end program hip_dgemm diff --git a/bindings/fortran/hipblas/test/dgemm_strided_batched.f03 b/bindings/fortran/hipblas/test/dgemm_strided_batched.f03 new file mode 100644 index 000000000000..352de7764497 --- /dev/null +++ b/bindings/fortran/hipblas/test/dgemm_strided_batched.f03 @@ -0,0 +1,121 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_dgemm_strided_batched + + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(kind(HIPBLAS_OP_N)), parameter :: transa = HIPBLAS_OP_N, transb = HIPBLAS_OP_N + double precision, target :: alpha = 1.1d0, beta = 0.9d0 + + integer, parameter :: m = 512, n = 512, k = 512, batch_count = 4 + integer, parameter :: bytes_per_element = 8 ! double precision + integer :: lda, ldb, ldc, i, b + integer(c_int64_t) :: stride_a, stride_b, stride_c + integer :: size_a, size_b, size_c + integer(c_size_t) :: Nabytes, Nbbytes, Ncbytes + + double precision, allocatable, target, dimension(:) :: ha, hb, hc + double precision, allocatable, dimension(:) :: hc_exact ! one value per batch + + type(c_ptr) :: da = c_null_ptr, db = c_null_ptr, dc = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + + double precision :: error + double precision, parameter :: error_max = 10*epsilon(error) + + write(*,"(a)",advance="no") "-- Running test 'DGEMM_STRIDED_BATCHED' (Fortran 2003 interfaces) - " + + ! hipBLAS defaults to host pointer mode: no set-pointer-mode call needed + call hipblasCheck(hipblasCreate(handle)) + + lda = m; ldb = k; ldc = m + stride_a = int(lda,c_int64_t)*k + stride_b = int(ldb,c_int64_t)*n + stride_c = int(ldc,c_int64_t)*n + size_a = int(stride_a)*batch_count; Nabytes = size_a*bytes_per_element + size_b = int(stride_b)*batch_count; Nbbytes = size_b*bytes_per_element + size_c = int(stride_c)*batch_count; Ncbytes = size_c*bytes_per_element + + allocate(ha(size_a)) + allocate(hb(size_b)) + allocate(hc(size_c)) + allocate(hc_exact(0:batch_count-1)) + + ! Constant matrices with a distinct per-batch value so the exact answer is + ! a distinct constant per batch. A is held constant; B varies per batch. + ha(:) = 1.d0 + do b = 0, batch_count-1 + hb(b*stride_b+1 : (b+1)*stride_b) = dble(b+1) + hc(b*stride_c+1 : (b+1)*stride_c) = 3.d0 + hc_exact(b) = alpha*k*dble(b+1) + beta*3.d0 + end do + + ! Allocate device memory + call hipCheck(hipMalloc(da,Nabytes)) + call hipCheck(hipMalloc(db,Nbbytes)) + call hipCheck(hipMalloc(dc,Ncbytes)) + + ! Transfer from host to device + call hipCheck(hipMemcpy(da, c_loc(ha(1)), Nabytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(db, c_loc(hb(1)), Nbbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dc, c_loc(hc(1)), Ncbytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasDgemmStridedBatched(handle,transa,transb,m,n,k, & + c_loc(alpha),da,lda,stride_a,db,ldb,stride_b,c_loc(beta),dc,ldc,stride_c,batch_count)) + + call hipCheck(hipDeviceSynchronize()) + + ! Transfer data back to host memory + call hipCheck(hipMemcpy(c_loc(hc(1)), dc, Ncbytes, hipMemcpyDeviceToHost)) + + do b = 0, batch_count-1 + do i = 1, int(stride_c) + error = abs((hc_exact(b) - hc(b*stride_c+i))/hc_exact(b)) + if( error > error_max )then + write(*,*) "FAILED! Error bigger than max! batch = ", b, " error = ", error + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(da)) + call hipCheck(hipFree(db)) + call hipCheck(hipFree(dc)) + + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(ha) + deallocate(hb) + deallocate(hc) + deallocate(hc_exact) + + write(*,*) "PASSED!" + +end program hip_dgemm_strided_batched diff --git a/bindings/fortran/hipblas/test/dgemm_strided_batched.f08 b/bindings/fortran/hipblas/test/dgemm_strided_batched.f08 new file mode 100644 index 000000000000..98ca437797a4 --- /dev/null +++ b/bindings/fortran/hipblas/test/dgemm_strided_batched.f08 @@ -0,0 +1,114 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_dgemm_strided_batched + + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(kind(HIPBLAS_OP_N)), parameter :: transa = HIPBLAS_OP_N, transb = HIPBLAS_OP_N + double precision, target :: alpha = 1.1d0, beta = 0.9d0 + + integer, parameter :: m = 512, n = 512, k = 512, batch_count = 4 + integer :: lda, ldb, ldc, i, b + integer(c_int64_t) :: stride_a, stride_b, stride_c + integer :: size_a, size_b, size_c + + double precision, allocatable, dimension(:) :: ha, hb, hc + double precision, allocatable, dimension(:) :: hc_exact ! one value per batch + + double precision, pointer, dimension(:) :: da, db, dc + type(c_ptr) :: handle = c_null_ptr + + double precision :: error + double precision, parameter :: error_max = 10*epsilon(error) + + write(*,"(a)",advance="no") "-- Running test 'DGEMM_STRIDED_BATCHED' (Fortran 2008 interfaces) - " + + ! hipBLAS defaults to host pointer mode: no set-pointer-mode call needed + call hipblasCheck(hipblasCreate(handle)) + + lda = m; ldb = k; ldc = m + stride_a = int(lda,c_int64_t)*k + stride_b = int(ldb,c_int64_t)*n + stride_c = int(ldc,c_int64_t)*n + size_a = int(stride_a)*batch_count + size_b = int(stride_b)*batch_count + size_c = int(stride_c)*batch_count + + allocate(ha(size_a)) + allocate(hb(size_b)) + allocate(hc(size_c)) + allocate(hc_exact(0:batch_count-1)) + + ! Constant matrices with a distinct per-batch value so the exact answer is + ! a distinct constant per batch. A is held constant; B varies per batch. + ha(:) = 1.d0 + do b = 0, batch_count-1 + hb(b*stride_b+1 : (b+1)*stride_b) = dble(b+1) + hc(b*stride_c+1 : (b+1)*stride_c) = 3.d0 + hc_exact(b) = alpha*k*dble(b+1) + beta*3.d0 + end do + + ! Allocate device memory + call hipCheck(hipMalloc(da,source=ha)) ! implies (blocking) memcpy + call hipCheck(hipMalloc(db,source=hb)) + call hipCheck(hipMalloc(dc,source=hc)) + + call hipblasCheck(hipblasDgemmStridedBatched(handle,transa,transb,m,n,k, & + alpha,da,lda,stride_a,db,ldb,stride_b,beta,dc,ldc,stride_c,batch_count)) + + call hipCheck(hipDeviceSynchronize()) + + ! Transfer data back to host memory + call hipCheck(hipMemcpy(hc, dc, hipMemcpyDeviceToHost)) + + do b = 0, batch_count-1 + do i = 1, int(stride_c) + error = abs((hc_exact(b) - hc(b*stride_c+i))/hc_exact(b)) + if( error > error_max )then + write(*,*) "FAILED! Error bigger than max! batch = ", b, " error = ", error + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(da)) + call hipCheck(hipFree(db)) + call hipCheck(hipFree(dc)) + + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(ha) + deallocate(hb) + deallocate(hc) + deallocate(hc_exact) + + write(*,*) "PASSED!" + +end program hip_dgemm_strided_batched diff --git a/bindings/fortran/hipblas/test/dgemm_strided_batched_devptr.f03 b/bindings/fortran/hipblas/test/dgemm_strided_batched_devptr.f03 new file mode 100644 index 000000000000..af0d00fdef98 --- /dev/null +++ b/bindings/fortran/hipblas/test/dgemm_strided_batched_devptr.f03 @@ -0,0 +1,135 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_dgemm_strided_batched + + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(kind(HIPBLAS_OP_N)), parameter :: transa = HIPBLAS_OP_N, transb = HIPBLAS_OP_N + double precision, target :: alpha = 1.1d0, beta = 0.9d0 + + ! Device-resident copies of the dual-mode scalars; the library reads them + ! from device memory because the handle is in device pointer mode. + type(c_ptr) :: d_alpha = c_null_ptr + type(c_ptr) :: d_beta = c_null_ptr + + integer, parameter :: m = 512, n = 512, k = 512, batch_count = 4 + integer, parameter :: bytes_per_element = 8 ! double precision + integer :: lda, ldb, ldc, i, b + integer(c_int64_t) :: stride_a, stride_b, stride_c + integer :: size_a, size_b, size_c + integer(c_size_t) :: Nabytes, Nbbytes, Ncbytes + + double precision, allocatable, target, dimension(:) :: ha, hb, hc + double precision, allocatable, dimension(:) :: hc_exact ! one value per batch + + type(c_ptr) :: da = c_null_ptr, db = c_null_ptr, dc = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + + double precision :: error + double precision, parameter :: error_max = 10*epsilon(error) + + write(*,"(a)",advance="no") "-- Running test 'DGEMM_STRIDED_BATCHED_devptr' (Fortran 2003 interfaces) - " + + ! hipBLAS defaults to host pointer mode: no set-pointer-mode call needed + call hipblasCheck(hipblasCreate(handle)) + + ! Switch to device pointer mode and stage the scalars in device memory + call hipblasCheck(hipblasSetPointerMode(handle, HIPBLAS_POINTER_MODE_DEVICE)) + call hipCheck(hipMalloc(d_alpha, c_sizeof(alpha))) + call hipCheck(hipMalloc(d_beta, c_sizeof(beta))) + call hipCheck(hipMemcpy(d_alpha, c_loc(alpha), c_sizeof(alpha), hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(d_beta, c_loc(beta), c_sizeof(beta), hipMemcpyHostToDevice)) + + lda = m; ldb = k; ldc = m + stride_a = int(lda,c_int64_t)*k + stride_b = int(ldb,c_int64_t)*n + stride_c = int(ldc,c_int64_t)*n + size_a = int(stride_a)*batch_count; Nabytes = size_a*bytes_per_element + size_b = int(stride_b)*batch_count; Nbbytes = size_b*bytes_per_element + size_c = int(stride_c)*batch_count; Ncbytes = size_c*bytes_per_element + + allocate(ha(size_a)) + allocate(hb(size_b)) + allocate(hc(size_c)) + allocate(hc_exact(0:batch_count-1)) + + ! Constant matrices with a distinct per-batch value so the exact answer is + ! a distinct constant per batch. A is held constant; B varies per batch. + ha(:) = 1.d0 + do b = 0, batch_count-1 + hb(b*stride_b+1 : (b+1)*stride_b) = dble(b+1) + hc(b*stride_c+1 : (b+1)*stride_c) = 3.d0 + hc_exact(b) = alpha*k*dble(b+1) + beta*3.d0 + end do + + ! Allocate device memory + call hipCheck(hipMalloc(da,Nabytes)) + call hipCheck(hipMalloc(db,Nbbytes)) + call hipCheck(hipMalloc(dc,Ncbytes)) + + ! Transfer from host to device + call hipCheck(hipMemcpy(da, c_loc(ha(1)), Nabytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(db, c_loc(hb(1)), Nbbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dc, c_loc(hc(1)), Ncbytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasDgemmStridedBatched(handle,transa,transb,m,n,k, & + d_alpha,da,lda,stride_a,db,ldb,stride_b,d_beta,dc,ldc,stride_c,batch_count)) + + call hipCheck(hipDeviceSynchronize()) + + ! Transfer data back to host memory + call hipCheck(hipMemcpy(c_loc(hc(1)), dc, Ncbytes, hipMemcpyDeviceToHost)) + + do b = 0, batch_count-1 + do i = 1, int(stride_c) + error = abs((hc_exact(b) - hc(b*stride_c+i))/hc_exact(b)) + if( error > error_max )then + write(*,*) "FAILED! Error bigger than max! batch = ", b, " error = ", error + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(da)) + call hipCheck(hipFree(db)) + call hipCheck(hipFree(dc)) + + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(ha) + deallocate(hb) + deallocate(hc) + deallocate(hc_exact) + + call hipCheck(hipFree(d_alpha)) + call hipCheck(hipFree(d_beta)) + write(*,*) "PASSED!" + +end program hip_dgemm_strided_batched diff --git a/bindings/fortran/hipblas/test/dgemm_trans.f03 b/bindings/fortran/hipblas/test/dgemm_trans.f03 new file mode 100644 index 000000000000..9692bb346096 --- /dev/null +++ b/bindings/fortran/hipblas/test/dgemm_trans.f03 @@ -0,0 +1,147 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hipblas_dgemm_trans_test + + ! hipblasDgemm with every transa/transb combination. The matrices are rectangular, + ! padded (ld > rows) and filled with varying values, so that a swapped dimension, + ! a wrong leading dimension, a wrong operation constant or a missed conjugation + ! all change the result. The padding rows of C must come back untouched. + + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(kind(HIPBLAS_OP_N)), parameter :: ops(3) = [HIPBLAS_OP_N, & + HIPBLAS_OP_T, HIPBLAS_OP_C] + character(len=1), parameter :: op_names(3) = ['N', 'T', 'C'] + integer, parameter :: m = 37, n = 23, k = 19, pad = 3 + real(c_double), target :: alpha = 1.5_c_double, beta = 0.5_c_double + + real(c_double), allocatable, target :: hA(:,:), hB(:,:), hC(:,:) + real(c_double), allocatable :: hC0(:,:), opA(:,:), opB(:,:), hC_ref(:,:) + type(c_ptr) :: dA = c_null_ptr, dB = c_null_ptr, dC = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + integer(c_size_t), parameter :: elem = 8 + + integer :: ia, ib, i, j, rows_a, cols_a, rows_b, cols_b, lda, ldb, ldc + real(c_double) :: error, error_max + + write(*,"(a)",advance="no") "-- Running test 'DGEMM transposes' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + call hipblasCheck(hipblasSetPointerMode(handle, HIPBLAS_POINTER_MODE_HOST)) + + error_max = 100 * epsilon(error) * (abs(alpha) * k + abs(beta)) + + do ia = 1, 3 + do ib = 1, 3 + ! op(A) is m x k and op(B) is k x n + if (ops(ia) == HIPBLAS_OP_N) then + rows_a = m; cols_a = k + else + rows_a = k; cols_a = m + end if + if (ops(ib) == HIPBLAS_OP_N) then + rows_b = k; cols_b = n + else + rows_b = n; cols_b = k + end if + lda = rows_a + pad; ldb = rows_b + pad; ldc = m + pad + + allocate(hA(lda, cols_a), hB(ldb, cols_b), hC(ldc, n)) + do j = 1, cols_a + do i = 1, lda + hA(i,j) = fill(i, j, 1) + end do + end do + do j = 1, cols_b + do i = 1, ldb + hB(i,j) = fill(i, j, 2) + end do + end do + do j = 1, n + do i = 1, ldc + hC(i,j) = fill(i, j, 3) + end do + end do + hC0 = hC + + call hipCheck(hipMalloc(dA, size(hA, kind=c_size_t) * elem)) + call hipCheck(hipMalloc(dB, size(hB, kind=c_size_t) * elem)) + call hipCheck(hipMalloc(dC, size(hC, kind=c_size_t) * elem)) + call hipCheck(hipMemcpy(dA, c_loc(hA(1,1)), size(hA, kind=c_size_t) * elem, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dB, c_loc(hB(1,1)), size(hB, kind=c_size_t) * elem, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dC, c_loc(hC(1,1)), size(hC, kind=c_size_t) * elem, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasDgemm(handle, ops(ia), ops(ib), m, n, k, c_loc(alpha), dA, lda, dB, ldb, & + c_loc(beta), dC, ldc)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(c_loc(hC(1,1)), dC, size(hC, kind=c_size_t) * elem, hipMemcpyDeviceToHost)) + + if (ops(ia) == HIPBLAS_OP_N) then + opA = hA(1:m, 1:k) + else + opA = transpose(hA(1:k, 1:m)) + end if + if (ops(ib) == HIPBLAS_OP_N) then + opB = hB(1:k, 1:n) + else + opB = transpose(hB(1:n, 1:k)) + end if + hC_ref = alpha * matmul(opA, opB) + beta * hC0(1:m, 1:n) + + error = maxval(abs(hC(1:m, 1:n) - hC_ref)) + if (error > error_max) then + write(*,*) "FAILED! transa = ", op_names(ia), " transb = ", op_names(ib), " error = ", error + call exit(1) + end if + if (any(hC(m+1:ldc, :) /= hC0(m+1:ldc, :))) then + write(*,*) "FAILED! transa = ", op_names(ia), " transb = ", op_names(ib), " wrote past m in C" + call exit(1) + end if + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dB)) + call hipCheck(hipFree(dC)) + deallocate(hA, hB, hC, hC0, opA, opB, hC_ref) + end do + end do + + call hipblasCheck(hipblasDestroy(handle)) + + write(*,*) "PASSED!" + +contains + + ! Varying small multiples of 1/8, so every product and sum below is exact. + real(c_double) function fill(i, j, s) + integer, intent(in) :: i, j, s + fill = real(mod(7*i + 3*j + s, 13) - 6, c_double) / 8 + end function fill + +end program hipblas_dgemm_trans_test diff --git a/bindings/fortran/hipblas/test/dgemm_trans.f08 b/bindings/fortran/hipblas/test/dgemm_trans.f08 new file mode 100644 index 000000000000..c35c30f67c50 --- /dev/null +++ b/bindings/fortran/hipblas/test/dgemm_trans.f08 @@ -0,0 +1,142 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hipblas_dgemm_trans_test + + ! hipblasDgemm with every transa/transb combination. The matrices are rectangular, + ! padded (ld > rows) and filled with varying values, so that a swapped dimension, + ! a wrong leading dimension, a wrong operation constant or a missed conjugation + ! all change the result. The padding rows of C must come back untouched. + + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(kind(HIPBLAS_OP_N)), parameter :: ops(3) = [HIPBLAS_OP_N, & + HIPBLAS_OP_T, HIPBLAS_OP_C] + character(len=1), parameter :: op_names(3) = ['N', 'T', 'C'] + integer, parameter :: m = 37, n = 23, k = 19, pad = 3 + real(c_double), target :: alpha = 1.5_c_double, beta = 0.5_c_double + + real(c_double), allocatable :: hA(:,:), hB(:,:), hC(:,:) + real(c_double), allocatable :: hC0(:,:), opA(:,:), opB(:,:), hC_ref(:,:) + real(c_double), pointer, dimension(:,:) :: dA, dB, dC + type(c_ptr) :: handle = c_null_ptr + + integer :: ia, ib, i, j, rows_a, cols_a, rows_b, cols_b, lda, ldb, ldc + real(c_double) :: error, error_max + + write(*,"(a)",advance="no") "-- Running test 'DGEMM transposes' (Fortran 2008 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + call hipblasCheck(hipblasSetPointerMode(handle, HIPBLAS_POINTER_MODE_HOST)) + + error_max = 100 * epsilon(error) * (abs(alpha) * k + abs(beta)) + + do ia = 1, 3 + do ib = 1, 3 + ! op(A) is m x k and op(B) is k x n + if (ops(ia) == HIPBLAS_OP_N) then + rows_a = m; cols_a = k + else + rows_a = k; cols_a = m + end if + if (ops(ib) == HIPBLAS_OP_N) then + rows_b = k; cols_b = n + else + rows_b = n; cols_b = k + end if + lda = rows_a + pad; ldb = rows_b + pad; ldc = m + pad + + allocate(hA(lda, cols_a), hB(ldb, cols_b), hC(ldc, n)) + do j = 1, cols_a + do i = 1, lda + hA(i,j) = fill(i, j, 1) + end do + end do + do j = 1, cols_b + do i = 1, ldb + hB(i,j) = fill(i, j, 2) + end do + end do + do j = 1, n + do i = 1, ldc + hC(i,j) = fill(i, j, 3) + end do + end do + hC0 = hC + + call hipCheck(hipMalloc(dA, source=hA)) + call hipCheck(hipMalloc(dB, source=hB)) + call hipCheck(hipMalloc(dC, source=hC)) + + call hipblasCheck(hipblasDgemm(handle, ops(ia), ops(ib), m, n, k, alpha, dA, lda, dB, ldb, beta, dC, ldc)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(hC, dC, hipMemcpyDeviceToHost)) + + if (ops(ia) == HIPBLAS_OP_N) then + opA = hA(1:m, 1:k) + else + opA = transpose(hA(1:k, 1:m)) + end if + if (ops(ib) == HIPBLAS_OP_N) then + opB = hB(1:k, 1:n) + else + opB = transpose(hB(1:n, 1:k)) + end if + hC_ref = alpha * matmul(opA, opB) + beta * hC0(1:m, 1:n) + + error = maxval(abs(hC(1:m, 1:n) - hC_ref)) + if (error > error_max) then + write(*,*) "FAILED! transa = ", op_names(ia), " transb = ", op_names(ib), " error = ", error + call exit(1) + end if + if (any(hC(m+1:ldc, :) /= hC0(m+1:ldc, :))) then + write(*,*) "FAILED! transa = ", op_names(ia), " transb = ", op_names(ib), " wrote past m in C" + call exit(1) + end if + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dB)) + call hipCheck(hipFree(dC)) + deallocate(hA, hB, hC, hC0, opA, opB, hC_ref) + end do + end do + + call hipblasCheck(hipblasDestroy(handle)) + + write(*,*) "PASSED!" + +contains + + ! Varying small multiples of 1/8, so every product and sum below is exact. + real(c_double) function fill(i, j, s) + integer, intent(in) :: i, j, s + fill = real(mod(7*i + 3*j + s, 13) - 6, c_double) / 8 + end function fill + +end program hipblas_dgemm_trans_test diff --git a/bindings/fortran/hipblas/test/dgemv.f03 b/bindings/fortran/hipblas/test/dgemv.f03 new file mode 100644 index 000000000000..d9b951314689 --- /dev/null +++ b/bindings/fortran/hipblas/test/dgemv.f03 @@ -0,0 +1,81 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hipblas_dgemv_test + use iso_c_binding + use hip + use hipblas + + implicit none + + double precision, target :: alpha = 1.1d0, beta = 0.9d0 + integer, parameter :: m = 1024, n = 1024 + integer, parameter :: bytes_per_element = 8 + integer(c_size_t) :: NAbytes, Nxbytes, Nybytes + double precision, allocatable, target, dimension(:) :: hA, hx, hy + double precision :: y_exact, error + double precision, parameter :: error_max = 10*epsilon(error) + type(c_ptr) :: dA = c_null_ptr, dx = c_null_ptr, dy = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + integer :: i + + write(*,"(a)",advance="no") "-- Running test 'DGEMV' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + NAbytes = int(m*n, c_size_t) * bytes_per_element + Nxbytes = int(n, c_size_t) * bytes_per_element + Nybytes = int(m, c_size_t) * bytes_per_element + allocate(hA(m*n), hx(n), hy(m)) + hA = 1.d0; hx = 1.d0; hy = 1.d0 + y_exact = alpha * n + beta + + call hipCheck(hipMalloc(dA, NAbytes)) + call hipCheck(hipMalloc(dx, Nxbytes)) + call hipCheck(hipMalloc(dy, Nybytes)) + call hipCheck(hipMemcpy(dA, c_loc(hA(1)), NAbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dx, c_loc(hx(1)), Nxbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dy, c_loc(hy(1)), Nybytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasDgemv(handle, HIPBLAS_OP_N, m, n, c_loc(alpha), dA, m, dx, 1, c_loc(beta), dy, 1)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(c_loc(hy(1)), dy, Nybytes, hipMemcpyDeviceToHost)) + + do i = 1, m + error = abs((y_exact - hy(i)) / y_exact) + if (error > error_max) then + write(*,*) "FAILED! Error bigger than max! Error = ", error + call exit(1) + end if + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dx)) + call hipCheck(hipFree(dy)) + call hipblasCheck(hipblasDestroy(handle)) + deallocate(hA, hx, hy) + write(*,*) "PASSED!" + +end program hipblas_dgemv_test diff --git a/bindings/fortran/hipblas/test/dgemv.f08 b/bindings/fortran/hipblas/test/dgemv.f08 new file mode 100644 index 000000000000..8797da529f09 --- /dev/null +++ b/bindings/fortran/hipblas/test/dgemv.f08 @@ -0,0 +1,77 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hipblas_dgemv_test + use iso_c_binding + use hip + use hipblas + + implicit none + + double precision, target :: alpha = 1.1d0, beta = 0.9d0 + integer, parameter :: m = 1024, n = 1024 + + double precision, allocatable, target, dimension(:,:) :: hA + double precision, allocatable, target, dimension(:) :: hx, hy + double precision, pointer, dimension(:,:) :: dA + double precision, pointer, dimension(:) :: dx, dy + type(c_ptr) :: handle = c_null_ptr + + double precision :: y_exact, error + double precision, parameter :: error_max = 10*epsilon(error) + integer :: i + + write(*,"(a)",advance="no") "-- Running test 'DGEMV' (Fortran 2008 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + allocate(hA(m,n), hx(n), hy(m)) + hA = 1.d0; hx = 1.d0; hy = 1.d0 + y_exact = alpha * n + beta + + call hipCheck(hipMalloc(dA, source=hA)) + call hipCheck(hipMalloc(dx, source=hx)) + call hipCheck(hipMalloc(dy, source=hy)) + + call hipblasCheck(hipblasDgemv(handle, HIPBLAS_OP_N, m, n, alpha, dA, size(dA,1), dx, 1, beta, dy, 1)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(hy, dy, hipMemcpyDeviceToHost)) + + do i = 1, m + error = abs((y_exact - hy(i)) / y_exact) + if (error > error_max) then + write(*,*) "FAILED! Error bigger than max! Error = ", error + call exit(1) + end if + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dx)) + call hipCheck(hipFree(dy)) + call hipblasCheck(hipblasDestroy(handle)) + deallocate(hA, hx, hy) + write(*,*) "PASSED!" + +end program hipblas_dgemv_test diff --git a/bindings/fortran/hipblas/test/dgemv_devptr.f03 b/bindings/fortran/hipblas/test/dgemv_devptr.f03 new file mode 100644 index 000000000000..a1bfc2617e75 --- /dev/null +++ b/bindings/fortran/hipblas/test/dgemv_devptr.f03 @@ -0,0 +1,95 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hipblas_dgemv_test + use iso_c_binding + use hip + use hipblas + + implicit none + + double precision, target :: alpha = 1.1d0, beta = 0.9d0 + + ! Device-resident copies of the dual-mode scalars; the library reads them + ! from device memory because the handle is in device pointer mode. + type(c_ptr) :: d_alpha = c_null_ptr + type(c_ptr) :: d_beta = c_null_ptr + integer, parameter :: m = 1024, n = 1024 + integer, parameter :: bytes_per_element = 8 + integer(c_size_t) :: NAbytes, Nxbytes, Nybytes + double precision, allocatable, target, dimension(:) :: hA, hx, hy + double precision :: y_exact, error + double precision, parameter :: error_max = 10*epsilon(error) + type(c_ptr) :: dA = c_null_ptr, dx = c_null_ptr, dy = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + integer :: i + + write(*,"(a)",advance="no") "-- Running test 'DGEMV_devptr' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + ! Switch to device pointer mode and stage the scalars in device memory + call hipblasCheck(hipblasSetPointerMode(handle, HIPBLAS_POINTER_MODE_DEVICE)) + call hipCheck(hipMalloc(d_alpha, c_sizeof(alpha))) + call hipCheck(hipMalloc(d_beta, c_sizeof(beta))) + call hipCheck(hipMemcpy(d_alpha, c_loc(alpha), c_sizeof(alpha), hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(d_beta, c_loc(beta), c_sizeof(beta), hipMemcpyHostToDevice)) + + NAbytes = int(m*n, c_size_t) * bytes_per_element + Nxbytes = int(n, c_size_t) * bytes_per_element + Nybytes = int(m, c_size_t) * bytes_per_element + allocate(hA(m*n), hx(n), hy(m)) + hA = 1.d0; hx = 1.d0; hy = 1.d0 + y_exact = alpha * n + beta + + call hipCheck(hipMalloc(dA, NAbytes)) + call hipCheck(hipMalloc(dx, Nxbytes)) + call hipCheck(hipMalloc(dy, Nybytes)) + call hipCheck(hipMemcpy(dA, c_loc(hA(1)), NAbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dx, c_loc(hx(1)), Nxbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dy, c_loc(hy(1)), Nybytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasDgemv(handle, HIPBLAS_OP_N, m, n, d_alpha, dA, m, dx, 1, d_beta, dy, 1)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(c_loc(hy(1)), dy, Nybytes, hipMemcpyDeviceToHost)) + + do i = 1, m + error = abs((y_exact - hy(i)) / y_exact) + if (error > error_max) then + write(*,*) "FAILED! Error bigger than max! Error = ", error + call exit(1) + end if + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dx)) + call hipCheck(hipFree(dy)) + call hipblasCheck(hipblasDestroy(handle)) + deallocate(hA, hx, hy) + call hipCheck(hipFree(d_alpha)) + call hipCheck(hipFree(d_beta)) + write(*,*) "PASSED!" + +end program hipblas_dgemv_test diff --git a/bindings/fortran/hipblas/test/dgemv_trans.f03 b/bindings/fortran/hipblas/test/dgemv_trans.f03 new file mode 100644 index 000000000000..7150ef9b0a6f --- /dev/null +++ b/bindings/fortran/hipblas/test/dgemv_trans.f03 @@ -0,0 +1,139 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hipblas_dgemv_trans_test + + ! hipblasDgemv with every trans value. A is rectangular and padded (lda > m), x and y + ! use different non-unit increments and the values vary, so that a + ! swapped dimension or increment, a wrong leading dimension, a wrong operation + ! constant or a missed conjugation all change the result. The entries of y + ! between the strided ones must come back untouched. + + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(kind(HIPBLAS_OP_N)), parameter :: ops(3) = [HIPBLAS_OP_N, & + HIPBLAS_OP_T, HIPBLAS_OP_C] + character(len=1), parameter :: op_names(3) = ['N', 'T', 'C'] + integer, parameter :: m = 37, n = 23, pad = 3, incx = 2, incy = 3 + integer, parameter :: lda = m + pad + real(c_double), target :: alpha = 1.5_c_double, beta = 0.5_c_double + + real(c_double), allocatable, target :: hA(:,:), hx(:), hy(:) + real(c_double), allocatable :: hy0(:), opA(:,:), y_ref(:), mask_ref(:) + type(c_ptr) :: dA = c_null_ptr, dx = c_null_ptr, dy = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + integer(c_size_t), parameter :: elem = 8 + + integer :: it, i, j, lx, ly + real(c_double) :: error, error_max + + write(*,"(a)",advance="no") "-- Running test 'DGEMV transposes' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + call hipblasCheck(hipblasSetPointerMode(handle, HIPBLAS_POINTER_MODE_HOST)) + + error_max = 100 * epsilon(error) * (abs(alpha) * max(m, n) + abs(beta)) + + allocate(hA(lda, n)) + do j = 1, n + do i = 1, lda + hA(i,j) = fill(i, j, 1) + end do + end do + + do it = 1, 3 + ! op(A) is ly x lx + if (ops(it) == HIPBLAS_OP_N) then + lx = n; ly = m + else + lx = m; ly = n + end if + + allocate(hx(1 + (lx-1)*incx), hy(1 + (ly-1)*incy)) + do i = 1, size(hx) + hx(i) = fill(i, 1, 2) + end do + do i = 1, size(hy) + hy(i) = fill(i, 1, 3) + end do + hy0 = hy + + call hipCheck(hipMalloc(dA, size(hA, kind=c_size_t) * elem)) + call hipCheck(hipMalloc(dx, size(hx, kind=c_size_t) * elem)) + call hipCheck(hipMalloc(dy, size(hy, kind=c_size_t) * elem)) + call hipCheck(hipMemcpy(dA, c_loc(hA(1,1)), size(hA, kind=c_size_t) * elem, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dx, c_loc(hx(1)), size(hx, kind=c_size_t) * elem, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dy, c_loc(hy(1)), size(hy, kind=c_size_t) * elem, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasDgemv(handle, ops(it), m, n, c_loc(alpha), dA, lda, dx, incx, & + c_loc(beta), dy, incy)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(c_loc(hy(1)), dy, size(hy, kind=c_size_t) * elem, hipMemcpyDeviceToHost)) + + if (ops(it) == HIPBLAS_OP_N) then + opA = hA(1:m, 1:n) + else + opA = transpose(hA(1:m, 1:n)) + end if + y_ref = alpha * matmul(opA, hx(1::incx)) + beta * hy0(1::incy) + + error = maxval(abs(hy(1::incy) - y_ref)) + if (error > error_max) then + write(*,*) "FAILED! trans = ", op_names(it), " error = ", error + call exit(1) + end if + ! the strided writes must leave the entries in between alone + mask_ref = hy0 + mask_ref(1::incy) = hy(1::incy) + if (any(hy /= mask_ref)) then + write(*,*) "FAILED! trans = ", op_names(it), " wrote between the strided entries of y" + call exit(1) + end if + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dx)) + call hipCheck(hipFree(dy)) + deallocate(hx, hy, hy0, opA, y_ref, mask_ref) + end do + + deallocate(hA) + + call hipblasCheck(hipblasDestroy(handle)) + + write(*,*) "PASSED!" + +contains + + ! Varying small multiples of 1/8, so every product and sum below is exact. + real(c_double) function fill(i, j, s) + integer, intent(in) :: i, j, s + fill = real(mod(7*i + 3*j + s, 13) - 6, c_double) / 8 + end function fill + +end program hipblas_dgemv_trans_test diff --git a/bindings/fortran/hipblas/test/dgemv_trans.f08 b/bindings/fortran/hipblas/test/dgemv_trans.f08 new file mode 100644 index 000000000000..dd43fffaddf0 --- /dev/null +++ b/bindings/fortran/hipblas/test/dgemv_trans.f08 @@ -0,0 +1,135 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hipblas_dgemv_trans_test + + ! hipblasDgemv with every trans value. A is rectangular and padded (lda > m), x and y + ! use different non-unit increments and the values vary, so that a + ! swapped dimension or increment, a wrong leading dimension, a wrong operation + ! constant or a missed conjugation all change the result. The entries of y + ! between the strided ones must come back untouched. + + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(kind(HIPBLAS_OP_N)), parameter :: ops(3) = [HIPBLAS_OP_N, & + HIPBLAS_OP_T, HIPBLAS_OP_C] + character(len=1), parameter :: op_names(3) = ['N', 'T', 'C'] + integer, parameter :: m = 37, n = 23, pad = 3, incx = 2, incy = 3 + integer, parameter :: lda = m + pad + real(c_double), target :: alpha = 1.5_c_double, beta = 0.5_c_double + + real(c_double), allocatable :: hA(:,:), hx(:), hy(:) + real(c_double), allocatable :: hy0(:), opA(:,:), y_ref(:), mask_ref(:) + real(c_double), pointer, dimension(:,:) :: dA + real(c_double), pointer, dimension(:) :: dx, dy + type(c_ptr) :: handle = c_null_ptr + + integer :: it, i, j, lx, ly + real(c_double) :: error, error_max + + write(*,"(a)",advance="no") "-- Running test 'DGEMV transposes' (Fortran 2008 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + call hipblasCheck(hipblasSetPointerMode(handle, HIPBLAS_POINTER_MODE_HOST)) + + error_max = 100 * epsilon(error) * (abs(alpha) * max(m, n) + abs(beta)) + + allocate(hA(lda, n)) + do j = 1, n + do i = 1, lda + hA(i,j) = fill(i, j, 1) + end do + end do + + do it = 1, 3 + ! op(A) is ly x lx + if (ops(it) == HIPBLAS_OP_N) then + lx = n; ly = m + else + lx = m; ly = n + end if + + allocate(hx(1 + (lx-1)*incx), hy(1 + (ly-1)*incy)) + do i = 1, size(hx) + hx(i) = fill(i, 1, 2) + end do + do i = 1, size(hy) + hy(i) = fill(i, 1, 3) + end do + hy0 = hy + + call hipCheck(hipMalloc(dA, source=hA)) + call hipCheck(hipMalloc(dx, source=hx)) + call hipCheck(hipMalloc(dy, source=hy)) + + call hipblasCheck(hipblasDgemv(handle, ops(it), m, n, alpha, dA, lda, dx, incx, beta, dy, incy)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(hy, dy, hipMemcpyDeviceToHost)) + + if (ops(it) == HIPBLAS_OP_N) then + opA = hA(1:m, 1:n) + else + opA = transpose(hA(1:m, 1:n)) + end if + y_ref = alpha * matmul(opA, hx(1::incx)) + beta * hy0(1::incy) + + error = maxval(abs(hy(1::incy) - y_ref)) + if (error > error_max) then + write(*,*) "FAILED! trans = ", op_names(it), " error = ", error + call exit(1) + end if + ! the strided writes must leave the entries in between alone + mask_ref = hy0 + mask_ref(1::incy) = hy(1::incy) + if (any(hy /= mask_ref)) then + write(*,*) "FAILED! trans = ", op_names(it), " wrote between the strided entries of y" + call exit(1) + end if + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dx)) + call hipCheck(hipFree(dy)) + deallocate(hx, hy, hy0, opA, y_ref, mask_ref) + end do + + deallocate(hA) + + call hipblasCheck(hipblasDestroy(handle)) + + write(*,*) "PASSED!" + +contains + + ! Varying small multiples of 1/8, so every product and sum below is exact. + real(c_double) function fill(i, j, s) + integer, intent(in) :: i, j, s + fill = real(mod(7*i + 3*j + s, 13) - 6, c_double) / 8 + end function fill + +end program hipblas_dgemv_trans_test diff --git a/bindings/fortran/hipblas/test/dger.f03 b/bindings/fortran/hipblas/test/dger.f03 new file mode 100644 index 000000000000..b83afa519355 --- /dev/null +++ b/bindings/fortran/hipblas/test/dger.f03 @@ -0,0 +1,97 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2021 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_dger + + use iso_c_binding + use hip + use hipblas + + implicit none + + integer, parameter :: m = 100, n = 100 + double precision, target :: alpha = 1.1d0 + integer, parameter :: bytes_per_element = 8 !double precision + + double precision, allocatable, target, dimension(:) :: hx, hy, hA + + type(c_ptr) :: handle = c_null_ptr + type(c_ptr) :: dx = c_null_ptr, dy = c_null_ptr, dA = c_null_ptr + integer(c_size_t), parameter :: Nbytes = m*bytes_per_element + integer(c_size_t), parameter :: Nybytes = n*bytes_per_element + + integer :: i + double precision :: error + + write(*,"(a)",advance="no") "-- Running test 'dger' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + allocate(hx(m)) + allocate(hy(n)) + allocate(ha(m*n)) + + hx(:) = 1.d0 + hy(:) = 1.d0 + hA(:) = 1.d0 + + ! Allocate device memory + call hipCheck(hipMalloc(dx,Nbytes)) + call hipCheck(hipMalloc(dy,Nybytes)) + call hipCheck(hipMalloc(dA,Nbytes*n)) + + !Transfer from host to device + call hipCheck(hipMemcpy(dx, c_loc(hx(1)), Nbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dy, c_loc(hy(1)), Nybytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dA, c_loc(hA(1)), Nbytes*n, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasDger(handle,m,n,c_loc(alpha),dx,1,dy,1,dA,m)) + + call hipCheck(hipDeviceSynchronize()) + + ! Transfer data back to host memory + call hipCheck(hipMemcpy(c_loc(hA(1)), dA, Nbytes*n, hipMemcpyDeviceToHost)) + + do i = 1,m*n + error = abs(2.1d0 - hA(i)) + if( error > 10*epsilon(error) )then + write(*,*) "FAILED! Error bigger than max! Error = ", error, "hA(i) = ", hA(i) + call exit(1) + end if + end do + + call hipCheck(hipFree(dx)) + call hipCheck(hipFree(dy)) + call hipCheck(hipFree(dA)) + + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(hx) + deallocate(hy) + deallocate(hA) + + write(*,*) "PASSED!" + +end program hip_dger diff --git a/bindings/fortran/hipblas/test/dger.f08 b/bindings/fortran/hipblas/test/dger.f08 new file mode 100644 index 000000000000..53a683e1869d --- /dev/null +++ b/bindings/fortran/hipblas/test/dger.f08 @@ -0,0 +1,97 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_dger + + use iso_c_binding + use hip + use hipblas + + implicit none + + integer, parameter :: m = 100, n = 100 + double precision, target :: alpha = 1.1d0 + + double precision, allocatable, target, dimension(:) :: hx, hy + double precision, allocatable, target, dimension(:,:) :: hA + + type(c_ptr) :: handle = c_null_ptr + + double precision, pointer, dimension(:) :: dx, dy + double precision, pointer, dimension(:,:) :: dA + + integer :: i,j + double precision :: error + + write(*,"(a)",advance="no") "-- Running test 'dger' (Fortran 2008 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + allocate(hx(m)) + allocate(hy(n)) + allocate(ha(m,n)) + + hx(:) = 1.d0 + hy(:) = 1.d0 + hA(:,:) = 1.d0 + + ! Allocate device memory + call hipCheck(hipMalloc(dx,m)) + call hipCheck(hipMalloc(dy,n)) + call hipCheck(hipMalloc(dA,m,n)) + + !Transfer from host to device + call hipCheck(hipMemcpy(dx, hx, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dy, hy, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dA, hA, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasDger(handle,m,n,alpha,dx,1,dy,1,dA,m)) + + call hipCheck(hipDeviceSynchronize()) + + ! Transfer data back to host memory + call hipCheck(hipMemcpy(hA, dA, hipMemcpyDeviceToHost)) + + do j = 1,n + do i = 1,m + error = abs(2.1d0 - hA(i,j)) + if( error > 10*epsilon(error) )then + write(*,*) "FAILED! Error bigger than max! Error = ", error, "hA(i,j) = ", hA(i,j) + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(dx)) + call hipCheck(hipFree(dy)) + call hipCheck(hipFree(dA)) + + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(hx,hy,hA) + + write(*,*) "PASSED!" + +end program hip_dger diff --git a/bindings/fortran/hipblas/test/dger_devptr.f03 b/bindings/fortran/hipblas/test/dger_devptr.f03 new file mode 100644 index 000000000000..0058b4132f47 --- /dev/null +++ b/bindings/fortran/hipblas/test/dger_devptr.f03 @@ -0,0 +1,107 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2021 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_dger + + use iso_c_binding + use hip + use hipblas + + implicit none + + integer, parameter :: m = 100, n = 100 + double precision, target :: alpha = 1.1d0 + + ! Device-resident copies of the dual-mode scalars; the library reads them + ! from device memory because the handle is in device pointer mode. + type(c_ptr) :: d_alpha = c_null_ptr + integer, parameter :: bytes_per_element = 8 !double precision + + double precision, allocatable, target, dimension(:) :: hx, hy, hA + + type(c_ptr) :: handle = c_null_ptr + type(c_ptr) :: dx = c_null_ptr, dy = c_null_ptr, dA = c_null_ptr + integer(c_size_t), parameter :: Nbytes = m*bytes_per_element + integer(c_size_t), parameter :: Nybytes = n*bytes_per_element + + integer :: i + double precision :: error + + write(*,"(a)",advance="no") "-- Running test 'dger_devptr' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + ! Switch to device pointer mode and stage the scalars in device memory + call hipblasCheck(hipblasSetPointerMode(handle, HIPBLAS_POINTER_MODE_DEVICE)) + call hipCheck(hipMalloc(d_alpha, c_sizeof(alpha))) + call hipCheck(hipMemcpy(d_alpha, c_loc(alpha), c_sizeof(alpha), hipMemcpyHostToDevice)) + + allocate(hx(m)) + allocate(hy(n)) + allocate(ha(m*n)) + + hx(:) = 1.d0 + hy(:) = 1.d0 + hA(:) = 1.d0 + + ! Allocate device memory + call hipCheck(hipMalloc(dx,Nbytes)) + call hipCheck(hipMalloc(dy,Nybytes)) + call hipCheck(hipMalloc(dA,Nbytes*n)) + + !Transfer from host to device + call hipCheck(hipMemcpy(dx, c_loc(hx(1)), Nbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dy, c_loc(hy(1)), Nybytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dA, c_loc(hA(1)), Nbytes*n, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasDger(handle,m,n,d_alpha,dx,1,dy,1,dA,m)) + + call hipCheck(hipDeviceSynchronize()) + + ! Transfer data back to host memory + call hipCheck(hipMemcpy(c_loc(hA(1)), dA, Nbytes*n, hipMemcpyDeviceToHost)) + + do i = 1,m*n + error = abs(2.1d0 - hA(i)) + if( error > 10*epsilon(error) )then + write(*,*) "FAILED! Error bigger than max! Error = ", error, "hA(i) = ", hA(i) + call exit(1) + end if + end do + + call hipCheck(hipFree(dx)) + call hipCheck(hipFree(dy)) + call hipCheck(hipFree(dA)) + + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(hx) + deallocate(hy) + deallocate(hA) + + call hipCheck(hipFree(d_alpha)) + write(*,*) "PASSED!" + +end program hip_dger diff --git a/bindings/fortran/hipblas/test/dnrm2.f03 b/bindings/fortran/hipblas/test/dnrm2.f03 new file mode 100644 index 000000000000..09fcc1655a25 --- /dev/null +++ b/bindings/fortran/hipblas/test/dnrm2.f03 @@ -0,0 +1,72 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_dnrm2 + use iso_c_binding + use hip + use hipblas + + implicit none + + ! nrm2(x) with x = 1 over n elements, so the result is sqrt(n). + integer, parameter :: n = 1024 + integer(c_size_t) :: Nbytes + real(c_double), allocatable, target, dimension(:) :: hx + real(c_double), target :: res + real(c_double) :: res_exact, error + real(c_double), parameter :: error_max = 10*epsilon(error) + type(c_ptr) :: dx = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + + write(*,"(a)",advance="no") "-- Running test 'dnrm2' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + allocate(hx(n)) + hx = 1.0 + res_exact = sqrt(real(n, kind=kind(res_exact))) + + Nbytes = int(n, c_size_t) * 8 + call hipCheck(hipMalloc(dx, Nbytes)) + call hipCheck(hipMemcpy(dx, c_loc(hx(1)), Nbytes, hipMemcpyHostToDevice)) + + res = 0.0 + call hipblasCheck(hipblasDnrm2(handle, n, dx, 1, c_loc(res))) + call hipCheck(hipDeviceSynchronize()) + + error = abs((res_exact - res) / res_exact) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " result = ", res + call exit(1) + end if + + call hipCheck(hipFree(dx)) + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(hx) + + write(*,*) "PASSED!" + +end program hip_dnrm2 diff --git a/bindings/fortran/hipblas/test/dnrm2.f08 b/bindings/fortran/hipblas/test/dnrm2.f08 new file mode 100644 index 000000000000..3bfab03643c4 --- /dev/null +++ b/bindings/fortran/hipblas/test/dnrm2.f08 @@ -0,0 +1,70 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_dnrm2 + use iso_c_binding + use hip + use hipblas + + implicit none + + ! nrm2(x) with x = 1 over n elements, so the result is sqrt(n). + integer, parameter :: n = 1024 + real(c_double), allocatable, dimension(:) :: hx + real(c_double), target :: res + real(c_double) :: res_exact, error + real(c_double), parameter :: error_max = 10*epsilon(error) + real(c_double), pointer, dimension(:) :: dx + type(c_ptr) :: handle = c_null_ptr + + write(*,"(a)",advance="no") "-- Running test 'dnrm2' (Fortran 2008 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + allocate(hx(n)) + hx = 1.0 + res_exact = sqrt(real(n, kind=kind(res_exact))) + + call hipCheck(hipMalloc(dx, shape(hx))) + call hipCheck(hipMemcpy(dx, hx, hipMemcpyHostToDevice)) + + res = 0.0 + call hipblasCheck(hipblasDnrm2(handle, n, dx, 1, c_loc(res))) + call hipCheck(hipDeviceSynchronize()) + + error = abs((res_exact - res) / res_exact) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " result = ", res + call exit(1) + end if + + call hipCheck(hipFree(dx)) + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(hx) + + write(*,*) "PASSED!" + +end program hip_dnrm2 diff --git a/bindings/fortran/hipblas/test/dscal.f03 b/bindings/fortran/hipblas/test/dscal.f03 new file mode 100644 index 000000000000..d2bb226ef5d8 --- /dev/null +++ b/bindings/fortran/hipblas/test/dscal.f03 @@ -0,0 +1,92 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2021-2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_dscal + + use iso_c_binding + use hip + use hipblas + + implicit none + + integer, parameter :: N = 10240; + integer, parameter :: bytes_per_element = 8 !double precision + integer(c_size_t), parameter :: Nbytes = N*bytes_per_element + + double precision, target :: alpha = 10.d0 + + type(c_ptr) :: dx = c_null_ptr + + double precision,allocatable,target,dimension(:) :: hx + double precision,allocatable,dimension(:) ::hx_scaled + + double precision :: error + double precision, parameter :: error_max = 10*epsilon(error_max) + + type(c_ptr) :: hip_blas_handle = c_null_ptr + + integer :: i + + write(*,"(a)",advance="no") "-- Running test 'dscal' (Fortran 2003 interfaces) - " + allocate(hx(N)) + allocate(hx_scaled(N)) + + hx(:) = 10.d0 + + hx_scaled = alpha*hx + + call hipblasCheck(hipblasCreate(hip_blas_handle)) + + call hipCheck(hipMalloc(dx,Nbytes)) + + ! Transfer data from host to device memory + call hipCheck(hipMemcpy(dx, c_loc(hx(1)), Nbytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasDscal(hip_blas_handle, N, c_loc(alpha), dx, 1)) + + call hipCheck(hipDeviceSynchronize()) + + ! Transfer data back to host memory + call hipCheck(hipMemcpy(c_loc(hx(1)), dx, Nbytes, hipMemcpyDeviceToHost)) + + call hipCheck(hipFree(dx)) + + ! Verification + do i = 1,N + error = abs(hx(i) - hx_scaled(i) ) + if( error .gt. error_max ) then + write(*,*) "FAILED! Error bigger than max! Error = ", error, " hx(i) = ", hx(i) + call exit(1) + endif + end do + + call hipblasCheck(hipblasDestroy(hip_blas_handle)) + + deallocate(hx_scaled) + deallocate(hx) + + write(*,*) "PASSED!" + +end program hip_dscal diff --git a/bindings/fortran/hipblas/test/dscal.f08 b/bindings/fortran/hipblas/test/dscal.f08 new file mode 100644 index 000000000000..aafd9e770e79 --- /dev/null +++ b/bindings/fortran/hipblas/test/dscal.f08 @@ -0,0 +1,89 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_dscal + + use iso_c_binding + use hip + use hipblas + + implicit none + + integer, parameter :: N = 10240; + + double precision, target :: alpha = 10.d0 + + double precision,pointer,dimension(:) :: dx + + double precision,allocatable,target,dimension(:) :: hx + double precision,allocatable,dimension(:) ::hx_scaled + + double precision :: error + double precision, parameter :: error_max = 10*epsilon(error_max) + + type(c_ptr) :: hip_blas_handle = c_null_ptr + + integer :: i + + write(*,"(a)",advance="no") "-- Running test 'dscal' (Fortran 2008 interfaces) - " + allocate(hx(N)) + allocate(hx_scaled(N)) + + hx(:) = 10.d0 + + hx_scaled = alpha*hx + + call hipblasCheck(hipblasCreate(hip_blas_handle)) + + call hipCheck(hipMalloc(dx,shape(hx))) + + ! Transfer data from host to device memory + call hipCheck(hipMemcpy(dx, hx, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasDscal(hip_blas_handle, N, alpha, dx, 1)) + + call hipCheck(hipDeviceSynchronize()) + + ! Transfer data back to host memory + call hipCheck(hipMemcpy(hx, dx, hipMemcpyDeviceToHost)) + + call hipCheck(hipFree(dx)) + + ! Verification + do i = 1,N + error = abs(hx(i) - hx_scaled(i) ) + if( error .gt. error_max ) then + write(*,*) "FAILED! Error bigger than max! Error = ", error, " hx(i) = ", hx(i) + call exit(1) + endif + end do + + call hipblasCheck(hipblasDestroy(hip_blas_handle)) + + deallocate(hx_scaled,hx) + + write(*,*) "PASSED!" + +end program hip_dscal diff --git a/bindings/fortran/hipblas/test/dscal_devptr.f03 b/bindings/fortran/hipblas/test/dscal_devptr.f03 new file mode 100644 index 000000000000..67caf13d6eb0 --- /dev/null +++ b/bindings/fortran/hipblas/test/dscal_devptr.f03 @@ -0,0 +1,102 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2021-2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_dscal + + use iso_c_binding + use hip + use hipblas + + implicit none + + integer, parameter :: N = 10240; + integer, parameter :: bytes_per_element = 8 !double precision + integer(c_size_t), parameter :: Nbytes = N*bytes_per_element + + double precision, target :: alpha = 10.d0 + + ! Device-resident copies of the dual-mode scalars; the library reads them + ! from device memory because the handle is in device pointer mode. + type(c_ptr) :: d_alpha = c_null_ptr + + type(c_ptr) :: dx = c_null_ptr + + double precision,allocatable,target,dimension(:) :: hx + double precision,allocatable,dimension(:) ::hx_scaled + + double precision :: error + double precision, parameter :: error_max = 10*epsilon(error_max) + + type(c_ptr) :: hip_blas_handle = c_null_ptr + + integer :: i + + write(*,"(a)",advance="no") "-- Running test 'dscal_devptr' (Fortran 2003 interfaces) - " + allocate(hx(N)) + allocate(hx_scaled(N)) + + hx(:) = 10.d0 + + hx_scaled = alpha*hx + + call hipblasCheck(hipblasCreate(hip_blas_handle)) + + ! Switch to device pointer mode and stage the scalars in device memory + call hipblasCheck(hipblasSetPointerMode(hip_blas_handle, HIPBLAS_POINTER_MODE_DEVICE)) + call hipCheck(hipMalloc(d_alpha, c_sizeof(alpha))) + call hipCheck(hipMemcpy(d_alpha, c_loc(alpha), c_sizeof(alpha), hipMemcpyHostToDevice)) + + call hipCheck(hipMalloc(dx,Nbytes)) + + ! Transfer data from host to device memory + call hipCheck(hipMemcpy(dx, c_loc(hx(1)), Nbytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasDscal(hip_blas_handle, N, d_alpha, dx, 1)) + + call hipCheck(hipDeviceSynchronize()) + + ! Transfer data back to host memory + call hipCheck(hipMemcpy(c_loc(hx(1)), dx, Nbytes, hipMemcpyDeviceToHost)) + + call hipCheck(hipFree(dx)) + + ! Verification + do i = 1,N + error = abs(hx(i) - hx_scaled(i) ) + if( error .gt. error_max ) then + write(*,*) "FAILED! Error bigger than max! Error = ", error, " hx(i) = ", hx(i) + call exit(1) + endif + end do + + call hipblasCheck(hipblasDestroy(hip_blas_handle)) + + deallocate(hx_scaled) + deallocate(hx) + + call hipCheck(hipFree(d_alpha)) + write(*,*) "PASSED!" + +end program hip_dscal diff --git a/bindings/fortran/hipblas/test/dsymm.f03 b/bindings/fortran/hipblas/test/dsymm.f03 new file mode 100644 index 000000000000..7611f2dcefe2 --- /dev/null +++ b/bindings/fortran/hipblas/test/dsymm.f03 @@ -0,0 +1,95 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_dsymm + use iso_c_binding + use hip + use hipblas + + implicit none + + ! C := alpha*A*B + beta*C with A symmetric (upper triangle referenced) on the left. + ! B is m x n with m /= n and A(2,1) holds junk, so swapping A and B, the side + ! or the triangle changes the result. + integer, parameter :: m = 2, n = 3 + integer(c_size_t) :: Nbytes + real(c_double), target :: alpha = 1.0, beta = 0.0 + + real(c_double), target :: hA(m,m) = reshape([1.0, 7.0, 2.0, 3.0], [m,m]) + real(c_double), target :: hB(m,n) = reshape([1.0, 4.0, 2.0, 5.0, 3.0, -6.0], [m,n]) + real(c_double), target :: hC(m,n) + real(c_double) :: expected(m,n), Aref(m,m) + type(c_ptr) :: dA = c_null_ptr, dB = c_null_ptr, dC = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + integer :: i, j + real(c_double) :: error + real(c_double), parameter :: error_max = 10*epsilon(error) + + write(*,"(a)",advance="no") "-- Running test 'dsymm' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + hC = 0.0 + + ! Host reference built from the upper triangle only, A(2,1) is junk + do j = 1, m + do i = 1, m + Aref(i,j) = hA(min(i,j), max(i,j)) + end do + end do + expected = alpha*matmul(Aref, hB) + + Nbytes = int(m*m, c_size_t) * 8 + call hipCheck(hipMalloc(dA, Nbytes)) + call hipCheck(hipMemcpy(dA, c_loc(hA(1,1)), Nbytes, hipMemcpyHostToDevice)) + Nbytes = int(m*n, c_size_t) * 8 + call hipCheck(hipMalloc(dB, Nbytes)) + call hipCheck(hipMemcpy(dB, c_loc(hB(1,1)), Nbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMalloc(dC, Nbytes)) + call hipCheck(hipMemcpy(dC, c_loc(hC(1,1)), Nbytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasDsymm(handle, HIPBLAS_SIDE_LEFT, HIPBLAS_FILL_MODE_UPPER, m, n, & + c_loc(alpha), dA, m, dB, m, c_loc(beta), dC, m)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(c_loc(hC(1,1)), dC, Nbytes, hipMemcpyDeviceToHost)) + + do j = 1, n + do i = 1, m + error = abs(expected(i,j) - hC(i,j)) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " at ", i, j + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dB)) + call hipCheck(hipFree(dC)) + call hipblasCheck(hipblasDestroy(handle)) + + write(*,*) "PASSED!" + +end program hip_dsymm diff --git a/bindings/fortran/hipblas/test/dsymm.f08 b/bindings/fortran/hipblas/test/dsymm.f08 new file mode 100644 index 000000000000..9f8d5f8a1c8a --- /dev/null +++ b/bindings/fortran/hipblas/test/dsymm.f08 @@ -0,0 +1,92 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_dsymm + use iso_c_binding + use hip + use hipblas + + implicit none + + ! C := alpha*A*B + beta*C with A symmetric (upper triangle referenced) on the left. + ! B is m x n with m /= n and A(2,1) holds junk, so swapping A and B, the side + ! or the triangle changes the result. + integer, parameter :: m = 2, n = 3 + real(c_double), target :: alpha = 1.0, beta = 0.0 + + real(c_double) :: hA(m,m) = reshape([1.0, 7.0, 2.0, 3.0], [m,m]) + real(c_double) :: hB(m,n) = reshape([1.0, 4.0, 2.0, 5.0, 3.0, -6.0], [m,n]) + real(c_double) :: hC(m,n) + real(c_double) :: expected(m,n), Aref(m,m) + real(c_double), pointer, dimension(:,:) :: dA, dB, dC + type(c_ptr) :: handle = c_null_ptr + integer :: i, j + real(c_double) :: error + real(c_double), parameter :: error_max = 10*epsilon(error) + + write(*,"(a)",advance="no") "-- Running test 'dsymm' (Fortran 2008 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + hC = 0.0 + + ! Host reference built from the upper triangle only, A(2,1) is junk + do j = 1, m + do i = 1, m + Aref(i,j) = hA(min(i,j), max(i,j)) + end do + end do + expected = alpha*matmul(Aref, hB) + + call hipCheck(hipMalloc(dA, shape(hA))) + call hipCheck(hipMemcpy(dA, hA, hipMemcpyHostToDevice)) + call hipCheck(hipMalloc(dB, shape(hB))) + call hipCheck(hipMemcpy(dB, hB, hipMemcpyHostToDevice)) + call hipCheck(hipMalloc(dC, shape(hC))) + call hipCheck(hipMemcpy(dC, hC, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasDsymm(handle, HIPBLAS_SIDE_LEFT, HIPBLAS_FILL_MODE_UPPER, m, n, & + alpha, dA, size(dA,1), dB, size(dB,1), beta, dC, size(dC,1))) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(hC, dC, hipMemcpyDeviceToHost)) + + do j = 1, n + do i = 1, m + error = abs(expected(i,j) - hC(i,j)) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " at ", i, j + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dB)) + call hipCheck(hipFree(dC)) + call hipblasCheck(hipblasDestroy(handle)) + + write(*,*) "PASSED!" + +end program hip_dsymm diff --git a/bindings/fortran/hipblas/test/dsymm_devptr.f03 b/bindings/fortran/hipblas/test/dsymm_devptr.f03 new file mode 100644 index 000000000000..0adde2871f67 --- /dev/null +++ b/bindings/fortran/hipblas/test/dsymm_devptr.f03 @@ -0,0 +1,109 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_dsymm + use iso_c_binding + use hip + use hipblas + + implicit none + + ! C := alpha*A*B + beta*C with A symmetric (upper triangle referenced) on the left. + ! B is m x n with m /= n and A(2,1) holds junk, so swapping A and B, the side + ! or the triangle changes the result. + integer, parameter :: m = 2, n = 3 + integer(c_size_t) :: Nbytes + real(c_double), target :: alpha = 1.0, beta = 0.0 + + ! Device-resident copies of the dual-mode scalars; the library reads them + ! from device memory because the handle is in device pointer mode. + type(c_ptr) :: d_alpha = c_null_ptr + type(c_ptr) :: d_beta = c_null_ptr + + real(c_double), target :: hA(m,m) = reshape([1.0, 7.0, 2.0, 3.0], [m,m]) + real(c_double), target :: hB(m,n) = reshape([1.0, 4.0, 2.0, 5.0, 3.0, -6.0], [m,n]) + real(c_double), target :: hC(m,n) + real(c_double) :: expected(m,n), Aref(m,m) + type(c_ptr) :: dA = c_null_ptr, dB = c_null_ptr, dC = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + integer :: i, j + real(c_double) :: error + real(c_double), parameter :: error_max = 10*epsilon(error) + + write(*,"(a)",advance="no") "-- Running test 'dsymm_devptr' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + ! Switch to device pointer mode and stage the scalars in device memory + call hipblasCheck(hipblasSetPointerMode(handle, HIPBLAS_POINTER_MODE_DEVICE)) + call hipCheck(hipMalloc(d_alpha, c_sizeof(alpha))) + call hipCheck(hipMalloc(d_beta, c_sizeof(beta))) + call hipCheck(hipMemcpy(d_alpha, c_loc(alpha), c_sizeof(alpha), hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(d_beta, c_loc(beta), c_sizeof(beta), hipMemcpyHostToDevice)) + + hC = 0.0 + + ! Host reference built from the upper triangle only, A(2,1) is junk + do j = 1, m + do i = 1, m + Aref(i,j) = hA(min(i,j), max(i,j)) + end do + end do + expected = alpha*matmul(Aref, hB) + + Nbytes = int(m*m, c_size_t) * 8 + call hipCheck(hipMalloc(dA, Nbytes)) + call hipCheck(hipMemcpy(dA, c_loc(hA(1,1)), Nbytes, hipMemcpyHostToDevice)) + Nbytes = int(m*n, c_size_t) * 8 + call hipCheck(hipMalloc(dB, Nbytes)) + call hipCheck(hipMemcpy(dB, c_loc(hB(1,1)), Nbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMalloc(dC, Nbytes)) + call hipCheck(hipMemcpy(dC, c_loc(hC(1,1)), Nbytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasDsymm(handle, HIPBLAS_SIDE_LEFT, HIPBLAS_FILL_MODE_UPPER, m, n, & + d_alpha, dA, m, dB, m, d_beta, dC, m)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(c_loc(hC(1,1)), dC, Nbytes, hipMemcpyDeviceToHost)) + + do j = 1, n + do i = 1, m + error = abs(expected(i,j) - hC(i,j)) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " at ", i, j + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dB)) + call hipCheck(hipFree(dC)) + call hipblasCheck(hipblasDestroy(handle)) + + call hipCheck(hipFree(d_alpha)) + call hipCheck(hipFree(d_beta)) + write(*,*) "PASSED!" + +end program hip_dsymm diff --git a/bindings/fortran/hipblas/test/dsyrk.f03 b/bindings/fortran/hipblas/test/dsyrk.f03 new file mode 100644 index 000000000000..6fa99a704fc4 --- /dev/null +++ b/bindings/fortran/hipblas/test/dsyrk.f03 @@ -0,0 +1,81 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_dsyrk + use iso_c_binding + use hip + use hipblas + + implicit none + + ! C := alpha*A*A**T + beta*C, upper triangle. A = [1 0; 2 3] gives + ! A*A**T = [1 2; 2 13], so the referenced upper triangle is 1, 2, 13. + integer, parameter :: ld = 2 + integer(c_size_t) :: Nbytes + real(c_double), target :: alpha = 1.0, beta = 0.0 + + real(c_double), target :: hA(ld,ld) = reshape([1.0, 2.0, 0.0, 3.0], [ld,ld]) + real(c_double), target :: hC(ld,ld) + real(c_double) :: expected(ld,ld) = reshape([1.0, 0.0, 2.0, 13.0], [ld,ld]) + type(c_ptr) :: dA = c_null_ptr, dC = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + integer :: i, j + real(c_double) :: error + real(c_double), parameter :: error_max = 10*epsilon(error) + + write(*,"(a)",advance="no") "-- Running test 'dsyrk' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + hC = 0.0 + + Nbytes = int(ld*ld, c_size_t) * 8 + call hipCheck(hipMalloc(dA, Nbytes)) + call hipCheck(hipMemcpy(dA, c_loc(hA(1,1)), Nbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMalloc(dC, Nbytes)) + call hipCheck(hipMemcpy(dC, c_loc(hC(1,1)), Nbytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasDsyrk(handle, HIPBLAS_FILL_MODE_UPPER, HIPBLAS_OP_N, ld, ld, & + c_loc(alpha), dA, ld, c_loc(beta), dC, ld)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(c_loc(hC(1,1)), dC, Nbytes, hipMemcpyDeviceToHost)) + + do j = 1, ld + do i = 1, j + error = abs(expected(i,j) - hC(i,j)) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " at ", i, j + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dC)) + call hipblasCheck(hipblasDestroy(handle)) + + write(*,*) "PASSED!" + +end program hip_dsyrk diff --git a/bindings/fortran/hipblas/test/dsyrk.f08 b/bindings/fortran/hipblas/test/dsyrk.f08 new file mode 100644 index 000000000000..c26fa134a6dc --- /dev/null +++ b/bindings/fortran/hipblas/test/dsyrk.f08 @@ -0,0 +1,79 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_dsyrk + use iso_c_binding + use hip + use hipblas + + implicit none + + ! C := alpha*A*A**T + beta*C, upper triangle. A = [1 0; 2 3] gives + ! A*A**T = [1 2; 2 13], so the referenced upper triangle is 1, 2, 13. + integer, parameter :: ld = 2 + real(c_double), target :: alpha = 1.0, beta = 0.0 + + real(c_double) :: hA(ld,ld) = reshape([1.0, 2.0, 0.0, 3.0], [ld,ld]) + real(c_double) :: hC(ld,ld) + real(c_double) :: expected(ld,ld) = reshape([1.0, 0.0, 2.0, 13.0], [ld,ld]) + real(c_double), pointer, dimension(:,:) :: dA, dC + type(c_ptr) :: handle = c_null_ptr + integer :: i, j + real(c_double) :: error + real(c_double), parameter :: error_max = 10*epsilon(error) + + write(*,"(a)",advance="no") "-- Running test 'dsyrk' (Fortran 2008 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + hC = 0.0 + + call hipCheck(hipMalloc(dA, shape(hA))) + call hipCheck(hipMemcpy(dA, hA, hipMemcpyHostToDevice)) + call hipCheck(hipMalloc(dC, shape(hC))) + call hipCheck(hipMemcpy(dC, hC, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasDsyrk(handle, HIPBLAS_FILL_MODE_UPPER, HIPBLAS_OP_N, ld, ld, & + alpha, dA, size(dA,1), beta, dC, size(dC,1))) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(hC, dC, hipMemcpyDeviceToHost)) + + do j = 1, ld + do i = 1, j + error = abs(expected(i,j) - hC(i,j)) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " at ", i, j + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dC)) + call hipblasCheck(hipblasDestroy(handle)) + + write(*,*) "PASSED!" + +end program hip_dsyrk diff --git a/bindings/fortran/hipblas/test/dsyrk_devptr.f03 b/bindings/fortran/hipblas/test/dsyrk_devptr.f03 new file mode 100644 index 000000000000..83b15f1c3afc --- /dev/null +++ b/bindings/fortran/hipblas/test/dsyrk_devptr.f03 @@ -0,0 +1,95 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_dsyrk + use iso_c_binding + use hip + use hipblas + + implicit none + + ! C := alpha*A*A**T + beta*C, upper triangle. A = [1 0; 2 3] gives + ! A*A**T = [1 2; 2 13], so the referenced upper triangle is 1, 2, 13. + integer, parameter :: ld = 2 + integer(c_size_t) :: Nbytes + real(c_double), target :: alpha = 1.0, beta = 0.0 + + ! Device-resident copies of the dual-mode scalars; the library reads them + ! from device memory because the handle is in device pointer mode. + type(c_ptr) :: d_alpha = c_null_ptr + type(c_ptr) :: d_beta = c_null_ptr + + real(c_double), target :: hA(ld,ld) = reshape([1.0, 2.0, 0.0, 3.0], [ld,ld]) + real(c_double), target :: hC(ld,ld) + real(c_double) :: expected(ld,ld) = reshape([1.0, 0.0, 2.0, 13.0], [ld,ld]) + type(c_ptr) :: dA = c_null_ptr, dC = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + integer :: i, j + real(c_double) :: error + real(c_double), parameter :: error_max = 10*epsilon(error) + + write(*,"(a)",advance="no") "-- Running test 'dsyrk_devptr' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + ! Switch to device pointer mode and stage the scalars in device memory + call hipblasCheck(hipblasSetPointerMode(handle, HIPBLAS_POINTER_MODE_DEVICE)) + call hipCheck(hipMalloc(d_alpha, c_sizeof(alpha))) + call hipCheck(hipMalloc(d_beta, c_sizeof(beta))) + call hipCheck(hipMemcpy(d_alpha, c_loc(alpha), c_sizeof(alpha), hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(d_beta, c_loc(beta), c_sizeof(beta), hipMemcpyHostToDevice)) + + hC = 0.0 + + Nbytes = int(ld*ld, c_size_t) * 8 + call hipCheck(hipMalloc(dA, Nbytes)) + call hipCheck(hipMemcpy(dA, c_loc(hA(1,1)), Nbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMalloc(dC, Nbytes)) + call hipCheck(hipMemcpy(dC, c_loc(hC(1,1)), Nbytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasDsyrk(handle, HIPBLAS_FILL_MODE_UPPER, HIPBLAS_OP_N, ld, ld, & + d_alpha, dA, ld, d_beta, dC, ld)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(c_loc(hC(1,1)), dC, Nbytes, hipMemcpyDeviceToHost)) + + do j = 1, ld + do i = 1, j + error = abs(expected(i,j) - hC(i,j)) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " at ", i, j + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dC)) + call hipblasCheck(hipblasDestroy(handle)) + + call hipCheck(hipFree(d_alpha)) + call hipCheck(hipFree(d_beta)) + write(*,*) "PASSED!" + +end program hip_dsyrk diff --git a/bindings/fortran/hipblas/test/dtrmm.f03 b/bindings/fortran/hipblas/test/dtrmm.f03 new file mode 100644 index 000000000000..9a2cc7c9212c --- /dev/null +++ b/bindings/fortran/hipblas/test/dtrmm.f03 @@ -0,0 +1,96 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_dtrmm + use iso_c_binding + use hip + use hipblas + + implicit none + + ! C := alpha*op(A)*B with A upper triangular on the left (out-of-place trmm). + ! B is m x n with m /= n and A(2,1) holds junk, so swapping A and B, the side + ! or the triangle changes the result. + integer, parameter :: m = 2, n = 3 + integer(c_size_t) :: Nbytes + real(c_double), target :: alpha = 1.0 + + real(c_double), target :: hA(m,m) = reshape([1.0, 7.0, 2.0, 3.0], [m,m]) + real(c_double), target :: hB(m,n) = reshape([1.0, 4.0, 2.0, 5.0, 3.0, -6.0], [m,n]) + real(c_double), target :: hC(m,n) + real(c_double) :: expected(m,n), Aref(m,m) + type(c_ptr) :: dA = c_null_ptr, dB = c_null_ptr, dC = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + integer :: i, j + real(c_double) :: error + real(c_double), parameter :: error_max = 10*epsilon(error) + + write(*,"(a)",advance="no") "-- Running test 'dtrmm' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + hC = 0.0 + + ! Host reference built from the upper triangle only, A(2,1) is junk + Aref = 0.0 + do j = 1, m + do i = 1, j + Aref(i,j) = hA(i,j) + end do + end do + expected = alpha*matmul(Aref, hB) + + Nbytes = int(m*m, c_size_t) * 8 + call hipCheck(hipMalloc(dA, Nbytes)) + call hipCheck(hipMemcpy(dA, c_loc(hA(1,1)), Nbytes, hipMemcpyHostToDevice)) + Nbytes = int(m*n, c_size_t) * 8 + call hipCheck(hipMalloc(dB, Nbytes)) + call hipCheck(hipMemcpy(dB, c_loc(hB(1,1)), Nbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMalloc(dC, Nbytes)) + call hipCheck(hipMemcpy(dC, c_loc(hC(1,1)), Nbytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasDtrmm(handle, HIPBLAS_SIDE_LEFT, HIPBLAS_FILL_MODE_UPPER, HIPBLAS_OP_N, & + HIPBLAS_DIAG_NON_UNIT, m, n, c_loc(alpha), dA, m, dB, m, dC, m)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(c_loc(hC(1,1)), dC, Nbytes, hipMemcpyDeviceToHost)) + + do j = 1, n + do i = 1, m + error = abs(expected(i,j) - hC(i,j)) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " at ", i, j + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dB)) + call hipCheck(hipFree(dC)) + call hipblasCheck(hipblasDestroy(handle)) + + write(*,*) "PASSED!" + +end program hip_dtrmm diff --git a/bindings/fortran/hipblas/test/dtrmm.f08 b/bindings/fortran/hipblas/test/dtrmm.f08 new file mode 100644 index 000000000000..e5d4beaf9726 --- /dev/null +++ b/bindings/fortran/hipblas/test/dtrmm.f08 @@ -0,0 +1,93 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_dtrmm + use iso_c_binding + use hip + use hipblas + + implicit none + + ! C := alpha*op(A)*B with A upper triangular on the left (out-of-place trmm). + ! B is m x n with m /= n and A(2,1) holds junk, so swapping A and B, the side + ! or the triangle changes the result. + integer, parameter :: m = 2, n = 3 + real(c_double), target :: alpha = 1.0 + + real(c_double) :: hA(m,m) = reshape([1.0, 7.0, 2.0, 3.0], [m,m]) + real(c_double) :: hB(m,n) = reshape([1.0, 4.0, 2.0, 5.0, 3.0, -6.0], [m,n]) + real(c_double) :: hC(m,n) + real(c_double) :: expected(m,n), Aref(m,m) + real(c_double), pointer, dimension(:,:) :: dA, dB, dC + type(c_ptr) :: handle = c_null_ptr + integer :: i, j + real(c_double) :: error + real(c_double), parameter :: error_max = 10*epsilon(error) + + write(*,"(a)",advance="no") "-- Running test 'dtrmm' (Fortran 2008 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + hC = 0.0 + + ! Host reference built from the upper triangle only, A(2,1) is junk + Aref = 0.0 + do j = 1, m + do i = 1, j + Aref(i,j) = hA(i,j) + end do + end do + expected = alpha*matmul(Aref, hB) + + call hipCheck(hipMalloc(dA, shape(hA))) + call hipCheck(hipMemcpy(dA, hA, hipMemcpyHostToDevice)) + call hipCheck(hipMalloc(dB, shape(hB))) + call hipCheck(hipMemcpy(dB, hB, hipMemcpyHostToDevice)) + call hipCheck(hipMalloc(dC, shape(hC))) + call hipCheck(hipMemcpy(dC, hC, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasDtrmm(handle, HIPBLAS_SIDE_LEFT, HIPBLAS_FILL_MODE_UPPER, HIPBLAS_OP_N, & + HIPBLAS_DIAG_NON_UNIT, m, n, alpha, dA, size(dA,1), dB, size(dB,1), dC, size(dC,1))) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(hC, dC, hipMemcpyDeviceToHost)) + + do j = 1, n + do i = 1, m + error = abs(expected(i,j) - hC(i,j)) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " at ", i, j + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dB)) + call hipCheck(hipFree(dC)) + call hipblasCheck(hipblasDestroy(handle)) + + write(*,*) "PASSED!" + +end program hip_dtrmm diff --git a/bindings/fortran/hipblas/test/dtrmm_devptr.f03 b/bindings/fortran/hipblas/test/dtrmm_devptr.f03 new file mode 100644 index 000000000000..2b4695c6462e --- /dev/null +++ b/bindings/fortran/hipblas/test/dtrmm_devptr.f03 @@ -0,0 +1,106 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_dtrmm + use iso_c_binding + use hip + use hipblas + + implicit none + + ! C := alpha*op(A)*B with A upper triangular on the left (out-of-place trmm). + ! B is m x n with m /= n and A(2,1) holds junk, so swapping A and B, the side + ! or the triangle changes the result. + integer, parameter :: m = 2, n = 3 + integer(c_size_t) :: Nbytes + real(c_double), target :: alpha = 1.0 + + ! Device-resident copies of the dual-mode scalars; the library reads them + ! from device memory because the handle is in device pointer mode. + type(c_ptr) :: d_alpha = c_null_ptr + + real(c_double), target :: hA(m,m) = reshape([1.0, 7.0, 2.0, 3.0], [m,m]) + real(c_double), target :: hB(m,n) = reshape([1.0, 4.0, 2.0, 5.0, 3.0, -6.0], [m,n]) + real(c_double), target :: hC(m,n) + real(c_double) :: expected(m,n), Aref(m,m) + type(c_ptr) :: dA = c_null_ptr, dB = c_null_ptr, dC = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + integer :: i, j + real(c_double) :: error + real(c_double), parameter :: error_max = 10*epsilon(error) + + write(*,"(a)",advance="no") "-- Running test 'dtrmm_devptr' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + ! Switch to device pointer mode and stage the scalars in device memory + call hipblasCheck(hipblasSetPointerMode(handle, HIPBLAS_POINTER_MODE_DEVICE)) + call hipCheck(hipMalloc(d_alpha, c_sizeof(alpha))) + call hipCheck(hipMemcpy(d_alpha, c_loc(alpha), c_sizeof(alpha), hipMemcpyHostToDevice)) + + hC = 0.0 + + ! Host reference built from the upper triangle only, A(2,1) is junk + Aref = 0.0 + do j = 1, m + do i = 1, j + Aref(i,j) = hA(i,j) + end do + end do + expected = alpha*matmul(Aref, hB) + + Nbytes = int(m*m, c_size_t) * 8 + call hipCheck(hipMalloc(dA, Nbytes)) + call hipCheck(hipMemcpy(dA, c_loc(hA(1,1)), Nbytes, hipMemcpyHostToDevice)) + Nbytes = int(m*n, c_size_t) * 8 + call hipCheck(hipMalloc(dB, Nbytes)) + call hipCheck(hipMemcpy(dB, c_loc(hB(1,1)), Nbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMalloc(dC, Nbytes)) + call hipCheck(hipMemcpy(dC, c_loc(hC(1,1)), Nbytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasDtrmm(handle, HIPBLAS_SIDE_LEFT, HIPBLAS_FILL_MODE_UPPER, HIPBLAS_OP_N, & + HIPBLAS_DIAG_NON_UNIT, m, n, d_alpha, dA, m, dB, m, dC, m)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(c_loc(hC(1,1)), dC, Nbytes, hipMemcpyDeviceToHost)) + + do j = 1, n + do i = 1, m + error = abs(expected(i,j) - hC(i,j)) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " at ", i, j + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dB)) + call hipCheck(hipFree(dC)) + call hipblasCheck(hipblasDestroy(handle)) + + call hipCheck(hipFree(d_alpha)) + write(*,*) "PASSED!" + +end program hip_dtrmm diff --git a/bindings/fortran/hipblas/test/dtrsm.f03 b/bindings/fortran/hipblas/test/dtrsm.f03 new file mode 100644 index 000000000000..5ea9c1367d2d --- /dev/null +++ b/bindings/fortran/hipblas/test/dtrsm.f03 @@ -0,0 +1,92 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_dtrsm + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(kind(HIPBLAS_SIDE_LEFT)), parameter :: side = HIPBLAS_SIDE_LEFT + integer(kind(HIPBLAS_FILL_MODE_LOWER)), parameter :: uplo = HIPBLAS_FILL_MODE_LOWER + integer(kind(HIPBLAS_OP_N)), parameter :: transA = HIPBLAS_OP_N + integer(kind(HIPBLAS_DIAG_NON_UNIT)), parameter :: diag = HIPBLAS_DIAG_NON_UNIT + integer, parameter :: m = 1024, n = 1024 + integer, parameter :: bytes_per_element = 8 + double precision, target :: alpha = 2.d0 + integer(c_size_t) :: NAbytes, NBbytes + double precision, allocatable, target, dimension(:) :: hA, hB + double precision, parameter :: x_exact = 1.d0 + double precision :: error + double precision, parameter :: error_max = 10*epsilon(error) + type(c_ptr) :: dA = c_null_ptr, dB = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + integer :: i, j + + write(*,"(a)",advance="no") "-- Running test 'DTRSM' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + NAbytes = int(m, c_size_t) * int(m, c_size_t) * bytes_per_element + NBbytes = int(m, c_size_t) * int(n, c_size_t) * bytes_per_element + allocate(hA(m*m), hB(m*n)) + + hA = 0.d0 + do j = 1, m + do i = j, m + hA(i + (j-1)*m) = 1.d0 + end do + end do + do j = 1, n + do i = 1, m + hB(i + (j-1)*m) = dble(i) / 2.d0 + end do + end do + + call hipCheck(hipMalloc(dA, NAbytes)) + call hipCheck(hipMalloc(dB, NBbytes)) + call hipCheck(hipMemcpy(dA, c_loc(hA(1)), NAbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dB, c_loc(hB(1)), NBbytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasDtrsm(handle, side, uplo, transA, diag, m, n, c_loc(alpha), dA, m, dB, m)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(c_loc(hB(1)), dB, NBbytes, hipMemcpyDeviceToHost)) + + do i = 1, m*n + error = abs((x_exact - hB(i)) / x_exact) + if (error > error_max) then + write(*,*) "FAILED! Error bigger than max! Error = ", error, " hB(", i, ") = ", hB(i) + call exit(1) + end if + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dB)) + call hipblasCheck(hipblasDestroy(handle)) + deallocate(hA, hB) + write(*,*) "PASSED!" + +end program hip_dtrsm diff --git a/bindings/fortran/hipblas/test/dtrsm.f08 b/bindings/fortran/hipblas/test/dtrsm.f08 new file mode 100644 index 000000000000..68989a9545af --- /dev/null +++ b/bindings/fortran/hipblas/test/dtrsm.f08 @@ -0,0 +1,88 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_dtrsm + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(kind(HIPBLAS_SIDE_LEFT)), parameter :: side = HIPBLAS_SIDE_LEFT + integer(kind(HIPBLAS_FILL_MODE_LOWER)), parameter :: uplo = HIPBLAS_FILL_MODE_LOWER + integer(kind(HIPBLAS_OP_N)), parameter :: transA = HIPBLAS_OP_N + integer(kind(HIPBLAS_DIAG_NON_UNIT)), parameter :: diag = HIPBLAS_DIAG_NON_UNIT + integer, parameter :: m = 1024, n = 1024 + double precision, target :: alpha = 2.d0 + double precision, allocatable, target, dimension(:,:) :: hA, hB + double precision, pointer, dimension(:,:) :: dA, dB + type(c_ptr) :: handle = c_null_ptr + double precision, parameter :: x_exact = 1.d0 + double precision :: error + double precision, parameter :: error_max = 10*epsilon(error) + integer :: i, j + + write(*,"(a)",advance="no") "-- Running test 'DTRSM' (Fortran 2008 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + allocate(hA(m,m), hB(m,n)) + + hA = 0.d0 + do j = 1, m + do i = j, m + hA(i,j) = 1.d0 + end do + end do + do j = 1, n + do i = 1, m + hB(i,j) = dble(i) / 2.d0 + end do + end do + + call hipCheck(hipMalloc(dA, source=hA)) + call hipCheck(hipMalloc(dB, source=hB)) + + call hipblasCheck(hipblasDtrsm(handle, side, uplo, transA, diag, m, n, alpha, dA, size(dA,1), dB, size(dB,1))) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(hB, dB, hipMemcpyDeviceToHost)) + + do j = 1, n + do i = 1, m + error = abs((x_exact - hB(i,j)) / x_exact) + if (error > error_max) then + write(*,*) "FAILED! Error bigger than max! Error = ", error, " hB(", i, ",", j, ") = ", hB(i,j) + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dB)) + call hipblasCheck(hipblasDestroy(handle)) + deallocate(hA, hB) + write(*,*) "PASSED!" + +end program hip_dtrsm diff --git a/bindings/fortran/hipblas/test/dtrsm_devptr.f03 b/bindings/fortran/hipblas/test/dtrsm_devptr.f03 new file mode 100644 index 000000000000..53ea4c9a3359 --- /dev/null +++ b/bindings/fortran/hipblas/test/dtrsm_devptr.f03 @@ -0,0 +1,102 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_dtrsm + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(kind(HIPBLAS_SIDE_LEFT)), parameter :: side = HIPBLAS_SIDE_LEFT + integer(kind(HIPBLAS_FILL_MODE_LOWER)), parameter :: uplo = HIPBLAS_FILL_MODE_LOWER + integer(kind(HIPBLAS_OP_N)), parameter :: transA = HIPBLAS_OP_N + integer(kind(HIPBLAS_DIAG_NON_UNIT)), parameter :: diag = HIPBLAS_DIAG_NON_UNIT + integer, parameter :: m = 1024, n = 1024 + integer, parameter :: bytes_per_element = 8 + double precision, target :: alpha = 2.d0 + + ! Device-resident copies of the dual-mode scalars; the library reads them + ! from device memory because the handle is in device pointer mode. + type(c_ptr) :: d_alpha = c_null_ptr + integer(c_size_t) :: NAbytes, NBbytes + double precision, allocatable, target, dimension(:) :: hA, hB + double precision, parameter :: x_exact = 1.d0 + double precision :: error + double precision, parameter :: error_max = 10*epsilon(error) + type(c_ptr) :: dA = c_null_ptr, dB = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + integer :: i, j + + write(*,"(a)",advance="no") "-- Running test 'DTRSM_devptr' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + ! Switch to device pointer mode and stage the scalars in device memory + call hipblasCheck(hipblasSetPointerMode(handle, HIPBLAS_POINTER_MODE_DEVICE)) + call hipCheck(hipMalloc(d_alpha, c_sizeof(alpha))) + call hipCheck(hipMemcpy(d_alpha, c_loc(alpha), c_sizeof(alpha), hipMemcpyHostToDevice)) + + NAbytes = int(m, c_size_t) * int(m, c_size_t) * bytes_per_element + NBbytes = int(m, c_size_t) * int(n, c_size_t) * bytes_per_element + allocate(hA(m*m), hB(m*n)) + + hA = 0.d0 + do j = 1, m + do i = j, m + hA(i + (j-1)*m) = 1.d0 + end do + end do + do j = 1, n + do i = 1, m + hB(i + (j-1)*m) = dble(i) / 2.d0 + end do + end do + + call hipCheck(hipMalloc(dA, NAbytes)) + call hipCheck(hipMalloc(dB, NBbytes)) + call hipCheck(hipMemcpy(dA, c_loc(hA(1)), NAbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dB, c_loc(hB(1)), NBbytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasDtrsm(handle, side, uplo, transA, diag, m, n, d_alpha, dA, m, dB, m)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(c_loc(hB(1)), dB, NBbytes, hipMemcpyDeviceToHost)) + + do i = 1, m*n + error = abs((x_exact - hB(i)) / x_exact) + if (error > error_max) then + write(*,*) "FAILED! Error bigger than max! Error = ", error, " hB(", i, ") = ", hB(i) + call exit(1) + end if + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dB)) + call hipblasCheck(hipblasDestroy(handle)) + deallocate(hA, hB) + call hipCheck(hipFree(d_alpha)) + write(*,*) "PASSED!" + +end program hip_dtrsm diff --git a/bindings/fortran/hipblas/test/dtrsv.f03 b/bindings/fortran/hipblas/test/dtrsv.f03 new file mode 100644 index 000000000000..61df84044d8a --- /dev/null +++ b/bindings/fortran/hipblas/test/dtrsv.f03 @@ -0,0 +1,88 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_dtrsv + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(kind(HIPBLAS_FILL_MODE_UPPER)), parameter :: uplo = HIPBLAS_FILL_MODE_LOWER + integer(kind(HIPBLAS_OP_N)), parameter :: transA = HIPBLAS_OP_N + integer(kind(HIPBLAS_DIAG_NON_UNIT)), parameter :: diag = HIPBLAS_DIAG_NON_UNIT + integer, parameter :: m = 1024 + integer, parameter :: bytes_per_element = 8 + integer(c_size_t) :: NAbytes, Nxbytes + double precision, allocatable, target, dimension(:) :: hA, hx + double precision, parameter :: x_exact = 1.d0 + double precision :: error + double precision, parameter :: error_max = 10*epsilon(error) + type(c_ptr) :: dA = c_null_ptr, dx = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + integer :: i, j + + write(*,"(a)",advance="no") "-- Running test 'DTRSV' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + NAbytes = int(m, c_size_t) * int(m, c_size_t) * bytes_per_element + Nxbytes = int(m, c_size_t) * bytes_per_element + allocate(hA(m*m), hx(m)) + + hA = 0.d0 + do j = 1, m + do i = j, m + hA(i + (j-1)*m) = 1.d0 + end do + end do + do i = 1, m + hx(i) = dble(i) + end do + + call hipCheck(hipMalloc(dA, NAbytes)) + call hipCheck(hipMalloc(dx, Nxbytes)) + call hipCheck(hipMemcpy(dA, c_loc(hA(1)), NAbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dx, c_loc(hx(1)), Nxbytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasDtrsv(handle, uplo, transA, diag, m, dA, m, dx, 1)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(c_loc(hx(1)), dx, Nxbytes, hipMemcpyDeviceToHost)) + + do i = 1, m + error = abs((x_exact - hx(i)) / x_exact) + if (error > error_max) then + write(*,*) "FAILED! Error bigger than max! Error = ", error, " hx(", i, ") = ", hx(i) + call exit(1) + end if + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dx)) + call hipblasCheck(hipblasDestroy(handle)) + deallocate(hA, hx) + write(*,*) "PASSED!" + +end program hip_dtrsv diff --git a/bindings/fortran/hipblas/test/dtrsv.f08 b/bindings/fortran/hipblas/test/dtrsv.f08 new file mode 100644 index 000000000000..70056c42a97a --- /dev/null +++ b/bindings/fortran/hipblas/test/dtrsv.f08 @@ -0,0 +1,84 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_dtrsv + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(kind(HIPBLAS_FILL_MODE_UPPER)), parameter :: uplo = HIPBLAS_FILL_MODE_LOWER + integer(kind(HIPBLAS_OP_N)), parameter :: transA = HIPBLAS_OP_N + integer(kind(HIPBLAS_DIAG_NON_UNIT)), parameter :: diag = HIPBLAS_DIAG_NON_UNIT + integer, parameter :: m = 1024 + double precision, allocatable, target, dimension(:,:) :: hA + double precision, allocatable, target, dimension(:) :: hx + double precision, pointer, dimension(:,:) :: dA + double precision, pointer, dimension(:) :: dx + type(c_ptr) :: handle = c_null_ptr + double precision, parameter :: x_exact = 1.d0 + double precision :: error + double precision, parameter :: error_max = 10*epsilon(error) + integer :: i, j + + write(*,"(a)",advance="no") "-- Running test 'DTRSV' (Fortran 2008 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + allocate(hA(m,m), hx(m)) + + hA = 0.d0 + do j = 1, m + do i = j, m + hA(i,j) = 1.d0 + end do + end do + do i = 1, m + hx(i) = dble(i) + end do + + call hipCheck(hipMalloc(dA, source=hA)) + call hipCheck(hipMalloc(dx, source=hx)) + + call hipblasCheck(hipblasDtrsv(handle, uplo, transA, diag, m, dA, size(dA,1), dx, 1)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(hx, dx, hipMemcpyDeviceToHost)) + + do i = 1, m + error = abs((x_exact - hx(i)) / x_exact) + if (error > error_max) then + write(*,*) "FAILED! Error bigger than max! Error = ", error, " hx(", i, ") = ", hx(i) + call exit(1) + end if + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dx)) + call hipblasCheck(hipblasDestroy(handle)) + deallocate(hA, hx) + write(*,*) "PASSED!" + +end program hip_dtrsv diff --git a/bindings/fortran/hipblas/test/dzasum.f03 b/bindings/fortran/hipblas/test/dzasum.f03 new file mode 100644 index 000000000000..e40de4eadd1c --- /dev/null +++ b/bindings/fortran/hipblas/test/dzasum.f03 @@ -0,0 +1,72 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_dzasum + use iso_c_binding + use hip + use hipblas + + implicit none + + ! asum(x) with x = 1 over n elements, so the result is n. + integer, parameter :: n = 1024 + integer(c_size_t) :: Nbytes + complex(c_double_complex), allocatable, target, dimension(:) :: hx + real(c_double), target :: res + real(c_double) :: res_exact, error + real(c_double), parameter :: error_max = 10*epsilon(error) + type(c_ptr) :: dx = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + + write(*,"(a)",advance="no") "-- Running test 'dzasum' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + allocate(hx(n)) + hx = (1.0, 0.0) + res_exact = real(n, kind=kind(res_exact)) + + Nbytes = int(n, c_size_t) * 16 + call hipCheck(hipMalloc(dx, Nbytes)) + call hipCheck(hipMemcpy(dx, c_loc(hx(1)), Nbytes, hipMemcpyHostToDevice)) + + res = 0.0 + call hipblasCheck(hipblasDzasum(handle, n, dx, 1, c_loc(res))) + call hipCheck(hipDeviceSynchronize()) + + error = abs((res_exact - res) / res_exact) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " result = ", res + call exit(1) + end if + + call hipCheck(hipFree(dx)) + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(hx) + + write(*,*) "PASSED!" + +end program hip_dzasum diff --git a/bindings/fortran/hipblas/test/dzasum.f08 b/bindings/fortran/hipblas/test/dzasum.f08 new file mode 100644 index 000000000000..b1b5d2e5d146 --- /dev/null +++ b/bindings/fortran/hipblas/test/dzasum.f08 @@ -0,0 +1,70 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_dzasum + use iso_c_binding + use hip + use hipblas + + implicit none + + ! asum(x) with x = 1 over n elements, so the result is n. + integer, parameter :: n = 1024 + complex(c_double_complex), allocatable, dimension(:) :: hx + real(c_double), target :: res + real(c_double) :: res_exact, error + real(c_double), parameter :: error_max = 10*epsilon(error) + complex(c_double_complex), pointer, dimension(:) :: dx + type(c_ptr) :: handle = c_null_ptr + + write(*,"(a)",advance="no") "-- Running test 'dzasum' (Fortran 2008 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + allocate(hx(n)) + hx = (1.0, 0.0) + res_exact = real(n, kind=kind(res_exact)) + + call hipCheck(hipMalloc(dx, shape(hx))) + call hipCheck(hipMemcpy(dx, hx, hipMemcpyHostToDevice)) + + res = 0.0 + call hipblasCheck(hipblasDzasum(handle, n, dx, 1, c_loc(res))) + call hipCheck(hipDeviceSynchronize()) + + error = abs((res_exact - res) / res_exact) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " result = ", res + call exit(1) + end if + + call hipCheck(hipFree(dx)) + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(hx) + + write(*,*) "PASSED!" + +end program hip_dzasum diff --git a/bindings/fortran/hipblas/test/dznrm2.f03 b/bindings/fortran/hipblas/test/dznrm2.f03 new file mode 100644 index 000000000000..721ebf987f0e --- /dev/null +++ b/bindings/fortran/hipblas/test/dznrm2.f03 @@ -0,0 +1,72 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_dznrm2 + use iso_c_binding + use hip + use hipblas + + implicit none + + ! nrm2(x) with x = 1 over n elements, so the result is sqrt(n). + integer, parameter :: n = 1024 + integer(c_size_t) :: Nbytes + complex(c_double_complex), allocatable, target, dimension(:) :: hx + real(c_double), target :: res + real(c_double) :: res_exact, error + real(c_double), parameter :: error_max = 10*epsilon(error) + type(c_ptr) :: dx = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + + write(*,"(a)",advance="no") "-- Running test 'dznrm2' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + allocate(hx(n)) + hx = (1.0, 0.0) + res_exact = sqrt(real(n, kind=kind(res_exact))) + + Nbytes = int(n, c_size_t) * 16 + call hipCheck(hipMalloc(dx, Nbytes)) + call hipCheck(hipMemcpy(dx, c_loc(hx(1)), Nbytes, hipMemcpyHostToDevice)) + + res = 0.0 + call hipblasCheck(hipblasDznrm2(handle, n, dx, 1, c_loc(res))) + call hipCheck(hipDeviceSynchronize()) + + error = abs((res_exact - res) / res_exact) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " result = ", res + call exit(1) + end if + + call hipCheck(hipFree(dx)) + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(hx) + + write(*,*) "PASSED!" + +end program hip_dznrm2 diff --git a/bindings/fortran/hipblas/test/dznrm2.f08 b/bindings/fortran/hipblas/test/dznrm2.f08 new file mode 100644 index 000000000000..a0eb3a8a31bc --- /dev/null +++ b/bindings/fortran/hipblas/test/dznrm2.f08 @@ -0,0 +1,70 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_dznrm2 + use iso_c_binding + use hip + use hipblas + + implicit none + + ! nrm2(x) with x = 1 over n elements, so the result is sqrt(n). + integer, parameter :: n = 1024 + complex(c_double_complex), allocatable, dimension(:) :: hx + real(c_double), target :: res + real(c_double) :: res_exact, error + real(c_double), parameter :: error_max = 10*epsilon(error) + complex(c_double_complex), pointer, dimension(:) :: dx + type(c_ptr) :: handle = c_null_ptr + + write(*,"(a)",advance="no") "-- Running test 'dznrm2' (Fortran 2008 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + allocate(hx(n)) + hx = (1.0, 0.0) + res_exact = sqrt(real(n, kind=kind(res_exact))) + + call hipCheck(hipMalloc(dx, shape(hx))) + call hipCheck(hipMemcpy(dx, hx, hipMemcpyHostToDevice)) + + res = 0.0 + call hipblasCheck(hipblasDznrm2(handle, n, dx, 1, c_loc(res))) + call hipCheck(hipDeviceSynchronize()) + + error = abs((res_exact - res) / res_exact) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " result = ", res + call exit(1) + end if + + call hipCheck(hipFree(dx)) + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(hx) + + write(*,*) "PASSED!" + +end program hip_dznrm2 diff --git a/bindings/fortran/hipblas/test/gemmex.f03 b/bindings/fortran/hipblas/test/gemmex.f03 new file mode 100644 index 000000000000..b28fa7ccf582 --- /dev/null +++ b/bindings/fortran/hipblas/test/gemmex.f03 @@ -0,0 +1,91 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_gemmex + use iso_c_binding + use hip + use hipblas + + implicit none + + ! C := alpha*op(A)*op(B) + beta*C through the extended-precision entry point, + ! with all buffers f32 and an f32 compute type. A is m x k and B is k x n with + ! m, n, k distinct, so swapping A and B or the dimensions changes the result. + integer, parameter :: m = 2, n = 3, k = 4 + integer(c_size_t) :: Nbytes + real(c_float), target :: alpha = 1.0, beta = 0.0 + + real(c_float), target :: hA(m,k) = reshape([1.0, -1.0, 2.0, 0.0, 3.0, 1.0, -2.0, 4.0], [m,k]) + real(c_float), target :: hB(k,n) = reshape([1.0, 2.0, 0.0, -1.0, 3.0, -2.0, 1.0, 0.0, 0.0, 1.0, 2.0, -3.0], [k,n]) + real(c_float), target :: hC(m,n) + real(c_float) :: expected(m,n) + type(c_ptr) :: dA = c_null_ptr, dB = c_null_ptr, dC = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + integer :: i, j + real(c_float) :: error + real(c_float), parameter :: error_max = 10*epsilon(error) + + write(*,"(a)",advance="no") "-- Running test 'gemmex' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + hC = 0.0 + expected = alpha*matmul(hA, hB) + + Nbytes = int(m*k, c_size_t) * 4 + call hipCheck(hipMalloc(dA, Nbytes)) + call hipCheck(hipMemcpy(dA, c_loc(hA(1,1)), Nbytes, hipMemcpyHostToDevice)) + Nbytes = int(k*n, c_size_t) * 4 + call hipCheck(hipMalloc(dB, Nbytes)) + call hipCheck(hipMemcpy(dB, c_loc(hB(1,1)), Nbytes, hipMemcpyHostToDevice)) + Nbytes = int(m*n, c_size_t) * 4 + call hipCheck(hipMalloc(dC, Nbytes)) + call hipCheck(hipMemcpy(dC, c_loc(hC(1,1)), Nbytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasGemmEx(handle, HIPBLAS_OP_N, HIPBLAS_OP_N, m, n, k, & + c_loc(alpha), dA, HIP_R_32F, m, & + dB, HIP_R_32F, k, c_loc(beta), & + dC, HIP_R_32F, m, HIPBLAS_COMPUTE_32F, HIPBLAS_GEMM_DEFAULT)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(c_loc(hC(1,1)), dC, Nbytes, hipMemcpyDeviceToHost)) + + do j = 1, n + do i = 1, m + error = abs(expected(i,j) - hC(i,j)) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " at ", i, j + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dB)) + call hipCheck(hipFree(dC)) + call hipblasCheck(hipblasDestroy(handle)) + + write(*,*) "PASSED!" + +end program hip_gemmex diff --git a/bindings/fortran/hipblas/test/gemmex.f08 b/bindings/fortran/hipblas/test/gemmex.f08 new file mode 100644 index 000000000000..ad5d077d193f --- /dev/null +++ b/bindings/fortran/hipblas/test/gemmex.f08 @@ -0,0 +1,87 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_gemmex + use iso_c_binding + use hip + use hipblas + + implicit none + + ! C := alpha*op(A)*op(B) + beta*C through the extended-precision entry point, + ! with all buffers f32 and an f32 compute type. A is m x k and B is k x n with + ! m, n, k distinct, so swapping A and B or the dimensions changes the result. + integer, parameter :: m = 2, n = 3, k = 4 + real(c_float), target :: alpha = 1.0, beta = 0.0 + + real(c_float) :: hA(m,k) = reshape([1.0, -1.0, 2.0, 0.0, 3.0, 1.0, -2.0, 4.0], [m,k]) + real(c_float) :: hB(k,n) = reshape([1.0, 2.0, 0.0, -1.0, 3.0, -2.0, 1.0, 0.0, 0.0, 1.0, 2.0, -3.0], [k,n]) + real(c_float) :: hC(m,n) + real(c_float) :: expected(m,n) + real(c_float), pointer, dimension(:,:) :: dA, dB, dC + type(c_ptr) :: handle = c_null_ptr + integer :: i, j + real(c_float) :: error + real(c_float), parameter :: error_max = 10*epsilon(error) + + write(*,"(a)",advance="no") "-- Running test 'gemmex' (Fortran 2008 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + hC = 0.0 + expected = alpha*matmul(hA, hB) + + call hipCheck(hipMalloc(dA, shape(hA))) + call hipCheck(hipMemcpy(dA, hA, hipMemcpyHostToDevice)) + call hipCheck(hipMalloc(dB, shape(hB))) + call hipCheck(hipMemcpy(dB, hB, hipMemcpyHostToDevice)) + call hipCheck(hipMalloc(dC, shape(hC))) + call hipCheck(hipMemcpy(dC, hC, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasGemmEx(handle, HIPBLAS_OP_N, HIPBLAS_OP_N, m, n, k, & + c_loc(alpha), c_loc(dA(1,1)), HIP_R_32F, m, & + c_loc(dB(1,1)), HIP_R_32F, k, c_loc(beta), & + c_loc(dC(1,1)), HIP_R_32F, m, HIPBLAS_COMPUTE_32F, HIPBLAS_GEMM_DEFAULT)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(hC, dC, hipMemcpyDeviceToHost)) + + do j = 1, n + do i = 1, m + error = abs(expected(i,j) - hC(i,j)) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " at ", i, j + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dB)) + call hipCheck(hipFree(dC)) + call hipblasCheck(hipblasDestroy(handle)) + + write(*,*) "PASSED!" + +end program hip_gemmex diff --git a/bindings/fortran/hipblas/test/gemmex_devptr.f03 b/bindings/fortran/hipblas/test/gemmex_devptr.f03 new file mode 100644 index 000000000000..956ef3c582d1 --- /dev/null +++ b/bindings/fortran/hipblas/test/gemmex_devptr.f03 @@ -0,0 +1,105 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_gemmex + use iso_c_binding + use hip + use hipblas + + implicit none + + ! C := alpha*op(A)*op(B) + beta*C through the extended-precision entry point, + ! with all buffers f32 and an f32 compute type. A is m x k and B is k x n with + ! m, n, k distinct, so swapping A and B or the dimensions changes the result. + integer, parameter :: m = 2, n = 3, k = 4 + integer(c_size_t) :: Nbytes + real(c_float), target :: alpha = 1.0, beta = 0.0 + + ! Device-resident copies of the dual-mode scalars; the library reads them + ! from device memory because the handle is in device pointer mode. + type(c_ptr) :: d_alpha = c_null_ptr + type(c_ptr) :: d_beta = c_null_ptr + + real(c_float), target :: hA(m,k) = reshape([1.0, -1.0, 2.0, 0.0, 3.0, 1.0, -2.0, 4.0], [m,k]) + real(c_float), target :: hB(k,n) = reshape([1.0, 2.0, 0.0, -1.0, 3.0, -2.0, 1.0, 0.0, 0.0, 1.0, 2.0, -3.0], [k,n]) + real(c_float), target :: hC(m,n) + real(c_float) :: expected(m,n) + type(c_ptr) :: dA = c_null_ptr, dB = c_null_ptr, dC = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + integer :: i, j + real(c_float) :: error + real(c_float), parameter :: error_max = 10*epsilon(error) + + write(*,"(a)",advance="no") "-- Running test 'gemmex_devptr' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + ! Switch to device pointer mode and stage the scalars in device memory + call hipblasCheck(hipblasSetPointerMode(handle, HIPBLAS_POINTER_MODE_DEVICE)) + call hipCheck(hipMalloc(d_alpha, c_sizeof(alpha))) + call hipCheck(hipMalloc(d_beta, c_sizeof(beta))) + call hipCheck(hipMemcpy(d_alpha, c_loc(alpha), c_sizeof(alpha), hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(d_beta, c_loc(beta), c_sizeof(beta), hipMemcpyHostToDevice)) + + hC = 0.0 + expected = alpha*matmul(hA, hB) + + Nbytes = int(m*k, c_size_t) * 4 + call hipCheck(hipMalloc(dA, Nbytes)) + call hipCheck(hipMemcpy(dA, c_loc(hA(1,1)), Nbytes, hipMemcpyHostToDevice)) + Nbytes = int(k*n, c_size_t) * 4 + call hipCheck(hipMalloc(dB, Nbytes)) + call hipCheck(hipMemcpy(dB, c_loc(hB(1,1)), Nbytes, hipMemcpyHostToDevice)) + Nbytes = int(m*n, c_size_t) * 4 + call hipCheck(hipMalloc(dC, Nbytes)) + call hipCheck(hipMemcpy(dC, c_loc(hC(1,1)), Nbytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasGemmEx(handle, HIPBLAS_OP_N, HIPBLAS_OP_N, m, n, k, & + d_alpha, dA, HIP_R_32F, m, & + dB, HIP_R_32F, k, d_beta, & + dC, HIP_R_32F, m, HIPBLAS_COMPUTE_32F, HIPBLAS_GEMM_DEFAULT)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(c_loc(hC(1,1)), dC, Nbytes, hipMemcpyDeviceToHost)) + + do j = 1, n + do i = 1, m + error = abs(expected(i,j) - hC(i,j)) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " at ", i, j + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dB)) + call hipCheck(hipFree(dC)) + call hipblasCheck(hipblasDestroy(handle)) + + call hipCheck(hipFree(d_alpha)) + call hipCheck(hipFree(d_beta)) + write(*,*) "PASSED!" + +end program hip_gemmex diff --git a/bindings/fortran/hipblas/test/hipblas_handle_state.f03 b/bindings/fortran/hipblas/test/hipblas_handle_state.f03 new file mode 100644 index 000000000000..4cbab015d8fd --- /dev/null +++ b/bindings/fortran/hipblas/test/hipblas_handle_state.f03 @@ -0,0 +1,160 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +! Exercises the three state getters of a hipBLAS handle. All take their output +! argument by reference -- hipblasGetAtomicsMode and hipblasGetMathMode an enum +! ('integer(kind(HIPBLAS_ATOMICS_NOT_ALLOWED)) :: atomics_mode' and +! 'integer(kind(HIPBLAS_DEFAULT_MATH)) :: mode'), hipblasGetStream a bare +! 'type(c_ptr) :: streamId' -- so in every case the variable itself is passed +! and the library writes into it. +! +! The test passes only if the getters actually report back what the matching +! setter installed: the atomics mode is driven in both directions (ALLOWED and +! NOT_ALLOWED) so a setter that silently ignores its argument cannot pass, and +! the stream is first set to a freshly created stream (the getter must hand +! back the very same object) and then reset to the null/default stream with a +! pre-poisoned output variable (so the getter must overwrite it, not leave it). +! +! The math mode is checked more loosely on purpose. On ROCm HIPBLAS_XF32_XDL_MATH +! is accepted on every architecture but only honoured on hardware with XF32 XDL +! support, so the handle may legitimately stay on HIPBLAS_DEFAULT_MATH; a hard +! round-trip would be a false failure elsewhere. On the CUDA backend it has no +! cuBLAS counterpart and the setter returns HIPBLAS_STATUS_INVALID_VALUE. +! What is asserted is that the getter overwrote the sentinel with a member of +! the enum, and that setting HIPBLAS_DEFAULT_MATH back does round-trip exactly. +program hipblas_handle_state + use iso_c_binding + use hip + use hipblas + + implicit none + + type(c_ptr) :: handle = c_null_ptr + type(c_ptr) :: stream = c_null_ptr + type(c_ptr) :: got = c_null_ptr + integer(kind(HIPBLAS_ATOMICS_NOT_ALLOWED)) :: amode + integer(kind(HIPBLAS_DEFAULT_MATH)) :: mmode + ! Not a hipblasMath_t member on either backend (XF32_XDL is -1 under CUDA). + integer(kind(HIPBLAS_DEFAULT_MATH)), parameter :: sentinel = -12345 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: stat + + write(*,"(a)",advance="no") "-- Running test 'hipblas_handle_state' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + ! 1. The default atomics mode must be one of the two legal enum values. + amode = -1 + call hipblasCheck(hipblasGetAtomicsMode(handle, amode)) + if (amode /= HIPBLAS_ATOMICS_NOT_ALLOWED .and. amode /= HIPBLAS_ATOMICS_ALLOWED) then + write(*,*) "FAILED! hipblasGetAtomicsMode did not return a legal mode, got ", amode + STOP 1 + end if + + ! 2. Switch atomics on and check that the getter observes the change. + call hipblasCheck(hipblasSetAtomicsMode(handle, HIPBLAS_ATOMICS_ALLOWED)) + amode = -1 + call hipblasCheck(hipblasGetAtomicsMode(handle, amode)) + if (amode /= HIPBLAS_ATOMICS_ALLOWED) then + write(*,*) "FAILED! expected HIPBLAS_ATOMICS_ALLOWED, got ", amode + STOP 1 + end if + + ! 3. Switch atomics back off, so an ignored setter cannot sneak through. + call hipblasCheck(hipblasSetAtomicsMode(handle, HIPBLAS_ATOMICS_NOT_ALLOWED)) + amode = -1 + call hipblasCheck(hipblasGetAtomicsMode(handle, amode)) + if (amode /= HIPBLAS_ATOMICS_NOT_ALLOWED) then + write(*,*) "FAILED! expected HIPBLAS_ATOMICS_NOT_ALLOWED, got ", amode + STOP 1 + end if + + ! 4. Create a real stream to bind to the handle. + call hipCheck(hipStreamCreate(stream)) + if (.not. c_associated(stream)) then + write(*,*) "FAILED! hipStreamCreate returned a null stream" + STOP 1 + end if + + ! 5. The handle must hand back exactly the stream it was given. + call hipblasCheck(hipblasSetStream(handle, stream)) + got = c_null_ptr + call hipblasCheck(hipblasGetStream(handle, got)) + if (.not. c_associated(got, stream)) then + write(*,*) "FAILED! hipblasGetStream did not return the stream set by hipblasSetStream" + STOP 1 + end if + + ! 6. Back to the null (default) stream, with 'got' pre-poisoned so that the + ! getter has to overwrite it rather than leave it untouched. + call hipblasCheck(hipblasSetStream(handle, c_null_ptr)) + got = stream + call hipblasCheck(hipblasGetStream(handle, got)) + if (c_associated(got)) then + write(*,*) "FAILED! hipblasGetStream did not report the default (null) stream" + STOP 1 + end if + + ! 7. Math mode: the default must be reported exactly, a non-default request + ! must at least leave a legal enum member behind, and restoring the + ! default must round-trip. + mmode = sentinel + call hipblasCheck(hipblasGetMathMode(handle, mmode)) + if (mmode /= HIPBLAS_DEFAULT_MATH) then + write(*,*) "FAILED! fresh handle math mode is ", mmode, & + " instead of HIPBLAS_DEFAULT_MATH" + STOP 1 + end if + + ! XF32_XDL is an AMD mode: on the CUDA backend cuBLAS rejects it. + stat = hipblasSetMathMode(handle, HIPBLAS_XF32_XDL_MATH) + if (stat /= HIPBLAS_STATUS_SUCCESS .and. stat /= HIPBLAS_STATUS_INVALID_VALUE) then + write(*,*) "FAILED! hipblasSetMathMode(HIPBLAS_XF32_XDL_MATH) returned ", stat + STOP 1 + end if + mmode = sentinel + call hipblasCheck(hipblasGetMathMode(handle, mmode)) + if (mmode /= HIPBLAS_DEFAULT_MATH .and. mmode /= HIPBLAS_XF32_XDL_MATH .and. & + mmode /= HIPBLAS_PEDANTIC_MATH .and. mmode /= HIPBLAS_TF32_TENSOR_OP_MATH .and. & + mmode /= HIPBLAS_TENSOR_OP_MATH) then + write(*,*) "FAILED! hipblasGetMathMode returned ", mmode, & + " which is not a member of hipblasMath_t" + STOP 1 + end if + + call hipblasCheck(hipblasSetMathMode(handle, HIPBLAS_DEFAULT_MATH)) + mmode = sentinel + call hipblasCheck(hipblasGetMathMode(handle, mmode)) + if (mmode /= HIPBLAS_DEFAULT_MATH) then + write(*,*) "FAILED! hipblasGetMathMode did not restore HIPBLAS_DEFAULT_MATH, got ", mmode + STOP 1 + end if + + ! 8. The stream was unbound in step 6, so it can be destroyed. + call hipCheck(hipStreamDestroy(stream)) + call hipblasCheck(hipblasDestroy(handle)) + + write(*,*) "PASSED! atomics mode and stream round-trip through the hipBLAS handle" + +end program hipblas_handle_state diff --git a/bindings/fortran/hipblas/test/hipblas_handle_state.f08 b/bindings/fortran/hipblas/test/hipblas_handle_state.f08 new file mode 100644 index 000000000000..f1d92b0388f5 --- /dev/null +++ b/bindings/fortran/hipblas/test/hipblas_handle_state.f08 @@ -0,0 +1,160 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +! Exercises the three state getters of a hipBLAS handle. All take their output +! argument by reference -- hipblasGetAtomicsMode and hipblasGetMathMode an enum +! ('integer(kind(HIPBLAS_ATOMICS_NOT_ALLOWED)) :: atomics_mode' and +! 'integer(kind(HIPBLAS_DEFAULT_MATH)) :: mode'), hipblasGetStream a bare +! 'type(c_ptr) :: streamId' -- so in every case the variable itself is passed +! and the library writes into it. +! +! The test passes only if the getters actually report back what the matching +! setter installed: the atomics mode is driven in both directions (ALLOWED and +! NOT_ALLOWED) so a setter that silently ignores its argument cannot pass, and +! the stream is first set to a freshly created stream (the getter must hand +! back the very same object) and then reset to the null/default stream with a +! pre-poisoned output variable (so the getter must overwrite it, not leave it). +! +! The math mode is checked more loosely on purpose. On ROCm HIPBLAS_XF32_XDL_MATH +! is accepted on every architecture but only honoured on hardware with XF32 XDL +! support, so the handle may legitimately stay on HIPBLAS_DEFAULT_MATH; a hard +! round-trip would be a false failure elsewhere. On the CUDA backend it has no +! cuBLAS counterpart and the setter returns HIPBLAS_STATUS_INVALID_VALUE. +! What is asserted is that the getter overwrote the sentinel with a member of +! the enum, and that setting HIPBLAS_DEFAULT_MATH back does round-trip exactly. +program hipblas_handle_state + use iso_c_binding + use hip + use hipblas + + implicit none + + type(c_ptr) :: handle = c_null_ptr + type(c_ptr) :: stream = c_null_ptr + type(c_ptr) :: got = c_null_ptr + integer(kind(HIPBLAS_ATOMICS_NOT_ALLOWED)) :: amode + integer(kind(HIPBLAS_DEFAULT_MATH)) :: mmode + ! Not a hipblasMath_t member on either backend (XF32_XDL is -1 under CUDA). + integer(kind(HIPBLAS_DEFAULT_MATH)), parameter :: sentinel = -12345 + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: stat + + write(*,"(a)",advance="no") "-- Running test 'hipblas_handle_state' (Fortran 2008 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + ! 1. The default atomics mode must be one of the two legal enum values. + amode = -1 + call hipblasCheck(hipblasGetAtomicsMode(handle, amode)) + if (amode /= HIPBLAS_ATOMICS_NOT_ALLOWED .and. amode /= HIPBLAS_ATOMICS_ALLOWED) then + write(*,*) "FAILED! hipblasGetAtomicsMode did not return a legal mode, got ", amode + STOP 1 + end if + + ! 2. Switch atomics on and check that the getter observes the change. + call hipblasCheck(hipblasSetAtomicsMode(handle, HIPBLAS_ATOMICS_ALLOWED)) + amode = -1 + call hipblasCheck(hipblasGetAtomicsMode(handle, amode)) + if (amode /= HIPBLAS_ATOMICS_ALLOWED) then + write(*,*) "FAILED! expected HIPBLAS_ATOMICS_ALLOWED, got ", amode + STOP 1 + end if + + ! 3. Switch atomics back off, so an ignored setter cannot sneak through. + call hipblasCheck(hipblasSetAtomicsMode(handle, HIPBLAS_ATOMICS_NOT_ALLOWED)) + amode = -1 + call hipblasCheck(hipblasGetAtomicsMode(handle, amode)) + if (amode /= HIPBLAS_ATOMICS_NOT_ALLOWED) then + write(*,*) "FAILED! expected HIPBLAS_ATOMICS_NOT_ALLOWED, got ", amode + STOP 1 + end if + + ! 4. Create a real stream to bind to the handle. + call hipCheck(hipStreamCreate(stream)) + if (.not. c_associated(stream)) then + write(*,*) "FAILED! hipStreamCreate returned a null stream" + STOP 1 + end if + + ! 5. The handle must hand back exactly the stream it was given. + call hipblasCheck(hipblasSetStream(handle, stream)) + got = c_null_ptr + call hipblasCheck(hipblasGetStream(handle, got)) + if (.not. c_associated(got, stream)) then + write(*,*) "FAILED! hipblasGetStream did not return the stream set by hipblasSetStream" + STOP 1 + end if + + ! 6. Back to the null (default) stream, with 'got' pre-poisoned so that the + ! getter has to overwrite it rather than leave it untouched. + call hipblasCheck(hipblasSetStream(handle, c_null_ptr)) + got = stream + call hipblasCheck(hipblasGetStream(handle, got)) + if (c_associated(got)) then + write(*,*) "FAILED! hipblasGetStream did not report the default (null) stream" + STOP 1 + end if + + ! 7. Math mode: the default must be reported exactly, a non-default request + ! must at least leave a legal enum member behind, and restoring the + ! default must round-trip. + mmode = sentinel + call hipblasCheck(hipblasGetMathMode(handle, mmode)) + if (mmode /= HIPBLAS_DEFAULT_MATH) then + write(*,*) "FAILED! fresh handle math mode is ", mmode, & + " instead of HIPBLAS_DEFAULT_MATH" + STOP 1 + end if + + ! XF32_XDL is an AMD mode: on the CUDA backend cuBLAS rejects it. + stat = hipblasSetMathMode(handle, HIPBLAS_XF32_XDL_MATH) + if (stat /= HIPBLAS_STATUS_SUCCESS .and. stat /= HIPBLAS_STATUS_INVALID_VALUE) then + write(*,*) "FAILED! hipblasSetMathMode(HIPBLAS_XF32_XDL_MATH) returned ", stat + STOP 1 + end if + mmode = sentinel + call hipblasCheck(hipblasGetMathMode(handle, mmode)) + if (mmode /= HIPBLAS_DEFAULT_MATH .and. mmode /= HIPBLAS_XF32_XDL_MATH .and. & + mmode /= HIPBLAS_PEDANTIC_MATH .and. mmode /= HIPBLAS_TF32_TENSOR_OP_MATH .and. & + mmode /= HIPBLAS_TENSOR_OP_MATH) then + write(*,*) "FAILED! hipblasGetMathMode returned ", mmode, & + " which is not a member of hipblasMath_t" + STOP 1 + end if + + call hipblasCheck(hipblasSetMathMode(handle, HIPBLAS_DEFAULT_MATH)) + mmode = sentinel + call hipblasCheck(hipblasGetMathMode(handle, mmode)) + if (mmode /= HIPBLAS_DEFAULT_MATH) then + write(*,*) "FAILED! hipblasGetMathMode did not restore HIPBLAS_DEFAULT_MATH, got ", mmode + STOP 1 + end if + + ! 8. The stream was unbound in step 6, so it can be destroyed. + call hipCheck(hipStreamDestroy(stream)) + call hipblasCheck(hipblasDestroy(handle)) + + write(*,*) "PASSED! atomics mode and stream round-trip through the hipBLAS handle" + +end program hipblas_handle_state diff --git a/bindings/fortran/hipblas/test/hipblas_pointer_mode.f03 b/bindings/fortran/hipblas/test/hipblas_pointer_mode.f03 new file mode 100644 index 000000000000..7ef01530a9ff --- /dev/null +++ b/bindings/fortran/hipblas/test/hipblas_pointer_mode.f03 @@ -0,0 +1,137 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +! Exercises hipblasGetPointerMode / hipblasSetPointerMode on a handle created +! with hipblasCreate, checking both that the mode round-trips through the +! getter and that hipBLAS keeps computing the right answer across the switch: +! +! 1. The freshly created handle must report HIPBLAS_POINTER_MODE_HOST. +! 2. In HOST mode, hipblasSdot writes its scalar result into host memory; +! the value must match the exact dot product 408.0. +! 3. hipblasSetPointerMode(HIPBLAS_POINTER_MODE_DEVICE) must round-trip +! through hipblasGetPointerMode. +! 4. In DEVICE mode, the very same hipblasSdot call writes into a device +! scalar; copying it back must yield the same 408.0. +! 5. Switching back to HOST must again round-trip through the getter. +! +! The test fails (prints "FAILED! ..." and stops with status 1) if any query +! reports the wrong mode or either dot product deviates from the exact value. +program hipblas_pointer_mode + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(c_int), parameter :: n = 8 + integer(c_size_t), parameter :: nbytes = int(n, c_size_t) * 4_c_size_t + integer(c_size_t), parameter :: sbytes = 4_c_size_t + real(c_float), parameter :: res_exact = 408.0_c_float + real(c_float), parameter :: tol = 1.0e-5_c_float + + real(c_float), target :: hx(n), hy(n) + real(c_float), target :: res_host, res_dev + integer(kind(HIPBLAS_POINTER_MODE_HOST)) :: mode + type(c_ptr) :: handle = c_null_ptr + type(c_ptr) :: dx = c_null_ptr, dy = c_null_ptr, dres = c_null_ptr + integer :: i + + write(*,"(a)",advance="no") "-- Running test 'hipBLAS pointer mode' & + &(Fortran 2003 interfaces) - " + + ! hx(i) = i, hy(i) = 2i, so dot(hx,hy) = 2 * sum(i**2) = 408 for n = 8. + do i = 1, n + hx(i) = real(i, c_float) + hy(i) = 2.0_c_float * real(i, c_float) + end do + + call hipblasCheck(hipblasCreate(handle)) + + call hipCheck(hipMalloc(dx, nbytes)) + call hipCheck(hipMalloc(dy, nbytes)) + call hipCheck(hipMalloc(dres, sbytes)) + call hipCheck(hipMemcpy(dx, c_loc(hx(1)), nbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dy, c_loc(hy(1)), nbytes, hipMemcpyHostToDevice)) + + ! 1. A new handle defaults to host pointer mode. The 'mode' dummy argument is + ! the enum itself, passed by reference, so the variable is handed over + ! directly and hipBLAS writes the mode into it. + mode = -1 + call hipblasCheck(hipblasGetPointerMode(handle, mode)) + if (mode /= HIPBLAS_POINTER_MODE_HOST) then + write(*,*) "FAILED! fresh handle reported pointer mode ", mode, & + " instead of HIPBLAS_POINTER_MODE_HOST" + STOP 1 + end if + + ! 2. In host mode the result scalar lives in host memory. + res_host = 0.0_c_float + call hipblasCheck(hipblasSdot(handle, n, dx, 1, dy, 1, c_loc(res_host))) + call hipCheck(hipDeviceSynchronize()) + if (abs(res_host - res_exact) > tol * res_exact) then + write(*,*) "FAILED! host-mode sdot returned ", res_host, " expected ", res_exact + STOP 1 + end if + + ! 3. Flip to device pointer mode and make sure the getter agrees. + call hipblasCheck(hipblasSetPointerMode(handle, HIPBLAS_POINTER_MODE_DEVICE)) + mode = -1 + call hipblasCheck(hipblasGetPointerMode(handle, mode)) + if (mode /= HIPBLAS_POINTER_MODE_DEVICE) then + write(*,*) "FAILED! after hipblasSetPointerMode(DEVICE) the getter reported ", mode + STOP 1 + end if + + ! 4. The identical call now has to write the scalar into device memory. + res_dev = 0.0_c_float + call hipblasCheck(hipblasSdot(handle, n, dx, 1, dy, 1, dres)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(c_loc(res_dev), dres, sbytes, hipMemcpyDeviceToHost)) + if (abs(res_dev - res_exact) > tol * res_exact) then + write(*,*) "FAILED! device-mode sdot returned ", res_dev, " expected ", res_exact + STOP 1 + end if + if (res_dev /= res_host) then + write(*,*) "FAILED! device-mode result ", res_dev, " differs from host-mode result ", res_host + STOP 1 + end if + + ! 5. Close the round-trip by restoring the host pointer mode. + call hipblasCheck(hipblasSetPointerMode(handle, HIPBLAS_POINTER_MODE_HOST)) + mode = -1 + call hipblasCheck(hipblasGetPointerMode(handle, mode)) + if (mode /= HIPBLAS_POINTER_MODE_HOST) then + write(*,*) "FAILED! after restoring HIPBLAS_POINTER_MODE_HOST the getter reported ", mode + STOP 1 + end if + + call hipCheck(hipFree(dx)) + call hipCheck(hipFree(dy)) + call hipCheck(hipFree(dres)) + call hipblasCheck(hipblasDestroy(handle)) + + write(*,*) "PASSED! pointer mode round-trips HOST/DEVICE, sdot = ", res_dev + +end program hipblas_pointer_mode diff --git a/bindings/fortran/hipblas/test/hipblas_pointer_mode.f08 b/bindings/fortran/hipblas/test/hipblas_pointer_mode.f08 new file mode 100644 index 000000000000..a155112e2052 --- /dev/null +++ b/bindings/fortran/hipblas/test/hipblas_pointer_mode.f08 @@ -0,0 +1,136 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +! Exercises hipblasGetPointerMode / hipblasSetPointerMode on a handle created +! with hipblasCreate, checking both that the mode round-trips through the +! getter and that hipBLAS keeps computing the right answer across the switch: +! +! 1. The freshly created handle must report HIPBLAS_POINTER_MODE_HOST. +! 2. In HOST mode, hipblasSdot writes its scalar result into host memory; +! the value must match the exact dot product 408.0. +! 3. hipblasSetPointerMode(HIPBLAS_POINTER_MODE_DEVICE) must round-trip +! through hipblasGetPointerMode. +! 4. In DEVICE mode, the very same hipblasSdot call writes into a device +! scalar; copying it back must yield the same 408.0. +! 5. Switching back to HOST must again round-trip through the getter. +! +! The test fails (prints "FAILED! ..." and stops with status 1) if any query +! reports the wrong mode or either dot product deviates from the exact value. +program hipblas_pointer_mode + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(c_int), parameter :: n = 8 + real(c_float), parameter :: res_exact = 408.0_c_float + real(c_float), parameter :: tol = 1.0e-5_c_float + + real(c_float) :: hx(n), hy(n) + real(c_float), target :: res_host + real(c_float) :: hres(1) + real(c_float), pointer :: dx(:) => null(), dy(:) => null(), dres(:) => null() + integer(kind(HIPBLAS_POINTER_MODE_HOST)) :: mode + type(c_ptr) :: handle = c_null_ptr + integer :: i + + write(*,"(a)",advance="no") "-- Running test 'hipBLAS pointer mode' & + &(Fortran 2008 interfaces) - " + + ! hx(i) = i, hy(i) = 2i, so dot(hx,hy) = 2 * sum(i**2) = 408 for n = 8. + do i = 1, n + hx(i) = real(i, c_float) + hy(i) = 2.0_c_float * real(i, c_float) + end do + + call hipblasCheck(hipblasCreate(handle)) + + call hipCheck(hipMalloc(dx, shape(hx))) + call hipCheck(hipMalloc(dy, shape(hy))) + call hipCheck(hipMalloc(dres, 1)) + call hipCheck(hipMemcpy(dx, hx, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dy, hy, hipMemcpyHostToDevice)) + + ! 1. A new handle defaults to host pointer mode. The 'mode' dummy argument is + ! the enum itself, passed by reference, so the variable is handed over + ! directly and hipBLAS writes the mode into it. + mode = -1 + call hipblasCheck(hipblasGetPointerMode(handle, mode)) + if (mode /= HIPBLAS_POINTER_MODE_HOST) then + write(*,*) "FAILED! fresh handle reported pointer mode ", mode, & + " instead of HIPBLAS_POINTER_MODE_HOST" + STOP 1 + end if + + ! 2. In host mode the result scalar lives in host memory. + res_host = 0.0_c_float + call hipblasCheck(hipblasSdot(handle, n, dx, 1, dy, 1, c_loc(res_host))) + call hipCheck(hipDeviceSynchronize()) + if (abs(res_host - res_exact) > tol * res_exact) then + write(*,*) "FAILED! host-mode sdot returned ", res_host, " expected ", res_exact + STOP 1 + end if + + ! 3. Flip to device pointer mode and make sure the getter agrees. + call hipblasCheck(hipblasSetPointerMode(handle, HIPBLAS_POINTER_MODE_DEVICE)) + mode = -1 + call hipblasCheck(hipblasGetPointerMode(handle, mode)) + if (mode /= HIPBLAS_POINTER_MODE_DEVICE) then + write(*,*) "FAILED! after hipblasSetPointerMode(DEVICE) the getter reported ", mode + STOP 1 + end if + + ! 4. The identical call now has to write the scalar into device memory. + hres(1) = 0.0_c_float + call hipblasCheck(hipblasSdot(handle, n, dx, 1, dy, 1, c_loc(dres))) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(hres, dres, hipMemcpyDeviceToHost)) + if (abs(hres(1) - res_exact) > tol * res_exact) then + write(*,*) "FAILED! device-mode sdot returned ", hres(1), " expected ", res_exact + STOP 1 + end if + if (hres(1) /= res_host) then + write(*,*) "FAILED! device-mode result ", hres(1), " differs from host-mode result ", res_host + STOP 1 + end if + + ! 5. Close the round-trip by restoring the host pointer mode. + call hipblasCheck(hipblasSetPointerMode(handle, HIPBLAS_POINTER_MODE_HOST)) + mode = -1 + call hipblasCheck(hipblasGetPointerMode(handle, mode)) + if (mode /= HIPBLAS_POINTER_MODE_HOST) then + write(*,*) "FAILED! after restoring HIPBLAS_POINTER_MODE_HOST the getter reported ", mode + STOP 1 + end if + + call hipCheck(hipFree(dx)) + call hipCheck(hipFree(dy)) + call hipCheck(hipFree(dres)) + call hipblasCheck(hipblasDestroy(handle)) + + write(*,*) "PASSED! pointer mode round-trips HOST/DEVICE, sdot = ", hres(1) + +end program hipblas_pointer_mode diff --git a/bindings/fortran/hipblas/test/hipblas_version.f03 b/bindings/fortran/hipblas/test/hipblas_version.f03 new file mode 100644 index 000000000000..03f5b9582577 --- /dev/null +++ b/bindings/fortran/hipblas/test/hipblas_version.f03 @@ -0,0 +1,105 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +! Exercises the hipBLAS version/property query API: +! hipblasCreate / hipblasGetVersion / hipblasGetProperty / hipblasDestroy. +! +! hipblasGetVersion now takes an `integer(c_int) :: version` output dummy by +! reference, so the variable is passed DIRECTLY (no c_loc). +! The variable is likewise passed directly to hipblasGetProperty, through the generic's _typed form. +! +! The test passes when: +! 1. hipblasGetVersion overwrites the sentinel with a positive version, +! 2. that packed version decomposes into a plausible major/minor/patch, +! 3. the decomposition agrees with the three hipblasGetProperty queries +! (two independent APIs must report the same version), and +! 4. hipblasGetVersion with a NULL handle (explicitly allowed) agrees too. +! Any mismatch prints "FAILED! ..." and stops with exit code 1. +program hipblas_version + use iso_c_binding + use hip + use hipblas + + implicit none + + type(c_ptr) :: handle = c_null_ptr + integer(c_int) :: version, version2 + integer(c_int) :: major, minor, patch + integer(c_int), target :: pmajor, pminor, ppatch + + write(*,"(a)",advance="no") "-- Running test 'hipblas_version' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + ! Sentinel: if the binding were still `type(c_ptr),value`, the integer would + ! be reinterpreted as an address and `version` would stay at -1 (or crash). + version = -1 + call hipblasCheck(hipblasGetVersion(handle, version)) + + if (version <= 0) then + write(*,*) "FAILED! hipblasGetVersion did not fill in the version, got ", version + STOP 1 + end if + + ! The packed encoding is major*10000 + minor*100 + patch. + major = version / 10000 + minor = mod(version, 10000) / 100 + patch = mod(version, 100) + + if (major < 1 .or. minor < 0 .or. patch < 0) then + write(*,*) "FAILED! implausible hipBLAS version decomposition ", major, minor, patch + STOP 1 + end if + + ! hipblasGetProperty needs no handle and writes through a pointer. + pmajor = -1 + pminor = -1 + ppatch = -1 + call hipblasCheck(hipblasGetProperty(HIPBLAS_MAJOR_VERSION, pmajor)) + call hipblasCheck(hipblasGetProperty(HIPBLAS_MINOR_VERSION, pminor)) + call hipblasCheck(hipblasGetProperty(HIPBLAS_PATCH_LEVEL, ppatch)) + + if (major /= pmajor .or. minor /= pminor .or. patch /= ppatch) then + write(*,*) "FAILED! hipblasGetVersion and hipblasGetProperty disagree: ", & + major, minor, patch, " vs ", pmajor, pminor, ppatch + STOP 1 + end if + + ! The handle argument of hipblasGetVersion is documented as optional (NULL). + version2 = -1 + call hipblasCheck(hipblasGetVersion(c_null_ptr, version2)) + + if (version2 /= version) then + write(*,*) "FAILED! hipblasGetVersion with a NULL handle returned ", version2, & + " instead of ", version + STOP 1 + end if + + call hipblasCheck(hipblasDestroy(handle)) + + write(*,"(a,i0,a,i0,a,i0,a,i0,a)") " PASSED! hipBLAS version: ", major, ".", minor, ".", & + patch, " (raw ", version, ")" + +end program hipblas_version diff --git a/bindings/fortran/hipblas/test/hipblas_version.f08 b/bindings/fortran/hipblas/test/hipblas_version.f08 new file mode 100644 index 000000000000..c34335d5492b --- /dev/null +++ b/bindings/fortran/hipblas/test/hipblas_version.f08 @@ -0,0 +1,105 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +! Exercises the hipBLAS version/property query API: +! hipblasCreate / hipblasGetVersion / hipblasGetProperty / hipblasDestroy. +! +! hipblasGetVersion now takes an `integer(c_int) :: version` output dummy by +! reference, so the variable is passed DIRECTLY (no c_loc). +! The variable is likewise passed directly to hipblasGetProperty, through the generic's _typed form. +! +! The test passes when: +! 1. hipblasGetVersion overwrites the sentinel with a positive version, +! 2. that packed version decomposes into a plausible major/minor/patch, +! 3. the decomposition agrees with the three hipblasGetProperty queries +! (two independent APIs must report the same version), and +! 4. hipblasGetVersion with a NULL handle (explicitly allowed) agrees too. +! Any mismatch prints "FAILED! ..." and stops with exit code 1. +program hipblas_version + use iso_c_binding + use hip + use hipblas + + implicit none + + type(c_ptr) :: handle = c_null_ptr + integer(c_int) :: version, version2 + integer(c_int) :: major, minor, patch + integer(c_int), target :: pmajor, pminor, ppatch + + write(*,"(a)",advance="no") "-- Running test 'hipblas_version' (Fortran 2008 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + ! Sentinel: if the binding were still `type(c_ptr),value`, the integer would + ! be reinterpreted as an address and `version` would stay at -1 (or crash). + version = -1 + call hipblasCheck(hipblasGetVersion(handle, version)) + + if (version <= 0) then + write(*,*) "FAILED! hipblasGetVersion did not fill in the version, got ", version + STOP 1 + end if + + ! The packed encoding is major*10000 + minor*100 + patch. + major = version / 10000 + minor = mod(version, 10000) / 100 + patch = mod(version, 100) + + if (major < 1 .or. minor < 0 .or. patch < 0) then + write(*,*) "FAILED! implausible hipBLAS version decomposition ", major, minor, patch + STOP 1 + end if + + ! hipblasGetProperty needs no handle and writes through a pointer. + pmajor = -1 + pminor = -1 + ppatch = -1 + call hipblasCheck(hipblasGetProperty(HIPBLAS_MAJOR_VERSION, pmajor)) + call hipblasCheck(hipblasGetProperty(HIPBLAS_MINOR_VERSION, pminor)) + call hipblasCheck(hipblasGetProperty(HIPBLAS_PATCH_LEVEL, ppatch)) + + if (major /= pmajor .or. minor /= pminor .or. patch /= ppatch) then + write(*,*) "FAILED! hipblasGetVersion and hipblasGetProperty disagree: ", & + major, minor, patch, " vs ", pmajor, pminor, ppatch + STOP 1 + end if + + ! The handle argument of hipblasGetVersion is documented as optional (NULL). + version2 = -1 + call hipblasCheck(hipblasGetVersion(c_null_ptr, version2)) + + if (version2 /= version) then + write(*,*) "FAILED! hipblasGetVersion with a NULL handle returned ", version2, & + " instead of ", version + STOP 1 + end if + + call hipblasCheck(hipblasDestroy(handle)) + + write(*,"(a,i0,a,i0,a,i0,a,i0,a)") " PASSED! hipBLAS version: ", major, ".", minor, ".", & + patch, " (raw ", version, ")" + +end program hipblas_version diff --git a/bindings/fortran/hipblas/test/icamax.f03 b/bindings/fortran/hipblas/test/icamax.f03 new file mode 100644 index 000000000000..a2b6a5c6b8fe --- /dev/null +++ b/bindings/fortran/hipblas/test/icamax.f03 @@ -0,0 +1,70 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_icamax + use iso_c_binding + use hip + use hipblas + + implicit none + + ! The largest |x| sits at index 5, and hipBLAS returns a 1-based index. + integer, parameter :: n = 8 + integer(c_size_t) :: Nbytes + complex(c_float_complex), allocatable, target, dimension(:) :: hx + integer(c_int), target :: res + integer(c_int), parameter :: res_exact = 5 + type(c_ptr) :: dx = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + + write(*,"(a)",advance="no") "-- Running test 'icamax' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + allocate(hx(n)) + hx = (1.0, 0.0) + hx(5) = (10.0, 0.0) + + Nbytes = int(n, c_size_t) * 8 + call hipCheck(hipMalloc(dx, Nbytes)) + call hipCheck(hipMemcpy(dx, c_loc(hx(1)), Nbytes, hipMemcpyHostToDevice)) + + res = 0 + call hipblasCheck(hipblasIcamax(handle, n, dx, 1, c_loc(res))) + call hipCheck(hipDeviceSynchronize()) + + if (res /= res_exact) then + write(*,*) "FAILED! wrong index: result = ", res, " expected ", res_exact + call exit(1) + end if + + call hipCheck(hipFree(dx)) + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(hx) + + write(*,*) "PASSED!" + +end program hip_icamax diff --git a/bindings/fortran/hipblas/test/icamax.f08 b/bindings/fortran/hipblas/test/icamax.f08 new file mode 100644 index 000000000000..f05a6036f15f --- /dev/null +++ b/bindings/fortran/hipblas/test/icamax.f08 @@ -0,0 +1,68 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_icamax + use iso_c_binding + use hip + use hipblas + + implicit none + + ! The largest |x| sits at index 5, and hipBLAS returns a 1-based index. + integer, parameter :: n = 8 + complex(c_float_complex), allocatable, dimension(:) :: hx + integer(c_int), target :: res + integer(c_int), parameter :: res_exact = 5 + complex(c_float_complex), pointer, dimension(:) :: dx + type(c_ptr) :: handle = c_null_ptr + + write(*,"(a)",advance="no") "-- Running test 'icamax' (Fortran 2008 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + allocate(hx(n)) + hx = (1.0, 0.0) + hx(5) = (10.0, 0.0) + + call hipCheck(hipMalloc(dx, shape(hx))) + call hipCheck(hipMemcpy(dx, hx, hipMemcpyHostToDevice)) + + res = 0 + call hipblasCheck(hipblasIcamax(handle, n, dx, 1, c_loc(res))) + call hipCheck(hipDeviceSynchronize()) + + if (res /= res_exact) then + write(*,*) "FAILED! wrong index: result = ", res, " expected ", res_exact + call exit(1) + end if + + call hipCheck(hipFree(dx)) + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(hx) + + write(*,*) "PASSED!" + +end program hip_icamax diff --git a/bindings/fortran/hipblas/test/idamax.f03 b/bindings/fortran/hipblas/test/idamax.f03 new file mode 100644 index 000000000000..be0e5b3ba8f0 --- /dev/null +++ b/bindings/fortran/hipblas/test/idamax.f03 @@ -0,0 +1,70 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_idamax + use iso_c_binding + use hip + use hipblas + + implicit none + + ! The largest |x| sits at index 5, and hipBLAS returns a 1-based index. + integer, parameter :: n = 8 + integer(c_size_t) :: Nbytes + real(c_double), allocatable, target, dimension(:) :: hx + integer(c_int), target :: res + integer(c_int), parameter :: res_exact = 5 + type(c_ptr) :: dx = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + + write(*,"(a)",advance="no") "-- Running test 'idamax' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + allocate(hx(n)) + hx = 1.0 + hx(5) = 10.0 + + Nbytes = int(n, c_size_t) * 8 + call hipCheck(hipMalloc(dx, Nbytes)) + call hipCheck(hipMemcpy(dx, c_loc(hx(1)), Nbytes, hipMemcpyHostToDevice)) + + res = 0 + call hipblasCheck(hipblasIdamax(handle, n, dx, 1, c_loc(res))) + call hipCheck(hipDeviceSynchronize()) + + if (res /= res_exact) then + write(*,*) "FAILED! wrong index: result = ", res, " expected ", res_exact + call exit(1) + end if + + call hipCheck(hipFree(dx)) + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(hx) + + write(*,*) "PASSED!" + +end program hip_idamax diff --git a/bindings/fortran/hipblas/test/idamax.f08 b/bindings/fortran/hipblas/test/idamax.f08 new file mode 100644 index 000000000000..f1438e105acb --- /dev/null +++ b/bindings/fortran/hipblas/test/idamax.f08 @@ -0,0 +1,68 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_idamax + use iso_c_binding + use hip + use hipblas + + implicit none + + ! The largest |x| sits at index 5, and hipBLAS returns a 1-based index. + integer, parameter :: n = 8 + real(c_double), allocatable, dimension(:) :: hx + integer(c_int), target :: res + integer(c_int), parameter :: res_exact = 5 + real(c_double), pointer, dimension(:) :: dx + type(c_ptr) :: handle = c_null_ptr + + write(*,"(a)",advance="no") "-- Running test 'idamax' (Fortran 2008 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + allocate(hx(n)) + hx = 1.0 + hx(5) = 10.0 + + call hipCheck(hipMalloc(dx, shape(hx))) + call hipCheck(hipMemcpy(dx, hx, hipMemcpyHostToDevice)) + + res = 0 + call hipblasCheck(hipblasIdamax(handle, n, dx, 1, c_loc(res))) + call hipCheck(hipDeviceSynchronize()) + + if (res /= res_exact) then + write(*,*) "FAILED! wrong index: result = ", res, " expected ", res_exact + call exit(1) + end if + + call hipCheck(hipFree(dx)) + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(hx) + + write(*,*) "PASSED!" + +end program hip_idamax diff --git a/bindings/fortran/hipblas/test/isamax.f03 b/bindings/fortran/hipblas/test/isamax.f03 new file mode 100644 index 000000000000..93edbb902e90 --- /dev/null +++ b/bindings/fortran/hipblas/test/isamax.f03 @@ -0,0 +1,70 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_isamax + use iso_c_binding + use hip + use hipblas + + implicit none + + ! The largest |x| sits at index 5, and hipBLAS returns a 1-based index. + integer, parameter :: n = 8 + integer(c_size_t) :: Nbytes + real(c_float), allocatable, target, dimension(:) :: hx + integer(c_int), target :: res + integer(c_int), parameter :: res_exact = 5 + type(c_ptr) :: dx = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + + write(*,"(a)",advance="no") "-- Running test 'isamax' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + allocate(hx(n)) + hx = 1.0 + hx(5) = 10.0 + + Nbytes = int(n, c_size_t) * 4 + call hipCheck(hipMalloc(dx, Nbytes)) + call hipCheck(hipMemcpy(dx, c_loc(hx(1)), Nbytes, hipMemcpyHostToDevice)) + + res = 0 + call hipblasCheck(hipblasIsamax(handle, n, dx, 1, c_loc(res))) + call hipCheck(hipDeviceSynchronize()) + + if (res /= res_exact) then + write(*,*) "FAILED! wrong index: result = ", res, " expected ", res_exact + call exit(1) + end if + + call hipCheck(hipFree(dx)) + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(hx) + + write(*,*) "PASSED!" + +end program hip_isamax diff --git a/bindings/fortran/hipblas/hip_datatypes_stub.F90 b/bindings/fortran/hipblas/test/isamax.f08 similarity index 56% rename from bindings/fortran/hipblas/hip_datatypes_stub.F90 rename to bindings/fortran/hipblas/test/isamax.f08 index b2e360b007e4..f4669a406789 100644 --- a/bindings/fortran/hipblas/hip_datatypes_stub.F90 +++ b/bindings/fortran/hipblas/test/isamax.f08 @@ -23,32 +23,46 @@ ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! -! TEMPORARY: delete when ROCm/rocm-systems#11923 ships a HIP Fortran binding. -! HIP's hipDataType enumerators 0..15 (values from the HIP binding) for the -! clients' `use hip`. Compiled into hipblas_fortran_client only; never -! installed, so no second hip.mod reaches a prefix. +program hip_isamax + use iso_c_binding + use hip + use hipblas -module hip implicit none - public - - enum, bind(c) - enumerator :: HIP_R_32F = 0 - enumerator :: HIP_R_64F = 1 - enumerator :: HIP_R_16F = 2 - enumerator :: HIP_R_8I = 3 - enumerator :: HIP_C_32F = 4 - enumerator :: HIP_C_64F = 5 - enumerator :: HIP_C_16F = 6 - enumerator :: HIP_C_8I = 7 - enumerator :: HIP_R_8U = 8 - enumerator :: HIP_C_8U = 9 - enumerator :: HIP_R_32I = 10 - enumerator :: HIP_C_32I = 11 - enumerator :: HIP_R_32U = 12 - enumerator :: HIP_C_32U = 13 - enumerator :: HIP_R_16BF = 14 - enumerator :: HIP_C_16BF = 15 - end enum - -end module hip + + ! The largest |x| sits at index 5, and hipBLAS returns a 1-based index. + integer, parameter :: n = 8 + real(c_float), allocatable, dimension(:) :: hx + integer(c_int), target :: res + integer(c_int), parameter :: res_exact = 5 + real(c_float), pointer, dimension(:) :: dx + type(c_ptr) :: handle = c_null_ptr + + write(*,"(a)",advance="no") "-- Running test 'isamax' (Fortran 2008 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + allocate(hx(n)) + hx = 1.0 + hx(5) = 10.0 + + call hipCheck(hipMalloc(dx, shape(hx))) + call hipCheck(hipMemcpy(dx, hx, hipMemcpyHostToDevice)) + + res = 0 + call hipblasCheck(hipblasIsamax(handle, n, dx, 1, c_loc(res))) + call hipCheck(hipDeviceSynchronize()) + + if (res /= res_exact) then + write(*,*) "FAILED! wrong index: result = ", res, " expected ", res_exact + call exit(1) + end if + + call hipCheck(hipFree(dx)) + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(hx) + + write(*,*) "PASSED!" + +end program hip_isamax diff --git a/bindings/fortran/hipblas/test/izamax.f03 b/bindings/fortran/hipblas/test/izamax.f03 new file mode 100644 index 000000000000..e04414f1bca8 --- /dev/null +++ b/bindings/fortran/hipblas/test/izamax.f03 @@ -0,0 +1,70 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_izamax + use iso_c_binding + use hip + use hipblas + + implicit none + + ! The largest |x| sits at index 5, and hipBLAS returns a 1-based index. + integer, parameter :: n = 8 + integer(c_size_t) :: Nbytes + complex(c_double_complex), allocatable, target, dimension(:) :: hx + integer(c_int), target :: res + integer(c_int), parameter :: res_exact = 5 + type(c_ptr) :: dx = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + + write(*,"(a)",advance="no") "-- Running test 'izamax' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + allocate(hx(n)) + hx = (1.0, 0.0) + hx(5) = (10.0, 0.0) + + Nbytes = int(n, c_size_t) * 16 + call hipCheck(hipMalloc(dx, Nbytes)) + call hipCheck(hipMemcpy(dx, c_loc(hx(1)), Nbytes, hipMemcpyHostToDevice)) + + res = 0 + call hipblasCheck(hipblasIzamax(handle, n, dx, 1, c_loc(res))) + call hipCheck(hipDeviceSynchronize()) + + if (res /= res_exact) then + write(*,*) "FAILED! wrong index: result = ", res, " expected ", res_exact + call exit(1) + end if + + call hipCheck(hipFree(dx)) + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(hx) + + write(*,*) "PASSED!" + +end program hip_izamax diff --git a/bindings/fortran/hipblas/test/izamax.f08 b/bindings/fortran/hipblas/test/izamax.f08 new file mode 100644 index 000000000000..9a5473b259e4 --- /dev/null +++ b/bindings/fortran/hipblas/test/izamax.f08 @@ -0,0 +1,68 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_izamax + use iso_c_binding + use hip + use hipblas + + implicit none + + ! The largest |x| sits at index 5, and hipBLAS returns a 1-based index. + integer, parameter :: n = 8 + complex(c_double_complex), allocatable, dimension(:) :: hx + integer(c_int), target :: res + integer(c_int), parameter :: res_exact = 5 + complex(c_double_complex), pointer, dimension(:) :: dx + type(c_ptr) :: handle = c_null_ptr + + write(*,"(a)",advance="no") "-- Running test 'izamax' (Fortran 2008 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + allocate(hx(n)) + hx = (1.0, 0.0) + hx(5) = (10.0, 0.0) + + call hipCheck(hipMalloc(dx, shape(hx))) + call hipCheck(hipMemcpy(dx, hx, hipMemcpyHostToDevice)) + + res = 0 + call hipblasCheck(hipblasIzamax(handle, n, dx, 1, c_loc(res))) + call hipCheck(hipDeviceSynchronize()) + + if (res /= res_exact) then + write(*,*) "FAILED! wrong index: result = ", res, " expected ", res_exact + call exit(1) + end if + + call hipCheck(hipFree(dx)) + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(hx) + + write(*,*) "PASSED!" + +end program hip_izamax diff --git a/bindings/fortran/hipblas/test/sasum.f03 b/bindings/fortran/hipblas/test/sasum.f03 new file mode 100644 index 000000000000..ed29d92aea72 --- /dev/null +++ b/bindings/fortran/hipblas/test/sasum.f03 @@ -0,0 +1,72 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_sasum + use iso_c_binding + use hip + use hipblas + + implicit none + + ! asum(x) with x = 1 over n elements, so the result is n. + integer, parameter :: n = 1024 + integer(c_size_t) :: Nbytes + real(c_float), allocatable, target, dimension(:) :: hx + real(c_float), target :: res + real(c_float) :: res_exact, error + real(c_float), parameter :: error_max = 10*epsilon(error) + type(c_ptr) :: dx = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + + write(*,"(a)",advance="no") "-- Running test 'sasum' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + allocate(hx(n)) + hx = 1.0 + res_exact = real(n, kind=kind(res_exact)) + + Nbytes = int(n, c_size_t) * 4 + call hipCheck(hipMalloc(dx, Nbytes)) + call hipCheck(hipMemcpy(dx, c_loc(hx(1)), Nbytes, hipMemcpyHostToDevice)) + + res = 0.0 + call hipblasCheck(hipblasSasum(handle, n, dx, 1, c_loc(res))) + call hipCheck(hipDeviceSynchronize()) + + error = abs((res_exact - res) / res_exact) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " result = ", res + call exit(1) + end if + + call hipCheck(hipFree(dx)) + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(hx) + + write(*,*) "PASSED!" + +end program hip_sasum diff --git a/bindings/fortran/hipblas/test/sasum.f08 b/bindings/fortran/hipblas/test/sasum.f08 new file mode 100644 index 000000000000..0cc88b7ac7a2 --- /dev/null +++ b/bindings/fortran/hipblas/test/sasum.f08 @@ -0,0 +1,70 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_sasum + use iso_c_binding + use hip + use hipblas + + implicit none + + ! asum(x) with x = 1 over n elements, so the result is n. + integer, parameter :: n = 1024 + real(c_float), allocatable, dimension(:) :: hx + real(c_float), target :: res + real(c_float) :: res_exact, error + real(c_float), parameter :: error_max = 10*epsilon(error) + real(c_float), pointer, dimension(:) :: dx + type(c_ptr) :: handle = c_null_ptr + + write(*,"(a)",advance="no") "-- Running test 'sasum' (Fortran 2008 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + allocate(hx(n)) + hx = 1.0 + res_exact = real(n, kind=kind(res_exact)) + + call hipCheck(hipMalloc(dx, shape(hx))) + call hipCheck(hipMemcpy(dx, hx, hipMemcpyHostToDevice)) + + res = 0.0 + call hipblasCheck(hipblasSasum(handle, n, dx, 1, c_loc(res))) + call hipCheck(hipDeviceSynchronize()) + + error = abs((res_exact - res) / res_exact) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " result = ", res + call exit(1) + end if + + call hipCheck(hipFree(dx)) + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(hx) + + write(*,*) "PASSED!" + +end program hip_sasum diff --git a/bindings/fortran/hipblas/test/saxpy.f03 b/bindings/fortran/hipblas/test/saxpy.f03 new file mode 100644 index 000000000000..b3db7e5936d7 --- /dev/null +++ b/bindings/fortran/hipblas/test/saxpy.f03 @@ -0,0 +1,100 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2021-2024 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_saxpy + use iso_c_binding + use hip + use hipblas + + + implicit none + + integer :: n = 6 + type(c_ptr) :: handle = c_null_ptr + integer :: j + real, allocatable, target, dimension(:) :: x, y, y_exact + + real, target :: alpha = 2.0 + type(c_ptr) :: dx = c_null_ptr, dy = c_null_ptr + + integer, parameter :: bytes_per_element = 4 !float precision + + integer(c_size_t) :: Nxbytes + integer(c_size_t) :: Nybytes + + real :: error + real, parameter :: error_max = 10*epsilon(error) + + Nxbytes = n * bytes_per_element + Nybytes = n * bytes_per_element + allocate(x(n)) + allocate(y(n)) + allocate(y_exact(n)) + + do j = 1,n + x(j) = j + y(j) = j + end do + + do j = 1,n + y_exact(j) = alpha*x(j) + y(j) + end do + + write(*,"(a)",advance="no") "-- Running test 'SAXPY' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + call hipCheck(hipMalloc(dx,Nxbytes)) + call hipCheck(hipMalloc(dy,Nybytes)) + + call hipCheck(hipMemcpy(dx, c_loc(x(1)), Nxbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dy, c_loc(y(1)), Nybytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasSaxpy(handle,n,c_loc(alpha),dx,1,dy,1)) + + call hipCheck(hipDeviceSynchronize()) + + call hipCheck(hipMemcpy(c_loc(y(1)), dy, Nybytes, hipMemcpyDeviceToHost)) + + do j = 1,n + error = abs((y_exact(j) - y(j))/y_exact(j)) + if( error > error_max )then + write(*,*) "FAILED! Error bigger than max! Error = ", error + call exit(1) + end if + end do + + call hipCheck(hipFree(dx)) + call hipCheck(hipFree(dy)) + + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(x) + deallocate(y) + deallocate(y_exact) + + write(*,*) "PASSED!" + +end program hip_saxpy diff --git a/bindings/fortran/hipblas/test/saxpy.f08 b/bindings/fortran/hipblas/test/saxpy.f08 new file mode 100644 index 000000000000..da1a0f4f911a --- /dev/null +++ b/bindings/fortran/hipblas/test/saxpy.f08 @@ -0,0 +1,91 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_saxpy + use iso_c_binding + use hip + use hipblas + + + implicit none + + integer :: n = 6 + type(c_ptr) :: handle = c_null_ptr + integer :: j + real, allocatable, dimension(:) :: x, y, y_exact + + real, target :: alpha = 2.0 + real, pointer, dimension(:) :: dx, dy + + real :: error + real, parameter :: error_max = 10*epsilon(error) + + allocate(x(n)) + allocate(y(n)) + allocate(y_exact(n)) + + do j = 1,n + x(j) = j + y(j) = j + end do + + do j = 1,n + y_exact(j) = alpha*x(j) + y(j) + end do + + write(*,"(a)",advance="no") "-- Running test 'SAXPY' (Fortran 2008 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + call hipCheck(hipMalloc(dx,shape(x))) + call hipCheck(hipMalloc(dy,shape(y))) + + call hipCheck(hipMemcpy(dx, x, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dy, y, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasSaxpy(handle,n,alpha,dx,1,dy,1)) + + call hipCheck(hipDeviceSynchronize()) + + call hipCheck(hipMemcpy(y, dy, hipMemcpyDeviceToHost)) + + do j = 1,n + error = abs((y_exact(j) - y(j))/y_exact(j)) + if( error > error_max )then + write(*,*) "FAILED! Error bigger than max! Error = ", error + call exit(1) + end if + end do + + call hipCheck(hipFree(dx)) + call hipCheck(hipFree(dy)) + + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(x,y,y_exact) + + write(*,*) "PASSED!" + +end program hip_saxpy diff --git a/bindings/fortran/hipblas/test/saxpy_devptr.f03 b/bindings/fortran/hipblas/test/saxpy_devptr.f03 new file mode 100644 index 000000000000..dbb93b9f508d --- /dev/null +++ b/bindings/fortran/hipblas/test/saxpy_devptr.f03 @@ -0,0 +1,110 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2021-2024 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_saxpy + use iso_c_binding + use hip + use hipblas + + + implicit none + + integer :: n = 6 + type(c_ptr) :: handle = c_null_ptr + integer :: j + real, allocatable, target, dimension(:) :: x, y, y_exact + + real, target :: alpha = 2.0 + + ! Device-resident copies of the dual-mode scalars; the library reads them + ! from device memory because the handle is in device pointer mode. + type(c_ptr) :: d_alpha = c_null_ptr + type(c_ptr) :: dx = c_null_ptr, dy = c_null_ptr + + integer, parameter :: bytes_per_element = 4 !float precision + + integer(c_size_t) :: Nxbytes + integer(c_size_t) :: Nybytes + + real :: error + real, parameter :: error_max = 10*epsilon(error) + + Nxbytes = n * bytes_per_element + Nybytes = n * bytes_per_element + allocate(x(n)) + allocate(y(n)) + allocate(y_exact(n)) + + do j = 1,n + x(j) = j + y(j) = j + end do + + do j = 1,n + y_exact(j) = alpha*x(j) + y(j) + end do + + write(*,"(a)",advance="no") "-- Running test 'SAXPY_devptr' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + ! Switch to device pointer mode and stage the scalars in device memory + call hipblasCheck(hipblasSetPointerMode(handle, HIPBLAS_POINTER_MODE_DEVICE)) + call hipCheck(hipMalloc(d_alpha, c_sizeof(alpha))) + call hipCheck(hipMemcpy(d_alpha, c_loc(alpha), c_sizeof(alpha), hipMemcpyHostToDevice)) + + call hipCheck(hipMalloc(dx,Nxbytes)) + call hipCheck(hipMalloc(dy,Nybytes)) + + call hipCheck(hipMemcpy(dx, c_loc(x(1)), Nxbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dy, c_loc(y(1)), Nybytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasSaxpy(handle,n,d_alpha,dx,1,dy,1)) + + call hipCheck(hipDeviceSynchronize()) + + call hipCheck(hipMemcpy(c_loc(y(1)), dy, Nybytes, hipMemcpyDeviceToHost)) + + do j = 1,n + error = abs((y_exact(j) - y(j))/y_exact(j)) + if( error > error_max )then + write(*,*) "FAILED! Error bigger than max! Error = ", error + call exit(1) + end if + end do + + call hipCheck(hipFree(dx)) + call hipCheck(hipFree(dy)) + + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(x) + deallocate(y) + deallocate(y_exact) + + call hipCheck(hipFree(d_alpha)) + write(*,*) "PASSED!" + +end program hip_saxpy diff --git a/bindings/fortran/hipblas/test/scasum.f03 b/bindings/fortran/hipblas/test/scasum.f03 new file mode 100644 index 000000000000..b3e4e379cf45 --- /dev/null +++ b/bindings/fortran/hipblas/test/scasum.f03 @@ -0,0 +1,72 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_scasum + use iso_c_binding + use hip + use hipblas + + implicit none + + ! asum(x) with x = 1 over n elements, so the result is n. + integer, parameter :: n = 1024 + integer(c_size_t) :: Nbytes + complex(c_float_complex), allocatable, target, dimension(:) :: hx + real(c_float), target :: res + real(c_float) :: res_exact, error + real(c_float), parameter :: error_max = 10*epsilon(error) + type(c_ptr) :: dx = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + + write(*,"(a)",advance="no") "-- Running test 'scasum' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + allocate(hx(n)) + hx = (1.0, 0.0) + res_exact = real(n, kind=kind(res_exact)) + + Nbytes = int(n, c_size_t) * 8 + call hipCheck(hipMalloc(dx, Nbytes)) + call hipCheck(hipMemcpy(dx, c_loc(hx(1)), Nbytes, hipMemcpyHostToDevice)) + + res = 0.0 + call hipblasCheck(hipblasScasum(handle, n, dx, 1, c_loc(res))) + call hipCheck(hipDeviceSynchronize()) + + error = abs((res_exact - res) / res_exact) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " result = ", res + call exit(1) + end if + + call hipCheck(hipFree(dx)) + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(hx) + + write(*,*) "PASSED!" + +end program hip_scasum diff --git a/bindings/fortran/hipblas/test/scasum.f08 b/bindings/fortran/hipblas/test/scasum.f08 new file mode 100644 index 000000000000..cf7d22ea1b0d --- /dev/null +++ b/bindings/fortran/hipblas/test/scasum.f08 @@ -0,0 +1,70 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_scasum + use iso_c_binding + use hip + use hipblas + + implicit none + + ! asum(x) with x = 1 over n elements, so the result is n. + integer, parameter :: n = 1024 + complex(c_float_complex), allocatable, dimension(:) :: hx + real(c_float), target :: res + real(c_float) :: res_exact, error + real(c_float), parameter :: error_max = 10*epsilon(error) + complex(c_float_complex), pointer, dimension(:) :: dx + type(c_ptr) :: handle = c_null_ptr + + write(*,"(a)",advance="no") "-- Running test 'scasum' (Fortran 2008 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + allocate(hx(n)) + hx = (1.0, 0.0) + res_exact = real(n, kind=kind(res_exact)) + + call hipCheck(hipMalloc(dx, shape(hx))) + call hipCheck(hipMemcpy(dx, hx, hipMemcpyHostToDevice)) + + res = 0.0 + call hipblasCheck(hipblasScasum(handle, n, dx, 1, c_loc(res))) + call hipCheck(hipDeviceSynchronize()) + + error = abs((res_exact - res) / res_exact) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " result = ", res + call exit(1) + end if + + call hipCheck(hipFree(dx)) + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(hx) + + write(*,*) "PASSED!" + +end program hip_scasum diff --git a/bindings/fortran/hipblas/test/scnrm2.f03 b/bindings/fortran/hipblas/test/scnrm2.f03 new file mode 100644 index 000000000000..0e6988a9983d --- /dev/null +++ b/bindings/fortran/hipblas/test/scnrm2.f03 @@ -0,0 +1,72 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_scnrm2 + use iso_c_binding + use hip + use hipblas + + implicit none + + ! nrm2(x) with x = 1 over n elements, so the result is sqrt(n). + integer, parameter :: n = 1024 + integer(c_size_t) :: Nbytes + complex(c_float_complex), allocatable, target, dimension(:) :: hx + real(c_float), target :: res + real(c_float) :: res_exact, error + real(c_float), parameter :: error_max = 10*epsilon(error) + type(c_ptr) :: dx = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + + write(*,"(a)",advance="no") "-- Running test 'scnrm2' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + allocate(hx(n)) + hx = (1.0, 0.0) + res_exact = sqrt(real(n, kind=kind(res_exact))) + + Nbytes = int(n, c_size_t) * 8 + call hipCheck(hipMalloc(dx, Nbytes)) + call hipCheck(hipMemcpy(dx, c_loc(hx(1)), Nbytes, hipMemcpyHostToDevice)) + + res = 0.0 + call hipblasCheck(hipblasScnrm2(handle, n, dx, 1, c_loc(res))) + call hipCheck(hipDeviceSynchronize()) + + error = abs((res_exact - res) / res_exact) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " result = ", res + call exit(1) + end if + + call hipCheck(hipFree(dx)) + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(hx) + + write(*,*) "PASSED!" + +end program hip_scnrm2 diff --git a/bindings/fortran/hipblas/test/scnrm2.f08 b/bindings/fortran/hipblas/test/scnrm2.f08 new file mode 100644 index 000000000000..9fdf3766fa84 --- /dev/null +++ b/bindings/fortran/hipblas/test/scnrm2.f08 @@ -0,0 +1,70 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_scnrm2 + use iso_c_binding + use hip + use hipblas + + implicit none + + ! nrm2(x) with x = 1 over n elements, so the result is sqrt(n). + integer, parameter :: n = 1024 + complex(c_float_complex), allocatable, dimension(:) :: hx + real(c_float), target :: res + real(c_float) :: res_exact, error + real(c_float), parameter :: error_max = 10*epsilon(error) + complex(c_float_complex), pointer, dimension(:) :: dx + type(c_ptr) :: handle = c_null_ptr + + write(*,"(a)",advance="no") "-- Running test 'scnrm2' (Fortran 2008 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + allocate(hx(n)) + hx = (1.0, 0.0) + res_exact = sqrt(real(n, kind=kind(res_exact))) + + call hipCheck(hipMalloc(dx, shape(hx))) + call hipCheck(hipMemcpy(dx, hx, hipMemcpyHostToDevice)) + + res = 0.0 + call hipblasCheck(hipblasScnrm2(handle, n, dx, 1, c_loc(res))) + call hipCheck(hipDeviceSynchronize()) + + error = abs((res_exact - res) / res_exact) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " result = ", res + call exit(1) + end if + + call hipCheck(hipFree(dx)) + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(hx) + + write(*,*) "PASSED!" + +end program hip_scnrm2 diff --git a/bindings/fortran/hipblas/test/scopy.f03 b/bindings/fortran/hipblas/test/scopy.f03 new file mode 100644 index 000000000000..1752abe74ecb --- /dev/null +++ b/bindings/fortran/hipblas/test/scopy.f03 @@ -0,0 +1,96 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2021-2024 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_scopy + use iso_c_binding + use hip + use hipblas + + implicit none + + integer :: n = 6 + type(c_ptr) :: handle = c_null_ptr + integer :: j + real, allocatable, target, dimension(:) :: x, y + integer, parameter :: bytes_per_element = 4 !float precision + + type(c_ptr) :: dx = c_null_ptr, dy = c_null_ptr + + integer(c_size_t) :: Nxbytes + integer(c_size_t) :: Nybytes + + real :: error + real, parameter :: error_max = 10*epsilon(error) + + Nxbytes = n * bytes_per_element + Nybytes = n * bytes_per_element + allocate(x(n)) + allocate(y(n)) + + do j = 1,n + x(j) = j + ! write(*,*) "value of x(j)" , x(j) + end do + + write(*,"(a)",advance="no") "-- Running test 'Scopy' (Fortran 2003 interfaces) - " + + do j = 1,n + y(j) = -1.0 + ! write(*,*) "value of y(j)" , y(j) + end do + + call hipblasCheck(hipblasCreate(handle)) + + call hipCheck(hipMalloc(dx,Nxbytes)) + call hipCheck(hipMalloc(dy,Nybytes)) + + call hipCheck(hipMemcpy(dx, c_loc(x(1)), Nxbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dy, c_loc(y(1)), Nybytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasScopy(handle,n,dx,1,dy,1)) + + call hipCheck(hipDeviceSynchronize()) + + call hipCheck(hipMemcpy(c_loc(y(1)), dy, Nybytes, hipMemcpyDeviceToHost)) + + do j = 1,n + error = abs(y(j) - x(j)) + if( error > error_max )then + write(*,*) "FAILED! Error bigger than max! Error = ", error + call exit(1) + end if + end do + + call hipCheck(hipFree(dx)) + call hipCheck(hipFree(dy)) + + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(x) + deallocate(y) + + write(*,*) "PASSED!" + +end program hip_scopy diff --git a/bindings/fortran/hipblas/test/scopy.f08 b/bindings/fortran/hipblas/test/scopy.f08 new file mode 100644 index 000000000000..87ce02f362c8 --- /dev/null +++ b/bindings/fortran/hipblas/test/scopy.f08 @@ -0,0 +1,90 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_scopy + use iso_c_binding + use hip + use hipblas + + implicit none + + integer :: n = 6 + type(c_ptr) :: handle = c_null_ptr + integer :: j + real, allocatable, target, dimension(:) :: x, y + integer, parameter :: bytes_per_element = 4 !float precision + + real, pointer, dimension(:) :: dx,dy + + real :: error + real, parameter :: error_max = 10*epsilon(error) + + allocate(x(n)) + allocate(y(n)) + + do j = 1,n + x(j) = j + ! write(*,*) "value of x(j)" , x(j) + end do + + write(*,"(a)",advance="no") "-- Running test 'Scopy' (Fortran 2008 interfaces) - " + + ! Seed y with a sentinel so the check below actually exercises the copy: + ! filling y with x here would make the test pass even if hipblasScopy did + ! nothing. + do j = 1,n + y(j) = -1.0 + end do + + + call hipblasCheck(hipblasCreate(handle)) + + call hipCheck(hipMalloc(dx,source=x)) + call hipCheck(hipMalloc(dy,source=y)) + + call hipblasCheck(hipblasScopy(handle,n,dx,1,dy,1)) + + call hipCheck(hipDeviceSynchronize()) + + call hipCheck(hipMemcpy(y, dy, hipMemcpyDeviceToHost)) + + do j = 1,n + error = abs(y(j) - x(j)) + if( error > error_max )then + write(*,*) "FAILED! Error bigger than max! Error = ", error + call exit(1) + end if + end do + + call hipCheck(hipFree(dx)) + call hipCheck(hipFree(dy)) + + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(x,y) + + write(*,*) "PASSED!" + +end program hip_scopy diff --git a/bindings/fortran/hipblas/test/sdot.f03 b/bindings/fortran/hipblas/test/sdot.f03 new file mode 100644 index 000000000000..79276b40bd33 --- /dev/null +++ b/bindings/fortran/hipblas/test/sdot.f03 @@ -0,0 +1,74 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_sdot + use iso_c_binding + use hip + use hipblas + + implicit none + + integer, parameter :: n = 10240 + integer, parameter :: bytes_per_element = 4 + integer(c_size_t) :: Nbytes + real(kind=4), allocatable, target, dimension(:) :: hx, hy + real(kind=4), target :: res + real(kind=4) :: res_exact, error + real(kind=4), parameter :: error_max = 10*epsilon(error) + type(c_ptr) :: dx = c_null_ptr, dy = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + + write(*,"(a)",advance="no") "-- Running test 'SDOT' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + Nbytes = int(n, c_size_t) * bytes_per_element + allocate(hx(n), hy(n)) + hx = 1.0 + hy = 2.0 + res_exact = 2.0 * n + + call hipCheck(hipMalloc(dx, Nbytes)) + call hipCheck(hipMalloc(dy, Nbytes)) + call hipCheck(hipMemcpy(dx, c_loc(hx(1)), Nbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dy, c_loc(hy(1)), Nbytes, hipMemcpyHostToDevice)) + + res = 0.0 + call hipblasCheck(hipblasSdot(handle, n, dx, 1, dy, 1, c_loc(res))) + call hipCheck(hipDeviceSynchronize()) + + error = abs((res_exact - res) / res_exact) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " result = ", res + call exit(1) + end if + + call hipCheck(hipFree(dx)) + call hipCheck(hipFree(dy)) + call hipblasCheck(hipblasDestroy(handle)) + deallocate(hx, hy) + write(*,*) "PASSED!" + +end program hip_sdot diff --git a/bindings/fortran/hipblas/test/sdot.f08 b/bindings/fortran/hipblas/test/sdot.f08 new file mode 100644 index 000000000000..f2a9a1222eeb --- /dev/null +++ b/bindings/fortran/hipblas/test/sdot.f08 @@ -0,0 +1,71 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_sdot + use iso_c_binding + use hip + use hipblas + + implicit none + + integer, parameter :: n = 10240 + real(kind=4), allocatable, dimension(:) :: hx, hy + real(kind=4), pointer, dimension(:) :: dx, dy + real(kind=4), target :: res + real(kind=4) :: res_exact, error + real(kind=4), parameter :: error_max = 10*epsilon(error) + type(c_ptr) :: handle = c_null_ptr + + write(*,"(a)",advance="no") "-- Running test 'SDOT' (Fortran 2008 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + allocate(hx(n), hy(n)) + hx = 1.0 + hy = 2.0 + res_exact = 2.0 * n + + call hipCheck(hipMalloc(dx, shape(hx))) + call hipCheck(hipMalloc(dy, shape(hy))) + call hipCheck(hipMemcpy(dx, hx, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dy, hy, hipMemcpyHostToDevice)) + + res = 0.0 + call hipblasCheck(hipblasSdot(handle, n, dx, 1, dy, 1, c_loc(res))) + call hipCheck(hipDeviceSynchronize()) + + error = abs((res_exact - res) / res_exact) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " result = ", res + call exit(1) + end if + + call hipCheck(hipFree(dx)) + call hipCheck(hipFree(dy)) + call hipblasCheck(hipblasDestroy(handle)) + deallocate(hx, hy) + write(*,*) "PASSED!" + +end program hip_sdot diff --git a/bindings/fortran/hipblas/test/sgeam.f03 b/bindings/fortran/hipblas/test/sgeam.f03 new file mode 100644 index 000000000000..bdd0028ac862 --- /dev/null +++ b/bindings/fortran/hipblas/test/sgeam.f03 @@ -0,0 +1,85 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_sgeam + use iso_c_binding + use hip + use hipblas + + implicit none + + ! C := alpha*op(A) + beta*op(B) with alpha = 2, beta = -1 and no + ! transposition, so C = 2*A - B (a swap of alpha and beta, or of A and B, shows). + integer, parameter :: ld = 2 + integer(c_size_t) :: Nbytes + real(c_float), target :: alpha = 2.0, beta = -1.0 + + real(c_float), target :: hA(ld,ld) = reshape([1.0, 2.0, 3.0, 4.0], [ld,ld]) + real(c_float), target :: hB(ld,ld) = reshape([10.0, 20.0, 30.0, 40.0], [ld,ld]) + real(c_float), target :: hC(ld,ld) + real(c_float) :: expected(ld,ld) = reshape([-8.0, -16.0, -24.0, -32.0], [ld,ld]) + type(c_ptr) :: dA = c_null_ptr, dB = c_null_ptr, dC = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + integer :: i, j + real(c_float) :: error + real(c_float), parameter :: error_max = 10*epsilon(error) + + write(*,"(a)",advance="no") "-- Running test 'sgeam' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + hC = 0.0 + + Nbytes = int(ld*ld, c_size_t) * 4 + call hipCheck(hipMalloc(dA, Nbytes)) + call hipCheck(hipMemcpy(dA, c_loc(hA(1,1)), Nbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMalloc(dB, Nbytes)) + call hipCheck(hipMemcpy(dB, c_loc(hB(1,1)), Nbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMalloc(dC, Nbytes)) + call hipCheck(hipMemcpy(dC, c_loc(hC(1,1)), Nbytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasSgeam(handle, HIPBLAS_OP_N, HIPBLAS_OP_N, ld, ld, & + c_loc(alpha), dA, ld, c_loc(beta), dB, ld, dC, ld)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(c_loc(hC(1,1)), dC, Nbytes, hipMemcpyDeviceToHost)) + + do j = 1, ld + do i = 1, ld + error = abs(expected(i,j) - hC(i,j)) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " at ", i, j + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dB)) + call hipCheck(hipFree(dC)) + call hipblasCheck(hipblasDestroy(handle)) + + write(*,*) "PASSED!" + +end program hip_sgeam diff --git a/bindings/fortran/hipblas/test/sgeam.f08 b/bindings/fortran/hipblas/test/sgeam.f08 new file mode 100644 index 000000000000..30541e019764 --- /dev/null +++ b/bindings/fortran/hipblas/test/sgeam.f08 @@ -0,0 +1,83 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_sgeam + use iso_c_binding + use hip + use hipblas + + implicit none + + ! C := alpha*op(A) + beta*op(B) with alpha = 2, beta = -1 and no + ! transposition, so C = 2*A - B (a swap of alpha and beta, or of A and B, shows). + integer, parameter :: ld = 2 + real(c_float), target :: alpha = 2.0, beta = -1.0 + + real(c_float) :: hA(ld,ld) = reshape([1.0, 2.0, 3.0, 4.0], [ld,ld]) + real(c_float) :: hB(ld,ld) = reshape([10.0, 20.0, 30.0, 40.0], [ld,ld]) + real(c_float) :: hC(ld,ld) + real(c_float) :: expected(ld,ld) = reshape([-8.0, -16.0, -24.0, -32.0], [ld,ld]) + real(c_float), pointer, dimension(:,:) :: dA, dB, dC + type(c_ptr) :: handle = c_null_ptr + integer :: i, j + real(c_float) :: error + real(c_float), parameter :: error_max = 10*epsilon(error) + + write(*,"(a)",advance="no") "-- Running test 'sgeam' (Fortran 2008 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + hC = 0.0 + + call hipCheck(hipMalloc(dA, shape(hA))) + call hipCheck(hipMemcpy(dA, hA, hipMemcpyHostToDevice)) + call hipCheck(hipMalloc(dB, shape(hB))) + call hipCheck(hipMemcpy(dB, hB, hipMemcpyHostToDevice)) + call hipCheck(hipMalloc(dC, shape(hC))) + call hipCheck(hipMemcpy(dC, hC, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasSgeam(handle, HIPBLAS_OP_N, HIPBLAS_OP_N, ld, ld, & + alpha, dA, size(dA,1), beta, dB, size(dB,1), dC, size(dC,1))) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(hC, dC, hipMemcpyDeviceToHost)) + + do j = 1, ld + do i = 1, ld + error = abs(expected(i,j) - hC(i,j)) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " at ", i, j + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dB)) + call hipCheck(hipFree(dC)) + call hipblasCheck(hipblasDestroy(handle)) + + write(*,*) "PASSED!" + +end program hip_sgeam diff --git a/bindings/fortran/hipblas/test/sgeam_devptr.f03 b/bindings/fortran/hipblas/test/sgeam_devptr.f03 new file mode 100644 index 000000000000..c181be927fb2 --- /dev/null +++ b/bindings/fortran/hipblas/test/sgeam_devptr.f03 @@ -0,0 +1,99 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_sgeam + use iso_c_binding + use hip + use hipblas + + implicit none + + ! C := alpha*op(A) + beta*op(B) with alpha = 2, beta = -1 and no + ! transposition, so C = 2*A - B (a swap of alpha and beta, or of A and B, shows). + integer, parameter :: ld = 2 + integer(c_size_t) :: Nbytes + real(c_float), target :: alpha = 2.0, beta = -1.0 + + ! Device-resident copies of the dual-mode scalars; the library reads them + ! from device memory because the handle is in device pointer mode. + type(c_ptr) :: d_alpha = c_null_ptr + type(c_ptr) :: d_beta = c_null_ptr + + real(c_float), target :: hA(ld,ld) = reshape([1.0, 2.0, 3.0, 4.0], [ld,ld]) + real(c_float), target :: hB(ld,ld) = reshape([10.0, 20.0, 30.0, 40.0], [ld,ld]) + real(c_float), target :: hC(ld,ld) + real(c_float) :: expected(ld,ld) = reshape([-8.0, -16.0, -24.0, -32.0], [ld,ld]) + type(c_ptr) :: dA = c_null_ptr, dB = c_null_ptr, dC = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + integer :: i, j + real(c_float) :: error + real(c_float), parameter :: error_max = 10*epsilon(error) + + write(*,"(a)",advance="no") "-- Running test 'sgeam_devptr' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + ! Switch to device pointer mode and stage the scalars in device memory + call hipblasCheck(hipblasSetPointerMode(handle, HIPBLAS_POINTER_MODE_DEVICE)) + call hipCheck(hipMalloc(d_alpha, c_sizeof(alpha))) + call hipCheck(hipMalloc(d_beta, c_sizeof(beta))) + call hipCheck(hipMemcpy(d_alpha, c_loc(alpha), c_sizeof(alpha), hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(d_beta, c_loc(beta), c_sizeof(beta), hipMemcpyHostToDevice)) + + hC = 0.0 + + Nbytes = int(ld*ld, c_size_t) * 4 + call hipCheck(hipMalloc(dA, Nbytes)) + call hipCheck(hipMemcpy(dA, c_loc(hA(1,1)), Nbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMalloc(dB, Nbytes)) + call hipCheck(hipMemcpy(dB, c_loc(hB(1,1)), Nbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMalloc(dC, Nbytes)) + call hipCheck(hipMemcpy(dC, c_loc(hC(1,1)), Nbytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasSgeam(handle, HIPBLAS_OP_N, HIPBLAS_OP_N, ld, ld, & + d_alpha, dA, ld, d_beta, dB, ld, dC, ld)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(c_loc(hC(1,1)), dC, Nbytes, hipMemcpyDeviceToHost)) + + do j = 1, ld + do i = 1, ld + error = abs(expected(i,j) - hC(i,j)) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " at ", i, j + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dB)) + call hipCheck(hipFree(dC)) + call hipblasCheck(hipblasDestroy(handle)) + + call hipCheck(hipFree(d_alpha)) + call hipCheck(hipFree(d_beta)) + write(*,*) "PASSED!" + +end program hip_sgeam diff --git a/bindings/fortran/hipblas/test/sgemm.f03 b/bindings/fortran/hipblas/test/sgemm.f03 new file mode 100644 index 000000000000..c7fd69af95c5 --- /dev/null +++ b/bindings/fortran/hipblas/test/sgemm.f03 @@ -0,0 +1,121 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_sgemm + + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(kind(HIPBLAS_OP_N)), parameter :: transa = HIPBLAS_OP_N, transb = HIPBLAS_OP_N; + real(c_float), target :: alpha = 1.1, beta = 0.9; + + integer, parameter :: m = 1024, n = 1024, k = 1024; + integer :: lda, ldb, ldc, size_a, size_b, size_c; + + real(c_float), allocatable, target, dimension(:) :: ha, hb, hc + real(c_float), allocatable, dimension(:) :: hc_exact + + type(c_ptr) :: da = c_null_ptr, db = c_null_ptr, dc = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + + integer, parameter :: bytes_per_element = 4 !single precision + integer(c_size_t) :: Nabytes, Nbbytes, Ncbytes + + integer :: i + real :: error + real, parameter :: error_max = 10*epsilon(error) + + write(*,"(a)",advance="no") "-- Running test 'SGEMM' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + lda = m; + size_a = k * lda; + Nabytes = size_a*bytes_per_element + + ldb = k; + size_b = n * ldb; + Nbbytes = size_b*bytes_per_element + + ldc = m; + size_c = n * ldc; + Ncbytes = size_c*bytes_per_element + + allocate(ha(size_a)) + allocate(hb(size_b)) + allocate(hc(size_c)) + allocate(hc_exact(size_c)) + + ! Use these constant matrices so the exact answer is also a + ! constant matrix and therefore easy to check + ha(:) = 1.0 + hb(:) = 2.0 + hc(:) = 3.0 + hc_exact = alpha*k*2.0 + beta*3.0 + + ! Allocate device memory + call hipCheck(hipMalloc(da,Nabytes)) + call hipCheck(hipMalloc(db,Nbbytes)) + call hipCheck(hipMalloc(dc,Ncbytes)) + + !Transfer from host to device + call hipCheck(hipMemcpy(da, c_loc(ha(1)), Nabytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(db, c_loc(hb(1)), Nbbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dc, c_loc(hc(1)), Ncbytes, hipMemcpyHostToDevice)) + + + call hipblasCheck(hipblasSgemm(handle,transa,transb,m,n,k,c_loc(alpha),da,lda,db,ldb,c_loc(beta),dc,ldc)) + + call hipCheck(hipDeviceSynchronize()) + + ! Transfer data back to host memory + call hipCheck(hipMemcpy(c_loc(hc(1)), dc, Ncbytes, hipMemcpyDeviceToHost)) + + + do i = 1,size_c + error = abs((hc_exact(i) - hc(i))/hc_exact(i)) + if( error > error_max )then + write(*,*) "FAILED! Error bigger than max! Error = ", error + call exit(1) + end if + end do + + call hipCheck(hipFree(da)) + call hipCheck(hipFree(db)) + call hipCheck(hipFree(dc)) + + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(ha) + deallocate(hb) + deallocate(hc) + deallocate(hc_exact) + + write(*,*) "PASSED!" + +end program hip_sgemm diff --git a/bindings/fortran/hipblas/test/sgemm.f08 b/bindings/fortran/hipblas/test/sgemm.f08 new file mode 100644 index 000000000000..fe0789616095 --- /dev/null +++ b/bindings/fortran/hipblas/test/sgemm.f08 @@ -0,0 +1,96 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_sgemm + + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(kind(HIPBLAS_OP_N)), parameter :: transa = HIPBLAS_OP_N, transb = HIPBLAS_OP_N; + real(c_float), target :: alpha = 1.1, beta = 0.9; + + integer, parameter :: m = 1024, n = 1024, k = 1024; + + real(c_float), allocatable, dimension(:,:) :: ha, hb, hc, hc_exact + + real(c_float), pointer, dimension(:,:) :: da, db, dc + type(c_ptr) :: handle = c_null_ptr + + integer :: i,j + real :: error + real, parameter :: error_max = 10*epsilon(error) + + write(*,"(a)",advance="no") "-- Running test 'SGEMM' (Fortran 2008 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + allocate(ha(m,k)) + allocate(hb(k,n)) + allocate(hc(m,n)) + allocate(hc_exact(m,n)) + + ! Use these constant matrices so the exact answer is also a + ! constant matrix and therefore easy to check + ha(:,:) = 1.0 + hb(:,:) = 2.0 + hc(:,:) = 3.0 + hc_exact = alpha*k*2.0 + beta*3.0 + + ! Allocate device memory + call hipCheck(hipMalloc(da,source=ha)) ! implies (blocking) memcpy + call hipCheck(hipMalloc(db,source=hb)) + call hipCheck(hipMalloc(dc,source=hc)) + + call hipblasCheck(hipblasSgemm(handle,transa,transb,m,n,k,alpha,da,size(da,1),db,size(db,1),beta,dc,size(dc,1))) + + call hipCheck(hipDeviceSynchronize()) + + ! Transfer data back to host memory + call hipCheck(hipMemcpy(hc, dc, hipMemcpyDeviceToHost)) + + do j = 1,n + do i = 1,m + error = abs((hc_exact(i,j) - hc(i,j))/hc_exact(i,j)) + if( error > error_max )then + write(*,*) "FAILED! Error bigger than max! Error = ", error + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(da)) + call hipCheck(hipFree(db)) + call hipCheck(hipFree(dc)) + + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(ha,hb,hc,hc_exact) + + write(*,*) "PASSED!" + +end program hip_sgemm diff --git a/bindings/fortran/hipblas/test/sgemm_batched.f03 b/bindings/fortran/hipblas/test/sgemm_batched.f03 new file mode 100644 index 000000000000..f518d50400d0 --- /dev/null +++ b/bindings/fortran/hipblas/test/sgemm_batched.f03 @@ -0,0 +1,135 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_sgemm_batched + + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(kind(HIPBLAS_OP_N)), parameter :: transa = HIPBLAS_OP_N, transb = HIPBLAS_OP_N + real(c_float), target :: alpha = 1.1, beta = 0.9 + + integer, parameter :: m = 512, n = 512, k = 512, batch_count = 4 + integer, parameter :: bytes_per_element = 4 ! single precision + integer, parameter :: size_a = m*k, size_b = k*n, size_c = m*n + integer(c_size_t), parameter :: Nabytes = size_a*bytes_per_element, & + Nbbytes = size_b*bytes_per_element, & + Ncbytes = size_c*bytes_per_element + integer :: lda, ldb, ldc, i, b + + real(c_float), allocatable, target, dimension(:,:) :: ha, hb, hc ! (elems, batch) + real(c_float), allocatable, dimension(:) :: hc_exact ! one value per batch + + ! Host arrays of device pointers (one device matrix per batch entry) + type(c_ptr), target :: da(batch_count), db(batch_count), dc(batch_count) + ! Device-resident pointer arrays passed to the batched routine + type(c_ptr) :: da_p = c_null_ptr, db_p = c_null_ptr, dc_p = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + + real :: error + real, parameter :: error_max = 10*epsilon(error) + + write(*,"(a)",advance="no") "-- Running test 'SGEMM_BATCHED' (Fortran 2003 interfaces) - " + + ! hipBLAS defaults to host pointer mode: no set-pointer-mode call needed + call hipblasCheck(hipblasCreate(handle)) + + lda = m; ldb = k; ldc = m + + allocate(ha(size_a,0:batch_count-1)) + allocate(hb(size_b,0:batch_count-1)) + allocate(hc(size_c,0:batch_count-1)) + allocate(hc_exact(0:batch_count-1)) + + ! Constant matrices with a distinct per-batch value so the exact answer is + ! a distinct constant per batch. A is held constant; B varies per batch. + ha(:,:) = 1.0 + do b = 0, batch_count-1 + hb(:,b) = real(b+1) + hc(:,b) = 3.0 + hc_exact(b) = alpha*k*real(b+1) + beta*3.0 + end do + + ! Allocate one device matrix per batch entry and copy its host data across + do b = 1, batch_count + call hipCheck(hipMalloc(da(b),Nabytes)) + call hipCheck(hipMalloc(db(b),Nbbytes)) + call hipCheck(hipMalloc(dc(b),Ncbytes)) + call hipCheck(hipMemcpy(da(b), c_loc(ha(1,b-1)), Nabytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(db(b), c_loc(hb(1,b-1)), Nbbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dc(b), c_loc(hc(1,b-1)), Ncbytes, hipMemcpyHostToDevice)) + end do + + ! Allocate the device-resident pointer arrays and copy the host pointer + ! arrays into them (hipBLAS requires the pointer array in device memory) + call hipCheck(hipMalloc(da_p, int(batch_count,c_size_t)*c_sizeof(da(1)))) + call hipCheck(hipMalloc(db_p, int(batch_count,c_size_t)*c_sizeof(db(1)))) + call hipCheck(hipMalloc(dc_p, int(batch_count,c_size_t)*c_sizeof(dc(1)))) + call hipCheck(hipMemcpy(da_p, c_loc(da(1)), int(batch_count,c_size_t)*c_sizeof(da(1)), hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(db_p, c_loc(db(1)), int(batch_count,c_size_t)*c_sizeof(db(1)), hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dc_p, c_loc(dc(1)), int(batch_count,c_size_t)*c_sizeof(dc(1)), hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasSgemmBatched(handle,transa,transb,m,n,k, & + c_loc(alpha),da_p,lda,db_p,ldb,c_loc(beta),dc_p,ldc,batch_count)) + + call hipCheck(hipDeviceSynchronize()) + + ! Transfer each batch result back to host memory + do b = 1, batch_count + call hipCheck(hipMemcpy(c_loc(hc(1,b-1)), dc(b), Ncbytes, hipMemcpyDeviceToHost)) + end do + + do b = 0, batch_count-1 + do i = 1, size_c + error = abs((hc_exact(b) - hc(i,b))/hc_exact(b)) + if( error > error_max )then + write(*,*) "FAILED! Error bigger than max! batch = ", b, " error = ", error + call exit(1) + end if + end do + end do + + do b = 1, batch_count + call hipCheck(hipFree(da(b))) + call hipCheck(hipFree(db(b))) + call hipCheck(hipFree(dc(b))) + end do + call hipCheck(hipFree(da_p)) + call hipCheck(hipFree(db_p)) + call hipCheck(hipFree(dc_p)) + + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(ha) + deallocate(hb) + deallocate(hc) + deallocate(hc_exact) + + write(*,*) "PASSED!" + +end program hip_sgemm_batched diff --git a/bindings/fortran/hipblas/test/sgemm_batched.f08 b/bindings/fortran/hipblas/test/sgemm_batched.f08 new file mode 100644 index 000000000000..fdead27e769e --- /dev/null +++ b/bindings/fortran/hipblas/test/sgemm_batched.f08 @@ -0,0 +1,142 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +! Note: hipfort's Fortran 2008 pointer-convenience interfaces for +! hipblas?gemmBatched call c_loc() on a plain array and therefore pass a +! single pointer, not the array of device pointers the routine requires. This +! test consequently uses the type(c_ptr) array-of-pointers idiom (as in f2003); +! only the per-batch device allocation uses the f2008 hipMalloc(source=) style. + +program hip_sgemm_batched + + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(kind(HIPBLAS_OP_N)), parameter :: transa = HIPBLAS_OP_N, transb = HIPBLAS_OP_N + real(c_float), target :: alpha = 1.1, beta = 0.9 + + integer, parameter :: m = 512, n = 512, k = 512, batch_count = 4 + integer, parameter :: bytes_per_element = 4 ! single precision + integer, parameter :: size_a = m*k, size_b = k*n, size_c = m*n + integer(c_size_t), parameter :: Ncbytes = size_c*bytes_per_element + integer :: lda, ldb, ldc, i, b + + real(c_float), allocatable, target, dimension(:,:) :: ha, hb, hc ! (elems, batch) + real(c_float), allocatable, dimension(:) :: hc_exact ! one value per batch + + ! Per-batch device matrices as typed Fortran pointers (reused each iteration) + real(c_float), pointer, dimension(:) :: da_b, db_b, dc_b + ! Host arrays of device pointers (one device matrix per batch entry) + type(c_ptr), target :: da(batch_count), db(batch_count), dc(batch_count) + ! Device-resident pointer arrays passed to the batched routine + type(c_ptr) :: da_p = c_null_ptr, db_p = c_null_ptr, dc_p = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + + real :: error + real, parameter :: error_max = 10*epsilon(error) + + write(*,"(a)",advance="no") "-- Running test 'SGEMM_BATCHED' (Fortran 2008 interfaces) - " + + ! hipBLAS defaults to host pointer mode: no set-pointer-mode call needed + call hipblasCheck(hipblasCreate(handle)) + + lda = m; ldb = k; ldc = m + + allocate(ha(size_a,0:batch_count-1)) + allocate(hb(size_b,0:batch_count-1)) + allocate(hc(size_c,0:batch_count-1)) + allocate(hc_exact(0:batch_count-1)) + + ! Constant matrices with a distinct per-batch value so the exact answer is + ! a distinct constant per batch. A is held constant; B varies per batch. + ha(:,:) = 1.0 + do b = 0, batch_count-1 + hb(:,b) = real(b+1) + hc(:,b) = 3.0 + hc_exact(b) = alpha*k*real(b+1) + beta*3.0 + end do + + ! Allocate one device matrix per batch entry (f2008 source= copy) and record + ! its device address in the host pointer array + do b = 1, batch_count + call hipCheck(hipMalloc(da_b,source=ha(:,b-1))) + call hipCheck(hipMalloc(db_b,source=hb(:,b-1))) + call hipCheck(hipMalloc(dc_b,source=hc(:,b-1))) + da(b) = c_loc(da_b(1)) + db(b) = c_loc(db_b(1)) + dc(b) = c_loc(dc_b(1)) + end do + + ! Allocate the device-resident pointer arrays and copy the host pointer + ! arrays into them (hipBLAS requires the pointer array in device memory) + call hipCheck(hipMalloc(da_p, int(batch_count,c_size_t)*c_sizeof(da(1)))) + call hipCheck(hipMalloc(db_p, int(batch_count,c_size_t)*c_sizeof(db(1)))) + call hipCheck(hipMalloc(dc_p, int(batch_count,c_size_t)*c_sizeof(dc(1)))) + call hipCheck(hipMemcpy(da_p, c_loc(da(1)), int(batch_count,c_size_t)*c_sizeof(da(1)), hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(db_p, c_loc(db(1)), int(batch_count,c_size_t)*c_sizeof(db(1)), hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dc_p, c_loc(dc(1)), int(batch_count,c_size_t)*c_sizeof(dc(1)), hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasSgemmBatched(handle,transa,transb,m,n,k, & + c_loc(alpha),da_p,lda,db_p,ldb,c_loc(beta),dc_p,ldc,batch_count)) + + call hipCheck(hipDeviceSynchronize()) + + ! Transfer each batch result back to host memory + do b = 1, batch_count + call hipCheck(hipMemcpy(c_loc(hc(1,b-1)), dc(b), Ncbytes, hipMemcpyDeviceToHost)) + end do + + do b = 0, batch_count-1 + do i = 1, size_c + error = abs((hc_exact(b) - hc(i,b))/hc_exact(b)) + if( error > error_max )then + write(*,*) "FAILED! Error bigger than max! batch = ", b, " error = ", error + call exit(1) + end if + end do + end do + + do b = 1, batch_count + call hipCheck(hipFree(da(b))) + call hipCheck(hipFree(db(b))) + call hipCheck(hipFree(dc(b))) + end do + call hipCheck(hipFree(da_p)) + call hipCheck(hipFree(db_p)) + call hipCheck(hipFree(dc_p)) + + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(ha) + deallocate(hb) + deallocate(hc) + deallocate(hc_exact) + + write(*,*) "PASSED!" + +end program hip_sgemm_batched diff --git a/bindings/fortran/hipblas/test/sgemm_batched_devptr.f03 b/bindings/fortran/hipblas/test/sgemm_batched_devptr.f03 new file mode 100644 index 000000000000..9f43ab8339d5 --- /dev/null +++ b/bindings/fortran/hipblas/test/sgemm_batched_devptr.f03 @@ -0,0 +1,149 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_sgemm_batched + + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(kind(HIPBLAS_OP_N)), parameter :: transa = HIPBLAS_OP_N, transb = HIPBLAS_OP_N + real(c_float), target :: alpha = 1.1, beta = 0.9 + + ! Device-resident copies of the dual-mode scalars; the library reads them + ! from device memory because the handle is in device pointer mode. + type(c_ptr) :: d_alpha = c_null_ptr + type(c_ptr) :: d_beta = c_null_ptr + + integer, parameter :: m = 512, n = 512, k = 512, batch_count = 4 + integer, parameter :: bytes_per_element = 4 ! single precision + integer, parameter :: size_a = m*k, size_b = k*n, size_c = m*n + integer(c_size_t), parameter :: Nabytes = size_a*bytes_per_element, & + Nbbytes = size_b*bytes_per_element, & + Ncbytes = size_c*bytes_per_element + integer :: lda, ldb, ldc, i, b + + real(c_float), allocatable, target, dimension(:,:) :: ha, hb, hc ! (elems, batch) + real(c_float), allocatable, dimension(:) :: hc_exact ! one value per batch + + ! Host arrays of device pointers (one device matrix per batch entry) + type(c_ptr), target :: da(batch_count), db(batch_count), dc(batch_count) + ! Device-resident pointer arrays passed to the batched routine + type(c_ptr) :: da_p = c_null_ptr, db_p = c_null_ptr, dc_p = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + + real :: error + real, parameter :: error_max = 10*epsilon(error) + + write(*,"(a)",advance="no") "-- Running test 'SGEMM_BATCHED_devptr' (Fortran 2003 interfaces) - " + + ! hipBLAS defaults to host pointer mode: no set-pointer-mode call needed + call hipblasCheck(hipblasCreate(handle)) + + ! Switch to device pointer mode and stage the scalars in device memory + call hipblasCheck(hipblasSetPointerMode(handle, HIPBLAS_POINTER_MODE_DEVICE)) + call hipCheck(hipMalloc(d_alpha, c_sizeof(alpha))) + call hipCheck(hipMalloc(d_beta, c_sizeof(beta))) + call hipCheck(hipMemcpy(d_alpha, c_loc(alpha), c_sizeof(alpha), hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(d_beta, c_loc(beta), c_sizeof(beta), hipMemcpyHostToDevice)) + + lda = m; ldb = k; ldc = m + + allocate(ha(size_a,0:batch_count-1)) + allocate(hb(size_b,0:batch_count-1)) + allocate(hc(size_c,0:batch_count-1)) + allocate(hc_exact(0:batch_count-1)) + + ! Constant matrices with a distinct per-batch value so the exact answer is + ! a distinct constant per batch. A is held constant; B varies per batch. + ha(:,:) = 1.0 + do b = 0, batch_count-1 + hb(:,b) = real(b+1) + hc(:,b) = 3.0 + hc_exact(b) = alpha*k*real(b+1) + beta*3.0 + end do + + ! Allocate one device matrix per batch entry and copy its host data across + do b = 1, batch_count + call hipCheck(hipMalloc(da(b),Nabytes)) + call hipCheck(hipMalloc(db(b),Nbbytes)) + call hipCheck(hipMalloc(dc(b),Ncbytes)) + call hipCheck(hipMemcpy(da(b), c_loc(ha(1,b-1)), Nabytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(db(b), c_loc(hb(1,b-1)), Nbbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dc(b), c_loc(hc(1,b-1)), Ncbytes, hipMemcpyHostToDevice)) + end do + + ! Allocate the device-resident pointer arrays and copy the host pointer + ! arrays into them (hipBLAS requires the pointer array in device memory) + call hipCheck(hipMalloc(da_p, int(batch_count,c_size_t)*c_sizeof(da(1)))) + call hipCheck(hipMalloc(db_p, int(batch_count,c_size_t)*c_sizeof(db(1)))) + call hipCheck(hipMalloc(dc_p, int(batch_count,c_size_t)*c_sizeof(dc(1)))) + call hipCheck(hipMemcpy(da_p, c_loc(da(1)), int(batch_count,c_size_t)*c_sizeof(da(1)), hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(db_p, c_loc(db(1)), int(batch_count,c_size_t)*c_sizeof(db(1)), hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dc_p, c_loc(dc(1)), int(batch_count,c_size_t)*c_sizeof(dc(1)), hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasSgemmBatched(handle,transa,transb,m,n,k, & + d_alpha,da_p,lda,db_p,ldb,d_beta,dc_p,ldc,batch_count)) + + call hipCheck(hipDeviceSynchronize()) + + ! Transfer each batch result back to host memory + do b = 1, batch_count + call hipCheck(hipMemcpy(c_loc(hc(1,b-1)), dc(b), Ncbytes, hipMemcpyDeviceToHost)) + end do + + do b = 0, batch_count-1 + do i = 1, size_c + error = abs((hc_exact(b) - hc(i,b))/hc_exact(b)) + if( error > error_max )then + write(*,*) "FAILED! Error bigger than max! batch = ", b, " error = ", error + call exit(1) + end if + end do + end do + + do b = 1, batch_count + call hipCheck(hipFree(da(b))) + call hipCheck(hipFree(db(b))) + call hipCheck(hipFree(dc(b))) + end do + call hipCheck(hipFree(da_p)) + call hipCheck(hipFree(db_p)) + call hipCheck(hipFree(dc_p)) + + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(ha) + deallocate(hb) + deallocate(hc) + deallocate(hc_exact) + + call hipCheck(hipFree(d_alpha)) + call hipCheck(hipFree(d_beta)) + write(*,*) "PASSED!" + +end program hip_sgemm_batched diff --git a/bindings/fortran/hipblas/test/sgemm_devptr.f03 b/bindings/fortran/hipblas/test/sgemm_devptr.f03 new file mode 100644 index 000000000000..e71961adae84 --- /dev/null +++ b/bindings/fortran/hipblas/test/sgemm_devptr.f03 @@ -0,0 +1,148 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +!!!!!!!!!!!!!! +! hipblas SGEMM example, device pointer mode (C = alpha*A*B + beta*C) +! +! Device-pointer-mode variant of sgemm.f03. The handle is switched to +! HIPBLAS_POINTER_MODE_DEVICE and alpha/beta are staged in device memory, so +! hipBLAS reads the scalars with a device load rather than a host one. That is +! what exercises the type(c_ptr),value scalar binding end to end; the host-mode +! sibling only proves it compiles. +! +! hc_exact is still computed from the HOST alpha/beta, so a library that read +! the scalars from host memory would produce a wrong answer rather than pass. +!!!!!!!!!!!!!! +! +program hip_sgemm_devptr + + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(kind(HIPBLAS_OP_N)), parameter :: transa = HIPBLAS_OP_N, transb = HIPBLAS_OP_N; + real(c_float), target :: alpha = 1.1, beta = 0.9; + + ! Device-resident copies of the dual-mode scalars; the library reads them + ! from device memory because the handle is in device pointer mode. + type(c_ptr) :: d_alpha = c_null_ptr + type(c_ptr) :: d_beta = c_null_ptr + + integer, parameter :: m = 1024, n = 1024, k = 1024; + integer :: lda, ldb, ldc, size_a, size_b, size_c; + + real(c_float), allocatable, target, dimension(:) :: ha, hb, hc + real(c_float), allocatable, dimension(:) :: hc_exact + + type(c_ptr) :: da = c_null_ptr, db = c_null_ptr, dc = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + + integer, parameter :: bytes_per_element = 4 !single precision + integer(c_size_t) :: Nabytes, Nbbytes, Ncbytes + + integer :: i + real :: error + real, parameter :: error_max = 10*epsilon(error) + + write(*,"(a)",advance="no") "-- Running test 'SGEMM_devptr' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + ! Switch to device pointer mode and stage the scalars in device memory + call hipblasCheck(hipblasSetPointerMode(handle, HIPBLAS_POINTER_MODE_DEVICE)) + call hipCheck(hipMalloc(d_alpha, c_sizeof(alpha))) + call hipCheck(hipMalloc(d_beta, c_sizeof(beta))) + call hipCheck(hipMemcpy(d_alpha, c_loc(alpha), c_sizeof(alpha), hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(d_beta, c_loc(beta), c_sizeof(beta), hipMemcpyHostToDevice)) + + lda = m; + size_a = k * lda; + Nabytes = size_a*bytes_per_element + + ldb = k; + size_b = n * ldb; + Nbbytes = size_b*bytes_per_element + + ldc = m; + size_c = n * ldc; + Ncbytes = size_c*bytes_per_element + + allocate(ha(size_a)) + allocate(hb(size_b)) + allocate(hc(size_c)) + allocate(hc_exact(size_c)) + + ! Use these constant matrices so the exact answer is also a + ! constant matrix and therefore easy to check + ha(:) = 1.0 + hb(:) = 2.0 + hc(:) = 3.0 + hc_exact = alpha*k*2.0 + beta*3.0 + + ! Allocate device memory + call hipCheck(hipMalloc(da,Nabytes)) + call hipCheck(hipMalloc(db,Nbbytes)) + call hipCheck(hipMalloc(dc,Ncbytes)) + + !Transfer from host to device + call hipCheck(hipMemcpy(da, c_loc(ha(1)), Nabytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(db, c_loc(hb(1)), Nbbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dc, c_loc(hc(1)), Ncbytes, hipMemcpyHostToDevice)) + + + call hipblasCheck(hipblasSgemm(handle,transa,transb,m,n,k,d_alpha,da,lda,db,ldb,d_beta,dc,ldc)) + + call hipCheck(hipDeviceSynchronize()) + + ! Transfer data back to host memory + call hipCheck(hipMemcpy(c_loc(hc(1)), dc, Ncbytes, hipMemcpyDeviceToHost)) + + + do i = 1,size_c + error = abs((hc_exact(i) - hc(i))/hc_exact(i)) + if( error > error_max )then + write(*,*) "FAILED! Error bigger than max! Error = ", error + call exit(1) + end if + end do + + call hipCheck(hipFree(da)) + call hipCheck(hipFree(db)) + call hipCheck(hipFree(dc)) + call hipCheck(hipFree(d_alpha)) + call hipCheck(hipFree(d_beta)) + + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(ha) + deallocate(hb) + deallocate(hc) + deallocate(hc_exact) + + write(*,*) "PASSED!" + +end program hip_sgemm_devptr diff --git a/bindings/fortran/hipblas/test/sgemm_strided_batched.f03 b/bindings/fortran/hipblas/test/sgemm_strided_batched.f03 new file mode 100644 index 000000000000..2e68d93881b1 --- /dev/null +++ b/bindings/fortran/hipblas/test/sgemm_strided_batched.f03 @@ -0,0 +1,121 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_sgemm_strided_batched + + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(kind(HIPBLAS_OP_N)), parameter :: transa = HIPBLAS_OP_N, transb = HIPBLAS_OP_N + real(c_float), target :: alpha = 1.1, beta = 0.9 + + integer, parameter :: m = 512, n = 512, k = 512, batch_count = 4 + integer, parameter :: bytes_per_element = 4 ! single precision + integer :: lda, ldb, ldc, i, b + integer(c_int64_t) :: stride_a, stride_b, stride_c + integer :: size_a, size_b, size_c + integer(c_size_t) :: Nabytes, Nbbytes, Ncbytes + + real(c_float), allocatable, target, dimension(:) :: ha, hb, hc + real(c_float), allocatable, dimension(:) :: hc_exact ! one value per batch + + type(c_ptr) :: da = c_null_ptr, db = c_null_ptr, dc = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + + real :: error + real, parameter :: error_max = 10*epsilon(error) + + write(*,"(a)",advance="no") "-- Running test 'SGEMM_STRIDED_BATCHED' (Fortran 2003 interfaces) - " + + ! hipBLAS defaults to host pointer mode: no set-pointer-mode call needed + call hipblasCheck(hipblasCreate(handle)) + + lda = m; ldb = k; ldc = m + stride_a = int(lda,c_int64_t)*k + stride_b = int(ldb,c_int64_t)*n + stride_c = int(ldc,c_int64_t)*n + size_a = int(stride_a)*batch_count; Nabytes = size_a*bytes_per_element + size_b = int(stride_b)*batch_count; Nbbytes = size_b*bytes_per_element + size_c = int(stride_c)*batch_count; Ncbytes = size_c*bytes_per_element + + allocate(ha(size_a)) + allocate(hb(size_b)) + allocate(hc(size_c)) + allocate(hc_exact(0:batch_count-1)) + + ! Constant matrices with a distinct per-batch value so the exact answer is + ! a distinct constant per batch. A is held constant; B varies per batch. + ha(:) = 1.0 + do b = 0, batch_count-1 + hb(b*stride_b+1 : (b+1)*stride_b) = real(b+1) + hc(b*stride_c+1 : (b+1)*stride_c) = 3.0 + hc_exact(b) = alpha*k*real(b+1) + beta*3.0 + end do + + ! Allocate device memory + call hipCheck(hipMalloc(da,Nabytes)) + call hipCheck(hipMalloc(db,Nbbytes)) + call hipCheck(hipMalloc(dc,Ncbytes)) + + ! Transfer from host to device + call hipCheck(hipMemcpy(da, c_loc(ha(1)), Nabytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(db, c_loc(hb(1)), Nbbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dc, c_loc(hc(1)), Ncbytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasSgemmStridedBatched(handle,transa,transb,m,n,k, & + c_loc(alpha),da,lda,stride_a,db,ldb,stride_b,c_loc(beta),dc,ldc,stride_c,batch_count)) + + call hipCheck(hipDeviceSynchronize()) + + ! Transfer data back to host memory + call hipCheck(hipMemcpy(c_loc(hc(1)), dc, Ncbytes, hipMemcpyDeviceToHost)) + + do b = 0, batch_count-1 + do i = 1, int(stride_c) + error = abs((hc_exact(b) - hc(b*stride_c+i))/hc_exact(b)) + if( error > error_max )then + write(*,*) "FAILED! Error bigger than max! batch = ", b, " error = ", error + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(da)) + call hipCheck(hipFree(db)) + call hipCheck(hipFree(dc)) + + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(ha) + deallocate(hb) + deallocate(hc) + deallocate(hc_exact) + + write(*,*) "PASSED!" + +end program hip_sgemm_strided_batched diff --git a/bindings/fortran/hipblas/test/sgemm_strided_batched.f08 b/bindings/fortran/hipblas/test/sgemm_strided_batched.f08 new file mode 100644 index 000000000000..ca0aa19b2144 --- /dev/null +++ b/bindings/fortran/hipblas/test/sgemm_strided_batched.f08 @@ -0,0 +1,114 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_sgemm_strided_batched + + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(kind(HIPBLAS_OP_N)), parameter :: transa = HIPBLAS_OP_N, transb = HIPBLAS_OP_N + real(c_float), target :: alpha = 1.1, beta = 0.9 + + integer, parameter :: m = 512, n = 512, k = 512, batch_count = 4 + integer :: lda, ldb, ldc, i, b + integer(c_int64_t) :: stride_a, stride_b, stride_c + integer :: size_a, size_b, size_c + + real(c_float), allocatable, dimension(:) :: ha, hb, hc + real(c_float), allocatable, dimension(:) :: hc_exact ! one value per batch + + real(c_float), pointer, dimension(:) :: da, db, dc + type(c_ptr) :: handle = c_null_ptr + + real :: error + real, parameter :: error_max = 10*epsilon(error) + + write(*,"(a)",advance="no") "-- Running test 'SGEMM_STRIDED_BATCHED' (Fortran 2008 interfaces) - " + + ! hipBLAS defaults to host pointer mode: no set-pointer-mode call needed + call hipblasCheck(hipblasCreate(handle)) + + lda = m; ldb = k; ldc = m + stride_a = int(lda,c_int64_t)*k + stride_b = int(ldb,c_int64_t)*n + stride_c = int(ldc,c_int64_t)*n + size_a = int(stride_a)*batch_count + size_b = int(stride_b)*batch_count + size_c = int(stride_c)*batch_count + + allocate(ha(size_a)) + allocate(hb(size_b)) + allocate(hc(size_c)) + allocate(hc_exact(0:batch_count-1)) + + ! Constant matrices with a distinct per-batch value so the exact answer is + ! a distinct constant per batch. A is held constant; B varies per batch. + ha(:) = 1.0 + do b = 0, batch_count-1 + hb(b*stride_b+1 : (b+1)*stride_b) = real(b+1) + hc(b*stride_c+1 : (b+1)*stride_c) = 3.0 + hc_exact(b) = alpha*k*real(b+1) + beta*3.0 + end do + + ! Allocate device memory + call hipCheck(hipMalloc(da,source=ha)) ! implies (blocking) memcpy + call hipCheck(hipMalloc(db,source=hb)) + call hipCheck(hipMalloc(dc,source=hc)) + + call hipblasCheck(hipblasSgemmStridedBatched(handle,transa,transb,m,n,k, & + alpha,da,lda,stride_a,db,ldb,stride_b,beta,dc,ldc,stride_c,batch_count)) + + call hipCheck(hipDeviceSynchronize()) + + ! Transfer data back to host memory + call hipCheck(hipMemcpy(hc, dc, hipMemcpyDeviceToHost)) + + do b = 0, batch_count-1 + do i = 1, int(stride_c) + error = abs((hc_exact(b) - hc(b*stride_c+i))/hc_exact(b)) + if( error > error_max )then + write(*,*) "FAILED! Error bigger than max! batch = ", b, " error = ", error + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(da)) + call hipCheck(hipFree(db)) + call hipCheck(hipFree(dc)) + + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(ha) + deallocate(hb) + deallocate(hc) + deallocate(hc_exact) + + write(*,*) "PASSED!" + +end program hip_sgemm_strided_batched diff --git a/bindings/fortran/hipblas/test/sgemm_strided_batched_devptr.f03 b/bindings/fortran/hipblas/test/sgemm_strided_batched_devptr.f03 new file mode 100644 index 000000000000..f30baaf6c655 --- /dev/null +++ b/bindings/fortran/hipblas/test/sgemm_strided_batched_devptr.f03 @@ -0,0 +1,135 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_sgemm_strided_batched + + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(kind(HIPBLAS_OP_N)), parameter :: transa = HIPBLAS_OP_N, transb = HIPBLAS_OP_N + real(c_float), target :: alpha = 1.1, beta = 0.9 + + ! Device-resident copies of the dual-mode scalars; the library reads them + ! from device memory because the handle is in device pointer mode. + type(c_ptr) :: d_alpha = c_null_ptr + type(c_ptr) :: d_beta = c_null_ptr + + integer, parameter :: m = 512, n = 512, k = 512, batch_count = 4 + integer, parameter :: bytes_per_element = 4 ! single precision + integer :: lda, ldb, ldc, i, b + integer(c_int64_t) :: stride_a, stride_b, stride_c + integer :: size_a, size_b, size_c + integer(c_size_t) :: Nabytes, Nbbytes, Ncbytes + + real(c_float), allocatable, target, dimension(:) :: ha, hb, hc + real(c_float), allocatable, dimension(:) :: hc_exact ! one value per batch + + type(c_ptr) :: da = c_null_ptr, db = c_null_ptr, dc = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + + real :: error + real, parameter :: error_max = 10*epsilon(error) + + write(*,"(a)",advance="no") "-- Running test 'SGEMM_STRIDED_BATCHED_devptr' (Fortran 2003 interfaces) - " + + ! hipBLAS defaults to host pointer mode: no set-pointer-mode call needed + call hipblasCheck(hipblasCreate(handle)) + + ! Switch to device pointer mode and stage the scalars in device memory + call hipblasCheck(hipblasSetPointerMode(handle, HIPBLAS_POINTER_MODE_DEVICE)) + call hipCheck(hipMalloc(d_alpha, c_sizeof(alpha))) + call hipCheck(hipMalloc(d_beta, c_sizeof(beta))) + call hipCheck(hipMemcpy(d_alpha, c_loc(alpha), c_sizeof(alpha), hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(d_beta, c_loc(beta), c_sizeof(beta), hipMemcpyHostToDevice)) + + lda = m; ldb = k; ldc = m + stride_a = int(lda,c_int64_t)*k + stride_b = int(ldb,c_int64_t)*n + stride_c = int(ldc,c_int64_t)*n + size_a = int(stride_a)*batch_count; Nabytes = size_a*bytes_per_element + size_b = int(stride_b)*batch_count; Nbbytes = size_b*bytes_per_element + size_c = int(stride_c)*batch_count; Ncbytes = size_c*bytes_per_element + + allocate(ha(size_a)) + allocate(hb(size_b)) + allocate(hc(size_c)) + allocate(hc_exact(0:batch_count-1)) + + ! Constant matrices with a distinct per-batch value so the exact answer is + ! a distinct constant per batch. A is held constant; B varies per batch. + ha(:) = 1.0 + do b = 0, batch_count-1 + hb(b*stride_b+1 : (b+1)*stride_b) = real(b+1) + hc(b*stride_c+1 : (b+1)*stride_c) = 3.0 + hc_exact(b) = alpha*k*real(b+1) + beta*3.0 + end do + + ! Allocate device memory + call hipCheck(hipMalloc(da,Nabytes)) + call hipCheck(hipMalloc(db,Nbbytes)) + call hipCheck(hipMalloc(dc,Ncbytes)) + + ! Transfer from host to device + call hipCheck(hipMemcpy(da, c_loc(ha(1)), Nabytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(db, c_loc(hb(1)), Nbbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dc, c_loc(hc(1)), Ncbytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasSgemmStridedBatched(handle,transa,transb,m,n,k, & + d_alpha,da,lda,stride_a,db,ldb,stride_b,d_beta,dc,ldc,stride_c,batch_count)) + + call hipCheck(hipDeviceSynchronize()) + + ! Transfer data back to host memory + call hipCheck(hipMemcpy(c_loc(hc(1)), dc, Ncbytes, hipMemcpyDeviceToHost)) + + do b = 0, batch_count-1 + do i = 1, int(stride_c) + error = abs((hc_exact(b) - hc(b*stride_c+i))/hc_exact(b)) + if( error > error_max )then + write(*,*) "FAILED! Error bigger than max! batch = ", b, " error = ", error + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(da)) + call hipCheck(hipFree(db)) + call hipCheck(hipFree(dc)) + + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(ha) + deallocate(hb) + deallocate(hc) + deallocate(hc_exact) + + call hipCheck(hipFree(d_alpha)) + call hipCheck(hipFree(d_beta)) + write(*,*) "PASSED!" + +end program hip_sgemm_strided_batched diff --git a/bindings/fortran/hipblas/test/sgemm_trans.f03 b/bindings/fortran/hipblas/test/sgemm_trans.f03 new file mode 100644 index 000000000000..d74452854c17 --- /dev/null +++ b/bindings/fortran/hipblas/test/sgemm_trans.f03 @@ -0,0 +1,147 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hipblas_sgemm_trans_test + + ! hipblasSgemm with every transa/transb combination. The matrices are rectangular, + ! padded (ld > rows) and filled with varying values, so that a swapped dimension, + ! a wrong leading dimension, a wrong operation constant or a missed conjugation + ! all change the result. The padding rows of C must come back untouched. + + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(kind(HIPBLAS_OP_N)), parameter :: ops(3) = [HIPBLAS_OP_N, & + HIPBLAS_OP_T, HIPBLAS_OP_C] + character(len=1), parameter :: op_names(3) = ['N', 'T', 'C'] + integer, parameter :: m = 37, n = 23, k = 19, pad = 3 + real(c_float), target :: alpha = 1.5_c_float, beta = 0.5_c_float + + real(c_float), allocatable, target :: hA(:,:), hB(:,:), hC(:,:) + real(c_float), allocatable :: hC0(:,:), opA(:,:), opB(:,:), hC_ref(:,:) + type(c_ptr) :: dA = c_null_ptr, dB = c_null_ptr, dC = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + integer(c_size_t), parameter :: elem = 4 + + integer :: ia, ib, i, j, rows_a, cols_a, rows_b, cols_b, lda, ldb, ldc + real(c_float) :: error, error_max + + write(*,"(a)",advance="no") "-- Running test 'SGEMM transposes' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + call hipblasCheck(hipblasSetPointerMode(handle, HIPBLAS_POINTER_MODE_HOST)) + + error_max = 100 * epsilon(error) * (abs(alpha) * k + abs(beta)) + + do ia = 1, 3 + do ib = 1, 3 + ! op(A) is m x k and op(B) is k x n + if (ops(ia) == HIPBLAS_OP_N) then + rows_a = m; cols_a = k + else + rows_a = k; cols_a = m + end if + if (ops(ib) == HIPBLAS_OP_N) then + rows_b = k; cols_b = n + else + rows_b = n; cols_b = k + end if + lda = rows_a + pad; ldb = rows_b + pad; ldc = m + pad + + allocate(hA(lda, cols_a), hB(ldb, cols_b), hC(ldc, n)) + do j = 1, cols_a + do i = 1, lda + hA(i,j) = fill(i, j, 1) + end do + end do + do j = 1, cols_b + do i = 1, ldb + hB(i,j) = fill(i, j, 2) + end do + end do + do j = 1, n + do i = 1, ldc + hC(i,j) = fill(i, j, 3) + end do + end do + hC0 = hC + + call hipCheck(hipMalloc(dA, size(hA, kind=c_size_t) * elem)) + call hipCheck(hipMalloc(dB, size(hB, kind=c_size_t) * elem)) + call hipCheck(hipMalloc(dC, size(hC, kind=c_size_t) * elem)) + call hipCheck(hipMemcpy(dA, c_loc(hA(1,1)), size(hA, kind=c_size_t) * elem, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dB, c_loc(hB(1,1)), size(hB, kind=c_size_t) * elem, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dC, c_loc(hC(1,1)), size(hC, kind=c_size_t) * elem, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasSgemm(handle, ops(ia), ops(ib), m, n, k, c_loc(alpha), dA, lda, dB, ldb, & + c_loc(beta), dC, ldc)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(c_loc(hC(1,1)), dC, size(hC, kind=c_size_t) * elem, hipMemcpyDeviceToHost)) + + if (ops(ia) == HIPBLAS_OP_N) then + opA = hA(1:m, 1:k) + else + opA = transpose(hA(1:k, 1:m)) + end if + if (ops(ib) == HIPBLAS_OP_N) then + opB = hB(1:k, 1:n) + else + opB = transpose(hB(1:n, 1:k)) + end if + hC_ref = alpha * matmul(opA, opB) + beta * hC0(1:m, 1:n) + + error = maxval(abs(hC(1:m, 1:n) - hC_ref)) + if (error > error_max) then + write(*,*) "FAILED! transa = ", op_names(ia), " transb = ", op_names(ib), " error = ", error + call exit(1) + end if + if (any(hC(m+1:ldc, :) /= hC0(m+1:ldc, :))) then + write(*,*) "FAILED! transa = ", op_names(ia), " transb = ", op_names(ib), " wrote past m in C" + call exit(1) + end if + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dB)) + call hipCheck(hipFree(dC)) + deallocate(hA, hB, hC, hC0, opA, opB, hC_ref) + end do + end do + + call hipblasCheck(hipblasDestroy(handle)) + + write(*,*) "PASSED!" + +contains + + ! Varying small multiples of 1/8, so every product and sum below is exact. + real(c_float) function fill(i, j, s) + integer, intent(in) :: i, j, s + fill = real(mod(7*i + 3*j + s, 13) - 6, c_float) / 8 + end function fill + +end program hipblas_sgemm_trans_test diff --git a/bindings/fortran/hipblas/test/sgemm_trans.f08 b/bindings/fortran/hipblas/test/sgemm_trans.f08 new file mode 100644 index 000000000000..8a9af3ee02fd --- /dev/null +++ b/bindings/fortran/hipblas/test/sgemm_trans.f08 @@ -0,0 +1,142 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hipblas_sgemm_trans_test + + ! hipblasSgemm with every transa/transb combination. The matrices are rectangular, + ! padded (ld > rows) and filled with varying values, so that a swapped dimension, + ! a wrong leading dimension, a wrong operation constant or a missed conjugation + ! all change the result. The padding rows of C must come back untouched. + + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(kind(HIPBLAS_OP_N)), parameter :: ops(3) = [HIPBLAS_OP_N, & + HIPBLAS_OP_T, HIPBLAS_OP_C] + character(len=1), parameter :: op_names(3) = ['N', 'T', 'C'] + integer, parameter :: m = 37, n = 23, k = 19, pad = 3 + real(c_float), target :: alpha = 1.5_c_float, beta = 0.5_c_float + + real(c_float), allocatable :: hA(:,:), hB(:,:), hC(:,:) + real(c_float), allocatable :: hC0(:,:), opA(:,:), opB(:,:), hC_ref(:,:) + real(c_float), pointer, dimension(:,:) :: dA, dB, dC + type(c_ptr) :: handle = c_null_ptr + + integer :: ia, ib, i, j, rows_a, cols_a, rows_b, cols_b, lda, ldb, ldc + real(c_float) :: error, error_max + + write(*,"(a)",advance="no") "-- Running test 'SGEMM transposes' (Fortran 2008 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + call hipblasCheck(hipblasSetPointerMode(handle, HIPBLAS_POINTER_MODE_HOST)) + + error_max = 100 * epsilon(error) * (abs(alpha) * k + abs(beta)) + + do ia = 1, 3 + do ib = 1, 3 + ! op(A) is m x k and op(B) is k x n + if (ops(ia) == HIPBLAS_OP_N) then + rows_a = m; cols_a = k + else + rows_a = k; cols_a = m + end if + if (ops(ib) == HIPBLAS_OP_N) then + rows_b = k; cols_b = n + else + rows_b = n; cols_b = k + end if + lda = rows_a + pad; ldb = rows_b + pad; ldc = m + pad + + allocate(hA(lda, cols_a), hB(ldb, cols_b), hC(ldc, n)) + do j = 1, cols_a + do i = 1, lda + hA(i,j) = fill(i, j, 1) + end do + end do + do j = 1, cols_b + do i = 1, ldb + hB(i,j) = fill(i, j, 2) + end do + end do + do j = 1, n + do i = 1, ldc + hC(i,j) = fill(i, j, 3) + end do + end do + hC0 = hC + + call hipCheck(hipMalloc(dA, source=hA)) + call hipCheck(hipMalloc(dB, source=hB)) + call hipCheck(hipMalloc(dC, source=hC)) + + call hipblasCheck(hipblasSgemm(handle, ops(ia), ops(ib), m, n, k, alpha, dA, lda, dB, ldb, beta, dC, ldc)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(hC, dC, hipMemcpyDeviceToHost)) + + if (ops(ia) == HIPBLAS_OP_N) then + opA = hA(1:m, 1:k) + else + opA = transpose(hA(1:k, 1:m)) + end if + if (ops(ib) == HIPBLAS_OP_N) then + opB = hB(1:k, 1:n) + else + opB = transpose(hB(1:n, 1:k)) + end if + hC_ref = alpha * matmul(opA, opB) + beta * hC0(1:m, 1:n) + + error = maxval(abs(hC(1:m, 1:n) - hC_ref)) + if (error > error_max) then + write(*,*) "FAILED! transa = ", op_names(ia), " transb = ", op_names(ib), " error = ", error + call exit(1) + end if + if (any(hC(m+1:ldc, :) /= hC0(m+1:ldc, :))) then + write(*,*) "FAILED! transa = ", op_names(ia), " transb = ", op_names(ib), " wrote past m in C" + call exit(1) + end if + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dB)) + call hipCheck(hipFree(dC)) + deallocate(hA, hB, hC, hC0, opA, opB, hC_ref) + end do + end do + + call hipblasCheck(hipblasDestroy(handle)) + + write(*,*) "PASSED!" + +contains + + ! Varying small multiples of 1/8, so every product and sum below is exact. + real(c_float) function fill(i, j, s) + integer, intent(in) :: i, j, s + fill = real(mod(7*i + 3*j + s, 13) - 6, c_float) / 8 + end function fill + +end program hipblas_sgemm_trans_test diff --git a/bindings/fortran/hipblas/test/sgemm_typed.f03 b/bindings/fortran/hipblas/test/sgemm_typed.f03 new file mode 100644 index 000000000000..105fbba12c58 --- /dev/null +++ b/bindings/fortran/hipblas/test/sgemm_typed.f03 @@ -0,0 +1,125 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +! The same check as sgemm.f03, through the _typed form: alpha and beta are passed as +! Fortran variables, here named constants, rather than with c_loc(), so the +! generic resolves to the _typed module procedure, which hands the C API their +! address. The handle is in host pointer mode, as that form requires. +program hip_sgemm_typed + + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(kind(HIPBLAS_OP_N)), parameter :: transa = HIPBLAS_OP_N, transb = HIPBLAS_OP_N; + real(c_float), parameter :: alpha = 1.1, beta = 0.9; + + integer, parameter :: m = 1024, n = 1024, k = 1024; + integer :: lda, ldb, ldc, size_a, size_b, size_c; + + real(c_float), allocatable, target, dimension(:) :: ha, hb, hc + real(c_float), allocatable, dimension(:) :: hc_exact + + type(c_ptr) :: da = c_null_ptr, db = c_null_ptr, dc = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + + integer, parameter :: bytes_per_element = 4 !single precision + integer(c_size_t) :: Nabytes, Nbbytes, Ncbytes + + integer :: i + real :: error + real, parameter :: error_max = 10*epsilon(error) + + write(*,"(a)",advance="no") "-- Running test 'SGEMM typed' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + lda = m; + size_a = k * lda; + Nabytes = size_a*bytes_per_element + + ldb = k; + size_b = n * ldb; + Nbbytes = size_b*bytes_per_element + + ldc = m; + size_c = n * ldc; + Ncbytes = size_c*bytes_per_element + + allocate(ha(size_a)) + allocate(hb(size_b)) + allocate(hc(size_c)) + allocate(hc_exact(size_c)) + + ! Use these constant matrices so the exact answer is also a + ! constant matrix and therefore easy to check + ha(:) = 1.0 + hb(:) = 2.0 + hc(:) = 3.0 + hc_exact = alpha*k*2.0 + beta*3.0 + + ! Allocate device memory + call hipCheck(hipMalloc(da,Nabytes)) + call hipCheck(hipMalloc(db,Nbbytes)) + call hipCheck(hipMalloc(dc,Ncbytes)) + + !Transfer from host to device + call hipCheck(hipMemcpy(da, c_loc(ha(1)), Nabytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(db, c_loc(hb(1)), Nbbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dc, c_loc(hc(1)), Ncbytes, hipMemcpyHostToDevice)) + + + call hipblasCheck(hipblasSgemm(handle,transa,transb,m,n,k,alpha,da,lda,db,ldb,beta,dc,ldc)) + + call hipCheck(hipDeviceSynchronize()) + + ! Transfer data back to host memory + call hipCheck(hipMemcpy(c_loc(hc(1)), dc, Ncbytes, hipMemcpyDeviceToHost)) + + + do i = 1,size_c + error = abs((hc_exact(i) - hc(i))/hc_exact(i)) + if( error > error_max )then + write(*,*) "FAILED! Error bigger than max! Error = ", error + call exit(1) + end if + end do + + call hipCheck(hipFree(da)) + call hipCheck(hipFree(db)) + call hipCheck(hipFree(dc)) + + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(ha) + deallocate(hb) + deallocate(hc) + deallocate(hc_exact) + + write(*,*) "PASSED!" + +end program hip_sgemm_typed diff --git a/bindings/fortran/hipblas/test/sgemv.f03 b/bindings/fortran/hipblas/test/sgemv.f03 new file mode 100644 index 000000000000..d0b685868a7b --- /dev/null +++ b/bindings/fortran/hipblas/test/sgemv.f03 @@ -0,0 +1,100 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2021 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_sgemv + use iso_c_binding + use hip + use hipblas + + implicit none + + integer :: m = 6 + integer :: n = 5 + integer :: i, j + + real, target :: alpha = 1.0 + real, target :: beta = 0.0 + + type(c_ptr) :: handle = c_null_ptr + + real(kind=4), allocatable, target, dimension(:) :: a, x, y + + type(c_ptr) :: da = c_null_ptr, dx = c_null_ptr, dy = c_null_ptr + + integer(c_size_t) :: Nabytes, Nxbytes, Nybytes + integer, parameter :: bytes_per_element = 4 !float precision + + real :: error + real, parameter :: error_max = 10*epsilon(error) + + Nabytes = m * n * bytes_per_element + Nxbytes = n * bytes_per_element + Nybytes = m * bytes_per_element + + allocate(x(n)) + allocate(y(m)) + allocate(a(m*n)) + + a(:) = 1.0 + x(:) = 1.0 + y(:) = 1.0 + + write(*,"(a)",advance="no") "-- Running test 'SGEMV' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + call hipCheck(hipMalloc(dx,Nxbytes)) + call hipCheck(hipMalloc(dy,Nybytes)) + call hipCheck(hipMalloc(da,Nabytes)) + + call hipCheck(hipMemcpy(da, c_loc(a(1)), Nabytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dx, c_loc(x(1)), Nxbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dy, c_loc(y(1)), Nybytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasSgemv(handle,HIPBLAS_OP_N,m,n,c_loc(alpha),da,m,dx,1,c_loc(beta),dy,1)) + + call hipCheck(hipMemcpy(c_loc(y(1)), dy, Nybytes, hipMemcpyDeviceToHost)) + + do i = 1,m + error = abs(5.0 - y(i)) + if( error > 10*epsilon(error) )then + write(*,*) "FAILED! Error bigger than max! Error = ", error, "y(i) = ", y(i) + call exit(1) + end if + end do + + call hipblasCheck(hipblasDestroy(handle)) + + call hipCheck(hipFree(da)) + call hipCheck(hipFree(dx)) + call hipCheck(hipFree(dy)) + + deallocate(a) + deallocate(x) + deallocate(y) + + write(*,*) "PASSED!" + +end program hip_sgemv diff --git a/bindings/fortran/hipblas/test/sgemv.f08 b/bindings/fortran/hipblas/test/sgemv.f08 new file mode 100644 index 000000000000..9286a7c84ca6 --- /dev/null +++ b/bindings/fortran/hipblas/test/sgemv.f08 @@ -0,0 +1,87 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_sgemv + use iso_c_binding + use hip + use hipblas + + implicit none + + integer :: m = 6 + integer :: n = 5 + integer :: i, j + + real, target :: alpha = 1.0 + real, target :: beta = 0.0 + + type(c_ptr) :: handle = c_null_ptr + + real(kind=4), allocatable, target, dimension(:) :: a, x, y + + real(kind=4), pointer, dimension(:) :: da, dx, dy + + real :: error + real, parameter :: error_max = 10*epsilon(error) + + allocate(x(n)) + allocate(y(m)) + allocate(a(m*n)) + + a(:) = 1.0 + x(:) = 1.0 + y(:) = 1.0 + + write(*,"(a)",advance="no") "-- Running test 'SGEMV' (Fortran 2008 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + call hipCheck(hipMalloc(dx,source=x)) + call hipCheck(hipMalloc(dy,source=y)) + call hipCheck(hipMalloc(da,source=a)) + + call hipblasCheck(hipblasSgemv(handle,HIPBLAS_OP_N,m,n,alpha,da,m,dx,1,beta,dy,1)) + + call hipCheck(hipMemcpy(y, dy, hipMemcpyDeviceToHost)) + + do i = 1,m + error = abs(5.0 - y(i)) + if( error > 10*epsilon(error) )then + write(*,*) "FAILED! Error bigger than max! Error = ", error, "y(i) = ", y(i) + call exit(1) + end if + end do + + call hipblasCheck(hipblasDestroy(handle)) + + call hipCheck(hipFree(da)) + call hipCheck(hipFree(dx)) + call hipCheck(hipFree(dy)) + + deallocate(a,x,y) + + write(*,*) "PASSED!" + +end program hip_sgemv diff --git a/bindings/fortran/hipblas/test/sgemv_devptr.f03 b/bindings/fortran/hipblas/test/sgemv_devptr.f03 new file mode 100644 index 000000000000..3da538b33f36 --- /dev/null +++ b/bindings/fortran/hipblas/test/sgemv_devptr.f03 @@ -0,0 +1,114 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2021 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_sgemv + use iso_c_binding + use hip + use hipblas + + implicit none + + integer :: m = 6 + integer :: n = 5 + integer :: i, j + + real, target :: alpha = 1.0 + + ! Device-resident copies of the dual-mode scalars; the library reads them + ! from device memory because the handle is in device pointer mode. + type(c_ptr) :: d_alpha = c_null_ptr + type(c_ptr) :: d_beta = c_null_ptr + real, target :: beta = 0.0 + + type(c_ptr) :: handle = c_null_ptr + + real(kind=4), allocatable, target, dimension(:) :: a, x, y + + type(c_ptr) :: da = c_null_ptr, dx = c_null_ptr, dy = c_null_ptr + + integer(c_size_t) :: Nabytes, Nxbytes, Nybytes + integer, parameter :: bytes_per_element = 4 !float precision + + real :: error + real, parameter :: error_max = 10*epsilon(error) + + Nabytes = m * n * bytes_per_element + Nxbytes = n * bytes_per_element + Nybytes = m * bytes_per_element + + allocate(x(n)) + allocate(y(m)) + allocate(a(m*n)) + + a(:) = 1.0 + x(:) = 1.0 + y(:) = 1.0 + + write(*,"(a)",advance="no") "-- Running test 'SGEMV_devptr' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + ! Switch to device pointer mode and stage the scalars in device memory + call hipblasCheck(hipblasSetPointerMode(handle, HIPBLAS_POINTER_MODE_DEVICE)) + call hipCheck(hipMalloc(d_alpha, c_sizeof(alpha))) + call hipCheck(hipMalloc(d_beta, c_sizeof(beta))) + call hipCheck(hipMemcpy(d_alpha, c_loc(alpha), c_sizeof(alpha), hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(d_beta, c_loc(beta), c_sizeof(beta), hipMemcpyHostToDevice)) + + call hipCheck(hipMalloc(dx,Nxbytes)) + call hipCheck(hipMalloc(dy,Nybytes)) + call hipCheck(hipMalloc(da,Nabytes)) + + call hipCheck(hipMemcpy(da, c_loc(a(1)), Nabytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dx, c_loc(x(1)), Nxbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dy, c_loc(y(1)), Nybytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasSgemv(handle,HIPBLAS_OP_N,m,n,d_alpha,da,m,dx,1,d_beta,dy,1)) + + call hipCheck(hipMemcpy(c_loc(y(1)), dy, Nybytes, hipMemcpyDeviceToHost)) + + do i = 1,m + error = abs(5.0 - y(i)) + if( error > 10*epsilon(error) )then + write(*,*) "FAILED! Error bigger than max! Error = ", error, "y(i) = ", y(i) + call exit(1) + end if + end do + + call hipblasCheck(hipblasDestroy(handle)) + + call hipCheck(hipFree(da)) + call hipCheck(hipFree(dx)) + call hipCheck(hipFree(dy)) + + deallocate(a) + deallocate(x) + deallocate(y) + + call hipCheck(hipFree(d_alpha)) + call hipCheck(hipFree(d_beta)) + write(*,*) "PASSED!" + +end program hip_sgemv diff --git a/bindings/fortran/hipblas/test/sgemv_trans.f03 b/bindings/fortran/hipblas/test/sgemv_trans.f03 new file mode 100644 index 000000000000..016482776db0 --- /dev/null +++ b/bindings/fortran/hipblas/test/sgemv_trans.f03 @@ -0,0 +1,139 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hipblas_sgemv_trans_test + + ! hipblasSgemv with every trans value. A is rectangular and padded (lda > m), x and y + ! use different non-unit increments and the values vary, so that a + ! swapped dimension or increment, a wrong leading dimension, a wrong operation + ! constant or a missed conjugation all change the result. The entries of y + ! between the strided ones must come back untouched. + + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(kind(HIPBLAS_OP_N)), parameter :: ops(3) = [HIPBLAS_OP_N, & + HIPBLAS_OP_T, HIPBLAS_OP_C] + character(len=1), parameter :: op_names(3) = ['N', 'T', 'C'] + integer, parameter :: m = 37, n = 23, pad = 3, incx = 2, incy = 3 + integer, parameter :: lda = m + pad + real(c_float), target :: alpha = 1.5_c_float, beta = 0.5_c_float + + real(c_float), allocatable, target :: hA(:,:), hx(:), hy(:) + real(c_float), allocatable :: hy0(:), opA(:,:), y_ref(:), mask_ref(:) + type(c_ptr) :: dA = c_null_ptr, dx = c_null_ptr, dy = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + integer(c_size_t), parameter :: elem = 4 + + integer :: it, i, j, lx, ly + real(c_float) :: error, error_max + + write(*,"(a)",advance="no") "-- Running test 'SGEMV transposes' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + call hipblasCheck(hipblasSetPointerMode(handle, HIPBLAS_POINTER_MODE_HOST)) + + error_max = 100 * epsilon(error) * (abs(alpha) * max(m, n) + abs(beta)) + + allocate(hA(lda, n)) + do j = 1, n + do i = 1, lda + hA(i,j) = fill(i, j, 1) + end do + end do + + do it = 1, 3 + ! op(A) is ly x lx + if (ops(it) == HIPBLAS_OP_N) then + lx = n; ly = m + else + lx = m; ly = n + end if + + allocate(hx(1 + (lx-1)*incx), hy(1 + (ly-1)*incy)) + do i = 1, size(hx) + hx(i) = fill(i, 1, 2) + end do + do i = 1, size(hy) + hy(i) = fill(i, 1, 3) + end do + hy0 = hy + + call hipCheck(hipMalloc(dA, size(hA, kind=c_size_t) * elem)) + call hipCheck(hipMalloc(dx, size(hx, kind=c_size_t) * elem)) + call hipCheck(hipMalloc(dy, size(hy, kind=c_size_t) * elem)) + call hipCheck(hipMemcpy(dA, c_loc(hA(1,1)), size(hA, kind=c_size_t) * elem, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dx, c_loc(hx(1)), size(hx, kind=c_size_t) * elem, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dy, c_loc(hy(1)), size(hy, kind=c_size_t) * elem, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasSgemv(handle, ops(it), m, n, c_loc(alpha), dA, lda, dx, incx, & + c_loc(beta), dy, incy)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(c_loc(hy(1)), dy, size(hy, kind=c_size_t) * elem, hipMemcpyDeviceToHost)) + + if (ops(it) == HIPBLAS_OP_N) then + opA = hA(1:m, 1:n) + else + opA = transpose(hA(1:m, 1:n)) + end if + y_ref = alpha * matmul(opA, hx(1::incx)) + beta * hy0(1::incy) + + error = maxval(abs(hy(1::incy) - y_ref)) + if (error > error_max) then + write(*,*) "FAILED! trans = ", op_names(it), " error = ", error + call exit(1) + end if + ! the strided writes must leave the entries in between alone + mask_ref = hy0 + mask_ref(1::incy) = hy(1::incy) + if (any(hy /= mask_ref)) then + write(*,*) "FAILED! trans = ", op_names(it), " wrote between the strided entries of y" + call exit(1) + end if + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dx)) + call hipCheck(hipFree(dy)) + deallocate(hx, hy, hy0, opA, y_ref, mask_ref) + end do + + deallocate(hA) + + call hipblasCheck(hipblasDestroy(handle)) + + write(*,*) "PASSED!" + +contains + + ! Varying small multiples of 1/8, so every product and sum below is exact. + real(c_float) function fill(i, j, s) + integer, intent(in) :: i, j, s + fill = real(mod(7*i + 3*j + s, 13) - 6, c_float) / 8 + end function fill + +end program hipblas_sgemv_trans_test diff --git a/bindings/fortran/hipblas/test/sgemv_trans.f08 b/bindings/fortran/hipblas/test/sgemv_trans.f08 new file mode 100644 index 000000000000..2c17c560bbd5 --- /dev/null +++ b/bindings/fortran/hipblas/test/sgemv_trans.f08 @@ -0,0 +1,135 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hipblas_sgemv_trans_test + + ! hipblasSgemv with every trans value. A is rectangular and padded (lda > m), x and y + ! use different non-unit increments and the values vary, so that a + ! swapped dimension or increment, a wrong leading dimension, a wrong operation + ! constant or a missed conjugation all change the result. The entries of y + ! between the strided ones must come back untouched. + + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(kind(HIPBLAS_OP_N)), parameter :: ops(3) = [HIPBLAS_OP_N, & + HIPBLAS_OP_T, HIPBLAS_OP_C] + character(len=1), parameter :: op_names(3) = ['N', 'T', 'C'] + integer, parameter :: m = 37, n = 23, pad = 3, incx = 2, incy = 3 + integer, parameter :: lda = m + pad + real(c_float), target :: alpha = 1.5_c_float, beta = 0.5_c_float + + real(c_float), allocatable :: hA(:,:), hx(:), hy(:) + real(c_float), allocatable :: hy0(:), opA(:,:), y_ref(:), mask_ref(:) + real(c_float), pointer, dimension(:,:) :: dA + real(c_float), pointer, dimension(:) :: dx, dy + type(c_ptr) :: handle = c_null_ptr + + integer :: it, i, j, lx, ly + real(c_float) :: error, error_max + + write(*,"(a)",advance="no") "-- Running test 'SGEMV transposes' (Fortran 2008 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + call hipblasCheck(hipblasSetPointerMode(handle, HIPBLAS_POINTER_MODE_HOST)) + + error_max = 100 * epsilon(error) * (abs(alpha) * max(m, n) + abs(beta)) + + allocate(hA(lda, n)) + do j = 1, n + do i = 1, lda + hA(i,j) = fill(i, j, 1) + end do + end do + + do it = 1, 3 + ! op(A) is ly x lx + if (ops(it) == HIPBLAS_OP_N) then + lx = n; ly = m + else + lx = m; ly = n + end if + + allocate(hx(1 + (lx-1)*incx), hy(1 + (ly-1)*incy)) + do i = 1, size(hx) + hx(i) = fill(i, 1, 2) + end do + do i = 1, size(hy) + hy(i) = fill(i, 1, 3) + end do + hy0 = hy + + call hipCheck(hipMalloc(dA, source=hA)) + call hipCheck(hipMalloc(dx, source=hx)) + call hipCheck(hipMalloc(dy, source=hy)) + + call hipblasCheck(hipblasSgemv(handle, ops(it), m, n, alpha, dA, lda, dx, incx, beta, dy, incy)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(hy, dy, hipMemcpyDeviceToHost)) + + if (ops(it) == HIPBLAS_OP_N) then + opA = hA(1:m, 1:n) + else + opA = transpose(hA(1:m, 1:n)) + end if + y_ref = alpha * matmul(opA, hx(1::incx)) + beta * hy0(1::incy) + + error = maxval(abs(hy(1::incy) - y_ref)) + if (error > error_max) then + write(*,*) "FAILED! trans = ", op_names(it), " error = ", error + call exit(1) + end if + ! the strided writes must leave the entries in between alone + mask_ref = hy0 + mask_ref(1::incy) = hy(1::incy) + if (any(hy /= mask_ref)) then + write(*,*) "FAILED! trans = ", op_names(it), " wrote between the strided entries of y" + call exit(1) + end if + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dx)) + call hipCheck(hipFree(dy)) + deallocate(hx, hy, hy0, opA, y_ref, mask_ref) + end do + + deallocate(hA) + + call hipblasCheck(hipblasDestroy(handle)) + + write(*,*) "PASSED!" + +contains + + ! Varying small multiples of 1/8, so every product and sum below is exact. + real(c_float) function fill(i, j, s) + integer, intent(in) :: i, j, s + fill = real(mod(7*i + 3*j + s, 13) - 6, c_float) / 8 + end function fill + +end program hipblas_sgemv_trans_test diff --git a/bindings/fortran/hipblas/test/sgeqrf_info_host.f08 b/bindings/fortran/hipblas/test/sgeqrf_info_host.f08 new file mode 100644 index 000000000000..8d2cae3ed055 --- /dev/null +++ b/bindings/fortran/hipblas/test/sgeqrf_info_host.f08 @@ -0,0 +1,104 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2020-2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +! Checks hipblasSgeqrf's `info`, a host integer that hipBLAS writes on the host +! (argument validation), through the array overload (X_full_rank: A(lda, n) and +! tau on the device, info a Fortran variable): +! 1. a valid call gives info = 0, and R and tau are consistent with A: +! |R(1,1)| = ||A(:,1)||, R(1,2) = A(:,1).A(:,2) / R(1,1), tau(1) in [1, 2]; +! 2. an invalid argument gives info = -(its position, counted after the +! handle), written to the host variable: m < 0 gives -1, lda < m gives -4. +program hipblas_sgeqrf_info_host_test + + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(c_int), parameter :: m = 6, n = 4, lda = m + real(c_float), parameter :: tol = 1.e-4 + + real(c_float), target :: hA(lda,n), hR(lda,n), htau(n) + real(c_float), pointer :: dA(:,:) => null(), dtau(:) => null() + integer(c_int), target :: info + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: status + real(c_float) :: r11, r12 + type(c_ptr) :: handle + integer :: i, j + + write(*,"(a)",advance="no") "-- Running test 'sgeqrf_info_host' (Fortran 2008 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + do j = 1, n + do i = 1, m + hA(i,j) = real(mod(i*j + 3*i, 7) + 1, c_float) / real(j, c_float) + end do + end do + call hipCheck(hipMalloc(dA, source=hA)) + call hipCheck(hipMalloc(dtau, n)) + + ! 1. valid arguments + info = -99 + call hipblasCheck(hipblasSgeqrf(handle, m, n, dA, lda, dtau, info)) + call hipCheck(hipDeviceSynchronize()) + if (info /= 0) then + write(*,*) "FAILED! valid call returned info = ", info + call exit(1) + end if + call hipCheck(hipMemcpy(hR, dA, hipMemcpyDeviceToHost)) + call hipCheck(hipMemcpy(htau, dtau, hipMemcpyDeviceToHost)) + r11 = norm2(hA(:,1)) + r12 = dot_product(hA(:,1), hA(:,2)) / hR(1,1) + if (abs(abs(hR(1,1)) - r11) > tol * r11 .or. abs(hR(1,2) - r12) > tol * abs(r11) & + .or. htau(1) < 1.0 - tol .or. htau(1) > 2.0 + tol) then + write(*,*) "FAILED! R(1,1) = ", hR(1,1), " expected +-", r11, " R(1,2) = ", hR(1,2), & + " expected ", r12, " tau(1) = ", htau(1) + call exit(1) + end if + + ! 2. invalid arguments: hipBLAS reports them in info (and in the status) + info = 0 + status = hipblasSgeqrf(handle, -1, n, dA, lda, dtau, info) + if (info /= -1) then + write(*,*) "FAILED! m < 0 gave info = ", info, " status = ", status + call exit(1) + end if + info = 0 + status = hipblasSgeqrf(handle, m, n, dA, m - 1, dtau, info) + if (info /= -4) then + write(*,*) "FAILED! lda < m gave info = ", info, " status = ", status + call exit(1) + end if + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dtau)) + call hipblasCheck(hipblasDestroy(handle)) + call hipCheck(hipDeviceReset()) + + write(*,*) "PASSED!" + +end program hipblas_sgeqrf_info_host_test diff --git a/bindings/fortran/hipblas/test/sger.f03 b/bindings/fortran/hipblas/test/sger.f03 new file mode 100644 index 000000000000..e3456c2d61be --- /dev/null +++ b/bindings/fortran/hipblas/test/sger.f03 @@ -0,0 +1,126 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2021 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +! HIPBLAS, i.e. cuBLAS and rocBLAS, assumes column-major matrix memory layouts. +! Hence, no matrix must be transposed when interfacing with Fortran. +program hip_sger + use iso_c_binding + use hip + use hipblas + + implicit none + + integer :: m = 6 + integer :: n = 5 + real, target :: alpha = 2.0 + type(c_ptr) :: handle = c_null_ptr + integer :: i, j + + real :: error + real, parameter :: error_max = 10*epsilon(error) + + real(kind=4), allocatable, target, dimension(:,:) :: a + real(kind=4), allocatable, target, dimension(:) :: x, y + + type(c_ptr) :: da = c_null_ptr, dx = c_null_ptr, dy = c_null_ptr + + integer(c_size_t) :: Nabytes, Nxbytes, Nybytes + integer, parameter :: bytes_per_element = 4 !float precision + + Nxbytes = m * bytes_per_element + Nybytes = n * bytes_per_element + Nabytes = m * n * bytes_per_element + + allocate(x(m)) + allocate(y(n)) + allocate(a(m,n)) + + do i = 1,m + do j = 1,n + a(i,j) = 1.0 + end do + end do + + do i = 1,m + x(i) = 1.0 + end do + + do i = 1,n + y(i) = 1.0 + end do + + + write(*,"(a)",advance="no") "-- Running test 'SGER' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + call hipCheck(hipMalloc(dx,Nxbytes)) + call hipCheck(hipMalloc(dy,Nybytes)) + call hipCheck(hipMalloc(da,Nabytes)) + + !call hipCheck(hipblasSetMatrix(m,n,bytes_per_element,a,m,da,m)) + !call hipCheck(hipblasSetVector(m,bytes_per_element,x,1,dx,1)) + !call hipCheck(hipblasSetVector(n,bytes_per_element,y,1,dy,1)) + + call hipCheck(hipMemcpy(da, c_loc(a(1,1)), Nabytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dx, c_loc(x(1)), Nxbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dy, c_loc(y(1)), Nybytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasSger(handle,m,n,c_loc(alpha),dx,1,dy,1,da,m)) + + !call hipCheck(hipblasGetMatrix(m,n,bytes_per_element,da,m,a,m)); + call hipCheck(hipDeviceSynchronize()) + + call hipCheck(hipMemcpy(c_loc(a(1,1)), da, Nabytes, hipMemcpyDeviceToHost)) + + !do i=1,m + ! do j = 1,n + ! write(*,*) a(i,j) + ! end do + !end do + + do i = 1,m + do j = 1,n + error = abs(3.0 - a(i,j)) + if( error > 10*epsilon(error) )then + write(*,*) "FAILED! Error bigger than max! Error = ", error, "a(i,j) = ", a(i,j) + call exit(1) + end if + end do + end do + + call hipblasCheck(hipblasDestroy(handle)) + + call hipCheck(hipFree(da)) + call hipCheck(hipFree(dx)) + call hipCheck(hipFree(dy)) + + deallocate(a) + deallocate(x) + deallocate(y) + + write(*,*) "PASSED!" + +end program hip_sger diff --git a/bindings/fortran/hipblas/test/sger.f08 b/bindings/fortran/hipblas/test/sger.f08 new file mode 100644 index 000000000000..a0b5a96e21ff --- /dev/null +++ b/bindings/fortran/hipblas/test/sger.f08 @@ -0,0 +1,126 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +! HIPBLAS, i.e. cuBLAS and rocBLAS, assumes column-major matrix memory layouts. +! Hence, no matrix must be transposed when interfacing with Fortran. +program hip_sger + use iso_c_binding + use hip + use hipblas + + implicit none + + integer :: m = 6 + integer :: n = 5 + real, target :: alpha = 2.0 + type(c_ptr) :: handle = c_null_ptr + integer :: i, j + + real :: error + real, parameter :: error_max = 10*epsilon(error) + + real(kind=4), allocatable, target, dimension(:,:) :: a + real(kind=4), allocatable, target, dimension(:) :: x, y + + type(c_ptr) :: da = c_null_ptr, dx = c_null_ptr, dy = c_null_ptr + + integer(c_size_t) :: Nabytes, Nxbytes, Nybytes + integer, parameter :: bytes_per_element = 4 !float precision + + Nxbytes = m * bytes_per_element + Nybytes = n * bytes_per_element + Nabytes = m * n * bytes_per_element + + allocate(x(m)) + allocate(y(n)) + allocate(a(m,n)) + + do i = 1,m + do j = 1,n + a(i,j) = 1.0 + end do + end do + + do i = 1,m + x(i) = 1.0 + end do + + do i = 1,n + y(i) = 1.0 + end do + + + write(*,"(a)",advance="no") "-- Running test 'SGER' (Fortran 2008 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + call hipCheck(hipMalloc(dx,Nxbytes)) + call hipCheck(hipMalloc(dy,Nybytes)) + call hipCheck(hipMalloc(da,Nabytes)) + + !call hipCheck(hipblasSetMatrix(m,n,bytes_per_element,a,m,da,m)) + !call hipCheck(hipblasSetVector(m,bytes_per_element,x,1,dx,1)) + !call hipCheck(hipblasSetVector(n,bytes_per_element,y,1,dy,1)) + + call hipCheck(hipMemcpy(da, c_loc(a), Nabytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dx, c_loc(x), Nxbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dy, c_loc(y), Nybytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasSger(handle,m,n,c_loc(alpha),dx,1,dy,1,da,m)) + + !call hipCheck(hipblasGetMatrix(m,n,bytes_per_element,da,m,a,m)); + call hipCheck(hipDeviceSynchronize()) + + call hipCheck(hipMemcpy(c_loc(a), da, Nabytes, hipMemcpyDeviceToHost)) + + !do i=1,m + ! do j = 1,n + ! write(*,*) a(i,j) + ! end do + !end do + + do i = 1,m + do j = 1,n + error = abs(3.0 - a(i,j)) + if( error > 10*epsilon(error) )then + write(*,*) "FAILED! Error bigger than max! Error = ", error, "a(i,j) = ", a(i,j) + call exit(1) + end if + end do + end do + + call hipblasCheck(hipblasDestroy(handle)) + + call hipCheck(hipFree(da)) + call hipCheck(hipFree(dx)) + call hipCheck(hipFree(dy)) + + deallocate(a) + deallocate(x) + deallocate(y) + + write(*,*) "PASSED!" + +end program hip_sger diff --git a/bindings/fortran/hipblas/test/sger_devptr.f03 b/bindings/fortran/hipblas/test/sger_devptr.f03 new file mode 100644 index 000000000000..0de873b840bf --- /dev/null +++ b/bindings/fortran/hipblas/test/sger_devptr.f03 @@ -0,0 +1,136 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2021 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +! HIPBLAS, i.e. cuBLAS and rocBLAS, assumes column-major matrix memory layouts. +! Hence, no matrix must be transposed when interfacing with Fortran. +program hip_sger + use iso_c_binding + use hip + use hipblas + + implicit none + + integer :: m = 6 + integer :: n = 5 + real, target :: alpha = 2.0 + + ! Device-resident copies of the dual-mode scalars; the library reads them + ! from device memory because the handle is in device pointer mode. + type(c_ptr) :: d_alpha = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + integer :: i, j + + real :: error + real, parameter :: error_max = 10*epsilon(error) + + real(kind=4), allocatable, target, dimension(:,:) :: a + real(kind=4), allocatable, target, dimension(:) :: x, y + + type(c_ptr) :: da = c_null_ptr, dx = c_null_ptr, dy = c_null_ptr + + integer(c_size_t) :: Nabytes, Nxbytes, Nybytes + integer, parameter :: bytes_per_element = 4 !float precision + + Nxbytes = m * bytes_per_element + Nybytes = n * bytes_per_element + Nabytes = m * n * bytes_per_element + + allocate(x(m)) + allocate(y(n)) + allocate(a(m,n)) + + do i = 1,m + do j = 1,n + a(i,j) = 1.0 + end do + end do + + do i = 1,m + x(i) = 1.0 + end do + + do i = 1,n + y(i) = 1.0 + end do + + + write(*,"(a)",advance="no") "-- Running test 'SGER_devptr' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + ! Switch to device pointer mode and stage the scalars in device memory + call hipblasCheck(hipblasSetPointerMode(handle, HIPBLAS_POINTER_MODE_DEVICE)) + call hipCheck(hipMalloc(d_alpha, c_sizeof(alpha))) + call hipCheck(hipMemcpy(d_alpha, c_loc(alpha), c_sizeof(alpha), hipMemcpyHostToDevice)) + + call hipCheck(hipMalloc(dx,Nxbytes)) + call hipCheck(hipMalloc(dy,Nybytes)) + call hipCheck(hipMalloc(da,Nabytes)) + + !call hipCheck(hipblasSetMatrix(m,n,bytes_per_element,a,m,da,m)) + !call hipCheck(hipblasSetVector(m,bytes_per_element,x,1,dx,1)) + !call hipCheck(hipblasSetVector(n,bytes_per_element,y,1,dy,1)) + + call hipCheck(hipMemcpy(da, c_loc(a(1,1)), Nabytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dx, c_loc(x(1)), Nxbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dy, c_loc(y(1)), Nybytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasSger(handle,m,n,d_alpha,dx,1,dy,1,da,m)) + + !call hipCheck(hipblasGetMatrix(m,n,bytes_per_element,da,m,a,m)); + call hipCheck(hipDeviceSynchronize()) + + call hipCheck(hipMemcpy(c_loc(a(1,1)), da, Nabytes, hipMemcpyDeviceToHost)) + + !do i=1,m + ! do j = 1,n + ! write(*,*) a(i,j) + ! end do + !end do + + do i = 1,m + do j = 1,n + error = abs(3.0 - a(i,j)) + if( error > 10*epsilon(error) )then + write(*,*) "FAILED! Error bigger than max! Error = ", error, "a(i,j) = ", a(i,j) + call exit(1) + end if + end do + end do + + call hipblasCheck(hipblasDestroy(handle)) + + call hipCheck(hipFree(da)) + call hipCheck(hipFree(dx)) + call hipCheck(hipFree(dy)) + + deallocate(a) + deallocate(x) + deallocate(y) + + call hipCheck(hipFree(d_alpha)) + write(*,*) "PASSED!" + +end program hip_sger diff --git a/bindings/fortran/hipblas/test/sgetrf_strided_batched_info.f08 b/bindings/fortran/hipblas/test/sgetrf_strided_batched_info.f08 new file mode 100644 index 000000000000..e91dc1025cb0 --- /dev/null +++ b/bindings/fortran/hipblas/test/sgetrf_strided_batched_info.f08 @@ -0,0 +1,133 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2020-2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +! Checks hipblasSgetrfStridedBatched's per-batch `info`, an array of batchCount +! integers on the device, with A(lda, n, batch) and ipiv(n, batch): +! 1. info a device integer array (integer(c_int), pointer :: dinfo(:)) +! -> X_strided_rank +! 2. info a type(c_ptr) to the same device array -> X_strided_rank_devptr +! Batch entry 2 has a zero third column, so it alone must give info = 3 (U(3,3) +! is the first zero pivot); the others give info = 0 and P*A = L*U. +program hipblas_sgetrf_strided_batched_info_test + + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(c_int), parameter :: n = 5, lda = n + 1, batch = 3, singular = 2 + integer(c_int64_t), parameter :: strideA = lda*n, strideP = n + real(c_float), parameter :: tol = 1.e-4 + + real(c_float), target :: hA(lda,n,batch), hLU(lda,n,batch) + integer(c_int), target :: hipiv(n,batch), hinfo(batch), expected(batch) + real(c_float), pointer :: dA(:,:,:) => null() + integer(c_int), pointer :: dipiv(:,:) => null(), dinfo(:) => null() + type(c_ptr) :: handle + integer :: i, j, b, form + + write(*,"(a)",advance="no") "-- Running test 'sgetrf_strided_batched_info' (Fortran 2008 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + do b = 1, batch + do j = 1, n + do i = 1, lda + hA(i,j,b) = real(mod(3*i + 5*j*b, 11), c_float) - 4.0 + end do + hA(j,j,b) = hA(j,j,b) + 10.0 ! keep the regular entries well conditioned + end do + end do + hA(:,3,singular) = 0.0 + expected = 0 + expected(singular) = 3 + + call hipCheck(hipMalloc(dA, lda, n, batch)) + call hipCheck(hipMalloc(dipiv, n, batch)) + call hipCheck(hipMalloc(dinfo, batch)) + + do form = 1, 2 + call hipCheck(hipMemcpy(dA, hA, hipMemcpyHostToDevice)) + hinfo = -1 + call hipCheck(hipMemcpy(dinfo, hinfo, hipMemcpyHostToDevice)) + if (form == 1) then + call hipblasCheck(hipblasSgetrfStridedBatched(handle, n, dA, lda, strideA, dipiv, strideP, & + dinfo, batch)) + else + call hipblasCheck(hipblasSgetrfStridedBatched(handle, n, dA, lda, strideA, dipiv, strideP, & + c_loc(dinfo), batch)) + end if + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(hinfo, dinfo, hipMemcpyDeviceToHost)) + call hipCheck(hipMemcpy(hLU, dA, hipMemcpyDeviceToHost)) + call hipCheck(hipMemcpy(hipiv, dipiv, hipMemcpyDeviceToHost)) + + if (any(hinfo /= expected)) then + write(*,*) "FAILED! ", merge("device array", "type(c_ptr) ", form == 1), & + " info = ", hinfo, " expected ", expected + call exit(1) + end if + do b = 1, batch + if (b /= singular) call check_lu(b, form) + end do + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dipiv)) + call hipCheck(hipFree(dinfo)) + call hipblasCheck(hipblasDestroy(handle)) + call hipCheck(hipDeviceReset()) + + write(*,*) "PASSED!" + +contains + + ! P*A = L*U for batch entry b, with the 1-based row interchanges of ipiv + subroutine check_lu(b, form) + integer, intent(in) :: b, form + real(c_float) :: PA(n,n), L(n,n), U(n,n), row(n) + integer :: k + PA = hA(1:n,1:n,b) + do k = 1, n + row = PA(k,:) + PA(k,:) = PA(hipiv(k,b),:) + PA(hipiv(k,b),:) = row + end do + L = 0.0 + U = 0.0 + do k = 1, n + L(k,k) = 1.0 + L(k+1:n,k) = hLU(k+1:n,k,b) + U(1:k,k) = hLU(1:k,k,b) + end do + if (maxval(abs(matmul(L, U) - PA)) > tol * maxval(abs(PA))) then + write(*,*) "FAILED! ", merge("device array", "type(c_ptr) ", form == 1), & + " P*A /= L*U for batch entry ", b + call exit(1) + end if + end subroutine + +end program hipblas_sgetrf_strided_batched_info_test diff --git a/bindings/fortran/hipblas/test/snrm2.f03 b/bindings/fortran/hipblas/test/snrm2.f03 new file mode 100644 index 000000000000..1c235b7309c2 --- /dev/null +++ b/bindings/fortran/hipblas/test/snrm2.f03 @@ -0,0 +1,72 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_snrm2 + use iso_c_binding + use hip + use hipblas + + implicit none + + ! nrm2(x) with x = 1 over n elements, so the result is sqrt(n). + integer, parameter :: n = 1024 + integer(c_size_t) :: Nbytes + real(c_float), allocatable, target, dimension(:) :: hx + real(c_float), target :: res + real(c_float) :: res_exact, error + real(c_float), parameter :: error_max = 10*epsilon(error) + type(c_ptr) :: dx = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + + write(*,"(a)",advance="no") "-- Running test 'snrm2' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + allocate(hx(n)) + hx = 1.0 + res_exact = sqrt(real(n, kind=kind(res_exact))) + + Nbytes = int(n, c_size_t) * 4 + call hipCheck(hipMalloc(dx, Nbytes)) + call hipCheck(hipMemcpy(dx, c_loc(hx(1)), Nbytes, hipMemcpyHostToDevice)) + + res = 0.0 + call hipblasCheck(hipblasSnrm2(handle, n, dx, 1, c_loc(res))) + call hipCheck(hipDeviceSynchronize()) + + error = abs((res_exact - res) / res_exact) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " result = ", res + call exit(1) + end if + + call hipCheck(hipFree(dx)) + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(hx) + + write(*,*) "PASSED!" + +end program hip_snrm2 diff --git a/bindings/fortran/hipblas/test/snrm2.f08 b/bindings/fortran/hipblas/test/snrm2.f08 new file mode 100644 index 000000000000..8845b5db825c --- /dev/null +++ b/bindings/fortran/hipblas/test/snrm2.f08 @@ -0,0 +1,70 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_snrm2 + use iso_c_binding + use hip + use hipblas + + implicit none + + ! nrm2(x) with x = 1 over n elements, so the result is sqrt(n). + integer, parameter :: n = 1024 + real(c_float), allocatable, dimension(:) :: hx + real(c_float), target :: res + real(c_float) :: res_exact, error + real(c_float), parameter :: error_max = 10*epsilon(error) + real(c_float), pointer, dimension(:) :: dx + type(c_ptr) :: handle = c_null_ptr + + write(*,"(a)",advance="no") "-- Running test 'snrm2' (Fortran 2008 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + allocate(hx(n)) + hx = 1.0 + res_exact = sqrt(real(n, kind=kind(res_exact))) + + call hipCheck(hipMalloc(dx, shape(hx))) + call hipCheck(hipMemcpy(dx, hx, hipMemcpyHostToDevice)) + + res = 0.0 + call hipblasCheck(hipblasSnrm2(handle, n, dx, 1, c_loc(res))) + call hipCheck(hipDeviceSynchronize()) + + error = abs((res_exact - res) / res_exact) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " result = ", res + call exit(1) + end if + + call hipCheck(hipFree(dx)) + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(hx) + + write(*,*) "PASSED!" + +end program hip_snrm2 diff --git a/bindings/fortran/hipblas/test/snrm2_typed.f03 b/bindings/fortran/hipblas/test/snrm2_typed.f03 new file mode 100644 index 000000000000..ef9555413ee5 --- /dev/null +++ b/bindings/fortran/hipblas/test/snrm2_typed.f03 @@ -0,0 +1,76 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +! The same check as snrm2.f03, through the _typed form: the result is a Fortran +! variable rather than c_loc() of one, so the generic resolves to the _typed +! module procedure, which hands the C API its address. The handle is in host +! pointer mode, as that form requires. +program hip_snrm2_typed + use iso_c_binding + use hip + use hipblas + + implicit none + + ! nrm2(x) with x = 1 over n elements, so the result is sqrt(n). + integer, parameter :: n = 1024 + integer(c_size_t) :: Nbytes + real(c_float), allocatable, target, dimension(:) :: hx + real(c_float) :: res + real(c_float) :: res_exact, error + real(c_float), parameter :: error_max = 10*epsilon(error) + type(c_ptr) :: dx = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + + write(*,"(a)",advance="no") "-- Running test 'snrm2 typed' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + allocate(hx(n)) + hx = 1.0 + res_exact = sqrt(real(n, kind=kind(res_exact))) + + Nbytes = int(n, c_size_t) * 4 + call hipCheck(hipMalloc(dx, Nbytes)) + call hipCheck(hipMemcpy(dx, c_loc(hx(1)), Nbytes, hipMemcpyHostToDevice)) + + res = 0.0 + call hipblasCheck(hipblasSnrm2(handle, n, dx, 1, res)) + call hipCheck(hipDeviceSynchronize()) + + error = abs((res_exact - res) / res_exact) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " result = ", res + call exit(1) + end if + + call hipCheck(hipFree(dx)) + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(hx) + + write(*,*) "PASSED!" + +end program hip_snrm2_typed diff --git a/bindings/fortran/hipblas/test/srot_strided_batched_cs.f08 b/bindings/fortran/hipblas/test/srot_strided_batched_cs.f08 new file mode 100644 index 000000000000..889d0935fe98 --- /dev/null +++ b/bindings/fortran/hipblas/test/srot_strided_batched_cs.f08 @@ -0,0 +1,104 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2020-2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +! Checks hipblasSrotStridedBatched's `c` and `s`: one cosine and one sine shared +! by all batch entries, read per the pointer mode (as in rocBLAS), with x and y +! as device arrays holding one vector per column (x(n, batch)): +! 1. host pointer mode, c and s real variables -> X_strided_rank +! 2. device pointer mode, c and s type(c_ptr) to +! device scalars -> X_strided_rank_devptr +! against x' = c*x + s*y, y' = c*y - s*x for every batch entry. +program hipblas_srot_strided_batched_cs_test + + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(c_int), parameter :: n = 50, batch = 3 + integer(c_int64_t), parameter :: stride = n + real(c_float), parameter :: error_max = 10 * epsilon(1.0) + + real(c_float), target :: hx(n,batch), hy(n,batch), rx(n,batch), ry(n,batch) + real(c_float), target :: c, s + real(c_float), pointer :: dx(:,:) => null(), dy(:,:) => null() + real(c_float), pointer :: dc => null(), ds => null() + type(c_ptr) :: handle + integer :: i, b, mode + + write(*,"(a)",advance="no") "-- Running test 'srot_strided_batched_cs' (Fortran 2008 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + call hipCheck(hipMalloc(dx, n, batch)) + call hipCheck(hipMalloc(dy, n, batch)) + + do mode = 1, 2 + ! a different angle in each mode, so a stale result cannot pass + c = cos(0.3 * mode) + s = sin(0.3 * mode) + do b = 1, batch + do i = 1, n + hx(i,b) = real(i + b, c_float) / 10.0 + hy(i,b) = real(b - i, c_float) / 7.0 + end do + end do + rx = c * hx + s * hy + ry = c * hy - s * hx + call hipCheck(hipMemcpy(dx, hx, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dy, hy, hipMemcpyHostToDevice)) + + if (mode == 1) then + call hipblasCheck(hipblasSetPointerMode(handle, HIPBLAS_POINTER_MODE_HOST)) + call hipblasCheck(hipblasSrotStridedBatched(handle, n, dx, 1, stride, dy, 1, stride, c, s, batch)) + else + call hipCheck(hipMalloc(dc, source=c)) + call hipCheck(hipMalloc(ds, source=s)) + call hipblasCheck(hipblasSetPointerMode(handle, HIPBLAS_POINTER_MODE_DEVICE)) + call hipblasCheck(hipblasSrotStridedBatched(handle, n, dx, 1, stride, dy, 1, stride, & + c_loc(dc), c_loc(ds), batch)) + end if + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(hx, dx, hipMemcpyDeviceToHost)) + call hipCheck(hipMemcpy(hy, dy, hipMemcpyDeviceToHost)) + + if (maxval(abs(hx - rx)) > error_max * maxval(abs(rx)) .or. & + maxval(abs(hy - ry)) > error_max * maxval(abs(ry))) then + write(*,*) "FAILED! rotated vectors differ in ", merge("host ", "device", mode == 1), & + " pointer mode: x(1,:) = ", hx(1,:), " expected ", rx(1,:) + call exit(1) + end if + end do + + call hipCheck(hipFree(dx)) + call hipCheck(hipFree(dy)) + call hipCheck(hipFree(dc)) + call hipCheck(hipFree(ds)) + call hipblasCheck(hipblasDestroy(handle)) + call hipCheck(hipDeviceReset()) + + write(*,*) "PASSED!" + +end program hipblas_srot_strided_batched_cs_test diff --git a/bindings/fortran/hipblas/test/sswap.f03 b/bindings/fortran/hipblas/test/sswap.f03 new file mode 100644 index 000000000000..119d04f45e24 --- /dev/null +++ b/bindings/fortran/hipblas/test/sswap.f03 @@ -0,0 +1,95 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2021 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_sswap + use iso_c_binding + use hip + use hipblas + + implicit none + + integer :: n = 6 + integer :: i + real(kind=4), allocatable, target, dimension(:) :: x, y, x_exact, y_exact + type(c_ptr) :: dx = c_null_ptr, dy = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + + real :: error + real, parameter :: error_max = 10*epsilon(error) + + integer(c_size_t) :: Nxbytes, Nybytes + integer, parameter :: bytes_per_element = 4 !float precision + + Nxbytes = n * bytes_per_element + Nybytes = n * bytes_per_element + + allocate(x(n)) + allocate(y(n)) + allocate(x_exact(n)) + allocate(y_exact(n)) + + do i = 1,n + x(i) = i + x_exact(i) = x(i) + y(i) = 2 * i + y_exact(i) = y(i) + end do + + write(*,"(a)",advance="no") "-- Running test 'SSWAP' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + call hipCheck(hipMalloc(dx,Nxbytes)) + call hipCheck(hipMalloc(dy,Nybytes)) + + call hipCheck(hipMemcpy(dx, c_loc(x(1)), Nxbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dy, c_loc(y(1)), Nybytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasSswap(handle,n,dx,1,dy,1)) + + call hipCheck(hipMemcpy(c_loc(x(1)), dx, Nxbytes, hipMemcpyDeviceToHost)) + call hipCheck(hipMemcpy(c_loc(y(1)), dy, Nybytes, hipMemcpyDeviceToHost)) + + do i = 1,n + error = MAX(abs((y_exact(i) - x(i))/y_exact(i)), abs((x_exact(i) - y(i))/x_exact(i))) + if( error > error_max )then + write(*,*) "FAILED! Error bigger than max! Error = ", error + call exit(1) + end if + end do + + call hipblasCheck(hipblasDestroy(handle)) + + call hipCheck(hipFree(dx)) + call hipCheck(hipFree(dy)) + + deallocate(x) + deallocate(y) + deallocate(x_exact) + deallocate(y_exact) + + write(*,*) "PASSED!" + +end program hip_sswap diff --git a/bindings/fortran/hipblas/test/sswap.f08 b/bindings/fortran/hipblas/test/sswap.f08 new file mode 100644 index 000000000000..2b5a9dbc0372 --- /dev/null +++ b/bindings/fortran/hipblas/test/sswap.f08 @@ -0,0 +1,86 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_sswap + use iso_c_binding + use hip + use hipblas + + implicit none + + integer :: n = 6 + integer :: i + real(kind=4), allocatable, target, dimension(:) :: x, y, x_exact, y_exact + real(kind=4), pointer, dimension(:) :: dx, dy + type(c_ptr) :: handle = c_null_ptr + + real :: error + real, parameter :: error_max = 10*epsilon(error) + + allocate(x(n)) + allocate(y(n)) + allocate(x_exact(n)) + allocate(y_exact(n)) + + do i = 1,n + x(i) = i + x_exact(i) = x(i) + y(i) = 2 * i + y_exact(i) = y(i) + end do + + write(*,"(a)",advance="no") "-- Running test 'SSWAP' (Fortran 2008 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + call hipCheck(hipMalloc(dx,shape(x))) + call hipCheck(hipMalloc(dy,shape(y))) + + call hipCheck(hipMemcpy(dx, x, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dy, y, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasSswap(handle,n,dx,1,dy,1)) + + call hipCheck(hipMemcpy(x, dx, hipMemcpyDeviceToHost)) + call hipCheck(hipMemcpy(y, dy, hipMemcpyDeviceToHost)) + + do i = 1,n + error = MAX(abs((y_exact(i) - x(i))/y_exact(i)), abs((x_exact(i) - y(i))/x_exact(i))) + if( error > error_max )then + write(*,*) "FAILED! Error bigger than max! Error = ", error + call exit(1) + end if + end do + + call hipblasCheck(hipblasDestroy(handle)) + + call hipCheck(hipFree(dx)) + call hipCheck(hipFree(dy)) + + deallocate(x,y,x_exact,y_exact) + + write(*,*) "PASSED!" + +end program hip_sswap diff --git a/bindings/fortran/hipblas/test/ssymm.f03 b/bindings/fortran/hipblas/test/ssymm.f03 new file mode 100644 index 000000000000..0205a27d3a2b --- /dev/null +++ b/bindings/fortran/hipblas/test/ssymm.f03 @@ -0,0 +1,95 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_ssymm + use iso_c_binding + use hip + use hipblas + + implicit none + + ! C := alpha*A*B + beta*C with A symmetric (upper triangle referenced) on the left. + ! B is m x n with m /= n and A(2,1) holds junk, so swapping A and B, the side + ! or the triangle changes the result. + integer, parameter :: m = 2, n = 3 + integer(c_size_t) :: Nbytes + real(c_float), target :: alpha = 1.0, beta = 0.0 + + real(c_float), target :: hA(m,m) = reshape([1.0, 7.0, 2.0, 3.0], [m,m]) + real(c_float), target :: hB(m,n) = reshape([1.0, 4.0, 2.0, 5.0, 3.0, -6.0], [m,n]) + real(c_float), target :: hC(m,n) + real(c_float) :: expected(m,n), Aref(m,m) + type(c_ptr) :: dA = c_null_ptr, dB = c_null_ptr, dC = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + integer :: i, j + real(c_float) :: error + real(c_float), parameter :: error_max = 10*epsilon(error) + + write(*,"(a)",advance="no") "-- Running test 'ssymm' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + hC = 0.0 + + ! Host reference built from the upper triangle only, A(2,1) is junk + do j = 1, m + do i = 1, m + Aref(i,j) = hA(min(i,j), max(i,j)) + end do + end do + expected = alpha*matmul(Aref, hB) + + Nbytes = int(m*m, c_size_t) * 4 + call hipCheck(hipMalloc(dA, Nbytes)) + call hipCheck(hipMemcpy(dA, c_loc(hA(1,1)), Nbytes, hipMemcpyHostToDevice)) + Nbytes = int(m*n, c_size_t) * 4 + call hipCheck(hipMalloc(dB, Nbytes)) + call hipCheck(hipMemcpy(dB, c_loc(hB(1,1)), Nbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMalloc(dC, Nbytes)) + call hipCheck(hipMemcpy(dC, c_loc(hC(1,1)), Nbytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasSsymm(handle, HIPBLAS_SIDE_LEFT, HIPBLAS_FILL_MODE_UPPER, m, n, & + c_loc(alpha), dA, m, dB, m, c_loc(beta), dC, m)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(c_loc(hC(1,1)), dC, Nbytes, hipMemcpyDeviceToHost)) + + do j = 1, n + do i = 1, m + error = abs(expected(i,j) - hC(i,j)) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " at ", i, j + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dB)) + call hipCheck(hipFree(dC)) + call hipblasCheck(hipblasDestroy(handle)) + + write(*,*) "PASSED!" + +end program hip_ssymm diff --git a/bindings/fortran/hipblas/test/ssymm.f08 b/bindings/fortran/hipblas/test/ssymm.f08 new file mode 100644 index 000000000000..e4546acac7fd --- /dev/null +++ b/bindings/fortran/hipblas/test/ssymm.f08 @@ -0,0 +1,92 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_ssymm + use iso_c_binding + use hip + use hipblas + + implicit none + + ! C := alpha*A*B + beta*C with A symmetric (upper triangle referenced) on the left. + ! B is m x n with m /= n and A(2,1) holds junk, so swapping A and B, the side + ! or the triangle changes the result. + integer, parameter :: m = 2, n = 3 + real(c_float), target :: alpha = 1.0, beta = 0.0 + + real(c_float) :: hA(m,m) = reshape([1.0, 7.0, 2.0, 3.0], [m,m]) + real(c_float) :: hB(m,n) = reshape([1.0, 4.0, 2.0, 5.0, 3.0, -6.0], [m,n]) + real(c_float) :: hC(m,n) + real(c_float) :: expected(m,n), Aref(m,m) + real(c_float), pointer, dimension(:,:) :: dA, dB, dC + type(c_ptr) :: handle = c_null_ptr + integer :: i, j + real(c_float) :: error + real(c_float), parameter :: error_max = 10*epsilon(error) + + write(*,"(a)",advance="no") "-- Running test 'ssymm' (Fortran 2008 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + hC = 0.0 + + ! Host reference built from the upper triangle only, A(2,1) is junk + do j = 1, m + do i = 1, m + Aref(i,j) = hA(min(i,j), max(i,j)) + end do + end do + expected = alpha*matmul(Aref, hB) + + call hipCheck(hipMalloc(dA, shape(hA))) + call hipCheck(hipMemcpy(dA, hA, hipMemcpyHostToDevice)) + call hipCheck(hipMalloc(dB, shape(hB))) + call hipCheck(hipMemcpy(dB, hB, hipMemcpyHostToDevice)) + call hipCheck(hipMalloc(dC, shape(hC))) + call hipCheck(hipMemcpy(dC, hC, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasSsymm(handle, HIPBLAS_SIDE_LEFT, HIPBLAS_FILL_MODE_UPPER, m, n, & + alpha, dA, size(dA,1), dB, size(dB,1), beta, dC, size(dC,1))) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(hC, dC, hipMemcpyDeviceToHost)) + + do j = 1, n + do i = 1, m + error = abs(expected(i,j) - hC(i,j)) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " at ", i, j + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dB)) + call hipCheck(hipFree(dC)) + call hipblasCheck(hipblasDestroy(handle)) + + write(*,*) "PASSED!" + +end program hip_ssymm diff --git a/bindings/fortran/hipblas/test/ssymm_devptr.f03 b/bindings/fortran/hipblas/test/ssymm_devptr.f03 new file mode 100644 index 000000000000..79e7cdc98c47 --- /dev/null +++ b/bindings/fortran/hipblas/test/ssymm_devptr.f03 @@ -0,0 +1,109 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_ssymm + use iso_c_binding + use hip + use hipblas + + implicit none + + ! C := alpha*A*B + beta*C with A symmetric (upper triangle referenced) on the left. + ! B is m x n with m /= n and A(2,1) holds junk, so swapping A and B, the side + ! or the triangle changes the result. + integer, parameter :: m = 2, n = 3 + integer(c_size_t) :: Nbytes + real(c_float), target :: alpha = 1.0, beta = 0.0 + + ! Device-resident copies of the dual-mode scalars; the library reads them + ! from device memory because the handle is in device pointer mode. + type(c_ptr) :: d_alpha = c_null_ptr + type(c_ptr) :: d_beta = c_null_ptr + + real(c_float), target :: hA(m,m) = reshape([1.0, 7.0, 2.0, 3.0], [m,m]) + real(c_float), target :: hB(m,n) = reshape([1.0, 4.0, 2.0, 5.0, 3.0, -6.0], [m,n]) + real(c_float), target :: hC(m,n) + real(c_float) :: expected(m,n), Aref(m,m) + type(c_ptr) :: dA = c_null_ptr, dB = c_null_ptr, dC = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + integer :: i, j + real(c_float) :: error + real(c_float), parameter :: error_max = 10*epsilon(error) + + write(*,"(a)",advance="no") "-- Running test 'ssymm_devptr' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + ! Switch to device pointer mode and stage the scalars in device memory + call hipblasCheck(hipblasSetPointerMode(handle, HIPBLAS_POINTER_MODE_DEVICE)) + call hipCheck(hipMalloc(d_alpha, c_sizeof(alpha))) + call hipCheck(hipMalloc(d_beta, c_sizeof(beta))) + call hipCheck(hipMemcpy(d_alpha, c_loc(alpha), c_sizeof(alpha), hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(d_beta, c_loc(beta), c_sizeof(beta), hipMemcpyHostToDevice)) + + hC = 0.0 + + ! Host reference built from the upper triangle only, A(2,1) is junk + do j = 1, m + do i = 1, m + Aref(i,j) = hA(min(i,j), max(i,j)) + end do + end do + expected = alpha*matmul(Aref, hB) + + Nbytes = int(m*m, c_size_t) * 4 + call hipCheck(hipMalloc(dA, Nbytes)) + call hipCheck(hipMemcpy(dA, c_loc(hA(1,1)), Nbytes, hipMemcpyHostToDevice)) + Nbytes = int(m*n, c_size_t) * 4 + call hipCheck(hipMalloc(dB, Nbytes)) + call hipCheck(hipMemcpy(dB, c_loc(hB(1,1)), Nbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMalloc(dC, Nbytes)) + call hipCheck(hipMemcpy(dC, c_loc(hC(1,1)), Nbytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasSsymm(handle, HIPBLAS_SIDE_LEFT, HIPBLAS_FILL_MODE_UPPER, m, n, & + d_alpha, dA, m, dB, m, d_beta, dC, m)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(c_loc(hC(1,1)), dC, Nbytes, hipMemcpyDeviceToHost)) + + do j = 1, n + do i = 1, m + error = abs(expected(i,j) - hC(i,j)) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " at ", i, j + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dB)) + call hipCheck(hipFree(dC)) + call hipblasCheck(hipblasDestroy(handle)) + + call hipCheck(hipFree(d_alpha)) + call hipCheck(hipFree(d_beta)) + write(*,*) "PASSED!" + +end program hip_ssymm diff --git a/bindings/fortran/hipblas/test/ssyrk.f03 b/bindings/fortran/hipblas/test/ssyrk.f03 new file mode 100644 index 000000000000..56cfdc046689 --- /dev/null +++ b/bindings/fortran/hipblas/test/ssyrk.f03 @@ -0,0 +1,81 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_ssyrk + use iso_c_binding + use hip + use hipblas + + implicit none + + ! C := alpha*A*A**T + beta*C, upper triangle. A = [1 0; 2 3] gives + ! A*A**T = [1 2; 2 13], so the referenced upper triangle is 1, 2, 13. + integer, parameter :: ld = 2 + integer(c_size_t) :: Nbytes + real(c_float), target :: alpha = 1.0, beta = 0.0 + + real(c_float), target :: hA(ld,ld) = reshape([1.0, 2.0, 0.0, 3.0], [ld,ld]) + real(c_float), target :: hC(ld,ld) + real(c_float) :: expected(ld,ld) = reshape([1.0, 0.0, 2.0, 13.0], [ld,ld]) + type(c_ptr) :: dA = c_null_ptr, dC = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + integer :: i, j + real(c_float) :: error + real(c_float), parameter :: error_max = 10*epsilon(error) + + write(*,"(a)",advance="no") "-- Running test 'ssyrk' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + hC = 0.0 + + Nbytes = int(ld*ld, c_size_t) * 4 + call hipCheck(hipMalloc(dA, Nbytes)) + call hipCheck(hipMemcpy(dA, c_loc(hA(1,1)), Nbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMalloc(dC, Nbytes)) + call hipCheck(hipMemcpy(dC, c_loc(hC(1,1)), Nbytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasSsyrk(handle, HIPBLAS_FILL_MODE_UPPER, HIPBLAS_OP_N, ld, ld, & + c_loc(alpha), dA, ld, c_loc(beta), dC, ld)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(c_loc(hC(1,1)), dC, Nbytes, hipMemcpyDeviceToHost)) + + do j = 1, ld + do i = 1, j + error = abs(expected(i,j) - hC(i,j)) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " at ", i, j + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dC)) + call hipblasCheck(hipblasDestroy(handle)) + + write(*,*) "PASSED!" + +end program hip_ssyrk diff --git a/bindings/fortran/hipblas/test/ssyrk.f08 b/bindings/fortran/hipblas/test/ssyrk.f08 new file mode 100644 index 000000000000..ad9469a72405 --- /dev/null +++ b/bindings/fortran/hipblas/test/ssyrk.f08 @@ -0,0 +1,79 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_ssyrk + use iso_c_binding + use hip + use hipblas + + implicit none + + ! C := alpha*A*A**T + beta*C, upper triangle. A = [1 0; 2 3] gives + ! A*A**T = [1 2; 2 13], so the referenced upper triangle is 1, 2, 13. + integer, parameter :: ld = 2 + real(c_float), target :: alpha = 1.0, beta = 0.0 + + real(c_float) :: hA(ld,ld) = reshape([1.0, 2.0, 0.0, 3.0], [ld,ld]) + real(c_float) :: hC(ld,ld) + real(c_float) :: expected(ld,ld) = reshape([1.0, 0.0, 2.0, 13.0], [ld,ld]) + real(c_float), pointer, dimension(:,:) :: dA, dC + type(c_ptr) :: handle = c_null_ptr + integer :: i, j + real(c_float) :: error + real(c_float), parameter :: error_max = 10*epsilon(error) + + write(*,"(a)",advance="no") "-- Running test 'ssyrk' (Fortran 2008 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + hC = 0.0 + + call hipCheck(hipMalloc(dA, shape(hA))) + call hipCheck(hipMemcpy(dA, hA, hipMemcpyHostToDevice)) + call hipCheck(hipMalloc(dC, shape(hC))) + call hipCheck(hipMemcpy(dC, hC, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasSsyrk(handle, HIPBLAS_FILL_MODE_UPPER, HIPBLAS_OP_N, ld, ld, & + alpha, dA, size(dA,1), beta, dC, size(dC,1))) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(hC, dC, hipMemcpyDeviceToHost)) + + do j = 1, ld + do i = 1, j + error = abs(expected(i,j) - hC(i,j)) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " at ", i, j + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dC)) + call hipblasCheck(hipblasDestroy(handle)) + + write(*,*) "PASSED!" + +end program hip_ssyrk diff --git a/bindings/fortran/hipblas/test/ssyrk_devptr.f03 b/bindings/fortran/hipblas/test/ssyrk_devptr.f03 new file mode 100644 index 000000000000..1ac5460f3994 --- /dev/null +++ b/bindings/fortran/hipblas/test/ssyrk_devptr.f03 @@ -0,0 +1,95 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_ssyrk + use iso_c_binding + use hip + use hipblas + + implicit none + + ! C := alpha*A*A**T + beta*C, upper triangle. A = [1 0; 2 3] gives + ! A*A**T = [1 2; 2 13], so the referenced upper triangle is 1, 2, 13. + integer, parameter :: ld = 2 + integer(c_size_t) :: Nbytes + real(c_float), target :: alpha = 1.0, beta = 0.0 + + ! Device-resident copies of the dual-mode scalars; the library reads them + ! from device memory because the handle is in device pointer mode. + type(c_ptr) :: d_alpha = c_null_ptr + type(c_ptr) :: d_beta = c_null_ptr + + real(c_float), target :: hA(ld,ld) = reshape([1.0, 2.0, 0.0, 3.0], [ld,ld]) + real(c_float), target :: hC(ld,ld) + real(c_float) :: expected(ld,ld) = reshape([1.0, 0.0, 2.0, 13.0], [ld,ld]) + type(c_ptr) :: dA = c_null_ptr, dC = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + integer :: i, j + real(c_float) :: error + real(c_float), parameter :: error_max = 10*epsilon(error) + + write(*,"(a)",advance="no") "-- Running test 'ssyrk_devptr' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + ! Switch to device pointer mode and stage the scalars in device memory + call hipblasCheck(hipblasSetPointerMode(handle, HIPBLAS_POINTER_MODE_DEVICE)) + call hipCheck(hipMalloc(d_alpha, c_sizeof(alpha))) + call hipCheck(hipMalloc(d_beta, c_sizeof(beta))) + call hipCheck(hipMemcpy(d_alpha, c_loc(alpha), c_sizeof(alpha), hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(d_beta, c_loc(beta), c_sizeof(beta), hipMemcpyHostToDevice)) + + hC = 0.0 + + Nbytes = int(ld*ld, c_size_t) * 4 + call hipCheck(hipMalloc(dA, Nbytes)) + call hipCheck(hipMemcpy(dA, c_loc(hA(1,1)), Nbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMalloc(dC, Nbytes)) + call hipCheck(hipMemcpy(dC, c_loc(hC(1,1)), Nbytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasSsyrk(handle, HIPBLAS_FILL_MODE_UPPER, HIPBLAS_OP_N, ld, ld, & + d_alpha, dA, ld, d_beta, dC, ld)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(c_loc(hC(1,1)), dC, Nbytes, hipMemcpyDeviceToHost)) + + do j = 1, ld + do i = 1, j + error = abs(expected(i,j) - hC(i,j)) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " at ", i, j + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dC)) + call hipblasCheck(hipblasDestroy(handle)) + + call hipCheck(hipFree(d_alpha)) + call hipCheck(hipFree(d_beta)) + write(*,*) "PASSED!" + +end program hip_ssyrk diff --git a/bindings/fortran/hipblas/test/stpsv.f08 b/bindings/fortran/hipblas/test/stpsv.f08 new file mode 100644 index 000000000000..388613dc3b9b --- /dev/null +++ b/bindings/fortran/hipblas/test/stpsv.f08 @@ -0,0 +1,94 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2020-2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + + +program hipblas_stpsv_test + + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(kind(HIPBLAS_FILL_MODE_LOWER)), parameter :: uplo = HIPBLAS_FILL_MODE_LOWER + integer(kind(HIPBLAS_OP_N)), parameter :: transA = HIPBLAS_OP_N + integer(kind(HIPBLAS_DIAG_NON_UNIT)), parameter :: diag = HIPBLAS_DIAG_NON_UNIT + + integer, parameter :: n = 64 + + ! Packed lower-triangular matrix (column-by-column). Every stored element of an + ! all-ones lower-triangular matrix is 1, so the packing order is irrelevant here. + real(c_float), allocatable, dimension(:) :: hAP, hx + real(c_float), parameter :: x_exact = 1.0 + + real(c_float), pointer, dimension(:) :: dAP => null(), dx => null() + type(c_ptr) :: handle = c_null_ptr + + integer :: i + real(c_float) :: error + real(c_float), parameter :: error_max = 10*epsilon(error) + + write(*,"(a)",advance="no") "-- Running test 'STPSV' (Fortran 2008 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + allocate(hAP(n*(n+1)/2), hx(n)) + + hAP(:) = 1.0 ! all-ones lower-triangular L, packed + do i = 1, n + hx(i) = real(i) ! b(i) = i -> exact solution of L x = b is x(i) = 1 + end do + + ! Allocate device memory (source= implies a blocking memcpy) + call hipCheck(hipMalloc(dAP, source=hAP)) + call hipCheck(hipMalloc(dx, source=hx)) + + ! Packed triangular solve L x = b, in place. dAP is passed as a Fortran array + ! (the generic array form): this is the case that used to fail to compile + ! because the packed matrix dummy was declared type(c_ptr) (SWDEV-485451). + call hipblasCheck(hipblasStpsv(handle, uplo, transA, diag, n, dAP, dx, 1)) + + call hipCheck(hipDeviceSynchronize()) + + call hipCheck(hipMemcpy(hx, dx, hipMemcpyDeviceToHost)) + + do i = 1, n + error = abs((x_exact - hx(i))/x_exact) + if( error > error_max )then + write(*,*) "FAILED! Error bigger than max! Error = ", error, " hx(", i, ") = ", hx(i) + call exit(1) + end if + end do + + call hipCheck(hipFree(dAP)) + call hipCheck(hipFree(dx)) + + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(hAP, hx) + + write(*,*) "PASSED!" + +end program hipblas_stpsv_test diff --git a/bindings/fortran/hipblas/test/strmm.f03 b/bindings/fortran/hipblas/test/strmm.f03 new file mode 100644 index 000000000000..8710d85b5a2a --- /dev/null +++ b/bindings/fortran/hipblas/test/strmm.f03 @@ -0,0 +1,96 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_strmm + use iso_c_binding + use hip + use hipblas + + implicit none + + ! C := alpha*op(A)*B with A upper triangular on the left (out-of-place trmm). + ! B is m x n with m /= n and A(2,1) holds junk, so swapping A and B, the side + ! or the triangle changes the result. + integer, parameter :: m = 2, n = 3 + integer(c_size_t) :: Nbytes + real(c_float), target :: alpha = 1.0 + + real(c_float), target :: hA(m,m) = reshape([1.0, 7.0, 2.0, 3.0], [m,m]) + real(c_float), target :: hB(m,n) = reshape([1.0, 4.0, 2.0, 5.0, 3.0, -6.0], [m,n]) + real(c_float), target :: hC(m,n) + real(c_float) :: expected(m,n), Aref(m,m) + type(c_ptr) :: dA = c_null_ptr, dB = c_null_ptr, dC = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + integer :: i, j + real(c_float) :: error + real(c_float), parameter :: error_max = 10*epsilon(error) + + write(*,"(a)",advance="no") "-- Running test 'strmm' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + hC = 0.0 + + ! Host reference built from the upper triangle only, A(2,1) is junk + Aref = 0.0 + do j = 1, m + do i = 1, j + Aref(i,j) = hA(i,j) + end do + end do + expected = alpha*matmul(Aref, hB) + + Nbytes = int(m*m, c_size_t) * 4 + call hipCheck(hipMalloc(dA, Nbytes)) + call hipCheck(hipMemcpy(dA, c_loc(hA(1,1)), Nbytes, hipMemcpyHostToDevice)) + Nbytes = int(m*n, c_size_t) * 4 + call hipCheck(hipMalloc(dB, Nbytes)) + call hipCheck(hipMemcpy(dB, c_loc(hB(1,1)), Nbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMalloc(dC, Nbytes)) + call hipCheck(hipMemcpy(dC, c_loc(hC(1,1)), Nbytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasStrmm(handle, HIPBLAS_SIDE_LEFT, HIPBLAS_FILL_MODE_UPPER, HIPBLAS_OP_N, & + HIPBLAS_DIAG_NON_UNIT, m, n, c_loc(alpha), dA, m, dB, m, dC, m)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(c_loc(hC(1,1)), dC, Nbytes, hipMemcpyDeviceToHost)) + + do j = 1, n + do i = 1, m + error = abs(expected(i,j) - hC(i,j)) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " at ", i, j + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dB)) + call hipCheck(hipFree(dC)) + call hipblasCheck(hipblasDestroy(handle)) + + write(*,*) "PASSED!" + +end program hip_strmm diff --git a/bindings/fortran/hipblas/test/strmm.f08 b/bindings/fortran/hipblas/test/strmm.f08 new file mode 100644 index 000000000000..274734aaf65f --- /dev/null +++ b/bindings/fortran/hipblas/test/strmm.f08 @@ -0,0 +1,93 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_strmm + use iso_c_binding + use hip + use hipblas + + implicit none + + ! C := alpha*op(A)*B with A upper triangular on the left (out-of-place trmm). + ! B is m x n with m /= n and A(2,1) holds junk, so swapping A and B, the side + ! or the triangle changes the result. + integer, parameter :: m = 2, n = 3 + real(c_float), target :: alpha = 1.0 + + real(c_float) :: hA(m,m) = reshape([1.0, 7.0, 2.0, 3.0], [m,m]) + real(c_float) :: hB(m,n) = reshape([1.0, 4.0, 2.0, 5.0, 3.0, -6.0], [m,n]) + real(c_float) :: hC(m,n) + real(c_float) :: expected(m,n), Aref(m,m) + real(c_float), pointer, dimension(:,:) :: dA, dB, dC + type(c_ptr) :: handle = c_null_ptr + integer :: i, j + real(c_float) :: error + real(c_float), parameter :: error_max = 10*epsilon(error) + + write(*,"(a)",advance="no") "-- Running test 'strmm' (Fortran 2008 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + hC = 0.0 + + ! Host reference built from the upper triangle only, A(2,1) is junk + Aref = 0.0 + do j = 1, m + do i = 1, j + Aref(i,j) = hA(i,j) + end do + end do + expected = alpha*matmul(Aref, hB) + + call hipCheck(hipMalloc(dA, shape(hA))) + call hipCheck(hipMemcpy(dA, hA, hipMemcpyHostToDevice)) + call hipCheck(hipMalloc(dB, shape(hB))) + call hipCheck(hipMemcpy(dB, hB, hipMemcpyHostToDevice)) + call hipCheck(hipMalloc(dC, shape(hC))) + call hipCheck(hipMemcpy(dC, hC, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasStrmm(handle, HIPBLAS_SIDE_LEFT, HIPBLAS_FILL_MODE_UPPER, HIPBLAS_OP_N, & + HIPBLAS_DIAG_NON_UNIT, m, n, alpha, dA, size(dA,1), dB, size(dB,1), dC, size(dC,1))) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(hC, dC, hipMemcpyDeviceToHost)) + + do j = 1, n + do i = 1, m + error = abs(expected(i,j) - hC(i,j)) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " at ", i, j + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dB)) + call hipCheck(hipFree(dC)) + call hipblasCheck(hipblasDestroy(handle)) + + write(*,*) "PASSED!" + +end program hip_strmm diff --git a/bindings/fortran/hipblas/test/strmm_devptr.f03 b/bindings/fortran/hipblas/test/strmm_devptr.f03 new file mode 100644 index 000000000000..57b31906bdfb --- /dev/null +++ b/bindings/fortran/hipblas/test/strmm_devptr.f03 @@ -0,0 +1,106 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_strmm + use iso_c_binding + use hip + use hipblas + + implicit none + + ! C := alpha*op(A)*B with A upper triangular on the left (out-of-place trmm). + ! B is m x n with m /= n and A(2,1) holds junk, so swapping A and B, the side + ! or the triangle changes the result. + integer, parameter :: m = 2, n = 3 + integer(c_size_t) :: Nbytes + real(c_float), target :: alpha = 1.0 + + ! Device-resident copies of the dual-mode scalars; the library reads them + ! from device memory because the handle is in device pointer mode. + type(c_ptr) :: d_alpha = c_null_ptr + + real(c_float), target :: hA(m,m) = reshape([1.0, 7.0, 2.0, 3.0], [m,m]) + real(c_float), target :: hB(m,n) = reshape([1.0, 4.0, 2.0, 5.0, 3.0, -6.0], [m,n]) + real(c_float), target :: hC(m,n) + real(c_float) :: expected(m,n), Aref(m,m) + type(c_ptr) :: dA = c_null_ptr, dB = c_null_ptr, dC = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + integer :: i, j + real(c_float) :: error + real(c_float), parameter :: error_max = 10*epsilon(error) + + write(*,"(a)",advance="no") "-- Running test 'strmm_devptr' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + ! Switch to device pointer mode and stage the scalars in device memory + call hipblasCheck(hipblasSetPointerMode(handle, HIPBLAS_POINTER_MODE_DEVICE)) + call hipCheck(hipMalloc(d_alpha, c_sizeof(alpha))) + call hipCheck(hipMemcpy(d_alpha, c_loc(alpha), c_sizeof(alpha), hipMemcpyHostToDevice)) + + hC = 0.0 + + ! Host reference built from the upper triangle only, A(2,1) is junk + Aref = 0.0 + do j = 1, m + do i = 1, j + Aref(i,j) = hA(i,j) + end do + end do + expected = alpha*matmul(Aref, hB) + + Nbytes = int(m*m, c_size_t) * 4 + call hipCheck(hipMalloc(dA, Nbytes)) + call hipCheck(hipMemcpy(dA, c_loc(hA(1,1)), Nbytes, hipMemcpyHostToDevice)) + Nbytes = int(m*n, c_size_t) * 4 + call hipCheck(hipMalloc(dB, Nbytes)) + call hipCheck(hipMemcpy(dB, c_loc(hB(1,1)), Nbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMalloc(dC, Nbytes)) + call hipCheck(hipMemcpy(dC, c_loc(hC(1,1)), Nbytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasStrmm(handle, HIPBLAS_SIDE_LEFT, HIPBLAS_FILL_MODE_UPPER, HIPBLAS_OP_N, & + HIPBLAS_DIAG_NON_UNIT, m, n, d_alpha, dA, m, dB, m, dC, m)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(c_loc(hC(1,1)), dC, Nbytes, hipMemcpyDeviceToHost)) + + do j = 1, n + do i = 1, m + error = abs(expected(i,j) - hC(i,j)) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " at ", i, j + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dB)) + call hipCheck(hipFree(dC)) + call hipblasCheck(hipblasDestroy(handle)) + + call hipCheck(hipFree(d_alpha)) + write(*,*) "PASSED!" + +end program hip_strmm diff --git a/bindings/fortran/hipblas/test/strsm.f03 b/bindings/fortran/hipblas/test/strsm.f03 new file mode 100644 index 000000000000..ce2fe6f36e47 --- /dev/null +++ b/bindings/fortran/hipblas/test/strsm.f03 @@ -0,0 +1,92 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_strsm + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(kind(HIPBLAS_SIDE_LEFT)), parameter :: side = HIPBLAS_SIDE_LEFT + integer(kind(HIPBLAS_FILL_MODE_LOWER)), parameter :: uplo = HIPBLAS_FILL_MODE_LOWER + integer(kind(HIPBLAS_OP_N)), parameter :: transA = HIPBLAS_OP_N + integer(kind(HIPBLAS_DIAG_NON_UNIT)), parameter :: diag = HIPBLAS_DIAG_NON_UNIT + integer, parameter :: m = 1024, n = 1024 + integer, parameter :: bytes_per_element = 4 + real(c_float), target :: alpha = 2.0 + integer(c_size_t) :: NAbytes, NBbytes + real(c_float), allocatable, target, dimension(:) :: hA, hB + real(c_float), parameter :: x_exact = 1.0 + real(c_float) :: error + real(c_float), parameter :: error_max = 10*epsilon(error) + type(c_ptr) :: dA = c_null_ptr, dB = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + integer :: i, j + + write(*,"(a)",advance="no") "-- Running test 'STRSM' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + NAbytes = int(m, c_size_t) * int(m, c_size_t) * bytes_per_element + NBbytes = int(m, c_size_t) * int(n, c_size_t) * bytes_per_element + allocate(hA(m*m), hB(m*n)) + + hA = 0.0 + do j = 1, m + do i = j, m + hA(i + (j-1)*m) = 1.0 + end do + end do + do j = 1, n + do i = 1, m + hB(i + (j-1)*m) = real(i) / 2.0 + end do + end do + + call hipCheck(hipMalloc(dA, NAbytes)) + call hipCheck(hipMalloc(dB, NBbytes)) + call hipCheck(hipMemcpy(dA, c_loc(hA(1)), NAbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dB, c_loc(hB(1)), NBbytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasStrsm(handle, side, uplo, transA, diag, m, n, c_loc(alpha), dA, m, dB, m)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(c_loc(hB(1)), dB, NBbytes, hipMemcpyDeviceToHost)) + + do i = 1, m*n + error = abs((x_exact - hB(i)) / x_exact) + if (error > error_max) then + write(*,*) "FAILED! Error bigger than max! Error = ", error, " hB(", i, ") = ", hB(i) + call exit(1) + end if + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dB)) + call hipblasCheck(hipblasDestroy(handle)) + deallocate(hA, hB) + write(*,*) "PASSED!" + +end program hip_strsm diff --git a/bindings/fortran/hipblas/test/strsm.f08 b/bindings/fortran/hipblas/test/strsm.f08 new file mode 100644 index 000000000000..e381f67ee998 --- /dev/null +++ b/bindings/fortran/hipblas/test/strsm.f08 @@ -0,0 +1,88 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_strsm + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(kind(HIPBLAS_SIDE_LEFT)), parameter :: side = HIPBLAS_SIDE_LEFT + integer(kind(HIPBLAS_FILL_MODE_LOWER)), parameter :: uplo = HIPBLAS_FILL_MODE_LOWER + integer(kind(HIPBLAS_OP_N)), parameter :: transA = HIPBLAS_OP_N + integer(kind(HIPBLAS_DIAG_NON_UNIT)), parameter :: diag = HIPBLAS_DIAG_NON_UNIT + integer, parameter :: m = 1024, n = 1024 + real(c_float), target :: alpha = 2.0 + real(c_float), allocatable, target, dimension(:,:) :: hA, hB + real(c_float), pointer, dimension(:,:) :: dA, dB + type(c_ptr) :: handle = c_null_ptr + real(c_float), parameter :: x_exact = 1.0 + real(c_float) :: error + real(c_float), parameter :: error_max = 10*epsilon(error) + integer :: i, j + + write(*,"(a)",advance="no") "-- Running test 'STRSM' (Fortran 2008 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + allocate(hA(m,m), hB(m,n)) + + hA = 0.0 + do j = 1, m + do i = j, m + hA(i,j) = 1.0 + end do + end do + do j = 1, n + do i = 1, m + hB(i,j) = real(i) / 2.0 + end do + end do + + call hipCheck(hipMalloc(dA, source=hA)) + call hipCheck(hipMalloc(dB, source=hB)) + + call hipblasCheck(hipblasStrsm(handle, side, uplo, transA, diag, m, n, alpha, dA, size(dA,1), dB, size(dB,1))) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(hB, dB, hipMemcpyDeviceToHost)) + + do j = 1, n + do i = 1, m + error = abs((x_exact - hB(i,j)) / x_exact) + if (error > error_max) then + write(*,*) "FAILED! Error bigger than max! Error = ", error, " hB(", i, ",", j, ") = ", hB(i,j) + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dB)) + call hipblasCheck(hipblasDestroy(handle)) + deallocate(hA, hB) + write(*,*) "PASSED!" + +end program hip_strsm diff --git a/bindings/fortran/hipblas/test/strsm_devptr.f03 b/bindings/fortran/hipblas/test/strsm_devptr.f03 new file mode 100644 index 000000000000..62752cf596ab --- /dev/null +++ b/bindings/fortran/hipblas/test/strsm_devptr.f03 @@ -0,0 +1,102 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_strsm + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(kind(HIPBLAS_SIDE_LEFT)), parameter :: side = HIPBLAS_SIDE_LEFT + integer(kind(HIPBLAS_FILL_MODE_LOWER)), parameter :: uplo = HIPBLAS_FILL_MODE_LOWER + integer(kind(HIPBLAS_OP_N)), parameter :: transA = HIPBLAS_OP_N + integer(kind(HIPBLAS_DIAG_NON_UNIT)), parameter :: diag = HIPBLAS_DIAG_NON_UNIT + integer, parameter :: m = 1024, n = 1024 + integer, parameter :: bytes_per_element = 4 + real(c_float), target :: alpha = 2.0 + + ! Device-resident copies of the dual-mode scalars; the library reads them + ! from device memory because the handle is in device pointer mode. + type(c_ptr) :: d_alpha = c_null_ptr + integer(c_size_t) :: NAbytes, NBbytes + real(c_float), allocatable, target, dimension(:) :: hA, hB + real(c_float), parameter :: x_exact = 1.0 + real(c_float) :: error + real(c_float), parameter :: error_max = 10*epsilon(error) + type(c_ptr) :: dA = c_null_ptr, dB = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + integer :: i, j + + write(*,"(a)",advance="no") "-- Running test 'STRSM_devptr' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + ! Switch to device pointer mode and stage the scalars in device memory + call hipblasCheck(hipblasSetPointerMode(handle, HIPBLAS_POINTER_MODE_DEVICE)) + call hipCheck(hipMalloc(d_alpha, c_sizeof(alpha))) + call hipCheck(hipMemcpy(d_alpha, c_loc(alpha), c_sizeof(alpha), hipMemcpyHostToDevice)) + + NAbytes = int(m, c_size_t) * int(m, c_size_t) * bytes_per_element + NBbytes = int(m, c_size_t) * int(n, c_size_t) * bytes_per_element + allocate(hA(m*m), hB(m*n)) + + hA = 0.0 + do j = 1, m + do i = j, m + hA(i + (j-1)*m) = 1.0 + end do + end do + do j = 1, n + do i = 1, m + hB(i + (j-1)*m) = real(i) / 2.0 + end do + end do + + call hipCheck(hipMalloc(dA, NAbytes)) + call hipCheck(hipMalloc(dB, NBbytes)) + call hipCheck(hipMemcpy(dA, c_loc(hA(1)), NAbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dB, c_loc(hB(1)), NBbytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasStrsm(handle, side, uplo, transA, diag, m, n, d_alpha, dA, m, dB, m)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(c_loc(hB(1)), dB, NBbytes, hipMemcpyDeviceToHost)) + + do i = 1, m*n + error = abs((x_exact - hB(i)) / x_exact) + if (error > error_max) then + write(*,*) "FAILED! Error bigger than max! Error = ", error, " hB(", i, ") = ", hB(i) + call exit(1) + end if + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dB)) + call hipblasCheck(hipblasDestroy(handle)) + deallocate(hA, hB) + call hipCheck(hipFree(d_alpha)) + write(*,*) "PASSED!" + +end program hip_strsm diff --git a/bindings/fortran/hipblas/test/strsv.f03 b/bindings/fortran/hipblas/test/strsv.f03 new file mode 100644 index 000000000000..af557e237188 --- /dev/null +++ b/bindings/fortran/hipblas/test/strsv.f03 @@ -0,0 +1,88 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_strsv + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(kind(HIPBLAS_FILL_MODE_UPPER)), parameter :: uplo = HIPBLAS_FILL_MODE_LOWER + integer(kind(HIPBLAS_OP_N)), parameter :: transA = HIPBLAS_OP_N + integer(kind(HIPBLAS_DIAG_NON_UNIT)), parameter :: diag = HIPBLAS_DIAG_NON_UNIT + integer, parameter :: m = 1024 + integer, parameter :: bytes_per_element = 4 + integer(c_size_t) :: NAbytes, Nxbytes + real(kind=4), allocatable, target, dimension(:) :: hA, hx + real(kind=4), parameter :: x_exact = 1.0 + real(kind=4) :: error + real(kind=4), parameter :: error_max = 10*epsilon(error) + type(c_ptr) :: dA = c_null_ptr, dx = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + integer :: i, j + + write(*,"(a)",advance="no") "-- Running test 'STRSV' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + NAbytes = int(m, c_size_t) * int(m, c_size_t) * bytes_per_element + Nxbytes = int(m, c_size_t) * bytes_per_element + allocate(hA(m*m), hx(m)) + + hA = 0.0 + do j = 1, m + do i = j, m + hA(i + (j-1)*m) = 1.0 + end do + end do + do i = 1, m + hx(i) = real(i) + end do + + call hipCheck(hipMalloc(dA, NAbytes)) + call hipCheck(hipMalloc(dx, Nxbytes)) + call hipCheck(hipMemcpy(dA, c_loc(hA(1)), NAbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dx, c_loc(hx(1)), Nxbytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasStrsv(handle, uplo, transA, diag, m, dA, m, dx, 1)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(c_loc(hx(1)), dx, Nxbytes, hipMemcpyDeviceToHost)) + + do i = 1, m + error = abs((x_exact - hx(i)) / x_exact) + if (error > error_max) then + write(*,*) "FAILED! Error bigger than max! Error = ", error, " hx(", i, ") = ", hx(i) + call exit(1) + end if + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dx)) + call hipblasCheck(hipblasDestroy(handle)) + deallocate(hA, hx) + write(*,*) "PASSED!" + +end program hip_strsv diff --git a/bindings/fortran/hipblas/test/strsv.f08 b/bindings/fortran/hipblas/test/strsv.f08 new file mode 100644 index 000000000000..cf6b688e7061 --- /dev/null +++ b/bindings/fortran/hipblas/test/strsv.f08 @@ -0,0 +1,84 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_strsv + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(kind(HIPBLAS_FILL_MODE_UPPER)), parameter :: uplo = HIPBLAS_FILL_MODE_LOWER + integer(kind(HIPBLAS_OP_N)), parameter :: transA = HIPBLAS_OP_N + integer(kind(HIPBLAS_DIAG_NON_UNIT)), parameter :: diag = HIPBLAS_DIAG_NON_UNIT + integer, parameter :: m = 1024 + real(kind=4), allocatable, target, dimension(:,:) :: hA + real(kind=4), allocatable, target, dimension(:) :: hx + real(kind=4), pointer, dimension(:,:) :: dA + real(kind=4), pointer, dimension(:) :: dx + type(c_ptr) :: handle = c_null_ptr + real(kind=4), parameter :: x_exact = 1.0 + real(kind=4) :: error + real(kind=4), parameter :: error_max = 10*epsilon(error) + integer :: i, j + + write(*,"(a)",advance="no") "-- Running test 'STRSV' (Fortran 2008 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + allocate(hA(m,m), hx(m)) + + hA = 0.0 + do j = 1, m + do i = j, m + hA(i,j) = 1.0 + end do + end do + do i = 1, m + hx(i) = real(i) + end do + + call hipCheck(hipMalloc(dA, source=hA)) + call hipCheck(hipMalloc(dx, source=hx)) + + call hipblasCheck(hipblasStrsv(handle, uplo, transA, diag, m, dA, size(dA,1), dx, 1)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(hx, dx, hipMemcpyDeviceToHost)) + + do i = 1, m + error = abs((x_exact - hx(i)) / x_exact) + if (error > error_max) then + write(*,*) "FAILED! Error bigger than max! Error = ", error, " hx(", i, ") = ", hx(i) + call exit(1) + end if + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dx)) + call hipblasCheck(hipblasDestroy(handle)) + deallocate(hA, hx) + write(*,*) "PASSED!" + +end program hip_strsv diff --git a/bindings/fortran/hipblas/test/zaxpy.f03 b/bindings/fortran/hipblas/test/zaxpy.f03 new file mode 100644 index 000000000000..6a41118d15fc --- /dev/null +++ b/bindings/fortran/hipblas/test/zaxpy.f03 @@ -0,0 +1,104 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_zaxpy + use iso_c_binding + use hip + use hipblas + + implicit none + + integer :: n = 6 + type(c_ptr) :: handle = c_null_ptr + integer :: j + complex(kind=8), allocatable, target, dimension(:) :: x, y, y_exact + + complex(kind=8), allocatable, target :: alpha + type(c_ptr) :: dx = c_null_ptr, dy = c_null_ptr + + integer, parameter :: bytes_per_element = 16 + + integer(c_size_t) :: Nxbytes + integer(c_size_t) :: Nybytes + + double precision :: error + double precision, parameter :: error_max = 10*epsilon(error) + ! On the heap, so 16-byte aligned: the CUDA backend accesses a + ! cuDoubleComplex scalar with an aligned load or store. + allocate(alpha) + alpha = (2.0d0, 0.d0) + + Nxbytes = n * bytes_per_element + Nybytes = n * bytes_per_element + allocate(x(n)) + allocate(y(n)) + allocate(y_exact(n)) + + do j = 1, n + x(j) = cmplx(j, 0, kind=8) + y(j) = cmplx(j, 0, kind=8) + end do + + do j = 1, n + y_exact(j) = alpha*x(j) + y(j) + end do + + write(*,"(a)",advance="no") "-- Running test 'ZAXPY' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + call hipCheck(hipMalloc(dx, Nxbytes)) + call hipCheck(hipMalloc(dy, Nybytes)) + + call hipCheck(hipMemcpy(dx, c_loc(x(1)), Nxbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dy, c_loc(y(1)), Nybytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasZaxpy(handle, n, c_loc(alpha), dx, 1, dy, 1)) + + call hipCheck(hipDeviceSynchronize()) + + call hipCheck(hipMemcpy(c_loc(y(1)), dy, Nybytes, hipMemcpyDeviceToHost)) + + do j = 1, n + error = abs((y_exact(j) - y(j))/y_exact(j)) + if (error > error_max) then + write(*,*) "FAILED! Error bigger than max! Error = ", error + call exit(1) + end if + end do + + call hipCheck(hipFree(dx)) + call hipCheck(hipFree(dy)) + + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(x) + deallocate(y) + deallocate(y_exact) + deallocate(alpha) + + write(*,*) "PASSED!" + +end program hip_zaxpy diff --git a/bindings/fortran/hipblas/test/zaxpy.f08 b/bindings/fortran/hipblas/test/zaxpy.f08 new file mode 100644 index 000000000000..4ca24e005c7c --- /dev/null +++ b/bindings/fortran/hipblas/test/zaxpy.f08 @@ -0,0 +1,94 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_zaxpy + use iso_c_binding + use hip + use hipblas + + implicit none + + integer :: n = 6 + type(c_ptr) :: handle = c_null_ptr + integer :: j + complex(kind=8), allocatable, dimension(:) :: x, y, y_exact + + complex(kind=8), allocatable, target :: alpha + complex(kind=8), pointer, dimension(:) :: dx, dy + + double precision :: error + double precision, parameter :: error_max = 10*epsilon(error) + ! On the heap, so 16-byte aligned: the CUDA backend accesses a + ! cuDoubleComplex scalar with an aligned load or store. + allocate(alpha) + alpha = (2.0d0, 0.d0) + + allocate(x(n)) + allocate(y(n)) + allocate(y_exact(n)) + + do j = 1, n + x(j) = cmplx(j, 0, kind=8) + y(j) = cmplx(j, 0, kind=8) + end do + + do j = 1, n + y_exact(j) = alpha*x(j) + y(j) + end do + + write(*,"(a)",advance="no") "-- Running test 'ZAXPY' (Fortran 2008 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + call hipCheck(hipMalloc(dx, shape(x))) + call hipCheck(hipMalloc(dy, shape(y))) + + call hipCheck(hipMemcpy(dx, x, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dy, y, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasZaxpy(handle, n, alpha, dx, 1, dy, 1)) + + call hipCheck(hipDeviceSynchronize()) + + call hipCheck(hipMemcpy(y, dy, hipMemcpyDeviceToHost)) + + do j = 1, n + error = abs((y_exact(j) - y(j))/y_exact(j)) + if (error > error_max) then + write(*,*) "FAILED! Error bigger than max! Error = ", error + call exit(1) + end if + end do + + call hipCheck(hipFree(dx)) + call hipCheck(hipFree(dy)) + + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(x, y, y_exact, alpha) + + write(*,*) "PASSED!" + +end program hip_zaxpy diff --git a/bindings/fortran/hipblas/test/zaxpy_devptr.f03 b/bindings/fortran/hipblas/test/zaxpy_devptr.f03 new file mode 100644 index 000000000000..e482a92468f7 --- /dev/null +++ b/bindings/fortran/hipblas/test/zaxpy_devptr.f03 @@ -0,0 +1,114 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_zaxpy + use iso_c_binding + use hip + use hipblas + + implicit none + + integer :: n = 6 + type(c_ptr) :: handle = c_null_ptr + integer :: j + complex(kind=8), allocatable, target, dimension(:) :: x, y, y_exact + + complex(kind=8), allocatable, target :: alpha + + ! Device-resident copies of the dual-mode scalars; the library reads them + ! from device memory because the handle is in device pointer mode. + type(c_ptr) :: d_alpha = c_null_ptr + type(c_ptr) :: dx = c_null_ptr, dy = c_null_ptr + + integer, parameter :: bytes_per_element = 16 + + integer(c_size_t) :: Nxbytes + integer(c_size_t) :: Nybytes + + double precision :: error + double precision, parameter :: error_max = 10*epsilon(error) + ! On the heap, so 16-byte aligned: the CUDA backend accesses a + ! cuDoubleComplex scalar with an aligned load or store. + allocate(alpha) + alpha = (2.0d0, 0.d0) + + Nxbytes = n * bytes_per_element + Nybytes = n * bytes_per_element + allocate(x(n)) + allocate(y(n)) + allocate(y_exact(n)) + + do j = 1, n + x(j) = cmplx(j, 0, kind=8) + y(j) = cmplx(j, 0, kind=8) + end do + + do j = 1, n + y_exact(j) = alpha*x(j) + y(j) + end do + + write(*,"(a)",advance="no") "-- Running test 'ZAXPY_devptr' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + ! Switch to device pointer mode and stage the scalars in device memory + call hipblasCheck(hipblasSetPointerMode(handle, HIPBLAS_POINTER_MODE_DEVICE)) + call hipCheck(hipMalloc(d_alpha, 16_c_size_t)) + call hipCheck(hipMemcpy(d_alpha, c_loc(alpha), 16_c_size_t, hipMemcpyHostToDevice)) + + call hipCheck(hipMalloc(dx, Nxbytes)) + call hipCheck(hipMalloc(dy, Nybytes)) + + call hipCheck(hipMemcpy(dx, c_loc(x(1)), Nxbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dy, c_loc(y(1)), Nybytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasZaxpy(handle, n, d_alpha, dx, 1, dy, 1)) + + call hipCheck(hipDeviceSynchronize()) + + call hipCheck(hipMemcpy(c_loc(y(1)), dy, Nybytes, hipMemcpyDeviceToHost)) + + do j = 1, n + error = abs((y_exact(j) - y(j))/y_exact(j)) + if (error > error_max) then + write(*,*) "FAILED! Error bigger than max! Error = ", error + call exit(1) + end if + end do + + call hipCheck(hipFree(dx)) + call hipCheck(hipFree(dy)) + + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(x) + deallocate(y) + deallocate(y_exact) + deallocate(alpha) + + call hipCheck(hipFree(d_alpha)) + write(*,*) "PASSED!" + +end program hip_zaxpy diff --git a/bindings/fortran/hipblas/test/zaxpy_typed.f03 b/bindings/fortran/hipblas/test/zaxpy_typed.f03 new file mode 100644 index 000000000000..3f403fdd6772 --- /dev/null +++ b/bindings/fortran/hipblas/test/zaxpy_typed.f03 @@ -0,0 +1,103 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +! The same check as zaxpy.f03, through the _typed form: alpha is passed as a +! Fortran variable, here a named constant, rather than with c_loc(), so the +! generic resolves to the _typed module procedure, which hands the C API its +! address. The handle is in host pointer mode, as that form requires. +program hip_zaxpy_typed + use iso_c_binding + use hip + use hipblas + + implicit none + + integer :: n = 6 + type(c_ptr) :: handle = c_null_ptr + integer :: j + complex(kind=8), allocatable, target, dimension(:) :: x, y, y_exact + + complex(kind=8), parameter :: alpha = (2.0d0, 0.d0) + type(c_ptr) :: dx = c_null_ptr, dy = c_null_ptr + + integer, parameter :: bytes_per_element = 16 + + integer(c_size_t) :: Nxbytes + integer(c_size_t) :: Nybytes + + double precision :: error + double precision, parameter :: error_max = 10*epsilon(error) + + Nxbytes = n * bytes_per_element + Nybytes = n * bytes_per_element + allocate(x(n)) + allocate(y(n)) + allocate(y_exact(n)) + + do j = 1, n + x(j) = cmplx(j, 0, kind=8) + y(j) = cmplx(j, 0, kind=8) + end do + + do j = 1, n + y_exact(j) = alpha*x(j) + y(j) + end do + + write(*,"(a)",advance="no") "-- Running test 'ZAXPY typed' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + call hipCheck(hipMalloc(dx, Nxbytes)) + call hipCheck(hipMalloc(dy, Nybytes)) + + call hipCheck(hipMemcpy(dx, c_loc(x(1)), Nxbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dy, c_loc(y(1)), Nybytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasZaxpy(handle, n, alpha, dx, 1, dy, 1)) + + call hipCheck(hipDeviceSynchronize()) + + call hipCheck(hipMemcpy(c_loc(y(1)), dy, Nybytes, hipMemcpyDeviceToHost)) + + do j = 1, n + error = abs((y_exact(j) - y(j))/y_exact(j)) + if (error > error_max) then + write(*,*) "FAILED! Error bigger than max! Error = ", error + call exit(1) + end if + end do + + call hipCheck(hipFree(dx)) + call hipCheck(hipFree(dy)) + + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(x) + deallocate(y) + deallocate(y_exact) + + write(*,*) "PASSED!" + +end program hip_zaxpy_typed diff --git a/bindings/fortran/hipblas/test/zdotc.f03 b/bindings/fortran/hipblas/test/zdotc.f03 new file mode 100644 index 000000000000..7af8a9577114 --- /dev/null +++ b/bindings/fortran/hipblas/test/zdotc.f03 @@ -0,0 +1,78 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_zdotc + use iso_c_binding + use hip + use hipblas + + implicit none + + integer, parameter :: n = 10240 + integer, parameter :: bytes_per_element = 16 + integer(c_size_t) :: Nbytes + complex(kind=8), allocatable, target, dimension(:) :: hx, hy + complex(kind=8), allocatable, target :: res + complex(kind=8) :: res_exact + double precision :: error + double precision, parameter :: error_max = 10*epsilon(error) + type(c_ptr) :: dx = c_null_ptr, dy = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + ! On the heap, so 16-byte aligned: the CUDA backend accesses a + ! cuDoubleComplex scalar with an aligned load or store. + allocate(res) + + write(*,"(a)",advance="no") "-- Running test 'ZDOTC' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + Nbytes = int(n, c_size_t) * bytes_per_element + allocate(hx(n), hy(n)) + hx = (1.d0, 1.d0) + hy = (2.d0, 0.d0) + res_exact = cmplx(2.d0*n, -2.d0*n, kind=8) + + call hipCheck(hipMalloc(dx, Nbytes)) + call hipCheck(hipMalloc(dy, Nbytes)) + call hipCheck(hipMemcpy(dx, c_loc(hx(1)), Nbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dy, c_loc(hy(1)), Nbytes, hipMemcpyHostToDevice)) + + res = (0.d0, 0.d0) + call hipblasCheck(hipblasZdotc(handle, n, dx, 1, dy, 1, c_loc(res))) + call hipCheck(hipDeviceSynchronize()) + + error = abs((res_exact - res) / res_exact) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " result = ", res + call exit(1) + end if + + call hipCheck(hipFree(dx)) + call hipCheck(hipFree(dy)) + call hipblasCheck(hipblasDestroy(handle)) + deallocate(hx, hy, res) + write(*,*) "PASSED!" + +end program hip_zdotc diff --git a/bindings/fortran/hipblas/test/zdotc.f08 b/bindings/fortran/hipblas/test/zdotc.f08 new file mode 100644 index 000000000000..aa5f681a5006 --- /dev/null +++ b/bindings/fortran/hipblas/test/zdotc.f08 @@ -0,0 +1,75 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_zdotc + use iso_c_binding + use hip + use hipblas + + implicit none + + integer, parameter :: n = 10240 + complex(kind=8), allocatable, dimension(:) :: hx, hy + complex(kind=8), pointer, dimension(:) :: dx, dy + complex(kind=8), allocatable, target :: res + complex(kind=8) :: res_exact + double precision :: error + double precision, parameter :: error_max = 10*epsilon(error) + type(c_ptr) :: handle = c_null_ptr + ! On the heap, so 16-byte aligned: the CUDA backend accesses a + ! cuDoubleComplex scalar with an aligned load or store. + allocate(res) + + write(*,"(a)",advance="no") "-- Running test 'ZDOTC' (Fortran 2008 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + allocate(hx(n), hy(n)) + hx = (1.d0, 1.d0) + hy = (2.d0, 0.d0) + res_exact = cmplx(2.d0*n, -2.d0*n, kind=8) + + call hipCheck(hipMalloc(dx, shape(hx))) + call hipCheck(hipMalloc(dy, shape(hy))) + call hipCheck(hipMemcpy(dx, hx, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dy, hy, hipMemcpyHostToDevice)) + + res = (0.d0, 0.d0) + call hipblasCheck(hipblasZdotc(handle, n, dx, 1, dy, 1, c_loc(res))) + call hipCheck(hipDeviceSynchronize()) + + error = abs((res_exact - res) / res_exact) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " result = ", res + call exit(1) + end if + + call hipCheck(hipFree(dx)) + call hipCheck(hipFree(dy)) + call hipblasCheck(hipblasDestroy(handle)) + deallocate(hx, hy, res) + write(*,*) "PASSED!" + +end program hip_zdotc diff --git a/bindings/fortran/hipblas/test/zdotu.f03 b/bindings/fortran/hipblas/test/zdotu.f03 new file mode 100644 index 000000000000..2f8c961df0a6 --- /dev/null +++ b/bindings/fortran/hipblas/test/zdotu.f03 @@ -0,0 +1,78 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_zdotu + use iso_c_binding + use hip + use hipblas + + implicit none + + integer, parameter :: n = 10240 + integer, parameter :: bytes_per_element = 16 + integer(c_size_t) :: Nbytes + complex(kind=8), allocatable, target, dimension(:) :: hx, hy + complex(kind=8), allocatable, target :: res + complex(kind=8) :: res_exact + double precision :: error + double precision, parameter :: error_max = 10*epsilon(error) + type(c_ptr) :: dx = c_null_ptr, dy = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + ! On the heap, so 16-byte aligned: the CUDA backend accesses a + ! cuDoubleComplex scalar with an aligned load or store. + allocate(res) + + write(*,"(a)",advance="no") "-- Running test 'ZDOTU' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + Nbytes = int(n, c_size_t) * bytes_per_element + allocate(hx(n), hy(n)) + hx = (1.d0, 1.d0) + hy = (2.d0, 0.d0) + res_exact = cmplx(2.d0*n, 2.d0*n, kind=8) + + call hipCheck(hipMalloc(dx, Nbytes)) + call hipCheck(hipMalloc(dy, Nbytes)) + call hipCheck(hipMemcpy(dx, c_loc(hx(1)), Nbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dy, c_loc(hy(1)), Nbytes, hipMemcpyHostToDevice)) + + res = (0.d0, 0.d0) + call hipblasCheck(hipblasZdotu(handle, n, dx, 1, dy, 1, c_loc(res))) + call hipCheck(hipDeviceSynchronize()) + + error = abs((res_exact - res) / res_exact) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " result = ", res + call exit(1) + end if + + call hipCheck(hipFree(dx)) + call hipCheck(hipFree(dy)) + call hipblasCheck(hipblasDestroy(handle)) + deallocate(hx, hy, res) + write(*,*) "PASSED!" + +end program hip_zdotu diff --git a/bindings/fortran/hipblas/test/zdotu.f08 b/bindings/fortran/hipblas/test/zdotu.f08 new file mode 100644 index 000000000000..474223a07807 --- /dev/null +++ b/bindings/fortran/hipblas/test/zdotu.f08 @@ -0,0 +1,75 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_zdotu + use iso_c_binding + use hip + use hipblas + + implicit none + + integer, parameter :: n = 10240 + complex(kind=8), allocatable, dimension(:) :: hx, hy + complex(kind=8), pointer, dimension(:) :: dx, dy + complex(kind=8), allocatable, target :: res + complex(kind=8) :: res_exact + double precision :: error + double precision, parameter :: error_max = 10*epsilon(error) + type(c_ptr) :: handle = c_null_ptr + ! On the heap, so 16-byte aligned: the CUDA backend accesses a + ! cuDoubleComplex scalar with an aligned load or store. + allocate(res) + + write(*,"(a)",advance="no") "-- Running test 'ZDOTU' (Fortran 2008 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + allocate(hx(n), hy(n)) + hx = (1.d0, 1.d0) + hy = (2.d0, 0.d0) + res_exact = cmplx(2.d0*n, 2.d0*n, kind=8) + + call hipCheck(hipMalloc(dx, shape(hx))) + call hipCheck(hipMalloc(dy, shape(hy))) + call hipCheck(hipMemcpy(dx, hx, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dy, hy, hipMemcpyHostToDevice)) + + res = (0.d0, 0.d0) + call hipblasCheck(hipblasZdotu(handle, n, dx, 1, dy, 1, c_loc(res))) + call hipCheck(hipDeviceSynchronize()) + + error = abs((res_exact - res) / res_exact) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " result = ", res + call exit(1) + end if + + call hipCheck(hipFree(dx)) + call hipCheck(hipFree(dy)) + call hipblasCheck(hipblasDestroy(handle)) + deallocate(hx, hy, res) + write(*,*) "PASSED!" + +end program hip_zdotu diff --git a/bindings/fortran/hipblas/test/zgeam.f03 b/bindings/fortran/hipblas/test/zgeam.f03 new file mode 100644 index 000000000000..8ddb3756cfcd --- /dev/null +++ b/bindings/fortran/hipblas/test/zgeam.f03 @@ -0,0 +1,92 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_zgeam + use iso_c_binding + use hip + use hipblas + + implicit none + + ! C := alpha*op(A) + beta*op(B) with alpha = 2, beta = -1 and no + ! transposition, so C = 2*A - B (a swap of alpha and beta, or of A and B, shows). + integer, parameter :: ld = 2 + integer(c_size_t) :: Nbytes + complex(c_double_complex), allocatable, target :: alpha, beta + + complex(c_double_complex), target :: hA(ld,ld) = reshape([(1.0, 0.0), (2.0, 0.0), (3.0, 0.0), (4.0, 0.0)], [ld,ld]) + complex(c_double_complex), target :: hB(ld,ld) = reshape([(10.0, 0.0), (20.0, 0.0), (30.0, 0.0), (40.0, 0.0)], [ld,ld]) + complex(c_double_complex), target :: hC(ld,ld) + complex(c_double_complex) :: expected(ld,ld) = reshape([(-8.0, 0.0), (-16.0, 0.0), (-24.0, 0.0), (-32.0, 0.0)], [ld,ld]) + type(c_ptr) :: dA = c_null_ptr, dB = c_null_ptr, dC = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + integer :: i, j + real(c_double) :: error + real(c_double), parameter :: error_max = 10*epsilon(error) + ! On the heap, so 16-byte aligned: the CUDA backend accesses a + ! cuDoubleComplex scalar with an aligned load or store. + allocate(alpha, beta) + alpha = (2.0, 0.0) + beta = (-1.0, 0.0) + + write(*,"(a)",advance="no") "-- Running test 'zgeam' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + hC = (0.0, 0.0) + + Nbytes = int(ld*ld, c_size_t) * 16 + call hipCheck(hipMalloc(dA, Nbytes)) + call hipCheck(hipMemcpy(dA, c_loc(hA(1,1)), Nbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMalloc(dB, Nbytes)) + call hipCheck(hipMemcpy(dB, c_loc(hB(1,1)), Nbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMalloc(dC, Nbytes)) + call hipCheck(hipMemcpy(dC, c_loc(hC(1,1)), Nbytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasZgeam(handle, HIPBLAS_OP_N, HIPBLAS_OP_N, ld, ld, & + c_loc(alpha), dA, ld, c_loc(beta), dB, ld, dC, ld)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(c_loc(hC(1,1)), dC, Nbytes, hipMemcpyDeviceToHost)) + + do j = 1, ld + do i = 1, ld + error = abs(expected(i,j) - hC(i,j)) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " at ", i, j + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dB)) + call hipCheck(hipFree(dC)) + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(alpha, beta) + + write(*,*) "PASSED!" + +end program hip_zgeam diff --git a/bindings/fortran/hipblas/test/zgeam.f08 b/bindings/fortran/hipblas/test/zgeam.f08 new file mode 100644 index 000000000000..bd6adf6c9bf2 --- /dev/null +++ b/bindings/fortran/hipblas/test/zgeam.f08 @@ -0,0 +1,90 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_zgeam + use iso_c_binding + use hip + use hipblas + + implicit none + + ! C := alpha*op(A) + beta*op(B) with alpha = 2, beta = -1 and no + ! transposition, so C = 2*A - B (a swap of alpha and beta, or of A and B, shows). + integer, parameter :: ld = 2 + complex(c_double_complex), allocatable, target :: alpha, beta + + complex(c_double_complex) :: hA(ld,ld) = reshape([(1.0, 0.0), (2.0, 0.0), (3.0, 0.0), (4.0, 0.0)], [ld,ld]) + complex(c_double_complex) :: hB(ld,ld) = reshape([(10.0, 0.0), (20.0, 0.0), (30.0, 0.0), (40.0, 0.0)], [ld,ld]) + complex(c_double_complex) :: hC(ld,ld) + complex(c_double_complex) :: expected(ld,ld) = reshape([(-8.0, 0.0), (-16.0, 0.0), (-24.0, 0.0), (-32.0, 0.0)], [ld,ld]) + complex(c_double_complex), pointer, dimension(:,:) :: dA, dB, dC + type(c_ptr) :: handle = c_null_ptr + integer :: i, j + real(c_double) :: error + real(c_double), parameter :: error_max = 10*epsilon(error) + ! On the heap, so 16-byte aligned: the CUDA backend accesses a + ! cuDoubleComplex scalar with an aligned load or store. + allocate(alpha, beta) + alpha = (2.0, 0.0) + beta = (-1.0, 0.0) + + write(*,"(a)",advance="no") "-- Running test 'zgeam' (Fortran 2008 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + hC = (0.0, 0.0) + + call hipCheck(hipMalloc(dA, shape(hA))) + call hipCheck(hipMemcpy(dA, hA, hipMemcpyHostToDevice)) + call hipCheck(hipMalloc(dB, shape(hB))) + call hipCheck(hipMemcpy(dB, hB, hipMemcpyHostToDevice)) + call hipCheck(hipMalloc(dC, shape(hC))) + call hipCheck(hipMemcpy(dC, hC, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasZgeam(handle, HIPBLAS_OP_N, HIPBLAS_OP_N, ld, ld, & + alpha, dA, size(dA,1), beta, dB, size(dB,1), dC, size(dC,1))) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(hC, dC, hipMemcpyDeviceToHost)) + + do j = 1, ld + do i = 1, ld + error = abs(expected(i,j) - hC(i,j)) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " at ", i, j + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dB)) + call hipCheck(hipFree(dC)) + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(alpha, beta) + + write(*,*) "PASSED!" + +end program hip_zgeam diff --git a/bindings/fortran/hipblas/test/zgeam_devptr.f03 b/bindings/fortran/hipblas/test/zgeam_devptr.f03 new file mode 100644 index 000000000000..c45c22c0fc0a --- /dev/null +++ b/bindings/fortran/hipblas/test/zgeam_devptr.f03 @@ -0,0 +1,107 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_zgeam + use iso_c_binding + use hip + use hipblas + + implicit none + + ! C := alpha*op(A) + beta*op(B) with alpha = 2, beta = -1 and no + ! transposition, so C = 2*A - B (a swap of alpha and beta, or of A and B, shows). + integer, parameter :: ld = 2 + integer(c_size_t) :: Nbytes + complex(c_double_complex), allocatable, target :: alpha, beta + + ! Device-resident copies of the dual-mode scalars; the library reads them + ! from device memory because the handle is in device pointer mode. + type(c_ptr) :: d_alpha = c_null_ptr + type(c_ptr) :: d_beta = c_null_ptr + + complex(c_double_complex), target :: hA(ld,ld) = reshape([(1.0, 0.0), (2.0, 0.0), (3.0, 0.0), (4.0, 0.0)], [ld,ld]) + complex(c_double_complex), target :: hB(ld,ld) = reshape([(10.0, 0.0), (20.0, 0.0), (30.0, 0.0), (40.0, 0.0)], [ld,ld]) + complex(c_double_complex), target :: hC(ld,ld) + complex(c_double_complex) :: expected(ld,ld) = reshape([(-8.0, 0.0), (-16.0, 0.0), (-24.0, 0.0), (-32.0, 0.0)], [ld,ld]) + type(c_ptr) :: dA = c_null_ptr, dB = c_null_ptr, dC = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + integer :: i, j + real(c_double) :: error + real(c_double), parameter :: error_max = 10*epsilon(error) + ! On the heap, so 16-byte aligned: the CUDA backend accesses a + ! cuDoubleComplex scalar with an aligned load or store. + allocate(alpha, beta) + alpha = (2.0, 0.0) + beta = (-1.0, 0.0) + + write(*,"(a)",advance="no") "-- Running test 'zgeam_devptr' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + ! Switch to device pointer mode and stage the scalars in device memory + call hipblasCheck(hipblasSetPointerMode(handle, HIPBLAS_POINTER_MODE_DEVICE)) + call hipCheck(hipMalloc(d_alpha, 16_c_size_t)) + call hipCheck(hipMalloc(d_beta, 16_c_size_t)) + call hipCheck(hipMemcpy(d_alpha, c_loc(alpha), 16_c_size_t, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(d_beta, c_loc(beta), 16_c_size_t, hipMemcpyHostToDevice)) + + hC = (0.0, 0.0) + + Nbytes = int(ld*ld, c_size_t) * 16 + call hipCheck(hipMalloc(dA, Nbytes)) + call hipCheck(hipMemcpy(dA, c_loc(hA(1,1)), Nbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMalloc(dB, Nbytes)) + call hipCheck(hipMemcpy(dB, c_loc(hB(1,1)), Nbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMalloc(dC, Nbytes)) + call hipCheck(hipMemcpy(dC, c_loc(hC(1,1)), Nbytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasZgeam(handle, HIPBLAS_OP_N, HIPBLAS_OP_N, ld, ld, & + d_alpha, dA, ld, d_beta, dB, ld, dC, ld)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(c_loc(hC(1,1)), dC, Nbytes, hipMemcpyDeviceToHost)) + + do j = 1, ld + do i = 1, ld + error = abs(expected(i,j) - hC(i,j)) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " at ", i, j + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dB)) + call hipCheck(hipFree(dC)) + call hipblasCheck(hipblasDestroy(handle)) + + call hipCheck(hipFree(d_alpha)) + call hipCheck(hipFree(d_beta)) + + deallocate(alpha, beta) + + write(*,*) "PASSED!" + +end program hip_zgeam diff --git a/bindings/fortran/hipblas/test/zgemm.f03 b/bindings/fortran/hipblas/test/zgemm.f03 new file mode 100644 index 000000000000..349a1e0bd3f3 --- /dev/null +++ b/bindings/fortran/hipblas/test/zgemm.f03 @@ -0,0 +1,129 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_zgemm + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(kind(HIPBLAS_OP_N)), parameter :: transa = HIPBLAS_OP_N, transb = HIPBLAS_OP_N; + complex(kind=8), allocatable, target :: alpha, beta + + integer, parameter :: m = 512, n = 512, k = 512; + integer :: lda, ldb, ldc, size_a, size_b, size_c; + + complex(kind=8), allocatable, target, dimension(:,:) :: ha, hb, hc + complex(kind=8), allocatable, dimension(:,:) :: hc_exact + + type(c_ptr) :: da = c_null_ptr, db = c_null_ptr, dc = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + + integer, parameter :: bytes_per_element = 16 ! 2x double + integer(c_size_t) :: Nabytes, Nbbytes, Ncbytes + + integer :: i,j + double precision :: error + double precision, parameter :: error_max = 10*epsilon(error) + ! On the heap, so 16-byte aligned: the CUDA backend accesses a + ! cuDoubleComplex scalar with an aligned load or store. + allocate(alpha, beta) + alpha = 1.1d0 + beta = 0.9d0; + + write(*,"(a)",advance="no") "-- Running test 'ZGEMM' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + lda = m; + size_a = k * lda; + Nabytes = size_a*bytes_per_element + + ldb = k; + size_b = n * ldb; + Nbbytes = size_b*bytes_per_element + + ldc = m; + size_c = n * ldc; + Ncbytes = size_c*bytes_per_element + + ! C = A_MxK * B_KxN + + allocate(ha(m,k)) + allocate(hb(k,n)) + allocate(hc(m,n)) + allocate(hc_exact(m,n)) + + ! Use these constant matrices so the exact answer is also a + ! constant matrix and therefore easy to check + ha(:,:) = 1.d0 + hb(:,:) = 2.d0 + hc(:,:) = 3.d0 + hc_exact(:,:) = alpha*k*2.d0 + beta*3.d0 + + ! Allocate device memory + call hipCheck(hipMalloc(da,Nabytes)) + call hipCheck(hipMalloc(db,Nbbytes)) + call hipCheck(hipMalloc(dc,Ncbytes)) + + !Transfer from host to device + call hipCheck(hipMemcpy(da, c_loc(ha(1,1)), Nabytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(db, c_loc(hb(1,1)), Nbbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dc, c_loc(hc(1,1)), Ncbytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasZgemm(handle,transa,transb,m,n,k,c_loc(alpha),da,lda,db,ldb,c_loc(beta),dc,ldc)) + + call hipCheck(hipDeviceSynchronize()) + + ! Transfer data back to host memory + call hipCheck(hipMemcpy(c_loc(hc(1,1)), dc, Ncbytes, hipMemcpyDeviceToHost)) + + do i = 1,m + do j = 1,n + error = abs((hc_exact(i,j) - hc(i,j))/hc_exact(i,j)) + if( error > error_max )then + write(*,*) "FAILED! Error bigger than max! Error = ", error + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(da)) + call hipCheck(hipFree(db)) + call hipCheck(hipFree(dc)) + + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(ha) + deallocate(hb) + deallocate(hc) + deallocate(hc_exact) + deallocate(alpha) + deallocate(beta) + + write(*,*) "PASSED!" + +end program hip_zgemm diff --git a/bindings/fortran/hipblas/test/zgemm.f08 b/bindings/fortran/hipblas/test/zgemm.f08 new file mode 100644 index 000000000000..e27791a9bae8 --- /dev/null +++ b/bindings/fortran/hipblas/test/zgemm.f08 @@ -0,0 +1,108 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_zgemm + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(kind(HIPBLAS_OP_N)), parameter :: transa = HIPBLAS_OP_N, transb = HIPBLAS_OP_N; + complex(kind=8), allocatable, target :: alpha, beta + + integer, parameter :: m = 512, n = 512, k = 512; + + complex(kind=8), allocatable, dimension(:,:) :: ha, hb, hc + complex(kind=8), allocatable, dimension(:,:) :: hc_exact + + complex(kind=8), pointer, dimension(:,:) :: da, db, dc + type(c_ptr) :: handle = c_null_ptr + + integer :: i,j + double precision :: error + double precision, parameter :: error_max = 10*epsilon(error) + ! On the heap, so 16-byte aligned: the CUDA backend accesses a + ! cuDoubleComplex scalar with an aligned load or store. + allocate(alpha, beta) + alpha = 1.1d0 + beta = 0.9d0; + + write(*,"(a)",advance="no") "-- Running test 'ZGEMM' (Fortran 2008 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + ! C = A_MxK * B_KxN + + allocate(ha(m,k)) + allocate(hb(k,n)) + allocate(hc(m,n)) + allocate(hc_exact(m,n)) + + ! Use these constant matrices so the exact answer is also a + ! constant matrix and therefore easy to check + ha(:,:) = 1.d0 + hb(:,:) = 2.d0 + hc(:,:) = 3.d0 + hc_exact(:,:) = alpha*k*2.d0 + beta*3.d0 + + ! Allocate device memory + call hipCheck(hipMalloc(da,mold=ha)) + call hipCheck(hipMalloc(db,mold=hb)) + call hipCheck(hipMalloc(dc,mold=hc)) + + !Transfer from host to device + call hipCheck(hipMemcpy(da, ha, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(db, hb, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dc, hc, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasZgemm(handle,transa,transb,m,n,k,alpha,da,size(da,1),db,size(db,1),beta,dc,size(dc,1))) + + call hipCheck(hipDeviceSynchronize()) + + ! Transfer data back to host memory + call hipCheck(hipMemcpy(hc, dc, hipMemcpyDeviceToHost)) + + do j = 1,n + do i = 1,m + error = abs((hc_exact(i,j) - hc(i,j))/hc_exact(i,j)) + if( error > error_max )then + write(*,*) "FAILED! Error bigger than max! Error = ", error + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(da)) + call hipCheck(hipFree(db)) + call hipCheck(hipFree(dc)) + + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(ha,hb,hc,hc_exact, alpha, beta) + + write(*,*) "PASSED!" + +end program hip_zgemm diff --git a/bindings/fortran/hipblas/test/zgemm_batched.f03 b/bindings/fortran/hipblas/test/zgemm_batched.f03 new file mode 100644 index 000000000000..c92ad1cf37f8 --- /dev/null +++ b/bindings/fortran/hipblas/test/zgemm_batched.f03 @@ -0,0 +1,142 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_zgemm_batched + + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(kind(HIPBLAS_OP_N)), parameter :: transa = HIPBLAS_OP_N, transb = HIPBLAS_OP_N + complex(kind=8), allocatable, target :: alpha, beta + + integer, parameter :: m = 256, n = 256, k = 256, batch_count = 4 + integer, parameter :: bytes_per_element = 16 ! 2x double + integer, parameter :: size_a = m*k, size_b = k*n, size_c = m*n + integer(c_size_t), parameter :: Nabytes = size_a*bytes_per_element, & + Nbbytes = size_b*bytes_per_element, & + Ncbytes = size_c*bytes_per_element + integer :: lda, ldb, ldc, i, b + + complex(kind=8), allocatable, target, dimension(:,:) :: ha, hb, hc ! (elems, batch) + complex(kind=8), allocatable, dimension(:) :: hc_exact ! one value per batch + + ! Host arrays of device pointers (one device matrix per batch entry) + type(c_ptr), target :: da(batch_count), db(batch_count), dc(batch_count) + ! Device-resident pointer arrays passed to the batched routine + type(c_ptr) :: da_p = c_null_ptr, db_p = c_null_ptr, dc_p = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + + double precision :: error + double precision, parameter :: error_max = 10*epsilon(error) + ! On the heap, so 16-byte aligned: the CUDA backend accesses a + ! cuDoubleComplex scalar with an aligned load or store. + allocate(alpha, beta) + alpha = (1.1d0,0.0d0) + beta = (0.9d0,0.0d0) + + write(*,"(a)",advance="no") "-- Running test 'ZGEMM_BATCHED' (Fortran 2003 interfaces) - " + + ! hipBLAS defaults to host pointer mode: no set-pointer-mode call needed + call hipblasCheck(hipblasCreate(handle)) + + lda = m; ldb = k; ldc = m + + allocate(ha(size_a,0:batch_count-1)) + allocate(hb(size_b,0:batch_count-1)) + allocate(hc(size_c,0:batch_count-1)) + allocate(hc_exact(0:batch_count-1)) + + ! Constant matrices with a distinct per-batch value so the exact answer is + ! a distinct constant per batch. A is held constant; B varies per batch. + ha(:,:) = (1.0d0,0.0d0) + do b = 0, batch_count-1 + hb(:,b) = cmplx(b+1,0.0d0,kind=8) + hc(:,b) = (3.0d0,0.0d0) + hc_exact(b) = alpha*k*cmplx(b+1,0.0d0,kind=8) + beta*(3.0d0,0.0d0) + end do + + ! Allocate one device matrix per batch entry and copy its host data across + do b = 1, batch_count + call hipCheck(hipMalloc(da(b),Nabytes)) + call hipCheck(hipMalloc(db(b),Nbbytes)) + call hipCheck(hipMalloc(dc(b),Ncbytes)) + call hipCheck(hipMemcpy(da(b), c_loc(ha(1,b-1)), Nabytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(db(b), c_loc(hb(1,b-1)), Nbbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dc(b), c_loc(hc(1,b-1)), Ncbytes, hipMemcpyHostToDevice)) + end do + + ! Allocate the device-resident pointer arrays and copy the host pointer + ! arrays into them (hipBLAS requires the pointer array in device memory) + call hipCheck(hipMalloc(da_p, int(batch_count,c_size_t)*c_sizeof(da(1)))) + call hipCheck(hipMalloc(db_p, int(batch_count,c_size_t)*c_sizeof(db(1)))) + call hipCheck(hipMalloc(dc_p, int(batch_count,c_size_t)*c_sizeof(dc(1)))) + call hipCheck(hipMemcpy(da_p, c_loc(da(1)), int(batch_count,c_size_t)*c_sizeof(da(1)), hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(db_p, c_loc(db(1)), int(batch_count,c_size_t)*c_sizeof(db(1)), hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dc_p, c_loc(dc(1)), int(batch_count,c_size_t)*c_sizeof(dc(1)), hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasZgemmBatched(handle,transa,transb,m,n,k, & + c_loc(alpha),da_p,lda,db_p,ldb,c_loc(beta),dc_p,ldc,batch_count)) + + call hipCheck(hipDeviceSynchronize()) + + ! Transfer each batch result back to host memory + do b = 1, batch_count + call hipCheck(hipMemcpy(c_loc(hc(1,b-1)), dc(b), Ncbytes, hipMemcpyDeviceToHost)) + end do + + do b = 0, batch_count-1 + do i = 1, size_c + error = abs((hc_exact(b) - hc(i,b))/hc_exact(b)) + if( error > error_max )then + write(*,*) "FAILED! Error bigger than max! batch = ", b, " error = ", error + call exit(1) + end if + end do + end do + + do b = 1, batch_count + call hipCheck(hipFree(da(b))) + call hipCheck(hipFree(db(b))) + call hipCheck(hipFree(dc(b))) + end do + call hipCheck(hipFree(da_p)) + call hipCheck(hipFree(db_p)) + call hipCheck(hipFree(dc_p)) + + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(ha) + deallocate(hb) + deallocate(hc) + deallocate(hc_exact) + deallocate(alpha) + deallocate(beta) + + write(*,*) "PASSED!" + +end program hip_zgemm_batched diff --git a/bindings/fortran/hipblas/test/zgemm_batched.f08 b/bindings/fortran/hipblas/test/zgemm_batched.f08 new file mode 100644 index 000000000000..bce28522e11d --- /dev/null +++ b/bindings/fortran/hipblas/test/zgemm_batched.f08 @@ -0,0 +1,149 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +! Note: hipfort's Fortran 2008 pointer-convenience interfaces for +! hipblas?gemmBatched call c_loc() on a plain array and therefore pass a +! single pointer, not the array of device pointers the routine requires. This +! test consequently uses the type(c_ptr) array-of-pointers idiom (as in f2003); +! only the per-batch device allocation uses the f2008 hipMalloc(source=) style. + +program hip_zgemm_batched + + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(kind(HIPBLAS_OP_N)), parameter :: transa = HIPBLAS_OP_N, transb = HIPBLAS_OP_N + complex(kind=8), allocatable, target :: alpha, beta + + integer, parameter :: m = 256, n = 256, k = 256, batch_count = 4 + integer, parameter :: bytes_per_element = 16 ! 2x double + integer, parameter :: size_a = m*k, size_b = k*n, size_c = m*n + integer(c_size_t), parameter :: Ncbytes = size_c*bytes_per_element + integer :: lda, ldb, ldc, i, b + + complex(kind=8), allocatable, target, dimension(:,:) :: ha, hb, hc ! (elems, batch) + complex(kind=8), allocatable, dimension(:) :: hc_exact ! one value per batch + + ! Per-batch device matrices as typed Fortran pointers (reused each iteration) + complex(kind=8), pointer, dimension(:) :: da_b, db_b, dc_b + ! Host arrays of device pointers (one device matrix per batch entry) + type(c_ptr), target :: da(batch_count), db(batch_count), dc(batch_count) + ! Device-resident pointer arrays passed to the batched routine + type(c_ptr) :: da_p = c_null_ptr, db_p = c_null_ptr, dc_p = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + + double precision :: error + double precision, parameter :: error_max = 10*epsilon(error) + ! On the heap, so 16-byte aligned: the CUDA backend accesses a + ! cuDoubleComplex scalar with an aligned load or store. + allocate(alpha, beta) + alpha = (1.1d0,0.0d0) + beta = (0.9d0,0.0d0) + + write(*,"(a)",advance="no") "-- Running test 'ZGEMM_BATCHED' (Fortran 2008 interfaces) - " + + ! hipBLAS defaults to host pointer mode: no set-pointer-mode call needed + call hipblasCheck(hipblasCreate(handle)) + + lda = m; ldb = k; ldc = m + + allocate(ha(size_a,0:batch_count-1)) + allocate(hb(size_b,0:batch_count-1)) + allocate(hc(size_c,0:batch_count-1)) + allocate(hc_exact(0:batch_count-1)) + + ! Constant matrices with a distinct per-batch value so the exact answer is + ! a distinct constant per batch. A is held constant; B varies per batch. + ha(:,:) = (1.0d0,0.0d0) + do b = 0, batch_count-1 + hb(:,b) = cmplx(b+1,0.0d0,kind=8) + hc(:,b) = (3.0d0,0.0d0) + hc_exact(b) = alpha*k*cmplx(b+1,0.0d0,kind=8) + beta*(3.0d0,0.0d0) + end do + + ! Allocate one device matrix per batch entry (f2008 source= copy) and record + ! its device address in the host pointer array + do b = 1, batch_count + call hipCheck(hipMalloc(da_b,source=ha(:,b-1))) + call hipCheck(hipMalloc(db_b,source=hb(:,b-1))) + call hipCheck(hipMalloc(dc_b,source=hc(:,b-1))) + da(b) = c_loc(da_b(1)) + db(b) = c_loc(db_b(1)) + dc(b) = c_loc(dc_b(1)) + end do + + ! Allocate the device-resident pointer arrays and copy the host pointer + ! arrays into them (hipBLAS requires the pointer array in device memory) + call hipCheck(hipMalloc(da_p, int(batch_count,c_size_t)*c_sizeof(da(1)))) + call hipCheck(hipMalloc(db_p, int(batch_count,c_size_t)*c_sizeof(db(1)))) + call hipCheck(hipMalloc(dc_p, int(batch_count,c_size_t)*c_sizeof(dc(1)))) + call hipCheck(hipMemcpy(da_p, c_loc(da(1)), int(batch_count,c_size_t)*c_sizeof(da(1)), hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(db_p, c_loc(db(1)), int(batch_count,c_size_t)*c_sizeof(db(1)), hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dc_p, c_loc(dc(1)), int(batch_count,c_size_t)*c_sizeof(dc(1)), hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasZgemmBatched(handle,transa,transb,m,n,k, & + c_loc(alpha),da_p,lda,db_p,ldb,c_loc(beta),dc_p,ldc,batch_count)) + + call hipCheck(hipDeviceSynchronize()) + + ! Transfer each batch result back to host memory + do b = 1, batch_count + call hipCheck(hipMemcpy(c_loc(hc(1,b-1)), dc(b), Ncbytes, hipMemcpyDeviceToHost)) + end do + + do b = 0, batch_count-1 + do i = 1, size_c + error = abs((hc_exact(b) - hc(i,b))/hc_exact(b)) + if( error > error_max )then + write(*,*) "FAILED! Error bigger than max! batch = ", b, " error = ", error + call exit(1) + end if + end do + end do + + do b = 1, batch_count + call hipCheck(hipFree(da(b))) + call hipCheck(hipFree(db(b))) + call hipCheck(hipFree(dc(b))) + end do + call hipCheck(hipFree(da_p)) + call hipCheck(hipFree(db_p)) + call hipCheck(hipFree(dc_p)) + + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(ha) + deallocate(hb) + deallocate(hc) + deallocate(hc_exact) + deallocate(alpha) + deallocate(beta) + + write(*,*) "PASSED!" + +end program hip_zgemm_batched diff --git a/bindings/fortran/hipblas/test/zgemm_batched_devptr.f03 b/bindings/fortran/hipblas/test/zgemm_batched_devptr.f03 new file mode 100644 index 000000000000..8f3d5df67a6f --- /dev/null +++ b/bindings/fortran/hipblas/test/zgemm_batched_devptr.f03 @@ -0,0 +1,156 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_zgemm_batched + + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(kind(HIPBLAS_OP_N)), parameter :: transa = HIPBLAS_OP_N, transb = HIPBLAS_OP_N + complex(kind=8), allocatable, target :: alpha, beta + + ! Device-resident copies of the dual-mode scalars; the library reads them + ! from device memory because the handle is in device pointer mode. + type(c_ptr) :: d_alpha = c_null_ptr + type(c_ptr) :: d_beta = c_null_ptr + + integer, parameter :: m = 256, n = 256, k = 256, batch_count = 4 + integer, parameter :: bytes_per_element = 16 ! 2x double + integer, parameter :: size_a = m*k, size_b = k*n, size_c = m*n + integer(c_size_t), parameter :: Nabytes = size_a*bytes_per_element, & + Nbbytes = size_b*bytes_per_element, & + Ncbytes = size_c*bytes_per_element + integer :: lda, ldb, ldc, i, b + + complex(kind=8), allocatable, target, dimension(:,:) :: ha, hb, hc ! (elems, batch) + complex(kind=8), allocatable, dimension(:) :: hc_exact ! one value per batch + + ! Host arrays of device pointers (one device matrix per batch entry) + type(c_ptr), target :: da(batch_count), db(batch_count), dc(batch_count) + ! Device-resident pointer arrays passed to the batched routine + type(c_ptr) :: da_p = c_null_ptr, db_p = c_null_ptr, dc_p = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + + double precision :: error + double precision, parameter :: error_max = 10*epsilon(error) + ! On the heap, so 16-byte aligned: the CUDA backend accesses a + ! cuDoubleComplex scalar with an aligned load or store. + allocate(alpha, beta) + alpha = (1.1d0,0.0d0) + beta = (0.9d0,0.0d0) + + write(*,"(a)",advance="no") "-- Running test 'ZGEMM_BATCHED_devptr' (Fortran 2003 interfaces) - " + + ! hipBLAS defaults to host pointer mode: no set-pointer-mode call needed + call hipblasCheck(hipblasCreate(handle)) + + ! Switch to device pointer mode and stage the scalars in device memory + call hipblasCheck(hipblasSetPointerMode(handle, HIPBLAS_POINTER_MODE_DEVICE)) + call hipCheck(hipMalloc(d_alpha, 16_c_size_t)) + call hipCheck(hipMalloc(d_beta, 16_c_size_t)) + call hipCheck(hipMemcpy(d_alpha, c_loc(alpha), 16_c_size_t, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(d_beta, c_loc(beta), 16_c_size_t, hipMemcpyHostToDevice)) + + lda = m; ldb = k; ldc = m + + allocate(ha(size_a,0:batch_count-1)) + allocate(hb(size_b,0:batch_count-1)) + allocate(hc(size_c,0:batch_count-1)) + allocate(hc_exact(0:batch_count-1)) + + ! Constant matrices with a distinct per-batch value so the exact answer is + ! a distinct constant per batch. A is held constant; B varies per batch. + ha(:,:) = (1.0d0,0.0d0) + do b = 0, batch_count-1 + hb(:,b) = cmplx(b+1,0.0d0,kind=8) + hc(:,b) = (3.0d0,0.0d0) + hc_exact(b) = alpha*k*cmplx(b+1,0.0d0,kind=8) + beta*(3.0d0,0.0d0) + end do + + ! Allocate one device matrix per batch entry and copy its host data across + do b = 1, batch_count + call hipCheck(hipMalloc(da(b),Nabytes)) + call hipCheck(hipMalloc(db(b),Nbbytes)) + call hipCheck(hipMalloc(dc(b),Ncbytes)) + call hipCheck(hipMemcpy(da(b), c_loc(ha(1,b-1)), Nabytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(db(b), c_loc(hb(1,b-1)), Nbbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dc(b), c_loc(hc(1,b-1)), Ncbytes, hipMemcpyHostToDevice)) + end do + + ! Allocate the device-resident pointer arrays and copy the host pointer + ! arrays into them (hipBLAS requires the pointer array in device memory) + call hipCheck(hipMalloc(da_p, int(batch_count,c_size_t)*c_sizeof(da(1)))) + call hipCheck(hipMalloc(db_p, int(batch_count,c_size_t)*c_sizeof(db(1)))) + call hipCheck(hipMalloc(dc_p, int(batch_count,c_size_t)*c_sizeof(dc(1)))) + call hipCheck(hipMemcpy(da_p, c_loc(da(1)), int(batch_count,c_size_t)*c_sizeof(da(1)), hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(db_p, c_loc(db(1)), int(batch_count,c_size_t)*c_sizeof(db(1)), hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dc_p, c_loc(dc(1)), int(batch_count,c_size_t)*c_sizeof(dc(1)), hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasZgemmBatched(handle,transa,transb,m,n,k, & + d_alpha,da_p,lda,db_p,ldb,d_beta,dc_p,ldc,batch_count)) + + call hipCheck(hipDeviceSynchronize()) + + ! Transfer each batch result back to host memory + do b = 1, batch_count + call hipCheck(hipMemcpy(c_loc(hc(1,b-1)), dc(b), Ncbytes, hipMemcpyDeviceToHost)) + end do + + do b = 0, batch_count-1 + do i = 1, size_c + error = abs((hc_exact(b) - hc(i,b))/hc_exact(b)) + if( error > error_max )then + write(*,*) "FAILED! Error bigger than max! batch = ", b, " error = ", error + call exit(1) + end if + end do + end do + + do b = 1, batch_count + call hipCheck(hipFree(da(b))) + call hipCheck(hipFree(db(b))) + call hipCheck(hipFree(dc(b))) + end do + call hipCheck(hipFree(da_p)) + call hipCheck(hipFree(db_p)) + call hipCheck(hipFree(dc_p)) + + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(ha) + deallocate(hb) + deallocate(hc) + deallocate(hc_exact) + deallocate(alpha) + deallocate(beta) + + call hipCheck(hipFree(d_alpha)) + call hipCheck(hipFree(d_beta)) + write(*,*) "PASSED!" + +end program hip_zgemm_batched diff --git a/bindings/fortran/hipblas/test/zgemm_devptr.f03 b/bindings/fortran/hipblas/test/zgemm_devptr.f03 new file mode 100644 index 000000000000..3d8ec19920af --- /dev/null +++ b/bindings/fortran/hipblas/test/zgemm_devptr.f03 @@ -0,0 +1,143 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_zgemm + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(kind(HIPBLAS_OP_N)), parameter :: transa = HIPBLAS_OP_N, transb = HIPBLAS_OP_N; + complex(kind=8), allocatable, target :: alpha, beta + + ! Device-resident copies of the dual-mode scalars; the library reads them + ! from device memory because the handle is in device pointer mode. + type(c_ptr) :: d_alpha = c_null_ptr + type(c_ptr) :: d_beta = c_null_ptr + + integer, parameter :: m = 512, n = 512, k = 512; + integer :: lda, ldb, ldc, size_a, size_b, size_c; + + complex(kind=8), allocatable, target, dimension(:,:) :: ha, hb, hc + complex(kind=8), allocatable, dimension(:,:) :: hc_exact + + type(c_ptr) :: da = c_null_ptr, db = c_null_ptr, dc = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + + integer, parameter :: bytes_per_element = 16 ! 2x double + integer(c_size_t) :: Nabytes, Nbbytes, Ncbytes + + integer :: i,j + double precision :: error + double precision, parameter :: error_max = 10*epsilon(error) + ! On the heap, so 16-byte aligned: the CUDA backend accesses a + ! cuDoubleComplex scalar with an aligned load or store. + allocate(alpha, beta) + alpha = 1.1d0 + beta = 0.9d0; + + write(*,"(a)",advance="no") "-- Running test 'ZGEMM_devptr' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + ! Switch to device pointer mode and stage the scalars in device memory + call hipblasCheck(hipblasSetPointerMode(handle, HIPBLAS_POINTER_MODE_DEVICE)) + call hipCheck(hipMalloc(d_alpha, 16_c_size_t)) + call hipCheck(hipMalloc(d_beta, 16_c_size_t)) + call hipCheck(hipMemcpy(d_alpha, c_loc(alpha), 16_c_size_t, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(d_beta, c_loc(beta), 16_c_size_t, hipMemcpyHostToDevice)) + + lda = m; + size_a = k * lda; + Nabytes = size_a*bytes_per_element + + ldb = k; + size_b = n * ldb; + Nbbytes = size_b*bytes_per_element + + ldc = m; + size_c = n * ldc; + Ncbytes = size_c*bytes_per_element + + ! C = A_MxK * B_KxN + + allocate(ha(m,k)) + allocate(hb(k,n)) + allocate(hc(m,n)) + allocate(hc_exact(m,n)) + + ! Use these constant matrices so the exact answer is also a + ! constant matrix and therefore easy to check + ha(:,:) = 1.d0 + hb(:,:) = 2.d0 + hc(:,:) = 3.d0 + hc_exact(:,:) = alpha*k*2.d0 + beta*3.d0 + + ! Allocate device memory + call hipCheck(hipMalloc(da,Nabytes)) + call hipCheck(hipMalloc(db,Nbbytes)) + call hipCheck(hipMalloc(dc,Ncbytes)) + + !Transfer from host to device + call hipCheck(hipMemcpy(da, c_loc(ha(1,1)), Nabytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(db, c_loc(hb(1,1)), Nbbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dc, c_loc(hc(1,1)), Ncbytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasZgemm(handle,transa,transb,m,n,k,d_alpha,da,lda,db,ldb,d_beta,dc,ldc)) + + call hipCheck(hipDeviceSynchronize()) + + ! Transfer data back to host memory + call hipCheck(hipMemcpy(c_loc(hc(1,1)), dc, Ncbytes, hipMemcpyDeviceToHost)) + + do i = 1,m + do j = 1,n + error = abs((hc_exact(i,j) - hc(i,j))/hc_exact(i,j)) + if( error > error_max )then + write(*,*) "FAILED! Error bigger than max! Error = ", error + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(da)) + call hipCheck(hipFree(db)) + call hipCheck(hipFree(dc)) + + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(ha) + deallocate(hb) + deallocate(hc) + deallocate(hc_exact) + deallocate(alpha) + deallocate(beta) + + call hipCheck(hipFree(d_alpha)) + call hipCheck(hipFree(d_beta)) + write(*,*) "PASSED!" + +end program hip_zgemm diff --git a/bindings/fortran/hipblas/test/zgemm_strided_batched.f03 b/bindings/fortran/hipblas/test/zgemm_strided_batched.f03 new file mode 100644 index 000000000000..005eca04d2b9 --- /dev/null +++ b/bindings/fortran/hipblas/test/zgemm_strided_batched.f03 @@ -0,0 +1,128 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_zgemm_strided_batched + + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(kind(HIPBLAS_OP_N)), parameter :: transa = HIPBLAS_OP_N, transb = HIPBLAS_OP_N + complex(kind=8), allocatable, target :: alpha, beta + + integer, parameter :: m = 256, n = 256, k = 256, batch_count = 4 + integer, parameter :: bytes_per_element = 16 ! 2x double + integer :: lda, ldb, ldc, i, b + integer(c_int64_t) :: stride_a, stride_b, stride_c + integer :: size_a, size_b, size_c + integer(c_size_t) :: Nabytes, Nbbytes, Ncbytes + + complex(kind=8), allocatable, target, dimension(:) :: ha, hb, hc + complex(kind=8), allocatable, dimension(:) :: hc_exact ! one value per batch + + type(c_ptr) :: da = c_null_ptr, db = c_null_ptr, dc = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + + double precision :: error + double precision, parameter :: error_max = 10*epsilon(error) + ! On the heap, so 16-byte aligned: the CUDA backend accesses a + ! cuDoubleComplex scalar with an aligned load or store. + allocate(alpha, beta) + alpha = (1.1d0,0.0d0) + beta = (0.9d0,0.0d0) + + write(*,"(a)",advance="no") "-- Running test 'ZGEMM_STRIDED_BATCHED' (Fortran 2003 interfaces) - " + + ! hipBLAS defaults to host pointer mode: no set-pointer-mode call needed + call hipblasCheck(hipblasCreate(handle)) + + lda = m; ldb = k; ldc = m + stride_a = int(lda,c_int64_t)*k + stride_b = int(ldb,c_int64_t)*n + stride_c = int(ldc,c_int64_t)*n + size_a = int(stride_a)*batch_count; Nabytes = size_a*bytes_per_element + size_b = int(stride_b)*batch_count; Nbbytes = size_b*bytes_per_element + size_c = int(stride_c)*batch_count; Ncbytes = size_c*bytes_per_element + + allocate(ha(size_a)) + allocate(hb(size_b)) + allocate(hc(size_c)) + allocate(hc_exact(0:batch_count-1)) + + ! Constant matrices with a distinct per-batch value so the exact answer is + ! a distinct constant per batch. A is held constant; B varies per batch. + ha(:) = (1.0d0,0.0d0) + do b = 0, batch_count-1 + hb(b*stride_b+1 : (b+1)*stride_b) = cmplx(b+1,0.0d0,kind=8) + hc(b*stride_c+1 : (b+1)*stride_c) = (3.0d0,0.0d0) + hc_exact(b) = alpha*k*cmplx(b+1,0.0d0,kind=8) + beta*(3.0d0,0.0d0) + end do + + ! Allocate device memory + call hipCheck(hipMalloc(da,Nabytes)) + call hipCheck(hipMalloc(db,Nbbytes)) + call hipCheck(hipMalloc(dc,Ncbytes)) + + ! Transfer from host to device + call hipCheck(hipMemcpy(da, c_loc(ha(1)), Nabytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(db, c_loc(hb(1)), Nbbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dc, c_loc(hc(1)), Ncbytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasZgemmStridedBatched(handle,transa,transb,m,n,k, & + c_loc(alpha),da,lda,stride_a,db,ldb,stride_b,c_loc(beta),dc,ldc,stride_c,batch_count)) + + call hipCheck(hipDeviceSynchronize()) + + ! Transfer data back to host memory + call hipCheck(hipMemcpy(c_loc(hc(1)), dc, Ncbytes, hipMemcpyDeviceToHost)) + + do b = 0, batch_count-1 + do i = 1, int(stride_c) + error = abs((hc_exact(b) - hc(b*stride_c+i))/hc_exact(b)) + if( error > error_max )then + write(*,*) "FAILED! Error bigger than max! batch = ", b, " error = ", error + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(da)) + call hipCheck(hipFree(db)) + call hipCheck(hipFree(dc)) + + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(ha) + deallocate(hb) + deallocate(hc) + deallocate(hc_exact) + deallocate(alpha) + deallocate(beta) + + write(*,*) "PASSED!" + +end program hip_zgemm_strided_batched diff --git a/bindings/fortran/hipblas/test/zgemm_strided_batched.f08 b/bindings/fortran/hipblas/test/zgemm_strided_batched.f08 new file mode 100644 index 000000000000..3dba153d96ad --- /dev/null +++ b/bindings/fortran/hipblas/test/zgemm_strided_batched.f08 @@ -0,0 +1,121 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_zgemm_strided_batched + + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(kind(HIPBLAS_OP_N)), parameter :: transa = HIPBLAS_OP_N, transb = HIPBLAS_OP_N + complex(kind=8), allocatable, target :: alpha, beta + + integer, parameter :: m = 256, n = 256, k = 256, batch_count = 4 + integer :: lda, ldb, ldc, i, b + integer(c_int64_t) :: stride_a, stride_b, stride_c + integer :: size_a, size_b, size_c + + complex(kind=8), allocatable, dimension(:) :: ha, hb, hc + complex(kind=8), allocatable, dimension(:) :: hc_exact ! one value per batch + + complex(kind=8), pointer, dimension(:) :: da, db, dc + type(c_ptr) :: handle = c_null_ptr + + double precision :: error + double precision, parameter :: error_max = 10*epsilon(error) + ! On the heap, so 16-byte aligned: the CUDA backend accesses a + ! cuDoubleComplex scalar with an aligned load or store. + allocate(alpha, beta) + alpha = (1.1d0,0.0d0) + beta = (0.9d0,0.0d0) + + write(*,"(a)",advance="no") "-- Running test 'ZGEMM_STRIDED_BATCHED' (Fortran 2008 interfaces) - " + + ! hipBLAS defaults to host pointer mode: no set-pointer-mode call needed + call hipblasCheck(hipblasCreate(handle)) + + lda = m; ldb = k; ldc = m + stride_a = int(lda,c_int64_t)*k + stride_b = int(ldb,c_int64_t)*n + stride_c = int(ldc,c_int64_t)*n + size_a = int(stride_a)*batch_count + size_b = int(stride_b)*batch_count + size_c = int(stride_c)*batch_count + + allocate(ha(size_a)) + allocate(hb(size_b)) + allocate(hc(size_c)) + allocate(hc_exact(0:batch_count-1)) + + ! Constant matrices with a distinct per-batch value so the exact answer is + ! a distinct constant per batch. A is held constant; B varies per batch. + ha(:) = (1.0d0,0.0d0) + do b = 0, batch_count-1 + hb(b*stride_b+1 : (b+1)*stride_b) = cmplx(b+1,0.0d0,kind=8) + hc(b*stride_c+1 : (b+1)*stride_c) = (3.0d0,0.0d0) + hc_exact(b) = alpha*k*cmplx(b+1,0.0d0,kind=8) + beta*(3.0d0,0.0d0) + end do + + ! Allocate device memory + call hipCheck(hipMalloc(da,source=ha)) ! implies (blocking) memcpy + call hipCheck(hipMalloc(db,source=hb)) + call hipCheck(hipMalloc(dc,source=hc)) + + call hipblasCheck(hipblasZgemmStridedBatched(handle,transa,transb,m,n,k, & + alpha,da,lda,stride_a,db,ldb,stride_b,beta,dc,ldc,stride_c,batch_count)) + + call hipCheck(hipDeviceSynchronize()) + + ! Transfer data back to host memory + call hipCheck(hipMemcpy(hc, dc, hipMemcpyDeviceToHost)) + + do b = 0, batch_count-1 + do i = 1, int(stride_c) + error = abs((hc_exact(b) - hc(b*stride_c+i))/hc_exact(b)) + if( error > error_max )then + write(*,*) "FAILED! Error bigger than max! batch = ", b, " error = ", error + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(da)) + call hipCheck(hipFree(db)) + call hipCheck(hipFree(dc)) + + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(ha) + deallocate(hb) + deallocate(hc) + deallocate(hc_exact) + deallocate(alpha) + deallocate(beta) + + write(*,*) "PASSED!" + +end program hip_zgemm_strided_batched diff --git a/bindings/fortran/hipblas/test/zgemm_strided_batched_devptr.f03 b/bindings/fortran/hipblas/test/zgemm_strided_batched_devptr.f03 new file mode 100644 index 000000000000..569888e77dc9 --- /dev/null +++ b/bindings/fortran/hipblas/test/zgemm_strided_batched_devptr.f03 @@ -0,0 +1,142 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_zgemm_strided_batched + + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(kind(HIPBLAS_OP_N)), parameter :: transa = HIPBLAS_OP_N, transb = HIPBLAS_OP_N + complex(kind=8), allocatable, target :: alpha, beta + + ! Device-resident copies of the dual-mode scalars; the library reads them + ! from device memory because the handle is in device pointer mode. + type(c_ptr) :: d_alpha = c_null_ptr + type(c_ptr) :: d_beta = c_null_ptr + + integer, parameter :: m = 256, n = 256, k = 256, batch_count = 4 + integer, parameter :: bytes_per_element = 16 ! 2x double + integer :: lda, ldb, ldc, i, b + integer(c_int64_t) :: stride_a, stride_b, stride_c + integer :: size_a, size_b, size_c + integer(c_size_t) :: Nabytes, Nbbytes, Ncbytes + + complex(kind=8), allocatable, target, dimension(:) :: ha, hb, hc + complex(kind=8), allocatable, dimension(:) :: hc_exact ! one value per batch + + type(c_ptr) :: da = c_null_ptr, db = c_null_ptr, dc = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + + double precision :: error + double precision, parameter :: error_max = 10*epsilon(error) + ! On the heap, so 16-byte aligned: the CUDA backend accesses a + ! cuDoubleComplex scalar with an aligned load or store. + allocate(alpha, beta) + alpha = (1.1d0,0.0d0) + beta = (0.9d0,0.0d0) + + write(*,"(a)",advance="no") "-- Running test 'ZGEMM_STRIDED_BATCHED_devptr' (Fortran 2003 interfaces) - " + + ! hipBLAS defaults to host pointer mode: no set-pointer-mode call needed + call hipblasCheck(hipblasCreate(handle)) + + ! Switch to device pointer mode and stage the scalars in device memory + call hipblasCheck(hipblasSetPointerMode(handle, HIPBLAS_POINTER_MODE_DEVICE)) + call hipCheck(hipMalloc(d_alpha, 16_c_size_t)) + call hipCheck(hipMalloc(d_beta, 16_c_size_t)) + call hipCheck(hipMemcpy(d_alpha, c_loc(alpha), 16_c_size_t, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(d_beta, c_loc(beta), 16_c_size_t, hipMemcpyHostToDevice)) + + lda = m; ldb = k; ldc = m + stride_a = int(lda,c_int64_t)*k + stride_b = int(ldb,c_int64_t)*n + stride_c = int(ldc,c_int64_t)*n + size_a = int(stride_a)*batch_count; Nabytes = size_a*bytes_per_element + size_b = int(stride_b)*batch_count; Nbbytes = size_b*bytes_per_element + size_c = int(stride_c)*batch_count; Ncbytes = size_c*bytes_per_element + + allocate(ha(size_a)) + allocate(hb(size_b)) + allocate(hc(size_c)) + allocate(hc_exact(0:batch_count-1)) + + ! Constant matrices with a distinct per-batch value so the exact answer is + ! a distinct constant per batch. A is held constant; B varies per batch. + ha(:) = (1.0d0,0.0d0) + do b = 0, batch_count-1 + hb(b*stride_b+1 : (b+1)*stride_b) = cmplx(b+1,0.0d0,kind=8) + hc(b*stride_c+1 : (b+1)*stride_c) = (3.0d0,0.0d0) + hc_exact(b) = alpha*k*cmplx(b+1,0.0d0,kind=8) + beta*(3.0d0,0.0d0) + end do + + ! Allocate device memory + call hipCheck(hipMalloc(da,Nabytes)) + call hipCheck(hipMalloc(db,Nbbytes)) + call hipCheck(hipMalloc(dc,Ncbytes)) + + ! Transfer from host to device + call hipCheck(hipMemcpy(da, c_loc(ha(1)), Nabytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(db, c_loc(hb(1)), Nbbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dc, c_loc(hc(1)), Ncbytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasZgemmStridedBatched(handle,transa,transb,m,n,k, & + d_alpha,da,lda,stride_a,db,ldb,stride_b,d_beta,dc,ldc,stride_c,batch_count)) + + call hipCheck(hipDeviceSynchronize()) + + ! Transfer data back to host memory + call hipCheck(hipMemcpy(c_loc(hc(1)), dc, Ncbytes, hipMemcpyDeviceToHost)) + + do b = 0, batch_count-1 + do i = 1, int(stride_c) + error = abs((hc_exact(b) - hc(b*stride_c+i))/hc_exact(b)) + if( error > error_max )then + write(*,*) "FAILED! Error bigger than max! batch = ", b, " error = ", error + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(da)) + call hipCheck(hipFree(db)) + call hipCheck(hipFree(dc)) + + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(ha) + deallocate(hb) + deallocate(hc) + deallocate(hc_exact) + deallocate(alpha) + deallocate(beta) + + call hipCheck(hipFree(d_alpha)) + call hipCheck(hipFree(d_beta)) + write(*,*) "PASSED!" + +end program hip_zgemm_strided_batched diff --git a/bindings/fortran/hipblas/test/zgemm_trans.f03 b/bindings/fortran/hipblas/test/zgemm_trans.f03 new file mode 100644 index 000000000000..51e12e6734f9 --- /dev/null +++ b/bindings/fortran/hipblas/test/zgemm_trans.f03 @@ -0,0 +1,157 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hipblas_zgemm_trans_test + + ! hipblasZgemm with every transa/transb combination. The matrices are rectangular, + ! padded (ld > rows) and filled with varying values, so that a swapped dimension, + ! a wrong leading dimension, a wrong operation constant or a missed conjugation + ! all change the result. The padding rows of C must come back untouched. + + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(kind(HIPBLAS_OP_N)), parameter :: ops(3) = [HIPBLAS_OP_N, & + HIPBLAS_OP_T, HIPBLAS_OP_C] + character(len=1), parameter :: op_names(3) = ['N', 'T', 'C'] + integer, parameter :: m = 37, n = 23, k = 19, pad = 3 + complex(c_double_complex), allocatable, target :: alpha, beta + + complex(c_double_complex), allocatable, target :: hA(:,:), hB(:,:), hC(:,:) + complex(c_double_complex), allocatable :: hC0(:,:), opA(:,:), opB(:,:), hC_ref(:,:) + type(c_ptr) :: dA = c_null_ptr, dB = c_null_ptr, dC = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + integer(c_size_t), parameter :: elem = 16 + + integer :: ia, ib, i, j, rows_a, cols_a, rows_b, cols_b, lda, ldb, ldc + real(c_double) :: error, error_max + ! On the heap, so 16-byte aligned: the CUDA backend accesses a + ! cuDoubleComplex scalar with an aligned load or store. + allocate(alpha, beta) + alpha = (1.5_c_double, -0.5_c_double) + beta = (0.5_c_double, 0.25_c_double) + + write(*,"(a)",advance="no") "-- Running test 'ZGEMM transposes' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + call hipblasCheck(hipblasSetPointerMode(handle, HIPBLAS_POINTER_MODE_HOST)) + + error_max = 100 * epsilon(error) * (abs(alpha) * k + abs(beta)) + + do ia = 1, 3 + do ib = 1, 3 + ! op(A) is m x k and op(B) is k x n + if (ops(ia) == HIPBLAS_OP_N) then + rows_a = m; cols_a = k + else + rows_a = k; cols_a = m + end if + if (ops(ib) == HIPBLAS_OP_N) then + rows_b = k; cols_b = n + else + rows_b = n; cols_b = k + end if + lda = rows_a + pad; ldb = rows_b + pad; ldc = m + pad + + allocate(hA(lda, cols_a), hB(ldb, cols_b), hC(ldc, n)) + do j = 1, cols_a + do i = 1, lda + hA(i,j) = fill(i, j, 1) + end do + end do + do j = 1, cols_b + do i = 1, ldb + hB(i,j) = fill(i, j, 2) + end do + end do + do j = 1, n + do i = 1, ldc + hC(i,j) = fill(i, j, 3) + end do + end do + hC0 = hC + + call hipCheck(hipMalloc(dA, size(hA, kind=c_size_t) * elem)) + call hipCheck(hipMalloc(dB, size(hB, kind=c_size_t) * elem)) + call hipCheck(hipMalloc(dC, size(hC, kind=c_size_t) * elem)) + call hipCheck(hipMemcpy(dA, c_loc(hA(1,1)), size(hA, kind=c_size_t) * elem, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dB, c_loc(hB(1,1)), size(hB, kind=c_size_t) * elem, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dC, c_loc(hC(1,1)), size(hC, kind=c_size_t) * elem, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasZgemm(handle, ops(ia), ops(ib), m, n, k, c_loc(alpha), dA, lda, dB, ldb, & + c_loc(beta), dC, ldc)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(c_loc(hC(1,1)), dC, size(hC, kind=c_size_t) * elem, hipMemcpyDeviceToHost)) + + if (ops(ia) == HIPBLAS_OP_N) then + opA = hA(1:m, 1:k) + else + opA = transpose(hA(1:k, 1:m)) + if (ops(ia) == HIPBLAS_OP_C) opA = conjg(opA) + end if + if (ops(ib) == HIPBLAS_OP_N) then + opB = hB(1:k, 1:n) + else + opB = transpose(hB(1:n, 1:k)) + if (ops(ib) == HIPBLAS_OP_C) opB = conjg(opB) + end if + hC_ref = alpha * matmul(opA, opB) + beta * hC0(1:m, 1:n) + + error = maxval(abs(hC(1:m, 1:n) - hC_ref)) + if (error > error_max) then + write(*,*) "FAILED! transa = ", op_names(ia), " transb = ", op_names(ib), " error = ", error + call exit(1) + end if + if (any(hC(m+1:ldc, :) /= hC0(m+1:ldc, :))) then + write(*,*) "FAILED! transa = ", op_names(ia), " transb = ", op_names(ib), " wrote past m in C" + call exit(1) + end if + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dB)) + call hipCheck(hipFree(dC)) + deallocate(hA, hB, hC, hC0, opA, opB, hC_ref) + end do + end do + + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(alpha, beta) + + write(*,*) "PASSED!" + +contains + + ! Varying small multiples of 1/8, so every product and sum below is exact. + complex(c_double_complex) function fill(i, j, s) + integer, intent(in) :: i, j, s + fill = cmplx(real(mod(7*i + 3*j + s, 13) - 6, c_double) / 8, & + real(mod(5*i + 11*j + s, 17) - 8, c_double) / 8, c_double) + end function fill + +end program hipblas_zgemm_trans_test diff --git a/bindings/fortran/hipblas/test/zgemm_trans.f08 b/bindings/fortran/hipblas/test/zgemm_trans.f08 new file mode 100644 index 000000000000..e7d71ddc0c21 --- /dev/null +++ b/bindings/fortran/hipblas/test/zgemm_trans.f08 @@ -0,0 +1,152 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hipblas_zgemm_trans_test + + ! hipblasZgemm with every transa/transb combination. The matrices are rectangular, + ! padded (ld > rows) and filled with varying values, so that a swapped dimension, + ! a wrong leading dimension, a wrong operation constant or a missed conjugation + ! all change the result. The padding rows of C must come back untouched. + + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(kind(HIPBLAS_OP_N)), parameter :: ops(3) = [HIPBLAS_OP_N, & + HIPBLAS_OP_T, HIPBLAS_OP_C] + character(len=1), parameter :: op_names(3) = ['N', 'T', 'C'] + integer, parameter :: m = 37, n = 23, k = 19, pad = 3 + complex(c_double_complex), allocatable, target :: alpha, beta + + complex(c_double_complex), allocatable :: hA(:,:), hB(:,:), hC(:,:) + complex(c_double_complex), allocatable :: hC0(:,:), opA(:,:), opB(:,:), hC_ref(:,:) + complex(c_double_complex), pointer, dimension(:,:) :: dA, dB, dC + type(c_ptr) :: handle = c_null_ptr + + integer :: ia, ib, i, j, rows_a, cols_a, rows_b, cols_b, lda, ldb, ldc + real(c_double) :: error, error_max + ! On the heap, so 16-byte aligned: the CUDA backend accesses a + ! cuDoubleComplex scalar with an aligned load or store. + allocate(alpha, beta) + alpha = (1.5_c_double, -0.5_c_double) + beta = (0.5_c_double, 0.25_c_double) + + write(*,"(a)",advance="no") "-- Running test 'ZGEMM transposes' (Fortran 2008 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + call hipblasCheck(hipblasSetPointerMode(handle, HIPBLAS_POINTER_MODE_HOST)) + + error_max = 100 * epsilon(error) * (abs(alpha) * k + abs(beta)) + + do ia = 1, 3 + do ib = 1, 3 + ! op(A) is m x k and op(B) is k x n + if (ops(ia) == HIPBLAS_OP_N) then + rows_a = m; cols_a = k + else + rows_a = k; cols_a = m + end if + if (ops(ib) == HIPBLAS_OP_N) then + rows_b = k; cols_b = n + else + rows_b = n; cols_b = k + end if + lda = rows_a + pad; ldb = rows_b + pad; ldc = m + pad + + allocate(hA(lda, cols_a), hB(ldb, cols_b), hC(ldc, n)) + do j = 1, cols_a + do i = 1, lda + hA(i,j) = fill(i, j, 1) + end do + end do + do j = 1, cols_b + do i = 1, ldb + hB(i,j) = fill(i, j, 2) + end do + end do + do j = 1, n + do i = 1, ldc + hC(i,j) = fill(i, j, 3) + end do + end do + hC0 = hC + + call hipCheck(hipMalloc(dA, source=hA)) + call hipCheck(hipMalloc(dB, source=hB)) + call hipCheck(hipMalloc(dC, source=hC)) + + call hipblasCheck(hipblasZgemm(handle, ops(ia), ops(ib), m, n, k, alpha, dA, lda, dB, ldb, beta, dC, ldc)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(hC, dC, hipMemcpyDeviceToHost)) + + if (ops(ia) == HIPBLAS_OP_N) then + opA = hA(1:m, 1:k) + else + opA = transpose(hA(1:k, 1:m)) + if (ops(ia) == HIPBLAS_OP_C) opA = conjg(opA) + end if + if (ops(ib) == HIPBLAS_OP_N) then + opB = hB(1:k, 1:n) + else + opB = transpose(hB(1:n, 1:k)) + if (ops(ib) == HIPBLAS_OP_C) opB = conjg(opB) + end if + hC_ref = alpha * matmul(opA, opB) + beta * hC0(1:m, 1:n) + + error = maxval(abs(hC(1:m, 1:n) - hC_ref)) + if (error > error_max) then + write(*,*) "FAILED! transa = ", op_names(ia), " transb = ", op_names(ib), " error = ", error + call exit(1) + end if + if (any(hC(m+1:ldc, :) /= hC0(m+1:ldc, :))) then + write(*,*) "FAILED! transa = ", op_names(ia), " transb = ", op_names(ib), " wrote past m in C" + call exit(1) + end if + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dB)) + call hipCheck(hipFree(dC)) + deallocate(hA, hB, hC, hC0, opA, opB, hC_ref) + end do + end do + + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(alpha, beta) + + write(*,*) "PASSED!" + +contains + + ! Varying small multiples of 1/8, so every product and sum below is exact. + complex(c_double_complex) function fill(i, j, s) + integer, intent(in) :: i, j, s + fill = cmplx(real(mod(7*i + 3*j + s, 13) - 6, c_double) / 8, & + real(mod(5*i + 11*j + s, 17) - 8, c_double) / 8, c_double) + end function fill + +end program hipblas_zgemm_trans_test diff --git a/bindings/fortran/hipblas/test/zgemv.f03 b/bindings/fortran/hipblas/test/zgemv.f03 new file mode 100644 index 000000000000..236c3e96dc03 --- /dev/null +++ b/bindings/fortran/hipblas/test/zgemv.f03 @@ -0,0 +1,87 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hipblas_zgemv_test + use iso_c_binding + use hip + use hipblas + + implicit none + + complex(kind=8), allocatable, target :: alpha, beta + integer, parameter :: m = 512, n = 512 + integer, parameter :: bytes_per_element = 16 + integer(c_size_t) :: NAbytes, Nxbytes, Nybytes + complex(kind=8), allocatable, target, dimension(:) :: hA, hx, hy + complex(kind=8) :: y_exact + double precision :: error + double precision, parameter :: error_max = 10*epsilon(error) + type(c_ptr) :: dA = c_null_ptr, dx = c_null_ptr, dy = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + integer :: i + ! On the heap, so 16-byte aligned: the CUDA backend accesses a + ! cuDoubleComplex scalar with an aligned load or store. + allocate(alpha, beta) + alpha = (1.1d0, 0.0d0) + beta = (0.9d0, 0.0d0) + + write(*,"(a)",advance="no") "-- Running test 'ZGEMV' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + NAbytes = int(m*n, c_size_t) * bytes_per_element + Nxbytes = int(n, c_size_t) * bytes_per_element + Nybytes = int(m, c_size_t) * bytes_per_element + allocate(hA(m*n), hx(n), hy(m)) + hA = (1.d0, 0.d0); hx = (1.d0, 0.d0); hy = (1.d0, 0.d0) + y_exact = alpha * n + beta + + call hipCheck(hipMalloc(dA, NAbytes)) + call hipCheck(hipMalloc(dx, Nxbytes)) + call hipCheck(hipMalloc(dy, Nybytes)) + call hipCheck(hipMemcpy(dA, c_loc(hA(1)), NAbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dx, c_loc(hx(1)), Nxbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dy, c_loc(hy(1)), Nybytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasZgemv(handle, HIPBLAS_OP_N, m, n, c_loc(alpha), dA, m, dx, 1, c_loc(beta), dy, 1)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(c_loc(hy(1)), dy, Nybytes, hipMemcpyDeviceToHost)) + + do i = 1, m + error = abs((y_exact - hy(i)) / y_exact) + if (error > error_max) then + write(*,*) "FAILED! Error bigger than max! Error = ", error + call exit(1) + end if + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dx)) + call hipCheck(hipFree(dy)) + call hipblasCheck(hipblasDestroy(handle)) + deallocate(hA, hx, hy, alpha, beta) + write(*,*) "PASSED!" + +end program hipblas_zgemv_test diff --git a/bindings/fortran/hipblas/test/zgemv.f08 b/bindings/fortran/hipblas/test/zgemv.f08 new file mode 100644 index 000000000000..e938e4bd19b6 --- /dev/null +++ b/bindings/fortran/hipblas/test/zgemv.f08 @@ -0,0 +1,83 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hipblas_zgemv_test + use iso_c_binding + use hip + use hipblas + + implicit none + + complex(kind=8), allocatable, target :: alpha, beta + integer, parameter :: m = 512, n = 512 + + complex(kind=8), allocatable, target, dimension(:,:) :: hA + complex(kind=8), allocatable, target, dimension(:) :: hx, hy + complex(kind=8), pointer, dimension(:,:) :: dA + complex(kind=8), pointer, dimension(:) :: dx, dy + type(c_ptr) :: handle = c_null_ptr + + complex(kind=8) :: y_exact + double precision :: error + double precision, parameter :: error_max = 10*epsilon(error) + integer :: i + ! On the heap, so 16-byte aligned: the CUDA backend accesses a + ! cuDoubleComplex scalar with an aligned load or store. + allocate(alpha, beta) + alpha = (1.1d0, 0.0d0) + beta = (0.9d0, 0.0d0) + + write(*,"(a)",advance="no") "-- Running test 'ZGEMV' (Fortran 2008 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + allocate(hA(m,n), hx(n), hy(m)) + hA = (1.d0, 0.d0); hx = (1.d0, 0.d0); hy = (1.d0, 0.d0) + y_exact = alpha * n + beta + + call hipCheck(hipMalloc(dA, source=hA)) + call hipCheck(hipMalloc(dx, source=hx)) + call hipCheck(hipMalloc(dy, source=hy)) + + call hipblasCheck(hipblasZgemv(handle, HIPBLAS_OP_N, m, n, alpha, dA, size(dA,1), dx, 1, beta, dy, 1)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(hy, dy, hipMemcpyDeviceToHost)) + + do i = 1, m + error = abs((y_exact - hy(i)) / y_exact) + if (error > error_max) then + write(*,*) "FAILED! Error bigger than max! Error = ", error + call exit(1) + end if + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dx)) + call hipCheck(hipFree(dy)) + call hipblasCheck(hipblasDestroy(handle)) + deallocate(hA, hx, hy, alpha, beta) + write(*,*) "PASSED!" + +end program hipblas_zgemv_test diff --git a/bindings/fortran/hipblas/test/zgemv_devptr.f03 b/bindings/fortran/hipblas/test/zgemv_devptr.f03 new file mode 100644 index 000000000000..401e1fab7608 --- /dev/null +++ b/bindings/fortran/hipblas/test/zgemv_devptr.f03 @@ -0,0 +1,101 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hipblas_zgemv_test + use iso_c_binding + use hip + use hipblas + + implicit none + + complex(kind=8), allocatable, target :: alpha, beta + + ! Device-resident copies of the dual-mode scalars; the library reads them + ! from device memory because the handle is in device pointer mode. + type(c_ptr) :: d_alpha = c_null_ptr + type(c_ptr) :: d_beta = c_null_ptr + integer, parameter :: m = 512, n = 512 + integer, parameter :: bytes_per_element = 16 + integer(c_size_t) :: NAbytes, Nxbytes, Nybytes + complex(kind=8), allocatable, target, dimension(:) :: hA, hx, hy + complex(kind=8) :: y_exact + double precision :: error + double precision, parameter :: error_max = 10*epsilon(error) + type(c_ptr) :: dA = c_null_ptr, dx = c_null_ptr, dy = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + integer :: i + ! On the heap, so 16-byte aligned: the CUDA backend accesses a + ! cuDoubleComplex scalar with an aligned load or store. + allocate(alpha, beta) + alpha = (1.1d0, 0.0d0) + beta = (0.9d0, 0.0d0) + + write(*,"(a)",advance="no") "-- Running test 'ZGEMV_devptr' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + ! Switch to device pointer mode and stage the scalars in device memory + call hipblasCheck(hipblasSetPointerMode(handle, HIPBLAS_POINTER_MODE_DEVICE)) + call hipCheck(hipMalloc(d_alpha, 16_c_size_t)) + call hipCheck(hipMalloc(d_beta, 16_c_size_t)) + call hipCheck(hipMemcpy(d_alpha, c_loc(alpha), 16_c_size_t, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(d_beta, c_loc(beta), 16_c_size_t, hipMemcpyHostToDevice)) + + NAbytes = int(m*n, c_size_t) * bytes_per_element + Nxbytes = int(n, c_size_t) * bytes_per_element + Nybytes = int(m, c_size_t) * bytes_per_element + allocate(hA(m*n), hx(n), hy(m)) + hA = (1.d0, 0.d0); hx = (1.d0, 0.d0); hy = (1.d0, 0.d0) + y_exact = alpha * n + beta + + call hipCheck(hipMalloc(dA, NAbytes)) + call hipCheck(hipMalloc(dx, Nxbytes)) + call hipCheck(hipMalloc(dy, Nybytes)) + call hipCheck(hipMemcpy(dA, c_loc(hA(1)), NAbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dx, c_loc(hx(1)), Nxbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dy, c_loc(hy(1)), Nybytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasZgemv(handle, HIPBLAS_OP_N, m, n, d_alpha, dA, m, dx, 1, d_beta, dy, 1)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(c_loc(hy(1)), dy, Nybytes, hipMemcpyDeviceToHost)) + + do i = 1, m + error = abs((y_exact - hy(i)) / y_exact) + if (error > error_max) then + write(*,*) "FAILED! Error bigger than max! Error = ", error + call exit(1) + end if + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dx)) + call hipCheck(hipFree(dy)) + call hipblasCheck(hipblasDestroy(handle)) + deallocate(hA, hx, hy, alpha, beta) + call hipCheck(hipFree(d_alpha)) + call hipCheck(hipFree(d_beta)) + write(*,*) "PASSED!" + +end program hipblas_zgemv_test diff --git a/bindings/fortran/hipblas/test/zgemv_trans.f03 b/bindings/fortran/hipblas/test/zgemv_trans.f03 new file mode 100644 index 000000000000..de3434ed8dca --- /dev/null +++ b/bindings/fortran/hipblas/test/zgemv_trans.f03 @@ -0,0 +1,148 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hipblas_zgemv_trans_test + + ! hipblasZgemv with every trans value. A is rectangular and padded (lda > m), x and y + ! use different non-unit increments and the values vary, so that a + ! swapped dimension or increment, a wrong leading dimension, a wrong operation + ! constant or a missed conjugation all change the result. The entries of y + ! between the strided ones must come back untouched. + + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(kind(HIPBLAS_OP_N)), parameter :: ops(3) = [HIPBLAS_OP_N, & + HIPBLAS_OP_T, HIPBLAS_OP_C] + character(len=1), parameter :: op_names(3) = ['N', 'T', 'C'] + integer, parameter :: m = 37, n = 23, pad = 3, incx = 2, incy = 3 + integer, parameter :: lda = m + pad + complex(c_double_complex), allocatable, target :: alpha, beta + + complex(c_double_complex), allocatable, target :: hA(:,:), hx(:), hy(:) + complex(c_double_complex), allocatable :: hy0(:), opA(:,:), y_ref(:), mask_ref(:) + type(c_ptr) :: dA = c_null_ptr, dx = c_null_ptr, dy = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + integer(c_size_t), parameter :: elem = 16 + + integer :: it, i, j, lx, ly + real(c_double) :: error, error_max + ! On the heap, so 16-byte aligned: the CUDA backend accesses a + ! cuDoubleComplex scalar with an aligned load or store. + allocate(alpha, beta) + alpha = (1.5_c_double, -0.5_c_double) + beta = (0.5_c_double, 0.25_c_double) + + write(*,"(a)",advance="no") "-- Running test 'ZGEMV transposes' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + call hipblasCheck(hipblasSetPointerMode(handle, HIPBLAS_POINTER_MODE_HOST)) + + error_max = 100 * epsilon(error) * (abs(alpha) * max(m, n) + abs(beta)) + + allocate(hA(lda, n)) + do j = 1, n + do i = 1, lda + hA(i,j) = fill(i, j, 1) + end do + end do + + do it = 1, 3 + ! op(A) is ly x lx + if (ops(it) == HIPBLAS_OP_N) then + lx = n; ly = m + else + lx = m; ly = n + end if + + allocate(hx(1 + (lx-1)*incx), hy(1 + (ly-1)*incy)) + do i = 1, size(hx) + hx(i) = fill(i, 1, 2) + end do + do i = 1, size(hy) + hy(i) = fill(i, 1, 3) + end do + hy0 = hy + + call hipCheck(hipMalloc(dA, size(hA, kind=c_size_t) * elem)) + call hipCheck(hipMalloc(dx, size(hx, kind=c_size_t) * elem)) + call hipCheck(hipMalloc(dy, size(hy, kind=c_size_t) * elem)) + call hipCheck(hipMemcpy(dA, c_loc(hA(1,1)), size(hA, kind=c_size_t) * elem, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dx, c_loc(hx(1)), size(hx, kind=c_size_t) * elem, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dy, c_loc(hy(1)), size(hy, kind=c_size_t) * elem, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasZgemv(handle, ops(it), m, n, c_loc(alpha), dA, lda, dx, incx, & + c_loc(beta), dy, incy)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(c_loc(hy(1)), dy, size(hy, kind=c_size_t) * elem, hipMemcpyDeviceToHost)) + + if (ops(it) == HIPBLAS_OP_N) then + opA = hA(1:m, 1:n) + else + opA = transpose(hA(1:m, 1:n)) + if (ops(it) == HIPBLAS_OP_C) opA = conjg(opA) + end if + y_ref = alpha * matmul(opA, hx(1::incx)) + beta * hy0(1::incy) + + error = maxval(abs(hy(1::incy) - y_ref)) + if (error > error_max) then + write(*,*) "FAILED! trans = ", op_names(it), " error = ", error + call exit(1) + end if + ! the strided writes must leave the entries in between alone + mask_ref = hy0 + mask_ref(1::incy) = hy(1::incy) + if (any(hy /= mask_ref)) then + write(*,*) "FAILED! trans = ", op_names(it), " wrote between the strided entries of y" + call exit(1) + end if + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dx)) + call hipCheck(hipFree(dy)) + deallocate(hx, hy, hy0, opA, y_ref, mask_ref) + end do + + deallocate(hA) + deallocate(alpha) + deallocate(beta) + + call hipblasCheck(hipblasDestroy(handle)) + + write(*,*) "PASSED!" + +contains + + ! Varying small multiples of 1/8, so every product and sum below is exact. + complex(c_double_complex) function fill(i, j, s) + integer, intent(in) :: i, j, s + fill = cmplx(real(mod(7*i + 3*j + s, 13) - 6, c_double) / 8, & + real(mod(5*i + 11*j + s, 17) - 8, c_double) / 8, c_double) + end function fill + +end program hipblas_zgemv_trans_test diff --git a/bindings/fortran/hipblas/test/zgemv_trans.f08 b/bindings/fortran/hipblas/test/zgemv_trans.f08 new file mode 100644 index 000000000000..3d36551c3702 --- /dev/null +++ b/bindings/fortran/hipblas/test/zgemv_trans.f08 @@ -0,0 +1,144 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hipblas_zgemv_trans_test + + ! hipblasZgemv with every trans value. A is rectangular and padded (lda > m), x and y + ! use different non-unit increments and the values vary, so that a + ! swapped dimension or increment, a wrong leading dimension, a wrong operation + ! constant or a missed conjugation all change the result. The entries of y + ! between the strided ones must come back untouched. + + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(kind(HIPBLAS_OP_N)), parameter :: ops(3) = [HIPBLAS_OP_N, & + HIPBLAS_OP_T, HIPBLAS_OP_C] + character(len=1), parameter :: op_names(3) = ['N', 'T', 'C'] + integer, parameter :: m = 37, n = 23, pad = 3, incx = 2, incy = 3 + integer, parameter :: lda = m + pad + complex(c_double_complex), allocatable, target :: alpha, beta + + complex(c_double_complex), allocatable :: hA(:,:), hx(:), hy(:) + complex(c_double_complex), allocatable :: hy0(:), opA(:,:), y_ref(:), mask_ref(:) + complex(c_double_complex), pointer, dimension(:,:) :: dA + complex(c_double_complex), pointer, dimension(:) :: dx, dy + type(c_ptr) :: handle = c_null_ptr + + integer :: it, i, j, lx, ly + real(c_double) :: error, error_max + ! On the heap, so 16-byte aligned: the CUDA backend accesses a + ! cuDoubleComplex scalar with an aligned load or store. + allocate(alpha, beta) + alpha = (1.5_c_double, -0.5_c_double) + beta = (0.5_c_double, 0.25_c_double) + + write(*,"(a)",advance="no") "-- Running test 'ZGEMV transposes' (Fortran 2008 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + call hipblasCheck(hipblasSetPointerMode(handle, HIPBLAS_POINTER_MODE_HOST)) + + error_max = 100 * epsilon(error) * (abs(alpha) * max(m, n) + abs(beta)) + + allocate(hA(lda, n)) + do j = 1, n + do i = 1, lda + hA(i,j) = fill(i, j, 1) + end do + end do + + do it = 1, 3 + ! op(A) is ly x lx + if (ops(it) == HIPBLAS_OP_N) then + lx = n; ly = m + else + lx = m; ly = n + end if + + allocate(hx(1 + (lx-1)*incx), hy(1 + (ly-1)*incy)) + do i = 1, size(hx) + hx(i) = fill(i, 1, 2) + end do + do i = 1, size(hy) + hy(i) = fill(i, 1, 3) + end do + hy0 = hy + + call hipCheck(hipMalloc(dA, source=hA)) + call hipCheck(hipMalloc(dx, source=hx)) + call hipCheck(hipMalloc(dy, source=hy)) + + call hipblasCheck(hipblasZgemv(handle, ops(it), m, n, alpha, dA, lda, dx, incx, beta, dy, incy)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(hy, dy, hipMemcpyDeviceToHost)) + + if (ops(it) == HIPBLAS_OP_N) then + opA = hA(1:m, 1:n) + else + opA = transpose(hA(1:m, 1:n)) + if (ops(it) == HIPBLAS_OP_C) opA = conjg(opA) + end if + y_ref = alpha * matmul(opA, hx(1::incx)) + beta * hy0(1::incy) + + error = maxval(abs(hy(1::incy) - y_ref)) + if (error > error_max) then + write(*,*) "FAILED! trans = ", op_names(it), " error = ", error + call exit(1) + end if + ! the strided writes must leave the entries in between alone + mask_ref = hy0 + mask_ref(1::incy) = hy(1::incy) + if (any(hy /= mask_ref)) then + write(*,*) "FAILED! trans = ", op_names(it), " wrote between the strided entries of y" + call exit(1) + end if + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dx)) + call hipCheck(hipFree(dy)) + deallocate(hx, hy, hy0, opA, y_ref, mask_ref) + end do + + deallocate(hA) + deallocate(alpha) + deallocate(beta) + + call hipblasCheck(hipblasDestroy(handle)) + + write(*,*) "PASSED!" + +contains + + ! Varying small multiples of 1/8, so every product and sum below is exact. + complex(c_double_complex) function fill(i, j, s) + integer, intent(in) :: i, j, s + fill = cmplx(real(mod(7*i + 3*j + s, 13) - 6, c_double) / 8, & + real(mod(5*i + 11*j + s, 17) - 8, c_double) / 8, c_double) + end function fill + +end program hipblas_zgemv_trans_test diff --git a/bindings/fortran/hipblas/test/zsymm.f03 b/bindings/fortran/hipblas/test/zsymm.f03 new file mode 100644 index 000000000000..22a6d74062aa --- /dev/null +++ b/bindings/fortran/hipblas/test/zsymm.f03 @@ -0,0 +1,103 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_zsymm + use iso_c_binding + use hip + use hipblas + + implicit none + + ! C := alpha*A*B + beta*C with A symmetric (upper triangle referenced) on the left. + ! B is m x n with m /= n and A(2,1) holds junk, so swapping A and B, the side + ! or the triangle changes the result. + integer, parameter :: m = 2, n = 3 + integer(c_size_t) :: Nbytes + complex(c_double_complex), allocatable, target :: alpha, beta + + complex(c_double_complex), target :: hA(m,m) = reshape([(1.0, 1.0), (7.0, -7.0), (2.0, -1.0), (3.0, 0.5)], [m,m]) + complex(c_double_complex), target :: hB(m,n) = reshape([(1.0, 0.0), (4.0, 1.0), (2.0, -2.0), & + (5.0, 0.0), (3.0, 1.0), (-6.0, 0.0)], [m,n]) + complex(c_double_complex), target :: hC(m,n) + complex(c_double_complex) :: expected(m,n), Aref(m,m) + type(c_ptr) :: dA = c_null_ptr, dB = c_null_ptr, dC = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + integer :: i, j + real(c_double) :: error + real(c_double), parameter :: error_max = 10*epsilon(error) + ! On the heap, so 16-byte aligned: the CUDA backend accesses a + ! cuDoubleComplex scalar with an aligned load or store. + allocate(alpha, beta) + alpha = (1.0, 0.0) + beta = (0.0, 0.0) + + write(*,"(a)",advance="no") "-- Running test 'zsymm' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + hC = (0.0, 0.0) + + ! Host reference built from the upper triangle only, A(2,1) is junk + do j = 1, m + do i = 1, m + Aref(i,j) = hA(min(i,j), max(i,j)) + end do + end do + expected = alpha*matmul(Aref, hB) + + Nbytes = int(m*m, c_size_t) * 16 + call hipCheck(hipMalloc(dA, Nbytes)) + call hipCheck(hipMemcpy(dA, c_loc(hA(1,1)), Nbytes, hipMemcpyHostToDevice)) + Nbytes = int(m*n, c_size_t) * 16 + call hipCheck(hipMalloc(dB, Nbytes)) + call hipCheck(hipMemcpy(dB, c_loc(hB(1,1)), Nbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMalloc(dC, Nbytes)) + call hipCheck(hipMemcpy(dC, c_loc(hC(1,1)), Nbytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasZsymm(handle, HIPBLAS_SIDE_LEFT, HIPBLAS_FILL_MODE_UPPER, m, n, & + c_loc(alpha), dA, m, dB, m, c_loc(beta), dC, m)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(c_loc(hC(1,1)), dC, Nbytes, hipMemcpyDeviceToHost)) + + do j = 1, n + do i = 1, m + error = abs(expected(i,j) - hC(i,j)) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " at ", i, j + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dB)) + call hipCheck(hipFree(dC)) + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(alpha, beta) + + write(*,*) "PASSED!" + +end program hip_zsymm diff --git a/bindings/fortran/hipblas/test/zsymm.f08 b/bindings/fortran/hipblas/test/zsymm.f08 new file mode 100644 index 000000000000..fdbd1f40aa91 --- /dev/null +++ b/bindings/fortran/hipblas/test/zsymm.f08 @@ -0,0 +1,100 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_zsymm + use iso_c_binding + use hip + use hipblas + + implicit none + + ! C := alpha*A*B + beta*C with A symmetric (upper triangle referenced) on the left. + ! B is m x n with m /= n and A(2,1) holds junk, so swapping A and B, the side + ! or the triangle changes the result. + integer, parameter :: m = 2, n = 3 + complex(c_double_complex), allocatable, target :: alpha, beta + + complex(c_double_complex) :: hA(m,m) = reshape([(1.0, 1.0), (7.0, -7.0), (2.0, -1.0), (3.0, 0.5)], [m,m]) + complex(c_double_complex) :: hB(m,n) = reshape([(1.0, 0.0), (4.0, 1.0), (2.0, -2.0), & + (5.0, 0.0), (3.0, 1.0), (-6.0, 0.0)], [m,n]) + complex(c_double_complex) :: hC(m,n) + complex(c_double_complex) :: expected(m,n), Aref(m,m) + complex(c_double_complex), pointer, dimension(:,:) :: dA, dB, dC + type(c_ptr) :: handle = c_null_ptr + integer :: i, j + real(c_double) :: error + real(c_double), parameter :: error_max = 10*epsilon(error) + ! On the heap, so 16-byte aligned: the CUDA backend accesses a + ! cuDoubleComplex scalar with an aligned load or store. + allocate(alpha, beta) + alpha = (1.0, 0.0) + beta = (0.0, 0.0) + + write(*,"(a)",advance="no") "-- Running test 'zsymm' (Fortran 2008 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + hC = (0.0, 0.0) + + ! Host reference built from the upper triangle only, A(2,1) is junk + do j = 1, m + do i = 1, m + Aref(i,j) = hA(min(i,j), max(i,j)) + end do + end do + expected = alpha*matmul(Aref, hB) + + call hipCheck(hipMalloc(dA, shape(hA))) + call hipCheck(hipMemcpy(dA, hA, hipMemcpyHostToDevice)) + call hipCheck(hipMalloc(dB, shape(hB))) + call hipCheck(hipMemcpy(dB, hB, hipMemcpyHostToDevice)) + call hipCheck(hipMalloc(dC, shape(hC))) + call hipCheck(hipMemcpy(dC, hC, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasZsymm(handle, HIPBLAS_SIDE_LEFT, HIPBLAS_FILL_MODE_UPPER, m, n, & + alpha, dA, size(dA,1), dB, size(dB,1), beta, dC, size(dC,1))) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(hC, dC, hipMemcpyDeviceToHost)) + + do j = 1, n + do i = 1, m + error = abs(expected(i,j) - hC(i,j)) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " at ", i, j + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dB)) + call hipCheck(hipFree(dC)) + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(alpha, beta) + + write(*,*) "PASSED!" + +end program hip_zsymm diff --git a/bindings/fortran/hipblas/test/zsymm_devptr.f03 b/bindings/fortran/hipblas/test/zsymm_devptr.f03 new file mode 100644 index 000000000000..782b7af89f11 --- /dev/null +++ b/bindings/fortran/hipblas/test/zsymm_devptr.f03 @@ -0,0 +1,118 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_zsymm + use iso_c_binding + use hip + use hipblas + + implicit none + + ! C := alpha*A*B + beta*C with A symmetric (upper triangle referenced) on the left. + ! B is m x n with m /= n and A(2,1) holds junk, so swapping A and B, the side + ! or the triangle changes the result. + integer, parameter :: m = 2, n = 3 + integer(c_size_t) :: Nbytes + complex(c_double_complex), allocatable, target :: alpha, beta + + ! Device-resident copies of the dual-mode scalars; the library reads them + ! from device memory because the handle is in device pointer mode. + type(c_ptr) :: d_alpha = c_null_ptr + type(c_ptr) :: d_beta = c_null_ptr + + complex(c_double_complex), target :: hA(m,m) = reshape([(1.0, 1.0), (7.0, -7.0), (2.0, -1.0), (3.0, 0.5)], [m,m]) + complex(c_double_complex), target :: hB(m,n) = reshape([(1.0, 0.0), (4.0, 1.0), (2.0, -2.0), & + (5.0, 0.0), (3.0, 1.0), (-6.0, 0.0)], [m,n]) + complex(c_double_complex), target :: hC(m,n) + complex(c_double_complex) :: expected(m,n), Aref(m,m) + type(c_ptr) :: dA = c_null_ptr, dB = c_null_ptr, dC = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + integer :: i, j + real(c_double) :: error + real(c_double), parameter :: error_max = 10*epsilon(error) + ! On the heap, so 16-byte aligned: the CUDA backend accesses a + ! cuDoubleComplex scalar with an aligned load or store. + allocate(alpha, beta) + alpha = (1.0, 0.0) + beta = (0.0, 0.0) + + write(*,"(a)",advance="no") "-- Running test 'zsymm_devptr' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + ! Switch to device pointer mode and stage the scalars in device memory + call hipblasCheck(hipblasSetPointerMode(handle, HIPBLAS_POINTER_MODE_DEVICE)) + call hipCheck(hipMalloc(d_alpha, 16_c_size_t)) + call hipCheck(hipMalloc(d_beta, 16_c_size_t)) + call hipCheck(hipMemcpy(d_alpha, c_loc(alpha), 16_c_size_t, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(d_beta, c_loc(beta), 16_c_size_t, hipMemcpyHostToDevice)) + + hC = (0.0, 0.0) + + ! Host reference built from the upper triangle only, A(2,1) is junk + do j = 1, m + do i = 1, m + Aref(i,j) = hA(min(i,j), max(i,j)) + end do + end do + expected = alpha*matmul(Aref, hB) + + Nbytes = int(m*m, c_size_t) * 16 + call hipCheck(hipMalloc(dA, Nbytes)) + call hipCheck(hipMemcpy(dA, c_loc(hA(1,1)), Nbytes, hipMemcpyHostToDevice)) + Nbytes = int(m*n, c_size_t) * 16 + call hipCheck(hipMalloc(dB, Nbytes)) + call hipCheck(hipMemcpy(dB, c_loc(hB(1,1)), Nbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMalloc(dC, Nbytes)) + call hipCheck(hipMemcpy(dC, c_loc(hC(1,1)), Nbytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasZsymm(handle, HIPBLAS_SIDE_LEFT, HIPBLAS_FILL_MODE_UPPER, m, n, & + d_alpha, dA, m, dB, m, d_beta, dC, m)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(c_loc(hC(1,1)), dC, Nbytes, hipMemcpyDeviceToHost)) + + do j = 1, n + do i = 1, m + error = abs(expected(i,j) - hC(i,j)) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " at ", i, j + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dB)) + call hipCheck(hipFree(dC)) + call hipblasCheck(hipblasDestroy(handle)) + + call hipCheck(hipFree(d_alpha)) + call hipCheck(hipFree(d_beta)) + + deallocate(alpha, beta) + + write(*,*) "PASSED!" + +end program hip_zsymm diff --git a/bindings/fortran/hipblas/test/zsyrk.f03 b/bindings/fortran/hipblas/test/zsyrk.f03 new file mode 100644 index 000000000000..d75add984c84 --- /dev/null +++ b/bindings/fortran/hipblas/test/zsyrk.f03 @@ -0,0 +1,88 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_zsyrk + use iso_c_binding + use hip + use hipblas + + implicit none + + ! C := alpha*A*A**T + beta*C, upper triangle. A = [1 0; 2 3] gives + ! A*A**T = [1 2; 2 13], so the referenced upper triangle is 1, 2, 13. + integer, parameter :: ld = 2 + integer(c_size_t) :: Nbytes + complex(c_double_complex), allocatable, target :: alpha, beta + + complex(c_double_complex), target :: hA(ld,ld) = reshape([(1.0, 0.0), (2.0, 0.0), (0.0, 0.0), (3.0, 0.0)], [ld,ld]) + complex(c_double_complex), target :: hC(ld,ld) + complex(c_double_complex) :: expected(ld,ld) = reshape([(1.0, 0.0), (0.0, 0.0), (2.0, 0.0), (13.0, 0.0)], [ld,ld]) + type(c_ptr) :: dA = c_null_ptr, dC = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + integer :: i, j + real(c_double) :: error + real(c_double), parameter :: error_max = 10*epsilon(error) + ! On the heap, so 16-byte aligned: the CUDA backend accesses a + ! cuDoubleComplex scalar with an aligned load or store. + allocate(alpha, beta) + alpha = (1.0, 0.0) + beta = (0.0, 0.0) + + write(*,"(a)",advance="no") "-- Running test 'zsyrk' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + hC = (0.0, 0.0) + + Nbytes = int(ld*ld, c_size_t) * 16 + call hipCheck(hipMalloc(dA, Nbytes)) + call hipCheck(hipMemcpy(dA, c_loc(hA(1,1)), Nbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMalloc(dC, Nbytes)) + call hipCheck(hipMemcpy(dC, c_loc(hC(1,1)), Nbytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasZsyrk(handle, HIPBLAS_FILL_MODE_UPPER, HIPBLAS_OP_N, ld, ld, & + c_loc(alpha), dA, ld, c_loc(beta), dC, ld)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(c_loc(hC(1,1)), dC, Nbytes, hipMemcpyDeviceToHost)) + + do j = 1, ld + do i = 1, j + error = abs(expected(i,j) - hC(i,j)) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " at ", i, j + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dC)) + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(alpha, beta) + + write(*,*) "PASSED!" + +end program hip_zsyrk diff --git a/bindings/fortran/hipblas/test/zsyrk.f08 b/bindings/fortran/hipblas/test/zsyrk.f08 new file mode 100644 index 000000000000..6986929d5b99 --- /dev/null +++ b/bindings/fortran/hipblas/test/zsyrk.f08 @@ -0,0 +1,86 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_zsyrk + use iso_c_binding + use hip + use hipblas + + implicit none + + ! C := alpha*A*A**T + beta*C, upper triangle. A = [1 0; 2 3] gives + ! A*A**T = [1 2; 2 13], so the referenced upper triangle is 1, 2, 13. + integer, parameter :: ld = 2 + complex(c_double_complex), allocatable, target :: alpha, beta + + complex(c_double_complex) :: hA(ld,ld) = reshape([(1.0, 0.0), (2.0, 0.0), (0.0, 0.0), (3.0, 0.0)], [ld,ld]) + complex(c_double_complex) :: hC(ld,ld) + complex(c_double_complex) :: expected(ld,ld) = reshape([(1.0, 0.0), (0.0, 0.0), (2.0, 0.0), (13.0, 0.0)], [ld,ld]) + complex(c_double_complex), pointer, dimension(:,:) :: dA, dC + type(c_ptr) :: handle = c_null_ptr + integer :: i, j + real(c_double) :: error + real(c_double), parameter :: error_max = 10*epsilon(error) + ! On the heap, so 16-byte aligned: the CUDA backend accesses a + ! cuDoubleComplex scalar with an aligned load or store. + allocate(alpha, beta) + alpha = (1.0, 0.0) + beta = (0.0, 0.0) + + write(*,"(a)",advance="no") "-- Running test 'zsyrk' (Fortran 2008 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + hC = (0.0, 0.0) + + call hipCheck(hipMalloc(dA, shape(hA))) + call hipCheck(hipMemcpy(dA, hA, hipMemcpyHostToDevice)) + call hipCheck(hipMalloc(dC, shape(hC))) + call hipCheck(hipMemcpy(dC, hC, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasZsyrk(handle, HIPBLAS_FILL_MODE_UPPER, HIPBLAS_OP_N, ld, ld, & + alpha, dA, size(dA,1), beta, dC, size(dC,1))) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(hC, dC, hipMemcpyDeviceToHost)) + + do j = 1, ld + do i = 1, j + error = abs(expected(i,j) - hC(i,j)) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " at ", i, j + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dC)) + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(alpha, beta) + + write(*,*) "PASSED!" + +end program hip_zsyrk diff --git a/bindings/fortran/hipblas/test/zsyrk_devptr.f03 b/bindings/fortran/hipblas/test/zsyrk_devptr.f03 new file mode 100644 index 000000000000..cfddeea7b3f3 --- /dev/null +++ b/bindings/fortran/hipblas/test/zsyrk_devptr.f03 @@ -0,0 +1,103 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_zsyrk + use iso_c_binding + use hip + use hipblas + + implicit none + + ! C := alpha*A*A**T + beta*C, upper triangle. A = [1 0; 2 3] gives + ! A*A**T = [1 2; 2 13], so the referenced upper triangle is 1, 2, 13. + integer, parameter :: ld = 2 + integer(c_size_t) :: Nbytes + complex(c_double_complex), allocatable, target :: alpha, beta + + ! Device-resident copies of the dual-mode scalars; the library reads them + ! from device memory because the handle is in device pointer mode. + type(c_ptr) :: d_alpha = c_null_ptr + type(c_ptr) :: d_beta = c_null_ptr + + complex(c_double_complex), target :: hA(ld,ld) = reshape([(1.0, 0.0), (2.0, 0.0), (0.0, 0.0), (3.0, 0.0)], [ld,ld]) + complex(c_double_complex), target :: hC(ld,ld) + complex(c_double_complex) :: expected(ld,ld) = reshape([(1.0, 0.0), (0.0, 0.0), (2.0, 0.0), (13.0, 0.0)], [ld,ld]) + type(c_ptr) :: dA = c_null_ptr, dC = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + integer :: i, j + real(c_double) :: error + real(c_double), parameter :: error_max = 10*epsilon(error) + ! On the heap, so 16-byte aligned: the CUDA backend accesses a + ! cuDoubleComplex scalar with an aligned load or store. + allocate(alpha, beta) + alpha = (1.0, 0.0) + beta = (0.0, 0.0) + + write(*,"(a)",advance="no") "-- Running test 'zsyrk_devptr' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + ! Switch to device pointer mode and stage the scalars in device memory + call hipblasCheck(hipblasSetPointerMode(handle, HIPBLAS_POINTER_MODE_DEVICE)) + call hipCheck(hipMalloc(d_alpha, 16_c_size_t)) + call hipCheck(hipMalloc(d_beta, 16_c_size_t)) + call hipCheck(hipMemcpy(d_alpha, c_loc(alpha), 16_c_size_t, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(d_beta, c_loc(beta), 16_c_size_t, hipMemcpyHostToDevice)) + + hC = (0.0, 0.0) + + Nbytes = int(ld*ld, c_size_t) * 16 + call hipCheck(hipMalloc(dA, Nbytes)) + call hipCheck(hipMemcpy(dA, c_loc(hA(1,1)), Nbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMalloc(dC, Nbytes)) + call hipCheck(hipMemcpy(dC, c_loc(hC(1,1)), Nbytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasZsyrk(handle, HIPBLAS_FILL_MODE_UPPER, HIPBLAS_OP_N, ld, ld, & + d_alpha, dA, ld, d_beta, dC, ld)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(c_loc(hC(1,1)), dC, Nbytes, hipMemcpyDeviceToHost)) + + do j = 1, ld + do i = 1, j + error = abs(expected(i,j) - hC(i,j)) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " at ", i, j + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dC)) + call hipblasCheck(hipblasDestroy(handle)) + + call hipCheck(hipFree(d_alpha)) + call hipCheck(hipFree(d_beta)) + + deallocate(alpha, beta) + + write(*,*) "PASSED!" + +end program hip_zsyrk diff --git a/bindings/fortran/hipblas/test/ztrmm.f03 b/bindings/fortran/hipblas/test/ztrmm.f03 new file mode 100644 index 000000000000..d2c1abc3e94b --- /dev/null +++ b/bindings/fortran/hipblas/test/ztrmm.f03 @@ -0,0 +1,103 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_ztrmm + use iso_c_binding + use hip + use hipblas + + implicit none + + ! C := alpha*op(A)*B with A upper triangular on the left (out-of-place trmm). + ! B is m x n with m /= n and A(2,1) holds junk, so swapping A and B, the side + ! or the triangle changes the result. + integer, parameter :: m = 2, n = 3 + integer(c_size_t) :: Nbytes + complex(c_double_complex), allocatable, target :: alpha + + complex(c_double_complex), target :: hA(m,m) = reshape([(1.0, 1.0), (7.0, -7.0), (2.0, -1.0), (3.0, 0.5)], [m,m]) + complex(c_double_complex), target :: hB(m,n) = reshape([(1.0, 0.0), (4.0, 1.0), (2.0, -2.0), & + (5.0, 0.0), (3.0, 1.0), (-6.0, 0.0)], [m,n]) + complex(c_double_complex), target :: hC(m,n) + complex(c_double_complex) :: expected(m,n), Aref(m,m) + type(c_ptr) :: dA = c_null_ptr, dB = c_null_ptr, dC = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + integer :: i, j + real(c_double) :: error + real(c_double), parameter :: error_max = 10*epsilon(error) + ! On the heap, so 16-byte aligned: the CUDA backend accesses a + ! cuDoubleComplex scalar with an aligned load or store. + allocate(alpha) + alpha = (1.0, 0.0) + + write(*,"(a)",advance="no") "-- Running test 'ztrmm' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + hC = (0.0, 0.0) + + ! Host reference built from the upper triangle only, A(2,1) is junk + Aref = (0.0, 0.0) + do j = 1, m + do i = 1, j + Aref(i,j) = hA(i,j) + end do + end do + expected = alpha*matmul(Aref, hB) + + Nbytes = int(m*m, c_size_t) * 16 + call hipCheck(hipMalloc(dA, Nbytes)) + call hipCheck(hipMemcpy(dA, c_loc(hA(1,1)), Nbytes, hipMemcpyHostToDevice)) + Nbytes = int(m*n, c_size_t) * 16 + call hipCheck(hipMalloc(dB, Nbytes)) + call hipCheck(hipMemcpy(dB, c_loc(hB(1,1)), Nbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMalloc(dC, Nbytes)) + call hipCheck(hipMemcpy(dC, c_loc(hC(1,1)), Nbytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasZtrmm(handle, HIPBLAS_SIDE_LEFT, HIPBLAS_FILL_MODE_UPPER, HIPBLAS_OP_N, & + HIPBLAS_DIAG_NON_UNIT, m, n, c_loc(alpha), dA, m, dB, m, dC, m)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(c_loc(hC(1,1)), dC, Nbytes, hipMemcpyDeviceToHost)) + + do j = 1, n + do i = 1, m + error = abs(expected(i,j) - hC(i,j)) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " at ", i, j + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dB)) + call hipCheck(hipFree(dC)) + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(alpha) + + write(*,*) "PASSED!" + +end program hip_ztrmm diff --git a/bindings/fortran/hipblas/test/ztrmm.f08 b/bindings/fortran/hipblas/test/ztrmm.f08 new file mode 100644 index 000000000000..3eacca41d382 --- /dev/null +++ b/bindings/fortran/hipblas/test/ztrmm.f08 @@ -0,0 +1,100 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_ztrmm + use iso_c_binding + use hip + use hipblas + + implicit none + + ! C := alpha*op(A)*B with A upper triangular on the left (out-of-place trmm). + ! B is m x n with m /= n and A(2,1) holds junk, so swapping A and B, the side + ! or the triangle changes the result. + integer, parameter :: m = 2, n = 3 + complex(c_double_complex), allocatable, target :: alpha + + complex(c_double_complex) :: hA(m,m) = reshape([(1.0, 1.0), (7.0, -7.0), (2.0, -1.0), (3.0, 0.5)], [m,m]) + complex(c_double_complex) :: hB(m,n) = reshape([(1.0, 0.0), (4.0, 1.0), (2.0, -2.0), & + (5.0, 0.0), (3.0, 1.0), (-6.0, 0.0)], [m,n]) + complex(c_double_complex) :: hC(m,n) + complex(c_double_complex) :: expected(m,n), Aref(m,m) + complex(c_double_complex), pointer, dimension(:,:) :: dA, dB, dC + type(c_ptr) :: handle = c_null_ptr + integer :: i, j + real(c_double) :: error + real(c_double), parameter :: error_max = 10*epsilon(error) + ! On the heap, so 16-byte aligned: the CUDA backend accesses a + ! cuDoubleComplex scalar with an aligned load or store. + allocate(alpha) + alpha = (1.0, 0.0) + + write(*,"(a)",advance="no") "-- Running test 'ztrmm' (Fortran 2008 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + hC = (0.0, 0.0) + + ! Host reference built from the upper triangle only, A(2,1) is junk + Aref = (0.0, 0.0) + do j = 1, m + do i = 1, j + Aref(i,j) = hA(i,j) + end do + end do + expected = alpha*matmul(Aref, hB) + + call hipCheck(hipMalloc(dA, shape(hA))) + call hipCheck(hipMemcpy(dA, hA, hipMemcpyHostToDevice)) + call hipCheck(hipMalloc(dB, shape(hB))) + call hipCheck(hipMemcpy(dB, hB, hipMemcpyHostToDevice)) + call hipCheck(hipMalloc(dC, shape(hC))) + call hipCheck(hipMemcpy(dC, hC, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasZtrmm(handle, HIPBLAS_SIDE_LEFT, HIPBLAS_FILL_MODE_UPPER, HIPBLAS_OP_N, & + HIPBLAS_DIAG_NON_UNIT, m, n, alpha, dA, size(dA,1), dB, size(dB,1), dC, size(dC,1))) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(hC, dC, hipMemcpyDeviceToHost)) + + do j = 1, n + do i = 1, m + error = abs(expected(i,j) - hC(i,j)) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " at ", i, j + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dB)) + call hipCheck(hipFree(dC)) + call hipblasCheck(hipblasDestroy(handle)) + + deallocate(alpha) + + write(*,*) "PASSED!" + +end program hip_ztrmm diff --git a/bindings/fortran/hipblas/test/ztrmm_devptr.f03 b/bindings/fortran/hipblas/test/ztrmm_devptr.f03 new file mode 100644 index 000000000000..d8a6ab374ea8 --- /dev/null +++ b/bindings/fortran/hipblas/test/ztrmm_devptr.f03 @@ -0,0 +1,114 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_ztrmm + use iso_c_binding + use hip + use hipblas + + implicit none + + ! C := alpha*op(A)*B with A upper triangular on the left (out-of-place trmm). + ! B is m x n with m /= n and A(2,1) holds junk, so swapping A and B, the side + ! or the triangle changes the result. + integer, parameter :: m = 2, n = 3 + integer(c_size_t) :: Nbytes + complex(c_double_complex), allocatable, target :: alpha + + ! Device-resident copies of the dual-mode scalars; the library reads them + ! from device memory because the handle is in device pointer mode. + type(c_ptr) :: d_alpha = c_null_ptr + + complex(c_double_complex), target :: hA(m,m) = reshape([(1.0, 1.0), (7.0, -7.0), (2.0, -1.0), (3.0, 0.5)], [m,m]) + complex(c_double_complex), target :: hB(m,n) = reshape([(1.0, 0.0), (4.0, 1.0), (2.0, -2.0), & + (5.0, 0.0), (3.0, 1.0), (-6.0, 0.0)], [m,n]) + complex(c_double_complex), target :: hC(m,n) + complex(c_double_complex) :: expected(m,n), Aref(m,m) + type(c_ptr) :: dA = c_null_ptr, dB = c_null_ptr, dC = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + integer :: i, j + real(c_double) :: error + real(c_double), parameter :: error_max = 10*epsilon(error) + ! On the heap, so 16-byte aligned: the CUDA backend accesses a + ! cuDoubleComplex scalar with an aligned load or store. + allocate(alpha) + alpha = (1.0, 0.0) + + write(*,"(a)",advance="no") "-- Running test 'ztrmm_devptr' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + ! Switch to device pointer mode and stage the scalars in device memory + call hipblasCheck(hipblasSetPointerMode(handle, HIPBLAS_POINTER_MODE_DEVICE)) + call hipCheck(hipMalloc(d_alpha, 16_c_size_t)) + call hipCheck(hipMemcpy(d_alpha, c_loc(alpha), 16_c_size_t, hipMemcpyHostToDevice)) + + hC = (0.0, 0.0) + + ! Host reference built from the upper triangle only, A(2,1) is junk + Aref = (0.0, 0.0) + do j = 1, m + do i = 1, j + Aref(i,j) = hA(i,j) + end do + end do + expected = alpha*matmul(Aref, hB) + + Nbytes = int(m*m, c_size_t) * 16 + call hipCheck(hipMalloc(dA, Nbytes)) + call hipCheck(hipMemcpy(dA, c_loc(hA(1,1)), Nbytes, hipMemcpyHostToDevice)) + Nbytes = int(m*n, c_size_t) * 16 + call hipCheck(hipMalloc(dB, Nbytes)) + call hipCheck(hipMemcpy(dB, c_loc(hB(1,1)), Nbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMalloc(dC, Nbytes)) + call hipCheck(hipMemcpy(dC, c_loc(hC(1,1)), Nbytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasZtrmm(handle, HIPBLAS_SIDE_LEFT, HIPBLAS_FILL_MODE_UPPER, HIPBLAS_OP_N, & + HIPBLAS_DIAG_NON_UNIT, m, n, d_alpha, dA, m, dB, m, dC, m)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(c_loc(hC(1,1)), dC, Nbytes, hipMemcpyDeviceToHost)) + + do j = 1, n + do i = 1, m + error = abs(expected(i,j) - hC(i,j)) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " at ", i, j + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dB)) + call hipCheck(hipFree(dC)) + call hipblasCheck(hipblasDestroy(handle)) + + call hipCheck(hipFree(d_alpha)) + + deallocate(alpha) + + write(*,*) "PASSED!" + +end program hip_ztrmm diff --git a/bindings/fortran/hipblas/test/ztrsm.f03 b/bindings/fortran/hipblas/test/ztrsm.f03 new file mode 100644 index 000000000000..51081073497f --- /dev/null +++ b/bindings/fortran/hipblas/test/ztrsm.f03 @@ -0,0 +1,96 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_ztrsm + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(kind(HIPBLAS_SIDE_LEFT)), parameter :: side = HIPBLAS_SIDE_LEFT + integer(kind(HIPBLAS_FILL_MODE_LOWER)), parameter :: uplo = HIPBLAS_FILL_MODE_LOWER + integer(kind(HIPBLAS_OP_N)), parameter :: transA = HIPBLAS_OP_N + integer(kind(HIPBLAS_DIAG_NON_UNIT)), parameter :: diag = HIPBLAS_DIAG_NON_UNIT + integer, parameter :: m = 512, n = 512 + integer, parameter :: bytes_per_element = 16 + complex(kind=8), allocatable, target :: alpha + integer(c_size_t) :: NAbytes, NBbytes + complex(kind=8), allocatable, target, dimension(:) :: hA, hB + complex(kind=8), parameter :: x_exact = (1.d0, 0.d0) + double precision :: error + double precision, parameter :: error_max = 10*epsilon(error) + type(c_ptr) :: dA = c_null_ptr, dB = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + integer :: i, j + ! On the heap, so 16-byte aligned: the CUDA backend accesses a + ! cuDoubleComplex scalar with an aligned load or store. + allocate(alpha) + alpha = (2.d0, 0.d0) + + write(*,"(a)",advance="no") "-- Running test 'ZTRSM' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + NAbytes = int(m, c_size_t) * int(m, c_size_t) * bytes_per_element + NBbytes = int(m, c_size_t) * int(n, c_size_t) * bytes_per_element + allocate(hA(m*m), hB(m*n)) + + hA = (0.d0, 0.d0) + do j = 1, m + do i = j, m + hA(i + (j-1)*m) = (1.d0, 0.d0) + end do + end do + do j = 1, n + do i = 1, m + hB(i + (j-1)*m) = cmplx(dble(i) / 2.d0, 0., kind=8) + end do + end do + + call hipCheck(hipMalloc(dA, NAbytes)) + call hipCheck(hipMalloc(dB, NBbytes)) + call hipCheck(hipMemcpy(dA, c_loc(hA(1)), NAbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dB, c_loc(hB(1)), NBbytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasZtrsm(handle, side, uplo, transA, diag, m, n, c_loc(alpha), dA, m, dB, m)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(c_loc(hB(1)), dB, NBbytes, hipMemcpyDeviceToHost)) + + do i = 1, m*n + error = abs((x_exact - hB(i)) / x_exact) + if (error > error_max) then + write(*,*) "FAILED! Error bigger than max! Error = ", error, " hB(", i, ") = ", hB(i) + call exit(1) + end if + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dB)) + call hipblasCheck(hipblasDestroy(handle)) + deallocate(hA, hB, alpha) + write(*,*) "PASSED!" + +end program hip_ztrsm diff --git a/bindings/fortran/hipblas/test/ztrsm.f08 b/bindings/fortran/hipblas/test/ztrsm.f08 new file mode 100644 index 000000000000..5d81d11b3ebe --- /dev/null +++ b/bindings/fortran/hipblas/test/ztrsm.f08 @@ -0,0 +1,92 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_ztrsm + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(kind(HIPBLAS_SIDE_LEFT)), parameter :: side = HIPBLAS_SIDE_LEFT + integer(kind(HIPBLAS_FILL_MODE_LOWER)), parameter :: uplo = HIPBLAS_FILL_MODE_LOWER + integer(kind(HIPBLAS_OP_N)), parameter :: transA = HIPBLAS_OP_N + integer(kind(HIPBLAS_DIAG_NON_UNIT)), parameter :: diag = HIPBLAS_DIAG_NON_UNIT + integer, parameter :: m = 512, n = 512 + complex(kind=8), allocatable, target :: alpha + complex(kind=8), allocatable, target, dimension(:,:) :: hA, hB + complex(kind=8), pointer, dimension(:,:) :: dA, dB + type(c_ptr) :: handle = c_null_ptr + complex(kind=8), parameter :: x_exact = (1.d0, 0.d0) + double precision :: error + double precision, parameter :: error_max = 10*epsilon(error) + integer :: i, j + ! On the heap, so 16-byte aligned: the CUDA backend accesses a + ! cuDoubleComplex scalar with an aligned load or store. + allocate(alpha) + alpha = (2.d0, 0.d0) + + write(*,"(a)",advance="no") "-- Running test 'ZTRSM' (Fortran 2008 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + allocate(hA(m,m), hB(m,n)) + + hA = (0.d0, 0.d0) + do j = 1, m + do i = j, m + hA(i,j) = (1.d0, 0.d0) + end do + end do + do j = 1, n + do i = 1, m + hB(i,j) = cmplx(dble(i) / 2.d0, 0., kind=8) + end do + end do + + call hipCheck(hipMalloc(dA, source=hA)) + call hipCheck(hipMalloc(dB, source=hB)) + + call hipblasCheck(hipblasZtrsm(handle, side, uplo, transA, diag, m, n, alpha, dA, size(dA,1), dB, size(dB,1))) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(hB, dB, hipMemcpyDeviceToHost)) + + do j = 1, n + do i = 1, m + error = abs((x_exact - hB(i,j)) / x_exact) + if (error > error_max) then + write(*,*) "FAILED! Error bigger than max! Error = ", error, " hB(", i, ",", j, ") = ", hB(i,j) + call exit(1) + end if + end do + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dB)) + call hipblasCheck(hipblasDestroy(handle)) + deallocate(hA, hB, alpha) + write(*,*) "PASSED!" + +end program hip_ztrsm diff --git a/bindings/fortran/hipblas/test/ztrsm_devptr.f03 b/bindings/fortran/hipblas/test/ztrsm_devptr.f03 new file mode 100644 index 000000000000..dc7723d9187f --- /dev/null +++ b/bindings/fortran/hipblas/test/ztrsm_devptr.f03 @@ -0,0 +1,106 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_ztrsm + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(kind(HIPBLAS_SIDE_LEFT)), parameter :: side = HIPBLAS_SIDE_LEFT + integer(kind(HIPBLAS_FILL_MODE_LOWER)), parameter :: uplo = HIPBLAS_FILL_MODE_LOWER + integer(kind(HIPBLAS_OP_N)), parameter :: transA = HIPBLAS_OP_N + integer(kind(HIPBLAS_DIAG_NON_UNIT)), parameter :: diag = HIPBLAS_DIAG_NON_UNIT + integer, parameter :: m = 512, n = 512 + integer, parameter :: bytes_per_element = 16 + complex(kind=8), allocatable, target :: alpha + + ! Device-resident copies of the dual-mode scalars; the library reads them + ! from device memory because the handle is in device pointer mode. + type(c_ptr) :: d_alpha = c_null_ptr + integer(c_size_t) :: NAbytes, NBbytes + complex(kind=8), allocatable, target, dimension(:) :: hA, hB + complex(kind=8), parameter :: x_exact = (1.d0, 0.d0) + double precision :: error + double precision, parameter :: error_max = 10*epsilon(error) + type(c_ptr) :: dA = c_null_ptr, dB = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + integer :: i, j + ! On the heap, so 16-byte aligned: the CUDA backend accesses a + ! cuDoubleComplex scalar with an aligned load or store. + allocate(alpha) + alpha = (2.d0, 0.d0) + + write(*,"(a)",advance="no") "-- Running test 'ZTRSM_devptr' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + ! Switch to device pointer mode and stage the scalars in device memory + call hipblasCheck(hipblasSetPointerMode(handle, HIPBLAS_POINTER_MODE_DEVICE)) + call hipCheck(hipMalloc(d_alpha, 16_c_size_t)) + call hipCheck(hipMemcpy(d_alpha, c_loc(alpha), 16_c_size_t, hipMemcpyHostToDevice)) + + NAbytes = int(m, c_size_t) * int(m, c_size_t) * bytes_per_element + NBbytes = int(m, c_size_t) * int(n, c_size_t) * bytes_per_element + allocate(hA(m*m), hB(m*n)) + + hA = (0.d0, 0.d0) + do j = 1, m + do i = j, m + hA(i + (j-1)*m) = (1.d0, 0.d0) + end do + end do + do j = 1, n + do i = 1, m + hB(i + (j-1)*m) = cmplx(dble(i) / 2.d0, 0., kind=8) + end do + end do + + call hipCheck(hipMalloc(dA, NAbytes)) + call hipCheck(hipMalloc(dB, NBbytes)) + call hipCheck(hipMemcpy(dA, c_loc(hA(1)), NAbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dB, c_loc(hB(1)), NBbytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasZtrsm(handle, side, uplo, transA, diag, m, n, d_alpha, dA, m, dB, m)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(c_loc(hB(1)), dB, NBbytes, hipMemcpyDeviceToHost)) + + do i = 1, m*n + error = abs((x_exact - hB(i)) / x_exact) + if (error > error_max) then + write(*,*) "FAILED! Error bigger than max! Error = ", error, " hB(", i, ") = ", hB(i) + call exit(1) + end if + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dB)) + call hipblasCheck(hipblasDestroy(handle)) + deallocate(hA, hB, alpha) + call hipCheck(hipFree(d_alpha)) + write(*,*) "PASSED!" + +end program hip_ztrsm diff --git a/bindings/fortran/hipblas/test/ztrsv.f03 b/bindings/fortran/hipblas/test/ztrsv.f03 new file mode 100644 index 000000000000..7aeb5b48cadd --- /dev/null +++ b/bindings/fortran/hipblas/test/ztrsv.f03 @@ -0,0 +1,88 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_ztrsv + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(kind(HIPBLAS_FILL_MODE_UPPER)), parameter :: uplo = HIPBLAS_FILL_MODE_LOWER + integer(kind(HIPBLAS_OP_N)), parameter :: transA = HIPBLAS_OP_N + integer(kind(HIPBLAS_DIAG_NON_UNIT)), parameter :: diag = HIPBLAS_DIAG_NON_UNIT + integer, parameter :: m = 512 + integer, parameter :: bytes_per_element = 16 + integer(c_size_t) :: NAbytes, Nxbytes + complex(kind=8), allocatable, target, dimension(:) :: hA, hx + complex(kind=8), parameter :: x_exact = (1.d0, 0.d0) + double precision :: error + double precision, parameter :: error_max = 10*epsilon(error) + type(c_ptr) :: dA = c_null_ptr, dx = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + integer :: i, j + + write(*,"(a)",advance="no") "-- Running test 'ZTRSV' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + NAbytes = int(m, c_size_t) * int(m, c_size_t) * bytes_per_element + Nxbytes = int(m, c_size_t) * bytes_per_element + allocate(hA(m*m), hx(m)) + + hA = (0.d0, 0.d0) + do j = 1, m + do i = j, m + hA(i + (j-1)*m) = (1.d0, 0.d0) + end do + end do + do i = 1, m + hx(i) = cmplx(i, 0., kind=8) + end do + + call hipCheck(hipMalloc(dA, NAbytes)) + call hipCheck(hipMalloc(dx, Nxbytes)) + call hipCheck(hipMemcpy(dA, c_loc(hA(1)), NAbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dx, c_loc(hx(1)), Nxbytes, hipMemcpyHostToDevice)) + + call hipblasCheck(hipblasZtrsv(handle, uplo, transA, diag, m, dA, m, dx, 1)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(c_loc(hx(1)), dx, Nxbytes, hipMemcpyDeviceToHost)) + + do i = 1, m + error = abs((x_exact - hx(i)) / x_exact) + if (error > error_max) then + write(*,*) "FAILED! Error bigger than max! Error = ", error, " hx(", i, ") = ", hx(i) + call exit(1) + end if + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dx)) + call hipblasCheck(hipblasDestroy(handle)) + deallocate(hA, hx) + write(*,*) "PASSED!" + +end program hip_ztrsv diff --git a/bindings/fortran/hipblas/test/ztrsv.f08 b/bindings/fortran/hipblas/test/ztrsv.f08 new file mode 100644 index 000000000000..20765fea222a --- /dev/null +++ b/bindings/fortran/hipblas/test/ztrsv.f08 @@ -0,0 +1,84 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +program hip_ztrsv + use iso_c_binding + use hip + use hipblas + + implicit none + + integer(kind(HIPBLAS_FILL_MODE_UPPER)), parameter :: uplo = HIPBLAS_FILL_MODE_LOWER + integer(kind(HIPBLAS_OP_N)), parameter :: transA = HIPBLAS_OP_N + integer(kind(HIPBLAS_DIAG_NON_UNIT)), parameter :: diag = HIPBLAS_DIAG_NON_UNIT + integer, parameter :: m = 512 + complex(kind=8), allocatable, target, dimension(:,:) :: hA + complex(kind=8), allocatable, target, dimension(:) :: hx + complex(kind=8), pointer, dimension(:,:) :: dA + complex(kind=8), pointer, dimension(:) :: dx + type(c_ptr) :: handle = c_null_ptr + complex(kind=8), parameter :: x_exact = (1.d0, 0.d0) + double precision :: error + double precision, parameter :: error_max = 10*epsilon(error) + integer :: i, j + + write(*,"(a)",advance="no") "-- Running test 'ZTRSV' (Fortran 2008 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + allocate(hA(m,m), hx(m)) + + hA = (0.d0, 0.d0) + do j = 1, m + do i = j, m + hA(i,j) = (1.d0, 0.d0) + end do + end do + do i = 1, m + hx(i) = cmplx(i, 0., kind=8) + end do + + call hipCheck(hipMalloc(dA, source=hA)) + call hipCheck(hipMalloc(dx, source=hx)) + + call hipblasCheck(hipblasZtrsv(handle, uplo, transA, diag, m, dA, size(dA,1), dx, 1)) + call hipCheck(hipDeviceSynchronize()) + call hipCheck(hipMemcpy(hx, dx, hipMemcpyDeviceToHost)) + + do i = 1, m + error = abs((x_exact - hx(i)) / x_exact) + if (error > error_max) then + write(*,*) "FAILED! Error bigger than max! Error = ", error, " hx(", i, ") = ", hx(i) + call exit(1) + end if + end do + + call hipCheck(hipFree(dA)) + call hipCheck(hipFree(dx)) + call hipblasCheck(hipblasDestroy(handle)) + deallocate(hA, hx) + write(*,*) "PASSED!" + +end program hip_ztrsv From 1645c8e55110f0821028bcfc032bf24fc0494593 Mon Sep 17 00:00:00 2001 From: Alexis Montoison Date: Tue, 3 Nov 2026 21:31:02 -0600 Subject: [PATCH 5/8] feat(hipblas): install the Fortran binding tests Install the test executables in bin/, and a CTestTestfile.cmake in bin/hipblas-fortran/ with the same tests and properties as the build tree, so that ctest --test-dir runs them from an install, as TheRock's test jobs do for the libraries. --- bindings/fortran/hipblas/test/CMakeLists.txt | 26 ++++++++++++++++++++ 1 file changed, 26 insertions(+) diff --git a/bindings/fortran/hipblas/test/CMakeLists.txt b/bindings/fortran/hipblas/test/CMakeLists.txt index ea50b2bae098..6985ada49583 100644 --- a/bindings/fortran/hipblas/test/CMakeLists.txt +++ b/bindings/fortran/hipblas/test/CMakeLists.txt @@ -300,3 +300,29 @@ if(NOT FORTRAN_ARRAY_INTERFACES STREQUAL "none") hipblas_fortran_add_test(${_t} f08) endforeach() endif() + +# Installed tests: the executables go to bin/, and a CTestTestfile.cmake with +# the same tests and properties to bin/hipblas-fortran/, for ctest --test-dir. +include(GNUInstallDirs) +get_property(_hipblas_fortran_tests DIRECTORY PROPERTY TESTS) +if(_hipblas_fortran_tests) + set(_ctest "${CMAKE_CURRENT_BINARY_DIR}/install-CTestTestfile.cmake") + file(WRITE "${_ctest}" "") + foreach(_test IN LISTS _hipblas_fortran_tests) + string(REPLACE "_fortran_" "_fortran_test_" _target "${_test}") + install(TARGETS ${_target} RUNTIME DESTINATION "${CMAKE_INSTALL_BINDIR}" COMPONENT tests) + file(APPEND "${_ctest}" "add_test(${_test} \"../${_target}\")\n") + foreach(_prop LABELS SKIP_RETURN_CODE ENVIRONMENT PASS_REGULAR_EXPRESSION FAIL_REGULAR_EXPRESSION) + get_test_property(${_test} ${_prop} _value) + if(_value) + file(APPEND "${_ctest}" "set_tests_properties(${_test} PROPERTIES ${_prop} [=[${_value}]=])\n") + endif() + endforeach() + endforeach() + install( + FILES "${_ctest}" + DESTINATION "${CMAKE_INSTALL_BINDIR}/hipblas-fortran" + COMPONENT tests + RENAME CTestTestfile.cmake + ) +endif() From be35e729ef299774cfe743d4f8763780c0db15f1 Mon Sep 17 00:00:00 2001 From: Alexis Montoison Date: Tue, 3 Nov 2026 23:39:30 -0600 Subject: [PATCH 6/8] refactor(hipblas): build the Fortran binding standalone only The binding is built against an installed hipBLAS and is never added to the library's build, so drop what only served that: the per-library BUILD_FORTRAN_* overrides, the PARENT_SCOPE results, the ROCM_HAVE_FORTRAN shortcut, the gating on the library's client and test options, and the comments about the root. Find the Fortran compiler through the cmake/ROCmFortranCompiler.cmake shared by all the bindings, and require CMake 3.19. The binding targets the ROCm backend only, so BUILD_FORTRAN_BINDINGS no longer defaults to OFF on the CUDA backend. --- bindings/fortran/hipblas/CHANGELOG.md | 4 +- bindings/fortran/hipblas/CMakeLists.txt | 138 +----------------- .../hipblas/cmake/ROCmFortranCompiler.cmake | 59 ++++++++ bindings/fortran/hipblas/test/CMakeLists.txt | 9 +- 4 files changed, 70 insertions(+), 140 deletions(-) create mode 100644 bindings/fortran/hipblas/cmake/ROCmFortranCompiler.cmake diff --git a/bindings/fortran/hipblas/CHANGELOG.md b/bindings/fortran/hipblas/CHANGELOG.md index 208d516e3a5f..b481d48debcb 100644 --- a/bindings/fortran/hipblas/CHANGELOG.md +++ b/bindings/fortran/hipblas/CHANGELOG.md @@ -5,8 +5,8 @@ ### Added * Generated Fortran bindings, as a single `hipblas` module: `use hipblas`, link - `roc::hipblas_fortran`. Controlled by `BUILD_FORTRAN_BINDINGS` (ON on Linux, OFF on Windows - and on the CUDA backend), `BUILD_FORTRAN_CLIENTS` and `FORTRAN_ARRAY_INTERFACES` + `roc::hipblas_fortran`. Controlled by `BUILD_FORTRAN_BINDINGS` (ON on Linux, OFF on Windows), + `BUILD_FORTRAN_CLIENTS` and `FORTRAN_ARRAY_INTERFACES` (`assumed-shape` by default; `none` or `assumed-rank`). Found with `find_package(hipblas-fortran)`; the archive and `.mod` files install per compiler under `/fortran/` and `/fortran/`. diff --git a/bindings/fortran/hipblas/CMakeLists.txt b/bindings/fortran/hipblas/CMakeLists.txt index 00e0fad039d3..37d2b26ede76 100644 --- a/bindings/fortran/hipblas/CMakeLists.txt +++ b/bindings/fortran/hipblas/CMakeLists.txt @@ -25,137 +25,25 @@ # Fortran bindings for hipBLAS. hipblas.F90 is GENERATED from the C headers by # the rocm-fortran generator: do not edit it, regenerate it. -# Not higher: the hipBLAS root (3.17) adds this directory unconditionally. -cmake_minimum_required(VERSION 3.18) +cmake_minimum_required(VERSION 3.19) -if(CMAKE_SOURCE_DIR STREQUAL CMAKE_CURRENT_SOURCE_DIR) - project(hipblas-fortran LANGUAGES NONE) -endif() - -# Off on the CUDA backend (untested there) and on Windows (no ROCm Fortran -# compiler). Same test as hipSOLVER: a defined USE_CUDA decides, as in the root, -# so a standalone -DUSE_CUDA=ON is honoured; otherwise HIP_PLATFORM does. -set(_hipblas_cuda_backend OFF) -if(DEFINED USE_CUDA) - if(USE_CUDA) - set(_hipblas_cuda_backend ON) - endif() -elseif("$ENV{HIP_PLATFORM}" STREQUAL "nvidia" OR "${HIP_PLATFORM}" STREQUAL "nvidia") - set(_hipblas_cuda_backend ON) -endif() -if(_hipblas_cuda_backend) - set(_hipblas_fortran_default OFF) -else() - set(_hipblas_fortran_default "${UNIX}") -endif() -# The only option(BUILD_FORTRAN_BINDINGS) in hipBLAS: the first one fixes the cache. -option(BUILD_FORTRAN_BINDINGS "Build the hipBLAS Fortran bindings" - "${_hipblas_fortran_default}") -unset(_hipblas_fortran_default) - -# BUILD_FORTRAN_BINDINGS is shared by the whole monorepo; this one wins here. -if(DEFINED HIPBLAS_BUILD_FORTRAN_BINDINGS) - set(BUILD_FORTRAN_BINDINGS ${HIPBLAS_BUILD_FORTRAN_BINDINGS}) -endif() +project(hipblas-fortran LANGUAGES NONE) +# Not ON: ROCm ships no Fortran compiler on Windows. +option(BUILD_FORTRAN_BINDINGS "Build the hipBLAS Fortran bindings" "${UNIX}") option(BUILD_FORTRAN_CLIENTS "Build the hipBLAS Fortran binding tests" ON) -if(DEFINED HIPBLAS_BUILD_FORTRAN_CLIENTS) - set(BUILD_FORTRAN_CLIENTS ${HIPBLAS_BUILD_FORTRAN_CLIENTS}) -endif() set(FORTRAN_ARRAY_INTERFACES "assumed-shape" CACHE STRING "Array-argument overloads to expose: none, assumed-shape, or assumed-rank") set_property(CACHE FORTRAN_ARRAY_INTERFACES PROPERTY STRINGS none assumed-shape assumed-rank) -# Standalone, PARENT_SCOPE at top level fails under -Werror=dev. -if(NOT CMAKE_SOURCE_DIR STREQUAL CMAKE_CURRENT_SOURCE_DIR) - set(HIPBLAS_HAVE_FORTRAN_BINDINGS FALSE PARENT_SCOPE) -endif() - if(NOT BUILD_FORTRAN_BINDINGS) - unset(_hipblas_cuda_backend) return() endif() -if(_hipblas_cuda_backend) - message(WARNING - "hipBLAS: the Fortran bindings were requested on the CUDA backend. " - "hipblas.F90 is generated from the ROCm code path and is not tested " - "against a cuBLAS-backed libhipblas, which is why it is off by default " - "there. Building it is supported; vouching for it is not.") -endif() -unset(_hipblas_cuda_backend) - -# ROCM_LIBS_HAVE_FORTRAN is the root's current name; drop it once the root -# publishes ROCM_HAVE_FORTRAN. -if(DEFINED ROCM_HAVE_FORTRAN) - set(_have_fortran ${ROCM_HAVE_FORTRAN}) -elseif(DEFINED ROCM_LIBS_HAVE_FORTRAN) - set(_have_fortran ${ROCM_LIBS_HAVE_FORTRAN}) -else() - include(CheckLanguage) - - # rocm-cmake's ROCMChecks would flag the CMAKE_Fortran_COMPILER cache write - # below (a hard error under ROCM_ERROR_TOOLCHAIN_VAR); silence it for this scope. - set(_rocm_warn_toolchain_var "${ROCM_WARN_TOOLCHAIN_VAR}") - set(_rocm_error_toolchain_var "${ROCM_ERROR_TOOLCHAIN_VAR}") - set(ROCM_WARN_TOOLCHAIN_VAR OFF) - set(ROCM_ERROR_TOOLCHAIN_VAR OFF) - - # Prefer ROCm's amdflang over the first compiler on PATH (often gfortran); an - # explicit CMAKE_Fortran_COMPILER or FC wins. Must precede check_language(). - if(NOT CMAKE_Fortran_COMPILER AND NOT DEFINED ENV{FC}) - set(_rocm_fc_hints) - foreach(_rocm_fc_cc "${CMAKE_CXX_COMPILER}" "${CMAKE_C_COMPILER}" - "${CMAKE_HIP_COMPILER}") - if(_rocm_fc_cc) - get_filename_component(_rocm_fc_dir "${_rocm_fc_cc}" DIRECTORY) - list(APPEND _rocm_fc_hints "${_rocm_fc_dir}") - endif() - endforeach() - foreach(_rocm_fc_root "${ROCM_PATH}" "$ENV{ROCM_PATH}" "/opt/rocm") - if(_rocm_fc_root) - list(APPEND _rocm_fc_hints "${_rocm_fc_root}/bin" - "${_rocm_fc_root}/lib/llvm/bin") - endif() - endforeach() - # Uncached, so a changed ROCM_PATH is honoured on reconfigure. - unset(_rocm_amdflang CACHE) - find_program(_rocm_amdflang NAMES amdflang HINTS ${_rocm_fc_hints} - NO_DEFAULT_PATH) - # A ROCm tree can carry a dangling amdflang symlink. - if(_rocm_amdflang) - execute_process(COMMAND "${_rocm_amdflang}" --version - RESULT_VARIABLE _rocm_fc_rc - OUTPUT_QUIET ERROR_QUIET) - if(_rocm_fc_rc EQUAL 0) - set(CMAKE_Fortran_COMPILER "${_rocm_amdflang}" CACHE FILEPATH - "Fortran compiler used for the ROCm Fortran bindings" FORCE) - endif() - unset(_rocm_fc_rc) - endif() - unset(_rocm_amdflang CACHE) - unset(_rocm_fc_hints) - unset(_rocm_fc_cc) - unset(_rocm_fc_dir) - unset(_rocm_fc_root) - endif() - - check_language(Fortran) - set(ROCM_WARN_TOOLCHAIN_VAR "${_rocm_warn_toolchain_var}") - set(ROCM_ERROR_TOOLCHAIN_VAR "${_rocm_error_toolchain_var}") - unset(_rocm_warn_toolchain_var) - unset(_rocm_error_toolchain_var) - - if(CMAKE_Fortran_COMPILER) - set(_have_fortran TRUE) - else() - set(_have_fortran FALSE) - endif() -endif() - -if(NOT _have_fortran) +include("${CMAKE_CURRENT_SOURCE_DIR}/cmake/ROCmFortranCompiler.cmake") +if(NOT CMAKE_Fortran_COMPILER) message(STATUS "hipBLAS: no Fortran compiler found, skipping the Fortran bindings") return() endif() @@ -225,12 +113,8 @@ target_include_directories(hipblas_fortran PUBLIC # Link interface only. hipblas-config's find_dependency(hip) reaches FindThreads, # which needs C or CXX enabled; QUIET because the bindings build without hipBLAS. -if(NOT TARGET roc::hipblas) - if(NOT CMAKE_C_COMPILER_LOADED AND NOT CMAKE_CXX_COMPILER_LOADED) - enable_language(C) - endif() - find_package(hipblas QUIET) -endif() +enable_language(C) +find_package(hipblas QUIET) # Never left empty: it is @-substituted into a bare if() in the installed config. if(TARGET roc::hipblas) @@ -243,12 +127,6 @@ else() set(HIPBLAS_FORTRAN_NEEDS_C_PACKAGE FALSE) endif() -# The parent cannot see the compiler ID; it keys its libgfortran dependency on it. -if(NOT CMAKE_SOURCE_DIR STREQUAL CMAKE_CURRENT_SOURCE_DIR) - set(HIPBLAS_HAVE_FORTRAN_BINDINGS TRUE PARENT_SCOPE) - set(HIPBLAS_FORTRAN_COMPILER_ID "${CMAKE_Fortran_COMPILER_ID}" PARENT_SCOPE) -endif() - # The uninstrumented Fortran executables cannot link an ASan libhipblas. if(BUILD_FORTRAN_CLIENTS AND BUILD_ADDRESS_SANITIZER) message(STATUS diff --git a/bindings/fortran/hipblas/cmake/ROCmFortranCompiler.cmake b/bindings/fortran/hipblas/cmake/ROCmFortranCompiler.cmake new file mode 100644 index 000000000000..616f4fa03c68 --- /dev/null +++ b/bindings/fortran/hipblas/cmake/ROCmFortranCompiler.cmake @@ -0,0 +1,59 @@ +# Copyright Advanced Micro Devices, Inc., or its affiliates. +# SPDX-License-Identifier: MIT + +# Runs check_language(Fortran), preferring ROCm's amdflang over the first +# Fortran compiler on PATH (often gfortran). An explicit CMAKE_Fortran_COMPILER +# or FC wins. CMAKE_Fortran_COMPILER is left false when none is found. + +include(CheckLanguage) + +# rocm-cmake's ROCMChecks watches CMAKE_Fortran_COMPILER and fails under +# ROCM_ERROR_TOOLCHAIN_VAR=ON; silence it across the writes. +set(_rocm_fc_warn_toolchain_var "${ROCM_WARN_TOOLCHAIN_VAR}") +set(_rocm_fc_error_toolchain_var "${ROCM_ERROR_TOOLCHAIN_VAR}") +set(ROCM_WARN_TOOLCHAIN_VAR OFF) +set(ROCM_ERROR_TOOLCHAIN_VAR OFF) + +if(NOT CMAKE_Fortran_COMPILER AND NOT DEFINED ENV{FC}) + set(_rocm_fc_hints) + foreach(_rocm_fc_cc "${CMAKE_CXX_COMPILER}" "${CMAKE_C_COMPILER}" + "${CMAKE_HIP_COMPILER}") + if(_rocm_fc_cc) + get_filename_component(_rocm_fc_dir "${_rocm_fc_cc}" DIRECTORY) + list(APPEND _rocm_fc_hints "${_rocm_fc_dir}") + endif() + endforeach() + foreach(_rocm_fc_root "${ROCM_PATH}" "$ENV{ROCM_PATH}" "/opt/rocm") + if(_rocm_fc_root) + list(APPEND _rocm_fc_hints "${_rocm_fc_root}/bin" + "${_rocm_fc_root}/lib/llvm/bin") + endif() + endforeach() + # Uncached, so a changed ROCM_PATH is honoured on reconfigure. + unset(_rocm_amdflang CACHE) + find_program(_rocm_amdflang NAMES amdflang HINTS ${_rocm_fc_hints} + NO_DEFAULT_PATH) + # A ROCm tree can carry a dangling amdflang symlink. + if(_rocm_amdflang) + execute_process(COMMAND "${_rocm_amdflang}" --version + RESULT_VARIABLE _rocm_fc_rc + OUTPUT_QUIET ERROR_QUIET) + if(_rocm_fc_rc EQUAL 0) + set(CMAKE_Fortran_COMPILER "${_rocm_amdflang}" CACHE FILEPATH + "Fortran compiler used for the ROCm Fortran bindings" FORCE) + endif() + endif() + unset(_rocm_amdflang CACHE) +endif() + +check_language(Fortran) + +set(ROCM_WARN_TOOLCHAIN_VAR "${_rocm_fc_warn_toolchain_var}") +set(ROCM_ERROR_TOOLCHAIN_VAR "${_rocm_fc_error_toolchain_var}") +unset(_rocm_fc_warn_toolchain_var) +unset(_rocm_fc_error_toolchain_var) +unset(_rocm_fc_hints) +unset(_rocm_fc_cc) +unset(_rocm_fc_dir) +unset(_rocm_fc_root) +unset(_rocm_fc_rc) diff --git a/bindings/fortran/hipblas/test/CMakeLists.txt b/bindings/fortran/hipblas/test/CMakeLists.txt index 6985ada49583..1074dc64017b 100644 --- a/bindings/fortran/hipblas/test/CMakeLists.txt +++ b/bindings/fortran/hipblas/test/CMakeLists.txt @@ -44,17 +44,10 @@ if(NOT TARGET hip::hip_fortran) return() endif() -if(NOT TARGET roc::hipblas) - if(NOT CMAKE_C_COMPILER_LOADED AND NOT CMAKE_CXX_COMPILER_LOADED) - enable_language(C) - endif() - find_package(hipblas QUIET) -endif() if(NOT TARGET roc::hipblas) message(STATUS "hipBLAS: no roc::hipblas target, skipping the Fortran binding tests " - "(they link libhipblas). Point CMAKE_PREFIX_PATH at an installed ROCm to " - "build them standalone.") + "(they link libhipblas). Point CMAKE_PREFIX_PATH at an installed ROCm.") return() endif() From 303be95f61e8e7c1afb152a51c2f565e8f406a4c Mon Sep 17 00:00:00 2001 From: Alexis Montoison Date: Sat, 7 Nov 2026 12:04:00 -0600 Subject: [PATCH 7/8] fix(hipblas): install the Fortran package config in lib/cmake/hipblas-fortran The package files went to lib/cmake/hipblas, the C library's directory, with a forwarder in lib/cmake/hipblas-fortran. rocRAND and hipRAND install their own legacy -fortran-config.cmake there, so the files overlapped. Install the config, targets and version files directly where find_package() looks, as the HIP and ROCTx bindings do, and drop the forwarder. --- bindings/fortran/hipblas/CMakeLists.txt | 24 ++++++------------------ 1 file changed, 6 insertions(+), 18 deletions(-) diff --git a/bindings/fortran/hipblas/CMakeLists.txt b/bindings/fortran/hipblas/CMakeLists.txt index 37d2b26ede76..3021cb7fc710 100644 --- a/bindings/fortran/hipblas/CMakeLists.txt +++ b/bindings/fortran/hipblas/CMakeLists.txt @@ -141,7 +141,8 @@ endif() include(CMakePackageConfigHelpers) -# Beside hipblas-config.cmake, so one CMAKE_PREFIX_PATH entry finds both halves. +set(_fortran_pkgdir "${CMAKE_INSTALL_LIBDIR}/cmake/hipblas-fortran") + install(TARGETS hipblas_fortran EXPORT hipblas-fortran-targets ARCHIVE DESTINATION "${CMAKE_INSTALL_LIBDIR}/fortran/${HIPBLAS_FORTRAN_COMPILER_DIR}" @@ -158,7 +159,7 @@ install(FILES "${CMAKE_CURRENT_SOURCE_DIR}/hipblas.F90" install(EXPORT hipblas-fortran-targets FILE hipblas-fortran-targets.cmake NAMESPACE roc:: - DESTINATION "${CMAKE_INSTALL_LIBDIR}/cmake/hipblas" + DESTINATION "${_fortran_pkgdir}" COMPONENT devel) set(HIPBLAS_FORTRAN_LIBDIR "${CMAKE_INSTALL_LIBDIR}/fortran") @@ -167,20 +168,11 @@ set(HIPBLAS_FORTRAN_INCLUDEDIR "${CMAKE_INSTALL_INCLUDEDIR}/fortran") configure_package_config_file( "${CMAKE_CURRENT_SOURCE_DIR}/hipblas-fortran-config.cmake.in" "${CMAKE_CURRENT_BINARY_DIR}/hipblas-fortran-config.cmake" - INSTALL_DESTINATION "${CMAKE_INSTALL_LIBDIR}/cmake/hipblas" + INSTALL_DESTINATION "${_fortran_pkgdir}" # Not HIPBLAS_FORTRAN_COMPILER_DIR: it is a directory name, not a path. PATH_VARS HIPBLAS_FORTRAN_LIBDIR HIPBLAS_FORTRAN_INCLUDEDIR) install(FILES "${CMAKE_CURRENT_BINARY_DIR}/hipblas-fortran-config.cmake" - DESTINATION "${CMAKE_INSTALL_LIBDIR}/cmake/hipblas" - COMPONENT devel) - -# find_package(hipblas-fortran) searches lib/cmake/hipblas-fortran*: forward it. -file(WRITE "${CMAKE_CURRENT_BINARY_DIR}/forward/hipblas-fortran-config.cmake" -"# Generated forwarder to the config installed beside the hipBLAS C package. -include(\"\${CMAKE_CURRENT_LIST_DIR}/../hipblas/hipblas-fortran-config.cmake\") -") -install(FILES "${CMAKE_CURRENT_BINARY_DIR}/forward/hipblas-fortran-config.cmake" - DESTINATION "${CMAKE_INSTALL_LIBDIR}/cmake/hipblas-fortran" + DESTINATION "${_fortran_pkgdir}" COMPONENT devel) # Not hipblas_VERSION: standalone, that is the INSTALLED hipBLAS's version. @@ -200,12 +192,8 @@ if(_fortran_version) "${CMAKE_CURRENT_BINARY_DIR}/hipblas-fortran-config-version.cmake" VERSION "${_fortran_version}" COMPATIBILITY SameMajorVersion) - # In both package dirs: CMake reads the version file beside the config it found. - install(FILES "${CMAKE_CURRENT_BINARY_DIR}/hipblas-fortran-config-version.cmake" - DESTINATION "${CMAKE_INSTALL_LIBDIR}/cmake/hipblas" - COMPONENT devel) install(FILES "${CMAKE_CURRENT_BINARY_DIR}/hipblas-fortran-config-version.cmake" - DESTINATION "${CMAKE_INSTALL_LIBDIR}/cmake/hipblas-fortran" + DESTINATION "${_fortran_pkgdir}" COMPONENT devel) else() message(STATUS From 8b0c11a5b38e8fa8d93a4cb132c3e84a8374917e Mon Sep 17 00:00:00 2001 From: Alexis Montoison Date: Sat, 7 Nov 2026 19:54:53 -0600 Subject: [PATCH 8/8] fix(hipblas): let hipblas-config.cmake load the Fortran package without recursion rocm-cmake's generated hipblas-config.cmake is to include lib/cmake/hipblas-fortran/hipblas-fortran-config.cmake after its targets (ROCm/rocm-cmake#303). Skip find_dependency(hipblas) when hipblas is the package being found, not only when roc::hipblas is already imported, so that include never re-enters hipblas-config.cmake. --- bindings/fortran/hipblas/hipblas-fortran-config.cmake.in | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/bindings/fortran/hipblas/hipblas-fortran-config.cmake.in b/bindings/fortran/hipblas/hipblas-fortran-config.cmake.in index daa5adc7f13c..58518c9c720f 100644 --- a/bindings/fortran/hipblas/hipblas-fortran-config.cmake.in +++ b/bindings/fortran/hipblas/hipblas-fortran-config.cmake.in @@ -127,7 +127,9 @@ endif() # Written TRUE only when the archive links roc::hipblas, which must be imported # before the targets file. hip's config needs C or CXX enabled (FindThreads). if(@HIPBLAS_FORTRAN_NEEDS_C_PACKAGE@) - if(NOT TARGET roc::hipblas) + # Not from hipblas-config.cmake, which includes the Fortran package after its targets. + string(TOLOWER "${CMAKE_FIND_PACKAGE_NAME}" _hipblas_caller) + if(NOT TARGET roc::hipblas AND NOT _hipblas_caller STREQUAL "hipblas") if(NOT CMAKE_C_COMPILER_LOADED AND NOT CMAKE_CXX_COMPILER_LOADED) enable_language(C) endif()